From 296ad2b47f63bc86d4468ca7a8754fcbd51a706a Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Sun, 1 Apr 2001 05:33:45 +0000 Subject: [PATCH] New files. --- module/language/r5rs/GPKG.def | 12 + module/language/r5rs/core.il | 325 + module/language/r5rs/expand.scm | 82 + module/language/r5rs/null.il | 18 + module/language/r5rs/psyntax.boot | 72 + module/language/r5rs/psyntax.pp | 14552 +++++++++++++++++++++++++++ module/language/r5rs/psyntax.scm | 1 + module/language/r5rs/psyntax.ss | 3197 ++++++ module/language/r5rs/spec.scm | 37 + module/language/r5rs/translate.scm | 59 + 10 files changed, 18355 insertions(+) create mode 100644 module/language/r5rs/GPKG.def create mode 100644 module/language/r5rs/core.il create mode 100644 module/language/r5rs/expand.scm create mode 100644 module/language/r5rs/null.il create mode 100644 module/language/r5rs/psyntax.boot create mode 100644 module/language/r5rs/psyntax.pp create mode 100644 module/language/r5rs/psyntax.scm create mode 100644 module/language/r5rs/psyntax.ss create mode 100644 module/language/r5rs/spec.scm create mode 100644 module/language/r5rs/translate.scm diff --git a/module/language/r5rs/GPKG.def b/module/language/r5rs/GPKG.def new file mode 100644 index 000000000..5ad52e8c6 --- /dev/null +++ b/module/language/r5rs/GPKG.def @@ -0,0 +1,12 @@ +;;; r5rs package definition -*- gscheme -*- + +(define-package r5rs + :category Language + :version "0.3" + :author "Keisuke Nishida " + :modules ((core "core.il" ghil) + (null "null.il" ghil) + (spec "spec.scm" gscheme) + (expand "expand.scm" gscheme) + (translate "translate.scm" gscheme)) + ) diff --git a/module/language/r5rs/core.il b/module/language/r5rs/core.il new file mode 100644 index 000000000..1e282ea5a --- /dev/null +++ b/module/language/r5rs/core.il @@ -0,0 +1,325 @@ +;;; R5RS core environment + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; This file is part of Guile VM. + +;; Guile VM is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. +;; +;; Guile VM is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with Guile VM; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;; Non standard procedures + +(@define void (@lambda () (@void))) + +;; 6. Standard procedures + +;;; 6.1 Equivalence predicates + +(@define eq? (@lambda (x y) (@eq? x y))) +(@define eqv? (@ Core::eqv?)) +(@define equal? (@ Core::equal?)) + +;;; 6.2 Numbers + +(@define number? (@ Core::number?)) +(@define complex? (@ Core::complex?)) +(@define real? (@ Core::real?)) +(@define rational? (@ Core::rational?)) +(@define integer? (@ Core::integer?)) + +(@define exact? (@ Core::exact?)) +(@define inexact? (@ Core::inexact?)) + +(@define = (@ Core::=)) +(@define < (@ Core::<)) +(@define > (@ Core::>)) +(@define <= (@ Core::<=)) +(@define >= (@ Core::>=)) + +(@define zero? (@ Core::zero?)) +(@define positive? (@ Core::positive?)) +(@define negative? (@ Core::negative?)) +(@define odd? (@ Core::odd?)) +(@define even? (@ Core::even?)) + +(@define max (@ Core::max)) +(@define min (@ Core::min)) + +(@define + (@ Core::+)) +(@define * (@ Core::*)) +(@define - (@ Core::-)) +(@define / (@ Core::/)) + +(@define abs (@ Core::abs)) + +(@define quotient (@ Core::quotient)) +(@define remainder (@ Core::remainder)) +(@define modulo (@ Core::modulo)) + +(@define gcd (@ Core::gcd)) +(@define lcm (@ Core::lcm)) + +;; (@define numerator (@ Core::numerator)) +;; (@define denominator (@ Core::denominator)) + +(@define floor (@ Core::floor)) +(@define ceiling (@ Core::ceiling)) +(@define truncate (@ Core::truncate)) +(@define round (@ Core::round)) + +;; (@define rationalize (@ Core::rationalize)) + +(@define exp (@ Core::exp)) +(@define log (@ Core::log)) +(@define sin (@ Core::sin)) +(@define cos (@ Core::cos)) +(@define tan (@ Core::tan)) +(@define asin (@ Core::asin)) +(@define acos (@ Core::acos)) +(@define atan (@ Core::atan)) + +(@define sqrt (@ Core::sqrt)) +(@define expt (@ Core::expt)) + +(@define make-rectangular (@ Core::make-rectangular)) +(@define make-polar (@ Core::make-polar)) +(@define real-part (@ Core::real-part)) +(@define imag-part (@ Core::imag-part)) +(@define magnitude (@ Core::magnitude)) +(@define angle (@ Core::angle)) + +(@define exact->inexact (@ Core::exact->inexact)) +(@define inexact->exact (@ Core::inexact->exact)) + +(@define number->string (@ Core::number->string)) +(@define string->number (@ Core::string->number)) + +;;; 6.3 Other data types + +;;;; 6.3.1 Booleans + +(@define not (@lambda (x) (@not x))) +(@define boolean? (@ Core::boolean?)) + +;;;; 6.3.2 Pairs and lists + +(@define pair? (@lambda (x) (@pair? x))) +(@define cons (@lambda (x y) (@cons x y))) + +(@define car (@lambda (x) (@car x))) +(@define cdr (@lambda (x) (@cdr x))) +(@define set-car! (@ Core::set-car!)) +(@define set-cdr! (@ Core::set-cdr!)) + +(@define caar (@lambda (x) (@caar x))) +(@define cadr (@lambda (x) (@cadr x))) +(@define cdar (@lambda (x) (@cdar x))) +(@define cddr (@lambda (x) (@cddr x))) +(@define caaar (@lambda (x) (@caaar x))) +(@define caadr (@lambda (x) (@caadr x))) +(@define cadar (@lambda (x) (@cadar x))) +(@define caddr (@lambda (x) (@caddr x))) +(@define cdaar (@lambda (x) (@cdaar x))) +(@define cdadr (@lambda (x) (@cdadr x))) +(@define cddar (@lambda (x) (@cddar x))) +(@define cdddr (@lambda (x) (@cdddr x))) +(@define caaaar (@lambda (x) (@caaaar x))) +(@define caaadr (@lambda (x) (@caaadr x))) +(@define caadar (@lambda (x) (@caadar x))) +(@define caaddr (@lambda (x) (@caaddr x))) +(@define cadaar (@lambda (x) (@cadaar x))) +(@define cadadr (@lambda (x) (@cadadr x))) +(@define caddar (@lambda (x) (@caddar x))) +(@define cadddr (@lambda (x) (@cadddr x))) +(@define cdaaar (@lambda (x) (@cdaaar x))) +(@define cdaadr (@lambda (x) (@cdaadr x))) +(@define cdadar (@lambda (x) (@cdadar x))) +(@define cdaddr (@lambda (x) (@cdaddr x))) +(@define cddaar (@lambda (x) (@cddaar x))) +(@define cddadr (@lambda (x) (@cddadr x))) +(@define cdddar (@lambda (x) (@cdddar x))) +(@define cddddr (@lambda (x) (@cddddr x))) + +(@define null? (@lambda (x) (@null? x))) +(@define list? (@lambda (x) (@list? x))) + +(@define list (@lambda x x)) + +(@define length (@ Core::length)) +(@define append (@ Core::append)) +(@define reverse (@ Core::reverse)) +(@define list-tail (@ Core::list-tail)) +(@define list-ref (@ Core::list-ref)) + +(@define memq (@ Core::memq)) +(@define memv (@ Core::memv)) +(@define member (@ Core::member)) + +(@define assq (@ Core::assq)) +(@define assv (@ Core::assv)) +(@define assoc (@ Core::assoc)) + +;;;; 6.3.3 Symbols + +(@define symbol? (@ Core::symbol?)) +(@define symbol->string (@ Core::symbol->string)) +(@define string->symbol (@ Core::string->symbol)) + +;;;; 6.3.4 Characters + +(@define char? (@ Core::char?)) +(@define char=? (@ Core::char=?)) +(@define char? (@ Core::char>?)) +(@define char<=? (@ Core::char<=?)) +(@define char>=? (@ Core::char>=?)) +(@define char-ci=? (@ Core::char-ci=?)) +(@define char-ci? (@ Core::char-ci>?)) +(@define char-ci<=? (@ Core::char-ci<=?)) +(@define char-ci>=? (@ Core::char-ci>=?)) +(@define char-alphabetic? (@ Core::char-alphabetic?)) +(@define char-numeric? (@ Core::char-numeric?)) +(@define char-whitespace? (@ Core::char-whitespace?)) +(@define char-upper-case? (@ Core::char-upper-case?)) +(@define char-lower-case? (@ Core::char-lower-case?)) +(@define char->integer (@ Core::char->integer)) +(@define integer->char (@ Core::integer->char)) +(@define char-upcase (@ Core::char-upcase)) +(@define char-downcase (@ Core::char-downcase)) + +;;;; 6.3.5 Strings + +(@define string? (@ Core::string?)) +(@define make-string (@ Core::make-string)) +(@define string (@ Core::string)) +(@define string-length (@ Core::string-length)) +(@define string-ref (@ Core::string-ref)) +(@define string-set! (@ Core::string-set!)) + +(@define string=? (@ Core::string=?)) +(@define string-ci=? (@ Core::string-ci=?)) +(@define string? (@ Core::string>?)) +(@define string<=? (@ Core::string<=?)) +(@define string>=? (@ Core::string>=?)) +(@define string-ci? (@ Core::string-ci>?)) +(@define string-ci<=? (@ Core::string-ci<=?)) +(@define string-ci>=? (@ Core::string-ci>=?)) + +(@define substring (@ Core::substring)) +(@define string-append (@ Core::string-append)) +(@define string->list (@ Core::string->list)) +(@define list->string (@ Core::list->string)) +(@define string-copy (@ Core::string-copy)) +(@define string-fill! (@ Core::string-fill!)) + +;;;; 6.3.6 Vectors + +(@define vector? (@ Core::vector?)) +(@define make-vector (@ Core::make-vector)) +(@define vector (@ Core::vector)) +(@define vector-length (@ Core::vector-length)) +(@define vector-ref (@ Core::vector-ref)) +(@define vector-set! (@ Core::vector-set!)) +(@define vector->list (@ Core::vector->list)) +(@define list->vector (@ Core::list->vector)) +(@define vector-fill! (@ Core::vector-fill!)) + +;;; 6.4 Control features + +(@define procedure? (@ Core::procedure?)) +(@define apply (@ Core::apply)) +(@define map (@ Core::map)) +(@define for-each (@ Core::for-each)) +(@define force (@ Core::force)) + +(@define call-with-current-continuation (@ Core::call-with-current-continuation)) +(@define values (@ Core::values)) +(@define call-with-values (@ Core::call-with-values)) +(@define dynamic-wind (@ Core::dynamic-wind)) + +;;; 6.5 Eval + +(@define eval + (@let ((l (@ Language::r5rs::spec::r5rs))) + (@lambda (x e) + (((@ System::Base::language::compile-in) x e l))))) + +;; (@define scheme-report-environment +;; (@lambda (version) +;; (@if (@= version 5) +;; (@ Language::R5RS::Core) +;; (@error "Unsupported environment version" version)))) +;; +;; (@define null-environment +;; (@lambda (version) +;; (@if (@= version 5) +;; (@ Language::R5RS::Null) +;; (@error "Unsupported environment version" version)))) + +(@define interaction-environment (@lambda () (@current-module))) + +;;; 6.6 Input and output + +;;;; 6.6.1 Ports + +(@define call-with-input-file (@ Core::call-with-input-file)) +(@define call-with-output-file (@ Core::call-with-output-file)) + +(@define input-port? (@ Core::input-port?)) +(@define output-port? (@ Core::output-port?)) +(@define current-input-port (@ Core::current-input-port)) +(@define current-output-port (@ Core::current-output-port)) + +(@define with-input-from-file (@ Core::with-input-from-file)) +(@define with-output-to-file (@ Core::with-output-to-file)) + +(@define open-input-file (@ Core::open-input-file)) +(@define open-output-file (@ Core::open-output-file)) +(@define close-input-port (@ Core::close-input-port)) +(@define close-output-port (@ Core::close-output-port)) + +;;;; 6.6.2 Input + +(@define read (@ Core::read)) +(@define read-char (@ Core::read-char)) +(@define peek-char (@ Core::peek-char)) +(@define eof-object? (@ Core::eof-object?)) +(@define char-ready? (@ Core::char-ready?)) + +;;;; 6.6.3 Output + +(@define write (@ Core::write)) +(@define display (@ Core::display)) +(@define newline (@ Core::newline)) +(@define write-char (@ Core::write-char)) + +;;;; 6.6.4 System interface + +(@define load + (@lambda (file) + (call-with-input-file file + (@lambda (port) + (@let ((loop (@lambda (x) + (@if (@not (eof-object? x)) + (@begin + (eval x (interaction-environment)) + (loop (read port))))))) + (loop (read port))))))) + +;; transcript-on +;; transcript-off diff --git a/module/language/r5rs/expand.scm b/module/language/r5rs/expand.scm new file mode 100644 index 000000000..900c2a30a --- /dev/null +++ b/module/language/r5rs/expand.scm @@ -0,0 +1,82 @@ +;;;; Copyright (C) 1997, 2000 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA +;;;; + + +(define-module (language r5rs expand) + :export (expand + identifier? free-identifier=? bound-identifier=? + generate-temporaries datum->syntax-object syntax-object->datum)) + +(define sc-expand #f) +(define $sc-put-cte #f) +(define $syntax-dispatch #f) +(define syntax-rules #f) +(define syntax-error #f) +(define identifier? #f) +(define free-identifier=? #f) +(define bound-identifier=? #f) +(define generate-temporaries #f) +(define datum->syntax-object #f) +(define syntax-object->datum #f) + +(define void (lambda () (if #f #f))) + +(define andmap + (lambda (f first . rest) + (or (null? first) + (if (null? rest) + (let andmap ((first first)) + (let ((x (car first)) (first (cdr first))) + (if (null? first) + (f x) + (and (f x) (andmap first))))) + (let andmap ((first first) (rest rest)) + (let ((x (car first)) + (xr (map car rest)) + (first (cdr first)) + (rest (map cdr rest))) + (if (null? first) + (apply f (cons x xr)) + (and (apply f (cons x xr)) (andmap first rest))))))))) + +(define ormap + (lambda (proc list1) + (and (not (null? list1)) + (or (proc (car list1)) (ormap proc (cdr list1)))))) + +(define putprop set-symbol-property!) +(define getprop symbol-property) +(define remprop symbol-property-remove!) + +(define syncase-module (current-module)) +(define (sc-eval x) (eval x syncase-module)) + +(load "psyntax.scm") + +(define expand sc-expand) + +(define (rebuild) + (call-with-input-file "psyntax.ss" + (lambda (in) + (call-with-output-file "psyntax.scm" + (lambda (out) + (do ((obj (read in) (read in))) + ((eof-object? obj)) + (write (sc-expand obj 'c '(eval load compile)) out))))))) + +;(rebuild) diff --git a/module/language/r5rs/null.il b/module/language/r5rs/null.il new file mode 100644 index 000000000..3d63b9b00 --- /dev/null +++ b/module/language/r5rs/null.il @@ -0,0 +1,18 @@ +;;; R5RS null environment + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; Guile VM is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. +;; +;; Guile VM is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with Guile VM; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. diff --git a/module/language/r5rs/psyntax.boot b/module/language/r5rs/psyntax.boot new file mode 100644 index 000000000..e47c0ec80 --- /dev/null +++ b/module/language/r5rs/psyntax.boot @@ -0,0 +1,72 @@ +;;;; Copyright (C) 1997, 2000 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA +;;;; + + +(define sc-expand #f) +(define $sc-put-cte #f) +(define bound-identifier=? #f) +(define datum->syntax-object #f) +(define free-identifier=? #f) +(define generate-temporaries #f) +(define identifier? #f) +(define syntax-object->datum #f) +(define syntax-rules #f) +(define syntax-error #f) +(define $syntax-dispatch #f) + +(define void (lambda () (if #f #f))) + +(define andmap + (lambda (f first . rest) + (or (null? first) + (if (null? rest) + (let andmap ((first first)) + (let ((x (car first)) (first (cdr first))) + (if (null? first) + (f x) + (and (f x) (andmap first))))) + (let andmap ((first first) (rest rest)) + (let ((x (car first)) + (xr (map car rest)) + (first (cdr first)) + (rest (map cdr rest))) + (if (null? first) + (apply f (cons x xr)) + (and (apply f (cons x xr)) (andmap first rest))))))))) + +(define ormap + (lambda (proc list1) + (and (not (null? list1)) + (or (proc (car list1)) (ormap proc (cdr list1)))))) + +(define putprop set-symbol-property!) +(define getprop symbol-property) +(define remprop symbol-property-remove!) + +(define core-eval eval) +(define (eval x) (core-eval (cadr x) (interaction-environment))) + +(load "psyntax.pp") + +(call-with-input-file "psyntax.ss" + (lambda (in) + (call-with-output-file "psyntax.scm" + (lambda (out) + (do ((obj (read in) (read in))) + ((eof-object? obj)) + (write (sc-expand obj) out)))))) diff --git a/module/language/r5rs/psyntax.pp b/module/language/r5rs/psyntax.pp new file mode 100644 index 000000000..4ee7eb241 --- /dev/null +++ b/module/language/r5rs/psyntax.pp @@ -0,0 +1,14552 @@ +;;; psyntax.pp +;;; automatically generated from psyntax.ss +;;; Wed Aug 30 12:24:52 EST 2000 +;;; see copyright notice in psyntax.ss + +((lambda () + (letrec ((g452 + (lambda (g1823) + ((letrec ((g1824 + (lambda (g1827 g1825 g1826) + (if (pair? g1827) + (g1824 + (cdr g1827) + (cons (g393 (car g1827) g1826) g1825) + g1826) + (if (g256 g1827) + (cons (g393 g1827 g1826) g1825) + (if (null? g1827) + g1825 + (if (g204 g1827) + (g1824 + (g205 g1827) + g1825 + (g371 g1826 (g206 g1827))) + (if (g90 g1827) + (g1824 + (annotation-expression + g1827) + g1825 + g1826) + (cons g1827 g1825))))))))) + g1824) + g1823 + '() + '(())))) + (g451 + (lambda (g833) + ((lambda (g834) (if (g90 g834) (gensym) (gensym))) + (if (g204 g833) (g205 g833) g833)))) + (g450 + (lambda (g1820 g1819) + (g449 g1820 + g1819 + (lambda (g1821) + (if ((lambda (g1822) + (if g1822 + g1822 + (if (pair? g1821) + (g90 (car g1821)) + '#f))) + (g90 g1821)) + (g448 g1821 '#f) + g1821))))) + (g449 + (lambda (g837 g835 g836) + (if (memq 'top (g264 g835)) + (g836 g837) + ((letrec ((g838 + (lambda (g839) + (if (g204 g839) + (g449 (g205 g839) (g206 g839) g836) + (if (pair? g839) + ((lambda (g841 g840) + (if (if (eq? g841 (car g839)) + (eq? g840 (cdr g839)) + '#f) + g839 + (cons g841 g840))) + (g838 (car g839)) + (g838 (cdr g839))) + (if (vector? g839) + ((lambda (g842) + ((lambda (g843) + (if (andmap + eq? + g842 + g843) + g839 + (list->vector g843))) + (map g838 g842))) + (vector->list g839)) + g839)))))) + g838) + g837)))) + (g448 + (lambda (g1813 g1812) + (if (pair? g1813) + ((lambda (g1814) + (begin (if g1812 + (set-annotation-stripped! g1812 g1814) + (void)) + (set-car! g1814 (g448 (car g1813) '#f)) + (set-cdr! g1814 (g448 (cdr g1813) '#f)) + g1814)) + (cons '#f '#f)) + (if (g90 g1813) + ((lambda (g1815) + (if g1815 + g1815 + (g448 (annotation-expression g1813) g1813))) + (annotation-stripped g1813)) + (if (vector? g1813) + ((lambda (g1816) + (begin (if g1812 + (set-annotation-stripped! + g1812 + g1816) + (void)) + ((letrec ((g1817 + (lambda (g1818) + (if (not (< g1818 '0)) + (begin (vector-set! + g1816 + g1818 + (g448 (vector-ref + g1813 + g1818) + '#f)) + (g1817 + (- g1818 + '1))) + (void))))) + g1817) + (- (vector-length g1813) '1)) + g1816)) + (make-vector (vector-length g1813))) + g1813))))) + (g447 + (lambda (g844) + (if (g255 g844) + (g378 g844 + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage ((import-token . *top*)) () ()) + #(ribcage ((import-token . *top*)) () ())))) + '#f))) + (g446 (lambda () (list 'void))) + (g445 + (lambda (g850 g845 g849 g846 g848 g847) + ((lambda (g851) + ((lambda (g852) + (if g852 + (apply + (lambda (g857 g853 g856 g854 g855) + ((lambda (g858) + (if (not (g389 g858)) + (g391 (map (lambda (g859) + (g393 g859 g846)) + g858) + (g394 g845 g846 g848) + '"keyword") + ((lambda (g860) + ((lambda (g861) + (g847 (cons g854 g855) + (g247 g860 + ((lambda (g863 g862) + (map (lambda (g865) + (g231 'deferred + (g432 g865 + g862 + g863))) + g856)) + (if g850 g861 g846) + (g249 g849)) + g849) + g861 + g848)) + (g368 g858 g860 g846))) + (g299 g858)))) + g853)) + g852) + ((lambda (g868) + (syntax-error (g394 g845 g846 g848))) + g851))) + ($syntax-dispatch + g851 + '(any #(each (any any)) any . each-any)))) + g845))) + (g444 + (lambda (g1789 g1785 g1788 g1786 g1787) + ((lambda (g1790) + ((lambda (g1791) + (if g1791 + (apply + (lambda (g1794 g1792 g1793) + ((lambda (g1795) + (if (not (g389 g1795)) + (syntax-error + g1789 + '"invalid parameter list in") + ((lambda (g1797 g1796) + (g1787 + g1796 + (g437 (cons g1792 g1793) + g1789 + (g248 g1797 g1796 g1788) + (g368 g1795 g1797 g1786)))) + (g299 g1795) + (map g451 g1795)))) + g1794)) + g1791) + ((lambda (g1800) + (if g1800 + (apply + (lambda (g1803 g1801 g1802) + ((lambda (g1804) + (if (not (g389 g1804)) + (syntax-error + g1789 + '"invalid parameter list in") + ((lambda (g1806 g1805) + (g1787 + ((letrec ((g1808 + (lambda (g1810 + g1809) + (if (null? + g1810) + g1809 + (g1808 + (cdr g1810) + (cons (car g1810) + g1809)))))) + g1808) + (cdr g1805) + (car g1805)) + (g437 (cons g1801 g1802) + g1789 + (g248 g1806 + g1805 + g1788) + (g368 g1804 + g1806 + g1786)))) + (g299 g1804) + (map g451 g1804)))) + (g452 g1803))) + g1800) + ((lambda (g1811) (syntax-error g1789)) + g1790))) + ($syntax-dispatch g1790 '(any any . each-any))))) + ($syntax-dispatch g1790 '(each-any any . each-any)))) + g1785))) + (g443 + (lambda (g872 g869 g871 g870) + ((lambda (g873) + ((lambda (g874) + (if (if g874 + (apply + (lambda (g877 g875 g876) (g256 g875)) + g874) + '#f) + (apply + (lambda (g880 g878 g879) (g870 g878 g879 g869)) + g874) + ((lambda (g881) + (syntax-error (g394 g872 g869 g871))) + g873))) + ($syntax-dispatch g873 '(any any any)))) + g872))) + (g442 + (lambda (g1758 g1755 g1757 g1756) + ((lambda (g1759) + ((lambda (g1760) + (if (if g1760 + (apply + (lambda (g1763 g1761 g1762) (g256 g1761)) + g1760) + '#f) + (apply + (lambda (g1766 g1764 g1765) + (g1756 g1764 g1765 g1755)) + g1760) + ((lambda (g1767) + (if (if g1767 + (apply + (lambda (g1772 + g1768 + g1771 + g1769 + g1770) + (if (g256 g1768) + (g389 (g452 g1771)) + '#f)) + g1767) + '#f) + (apply + (lambda (g1777 g1773 g1776 g1774 g1775) + (g1756 + (g393 g1773 g1755) + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ name args e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(e w s k) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()) + #(ribcage + ((import-token . *top*)) + () + ()))) + (g393 (cons g1776 + (cons g1774 g1775)) + g1755)) + '(()))) + g1767) + ((lambda (g1779) + (if (if g1779 + (apply + (lambda (g1781 g1780) + (g256 g1780)) + g1779) + '#f) + (apply + (lambda (g1783 g1782) + (g1756 + (g393 g1782 g1755) + '(#(syntax-object + void + ((top) + #(ribcage + #(_ name) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(e w s k) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + '(()))) + g1779) + ((lambda (g1784) + (syntax-error + (g394 g1758 g1755 g1757))) + g1759))) + ($syntax-dispatch g1759 '(any any))))) + ($syntax-dispatch + g1759 + '(any (any . any) any . each-any))))) + ($syntax-dispatch g1759 '(any any any)))) + g1758))) + (g441 + (lambda (g885 g882 g884 g883) + ((lambda (g886) + ((lambda (g887) + (if (if g887 + (apply (lambda (g889 g888) (g256 g888)) g887) + '#f) + (apply + (lambda (g891 g890) (g883 (g393 g890 g882))) + g887) + ((lambda (g892) + (syntax-error (g394 g885 g882 g884))) + g886))) + ($syntax-dispatch g886 '(any any)))) + g885))) + (g440 + (lambda (g1723 g1719 g1722 g1720 g1721) + (letrec ((g1725 + (lambda (g1753 g1751 g1752) + (g1721 + g1753 + (g1724 g1751) + (map (lambda (g1754) (g393 g1754 g1720)) + g1752)))) + (g1724 + (lambda (g1745) + (if (null? g1745) + '() + (cons ((lambda (g1746) + ((lambda (g1747) + (if g1747 + (apply + (lambda (g1748) + (g1724 g1748)) + g1747) + ((lambda (g1750) + (if (g256 g1750) + (g393 g1750 g1720) + (syntax-error + (g394 g1723 + g1719 + g1722) + '"invalid exports list in"))) + g1746))) + ($syntax-dispatch + g1746 + 'each-any))) + (car g1745)) + (g1724 (cdr g1745))))))) + ((lambda (g1726) + ((lambda (g1727) + (if g1727 + (apply + (lambda (g1730 g1728 g1729) + (g1725 '#f g1728 g1729)) + g1727) + ((lambda (g1733) + (if (if g1733 + (apply + (lambda (g1737 g1734 g1736 g1735) + (g256 g1734)) + g1733) + '#f) + (apply + (lambda (g1741 g1738 g1740 g1739) + (g1725 + (g393 g1738 g1719) + g1740 + g1739)) + g1733) + ((lambda (g1744) + (syntax-error + (g394 g1723 g1719 g1722))) + g1726))) + ($syntax-dispatch + g1726 + '(any any each-any . each-any))))) + ($syntax-dispatch g1726 '(any each-any . each-any)))) + g1723)))) + (g439 + (lambda (g894 g893) + ((lambda (g895) + (if g895 + (g366 g893 g895) + (g429 (lambda (g896) + ((lambda (g897) + (begin (if (not g897) + (syntax-error + g896 + '"exported identifier not visible") + (void)) + (g363 g893 g896 g897))) + (g376 g896 '(())))) + (g404 g894)))) + (g405 g894)))) + (g438 + (lambda (g1652 g1648 g1651 g1649 g1650) + (letrec ((g1653 + (lambda (g1718 g1714 g1717 g1715 g1716) + (begin (g426 g1648 g1714) + (g1650 g1718 g1714 g1717 g1715 g1716))))) + ((letrec ((g1654 + (lambda (g1659 g1655 g1658 g1656 g1657) + (if (null? g1659) + (g1653 g1659 g1655 g1658 g1656 g1657) + ((lambda (g1661 g1660) + (call-with-values + (lambda () + (g398 g1661 + g1660 + '(()) + '#f + g1652)) + (lambda (g1666 + g1662 + g1665 + g1663 + g1664) + ((lambda (g1667) + (if (memv g1667 '(define-form)) + (g442 g1665 + g1663 + g1664 + (lambda (g1670 + g1668 + g1669) + ((lambda (g1672 + g1671) + ((lambda (g1673) + (begin (g363 g1652 + g1672 + g1671) + (g424 g1649 + g1671 + (g231 'lexical + g1673)) + (g1654 + (cdr g1659) + (cons g1672 + g1655) + (cons g1673 + g1658) + (cons (cons g1660 + (g393 g1668 + g1669)) + g1656) + g1657))) + (g451 g1672))) + (g393 g1670 g1669) + (g297)))) + (if (memv g1667 + '(define-syntax-form)) + (g443 g1665 + g1663 + g1664 + (lambda (g1676 + g1674 + g1675) + ((lambda (g1679 + g1677 + g1678) + (begin (g363 g1652 + g1679 + g1677) + (g424 g1649 + g1677 + (g231 'deferred + g1678)) + (g1654 + (cdr g1659) + (cons g1679 + g1655) + g1658 + g1656 + g1657))) + (g393 g1676 + g1675) + (g297) + (g432 g1674 + (g249 g1660) + g1675)))) + (if (memv g1667 + '(module-form)) + ((lambda (g1680) + ((lambda (g1681) + ((lambda () + (g440 g1665 + g1663 + g1664 + g1681 + (lambda (g1684 + g1682 + g1683) + (g438 g1680 + (g394 g1665 + g1663 + g1664) + (map (lambda (g1695) + (cons g1660 + g1695)) + g1683) + g1649 + (lambda (g1689 + g1685 + g1688 + g1686 + g1687) + (begin (g425 g1648 + (g401 g1682) + g1685) + ((lambda (g1693 + g1690 + g1692 + g1691) + (if g1684 + ((lambda (g1694) + (begin (g363 g1652 + g1684 + g1694) + (g424 g1649 + g1694 + (g231 'module + g1693)) + (g1654 + (cdr g1659) + (cons g1684 + g1655) + g1690 + g1692 + g1691))) + (g297)) + ((lambda () + (begin (g439 g1693 + g1652) + (g1654 + (cdr g1659) + (cons g1693 + g1655) + g1690 + g1692 + g1691)))))) + (g408 g1682) + (append + g1688 + g1658) + (append + g1686 + g1656) + (append + g1657 + g1687 + g1689)))))))))) + (g263 (g264 g1663) + (cons g1680 + (g265 g1663))))) + (g304 '() + '() + '())) + (if (memv g1667 + '(import-form)) + (g441 g1665 + g1663 + g1664 + (lambda (g1696) + ((lambda (g1697) + ((lambda (g1698) + ((lambda (g1699) + (if (memv g1699 + '(module)) + ((lambda (g1700) + (begin (if g1662 + (g364 g1652 + g1662) + (void)) + (g439 g1700 + g1652) + (g1654 + (cdr g1659) + (cons g1700 + g1655) + g1658 + g1656 + g1657))) + (cdr g1698)) + (if (memv g1699 + '(displaced-lexical)) + (g250 g1696) + (syntax-error + g1696 + '"import from unknown module")))) + (car g1698))) + (g253 g1697 + g1649))) + (g377 g1696 + '(()))))) + (if (memv g1667 + '(begin-form)) + ((lambda (g1701) + ((lambda (g1702) + (if g1702 + (apply + (lambda (g1704 + g1703) + (g1654 + ((letrec ((g1705 + (lambda (g1706) + (if (null? + g1706) + (cdr g1659) + (cons (cons g1660 + (g393 (car g1706) + g1663)) + (g1705 + (cdr g1706))))))) + g1705) + g1703) + g1655 + g1658 + g1656 + g1657)) + g1702) + (syntax-error + g1701))) + ($syntax-dispatch + g1701 + '(any . + each-any)))) + g1665) + (if (memv g1667 + '(local-syntax-form)) + (g445 g1662 + g1665 + g1660 + g1663 + g1664 + (lambda (g1711 + g1708 + g1710 + g1709) + (g1654 + ((letrec ((g1712 + (lambda (g1713) + (if (null? + g1713) + (cdr g1659) + (cons (cons g1708 + (g393 (car g1713) + g1710)) + (g1712 + (cdr g1713))))))) + g1712) + g1711) + g1655 + g1658 + g1656 + g1657))) + (g1653 + (cons (cons g1660 + (g394 g1665 + g1663 + g1664)) + (cdr g1659)) + g1655 + g1658 + g1656 + g1657)))))))) + g1666)))) + (cdar g1659) + (caar g1659)))))) + g1654) + g1651 + '() + '() + '() + '())))) + (g437 + (lambda (g901 g898 g900 g899) + ((lambda (g902) + ((lambda (g903) + ((lambda (g904) + ((lambda (g905) + ((lambda () + (g438 g903 + g898 + g905 + g902 + (lambda (g910 g906 g909 g907 g908) + (begin (if (null? g910) + (syntax-error + g898 + '"no expressions in body") + (void)) + (g191 '#f + g909 + (map (lambda (g912) + (g432 (cdr g912) + (car g912) + '(()))) + g907) + (g190 '#f + (map (lambda (g911) + (g432 (cdr g911) + (car g911) + '(()))) + (append + g908 + g910)))))))))) + (map (lambda (g913) (cons g902 (g393 g913 g904))) + g901))) + (g263 (g264 g899) (cons g903 (g265 g899))))) + (g304 '() '() '()))) + (cons '("placeholder" placeholder) g900)))) + (g436 + (lambda (g1635 g1630 g1634 g1631 g1633 g1632) + (letrec ((g1636 + (lambda (g1640 g1639) + (if (pair? g1640) + (cons (g1636 (car g1640) g1639) + (g1636 (cdr g1640) g1639)) + (if (g204 g1640) + ((lambda (g1641) + ((lambda (g1643 g1642) + (g203 (g205 g1640) + (if (if (pair? g1643) + (eq? (car g1643) + '#f) + '#f) + (g263 (cdr g1643) + (if g1632 + (cons g1632 + (cdr g1642)) + (cdr g1642))) + (g263 (cons g1639 g1643) + (if g1632 + (cons g1632 + (cons 'shift + g1642)) + (cons 'shift + g1642)))))) + (g264 g1641) + (g265 g1641))) + (g206 g1640)) + (if (vector? g1640) + ((lambda (g1644) + ((lambda (g1645) + ((lambda () + ((letrec ((g1646 + (lambda (g1647) + (if (= g1647 + g1644) + g1645 + (begin (vector-set! + g1645 + g1647 + (g1636 + (vector-ref + g1640 + g1647) + g1639)) + (g1646 + (+ g1647 + '1))))))) + g1646) + '0)))) + (make-vector g1644))) + (vector-length g1640)) + (if (symbol? g1640) + (syntax-error + (g394 g1630 g1631 g1633) + '"encountered raw symbol " + (format '"~s" g1640) + '" in output of macro") + g1640))))))) + (g1636 + ((lambda (g1637) + (if (procedure? g1637) + (g1637 + (lambda (g1638) + (begin (if (not (identifier? g1638)) + (syntax-error + g1638 + '"environment argument is not an identifier") + (void)) + (g253 (g377 g1638 '(())) g1634)))) + g1637)) + (g1635 (g394 g1630 (g349 g1631) g1633))) + (string '#\m))))) + (g435 + (lambda (g918 g914 g917 g915 g916) + ((lambda (g919) + ((lambda (g920) + (if (if g920 + (apply + (lambda (g923 g921 g922) (g256 g921)) + g920) + '#f) + (apply + (lambda (g926 g924 g925) + ((lambda (g927) + ((lambda (g928) + ((lambda (g929) + (if (memv g929 '(macro!)) + ((lambda (g931 g930) + (g398 (g436 (g233 g928) + (list '#(syntax-object + set! + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(id + val) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(t) + #(("m" top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(b) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(n) + #((top)) + #("i")) + #(ribcage + #(_ + id + val) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g931 + g930) + g914 + '(()) + g915 + g916) + g914 + '(()) + g915 + g916)) + (g393 g924 g917) + (g393 g925 g917)) + (values + 'core + (lambda (g935 g932 g934 g933) + ((lambda (g937 g936) + ((lambda (g938) + ((lambda (g939) + (if (memv g939 + '(lexical)) + (list 'set! + (g233 g938) + g937) + (if (memv g939 + '(global)) + (list 'set! + (g233 g938) + g937) + (if (memv g939 + '(displaced-lexical)) + (syntax-error + (g393 g924 + g934) + '"identifier out of context") + (syntax-error + (g394 g935 + g934 + g933)))))) + (g232 g938))) + (g253 g936 g932))) + (g432 g925 g932 g934) + (g377 g924 g934))) + g918 + g917 + g915))) + (g232 g928))) + (g253 g927 g914))) + (g377 g924 g917))) + g920) + ((lambda (g940) + (syntax-error (g394 g918 g917 g915))) + g919))) + ($syntax-dispatch g919 '(any any any)))) + g918))) + (g434 + (lambda (g1622 g1618 g1621 g1619 g1620) + ((lambda (g1623) + ((lambda (g1624) + (if g1624 + (apply + (lambda (g1626 g1625) + (cons g1622 + (map (lambda (g1628) + (g432 g1628 g1621 g1619)) + g1625))) + g1624) + ((lambda (g1629) + (syntax-error (g394 g1618 g1619 g1620))) + g1623))) + ($syntax-dispatch g1623 '(any . each-any)))) + g1618))) + (g433 + (lambda (g946 g941 g945 g942 g944 g943) + ((lambda (g947) + (if (memv g947 '(lexical)) + g941 + (if (memv g947 '(core)) + (g941 g945 g942 g944 g943) + (if (memv g947 '(lexical-call)) + (g434 g941 g945 g942 g944 g943) + (if (memv g947 '(constant)) + (list 'quote + (g450 (g394 g945 g944 g943) '(()))) + (if (memv g947 '(global)) + g941 + (if (memv g947 '(call)) + (g434 (g432 (car g945) g942 g944) + g945 + g942 + g944 + g943) + (if (memv g947 '(begin-form)) + ((lambda (g948) + ((lambda (g949) + (if g949 + (apply + (lambda (g952 + g950 + g951) + (g395 (cons g950 + g951) + g942 + g944 + g943)) + g949) + (syntax-error + g948))) + ($syntax-dispatch + g948 + '(any any + . + each-any)))) + g945) + (if (memv g947 + '(local-syntax-form)) + (g445 g941 + g945 + g942 + g944 + g943 + g395) + (if (memv g947 + '(eval-when-form)) + ((lambda (g954) + ((lambda (g955) + (if g955 + (apply + (lambda (g959 + g956 + g958 + g957) + ((lambda (g960) + (if (memq 'eval + g960) + (g395 (cons g958 + g957) + g942 + g944 + g943) + (g446))) + (g397 g945 + g956 + g944))) + g955) + (syntax-error + g954))) + ($syntax-dispatch + g954 + '(any each-any + any + . + each-any)))) + g945) + (if (memv g947 + '(define-form + define-syntax-form + module-form + import-form)) + (syntax-error + (g394 g945 + g944 + g943) + '"invalid context for definition") + (if (memv g947 + '(syntax)) + (syntax-error + (g394 g945 + g944 + g943) + '"reference to pattern variable outside syntax form") + (if (memv g947 + '(displaced-lexical)) + (g250 (g394 g945 + g944 + g943)) + (syntax-error + (g394 g945 + g944 + g943))))))))))))))) + g946))) + (g432 + (lambda (g1612 g1610 g1611) + (call-with-values + (lambda () (g398 g1612 g1610 g1611 '#f '#f)) + (lambda (g1617 g1613 g1616 g1614 g1615) + (g433 g1617 g1613 g1616 g1610 g1614 g1615))))) + (g431 + (lambda (g965 g963 g964) + ((lambda (g966) + (if (memv g966 '(c)) + (if (memq 'compile g963) + ((lambda (g967) + (begin (g91 g967) + (if (memq 'load g963) g967 (g446)))) + (g964)) + (if (memq 'load g963) (g964) (g446))) + (if (memv g966 '(c&e)) + ((lambda (g968) (begin (g91 g968) g968)) (g964)) + (begin (if (memq 'eval g963) (g91 (g964)) (void)) + (g446))))) + g965))) + (g430 + (lambda (g1609 g1608) + (list '$sc-put-cte + (list 'quote g1609) + (list 'quote (g231 'do-import g1608))))) + (g429 + (lambda (g970 g969) + ((lambda (g971) + ((letrec ((g972 + (lambda (g973) + (if (not (= g973 g971)) + (begin (g970 (vector-ref g969 g973)) + (g972 (+ g973 '1))) + (void))))) + g972) + '0)) + (vector-length g969)))) + (g428 + (lambda (g1604 g1603) + ((letrec ((g1605 + (lambda (g1607 g1606) + (if (< g1607 '0) + g1606 + (g1605 + (- g1607 '1) + (cons (g1604 (vector-ref g1603 g1607)) + g1606)))))) + g1605) + (- (vector-length g1603) '1) + '()))) + (g427 + (lambda (g982 g974 g981 g975 g980 g976 g979 g977 g978) + (letrec ((g985 + (lambda (g1050 g1049) + ((lambda (g1051) + (map (lambda (g1052) + ((lambda (g1053) + (if (not (g392 g1053 g1051)) + g1052 + (g410 (g412 g1052) + g1053 + (g414 g1052) + (append + (g984 g1053) + (g415 g1052)) + (g416 g1052)))) + (g413 g1052))) + g1050)) + (map (lambda (g1054) + (if (pair? g1054) (car g1054) g1054)) + g1049)))) + (g984 + (lambda (g1043) + ((letrec ((g1044 + (lambda (g1045) + (if (null? g1045) + '() + (if (if (pair? (car g1045)) + (g388 g1043 + (caar g1045)) + '#f) + (g401 (cdar g1045)) + (g1044 (cdr g1045))))))) + g1044) + g980))) + (g983 + (lambda (g1048 g1046 g1047) + (begin (g426 g974 g1046) + (g425 g974 g976 g1046) + (g978 g1048 g1047))))) + ((letrec ((g986 + (lambda (g990 g987 g989 g988) + (if (null? g990) + (g983 g989 g987 g988) + ((lambda (g992 g991) + (call-with-values + (lambda () + (g398 g992 g991 '(()) '#f g982)) + (lambda (g997 g993 g996 g994 g995) + ((lambda (g998) + (if (memv g998 '(define-form)) + (g442 g996 + g994 + g995 + (lambda (g1001 + g999 + g1000) + ((lambda (g1002) + ((lambda (g1003) + ((lambda (g1004) + ((lambda () + (begin (g363 g982 + g1002 + g1003) + (g986 (cdr g990) + (cons g1002 + g987) + (cons (g410 g997 + g1002 + g1003 + g1004 + (cons g991 + (g393 g999 + g1000))) + g989) + g988))))) + (g984 g1002))) + (g300))) + (g393 g1001 + g1000)))) + (if (memv g998 + '(define-syntax-form)) + (g443 g996 + g994 + g995 + (lambda (g1007 + g1005 + g1006) + ((lambda (g1008) + ((lambda (g1009) + ((lambda (g1010) + ((lambda (g1011) + ((lambda () + (begin (g424 g975 + (g302 g1009) + (cons 'deferred + g1011)) + (g363 g982 + g1008 + g1009) + (g986 (cdr g990) + (cons g1008 + g987) + (cons (g410 g997 + g1008 + g1009 + g1010 + g1011) + g989) + g988))))) + (g432 g1005 + (g249 g991) + g1006))) + (g984 g1008))) + (g300))) + (g393 g1007 + g1006)))) + (if (memv g998 + '(module-form)) + ((lambda (g1012) + ((lambda (g1013) + ((lambda () + (g440 g996 + g994 + g995 + g1013 + (lambda (g1016 + g1014 + g1015) + (g427 g1012 + (g394 g996 + g994 + g995) + (map (lambda (g1024) + (cons g991 + g1024)) + g1015) + g975 + g1014 + (g401 g1014) + g979 + g977 + (lambda (g1018 + g1017) + ((lambda (g1019) + ((lambda (g1020) + ((lambda (g1021) + ((lambda () + (if g1016 + ((lambda (g1023 + g1022) + (begin (g424 g975 + (g302 g1023) + (g231 'module + g1019)) + (g363 g982 + g1016 + g1023) + (g986 (cdr g990) + (cons g1016 + g987) + (cons (g410 g997 + g1016 + g1023 + g1022 + g1014) + g1020) + g1021))) + (g300) + (g984 g1016)) + ((lambda () + (begin (g439 g1019 + g982) + (g986 (cdr g990) + (cons g1019 + g987) + g1020 + g1021)))))))) + (append + g988 + g1017))) + (append + (if g1016 + g1018 + (g985 g1018 + g1014)) + g989))) + (g408 g1014))))))))) + (g263 (g264 g994) + (cons g1012 + (g265 g994))))) + (g304 '() + '() + '())) + (if (memv g998 + '(import-form)) + (g441 g996 + g994 + g995 + (lambda (g1025) + ((lambda (g1026) + ((lambda (g1027) + ((lambda (g1028) + (if (memv g1028 + '(module)) + ((lambda (g1029) + (begin (if g993 + (g364 g982 + g993) + (void)) + (g439 g1029 + g982) + (g986 (cdr g990) + (cons g1029 + g987) + (g985 g989 + (vector->list + (g404 g1029))) + g988))) + (g233 g1027)) + (if (memv g1028 + '(displaced-lexical)) + (g250 g1025) + (syntax-error + g1025 + '"import from unknown module")))) + (g232 g1027))) + (g253 g1026 + g975))) + (g377 g1025 + '(()))))) + (if (memv g998 + '(begin-form)) + ((lambda (g1030) + ((lambda (g1031) + (if g1031 + (apply + (lambda (g1033 + g1032) + (g986 ((letrec ((g1034 + (lambda (g1035) + (if (null? + g1035) + (cdr g990) + (cons (cons g991 + (g393 (car g1035) + g994)) + (g1034 + (cdr g1035))))))) + g1034) + g1032) + g987 + g989 + g988)) + g1031) + (syntax-error + g1030))) + ($syntax-dispatch + g1030 + '(any . + each-any)))) + g996) + (if (memv g998 + '(local-syntax-form)) + (g445 g993 + g996 + g991 + g994 + g995 + (lambda (g1040 + g1037 + g1039 + g1038) + (g986 ((letrec ((g1041 + (lambda (g1042) + (if (null? + g1042) + (cdr g990) + (cons (cons g1037 + (g393 (car g1042) + g1039)) + (g1041 + (cdr g1042))))))) + g1041) + g1040) + g987 + g989 + g988))) + (g983 g989 + g987 + (append + g988 + (cons (cons g991 + (g394 g996 + g994 + g995)) + (cdr g990))))))))))) + g997)))) + (cdar g990) + (caar g990)))))) + g986) + g981 + '() + '() + '())))) + (g426 + (lambda (g1560 g1559) + (letrec ((g1564 + (lambda (g1597 g1595 g1596) + ((lambda (g1598) + (if g1598 + (if (g367 ((lambda (g1599) + ((lambda (g1600) + (if (g90 g1600) + (annotation-expression + g1600) + g1600)) + (if (g204 g1599) + (g205 g1599) + g1599))) + g1597) + g1598 + (if (symbol? g1597) + (g264 '((top))) + (g264 (g206 g1597)))) + (cons g1597 g1596) + g1596) + (g1562 + (g404 g1595) + (lambda (g1602 g1601) + (if (g1561 g1602 g1597) + (cons g1602 g1601) + g1601)) + g1596))) + (g405 g1595)))) + (g1563 + (lambda (g1575 g1573 g1574) + (if (g403 g1575) + (if (g403 g1573) + (call-with-values + (lambda () + ((lambda (g1581 g1580) + (if (fx> (vector-length g1581) + (vector-length g1580)) + (values g1575 g1580) + (values g1573 g1581))) + (g404 g1575) + (g404 g1573))) + (lambda (g1577 g1576) + (g1562 + g1576 + (lambda (g1579 g1578) + (g1564 g1579 g1577 g1578)) + g1574))) + (g1564 g1573 g1575 g1574)) + (if (g403 g1573) + (g1564 g1575 g1573 g1574) + (if (g1561 g1575 g1573) + (cons g1575 g1574) + g1574))))) + (g1562 + (lambda (g1590 g1588 g1589) + ((lambda (g1591) + ((letrec ((g1592 + (lambda (g1594 g1593) + (if (= g1594 g1591) + g1593 + (g1592 + (+ g1594 '1) + (g1588 + (vector-ref g1590 g1594) + g1593)))))) + g1592) + '0 + g1589)) + (vector-length g1590)))) + (g1561 + (lambda (g1583 g1582) + (if (symbol? g1583) + (if (symbol? g1582) + (eq? g1583 g1582) + (if (eq? g1583 + ((lambda (g1584) + ((lambda (g1585) + (if (g90 g1585) + (annotation-expression + g1585) + g1585)) + (if (g204 g1584) + (g205 g1584) + g1584))) + g1582)) + (g373 (g264 (g206 g1582)) + (g264 '((top)))) + '#f)) + (if (symbol? g1582) + (if (eq? g1582 + ((lambda (g1586) + ((lambda (g1587) + (if (g90 g1587) + (annotation-expression + g1587) + g1587)) + (if (g204 g1586) + (g205 g1586) + g1586))) + g1583)) + (g373 (g264 (g206 g1583)) + (g264 '((top)))) + '#f) + (g388 g1583 g1582)))))) + (if (not (null? g1559)) + ((letrec ((g1565 + (lambda (g1568 g1566 g1567) + (if (null? g1566) + (if (not (null? g1567)) + ((lambda (g1569) + (syntax-error + g1560 + '"duplicate definition for " + (symbol->string (car g1569)) + '" in")) + (syntax-object->datum g1567)) + (void)) + ((letrec ((g1570 + (lambda (g1572 g1571) + (if (null? g1572) + (g1565 + (car g1566) + (cdr g1566) + g1571) + (g1570 + (cdr g1572) + (g1563 + g1568 + (car g1572) + g1571)))))) + g1570) + g1566 + g1567))))) + g1565) + (car g1559) + (cdr g1559) + '()) + (void))))) + (g425 + (lambda (g1057 g1055 g1056) + (letrec ((g1058 + (lambda (g1065 g1064) + (ormap + (lambda (g1066) + (if (g403 g1066) + ((lambda (g1067) + (if g1067 + (g367 ((lambda (g1068) + ((lambda (g1069) + (if (g90 g1069) + (annotation-expression + g1069) + g1069)) + (if (g204 g1068) + (g205 g1068) + g1068))) + g1065) + g1067 + (g264 (g206 g1065))) + ((lambda (g1070) + ((letrec ((g1071 + (lambda (g1072) + (if (fx>= g1072 + '0) + ((lambda (g1073) + (if g1073 + g1073 + (g1071 + (- g1072 + '1)))) + (g388 g1065 + (vector-ref + g1070 + g1072))) + '#f)))) + g1071) + (- (vector-length g1070) + '1))) + (g404 g1066)))) + (g405 g1066)) + (g388 g1065 g1066))) + g1064)))) + ((letrec ((g1059 + (lambda (g1061 g1060) + (if (null? g1061) + (if (not (null? g1060)) + (syntax-error + g1060 + '"missing definition for export(s)") + (void)) + ((lambda (g1063 g1062) + (if (g1058 g1063 g1056) + (g1059 g1062 g1060) + (g1059 g1062 (cons g1063 g1060)))) + (car g1061) + (cdr g1061)))))) + g1059) + g1055 + '())))) + (g424 + (lambda (g1558 g1556 g1557) + (set-cdr! g1558 (g246 g1556 g1557 (cdr g1558))))) + (g423 + (lambda (g1075 g1074) + (if (null? g1075) + '() + (if (g392 (car g1075) g1074) + (g423 (cdr g1075) g1074) + (cons (car g1075) (g423 (cdr g1075) g1074)))))) + (g422 + (lambda (g1491 + g1482 + g1490 + g1483 + g1489 + g1484 + g1488 + g1485 + g1487 + g1486) + ((lambda (g1492) + (g427 g1490 + (g394 g1491 g1483 g1489) + (map (lambda (g1555) (cons g1482 g1555)) g1486) + g1482 + g1487 + g1492 + g1484 + g1488 + (lambda (g1494 g1493) + ((letrec ((g1495 + (lambda (g1500 + g1496 + g1499 + g1497 + g1498) + (if (null? g1500) + ((letrec ((g1501 + (lambda (g1504 + g1502 + g1503) + (if (null? g1504) + ((lambda (g1507 + g1505 + g1506) + (begin (for-each + (lambda (g1523) + (apply + (lambda (g1527 + g1524 + g1526 + g1525) + (if g1524 + (g303 g1524 + g1526) + (void))) + g1523)) + g1498) + (g190 '#f + (list (g431 g1484 + g1488 + (lambda () + (if (null? + g1498) + (g446) + (g190 '#f + (map (lambda (g1518) + (apply + (lambda (g1522 + g1519 + g1521 + g1520) + (list '$sc-put-cte + (list 'quote + g1521) + (if (eq? g1522 + 'define-syntax-form) + g1520 + (list 'quote + (g231 'module + (g409 g1520 + g1521)))))) + g1518)) + g1498))))) + (g431 g1484 + g1488 + (lambda () + ((lambda (g1508) + ((lambda (g1509) + ((lambda (g1510) + ((lambda () + (if g1508 + (list '$sc-put-cte + (list 'quote + (if (g373 (g264 (g206 g1485)) + (g264 '((top)))) + g1508 + ((lambda (g1511) + (g203 g1508 + (g263 g1511 + (list (g304 (vector + g1508) + (vector + g1511) + (vector + (g101 g1508))))))) + (g264 (g206 g1485))))) + g1510) + ((lambda (g1512) + (g190 '#f + (list (list '$sc-put-cte + (list 'quote + g1512) + g1510) + (g430 g1512 + g1509)))) + (g101 'tmp)))))) + (list 'quote + (g231 'module + (g409 g1487 + g1509))))) + (g101 g1508))) + (if g1485 + ((lambda (g1513) + ((lambda (g1514) + (if (g90 g1514) + (annotation-expression + g1514) + g1514)) + (if (g204 g1513) + (g205 g1513) + g1513))) + g1485) + '#f)))) + (g190 '#f + (map (lambda (g1517) + (list 'define + g1517 + (g446))) + g1499)) + (g191 '#f + g1502 + g1505 + (g190 '#f + (list (if (null? + g1499) + (g446) + (g190 '#f + (map (lambda (g1516 + g1515) + (list 'set! + g1516 + g1515)) + g1499 + g1507))) + (if (null? + g1506) + (g446) + (g190 '#f + g1506))))) + (g446))))) + (map (lambda (g1530) + (g432 (cdr g1530) + (car g1530) + '(()))) + g1497) + (map (lambda (g1528) + (g432 (cdr g1528) + (car g1528) + '(()))) + g1503) + (map (lambda (g1529) + (g432 (cdr g1529) + (car g1529) + '(()))) + g1493)) + ((lambda (g1531) + ((lambda (g1532) + (if (memv g1532 + '(define-form)) + ((lambda (g1533) + (begin (g424 g1482 + (g302 (g414 g1531)) + (g231 'lexical + g1533)) + (g1501 + (cdr g1504) + (cons g1533 + g1502) + (cons (g416 g1531) + g1503)))) + (g451 (g413 g1531))) + (if (memv g1532 + '(define-syntax-form + module-form)) + (g1501 + (cdr g1504) + g1502 + g1503) + (error 'sc-expand-internal + '"unexpected module binding type")))) + (g412 g1531))) + (car g1504)))))) + g1501) + g1496 + '() + '()) + ((lambda (g1535 g1534) + (letrec ((g1536 + (lambda (g1551 + g1548 + g1550 + g1549) + ((letrec ((g1552 + (lambda (g1554 + g1553) + (if (null? + g1554) + (g1549) + (if (g388 (g413 (car g1554)) + g1551) + (g1550 + (car g1554) + (g370 (reverse + g1553) + (cdr g1554))) + (g1552 + (cdr g1554) + (cons (car g1554) + g1553))))))) + g1552) + g1548 + '())))) + (g1536 + g1535 + g1496 + (lambda (g1538 g1537) + ((lambda (g1541 + g1539 + g1540) + ((lambda (g1543 + g1542) + ((lambda (g1544) + (if (memv g1544 + '(define-form)) + (begin (g303 g1539 + g1542) + (g1495 + g1543 + g1537 + (cons g1542 + g1499) + (cons (g416 g1538) + g1497) + g1498)) + (if (memv g1544 + '(define-syntax-form)) + (g1495 + g1543 + g1537 + g1499 + g1497 + (cons (list g1541 + g1539 + g1542 + (g416 g1538)) + g1498)) + (if (memv g1544 + '(module-form)) + ((lambda (g1545) + (g1495 + (append + (g401 g1545) + g1543) + g1537 + g1499 + g1497 + (cons (list g1541 + g1539 + g1542 + g1545) + g1498))) + (g416 g1538)) + (error 'sc-expand-internal + '"unexpected module binding type"))))) + g1541)) + (append + g1540 + g1534) + (g101 ((lambda (g1546) + ((lambda (g1547) + (if (g90 g1547) + (annotation-expression + g1547) + g1547)) + (if (g204 g1546) + (g205 g1546) + g1546))) + g1535)))) + (g412 g1538) + (g414 g1538) + (g415 g1538))) + (lambda () + (g1495 + g1534 + g1496 + g1499 + g1497 + g1498))))) + (car g1500) + (cdr g1500)))))) + g1495) + g1492 + g1494 + '() + '() + '())))) + (g401 g1487)))) + (g421 (lambda (g1077 g1076) (vector-set! g1077 '5 g1076))) + (g420 (lambda (g1481 g1480) (vector-set! g1481 '4 g1480))) + (g419 (lambda (g1079 g1078) (vector-set! g1079 '3 g1078))) + (g418 (lambda (g1479 g1478) (vector-set! g1479 '2 g1478))) + (g417 (lambda (g1081 g1080) (vector-set! g1081 '1 g1080))) + (g416 (lambda (g1477) (vector-ref g1477 '5))) + (g415 (lambda (g1082) (vector-ref g1082 '4))) + (g414 (lambda (g1476) (vector-ref g1476 '3))) + (g413 (lambda (g1083) (vector-ref g1083 '2))) + (g412 (lambda (g1475) (vector-ref g1475 '1))) + (g411 + (lambda (g1084) + (if (vector? g1084) + (if (= (vector-length g1084) '6) + (eq? (vector-ref g1084 '0) 'module-binding) + '#f) + '#f))) + (g410 + (lambda (g1474 g1470 g1473 g1471 g1472) + (vector 'module-binding g1474 g1470 g1473 g1471 g1472))) + (g409 + (lambda (g1086 g1085) + (g402 (list->vector + (map (lambda (g1087) + (g369 (if (pair? g1087) (car g1087) g1087))) + g1086)) + g1085))) + (g408 + (lambda (g1468) + (g402 (list->vector + (map (lambda (g1469) + (if (pair? g1469) (car g1469) g1469)) + g1468)) + '#f))) + (g407 (lambda (g1089 g1088) (vector-set! g1089 '2 g1088))) + (g406 (lambda (g1467 g1466) (vector-set! g1467 '1 g1466))) + (g405 (lambda (g1090) (vector-ref g1090 '2))) + (g404 (lambda (g1465) (vector-ref g1465 '1))) + (g403 + (lambda (g1091) + (if (vector? g1091) + (if (= (vector-length g1091) '3) + (eq? (vector-ref g1091 '0) 'interface) + '#f) + '#f))) + (g402 + (lambda (g1464 g1463) (vector 'interface g1464 g1463))) + (g401 + (lambda (g1092) + ((letrec ((g1093 + (lambda (g1095 g1094) + (if (null? g1095) + g1094 + (g1093 + (cdr g1095) + (if (pair? (car g1095)) + (g1093 (car g1095) g1094) + (cons (car g1095) g1094))))))) + g1093) + g1092 + '()))) + (g400 + (lambda (g1390 g1385 g1389 g1386 g1388 g1387) + (call-with-values + (lambda () (g398 g1390 g1385 g1389 '#f g1387)) + (lambda (g1401 g1397 g1400 g1398 g1399) + ((lambda (g1402) + (if (memv g1402 '(begin-form)) + ((lambda (g1403) + ((lambda (g1404) + (if g1404 + (apply (lambda (g1405) (g446)) g1404) + ((lambda (g1406) + (if g1406 + (apply + (lambda (g1409 g1407 g1408) + (g396 (cons g1407 g1408) + g1385 + g1398 + g1399 + g1386 + g1388 + g1387)) + g1406) + (syntax-error g1403))) + ($syntax-dispatch + g1403 + '(any any . each-any))))) + ($syntax-dispatch g1403 '(any)))) + g1400) + (if (memv g1402 '(local-syntax-form)) + (g445 g1397 + g1400 + g1385 + g1398 + g1399 + (lambda (g1414 g1411 g1413 g1412) + (g396 g1414 + g1411 + g1413 + g1412 + g1386 + g1388 + g1387))) + (if (memv g1402 '(eval-when-form)) + ((lambda (g1415) + ((lambda (g1416) + (if g1416 + (apply + (lambda (g1420 + g1417 + g1419 + g1418) + ((lambda (g1422 g1421) + (if (eq? g1386 'e) + (if (memq 'eval + g1422) + (g396 g1421 + g1385 + g1398 + g1399 + 'e + '(eval) + g1387) + (g446)) + (if (memq 'load + g1422) + (if ((lambda (g1423) + (if g1423 + g1423 + (if (eq? g1386 + 'c&e) + (memq 'eval + g1422) + '#f))) + (memq 'compile + g1422)) + (g396 g1421 + g1385 + g1398 + g1399 + 'c&e + '(compile + load) + g1387) + (if (memq g1386 + '(c c&e)) + (g396 g1421 + g1385 + g1398 + g1399 + 'c + '(load) + g1387) + (g446))) + (if ((lambda (g1424) + (if g1424 + g1424 + (if (eq? g1386 + 'c&e) + (memq 'eval + g1422) + '#f))) + (memq 'compile + g1422)) + (begin (g91 (g396 g1421 + g1385 + g1398 + g1399 + 'e + '(eval) + g1387)) + (g446)) + (g446))))) + (g397 g1400 g1417 g1398) + (cons g1419 g1418))) + g1416) + (syntax-error g1415))) + ($syntax-dispatch + g1415 + '(any each-any any . each-any)))) + g1400) + (if (memv g1402 '(define-syntax-form)) + (g443 g1400 + g1398 + g1399 + (lambda (g1429 g1427 g1428) + ((lambda (g1430) + (begin ((lambda (g1435) + ((lambda (g1436) + ((lambda (g1437) + (if (memv g1437 + '(displaced-lexical)) + (g250 g1430) + (void))) + (g232 g1436))) + (g253 g1435 + g1385))) + (g377 g1430 + '(()))) + (g431 g1386 + g1388 + (lambda () + (list '$sc-put-cte + (list 'quote + ((lambda (g1431) + (if (g373 (g264 (g206 g1430)) + (g264 '((top)))) + g1431 + ((lambda (g1432) + (g203 g1431 + (g263 g1432 + (list (g304 (vector + g1431) + (vector + g1432) + (vector + (g101 g1431))))))) + (g264 (g206 g1430))))) + ((lambda (g1433) + ((lambda (g1434) + (if (g90 g1434) + (annotation-expression + g1434) + g1434)) + (if (g204 g1433) + (g205 g1433) + g1433))) + g1430))) + (g432 g1427 + (g249 g1385) + g1428)))))) + (g393 g1429 g1428)))) + (if (memv g1402 '(define-form)) + (g442 g1400 + g1398 + g1399 + (lambda (g1440 g1438 g1439) + ((lambda (g1441) + (begin ((lambda (g1448) + ((lambda (g1449) + ((lambda (g1450) + (if (memv g1450 + '(displaced-lexical)) + (g250 g1441) + (void))) + (g232 g1449))) + (g253 g1448 + g1385))) + (g377 g1441 + '(()))) + ((lambda (g1442) + ((lambda (g1443) + (g190 '#f + (list (g431 g1386 + g1388 + (lambda () + (list '$sc-put-cte + (list 'quote + (if (eq? g1442 + g1443) + g1442 + ((lambda (g1445) + (g203 g1442 + (g263 g1445 + (list (g304 (vector + g1442) + (vector + g1445) + (vector + g1443)))))) + (g264 (g206 g1441))))) + (list 'quote + (g231 'global + g1443))))) + ((lambda (g1444) + (begin (if (eq? g1386 + 'c&e) + (g91 g1444) + (void)) + g1444)) + (list 'define + g1443 + (g432 g1438 + g1385 + g1439)))))) + (if (g373 (g264 (g206 g1441)) + (g264 '((top)))) + g1442 + (g101 g1442)))) + ((lambda (g1446) + ((lambda (g1447) + (if (g90 g1447) + (annotation-expression + g1447) + g1447)) + (if (g204 g1446) + (g205 g1446) + g1446))) + g1441)))) + (g393 g1440 g1439)))) + (if (memv g1402 '(module-form)) + ((lambda (g1452 g1451) + (g440 g1400 + g1398 + g1399 + (g263 (g264 g1398) + (cons g1451 + (g265 g1398))) + (lambda (g1455 + g1453 + g1454) + (if g1455 + (begin ((lambda (g1456) + ((lambda (g1457) + ((lambda (g1458) + (if (memv g1458 + '(displaced-lexical)) + (g250 (g393 g1455 + g1398)) + (void))) + (g232 g1457))) + (g253 g1456 + g1452))) + (g377 g1455 + '(()))) + (g422 g1400 + g1452 + g1451 + g1398 + g1399 + g1386 + g1388 + g1455 + g1453 + g1454)) + (g422 g1400 + g1452 + g1451 + g1398 + g1399 + g1386 + g1388 + '#f + g1453 + g1454))))) + (cons '("top-level module placeholder" + placeholder) + g1385) + (g304 '() '() '())) + (if (memv g1402 + '(import-form)) + (g441 g1400 + g1398 + g1399 + (lambda (g1459) + (g431 g1386 + g1388 + (lambda () + (begin (if g1397 + (syntax-error + (g394 g1400 + g1398 + g1399) + '"not valid at top-level") + (void)) + ((lambda (g1460) + ((lambda (g1461) + (if (memv g1461 + '(module)) + (g430 g1459 + (g405 (g233 g1460))) + (if (memv g1461 + '(displaced-lexical)) + (g250 g1459) + (syntax-error + g1459 + '"import from unknown module")))) + (g232 g1460))) + (g253 (g377 g1459 + '(())) + '()))))))) + ((lambda (g1462) + (begin (if (eq? g1386 + 'c&e) + (g91 g1462) + (void)) + g1462)) + (g433 g1401 + g1397 + g1400 + g1385 + g1398 + g1399)))))))))) + g1401))))) + (g399 + (lambda (g1099 g1096 g1098 g1097) + (call-with-values + (lambda () (g398 g1099 g1096 g1098 '#f g1097)) + (lambda (g1104 g1100 g1103 g1101 g1102) + (g433 g1104 g1100 g1103 g1096 g1101 g1102))))) + (g398 + (lambda (g1370 g1366 g1369 g1367 g1368) + (if (symbol? g1370) + ((lambda (g1371) + ((lambda (g1372) + ((lambda (g1373) + ((lambda () + ((lambda (g1374) + (if (memv g1374 '(lexical)) + (values + g1373 + (g233 g1372) + g1370 + g1369 + g1367) + (if (memv g1374 '(global)) + (values + g1373 + (g233 g1372) + g1370 + g1369 + g1367) + (if (memv g1374 '(macro macro!)) + (g398 (g436 (g233 g1372) + g1370 + g1366 + g1369 + g1367 + g1368) + g1366 + '(()) + '#f + g1368) + (values + g1373 + (g233 g1372) + g1370 + g1369 + g1367))))) + g1373)))) + (g232 g1372))) + (g253 g1371 g1366))) + (g377 g1370 g1369)) + (if (pair? g1370) + ((lambda (g1375) + (if (g256 g1375) + ((lambda (g1376) + ((lambda (g1377) + ((lambda (g1378) + ((lambda () + ((lambda (g1379) + (if (memv g1379 '(lexical)) + (values + 'lexical-call + (g233 g1377) + g1370 + g1369 + g1367) + (if (memv g1379 + '(macro macro!)) + (g398 (g436 (g233 g1377) + g1370 + g1366 + g1369 + g1367 + g1368) + g1366 + '(()) + '#f + g1368) + (if (memv g1379 + '(core)) + (values + g1378 + (g233 g1377) + g1370 + g1369 + g1367) + (if (memv g1379 + '(local-syntax)) + (values + 'local-syntax-form + (g233 g1377) + g1370 + g1369 + g1367) + (if (memv g1379 + '(begin)) + (values + 'begin-form + '#f + g1370 + g1369 + g1367) + (if (memv g1379 + '(eval-when)) + (values + 'eval-when-form + '#f + g1370 + g1369 + g1367) + (if (memv g1379 + '(define)) + (values + 'define-form + '#f + g1370 + g1369 + g1367) + (if (memv g1379 + '(define-syntax)) + (values + 'define-syntax-form + '#f + g1370 + g1369 + g1367) + (if (memv g1379 + '(module-key)) + (values + 'module-form + '#f + g1370 + g1369 + g1367) + (if (memv g1379 + '(import)) + (values + 'import-form + (if (g233 g1377) + (g393 g1375 + g1369) + '#f) + g1370 + g1369 + g1367) + (if (memv g1379 + '(set!)) + (g435 g1370 + g1366 + g1369 + g1367 + g1368) + (values + 'call + '#f + g1370 + g1369 + g1367))))))))))))) + g1378)))) + (g232 g1377))) + (g253 g1376 g1366))) + (g377 g1375 g1369)) + (values 'call '#f g1370 g1369 g1367))) + (car g1370)) + (if (g204 g1370) + (g398 (g205 g1370) + g1366 + (g371 g1369 (g206 g1370)) + '#f + g1368) + (if (g90 g1370) + (g398 (annotation-expression g1370) + g1366 + g1369 + (annotation-source g1370) + g1368) + (if ((lambda (g1380) + ((lambda (g1381) + (if g1381 + g1381 + ((lambda (g1382) + (if g1382 + g1382 + ((lambda (g1383) + (if g1383 + g1383 + ((lambda (g1384) + (if g1384 + g1384 + (null? + g1380))) + (char? + g1380)))) + (string? g1380)))) + (number? g1380)))) + (boolean? g1380))) + g1370) + (values 'constant '#f g1370 g1369 g1367) + (values + 'other + '#f + g1370 + g1369 + g1367)))))))) + (g397 + (lambda (g1107 g1105 g1106) + ((letrec ((g1108 + (lambda (g1110 g1109) + (if (null? g1110) + g1109 + (g1108 + (cdr g1110) + (cons ((lambda (g1111) + (if (g378 g1111 + '#(syntax-object + compile + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(when-list + situations) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e when-list w) + #((top) + (top) + (top)) + #("i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + 'compile + (if (g378 g1111 + '#(syntax-object + load + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(when-list + situations) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + 'load + (if (g378 g1111 + '#(syntax-object + eval + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(when-list + situations) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + ct-eval/residualize + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + extend-store! + id-set-diff + chi-top-module + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-trimmed-interface + set-interface-token! + set-interface-exports! + interface-token + interface-exports + interface? + make-interface + flatten-exports + chi-top + chi-top-expr + syntax-type + chi-when-list + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + same-marks? + join-marks + join-wraps + smart-append + make-trimmed-syntax-object + make-binding-wrap + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + extend-ribcage! + make-empty-ribcage + import-token-key + import-token? + make-import-token + barrier-marker + new-mark + anti-mark + the-anti-mark + only-top-marked? + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + gen-labels + label? + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + sanitize-binding + lookup* + displaced-lexical-error + transformer-env + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + unannotate + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + self-evaluating? + build-lexical-var + build-letrec + build-sequence + build-data + build-primref + build-lambda + build-cte-install + build-module-definition + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + get-import-binding + get-global-definition-hook + put-global-definition-hook + gensym-hook + error-hook + local-eval-hook + top-level-eval-hook + annotation? + fx< + fx= + fx- + fx+ + noexpand + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + 'eval + (syntax-error + (g393 g1111 g1106) + '"invalid eval-when situation"))))) + (car g1110)) + g1109)))))) + g1108) + g1105 + '()))) + (g396 + (lambda (g1358 g1352 g1357 g1353 g1356 g1354 g1355) + (g190 g1353 + ((letrec ((g1359 + (lambda (g1364 g1360 g1363 g1361 g1362) + (if (null? g1364) + '() + ((lambda (g1365) + (cons g1365 + (g1359 + (cdr g1364) + g1360 + g1363 + g1361 + g1362))) + (g400 (car g1364) + g1360 + g1363 + g1361 + g1362 + g1355)))))) + g1359) + g1358 + g1352 + g1357 + g1356 + g1354)))) + (g395 + (lambda (g1115 g1112 g1114 g1113) + (g190 g1113 + ((letrec ((g1116 + (lambda (g1119 g1117 g1118) + (if (null? g1119) + '() + ((lambda (g1120) + (cons g1120 + (g1116 + (cdr g1119) + g1117 + g1118))) + (g432 (car g1119) g1117 g1118)))))) + g1116) + g1115 + g1112 + g1114)))) + (g394 + (lambda (g1351 g1349 g1350) + (g393 (if g1350 (make-annotation g1351 g1350 '#f) g1351) + g1349))) + (g393 + (lambda (g1122 g1121) + (if (if (null? (g264 g1121)) (null? (g265 g1121)) '#f) + g1122 + (if (g204 g1122) + (g203 (g205 g1122) (g371 g1121 (g206 g1122))) + (if (null? g1122) g1122 (g203 g1122 g1121)))))) + (g392 + (lambda (g1347 g1346) + (if (not (null? g1346)) + ((lambda (g1348) + (if g1348 g1348 (g392 g1347 (cdr g1346)))) + (g388 g1347 (car g1346))) + '#f))) + (g391 + (lambda (g1125 g1123 g1124) + ((letrec ((g1126 + (lambda (g1128 g1127) + (if (null? g1128) + (syntax-error g1123) + (if (g256 (car g1128)) + (if (g392 (car g1128) g1127) + (syntax-error + (car g1128) + '"duplicate " + g1124) + (g1126 + (cdr g1128) + (cons (car g1128) g1127))) + (syntax-error + (car g1128) + '"invalid " + g1124)))))) + g1126) + g1125 + '()))) + (g390 + (lambda (g1342) + ((letrec ((g1343 + (lambda (g1344) + ((lambda (g1345) + (if g1345 + g1345 + (if (not (g392 (car g1344) (cdr g1344))) + (g1343 (cdr g1344)) + '#f))) + (null? g1344))))) + g1343) + g1342))) + (g389 + (lambda (g1129) + (if ((letrec ((g1130 + (lambda (g1131) + ((lambda (g1132) + (if g1132 + g1132 + (if (g256 (car g1131)) + (g1130 (cdr g1131)) + '#f))) + (null? g1131))))) + g1130) + g1129) + (g390 g1129) + '#f))) + (g388 + (lambda (g1337 g1336) + (if (if (g204 g1337) (g204 g1336) '#f) + (if (eq? ((lambda (g1339) + (if (g90 g1339) + (annotation-expression g1339) + g1339)) + (g205 g1337)) + ((lambda (g1338) + (if (g90 g1338) + (annotation-expression g1338) + g1338)) + (g205 g1336))) + (g373 (g264 (g206 g1337)) (g264 (g206 g1336))) + '#f) + (eq? ((lambda (g1341) + (if (g90 g1341) + (annotation-expression g1341) + g1341)) + g1337) + ((lambda (g1340) + (if (g90 g1340) + (annotation-expression g1340) + g1340)) + g1336))))) + (g378 + (lambda (g1134 g1133) + (if (eq? ((lambda (g1137) + ((lambda (g1138) + (if (g90 g1138) + (annotation-expression g1138) + g1138)) + (if (g204 g1137) (g205 g1137) g1137))) + g1134) + ((lambda (g1135) + ((lambda (g1136) + (if (g90 g1136) + (annotation-expression g1136) + g1136)) + (if (g204 g1135) (g205 g1135) g1135))) + g1133)) + (eq? (g377 g1134 '(())) (g377 g1133 '(()))) + '#f))) + (g377 + (lambda (g1333 g1332) + (call-with-values + (lambda () (g374 g1333 g1332)) + (lambda (g1335 g1334) + (if (g301 g1335) (g302 g1335) g1335))))) + (g376 + (lambda (g1140 g1139) + (call-with-values + (lambda () (g374 g1140 g1139)) + (lambda (g1142 g1141) g1142)))) + (g375 + (lambda (g1329 g1328) + (call-with-values + (lambda () (g374 g1329 g1328)) + (lambda (g1331 g1330) + (values (if (g301 g1331) (g302 g1331) g1331) g1330))))) + (g374 + (lambda (g1144 g1143) + (letrec ((g1147 + (lambda (g1174 g1170 g1173 g1171 g1172) + ((lambda (g1175) + ((letrec ((g1176 + (lambda (g1177) + (if (= g1177 g1175) + (g1145 + g1174 + (cdr g1170) + g1173) + (if (if (eq? (vector-ref + g1171 + g1177) + g1174) + (g373 g1173 + (vector-ref + (g307 g1172) + g1177)) + '#f) + (values + (vector-ref + (g308 g1172) + g1177) + g1173) + (g1176 (+ g1177 '1))))))) + g1176) + '0)) + (vector-length g1171)))) + (g1146 + (lambda (g1159 g1155 g1158 g1156 g1157) + ((letrec ((g1160 + (lambda (g1162 g1161) + (if (null? g1162) + (g1145 g1159 (cdr g1155) g1158) + (if (if (eq? (car g1162) g1159) + (g373 g1158 + (list-ref + (g307 g1157) + g1161)) + '#f) + (values + (list-ref + (g308 g1157) + g1161) + g1158) + (if (g357 (car g1162)) + ((lambda (g1163) + (if g1163 + ((lambda (g1164) + (if (symbol? + g1164) + (values + g1164 + g1158) + (g375 g1164 + '(())))) + g1163) + (g1160 + (cdr g1162) + g1161))) + (g367 g1159 + (g358 (car g1162)) + g1158)) + (if (if (eq? (car g1162) + g354) + (g373 g1158 + (list-ref + (g307 g1157) + g1161)) + '#f) + (values '#f g1158) + (g1160 + (cdr g1162) + (+ g1161 + '1))))))))) + g1160) + g1156 + '0))) + (g1145 + (lambda (g1167 g1165 g1166) + (if (null? g1165) + (values g1167 g1166) + ((lambda (g1168) + (if (eq? g1168 'shift) + (g1145 g1167 (cdr g1165) (cdr g1166)) + ((lambda (g1169) + (if (vector? g1169) + (g1147 + g1167 + g1165 + g1166 + g1169 + g1168) + (g1146 + g1167 + g1165 + g1166 + g1169 + g1168))) + (g306 g1168)))) + (car g1165)))))) + (if (symbol? g1144) + (g1145 g1144 (g265 g1143) (g264 g1143)) + (if (g204 g1144) + ((lambda (g1149 g1148) + ((lambda (g1150) + (call-with-values + (lambda () + (g1145 g1149 (g265 g1143) g1150)) + (lambda (g1152 g1151) + (if (eq? g1152 g1149) + (g1145 g1149 (g265 g1148) g1151) + (values g1152 g1151))))) + (g372 (g264 g1143) (g264 g1148)))) + ((lambda (g1153) + (if (g90 g1153) + (annotation-expression g1153) + g1153)) + (g205 g1144)) + (g206 g1144)) + (if (g90 g1144) + (g1145 + ((lambda (g1154) + (if (g90 g1154) + (annotation-expression g1154) + g1154)) + g1144) + (g265 g1143) + (g264 g1143)) + (g93 'id-var-name '"invalid id" g1144))))))) + (g373 + (lambda (g1326 g1325) + ((lambda (g1327) + (if g1327 + g1327 + (if (not (null? g1326)) + (if (not (null? g1325)) + (if (eq? (car g1326) (car g1325)) + (g373 (cdr g1326) (cdr g1325)) + '#f) + '#f) + '#f))) + (eq? g1326 g1325)))) + (g372 (lambda (g1179 g1178) (g370 g1179 g1178))) + (g371 + (lambda (g1322 g1321) + ((lambda (g1324 g1323) + (if (null? g1324) + (if (null? g1323) + g1321 + (g263 (g264 g1321) (g370 g1323 (g265 g1321)))) + (g263 (g370 g1324 (g264 g1321)) + (g370 g1323 (g265 g1321))))) + (g264 g1322) + (g265 g1322)))) + (g370 + (lambda (g1181 g1180) + (if (null? g1180) g1181 (append g1181 g1180)))) + (g369 + (lambda (g1315) + (call-with-values + (lambda () (g375 g1315 '(()))) + (lambda (g1317 g1316) + (begin (if (not g1317) + (syntax-error + g1315 + '"identifier not visible for export") + (void)) + ((lambda (g1318) + (g203 g1318 + (g263 g1316 + (list (g304 (vector g1318) + (vector g1316) + (vector g1317)))))) + ((lambda (g1319) + ((lambda (g1320) + (if (g90 g1320) + (annotation-expression g1320) + g1320)) + (if (g204 g1319) (g205 g1319) g1319))) + g1315))))))) + (g368 + (lambda (g1184 g1182 g1183) + (if (null? g1184) + g1183 + (g263 (g264 g1183) + (cons ((lambda (g1185) + ((lambda (g1186) + ((lambda (g1188 g1187) + (begin ((letrec ((g1189 + (lambda (g1191 + g1190) + (if (not (null? + g1191)) + (call-with-values + (lambda () + (g262 (car g1191) + g1183)) + (lambda (g1193 + g1192) + (begin (vector-set! + g1188 + g1190 + g1193) + (vector-set! + g1187 + g1190 + g1192) + (g1189 + (cdr g1191) + (+ g1190 + '1))))) + (void))))) + g1189) + g1184 + '0) + (g304 g1188 g1187 g1185))) + (make-vector g1186) + (make-vector g1186))) + (vector-length g1185))) + (list->vector g1182)) + (g265 g1183)))))) + (g367 + (lambda (g1310 g1308 g1309) + ((lambda (g1311) + (if g1311 + ((letrec ((g1312 + (lambda (g1313) + (if (pair? g1313) + ((lambda (g1314) + (if g1314 + g1314 + (g1312 (cdr g1313)))) + (g1312 (car g1313))) + (if (g373 g1309 (g264 (g206 g1313))) + g1313 + '#f))))) + g1312) + g1311) + '#f)) + (g100 g1310 g1308)))) + (g366 + (lambda (g1195 g1194) + (g309 g1195 (cons (g356 g1194) (g306 g1195))))) + (g365 + (lambda (g1307 g1306) + (begin (g309 g1307 (cons g354 (g306 g1307))) + (g310 g1307 (cons (g264 g1306) (g307 g1307)))))) + (g364 (lambda (g1197 g1196) (g365 g1197 (g206 g1196)))) + (g363 + (lambda (g1304 g1302 g1303) + (begin (g309 g1304 + (cons ((lambda (g1305) + (if (g90 g1305) + (annotation-expression g1305) + g1305)) + (g205 g1302)) + (g306 g1304))) + (g310 g1304 (cons (g264 (g206 g1302)) (g307 g1304))) + (g311 g1304 (cons g1303 (g308 g1304)))))) + (g358 cdr) + (g357 + (lambda (g1301) + (if (pair? g1301) (eq? (car g1301) g355) '#f))) + (g356 (lambda (g1198) (cons g355 g1198))) + (g355 'import-token) + (g354 '#f) + (g349 + (lambda (g1300) + (g263 (cons '#f (g264 g1300)) (cons 'shift (g265 g1300))))) + (g311 (lambda (g1200 g1199) (vector-set! g1200 '3 g1199))) + (g310 (lambda (g1299 g1298) (vector-set! g1299 '2 g1298))) + (g309 (lambda (g1202 g1201) (vector-set! g1202 '1 g1201))) + (g308 (lambda (g1297) (vector-ref g1297 '3))) + (g307 (lambda (g1203) (vector-ref g1203 '2))) + (g306 (lambda (g1296) (vector-ref g1296 '1))) + (g305 + (lambda (g1204) + (if (vector? g1204) + (if (= (vector-length g1204) '4) + (eq? (vector-ref g1204 '0) 'ribcage) + '#f) + '#f))) + (g304 + (lambda (g1295 g1293 g1294) + (vector 'ribcage g1295 g1293 g1294))) + (g303 set-car!) + (g302 car) + (g301 pair?) + (g300 (lambda () (list (g297)))) + (g299 + (lambda (g1205) + (if (null? g1205) '() (cons (g297) (g299 (cdr g1205)))))) + (g298 + (lambda (g1290) + ((lambda (g1291) + (if g1291 + g1291 + ((lambda (g1292) (if g1292 g1292 (g301 g1290))) + (symbol? g1290)))) + (string? g1290)))) + (g297 (lambda () (string '#\i))) + (g265 cdr) + (g264 car) + (g263 cons) + (g262 + (lambda (g1207 g1206) + (if (g204 g1207) + (values + ((lambda (g1208) + (if (g90 g1208) + (annotation-expression g1208) + g1208)) + (g205 g1207)) + (g372 (g264 g1206) (g264 (g206 g1207)))) + (values + ((lambda (g1209) + (if (g90 g1209) + (annotation-expression g1209) + g1209)) + g1207) + (g264 g1206))))) + (g256 + (lambda (g1288) + (if (symbol? g1288) + '#t + (if (g204 g1288) + (symbol? + ((lambda (g1289) + (if (g90 g1289) + (annotation-expression g1289) + g1289)) + (g205 g1288))) + (if (g90 g1288) + (symbol? (annotation-expression g1288)) + '#f))))) + (g255 + (lambda (g1210) + (if (g204 g1210) + (symbol? + ((lambda (g1211) + (if (g90 g1211) + (annotation-expression g1211) + g1211)) + (g205 g1210))) + '#f))) + (g254 + (lambda (g1287 g1285 g1286) (g98 g1285 (g231 g1287 g1286)))) + (g253 + (lambda (g1213 g1212) + (letrec ((g1214 + (lambda (g1221 g1220) + (begin (g234 g1221 (g232 g1220)) + (g235 g1221 (g233 g1220)))))) + ((lambda (g1215) + ((lambda (g1216) + (if (memv g1216 '(deferred)) + (begin (g1214 + g1215 + ((lambda (g1217) + ((lambda (g1218) + (if g1218 + g1218 + (syntax-error + g1217 + '"invalid transformer"))) + (g252 g1217))) + (g92 (g233 g1215)))) + ((lambda (g1219) g1215) (g232 g1215))) + g1215)) + (g232 g1215))) + (g251 g1213 g1212))))) + (g252 + (lambda (g1283) + (if (procedure? g1283) + (g231 'macro g1283) + (if (g236 g1283) + ((lambda (g1284) + (if (memv g1284 '(core macro macro!)) + (if (procedure? (g233 g1283)) g1283 '#f) + (if (memv g1284 '(module)) + (if (g403 (g233 g1283)) g1283 '#f) + g1283))) + (g232 g1283)) + '#f)))) + (g251 + (lambda (g1223 g1222) + ((lambda (g1224) + (if g1224 + (cdr g1224) + (if (symbol? g1223) + ((lambda (g1225) + (if g1225 g1225 (g231 'global g1223))) + (g99 g1223)) + (g231 'displaced-lexical '#f)))) + (assq g1223 g1222)))) + (g250 + (lambda (g1282) + (syntax-error + g1282 + (if (g377 g1282 '(())) + '"identifier out of context" + '"identifier not visible")))) + (g249 + (lambda (g1226) + (if (null? g1226) + '() + ((lambda (g1227) + (if (eq? (cadr g1227) 'lexical) + (g249 (cdr g1226)) + (cons g1227 (g249 (cdr g1226))))) + (car g1226))))) + (g248 + (lambda (g1281 g1279 g1280) + (if (null? g1281) + g1280 + (g248 (cdr g1281) + (cdr g1279) + (g246 (car g1281) + (g231 'lexical (car g1279)) + g1280))))) + (g247 + (lambda (g1230 g1228 g1229) + (if (null? g1230) + g1229 + (g247 (cdr g1230) + (cdr g1228) + (g246 (car g1230) (car g1228) g1229))))) + (g246 + (lambda (g1278 g1276 g1277) + (cons (cons g1278 g1276) g1277))) + (g236 + (lambda (g1231) + (if (pair? g1231) (symbol? (car g1231)) '#f))) + (g235 set-cdr!) + (g234 set-car!) + (g233 cdr) + (g232 car) + (g231 (lambda (g1275 g1274) (cons g1275 g1274))) + (g223 + (lambda (g1232) + (if (g90 g1232) + (annotation-source g1232) + (if (g204 g1232) (g223 (g205 g1232)) '#f)))) + (g208 (lambda (g1273 g1272) (vector-set! g1273 '2 g1272))) + (g207 (lambda (g1234 g1233) (vector-set! g1234 '1 g1233))) + (g206 (lambda (g1271) (vector-ref g1271 '2))) + (g205 (lambda (g1235) (vector-ref g1235 '1))) + (g204 + (lambda (g1270) + (if (vector? g1270) + (if (= (vector-length g1270) '3) + (eq? (vector-ref g1270 '0) 'syntax-object) + '#f) + '#f))) + (g203 + (lambda (g1237 g1236) (vector 'syntax-object g1237 g1236))) + (g191 + (lambda (g1269 g1266 g1268 g1267) + (if (null? g1266) + g1267 + (list 'letrec (map list g1266 g1268) g1267)))) + (g190 + (lambda (g1239 g1238) + (if (null? (cdr g1238)) (car g1238) (cons 'begin g1238)))) + (g101 + ((lambda (g1251) + (letrec ((g1254 + (lambda (g1260) + ((letrec ((g1261 + (lambda (g1263 g1262) + (if (< g1263 g1251) + (list->string + (cons (g1253 g1263) g1262)) + ((lambda (g1265 g1264) + (g1261 + g1264 + (cons (g1253 g1265) + g1262))) + (modulo g1263 g1251) + (quotient g1263 g1251)))))) + g1261) + g1260 + '()))) + (g1253 + (lambda (g1259) (integer->char (+ g1259 '33)))) + (g1252 (lambda () '0))) + ((lambda (g1256 g1255) + (lambda (g1257) + (begin (set! g1255 (+ g1255 '1)) + ((lambda (g1258) g1258) + (string->symbol + (string-append + '"#" + g1256 + (g1254 g1255))))))) + (g1254 (g1252)) + '-1))) + (- '127 '32 '2))) + (g100 (lambda (g1241 g1240) (getprop g1241 g1240))) + (g99 (lambda (g1250) (getprop g1250 '*sc-expander*))) + (g98 (lambda (g1243 g1242) ($sc-put-cte g1243 g1242))) + (g93 + (lambda (g1249 g1247 g1248) + (error g1249 '"~a ~s" g1247 g1248))) + (g92 (lambda (g1244) (eval (list g53 g1244)))) + (g91 (lambda (g1246) (eval (list g53 g1246)))) + (g90 (lambda (g1245) '#f)) + (g53 '"noexpand")) + (begin (set! $sc-put-cte + (lambda (g802 g801) + (letrec ((g805 + (lambda (g831 g830) + ((lambda (g832) + (putprop g832 '*sc-expander* g830)) + (if (symbol? g831) g831 (g377 g831 '(())))))) + (g804 + (lambda (g815 g814) + (g429 (lambda (g816) (g803 g816 g814)) g815))) + (g803 + (lambda (g818 g817) + (letrec ((g820 + (lambda (g828 g827) + (if (pair? g827) + (if (g388 (car g827) g828) + (g820 g828 (cdr g827)) + (g819 (car g827) + (g820 g828 + (cdr g827)))) + (if ((lambda (g829) + (if g829 + g829 + (g388 g827 g828))) + (not g827)) + '#f + g827)))) + (g819 + (lambda (g826 g825) + (if (not g825) + g826 + (cons g826 g825))))) + ((lambda (g821) + ((lambda (g822) + (if (if (not g822) (symbol? g818) '#f) + (remprop g821 g817) + (putprop + g821 + g817 + (g819 g818 g822)))) + (g820 g818 (getprop g821 g817)))) + ((lambda (g823) + ((lambda (g824) + (if (g90 g824) + (annotation-expression g824) + g824)) + (if (g204 g823) (g205 g823) g823))) + g818)))))) + ((lambda (g806) + ((lambda (g807) + (if (memv g807 '(module)) + (begin ((lambda (g808) + (g804 (g404 g808) (g405 g808))) + (g233 g806)) + (g805 g802 g806)) + (if (memv g807 '(do-import)) + ((lambda (g809) + ((lambda (g810) + ((lambda (g811) + (if (memv g811 '(module)) + ((lambda (g812) + (begin (if (not (eq? (g405 g812) + g809)) + (syntax-error + g802 + '"import mismatch for module") + (void)) + (g804 (g404 g812) + '*top*))) + (g233 g810)) + (syntax-error + g802 + '"import from unknown module"))) + (g232 g810))) + (g253 (g377 g802 '(())) '()))) + (g233 g801)) + (g805 g802 g806)))) + (g232 g806))) + ((lambda (g813) + (if g813 + g813 + (error 'define-syntax + '"invalid transformer ~s" + g801))) + (g252 g801)))))) + (g254 'local-syntax 'letrec-syntax '#t) + (g254 'local-syntax 'let-syntax '#f) + (g254 'core + 'fluid-let-syntax + (lambda (g456 g453 g455 g454) + ((lambda (g457) + ((lambda (g458) + (if (if g458 + (apply + (lambda (g463 g459 g462 g460 g461) + (g389 g459)) + g458) + '#f) + (apply + (lambda (g469 g465 g468 g466 g467) + ((lambda (g470) + (begin (for-each + (lambda (g477 g476) + ((lambda (g478) + (if (memv g478 + '(displaced-lexical)) + (g250 (g393 g477 + g455)) + (void))) + (g232 (g253 g476 g453)))) + g465 + g470) + (g437 (cons g466 g467) + (g394 g456 g455 g454) + (g247 g470 + ((lambda (g471) + (map (lambda (g473) + (g231 'deferred + (g432 g473 + g471 + g455))) + g468)) + (g249 g453)) + g453) + g455))) + (map (lambda (g480) (g377 g480 g455)) + g465))) + g458) + ((lambda (g481) + (syntax-error (g394 g456 g455 g454))) + g457))) + ($syntax-dispatch + g457 + '(any #(each (any any)) any . each-any)))) + g456))) + (g254 'core + 'quote + (lambda (g795 g792 g794 g793) + ((lambda (g796) + ((lambda (g797) + (if g797 + (apply + (lambda (g799 g798) + (list 'quote (g450 g798 g794))) + g797) + ((lambda (g800) + (syntax-error (g394 g795 g794 g793))) + g796))) + ($syntax-dispatch g796 '(any any)))) + g795))) + (g254 'core + 'syntax + ((lambda () + (letrec ((g489 + (lambda (g584) + ((lambda (g585) + (if (memv g585 '(ref)) + (cadr g584) + (if (memv g585 '(primitive)) + (cadr g584) + (if (memv g585 '(quote)) + (list 'quote (cadr g584)) + (if (memv g585 '(lambda)) + (list 'lambda + (cadr g584) + (g489 (caddr + g584))) + (if (memv g585 '(map)) + ((lambda (g586) + (cons (if (= (length + g586) + '2) + 'map + 'map) + g586)) + (map g489 + (cdr g584))) + (cons (car g584) + (map g489 + (cdr g584))))))))) + (car g584)))) + (g488 + (lambda (g502) + (if (eq? (car g502) 'list) + (cons 'vector (cdr g502)) + (if (eq? (car g502) 'quote) + (list 'quote + (list->vector (cadr g502))) + (list 'list->vector g502))))) + (g487 + (lambda (g583 g582) + (if (equal? g582 ''()) + g583 + (list 'append g583 g582)))) + (g486 + (lambda (g504 g503) + ((lambda (g505) + (if (memv g505 '(quote)) + (if (eq? (car g504) 'quote) + (list 'quote + (cons (cadr g504) + (cadr g503))) + (if (eq? (cadr g503) '()) + (list 'list g504) + (list 'cons g504 g503))) + (if (memv g505 '(list)) + (cons 'list + (cons g504 (cdr g503))) + (list 'cons g504 g503)))) + (car g503)))) + (g485 + (lambda (g575 g574) + ((lambda (g577 g576) + (if (eq? (car g575) 'ref) + (car g576) + (if (andmap + (lambda (g578) + (if (eq? (car g578) 'ref) + (memq (cadr g578) g577) + '#f)) + (cdr g575)) + (cons 'map + (cons (list 'primitive + (car g575)) + (map ((lambda (g579) + (lambda (g580) + (cdr (assq (cadr g580) + g579)))) + (map cons + g577 + g576)) + (cdr g575)))) + (cons 'map + (cons (list 'lambda + g577 + g575) + g576))))) + (map cdr g574) + (map (lambda (g581) + (list 'ref (car g581))) + g574)))) + (g484 + (lambda (g507 g506) + (list 'apply + '(primitive append) + (g485 g507 g506)))) + (g483 + (lambda (g569 g566 g568 g567) + (if (= g568 '0) + (values g566 g567) + (if (null? g567) + (syntax-error + g569 + '"missing ellipsis in syntax form") + (call-with-values + (lambda () + (g483 g569 + g566 + (- g568 '1) + (cdr g567))) + (lambda (g571 g570) + ((lambda (g572) + (if g572 + (values + (cdr g572) + g567) + ((lambda (g573) + (values + g573 + (cons (cons (cons g571 + g573) + (car g567)) + g570))) + (g451 'tmp)))) + (assq g571 (car g567))))))))) + (g482 + (lambda (g512 g508 g511 g509 g510) + (if (g256 g508) + ((lambda (g513) + ((lambda (g514) + (if (eq? (g232 g514) 'syntax) + (call-with-values + (lambda () + ((lambda (g517) + (g483 g512 + (car g517) + (cdr g517) + g509)) + (g233 g514))) + (lambda (g516 g515) + (values + (list 'ref g516) + g515))) + (if (g510 g508) + (syntax-error + g512 + '"misplaced ellipsis in syntax form") + (values + (list 'quote g508) + g509)))) + (g253 g513 g511))) + (g377 g508 '(()))) + ((lambda (g518) + ((lambda (g519) + (if (if g519 + (apply + (lambda (g521 g520) + (g510 g521)) + g519) + '#f) + (apply + (lambda (g523 g522) + (g482 g512 + g522 + g511 + g509 + (lambda (g524) + '#f))) + g519) + ((lambda (g525) + (if (if g525 + (apply + (lambda (g528 + g526 + g527) + (g510 g526)) + g525) + '#f) + (apply + (lambda (g531 + g529 + g530) + ((letrec ((g532 + (lambda (g534 + g533) + ((lambda (g535) + ((lambda (g536) + (if (if g536 + (apply + (lambda (g538 + g537) + (g510 g538)) + g536) + '#f) + (apply + (lambda (g540 + g539) + (g532 g539 + (lambda (g541) + (call-with-values + (lambda () + (g533 (cons '() + g541))) + (lambda (g543 + g542) + (if (null? + (car g542)) + (syntax-error + g512 + '"extra ellipsis in syntax form") + (values + (g484 g543 + (car g542)) + (cdr g542)))))))) + g536) + ((lambda (g544) + (call-with-values + (lambda () + (g482 g512 + g534 + g511 + g509 + g510)) + (lambda (g546 + g545) + (call-with-values + (lambda () + (g533 g545)) + (lambda (g548 + g547) + (values + (g487 g548 + g546) + g547)))))) + g535))) + ($syntax-dispatch + g535 + '(any . + any)))) + g534)))) + g532) + g530 + (lambda (g549) + (call-with-values + (lambda () + (g482 g512 + g531 + g511 + (cons '() + g549) + g510)) + (lambda (g551 + g550) + (if (null? + (car g550)) + (syntax-error + g512 + '"extra ellipsis in syntax form") + (values + (g485 g551 + (car g550)) + (cdr g550)))))))) + g525) + ((lambda (g552) + (if g552 + (apply + (lambda (g554 + g553) + (call-with-values + (lambda () + (g482 g512 + g554 + g511 + g509 + g510)) + (lambda (g556 + g555) + (call-with-values + (lambda () + (g482 g512 + g553 + g511 + g555 + g510)) + (lambda (g558 + g557) + (values + (g486 g556 + g558) + g557)))))) + g552) + ((lambda (g559) + (if g559 + (apply + (lambda (g561 + g560) + (call-with-values + (lambda () + (g482 g512 + (cons g561 + g560) + g511 + g509 + g510)) + (lambda (g563 + g562) + (values + (g488 g563) + g562)))) + g559) + ((lambda (g565) + (values + (list 'quote + g508) + g509)) + g518))) + ($syntax-dispatch + g518 + '#(vector + (any . + each-any)))))) + ($syntax-dispatch + g518 + '(any . any))))) + ($syntax-dispatch + g518 + '(any any . any))))) + ($syntax-dispatch + g518 + '(any any)))) + g508))))) + (lambda (g493 g490 g492 g491) + ((lambda (g494) + ((lambda (g495) + ((lambda (g496) + (if g496 + (apply + (lambda (g498 g497) + (call-with-values + (lambda () + (g482 g494 + g497 + g490 + '() + g447)) + (lambda (g500 g499) + (g489 g500)))) + g496) + ((lambda (g501) (syntax-error g494)) + g495))) + ($syntax-dispatch g495 '(any any)))) + g494)) + (g394 g493 g492 g491))))))) + (g254 'core + 'lambda + (lambda (g785 g782 g784 g783) + ((lambda (g786) + ((lambda (g787) + (if g787 + (apply + (lambda (g789 g788) + (g444 (g394 g785 g784 g783) + g788 + g782 + g784 + (lambda (g791 g790) + (list 'lambda g791 g790)))) + g787) + (syntax-error g786))) + ($syntax-dispatch g786 '(any . any)))) + g785))) + (g254 'core + 'letrec + (lambda (g590 g587 g589 g588) + ((lambda (g591) + ((lambda (g592) + (if g592 + (apply + (lambda (g597 g593 g596 g594 g595) + ((lambda (g598) + (if (not (g389 g598)) + (g391 (map (lambda (g599) + (g393 g599 g589)) + g598) + (g394 g590 g589 g588) + '"bound variable") + ((lambda (g601 g600) + ((lambda (g603 g602) + (g191 g588 + g600 + (map (lambda (g606) + (g432 g606 + g602 + g603)) + g596) + (g437 (cons g594 g595) + (g394 g590 + g603 + g588) + g602 + g603))) + (g368 g598 g601 g589) + (g248 g601 g600 g587))) + (g299 g598) + (map g451 g598)))) + g593)) + g592) + ((lambda (g608) + (syntax-error (g394 g590 g589 g588))) + g591))) + ($syntax-dispatch + g591 + '(any #(each (any any)) any . each-any)))) + g590))) + (g254 'core + 'if + (lambda (g770 g767 g769 g768) + ((lambda (g771) + ((lambda (g772) + (if g772 + (apply + (lambda (g775 g773 g774) + (list 'if + (g432 g773 g767 g769) + (g432 g774 g767 g769) + (g446))) + g772) + ((lambda (g776) + (if g776 + (apply + (lambda (g780 g777 g779 g778) + (list 'if + (g432 g777 g767 g769) + (g432 g779 g767 g769) + (g432 g778 g767 g769))) + g776) + ((lambda (g781) + (syntax-error + (g394 g770 g769 g768))) + g771))) + ($syntax-dispatch + g771 + '(any any any any))))) + ($syntax-dispatch g771 '(any any any)))) + g770))) + (g254 'set! 'set! '()) + (g254 'begin 'begin '()) + (g254 'module-key 'module '()) + (g254 'import 'import '#f) + (g254 'import 'import-only '#t) + (g254 'define 'define '()) + (g254 'define-syntax 'define-syntax '()) + (g254 'eval-when 'eval-when '()) + (g254 'core + 'syntax-case + ((lambda () + (letrec ((g612 + (lambda (g693 g690 g692 g691) + (if (null? g692) + (list 'syntax-error g693) + ((lambda (g694) + ((lambda (g695) + (if g695 + (apply + (lambda (g697 g696) + (if (if (g256 g697) + (if (not (g392 g697 + g690)) + (not (g447 g697)) + '#f) + '#f) + ((lambda (g699 g698) + (list (list 'lambda + (list g698) + (g432 g696 + (g246 g699 + (g231 'syntax + (cons g698 + '0)) + g691) + (g368 (list g697) + (list g699) + '(())))) + g693)) + (g297) + (g451 g697)) + (g611 g693 + g690 + (cdr g692) + g691 + g697 + '#t + g696))) + g695) + ((lambda (g700) + (if g700 + (apply + (lambda (g703 + g701 + g702) + (g611 g693 + g690 + (cdr g692) + g691 + g703 + g701 + g702)) + g700) + ((lambda (g704) + (syntax-error + (car g692) + '"invalid syntax-case clause")) + g694))) + ($syntax-dispatch + g694 + '(any any any))))) + ($syntax-dispatch + g694 + '(any any)))) + (car g692))))) + (g611 + (lambda (g635 g629 g634 g630 g633 g631 g632) + (call-with-values + (lambda () (g609 g633 g629)) + (lambda (g637 g636) + (if (not (g390 (map car g636))) + (g391 (map car g636) + g633 + '"pattern variable") + (if (not (andmap + (lambda (g638) + (not (g447 (car g638)))) + g636)) + (syntax-error + g633 + '"misplaced ellipsis in syntax-case pattern") + ((lambda (g639) + (list (list 'lambda + (list g639) + (list 'if + ((lambda (g649) + ((lambda (g650) + (if g650 + (apply + (lambda () + g639) + g650) + ((lambda (g651) + (list 'if + g639 + (g610 g636 + g631 + g639 + g630) + (list 'quote + '#f))) + g649))) + ($syntax-dispatch + g649 + '#(atom + #t)))) + g631) + (g610 g636 + g632 + g639 + g630) + (g612 g635 + g629 + g634 + g630))) + (if (eq? g637 'any) + (list 'list g635) + (list '$syntax-dispatch + g635 + (list 'quote + g637))))) + (g451 'tmp)))))))) + (g610 + (lambda (g683 g680 g682 g681) + ((lambda (g685 g684) + ((lambda (g687 g686) + (list 'apply + (list 'lambda + g686 + (g432 g680 + (g247 g687 + (map (lambda (g689 + g688) + (g231 'syntax + (cons g689 + g688))) + g686 + (map cdr + g683)) + g681) + (g368 g685 + g687 + '(())))) + g682)) + (g299 g685) + (map g451 g685))) + (map car g683) + (map cdr g683)))) + (g609 + (lambda (g653 g652) + ((letrec ((g654 + (lambda (g657 g655 g656) + (if (g256 g657) + (if (g392 g657 g652) + (values + (vector + 'free-id + g657) + g656) + (values + 'any + (cons (cons g657 + g655) + g656))) + ((lambda (g658) + ((lambda (g659) + (if (if g659 + (apply + (lambda (g661 + g660) + (g447 g660)) + g659) + '#f) + (apply + (lambda (g663 + g662) + (call-with-values + (lambda () + (g654 g663 + (+ g655 + '1) + g656)) + (lambda (g665 + g664) + (values + (if (eq? g665 + 'any) + 'each-any + (vector + 'each + g665)) + g664)))) + g659) + ((lambda (g666) + (if g666 + (apply + (lambda (g668 + g667) + (call-with-values + (lambda () + (g654 g667 + g655 + g656)) + (lambda (g670 + g669) + (call-with-values + (lambda () + (g654 g668 + g655 + g669)) + (lambda (g672 + g671) + (values + (cons g672 + g670) + g671)))))) + g666) + ((lambda (g673) + (if g673 + (apply + (lambda () + (values + '() + g656)) + g673) + ((lambda (g674) + (if g674 + (apply + (lambda (g675) + (call-with-values + (lambda () + (g654 g675 + g655 + g656)) + (lambda (g677 + g676) + (values + (vector + 'vector + g677) + g676)))) + g674) + ((lambda (g679) + (values + (vector + 'atom + (g450 g657 + '(()))) + g656)) + g658))) + ($syntax-dispatch + g658 + '#(vector + each-any))))) + ($syntax-dispatch + g658 + '())))) + ($syntax-dispatch + g658 + '(any . + any))))) + ($syntax-dispatch + g658 + '(any any)))) + g657))))) + g654) + g653 + '0 + '())))) + (lambda (g616 g613 g615 g614) + ((lambda (g617) + ((lambda (g618) + ((lambda (g619) + (if g619 + (apply + (lambda (g623 g620 g622 g621) + (if (andmap + (lambda (g625) + (if (g256 g625) + (not (g447 g625)) + '#f)) + g622) + ((lambda (g626) + (list (list 'lambda + (list g626) + (g612 g626 + g622 + g621 + g613)) + (g432 g620 + g613 + '(())))) + (g451 'tmp)) + (syntax-error + g617 + '"invalid literals list in"))) + g619) + (syntax-error g618))) + ($syntax-dispatch + g618 + '(any any each-any . each-any)))) + g617)) + (g394 g616 g615 g614))))))) + (set! sc-expand + ((lambda (g763 g761 g762) + ((lambda (g764) + (lambda (g765) + (if (if (pair? g765) (equal? (car g765) g53) '#f) + (cadr g765) + (g400 g765 '() g764 g763 g761 g762)))) + (g263 (g264 '((top))) (cons g762 (g265 '((top))))))) + 'c + '(eval load compile) + ((lambda (g766) (begin (g366 g766 '*top*) g766)) + (g304 '() '() '())))) + (set! identifier? (lambda (g705) (g255 g705))) + (set! datum->syntax-object + (lambda (g759 g758) + (begin ((lambda (g760) + (if (not (g255 g760)) + (g93 'datum->syntax-object + '"invalid argument" + g760) + (void))) + g759) + (g203 g758 (g206 g759))))) + (set! syntax-object->datum + (lambda (g706) (g450 g706 '(())))) + (set! generate-temporaries + (lambda (g755) + (begin ((lambda (g757) + (if (not (list? g757)) + (g93 'generate-temporaries + '"invalid argument" + g757) + (void))) + g755) + (map (lambda (g756) (g393 (gensym) '((top)))) + g755)))) + (set! free-identifier=? + (lambda (g708 g707) + (begin ((lambda (g710) + (if (not (g255 g710)) + (g93 'free-identifier=? + '"invalid argument" + g710) + (void))) + g708) + ((lambda (g709) + (if (not (g255 g709)) + (g93 'free-identifier=? + '"invalid argument" + g709) + (void))) + g707) + (g378 g708 g707)))) + (set! bound-identifier=? + (lambda (g752 g751) + (begin ((lambda (g754) + (if (not (g255 g754)) + (g93 'bound-identifier=? + '"invalid argument" + g754) + (void))) + g752) + ((lambda (g753) + (if (not (g255 g753)) + (g93 'bound-identifier=? + '"invalid argument" + g753) + (void))) + g751) + (g388 g752 g751)))) + (set! syntax-error + (lambda (g711 . g712) + (begin (for-each + (lambda (g714) + ((lambda (g715) + (if (not (string? g715)) + (g93 'syntax-error + '"invalid argument" + g715) + (void))) + g714)) + g712) + ((lambda (g713) (g93 '#f g713 (g450 g711 '(())))) + (if (null? g712) + '"invalid syntax" + (apply string-append g712)))))) + ((lambda () + (letrec ((g720 + (lambda (g748 g745 g747 g746) + (if (not g746) + '#f + (if (eq? g745 'any) + (cons (g393 g748 g747) g746) + (if (g204 g748) + (g719 ((lambda (g749) + (if (g90 g749) + (annotation-expression + g749) + g749)) + (g205 g748)) + g745 + (g371 g747 (g206 g748)) + g746) + (g719 ((lambda (g750) + (if (g90 g750) + (annotation-expression + g750) + g750)) + g748) + g745 + g747 + g746)))))) + (g719 + (lambda (g728 g725 g727 g726) + (if (null? g725) + (if (null? g728) g726 '#f) + (if (pair? g725) + (if (pair? g728) + (g720 (car g728) + (car g725) + g727 + (g720 (cdr g728) + (cdr g725) + g727 + g726)) + '#f) + (if (eq? g725 'each-any) + ((lambda (g729) + (if g729 (cons g729 g726) '#f)) + (g717 g728 g727)) + ((lambda (g730) + (if (memv g730 '(each)) + (if (null? g728) + (g718 (vector-ref + g725 + '1) + g726) + ((lambda (g731) + (if g731 + ((letrec ((g732 + (lambda (g733) + (if (null? + (car g733)) + g726 + (cons (map car + g733) + (g732 (map cdr + g733))))))) + g732) + g731) + '#f)) + (g716 g728 + (vector-ref + g725 + '1) + g727))) + (if (memv g730 '(free-id)) + (if (g256 g728) + (if (g378 (g393 g728 + g727) + (vector-ref + g725 + '1)) + g726 + '#f) + '#f) + (if (memv g730 '(atom)) + (if (equal? + (vector-ref + g725 + '1) + (g450 g728 + g727)) + g726 + '#f) + (if (memv g730 + '(vector)) + (if (vector? + g728) + (g720 (vector->list + g728) + (vector-ref + g725 + '1) + g727 + g726) + '#f) + (void)))))) + (vector-ref g725 '0))))))) + (g718 + (lambda (g743 g742) + (if (null? g743) + g742 + (if (eq? g743 'any) + (cons '() g742) + (if (pair? g743) + (g718 (car g743) + (g718 (cdr g743) g742)) + (if (eq? g743 'each-any) + (cons '() g742) + ((lambda (g744) + (if (memv g744 '(each)) + (g718 (vector-ref + g743 + '1) + g742) + (if (memv g744 + '(free-id + atom)) + g742 + (if (memv g744 + '(vector)) + (g718 (vector-ref + g743 + '1) + g742) + (void))))) + (vector-ref g743 '0)))))))) + (g717 + (lambda (g735 g734) + (if (g90 g735) + (g717 (annotation-expression g735) g734) + (if (pair? g735) + ((lambda (g736) + (if g736 + (cons (g393 (car g735) g734) + g736) + '#f)) + (g717 (cdr g735) g734)) + (if (null? g735) + '() + (if (g204 g735) + (g717 (g205 g735) + (g371 g734 (g206 g735))) + '#f)))))) + (g716 + (lambda (g739 g737 g738) + (if (g90 g739) + (g716 (annotation-expression g739) + g737 + g738) + (if (pair? g739) + ((lambda (g740) + (if g740 + ((lambda (g741) + (if g741 + (cons g740 g741) + '#f)) + (g716 (cdr g739) g737 g738)) + '#f)) + (g720 (car g739) g737 g738 '())) + (if (null? g739) + '() + (if (g204 g739) + (g716 (g205 g739) + g737 + (g371 g738 (g206 g739))) + '#f))))))) + (set! $syntax-dispatch + (lambda (g722 g721) + (if (eq? g721 'any) + (list g722) + (if (g204 g722) + (g719 ((lambda (g723) + (if (g90 g723) + (annotation-expression g723) + g723)) + (g205 g722)) + g721 + (g206 g722) + '()) + (g719 ((lambda (g724) + (if (g90 g724) + (annotation-expression g724) + g724)) + g722) + g721 + '(()) + '())))))))))))) +($sc-put-cte + 'with-syntax + (lambda (g1828) + ((lambda (g1829) + ((lambda (g1830) + (if g1830 + (apply + (lambda (g1833 g1831 g1832) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ e1 e2) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ()))) + (cons g1831 g1832))) + g1830) + ((lambda (g1835) + (if g1835 + (apply + (lambda (g1840 g1836 g1839 g1837 g1838) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g1839 + '() + (list g1836 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons g1837 g1838))))) + g1835) + ((lambda (g1842) + (if g1842 + (apply + (lambda (g1847 g1843 g1846 g1844 g1845) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g1846) + '() + (list g1843 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1844 g1845))))) + g1842) + (syntax-error g1829))) + ($syntax-dispatch + g1829 + '(any #(each (any any)) any . each-any))))) + ($syntax-dispatch + g1829 + '(any ((any any)) any . each-any))))) + ($syntax-dispatch g1829 '(any () any . each-any)))) + g1828))) +($sc-put-cte + 'syntax-rules + (lambda (g1851) + ((lambda (g1852) + ((lambda (g1853) + (if g1853 + (apply + (lambda (g1858 g1854 g1857 g1855 g1856) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ()))) + '(#(syntax-object + x + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ())))) + (cons '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons '#(syntax-object + x + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons g1854 + (map (lambda (g1861 g1860) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(_ + k + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1860) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + k + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1861))) + g1856 + g1855)))))) + g1853) + (syntax-error g1852))) + ($syntax-dispatch + g1852 + '(any each-any . #(each ((any . any) any)))))) + g1851))) +($sc-put-cte + 'or + (lambda (g1862) + ((lambda (g1863) + ((lambda (g1864) + (if g1864 + (apply + (lambda (g1865) + '#(syntax-object + #f + ((top) + #(ribcage #(_) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ())))) + g1864) + ((lambda (g1866) + (if g1866 + (apply (lambda (g1868 g1867) g1867) g1866) + ((lambda (g1869) + (if g1869 + (apply + (lambda (g1873 g1870 g1872 g1871) + (list '#(syntax-object + let + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1870)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons '#(syntax-object + or + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1872 g1871))))) + g1869) + (syntax-error g1863))) + ($syntax-dispatch g1863 '(any any any . each-any))))) + ($syntax-dispatch g1863 '(any any))))) + ($syntax-dispatch g1863 '(any)))) + g1862))) +($sc-put-cte + 'and + (lambda (g1875) + ((lambda (g1876) + ((lambda (g1877) + (if g1877 + (apply + (lambda (g1881 g1878 g1880 g1879) + (cons '#(syntax-object + if + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ()))) + (cons g1878 + (cons (cons '#(syntax-object + and + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons g1880 g1879)) + '(#(syntax-object + #f + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))))))) + g1877) + ((lambda (g1883) + (if g1883 + (apply (lambda (g1885 g1884) g1884) g1883) + ((lambda (g1886) + (if g1886 + (apply + (lambda (g1887) + '#(syntax-object + #t + ((top) + #(ribcage #(_) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + g1886) + (syntax-error g1876))) + ($syntax-dispatch g1876 '(any))))) + ($syntax-dispatch g1876 '(any any))))) + ($syntax-dispatch g1876 '(any any any . each-any)))) + g1875))) +($sc-put-cte + 'let + (lambda (g1888) + ((lambda (g1889) + ((lambda (g1890) + (if (if g1890 + (apply + (lambda (g1895 g1891 g1894 g1892 g1893) + (andmap identifier? g1891)) + g1890) + '#f) + (apply + (lambda (g1901 g1897 g1900 g1898 g1899) + (cons (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons g1897 (cons g1898 g1899))) + g1900)) + g1890) + ((lambda (g1905) + (if (if g1905 + (apply + (lambda (g1911 g1906 g1910 g1907 g1909 g1908) + (andmap identifier? (cons g1906 g1910))) + g1905) + '#f) + (apply + (lambda (g1918 g1913 g1917 g1914 g1916 g1915) + (cons (list '#(syntax-object + letrec + ((top) + #(ribcage + #(_ f x v e1 e2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (list (list g1913 + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ + f + x + v + e1 + e2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1917 + (cons g1916 + g1915))))) + g1913) + g1914)) + g1905) + (syntax-error g1889))) + ($syntax-dispatch + g1889 + '(any any #(each (any any)) any . each-any))))) + ($syntax-dispatch + g1889 + '(any #(each (any any)) any . each-any)))) + g1888))) +($sc-put-cte + 'let* + (lambda (g1922) + ((lambda (g1923) + ((lambda (g1924) + (if (if g1924 + (apply + (lambda (g1929 g1925 g1928 g1926 g1927) + (andmap identifier? g1925)) + g1924) + '#f) + (apply + (lambda (g1935 g1931 g1934 g1932 g1933) + ((letrec ((g1936 + (lambda (g1937) + (if (null? g1937) + (cons '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(bindings) + #((top)) + #("i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(let* x v e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons '() (cons g1932 g1933))) + ((lambda (g1939) + ((lambda (g1940) + (if g1940 + (apply + (lambda (g1942 g1941) + (list '#(syntax-object + let + ((top) + #(ribcage + #(body + binding) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(bindings) + #((top)) + #("i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(let* + x + v + e1 + e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list g1941) + g1942)) + g1940) + (syntax-error g1939))) + ($syntax-dispatch + g1939 + '(any any)))) + (list (g1936 (cdr g1937)) + (car g1937))))))) + g1936) + (map list g1931 g1934))) + g1924) + (syntax-error g1923))) + ($syntax-dispatch + g1923 + '(any #(each (any any)) any . each-any)))) + g1922))) +($sc-put-cte + 'cond + (lambda (g1945) + ((lambda (g1946) + ((lambda (g1947) + (if g1947 + (apply + (lambda (g1950 g1948 g1949) + ((letrec ((g1951 + (lambda (g1953 g1952) + (if (null? g1952) + ((lambda (g1954) + ((lambda (g1955) + (if g1955 + (apply + (lambda (g1957 g1956) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1957 g1956))) + g1955) + ((lambda (g1959) + (if g1959 + (apply + (lambda (g1960) + (cons '#(syntax-object + let + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1960)) + '((#(syntax-object + if + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))))))) + g1959) + ((lambda (g1961) + (if g1961 + (apply + (lambda (g1963 + g1962) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1963)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1962 + '(#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))))))) + g1961) + ((lambda (g1964) + (if g1964 + (apply + (lambda (g1967 + g1965 + g1966) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1967 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1965 + g1966)))) + g1964) + ((lambda (g1969) + (syntax-error + g1945)) + g1954))) + ($syntax-dispatch + g1954 + '(any any + . + each-any))))) + ($syntax-dispatch + g1954 + '(any #(free-id + #(syntax-object + => + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + any))))) + ($syntax-dispatch + g1954 + '(any))))) + ($syntax-dispatch + g1954 + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(clause clauses) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + any + . + each-any)))) + g1953) + ((lambda (g1970) + ((lambda (g1971) + ((lambda (g1972) + ((lambda (g1973) + (if g1973 + (apply + (lambda (g1974) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1974)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1971))) + g1973) + ((lambda (g1975) + (if g1975 + (apply + (lambda (g1977 + g1976) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1977)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1976 + '(#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))))) + g1971))) + g1975) + ((lambda (g1978) + (if g1978 + (apply + (lambda (g1981 + g1979 + g1980) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1981 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g1979 + g1980)) + g1971)) + g1978) + ((lambda (g1983) + (syntax-error + g1945)) + g1972))) + ($syntax-dispatch + g1972 + '(any any + . + each-any))))) + ($syntax-dispatch + g1972 + '(any #(free-id + #(syntax-object + => + ((top) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + any))))) + ($syntax-dispatch + g1972 + '(any)))) + g1953)) + g1970)) + (g1951 (car g1952) (cdr g1952))))))) + g1951) + g1948 + g1949)) + g1947) + (syntax-error g1946))) + ($syntax-dispatch g1946 '(any any . each-any)))) + g1945))) +($sc-put-cte + 'do + (lambda (g1985) + ((lambda (g1986) + ((lambda (g1987) + (if g1987 + (apply + (lambda (g1994 g1988 g1993 g1989 g1992 g1990 g1991) + ((lambda (g1995) + ((lambda (g2005) + (if g2005 + (apply + (lambda (g2006) + ((lambda (g2007) + ((lambda (g2009) + (if g2009 + (apply + (lambda () + (list '#(syntax-object + let + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + doloop + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (map list g1988 g1993) + (list '#(syntax-object + if + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + not + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1992) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (append + g1991 + (list (cons '#(syntax-object + doloop + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2006))))))) + g2009) + ((lambda (g2014) + (if g2014 + (apply + (lambda (g2016 g2015) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (map list + g1988 + g1993) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g1992 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2016 + g2015)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (append + g1991 + (list (cons '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2006))))))) + g2014) + (syntax-error g2007))) + ($syntax-dispatch + g2007 + '(any . each-any))))) + ($syntax-dispatch g2007 '()))) + g1990)) + g2005) + (syntax-error g1995))) + ($syntax-dispatch g1995 'each-any))) + (map (lambda (g1999 g1998) + ((lambda (g2000) + ((lambda (g2001) + (if g2001 + (apply (lambda () g1999) g2001) + ((lambda (g2002) + (if g2002 + (apply + (lambda (g2003) g2003) + g2002) + ((lambda (g2004) + (syntax-error g1985)) + g2000))) + ($syntax-dispatch g2000 '(any))))) + ($syntax-dispatch g2000 '()))) + g1998)) + g1988 + g1989))) + g1987) + (syntax-error g1986))) + ($syntax-dispatch + g1986 + '(any #(each (any any . any)) + (any . each-any) + . + each-any)))) + g1985))) +($sc-put-cte + 'quasiquote + (letrec ((g2030 + (lambda (g2142) + (if (identifier? g2142) + (free-identifier=? + g2142 + '#(syntax-object + quote + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i" "i" "i" "i")) + #(ribcage ((import-token . *top*)) () ())))) + '#f))) + (g2022 + (lambda (g2036) + (if (identifier? g2036) + (free-identifier=? + g2036 + '#(syntax-object + list + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i" "i" "i" "i")) + #(ribcage ((import-token . *top*)) () ())))) + '#f))) + (g2029 + (lambda (g2141) + (if (identifier? g2141) + (free-identifier=? + g2141 + '#(syntax-object + cons + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i" "i" "i" "i")) + #(ribcage ((import-token . *top*)) () ())))) + '#f))) + (g2023 + (lambda (g2037) + ((lambda (g2038) + ((lambda (g2039) + (if g2039 + (apply (lambda (g2040) (g2030 g2040)) g2039) + ((lambda (g2041) '#f) g2038))) + ($syntax-dispatch g2038 '(any ())))) + g2037))) + (g2028 + (lambda (g2138 g2137) + ((letrec ((g2139 + (lambda (g2140) + (if (null? g2140) + g2137 + (g2024 (car g2140) (g2139 (cdr g2140))))))) + g2139) + g2138))) + (g2024 + (lambda (g2043 g2042) + ((lambda (g2044) + ((lambda (g2045) + (if g2045 + (apply + (lambda (g2047 g2046) + ((lambda (g2048) + ((lambda (g2049) + (if (if g2049 + (apply + (lambda (g2051 g2050) + (g2030 g2051)) + g2049) + '#f) + (apply + (lambda (g2053 g2052) + ((lambda (g2054) + ((lambda (g2055) + (if (if g2055 + (apply + (lambda (g2057 + g2056) + (g2030 g2057)) + g2055) + '#f) + (apply + (lambda (g2059 g2058) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(quote? + dx) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(quote? + dy) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2058 + g2052))) + g2055) + ((lambda (g2060) + (if (null? g2052) + (list '#(syntax-object + list + ((top) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(quote? + dy) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2047) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(quote? + dy) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2047 + g2046))) + g2054))) + ($syntax-dispatch + g2054 + '(any any)))) + g2047)) + g2049) + ((lambda (g2061) + (if (if g2061 + (apply + (lambda (g2063 g2062) + (g2022 g2063)) + g2061) + '#f) + (apply + (lambda (g2065 g2064) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(listp stuff) + #((top) (top)) + #("i" "i")) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2047 g2064))) + g2061) + ((lambda (g2066) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(else) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2047 + g2046)) + g2048))) + ($syntax-dispatch + g2048 + '(any . any))))) + ($syntax-dispatch g2048 '(any any)))) + g2046)) + g2045) + (syntax-error g2044))) + ($syntax-dispatch g2044 '(any any)))) + (list g2043 g2042)))) + (g2027 + (lambda (g2129 g2128) + ((lambda (g2130) + (if (null? g2130) + '(#(syntax-object + quote + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(ls) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x y) #((top) (top)) #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i" "i" "i" "i")) + #(ribcage ((import-token . *top*)) () ()))) + ()) + (if (null? (cdr g2130)) + (car g2130) + ((lambda (g2131) + ((lambda (g2132) + (if g2132 + (apply + (lambda (g2133) + (cons '#(syntax-object + append + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ls) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g2133)) + g2132) + (syntax-error g2131))) + ($syntax-dispatch g2131 'each-any))) + g2130)))) + ((letrec ((g2135 + (lambda (g2136) + (if (null? g2136) + (if (g2023 g2128) '() (list g2128)) + (if (g2023 (car g2136)) + (g2135 (cdr g2136)) + (cons (car g2136) + (g2135 (cdr g2136)))))))) + g2135) + g2129)))) + (g2025 + (lambda (g2067) + ((lambda (g2068) + ((lambda (g2069) + ((lambda (g2070) + ((lambda (g2071) + (if (if g2071 + (apply + (lambda (g2073 g2072) (g2030 g2073)) + g2071) + '#f) + (apply + (lambda (g2075 g2074) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(quote? x) + #((top) (top)) + #("i" "i")) + #(ribcage + #(pat-x) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (list->vector g2074))) + g2071) + ((lambda (g2077) + ((letrec ((g2078 + (lambda (g2080 g2079) + ((lambda (g2081) + ((lambda (g2082) + (if (if g2082 + (apply + (lambda (g2084 + g2083) + (g2030 + g2084)) + g2082) + '#f) + (apply + (lambda (g2086 + g2085) + (g2079 + (map (lambda (g2087) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(quote? + x) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x + k) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(pat-x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2087)) + g2085))) + g2082) + ((lambda (g2088) + (if (if g2088 + (apply + (lambda (g2090 + g2089) + (g2022 + g2090)) + g2088) + '#f) + (apply + (lambda (g2092 + g2091) + (g2079 + g2091)) + g2088) + ((lambda (g2094) + (if (if g2094 + (apply + (lambda (g2097 + g2095 + g2096) + (g2029 + g2097)) + g2094) + '#f) + (apply + (lambda (g2100 + g2098 + g2099) + (g2078 + g2099 + (lambda (g2101) + (g2079 + (cons g2098 + g2101))))) + g2094) + ((lambda (g2102) + (list '#(syntax-object + list->vector + ((top) + #(ribcage + #(else) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x + k) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(pat-x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2069)) + g2081))) + ($syntax-dispatch + g2081 + '(any any + any))))) + ($syntax-dispatch + g2081 + '(any . + each-any))))) + ($syntax-dispatch + g2081 + '(any each-any)))) + g2080)))) + g2078) + g2067 + (lambda (g2103) + (cons '#(syntax-object + vector + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ls) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(pat-x) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g2103)))) + g2070))) + ($syntax-dispatch g2070 '(any each-any)))) + g2069)) + g2068)) + g2067))) + (g2026 + (lambda (g2105 g2104) + ((lambda (g2106) + ((lambda (g2107) + (if g2107 + (apply + (lambda (g2108) + (if (= g2104 '0) + g2108 + (g2024 + '(#(syntax-object + quote + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + #(syntax-object + unquote + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + (g2026 (list g2108) (- g2104 '1))))) + g2107) + ((lambda (g2109) + (if g2109 + (apply + (lambda (g2111 g2110) + (if (= g2104 '0) + (g2028 g2111 (g2026 g2110 g2104)) + (g2024 + (g2024 + '(#(syntax-object + quote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + #(syntax-object + unquote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + (g2026 g2111 (- g2104 '1))) + (g2026 g2110 g2104)))) + g2109) + ((lambda (g2114) + (if g2114 + (apply + (lambda (g2116 g2115) + (if (= g2104 '0) + (g2027 + g2116 + (g2026 g2115 g2104)) + (g2024 + (g2024 + '(#(syntax-object + quote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + (g2026 + g2116 + (- g2104 '1))) + (g2026 g2115 g2104)))) + g2114) + ((lambda (g2119) + (if g2119 + (apply + (lambda (g2120) + (g2024 + '(#(syntax-object + quote + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + quasiquote + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))) + (g2026 + (list g2120) + (+ g2104 '1)))) + g2119) + ((lambda (g2121) + (if g2121 + (apply + (lambda (g2123 g2122) + (g2024 + (g2026 + g2123 + g2104) + (g2026 + g2122 + g2104))) + g2121) + ((lambda (g2124) + (if g2124 + (apply + (lambda (g2125) + (g2025 + (g2026 + g2125 + g2104))) + g2124) + ((lambda (g2127) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2127)) + g2106))) + ($syntax-dispatch + g2106 + '#(vector + each-any))))) + ($syntax-dispatch + g2106 + '(any . any))))) + ($syntax-dispatch + g2106 + '(#(free-id + #(syntax-object + quasiquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + any))))) + ($syntax-dispatch + g2106 + '((#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + . + each-any) + . + any))))) + ($syntax-dispatch + g2106 + '((#(free-id + #(syntax-object + unquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + . + each-any) + . + any))))) + ($syntax-dispatch + g2106 + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage () () ()) + #(ribcage #(p lev) #((top) (top)) #("i" "i")) + #(ribcage + #(isquote? + islist? + iscons? + quote-nil? + quasilist* + quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i" "i" "i" "i")) + #(ribcage ((import-token . *top*)) () ())))) + any)))) + g2105)))) + (lambda (g2031) + ((lambda (g2032) + ((lambda (g2033) + (if g2033 + (apply (lambda (g2035 g2034) (g2026 g2034 '0)) g2033) + (syntax-error g2032))) + ($syntax-dispatch g2032 '(any any)))) + g2031)))) +($sc-put-cte + 'include + (lambda (g2143) + (letrec ((g2144 + (lambda (g2155 g2154) + ((lambda (g2156) + ((letrec ((g2157 + (lambda () + ((lambda (g2158) + (if (eof-object? g2158) + (begin (close-input-port g2156) '()) + (cons (datum->syntax-object + g2154 + g2158) + (g2157)))) + (read g2156))))) + g2157))) + (open-input-file g2155))))) + ((lambda (g2145) + ((lambda (g2146) + (if g2146 + (apply + (lambda (g2148 g2147) + ((lambda (g2149) + ((lambda (g2150) + ((lambda (g2151) + (if g2151 + (apply + (lambda (g2152) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(exp) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(fn) + #((top)) + #("i")) + #(ribcage + #(k filename) + #((top) (top)) + #("i" "i")) + #(ribcage + (read-file) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g2152)) + g2151) + (syntax-error g2150))) + ($syntax-dispatch g2150 'each-any))) + (g2144 g2149 g2148))) + (syntax-object->datum g2147))) + g2146) + (syntax-error g2145))) + ($syntax-dispatch g2145 '(any any)))) + g2143)))) +($sc-put-cte + 'unquote + (lambda (g2159) + ((lambda (g2160) + ((lambda (g2161) + (if g2161 + (apply + (lambda (g2163 g2162) + (syntax-error + g2159 + '"expression not valid outside of quasiquote")) + g2161) + (syntax-error g2160))) + ($syntax-dispatch g2160 '(any . each-any)))) + g2159))) +($sc-put-cte + 'unquote-splicing + (lambda (g2164) + ((lambda (g2165) + ((lambda (g2166) + (if g2166 + (apply + (lambda (g2168 g2167) + (syntax-error + g2164 + '"expression not valid outside of quasiquote")) + g2166) + (syntax-error g2165))) + ($syntax-dispatch g2165 '(any . each-any)))) + g2164))) +($sc-put-cte + 'case + (lambda (g2169) + ((lambda (g2170) + ((lambda (g2171) + (if g2171 + (apply + (lambda (g2175 g2172 g2174 g2173) + ((lambda (g2176) + ((lambda (g2203) + (list '#(syntax-object + let + ((top) + #(ribcage #(body) #((top)) #("i")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(body) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g2172)) + g2203)) + g2176)) + ((letrec ((g2177 + (lambda (g2179 g2178) + (if (null? g2178) + ((lambda (g2180) + ((lambda (g2181) + (if g2181 + (apply + (lambda (g2183 g2182) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2183 + g2182))) + g2181) + ((lambda (g2185) + (if g2185 + (apply + (lambda (g2188 + g2186 + g2187) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2188)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2186 + g2187)))) + g2185) + ((lambda (g2191) + (syntax-error + g2169)) + g2180))) + ($syntax-dispatch + g2180 + '(each-any + any + . + each-any))))) + ($syntax-dispatch + g2180 + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(clause clauses) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + any + . + each-any)))) + g2179) + ((lambda (g2192) + ((lambda (g2193) + ((lambda (g2194) + ((lambda (g2195) + (if g2195 + (apply + (lambda (g2198 + g2196 + g2197) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + '#(syntax-object + t + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2198)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2196 + g2197)) + g2193)) + g2195) + ((lambda (g2201) + (syntax-error + g2169)) + g2194))) + ($syntax-dispatch + g2194 + '(each-any + any + . + each-any)))) + g2179)) + g2192)) + (g2177 (car g2178) (cdr g2178))))))) + g2177) + g2174 + g2173))) + g2171) + (syntax-error g2170))) + ($syntax-dispatch g2170 '(any any any . each-any)))) + g2169))) +($sc-put-cte + 'identifier-syntax + (lambda (g2204) + ((lambda (g2205) + ((lambda (g2206) + (if g2206 + (apply + (lambda (g2208 g2207) + (list '#(syntax-object + lambda + ((top) + #(ribcage #(_ e) #((top) (top)) #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ()))) + '(#(syntax-object + x + ((top) + #(ribcage #(_ e) #((top) (top)) #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ())))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '#(syntax-object + x + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '() + (list '#(syntax-object + id + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '(#(syntax-object + identifier? + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + #(syntax-object + id + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + g2207)) + (list (cons g2208 + '(#(syntax-object + x + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + #(syntax-object + ... + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + (cons g2207 + '(#(syntax-object + x + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + ... + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ())))))))))) + g2206) + ((lambda (g2209) + (if (if g2209 + (apply + (lambda (g2215 g2210 g2214 g2211 g2213 g2212) + (if (identifier? g2210) + (identifier? g2211) + '#f)) + g2209) + '#f) + (apply + (lambda (g2221 g2216 g2220 g2217 g2219 g2218) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) (top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '(#(syntax-object + quote + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + #(syntax-object + macro! + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '(#(syntax-object + x + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '#(syntax-object + x + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ()))) + '(#(syntax-object + set! + ((top) + #(ribcage + #(_ id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token . *top*)) + () + ())))) + (list (list '#(syntax-object + set! + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2217 + g2219) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2218)) + (list (cons g2216 + '(#(syntax-object + x + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + ... + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (cons g2220 + '(#(syntax-object + x + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + #(syntax-object + ... + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))))))) + (list g2216 + (list '#(syntax-object + identifier? + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2216)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + ((import-token + . + *top*)) + () + ()))) + g2220)))))) + g2209) + (syntax-error g2205))) + ($syntax-dispatch + g2205 + '(any (any any) + ((#(free-id + #(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage ((import-token . *top*)) () ())))) + any + any) + any)))))) + ($syntax-dispatch g2205 '(any any)))) + g2204))) diff --git a/module/language/r5rs/psyntax.scm b/module/language/r5rs/psyntax.scm new file mode 100644 index 000000000..b8c6a3edb --- /dev/null +++ b/module/language/r5rs/psyntax.scm @@ -0,0 +1 @@ +((lambda () (letrec ((g452 (lambda (g453) ((letrec ((g454 (lambda (g455 g456 g457) (if (pair? g455) (g454 (cdr g455) (cons (g393 (car g455) g457) g456) g457) (if (g256 g455) (cons (g393 g455 g457) g456) (if (null? g455) g456 (if (g204 g455) (g454 (g205 g455) g456 (g371 g457 (g206 g455))) (if (g90 g455) (g454 (annotation-expression g455) g456 g457) (cons g455 g456))))))))) g454) g453 (quote ()) (quote (()))))) (g451 (lambda (g458) ((lambda (g459) (if (g90 g459) (gensym) (gensym))) (if (g204 g458) (g205 g458) g458)))) (g450 (lambda (g460 g461) (g449 g460 g461 (lambda (g462) (if ((lambda (g463) (if g463 g463 (if (pair? g462) (g90 (car g462)) (quote #f)))) (g90 g462)) (g448 g462 (quote #f)) g462))))) (g449 (lambda (g464 g465 g466) (if (memq (quote top) (g264 g465)) (g466 g464) ((letrec ((g467 (lambda (g468) (if (g204 g468) (g449 (g205 g468) (g206 g468) g466) (if (pair? g468) ((lambda (g469 g470) (if (if (eq? g469 (car g468)) (eq? g470 (cdr g468)) (quote #f)) g468 (cons g469 g470))) (g467 (car g468)) (g467 (cdr g468))) (if (vector? g468) ((lambda (g471) ((lambda (g472) (if (andmap eq? g471 g472) g468 (list->vector g472))) (map g467 g471))) (vector->list g468)) g468)))))) g467) g464)))) (g448 (lambda (g473 g474) (if (pair? g473) ((lambda (g475) (begin (if g474 (set-annotation-stripped! g474 g475) (void)) (set-car! g475 (g448 (car g473) (quote #f))) (set-cdr! g475 (g448 (cdr g473) (quote #f))) g475)) (cons (quote #f) (quote #f))) (if (g90 g473) ((lambda (g476) (if g476 g476 (g448 (annotation-expression g473) g473))) (annotation-stripped g473)) (if (vector? g473) ((lambda (g477) (begin (if g474 (set-annotation-stripped! g474 g477) (void)) ((letrec ((g478 (lambda (g479) (if (not (< g479 (quote 0))) (begin (vector-set! g477 g479 (g448 (vector-ref g473 g479) (quote #f))) (g478 (- g479 (quote 1)))) (void))))) g478) (- (vector-length g473) (quote 1))) g477)) (make-vector (vector-length g473))) g473))))) (g447 (lambda (g480) (if (g255 g480) (g378 g480 (quote #(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))))) (quote #f)))) (g446 (lambda () (list (quote void)))) (g445 (lambda (g481 g482 g483 g484 g485 g486) ((lambda (g487) ((lambda (g488) (if g488 (apply (lambda (g489 g490 g491 g492 g493) ((lambda (g494) (if (not (g389 g494)) (g391 (map (lambda (g495) (g393 g495 g484)) g494) (g394 g482 g484 g485) (quote "keyword")) ((lambda (g496) ((lambda (g497) (g486 (cons g492 g493) (g247 g496 ((lambda (g499 g500) (map (lambda (g501) (g231 (quote deferred) (g432 g501 g500 g499))) g491)) (if g481 g497 g484) (g249 g483)) g483) g497 g485)) (g368 g494 g496 g484))) (g299 g494)))) g490)) g488) ((lambda (g504) (syntax-error (g394 g482 g484 g485))) g487))) ($syntax-dispatch g487 (quote (any #(each (any any)) any . each-any))))) g482))) (g444 (lambda (g505 g506 g507 g508 g509) ((lambda (g510) ((lambda (g511) (if g511 (apply (lambda (g512 g513 g514) ((lambda (g515) (if (not (g389 g515)) (syntax-error g505 (quote "invalid parameter list in")) ((lambda (g516 g517) (g509 g517 (g437 (cons g513 g514) g505 (g248 g516 g517 g507) (g368 g515 g516 g508)))) (g299 g515) (map g451 g515)))) g512)) g511) ((lambda (g520) (if g520 (apply (lambda (g521 g522 g523) ((lambda (g524) (if (not (g389 g524)) (syntax-error g505 (quote "invalid parameter list in")) ((lambda (g525 g526) (g509 ((letrec ((g527 (lambda (g528 g529) (if (null? g528) g529 (g527 (cdr g528) (cons (car g528) g529)))))) g527) (cdr g526) (car g526)) (g437 (cons g522 g523) g505 (g248 g525 g526 g507) (g368 g524 g525 g508)))) (g299 g524) (map g451 g524)))) (g452 g521))) g520) ((lambda (g531) (syntax-error g505)) g510))) ($syntax-dispatch g510 (quote (any any . each-any)))))) ($syntax-dispatch g510 (quote (each-any any . each-any))))) g506))) (g443 (lambda (g532 g533 g534 g535) ((lambda (g536) ((lambda (g537) (if (if g537 (apply (lambda (g538 g539 g540) (g256 g539)) g537) (quote #f)) (apply (lambda (g541 g542 g543) (g535 g542 g543 g533)) g537) ((lambda (g544) (syntax-error (g394 g532 g533 g534))) g536))) ($syntax-dispatch g536 (quote (any any any))))) g532))) (g442 (lambda (g545 g546 g547 g548) ((lambda (g549) ((lambda (g550) (if (if g550 (apply (lambda (g551 g552 g553) (g256 g552)) g550) (quote #f)) (apply (lambda (g554 g555 g556) (g548 g555 g556 g546)) g550) ((lambda (g557) (if (if g557 (apply (lambda (g558 g559 g560 g561 g562) (if (g256 g559) (g389 (g452 g560)) (quote #f))) g557) (quote #f)) (apply (lambda (g563 g564 g565 g566 g567) (g548 (g393 g564 g546) (cons (quote #(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w s k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ())))) (g393 (cons g565 (cons g566 g567)) g546)) (quote (())))) g557) ((lambda (g569) (if (if g569 (apply (lambda (g570 g571) (g256 g571)) g569) (quote #f)) (apply (lambda (g572 g573) (g548 (g393 g573 g546) (quote (#(syntax-object void ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w s k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))))) (quote (())))) g569) ((lambda (g574) (syntax-error (g394 g545 g546 g547))) g549))) ($syntax-dispatch g549 (quote (any any)))))) ($syntax-dispatch g549 (quote (any (any . any) any . each-any)))))) ($syntax-dispatch g549 (quote (any any any))))) g545))) (g441 (lambda (g575 g576 g577 g578) ((lambda (g579) ((lambda (g580) (if (if g580 (apply (lambda (g581 g582) (g256 g582)) g580) (quote #f)) (apply (lambda (g583 g584) (g578 (g393 g584 g576))) g580) ((lambda (g585) (syntax-error (g394 g575 g576 g577))) g579))) ($syntax-dispatch g579 (quote (any any))))) g575))) (g440 (lambda (g586 g587 g588 g589 g590) (letrec ((g592 (lambda (g593 g594 g595) (g590 g593 (g591 g594) (map (lambda (g596) (g393 g596 g589)) g595)))) (g591 (lambda (g597) (if (null? g597) (quote ()) (cons ((lambda (g598) ((lambda (g599) (if g599 (apply (lambda (g600) (g591 g600)) g599) ((lambda (g602) (if (g256 g602) (g393 g602 g589) (syntax-error (g394 g586 g587 g588) (quote "invalid exports list in")))) g598))) ($syntax-dispatch g598 (quote each-any)))) (car g597)) (g591 (cdr g597))))))) ((lambda (g603) ((lambda (g604) (if g604 (apply (lambda (g605 g606 g607) (g592 (quote #f) g606 g607)) g604) ((lambda (g610) (if (if g610 (apply (lambda (g611 g612 g613 g614) (g256 g612)) g610) (quote #f)) (apply (lambda (g615 g616 g617 g618) (g592 (g393 g616 g587) g617 g618)) g610) ((lambda (g621) (syntax-error (g394 g586 g587 g588))) g603))) ($syntax-dispatch g603 (quote (any any each-any . each-any)))))) ($syntax-dispatch g603 (quote (any each-any . each-any))))) g586)))) (g439 (lambda (g622 g623) ((lambda (g624) (if g624 (g366 g623 g624) (g429 (lambda (g625) ((lambda (g626) (begin (if (not g626) (syntax-error g625 (quote "exported identifier not visible")) (void)) (g363 g623 g625 g626))) (g376 g625 (quote (()))))) (g404 g622)))) (g405 g622)))) (g438 (lambda (g627 g628 g629 g630 g631) (letrec ((g632 (lambda (g633 g634 g635 g636 g637) (begin (g426 g628 g634) (g631 g633 g634 g635 g636 g637))))) ((letrec ((g638 (lambda (g639 g640 g641 g642 g643) (if (null? g639) (g632 g639 g640 g641 g642 g643) ((lambda (g644 g645) (call-with-values (lambda () (g398 g644 g645 (quote (())) (quote #f) g627)) (lambda (g646 g647 g648 g649 g650) ((lambda (g651) (if (memv g651 (quote (define-form))) (g442 g648 g649 g650 (lambda (g652 g653 g654) ((lambda (g655 g656) ((lambda (g657) (begin (g363 g627 g655 g656) (g424 g630 g656 (g231 (quote lexical) g657)) (g638 (cdr g639) (cons g655 g640) (cons g657 g641) (cons (cons g645 (g393 g653 g654)) g642) g643))) (g451 g655))) (g393 g652 g654) (g297)))) (if (memv g651 (quote (define-syntax-form))) (g443 g648 g649 g650 (lambda (g658 g659 g660) ((lambda (g661 g662 g663) (begin (g363 g627 g661 g662) (g424 g630 g662 (g231 (quote deferred) g663)) (g638 (cdr g639) (cons g661 g640) g641 g642 g643))) (g393 g658 g660) (g297) (g432 g659 (g249 g645) g660)))) (if (memv g651 (quote (module-form))) ((lambda (g664) ((lambda (g665) ((lambda () (g440 g648 g649 g650 g665 (lambda (g666 g667 g668) (g438 g664 (g394 g648 g649 g650) (map (lambda (g669) (cons g645 g669)) g668) g630 (lambda (g670 g671 g672 g673 g674) (begin (g425 g628 (g401 g667) g671) ((lambda (g675 g676 g677 g678) (if g666 ((lambda (g679) (begin (g363 g627 g666 g679) (g424 g630 g679 (g231 (quote module) g675)) (g638 (cdr g639) (cons g666 g640) g676 g677 g678))) (g297)) ((lambda () (begin (g439 g675 g627) (g638 (cdr g639) (cons g675 g640) g676 g677 g678)))))) (g408 g667) (append g672 g641) (append g673 g642) (append g643 g674 g670)))))))))) (g263 (g264 g649) (cons g664 (g265 g649))))) (g304 (quote ()) (quote ()) (quote ()))) (if (memv g651 (quote (import-form))) (g441 g648 g649 g650 (lambda (g680) ((lambda (g681) ((lambda (g682) ((lambda (g683) (if (memv g683 (quote (module))) ((lambda (g684) (begin (if g647 (g364 g627 g647) (void)) (g439 g684 g627) (g638 (cdr g639) (cons g684 g640) g641 g642 g643))) (cdr g682)) (if (memv g683 (quote (displaced-lexical))) (g250 g680) (syntax-error g680 (quote "import from unknown module"))))) (car g682))) (g253 g681 g630))) (g377 g680 (quote (())))))) (if (memv g651 (quote (begin-form))) ((lambda (g685) ((lambda (g686) (if g686 (apply (lambda (g687 g688) (g638 ((letrec ((g689 (lambda (g690) (if (null? g690) (cdr g639) (cons (cons g645 (g393 (car g690) g649)) (g689 (cdr g690))))))) g689) g688) g640 g641 g642 g643)) g686) (syntax-error g685))) ($syntax-dispatch g685 (quote (any . each-any))))) g648) (if (memv g651 (quote (local-syntax-form))) (g445 g647 g648 g645 g649 g650 (lambda (g692 g693 g694 g695) (g638 ((letrec ((g696 (lambda (g697) (if (null? g697) (cdr g639) (cons (cons g693 (g393 (car g697) g694)) (g696 (cdr g697))))))) g696) g692) g640 g641 g642 g643))) (g632 (cons (cons g645 (g394 g648 g649 g650)) (cdr g639)) g640 g641 g642 g643)))))))) g646)))) (cdar g639) (caar g639)))))) g638) g629 (quote ()) (quote ()) (quote ()) (quote ()))))) (g437 (lambda (g698 g699 g700 g701) ((lambda (g702) ((lambda (g703) ((lambda (g704) ((lambda (g705) ((lambda () (g438 g703 g699 g705 g702 (lambda (g706 g707 g708 g709 g710) (begin (if (null? g706) (syntax-error g699 (quote "no expressions in body")) (void)) (g191 (quote #f) g708 (map (lambda (g711) (g432 (cdr g711) (car g711) (quote (())))) g709) (g190 (quote #f) (map (lambda (g712) (g432 (cdr g712) (car g712) (quote (())))) (append g710 g706)))))))))) (map (lambda (g713) (cons g702 (g393 g713 g704))) g698))) (g263 (g264 g701) (cons g703 (g265 g701))))) (g304 (quote ()) (quote ()) (quote ())))) (cons (quote ("placeholder" placeholder)) g700)))) (g436 (lambda (g714 g715 g716 g717 g718 g719) (letrec ((g720 (lambda (g721 g722) (if (pair? g721) (cons (g720 (car g721) g722) (g720 (cdr g721) g722)) (if (g204 g721) ((lambda (g723) ((lambda (g724 g725) (g203 (g205 g721) (if (if (pair? g724) (eq? (car g724) (quote #f)) (quote #f)) (g263 (cdr g724) (if g719 (cons g719 (cdr g725)) (cdr g725))) (g263 (cons g722 g724) (if g719 (cons g719 (cons (quote shift) g725)) (cons (quote shift) g725)))))) (g264 g723) (g265 g723))) (g206 g721)) (if (vector? g721) ((lambda (g726) ((lambda (g727) ((lambda () ((letrec ((g728 (lambda (g729) (if (= g729 g726) g727 (begin (vector-set! g727 g729 (g720 (vector-ref g721 g729) g722)) (g728 (+ g729 (quote 1)))))))) g728) (quote 0))))) (make-vector g726))) (vector-length g721)) (if (symbol? g721) (syntax-error (g394 g715 g717 g718) (quote "encountered raw symbol ") (format (quote "~s") g721) (quote " in output of macro")) g721))))))) (g720 ((lambda (g730) (if (procedure? g730) (g730 (lambda (g731) (begin (if (not (identifier? g731)) (syntax-error g731 (quote "environment argument is not an identifier")) (void)) (g253 (g377 g731 (quote (()))) g716)))) g730)) (g714 (g394 g715 (g349 g717) g718))) (string (quote #\m)))))) (g435 (lambda (g732 g733 g734 g735 g736) ((lambda (g737) ((lambda (g738) (if (if g738 (apply (lambda (g739 g740 g741) (g256 g740)) g738) (quote #f)) (apply (lambda (g742 g743 g744) ((lambda (g745) ((lambda (g746) ((lambda (g747) (if (memv g747 (quote (macro!))) ((lambda (g748 g749) (g398 (g436 (g233 g746) (list (quote #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(id val) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage #(_ id val) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w s rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ())))) g748 g749) g733 (quote (())) g735 g736) g733 (quote (())) g735 g736)) (g393 g743 g734) (g393 g744 g734)) (values (quote core) (lambda (g750 g751 g752 g753) ((lambda (g754 g755) ((lambda (g756) ((lambda (g757) (if (memv g757 (quote (lexical))) (list (quote set!) (g233 g756) g754) (if (memv g757 (quote (global))) (list (quote set!) (g233 g756) g754) (if (memv g757 (quote (displaced-lexical))) (syntax-error (g393 g743 g752) (quote "identifier out of context")) (syntax-error (g394 g750 g752 g753)))))) (g232 g756))) (g253 g755 g751))) (g432 g744 g751 g752) (g377 g743 g752))) g732 g734 g735))) (g232 g746))) (g253 g745 g733))) (g377 g743 g734))) g738) ((lambda (g758) (syntax-error (g394 g732 g734 g735))) g737))) ($syntax-dispatch g737 (quote (any any any))))) g732))) (g434 (lambda (g759 g760 g761 g762 g763) ((lambda (g764) ((lambda (g765) (if g765 (apply (lambda (g766 g767) (cons g759 (map (lambda (g768) (g432 g768 g761 g762)) g767))) g765) ((lambda (g770) (syntax-error (g394 g760 g762 g763))) g764))) ($syntax-dispatch g764 (quote (any . each-any))))) g760))) (g433 (lambda (g771 g772 g773 g774 g775 g776) ((lambda (g777) (if (memv g777 (quote (lexical))) g772 (if (memv g777 (quote (core))) (g772 g773 g774 g775 g776) (if (memv g777 (quote (lexical-call))) (g434 g772 g773 g774 g775 g776) (if (memv g777 (quote (constant))) (list (quote quote) (g450 (g394 g773 g775 g776) (quote (())))) (if (memv g777 (quote (global))) g772 (if (memv g777 (quote (call))) (g434 (g432 (car g773) g774 g775) g773 g774 g775 g776) (if (memv g777 (quote (begin-form))) ((lambda (g778) ((lambda (g779) (if g779 (apply (lambda (g780 g781 g782) (g395 (cons g781 g782) g774 g775 g776)) g779) (syntax-error g778))) ($syntax-dispatch g778 (quote (any any . each-any))))) g773) (if (memv g777 (quote (local-syntax-form))) (g445 g772 g773 g774 g775 g776 g395) (if (memv g777 (quote (eval-when-form))) ((lambda (g784) ((lambda (g785) (if g785 (apply (lambda (g786 g787 g788 g789) ((lambda (g790) (if (memq (quote eval) g790) (g395 (cons g788 g789) g774 g775 g776) (g446))) (g397 g773 g787 g775))) g785) (syntax-error g784))) ($syntax-dispatch g784 (quote (any each-any any . each-any))))) g773) (if (memv g777 (quote (define-form define-syntax-form module-form import-form))) (syntax-error (g394 g773 g775 g776) (quote "invalid context for definition")) (if (memv g777 (quote (syntax))) (syntax-error (g394 g773 g775 g776) (quote "reference to pattern variable outside syntax form")) (if (memv g777 (quote (displaced-lexical))) (g250 (g394 g773 g775 g776)) (syntax-error (g394 g773 g775 g776))))))))))))))) g771))) (g432 (lambda (g793 g794 g795) (call-with-values (lambda () (g398 g793 g794 g795 (quote #f) (quote #f))) (lambda (g796 g797 g798 g799 g800) (g433 g796 g797 g798 g794 g799 g800))))) (g431 (lambda (g801 g802 g803) ((lambda (g804) (if (memv g804 (quote (c))) (if (memq (quote compile) g802) ((lambda (g805) (begin (g91 g805) (if (memq (quote load) g802) g805 (g446)))) (g803)) (if (memq (quote load) g802) (g803) (g446))) (if (memv g804 (quote (c&e))) ((lambda (g806) (begin (g91 g806) g806)) (g803)) (begin (if (memq (quote eval) g802) (g91 (g803)) (void)) (g446))))) g801))) (g430 (lambda (g807 g808) (list (quote $sc-put-cte) (list (quote quote) g807) (list (quote quote) (g231 (quote do-import) g808))))) (g429 (lambda (g809 g810) ((lambda (g811) ((letrec ((g812 (lambda (g813) (if (not (= g813 g811)) (begin (g809 (vector-ref g810 g813)) (g812 (+ g813 (quote 1)))) (void))))) g812) (quote 0))) (vector-length g810)))) (g428 (lambda (g814 g815) ((letrec ((g816 (lambda (g817 g818) (if (< g817 (quote 0)) g818 (g816 (- g817 (quote 1)) (cons (g814 (vector-ref g815 g817)) g818)))))) g816) (- (vector-length g815) (quote 1)) (quote ())))) (g427 (lambda (g819 g820 g821 g822 g823 g824 g825 g826 g827) (letrec ((g830 (lambda (g831 g832) ((lambda (g833) (map (lambda (g834) ((lambda (g835) (if (not (g392 g835 g833)) g834 (g410 (g412 g834) g835 (g414 g834) (append (g829 g835) (g415 g834)) (g416 g834)))) (g413 g834))) g831)) (map (lambda (g836) (if (pair? g836) (car g836) g836)) g832)))) (g829 (lambda (g837) ((letrec ((g838 (lambda (g839) (if (null? g839) (quote ()) (if (if (pair? (car g839)) (g388 g837 (caar g839)) (quote #f)) (g401 (cdar g839)) (g838 (cdr g839))))))) g838) g823))) (g828 (lambda (g840 g841 g842) (begin (g426 g820 g841) (g425 g820 g824 g841) (g827 g840 g842))))) ((letrec ((g843 (lambda (g844 g845 g846 g847) (if (null? g844) (g828 g846 g845 g847) ((lambda (g848 g849) (call-with-values (lambda () (g398 g848 g849 (quote (())) (quote #f) g819)) (lambda (g850 g851 g852 g853 g854) ((lambda (g855) (if (memv g855 (quote (define-form))) (g442 g852 g853 g854 (lambda (g856 g857 g858) ((lambda (g859) ((lambda (g860) ((lambda (g861) ((lambda () (begin (g363 g819 g859 g860) (g843 (cdr g844) (cons g859 g845) (cons (g410 g850 g859 g860 g861 (cons g849 (g393 g857 g858))) g846) g847))))) (g829 g859))) (g300))) (g393 g856 g858)))) (if (memv g855 (quote (define-syntax-form))) (g443 g852 g853 g854 (lambda (g862 g863 g864) ((lambda (g865) ((lambda (g866) ((lambda (g867) ((lambda (g868) ((lambda () (begin (g424 g822 (g302 g866) (cons (quote deferred) g868)) (g363 g819 g865 g866) (g843 (cdr g844) (cons g865 g845) (cons (g410 g850 g865 g866 g867 g868) g846) g847))))) (g432 g863 (g249 g849) g864))) (g829 g865))) (g300))) (g393 g862 g864)))) (if (memv g855 (quote (module-form))) ((lambda (g869) ((lambda (g870) ((lambda () (g440 g852 g853 g854 g870 (lambda (g871 g872 g873) (g427 g869 (g394 g852 g853 g854) (map (lambda (g874) (cons g849 g874)) g873) g822 g872 (g401 g872) g825 g826 (lambda (g875 g876) ((lambda (g877) ((lambda (g878) ((lambda (g879) ((lambda () (if g871 ((lambda (g880 g881) (begin (g424 g822 (g302 g880) (g231 (quote module) g877)) (g363 g819 g871 g880) (g843 (cdr g844) (cons g871 g845) (cons (g410 g850 g871 g880 g881 g872) g878) g879))) (g300) (g829 g871)) ((lambda () (begin (g439 g877 g819) (g843 (cdr g844) (cons g877 g845) g878 g879)))))))) (append g847 g876))) (append (if g871 g875 (g830 g875 g872)) g846))) (g408 g872))))))))) (g263 (g264 g853) (cons g869 (g265 g853))))) (g304 (quote ()) (quote ()) (quote ()))) (if (memv g855 (quote (import-form))) (g441 g852 g853 g854 (lambda (g882) ((lambda (g883) ((lambda (g884) ((lambda (g885) (if (memv g885 (quote (module))) ((lambda (g886) (begin (if g851 (g364 g819 g851) (void)) (g439 g886 g819) (g843 (cdr g844) (cons g886 g845) (g830 g846 (vector->list (g404 g886))) g847))) (g233 g884)) (if (memv g885 (quote (displaced-lexical))) (g250 g882) (syntax-error g882 (quote "import from unknown module"))))) (g232 g884))) (g253 g883 g822))) (g377 g882 (quote (())))))) (if (memv g855 (quote (begin-form))) ((lambda (g887) ((lambda (g888) (if g888 (apply (lambda (g889 g890) (g843 ((letrec ((g891 (lambda (g892) (if (null? g892) (cdr g844) (cons (cons g849 (g393 (car g892) g853)) (g891 (cdr g892))))))) g891) g890) g845 g846 g847)) g888) (syntax-error g887))) ($syntax-dispatch g887 (quote (any . each-any))))) g852) (if (memv g855 (quote (local-syntax-form))) (g445 g851 g852 g849 g853 g854 (lambda (g894 g895 g896 g897) (g843 ((letrec ((g898 (lambda (g899) (if (null? g899) (cdr g844) (cons (cons g895 (g393 (car g899) g896)) (g898 (cdr g899))))))) g898) g894) g845 g846 g847))) (g828 g846 g845 (append g847 (cons (cons g849 (g394 g852 g853 g854)) (cdr g844))))))))))) g850)))) (cdar g844) (caar g844)))))) g843) g821 (quote ()) (quote ()) (quote ()))))) (g426 (lambda (g900 g901) (letrec ((g905 (lambda (g906 g907 g908) ((lambda (g909) (if g909 (if (g367 ((lambda (g910) ((lambda (g911) (if (g90 g911) (annotation-expression g911) g911)) (if (g204 g910) (g205 g910) g910))) g906) g909 (if (symbol? g906) (g264 (quote ((top)))) (g264 (g206 g906)))) (cons g906 g908) g908) (g903 (g404 g907) (lambda (g912 g913) (if (g902 g912 g906) (cons g912 g913) g913)) g908))) (g405 g907)))) (g904 (lambda (g914 g915 g916) (if (g403 g914) (if (g403 g915) (call-with-values (lambda () ((lambda (g917 g918) (if (fx> (vector-length g917) (vector-length g918)) (values g914 g918) (values g915 g917))) (g404 g914) (g404 g915))) (lambda (g919 g920) (g903 g920 (lambda (g921 g922) (g905 g921 g919 g922)) g916))) (g905 g915 g914 g916)) (if (g403 g915) (g905 g914 g915 g916) (if (g902 g914 g915) (cons g914 g916) g916))))) (g903 (lambda (g923 g924 g925) ((lambda (g926) ((letrec ((g927 (lambda (g928 g929) (if (= g928 g926) g929 (g927 (+ g928 (quote 1)) (g924 (vector-ref g923 g928) g929)))))) g927) (quote 0) g925)) (vector-length g923)))) (g902 (lambda (g930 g931) (if (symbol? g930) (if (symbol? g931) (eq? g930 g931) (if (eq? g930 ((lambda (g932) ((lambda (g933) (if (g90 g933) (annotation-expression g933) g933)) (if (g204 g932) (g205 g932) g932))) g931)) (g373 (g264 (g206 g931)) (g264 (quote ((top))))) (quote #f))) (if (symbol? g931) (if (eq? g931 ((lambda (g934) ((lambda (g935) (if (g90 g935) (annotation-expression g935) g935)) (if (g204 g934) (g205 g934) g934))) g930)) (g373 (g264 (g206 g930)) (g264 (quote ((top))))) (quote #f)) (g388 g930 g931)))))) (if (not (null? g901)) ((letrec ((g936 (lambda (g937 g938 g939) (if (null? g938) (if (not (null? g939)) ((lambda (g940) (syntax-error g900 (quote "duplicate definition for ") (symbol->string (car g940)) (quote " in"))) (syntax-object->datum g939)) (void)) ((letrec ((g941 (lambda (g942 g943) (if (null? g942) (g936 (car g938) (cdr g938) g943) (g941 (cdr g942) (g904 g937 (car g942) g943)))))) g941) g938 g939))))) g936) (car g901) (cdr g901) (quote ())) (void))))) (g425 (lambda (g944 g945 g946) (letrec ((g947 (lambda (g948 g949) (ormap (lambda (g950) (if (g403 g950) ((lambda (g951) (if g951 (g367 ((lambda (g952) ((lambda (g953) (if (g90 g953) (annotation-expression g953) g953)) (if (g204 g952) (g205 g952) g952))) g948) g951 (g264 (g206 g948))) ((lambda (g954) ((letrec ((g955 (lambda (g956) (if (fx>= g956 (quote 0)) ((lambda (g957) (if g957 g957 (g955 (- g956 (quote 1))))) (g388 g948 (vector-ref g954 g956))) (quote #f))))) g955) (- (vector-length g954) (quote 1)))) (g404 g950)))) (g405 g950)) (g388 g948 g950))) g949)))) ((letrec ((g958 (lambda (g959 g960) (if (null? g959) (if (not (null? g960)) (syntax-error g960 (quote "missing definition for export(s)")) (void)) ((lambda (g961 g962) (if (g947 g961 g946) (g958 g962 g960) (g958 g962 (cons g961 g960)))) (car g959) (cdr g959)))))) g958) g945 (quote ()))))) (g424 (lambda (g963 g964 g965) (set-cdr! g963 (g246 g964 g965 (cdr g963))))) (g423 (lambda (g966 g967) (if (null? g966) (quote ()) (if (g392 (car g966) g967) (g423 (cdr g966) g967) (cons (car g966) (g423 (cdr g966) g967)))))) (g422 (lambda (g968 g969 g970 g971 g972 g973 g974 g975 g976 g977) ((lambda (g978) (g427 g970 (g394 g968 g971 g972) (map (lambda (g979) (cons g969 g979)) g977) g969 g976 g978 g973 g974 (lambda (g980 g981) ((letrec ((g982 (lambda (g983 g984 g985 g986 g987) (if (null? g983) ((letrec ((g988 (lambda (g989 g990 g991) (if (null? g989) ((lambda (g992 g993 g994) (begin (for-each (lambda (g995) (apply (lambda (g996 g997 g998 g999) (if g997 (g303 g997 g998) (void))) g995)) g987) (g190 (quote #f) (list (g431 g973 g974 (lambda () (if (null? g987) (g446) (g190 (quote #f) (map (lambda (g1000) (apply (lambda (g1001 g1002 g1003 g1004) (list (quote $sc-put-cte) (list (quote quote) g1003) (if (eq? g1001 (quote define-syntax-form)) g1004 (list (quote quote) (g231 (quote module) (g409 g1004 g1003)))))) g1000)) g987))))) (g431 g973 g974 (lambda () ((lambda (g1005) ((lambda (g1006) ((lambda (g1007) ((lambda () (if g1005 (list (quote $sc-put-cte) (list (quote quote) (if (g373 (g264 (g206 g975)) (g264 (quote ((top))))) g1005 ((lambda (g1008) (g203 g1005 (g263 g1008 (list (g304 (vector g1005) (vector g1008) (vector (g101 g1005))))))) (g264 (g206 g975))))) g1007) ((lambda (g1009) (g190 (quote #f) (list (list (quote $sc-put-cte) (list (quote quote) g1009) g1007) (g430 g1009 g1006)))) (g101 (quote tmp))))))) (list (quote quote) (g231 (quote module) (g409 g976 g1006))))) (g101 g1005))) (if g975 ((lambda (g1010) ((lambda (g1011) (if (g90 g1011) (annotation-expression g1011) g1011)) (if (g204 g1010) (g205 g1010) g1010))) g975) (quote #f))))) (g190 (quote #f) (map (lambda (g1012) (list (quote define) g1012 (g446))) g985)) (g191 (quote #f) g990 g993 (g190 (quote #f) (list (if (null? g985) (g446) (g190 (quote #f) (map (lambda (g1013 g1014) (list (quote set!) g1013 g1014)) g985 g992))) (if (null? g994) (g446) (g190 (quote #f) g994))))) (g446))))) (map (lambda (g1015) (g432 (cdr g1015) (car g1015) (quote (())))) g986) (map (lambda (g1016) (g432 (cdr g1016) (car g1016) (quote (())))) g991) (map (lambda (g1017) (g432 (cdr g1017) (car g1017) (quote (())))) g981)) ((lambda (g1018) ((lambda (g1019) (if (memv g1019 (quote (define-form))) ((lambda (g1020) (begin (g424 g969 (g302 (g414 g1018)) (g231 (quote lexical) g1020)) (g988 (cdr g989) (cons g1020 g990) (cons (g416 g1018) g991)))) (g451 (g413 g1018))) (if (memv g1019 (quote (define-syntax-form module-form))) (g988 (cdr g989) g990 g991) (error (quote sc-expand-internal) (quote "unexpected module binding type"))))) (g412 g1018))) (car g989)))))) g988) g984 (quote ()) (quote ())) ((lambda (g1021 g1022) (letrec ((g1023 (lambda (g1024 g1025 g1026 g1027) ((letrec ((g1028 (lambda (g1029 g1030) (if (null? g1029) (g1027) (if (g388 (g413 (car g1029)) g1024) (g1026 (car g1029) (g370 (reverse g1030) (cdr g1029))) (g1028 (cdr g1029) (cons (car g1029) g1030))))))) g1028) g1025 (quote ()))))) (g1023 g1021 g984 (lambda (g1031 g1032) ((lambda (g1033 g1034 g1035) ((lambda (g1036 g1037) ((lambda (g1038) (if (memv g1038 (quote (define-form))) (begin (g303 g1034 g1037) (g982 g1036 g1032 (cons g1037 g985) (cons (g416 g1031) g986) g987)) (if (memv g1038 (quote (define-syntax-form))) (g982 g1036 g1032 g985 g986 (cons (list g1033 g1034 g1037 (g416 g1031)) g987)) (if (memv g1038 (quote (module-form))) ((lambda (g1039) (g982 (append (g401 g1039) g1036) g1032 g985 g986 (cons (list g1033 g1034 g1037 g1039) g987))) (g416 g1031)) (error (quote sc-expand-internal) (quote "unexpected module binding type")))))) g1033)) (append g1035 g1022) (g101 ((lambda (g1040) ((lambda (g1041) (if (g90 g1041) (annotation-expression g1041) g1041)) (if (g204 g1040) (g205 g1040) g1040))) g1021)))) (g412 g1031) (g414 g1031) (g415 g1031))) (lambda () (g982 g1022 g984 g985 g986 g987))))) (car g983) (cdr g983)))))) g982) g978 g980 (quote ()) (quote ()) (quote ()))))) (g401 g976)))) (g421 (lambda (g1042 g1043) (vector-set! g1042 (quote 5) g1043))) (g420 (lambda (g1044 g1045) (vector-set! g1044 (quote 4) g1045))) (g419 (lambda (g1046 g1047) (vector-set! g1046 (quote 3) g1047))) (g418 (lambda (g1048 g1049) (vector-set! g1048 (quote 2) g1049))) (g417 (lambda (g1050 g1051) (vector-set! g1050 (quote 1) g1051))) (g416 (lambda (g1052) (vector-ref g1052 (quote 5)))) (g415 (lambda (g1053) (vector-ref g1053 (quote 4)))) (g414 (lambda (g1054) (vector-ref g1054 (quote 3)))) (g413 (lambda (g1055) (vector-ref g1055 (quote 2)))) (g412 (lambda (g1056) (vector-ref g1056 (quote 1)))) (g411 (lambda (g1057) (if (vector? g1057) (if (= (vector-length g1057) (quote 6)) (eq? (vector-ref g1057 (quote 0)) (quote module-binding)) (quote #f)) (quote #f)))) (g410 (lambda (g1058 g1059 g1060 g1061 g1062) (vector (quote module-binding) g1058 g1059 g1060 g1061 g1062))) (g409 (lambda (g1063 g1064) (g402 (list->vector (map (lambda (g1065) (g369 (if (pair? g1065) (car g1065) g1065))) g1063)) g1064))) (g408 (lambda (g1066) (g402 (list->vector (map (lambda (g1067) (if (pair? g1067) (car g1067) g1067)) g1066)) (quote #f)))) (g407 (lambda (g1068 g1069) (vector-set! g1068 (quote 2) g1069))) (g406 (lambda (g1070 g1071) (vector-set! g1070 (quote 1) g1071))) (g405 (lambda (g1072) (vector-ref g1072 (quote 2)))) (g404 (lambda (g1073) (vector-ref g1073 (quote 1)))) (g403 (lambda (g1074) (if (vector? g1074) (if (= (vector-length g1074) (quote 3)) (eq? (vector-ref g1074 (quote 0)) (quote interface)) (quote #f)) (quote #f)))) (g402 (lambda (g1075 g1076) (vector (quote interface) g1075 g1076))) (g401 (lambda (g1077) ((letrec ((g1078 (lambda (g1079 g1080) (if (null? g1079) g1080 (g1078 (cdr g1079) (if (pair? (car g1079)) (g1078 (car g1079) g1080) (cons (car g1079) g1080))))))) g1078) g1077 (quote ())))) (g400 (lambda (g1081 g1082 g1083 g1084 g1085 g1086) (call-with-values (lambda () (g398 g1081 g1082 g1083 (quote #f) g1086)) (lambda (g1093 g1094 g1095 g1096 g1097) ((lambda (g1098) (if (memv g1098 (quote (begin-form))) ((lambda (g1099) ((lambda (g1100) (if g1100 (apply (lambda (g1101) (g446)) g1100) ((lambda (g1102) (if g1102 (apply (lambda (g1103 g1104 g1105) (g396 (cons g1104 g1105) g1082 g1096 g1097 g1084 g1085 g1086)) g1102) (syntax-error g1099))) ($syntax-dispatch g1099 (quote (any any . each-any)))))) ($syntax-dispatch g1099 (quote (any))))) g1095) (if (memv g1098 (quote (local-syntax-form))) (g445 g1094 g1095 g1082 g1096 g1097 (lambda (g1107 g1108 g1109 g1110) (g396 g1107 g1108 g1109 g1110 g1084 g1085 g1086))) (if (memv g1098 (quote (eval-when-form))) ((lambda (g1111) ((lambda (g1112) (if g1112 (apply (lambda (g1113 g1114 g1115 g1116) ((lambda (g1117 g1118) (if (eq? g1084 (quote e)) (if (memq (quote eval) g1117) (g396 g1118 g1082 g1096 g1097 (quote e) (quote (eval)) g1086) (g446)) (if (memq (quote load) g1117) (if ((lambda (g1119) (if g1119 g1119 (if (eq? g1084 (quote c&e)) (memq (quote eval) g1117) (quote #f)))) (memq (quote compile) g1117)) (g396 g1118 g1082 g1096 g1097 (quote c&e) (quote (compile load)) g1086) (if (memq g1084 (quote (c c&e))) (g396 g1118 g1082 g1096 g1097 (quote c) (quote (load)) g1086) (g446))) (if ((lambda (g1120) (if g1120 g1120 (if (eq? g1084 (quote c&e)) (memq (quote eval) g1117) (quote #f)))) (memq (quote compile) g1117)) (begin (g91 (g396 g1118 g1082 g1096 g1097 (quote e) (quote (eval)) g1086)) (g446)) (g446))))) (g397 g1095 g1114 g1096) (cons g1115 g1116))) g1112) (syntax-error g1111))) ($syntax-dispatch g1111 (quote (any each-any any . each-any))))) g1095) (if (memv g1098 (quote (define-syntax-form))) (g443 g1095 g1096 g1097 (lambda (g1123 g1124 g1125) ((lambda (g1126) (begin ((lambda (g1127) ((lambda (g1128) ((lambda (g1129) (if (memv g1129 (quote (displaced-lexical))) (g250 g1126) (void))) (g232 g1128))) (g253 g1127 g1082))) (g377 g1126 (quote (())))) (g431 g1084 g1085 (lambda () (list (quote $sc-put-cte) (list (quote quote) ((lambda (g1130) (if (g373 (g264 (g206 g1126)) (g264 (quote ((top))))) g1130 ((lambda (g1131) (g203 g1130 (g263 g1131 (list (g304 (vector g1130) (vector g1131) (vector (g101 g1130))))))) (g264 (g206 g1126))))) ((lambda (g1132) ((lambda (g1133) (if (g90 g1133) (annotation-expression g1133) g1133)) (if (g204 g1132) (g205 g1132) g1132))) g1126))) (g432 g1124 (g249 g1082) g1125)))))) (g393 g1123 g1125)))) (if (memv g1098 (quote (define-form))) (g442 g1095 g1096 g1097 (lambda (g1134 g1135 g1136) ((lambda (g1137) (begin ((lambda (g1138) ((lambda (g1139) ((lambda (g1140) (if (memv g1140 (quote (displaced-lexical))) (g250 g1137) (void))) (g232 g1139))) (g253 g1138 g1082))) (g377 g1137 (quote (())))) ((lambda (g1141) ((lambda (g1142) (g190 (quote #f) (list (g431 g1084 g1085 (lambda () (list (quote $sc-put-cte) (list (quote quote) (if (eq? g1141 g1142) g1141 ((lambda (g1143) (g203 g1141 (g263 g1143 (list (g304 (vector g1141) (vector g1143) (vector g1142)))))) (g264 (g206 g1137))))) (list (quote quote) (g231 (quote global) g1142))))) ((lambda (g1144) (begin (if (eq? g1084 (quote c&e)) (g91 g1144) (void)) g1144)) (list (quote define) g1142 (g432 g1135 g1082 g1136)))))) (if (g373 (g264 (g206 g1137)) (g264 (quote ((top))))) g1141 (g101 g1141)))) ((lambda (g1145) ((lambda (g1146) (if (g90 g1146) (annotation-expression g1146) g1146)) (if (g204 g1145) (g205 g1145) g1145))) g1137)))) (g393 g1134 g1136)))) (if (memv g1098 (quote (module-form))) ((lambda (g1147 g1148) (g440 g1095 g1096 g1097 (g263 (g264 g1096) (cons g1148 (g265 g1096))) (lambda (g1149 g1150 g1151) (if g1149 (begin ((lambda (g1152) ((lambda (g1153) ((lambda (g1154) (if (memv g1154 (quote (displaced-lexical))) (g250 (g393 g1149 g1096)) (void))) (g232 g1153))) (g253 g1152 g1147))) (g377 g1149 (quote (())))) (g422 g1095 g1147 g1148 g1096 g1097 g1084 g1085 g1149 g1150 g1151)) (g422 g1095 g1147 g1148 g1096 g1097 g1084 g1085 (quote #f) g1150 g1151))))) (cons (quote ("top-level module placeholder" placeholder)) g1082) (g304 (quote ()) (quote ()) (quote ()))) (if (memv g1098 (quote (import-form))) (g441 g1095 g1096 g1097 (lambda (g1155) (g431 g1084 g1085 (lambda () (begin (if g1094 (syntax-error (g394 g1095 g1096 g1097) (quote "not valid at top-level")) (void)) ((lambda (g1156) ((lambda (g1157) (if (memv g1157 (quote (module))) (g430 g1155 (g405 (g233 g1156))) (if (memv g1157 (quote (displaced-lexical))) (g250 g1155) (syntax-error g1155 (quote "import from unknown module"))))) (g232 g1156))) (g253 (g377 g1155 (quote (()))) (quote ())))))))) ((lambda (g1158) (begin (if (eq? g1084 (quote c&e)) (g91 g1158) (void)) g1158)) (g433 g1093 g1094 g1095 g1082 g1096 g1097)))))))))) g1093))))) (g399 (lambda (g1159 g1160 g1161 g1162) (call-with-values (lambda () (g398 g1159 g1160 g1161 (quote #f) g1162)) (lambda (g1163 g1164 g1165 g1166 g1167) (g433 g1163 g1164 g1165 g1160 g1166 g1167))))) (g398 (lambda (g1168 g1169 g1170 g1171 g1172) (if (symbol? g1168) ((lambda (g1173) ((lambda (g1174) ((lambda (g1175) ((lambda () ((lambda (g1176) (if (memv g1176 (quote (lexical))) (values g1175 (g233 g1174) g1168 g1170 g1171) (if (memv g1176 (quote (global))) (values g1175 (g233 g1174) g1168 g1170 g1171) (if (memv g1176 (quote (macro macro!))) (g398 (g436 (g233 g1174) g1168 g1169 g1170 g1171 g1172) g1169 (quote (())) (quote #f) g1172) (values g1175 (g233 g1174) g1168 g1170 g1171))))) g1175)))) (g232 g1174))) (g253 g1173 g1169))) (g377 g1168 g1170)) (if (pair? g1168) ((lambda (g1177) (if (g256 g1177) ((lambda (g1178) ((lambda (g1179) ((lambda (g1180) ((lambda () ((lambda (g1181) (if (memv g1181 (quote (lexical))) (values (quote lexical-call) (g233 g1179) g1168 g1170 g1171) (if (memv g1181 (quote (macro macro!))) (g398 (g436 (g233 g1179) g1168 g1169 g1170 g1171 g1172) g1169 (quote (())) (quote #f) g1172) (if (memv g1181 (quote (core))) (values g1180 (g233 g1179) g1168 g1170 g1171) (if (memv g1181 (quote (local-syntax))) (values (quote local-syntax-form) (g233 g1179) g1168 g1170 g1171) (if (memv g1181 (quote (begin))) (values (quote begin-form) (quote #f) g1168 g1170 g1171) (if (memv g1181 (quote (eval-when))) (values (quote eval-when-form) (quote #f) g1168 g1170 g1171) (if (memv g1181 (quote (define))) (values (quote define-form) (quote #f) g1168 g1170 g1171) (if (memv g1181 (quote (define-syntax))) (values (quote define-syntax-form) (quote #f) g1168 g1170 g1171) (if (memv g1181 (quote (module-key))) (values (quote module-form) (quote #f) g1168 g1170 g1171) (if (memv g1181 (quote (import))) (values (quote import-form) (if (g233 g1179) (g393 g1177 g1170) (quote #f)) g1168 g1170 g1171) (if (memv g1181 (quote (set!))) (g435 g1168 g1169 g1170 g1171 g1172) (values (quote call) (quote #f) g1168 g1170 g1171))))))))))))) g1180)))) (g232 g1179))) (g253 g1178 g1169))) (g377 g1177 g1170)) (values (quote call) (quote #f) g1168 g1170 g1171))) (car g1168)) (if (g204 g1168) (g398 (g205 g1168) g1169 (g371 g1170 (g206 g1168)) (quote #f) g1172) (if (g90 g1168) (g398 (annotation-expression g1168) g1169 g1170 (annotation-source g1168) g1172) (if ((lambda (g1182) ((lambda (g1183) (if g1183 g1183 ((lambda (g1184) (if g1184 g1184 ((lambda (g1185) (if g1185 g1185 ((lambda (g1186) (if g1186 g1186 (null? g1182))) (char? g1182)))) (string? g1182)))) (number? g1182)))) (boolean? g1182))) g1168) (values (quote constant) (quote #f) g1168 g1170 g1171) (values (quote other) (quote #f) g1168 g1170 g1171)))))))) (g397 (lambda (g1187 g1188 g1189) ((letrec ((g1190 (lambda (g1191 g1192) (if (null? g1191) g1192 (g1190 (cdr g1191) (cons ((lambda (g1193) (if (g378 g1193 (quote #(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list situations) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))))) (quote compile) (if (g378 g1193 (quote #(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list situations) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))))) (quote load) (if (g378 g1193 (quote #(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list situations) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-define-syntax parse-define parse-import parse-module do-import! chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi ct-eval/residualize do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports extend-store! id-set-diff chi-top-module set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-trimmed-interface set-interface-token! set-interface-exports! interface-token interface-exports interface? make-interface flatten-exports chi-top chi-top-expr syntax-type chi-when-list chi-top-sequence chi-sequence source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks same-marks? join-marks join-wraps smart-append make-trimmed-syntax-object make-binding-wrap lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! extend-ribcage! make-empty-ribcage import-token-key import-token? make-import-token barrier-marker new-mark anti-mark the-anti-mark only-top-marked? top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage set-indirect-label! get-indirect-label indirect-label? gen-indirect-label gen-labels label? gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup sanitize-binding lookup* displaced-lexical-error transformer-env extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-sequence build-data build-primref build-lambda build-cte-install build-module-definition build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id get-import-binding get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()) #(ribcage ((import-token . *top*)) () ()))))) (quote eval) (syntax-error (g393 g1193 g1189) (quote "invalid eval-when situation")))))) (car g1191)) g1192)))))) g1190) g1188 (quote ())))) (g396 (lambda (g1194 g1195 g1196 g1197 g1198 g1199 g1200) (g190 g1197 ((letrec ((g1201 (lambda (g1202 g1203 g1204 g1205 g1206) (if (null? g1202) (quote ()) ((lambda (g1207) (cons g1207 (g1201 (cdr g1202) g1203 g1204 g1205 g1206))) (g400 (car g1202) g1203 g1204 g1205 g1206 g1200)))))) g1201) g1194 g1195 g1196 g1198 g1199)))) (g395 (lambda (g1208 g1209 g1210 g1211) (g190 g1211 ((letrec ((g1212 (lambda (g1213 g1214 g1215) (if (null? g1213) (quote ()) ((lambda (g1216) (cons g1216 (g1212 (cdr g1213) g1214 g1215))) (g432 (car g1213) g1214 g1215)))))) g1212) g1208 g1209 g1210)))) (g394 (lambda (g1217 g1218 g1219) (g393 (if g1219 (make-annotation g1217 g1219 (quote #f)) g1217) g1218))) (g393 (lambda (g1220 g1221) (if (if (null? (g264 g1221)) (null? (g265 g1221)) (quote #f)) g1220 (if (g204 g1220) (g203 (g205 g1220) (g371 g1221 (g206 g1220))) (if (null? g1220) g1220 (g203 g1220 g1221)))))) (g392 (lambda (g1222 g1223) (if (not (null? g1223)) ((lambda (g1224) (if g1224 g1224 (g392 g1222 (cdr g1223)))) (g388 g1222 (car g1223))) (quote #f)))) (g391 (lambda (g1225 g1226 g1227) ((letrec ((g1228 (lambda (g1229 g1230) (if (null? g1229) (syntax-error g1226) (if (g256 (car g1229)) (if (g392 (car g1229) g1230) (syntax-error (car g1229) (quote "duplicate ") g1227) (g1228 (cdr g1229) (cons (car g1229) g1230))) (syntax-error (car g1229) (quote "invalid ") g1227)))))) g1228) g1225 (quote ())))) (g390 (lambda (g1231) ((letrec ((g1232 (lambda (g1233) ((lambda (g1234) (if g1234 g1234 (if (not (g392 (car g1233) (cdr g1233))) (g1232 (cdr g1233)) (quote #f)))) (null? g1233))))) g1232) g1231))) (g389 (lambda (g1235) (if ((letrec ((g1236 (lambda (g1237) ((lambda (g1238) (if g1238 g1238 (if (g256 (car g1237)) (g1236 (cdr g1237)) (quote #f)))) (null? g1237))))) g1236) g1235) (g390 g1235) (quote #f)))) (g388 (lambda (g1239 g1240) (if (if (g204 g1239) (g204 g1240) (quote #f)) (if (eq? ((lambda (g1241) (if (g90 g1241) (annotation-expression g1241) g1241)) (g205 g1239)) ((lambda (g1242) (if (g90 g1242) (annotation-expression g1242) g1242)) (g205 g1240))) (g373 (g264 (g206 g1239)) (g264 (g206 g1240))) (quote #f)) (eq? ((lambda (g1243) (if (g90 g1243) (annotation-expression g1243) g1243)) g1239) ((lambda (g1244) (if (g90 g1244) (annotation-expression g1244) g1244)) g1240))))) (g378 (lambda (g1245 g1246) (if (eq? ((lambda (g1247) ((lambda (g1248) (if (g90 g1248) (annotation-expression g1248) g1248)) (if (g204 g1247) (g205 g1247) g1247))) g1245) ((lambda (g1249) ((lambda (g1250) (if (g90 g1250) (annotation-expression g1250) g1250)) (if (g204 g1249) (g205 g1249) g1249))) g1246)) (eq? (g377 g1245 (quote (()))) (g377 g1246 (quote (())))) (quote #f)))) (g377 (lambda (g1251 g1252) (call-with-values (lambda () (g374 g1251 g1252)) (lambda (g1253 g1254) (if (g301 g1253) (g302 g1253) g1253))))) (g376 (lambda (g1255 g1256) (call-with-values (lambda () (g374 g1255 g1256)) (lambda (g1257 g1258) g1257)))) (g375 (lambda (g1259 g1260) (call-with-values (lambda () (g374 g1259 g1260)) (lambda (g1261 g1262) (values (if (g301 g1261) (g302 g1261) g1261) g1262))))) (g374 (lambda (g1263 g1264) (letrec ((g1267 (lambda (g1268 g1269 g1270 g1271 g1272) ((lambda (g1273) ((letrec ((g1274 (lambda (g1275) (if (= g1275 g1273) (g1265 g1268 (cdr g1269) g1270) (if (if (eq? (vector-ref g1271 g1275) g1268) (g373 g1270 (vector-ref (g307 g1272) g1275)) (quote #f)) (values (vector-ref (g308 g1272) g1275) g1270) (g1274 (+ g1275 (quote 1)))))))) g1274) (quote 0))) (vector-length g1271)))) (g1266 (lambda (g1276 g1277 g1278 g1279 g1280) ((letrec ((g1281 (lambda (g1282 g1283) (if (null? g1282) (g1265 g1276 (cdr g1277) g1278) (if (if (eq? (car g1282) g1276) (g373 g1278 (list-ref (g307 g1280) g1283)) (quote #f)) (values (list-ref (g308 g1280) g1283) g1278) (if (g357 (car g1282)) ((lambda (g1284) (if g1284 ((lambda (g1285) (if (symbol? g1285) (values g1285 g1278) (g375 g1285 (quote (()))))) g1284) (g1281 (cdr g1282) g1283))) (g367 g1276 (g358 (car g1282)) g1278)) (if (if (eq? (car g1282) g354) (g373 g1278 (list-ref (g307 g1280) g1283)) (quote #f)) (values (quote #f) g1278) (g1281 (cdr g1282) (+ g1283 (quote 1)))))))))) g1281) g1279 (quote 0)))) (g1265 (lambda (g1286 g1287 g1288) (if (null? g1287) (values g1286 g1288) ((lambda (g1289) (if (eq? g1289 (quote shift)) (g1265 g1286 (cdr g1287) (cdr g1288)) ((lambda (g1290) (if (vector? g1290) (g1267 g1286 g1287 g1288 g1290 g1289) (g1266 g1286 g1287 g1288 g1290 g1289))) (g306 g1289)))) (car g1287)))))) (if (symbol? g1263) (g1265 g1263 (g265 g1264) (g264 g1264)) (if (g204 g1263) ((lambda (g1291 g1292) ((lambda (g1293) (call-with-values (lambda () (g1265 g1291 (g265 g1264) g1293)) (lambda (g1294 g1295) (if (eq? g1294 g1291) (g1265 g1291 (g265 g1292) g1295) (values g1294 g1295))))) (g372 (g264 g1264) (g264 g1292)))) ((lambda (g1296) (if (g90 g1296) (annotation-expression g1296) g1296)) (g205 g1263)) (g206 g1263)) (if (g90 g1263) (g1265 ((lambda (g1297) (if (g90 g1297) (annotation-expression g1297) g1297)) g1263) (g265 g1264) (g264 g1264)) (g93 (quote id-var-name) (quote "invalid id") g1263))))))) (g373 (lambda (g1298 g1299) ((lambda (g1300) (if g1300 g1300 (if (not (null? g1298)) (if (not (null? g1299)) (if (eq? (car g1298) (car g1299)) (g373 (cdr g1298) (cdr g1299)) (quote #f)) (quote #f)) (quote #f)))) (eq? g1298 g1299)))) (g372 (lambda (g1301 g1302) (g370 g1301 g1302))) (g371 (lambda (g1303 g1304) ((lambda (g1305 g1306) (if (null? g1305) (if (null? g1306) g1304 (g263 (g264 g1304) (g370 g1306 (g265 g1304)))) (g263 (g370 g1305 (g264 g1304)) (g370 g1306 (g265 g1304))))) (g264 g1303) (g265 g1303)))) (g370 (lambda (g1307 g1308) (if (null? g1308) g1307 (append g1307 g1308)))) (g369 (lambda (g1309) (call-with-values (lambda () (g375 g1309 (quote (())))) (lambda (g1310 g1311) (begin (if (not g1310) (syntax-error g1309 (quote "identifier not visible for export")) (void)) ((lambda (g1312) (g203 g1312 (g263 g1311 (list (g304 (vector g1312) (vector g1311) (vector g1310)))))) ((lambda (g1313) ((lambda (g1314) (if (g90 g1314) (annotation-expression g1314) g1314)) (if (g204 g1313) (g205 g1313) g1313))) g1309))))))) (g368 (lambda (g1315 g1316 g1317) (if (null? g1315) g1317 (g263 (g264 g1317) (cons ((lambda (g1318) ((lambda (g1319) ((lambda (g1320 g1321) (begin ((letrec ((g1322 (lambda (g1323 g1324) (if (not (null? g1323)) (call-with-values (lambda () (g262 (car g1323) g1317)) (lambda (g1325 g1326) (begin (vector-set! g1320 g1324 g1325) (vector-set! g1321 g1324 g1326) (g1322 (cdr g1323) (+ g1324 (quote 1)))))) (void))))) g1322) g1315 (quote 0)) (g304 g1320 g1321 g1318))) (make-vector g1319) (make-vector g1319))) (vector-length g1318))) (list->vector g1316)) (g265 g1317)))))) (g367 (lambda (g1327 g1328 g1329) ((lambda (g1330) (if g1330 ((letrec ((g1331 (lambda (g1332) (if (pair? g1332) ((lambda (g1333) (if g1333 g1333 (g1331 (cdr g1332)))) (g1331 (car g1332))) (if (g373 g1329 (g264 (g206 g1332))) g1332 (quote #f)))))) g1331) g1330) (quote #f))) (g100 g1327 g1328)))) (g366 (lambda (g1334 g1335) (g309 g1334 (cons (g356 g1335) (g306 g1334))))) (g365 (lambda (g1336 g1337) (begin (g309 g1336 (cons g354 (g306 g1336))) (g310 g1336 (cons (g264 g1337) (g307 g1336)))))) (g364 (lambda (g1338 g1339) (g365 g1338 (g206 g1339)))) (g363 (lambda (g1340 g1341 g1342) (begin (g309 g1340 (cons ((lambda (g1343) (if (g90 g1343) (annotation-expression g1343) g1343)) (g205 g1341)) (g306 g1340))) (g310 g1340 (cons (g264 (g206 g1341)) (g307 g1340))) (g311 g1340 (cons g1342 (g308 g1340)))))) (g358 cdr) (g357 (lambda (g1344) (if (pair? g1344) (eq? (car g1344) g355) (quote #f)))) (g356 (lambda (g1345) (cons g355 g1345))) (g355 (quote import-token)) (g354 (quote #f)) (g349 (lambda (g1346) (g263 (cons (quote #f) (g264 g1346)) (cons (quote shift) (g265 g1346))))) (g311 (lambda (g1347 g1348) (vector-set! g1347 (quote 3) g1348))) (g310 (lambda (g1349 g1350) (vector-set! g1349 (quote 2) g1350))) (g309 (lambda (g1351 g1352) (vector-set! g1351 (quote 1) g1352))) (g308 (lambda (g1353) (vector-ref g1353 (quote 3)))) (g307 (lambda (g1354) (vector-ref g1354 (quote 2)))) (g306 (lambda (g1355) (vector-ref g1355 (quote 1)))) (g305 (lambda (g1356) (if (vector? g1356) (if (= (vector-length g1356) (quote 4)) (eq? (vector-ref g1356 (quote 0)) (quote ribcage)) (quote #f)) (quote #f)))) (g304 (lambda (g1357 g1358 g1359) (vector (quote ribcage) g1357 g1358 g1359))) (g303 set-car!) (g302 car) (g301 pair?) (g300 (lambda () (list (g297)))) (g299 (lambda (g1360) (if (null? g1360) (quote ()) (cons (g297) (g299 (cdr g1360)))))) (g298 (lambda (g1361) ((lambda (g1362) (if g1362 g1362 ((lambda (g1363) (if g1363 g1363 (g301 g1361))) (symbol? g1361)))) (string? g1361)))) (g297 (lambda () (string (quote #\i)))) (g265 cdr) (g264 car) (g263 cons) (g262 (lambda (g1364 g1365) (if (g204 g1364) (values ((lambda (g1366) (if (g90 g1366) (annotation-expression g1366) g1366)) (g205 g1364)) (g372 (g264 g1365) (g264 (g206 g1364)))) (values ((lambda (g1367) (if (g90 g1367) (annotation-expression g1367) g1367)) g1364) (g264 g1365))))) (g256 (lambda (g1368) (if (symbol? g1368) (quote #t) (if (g204 g1368) (symbol? ((lambda (g1369) (if (g90 g1369) (annotation-expression g1369) g1369)) (g205 g1368))) (if (g90 g1368) (symbol? (annotation-expression g1368)) (quote #f)))))) (g255 (lambda (g1370) (if (g204 g1370) (symbol? ((lambda (g1371) (if (g90 g1371) (annotation-expression g1371) g1371)) (g205 g1370))) (quote #f)))) (g254 (lambda (g1372 g1373 g1374) (g98 g1373 (g231 g1372 g1374)))) (g253 (lambda (g1375 g1376) (letrec ((g1377 (lambda (g1378 g1379) (begin (g234 g1378 (g232 g1379)) (g235 g1378 (g233 g1379)))))) ((lambda (g1380) ((lambda (g1381) (if (memv g1381 (quote (deferred))) (begin (g1377 g1380 ((lambda (g1382) ((lambda (g1383) (if g1383 g1383 (syntax-error g1382 (quote "invalid transformer")))) (g252 g1382))) (g92 (g233 g1380)))) ((lambda (g1384) g1380) (g232 g1380))) g1380)) (g232 g1380))) (g251 g1375 g1376))))) (g252 (lambda (g1385) (if (procedure? g1385) (g231 (quote macro) g1385) (if (g236 g1385) ((lambda (g1386) (if (memv g1386 (quote (core macro macro!))) (if (procedure? (g233 g1385)) g1385 (quote #f)) (if (memv g1386 (quote (module))) (if (g403 (g233 g1385)) g1385 (quote #f)) g1385))) (g232 g1385)) (quote #f))))) (g251 (lambda (g1387 g1388) ((lambda (g1389) (if g1389 (cdr g1389) (if (symbol? g1387) ((lambda (g1390) (if g1390 g1390 (g231 (quote global) g1387))) (g99 g1387)) (g231 (quote displaced-lexical) (quote #f))))) (assq g1387 g1388)))) (g250 (lambda (g1391) (syntax-error g1391 (if (g377 g1391 (quote (()))) (quote "identifier out of context") (quote "identifier not visible"))))) (g249 (lambda (g1392) (if (null? g1392) (quote ()) ((lambda (g1393) (if (eq? (cadr g1393) (quote lexical)) (g249 (cdr g1392)) (cons g1393 (g249 (cdr g1392))))) (car g1392))))) (g248 (lambda (g1394 g1395 g1396) (if (null? g1394) g1396 (g248 (cdr g1394) (cdr g1395) (g246 (car g1394) (g231 (quote lexical) (car g1395)) g1396))))) (g247 (lambda (g1397 g1398 g1399) (if (null? g1397) g1399 (g247 (cdr g1397) (cdr g1398) (g246 (car g1397) (car g1398) g1399))))) (g246 (lambda (g1400 g1401 g1402) (cons (cons g1400 g1401) g1402))) (g236 (lambda (g1403) (if (pair? g1403) (symbol? (car g1403)) (quote #f)))) (g235 set-cdr!) (g234 set-car!) (g233 cdr) (g232 car) (g231 (lambda (g1404 g1405) (cons g1404 g1405))) (g223 (lambda (g1406) (if (g90 g1406) (annotation-source g1406) (if (g204 g1406) (g223 (g205 g1406)) (quote #f))))) (g208 (lambda (g1407 g1408) (vector-set! g1407 (quote 2) g1408))) (g207 (lambda (g1409 g1410) (vector-set! g1409 (quote 1) g1410))) (g206 (lambda (g1411) (vector-ref g1411 (quote 2)))) (g205 (lambda (g1412) (vector-ref g1412 (quote 1)))) (g204 (lambda (g1413) (if (vector? g1413) (if (= (vector-length g1413) (quote 3)) (eq? (vector-ref g1413 (quote 0)) (quote syntax-object)) (quote #f)) (quote #f)))) (g203 (lambda (g1414 g1415) (vector (quote syntax-object) g1414 g1415))) (g191 (lambda (g1416 g1417 g1418 g1419) (if (null? g1417) g1419 (list (quote letrec) (map list g1417 g1418) g1419)))) (g190 (lambda (g1420 g1421) (if (null? (cdr g1421)) (car g1421) (cons (quote begin) g1421)))) (g101 ((lambda (g1422) (letrec ((g1425 (lambda (g1426) ((letrec ((g1427 (lambda (g1428 g1429) (if (< g1428 g1422) (list->string (cons (g1424 g1428) g1429)) ((lambda (g1430 g1431) (g1427 g1431 (cons (g1424 g1430) g1429))) (modulo g1428 g1422) (quotient g1428 g1422)))))) g1427) g1426 (quote ())))) (g1424 (lambda (g1432) (integer->char (+ g1432 (quote 33))))) (g1423 (lambda () (quote 0)))) ((lambda (g1433 g1434) (lambda (g1435) (begin (set! g1434 (+ g1434 (quote 1))) ((lambda (g1436) g1436) (string->symbol (string-append (quote "#") g1433 (g1425 g1434))))))) (g1425 (g1423)) (quote -1)))) (- (quote 127) (quote 32) (quote 2)))) (g100 (lambda (g1437 g1438) (getprop g1437 g1438))) (g99 (lambda (g1439) (getprop g1439 (quote *sc-expander*)))) (g98 (lambda (g1440 g1441) ($sc-put-cte g1440 g1441))) (g93 (lambda (g1442 g1443 g1444) (error g1443 g1444))) (g92 sc-eval) (g91 sc-eval) (g90 (lambda (g1445) (quote #f))) (g53 (quote "noexpand"))) (begin (set! $sc-put-cte (lambda (g1446 g1447) (letrec ((g1450 (lambda (g1451 g1452) ((lambda (g1453) (putprop g1453 (quote *sc-expander*) g1452)) (if (symbol? g1451) g1451 (g377 g1451 (quote (()))))))) (g1449 (lambda (g1454 g1455) (g429 (lambda (g1456) (g1448 g1456 g1455)) g1454))) (g1448 (lambda (g1457 g1458) (letrec ((g1460 (lambda (g1461 g1462) (if (pair? g1462) (if (g388 (car g1462) g1461) (g1460 g1461 (cdr g1462)) (g1459 (car g1462) (g1460 g1461 (cdr g1462)))) (if ((lambda (g1463) (if g1463 g1463 (g388 g1462 g1461))) (not g1462)) (quote #f) g1462)))) (g1459 (lambda (g1464 g1465) (if (not g1465) g1464 (cons g1464 g1465))))) ((lambda (g1466) ((lambda (g1467) (if (if (not g1467) (symbol? g1457) (quote #f)) (remprop g1466 g1458) (putprop g1466 g1458 (g1459 g1457 g1467)))) (g1460 g1457 (getprop g1466 g1458)))) ((lambda (g1468) ((lambda (g1469) (if (g90 g1469) (annotation-expression g1469) g1469)) (if (g204 g1468) (g205 g1468) g1468))) g1457)))))) ((lambda (g1470) ((lambda (g1471) (if (memv g1471 (quote (module))) (begin ((lambda (g1472) (g1449 (g404 g1472) (g405 g1472))) (g233 g1470)) (g1450 g1446 g1470)) (if (memv g1471 (quote (do-import))) ((lambda (g1473) ((lambda (g1474) ((lambda (g1475) (if (memv g1475 (quote (module))) ((lambda (g1476) (begin (if (not (eq? (g405 g1476) g1473)) (syntax-error g1446 (quote "import mismatch for module")) (void)) (g1449 (g404 g1476) (quote *top*)))) (g233 g1474)) (syntax-error g1446 (quote "import from unknown module")))) (g232 g1474))) (g253 (g377 g1446 (quote (()))) (quote ())))) (g233 g1447)) (g1450 g1446 g1470)))) (g232 g1470))) ((lambda (g1477) (if g1477 g1477 (error (quote define-syntax) (quote "invalid transformer ~s") g1447))) (g252 g1447)))))) (g254 (quote local-syntax) (quote letrec-syntax) (quote #t)) (g254 (quote local-syntax) (quote let-syntax) (quote #f)) (g254 (quote core) (quote fluid-let-syntax) (lambda (g1478 g1479 g1480 g1481) ((lambda (g1482) ((lambda (g1483) (if (if g1483 (apply (lambda (g1484 g1485 g1486 g1487 g1488) (g389 g1485)) g1483) (quote #f)) (apply (lambda (g1490 g1491 g1492 g1493 g1494) ((lambda (g1495) (begin (for-each (lambda (g1496 g1497) ((lambda (g1498) (if (memv g1498 (quote (displaced-lexical))) (g250 (g393 g1496 g1480)) (void))) (g232 (g253 g1497 g1479)))) g1491 g1495) (g437 (cons g1493 g1494) (g394 g1478 g1480 g1481) (g247 g1495 ((lambda (g1501) (map (lambda (g1502) (g231 (quote deferred) (g432 g1502 g1501 g1480))) g1492)) (g249 g1479)) g1479) g1480))) (map (lambda (g1504) (g377 g1504 g1480)) g1491))) g1483) ((lambda (g1506) (syntax-error (g394 g1478 g1480 g1481))) g1482))) ($syntax-dispatch g1482 (quote (any #(each (any any)) any . each-any))))) g1478))) (g254 (quote core) (quote quote) (lambda (g1507 g1508 g1509 g1510) ((lambda (g1511) ((lambda (g1512) (if g1512 (apply (lambda (g1513 g1514) (list (quote quote) (g450 g1514 g1509))) g1512) ((lambda (g1515) (syntax-error (g394 g1507 g1509 g1510))) g1511))) ($syntax-dispatch g1511 (quote (any any))))) g1507))) (g254 (quote core) (quote syntax) ((lambda () (letrec ((g1523 (lambda (g1524) ((lambda (g1525) (if (memv g1525 (quote (ref))) (cadr g1524) (if (memv g1525 (quote (primitive))) (cadr g1524) (if (memv g1525 (quote (quote))) (list (quote quote) (cadr g1524)) (if (memv g1525 (quote (lambda))) (list (quote lambda) (cadr g1524) (g1523 (caddr g1524))) (if (memv g1525 (quote (map))) ((lambda (g1526) (cons (if (= (length g1526) (quote 2)) (quote map) (quote map)) g1526)) (map g1523 (cdr g1524))) (cons (car g1524) (map g1523 (cdr g1524))))))))) (car g1524)))) (g1522 (lambda (g1527) (if (eq? (car g1527) (quote list)) (cons (quote vector) (cdr g1527)) (if (eq? (car g1527) (quote quote)) (list (quote quote) (list->vector (cadr g1527))) (list (quote list->vector) g1527))))) (g1521 (lambda (g1528 g1529) (if (equal? g1529 (quote (quote ()))) g1528 (list (quote append) g1528 g1529)))) (g1520 (lambda (g1530 g1531) ((lambda (g1532) (if (memv g1532 (quote (quote))) (if (eq? (car g1530) (quote quote)) (list (quote quote) (cons (cadr g1530) (cadr g1531))) (if (eq? (cadr g1531) (quote ())) (list (quote list) g1530) (list (quote cons) g1530 g1531))) (if (memv g1532 (quote (list))) (cons (quote list) (cons g1530 (cdr g1531))) (list (quote cons) g1530 g1531)))) (car g1531)))) (g1519 (lambda (g1533 g1534) ((lambda (g1535 g1536) (if (eq? (car g1533) (quote ref)) (car g1536) (if (andmap (lambda (g1537) (if (eq? (car g1537) (quote ref)) (memq (cadr g1537) g1535) (quote #f))) (cdr g1533)) (cons (quote map) (cons (list (quote primitive) (car g1533)) (map ((lambda (g1538) (lambda (g1539) (cdr (assq (cadr g1539) g1538)))) (map cons g1535 g1536)) (cdr g1533)))) (cons (quote map) (cons (list (quote lambda) g1535 g1533) g1536))))) (map cdr g1534) (map (lambda (g1540) (list (quote ref) (car g1540))) g1534)))) (g1518 (lambda (g1541 g1542) (list (quote apply) (quote (primitive append)) (g1519 g1541 g1542)))) (g1517 (lambda (g1543 g1544 g1545 g1546) (if (= g1545 (quote 0)) (values g1544 g1546) (if (null? g1546) (syntax-error g1543 (quote "missing ellipsis in syntax form")) (call-with-values (lambda () (g1517 g1543 g1544 (- g1545 (quote 1)) (cdr g1546))) (lambda (g1547 g1548) ((lambda (g1549) (if g1549 (values (cdr g1549) g1546) ((lambda (g1550) (values g1550 (cons (cons (cons g1547 g1550) (car g1546)) g1548))) (g451 (quote tmp))))) (assq g1547 (car g1546))))))))) (g1516 (lambda (g1551 g1552 g1553 g1554 g1555) (if (g256 g1552) ((lambda (g1556) ((lambda (g1557) (if (eq? (g232 g1557) (quote syntax)) (call-with-values (lambda () ((lambda (g1558) (g1517 g1551 (car g1558) (cdr g1558) g1554)) (g233 g1557))) (lambda (g1559 g1560) (values (list (quote ref) g1559) g1560))) (if (g1555 g1552) (syntax-error g1551 (quote "misplaced ellipsis in syntax form")) (values (list (quote quote) g1552) g1554)))) (g253 g1556 g1553))) (g377 g1552 (quote (())))) ((lambda (g1561) ((lambda (g1562) (if (if g1562 (apply (lambda (g1563 g1564) (g1555 g1563)) g1562) (quote #f)) (apply (lambda (g1565 g1566) (g1516 g1551 g1566 g1553 g1554 (lambda (g1567) (quote #f)))) g1562) ((lambda (g1568) (if (if g1568 (apply (lambda (g1569 g1570 g1571) (g1555 g1570)) g1568) (quote #f)) (apply (lambda (g1572 g1573 g1574) ((letrec ((g1575 (lambda (g1576 g1577) ((lambda (g1578) ((lambda (g1579) (if (if g1579 (apply (lambda (g1580 g1581) (g1555 g1580)) g1579) (quote #f)) (apply (lambda (g1582 g1583) (g1575 g1583 (lambda (g1584) (call-with-values (lambda () (g1577 (cons (quote ()) g1584))) (lambda (g1585 g1586) (if (null? (car g1586)) (syntax-error g1551 (quote "extra ellipsis in syntax form")) (values (g1518 g1585 (car g1586)) (cdr g1586)))))))) g1579) ((lambda (g1587) (call-with-values (lambda () (g1516 g1551 g1576 g1553 g1554 g1555)) (lambda (g1588 g1589) (call-with-values (lambda () (g1577 g1589)) (lambda (g1590 g1591) (values (g1521 g1590 g1588) g1591)))))) g1578))) ($syntax-dispatch g1578 (quote (any . any))))) g1576)))) g1575) g1574 (lambda (g1592) (call-with-values (lambda () (g1516 g1551 g1572 g1553 (cons (quote ()) g1592) g1555)) (lambda (g1593 g1594) (if (null? (car g1594)) (syntax-error g1551 (quote "extra ellipsis in syntax form")) (values (g1519 g1593 (car g1594)) (cdr g1594)))))))) g1568) ((lambda (g1595) (if g1595 (apply (lambda (g1596 g1597) (call-with-values (lambda () (g1516 g1551 g1596 g1553 g1554 g1555)) (lambda (g1598 g1599) (call-with-values (lambda () (g1516 g1551 g1597 g1553 g1599 g1555)) (lambda (g1600 g1601) (values (g1520 g1598 g1600) g1601)))))) g1595) ((lambda (g1602) (if g1602 (apply (lambda (g1603 g1604) (call-with-values (lambda () (g1516 g1551 (cons g1603 g1604) g1553 g1554 g1555)) (lambda (g1606 g1607) (values (g1522 g1606) g1607)))) g1602) ((lambda (g1608) (values (list (quote quote) g1552) g1554)) g1561))) ($syntax-dispatch g1561 (quote #(vector (any . each-any))))))) ($syntax-dispatch g1561 (quote (any . any)))))) ($syntax-dispatch g1561 (quote (any any . any)))))) ($syntax-dispatch g1561 (quote (any any))))) g1552))))) (lambda (g1609 g1610 g1611 g1612) ((lambda (g1613) ((lambda (g1614) ((lambda (g1615) (if g1615 (apply (lambda (g1616 g1617) (call-with-values (lambda () (g1516 g1613 g1617 g1610 (quote ()) g447)) (lambda (g1618 g1619) (g1523 g1618)))) g1615) ((lambda (g1620) (syntax-error g1613)) g1614))) ($syntax-dispatch g1614 (quote (any any))))) g1613)) (g394 g1609 g1611 g1612))))))) (g254 (quote core) (quote lambda) (lambda (g1621 g1622 g1623 g1624) ((lambda (g1625) ((lambda (g1626) (if g1626 (apply (lambda (g1627 g1628) (g444 (g394 g1621 g1623 g1624) g1628 g1622 g1623 (lambda (g1629 g1630) (list (quote lambda) g1629 g1630)))) g1626) (syntax-error g1625))) ($syntax-dispatch g1625 (quote (any . any))))) g1621))) (g254 (quote core) (quote letrec) (lambda (g1631 g1632 g1633 g1634) ((lambda (g1635) ((lambda (g1636) (if g1636 (apply (lambda (g1637 g1638 g1639 g1640 g1641) ((lambda (g1642) (if (not (g389 g1642)) (g391 (map (lambda (g1643) (g393 g1643 g1633)) g1642) (g394 g1631 g1633 g1634) (quote "bound variable")) ((lambda (g1644 g1645) ((lambda (g1646 g1647) (g191 g1634 g1645 (map (lambda (g1648) (g432 g1648 g1647 g1646)) g1639) (g437 (cons g1640 g1641) (g394 g1631 g1646 g1634) g1647 g1646))) (g368 g1642 g1644 g1633) (g248 g1644 g1645 g1632))) (g299 g1642) (map g451 g1642)))) g1638)) g1636) ((lambda (g1652) (syntax-error (g394 g1631 g1633 g1634))) g1635))) ($syntax-dispatch g1635 (quote (any #(each (any any)) any . each-any))))) g1631))) (g254 (quote core) (quote if) (lambda (g1653 g1654 g1655 g1656) ((lambda (g1657) ((lambda (g1658) (if g1658 (apply (lambda (g1659 g1660 g1661) (list (quote if) (g432 g1660 g1654 g1655) (g432 g1661 g1654 g1655) (g446))) g1658) ((lambda (g1662) (if g1662 (apply (lambda (g1663 g1664 g1665 g1666) (list (quote if) (g432 g1664 g1654 g1655) (g432 g1665 g1654 g1655) (g432 g1666 g1654 g1655))) g1662) ((lambda (g1667) (syntax-error (g394 g1653 g1655 g1656))) g1657))) ($syntax-dispatch g1657 (quote (any any any any)))))) ($syntax-dispatch g1657 (quote (any any any))))) g1653))) (g254 (quote set!) (quote set!) (quote ())) (g254 (quote begin) (quote begin) (quote ())) (g254 (quote module-key) (quote module) (quote ())) (g254 (quote import) (quote import) (quote #f)) (g254 (quote import) (quote import-only) (quote #t)) (g254 (quote define) (quote define) (quote ())) (g254 (quote define-syntax) (quote define-syntax) (quote ())) (g254 (quote eval-when) (quote eval-when) (quote ())) (g254 (quote core) (quote syntax-case) ((lambda () (letrec ((g1671 (lambda (g1672 g1673 g1674 g1675) (if (null? g1674) (list (quote syntax-error) g1672) ((lambda (g1676) ((lambda (g1677) (if g1677 (apply (lambda (g1678 g1679) (if (if (g256 g1678) (if (not (g392 g1678 g1673)) (not (g447 g1678)) (quote #f)) (quote #f)) ((lambda (g1680 g1681) (list (list (quote lambda) (list g1681) (g432 g1679 (g246 g1680 (g231 (quote syntax) (cons g1681 (quote 0))) g1675) (g368 (list g1678) (list g1680) (quote (()))))) g1672)) (g297) (g451 g1678)) (g1670 g1672 g1673 (cdr g1674) g1675 g1678 (quote #t) g1679))) g1677) ((lambda (g1682) (if g1682 (apply (lambda (g1683 g1684 g1685) (g1670 g1672 g1673 (cdr g1674) g1675 g1683 g1684 g1685)) g1682) ((lambda (g1686) (syntax-error (car g1674) (quote "invalid syntax-case clause"))) g1676))) ($syntax-dispatch g1676 (quote (any any any)))))) ($syntax-dispatch g1676 (quote (any any))))) (car g1674))))) (g1670 (lambda (g1687 g1688 g1689 g1690 g1691 g1692 g1693) (call-with-values (lambda () (g1668 g1691 g1688)) (lambda (g1694 g1695) (if (not (g390 (map car g1695))) (g391 (map car g1695) g1691 (quote "pattern variable")) (if (not (andmap (lambda (g1696) (not (g447 (car g1696)))) g1695)) (syntax-error g1691 (quote "misplaced ellipsis in syntax-case pattern")) ((lambda (g1697) (list (list (quote lambda) (list g1697) (list (quote if) ((lambda (g1707) ((lambda (g1708) (if g1708 (apply (lambda () g1697) g1708) ((lambda (g1709) (list (quote if) g1697 (g1669 g1695 g1692 g1697 g1690) (list (quote quote) (quote #f)))) g1707))) ($syntax-dispatch g1707 (quote #(atom #t))))) g1692) (g1669 g1695 g1693 g1697 g1690) (g1671 g1687 g1688 g1689 g1690))) (if (eq? g1694 (quote any)) (list (quote list) g1687) (list (quote $syntax-dispatch) g1687 (list (quote quote) g1694))))) (g451 (quote tmp))))))))) (g1669 (lambda (g1710 g1711 g1712 g1713) ((lambda (g1714 g1715) ((lambda (g1716 g1717) (list (quote apply) (list (quote lambda) g1717 (g432 g1711 (g247 g1716 (map (lambda (g1718 g1719) (g231 (quote syntax) (cons g1718 g1719))) g1717 (map cdr g1710)) g1713) (g368 g1714 g1716 (quote (()))))) g1712)) (g299 g1714) (map g451 g1714))) (map car g1710) (map cdr g1710)))) (g1668 (lambda (g1720 g1721) ((letrec ((g1722 (lambda (g1723 g1724 g1725) (if (g256 g1723) (if (g392 g1723 g1721) (values (vector (quote free-id) g1723) g1725) (values (quote any) (cons (cons g1723 g1724) g1725))) ((lambda (g1726) ((lambda (g1727) (if (if g1727 (apply (lambda (g1728 g1729) (g447 g1729)) g1727) (quote #f)) (apply (lambda (g1730 g1731) (call-with-values (lambda () (g1722 g1730 (+ g1724 (quote 1)) g1725)) (lambda (g1732 g1733) (values (if (eq? g1732 (quote any)) (quote each-any) (vector (quote each) g1732)) g1733)))) g1727) ((lambda (g1734) (if g1734 (apply (lambda (g1735 g1736) (call-with-values (lambda () (g1722 g1736 g1724 g1725)) (lambda (g1737 g1738) (call-with-values (lambda () (g1722 g1735 g1724 g1738)) (lambda (g1739 g1740) (values (cons g1739 g1737) g1740)))))) g1734) ((lambda (g1741) (if g1741 (apply (lambda () (values (quote ()) g1725)) g1741) ((lambda (g1742) (if g1742 (apply (lambda (g1743) (call-with-values (lambda () (g1722 g1743 g1724 g1725)) (lambda (g1745 g1746) (values (vector (quote vector) g1745) g1746)))) g1742) ((lambda (g1747) (values (vector (quote atom) (g450 g1723 (quote (())))) g1725)) g1726))) ($syntax-dispatch g1726 (quote #(vector each-any)))))) ($syntax-dispatch g1726 (quote ()))))) ($syntax-dispatch g1726 (quote (any . any)))))) ($syntax-dispatch g1726 (quote (any any))))) g1723))))) g1722) g1720 (quote 0) (quote ()))))) (lambda (g1748 g1749 g1750 g1751) ((lambda (g1752) ((lambda (g1753) ((lambda (g1754) (if g1754 (apply (lambda (g1755 g1756 g1757 g1758) (if (andmap (lambda (g1759) (if (g256 g1759) (not (g447 g1759)) (quote #f))) g1757) ((lambda (g1761) (list (list (quote lambda) (list g1761) (g1671 g1761 g1757 g1758 g1749)) (g432 g1756 g1749 (quote (()))))) (g451 (quote tmp))) (syntax-error g1752 (quote "invalid literals list in")))) g1754) (syntax-error g1753))) ($syntax-dispatch g1753 (quote (any any each-any . each-any))))) g1752)) (g394 g1748 g1750 g1751))))))) (set! sc-expand ((lambda (g1764) ((lambda (g1765) (lambda (g1766) ((lambda (g1767 g1768) (if (if (pair? g1766) (equal? (car g1766) g53) (quote #f)) (cadr g1766) (g400 g1766 (quote ()) g1765 g1767 g1768 g1764))) (quote e) (quote (eval))))) (g263 (g264 (quote ((top)))) (cons g1764 (g265 (quote ((top)))))))) ((lambda (g1769) (begin (g366 g1769 (quote *top*)) g1769)) (g304 (quote ()) (quote ()) (quote ()))))) (set! identifier? (lambda (g1770) (g255 g1770))) (set! datum->syntax-object (lambda (g1771 g1772) (begin ((lambda (g1773) (if (not (g255 g1773)) (g93 (quote datum->syntax-object) (quote "invalid argument") g1773) (void))) g1771) (g203 g1772 (g206 g1771))))) (set! syntax-object->datum (lambda (g1774) (g450 g1774 (quote (()))))) (set! generate-temporaries (lambda (g1775) (begin ((lambda (g1776) (if (not (list? g1776)) (g93 (quote generate-temporaries) (quote "invalid argument") g1776) (void))) g1775) (map (lambda (g1777) (g393 (gensym) (quote ((top))))) g1775)))) (set! free-identifier=? (lambda (g1778 g1779) (begin ((lambda (g1780) (if (not (g255 g1780)) (g93 (quote free-identifier=?) (quote "invalid argument") g1780) (void))) g1778) ((lambda (g1781) (if (not (g255 g1781)) (g93 (quote free-identifier=?) (quote "invalid argument") g1781) (void))) g1779) (g378 g1778 g1779)))) (set! bound-identifier=? (lambda (g1782 g1783) (begin ((lambda (g1784) (if (not (g255 g1784)) (g93 (quote bound-identifier=?) (quote "invalid argument") g1784) (void))) g1782) ((lambda (g1785) (if (not (g255 g1785)) (g93 (quote bound-identifier=?) (quote "invalid argument") g1785) (void))) g1783) (g388 g1782 g1783)))) (set! syntax-error (lambda (g1787 . g1786) (begin (for-each (lambda (g1788) ((lambda (g1789) (if (not (string? g1789)) (g93 (quote syntax-error) (quote "invalid argument") g1789) (void))) g1788)) g1786) ((lambda (g1790) (g93 (quote #f) g1790 (g450 g1787 (quote (()))))) (if (null? g1786) (quote "invalid syntax") (apply string-append g1786)))))) ((lambda () (letrec ((g1795 (lambda (g1796 g1797 g1798 g1799) (if (not g1799) (quote #f) (if (eq? g1797 (quote any)) (cons (g393 g1796 g1798) g1799) (if (g204 g1796) (g1794 ((lambda (g1800) (if (g90 g1800) (annotation-expression g1800) g1800)) (g205 g1796)) g1797 (g371 g1798 (g206 g1796)) g1799) (g1794 ((lambda (g1801) (if (g90 g1801) (annotation-expression g1801) g1801)) g1796) g1797 g1798 g1799)))))) (g1794 (lambda (g1802 g1803 g1804 g1805) (if (null? g1803) (if (null? g1802) g1805 (quote #f)) (if (pair? g1803) (if (pair? g1802) (g1795 (car g1802) (car g1803) g1804 (g1795 (cdr g1802) (cdr g1803) g1804 g1805)) (quote #f)) (if (eq? g1803 (quote each-any)) ((lambda (g1806) (if g1806 (cons g1806 g1805) (quote #f))) (g1792 g1802 g1804)) ((lambda (g1807) (if (memv g1807 (quote (each))) (if (null? g1802) (g1793 (vector-ref g1803 (quote 1)) g1805) ((lambda (g1808) (if g1808 ((letrec ((g1809 (lambda (g1810) (if (null? (car g1810)) g1805 (cons (map car g1810) (g1809 (map cdr g1810))))))) g1809) g1808) (quote #f))) (g1791 g1802 (vector-ref g1803 (quote 1)) g1804))) (if (memv g1807 (quote (free-id))) (if (g256 g1802) (if (g378 (g393 g1802 g1804) (vector-ref g1803 (quote 1))) g1805 (quote #f)) (quote #f)) (if (memv g1807 (quote (atom))) (if (equal? (vector-ref g1803 (quote 1)) (g450 g1802 g1804)) g1805 (quote #f)) (if (memv g1807 (quote (vector))) (if (vector? g1802) (g1795 (vector->list g1802) (vector-ref g1803 (quote 1)) g1804 g1805) (quote #f)) (void)))))) (vector-ref g1803 (quote 0)))))))) (g1793 (lambda (g1811 g1812) (if (null? g1811) g1812 (if (eq? g1811 (quote any)) (cons (quote ()) g1812) (if (pair? g1811) (g1793 (car g1811) (g1793 (cdr g1811) g1812)) (if (eq? g1811 (quote each-any)) (cons (quote ()) g1812) ((lambda (g1813) (if (memv g1813 (quote (each))) (g1793 (vector-ref g1811 (quote 1)) g1812) (if (memv g1813 (quote (free-id atom))) g1812 (if (memv g1813 (quote (vector))) (g1793 (vector-ref g1811 (quote 1)) g1812) (void))))) (vector-ref g1811 (quote 0))))))))) (g1792 (lambda (g1814 g1815) (if (g90 g1814) (g1792 (annotation-expression g1814) g1815) (if (pair? g1814) ((lambda (g1816) (if g1816 (cons (g393 (car g1814) g1815) g1816) (quote #f))) (g1792 (cdr g1814) g1815)) (if (null? g1814) (quote ()) (if (g204 g1814) (g1792 (g205 g1814) (g371 g1815 (g206 g1814))) (quote #f))))))) (g1791 (lambda (g1817 g1818 g1819) (if (g90 g1817) (g1791 (annotation-expression g1817) g1818 g1819) (if (pair? g1817) ((lambda (g1820) (if g1820 ((lambda (g1821) (if g1821 (cons g1820 g1821) (quote #f))) (g1791 (cdr g1817) g1818 g1819)) (quote #f))) (g1795 (car g1817) g1818 g1819 (quote ()))) (if (null? g1817) (quote ()) (if (g204 g1817) (g1791 (g205 g1817) g1818 (g371 g1819 (g206 g1817))) (quote #f)))))))) (set! $syntax-dispatch (lambda (g1822 g1823) (if (eq? g1823 (quote any)) (list g1822) (if (g204 g1822) (g1794 ((lambda (g1824) (if (g90 g1824) (annotation-expression g1824) g1824)) (g205 g1822)) g1823 (g206 g1822) (quote ())) (g1794 ((lambda (g1825) (if (g90 g1825) (annotation-expression g1825) g1825)) g1822) g1823 (quote (())) (quote ())))))))))))))($sc-put-cte (quote with-syntax) (lambda (g1826) ((lambda (g1827) ((lambda (g1828) (if g1828 (apply (lambda (g1829 g1830 g1831) (cons (quote #(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1830 g1831))) g1828) ((lambda (g1833) (if g1833 (apply (lambda (g1834 g1835 g1836 g1837 g1838) (list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1836 (quote ()) (list g1835 (cons (quote #(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1837 g1838))))) g1833) ((lambda (g1840) (if g1840 (apply (lambda (g1841 g1842 g1843 g1844 g1845) (list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons (quote #(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1843) (quote ()) (list g1842 (cons (quote #(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1844 g1845))))) g1840) (syntax-error g1827))) ($syntax-dispatch g1827 (quote (any #(each (any any)) any . each-any)))))) ($syntax-dispatch g1827 (quote (any ((any any)) any . each-any)))))) ($syntax-dispatch g1827 (quote (any () any . each-any))))) g1826)))($sc-put-cte (quote syntax-rules) (lambda (g1849) ((lambda (g1850) ((lambda (g1851) (if g1851 (apply (lambda (g1852 g1853 g1854 g1855 g1856) (list (quote #(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))) (cons (quote #(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons (quote #(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1853 (map (lambda (g1859 g1858) (list (cons (quote #(syntax-object dummy ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1858) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1859))) g1856 g1855)))))) g1851) (syntax-error g1850))) ($syntax-dispatch g1850 (quote (any each-any . #(each ((any . any) any))))))) g1849)))($sc-put-cte (quote cond) (lambda (g1860) ((lambda (g1861) ((lambda (g1862) (if g1862 (apply (lambda (g1863 g1864 g1865) ((letrec ((g1866 (lambda (g1867 g1868) (if (null? g1868) ((lambda (g1869) ((lambda (g1870) (if g1870 (apply (lambda (g1871 g1872) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1871 g1872))) g1870) ((lambda (g1874) (if g1874 (apply (lambda (g1875) (cons (quote #(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons (list (list (quote #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1875)) (quote ((#(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))))))) g1874) ((lambda (g1876) (if g1876 (apply (lambda (g1877 g1878) (list (quote #(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (list (quote #(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1877)) (list (quote #(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1878 (quote (#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))))))) g1876) ((lambda (g1879) (if g1879 (apply (lambda (g1880 g1881 g1882) (list (quote #(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1880 (cons (quote #(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1881 g1882)))) g1879) ((lambda (g1884) (syntax-error g1860)) g1869))) ($syntax-dispatch g1869 (quote (any any . each-any)))))) ($syntax-dispatch g1869 (quote (any #(free-id #(syntax-object => ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) any)))))) ($syntax-dispatch g1869 (quote (any)))))) ($syntax-dispatch g1869 (quote (#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) any . each-any))))) g1867) ((lambda (g1885) ((lambda (g1886) ((lambda (g1887) ((lambda (g1888) (if g1888 (apply (lambda (g1889) (list (quote #(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (list (quote #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1889)) (list (quote #(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1886))) g1888) ((lambda (g1890) (if g1890 (apply (lambda (g1891 g1892) (list (quote #(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (list (quote #(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1891)) (list (quote #(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1892 (quote (#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))))) g1886))) g1890) ((lambda (g1893) (if g1893 (apply (lambda (g1894 g1895 g1896) (list (quote #(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g1894 (cons (quote #(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1895 g1896)) g1886)) g1893) ((lambda (g1898) (syntax-error g1860)) g1887))) ($syntax-dispatch g1887 (quote (any any . each-any)))))) ($syntax-dispatch g1887 (quote (any #(free-id #(syntax-object => ((top) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) any)))))) ($syntax-dispatch g1887 (quote (any))))) g1867)) g1885)) (g1866 (car g1868) (cdr g1868))))))) g1866) g1864 g1865)) g1862) (syntax-error g1861))) ($syntax-dispatch g1861 (quote (any any . each-any))))) g1860)))($sc-put-cte (quote quasiquote) (letrec ((g1900 (lambda (g1909) (if (identifier? g1909) (free-identifier=? g1909 (quote #(syntax-object quote ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (quote #f)))) (g1901 (lambda (g1910) (if (identifier? g1910) (free-identifier=? g1910 (quote #(syntax-object list ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (quote #f)))) (g1902 (lambda (g1911) (if (identifier? g1911) (free-identifier=? g1911 (quote #(syntax-object cons ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (quote #f)))) (g1903 (lambda (g1912) ((lambda (g1913) ((lambda (g1914) (if g1914 (apply (lambda (g1915) (g1900 g1915)) g1914) ((lambda (g1916) (quote #f)) g1913))) ($syntax-dispatch g1913 (quote (any ()))))) g1912))) (g1904 (lambda (g1917 g1918) ((letrec ((g1919 (lambda (g1920) (if (null? g1920) g1918 (g1905 (car g1920) (g1919 (cdr g1920))))))) g1919) g1917))) (g1905 (lambda (g1921 g1922) ((lambda (g1923) ((lambda (g1924) (if g1924 (apply (lambda (g1925 g1926) ((lambda (g1927) ((lambda (g1928) (if (if g1928 (apply (lambda (g1929 g1930) (g1900 g1929)) g1928) (quote #f)) (apply (lambda (g1931 g1932) ((lambda (g1933) ((lambda (g1934) (if (if g1934 (apply (lambda (g1935 g1936) (g1900 g1935)) g1934) (quote #f)) (apply (lambda (g1937 g1938) (list (quote #(syntax-object quote ((top) #(ribcage #(quote? dx) #((top) (top)) #("i" "i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1938 g1932))) g1934) ((lambda (g1939) (if (null? g1932) (list (quote #(syntax-object list ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1925) (list (quote #(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1925 g1926))) g1933))) ($syntax-dispatch g1933 (quote (any any))))) g1925)) g1928) ((lambda (g1940) (if (if g1940 (apply (lambda (g1941 g1942) (g1901 g1941)) g1940) (quote #f)) (apply (lambda (g1943 g1944) (cons (quote #(syntax-object list ((top) #(ribcage #(listp stuff) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) (cons g1925 g1944))) g1940) ((lambda (g1945) (list (quote #(syntax-object cons ((top) #(ribcage #(else) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1925 g1926)) g1927))) ($syntax-dispatch g1927 (quote (any . any)))))) ($syntax-dispatch g1927 (quote (any any))))) g1926)) g1924) (syntax-error g1923))) ($syntax-dispatch g1923 (quote (any any))))) (list g1921 g1922)))) (g1906 (lambda (g1946 g1947) ((lambda (g1948) (if (null? g1948) (quote (#(syntax-object quote ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))) ())) (if (null? (cdr g1948)) (car g1948) ((lambda (g1949) ((lambda (g1950) (if g1950 (apply (lambda (g1951) (cons (quote #(syntax-object append ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1951)) g1950) (syntax-error g1949))) ($syntax-dispatch g1949 (quote each-any)))) g1948)))) ((letrec ((g1953 (lambda (g1954) (if (null? g1954) (if (g1903 g1947) (quote ()) (list g1947)) (if (g1903 (car g1954)) (g1953 (cdr g1954)) (cons (car g1954) (g1953 (cdr g1954)))))))) g1953) g1946)))) (g1907 (lambda (g1955) ((lambda (g1956) ((lambda (g1957) ((lambda (g1958) ((lambda (g1959) (if (if g1959 (apply (lambda (g1960 g1961) (g1900 g1960)) g1959) (quote #f)) (apply (lambda (g1962 g1963) (list (quote #(syntax-object quote ((top) #(ribcage #(quote? x) #((top) (top)) #("i" "i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) (list->vector g1963))) g1959) ((lambda (g1965) ((letrec ((g1966 (lambda (g1967 g1968) ((lambda (g1969) ((lambda (g1970) (if (if g1970 (apply (lambda (g1971 g1972) (g1900 g1971)) g1970) (quote #f)) (apply (lambda (g1973 g1974) (g1968 (map (lambda (g1975) (list (quote #(syntax-object quote ((top) #(ribcage #(quote? x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1975)) g1974))) g1970) ((lambda (g1976) (if (if g1976 (apply (lambda (g1977 g1978) (g1901 g1977)) g1976) (quote #f)) (apply (lambda (g1979 g1980) (g1968 g1980)) g1976) ((lambda (g1982) (if (if g1982 (apply (lambda (g1983 g1984 g1985) (g1902 g1983)) g1982) (quote #f)) (apply (lambda (g1986 g1987 g1988) (g1966 g1988 (lambda (g1989) (g1968 (cons g1987 g1989))))) g1982) ((lambda (g1990) (list (quote #(syntax-object list->vector ((top) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1957)) g1969))) ($syntax-dispatch g1969 (quote (any any any)))))) ($syntax-dispatch g1969 (quote (any . each-any)))))) ($syntax-dispatch g1969 (quote (any each-any))))) g1967)))) g1966) g1955 (lambda (g1991) (cons (quote #(syntax-object vector ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g1991)))) g1958))) ($syntax-dispatch g1958 (quote (any each-any))))) g1957)) g1956)) g1955))) (g1908 (lambda (g1992 g1993) ((lambda (g1994) ((lambda (g1995) (if g1995 (apply (lambda (g1996) (if (= g1993 (quote 0)) g1996 (g1905 (quote (#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (g1908 (list g1996) (- g1993 (quote 1)))))) g1995) ((lambda (g1997) (if g1997 (apply (lambda (g1998 g1999) (if (= g1993 (quote 0)) (g1904 g1998 (g1908 g1999 g1993)) (g1905 (g1905 (quote (#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (g1908 g1998 (- g1993 (quote 1)))) (g1908 g1999 g1993)))) g1997) ((lambda (g2002) (if g2002 (apply (lambda (g2003 g2004) (if (= g1993 (quote 0)) (g1906 g2003 (g1908 g2004 g1993)) (g1905 (g1905 (quote (#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (g1908 g2003 (- g1993 (quote 1)))) (g1908 g2004 g1993)))) g2002) ((lambda (g2007) (if g2007 (apply (lambda (g2008) (g1905 (quote (#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ()))))) (g1908 (list g2008) (+ g1993 (quote 1))))) g2007) ((lambda (g2009) (if g2009 (apply (lambda (g2010 g2011) (g1905 (g1908 g2010 g1993) (g1908 g2011 g1993))) g2009) ((lambda (g2012) (if g2012 (apply (lambda (g2013) (g1907 (g1908 g2013 g1993))) g2012) ((lambda (g2015) (list (quote #(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) g2015)) g1994))) ($syntax-dispatch g1994 (quote #(vector each-any)))))) ($syntax-dispatch g1994 (quote (any . any)))))) ($syntax-dispatch g1994 (quote (#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) any)))))) ($syntax-dispatch g1994 (quote ((#(free-id #(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) . each-any) . any)))))) ($syntax-dispatch g1994 (quote ((#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) . each-any) . any)))))) ($syntax-dispatch g1994 (quote (#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage ((import-token . *top*)) () ())))) any))))) g1992)))) (lambda (g2016) ((lambda (g2017) ((lambda (g2018) (if g2018 (apply (lambda (g2019 g2020) (g1908 g2020 (quote 0))) g2018) (syntax-error g2017))) ($syntax-dispatch g2017 (quote (any any))))) g2016))))($sc-put-cte (quote include) (lambda (g2021) (letrec ((g2022 (lambda (g2023 g2024) ((lambda (g2025) ((letrec ((g2026 (lambda () ((lambda (g2027) (if (eof-object? g2027) (begin (close-input-port g2025) (quote ())) (cons (datum->syntax-object g2024 g2027) (g2026)))) (read g2025))))) g2026))) (open-input-file g2023))))) ((lambda (g2028) ((lambda (g2029) (if g2029 (apply (lambda (g2030 g2031) ((lambda (g2032) ((lambda (g2033) ((lambda (g2034) (if g2034 (apply (lambda (g2035) (cons (quote #(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i" "i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2035)) g2034) (syntax-error g2033))) ($syntax-dispatch g2033 (quote each-any)))) (g2022 g2032 g2030))) (syntax-object->datum g2031))) g2029) (syntax-error g2028))) ($syntax-dispatch g2028 (quote (any any))))) g2021))))($sc-put-cte (quote unquote) (lambda (g2037) ((lambda (g2038) ((lambda (g2039) (if g2039 (apply (lambda (g2040 g2041) (syntax-error g2037 (quote "expression not valid outside of quasiquote"))) g2039) (syntax-error g2038))) ($syntax-dispatch g2038 (quote (any . each-any))))) g2037)))($sc-put-cte (quote unquote-splicing) (lambda (g2042) ((lambda (g2043) ((lambda (g2044) (if g2044 (apply (lambda (g2045 g2046) (syntax-error g2042 (quote "expression not valid outside of quasiquote"))) g2044) (syntax-error g2043))) ($syntax-dispatch g2043 (quote (any . each-any))))) g2042)))($sc-put-cte (quote case) (lambda (g2047) ((lambda (g2048) ((lambda (g2049) (if g2049 (apply (lambda (g2050 g2051 g2052 g2053) ((lambda (g2054) ((lambda (g2055) (list (quote #(syntax-object let ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (list (quote #(syntax-object t ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2051)) g2055)) g2054)) ((letrec ((g2056 (lambda (g2057 g2058) (if (null? g2058) ((lambda (g2059) ((lambda (g2060) (if g2060 (apply (lambda (g2061 g2062) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g2061 g2062))) g2060) ((lambda (g2064) (if g2064 (apply (lambda (g2065 g2066 g2067) (list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (quote #(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2065)) (cons (quote #(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g2066 g2067)))) g2064) ((lambda (g2070) (syntax-error g2047)) g2059))) ($syntax-dispatch g2059 (quote (each-any any . each-any)))))) ($syntax-dispatch g2059 (quote (#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) any . each-any))))) g2057) ((lambda (g2071) ((lambda (g2072) ((lambda (g2073) ((lambda (g2074) (if g2074 (apply (lambda (g2075 g2076 g2077) (list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (quote #(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2075)) (cons (quote #(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g2076 g2077)) g2072)) g2074) ((lambda (g2080) (syntax-error g2047)) g2073))) ($syntax-dispatch g2073 (quote (each-any any . each-any))))) g2057)) g2071)) (g2056 (car g2058) (cdr g2058))))))) g2056) g2052 g2053))) g2049) (syntax-error g2048))) ($syntax-dispatch g2048 (quote (any any any . each-any))))) g2047)))($sc-put-cte (quote identifier-syntax) (lambda (g2082) ((lambda (g2083) ((lambda (g2084) (if g2084 (apply (lambda (g2085 g2086) (list (quote #(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))) (list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote ()) (list (quote #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object identifier? ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) (#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2086)) (list (cons g2085 (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g2086 (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))))))))) g2084) ((lambda (g2087) (if (if g2087 (apply (lambda (g2088 g2089 g2090 g2091 g2092 g2093) (if (identifier? g2089) (identifier? g2091) (quote #f))) g2087) (quote #f)) (apply (lambda (g2094 g2095 g2096 g2097 g2098 g2099) (list (quote #(syntax-object cons ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object quote ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object macro! ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))) (list (quote #(syntax-object lambda ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object x ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))) (list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote #(syntax-object x ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (quote (#(syntax-object set! ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))))) (list (list (quote #(syntax-object set! ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2097 g2098) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2099)) (list (cons g2095 (quote (#(syntax-object x ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object ... ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (cons g2096 (quote (#(syntax-object x ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ()))) #(syntax-object ... ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))))))) (list g2095 (list (quote #(syntax-object identifier? ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2095)) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ id exp1 var val exp2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) g2096)))))) g2087) (syntax-error g2083))) ($syntax-dispatch g2083 (quote (any (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage ((import-token . *top*)) () ())))) any any) any))))))) ($syntax-dispatch g2083 (quote (any any))))) g2082))) \ No newline at end of file diff --git a/module/language/r5rs/psyntax.ss b/module/language/r5rs/psyntax.ss new file mode 100644 index 000000000..0e8747b38 --- /dev/null +++ b/module/language/r5rs/psyntax.ss @@ -0,0 +1,3197 @@ +;;; Portable implementation of syntax-case +;;; Extracted from Chez Scheme Version 6.3 +;;; Authors: R. Kent Dybvig, Oscar Waddell, Bob Hieb, Carl Bruggeman + +;;; Copyright (c) 1992-2000 Cadence Research Systems +;;; Permission to copy this software, in whole or in part, to use this +;;; software for any lawful purpose, and to redistribute this software +;;; is granted subject to the restriction that all copies made of this +;;; software must include this copyright notice in full. This software +;;; is provided AS IS, with NO WARRANTY, EITHER EXPRESS OR IMPLIED, +;;; INCLUDING BUT NOT LIMITED TO IMPLIED WARRANTIES OF MERCHANTABILITY +;;; OR FITNESS FOR ANY PARTICULAR PURPOSE. IN NO EVENT SHALL THE +;;; AUTHORS BE LIABLE FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES OF ANY +;;; NATURE WHATSOEVER. + +;;; Before attempting to port this code to a new implementation of +;;; Scheme, please read the notes below carefully. + +;;; This file defines the syntax-case expander, sc-expand, and a set +;;; of associated syntactic forms and procedures. Of these, the +;;; following are documented in The Scheme Programming Language, +;;; Second Edition (R. Kent Dybvig, Prentice Hall, 1996), which can be +;;; found online at http://www.scheme.com. Most are also documented +;;; in the R4RS and draft R5RS. +;;; +;;; bound-identifier=? +;;; datum->syntax-object +;;; define-syntax +;;; fluid-let-syntax +;;; free-identifier=? +;;; generate-temporaries +;;; identifier? +;;; identifier-syntax +;;; let-syntax +;;; letrec-syntax +;;; syntax +;;; syntax-case +;;; syntax-object->datum +;;; syntax-rules +;;; with-syntax +;;; +;;; All standard Scheme syntactic forms are supported by the expander +;;; or syntactic abstractions defined in this file. Only the R4RS +;;; delay is omitted, since its expansion is implementation-dependent. + +;;; Also defined are three forms that support modules: module, import, +;;; and import-only. These are documented in the Chez Scheme User's +;;; Guide (R. Kent Dybvig, Cadence Research Systems, 1998), which can +;;; also be found online at http://www.scheme.com. They are described +;;; briefly here as well. +;;; +;;; Both are definitions and may appear where and only where other +;;; definitions may appear. modules may be named: +;;; +;;; (module id (ex ...) defn ... init ...) +;;; +;;; or anonymous: +;;; +;;; (module (ex ...) defn ... init ...) +;;; +;;; The latter form is semantically equivalent to: +;;; +;;; (module T (ex ...) defn ... init ...) +;;; (import T) +;;; +;;; where T is a fresh identifier. +;;; +;;; In either form, each of the exports in (ex ...) is either an +;;; identifier or of the form (id ex ...). In the former case, the +;;; single identifier ex is exported. In the latter, the identifier +;;; id is exported and the exports ex ... are "implicitly" exported. +;;; This listing of implicit exports is useful only when id is a +;;; keyword bound to a transformer that expands into references to +;;; the listed implicit exports. In the present implementation, +;;; listing of implicit exports is necessary only for top-level +;;; modules and allows the implementation to avoid placing all +;;; identifiers into the top-level environment where subsequent passes +;;; of the compiler will be unable to deal effectively with them. +;;; +;;; Named modules may be referenced in import statements, which +;;; always take one of the forms: +;;; +;;; (import id) +;;; (import-only id) +;;; +;;; id must name a module. Each exported identifier becomes visible +;;; within the scope of the import form. In the case of import-only, +;;; all other identifiers become invisible in the scope of the +;;; import-only form, except for those established by definitions +;;; that appear textually after the import-only form. + +;;; The remaining exports are listed below. sc-expand, eval-when, and +;;; syntax-error are described in the Chez Scheme User's Guide. +;;; +;;; (sc-expand datum) +;;; if datum represents a valid expression, sc-expand returns an +;;; expanded version of datum in a core language that includes no +;;; syntactic abstractions. The core language includes begin, +;;; define, if, lambda, letrec, quote, and set!. +;;; (eval-when situations expr ...) +;;; conditionally evaluates expr ... at compile-time or run-time +;;; depending upon situations +;;; (syntax-error object message) +;;; used to report errors found during expansion +;;; ($syntax-dispatch e p) +;;; used by expanded code to handle syntax-case matching +;;; ($sc-put-cte symbol val) +;;; used to establish top-level compile-time (expand-time) bindings. + +;;; The following nonstandard procedures must be provided by the +;;; implementation for this code to run. +;;; +;;; (void) +;;; returns the implementation's cannonical "unspecified value". The +;;; following usually works: +;;; +;;; (define void (lambda () (if #f #f))). +;;; +;;; (andmap proc list1 list2 ...) +;;; returns true if proc returns true when applied to each element of list1 +;;; along with the corresponding elements of list2 .... The following +;;; definition works but does no error checking: +;;; +;;; (define andmap +;;; (lambda (f first . rest) +;;; (or (null? first) +;;; (if (null? rest) +;;; (let andmap ((first first)) +;;; (let ((x (car first)) (first (cdr first))) +;;; (if (null? first) +;;; (f x) +;;; (and (f x) (andmap first))))) +;;; (let andmap ((first first) (rest rest)) +;;; (let ((x (car first)) +;;; (xr (map car rest)) +;;; (first (cdr first)) +;;; (rest (map cdr rest))) +;;; (if (null? first) +;;; (apply f (cons x xr)) +;;; (and (apply f (cons x xr)) (andmap first rest))))))))) +;;; +;;; (ormap proc list1) +;;; returns the first non-false return result of proc applied to +;;; the elements of list1 or false if none. The following definition +;;; works but does no error checking: +;;; +;;; (define ormap +;;; (lambda (proc list1) +;;; (and (not (null? list1)) +;;; (or (proc (car list1)) (ormap proc (cdr list1)))))) +;;; +;;; The following nonstandard procedures must also be provided by the +;;; implementation for this code to run using the standard portable +;;; hooks and output constructors. They are not used by expanded code, +;;; and so need be present only at expansion time. +;;; +;;; (eval x) +;;; where x is always in the form ("noexpand" expr). +;;; returns the value of expr. the "noexpand" flag is used to tell the +;;; evaluator/expander that no expansion is necessary, since expr has +;;; already been fully expanded to core forms. +;;; +;;; eval will not be invoked during the loading of psyntax.pp. After +;;; psyntax.pp has been loaded, the expansion of any macro definition, +;;; whether local or global, results in a call to eval. If, however, +;;; sc-expand has already been registered as the expander to be used +;;; by eval, and eval accepts one argument, nothing special must be done +;;; to support the "noexpand" flag, since it is handled by sc-expand. +;;; +;;; (error who format-string why what) +;;; where who is either a symbol or #f, format-string is always "~a ~s", +;;; why is always a string, and what may be any object. error should +;;; signal an error with a message something like +;;; +;;; "error in : " +;;; +;;; (gensym) +;;; returns a unique symbol each time it's called. In Chez Scheme, gensym +;;; returns a symbol with a "globally" unique name so that gensyms that +;;; end up in the object code of separately compiled files cannot conflict. +;;; This is necessary only if you intend to support compiled files. +;;; +;;; (putprop symbol key value) +;;; (getprop symbol key) +;;; (remprop symbol key) +;;; key is always a symbol; value may be any object. putprop should +;;; associate the given value with the given symbol and key in some way +;;; that it can be retrieved later with getprop. getprop should return +;;; #f if no value is associated with the given symbol and key. remprop +;;; should remove the association between the given symbol and key. + +;;; When porting to a new Scheme implementation, you should define the +;;; procedures listed above, load the expanded version of psyntax.ss +;;; (psyntax.pp, which should be available whereever you found +;;; psyntax.ss), and register sc-expand as the current expander (how +;;; you do this depends upon your implementation of Scheme). You may +;;; change the hooks and constructors defined toward the beginning of +;;; the code below, but to avoid bootstrapping problems, do so only +;;; after you have a working version of the expander. + +;;; Chez Scheme allows the syntactic form (syntax