(begin (define ~core.primitives~envs (quote ())) (define ~core.primitives~exports (quote ((begin macro begin (0) #f) (if macro if (0) #f) (lambda macro lambda (0) #f) (quote macro quote (0) #f) (set! macro set! (0) #f) (and macro and (0) #f) (or macro or (0) #f) (define macro define (0) #f) (define-syntax macro define-syntax (0) #f) (let-syntax macro let-syntax (0) #f) (letrec-syntax macro letrec-syntax (0) #f) (_ macro _ (0) #f) (... macro ... (0) #f) (syntax macro syntax (0) #f) (syntax-case macro syntax-case (0) #f) (* variable * (0) #f) (+ variable + (0) #f) (- variable - (0) #f) (/ variable / (0) #f) (< variable < (0) #f) (<= variable <= (0) #f) (= variable = (0) #f) (> variable > (0) #f) (>= variable >= (0) #f) (abs variable abs (0) #f) (acos variable acos (0) #f) (append variable append (0) #f) (apply variable apply (0) #f) (asin variable asin (0) #f) (atan variable atan (0) #f) (boolean? variable boolean? (0) #f) (call-with-current-continuation variable call-with-current-continuation (0) #f) (call-with-values variable call-with-values (0) #f) (car variable car (0) #f) (cdr variable cdr (0) #f) (caar variable caar (0) #f) (cadr variable cadr (0) #f) (cdar variable cdar (0) #f) (cddr variable cddr (0) #f) (caaar variable caaar (0) #f) (caadr variable caadr (0) #f) (cadar variable cadar (0) #f) (caddr variable caddr (0) #f) (cdaar variable cdaar (0) #f) (cdadr variable cdadr (0) #f) (cddar variable cddar (0) #f) (cdddr variable cdddr (0) #f) (caaaar variable caaaar (0) #f) (caaadr variable caaadr (0) #f) (caadar variable caadar (0) #f) (caaddr variable caaddr (0) #f) (cadaar variable cadaar (0) #f) (cadadr variable cadadr (0) #f) (caddar variable caddar (0) #f) (cadddr variable cadddr (0) #f) (cdaaar variable cdaaar (0) #f) (cdaadr variable cdaadr (0) #f) (cdadar variable cdadar (0) #f) (cdaddr variable cdaddr (0) #f) (cddaar variable cddaar (0) #f) (cddadr variable cddadr (0) #f) (cdddar variable cdddar (0) #f) (cddddr variable cddddr (0) #f) (ceiling variable ceiling (0) #f) (char->integer variable char->integer (0) #f) (complex? variable complex? (0) #f) (cons variable cons (0) #f) (cos variable cos (0) #f) (denominator variable denominator (0) #f) (dynamic-wind variable dynamic-wind (0) #f) (eq? variable eq? (0) #f) (equal? variable equal? (0) #f) (eqv? variable eqv? (0) #f) (even? variable even? (0) #f) (exact? variable exact? (0) #f) (exp variable exp (0) #f) (expt variable expt (0) #f) (floor variable floor (0) #f) (for-each variable for-each (0) #f) (gcd variable gcd (0) #f) (imag-part variable imag-part (0) #f) (inexact? variable inexact? (0) #f) (integer->char variable integer->char (0) #f) (integer? variable integer? (0) #f) (lcm variable lcm (0) #f) (length variable length (0) #f) (list variable list (0) #f) (list->string variable list->string (0) #f) (list->vector variable list->vector (0) #f) (list-ref variable list-ref (0) #f) (list-tail variable list-tail (0) #f) (list? variable list? (0) #f) (log variable log (0) #f) (magnitude variable magnitude (0) #f) (make-polar variable make-polar (0) #f) (make-rectangular variable make-rectangular (0) #f) (make-string variable make-string (0) #f) (make-vector variable make-vector (0) #f) (map variable map (0) #f) (max variable max (0) #f) (min variable min (0) #f) (negative? variable negative? (0) #f) (not variable not (0) #f) (null? variable null? (0) #f) (number->string variable number->string (0) #f) (number? variable number? (0) #f) (numerator variable numerator (0) #f) (odd? variable odd? (0) #f) (pair? variable pair? (0) #f) (positive? variable positive? (0) #f) (procedure? variable procedure? (0) #f) (rational? variable rational? (0) #f) (rationalize variable rationalize (0) #f) (real-part variable real-part (0) #f) (real? variable real? (0) #f) (reverse variable reverse (0) #f) (round variable round (0) #f) (sin variable sin (0) #f) (sqrt variable sqrt (0) #f) (string variable string (0) #f) (string->list variable string->list (0) #f) (string->number variable string->number (0) #f) (string->symbol variable string->symbol (0) #f) (string-append variable string-append (0) #f) (string-copy variable string-copy (0) #f) (string-length variable string-length (0) #f) (string-ref variable string-ref (0) #f) (string<=? variable string<=? (0) #f) (string<? variable string<? (0) #f) (string=? variable string=? (0) #f) (string>=? variable string>=? (0) #f) (string>? variable string>? (0) #f) (string? variable string? (0) #f) (substring variable substring (0) #f) (symbol->string variable symbol->string (0) #f) (symbol? variable symbol? (0) #f) (tan variable tan (0) #f) (truncate variable truncate (0) #f) (values variable values (0) #f) (vector variable vector (0) #f) (vector->list variable vector->list (0) #f) (vector-fill! variable vector-fill! (0) #f) (vector-length variable vector-length (0) #f) (vector-ref variable vector-ref (0) #f) (vector-set! variable vector-set! (0) #f) (vector? variable vector? (0) #f) (zero? variable zero? (0) #f) (real-valued? variable real-valued? (0) #f) (rational-valued? variable rational-valued? (0) #f) (integer-valued? variable integer-valued? (0) #f) (exact variable exact (0) #f) (inexact variable inexact (0) #f) (finite? variable finite? (0) #f) (infinite? variable infinite? (0) #f) (nan? variable nan? (0) #f) (div variable div (0) #f) (mod variable mod (0) #f) (div-and-mod variable div-and-mod (0) #f) (div0 variable div0 (0) #f) (mod0 variable mod0 (0) #f) (div0-and-mod0 variable div0-and-mod0 (0) #f) (exact-integer-sqrt variable exact-integer-sqrt (0) #f) (boolean=? variable boolean=? (0) #f) (symbol=? variable symbol=? (0) #f) (string-for-each variable string-for-each (0) #f) (vector-map variable vector-map (0) #f) (vector-for-each variable vector-for-each (0) #f) (error variable error (0) #f) (assertion-violation variable assertion-violation (0) #f) (call/cc variable call/cc (0) #f) (find variable find (0) #f) (for-all variable for-all (0) #f) (exists variable exists (0) #f) (filter variable filter (0) #f) (partition variable partition (0) #f) (fold-left variable fold-left (0) #f) (fold-right variable fold-right (0) #f) (remp variable remp (0) #f) (remove variable remove (0) #f) (remq variable remq (0) #f) (remv variable remv (0) #f) (memp variable memp (0) #f) (member variable member (0) #f) (memv variable memv (0) #f) (memq variable memq (0) #f) (assp variable assp (0) #f) (assoc variable assoc (0) #f) (assv variable assv (0) #f) (assq variable assq (0) #f) (call-with-input-file variable call-with-input-file (0) #f) (call-with-output-file variable call-with-output-file (0) #f) (close-input-port variable close-input-port (0) #f) (close-output-port variable close-output-port (0) #f) (current-input-port variable current-input-port (0) #f) (current-output-port variable current-output-port (0) #f) (display variable display (0) #f) (eof-object? variable eof-object? (0) #f) (newline variable newline (0) #f) (open-input-file variable open-input-file (0) #f) (open-output-file variable open-output-file (0) #f) (peek-char variable peek-char (0) #f) (read variable read (0) #f) (read-char variable read-char (0) #f) (with-input-from-file variable with-input-from-file (0) #f) (with-output-to-file variable with-output-to-file (0) #f) (write variable write (0) #f) (write-char variable write-char (0) #f) (char-upcase variable char-upcase (0) #f) (char-downcase variable char-downcase (0) #f) (char-ci=? variable char-ci=? (0) #f) (char-ci<? variable char-ci<? (0) #f) (char-ci>? variable char-ci>? (0) #f) (char-ci<=? variable char-ci<=? (0) #f) (char-ci>=? variable char-ci>=? (0) #f) (char-alphabetic? variable char-alphabetic? (0) #f) (char-numeric? variable char-numeric? (0) #f) (char-whitespace? variable char-whitespace? (0) #f) (char-upper-case? variable char-upper-case? (0) #f) (char-lower-case? variable char-lower-case? (0) #f) (string-ci=? variable string-ci=? (0) #f) (string-ci<? variable string-ci<? (0) #f) (string-ci>? variable string-ci>? (0) #f) (string-ci<=? variable string-ci<=? (0) #f) (string-ci>=? variable string-ci>=? (0) #f) (string-fill! variable string-fill! (0) #f) (string-set! variable string-set! (0) #f) (set-car! variable set-car! (0) #f) (set-cdr! variable set-cdr! (0) #f) (exact->inexact variable exact->inexact (0) #f) (inexact->exact variable inexact->exact (0) #f) (quotient variable quotient (0) #f) (remainder variable remainder (0) #f) (modulo variable modulo (0) #f) (make-variable-transformer variable $ex:make-variable-transformer (0) #f) (identifier? variable $ex:identifier? (0) #f) (bound-identifier=? variable $ex:bound-identifier=? (0) #f) (free-identifier=? variable $ex:free-identifier=? (0) #f) (generate-temporaries variable $ex:generate-temporaries (0) #f) (datum->syntax variable $ex:datum->syntax (0) #f) (syntax->datum variable $ex:syntax->datum (0) #f) (syntax-violation variable $ex:syntax-violation (0) #f) (environment variable $ex:environment (0) #f) (eval variable $ex:eval (0) #f)))) (define ~core.primitives~imports (quote (((core primitive-macros) 0)))) (define (~core.primitives~visit) ($ex:unspecified)) (define (~core.primitives~invoke) ($ex:unspecified)))

(begin (define ~core.with-syntax~envs (quote ((env~1185211294~57 ((((e1) pattern-variable e1~1185211294~54 (1) 0) ((e2) pattern-variable e2~1185211294~55 (1) 1))) (()) ((((x) variable x~1185211294~11 (1) #f))) . env~1185211294~7) (env~1185211294~41 ((((out) pattern-variable out~1185211294~36 (1) 0) ((in) pattern-variable in~1185211294~37 (1) 0) ((e1) pattern-variable e1~1185211294~38 (1) 0) ((e2) pattern-variable e2~1185211294~39 (1) 1))) (()) ((((x) variable x~1185211294~11 (1) #f))) . env~1185211294~7) (env~1185211294~23 ((((out) pattern-variable out~1185211294~18 (1) 1) ((in) pattern-variable in~1185211294~19 (1) 1) ((e1) pattern-variable e1~1185211294~20 (1) 0) ((e2) pattern-variable e2~1185211294~21 (1) 1))) (()) ((((x) variable x~1185211294~11 (1) #f))) . env~1185211294~7) (env~1185211294~7 ((((with-syntax) macro with-syntax~1185211294~9 (0) #f) ((eval) variable $ex:eval (0 1) #f) ((environment) variable $ex:environment (0 1) #f) ((syntax-violation) variable $ex:syntax-violation (0 1) #f) ((syntax->datum) variable $ex:syntax->datum (0 1) #f) ((datum->syntax) variable $ex:datum->syntax (0 1) #f) ((generate-temporaries) variable $ex:generate-temporaries (0 1) #f) ((free-identifier=?) variable $ex:free-identifier=? (0 1) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (0 1) #f) ((identifier?) variable $ex:identifier? (0 1) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (0 1) #f) ((modulo) variable modulo (0 1) #f) ((remainder) variable remainder (0 1) #f) ((quotient) variable quotient (0 1) #f) ((inexact->exact) variable inexact->exact (0 1) #f) ((exact->inexact) variable exact->inexact (0 1) #f) ((set-cdr!) variable set-cdr! (0 1) #f) ((set-car!) variable set-car! (0 1) #f) ((string-set!) variable string-set! (0 1) #f) ((string-fill!) variable string-fill! (0 1) #f) ((string-ci>=?) variable string-ci>=? (0 1) #f) ((string-ci<=?) variable string-ci<=? (0 1) #f) ((string-ci>?) variable string-ci>? (0 1) #f) ((string-ci<?) variable string-ci<? (0 1) #f) ((string-ci=?) variable string-ci=? (0 1) #f) ((char-lower-case?) variable char-lower-case? (0 1) #f) ((char-upper-case?) variable char-upper-case? (0 1) #f) ((char-whitespace?) variable char-whitespace? (0 1) #f) ((char-numeric?) variable char-numeric? (0 1) #f) ((char-alphabetic?) variable char-alphabetic? (0 1) #f) ((char-ci>=?) variable char-ci>=? (0 1) #f) ((char-ci<=?) variable char-ci<=? (0 1) #f) ((char-ci>?) variable char-ci>? (0 1) #f) ((char-ci<?) variable char-ci<? (0 1) #f) ((char-ci=?) variable char-ci=? (0 1) #f) ((char-downcase) variable char-downcase (0 1) #f) ((char-upcase) variable char-upcase (0 1) #f) ((write-char) variable write-char (0 1) #f) ((write) variable write (0 1) #f) ((with-output-to-file) variable with-output-to-file (0 1) #f) ((with-input-from-file) variable with-input-from-file (0 1) #f) ((read-char) variable read-char (0 1) #f) ((read) variable read (0 1) #f) ((peek-char) variable peek-char (0 1) #f) ((open-output-file) variable open-output-file (0 1) #f) ((open-input-file) variable open-input-file (0 1) #f) ((newline) variable newline (0 1) #f) ((eof-object?) variable eof-object? (0 1) #f) ((display) variable display (0 1) #f) ((current-output-port) variable current-output-port (0 1) #f) ((current-input-port) variable current-input-port (0 1) #f) ((close-output-port) variable close-output-port (0 1) #f) ((close-input-port) variable close-input-port (0 1) #f) ((call-with-output-file) variable call-with-output-file (0 1) #f) ((call-with-input-file) variable call-with-input-file (0 1) #f) ((assq) variable assq (0 1) #f) ((assv) variable assv (0 1) #f) ((assoc) variable assoc (0 1) #f) ((assp) variable assp (0 1) #f) ((memq) variable memq (0 1) #f) ((memv) variable memv (0 1) #f) ((member) variable member (0 1) #f) ((memp) variable memp (0 1) #f) ((remv) variable remv (0 1) #f) ((remq) variable remq (0 1) #f) ((remove) variable remove (0 1) #f) ((remp) variable remp (0 1) #f) ((fold-right) variable fold-right (0 1) #f) ((fold-left) variable fold-left (0 1) #f) ((partition) variable partition (0 1) #f) ((filter) variable filter (0 1) #f) ((exists) variable exists (0 1) #f) ((for-all) variable for-all (0 1) #f) ((find) variable find (0 1) #f) ((call/cc) variable call/cc (0 1) #f) ((assertion-violation) variable assertion-violation (0 1) #f) ((error) variable error (0 1) #f) ((vector-for-each) variable vector-for-each (0 1) #f) ((vector-map) variable vector-map (0 1) #f) ((string-for-each) variable string-for-each (0 1) #f) ((symbol=?) variable symbol=? (0 1) #f) ((boolean=?) variable boolean=? (0 1) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (0 1) #f) ((div0-and-mod0) variable div0-and-mod0 (0 1) #f) ((mod0) variable mod0 (0 1) #f) ((div0) variable div0 (0 1) #f) ((div-and-mod) variable div-and-mod (0 1) #f) ((mod) variable mod (0 1) #f) ((div) variable div (0 1) #f) ((nan?) variable nan? (0 1) #f) ((infinite?) variable infinite? (0 1) #f) ((finite?) variable finite? (0 1) #f) ((inexact) variable inexact (0 1) #f) ((exact) variable exact (0 1) #f) ((integer-valued?) variable integer-valued? (0 1) #f) ((rational-valued?) variable rational-valued? (0 1) #f) ((real-valued?) variable real-valued? (0 1) #f) ((zero?) variable zero? (0 1) #f) ((vector?) variable vector? (0 1) #f) ((vector-set!) variable vector-set! (0 1) #f) ((vector-ref) variable vector-ref (0 1) #f) ((vector-length) variable vector-length (0 1) #f) ((vector-fill!) variable vector-fill! (0 1) #f) ((vector->list) variable vector->list (0 1) #f) ((vector) variable vector (0 1) #f) ((values) variable values (0 1) #f) ((truncate) variable truncate (0 1) #f) ((tan) variable tan (0 1) #f) ((symbol?) variable symbol? (0 1) #f) ((symbol->string) variable symbol->string (0 1) #f) ((substring) variable substring (0 1) #f) ((string?) variable string? (0 1) #f) ((string>?) variable string>? (0 1) #f) ((string>=?) variable string>=? (0 1) #f) ((string=?) variable string=? (0 1) #f) ((string<?) variable string<? (0 1) #f) ((string<=?) variable string<=? (0 1) #f) ((string-ref) variable string-ref (0 1) #f) ((string-length) variable string-length (0 1) #f) ((string-copy) variable string-copy (0 1) #f) ((string-append) variable string-append (0 1) #f) ((string->symbol) variable string->symbol (0 1) #f) ((string->number) variable string->number (0 1) #f) ((string->list) variable string->list (0 1) #f) ((string) variable string (0 1) #f) ((sqrt) variable sqrt (0 1) #f) ((sin) variable sin (0 1) #f) ((round) variable round (0 1) #f) ((reverse) variable reverse (0 1) #f) ((real?) variable real? (0 1) #f) ((real-part) variable real-part (0 1) #f) ((rationalize) variable rationalize (0 1) #f) ((rational?) variable rational? (0 1) #f) ((procedure?) variable procedure? (0 1) #f) ((positive?) variable positive? (0 1) #f) ((pair?) variable pair? (0 1) #f) ((odd?) variable odd? (0 1) #f) ((numerator) variable numerator (0 1) #f) ((number?) variable number? (0 1) #f) ((number->string) variable number->string (0 1) #f) ((null?) variable null? (0 1) #f) ((not) variable not (0 1) #f) ((negative?) variable negative? (0 1) #f) ((min) variable min (0 1) #f) ((max) variable max (0 1) #f) ((map) variable map (0 1) #f) ((make-vector) variable make-vector (0 1) #f) ((make-string) variable make-string (0 1) #f) ((make-rectangular) variable make-rectangular (0 1) #f) ((make-polar) variable make-polar (0 1) #f) ((magnitude) variable magnitude (0 1) #f) ((log) variable log (0 1) #f) ((list?) variable list? (0 1) #f) ((list-tail) variable list-tail (0 1) #f) ((list-ref) variable list-ref (0 1) #f) ((list->vector) variable list->vector (0 1) #f) ((list->string) variable list->string (0 1) #f) ((list) variable list (0 1) #f) ((length) variable length (0 1) #f) ((lcm) variable lcm (0 1) #f) ((integer?) variable integer? (0 1) #f) ((integer->char) variable integer->char (0 1) #f) ((inexact?) variable inexact? (0 1) #f) ((imag-part) variable imag-part (0 1) #f) ((gcd) variable gcd (0 1) #f) ((for-each) variable for-each (0 1) #f) ((floor) variable floor (0 1) #f) ((expt) variable expt (0 1) #f) ((exp) variable exp (0 1) #f) ((exact?) variable exact? (0 1) #f) ((even?) variable even? (0 1) #f) ((eqv?) variable eqv? (0 1) #f) ((equal?) variable equal? (0 1) #f) ((eq?) variable eq? (0 1) #f) ((dynamic-wind) variable dynamic-wind (0 1) #f) ((denominator) variable denominator (0 1) #f) ((cos) variable cos (0 1) #f) ((cons) variable cons (0 1) #f) ((complex?) variable complex? (0 1) #f) ((char->integer) variable char->integer (0 1) #f) ((ceiling) variable ceiling (0 1) #f) ((cddddr) variable cddddr (0 1) #f) ((cdddar) variable cdddar (0 1) #f) ((cddadr) variable cddadr (0 1) #f) ((cddaar) variable cddaar (0 1) #f) ((cdaddr) variable cdaddr (0 1) #f) ((cdadar) variable cdadar (0 1) #f) ((cdaadr) variable cdaadr (0 1) #f) ((cdaaar) variable cdaaar (0 1) #f) ((cadddr) variable cadddr (0 1) #f) ((caddar) variable caddar (0 1) #f) ((cadadr) variable cadadr (0 1) #f) ((cadaar) variable cadaar (0 1) #f) ((caaddr) variable caaddr (0 1) #f) ((caadar) variable caadar (0 1) #f) ((caaadr) variable caaadr (0 1) #f) ((caaaar) variable caaaar (0 1) #f) ((cdddr) variable cdddr (0 1) #f) ((cddar) variable cddar (0 1) #f) ((cdadr) variable cdadr (0 1) #f) ((cdaar) variable cdaar (0 1) #f) ((caddr) variable caddr (0 1) #f) ((cadar) variable cadar (0 1) #f) ((caadr) variable caadr (0 1) #f) ((caaar) variable caaar (0 1) #f) ((cddr) variable cddr (0 1) #f) ((cdar) variable cdar (0 1) #f) ((cadr) variable cadr (0 1) #f) ((caar) variable caar (0 1) #f) ((cdr) variable cdr (0 1) #f) ((car) variable car (0 1) #f) ((call-with-values) variable call-with-values (0 1) #f) ((call-with-current-continuation) variable call-with-current-continuation (0 1) #f) ((boolean?) variable boolean? (0 1) #f) ((atan) variable atan (0 1) #f) ((asin) variable asin (0 1) #f) ((apply) variable apply (0 1) #f) ((append) variable append (0 1) #f) ((acos) variable acos (0 1) #f) ((abs) variable abs (0 1) #f) ((>=) variable >= (0 1) #f) ((>) variable > (0 1) #f) ((=) variable = (0 1) #f) ((<=) variable <= (0 1) #f) ((<) variable < (0 1) #f) ((/) variable / (0 1) #f) ((-) variable - (0 1) #f) ((+) variable + (0 1) #f) ((*) variable * (0 1) #f) ((syntax-case) macro syntax-case (0 1) #f) ((syntax) macro syntax (0 1) #f) ((...) macro ... (0 1) #f) ((_) macro _ (0 1) #f) ((letrec-syntax) macro letrec-syntax (0 1) #f) ((let-syntax) macro let-syntax (0 1) #f) ((define-syntax) macro define-syntax (0 1) #f) ((define) macro define (0 1) #f) ((or) macro or (0 1) #f) ((and) macro and (0 1) #f) ((set!) macro set! (0 1) #f) ((quote) macro quote (0 1) #f) ((lambda) macro lambda (0 1) #f) ((if) macro if (0 1) #f) ((begin) macro begin (0 1) #f))))))) (define ~core.with-syntax~exports (quote ((with-syntax macro with-syntax~1185211294~9 (0) #f)))) (define ~core.with-syntax~imports (quote (((core primitives) 0 1)))) (define (~core.with-syntax~visit) ($ex:register-macro! (quote with-syntax~1185211294~9) (lambda (x~1185211294~11) ((lambda () (let ((input~1185211294~14 x~1185211294~11)) (let ((fail~1185211294~15 (lambda () (let ((fail~1185211294~16 (lambda () (let ((fail~1185211294~17 (lambda () ($ex:invalid-form input~1185211294~14)))) (if (pair? input~1185211294~14) (let ((temp~1185211294~35 (car input~1185211294~14))) (let ((temp~1185211294~24 (cdr input~1185211294~14))) (if (pair? temp~1185211294~24) (let ((temp~1185211294~28 (car temp~1185211294~24))) ($ex:map-while (lambda (temp~1185211294~28) (if (pair? temp~1185211294~28) (let ((temp~1185211294~34 (car temp~1185211294~28))) (let ((out~1185211294~18 temp~1185211294~34)) (let ((temp~1185211294~31 (cdr temp~1185211294~28))) (if (pair? temp~1185211294~31) (let ((temp~1185211294~33 (car temp~1185211294~31))) (let ((in~1185211294~19 temp~1185211294~33)) (let ((temp~1185211294~32 (cdr temp~1185211294~31))) (if (null? temp~1185211294~32) (list out~1185211294~18 in~1185211294~19) #f)))) #f)))) #f)) temp~1185211294~28 (lambda (cols~1185211294~29 rest~1185211294~30) (if (null? rest~1185211294~30) (apply (lambda (out~1185211294~18 in~1185211294~19) (let ((temp~1185211294~25 (cdr temp~1185211294~24))) (if (pair? temp~1185211294~25) (let ((temp~1185211294~27 (car temp~1185211294~25))) (let ((e1~1185211294~20 temp~1185211294~27)) (let ((temp~1185211294~26 (cdr temp~1185211294~25))) (if (list? temp~1185211294~26) (let ((e2~1185211294~21 temp~1185211294~26)) (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185211294~23)) 0 (quote (core with-syntax))) (cons (cons ($ex:syntax-rename (quote list) (quote ()) (quote (env~1185211294~23)) 0 (quote (core with-syntax))) in~1185211294~19) (cons (quote ()) (cons (cons out~1185211294~18 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~23)) 0 (quote (core with-syntax))) (cons e1~1185211294~20 e2~1185211294~21)) (quote ()))) (quote ())))))) (fail~1185211294~17))))) (fail~1185211294~17)))) (if (null? cols~1185211294~29) (quote (() ())) (apply map list cols~1185211294~29))) (fail~1185211294~17))))) (fail~1185211294~17)))) (fail~1185211294~17)))))) (if (pair? input~1185211294~14) (let ((temp~1185211294~53 (car input~1185211294~14))) (let ((temp~1185211294~42 (cdr input~1185211294~14))) (if (pair? temp~1185211294~42) (let ((temp~1185211294~46 (car temp~1185211294~42))) (if (pair? temp~1185211294~46) (let ((temp~1185211294~48 (car temp~1185211294~46))) (if (pair? temp~1185211294~48) (let ((temp~1185211294~52 (car temp~1185211294~48))) (let ((out~1185211294~36 temp~1185211294~52)) (let ((temp~1185211294~49 (cdr temp~1185211294~48))) (if (pair? temp~1185211294~49) (let ((temp~1185211294~51 (car temp~1185211294~49))) (let ((in~1185211294~37 temp~1185211294~51)) (let ((temp~1185211294~50 (cdr temp~1185211294~49))) (if (null? temp~1185211294~50) (let ((temp~1185211294~47 (cdr temp~1185211294~46))) (if (null? temp~1185211294~47) (let ((temp~1185211294~43 (cdr temp~1185211294~42))) (if (pair? temp~1185211294~43) (let ((temp~1185211294~45 (car temp~1185211294~43))) (let ((e1~1185211294~38 temp~1185211294~45)) (let ((temp~1185211294~44 (cdr temp~1185211294~43))) (if (list? temp~1185211294~44) (let ((e2~1185211294~39 temp~1185211294~44)) (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185211294~41)) 0 (quote (core with-syntax))) (cons in~1185211294~37 (cons (quote ()) (cons (cons out~1185211294~36 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~41)) 0 (quote (core with-syntax))) (cons e1~1185211294~38 e2~1185211294~39)) (quote ()))) (quote ())))))) (fail~1185211294~16))))) (fail~1185211294~16))) (fail~1185211294~16))) (fail~1185211294~16))))) (fail~1185211294~16))))) (fail~1185211294~16))) (fail~1185211294~16))) (fail~1185211294~16)))) (fail~1185211294~16)))))) (if (pair? input~1185211294~14) (let ((temp~1185211294~63 (car input~1185211294~14))) (let ((temp~1185211294~58 (cdr input~1185211294~14))) (if (pair? temp~1185211294~58) (let ((temp~1185211294~62 (car temp~1185211294~58))) (if (null? temp~1185211294~62) (let ((temp~1185211294~59 (cdr temp~1185211294~58))) (if (pair? temp~1185211294~59) (let ((temp~1185211294~61 (car temp~1185211294~59))) (let ((e1~1185211294~54 temp~1185211294~61)) (let ((temp~1185211294~60 (cdr temp~1185211294~59))) (if (list? temp~1185211294~60) (let ((e2~1185211294~55 temp~1185211294~60)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~57)) 0 (quote (core with-syntax))) (cons e1~1185211294~54 e2~1185211294~55))) (fail~1185211294~15))))) (fail~1185211294~15))) (fail~1185211294~15))) (fail~1185211294~15)))) (fail~1185211294~15)))))))) ($ex:unspecified)) (define (~core.with-syntax~invoke) ($ex:unspecified)))

(begin (define ~core.syntax-rules~envs (quote ((env~1185211294~105 ((((keyword) pattern-variable keyword~1185211294~101 (1) 0) ((pattern) pattern-variable pattern~1185211294~102 (1) 0) ((template) pattern-variable template~1185211294~103 (1) 0))) (()) ((((y) variable y~1185211294~94 (1) #f))) ((((clause) variable clause~1185211294~71 (1) #f))) ((((x) variable x~1185211294~69 (1) #f))) . env~1185211294~65) (env~1185211294~88 ((((cl) pattern-variable cl~1185211294~84 (1) 1))) ((((k) pattern-variable k~1185211294~76 (1) 1) ((cl) pattern-variable cl~1185211294~77 (1) 1))) ((((clause) variable clause~1185211294~71 (1) #f))) ((((x) variable x~1185211294~69 (1) #f))) . env~1185211294~65) (env~1185211294~65 ((((syntax-rules) macro syntax-rules~1185211294~67 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((with-syntax) macro with-syntax~1185211294~9 (1) #f))))))) (define ~core.syntax-rules~exports (quote ((syntax-rules macro syntax-rules~1185211294~67 (0) #f)))) (define ~core.syntax-rules~imports (quote (((core with-syntax) 1) ((core primitives) 1 0)))) (define (~core.syntax-rules~visit) ($ex:register-macro! (quote syntax-rules~1185211294~67) (lambda (x~1185211294~69) ((lambda (clause~1185211294~71) (set! clause~1185211294~71 (lambda (y~1185211294~94) ((lambda () (let ((input~1185211294~97 y~1185211294~94)) (let ((fail~1185211294~98 (lambda () (let ((fail~1185211294~99 (lambda () ($ex:invalid-form input~1185211294~97)))) ($ex:syntax-violation (quote syntax-rules) "Invalid expression" x~1185211294~69))))) (if (pair? input~1185211294~97) (let ((temp~1185211294~109 (car input~1185211294~97))) (if (pair? temp~1185211294~109) (let ((temp~1185211294~111 (car temp~1185211294~109))) (let ((keyword~1185211294~101 temp~1185211294~111)) (let ((temp~1185211294~110 (cdr temp~1185211294~109))) (let ((pattern~1185211294~102 temp~1185211294~110)) (let ((temp~1185211294~106 (cdr input~1185211294~97))) (if (pair? temp~1185211294~106) (let ((temp~1185211294~108 (car temp~1185211294~106))) (let ((template~1185211294~103 temp~1185211294~108)) (let ((temp~1185211294~107 (cdr temp~1185211294~106))) (if (null? temp~1185211294~107) (cons (cons ($ex:syntax-rename (quote dummy) (quote ()) (quote (env~1185211294~105)) 0 (quote (core syntax-rules))) pattern~1185211294~102) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~105)) 0 (quote (core syntax-rules))) (cons template~1185211294~103 (quote ()))) (quote ()))) (fail~1185211294~98))))) (fail~1185211294~98))))))) (fail~1185211294~98))) (fail~1185211294~98)))))))) (let ((input~1185211294~74 x~1185211294~69)) (let ((fail~1185211294~75 (lambda () ($ex:invalid-form input~1185211294~74)))) (if (pair? input~1185211294~74) (let ((temp~1185211294~92 (car input~1185211294~74))) (let ((temp~1185211294~89 (cdr input~1185211294~74))) (if (pair? temp~1185211294~89) (let ((temp~1185211294~91 (car temp~1185211294~89))) (if (list? temp~1185211294~91) (let ((k~1185211294~76 temp~1185211294~91)) (let ((temp~1185211294~90 (cdr temp~1185211294~89))) (if (list? temp~1185211294~90) (let ((cl~1185211294~77 temp~1185211294~90)) (if (for-all $ex:identifier? k~1185211294~76) (let ((input~1185211294~81 (map clause~1185211294~71 cl~1185211294~77))) (let ((fail~1185211294~83 (lambda () ($ex:invalid-form input~1185211294~81)))) (if (list? input~1185211294~81) (let ((cl~1185211294~84 input~1185211294~81)) (begin (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~88)) 0 (quote (core syntax-rules))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~88)) 0 (quote (core syntax-rules))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185211294~88)) 0 (quote (core syntax-rules))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~88)) 0 (quote (core syntax-rules))) (cons k~1185211294~76 cl~1185211294~84))) (quote ())))))) (fail~1185211294~83)))) (fail~1185211294~75))) (fail~1185211294~75)))) (fail~1185211294~75))) (fail~1185211294~75)))) (fail~1185211294~75))))) ($ex:unspecified)))) ($ex:unspecified)) (define (~core.syntax-rules~invoke) ($ex:unspecified)))

(begin (define ~core.let~envs (quote ((env~1185211294~213 ((((i) pattern-variable i~1185211294~208 (1) 1) ((v) pattern-variable v~1185211294~209 (1) 1) ((e1) pattern-variable e1~1185211294~210 (1) 0) ((e2) pattern-variable e2~1185211294~211 (1) 1))) (()) ((((x) variable x~1185211294~203 (1) #f))) . env~1185211294~113) (env~1185211294~185 ((((t) pattern-variable t~1185211294~181 (1) 1))) ((((i) pattern-variable i~1185211294~172 (1) 1) ((v) pattern-variable v~1185211294~173 (1) 1) ((e1) pattern-variable e1~1185211294~174 (1) 0) ((e2) pattern-variable e2~1185211294~175 (1) 1))) (()) ((((x) variable x~1185211294~167 (1) #f))) . env~1185211294~113) (env~1185211294~151 ((((x) pattern-variable x~1185211294~145 (1) 1) ((v) pattern-variable v~1185211294~146 (1) 1) ((e1) pattern-variable e1~1185211294~147 (1) 0) ((e2) pattern-variable e2~1185211294~148 (1) 1))) (()) ((((x) variable x~1185211294~117 (1) #f))) . env~1185211294~113) (env~1185211294~130 ((((f) pattern-variable f~1185211294~123 (1) 0) ((x) pattern-variable x~1185211294~124 (1) 1) ((v) pattern-variable v~1185211294~125 (1) 1) ((e1) pattern-variable e1~1185211294~126 (1) 0) ((e2) pattern-variable e2~1185211294~127 (1) 1))) (()) ((((x) variable x~1185211294~117 (1) #f))) . env~1185211294~113) (env~1185211294~113 ((((letrec*) macro letrec*~1185211294~201 (0) #f) ((unspecified) variable unspecified~1185211294~199 (0) #f) ((letrec) macro letrec~1185211294~165 (0) #f) ((let) macro let~1185211294~115 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((with-syntax) macro with-syntax~1185211294~9 (1) #f))))))) (define ~core.let~exports (quote ((let macro let~1185211294~115 (0) #f) (letrec macro letrec~1185211294~165 (0) #f) (letrec* macro letrec*~1185211294~201 (0) #f)))) (define ~core.let~imports (quote (((core with-syntax) 1) ((core primitives) 1 0)))) (define (~core.let~visit) ($ex:register-macro! (quote let~1185211294~115) (lambda (x~1185211294~117) ((lambda () (let ((input~1185211294~120 x~1185211294~117)) (let ((fail~1185211294~121 (lambda () (let ((fail~1185211294~122 (lambda () ($ex:invalid-form input~1185211294~120)))) (if (pair? input~1185211294~120) (let ((temp~1185211294~144 (car input~1185211294~120))) (let ((temp~1185211294~131 (cdr input~1185211294~120))) (if (pair? temp~1185211294~131) (let ((temp~1185211294~143 (car temp~1185211294~131))) (let ((f~1185211294~123 temp~1185211294~143)) (let ((temp~1185211294~132 (cdr temp~1185211294~131))) (if (pair? temp~1185211294~132) (let ((temp~1185211294~136 (car temp~1185211294~132))) ($ex:map-while (lambda (temp~1185211294~136) (if (pair? temp~1185211294~136) (let ((temp~1185211294~142 (car temp~1185211294~136))) (let ((x~1185211294~124 temp~1185211294~142)) (let ((temp~1185211294~139 (cdr temp~1185211294~136))) (if (pair? temp~1185211294~139) (let ((temp~1185211294~141 (car temp~1185211294~139))) (let ((v~1185211294~125 temp~1185211294~141)) (let ((temp~1185211294~140 (cdr temp~1185211294~139))) (if (null? temp~1185211294~140) (list x~1185211294~124 v~1185211294~125) #f)))) #f)))) #f)) temp~1185211294~136 (lambda (cols~1185211294~137 rest~1185211294~138) (if (null? rest~1185211294~138) (apply (lambda (x~1185211294~124 v~1185211294~125) (let ((temp~1185211294~133 (cdr temp~1185211294~132))) (if (pair? temp~1185211294~133) (let ((temp~1185211294~135 (car temp~1185211294~133))) (let ((e1~1185211294~126 temp~1185211294~135)) (let ((temp~1185211294~134 (cdr temp~1185211294~133))) (if (list? temp~1185211294~134) (let ((e2~1185211294~127 temp~1185211294~134)) (if (for-all $ex:identifier? (cons f~1185211294~123 x~1185211294~124)) (cons (cons ($ex:syntax-rename (quote letrec) (quote ()) (quote (env~1185211294~130)) 0 (quote (core let))) (cons (cons (cons f~1185211294~123 (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~130)) 0 (quote (core let))) (cons x~1185211294~124 (cons e1~1185211294~126 e2~1185211294~127))) (quote ()))) (quote ())) (cons f~1185211294~123 (quote ())))) v~1185211294~125) (fail~1185211294~122))) (fail~1185211294~122))))) (fail~1185211294~122)))) (if (null? cols~1185211294~137) (quote (() ())) (apply map list cols~1185211294~137))) (fail~1185211294~122))))) (fail~1185211294~122))))) (fail~1185211294~122)))) (fail~1185211294~122)))))) (if (pair? input~1185211294~120) (let ((temp~1185211294~163 (car input~1185211294~120))) (let ((temp~1185211294~152 (cdr input~1185211294~120))) (if (pair? temp~1185211294~152) (let ((temp~1185211294~156 (car temp~1185211294~152))) ($ex:map-while (lambda (temp~1185211294~156) (if (pair? temp~1185211294~156) (let ((temp~1185211294~162 (car temp~1185211294~156))) (let ((x~1185211294~145 temp~1185211294~162)) (let ((temp~1185211294~159 (cdr temp~1185211294~156))) (if (pair? temp~1185211294~159) (let ((temp~1185211294~161 (car temp~1185211294~159))) (let ((v~1185211294~146 temp~1185211294~161)) (let ((temp~1185211294~160 (cdr temp~1185211294~159))) (if (null? temp~1185211294~160) (list x~1185211294~145 v~1185211294~146) #f)))) #f)))) #f)) temp~1185211294~156 (lambda (cols~1185211294~157 rest~1185211294~158) (if (null? rest~1185211294~158) (apply (lambda (x~1185211294~145 v~1185211294~146) (let ((temp~1185211294~153 (cdr temp~1185211294~152))) (if (pair? temp~1185211294~153) (let ((temp~1185211294~155 (car temp~1185211294~153))) (let ((e1~1185211294~147 temp~1185211294~155)) (let ((temp~1185211294~154 (cdr temp~1185211294~153))) (if (list? temp~1185211294~154) (let ((e2~1185211294~148 temp~1185211294~154)) (if (for-all $ex:identifier? x~1185211294~145) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~151)) 0 (quote (core let))) (cons x~1185211294~145 (cons e1~1185211294~147 e2~1185211294~148))) v~1185211294~146) (fail~1185211294~121))) (fail~1185211294~121))))) (fail~1185211294~121)))) (if (null? cols~1185211294~157) (quote (() ())) (apply map list cols~1185211294~157))) (fail~1185211294~121))))) (fail~1185211294~121)))) (fail~1185211294~121)))))))) ($ex:register-macro! (quote letrec~1185211294~165) (lambda (x~1185211294~167) ((lambda () (let ((input~1185211294~170 x~1185211294~167)) (let ((fail~1185211294~171 (lambda () ($ex:invalid-form input~1185211294~170)))) (if (pair? input~1185211294~170) (let ((temp~1185211294~197 (car input~1185211294~170))) (let ((temp~1185211294~186 (cdr input~1185211294~170))) (if (pair? temp~1185211294~186) (let ((temp~1185211294~190 (car temp~1185211294~186))) ($ex:map-while (lambda (temp~1185211294~190) (if (pair? temp~1185211294~190) (let ((temp~1185211294~196 (car temp~1185211294~190))) (let ((i~1185211294~172 temp~1185211294~196)) (let ((temp~1185211294~193 (cdr temp~1185211294~190))) (if (pair? temp~1185211294~193) (let ((temp~1185211294~195 (car temp~1185211294~193))) (let ((v~1185211294~173 temp~1185211294~195)) (let ((temp~1185211294~194 (cdr temp~1185211294~193))) (if (null? temp~1185211294~194) (list i~1185211294~172 v~1185211294~173) #f)))) #f)))) #f)) temp~1185211294~190 (lambda (cols~1185211294~191 rest~1185211294~192) (if (null? rest~1185211294~192) (apply (lambda (i~1185211294~172 v~1185211294~173) (let ((temp~1185211294~187 (cdr temp~1185211294~186))) (if (pair? temp~1185211294~187) (let ((temp~1185211294~189 (car temp~1185211294~187))) (let ((e1~1185211294~174 temp~1185211294~189)) (let ((temp~1185211294~188 (cdr temp~1185211294~187))) (if (list? temp~1185211294~188) (let ((e2~1185211294~175 temp~1185211294~188)) (let ((input~1185211294~178 ($ex:generate-temporaries i~1185211294~172))) (let ((fail~1185211294~180 (lambda () ($ex:invalid-form input~1185211294~178)))) (if (list? input~1185211294~178) (let ((t~1185211294~181 input~1185211294~178)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~185)) 0 (quote (core let))) (cons (map (lambda (i~1185211294~172) (cons i~1185211294~172 (cons (cons ($ex:syntax-rename (quote unspecified) (quote ()) (quote (env~1185211294~185)) 0 (quote (core let))) (quote ())) (quote ())))) i~1185211294~172) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~185)) 0 (quote (core let))) (cons (map (lambda (t~1185211294~181 v~1185211294~173) (cons t~1185211294~181 (cons v~1185211294~173 (quote ())))) t~1185211294~181 v~1185211294~173) (append (map (lambda (i~1185211294~172 t~1185211294~181) (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185211294~185)) 0 (quote (core let))) (cons i~1185211294~172 (cons t~1185211294~181 (quote ()))))) i~1185211294~172 t~1185211294~181) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~185)) 0 (quote (core let))) (cons (quote ()) (cons e1~1185211294~174 e2~1185211294~175))) (quote ()))))) (quote ())))))) (fail~1185211294~180))))) (fail~1185211294~171))))) (fail~1185211294~171)))) (if (null? cols~1185211294~191) (quote (() ())) (apply map list cols~1185211294~191))) (fail~1185211294~171))))) (fail~1185211294~171)))) (fail~1185211294~171)))))))) ($ex:register-macro! (quote letrec*~1185211294~201) (lambda (x~1185211294~203) ((lambda () (let ((input~1185211294~206 x~1185211294~203)) (let ((fail~1185211294~207 (lambda () ($ex:invalid-form input~1185211294~206)))) (if (pair? input~1185211294~206) (let ((temp~1185211294~225 (car input~1185211294~206))) (let ((temp~1185211294~214 (cdr input~1185211294~206))) (if (pair? temp~1185211294~214) (let ((temp~1185211294~218 (car temp~1185211294~214))) ($ex:map-while (lambda (temp~1185211294~218) (if (pair? temp~1185211294~218) (let ((temp~1185211294~224 (car temp~1185211294~218))) (let ((i~1185211294~208 temp~1185211294~224)) (let ((temp~1185211294~221 (cdr temp~1185211294~218))) (if (pair? temp~1185211294~221) (let ((temp~1185211294~223 (car temp~1185211294~221))) (let ((v~1185211294~209 temp~1185211294~223)) (let ((temp~1185211294~222 (cdr temp~1185211294~221))) (if (null? temp~1185211294~222) (list i~1185211294~208 v~1185211294~209) #f)))) #f)))) #f)) temp~1185211294~218 (lambda (cols~1185211294~219 rest~1185211294~220) (if (null? rest~1185211294~220) (apply (lambda (i~1185211294~208 v~1185211294~209) (let ((temp~1185211294~215 (cdr temp~1185211294~214))) (if (pair? temp~1185211294~215) (let ((temp~1185211294~217 (car temp~1185211294~215))) (let ((e1~1185211294~210 temp~1185211294~217)) (let ((temp~1185211294~216 (cdr temp~1185211294~215))) (if (list? temp~1185211294~216) (let ((e2~1185211294~211 temp~1185211294~216)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~213)) 0 (quote (core let))) (cons (quote ()) (append (map (lambda (i~1185211294~208 v~1185211294~209) (cons ($ex:syntax-rename (quote define) (quote ()) (quote (env~1185211294~213)) 0 (quote (core let))) (cons i~1185211294~208 (cons v~1185211294~209 (quote ()))))) i~1185211294~208 v~1185211294~209) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~213)) 0 (quote (core let))) (cons (quote ()) (cons e1~1185211294~210 e2~1185211294~211))) (quote ())))))) (fail~1185211294~207))))) (fail~1185211294~207)))) (if (null? cols~1185211294~219) (quote (() ())) (apply map list cols~1185211294~219))) (fail~1185211294~207))))) (fail~1185211294~207)))) (fail~1185211294~207)))))))) ($ex:unspecified)) (define unspecified~1185211294~199 ($ex:unspecified)) (define (~core.let~invoke) (set! unspecified~1185211294~199 (lambda () ((lambda () (if #f #f))))) ($ex:unspecified)))

(begin (define ~core.derived~envs (quote ((env~1185211294~517 ((((body) pattern-variable body~1185211294~513 (1) 0))) ((((e) pattern-variable e~1185211294~446 (1) 0) ((c1) pattern-variable c1~1185211294~447 (1) 0) ((c2) pattern-variable c2~1185211294~448 (1) 1))) (()) ((((x) variable x~1185211294~441 (1) #f))) . env~1185211294~230) (env~1185211294~505 ((((k) pattern-variable k~1185211294~501 (1) 1) ((e1) pattern-variable e1~1185211294~502 (1) 0) ((e2) pattern-variable e2~1185211294~503 (1) 1))) ((((rest) pattern-variable rest~1185211294~495 (1) 0))) (()) ((((c1) variable c1~1185211294~466 (1) #f) ((cmore) variable cmore~1185211294~467 (1) #f))) (()) ((((f) variable f~1185211294~457 (1) #f))) ((((e) pattern-variable e~1185211294~446 (1) 0) ((c1) pattern-variable c1~1185211294~447 (1) 0) ((c2) pattern-variable c2~1185211294~448 (1) 1))) (()) ((((x) variable x~1185211294~441 (1) #f))) . env~1185211294~230) (env~1185211294~486 ((((e1) pattern-variable e1~1185211294~483 (1) 0) ((e2) pattern-variable e2~1185211294~484 (1) 1))) (()) ((((c1) variable c1~1185211294~466 (1) #f) ((cmore) variable cmore~1185211294~467 (1) #f))) (()) ((((f) variable f~1185211294~457 (1) #f))) ((((e) pattern-variable e~1185211294~446 (1) 0) ((c1) pattern-variable c1~1185211294~447 (1) 0) ((c2) pattern-variable c2~1185211294~448 (1) 1))) (()) ((((x) variable x~1185211294~441 (1) #f))) . env~1185211294~230) (env~1185211294~478 ((((k) pattern-variable k~1185211294~474 (1) 1) ((e1) pattern-variable e1~1185211294~475 (1) 0) ((e2) pattern-variable e2~1185211294~476 (1) 1))) (()) ((((c1) variable c1~1185211294~466 (1) #f) ((cmore) variable cmore~1185211294~467 (1) #f))) (()) ((((f) variable f~1185211294~457 (1) #f))) ((((e) pattern-variable e~1185211294~446 (1) 0) ((c1) pattern-variable c1~1185211294~447 (1) 0) ((c2) pattern-variable c2~1185211294~448 (1) 1))) (()) ((((x) variable x~1185211294~441 (1) #f))) . env~1185211294~230) (env~1185211294~427 ((((e1) pattern-variable e1~1185211294~424 (1) 0) ((e2) pattern-variable e2~1185211294~425 (1) 1))) (()) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~421 ((((e0) pattern-variable e0~1185211294~419 (1) 0))) (()) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~412 ((((e0) pattern-variable e0~1185211294~409 (1) 0) ((e1) pattern-variable e1~1185211294~410 (1) 0))) (()) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~404 ((((e0) pattern-variable e0~1185211294~400 (1) 0) ((e1) pattern-variable e1~1185211294~401 (1) 0) ((e2) pattern-variable e2~1185211294~402 (1) 1))) (()) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~387 ((((e0) pattern-variable e0~1185211294~385 (1) 0))) ((((rest) pattern-variable rest~1185211294~356 (1) 0))) ((((c2) pattern-variable c2~1185211294~348 (1) 0) ((c3) pattern-variable c3~1185211294~349 (1) 1))) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~378 ((((e0) pattern-variable e0~1185211294~375 (1) 0) ((e1) pattern-variable e1~1185211294~376 (1) 0))) ((((rest) pattern-variable rest~1185211294~356 (1) 0))) ((((c2) pattern-variable c2~1185211294~348 (1) 0) ((c3) pattern-variable c3~1185211294~349 (1) 1))) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~370 ((((e0) pattern-variable e0~1185211294~366 (1) 0) ((e1) pattern-variable e1~1185211294~367 (1) 0) ((e2) pattern-variable e2~1185211294~368 (1) 1))) ((((rest) pattern-variable rest~1185211294~356 (1) 0))) ((((c2) pattern-variable c2~1185211294~348 (1) 0) ((c3) pattern-variable c3~1185211294~349 (1) 1))) (()) ((((c1) variable c1~1185211294~341 (1) #f) ((c2*) variable c2*~1185211294~342 (1) #f))) (()) ((((f) variable f~1185211294~332 (1) #f))) ((((c1) pattern-variable c1~1185211294~325 (1) 0) ((c2) pattern-variable c2~1185211294~326 (1) 1))) (()) ((((x) variable x~1185211294~320 (1) #f))) . env~1185211294~230) (env~1185211294~310 ((((e1) pattern-variable e1~1185211294~307 (1) 0) ((e2) pattern-variable e2~1185211294~308 (1) 1))) (()) ((((x) variable x~1185211294~234 (1) #f))) . env~1185211294~230) (env~1185211294~287 ((((x) pattern-variable x~1185211294~284 (1) 0) ((v) pattern-variable v~1185211294~285 (1) 0))) (()) ((((bindings) variable bindings~1185211294~259 (1) #f))) (()) ((((f) variable f~1185211294~250 (1) #f))) ((((x) pattern-variable x~1185211294~240 (1) 1) ((v) pattern-variable v~1185211294~241 (1) 1) ((e1) pattern-variable e1~1185211294~242 (1) 0) ((e2) pattern-variable e2~1185211294~243 (1) 1))) (()) ((((x) variable x~1185211294~234 (1) #f))) . env~1185211294~230) (env~1185211294~277 ((((body) pattern-variable body~1185211294~273 (1) 0))) ((((x) pattern-variable x~1185211294~265 (1) 0) ((v) pattern-variable v~1185211294~266 (1) 0) ((rest) pattern-variable rest~1185211294~267 (1) 0))) (()) ((((bindings) variable bindings~1185211294~259 (1) #f))) (()) ((((f) variable f~1185211294~250 (1) #f))) ((((x) pattern-variable x~1185211294~240 (1) 1) ((v) pattern-variable v~1185211294~241 (1) 1) ((e1) pattern-variable e1~1185211294~242 (1) 0) ((e2) pattern-variable e2~1185211294~243 (1) 1))) (()) ((((x) variable x~1185211294~234 (1) #f))) . env~1185211294~230) (env~1185211294~230 ((((else) macro else~1185211294~530 (0) #f) ((=>) macro =>~1185211294~525 (0) #f) ((case) macro case~1185211294~439 (0) #f) ((cond) macro cond~1185211294~318 (0) #f) ((let*) macro let*~1185211294~232 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((letrec*) macro letrec*~1185211294~201 (1 0) #f) ((letrec) macro letrec~1185211294~165 (1 0) #f) ((let) macro let~1185211294~115 (1 0) #f) ((with-syntax) macro with-syntax~1185211294~9 (1) #f) ((syntax-rules) macro syntax-rules~1185211294~67 (1) #f))))))) (define ~core.derived~exports (quote ((let* macro let*~1185211294~232 (0) #f) (cond macro cond~1185211294~318 (0) #f) (case macro case~1185211294~439 (0) #f) (else macro else~1185211294~530 (0) #f) (=> macro =>~1185211294~525 (0) #f)))) (define ~core.derived~imports (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)))) (define (~core.derived~visit) ($ex:register-macro! (quote let*~1185211294~232) (lambda (x~1185211294~234) ((lambda () (let ((input~1185211294~237 x~1185211294~234)) (let ((fail~1185211294~238 (lambda () (let ((fail~1185211294~239 (lambda () ($ex:invalid-form input~1185211294~237)))) (if (pair? input~1185211294~237) (let ((temp~1185211294~306 (car input~1185211294~237))) (let ((temp~1185211294~295 (cdr input~1185211294~237))) (if (pair? temp~1185211294~295) (let ((temp~1185211294~299 (car temp~1185211294~295))) ($ex:map-while (lambda (temp~1185211294~299) (if (pair? temp~1185211294~299) (let ((temp~1185211294~305 (car temp~1185211294~299))) (let ((x~1185211294~240 temp~1185211294~305)) (let ((temp~1185211294~302 (cdr temp~1185211294~299))) (if (pair? temp~1185211294~302) (let ((temp~1185211294~304 (car temp~1185211294~302))) (let ((v~1185211294~241 temp~1185211294~304)) (let ((temp~1185211294~303 (cdr temp~1185211294~302))) (if (null? temp~1185211294~303) (list x~1185211294~240 v~1185211294~241) #f)))) #f)))) #f)) temp~1185211294~299 (lambda (cols~1185211294~300 rest~1185211294~301) (if (null? rest~1185211294~301) (apply (lambda (x~1185211294~240 v~1185211294~241) (let ((temp~1185211294~296 (cdr temp~1185211294~295))) (if (pair? temp~1185211294~296) (let ((temp~1185211294~298 (car temp~1185211294~296))) (let ((e1~1185211294~242 temp~1185211294~298)) (let ((temp~1185211294~297 (cdr temp~1185211294~296))) (if (list? temp~1185211294~297) (let ((e2~1185211294~243 temp~1185211294~297)) (if (for-all $ex:identifier? x~1185211294~240) (((lambda (f~1185211294~250) ((lambda () ((lambda (gen~1185211294~247~1185211294~253) ((lambda () (set! f~1185211294~250 gen~1185211294~247~1185211294~253) ((lambda () ((lambda () f~1185211294~250))))))) (lambda (bindings~1185211294~259) ((lambda () (let ((input~1185211294~262 bindings~1185211294~259)) (let ((fail~1185211294~263 (lambda () (let ((fail~1185211294~264 (lambda () ($ex:invalid-form input~1185211294~262)))) (if (pair? input~1185211294~262) (let ((temp~1185211294~279 (car input~1185211294~262))) (if (pair? temp~1185211294~279) (let ((temp~1185211294~283 (car temp~1185211294~279))) (let ((x~1185211294~265 temp~1185211294~283)) (let ((temp~1185211294~280 (cdr temp~1185211294~279))) (if (pair? temp~1185211294~280) (let ((temp~1185211294~282 (car temp~1185211294~280))) (let ((v~1185211294~266 temp~1185211294~282)) (let ((temp~1185211294~281 (cdr temp~1185211294~280))) (if (null? temp~1185211294~281) (let ((temp~1185211294~278 (cdr input~1185211294~262))) (let ((rest~1185211294~267 temp~1185211294~278)) (let ((input~1185211294~270 (f~1185211294~250 rest~1185211294~267))) (let ((fail~1185211294~272 (lambda () ($ex:invalid-form input~1185211294~270)))) (let ((body~1185211294~273 input~1185211294~270)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~277)) 0 (quote (core derived))) (cons (cons (cons x~1185211294~265 (cons v~1185211294~266 (quote ()))) (quote ())) (cons body~1185211294~273 (quote ())))))))))) (fail~1185211294~264))))) (fail~1185211294~264))))) (fail~1185211294~264))) (fail~1185211294~264)))))) (if (pair? input~1185211294~262) (let ((temp~1185211294~289 (car input~1185211294~262))) (if (pair? temp~1185211294~289) (let ((temp~1185211294~293 (car temp~1185211294~289))) (let ((x~1185211294~284 temp~1185211294~293)) (let ((temp~1185211294~290 (cdr temp~1185211294~289))) (if (pair? temp~1185211294~290) (let ((temp~1185211294~292 (car temp~1185211294~290))) (let ((v~1185211294~285 temp~1185211294~292)) (let ((temp~1185211294~291 (cdr temp~1185211294~290))) (if (null? temp~1185211294~291) (let ((temp~1185211294~288 (cdr input~1185211294~262))) (if (null? temp~1185211294~288) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~287)) 0 (quote (core derived))) (cons (cons (cons x~1185211294~284 (cons v~1185211294~285 (quote ()))) (quote ())) (cons e1~1185211294~242 e2~1185211294~243))) (fail~1185211294~263))) (fail~1185211294~263))))) (fail~1185211294~263))))) (fail~1185211294~263))) (fail~1185211294~263))))))))))) (unspecified~1185211294~199)) (map (lambda (x~1185211294~240 v~1185211294~241) (cons x~1185211294~240 (cons v~1185211294~241 (quote ())))) x~1185211294~240 v~1185211294~241)) (fail~1185211294~239))) (fail~1185211294~239))))) (fail~1185211294~239)))) (if (null? cols~1185211294~300) (quote (() ())) (apply map list cols~1185211294~300))) (fail~1185211294~239))))) (fail~1185211294~239)))) (fail~1185211294~239)))))) (if (pair? input~1185211294~237) (let ((temp~1185211294~316 (car input~1185211294~237))) (let ((temp~1185211294~311 (cdr input~1185211294~237))) (if (pair? temp~1185211294~311) (let ((temp~1185211294~315 (car temp~1185211294~311))) (if (null? temp~1185211294~315) (let ((temp~1185211294~312 (cdr temp~1185211294~311))) (if (pair? temp~1185211294~312) (let ((temp~1185211294~314 (car temp~1185211294~312))) (let ((e1~1185211294~307 temp~1185211294~314)) (let ((temp~1185211294~313 (cdr temp~1185211294~312))) (if (list? temp~1185211294~313) (let ((e2~1185211294~308 temp~1185211294~313)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~310)) 0 (quote (core derived))) (cons (quote ()) (cons e1~1185211294~307 e2~1185211294~308)))) (fail~1185211294~238))))) (fail~1185211294~238))) (fail~1185211294~238))) (fail~1185211294~238)))) (fail~1185211294~238)))))))) ($ex:register-macro! (quote cond~1185211294~318) (lambda (x~1185211294~320) ((lambda () (let ((input~1185211294~323 x~1185211294~320)) (let ((fail~1185211294~324 (lambda () ($ex:invalid-form input~1185211294~323)))) (if (pair? input~1185211294~323) (let ((temp~1185211294~437 (car input~1185211294~323))) (let ((temp~1185211294~434 (cdr input~1185211294~323))) (if (pair? temp~1185211294~434) (let ((temp~1185211294~436 (car temp~1185211294~434))) (let ((c1~1185211294~325 temp~1185211294~436)) (let ((temp~1185211294~435 (cdr temp~1185211294~434))) (if (list? temp~1185211294~435) (let ((c2~1185211294~326 temp~1185211294~435)) (((lambda (f~1185211294~332) ((lambda () ((lambda (gen~1185211294~329~1185211294~335) ((lambda () (set! f~1185211294~332 gen~1185211294~329~1185211294~335) ((lambda () ((lambda () f~1185211294~332))))))) (lambda (c1~1185211294~341 c2*~1185211294~342) ((lambda () (let ((input~1185211294~345 c2*~1185211294~342)) (let ((fail~1185211294~346 (lambda () (let ((fail~1185211294~347 (lambda () ($ex:invalid-form input~1185211294~345)))) (if (pair? input~1185211294~345) (let ((temp~1185211294~391 (car input~1185211294~345))) (let ((c2~1185211294~348 temp~1185211294~391)) (let ((temp~1185211294~390 (cdr input~1185211294~345))) (if (list? temp~1185211294~390) (let ((c3~1185211294~349 temp~1185211294~390)) (let ((input~1185211294~352 (f~1185211294~332 c2~1185211294~348 c3~1185211294~349))) (let ((fail~1185211294~355 (lambda () ($ex:invalid-form input~1185211294~352)))) (let ((rest~1185211294~356 input~1185211294~352)) (begin (let ((input~1185211294~360 c1~1185211294~341)) (let ((fail~1185211294~361 (lambda () (let ((fail~1185211294~362 (lambda () (let ((fail~1185211294~363 (lambda () (let ((fail~1185211294~364 (lambda () ($ex:invalid-form input~1185211294~360)))) ($ex:syntax-violation (quote cond) "Invalid expression" x~1185211294~320))))) (if (pair? input~1185211294~360) (let ((temp~1185211294~374 (car input~1185211294~360))) (let ((e0~1185211294~366 temp~1185211294~374)) (let ((temp~1185211294~371 (cdr input~1185211294~360))) (if (pair? temp~1185211294~371) (let ((temp~1185211294~373 (car temp~1185211294~371))) (let ((e1~1185211294~367 temp~1185211294~373)) (let ((temp~1185211294~372 (cdr temp~1185211294~371))) (if (list? temp~1185211294~372) (let ((e2~1185211294~368 temp~1185211294~372)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~370)) 0 (quote (core derived))) (cons e0~1185211294~366 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~370)) 0 (quote (core derived))) (cons e1~1185211294~367 e2~1185211294~368)) (cons rest~1185211294~356 (quote ())))))) (fail~1185211294~363))))) (fail~1185211294~363))))) (fail~1185211294~363)))))) (if (pair? input~1185211294~360) (let ((temp~1185211294~384 (car input~1185211294~360))) (let ((e0~1185211294~375 temp~1185211294~384)) (let ((temp~1185211294~379 (cdr input~1185211294~360))) (if (pair? temp~1185211294~379) (let ((temp~1185211294~383 (car temp~1185211294~379))) (if (and ($ex:identifier? temp~1185211294~383) ($ex:free-identifier=? temp~1185211294~383 ($ex:syntax-rename (quote =>) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))))) (let ((temp~1185211294~380 (cdr temp~1185211294~379))) (if (pair? temp~1185211294~380) (let ((temp~1185211294~382 (car temp~1185211294~380))) (let ((e1~1185211294~376 temp~1185211294~382)) (let ((temp~1185211294~381 (cdr temp~1185211294~380))) (if (null? temp~1185211294~381) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))) (cons e0~1185211294~375 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))) (cons (cons e1~1185211294~376 (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~378)) 0 (quote (core derived))) (quote ()))) (cons rest~1185211294~356 (quote ()))))) (quote ())))) (fail~1185211294~362))))) (fail~1185211294~362))) (fail~1185211294~362))) (fail~1185211294~362))))) (fail~1185211294~362)))))) (if (pair? input~1185211294~360) (let ((temp~1185211294~389 (car input~1185211294~360))) (let ((e0~1185211294~385 temp~1185211294~389)) (let ((temp~1185211294~388 (cdr input~1185211294~360))) (if (null? temp~1185211294~388) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~387)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~387)) 0 (quote (core derived))) (cons e0~1185211294~385 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~387)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~387)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~387)) 0 (quote (core derived))) (cons rest~1185211294~356 (quote ()))))) (quote ())))) (fail~1185211294~361))))) (fail~1185211294~361))))))))) (fail~1185211294~347))))) (fail~1185211294~347)))))) (if (null? input~1185211294~345) (let ((input~1185211294~393 c1~1185211294~341)) (let ((fail~1185211294~394 (lambda () (let ((fail~1185211294~395 (lambda () (let ((fail~1185211294~396 (lambda () (let ((fail~1185211294~397 (lambda () (let ((fail~1185211294~398 (lambda () ($ex:invalid-form input~1185211294~393)))) ($ex:syntax-violation (quote cond) "Invalid expression" x~1185211294~320))))) (if (pair? input~1185211294~393) (let ((temp~1185211294~408 (car input~1185211294~393))) (let ((e0~1185211294~400 temp~1185211294~408)) (let ((temp~1185211294~405 (cdr input~1185211294~393))) (if (pair? temp~1185211294~405) (let ((temp~1185211294~407 (car temp~1185211294~405))) (let ((e1~1185211294~401 temp~1185211294~407)) (let ((temp~1185211294~406 (cdr temp~1185211294~405))) (if (list? temp~1185211294~406) (let ((e2~1185211294~402 temp~1185211294~406)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~404)) 0 (quote (core derived))) (cons e0~1185211294~400 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~404)) 0 (quote (core derived))) (cons e1~1185211294~401 e2~1185211294~402)) (quote ()))))) (fail~1185211294~397))))) (fail~1185211294~397))))) (fail~1185211294~397)))))) (if (pair? input~1185211294~393) (let ((temp~1185211294~418 (car input~1185211294~393))) (let ((e0~1185211294~409 temp~1185211294~418)) (let ((temp~1185211294~413 (cdr input~1185211294~393))) (if (pair? temp~1185211294~413) (let ((temp~1185211294~417 (car temp~1185211294~413))) (if (and ($ex:identifier? temp~1185211294~417) ($ex:free-identifier=? temp~1185211294~417 ($ex:syntax-rename (quote =>) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))))) (let ((temp~1185211294~414 (cdr temp~1185211294~413))) (if (pair? temp~1185211294~414) (let ((temp~1185211294~416 (car temp~1185211294~414))) (let ((e1~1185211294~410 temp~1185211294~416)) (let ((temp~1185211294~415 (cdr temp~1185211294~414))) (if (null? temp~1185211294~415) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))) (cons e0~1185211294~409 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))) (cons (cons e1~1185211294~410 (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~412)) 0 (quote (core derived))) (quote ()))) (quote ())))) (quote ())))) (fail~1185211294~396))))) (fail~1185211294~396))) (fail~1185211294~396))) (fail~1185211294~396))))) (fail~1185211294~396)))))) (if (pair? input~1185211294~393) (let ((temp~1185211294~423 (car input~1185211294~393))) (let ((e0~1185211294~419 temp~1185211294~423)) (let ((temp~1185211294~422 (cdr input~1185211294~393))) (if (null? temp~1185211294~422) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~421)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~421)) 0 (quote (core derived))) (cons e0~1185211294~419 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~421)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~421)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~421)) 0 (quote (core derived))) (quote ())))) (quote ())))) (fail~1185211294~395))))) (fail~1185211294~395)))))) (if (pair? input~1185211294~393) (let ((temp~1185211294~431 (car input~1185211294~393))) (if (and ($ex:identifier? temp~1185211294~431) ($ex:free-identifier=? temp~1185211294~431 ($ex:syntax-rename (quote else) (quote ()) (quote (env~1185211294~427)) 0 (quote (core derived))))) (let ((temp~1185211294~428 (cdr input~1185211294~393))) (if (pair? temp~1185211294~428) (let ((temp~1185211294~430 (car temp~1185211294~428))) (let ((e1~1185211294~424 temp~1185211294~430)) (let ((temp~1185211294~429 (cdr temp~1185211294~428))) (if (list? temp~1185211294~429) (let ((e2~1185211294~425 temp~1185211294~429)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~427)) 0 (quote (core derived))) (cons e1~1185211294~424 e2~1185211294~425))) (fail~1185211294~394))))) (fail~1185211294~394))) (fail~1185211294~394))) (fail~1185211294~394)))) (fail~1185211294~346))))))))))) (unspecified~1185211294~199)) c1~1185211294~325 c2~1185211294~326)) (fail~1185211294~324))))) (fail~1185211294~324)))) (fail~1185211294~324)))))))) ($ex:register-macro! (quote case~1185211294~439) (lambda (x~1185211294~441) ((lambda () (let ((input~1185211294~444 x~1185211294~441)) (let ((fail~1185211294~445 (lambda () ($ex:invalid-form input~1185211294~444)))) (if (pair? input~1185211294~444) (let ((temp~1185211294~523 (car input~1185211294~444))) (let ((temp~1185211294~518 (cdr input~1185211294~444))) (if (pair? temp~1185211294~518) (let ((temp~1185211294~522 (car temp~1185211294~518))) (let ((e~1185211294~446 temp~1185211294~522)) (let ((temp~1185211294~519 (cdr temp~1185211294~518))) (if (pair? temp~1185211294~519) (let ((temp~1185211294~521 (car temp~1185211294~519))) (let ((c1~1185211294~447 temp~1185211294~521)) (let ((temp~1185211294~520 (cdr temp~1185211294~519))) (if (list? temp~1185211294~520) (let ((c2~1185211294~448 temp~1185211294~520)) (let ((input~1185211294~451 (((lambda (f~1185211294~457) ((lambda () ((lambda (gen~1185211294~454~1185211294~460) ((lambda () (set! f~1185211294~457 gen~1185211294~454~1185211294~460) ((lambda () ((lambda () f~1185211294~457))))))) (lambda (c1~1185211294~466 cmore~1185211294~467) ((lambda () (if (null? cmore~1185211294~467) (let ((input~1185211294~471 c1~1185211294~466)) (let ((fail~1185211294~472 (lambda () (let ((fail~1185211294~473 (lambda () ($ex:invalid-form input~1185211294~471)))) (if (pair? input~1185211294~471) (let ((temp~1185211294~482 (car input~1185211294~471))) (if (list? temp~1185211294~482) (let ((k~1185211294~474 temp~1185211294~482)) (let ((temp~1185211294~479 (cdr input~1185211294~471))) (if (pair? temp~1185211294~479) (let ((temp~1185211294~481 (car temp~1185211294~479))) (let ((e1~1185211294~475 temp~1185211294~481)) (let ((temp~1185211294~480 (cdr temp~1185211294~479))) (if (list? temp~1185211294~480) (let ((e2~1185211294~476 temp~1185211294~480)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~478)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote memv) (quote ()) (quote (env~1185211294~478)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~478)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~478)) 0 (quote (core derived))) (cons k~1185211294~474 (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~478)) 0 (quote (core derived))) (cons e1~1185211294~475 e2~1185211294~476)) (quote ()))))) (fail~1185211294~473))))) (fail~1185211294~473)))) (fail~1185211294~473))) (fail~1185211294~473)))))) (if (pair? input~1185211294~471) (let ((temp~1185211294~490 (car input~1185211294~471))) (if (and ($ex:identifier? temp~1185211294~490) ($ex:free-identifier=? temp~1185211294~490 ($ex:syntax-rename (quote else) (quote ()) (quote (env~1185211294~486)) 0 (quote (core derived))))) (let ((temp~1185211294~487 (cdr input~1185211294~471))) (if (pair? temp~1185211294~487) (let ((temp~1185211294~489 (car temp~1185211294~487))) (let ((e1~1185211294~483 temp~1185211294~489)) (let ((temp~1185211294~488 (cdr temp~1185211294~487))) (if (list? temp~1185211294~488) (let ((e2~1185211294~484 temp~1185211294~488)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~486)) 0 (quote (core derived))) (cons e1~1185211294~483 e2~1185211294~484))) (fail~1185211294~472))))) (fail~1185211294~472))) (fail~1185211294~472))) (fail~1185211294~472)))) (let ((input~1185211294~493 (f~1185211294~457 (car cmore~1185211294~467) (cdr cmore~1185211294~467)))) (let ((fail~1185211294~494 (lambda () ($ex:invalid-form input~1185211294~493)))) (let ((rest~1185211294~495 input~1185211294~493)) (begin (let ((input~1185211294~499 c1~1185211294~466)) (let ((fail~1185211294~500 (lambda () ($ex:invalid-form input~1185211294~499)))) (if (pair? input~1185211294~499) (let ((temp~1185211294~509 (car input~1185211294~499))) (if (list? temp~1185211294~509) (let ((k~1185211294~501 temp~1185211294~509)) (let ((temp~1185211294~506 (cdr input~1185211294~499))) (if (pair? temp~1185211294~506) (let ((temp~1185211294~508 (car temp~1185211294~506))) (let ((e1~1185211294~502 temp~1185211294~508)) (let ((temp~1185211294~507 (cdr temp~1185211294~506))) (if (list? temp~1185211294~507) (let ((e2~1185211294~503 temp~1185211294~507)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~505)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote memv) (quote ()) (quote (env~1185211294~505)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~505)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~505)) 0 (quote (core derived))) (cons k~1185211294~501 (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~505)) 0 (quote (core derived))) (cons e1~1185211294~502 e2~1185211294~503)) (cons rest~1185211294~495 (quote ())))))) (fail~1185211294~500))))) (fail~1185211294~500)))) (fail~1185211294~500))) (fail~1185211294~500)))))))))))))))) (unspecified~1185211294~199)) c1~1185211294~447 c2~1185211294~448))) (let ((fail~1185211294~512 (lambda () ($ex:invalid-form input~1185211294~451)))) (let ((body~1185211294~513 input~1185211294~451)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~517)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185211294~517)) 0 (quote (core derived))) (cons e~1185211294~446 (quote ()))) (quote ())) (cons body~1185211294~513 (quote ()))))))))) (fail~1185211294~445))))) (fail~1185211294~445))))) (fail~1185211294~445)))) (fail~1185211294~445)))))))) ($ex:register-macro! (quote =>~1185211294~525) (lambda (x~1185211294~527) ((lambda () ($ex:syntax-violation (quote =>) "Invalid expression" x~1185211294~527))))) ($ex:register-macro! (quote else~1185211294~530) (lambda (x~1185211294~532) ((lambda () ($ex:syntax-violation (quote else) "Invalid expression" x~1185211294~532))))) ($ex:unspecified)) (define (~core.derived~invoke) ($ex:unspecified)))

(begin (define ~core.identifier-syntax~envs (quote ((env~1185211294~578 ((((e) pattern-variable e~1185211294~576 (1) 0))) (()) ((((x) variable x~1185211294~539 (1) #f))) . env~1185211294~535) (env~1185211294~555 ((((id) pattern-variable id~1185211294~545 (1) 0) ((exp1) pattern-variable exp1~1185211294~546 (1) 0) ((var) pattern-variable var~1185211294~547 (1) 0) ((val) pattern-variable val~1185211294~548 (1) 0) ((exp2) pattern-variable exp2~1185211294~549 (1) 0))) (()) ((((x) variable x~1185211294~539 (1) #f))) . env~1185211294~535) (env~1185211294~535 ((((identifier-syntax) macro identifier-syntax~1185211294~537 (0) #f) ((eval) variable $ex:eval (1 0 -1) #f) ((environment) variable $ex:environment (1 0 -1) #f) ((syntax-violation) variable $ex:syntax-violation (1 0 -1) #f) ((syntax->datum) variable $ex:syntax->datum (1 0 -1) #f) ((datum->syntax) variable $ex:datum->syntax (1 0 -1) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0 -1) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0 -1) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0 -1) #f) ((identifier?) variable $ex:identifier? (1 0 -1) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0 -1) #f) ((modulo) variable modulo (1 0 -1) #f) ((remainder) variable remainder (1 0 -1) #f) ((quotient) variable quotient (1 0 -1) #f) ((inexact->exact) variable inexact->exact (1 0 -1) #f) ((exact->inexact) variable exact->inexact (1 0 -1) #f) ((set-cdr!) variable set-cdr! (1 0 -1) #f) ((set-car!) variable set-car! (1 0 -1) #f) ((string-set!) variable string-set! (1 0 -1) #f) ((string-fill!) variable string-fill! (1 0 -1) #f) ((string-ci>=?) variable string-ci>=? (1 0 -1) #f) ((string-ci<=?) variable string-ci<=? (1 0 -1) #f) ((string-ci>?) variable string-ci>? (1 0 -1) #f) ((string-ci<?) variable string-ci<? (1 0 -1) #f) ((string-ci=?) variable string-ci=? (1 0 -1) #f) ((char-lower-case?) variable char-lower-case? (1 0 -1) #f) ((char-upper-case?) variable char-upper-case? (1 0 -1) #f) ((char-whitespace?) variable char-whitespace? (1 0 -1) #f) ((char-numeric?) variable char-numeric? (1 0 -1) #f) ((char-alphabetic?) variable char-alphabetic? (1 0 -1) #f) ((char-ci>=?) variable char-ci>=? (1 0 -1) #f) ((char-ci<=?) variable char-ci<=? (1 0 -1) #f) ((char-ci>?) variable char-ci>? (1 0 -1) #f) ((char-ci<?) variable char-ci<? (1 0 -1) #f) ((char-ci=?) variable char-ci=? (1 0 -1) #f) ((char-downcase) variable char-downcase (1 0 -1) #f) ((char-upcase) variable char-upcase (1 0 -1) #f) ((write-char) variable write-char (1 0 -1) #f) ((write) variable write (1 0 -1) #f) ((with-output-to-file) variable with-output-to-file (1 0 -1) #f) ((with-input-from-file) variable with-input-from-file (1 0 -1) #f) ((read-char) variable read-char (1 0 -1) #f) ((read) variable read (1 0 -1) #f) ((peek-char) variable peek-char (1 0 -1) #f) ((open-output-file) variable open-output-file (1 0 -1) #f) ((open-input-file) variable open-input-file (1 0 -1) #f) ((newline) variable newline (1 0 -1) #f) ((eof-object?) variable eof-object? (1 0 -1) #f) ((display) variable display (1 0 -1) #f) ((current-output-port) variable current-output-port (1 0 -1) #f) ((current-input-port) variable current-input-port (1 0 -1) #f) ((close-output-port) variable close-output-port (1 0 -1) #f) ((close-input-port) variable close-input-port (1 0 -1) #f) ((call-with-output-file) variable call-with-output-file (1 0 -1) #f) ((call-with-input-file) variable call-with-input-file (1 0 -1) #f) ((assq) variable assq (1 0 -1) #f) ((assv) variable assv (1 0 -1) #f) ((assoc) variable assoc (1 0 -1) #f) ((assp) variable assp (1 0 -1) #f) ((memq) variable memq (1 0 -1) #f) ((memv) variable memv (1 0 -1) #f) ((member) variable member (1 0 -1) #f) ((memp) variable memp (1 0 -1) #f) ((remv) variable remv (1 0 -1) #f) ((remq) variable remq (1 0 -1) #f) ((remove) variable remove (1 0 -1) #f) ((remp) variable remp (1 0 -1) #f) ((fold-right) variable fold-right (1 0 -1) #f) ((fold-left) variable fold-left (1 0 -1) #f) ((partition) variable partition (1 0 -1) #f) ((filter) variable filter (1 0 -1) #f) ((exists) variable exists (1 0 -1) #f) ((for-all) variable for-all (1 0 -1) #f) ((find) variable find (1 0 -1) #f) ((call/cc) variable call/cc (1 0 -1) #f) ((assertion-violation) variable assertion-violation (1 0 -1) #f) ((error) variable error (1 0 -1) #f) ((vector-for-each) variable vector-for-each (1 0 -1) #f) ((vector-map) variable vector-map (1 0 -1) #f) ((string-for-each) variable string-for-each (1 0 -1) #f) ((symbol=?) variable symbol=? (1 0 -1) #f) ((boolean=?) variable boolean=? (1 0 -1) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0 -1) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0 -1) #f) ((mod0) variable mod0 (1 0 -1) #f) ((div0) variable div0 (1 0 -1) #f) ((div-and-mod) variable div-and-mod (1 0 -1) #f) ((mod) variable mod (1 0 -1) #f) ((div) variable div (1 0 -1) #f) ((nan?) variable nan? (1 0 -1) #f) ((infinite?) variable infinite? (1 0 -1) #f) ((finite?) variable finite? (1 0 -1) #f) ((inexact) variable inexact (1 0 -1) #f) ((exact) variable exact (1 0 -1) #f) ((integer-valued?) variable integer-valued? (1 0 -1) #f) ((rational-valued?) variable rational-valued? (1 0 -1) #f) ((real-valued?) variable real-valued? (1 0 -1) #f) ((zero?) variable zero? (1 0 -1) #f) ((vector?) variable vector? (1 0 -1) #f) ((vector-set!) variable vector-set! (1 0 -1) #f) ((vector-ref) variable vector-ref (1 0 -1) #f) ((vector-length) variable vector-length (1 0 -1) #f) ((vector-fill!) variable vector-fill! (1 0 -1) #f) ((vector->list) variable vector->list (1 0 -1) #f) ((vector) variable vector (1 0 -1) #f) ((values) variable values (1 0 -1) #f) ((truncate) variable truncate (1 0 -1) #f) ((tan) variable tan (1 0 -1) #f) ((symbol?) variable symbol? (1 0 -1) #f) ((symbol->string) variable symbol->string (1 0 -1) #f) ((substring) variable substring (1 0 -1) #f) ((string?) variable string? (1 0 -1) #f) ((string>?) variable string>? (1 0 -1) #f) ((string>=?) variable string>=? (1 0 -1) #f) ((string=?) variable string=? (1 0 -1) #f) ((string<?) variable string<? (1 0 -1) #f) ((string<=?) variable string<=? (1 0 -1) #f) ((string-ref) variable string-ref (1 0 -1) #f) ((string-length) variable string-length (1 0 -1) #f) ((string-copy) variable string-copy (1 0 -1) #f) ((string-append) variable string-append (1 0 -1) #f) ((string->symbol) variable string->symbol (1 0 -1) #f) ((string->number) variable string->number (1 0 -1) #f) ((string->list) variable string->list (1 0 -1) #f) ((string) variable string (1 0 -1) #f) ((sqrt) variable sqrt (1 0 -1) #f) ((sin) variable sin (1 0 -1) #f) ((round) variable round (1 0 -1) #f) ((reverse) variable reverse (1 0 -1) #f) ((real?) variable real? (1 0 -1) #f) ((real-part) variable real-part (1 0 -1) #f) ((rationalize) variable rationalize (1 0 -1) #f) ((rational?) variable rational? (1 0 -1) #f) ((procedure?) variable procedure? (1 0 -1) #f) ((positive?) variable positive? (1 0 -1) #f) ((pair?) variable pair? (1 0 -1) #f) ((odd?) variable odd? (1 0 -1) #f) ((numerator) variable numerator (1 0 -1) #f) ((number?) variable number? (1 0 -1) #f) ((number->string) variable number->string (1 0 -1) #f) ((null?) variable null? (1 0 -1) #f) ((not) variable not (1 0 -1) #f) ((negative?) variable negative? (1 0 -1) #f) ((min) variable min (1 0 -1) #f) ((max) variable max (1 0 -1) #f) ((map) variable map (1 0 -1) #f) ((make-vector) variable make-vector (1 0 -1) #f) ((make-string) variable make-string (1 0 -1) #f) ((make-rectangular) variable make-rectangular (1 0 -1) #f) ((make-polar) variable make-polar (1 0 -1) #f) ((magnitude) variable magnitude (1 0 -1) #f) ((log) variable log (1 0 -1) #f) ((list?) variable list? (1 0 -1) #f) ((list-tail) variable list-tail (1 0 -1) #f) ((list-ref) variable list-ref (1 0 -1) #f) ((list->vector) variable list->vector (1 0 -1) #f) ((list->string) variable list->string (1 0 -1) #f) ((list) variable list (1 0 -1) #f) ((length) variable length (1 0 -1) #f) ((lcm) variable lcm (1 0 -1) #f) ((integer?) variable integer? (1 0 -1) #f) ((integer->char) variable integer->char (1 0 -1) #f) ((inexact?) variable inexact? (1 0 -1) #f) ((imag-part) variable imag-part (1 0 -1) #f) ((gcd) variable gcd (1 0 -1) #f) ((for-each) variable for-each (1 0 -1) #f) ((floor) variable floor (1 0 -1) #f) ((expt) variable expt (1 0 -1) #f) ((exp) variable exp (1 0 -1) #f) ((exact?) variable exact? (1 0 -1) #f) ((even?) variable even? (1 0 -1) #f) ((eqv?) variable eqv? (1 0 -1) #f) ((equal?) variable equal? (1 0 -1) #f) ((eq?) variable eq? (1 0 -1) #f) ((dynamic-wind) variable dynamic-wind (1 0 -1) #f) ((denominator) variable denominator (1 0 -1) #f) ((cos) variable cos (1 0 -1) #f) ((cons) variable cons (1 0 -1) #f) ((complex?) variable complex? (1 0 -1) #f) ((char->integer) variable char->integer (1 0 -1) #f) ((ceiling) variable ceiling (1 0 -1) #f) ((cddddr) variable cddddr (1 0 -1) #f) ((cdddar) variable cdddar (1 0 -1) #f) ((cddadr) variable cddadr (1 0 -1) #f) ((cddaar) variable cddaar (1 0 -1) #f) ((cdaddr) variable cdaddr (1 0 -1) #f) ((cdadar) variable cdadar (1 0 -1) #f) ((cdaadr) variable cdaadr (1 0 -1) #f) ((cdaaar) variable cdaaar (1 0 -1) #f) ((cadddr) variable cadddr (1 0 -1) #f) ((caddar) variable caddar (1 0 -1) #f) ((cadadr) variable cadadr (1 0 -1) #f) ((cadaar) variable cadaar (1 0 -1) #f) ((caaddr) variable caaddr (1 0 -1) #f) ((caadar) variable caadar (1 0 -1) #f) ((caaadr) variable caaadr (1 0 -1) #f) ((caaaar) variable caaaar (1 0 -1) #f) ((cdddr) variable cdddr (1 0 -1) #f) ((cddar) variable cddar (1 0 -1) #f) ((cdadr) variable cdadr (1 0 -1) #f) ((cdaar) variable cdaar (1 0 -1) #f) ((caddr) variable caddr (1 0 -1) #f) ((cadar) variable cadar (1 0 -1) #f) ((caadr) variable caadr (1 0 -1) #f) ((caaar) variable caaar (1 0 -1) #f) ((cddr) variable cddr (1 0 -1) #f) ((cdar) variable cdar (1 0 -1) #f) ((cadr) variable cadr (1 0 -1) #f) ((caar) variable caar (1 0 -1) #f) ((cdr) variable cdr (1 0 -1) #f) ((car) variable car (1 0 -1) #f) ((call-with-values) variable call-with-values (1 0 -1) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0 -1) #f) ((boolean?) variable boolean? (1 0 -1) #f) ((atan) variable atan (1 0 -1) #f) ((asin) variable asin (1 0 -1) #f) ((apply) variable apply (1 0 -1) #f) ((append) variable append (1 0 -1) #f) ((acos) variable acos (1 0 -1) #f) ((abs) variable abs (1 0 -1) #f) ((>=) variable >= (1 0 -1) #f) ((>) variable > (1 0 -1) #f) ((=) variable = (1 0 -1) #f) ((<=) variable <= (1 0 -1) #f) ((<) variable < (1 0 -1) #f) ((/) variable / (1 0 -1) #f) ((-) variable - (1 0 -1) #f) ((+) variable + (1 0 -1) #f) ((*) variable * (1 0 -1) #f) ((syntax-case) macro syntax-case (1 0 -1) #f) ((syntax) macro syntax (1 0 -1) #f) ((...) macro ... (1 0 -1) #f) ((_) macro _ (1 0 -1) #f) ((letrec-syntax) macro letrec-syntax (1 0 -1) #f) ((let-syntax) macro let-syntax (1 0 -1) #f) ((define-syntax) macro define-syntax (1 0 -1) #f) ((define) macro define (1 0 -1) #f) ((or) macro or (1 0 -1) #f) ((and) macro and (1 0 -1) #f) ((set!) macro set! (1 0 -1) #f) ((quote) macro quote (1 0 -1) #f) ((lambda) macro lambda (1 0 -1) #f) ((if) macro if (1 0 -1) #f) ((begin) macro begin (1 0 -1) #f))))))) (define ~core.identifier-syntax~exports (quote ((identifier-syntax macro identifier-syntax~1185211294~537 (0) #f)))) (define ~core.identifier-syntax~imports (quote (((core primitives) 1 0 -1)))) (define (~core.identifier-syntax~visit) ($ex:register-macro! (quote identifier-syntax~1185211294~537) (lambda (x~1185211294~539) ((lambda () (let ((input~1185211294~542 x~1185211294~539)) (let ((fail~1185211294~543 (lambda () (let ((fail~1185211294~544 (lambda () ($ex:invalid-form input~1185211294~542)))) (if (pair? input~1185211294~542) (let ((temp~1185211294~575 (car input~1185211294~542))) (let ((temp~1185211294~556 (cdr input~1185211294~542))) (if (pair? temp~1185211294~556) (let ((temp~1185211294~570 (car temp~1185211294~556))) (if (pair? temp~1185211294~570) (let ((temp~1185211294~574 (car temp~1185211294~570))) (let ((id~1185211294~545 temp~1185211294~574)) (let ((temp~1185211294~571 (cdr temp~1185211294~570))) (if (pair? temp~1185211294~571) (let ((temp~1185211294~573 (car temp~1185211294~571))) (let ((exp1~1185211294~546 temp~1185211294~573)) (let ((temp~1185211294~572 (cdr temp~1185211294~571))) (if (null? temp~1185211294~572) (let ((temp~1185211294~557 (cdr temp~1185211294~556))) (if (pair? temp~1185211294~557) (let ((temp~1185211294~559 (car temp~1185211294~557))) (if (pair? temp~1185211294~559) (let ((temp~1185211294~563 (car temp~1185211294~559))) (if (pair? temp~1185211294~563) (let ((temp~1185211294~569 (car temp~1185211294~563))) (if (and ($ex:identifier? temp~1185211294~569) ($ex:free-identifier=? temp~1185211294~569 ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))))) (let ((temp~1185211294~564 (cdr temp~1185211294~563))) (if (pair? temp~1185211294~564) (let ((temp~1185211294~568 (car temp~1185211294~564))) (let ((var~1185211294~547 temp~1185211294~568)) (let ((temp~1185211294~565 (cdr temp~1185211294~564))) (if (pair? temp~1185211294~565) (let ((temp~1185211294~567 (car temp~1185211294~565))) (let ((val~1185211294~548 temp~1185211294~567)) (let ((temp~1185211294~566 (cdr temp~1185211294~565))) (if (null? temp~1185211294~566) (let ((temp~1185211294~560 (cdr temp~1185211294~559))) (if (pair? temp~1185211294~560) (let ((temp~1185211294~562 (car temp~1185211294~560))) (let ((exp2~1185211294~549 temp~1185211294~562)) (let ((temp~1185211294~561 (cdr temp~1185211294~560))) (if (null? temp~1185211294~561) (let ((temp~1185211294~558 (cdr temp~1185211294~557))) (if (null? temp~1185211294~558) (if (if ($ex:identifier? id~1185211294~545) ($ex:identifier? var~1185211294~547) #f) (cons ($ex:syntax-rename (quote make-variable-transformer) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons var~1185211294~547 (cons val~1185211294~548 (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons exp2~1185211294~549 (quote ()))) (quote ()))) (cons (cons (cons id~1185211294~545 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons (cons exp1~1185211294~546 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (cons (cons id~1185211294~545 (cons (cons ($ex:syntax-rename (quote identifier?) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons id~1185211294~545 (quote ()))) (quote ()))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~555)) 0 (quote (core identifier-syntax))) (cons exp1~1185211294~546 (quote ()))) (quote ())))) (quote ()))))))) (quote ())))) (quote ()))) (fail~1185211294~544)) (fail~1185211294~544))) (fail~1185211294~544))))) (fail~1185211294~544))) (fail~1185211294~544))))) (fail~1185211294~544))))) (fail~1185211294~544))) (fail~1185211294~544))) (fail~1185211294~544))) (fail~1185211294~544))) (fail~1185211294~544))) (fail~1185211294~544))))) (fail~1185211294~544))))) (fail~1185211294~544))) (fail~1185211294~544)))) (fail~1185211294~544)))))) (if (pair? input~1185211294~542) (let ((temp~1185211294~582 (car input~1185211294~542))) (let ((temp~1185211294~579 (cdr input~1185211294~542))) (if (pair? temp~1185211294~579) (let ((temp~1185211294~581 (car temp~1185211294~579))) (let ((e~1185211294~576 temp~1185211294~581)) (let ((temp~1185211294~580 (cdr temp~1185211294~579))) (if (null? temp~1185211294~580) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons (quote ()) (cons (cons ($ex:syntax-rename (quote id) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote identifier?) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote id) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (quote ()))) (quote ()))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons e~1185211294~576 (quote ()))) (quote ())))) (cons (cons (cons ($ex:syntax-rename (quote _) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons (cons e~1185211294~576 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185211294~578)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (quote ())))))) (quote ())))) (fail~1185211294~543))))) (fail~1185211294~543)))) (fail~1185211294~543)))))))) ($ex:unspecified)) (define (~core.identifier-syntax~invoke) ($ex:unspecified)))

(begin (define ~core.quasisyntax~envs (quote ((env~1185211294~815 ((((e) pattern-variable e~1185211294~787 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~786 ((((e) pattern-variable e~1185211294~770 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~769 ((((e) pattern-variable e~1185211294~743 (1) 1) ((r) pattern-variable r~1185211294~744 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~742 ((((e) pattern-variable e~1185211294~705 (1) 1) ((r) pattern-variable r~1185211294~706 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~722 ((((r*) pattern-variable r*~1185211294~713 (1) 0) ((rep) pattern-variable rep~1185211294~714 (1) 1) ((t) pattern-variable t~1185211294~715 (1) 1))) ((((e) pattern-variable e~1185211294~705 (1) 1) ((r) pattern-variable r~1185211294~706 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~685 ((((k) pattern-variable k~1185211294~676 (1) 0) ((r) pattern-variable r~1185211294~677 (1) 0))) (()) ((((x) variable x~1185211294~616 (1) #f) ((level) variable level~1185211294~617 (1) #f))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~606 ((((template*) pattern-variable template*~1185211294~601 (1) 0) ((replacements) pattern-variable replacements~1185211294~602 (1) 0))) ((((template) pattern-variable template~1185211294~595 (1) 0))) ((((expand) variable expand~1185211294~590 (1) #f))) ((((e) variable e~1185211294~588 (1) #f))) . env~1185211294~584) (env~1185211294~584 ((((unsyntax-splicing) macro unsyntax-splicing~1185211294~822 (0) #f) ((unsyntax) macro unsyntax~1185211294~817 (0) #f) ((quasisyntax) macro quasisyntax~1185211294~586 (0) #f) ((eval) variable $ex:eval (0 1) #f) ((environment) variable $ex:environment (0 1) #f) ((syntax-violation) variable $ex:syntax-violation (0 1) #f) ((syntax->datum) variable $ex:syntax->datum (0 1) #f) ((datum->syntax) variable $ex:datum->syntax (0 1) #f) ((generate-temporaries) variable $ex:generate-temporaries (0 1) #f) ((free-identifier=?) variable $ex:free-identifier=? (0 1) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (0 1) #f) ((identifier?) variable $ex:identifier? (0 1) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (0 1) #f) ((modulo) variable modulo (0 1) #f) ((remainder) variable remainder (0 1) #f) ((quotient) variable quotient (0 1) #f) ((inexact->exact) variable inexact->exact (0 1) #f) ((exact->inexact) variable exact->inexact (0 1) #f) ((set-cdr!) variable set-cdr! (0 1) #f) ((set-car!) variable set-car! (0 1) #f) ((string-set!) variable string-set! (0 1) #f) ((string-fill!) variable string-fill! (0 1) #f) ((string-ci>=?) variable string-ci>=? (0 1) #f) ((string-ci<=?) variable string-ci<=? (0 1) #f) ((string-ci>?) variable string-ci>? (0 1) #f) ((string-ci<?) variable string-ci<? (0 1) #f) ((string-ci=?) variable string-ci=? (0 1) #f) ((char-lower-case?) variable char-lower-case? (0 1) #f) ((char-upper-case?) variable char-upper-case? (0 1) #f) ((char-whitespace?) variable char-whitespace? (0 1) #f) ((char-numeric?) variable char-numeric? (0 1) #f) ((char-alphabetic?) variable char-alphabetic? (0 1) #f) ((char-ci>=?) variable char-ci>=? (0 1) #f) ((char-ci<=?) variable char-ci<=? (0 1) #f) ((char-ci>?) variable char-ci>? (0 1) #f) ((char-ci<?) variable char-ci<? (0 1) #f) ((char-ci=?) variable char-ci=? (0 1) #f) ((char-downcase) variable char-downcase (0 1) #f) ((char-upcase) variable char-upcase (0 1) #f) ((write-char) variable write-char (0 1) #f) ((write) variable write (0 1) #f) ((with-output-to-file) variable with-output-to-file (0 1) #f) ((with-input-from-file) variable with-input-from-file (0 1) #f) ((read-char) variable read-char (0 1) #f) ((read) variable read (0 1) #f) ((peek-char) variable peek-char (0 1) #f) ((open-output-file) variable open-output-file (0 1) #f) ((open-input-file) variable open-input-file (0 1) #f) ((newline) variable newline (0 1) #f) ((eof-object?) variable eof-object? (0 1) #f) ((display) variable display (0 1) #f) ((current-output-port) variable current-output-port (0 1) #f) ((current-input-port) variable current-input-port (0 1) #f) ((close-output-port) variable close-output-port (0 1) #f) ((close-input-port) variable close-input-port (0 1) #f) ((call-with-output-file) variable call-with-output-file (0 1) #f) ((call-with-input-file) variable call-with-input-file (0 1) #f) ((assq) variable assq (0 1) #f) ((assv) variable assv (0 1) #f) ((assoc) variable assoc (0 1) #f) ((assp) variable assp (0 1) #f) ((memq) variable memq (0 1) #f) ((memv) variable memv (0 1) #f) ((member) variable member (0 1) #f) ((memp) variable memp (0 1) #f) ((remv) variable remv (0 1) #f) ((remq) variable remq (0 1) #f) ((remove) variable remove (0 1) #f) ((remp) variable remp (0 1) #f) ((fold-right) variable fold-right (0 1) #f) ((fold-left) variable fold-left (0 1) #f) ((partition) variable partition (0 1) #f) ((filter) variable filter (0 1) #f) ((exists) variable exists (0 1) #f) ((for-all) variable for-all (0 1) #f) ((find) variable find (0 1) #f) ((call/cc) variable call/cc (0 1) #f) ((assertion-violation) variable assertion-violation (0 1) #f) ((error) variable error (0 1) #f) ((vector-for-each) variable vector-for-each (0 1) #f) ((vector-map) variable vector-map (0 1) #f) ((string-for-each) variable string-for-each (0 1) #f) ((symbol=?) variable symbol=? (0 1) #f) ((boolean=?) variable boolean=? (0 1) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (0 1) #f) ((div0-and-mod0) variable div0-and-mod0 (0 1) #f) ((mod0) variable mod0 (0 1) #f) ((div0) variable div0 (0 1) #f) ((div-and-mod) variable div-and-mod (0 1) #f) ((mod) variable mod (0 1) #f) ((div) variable div (0 1) #f) ((nan?) variable nan? (0 1) #f) ((infinite?) variable infinite? (0 1) #f) ((finite?) variable finite? (0 1) #f) ((inexact) variable inexact (0 1) #f) ((exact) variable exact (0 1) #f) ((integer-valued?) variable integer-valued? (0 1) #f) ((rational-valued?) variable rational-valued? (0 1) #f) ((real-valued?) variable real-valued? (0 1) #f) ((zero?) variable zero? (0 1) #f) ((vector?) variable vector? (0 1) #f) ((vector-set!) variable vector-set! (0 1) #f) ((vector-ref) variable vector-ref (0 1) #f) ((vector-length) variable vector-length (0 1) #f) ((vector-fill!) variable vector-fill! (0 1) #f) ((vector->list) variable vector->list (0 1) #f) ((vector) variable vector (0 1) #f) ((values) variable values (0 1) #f) ((truncate) variable truncate (0 1) #f) ((tan) variable tan (0 1) #f) ((symbol?) variable symbol? (0 1) #f) ((symbol->string) variable symbol->string (0 1) #f) ((substring) variable substring (0 1) #f) ((string?) variable string? (0 1) #f) ((string>?) variable string>? (0 1) #f) ((string>=?) variable string>=? (0 1) #f) ((string=?) variable string=? (0 1) #f) ((string<?) variable string<? (0 1) #f) ((string<=?) variable string<=? (0 1) #f) ((string-ref) variable string-ref (0 1) #f) ((string-length) variable string-length (0 1) #f) ((string-copy) variable string-copy (0 1) #f) ((string-append) variable string-append (0 1) #f) ((string->symbol) variable string->symbol (0 1) #f) ((string->number) variable string->number (0 1) #f) ((string->list) variable string->list (0 1) #f) ((string) variable string (0 1) #f) ((sqrt) variable sqrt (0 1) #f) ((sin) variable sin (0 1) #f) ((round) variable round (0 1) #f) ((reverse) variable reverse (0 1) #f) ((real?) variable real? (0 1) #f) ((real-part) variable real-part (0 1) #f) ((rationalize) variable rationalize (0 1) #f) ((rational?) variable rational? (0 1) #f) ((procedure?) variable procedure? (0 1) #f) ((positive?) variable positive? (0 1) #f) ((pair?) variable pair? (0 1) #f) ((odd?) variable odd? (0 1) #f) ((numerator) variable numerator (0 1) #f) ((number?) variable number? (0 1) #f) ((number->string) variable number->string (0 1) #f) ((null?) variable null? (0 1) #f) ((not) variable not (0 1) #f) ((negative?) variable negative? (0 1) #f) ((min) variable min (0 1) #f) ((max) variable max (0 1) #f) ((map) variable map (0 1) #f) ((make-vector) variable make-vector (0 1) #f) ((make-string) variable make-string (0 1) #f) ((make-rectangular) variable make-rectangular (0 1) #f) ((make-polar) variable make-polar (0 1) #f) ((magnitude) variable magnitude (0 1) #f) ((log) variable log (0 1) #f) ((list?) variable list? (0 1) #f) ((list-tail) variable list-tail (0 1) #f) ((list-ref) variable list-ref (0 1) #f) ((list->vector) variable list->vector (0 1) #f) ((list->string) variable list->string (0 1) #f) ((list) variable list (0 1) #f) ((length) variable length (0 1) #f) ((lcm) variable lcm (0 1) #f) ((integer?) variable integer? (0 1) #f) ((integer->char) variable integer->char (0 1) #f) ((inexact?) variable inexact? (0 1) #f) ((imag-part) variable imag-part (0 1) #f) ((gcd) variable gcd (0 1) #f) ((for-each) variable for-each (0 1) #f) ((floor) variable floor (0 1) #f) ((expt) variable expt (0 1) #f) ((exp) variable exp (0 1) #f) ((exact?) variable exact? (0 1) #f) ((even?) variable even? (0 1) #f) ((eqv?) variable eqv? (0 1) #f) ((equal?) variable equal? (0 1) #f) ((eq?) variable eq? (0 1) #f) ((dynamic-wind) variable dynamic-wind (0 1) #f) ((denominator) variable denominator (0 1) #f) ((cos) variable cos (0 1) #f) ((cons) variable cons (0 1) #f) ((complex?) variable complex? (0 1) #f) ((char->integer) variable char->integer (0 1) #f) ((ceiling) variable ceiling (0 1) #f) ((cddddr) variable cddddr (0 1) #f) ((cdddar) variable cdddar (0 1) #f) ((cddadr) variable cddadr (0 1) #f) ((cddaar) variable cddaar (0 1) #f) ((cdaddr) variable cdaddr (0 1) #f) ((cdadar) variable cdadar (0 1) #f) ((cdaadr) variable cdaadr (0 1) #f) ((cdaaar) variable cdaaar (0 1) #f) ((cadddr) variable cadddr (0 1) #f) ((caddar) variable caddar (0 1) #f) ((cadadr) variable cadadr (0 1) #f) ((cadaar) variable cadaar (0 1) #f) ((caaddr) variable caaddr (0 1) #f) ((caadar) variable caadar (0 1) #f) ((caaadr) variable caaadr (0 1) #f) ((caaaar) variable caaaar (0 1) #f) ((cdddr) variable cdddr (0 1) #f) ((cddar) variable cddar (0 1) #f) ((cdadr) variable cdadr (0 1) #f) ((cdaar) variable cdaar (0 1) #f) ((caddr) variable caddr (0 1) #f) ((cadar) variable cadar (0 1) #f) ((caadr) variable caadr (0 1) #f) ((caaar) variable caaar (0 1) #f) ((cddr) variable cddr (0 1) #f) ((cdar) variable cdar (0 1) #f) ((cadr) variable cadr (0 1) #f) ((caar) variable caar (0 1) #f) ((cdr) variable cdr (0 1) #f) ((car) variable car (0 1) #f) ((call-with-values) variable call-with-values (0 1) #f) ((call-with-current-continuation) variable call-with-current-continuation (0 1) #f) ((boolean?) variable boolean? (0 1) #f) ((atan) variable atan (0 1) #f) ((asin) variable asin (0 1) #f) ((apply) variable apply (0 1) #f) ((append) variable append (0 1) #f) ((acos) variable acos (0 1) #f) ((abs) variable abs (0 1) #f) ((>=) variable >= (0 1) #f) ((>) variable > (0 1) #f) ((=) variable = (0 1) #f) ((<=) variable <= (0 1) #f) ((<) variable < (0 1) #f) ((/) variable / (0 1) #f) ((-) variable - (0 1) #f) ((+) variable + (0 1) #f) ((*) variable * (0 1) #f) ((syntax-case) macro syntax-case (0 1) #f) ((syntax) macro syntax (0 1) #f) ((...) macro ... (0 1) #f) ((_) macro _ (0 1) #f) ((letrec-syntax) macro letrec-syntax (0 1) #f) ((let-syntax) macro let-syntax (0 1) #f) ((define-syntax) macro define-syntax (0 1) #f) ((define) macro define (0 1) #f) ((or) macro or (0 1) #f) ((and) macro and (0 1) #f) ((set!) macro set! (0 1) #f) ((quote) macro quote (0 1) #f) ((lambda) macro lambda (0 1) #f) ((if) macro if (0 1) #f) ((begin) macro begin (0 1) #f) ((letrec*) macro letrec*~1185211294~201 (0 1) #f) ((letrec) macro letrec~1185211294~165 (0 1) #f) ((let) macro let~1185211294~115 (0 1) #f) ((=>) macro =>~1185211294~525 (0 1) #f) ((else) macro else~1185211294~530 (0 1) #f) ((case) macro case~1185211294~439 (0 1) #f) ((cond) macro cond~1185211294~318 (0 1) #f) ((let*) macro let*~1185211294~232 (0 1) #f) ((with-syntax) macro with-syntax~1185211294~9 (0 1) #f))))))) (define ~core.quasisyntax~exports (quote ((quasisyntax macro quasisyntax~1185211294~586 (0) #f) (unsyntax macro unsyntax~1185211294~817 (0) #f) (unsyntax-splicing macro unsyntax-splicing~1185211294~822 (0) #f)))) (define ~core.quasisyntax~imports (quote (((core with-syntax) 0 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1)))) (define (~core.quasisyntax~visit) ($ex:register-macro! (quote quasisyntax~1185211294~586) (lambda (e~1185211294~588) ((lambda (expand~1185211294~590) (set! expand~1185211294~590 (lambda (x~1185211294~616 level~1185211294~617) ((lambda () (let ((input~1185211294~620 x~1185211294~616)) (let ((fail~1185211294~621 (lambda () (let ((fail~1185211294~622 (lambda () (let ((fail~1185211294~623 (lambda () (let ((fail~1185211294~624 (lambda () (let ((fail~1185211294~625 (lambda () (let ((fail~1185211294~626 (lambda () (let ((fail~1185211294~627 (lambda () (let ((fail~1185211294~628 (lambda () ($ex:invalid-form input~1185211294~620)))) (let ((other~1185211294~629 input~1185211294~620)) (cons other~1185211294~629 (cons (quote ()) (quote ())))))))) (if (vector? input~1185211294~620) (let ((temp~1185211294~646 (vector->list input~1185211294~620))) (if (list? temp~1185211294~646) (let ((e~1185211294~631 temp~1185211294~646)) (let ((input~1185211294~634 (expand~1185211294~590 (vector->list (list->vector e~1185211294~631)) level~1185211294~617))) (let ((fail~1185211294~636 (lambda () ($ex:invalid-form input~1185211294~634)))) (if (pair? input~1185211294~634) (let ((temp~1185211294~645 (car input~1185211294~634))) (if (list? temp~1185211294~645) (let ((e*~1185211294~637 temp~1185211294~645)) (let ((temp~1185211294~642 (cdr input~1185211294~634))) (if (pair? temp~1185211294~642) (let ((temp~1185211294~644 (car temp~1185211294~642))) (let ((reps~1185211294~638 temp~1185211294~644)) (let ((temp~1185211294~643 (cdr temp~1185211294~642))) (if (null? temp~1185211294~643) (begin (cons (list->vector e*~1185211294~637) (cons reps~1185211294~638 (quote ())))) (fail~1185211294~636))))) (fail~1185211294~636)))) (fail~1185211294~636))) (fail~1185211294~636))))) (fail~1185211294~627))) (fail~1185211294~627)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~675 (car input~1185211294~620))) (let ((h~1185211294~647 temp~1185211294~675)) (let ((temp~1185211294~674 (cdr input~1185211294~620))) (let ((t~1185211294~648 temp~1185211294~674)) (let ((input~1185211294~651 (list (expand~1185211294~590 h~1185211294~647 level~1185211294~617) (expand~1185211294~590 t~1185211294~648 level~1185211294~617)))) (let ((fail~1185211294~654 (lambda () ($ex:invalid-form input~1185211294~651)))) (if (pair? input~1185211294~651) (let ((temp~1185211294~669 (car input~1185211294~651))) (if (pair? temp~1185211294~669) (let ((temp~1185211294~673 (car temp~1185211294~669))) (let ((h*~1185211294~655 temp~1185211294~673)) (let ((temp~1185211294~670 (cdr temp~1185211294~669))) (if (pair? temp~1185211294~670) (let ((temp~1185211294~672 (car temp~1185211294~670))) (if (list? temp~1185211294~672) (let ((rep1~1185211294~656 temp~1185211294~672)) (let ((temp~1185211294~671 (cdr temp~1185211294~670))) (if (null? temp~1185211294~671) (let ((temp~1185211294~662 (cdr input~1185211294~651))) (if (pair? temp~1185211294~662) (let ((temp~1185211294~664 (car temp~1185211294~662))) (if (pair? temp~1185211294~664) (let ((temp~1185211294~668 (car temp~1185211294~664))) (let ((t*~1185211294~657 temp~1185211294~668)) (let ((temp~1185211294~665 (cdr temp~1185211294~664))) (if (pair? temp~1185211294~665) (let ((temp~1185211294~667 (car temp~1185211294~665))) (if (list? temp~1185211294~667) (let ((rep2~1185211294~658 temp~1185211294~667)) (let ((temp~1185211294~666 (cdr temp~1185211294~665))) (if (null? temp~1185211294~666) (let ((temp~1185211294~663 (cdr temp~1185211294~662))) (if (null? temp~1185211294~663) (begin (cons (cons h*~1185211294~655 t*~1185211294~657) (cons (append rep1~1185211294~656 rep2~1185211294~658) (quote ())))) (fail~1185211294~654))) (fail~1185211294~654)))) (fail~1185211294~654))) (fail~1185211294~654))))) (fail~1185211294~654))) (fail~1185211294~654))) (fail~1185211294~654)))) (fail~1185211294~654))) (fail~1185211294~654))))) (fail~1185211294~654))) (fail~1185211294~654)))))))) (fail~1185211294~626)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~704 (car input~1185211294~620))) (let ((k~1185211294~676 temp~1185211294~704)) (let ((temp~1185211294~703 (cdr input~1185211294~620))) (let ((r~1185211294~677 temp~1185211294~703)) (if (if (> level~1185211294~617 0) (if ($ex:identifier? k~1185211294~676) (let ((x ($ex:free-identifier=? k~1185211294~676 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185211294~685)) 0 (quote (core quasisyntax)))))) (if x x ($ex:free-identifier=? k~1185211294~676 ($ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (env~1185211294~685)) 0 (quote (core quasisyntax)))))) #f) #f) (let ((input~1185211294~691 (expand~1185211294~590 r~1185211294~677 (- level~1185211294~617 1)))) (let ((fail~1185211294~693 (lambda () ($ex:invalid-form input~1185211294~691)))) (if (pair? input~1185211294~691) (let ((temp~1185211294~702 (car input~1185211294~691))) (let ((r*~1185211294~694 temp~1185211294~702)) (let ((temp~1185211294~699 (cdr input~1185211294~691))) (if (pair? temp~1185211294~699) (let ((temp~1185211294~701 (car temp~1185211294~699))) (let ((reps~1185211294~695 temp~1185211294~701)) (let ((temp~1185211294~700 (cdr temp~1185211294~699))) (if (null? temp~1185211294~700) (begin (cons (cons k~1185211294~676 r*~1185211294~694) (cons reps~1185211294~695 (quote ())))) (fail~1185211294~693))))) (fail~1185211294~693))))) (fail~1185211294~693)))) (fail~1185211294~625)))))) (fail~1185211294~625)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~739 (car input~1185211294~620))) (if (pair? temp~1185211294~739) (let ((temp~1185211294~741 (car temp~1185211294~739))) (if (and ($ex:identifier? temp~1185211294~741) ($ex:free-identifier=? temp~1185211294~741 ($ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (env~1185211294~742)) 0 (quote (core quasisyntax))))) (let ((temp~1185211294~740 (cdr temp~1185211294~739))) (if (list? temp~1185211294~740) (let ((e~1185211294~705 temp~1185211294~740)) (let ((temp~1185211294~738 (cdr input~1185211294~620))) (let ((r~1185211294~706 temp~1185211294~738)) (if (= level~1185211294~617 0) (let ((input~1185211294~709 (list (expand~1185211294~590 r~1185211294~706 0) ($ex:generate-temporaries e~1185211294~705)))) (let ((fail~1185211294~712 (lambda () ($ex:invalid-form input~1185211294~709)))) (if (pair? input~1185211294~709) (let ((temp~1185211294~733 (car input~1185211294~709))) (if (pair? temp~1185211294~733) (let ((temp~1185211294~737 (car temp~1185211294~733))) (let ((r*~1185211294~713 temp~1185211294~737)) (let ((temp~1185211294~734 (cdr temp~1185211294~733))) (if (pair? temp~1185211294~734) (let ((temp~1185211294~736 (car temp~1185211294~734))) (if (list? temp~1185211294~736) (let ((rep~1185211294~714 temp~1185211294~736)) (let ((temp~1185211294~735 (cdr temp~1185211294~734))) (if (null? temp~1185211294~735) (let ((temp~1185211294~730 (cdr input~1185211294~709))) (if (pair? temp~1185211294~730) (let ((temp~1185211294~732 (car temp~1185211294~730))) (if (list? temp~1185211294~732) (let ((t~1185211294~715 temp~1185211294~732)) (let ((temp~1185211294~731 (cdr temp~1185211294~730))) (if (null? temp~1185211294~731) (begin (let ((input~1185211294~720 (map (lambda (t~1185211294~715) (cons t~1185211294~715 (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185211294~722)) 0 (quote (core quasisyntax))) (quote ())))) t~1185211294~715))) (let ((fail~1185211294~723 (lambda () ($ex:invalid-form input~1185211294~720)))) ($ex:map-while (lambda (input~1185211294~720) (if (list? input~1185211294~720) (let ((t~1185211294~724 input~1185211294~720)) (list t~1185211294~724)) #f)) input~1185211294~720 (lambda (cols~1185211294~728 rest~1185211294~729) (if (null? rest~1185211294~729) (apply (lambda (t~1185211294~724) (begin (cons (append (apply append t~1185211294~724) r*~1185211294~713) (cons (append (map (lambda (t~1185211294~724 e~1185211294~705) (cons t~1185211294~724 (cons e~1185211294~705 (quote ())))) t~1185211294~724 e~1185211294~705) rep~1185211294~714) (quote ()))))) (if (null? cols~1185211294~728) (quote (())) (apply map list cols~1185211294~728))) (fail~1185211294~723))))))) (fail~1185211294~712)))) (fail~1185211294~712))) (fail~1185211294~712))) (fail~1185211294~712)))) (fail~1185211294~712))) (fail~1185211294~712))))) (fail~1185211294~712))) (fail~1185211294~712)))) (fail~1185211294~624))))) (fail~1185211294~624))) (fail~1185211294~624))) (fail~1185211294~624))) (fail~1185211294~624)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~766 (car input~1185211294~620))) (if (pair? temp~1185211294~766) (let ((temp~1185211294~768 (car temp~1185211294~766))) (if (and ($ex:identifier? temp~1185211294~768) ($ex:free-identifier=? temp~1185211294~768 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185211294~769)) 0 (quote (core quasisyntax))))) (let ((temp~1185211294~767 (cdr temp~1185211294~766))) (if (list? temp~1185211294~767) (let ((e~1185211294~743 temp~1185211294~767)) (let ((temp~1185211294~765 (cdr input~1185211294~620))) (let ((r~1185211294~744 temp~1185211294~765)) (if (= level~1185211294~617 0) (let ((input~1185211294~747 (list (expand~1185211294~590 r~1185211294~744 0) ($ex:generate-temporaries e~1185211294~743)))) (let ((fail~1185211294~750 (lambda () ($ex:invalid-form input~1185211294~747)))) (if (pair? input~1185211294~747) (let ((temp~1185211294~760 (car input~1185211294~747))) (if (pair? temp~1185211294~760) (let ((temp~1185211294~764 (car temp~1185211294~760))) (let ((r*~1185211294~751 temp~1185211294~764)) (let ((temp~1185211294~761 (cdr temp~1185211294~760))) (if (pair? temp~1185211294~761) (let ((temp~1185211294~763 (car temp~1185211294~761))) (if (list? temp~1185211294~763) (let ((rep~1185211294~752 temp~1185211294~763)) (let ((temp~1185211294~762 (cdr temp~1185211294~761))) (if (null? temp~1185211294~762) (let ((temp~1185211294~757 (cdr input~1185211294~747))) (if (pair? temp~1185211294~757) (let ((temp~1185211294~759 (car temp~1185211294~757))) (if (list? temp~1185211294~759) (let ((t~1185211294~753 temp~1185211294~759)) (let ((temp~1185211294~758 (cdr temp~1185211294~757))) (if (null? temp~1185211294~758) (begin (cons (append t~1185211294~753 r*~1185211294~751) (cons (append (map (lambda (t~1185211294~753 e~1185211294~743) (cons t~1185211294~753 (cons e~1185211294~743 (quote ())))) t~1185211294~753 e~1185211294~743) rep~1185211294~752) (quote ())))) (fail~1185211294~750)))) (fail~1185211294~750))) (fail~1185211294~750))) (fail~1185211294~750)))) (fail~1185211294~750))) (fail~1185211294~750))))) (fail~1185211294~750))) (fail~1185211294~750)))) (fail~1185211294~623))))) (fail~1185211294~623))) (fail~1185211294~623))) (fail~1185211294~623))) (fail~1185211294~623)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~785 (car input~1185211294~620))) (if (and ($ex:identifier? temp~1185211294~785) ($ex:free-identifier=? temp~1185211294~785 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185211294~786)) 0 (quote (core quasisyntax))))) (let ((temp~1185211294~782 (cdr input~1185211294~620))) (if (pair? temp~1185211294~782) (let ((temp~1185211294~784 (car temp~1185211294~782))) (let ((e~1185211294~770 temp~1185211294~784)) (let ((temp~1185211294~783 (cdr temp~1185211294~782))) (if (null? temp~1185211294~783) (if (= level~1185211294~617 0) (let ((input~1185211294~773 ($ex:generate-temporaries (quote (t))))) (let ((fail~1185211294~775 (lambda () ($ex:invalid-form input~1185211294~773)))) (if (pair? input~1185211294~773) (let ((temp~1185211294~781 (car input~1185211294~773))) (let ((t~1185211294~776 temp~1185211294~781)) (let ((temp~1185211294~780 (cdr input~1185211294~773))) (if (null? temp~1185211294~780) (begin (cons t~1185211294~776 (cons (cons (cons t~1185211294~776 (cons e~1185211294~770 (quote ()))) (quote ())) (quote ())))) (fail~1185211294~775))))) (fail~1185211294~775)))) (fail~1185211294~622)) (fail~1185211294~622))))) (fail~1185211294~622))) (fail~1185211294~622))) (fail~1185211294~622)))))) (if (pair? input~1185211294~620) (let ((temp~1185211294~814 (car input~1185211294~620))) (if (and ($ex:identifier? temp~1185211294~814) ($ex:free-identifier=? temp~1185211294~814 ($ex:syntax-rename (quote quasisyntax) (quote ()) (quote (env~1185211294~815)) 0 (quote (core quasisyntax))))) (let ((temp~1185211294~811 (cdr input~1185211294~620))) (if (pair? temp~1185211294~811) (let ((temp~1185211294~813 (car temp~1185211294~811))) (let ((e~1185211294~787 temp~1185211294~813)) (let ((temp~1185211294~812 (cdr temp~1185211294~811))) (if (null? temp~1185211294~812) (let ((input~1185211294~790 (list x~1185211294~616 (expand~1185211294~590 e~1185211294~787 (+ level~1185211294~617 1))))) (let ((fail~1185211294~792 (lambda () ($ex:invalid-form input~1185211294~790)))) (if (pair? input~1185211294~790) (let ((temp~1185211294~806 (car input~1185211294~790))) (if (pair? temp~1185211294~806) (let ((temp~1185211294~810 (car temp~1185211294~806))) (let ((k~1185211294~793 temp~1185211294~810)) (let ((temp~1185211294~807 (cdr temp~1185211294~806))) (if (pair? temp~1185211294~807) (let ((temp~1185211294~809 (car temp~1185211294~807))) (let ((temp~1185211294~808 (cdr temp~1185211294~807))) (if (null? temp~1185211294~808) (let ((temp~1185211294~799 (cdr input~1185211294~790))) (if (pair? temp~1185211294~799) (let ((temp~1185211294~801 (car temp~1185211294~799))) (if (pair? temp~1185211294~801) (let ((temp~1185211294~805 (car temp~1185211294~801))) (let ((e*~1185211294~794 temp~1185211294~805)) (let ((temp~1185211294~802 (cdr temp~1185211294~801))) (if (pair? temp~1185211294~802) (let ((temp~1185211294~804 (car temp~1185211294~802))) (let ((reps~1185211294~795 temp~1185211294~804)) (let ((temp~1185211294~803 (cdr temp~1185211294~802))) (if (null? temp~1185211294~803) (let ((temp~1185211294~800 (cdr temp~1185211294~799))) (if (null? temp~1185211294~800) (begin (cons (cons k~1185211294~793 (cons e*~1185211294~794 (quote ()))) (cons reps~1185211294~795 (quote ())))) (fail~1185211294~792))) (fail~1185211294~792))))) (fail~1185211294~792))))) (fail~1185211294~792))) (fail~1185211294~792))) (fail~1185211294~792)))) (fail~1185211294~792))))) (fail~1185211294~792))) (fail~1185211294~792)))) (fail~1185211294~621))))) (fail~1185211294~621))) (fail~1185211294~621))) (fail~1185211294~621)))))))) (let ((input~1185211294~593 e~1185211294~588)) (let ((fail~1185211294~594 (lambda () ($ex:invalid-form input~1185211294~593)))) (if (pair? input~1185211294~593) (let ((temp~1185211294~614 (car input~1185211294~593))) (let ((temp~1185211294~611 (cdr input~1185211294~593))) (if (pair? temp~1185211294~611) (let ((temp~1185211294~613 (car temp~1185211294~611))) (let ((template~1185211294~595 temp~1185211294~613)) (let ((temp~1185211294~612 (cdr temp~1185211294~611))) (if (null? temp~1185211294~612) (let ((input~1185211294~598 (expand~1185211294~590 template~1185211294~595 0))) (let ((fail~1185211294~600 (lambda () ($ex:invalid-form input~1185211294~598)))) (if (pair? input~1185211294~598) (let ((temp~1185211294~610 (car input~1185211294~598))) (let ((template*~1185211294~601 temp~1185211294~610)) (let ((temp~1185211294~607 (cdr input~1185211294~598))) (if (pair? temp~1185211294~607) (let ((temp~1185211294~609 (car temp~1185211294~607))) (let ((replacements~1185211294~602 temp~1185211294~609)) (let ((temp~1185211294~608 (cdr temp~1185211294~607))) (if (null? temp~1185211294~608) (begin (cons ($ex:syntax-rename (quote with-syntax) (quote ()) (quote (env~1185211294~606)) 0 (quote (core quasisyntax))) (cons replacements~1185211294~602 (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185211294~606)) 0 (quote (core quasisyntax))) (cons template*~1185211294~601 (quote ()))) (quote ()))))) (fail~1185211294~600))))) (fail~1185211294~600))))) (fail~1185211294~600)))) (fail~1185211294~594))))) (fail~1185211294~594)))) (fail~1185211294~594))))) ($ex:unspecified)))) ($ex:register-macro! (quote unsyntax~1185211294~817) (lambda (e~1185211294~819) ((lambda () ($ex:syntax-violation (quote unsyntax) "Invalid expression" e~1185211294~819))))) ($ex:register-macro! (quote unsyntax-splicing~1185211294~822) (lambda (e~1185211294~824) ((lambda () ($ex:syntax-violation (quote unsyntax) "Invalid expression" e~1185211294~824))))) ($ex:unspecified)) (define (~core.quasisyntax~invoke) ($ex:unspecified)))

(begin (define ~core.quasiquote~envs (quote ((env~1185211294~997 ((((x) pattern-variable x~1185211294~980 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~992 ((((gen~1185211294~982 m~1185211294~981) pattern-variable gen~1185211294~982~1185211294~988 (0) 0))) ((((x) pattern-variable x~1185211294~980 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~979 ((((x) pattern-variable x~1185211294~962 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~974 ((((gen~1185211294~964 m~1185211294~963) pattern-variable gen~1185211294~964~1185211294~970 (0) 0))) ((((x) pattern-variable x~1185211294~962 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~961 ((((x) pattern-variable x~1185211294~944 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~956 ((((gen~1185211294~946 m~1185211294~945) pattern-variable gen~1185211294~946~1185211294~952 (0) 0))) ((((x) pattern-variable x~1185211294~944 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~943 ((((x) pattern-variable x~1185211294~937 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~936 ((((x) pattern-variable x~1185211294~918 (1) 1) ((y) pattern-variable y~1185211294~919 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~931 ((((gen~1185211294~921 m~1185211294~920) pattern-variable gen~1185211294~921~1185211294~927 (0) 0))) ((((x) pattern-variable x~1185211294~918 (1) 1) ((y) pattern-variable y~1185211294~919 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~917 ((((x) pattern-variable x~1185211294~899 (1) 1) ((y) pattern-variable y~1185211294~900 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~912 ((((gen~1185211294~902 m~1185211294~901) pattern-variable gen~1185211294~902~1185211294~908 (0) 0))) ((((x) pattern-variable x~1185211294~899 (1) 1) ((y) pattern-variable y~1185211294~900 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~892 ((((gen~1185211294~880 m~1185211294~878) pattern-variable gen~1185211294~880~1185211294~887 (0) 0) ((gen~1185211294~879 m~1185211294~878) pattern-variable gen~1185211294~879~1185211294~888 (0) 0))) ((((x) pattern-variable x~1185211294~876 (1) 0) ((y) pattern-variable y~1185211294~877 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~874 ((((gen~1185211294~864 m~1185211294~863) pattern-variable gen~1185211294~864~1185211294~870 (0) 0))) ((((x) pattern-variable x~1185211294~862 (1) 1))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~861 ((((x) pattern-variable x~1185211294~859 (1) 0))) (()) ((((x) variable x~1185211294~845 (1) #f) ((level) variable level~1185211294~846 (1) #f))) ((((qq-expand) variable qq-expand~1185211294~833 (1) #f))) ((((s) variable s~1185211294~831 (1) #f))) . env~1185211294~827) (env~1185211294~827 ((((unquote-splicing) macro unquote-splicing~1185211294~1004 (0) #f) ((unquote) macro unquote~1185211294~999 (0) #f) ((quasiquote) macro quasiquote~1185211294~829 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((letrec*) macro letrec*~1185211294~201 (1 0) #f) ((letrec) macro letrec~1185211294~165 (1 0) #f) ((let) macro let~1185211294~115 (1 0) #f) ((=>) macro =>~1185211294~525 (1 0) #f) ((else) macro else~1185211294~530 (1 0) #f) ((case) macro case~1185211294~439 (1 0) #f) ((cond) macro cond~1185211294~318 (1 0) #f) ((let*) macro let*~1185211294~232 (1 0) #f) ((with-syntax) macro with-syntax~1185211294~9 (1) #f) ((unsyntax-splicing) macro unsyntax-splicing~1185211294~822 (1) #f) ((unsyntax) macro unsyntax~1185211294~817 (1) #f) ((quasisyntax) macro quasisyntax~1185211294~586 (1) #f))))))) (define ~core.quasiquote~exports (quote ((quasiquote macro quasiquote~1185211294~829 (0) #f) (unquote macro unquote~1185211294~999 (0) #f) (unquote-splicing macro unquote-splicing~1185211294~1004 (0) #f)))) (define ~core.quasiquote~imports (quote (((core quasisyntax) 1) ((core with-syntax) 1) ((core derived) 1 0) ((core let) 1 0) ((core primitives) 1 0)))) (define (~core.quasiquote~visit) ($ex:register-macro! (quote quasiquote~1185211294~829) (lambda (s~1185211294~831) ((lambda (qq-expand~1185211294~833) (set! qq-expand~1185211294~833 (lambda (x~1185211294~845 level~1185211294~846) ((lambda () (let ((input~1185211294~849 x~1185211294~845)) (let ((fail~1185211294~850 (lambda () (let ((fail~1185211294~851 (lambda () (let ((fail~1185211294~852 (lambda () (let ((fail~1185211294~853 (lambda () (let ((fail~1185211294~854 (lambda () (let ((fail~1185211294~855 (lambda () (let ((fail~1185211294~856 (lambda () (let ((fail~1185211294~857 (lambda () (let ((fail~1185211294~858 (lambda () ($ex:invalid-form input~1185211294~849)))) (let ((x~1185211294~859 input~1185211294~849)) (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~861)) 0 (quote (core quasiquote))) (cons x~1185211294~859 (quote ())))))))) (if (vector? input~1185211294~849) (let ((temp~1185211294~875 (vector->list input~1185211294~849))) (if (list? temp~1185211294~875) (let ((x~1185211294~862 temp~1185211294~875)) (let ((input~1185211294~867 (qq-expand~1185211294~833 x~1185211294~862 level~1185211294~846))) (let ((fail~1185211294~869 (lambda () ($ex:invalid-form input~1185211294~867)))) (let ((gen~1185211294~864~1185211294~870 input~1185211294~867)) (begin (cons ($ex:syntax-rename (quote list->vector) (quote ()) (quote (env~1185211294~874)) 0 (quote (core quasiquote))) (cons gen~1185211294~864~1185211294~870 (quote ())))))))) (fail~1185211294~857))) (fail~1185211294~857)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~898 (car input~1185211294~849))) (let ((x~1185211294~876 temp~1185211294~898)) (let ((temp~1185211294~897 (cdr input~1185211294~849))) (let ((y~1185211294~877 temp~1185211294~897)) (let ((input~1185211294~883 (list (qq-expand~1185211294~833 x~1185211294~876 level~1185211294~846) (qq-expand~1185211294~833 y~1185211294~877 level~1185211294~846)))) (let ((fail~1185211294~886 (lambda () ($ex:invalid-form input~1185211294~883)))) (if (pair? input~1185211294~883) (let ((temp~1185211294~896 (car input~1185211294~883))) (let ((gen~1185211294~880~1185211294~887 temp~1185211294~896)) (let ((temp~1185211294~893 (cdr input~1185211294~883))) (if (pair? temp~1185211294~893) (let ((temp~1185211294~895 (car temp~1185211294~893))) (let ((gen~1185211294~879~1185211294~888 temp~1185211294~895)) (let ((temp~1185211294~894 (cdr temp~1185211294~893))) (if (null? temp~1185211294~894) (begin (cons ($ex:syntax-rename (quote cons) (quote ()) (quote (env~1185211294~892)) 0 (quote (core quasiquote))) (cons gen~1185211294~880~1185211294~887 (cons gen~1185211294~879~1185211294~888 (quote ()))))) (fail~1185211294~886))))) (fail~1185211294~886))))) (fail~1185211294~886)))))))) (fail~1185211294~856)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~914 (car input~1185211294~849))) (if (pair? temp~1185211294~914) (let ((temp~1185211294~916 (car temp~1185211294~914))) (if (and ($ex:identifier? temp~1185211294~916) ($ex:free-identifier=? temp~1185211294~916 ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185211294~917)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~915 (cdr temp~1185211294~914))) (if (list? temp~1185211294~915) (let ((x~1185211294~899 temp~1185211294~915)) (let ((temp~1185211294~913 (cdr input~1185211294~849))) (let ((y~1185211294~900 temp~1185211294~913)) (if (= level~1185211294~846 0) (let ((input~1185211294~905 (qq-expand~1185211294~833 y~1185211294~900 0))) (let ((fail~1185211294~907 (lambda () ($ex:invalid-form input~1185211294~905)))) (let ((gen~1185211294~902~1185211294~908 input~1185211294~905)) (begin (cons ($ex:syntax-rename (quote append) (quote ()) (quote (env~1185211294~912)) 0 (quote (core quasiquote))) (cons (cons ($ex:syntax-rename (quote append) (quote ()) (quote (env~1185211294~912)) 0 (quote (core quasiquote))) x~1185211294~899) (cons gen~1185211294~902~1185211294~908 (quote ())))))))) (fail~1185211294~855))))) (fail~1185211294~855))) (fail~1185211294~855))) (fail~1185211294~855))) (fail~1185211294~855)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~933 (car input~1185211294~849))) (if (pair? temp~1185211294~933) (let ((temp~1185211294~935 (car temp~1185211294~933))) (if (and ($ex:identifier? temp~1185211294~935) ($ex:free-identifier=? temp~1185211294~935 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185211294~936)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~934 (cdr temp~1185211294~933))) (if (list? temp~1185211294~934) (let ((x~1185211294~918 temp~1185211294~934)) (let ((temp~1185211294~932 (cdr input~1185211294~849))) (let ((y~1185211294~919 temp~1185211294~932)) (if (= level~1185211294~846 0) (let ((input~1185211294~924 (qq-expand~1185211294~833 y~1185211294~919 0))) (let ((fail~1185211294~926 (lambda () ($ex:invalid-form input~1185211294~924)))) (let ((gen~1185211294~921~1185211294~927 input~1185211294~924)) (begin (cons ($ex:syntax-rename (quote append) (quote ()) (quote (env~1185211294~931)) 0 (quote (core quasiquote))) (cons (cons ($ex:syntax-rename (quote list) (quote ()) (quote (env~1185211294~931)) 0 (quote (core quasiquote))) x~1185211294~918) (cons gen~1185211294~921~1185211294~927 (quote ())))))))) (fail~1185211294~854))))) (fail~1185211294~854))) (fail~1185211294~854))) (fail~1185211294~854))) (fail~1185211294~854)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~942 (car input~1185211294~849))) (if (and ($ex:identifier? temp~1185211294~942) ($ex:free-identifier=? temp~1185211294~942 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185211294~943)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~939 (cdr input~1185211294~849))) (if (pair? temp~1185211294~939) (let ((temp~1185211294~941 (car temp~1185211294~939))) (let ((x~1185211294~937 temp~1185211294~941)) (let ((temp~1185211294~940 (cdr temp~1185211294~939))) (if (null? temp~1185211294~940) (if (= level~1185211294~846 0) x~1185211294~937 (fail~1185211294~853)) (fail~1185211294~853))))) (fail~1185211294~853))) (fail~1185211294~853))) (fail~1185211294~853)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~960 (car input~1185211294~849))) (if (and ($ex:identifier? temp~1185211294~960) ($ex:free-identifier=? temp~1185211294~960 ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185211294~961)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~957 (cdr input~1185211294~849))) (if (pair? temp~1185211294~957) (let ((temp~1185211294~959 (car temp~1185211294~957))) (let ((x~1185211294~944 temp~1185211294~959)) (let ((temp~1185211294~958 (cdr temp~1185211294~957))) (if (null? temp~1185211294~958) (if (> level~1185211294~846 0) (let ((input~1185211294~949 (qq-expand~1185211294~833 x~1185211294~944 (- level~1185211294~846 1)))) (let ((fail~1185211294~951 (lambda () ($ex:invalid-form input~1185211294~949)))) (let ((gen~1185211294~946~1185211294~952 input~1185211294~949)) (begin (cons ($ex:syntax-rename (quote cons) (quote ()) (quote (env~1185211294~956)) 0 (quote (core quasiquote))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~956)) 0 (quote (core quasiquote))) (cons ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185211294~956)) 0 (quote (core quasiquote))) (quote ()))) (cons gen~1185211294~946~1185211294~952 (quote ())))))))) (fail~1185211294~852)) (fail~1185211294~852))))) (fail~1185211294~852))) (fail~1185211294~852))) (fail~1185211294~852)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~978 (car input~1185211294~849))) (if (and ($ex:identifier? temp~1185211294~978) ($ex:free-identifier=? temp~1185211294~978 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185211294~979)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~975 (cdr input~1185211294~849))) (if (pair? temp~1185211294~975) (let ((temp~1185211294~977 (car temp~1185211294~975))) (let ((x~1185211294~962 temp~1185211294~977)) (let ((temp~1185211294~976 (cdr temp~1185211294~975))) (if (null? temp~1185211294~976) (if (> level~1185211294~846 0) (let ((input~1185211294~967 (qq-expand~1185211294~833 x~1185211294~962 (- level~1185211294~846 1)))) (let ((fail~1185211294~969 (lambda () ($ex:invalid-form input~1185211294~967)))) (let ((gen~1185211294~964~1185211294~970 input~1185211294~967)) (begin (cons ($ex:syntax-rename (quote cons) (quote ()) (quote (env~1185211294~974)) 0 (quote (core quasiquote))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~974)) 0 (quote (core quasiquote))) (cons ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185211294~974)) 0 (quote (core quasiquote))) (quote ()))) (cons gen~1185211294~964~1185211294~970 (quote ())))))))) (fail~1185211294~851)) (fail~1185211294~851))))) (fail~1185211294~851))) (fail~1185211294~851))) (fail~1185211294~851)))))) (if (pair? input~1185211294~849) (let ((temp~1185211294~996 (car input~1185211294~849))) (if (and ($ex:identifier? temp~1185211294~996) ($ex:free-identifier=? temp~1185211294~996 ($ex:syntax-rename (quote quasiquote) (quote ()) (quote (env~1185211294~997)) 0 (quote (core quasiquote))))) (let ((temp~1185211294~993 (cdr input~1185211294~849))) (if (pair? temp~1185211294~993) (let ((temp~1185211294~995 (car temp~1185211294~993))) (let ((x~1185211294~980 temp~1185211294~995)) (let ((temp~1185211294~994 (cdr temp~1185211294~993))) (if (null? temp~1185211294~994) (let ((input~1185211294~985 (qq-expand~1185211294~833 x~1185211294~980 (+ level~1185211294~846 1)))) (let ((fail~1185211294~987 (lambda () ($ex:invalid-form input~1185211294~985)))) (let ((gen~1185211294~982~1185211294~988 input~1185211294~985)) (begin (cons ($ex:syntax-rename (quote list) (quote ()) (quote (env~1185211294~992)) 0 (quote (core quasiquote))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~992)) 0 (quote (core quasiquote))) (cons ($ex:syntax-rename (quote quasiquote) (quote ()) (quote (env~1185211294~992)) 0 (quote (core quasiquote))) (quote ()))) (cons gen~1185211294~982~1185211294~988 (quote ())))))))) (fail~1185211294~850))))) (fail~1185211294~850))) (fail~1185211294~850))) (fail~1185211294~850)))))))) (let ((input~1185211294~836 s~1185211294~831)) (let ((fail~1185211294~837 (lambda () ($ex:invalid-form input~1185211294~836)))) (if (pair? input~1185211294~836) (let ((temp~1185211294~843 (car input~1185211294~836))) (let ((temp~1185211294~840 (cdr input~1185211294~836))) (if (pair? temp~1185211294~840) (let ((temp~1185211294~842 (car temp~1185211294~840))) (let ((x~1185211294~838 temp~1185211294~842)) (let ((temp~1185211294~841 (cdr temp~1185211294~840))) (if (null? temp~1185211294~841) (qq-expand~1185211294~833 x~1185211294~838 0) (fail~1185211294~837))))) (fail~1185211294~837)))) (fail~1185211294~837))))) ($ex:unspecified)))) ($ex:register-macro! (quote unquote~1185211294~999) (lambda (e~1185211294~1001) ((lambda () ($ex:syntax-violation (quote unquote) "Invalid expression" e~1185211294~1001))))) ($ex:register-macro! (quote unquote-splicing~1185211294~1004) (lambda (e~1185211294~1006) ((lambda () ($ex:syntax-violation (quote unquote-splicing) "Invalid expression" e~1185211294~1006))))) ($ex:unspecified)) (define (~core.quasiquote~invoke) ($ex:unspecified)))

(begin (define ~core.let-values~envs (quote ((env~1185211294~1181 ((((dummy m~1185211294~1154) pattern-variable dummy~1185211294~1177 (0) 0) ((?body0) pattern-variable ?body0~1185211294~1178 (1) 0) ((?body1) pattern-variable ?body1~1185211294~1179 (1) 1))) (()) ((((x m~1185211294~1154) variable x~1185211294~1156 (0) #f))) . env~1185211294~1009) (env~1185211294~1168 ((((dummy m~1185211294~1154) pattern-variable dummy~1185211294~1162 (0) 0) ((?binding0) pattern-variable ?binding0~1185211294~1163 (1) 0) ((?binding1) pattern-variable ?binding1~1185211294~1164 (1) 1) ((?body0) pattern-variable ?body0~1185211294~1165 (1) 0) ((?body1) pattern-variable ?body1~1185211294~1166 (1) 1))) (()) ((((x m~1185211294~1154) variable x~1185211294~1156 (0) #f))) . env~1185211294~1009) (env~1185211294~1145 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1140 (0) 0) ((?binding) pattern-variable ?binding~1185211294~1141 (1) 1) ((?body0) pattern-variable ?body0~1185211294~1142 (1) 0) ((?body1) pattern-variable ?body1~1185211294~1143 (1) 1))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1129 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1125 (0) 0) ((?tmps) pattern-variable ?tmps~1185211294~1126 (1) 0) ((?body) pattern-variable ?body~1185211294~1127 (1) 0))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1108 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1101 (0) 0) ((?b0) pattern-variable ?b0~1185211294~1102 (1) 0) ((?e0) pattern-variable ?e0~1185211294~1103 (1) 0) ((?binding) pattern-variable ?binding~1185211294~1104 (1) 1) ((?tmps) pattern-variable ?tmps~1185211294~1105 (1) 0) ((?body) pattern-variable ?body~1185211294~1106 (1) 0))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1084 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1077 (0) 0) ((?e0) pattern-variable ?e0~1185211294~1078 (1) 0) ((?args) pattern-variable ?args~1185211294~1079 (1) 0) ((?bindings) pattern-variable ?bindings~1185211294~1080 (1) 0) ((?tmps) pattern-variable ?tmps~1185211294~1081 (1) 0) ((?body) pattern-variable ?body~1185211294~1082 (1) 0))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1058 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1049 (0) 0) ((?a) pattern-variable ?a~1185211294~1050 (1) 0) ((?b) pattern-variable ?b~1185211294~1051 (1) 0) ((?e0) pattern-variable ?e0~1185211294~1052 (1) 0) ((?arg) pattern-variable ?arg~1185211294~1053 (1) 1) ((?bindings) pattern-variable ?bindings~1185211294~1054 (1) 0) ((?tmp) pattern-variable ?tmp~1185211294~1055 (1) 1) ((?body) pattern-variable ?body~1185211294~1056 (1) 0))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1032 ((((dummy m~1185211294~1012) pattern-variable dummy~1185211294~1024 (0) 0) ((?a) pattern-variable ?a~1185211294~1025 (1) 0) ((?e0) pattern-variable ?e0~1185211294~1026 (1) 0) ((?arg) pattern-variable ?arg~1185211294~1027 (1) 1) ((?bindings) pattern-variable ?bindings~1185211294~1028 (1) 0) ((?tmp) pattern-variable ?tmp~1185211294~1029 (1) 1) ((?body) pattern-variable ?body~1185211294~1030 (1) 0))) (()) ((((x m~1185211294~1012) variable x~1185211294~1014 (0) #f))) . env~1185211294~1009) (env~1185211294~1009 ((((let*-values) macro let*-values~1185211294~1153 (0) #f) ((let-values) macro let-values~1185211294~1011 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((syntax-rules) macro syntax-rules~1185211294~67 (1) #f) ((letrec*) macro letrec*~1185211294~201 (0) #f) ((letrec) macro letrec~1185211294~165 (0) #f) ((let) macro let~1185211294~115 (0) #f))))))) (define ~core.let-values~exports (quote ((let-values macro let-values~1185211294~1011 (0) #f) (let*-values macro let*-values~1185211294~1153 (0) #f)))) (define ~core.let-values~imports (quote (((core let) 0) ((core syntax-rules) 1) ((core primitives) 1 0)))) (define (~core.let-values~visit) ($ex:register-macro! (quote let-values~1185211294~1011) (lambda (x~1185211294~1014) ((lambda () (let ((input~1185211294~1017 x~1185211294~1014)) (let ((fail~1185211294~1018 (lambda () (let ((fail~1185211294~1019 (lambda () (let ((fail~1185211294~1020 (lambda () (let ((fail~1185211294~1021 (lambda () (let ((fail~1185211294~1022 (lambda () (let ((fail~1185211294~1023 (lambda () ($ex:invalid-form input~1185211294~1017)))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1048 (car input~1185211294~1017))) (let ((dummy~1185211294~1024 temp~1185211294~1048)) (let ((temp~1185211294~1033 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1033) (let ((temp~1185211294~1047 (car temp~1185211294~1033))) (if (equal? temp~1185211294~1047 (quote "mktmp")) (let ((temp~1185211294~1034 (cdr temp~1185211294~1033))) (if (pair? temp~1185211294~1034) (let ((temp~1185211294~1046 (car temp~1185211294~1034))) (let ((?a~1185211294~1025 temp~1185211294~1046)) (let ((temp~1185211294~1035 (cdr temp~1185211294~1034))) (if (pair? temp~1185211294~1035) (let ((temp~1185211294~1045 (car temp~1185211294~1035))) (let ((?e0~1185211294~1026 temp~1185211294~1045)) (let ((temp~1185211294~1036 (cdr temp~1185211294~1035))) (if (pair? temp~1185211294~1036) (let ((temp~1185211294~1044 (car temp~1185211294~1036))) (if (list? temp~1185211294~1044) (let ((?arg~1185211294~1027 temp~1185211294~1044)) (let ((temp~1185211294~1037 (cdr temp~1185211294~1036))) (if (pair? temp~1185211294~1037) (let ((temp~1185211294~1043 (car temp~1185211294~1037))) (let ((?bindings~1185211294~1028 temp~1185211294~1043)) (let ((temp~1185211294~1038 (cdr temp~1185211294~1037))) (if (pair? temp~1185211294~1038) (let ((temp~1185211294~1042 (car temp~1185211294~1038))) (if (list? temp~1185211294~1042) (let ((?tmp~1185211294~1029 temp~1185211294~1042)) (let ((temp~1185211294~1039 (cdr temp~1185211294~1038))) (if (pair? temp~1185211294~1039) (let ((temp~1185211294~1041 (car temp~1185211294~1039))) (let ((?body~1185211294~1030 temp~1185211294~1041)) (let ((temp~1185211294~1040 (cdr temp~1185211294~1039))) (if (null? temp~1185211294~1040) (cons ($ex:syntax-rename (quote call-with-values) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values))) (cons (quote ()) (cons ?e0~1185211294~1026 (quote ())))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values))) (cons (append ?arg~1185211294~1027 ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values)))) (cons (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?bindings~1185211294~1028 (cons (append ?tmp~1185211294~1029 (cons (cons ?a~1185211294~1025 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~1032)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons ?body~1185211294~1030 (quote ())))))) (quote ())))) (quote ())))) (fail~1185211294~1023))))) (fail~1185211294~1023)))) (fail~1185211294~1023))) (fail~1185211294~1023))))) (fail~1185211294~1023)))) (fail~1185211294~1023))) (fail~1185211294~1023))))) (fail~1185211294~1023))))) (fail~1185211294~1023))) (fail~1185211294~1023))) (fail~1185211294~1023))))) (fail~1185211294~1023)))))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1076 (car input~1185211294~1017))) (let ((dummy~1185211294~1049 temp~1185211294~1076)) (let ((temp~1185211294~1059 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1059) (let ((temp~1185211294~1075 (car temp~1185211294~1059))) (if (equal? temp~1185211294~1075 (quote "mktmp")) (let ((temp~1185211294~1060 (cdr temp~1185211294~1059))) (if (pair? temp~1185211294~1060) (let ((temp~1185211294~1072 (car temp~1185211294~1060))) (if (pair? temp~1185211294~1072) (let ((temp~1185211294~1074 (car temp~1185211294~1072))) (let ((?a~1185211294~1050 temp~1185211294~1074)) (let ((temp~1185211294~1073 (cdr temp~1185211294~1072))) (let ((?b~1185211294~1051 temp~1185211294~1073)) (let ((temp~1185211294~1061 (cdr temp~1185211294~1060))) (if (pair? temp~1185211294~1061) (let ((temp~1185211294~1071 (car temp~1185211294~1061))) (let ((?e0~1185211294~1052 temp~1185211294~1071)) (let ((temp~1185211294~1062 (cdr temp~1185211294~1061))) (if (pair? temp~1185211294~1062) (let ((temp~1185211294~1070 (car temp~1185211294~1062))) (if (list? temp~1185211294~1070) (let ((?arg~1185211294~1053 temp~1185211294~1070)) (let ((temp~1185211294~1063 (cdr temp~1185211294~1062))) (if (pair? temp~1185211294~1063) (let ((temp~1185211294~1069 (car temp~1185211294~1063))) (let ((?bindings~1185211294~1054 temp~1185211294~1069)) (let ((temp~1185211294~1064 (cdr temp~1185211294~1063))) (if (pair? temp~1185211294~1064) (let ((temp~1185211294~1068 (car temp~1185211294~1064))) (if (list? temp~1185211294~1068) (let ((?tmp~1185211294~1055 temp~1185211294~1068)) (let ((temp~1185211294~1065 (cdr temp~1185211294~1064))) (if (pair? temp~1185211294~1065) (let ((temp~1185211294~1067 (car temp~1185211294~1065))) (let ((?body~1185211294~1056 temp~1185211294~1067)) (let ((temp~1185211294~1066 (cdr temp~1185211294~1065))) (if (null? temp~1185211294~1066) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1058)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons ?b~1185211294~1051 (cons ?e0~1185211294~1052 (cons (append ?arg~1185211294~1053 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~1058)) 0 (quote (core let-values))) (quote ()))) (cons ?bindings~1185211294~1054 (cons (append ?tmp~1185211294~1055 (cons (cons ?a~1185211294~1050 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185211294~1058)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons ?body~1185211294~1056 (quote ()))))))))) (fail~1185211294~1022))))) (fail~1185211294~1022)))) (fail~1185211294~1022))) (fail~1185211294~1022))))) (fail~1185211294~1022)))) (fail~1185211294~1022))) (fail~1185211294~1022))))) (fail~1185211294~1022))))))) (fail~1185211294~1022))) (fail~1185211294~1022))) (fail~1185211294~1022))) (fail~1185211294~1022))))) (fail~1185211294~1022)))))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1100 (car input~1185211294~1017))) (let ((dummy~1185211294~1077 temp~1185211294~1100)) (let ((temp~1185211294~1085 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1085) (let ((temp~1185211294~1099 (car temp~1185211294~1085))) (if (equal? temp~1185211294~1099 (quote "mktmp")) (let ((temp~1185211294~1086 (cdr temp~1185211294~1085))) (if (pair? temp~1185211294~1086) (let ((temp~1185211294~1098 (car temp~1185211294~1086))) (if (null? temp~1185211294~1098) (let ((temp~1185211294~1087 (cdr temp~1185211294~1086))) (if (pair? temp~1185211294~1087) (let ((temp~1185211294~1097 (car temp~1185211294~1087))) (let ((?e0~1185211294~1078 temp~1185211294~1097)) (let ((temp~1185211294~1088 (cdr temp~1185211294~1087))) (if (pair? temp~1185211294~1088) (let ((temp~1185211294~1096 (car temp~1185211294~1088))) (let ((?args~1185211294~1079 temp~1185211294~1096)) (let ((temp~1185211294~1089 (cdr temp~1185211294~1088))) (if (pair? temp~1185211294~1089) (let ((temp~1185211294~1095 (car temp~1185211294~1089))) (let ((?bindings~1185211294~1080 temp~1185211294~1095)) (let ((temp~1185211294~1090 (cdr temp~1185211294~1089))) (if (pair? temp~1185211294~1090) (let ((temp~1185211294~1094 (car temp~1185211294~1090))) (let ((?tmps~1185211294~1081 temp~1185211294~1094)) (let ((temp~1185211294~1091 (cdr temp~1185211294~1090))) (if (pair? temp~1185211294~1091) (let ((temp~1185211294~1093 (car temp~1185211294~1091))) (let ((?body~1185211294~1082 temp~1185211294~1093)) (let ((temp~1185211294~1092 (cdr temp~1185211294~1091))) (if (null? temp~1185211294~1092) (cons ($ex:syntax-rename (quote call-with-values) (quote ()) (quote (env~1185211294~1084)) 0 (quote (core let-values))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1084)) 0 (quote (core let-values))) (cons (quote ()) (cons ?e0~1185211294~1078 (quote ())))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1084)) 0 (quote (core let-values))) (cons ?args~1185211294~1079 (cons (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1084)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?bindings~1185211294~1080 (cons ?tmps~1185211294~1081 (cons ?body~1185211294~1082 (quote ())))))) (quote ())))) (quote ())))) (fail~1185211294~1021))))) (fail~1185211294~1021))))) (fail~1185211294~1021))))) (fail~1185211294~1021))))) (fail~1185211294~1021))))) (fail~1185211294~1021))) (fail~1185211294~1021))) (fail~1185211294~1021))) (fail~1185211294~1021))) (fail~1185211294~1021))))) (fail~1185211294~1021)))))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1124 (car input~1185211294~1017))) (let ((dummy~1185211294~1101 temp~1185211294~1124)) (let ((temp~1185211294~1109 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1109) (let ((temp~1185211294~1123 (car temp~1185211294~1109))) (if (equal? temp~1185211294~1123 (quote "bind")) (let ((temp~1185211294~1110 (cdr temp~1185211294~1109))) (if (pair? temp~1185211294~1110) (let ((temp~1185211294~1116 (car temp~1185211294~1110))) (if (pair? temp~1185211294~1116) (let ((temp~1185211294~1118 (car temp~1185211294~1116))) (if (pair? temp~1185211294~1118) (let ((temp~1185211294~1122 (car temp~1185211294~1118))) (let ((?b0~1185211294~1102 temp~1185211294~1122)) (let ((temp~1185211294~1119 (cdr temp~1185211294~1118))) (if (pair? temp~1185211294~1119) (let ((temp~1185211294~1121 (car temp~1185211294~1119))) (let ((?e0~1185211294~1103 temp~1185211294~1121)) (let ((temp~1185211294~1120 (cdr temp~1185211294~1119))) (if (null? temp~1185211294~1120) (let ((temp~1185211294~1117 (cdr temp~1185211294~1116))) (if (list? temp~1185211294~1117) (let ((?binding~1185211294~1104 temp~1185211294~1117)) (let ((temp~1185211294~1111 (cdr temp~1185211294~1110))) (if (pair? temp~1185211294~1111) (let ((temp~1185211294~1115 (car temp~1185211294~1111))) (let ((?tmps~1185211294~1105 temp~1185211294~1115)) (let ((temp~1185211294~1112 (cdr temp~1185211294~1111))) (if (pair? temp~1185211294~1112) (let ((temp~1185211294~1114 (car temp~1185211294~1112))) (let ((?body~1185211294~1106 temp~1185211294~1114)) (let ((temp~1185211294~1113 (cdr temp~1185211294~1112))) (if (null? temp~1185211294~1113) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1108)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons ?b0~1185211294~1102 (cons ?e0~1185211294~1103 (cons (quote ()) (cons ?binding~1185211294~1104 (cons ?tmps~1185211294~1105 (cons ?body~1185211294~1106 (quote ()))))))))) (fail~1185211294~1020))))) (fail~1185211294~1020))))) (fail~1185211294~1020)))) (fail~1185211294~1020))) (fail~1185211294~1020))))) (fail~1185211294~1020))))) (fail~1185211294~1020))) (fail~1185211294~1020))) (fail~1185211294~1020))) (fail~1185211294~1020))) (fail~1185211294~1020))))) (fail~1185211294~1020)))))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1139 (car input~1185211294~1017))) (let ((dummy~1185211294~1125 temp~1185211294~1139)) (let ((temp~1185211294~1130 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1130) (let ((temp~1185211294~1138 (car temp~1185211294~1130))) (if (equal? temp~1185211294~1138 (quote "bind")) (let ((temp~1185211294~1131 (cdr temp~1185211294~1130))) (if (pair? temp~1185211294~1131) (let ((temp~1185211294~1137 (car temp~1185211294~1131))) (if (null? temp~1185211294~1137) (let ((temp~1185211294~1132 (cdr temp~1185211294~1131))) (if (pair? temp~1185211294~1132) (let ((temp~1185211294~1136 (car temp~1185211294~1132))) (let ((?tmps~1185211294~1126 temp~1185211294~1136)) (let ((temp~1185211294~1133 (cdr temp~1185211294~1132))) (if (pair? temp~1185211294~1133) (let ((temp~1185211294~1135 (car temp~1185211294~1133))) (let ((?body~1185211294~1127 temp~1185211294~1135)) (let ((temp~1185211294~1134 (cdr temp~1185211294~1133))) (if (null? temp~1185211294~1134) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~1129)) 0 (quote (core let-values))) (cons ?tmps~1185211294~1126 (cons ?body~1185211294~1127 (quote ())))) (fail~1185211294~1019))))) (fail~1185211294~1019))))) (fail~1185211294~1019))) (fail~1185211294~1019))) (fail~1185211294~1019))) (fail~1185211294~1019))) (fail~1185211294~1019))))) (fail~1185211294~1019)))))) (if (pair? input~1185211294~1017) (let ((temp~1185211294~1151 (car input~1185211294~1017))) (let ((dummy~1185211294~1140 temp~1185211294~1151)) (let ((temp~1185211294~1146 (cdr input~1185211294~1017))) (if (pair? temp~1185211294~1146) (let ((temp~1185211294~1150 (car temp~1185211294~1146))) (if (list? temp~1185211294~1150) (let ((?binding~1185211294~1141 temp~1185211294~1150)) (let ((temp~1185211294~1147 (cdr temp~1185211294~1146))) (if (pair? temp~1185211294~1147) (let ((temp~1185211294~1149 (car temp~1185211294~1147))) (let ((?body0~1185211294~1142 temp~1185211294~1149)) (let ((temp~1185211294~1148 (cdr temp~1185211294~1147))) (if (list? temp~1185211294~1148) (let ((?body1~1185211294~1143 temp~1185211294~1148)) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1145)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?binding~1185211294~1141 (cons (quote ()) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1145)) 0 (quote (core let-values))) (cons ?body0~1185211294~1142 ?body1~1185211294~1143)) (quote ()))))))) (fail~1185211294~1018))))) (fail~1185211294~1018)))) (fail~1185211294~1018))) (fail~1185211294~1018))))) (fail~1185211294~1018)))))))) ($ex:register-macro! (quote let*-values~1185211294~1153) (lambda (x~1185211294~1156) ((lambda () (let ((input~1185211294~1159 x~1185211294~1156)) (let ((fail~1185211294~1160 (lambda () (let ((fail~1185211294~1161 (lambda () ($ex:invalid-form input~1185211294~1159)))) (if (pair? input~1185211294~1159) (let ((temp~1185211294~1176 (car input~1185211294~1159))) (let ((dummy~1185211294~1162 temp~1185211294~1176)) (let ((temp~1185211294~1169 (cdr input~1185211294~1159))) (if (pair? temp~1185211294~1169) (let ((temp~1185211294~1173 (car temp~1185211294~1169))) (if (pair? temp~1185211294~1173) (let ((temp~1185211294~1175 (car temp~1185211294~1173))) (let ((?binding0~1185211294~1163 temp~1185211294~1175)) (let ((temp~1185211294~1174 (cdr temp~1185211294~1173))) (if (list? temp~1185211294~1174) (let ((?binding1~1185211294~1164 temp~1185211294~1174)) (let ((temp~1185211294~1170 (cdr temp~1185211294~1169))) (if (pair? temp~1185211294~1170) (let ((temp~1185211294~1172 (car temp~1185211294~1170))) (let ((?body0~1185211294~1165 temp~1185211294~1172)) (let ((temp~1185211294~1171 (cdr temp~1185211294~1170))) (if (list? temp~1185211294~1171) (let ((?body1~1185211294~1166 temp~1185211294~1171)) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185211294~1168)) 0 (quote (core let-values))) (cons (cons ?binding0~1185211294~1163 (quote ())) (cons (cons ($ex:syntax-rename (quote let*-values) (quote ()) (quote (env~1185211294~1168)) 0 (quote (core let-values))) (cons ?binding1~1185211294~1164 (cons ?body0~1185211294~1165 ?body1~1185211294~1166))) (quote ()))))) (fail~1185211294~1161))))) (fail~1185211294~1161)))) (fail~1185211294~1161))))) (fail~1185211294~1161))) (fail~1185211294~1161))))) (fail~1185211294~1161)))))) (if (pair? input~1185211294~1159) (let ((temp~1185211294~1187 (car input~1185211294~1159))) (let ((dummy~1185211294~1177 temp~1185211294~1187)) (let ((temp~1185211294~1182 (cdr input~1185211294~1159))) (if (pair? temp~1185211294~1182) (let ((temp~1185211294~1186 (car temp~1185211294~1182))) (if (null? temp~1185211294~1186) (let ((temp~1185211294~1183 (cdr temp~1185211294~1182))) (if (pair? temp~1185211294~1183) (let ((temp~1185211294~1185 (car temp~1185211294~1183))) (let ((?body0~1185211294~1178 temp~1185211294~1185)) (let ((temp~1185211294~1184 (cdr temp~1185211294~1183))) (if (list? temp~1185211294~1184) (let ((?body1~1185211294~1179 temp~1185211294~1184)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1181)) 0 (quote (core let-values))) (cons ?body0~1185211294~1178 ?body1~1185211294~1179))) (fail~1185211294~1160))))) (fail~1185211294~1160))) (fail~1185211294~1160))) (fail~1185211294~1160))))) (fail~1185211294~1160)))))))) ($ex:unspecified)) (define (~core.let-values~invoke) ($ex:unspecified)))

(begin (define ~rnrs.control~envs (quote ((env~1185211294~1419 ((((dummy m~1185211294~1336) pattern-variable dummy~1185211294~1415 (0) 0) ((args) pattern-variable args~1185211294~1416 (1) 0) ((n) pattern-variable n~1185211294~1417 (1) 0))) (()) ((((x m~1185211294~1336) variable x~1185211294~1338 (0) #f))) . env~1185211294~1189) (env~1185211294~1402 ((((dummy m~1185211294~1336) pattern-variable dummy~1185211294~1394 (0) 0) ((args) pattern-variable args~1185211294~1395 (1) 0) ((n) pattern-variable n~1185211294~1396 (1) 0) ((x) pattern-variable x~1185211294~1397 (1) 1) ((b1) pattern-variable b1~1185211294~1398 (1) 0) ((b2) pattern-variable b2~1185211294~1399 (1) 1) ((more) pattern-variable more~1185211294~1400 (1) 1))) (()) ((((x m~1185211294~1336) variable x~1185211294~1338 (0) #f))) . env~1185211294~1189) (env~1185211294~1377 ((((dummy m~1185211294~1336) pattern-variable dummy~1185211294~1367 (0) 0) ((args) pattern-variable args~1185211294~1368 (1) 0) ((n) pattern-variable n~1185211294~1369 (1) 0) ((x1) pattern-variable x1~1185211294~1370 (1) 0) ((x2) pattern-variable x2~1185211294~1371 (1) 1) ((r) pattern-variable r~1185211294~1372 (1) 0) ((b1) pattern-variable b1~1185211294~1373 (1) 0) ((b2) pattern-variable b2~1185211294~1374 (1) 1) ((more) pattern-variable more~1185211294~1375 (1) 1))) (()) ((((x m~1185211294~1336) variable x~1185211294~1338 (0) #f))) . env~1185211294~1189) (env~1185211294~1354 ((((dummy m~1185211294~1336) pattern-variable dummy~1185211294~1346 (0) 0) ((args) pattern-variable args~1185211294~1347 (1) 0) ((n) pattern-variable n~1185211294~1348 (1) 0) ((r) pattern-variable r~1185211294~1349 (1) 0) ((b1) pattern-variable b1~1185211294~1350 (1) 0) ((b2) pattern-variable b2~1185211294~1351 (1) 1) ((more) pattern-variable more~1185211294~1352 (1) 1))) (()) ((((x m~1185211294~1336) variable x~1185211294~1338 (0) #f))) . env~1185211294~1189) (env~1185211294~1325 ((((dummy m~1185211294~1298) pattern-variable dummy~1185211294~1320 (0) 0) ((fmls) pattern-variable fmls~1185211294~1321 (1) 0) ((b1) pattern-variable b1~1185211294~1322 (1) 0) ((b2) pattern-variable b2~1185211294~1323 (1) 1))) (()) ((((x m~1185211294~1298) variable x~1185211294~1300 (0) #f))) . env~1185211294~1189) (env~1185211294~1311 ((((dummy m~1185211294~1298) pattern-variable dummy~1185211294~1306 (0) 0) ((fmls) pattern-variable fmls~1185211294~1307 (1) 1) ((b1) pattern-variable b1~1185211294~1308 (1) 1) ((b2) pattern-variable b2~1185211294~1309 (1) 2))) (()) ((((x m~1185211294~1298) variable x~1185211294~1300 (0) #f))) . env~1185211294~1189) (env~1185211294~1281 (()) ((((step) pattern-variable step~1185211294~1266 (1) 1))) ((((var) pattern-variable var~1185211294~1240 (1) 1) ((init) pattern-variable init~1185211294~1241 (1) 1) ((step) pattern-variable step~1185211294~1242 (1) 1) ((e0) pattern-variable e0~1185211294~1243 (1) 0) ((e1) pattern-variable e1~1185211294~1244 (1) 1) ((c) pattern-variable c~1185211294~1245 (1) 1))) (()) ((((orig-x) variable orig-x~1185211294~1235 (1) #f))) . env~1185211294~1189) (env~1185211294~1277 ((((e1) pattern-variable e1~1185211294~1274 (1) 0) ((e2) pattern-variable e2~1185211294~1275 (1) 1))) ((((step) pattern-variable step~1185211294~1266 (1) 1))) ((((var) pattern-variable var~1185211294~1240 (1) 1) ((init) pattern-variable init~1185211294~1241 (1) 1) ((step) pattern-variable step~1185211294~1242 (1) 1) ((e0) pattern-variable e0~1185211294~1243 (1) 0) ((e1) pattern-variable e1~1185211294~1244 (1) 1) ((c) pattern-variable c~1185211294~1245 (1) 1))) (()) ((((orig-x) variable orig-x~1185211294~1235 (1) #f))) . env~1185211294~1189) (env~1185211294~1225 ((((dummy m~1185211294~1213) pattern-variable dummy~1185211294~1220 (0) 0) ((test) pattern-variable test~1185211294~1221 (1) 0) ((result1) pattern-variable result1~1185211294~1222 (1) 0) ((result2) pattern-variable result2~1185211294~1223 (1) 1))) (()) ((((x m~1185211294~1213) variable x~1185211294~1215 (0) #f))) . env~1185211294~1189) (env~1185211294~1204 ((((dummy m~1185211294~1192) pattern-variable dummy~1185211294~1199 (0) 0) ((test) pattern-variable test~1185211294~1200 (1) 0) ((result1) pattern-variable result1~1185211294~1201 (1) 0) ((result2) pattern-variable result2~1185211294~1202 (1) 1))) (()) ((((x m~1185211294~1192) variable x~1185211294~1194 (0) #f))) . env~1185211294~1189) (env~1185211294~1189 ((((case-lambda-help) macro case-lambda-help~1185211294~1335 (0) #f) ((case-lambda) macro case-lambda~1185211294~1297 (0) #f) ((do) macro do~1185211294~1233 (0) #f) ((unless) macro unless~1185211294~1212 (0) #f) ((when) macro when~1185211294~1191 (0) #f) ((eval) variable $ex:eval (1 0) #f) ((environment) variable $ex:environment (1 0) #f) ((syntax-violation) variable $ex:syntax-violation (1 0) #f) ((syntax->datum) variable $ex:syntax->datum (1 0) #f) ((datum->syntax) variable $ex:datum->syntax (1 0) #f) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f) ((identifier?) variable $ex:identifier? (1 0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f) ((modulo) variable modulo (1 0) #f) ((remainder) variable remainder (1 0) #f) ((quotient) variable quotient (1 0) #f) ((inexact->exact) variable inexact->exact (1 0) #f) ((exact->inexact) variable exact->inexact (1 0) #f) ((set-cdr!) variable set-cdr! (1 0) #f) ((set-car!) variable set-car! (1 0) #f) ((string-set!) variable string-set! (1 0) #f) ((string-fill!) variable string-fill! (1 0) #f) ((string-ci>=?) variable string-ci>=? (1 0) #f) ((string-ci<=?) variable string-ci<=? (1 0) #f) ((string-ci>?) variable string-ci>? (1 0) #f) ((string-ci<?) variable string-ci<? (1 0) #f) ((string-ci=?) variable string-ci=? (1 0) #f) ((char-lower-case?) variable char-lower-case? (1 0) #f) ((char-upper-case?) variable char-upper-case? (1 0) #f) ((char-whitespace?) variable char-whitespace? (1 0) #f) ((char-numeric?) variable char-numeric? (1 0) #f) ((char-alphabetic?) variable char-alphabetic? (1 0) #f) ((char-ci>=?) variable char-ci>=? (1 0) #f) ((char-ci<=?) variable char-ci<=? (1 0) #f) ((char-ci>?) variable char-ci>? (1 0) #f) ((char-ci<?) variable char-ci<? (1 0) #f) ((char-ci=?) variable char-ci=? (1 0) #f) ((char-downcase) variable char-downcase (1 0) #f) ((char-upcase) variable char-upcase (1 0) #f) ((write-char) variable write-char (1 0) #f) ((write) variable write (1 0) #f) ((with-output-to-file) variable with-output-to-file (1 0) #f) ((with-input-from-file) variable with-input-from-file (1 0) #f) ((read-char) variable read-char (1 0) #f) ((read) variable read (1 0) #f) ((peek-char) variable peek-char (1 0) #f) ((open-output-file) variable open-output-file (1 0) #f) ((open-input-file) variable open-input-file (1 0) #f) ((newline) variable newline (1 0) #f) ((eof-object?) variable eof-object? (1 0) #f) ((display) variable display (1 0) #f) ((current-output-port) variable current-output-port (1 0) #f) ((current-input-port) variable current-input-port (1 0) #f) ((close-output-port) variable close-output-port (1 0) #f) ((close-input-port) variable close-input-port (1 0) #f) ((call-with-output-file) variable call-with-output-file (1 0) #f) ((call-with-input-file) variable call-with-input-file (1 0) #f) ((assq) variable assq (1 0) #f) ((assv) variable assv (1 0) #f) ((assoc) variable assoc (1 0) #f) ((assp) variable assp (1 0) #f) ((memq) variable memq (1 0) #f) ((memv) variable memv (1 0) #f) ((member) variable member (1 0) #f) ((memp) variable memp (1 0) #f) ((remv) variable remv (1 0) #f) ((remq) variable remq (1 0) #f) ((remove) variable remove (1 0) #f) ((remp) variable remp (1 0) #f) ((fold-right) variable fold-right (1 0) #f) ((fold-left) variable fold-left (1 0) #f) ((partition) variable partition (1 0) #f) ((filter) variable filter (1 0) #f) ((exists) variable exists (1 0) #f) ((for-all) variable for-all (1 0) #f) ((find) variable find (1 0) #f) ((call/cc) variable call/cc (1 0) #f) ((assertion-violation) variable assertion-violation (1 0) #f) ((error) variable error (1 0) #f) ((vector-for-each) variable vector-for-each (1 0) #f) ((vector-map) variable vector-map (1 0) #f) ((string-for-each) variable string-for-each (1 0) #f) ((symbol=?) variable symbol=? (1 0) #f) ((boolean=?) variable boolean=? (1 0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f) ((mod0) variable mod0 (1 0) #f) ((div0) variable div0 (1 0) #f) ((div-and-mod) variable div-and-mod (1 0) #f) ((mod) variable mod (1 0) #f) ((div) variable div (1 0) #f) ((nan?) variable nan? (1 0) #f) ((infinite?) variable infinite? (1 0) #f) ((finite?) variable finite? (1 0) #f) ((inexact) variable inexact (1 0) #f) ((exact) variable exact (1 0) #f) ((integer-valued?) variable integer-valued? (1 0) #f) ((rational-valued?) variable rational-valued? (1 0) #f) ((real-valued?) variable real-valued? (1 0) #f) ((zero?) variable zero? (1 0) #f) ((vector?) variable vector? (1 0) #f) ((vector-set!) variable vector-set! (1 0) #f) ((vector-ref) variable vector-ref (1 0) #f) ((vector-length) variable vector-length (1 0) #f) ((vector-fill!) variable vector-fill! (1 0) #f) ((vector->list) variable vector->list (1 0) #f) ((vector) variable vector (1 0) #f) ((values) variable values (1 0) #f) ((truncate) variable truncate (1 0) #f) ((tan) variable tan (1 0) #f) ((symbol?) variable symbol? (1 0) #f) ((symbol->string) variable symbol->string (1 0) #f) ((substring) variable substring (1 0) #f) ((string?) variable string? (1 0) #f) ((string>?) variable string>? (1 0) #f) ((string>=?) variable string>=? (1 0) #f) ((string=?) variable string=? (1 0) #f) ((string<?) variable string<? (1 0) #f) ((string<=?) variable string<=? (1 0) #f) ((string-ref) variable string-ref (1 0) #f) ((string-length) variable string-length (1 0) #f) ((string-copy) variable string-copy (1 0) #f) ((string-append) variable string-append (1 0) #f) ((string->symbol) variable string->symbol (1 0) #f) ((string->number) variable string->number (1 0) #f) ((string->list) variable string->list (1 0) #f) ((string) variable string (1 0) #f) ((sqrt) variable sqrt (1 0) #f) ((sin) variable sin (1 0) #f) ((round) variable round (1 0) #f) ((reverse) variable reverse (1 0) #f) ((real?) variable real? (1 0) #f) ((real-part) variable real-part (1 0) #f) ((rationalize) variable rationalize (1 0) #f) ((rational?) variable rational? (1 0) #f) ((procedure?) variable procedure? (1 0) #f) ((positive?) variable positive? (1 0) #f) ((pair?) variable pair? (1 0) #f) ((odd?) variable odd? (1 0) #f) ((numerator) variable numerator (1 0) #f) ((number?) variable number? (1 0) #f) ((number->string) variable number->string (1 0) #f) ((null?) variable null? (1 0) #f) ((not) variable not (1 0) #f) ((negative?) variable negative? (1 0) #f) ((min) variable min (1 0) #f) ((max) variable max (1 0) #f) ((map) variable map (1 0) #f) ((make-vector) variable make-vector (1 0) #f) ((make-string) variable make-string (1 0) #f) ((make-rectangular) variable make-rectangular (1 0) #f) ((make-polar) variable make-polar (1 0) #f) ((magnitude) variable magnitude (1 0) #f) ((log) variable log (1 0) #f) ((list?) variable list? (1 0) #f) ((list-tail) variable list-tail (1 0) #f) ((list-ref) variable list-ref (1 0) #f) ((list->vector) variable list->vector (1 0) #f) ((list->string) variable list->string (1 0) #f) ((list) variable list (1 0) #f) ((length) variable length (1 0) #f) ((lcm) variable lcm (1 0) #f) ((integer?) variable integer? (1 0) #f) ((integer->char) variable integer->char (1 0) #f) ((inexact?) variable inexact? (1 0) #f) ((imag-part) variable imag-part (1 0) #f) ((gcd) variable gcd (1 0) #f) ((for-each) variable for-each (1 0) #f) ((floor) variable floor (1 0) #f) ((expt) variable expt (1 0) #f) ((exp) variable exp (1 0) #f) ((exact?) variable exact? (1 0) #f) ((even?) variable even? (1 0) #f) ((eqv?) variable eqv? (1 0) #f) ((equal?) variable equal? (1 0) #f) ((eq?) variable eq? (1 0) #f) ((dynamic-wind) variable dynamic-wind (1 0) #f) ((denominator) variable denominator (1 0) #f) ((cos) variable cos (1 0) #f) ((cons) variable cons (1 0) #f) ((complex?) variable complex? (1 0) #f) ((char->integer) variable char->integer (1 0) #f) ((ceiling) variable ceiling (1 0) #f) ((cddddr) variable cddddr (1 0) #f) ((cdddar) variable cdddar (1 0) #f) ((cddadr) variable cddadr (1 0) #f) ((cddaar) variable cddaar (1 0) #f) ((cdaddr) variable cdaddr (1 0) #f) ((cdadar) variable cdadar (1 0) #f) ((cdaadr) variable cdaadr (1 0) #f) ((cdaaar) variable cdaaar (1 0) #f) ((cadddr) variable cadddr (1 0) #f) ((caddar) variable caddar (1 0) #f) ((cadadr) variable cadadr (1 0) #f) ((cadaar) variable cadaar (1 0) #f) ((caaddr) variable caaddr (1 0) #f) ((caadar) variable caadar (1 0) #f) ((caaadr) variable caaadr (1 0) #f) ((caaaar) variable caaaar (1 0) #f) ((cdddr) variable cdddr (1 0) #f) ((cddar) variable cddar (1 0) #f) ((cdadr) variable cdadr (1 0) #f) ((cdaar) variable cdaar (1 0) #f) ((caddr) variable caddr (1 0) #f) ((cadar) variable cadar (1 0) #f) ((caadr) variable caadr (1 0) #f) ((caaar) variable caaar (1 0) #f) ((cddr) variable cddr (1 0) #f) ((cdar) variable cdar (1 0) #f) ((cadr) variable cadr (1 0) #f) ((caar) variable caar (1 0) #f) ((cdr) variable cdr (1 0) #f) ((car) variable car (1 0) #f) ((call-with-values) variable call-with-values (1 0) #f) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f) ((boolean?) variable boolean? (1 0) #f) ((atan) variable atan (1 0) #f) ((asin) variable asin (1 0) #f) ((apply) variable apply (1 0) #f) ((append) variable append (1 0) #f) ((acos) variable acos (1 0) #f) ((abs) variable abs (1 0) #f) ((>=) variable >= (1 0) #f) ((>) variable > (1 0) #f) ((=) variable = (1 0) #f) ((<=) variable <= (1 0) #f) ((<) variable < (1 0) #f) ((/) variable / (1 0) #f) ((-) variable - (1 0) #f) ((+) variable + (1 0) #f) ((*) variable * (1 0) #f) ((syntax-case) macro syntax-case (1 0) #f) ((syntax) macro syntax (1 0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (1 0) #f) ((let-syntax) macro let-syntax (1 0) #f) ((define-syntax) macro define-syntax (1 0) #f) ((define) macro define (1 0) #f) ((or) macro or (1 0) #f) ((and) macro and (1 0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (1 0) #f) ((lambda) macro lambda (1 0) #f) ((if) macro if (1 0) #f) ((begin) macro begin (1 0) #f) ((letrec*) macro letrec*~1185211294~201 (1 0) #f) ((letrec) macro letrec~1185211294~165 (1 0) #f) ((let) macro let~1185211294~115 (1 0) #f) ((with-syntax) macro with-syntax~1185211294~9 (1) #f) ((syntax-rules) macro syntax-rules~1185211294~67 (1) #f))))))) (define ~rnrs.control~exports (quote ((when macro when~1185211294~1191 (0) #f) (unless macro unless~1185211294~1212 (0) #f) (do macro do~1185211294~1233 (0) #f) (case-lambda macro case-lambda~1185211294~1297 (0) #f)))) (define ~rnrs.control~imports (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)))) (define (~rnrs.control~visit) ($ex:register-macro! (quote when~1185211294~1191) (lambda (x~1185211294~1194) ((lambda () (let ((input~1185211294~1197 x~1185211294~1194)) (let ((fail~1185211294~1198 (lambda () ($ex:invalid-form input~1185211294~1197)))) (if (pair? input~1185211294~1197) (let ((temp~1185211294~1210 (car input~1185211294~1197))) (let ((dummy~1185211294~1199 temp~1185211294~1210)) (let ((temp~1185211294~1205 (cdr input~1185211294~1197))) (if (pair? temp~1185211294~1205) (let ((temp~1185211294~1209 (car temp~1185211294~1205))) (let ((test~1185211294~1200 temp~1185211294~1209)) (let ((temp~1185211294~1206 (cdr temp~1185211294~1205))) (if (pair? temp~1185211294~1206) (let ((temp~1185211294~1208 (car temp~1185211294~1206))) (let ((result1~1185211294~1201 temp~1185211294~1208)) (let ((temp~1185211294~1207 (cdr temp~1185211294~1206))) (if (list? temp~1185211294~1207) (let ((result2~1185211294~1202 temp~1185211294~1207)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1204)) 0 (quote (rnrs control))) (cons test~1185211294~1200 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1204)) 0 (quote (rnrs control))) (cons result1~1185211294~1201 result2~1185211294~1202)) (quote ()))))) (fail~1185211294~1198))))) (fail~1185211294~1198))))) (fail~1185211294~1198))))) (fail~1185211294~1198)))))))) ($ex:register-macro! (quote unless~1185211294~1212) (lambda (x~1185211294~1215) ((lambda () (let ((input~1185211294~1218 x~1185211294~1215)) (let ((fail~1185211294~1219 (lambda () ($ex:invalid-form input~1185211294~1218)))) (if (pair? input~1185211294~1218) (let ((temp~1185211294~1231 (car input~1185211294~1218))) (let ((dummy~1185211294~1220 temp~1185211294~1231)) (let ((temp~1185211294~1226 (cdr input~1185211294~1218))) (if (pair? temp~1185211294~1226) (let ((temp~1185211294~1230 (car temp~1185211294~1226))) (let ((test~1185211294~1221 temp~1185211294~1230)) (let ((temp~1185211294~1227 (cdr temp~1185211294~1226))) (if (pair? temp~1185211294~1227) (let ((temp~1185211294~1229 (car temp~1185211294~1227))) (let ((result1~1185211294~1222 temp~1185211294~1229)) (let ((temp~1185211294~1228 (cdr temp~1185211294~1227))) (if (list? temp~1185211294~1228) (let ((result2~1185211294~1223 temp~1185211294~1228)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1225)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote not) (quote ()) (quote (env~1185211294~1225)) 0 (quote (rnrs control))) (cons test~1185211294~1221 (quote ()))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1225)) 0 (quote (rnrs control))) (cons result1~1185211294~1222 result2~1185211294~1223)) (quote ()))))) (fail~1185211294~1219))))) (fail~1185211294~1219))))) (fail~1185211294~1219))))) (fail~1185211294~1219)))))))) ($ex:register-macro! (quote do~1185211294~1233) (lambda (orig-x~1185211294~1235) ((lambda () (let ((input~1185211294~1238 orig-x~1185211294~1235)) (let ((fail~1185211294~1239 (lambda () ($ex:invalid-form input~1185211294~1238)))) (if (pair? input~1185211294~1238) (let ((temp~1185211294~1295 (car input~1185211294~1238))) (let ((temp~1185211294~1282 (cdr input~1185211294~1238))) (if (pair? temp~1185211294~1282) (let ((temp~1185211294~1288 (car temp~1185211294~1282))) ($ex:map-while (lambda (temp~1185211294~1288) (if (pair? temp~1185211294~1288) (let ((temp~1185211294~1294 (car temp~1185211294~1288))) (let ((var~1185211294~1240 temp~1185211294~1294)) (let ((temp~1185211294~1291 (cdr temp~1185211294~1288))) (if (pair? temp~1185211294~1291) (let ((temp~1185211294~1293 (car temp~1185211294~1291))) (let ((init~1185211294~1241 temp~1185211294~1293)) (let ((temp~1185211294~1292 (cdr temp~1185211294~1291))) (let ((step~1185211294~1242 temp~1185211294~1292)) (list var~1185211294~1240 init~1185211294~1241 step~1185211294~1242))))) #f)))) #f)) temp~1185211294~1288 (lambda (cols~1185211294~1289 rest~1185211294~1290) (if (null? rest~1185211294~1290) (apply (lambda (var~1185211294~1240 init~1185211294~1241 step~1185211294~1242) (let ((temp~1185211294~1283 (cdr temp~1185211294~1282))) (if (pair? temp~1185211294~1283) (let ((temp~1185211294~1285 (car temp~1185211294~1283))) (if (pair? temp~1185211294~1285) (let ((temp~1185211294~1287 (car temp~1185211294~1285))) (let ((e0~1185211294~1243 temp~1185211294~1287)) (let ((temp~1185211294~1286 (cdr temp~1185211294~1285))) (if (list? temp~1185211294~1286) (let ((e1~1185211294~1244 temp~1185211294~1286)) (let ((temp~1185211294~1284 (cdr temp~1185211294~1283))) (if (list? temp~1185211294~1284) (let ((c~1185211294~1245 temp~1185211294~1284)) (let ((input~1185211294~1248 (map (lambda (v~1185211294~1250 s~1185211294~1251) ((lambda () (let ((input~1185211294~1254 s~1185211294~1251)) (let ((fail~1185211294~1255 (lambda () (let ((fail~1185211294~1256 (lambda () (let ((fail~1185211294~1257 (lambda () ($ex:invalid-form input~1185211294~1254)))) ($ex:syntax-violation (quote do) "Invalid step" orig-x~1185211294~1235 s~1185211294~1251))))) (if (pair? input~1185211294~1254) (let ((temp~1185211294~1262 (car input~1185211294~1254))) (let ((e~1185211294~1259 temp~1185211294~1262)) (let ((temp~1185211294~1261 (cdr input~1185211294~1254))) (if (null? temp~1185211294~1261) e~1185211294~1259 (fail~1185211294~1256))))) (fail~1185211294~1256)))))) (if (null? input~1185211294~1254) v~1185211294~1250 (fail~1185211294~1255))))))) var~1185211294~1240 step~1185211294~1242))) (let ((fail~1185211294~1265 (lambda () ($ex:invalid-form input~1185211294~1248)))) (if (list? input~1185211294~1248) (let ((step~1185211294~1266 input~1185211294~1248)) (begin (let ((input~1185211294~1270 e1~1185211294~1244)) (let ((fail~1185211294~1272 (lambda () (let ((fail~1185211294~1273 (lambda () ($ex:invalid-form input~1185211294~1270)))) (if (pair? input~1185211294~1270) (let ((temp~1185211294~1279 (car input~1185211294~1270))) (let ((e1~1185211294~1274 temp~1185211294~1279)) (let ((temp~1185211294~1278 (cdr input~1185211294~1270))) (if (list? temp~1185211294~1278) (let ((e2~1185211294~1275 temp~1185211294~1278)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) (cons (map (lambda (var~1185211294~1240 init~1185211294~1241) (cons var~1185211294~1240 (cons init~1185211294~1241 (quote ())))) var~1185211294~1240 init~1185211294~1241) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) (cons e0~1185211294~1243 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) (cons e1~1185211294~1274 e2~1185211294~1275)) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) (append c~1185211294~1245 (cons (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185211294~1277)) 0 (quote (rnrs control))) step~1185211294~1266) (quote ())))) (quote ()))))) (quote ())))))) (fail~1185211294~1273))))) (fail~1185211294~1273)))))) (if (null? input~1185211294~1270) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) (cons (map (lambda (var~1185211294~1240 init~1185211294~1241) (cons var~1185211294~1240 (cons init~1185211294~1241 (quote ())))) var~1185211294~1240 init~1185211294~1241) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote not) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) (cons e0~1185211294~1243 (quote ()))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) (append c~1185211294~1245 (cons (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185211294~1281)) 0 (quote (rnrs control))) step~1185211294~1266) (quote ())))) (quote ())))) (quote ()))))) (fail~1185211294~1272)))))) (fail~1185211294~1265))))) (fail~1185211294~1239)))) (fail~1185211294~1239))))) (fail~1185211294~1239))) (fail~1185211294~1239)))) (if (null? cols~1185211294~1289) (quote (() () ())) (apply map list cols~1185211294~1289))) (fail~1185211294~1239))))) (fail~1185211294~1239)))) (fail~1185211294~1239)))))))) ($ex:register-macro! (quote case-lambda~1185211294~1297) (lambda (x~1185211294~1300) ((lambda () (let ((input~1185211294~1303 x~1185211294~1300)) (let ((fail~1185211294~1304 (lambda () (let ((fail~1185211294~1305 (lambda () ($ex:invalid-form input~1185211294~1303)))) (if (pair? input~1185211294~1303) (let ((temp~1185211294~1319 (car input~1185211294~1303))) (let ((dummy~1185211294~1306 temp~1185211294~1319)) (let ((temp~1185211294~1312 (cdr input~1185211294~1303))) ($ex:map-while (lambda (temp~1185211294~1312) (if (pair? temp~1185211294~1312) (let ((temp~1185211294~1318 (car temp~1185211294~1312))) (let ((fmls~1185211294~1307 temp~1185211294~1318)) (let ((temp~1185211294~1315 (cdr temp~1185211294~1312))) (if (pair? temp~1185211294~1315) (let ((temp~1185211294~1317 (car temp~1185211294~1315))) (let ((b1~1185211294~1308 temp~1185211294~1317)) (let ((temp~1185211294~1316 (cdr temp~1185211294~1315))) (if (list? temp~1185211294~1316) (let ((b2~1185211294~1309 temp~1185211294~1316)) (list fmls~1185211294~1307 b1~1185211294~1308 b2~1185211294~1309)) #f)))) #f)))) #f)) temp~1185211294~1312 (lambda (cols~1185211294~1313 rest~1185211294~1314) (if (null? rest~1185211294~1314) (apply (lambda (fmls~1185211294~1307 b1~1185211294~1308 b2~1185211294~1309) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons (cons (cons ($ex:syntax-rename (quote n) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (quote ()))) (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote n) (quote ()) (quote (env~1185211294~1311)) 0 (quote (rnrs control))) (map (lambda (fmls~1185211294~1307 b1~1185211294~1308 b2~1185211294~1309) (cons fmls~1185211294~1307 (cons b1~1185211294~1308 b2~1185211294~1309))) fmls~1185211294~1307 b1~1185211294~1308 b2~1185211294~1309)))) (quote ())))) (quote ()))))) (if (null? cols~1185211294~1313) (quote (() () ())) (apply map list cols~1185211294~1313))) (fail~1185211294~1305))))))) (fail~1185211294~1305)))))) (if (pair? input~1185211294~1303) (let ((temp~1185211294~1333 (car input~1185211294~1303))) (let ((dummy~1185211294~1320 temp~1185211294~1333)) (let ((temp~1185211294~1326 (cdr input~1185211294~1303))) (if (pair? temp~1185211294~1326) (let ((temp~1185211294~1328 (car temp~1185211294~1326))) (if (pair? temp~1185211294~1328) (let ((temp~1185211294~1332 (car temp~1185211294~1328))) (let ((fmls~1185211294~1321 temp~1185211294~1332)) (let ((temp~1185211294~1329 (cdr temp~1185211294~1328))) (if (pair? temp~1185211294~1329) (let ((temp~1185211294~1331 (car temp~1185211294~1329))) (let ((b1~1185211294~1322 temp~1185211294~1331)) (let ((temp~1185211294~1330 (cdr temp~1185211294~1329))) (if (list? temp~1185211294~1330) (let ((b2~1185211294~1323 temp~1185211294~1330)) (let ((temp~1185211294~1327 (cdr temp~1185211294~1326))) (if (null? temp~1185211294~1327) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1325)) 0 (quote (rnrs control))) (cons fmls~1185211294~1321 (cons b1~1185211294~1322 b2~1185211294~1323))) (fail~1185211294~1304)))) (fail~1185211294~1304))))) (fail~1185211294~1304))))) (fail~1185211294~1304))) (fail~1185211294~1304))))) (fail~1185211294~1304)))))))) ($ex:register-macro! (quote case-lambda-help~1185211294~1335) (lambda (x~1185211294~1338) ((lambda () (let ((input~1185211294~1341 x~1185211294~1338)) (let ((fail~1185211294~1342 (lambda () (let ((fail~1185211294~1343 (lambda () (let ((fail~1185211294~1344 (lambda () (let ((fail~1185211294~1345 (lambda () ($ex:invalid-form input~1185211294~1341)))) (if (pair? input~1185211294~1341) (let ((temp~1185211294~1366 (car input~1185211294~1341))) (let ((dummy~1185211294~1346 temp~1185211294~1366)) (let ((temp~1185211294~1355 (cdr input~1185211294~1341))) (if (pair? temp~1185211294~1355) (let ((temp~1185211294~1365 (car temp~1185211294~1355))) (let ((args~1185211294~1347 temp~1185211294~1365)) (let ((temp~1185211294~1356 (cdr temp~1185211294~1355))) (if (pair? temp~1185211294~1356) (let ((temp~1185211294~1364 (car temp~1185211294~1356))) (let ((n~1185211294~1348 temp~1185211294~1364)) (let ((temp~1185211294~1357 (cdr temp~1185211294~1356))) (if (pair? temp~1185211294~1357) (let ((temp~1185211294~1359 (car temp~1185211294~1357))) (if (pair? temp~1185211294~1359) (let ((temp~1185211294~1363 (car temp~1185211294~1359))) (let ((r~1185211294~1349 temp~1185211294~1363)) (let ((temp~1185211294~1360 (cdr temp~1185211294~1359))) (if (pair? temp~1185211294~1360) (let ((temp~1185211294~1362 (car temp~1185211294~1360))) (let ((b1~1185211294~1350 temp~1185211294~1362)) (let ((temp~1185211294~1361 (cdr temp~1185211294~1360))) (if (list? temp~1185211294~1361) (let ((b2~1185211294~1351 temp~1185211294~1361)) (let ((temp~1185211294~1358 (cdr temp~1185211294~1357))) (if (list? temp~1185211294~1358) (let ((more~1185211294~1352 temp~1185211294~1358)) (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185211294~1354)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1354)) 0 (quote (rnrs control))) (cons r~1185211294~1349 (cons b1~1185211294~1350 b2~1185211294~1351))) (cons args~1185211294~1347 (quote ()))))) (fail~1185211294~1345)))) (fail~1185211294~1345))))) (fail~1185211294~1345))))) (fail~1185211294~1345))) (fail~1185211294~1345))))) (fail~1185211294~1345))))) (fail~1185211294~1345))))) (fail~1185211294~1345)))))) (if (pair? input~1185211294~1341) (let ((temp~1185211294~1393 (car input~1185211294~1341))) (let ((dummy~1185211294~1367 temp~1185211294~1393)) (let ((temp~1185211294~1378 (cdr input~1185211294~1341))) (if (pair? temp~1185211294~1378) (let ((temp~1185211294~1392 (car temp~1185211294~1378))) (let ((args~1185211294~1368 temp~1185211294~1392)) (let ((temp~1185211294~1379 (cdr temp~1185211294~1378))) (if (pair? temp~1185211294~1379) (let ((temp~1185211294~1391 (car temp~1185211294~1379))) (let ((n~1185211294~1369 temp~1185211294~1391)) (let ((temp~1185211294~1380 (cdr temp~1185211294~1379))) (if (pair? temp~1185211294~1380) (let ((temp~1185211294~1382 (car temp~1185211294~1380))) (if (pair? temp~1185211294~1382) (let ((temp~1185211294~1386 (car temp~1185211294~1382))) (if (pair? temp~1185211294~1386) (let ((temp~1185211294~1390 (car temp~1185211294~1386))) (let ((x1~1185211294~1370 temp~1185211294~1390)) (let ((temp~1185211294~1387 (cdr temp~1185211294~1386))) (if (>= ($ex:dotted-length temp~1185211294~1387) 0) (let ((temp~1185211294~1389 ($ex:dotted-butlast temp~1185211294~1387 0))) (if (list? temp~1185211294~1389) (let ((x2~1185211294~1371 temp~1185211294~1389)) (let ((temp~1185211294~1388 ($ex:dotted-last temp~1185211294~1387 0))) (let ((r~1185211294~1372 temp~1185211294~1388)) (let ((temp~1185211294~1383 (cdr temp~1185211294~1382))) (if (pair? temp~1185211294~1383) (let ((temp~1185211294~1385 (car temp~1185211294~1383))) (let ((b1~1185211294~1373 temp~1185211294~1385)) (let ((temp~1185211294~1384 (cdr temp~1185211294~1383))) (if (list? temp~1185211294~1384) (let ((b2~1185211294~1374 temp~1185211294~1384)) (let ((temp~1185211294~1381 (cdr temp~1185211294~1380))) (if (list? temp~1185211294~1381) (let ((more~1185211294~1375 temp~1185211294~1381)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote >=) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons n~1185211294~1369 (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons (cons x1~1185211294~1370 x2~1185211294~1371) (quote ()))) (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons (cons x1~1185211294~1370 (append x2~1185211294~1371 r~1185211294~1372)) (cons b1~1185211294~1373 b2~1185211294~1374))) (cons args~1185211294~1368 (quote ())))) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185211294~1377)) 0 (quote (rnrs control))) (cons args~1185211294~1368 (cons n~1185211294~1369 more~1185211294~1375))) (quote ())))))) (fail~1185211294~1344)))) (fail~1185211294~1344))))) (fail~1185211294~1344)))))) (fail~1185211294~1344))) (fail~1185211294~1344))))) (fail~1185211294~1344))) (fail~1185211294~1344))) (fail~1185211294~1344))))) (fail~1185211294~1344))))) (fail~1185211294~1344))))) (fail~1185211294~1344)))))) (if (pair? input~1185211294~1341) (let ((temp~1185211294~1414 (car input~1185211294~1341))) (let ((dummy~1185211294~1394 temp~1185211294~1414)) (let ((temp~1185211294~1403 (cdr input~1185211294~1341))) (if (pair? temp~1185211294~1403) (let ((temp~1185211294~1413 (car temp~1185211294~1403))) (let ((args~1185211294~1395 temp~1185211294~1413)) (let ((temp~1185211294~1404 (cdr temp~1185211294~1403))) (if (pair? temp~1185211294~1404) (let ((temp~1185211294~1412 (car temp~1185211294~1404))) (let ((n~1185211294~1396 temp~1185211294~1412)) (let ((temp~1185211294~1405 (cdr temp~1185211294~1404))) (if (pair? temp~1185211294~1405) (let ((temp~1185211294~1407 (car temp~1185211294~1405))) (if (pair? temp~1185211294~1407) (let ((temp~1185211294~1411 (car temp~1185211294~1407))) (if (list? temp~1185211294~1411) (let ((x~1185211294~1397 temp~1185211294~1411)) (let ((temp~1185211294~1408 (cdr temp~1185211294~1407))) (if (pair? temp~1185211294~1408) (let ((temp~1185211294~1410 (car temp~1185211294~1408))) (let ((b1~1185211294~1398 temp~1185211294~1410)) (let ((temp~1185211294~1409 (cdr temp~1185211294~1408))) (if (list? temp~1185211294~1409) (let ((b2~1185211294~1399 temp~1185211294~1409)) (let ((temp~1185211294~1406 (cdr temp~1185211294~1405))) (if (list? temp~1185211294~1406) (let ((more~1185211294~1400 temp~1185211294~1406)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote =) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons n~1185211294~1396 (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons x~1185211294~1397 (quote ()))) (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons x~1185211294~1397 (cons b1~1185211294~1398 b2~1185211294~1399))) (cons args~1185211294~1395 (quote ())))) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185211294~1402)) 0 (quote (rnrs control))) (cons args~1185211294~1395 (cons n~1185211294~1396 more~1185211294~1400))) (quote ())))))) (fail~1185211294~1343)))) (fail~1185211294~1343))))) (fail~1185211294~1343)))) (fail~1185211294~1343))) (fail~1185211294~1343))) (fail~1185211294~1343))))) (fail~1185211294~1343))))) (fail~1185211294~1343))))) (fail~1185211294~1343)))))) (if (pair? input~1185211294~1341) (let ((temp~1185211294~1425 (car input~1185211294~1341))) (let ((dummy~1185211294~1415 temp~1185211294~1425)) (let ((temp~1185211294~1420 (cdr input~1185211294~1341))) (if (pair? temp~1185211294~1420) (let ((temp~1185211294~1424 (car temp~1185211294~1420))) (let ((args~1185211294~1416 temp~1185211294~1424)) (let ((temp~1185211294~1421 (cdr temp~1185211294~1420))) (if (pair? temp~1185211294~1421) (let ((temp~1185211294~1423 (car temp~1185211294~1421))) (let ((n~1185211294~1417 temp~1185211294~1423)) (let ((temp~1185211294~1422 (cdr temp~1185211294~1421))) (if (null? temp~1185211294~1422) (cons ($ex:syntax-rename (quote assertion-violation) (quote ()) (quote (env~1185211294~1419)) 0 (quote (rnrs control))) (cons (quote #f) (cons (quote "unexpected number of arguments") (quote ())))) (fail~1185211294~1342))))) (fail~1185211294~1342))))) (fail~1185211294~1342))))) (fail~1185211294~1342)))))))) ($ex:unspecified)) (define (~rnrs.control~invoke) ($ex:unspecified)))

(begin (define ~rnrs.lists~envs (quote ())) (define ~rnrs.lists~exports (quote ((find variable find (0) #f) (for-all variable for-all (0) #f) (exists variable exists (0) #f) (filter variable filter (0) #f) (partition variable partition (0) #f) (fold-left variable fold-left (0) #f) (fold-right variable fold-right (0) #f) (remp variable remp (0) #f) (remove variable remove (0) #f) (remq variable remq (0) #f) (remv variable remv (0) #f) (memp variable memp (0) #f) (member variable member (0) #f) (memv variable memv (0) #f) (memq variable memq (0) #f) (assp variable assp (0) #f) (assoc variable assoc (0) #f) (assv variable assv (0) #f) (assq variable assq (0) #f)))) (define ~rnrs.lists~imports (quote (((core primitives) 0)))) (define (~rnrs.lists~visit) ($ex:unspecified)) (define (~rnrs.lists~invoke) ($ex:unspecified)))

(begin (define ~rnrs.io.simple~envs (quote ())) (define ~rnrs.io.simple~exports (quote ((call-with-input-file variable call-with-input-file (0) #f) (call-with-output-file variable call-with-output-file (0) #f) (close-input-port variable close-input-port (0) #f) (close-output-port variable close-output-port (0) #f) (current-input-port variable current-input-port (0) #f) (current-output-port variable current-output-port (0) #f) (display variable display (0) #f) (eof-object? variable eof-object? (0) #f) (newline variable newline (0) #f) (open-input-file variable open-input-file (0) #f) (open-output-file variable open-output-file (0) #f) (peek-char variable peek-char (0) #f) (read variable read (0) #f) (read-char variable read-char (0) #f) (with-input-from-file variable with-input-from-file (0) #f) (with-output-to-file variable with-output-to-file (0) #f) (write variable write (0) #f) (write-char variable write-char (0) #f)))) (define ~rnrs.io.simple~imports (quote (((core primitives) 0)))) (define (~rnrs.io.simple~visit) ($ex:unspecified)) (define (~rnrs.io.simple~invoke) ($ex:unspecified)))

(begin (define ~rnrs.unicode~envs (quote ())) (define ~rnrs.unicode~exports (quote ((char-upcase variable char-upcase (0) #f) (char-downcase variable char-downcase (0) #f) (char-ci=? variable char-ci=? (0) #f) (char-ci<? variable char-ci<? (0) #f) (char-ci>? variable char-ci>? (0) #f) (char-ci<=? variable char-ci<=? (0) #f) (char-ci>=? variable char-ci>=? (0) #f) (char-alphabetic? variable char-alphabetic? (0) #f) (char-numeric? variable char-numeric? (0) #f) (char-whitespace? variable char-whitespace? (0) #f) (char-upper-case? variable char-upper-case? (0) #f) (char-lower-case? variable char-lower-case? (0) #f) (string-ci=? variable string-ci=? (0) #f) (string-ci<? variable string-ci<? (0) #f) (string-ci>? variable string-ci>? (0) #f) (string-ci<=? variable string-ci<=? (0) #f) (string-ci>=? variable string-ci>=? (0) #f)))) (define ~rnrs.unicode~imports (quote (((core primitives) 0)))) (define (~rnrs.unicode~visit) ($ex:unspecified)) (define (~rnrs.unicode~invoke) ($ex:unspecified)))

(begin (define ~rnrs.mutable-strings~envs (quote ())) (define ~rnrs.mutable-strings~exports (quote ((string-set! variable string-set! (0) #f) (string-fill! variable string-fill! (0) #f)))) (define ~rnrs.mutable-strings~imports (quote (((core primitives) 0)))) (define (~rnrs.mutable-strings~visit) ($ex:unspecified)) (define (~rnrs.mutable-strings~invoke) ($ex:unspecified)))

(begin (define ~rnrs.syntax-case~envs (quote ())) (define ~rnrs.syntax-case~exports (quote ((make-variable-transformer variable $ex:make-variable-transformer (0) #f) (identifier? variable $ex:identifier? (0) #f) (bound-identifier=? variable $ex:bound-identifier=? (0) #f) (free-identifier=? variable $ex:free-identifier=? (0) #f) (generate-temporaries variable $ex:generate-temporaries (0) #f) (datum->syntax variable $ex:datum->syntax (0) #f) (syntax->datum variable $ex:syntax->datum (0) #f) (syntax-violation variable $ex:syntax-violation (0) #f) (syntax macro syntax (0) #f) (syntax-case macro syntax-case (0) #f) (quasisyntax macro quasisyntax~1185211294~586 (0) #f) (unsyntax macro unsyntax~1185211294~817 (0) #f) (unsyntax-splicing macro unsyntax-splicing~1185211294~822 (0) #f) (with-syntax macro with-syntax~1185211294~9 (0) #f) (_ macro _ (0) #f) (... macro ... (0) #f)))) (define ~rnrs.syntax-case~imports (quote (((core quasisyntax) 0) ((core with-syntax) 0) ((core primitives) 0)))) (define (~rnrs.syntax-case~visit) ($ex:unspecified)) (define (~rnrs.syntax-case~invoke) ($ex:unspecified)))

(begin (define ~rnrs.base~envs (quote ())) (define ~rnrs.base~exports (quote ((begin macro begin (0) #f) (if macro if (0) #f) (lambda macro lambda (0) #f) (quote macro quote (0) #f) (set! macro set! (1 0) #f) (and macro and (0) #f) (or macro or (0) #f) (define macro define (0) #f) (define-syntax macro define-syntax (0) #f) (let-syntax macro let-syntax (0) #f) (letrec-syntax macro letrec-syntax (0) #f) (_ macro _ (1) #f) (... macro ... (1) #f) (let macro let~1185211294~115 (0) #f) (let* macro let*~1185211294~232 (0) #f) (letrec macro letrec~1185211294~165 (0) #f) (letrec* macro letrec*~1185211294~201 (0) #f) (let-values macro let-values~1185211294~1011 (0) #f) (let*-values macro let*-values~1185211294~1153 (0) #f) (case macro case~1185211294~439 (0) #f) (cond macro cond~1185211294~318 (0) #f) (else macro else~1185211294~530 (0) #f) (=> macro =>~1185211294~525 (0) #f) (quasiquote macro quasiquote~1185211294~829 (0) #f) (unquote macro unquote~1185211294~999 (0) #f) (unquote-splicing macro unquote-splicing~1185211294~1004 (0) #f) (syntax-rules macro syntax-rules~1185211294~67 (1) #f) (identifier-syntax macro identifier-syntax~1185211294~537 (1) #f) (* variable * (0) #f) (+ variable + (0) #f) (- variable - (0) #f) (/ variable / (0) #f) (< variable < (0) #f) (<= variable <= (0) #f) (= variable = (0) #f) (> variable > (0) #f) (>= variable >= (0) #f) (abs variable abs (0) #f) (acos variable acos (0) #f) (append variable append (0) #f) (apply variable apply (0) #f) (asin variable asin (0) #f) (atan variable atan (0) #f) (boolean? variable boolean? (0) #f) (call-with-current-continuation variable call-with-current-continuation (0) #f) (call-with-values variable call-with-values (0) #f) (car variable car (0) #f) (cdr variable cdr (0) #f) (caar variable caar (0) #f) (cadr variable cadr (0) #f) (cdar variable cdar (0) #f) (cddr variable cddr (0) #f) (caaar variable caaar (0) #f) (caadr variable caadr (0) #f) (cadar variable cadar (0) #f) (caddr variable caddr (0) #f) (cdaar variable cdaar (0) #f) (cdadr variable cdadr (0) #f) (cddar variable cddar (0) #f) (cdddr variable cdddr (0) #f) (caaaar variable caaaar (0) #f) (caaadr variable caaadr (0) #f) (caadar variable caadar (0) #f) (caaddr variable caaddr (0) #f) (cadaar variable cadaar (0) #f) (cadadr variable cadadr (0) #f) (caddar variable caddar (0) #f) (cadddr variable cadddr (0) #f) (cdaaar variable cdaaar (0) #f) (cdaadr variable cdaadr (0) #f) (cdadar variable cdadar (0) #f) (cdaddr variable cdaddr (0) #f) (cddaar variable cddaar (0) #f) (cddadr variable cddadr (0) #f) (cdddar variable cdddar (0) #f) (cddddr variable cddddr (0) #f) (ceiling variable ceiling (0) #f) (char->integer variable char->integer (0) #f) (complex? variable complex? (0) #f) (cons variable cons (0) #f) (cos variable cos (0) #f) (denominator variable denominator (0) #f) (dynamic-wind variable dynamic-wind (0) #f) (eq? variable eq? (0) #f) (equal? variable equal? (0) #f) (eqv? variable eqv? (0) #f) (even? variable even? (0) #f) (exact? variable exact? (0) #f) (exp variable exp (0) #f) (expt variable expt (0) #f) (floor variable floor (0) #f) (for-each variable for-each (0) #f) (gcd variable gcd (0) #f) (imag-part variable imag-part (0) #f) (inexact? variable inexact? (0) #f) (integer->char variable integer->char (0) #f) (integer? variable integer? (0) #f) (lcm variable lcm (0) #f) (length variable length (0) #f) (list variable list (0) #f) (list->string variable list->string (0) #f) (list->vector variable list->vector (0) #f) (list-ref variable list-ref (0) #f) (list-tail variable list-tail (0) #f) (list? variable list? (0) #f) (log variable log (0) #f) (magnitude variable magnitude (0) #f) (make-polar variable make-polar (0) #f) (make-rectangular variable make-rectangular (0) #f) (make-string variable make-string (0) #f) (make-vector variable make-vector (0) #f) (map variable map (0) #f) (max variable max (0) #f) (min variable min (0) #f) (negative? variable negative? (0) #f) (not variable not (0) #f) (null? variable null? (0) #f) (number->string variable number->string (0) #f) (number? variable number? (0) #f) (numerator variable numerator (0) #f) (odd? variable odd? (0) #f) (pair? variable pair? (0) #f) (positive? variable positive? (0) #f) (procedure? variable procedure? (0) #f) (rational? variable rational? (0) #f) (rationalize variable rationalize (0) #f) (real-part variable real-part (0) #f) (real? variable real? (0) #f) (reverse variable reverse (0) #f) (round variable round (0) #f) (sin variable sin (0) #f) (sqrt variable sqrt (0) #f) (string variable string (0) #f) (string->list variable string->list (0) #f) (string->number variable string->number (0) #f) (string->symbol variable string->symbol (0) #f) (string-append variable string-append (0) #f) (string-copy variable string-copy (0) #f) (string-length variable string-length (0) #f) (string-ref variable string-ref (0) #f) (string<=? variable string<=? (0) #f) (string<? variable string<? (0) #f) (string=? variable string=? (0) #f) (string>=? variable string>=? (0) #f) (string>? variable string>? (0) #f) (string? variable string? (0) #f) (substring variable substring (0) #f) (symbol->string variable symbol->string (0) #f) (symbol? variable symbol? (0) #f) (tan variable tan (0) #f) (truncate variable truncate (0) #f) (values variable values (0) #f) (vector variable vector (0) #f) (vector->list variable vector->list (0) #f) (vector-fill! variable vector-fill! (0) #f) (vector-length variable vector-length (0) #f) (vector-ref variable vector-ref (0) #f) (vector-set! variable vector-set! (0) #f) (vector? variable vector? (0) #f) (zero? variable zero? (0) #f) (real-valued? variable real-valued? (0) #f) (rational-valued? variable rational-valued? (0) #f) (integer-valued? variable integer-valued? (0) #f) (exact variable exact (0) #f) (inexact variable inexact (0) #f) (finite? variable finite? (0) #f) (infinite? variable infinite? (0) #f) (nan? variable nan? (0) #f) (div variable div (0) #f) (mod variable mod (0) #f) (div-and-mod variable div-and-mod (0) #f) (div0 variable div0 (0) #f) (mod0 variable mod0 (0) #f) (div0-and-mod0 variable div0-and-mod0 (0) #f) (exact-integer-sqrt variable exact-integer-sqrt (0) #f) (boolean=? variable boolean=? (0) #f) (symbol=? variable symbol=? (0) #f) (string-for-each variable string-for-each (0) #f) (vector-map variable vector-map (0) #f) (vector-for-each variable vector-for-each (0) #f) (error variable error (0) #f) (assertion-violation variable assertion-violation (0) #f) (call/cc variable call/cc (0) #f)))) (define ~rnrs.base~imports (quote (((core primitives) 1) ((core identifier-syntax) 1) ((core syntax-rules) 1) ((core let-values) 0) ((core quasiquote) 0) ((core derived) 0) ((core let) 0) ((core primitives) 0)))) (define (~rnrs.base~visit) ($ex:unspecified)) (define (~rnrs.base~invoke) ($ex:unspecified)))

(begin (define ~rnrs~envs (quote ())) (define ~rnrs~exports (quote ((begin macro begin (0 1) #f) (if macro if (0 1) #f) (lambda macro lambda (0 1) #f) (quote macro quote (0 1) #f) (set! macro set! (0 2 1) #f) (and macro and (0 1) #f) (or macro or (0 1) #f) (define macro define (0 1) #f) (define-syntax macro define-syntax (0 1) #f) (let-syntax macro let-syntax (0 1) #f) (letrec-syntax macro letrec-syntax (0 1) #f) (_ macro _ (0 1) #f) (... macro ... (0 1) #f) (let macro let~1185211294~115 (0 1) #f) (let* macro let*~1185211294~232 (0 1) #f) (letrec macro letrec~1185211294~165 (0 1) #f) (letrec* macro letrec*~1185211294~201 (0 1) #f) (let-values macro let-values~1185211294~1011 (0 1) #f) (let*-values macro let*-values~1185211294~1153 (0 1) #f) (case macro case~1185211294~439 (0 1) #f) (cond macro cond~1185211294~318 (0 1) #f) (else macro else~1185211294~530 (0 1) #f) (=> macro =>~1185211294~525 (0 1) #f) (quasiquote macro quasiquote~1185211294~829 (0 1) #f) (unquote macro unquote~1185211294~999 (0 1) #f) (unquote-splicing macro unquote-splicing~1185211294~1004 (0 1) #f) (syntax-rules macro syntax-rules~1185211294~67 (0 1) #f) (identifier-syntax macro identifier-syntax~1185211294~537 (0 1) #f) (* variable * (0 1) #f) (+ variable + (0 1) #f) (- variable - (0 1) #f) (/ variable / (0 1) #f) (< variable < (0 1) #f) (<= variable <= (0 1) #f) (= variable = (0 1) #f) (> variable > (0 1) #f) (>= variable >= (0 1) #f) (abs variable abs (0 1) #f) (acos variable acos (0 1) #f) (append variable append (0 1) #f) (apply variable apply (0 1) #f) (asin variable asin (0 1) #f) (atan variable atan (0 1) #f) (boolean? variable boolean? (0 1) #f) (call-with-current-continuation variable call-with-current-continuation (0 1) #f) (call-with-values variable call-with-values (0 1) #f) (car variable car (0 1) #f) (cdr variable cdr (0 1) #f) (caar variable caar (0 1) #f) (cadr variable cadr (0 1) #f) (cdar variable cdar (0 1) #f) (cddr variable cddr (0 1) #f) (caaar variable caaar (0 1) #f) (caadr variable caadr (0 1) #f) (cadar variable cadar (0 1) #f) (caddr variable caddr (0 1) #f) (cdaar variable cdaar (0 1) #f) (cdadr variable cdadr (0 1) #f) (cddar variable cddar (0 1) #f) (cdddr variable cdddr (0 1) #f) (caaaar variable caaaar (0 1) #f) (caaadr variable caaadr (0 1) #f) (caadar variable caadar (0 1) #f) (caaddr variable caaddr (0 1) #f) (cadaar variable cadaar (0 1) #f) (cadadr variable cadadr (0 1) #f) (caddar variable caddar (0 1) #f) (cadddr variable cadddr (0 1) #f) (cdaaar variable cdaaar (0 1) #f) (cdaadr variable cdaadr (0 1) #f) (cdadar variable cdadar (0 1) #f) (cdaddr variable cdaddr (0 1) #f) (cddaar variable cddaar (0 1) #f) (cddadr variable cddadr (0 1) #f) (cdddar variable cdddar (0 1) #f) (cddddr variable cddddr (0 1) #f) (ceiling variable ceiling (0 1) #f) (char->integer variable char->integer (0 1) #f) (complex? variable complex? (0 1) #f) (cons variable cons (0 1) #f) (cos variable cos (0 1) #f) (denominator variable denominator (0 1) #f) (dynamic-wind variable dynamic-wind (0 1) #f) (eq? variable eq? (0 1) #f) (equal? variable equal? (0 1) #f) (eqv? variable eqv? (0 1) #f) (even? variable even? (0 1) #f) (exact? variable exact? (0 1) #f) (exp variable exp (0 1) #f) (expt variable expt (0 1) #f) (floor variable floor (0 1) #f) (for-each variable for-each (0 1) #f) (gcd variable gcd (0 1) #f) (imag-part variable imag-part (0 1) #f) (inexact? variable inexact? (0 1) #f) (integer->char variable integer->char (0 1) #f) (integer? variable integer? (0 1) #f) (lcm variable lcm (0 1) #f) (length variable length (0 1) #f) (list variable list (0 1) #f) (list->string variable list->string (0 1) #f) (list->vector variable list->vector (0 1) #f) (list-ref variable list-ref (0 1) #f) (list-tail variable list-tail (0 1) #f) (list? variable list? (0 1) #f) (log variable log (0 1) #f) (magnitude variable magnitude (0 1) #f) (make-polar variable make-polar (0 1) #f) (make-rectangular variable make-rectangular (0 1) #f) (make-string variable make-string (0 1) #f) (make-vector variable make-vector (0 1) #f) (map variable map (0 1) #f) (max variable max (0 1) #f) (min variable min (0 1) #f) (negative? variable negative? (0 1) #f) (not variable not (0 1) #f) (null? variable null? (0 1) #f) (number->string variable number->string (0 1) #f) (number? variable number? (0 1) #f) (numerator variable numerator (0 1) #f) (odd? variable odd? (0 1) #f) (pair? variable pair? (0 1) #f) (positive? variable positive? (0 1) #f) (procedure? variable procedure? (0 1) #f) (rational? variable rational? (0 1) #f) (rationalize variable rationalize (0 1) #f) (real-part variable real-part (0 1) #f) (real? variable real? (0 1) #f) (reverse variable reverse (0 1) #f) (round variable round (0 1) #f) (sin variable sin (0 1) #f) (sqrt variable sqrt (0 1) #f) (string variable string (0 1) #f) (string->list variable string->list (0 1) #f) (string->number variable string->number (0 1) #f) (string->symbol variable string->symbol (0 1) #f) (string-append variable string-append (0 1) #f) (string-copy variable string-copy (0 1) #f) (string-length variable string-length (0 1) #f) (string-ref variable string-ref (0 1) #f) (string<=? variable string<=? (0 1) #f) (string<? variable string<? (0 1) #f) (string=? variable string=? (0 1) #f) (string>=? variable string>=? (0 1) #f) (string>? variable string>? (0 1) #f) (string? variable string? (0 1) #f) (substring variable substring (0 1) #f) (symbol->string variable symbol->string (0 1) #f) (symbol? variable symbol? (0 1) #f) (tan variable tan (0 1) #f) (truncate variable truncate (0 1) #f) (values variable values (0 1) #f) (vector variable vector (0 1) #f) (vector->list variable vector->list (0 1) #f) (vector-fill! variable vector-fill! (0 1) #f) (vector-length variable vector-length (0 1) #f) (vector-ref variable vector-ref (0 1) #f) (vector-set! variable vector-set! (0 1) #f) (vector? variable vector? (0 1) #f) (zero? variable zero? (0 1) #f) (real-valued? variable real-valued? (0 1) #f) (rational-valued? variable rational-valued? (0 1) #f) (integer-valued? variable integer-valued? (0 1) #f) (exact variable exact (0 1) #f) (inexact variable inexact (0 1) #f) (finite? variable finite? (0 1) #f) (infinite? variable infinite? (0 1) #f) (nan? variable nan? (0 1) #f) (div variable div (0 1) #f) (mod variable mod (0 1) #f) (div-and-mod variable div-and-mod (0 1) #f) (div0 variable div0 (0 1) #f) (mod0 variable mod0 (0 1) #f) (div0-and-mod0 variable div0-and-mod0 (0 1) #f) (exact-integer-sqrt variable exact-integer-sqrt (0 1) #f) (boolean=? variable boolean=? (0 1) #f) (symbol=? variable symbol=? (0 1) #f) (string-for-each variable string-for-each (0 1) #f) (vector-map variable vector-map (0 1) #f) (vector-for-each variable vector-for-each (0 1) #f) (error variable error (0 1) #f) (assertion-violation variable assertion-violation (0 1) #f) (call/cc variable call/cc (0 1) #f) (make-variable-transformer variable $ex:make-variable-transformer (0 1) #f) (identifier? variable $ex:identifier? (0 1) #f) (bound-identifier=? variable $ex:bound-identifier=? (0 1) #f) (free-identifier=? variable $ex:free-identifier=? (0 1) #f) (generate-temporaries variable $ex:generate-temporaries (0 1) #f) (datum->syntax variable $ex:datum->syntax (0 1) #f) (syntax->datum variable $ex:syntax->datum (0 1) #f) (syntax-violation variable $ex:syntax-violation (0 1) #f) (syntax macro syntax (0 1) #f) (syntax-case macro syntax-case (0 1) #f) (quasisyntax macro quasisyntax~1185211294~586 (0 1) #f) (unsyntax macro unsyntax~1185211294~817 (0 1) #f) (unsyntax-splicing macro unsyntax-splicing~1185211294~822 (0 1) #f) (with-syntax macro with-syntax~1185211294~9 (0 1) #f) (when macro when~1185211294~1191 (0 1) #f) (unless macro unless~1185211294~1212 (0 1) #f) (do macro do~1185211294~1233 (0 1) #f) (case-lambda macro case-lambda~1185211294~1297 (0 1) #f) (find variable find (0 1) #f) (for-all variable for-all (0 1) #f) (exists variable exists (0 1) #f) (filter variable filter (0 1) #f) (partition variable partition (0 1) #f) (fold-left variable fold-left (0 1) #f) (fold-right variable fold-right (0 1) #f) (remp variable remp (0 1) #f) (remove variable remove (0 1) #f) (remq variable remq (0 1) #f) (remv variable remv (0 1) #f) (memp variable memp (0 1) #f) (member variable member (0 1) #f) (memv variable memv (0 1) #f) (memq variable memq (0 1) #f) (assp variable assp (0 1) #f) (assoc variable assoc (0 1) #f) (assv variable assv (0 1) #f) (assq variable assq (0 1) #f) (call-with-input-file variable call-with-input-file (0 1) #f) (call-with-output-file variable call-with-output-file (0 1) #f) (close-input-port variable close-input-port (0 1) #f) (close-output-port variable close-output-port (0 1) #f) (current-input-port variable current-input-port (0 1) #f) (current-output-port variable current-output-port (0 1) #f) (display variable display (0 1) #f) (eof-object? variable eof-object? (0 1) #f) (newline variable newline (0 1) #f) (open-input-file variable open-input-file (0 1) #f) (open-output-file variable open-output-file (0 1) #f) (peek-char variable peek-char (0 1) #f) (read variable read (0 1) #f) (read-char variable read-char (0 1) #f) (with-input-from-file variable with-input-from-file (0 1) #f) (with-output-to-file variable with-output-to-file (0 1) #f) (write variable write (0 1) #f) (write-char variable write-char (0 1) #f) (char-upcase variable char-upcase (0 1) #f) (char-downcase variable char-downcase (0 1) #f) (char-ci=? variable char-ci=? (0 1) #f) (char-ci<? variable char-ci<? (0 1) #f) (char-ci>? variable char-ci>? (0 1) #f) (char-ci<=? variable char-ci<=? (0 1) #f) (char-ci>=? variable char-ci>=? (0 1) #f) (char-alphabetic? variable char-alphabetic? (0 1) #f) (char-numeric? variable char-numeric? (0 1) #f) (char-whitespace? variable char-whitespace? (0 1) #f) (char-upper-case? variable char-upper-case? (0 1) #f) (char-lower-case? variable char-lower-case? (0 1) #f) (string-ci=? variable string-ci=? (0 1) #f) (string-ci<? variable string-ci<? (0 1) #f) (string-ci>? variable string-ci>? (0 1) #f) (string-ci<=? variable string-ci<=? (0 1) #f) (string-ci>=? variable string-ci>=? (0 1) #f) (string-set! variable string-set! (0 1) #f) (string-fill! variable string-fill! (0 1) #f)))) (define ~rnrs~imports (quote (((rnrs mutable-strings) 0 1) ((rnrs unicode) 0 1) ((rnrs io simple) 0 1) ((rnrs syntax-case) 0 1) ((rnrs lists) 0 1) ((rnrs control) 0 1) ((core identifier-syntax) 0 1) ((core syntax-rules) 0 1) ((rnrs base) 0 1) ((rnrs base) 0 1)))) (define (~rnrs~visit) ($ex:unspecified)) (define (~rnrs~invoke) ($ex:unspecified)))

(begin (define ~rnrs.eval~envs (quote ())) (define ~rnrs.eval~exports (quote ((eval variable $ex:eval (0) #f) (environment variable $ex:environment (0) #f)))) (define ~rnrs.eval~imports (quote (((core primitives) 0)))) (define (~rnrs.eval~visit) ($ex:unspecified)) (define (~rnrs.eval~invoke) ($ex:unspecified)))

(begin (define ~rnrs.mutable-pairs~envs (quote ())) (define ~rnrs.mutable-pairs~exports (quote ((set-car! variable set-car! (0) #f) (set-cdr! variable set-cdr! (0) #f)))) (define ~rnrs.mutable-pairs~imports (quote (((core primitives) 0)))) (define (~rnrs.mutable-pairs~visit) ($ex:unspecified)) (define (~rnrs.mutable-pairs~invoke) ($ex:unspecified)))

(begin (define ~rnrs.r5rs~envs (quote ((env~1185211294~1464 ((((dummy m~1185211294~1454) pattern-variable dummy~1185211294~1461 (0) 0) ((expression) pattern-variable expression~1185211294~1462 (1) 0))) (()) ((((x m~1185211294~1454) variable x~1185211294~1456 (0) #f))) . env~1185211294~1445) (env~1185211294~1445 ((((make-promise) variable make-promise~1185211294~1470 (0) #f) ((delay) macro delay~1185211294~1453 (0) #f) ((force) variable force~1185211294~1451 (0) #f) ((null-environment) variable null-environment~1185211294~1449 (0) #f) ((scheme-report-environment) variable scheme-report-environment~1185211294~1447 (0) #f) ((syntax-violation) variable $ex:syntax-violation (0) #f) ((syntax->datum) variable $ex:syntax->datum (0) #f) ((datum->syntax) variable $ex:datum->syntax (0) #f) ((generate-temporaries) variable $ex:generate-temporaries (0) #f) ((free-identifier=?) variable $ex:free-identifier=? (0) #f) ((bound-identifier=?) variable $ex:bound-identifier=? (0) #f) ((identifier?) variable $ex:identifier? (0) #f) ((make-variable-transformer) variable $ex:make-variable-transformer (0) #f) ((modulo) variable modulo (0) #f) ((remainder) variable remainder (0) #f) ((quotient) variable quotient (0) #f) ((inexact->exact) variable inexact->exact (0) #f) ((exact->inexact) variable exact->inexact (0) #f) ((set-cdr!) variable set-cdr! (0) #f) ((set-car!) variable set-car! (0) #f) ((string-set!) variable string-set! (0) #f) ((string-fill!) variable string-fill! (0) #f) ((string-ci>=?) variable string-ci>=? (0) #f) ((string-ci<=?) variable string-ci<=? (0) #f) ((string-ci>?) variable string-ci>? (0) #f) ((string-ci<?) variable string-ci<? (0) #f) ((string-ci=?) variable string-ci=? (0) #f) ((char-lower-case?) variable char-lower-case? (0) #f) ((char-upper-case?) variable char-upper-case? (0) #f) ((char-whitespace?) variable char-whitespace? (0) #f) ((char-numeric?) variable char-numeric? (0) #f) ((char-alphabetic?) variable char-alphabetic? (0) #f) ((char-ci>=?) variable char-ci>=? (0) #f) ((char-ci<=?) variable char-ci<=? (0) #f) ((char-ci>?) variable char-ci>? (0) #f) ((char-ci<?) variable char-ci<? (0) #f) ((char-ci=?) variable char-ci=? (0) #f) ((char-downcase) variable char-downcase (0) #f) ((char-upcase) variable char-upcase (0) #f) ((write-char) variable write-char (0) #f) ((write) variable write (0) #f) ((with-output-to-file) variable with-output-to-file (0) #f) ((with-input-from-file) variable with-input-from-file (0) #f) ((read-char) variable read-char (0) #f) ((read) variable read (0) #f) ((peek-char) variable peek-char (0) #f) ((open-output-file) variable open-output-file (0) #f) ((open-input-file) variable open-input-file (0) #f) ((newline) variable newline (0) #f) ((eof-object?) variable eof-object? (0) #f) ((display) variable display (0) #f) ((current-output-port) variable current-output-port (0) #f) ((current-input-port) variable current-input-port (0) #f) ((close-output-port) variable close-output-port (0) #f) ((close-input-port) variable close-input-port (0) #f) ((call-with-output-file) variable call-with-output-file (0) #f) ((call-with-input-file) variable call-with-input-file (0) #f) ((assq) variable assq (0) #f) ((assv) variable assv (0) #f) ((assoc) variable assoc (0) #f) ((assp) variable assp (0) #f) ((memq) variable memq (0) #f) ((memv) variable memv (0) #f) ((member) variable member (0) #f) ((memp) variable memp (0) #f) ((remv) variable remv (0) #f) ((remq) variable remq (0) #f) ((remove) variable remove (0) #f) ((remp) variable remp (0) #f) ((fold-right) variable fold-right (0) #f) ((fold-left) variable fold-left (0) #f) ((partition) variable partition (0) #f) ((filter) variable filter (0) #f) ((exists) variable exists (0) #f) ((for-all) variable for-all (0) #f) ((find) variable find (0) #f) ((syntax-case) macro syntax-case (0) #f) ((syntax) macro syntax (0) #f) ((environment) variable $ex:environment (0) #f) ((eval) variable $ex:eval (0) #f) ((call/cc) variable call/cc (0) #f) ((assertion-violation) variable assertion-violation (0) #f) ((error) variable error (0) #f) ((vector-for-each) variable vector-for-each (0) #f) ((vector-map) variable vector-map (0) #f) ((string-for-each) variable string-for-each (0) #f) ((symbol=?) variable symbol=? (0) #f) ((boolean=?) variable boolean=? (0) #f) ((exact-integer-sqrt) variable exact-integer-sqrt (0) #f) ((div0-and-mod0) variable div0-and-mod0 (0) #f) ((mod0) variable mod0 (0) #f) ((div0) variable div0 (0) #f) ((div-and-mod) variable div-and-mod (0) #f) ((mod) variable mod (0) #f) ((div) variable div (0) #f) ((nan?) variable nan? (0) #f) ((infinite?) variable infinite? (0) #f) ((finite?) variable finite? (0) #f) ((inexact) variable inexact (0) #f) ((exact) variable exact (0) #f) ((integer-valued?) variable integer-valued? (0) #f) ((rational-valued?) variable rational-valued? (0) #f) ((real-valued?) variable real-valued? (0) #f) ((zero?) variable zero? (0) #f) ((vector?) variable vector? (0) #f) ((vector-set!) variable vector-set! (0) #f) ((vector-ref) variable vector-ref (0) #f) ((vector-length) variable vector-length (0) #f) ((vector-fill!) variable vector-fill! (0) #f) ((vector->list) variable vector->list (0) #f) ((vector) variable vector (0) #f) ((values) variable values (0) #f) ((truncate) variable truncate (0) #f) ((tan) variable tan (0) #f) ((symbol?) variable symbol? (0) #f) ((symbol->string) variable symbol->string (0) #f) ((substring) variable substring (0) #f) ((string?) variable string? (0) #f) ((string>?) variable string>? (0) #f) ((string>=?) variable string>=? (0) #f) ((string=?) variable string=? (0) #f) ((string<?) variable string<? (0) #f) ((string<=?) variable string<=? (0) #f) ((string-ref) variable string-ref (0) #f) ((string-length) variable string-length (0) #f) ((string-copy) variable string-copy (0) #f) ((string-append) variable string-append (0) #f) ((string->symbol) variable string->symbol (0) #f) ((string->number) variable string->number (0) #f) ((string->list) variable string->list (0) #f) ((string) variable string (0) #f) ((sqrt) variable sqrt (0) #f) ((sin) variable sin (0) #f) ((round) variable round (0) #f) ((reverse) variable reverse (0) #f) ((real?) variable real? (0) #f) ((real-part) variable real-part (0) #f) ((rationalize) variable rationalize (0) #f) ((rational?) variable rational? (0) #f) ((procedure?) variable procedure? (0) #f) ((positive?) variable positive? (0) #f) ((pair?) variable pair? (0) #f) ((odd?) variable odd? (0) #f) ((numerator) variable numerator (0) #f) ((number?) variable number? (0) #f) ((number->string) variable number->string (0) #f) ((null?) variable null? (0) #f) ((not) variable not (0) #f) ((negative?) variable negative? (0) #f) ((min) variable min (0) #f) ((max) variable max (0) #f) ((map) variable map (0) #f) ((make-vector) variable make-vector (0) #f) ((make-string) variable make-string (0) #f) ((make-rectangular) variable make-rectangular (0) #f) ((make-polar) variable make-polar (0) #f) ((magnitude) variable magnitude (0) #f) ((log) variable log (0) #f) ((list?) variable list? (0) #f) ((list-tail) variable list-tail (0) #f) ((list-ref) variable list-ref (0) #f) ((list->vector) variable list->vector (0) #f) ((list->string) variable list->string (0) #f) ((list) variable list (0) #f) ((length) variable length (0) #f) ((lcm) variable lcm (0) #f) ((integer?) variable integer? (0) #f) ((integer->char) variable integer->char (0) #f) ((inexact?) variable inexact? (0) #f) ((imag-part) variable imag-part (0) #f) ((gcd) variable gcd (0) #f) ((for-each) variable for-each (0) #f) ((floor) variable floor (0) #f) ((expt) variable expt (0) #f) ((exp) variable exp (0) #f) ((exact?) variable exact? (0) #f) ((even?) variable even? (0) #f) ((eqv?) variable eqv? (0) #f) ((equal?) variable equal? (0) #f) ((eq?) variable eq? (0) #f) ((dynamic-wind) variable dynamic-wind (0) #f) ((denominator) variable denominator (0) #f) ((cos) variable cos (0) #f) ((cons) variable cons (0) #f) ((complex?) variable complex? (0) #f) ((char->integer) variable char->integer (0) #f) ((ceiling) variable ceiling (0) #f) ((cddddr) variable cddddr (0) #f) ((cdddar) variable cdddar (0) #f) ((cddadr) variable cddadr (0) #f) ((cddaar) variable cddaar (0) #f) ((cdaddr) variable cdaddr (0) #f) ((cdadar) variable cdadar (0) #f) ((cdaadr) variable cdaadr (0) #f) ((cdaaar) variable cdaaar (0) #f) ((cadddr) variable cadddr (0) #f) ((caddar) variable caddar (0) #f) ((cadadr) variable cadadr (0) #f) ((cadaar) variable cadaar (0) #f) ((caaddr) variable caaddr (0) #f) ((caadar) variable caadar (0) #f) ((caaadr) variable caaadr (0) #f) ((caaaar) variable caaaar (0) #f) ((cdddr) variable cdddr (0) #f) ((cddar) variable cddar (0) #f) ((cdadr) variable cdadr (0) #f) ((cdaar) variable cdaar (0) #f) ((caddr) variable caddr (0) #f) ((cadar) variable cadar (0) #f) ((caadr) variable caadr (0) #f) ((caaar) variable caaar (0) #f) ((cddr) variable cddr (0) #f) ((cdar) variable cdar (0) #f) ((cadr) variable cadr (0) #f) ((caar) variable caar (0) #f) ((cdr) variable cdr (0) #f) ((car) variable car (0) #f) ((call-with-values) variable call-with-values (0) #f) ((call-with-current-continuation) variable call-with-current-continuation (0) #f) ((boolean?) variable boolean? (0) #f) ((atan) variable atan (0) #f) ((asin) variable asin (0) #f) ((apply) variable apply (0) #f) ((append) variable append (0) #f) ((acos) variable acos (0) #f) ((abs) variable abs (0) #f) ((>=) variable >= (0) #f) ((>) variable > (0) #f) ((=) variable = (0) #f) ((<=) variable <= (0) #f) ((<) variable < (0) #f) ((/) variable / (0) #f) ((-) variable - (0) #f) ((+) variable + (0) #f) ((*) variable * (0) #f) ((identifier-syntax) macro identifier-syntax~1185211294~537 (1) #f) ((syntax-rules) macro syntax-rules~1185211294~67 (1) #f) ((unquote-splicing) macro unquote-splicing~1185211294~1004 (0) #f) ((unquote) macro unquote~1185211294~999 (0) #f) ((quasiquote) macro quasiquote~1185211294~829 (0) #f) ((=>) macro =>~1185211294~525 (0) #f) ((else) macro else~1185211294~530 (0) #f) ((cond) macro cond~1185211294~318 (0) #f) ((case) macro case~1185211294~439 (0) #f) ((let*-values) macro let*-values~1185211294~1153 (0) #f) ((let-values) macro let-values~1185211294~1011 (0) #f) ((letrec*) macro letrec*~1185211294~201 (0) #f) ((letrec) macro letrec~1185211294~165 (0) #f) ((let*) macro let*~1185211294~232 (0) #f) ((let) macro let~1185211294~115 (0) #f) ((...) macro ... (1 0) #f) ((_) macro _ (1 0) #f) ((letrec-syntax) macro letrec-syntax (0) #f) ((let-syntax) macro let-syntax (0) #f) ((define-syntax) macro define-syntax (0) #f) ((define) macro define (0) #f) ((or) macro or (0) #f) ((and) macro and (0) #f) ((set!) macro set! (1 0) #f) ((quote) macro quote (0) #f) ((lambda) macro lambda (0) #f) ((if) macro if (0) #f) ((begin) macro begin (0) #f) ((case-lambda) macro case-lambda~1185211294~1297 (0) #f) ((do) macro do~1185211294~1233 (0) #f) ((unless) macro unless~1185211294~1212 (0) #f) ((when) macro when~1185211294~1191 (0) #f))))))) (define ~rnrs.r5rs~exports (quote ((null-environment variable null-environment~1185211294~1449 (0) #f) (scheme-report-environment variable scheme-report-environment~1185211294~1447 (0) #f) (delay macro delay~1185211294~1453 (0) #f) (force variable force~1185211294~1451 (0) #f) (exact->inexact variable exact->inexact (0) #f) (inexact->exact variable inexact->exact (0) #f) (quotient variable quotient (0) #f) (remainder variable remainder (0) #f) (modulo variable modulo (0) #f)))) (define ~rnrs.r5rs~imports (quote (((rnrs control) 0) ((rnrs base) 0) ((rnrs eval) 0) ((core primitives) 0)))) (define (~rnrs.r5rs~visit) ($ex:register-macro! (quote delay~1185211294~1453) (lambda (x~1185211294~1456) ((lambda () (let ((input~1185211294~1459 x~1185211294~1456)) (let ((fail~1185211294~1460 (lambda () ($ex:invalid-form input~1185211294~1459)))) (if (pair? input~1185211294~1459) (let ((temp~1185211294~1468 (car input~1185211294~1459))) (let ((dummy~1185211294~1461 temp~1185211294~1468)) (let ((temp~1185211294~1465 (cdr input~1185211294~1459))) (if (pair? temp~1185211294~1465) (let ((temp~1185211294~1467 (car temp~1185211294~1465))) (let ((expression~1185211294~1462 temp~1185211294~1467)) (let ((temp~1185211294~1466 (cdr temp~1185211294~1465))) (if (null? temp~1185211294~1466) (cons ($ex:syntax-rename (quote make-promise) (quote ()) (quote (env~1185211294~1464)) 0 (quote (rnrs r5rs))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185211294~1464)) 0 (quote (rnrs r5rs))) (cons (quote ()) (cons expression~1185211294~1462 (quote ())))) (quote ()))) (fail~1185211294~1460))))) (fail~1185211294~1460))))) (fail~1185211294~1460)))))))) ($ex:unspecified)) (define make-promise~1185211294~1470 ($ex:unspecified)) (define force~1185211294~1451 ($ex:unspecified)) (define null-environment~1185211294~1449 ($ex:unspecified)) (define scheme-report-environment~1185211294~1447 ($ex:unspecified)) (define (~rnrs.r5rs~invoke) (set! scheme-report-environment~1185211294~1447 ((lambda (r5rs-env~1185211294~1508) ((lambda () (lambda (n~1185211294~1511) ((lambda () (if (not (= n~1185211294~1511 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" n~1185211294~1511))) r5rs-env~1185211294~1508)))))) ($ex:environment (quote (except (rnrs base) _ letrec* let-values let*-values real-valued? rational-valued? integer-valued? exact inexact finite? infinite? nan? div mod div-and-mod div0 mod0 div0-and-mod0 exact-integer-sqrt boolean=? symbol=? string-for-each vector-map vector-for-each error assertion-violation call/cc)) (quote (only (rnrs eval) eval)) (quote (only (rnrs control) do)) (quote (only (rnrs lists) assoc assv assq)) (quote (only (rnrs io simple) call-with-input-file call-with-output-file close-input-port close-output-port current-input-port current-output-port display eof-object? newline open-input-file open-output-file peek-char read read-char with-input-from-file with-output-to-file write write-char)) (quote (only (rnrs unicode) char-upcase char-downcase char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=? char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=?)) (quote (only (rnrs mutable-pairs) set-car! set-cdr!)) (quote (only (rnrs lists) assoc assv assq member memv memq)) (quote (only (rnrs mutable-strings) string-set! string-fill!)) (quote (rnrs r5rs))))) (set! null-environment~1185211294~1449 ((lambda (null-env~1185211294~1495) ((lambda () (lambda (n~1185211294~1498) ((lambda () (if (not (= n~1185211294~1498 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" n~1185211294~1498))) null-env~1185211294~1495)))))) ($ex:environment (quote (only (rnrs base) begin if lambda quote set! and or define define-syntax let-syntax letrec-syntax let let* letrec case cond else => quasiquote unquote unquote-splicing syntax-rules ...)) (quote (only (rnrs control) do))))) (set! force~1185211294~1451 (lambda (object~1185211294~1492) ((lambda () (object~1185211294~1492))))) (set! make-promise~1185211294~1470 (lambda (proc~1185211294~1472) ((lambda () ((lambda (result-ready?~1185211294~1475 result~1185211294~1476) ((lambda () (lambda () ((lambda () (if result-ready?~1185211294~1475 result~1185211294~1476 ((lambda (x~1185211294~1483) ((lambda () (if result-ready?~1185211294~1475 result~1185211294~1476 (begin (set! result-ready?~1185211294~1475 #t) (set! result~1185211294~1476 x~1185211294~1483) result~1185211294~1476))))) (proc~1185211294~1472))))))))) #f #f))))) ($ex:unspecified)))