(begin (ex:register-library! (ex:make-library '(core primitives) (lambda () '()) '((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? variable char? (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 ()) (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-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-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 ()) (environment-bindings variable ex:environment-bindings (0) #f ()) (eval variable ex:eval (0) #f ())) '(((core primitive-macros) 0)) '(system) (lambda () (values)) (lambda () (values)) '&build~1187093766~2)) (values)) (begin (ex:register-library! (ex:make-library '(core with-syntax) (lambda () (ex:uncompress '(((&env~1187093766~50 0 1 2 3) (&env~1187093766~34 4 1 2 3) (&env~1187093766~16 5 1 2 3)) (5 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f))) (4 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f))) (3 (((with-syntax) macro &with-syntax~1187093766~3 (0) #f (core with-syntax)) ((list) variable list (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 ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((begin) macro begin (0 1) #f ()))) (2 (((x) variable &x~1187093766~5 (1) #f (core with-syntax)))) (1 ()) (0 (((e1) . #f) ((e2) . #f)))))) '((with-syntax macro &with-syntax~1187093766~3 (0) #f (core with-syntax))) '(((core primitives) 0 1)) '(&build~1187093766~2) (lambda () (ex:register-macro! '&with-syntax~1187093766~3 (lambda (&x~1187093766~5) (let ((&input~1187093766~7 &x~1187093766~5)) (let ((&fail~1187093766~8 (lambda () (let ((&fail~1187093766~9 (lambda () (let ((&fail~1187093766~10 (lambda () (ex:invalid-form &input~1187093766~7)))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~28 (car &input~1187093766~7))) (let ((&temp~1187093766~17 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~17) (let ((&temp~1187093766~21 (car &temp~1187093766~17))) (ex:map-while (lambda (&temp~1187093766~21) (if (pair? &temp~1187093766~21) (let ((&temp~1187093766~27 (car &temp~1187093766~21))) (let ((&out~1187093766~11 &temp~1187093766~27)) (let ((&temp~1187093766~24 (cdr &temp~1187093766~21))) (if (pair? &temp~1187093766~24) (let ((&temp~1187093766~26 (car &temp~1187093766~24))) (let ((&in~1187093766~12 &temp~1187093766~26)) (let ((&temp~1187093766~25 (cdr &temp~1187093766~24))) (if (null? &temp~1187093766~25) (list &out~1187093766~11 &in~1187093766~12) #f)))) #f)))) #f)) &temp~1187093766~21 (lambda (&cols~1187093766~22 &rest~1187093766~23) (if (null? &rest~1187093766~23) (apply (lambda (&out~1187093766~11 &in~1187093766~12) (let ((&temp~1187093766~18 (cdr &temp~1187093766~17))) (if (pair? &temp~1187093766~18) (let ((&temp~1187093766~20 (car &temp~1187093766~18))) (let ((&e1~1187093766~13 &temp~1187093766~20)) (let ((&temp~1187093766~19 (cdr &temp~1187093766~18))) (if (list? &temp~1187093766~19) (let ((&e2~1187093766~14 &temp~1187093766~19)) (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~16) 0 '(core with-syntax)) (cons (cons (ex:syntax-rename 'list '() '(&env~1187093766~16) 0 '(core with-syntax)) &in~1187093766~12) (cons '() (cons (cons &out~1187093766~11 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~16) 0 '(core with-syntax)) (cons &e1~1187093766~13 &e2~1187093766~14)) '())) '()))))) (&fail~1187093766~10))))) (&fail~1187093766~10)))) (if (null? &cols~1187093766~22) '(() ()) (apply map list &cols~1187093766~22))) (&fail~1187093766~10))))) (&fail~1187093766~10)))) (&fail~1187093766~10)))))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~46 (car &input~1187093766~7))) (let ((&temp~1187093766~35 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~35) (let ((&temp~1187093766~39 (car &temp~1187093766~35))) (if (pair? &temp~1187093766~39) (let ((&temp~1187093766~41 (car &temp~1187093766~39))) (if (pair? &temp~1187093766~41) (let ((&temp~1187093766~45 (car &temp~1187093766~41))) (let ((&out~1187093766~29 &temp~1187093766~45)) (let ((&temp~1187093766~42 (cdr &temp~1187093766~41))) (if (pair? &temp~1187093766~42) (let ((&temp~1187093766~44 (car &temp~1187093766~42))) (let ((&in~1187093766~30 &temp~1187093766~44)) (let ((&temp~1187093766~43 (cdr &temp~1187093766~42))) (if (null? &temp~1187093766~43) (let ((&temp~1187093766~40 (cdr &temp~1187093766~39))) (if (null? &temp~1187093766~40) (let ((&temp~1187093766~36 (cdr &temp~1187093766~35))) (if (pair? &temp~1187093766~36) (let ((&temp~1187093766~38 (car &temp~1187093766~36))) (let ((&e1~1187093766~31 &temp~1187093766~38)) (let ((&temp~1187093766~37 (cdr &temp~1187093766~36))) (if (list? &temp~1187093766~37) (let ((&e2~1187093766~32 &temp~1187093766~37)) (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~34) 0 '(core with-syntax)) (cons &in~1187093766~30 (cons '() (cons (cons &out~1187093766~29 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~34) 0 '(core with-syntax)) (cons &e1~1187093766~31 &e2~1187093766~32)) '())) '()))))) (&fail~1187093766~9))))) (&fail~1187093766~9))) (&fail~1187093766~9))) (&fail~1187093766~9))))) (&fail~1187093766~9))))) (&fail~1187093766~9))) (&fail~1187093766~9))) (&fail~1187093766~9)))) (&fail~1187093766~9)))))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~56 (car &input~1187093766~7))) (let ((&temp~1187093766~51 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~51) (let ((&temp~1187093766~55 (car &temp~1187093766~51))) (if (null? &temp~1187093766~55) (let ((&temp~1187093766~52 (cdr &temp~1187093766~51))) (if (pair? &temp~1187093766~52) (let ((&temp~1187093766~54 (car &temp~1187093766~52))) (let ((&e1~1187093766~47 &temp~1187093766~54)) (let ((&temp~1187093766~53 (cdr &temp~1187093766~52))) (if (list? &temp~1187093766~53) (let ((&e2~1187093766~48 &temp~1187093766~53)) (cons (ex:syntax-rename 'begin '() '(&env~1187093766~50) 0 '(core with-syntax)) (cons &e1~1187093766~47 &e2~1187093766~48))) (&fail~1187093766~8))))) (&fail~1187093766~8))) (&fail~1187093766~8))) (&fail~1187093766~8)))) (&fail~1187093766~8)))))) (values)) (lambda () (values)) '&build~1187093766~57)) (values)) (begin (ex:register-library! (ex:make-library '(core syntax-rules) (lambda () (ex:uncompress '(((&env~1187093766~92 0 1 2 3 4 5) (&env~1187093766~76 6 7 3 4 5)) (7 (((k) . #f) ((cl) . #f))) (6 (((cl) . #f))) (5 (((syntax-rules) macro &syntax-rules~1187093766~58 (0) #f (core syntax-rules)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((map) variable map (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 ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)))) (4 (((x) variable &x~1187093766~60 (1) #f (core syntax-rules)))) (3 (((clause) variable &clause~1187093766~61 (1) #f (core syntax-rules)))) (2 (((y) variable &y~1187093766~82 (1) #f (core syntax-rules)))) (1 ()) (0 (((keyword) . #f) ((pattern) . #f) ((template) . #f)))))) '((syntax-rules macro &syntax-rules~1187093766~58 (0) #f (core syntax-rules))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~1187093766~57 &build~1187093766~2) (lambda () (ex:register-macro! '&syntax-rules~1187093766~58 (lambda (&x~1187093766~60) ((lambda (&clause~1187093766~61) (set! &clause~1187093766~61 (lambda (&y~1187093766~82) (let ((&input~1187093766~84 &y~1187093766~82)) (let ((&fail~1187093766~85 (lambda () (let ((&fail~1187093766~86 (lambda () (ex:invalid-form &input~1187093766~84)))) (ex:syntax-violation 'syntax-rules "Invalid expression" &x~1187093766~60))))) (if (pair? &input~1187093766~84) (let ((&temp~1187093766~96 (car &input~1187093766~84))) (if (pair? &temp~1187093766~96) (let ((&temp~1187093766~98 (car &temp~1187093766~96))) (let ((&keyword~1187093766~88 &temp~1187093766~98)) (let ((&temp~1187093766~97 (cdr &temp~1187093766~96))) (let ((&pattern~1187093766~89 &temp~1187093766~97)) (let ((&temp~1187093766~93 (cdr &input~1187093766~84))) (if (pair? &temp~1187093766~93) (let ((&temp~1187093766~95 (car &temp~1187093766~93))) (let ((&template~1187093766~90 &temp~1187093766~95)) (let ((&temp~1187093766~94 (cdr &temp~1187093766~93))) (if (null? &temp~1187093766~94) (cons (cons (ex:syntax-rename 'dummy '() '(&env~1187093766~92) 0 '(core syntax-rules)) &pattern~1187093766~89) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~92) 0 '(core syntax-rules)) (cons &template~1187093766~90 '())) '())) (&fail~1187093766~85))))) (&fail~1187093766~85))))))) (&fail~1187093766~85))) (&fail~1187093766~85)))))) (let ((&input~1187093766~63 &x~1187093766~60)) (let ((&fail~1187093766~64 (lambda () (ex:invalid-form &input~1187093766~63)))) (if (pair? &input~1187093766~63) (let ((&temp~1187093766~80 (car &input~1187093766~63))) (let ((&temp~1187093766~77 (cdr &input~1187093766~63))) (if (pair? &temp~1187093766~77) (let ((&temp~1187093766~79 (car &temp~1187093766~77))) (if (list? &temp~1187093766~79) (let ((&k~1187093766~65 &temp~1187093766~79)) (let ((&temp~1187093766~78 (cdr &temp~1187093766~77))) (if (list? &temp~1187093766~78) (let ((&cl~1187093766~66 &temp~1187093766~78)) (if (for-all ex:identifier? &k~1187093766~65) (let ((&input~1187093766~70 (map &clause~1187093766~61 &cl~1187093766~66))) (let ((&fail~1187093766~72 (lambda () (ex:invalid-form &input~1187093766~70)))) (if (list? &input~1187093766~70) (let ((&cl~1187093766~73 &input~1187093766~70)) (begin (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons (cons (ex:syntax-rename 'x '() '(&env~1187093766~76) 0 '(core syntax-rules)) '()) (cons (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons (ex:syntax-rename 'x '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons &k~1187093766~65 &cl~1187093766~73))) '()))))) (&fail~1187093766~72)))) (&fail~1187093766~64))) (&fail~1187093766~64)))) (&fail~1187093766~64))) (&fail~1187093766~64)))) (&fail~1187093766~64))))) ex:undefined))) (values)) (lambda () (values)) '&build~1187093766~99)) (values)) (begin (define &unspecified~1187093766~179 ex:unspecified) (ex:register-library! (ex:make-library '(core let) (lambda () (ex:uncompress '(((&env~1187093766~191 0 1 2 3) (&env~1187093766~166 4 5 6 7 3) (&env~1187093766~135 8 9 10 3) (&env~1187093766~114 11 9 10 3)) (11 (((f) . #f) ((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (10 (((x) variable &x~1187093766~102 (1) #f (core let)))) (9 ()) (8 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (7 (((x) variable &x~1187093766~150 (1) #f (core let)))) (6 ()) (5 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (4 (((t) . #f))) (3 (((letrec*) macro &letrec*~1187093766~180 (0) #f (core let)) ((unspecified) variable &unspecified~1187093766~179 (0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (0) #f (core let)) ((let) macro &let~1187093766~100 (0) #f (core let)) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((for-all) variable for-all (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 ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)))) (2 (((x) variable &x~1187093766~182 (1) #f (core let)))) (1 ()) (0 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))))) '((let macro &let~1187093766~100 (0) #f (core let)) (letrec macro &letrec~1187093766~148 (0) #f (core let)) (letrec* macro &letrec*~1187093766~180 (0) #f (core let))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~1187093766~57 &build~1187093766~2) (lambda () (ex:register-macro! '&let~1187093766~100 (lambda (&x~1187093766~102) (let ((&input~1187093766~104 &x~1187093766~102)) (let ((&fail~1187093766~105 (lambda () (let ((&fail~1187093766~106 (lambda () (ex:invalid-form &input~1187093766~104)))) (if (pair? &input~1187093766~104) (let ((&temp~1187093766~128 (car &input~1187093766~104))) (let ((&temp~1187093766~115 (cdr &input~1187093766~104))) (if (pair? &temp~1187093766~115) (let ((&temp~1187093766~127 (car &temp~1187093766~115))) (let ((&f~1187093766~107 &temp~1187093766~127)) (let ((&temp~1187093766~116 (cdr &temp~1187093766~115))) (if (pair? &temp~1187093766~116) (let ((&temp~1187093766~120 (car &temp~1187093766~116))) (ex:map-while (lambda (&temp~1187093766~120) (if (pair? &temp~1187093766~120) (let ((&temp~1187093766~126 (car &temp~1187093766~120))) (let ((&x~1187093766~108 &temp~1187093766~126)) (let ((&temp~1187093766~123 (cdr &temp~1187093766~120))) (if (pair? &temp~1187093766~123) (let ((&temp~1187093766~125 (car &temp~1187093766~123))) (let ((&v~1187093766~109 &temp~1187093766~125)) (let ((&temp~1187093766~124 (cdr &temp~1187093766~123))) (if (null? &temp~1187093766~124) (list &x~1187093766~108 &v~1187093766~109) #f)))) #f)))) #f)) &temp~1187093766~120 (lambda (&cols~1187093766~121 &rest~1187093766~122) (if (null? &rest~1187093766~122) (apply (lambda (&x~1187093766~108 &v~1187093766~109) (let ((&temp~1187093766~117 (cdr &temp~1187093766~116))) (if (pair? &temp~1187093766~117) (let ((&temp~1187093766~119 (car &temp~1187093766~117))) (let ((&e1~1187093766~110 &temp~1187093766~119)) (let ((&temp~1187093766~118 (cdr &temp~1187093766~117))) (if (list? &temp~1187093766~118) (let ((&e2~1187093766~111 &temp~1187093766~118)) (if (for-all ex:identifier? (cons &f~1187093766~107 &x~1187093766~108)) (cons (cons (ex:syntax-rename 'letrec '() '(&env~1187093766~114) 0 '(core let)) (cons (cons (cons &f~1187093766~107 (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~114) 0 '(core let)) (cons &x~1187093766~108 (cons &e1~1187093766~110 &e2~1187093766~111))) '())) '()) (cons &f~1187093766~107 '()))) &v~1187093766~109) (&fail~1187093766~106))) (&fail~1187093766~106))))) (&fail~1187093766~106)))) (if (null? &cols~1187093766~121) '(() ()) (apply map list &cols~1187093766~121))) (&fail~1187093766~106))))) (&fail~1187093766~106))))) (&fail~1187093766~106)))) (&fail~1187093766~106)))))) (if (pair? &input~1187093766~104) (let ((&temp~1187093766~147 (car &input~1187093766~104))) (let ((&temp~1187093766~136 (cdr &input~1187093766~104))) (if (pair? &temp~1187093766~136) (let ((&temp~1187093766~140 (car &temp~1187093766~136))) (ex:map-while (lambda (&temp~1187093766~140) (if (pair? &temp~1187093766~140) (let ((&temp~1187093766~146 (car &temp~1187093766~140))) (let ((&x~1187093766~129 &temp~1187093766~146)) (let ((&temp~1187093766~143 (cdr &temp~1187093766~140))) (if (pair? &temp~1187093766~143) (let ((&temp~1187093766~145 (car &temp~1187093766~143))) (let ((&v~1187093766~130 &temp~1187093766~145)) (let ((&temp~1187093766~144 (cdr &temp~1187093766~143))) (if (null? &temp~1187093766~144) (list &x~1187093766~129 &v~1187093766~130) #f)))) #f)))) #f)) &temp~1187093766~140 (lambda (&cols~1187093766~141 &rest~1187093766~142) (if (null? &rest~1187093766~142) (apply (lambda (&x~1187093766~129 &v~1187093766~130) (let ((&temp~1187093766~137 (cdr &temp~1187093766~136))) (if (pair? &temp~1187093766~137) (let ((&temp~1187093766~139 (car &temp~1187093766~137))) (let ((&e1~1187093766~131 &temp~1187093766~139)) (let ((&temp~1187093766~138 (cdr &temp~1187093766~137))) (if (list? &temp~1187093766~138) (let ((&e2~1187093766~132 &temp~1187093766~138)) (if (for-all ex:identifier? &x~1187093766~129) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~135) 0 '(core let)) (cons &x~1187093766~129 (cons &e1~1187093766~131 &e2~1187093766~132))) &v~1187093766~130) (&fail~1187093766~105))) (&fail~1187093766~105))))) (&fail~1187093766~105)))) (if (null? &cols~1187093766~141) '(() ()) (apply map list &cols~1187093766~141))) (&fail~1187093766~105))))) (&fail~1187093766~105)))) (&fail~1187093766~105)))))) (ex:register-macro! '&letrec~1187093766~148 (lambda (&x~1187093766~150) (let ((&input~1187093766~152 &x~1187093766~150)) (let ((&fail~1187093766~153 (lambda () (ex:invalid-form &input~1187093766~152)))) (if (pair? &input~1187093766~152) (let ((&temp~1187093766~178 (car &input~1187093766~152))) (let ((&temp~1187093766~167 (cdr &input~1187093766~152))) (if (pair? &temp~1187093766~167) (let ((&temp~1187093766~171 (car &temp~1187093766~167))) (ex:map-while (lambda (&temp~1187093766~171) (if (pair? &temp~1187093766~171) (let ((&temp~1187093766~177 (car &temp~1187093766~171))) (let ((&i~1187093766~154 &temp~1187093766~177)) (let ((&temp~1187093766~174 (cdr &temp~1187093766~171))) (if (pair? &temp~1187093766~174) (let ((&temp~1187093766~176 (car &temp~1187093766~174))) (let ((&v~1187093766~155 &temp~1187093766~176)) (let ((&temp~1187093766~175 (cdr &temp~1187093766~174))) (if (null? &temp~1187093766~175) (list &i~1187093766~154 &v~1187093766~155) #f)))) #f)))) #f)) &temp~1187093766~171 (lambda (&cols~1187093766~172 &rest~1187093766~173) (if (null? &rest~1187093766~173) (apply (lambda (&i~1187093766~154 &v~1187093766~155) (let ((&temp~1187093766~168 (cdr &temp~1187093766~167))) (if (pair? &temp~1187093766~168) (let ((&temp~1187093766~170 (car &temp~1187093766~168))) (let ((&e1~1187093766~156 &temp~1187093766~170)) (let ((&temp~1187093766~169 (cdr &temp~1187093766~168))) (if (list? &temp~1187093766~169) (let ((&e2~1187093766~157 &temp~1187093766~169)) (let ((&input~1187093766~160 (ex:generate-temporaries &i~1187093766~154))) (let ((&fail~1187093766~162 (lambda () (ex:invalid-form &input~1187093766~160)))) (if (list? &input~1187093766~160) (let ((&t~1187093766~163 &input~1187093766~160)) (begin (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons (map (lambda (&i~1187093766~154) (cons &i~1187093766~154 (cons (ex:syntax-rename 'unspecified '() '(&env~1187093766~166) 0 '(core let)) '()))) &i~1187093766~154) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons (map (lambda (&t~1187093766~163 &v~1187093766~155) (cons &t~1187093766~163 (cons &v~1187093766~155 '()))) &t~1187093766~163 &v~1187093766~155) (append (map (lambda (&i~1187093766~154 &t~1187093766~163) (cons (ex:syntax-rename 'set! '() '(&env~1187093766~166) 0 '(core let)) (cons &i~1187093766~154 (cons &t~1187093766~163 '())))) &i~1187093766~154 &t~1187093766~163) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons '() (cons &e1~1187093766~156 &e2~1187093766~157))) '())))) '()))))) (&fail~1187093766~162))))) (&fail~1187093766~153))))) (&fail~1187093766~153)))) (if (null? &cols~1187093766~172) '(() ()) (apply map list &cols~1187093766~172))) (&fail~1187093766~153))))) (&fail~1187093766~153)))) (&fail~1187093766~153)))))) (ex:register-macro! '&letrec*~1187093766~180 (lambda (&x~1187093766~182) (let ((&input~1187093766~184 &x~1187093766~182)) (let ((&fail~1187093766~185 (lambda () (ex:invalid-form &input~1187093766~184)))) (if (pair? &input~1187093766~184) (let ((&temp~1187093766~203 (car &input~1187093766~184))) (let ((&temp~1187093766~192 (cdr &input~1187093766~184))) (if (pair? &temp~1187093766~192) (let ((&temp~1187093766~196 (car &temp~1187093766~192))) (ex:map-while (lambda (&temp~1187093766~196) (if (pair? &temp~1187093766~196) (let ((&temp~1187093766~202 (car &temp~1187093766~196))) (let ((&i~1187093766~186 &temp~1187093766~202)) (let ((&temp~1187093766~199 (cdr &temp~1187093766~196))) (if (pair? &temp~1187093766~199) (let ((&temp~1187093766~201 (car &temp~1187093766~199))) (let ((&v~1187093766~187 &temp~1187093766~201)) (let ((&temp~1187093766~200 (cdr &temp~1187093766~199))) (if (null? &temp~1187093766~200) (list &i~1187093766~186 &v~1187093766~187) #f)))) #f)))) #f)) &temp~1187093766~196 (lambda (&cols~1187093766~197 &rest~1187093766~198) (if (null? &rest~1187093766~198) (apply (lambda (&i~1187093766~186 &v~1187093766~187) (let ((&temp~1187093766~193 (cdr &temp~1187093766~192))) (if (pair? &temp~1187093766~193) (let ((&temp~1187093766~195 (car &temp~1187093766~193))) (let ((&e1~1187093766~188 &temp~1187093766~195)) (let ((&temp~1187093766~194 (cdr &temp~1187093766~193))) (if (list? &temp~1187093766~194) (let ((&e2~1187093766~189 &temp~1187093766~194)) (cons (ex:syntax-rename 'let '() '(&env~1187093766~191) 0 '(core let)) (cons '() (append (map (lambda (&i~1187093766~186 &v~1187093766~187) (cons (ex:syntax-rename 'define '() '(&env~1187093766~191) 0 '(core let)) (cons &i~1187093766~186 (cons &v~1187093766~187 '())))) &i~1187093766~186 &v~1187093766~187) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~191) 0 '(core let)) (cons '() (cons &e1~1187093766~188 &e2~1187093766~189))) '()))))) (&fail~1187093766~185))))) (&fail~1187093766~185)))) (if (null? &cols~1187093766~197) '(() ()) (apply map list &cols~1187093766~197))) (&fail~1187093766~185))))) (&fail~1187093766~185)))) (&fail~1187093766~185)))))) (values)) (lambda () (set! &unspecified~1187093766~179 ex:undefined) (set! &unspecified~1187093766~179 (if #f #f)) (values)) '&build~1187093766~205)) (values)) (begin (ex:register-library! (ex:make-library '(core derived) (lambda () (ex:uncompress '(((&env~1187093766~476 0 1 2 3 4) (&env~1187093766~465 5 6 7 8 9 10 1 2 3 4) (&env~1187093766~447 11 7 8 9 10 1 2 3 4) (&env~1187093766~439 12 7 8 9 10 1 2 3 4) (&env~1187093766~392 13 14 15 16 17 18 19 20 21 4) (&env~1187093766~386 22 14 15 16 17 18 19 20 21 4) (&env~1187093766~377 23 14 15 16 17 18 19 20 21 4) (&env~1187093766~369 24 14 15 16 17 18 19 20 21 4) (&env~1187093766~352 25 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~343 28 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~335 29 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~280 30 31 32 4) (&env~1187093766~257 33 34 35 36 37 38 31 32 4) (&env~1187093766~247 39 40 34 35 36 37 38 31 32 4)) (40 (((x) . #f) ((v) . #f) ((rest) . #f))) (39 (((body) . #f))) (38 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (37 (((f) variable &f~1187093766~223 (1) #t (core derived)))) (36 ()) (35 (((bindings) variable &bindings~1187093766~231 (1) #f (core derived)))) (34 ()) (33 (((x) . #f) ((v) . #f))) (32 (((x) variable &x~1187093766~208 (1) #f (core derived)))) (31 ()) (30 (((e1) . #f) ((e2) . #f))) (29 (((e0) . #f) ((e1) . #f) ((e2) . #f))) (28 (((e0) . #f) ((e1) . #f))) (27 (((c2) . #f) ((c3) . #f))) (26 (((rest) . #f))) (25 (((e0) . #f))) (24 (((e0) . #f) ((e1) . #f) ((e2) . #f))) (23 (((e0) . #f) ((e1) . #f))) (22 (((e0) . #f))) (21 (((x) variable &x~1187093766~289 (1) #f (core derived)))) (20 ()) (19 (((c1) . #f) ((c2) . #f))) (18 (((f) variable &f~1187093766~300 (1) #t (core derived)))) (17 ()) (16 (((c1) variable &c1~1187093766~308 (1) #f (core derived)) ((c2*) variable &c2*~1187093766~309 (1) #f (core derived)))) (15 ()) (14 ()) (13 (((e1) . #f) ((e2) . #f))) (12 (((k) . #f) ((e1) . #f) ((e2) . #f))) (11 (((e1) . #f) ((e2) . #f))) (10 (((f) variable &f~1187093766~420 (1) #t (core derived)))) (9 ()) (8 (((c1) variable &c1~1187093766~428 (1) #f (core derived)) ((cmore) variable &cmore~1187093766~429 (1) #f (core derived)))) (7 ()) (6 (((rest) . #f))) (5 (((k) . #f) ((e1) . #f) ((e2) . #f))) (4 (((else) macro &else~1187093766~487 (0) #f (core derived)) ((=>) macro &=>~1187093766~483 (0) #f (core derived)) ((case) macro &case~1187093766~403 (0) #f (core derived)) ((cond) macro &cond~1187093766~287 (0) #f (core derived)) ((let*) macro &let*~1187093766~206 (0) #f (core derived)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (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 ()) ((define-syntax) macro define-syntax (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*~1187093766~180 (1 0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (1 0) #f (core let)) ((let) macro &let~1187093766~100 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)))) (3 (((x) variable &x~1187093766~405 (1) #f (core derived)))) (2 ()) (1 (((e) . #f) ((c1) . #f) ((c2) . #f))) (0 (((body) . #f)))))) '((let* macro &let*~1187093766~206 (0) #f (core derived)) (cond macro &cond~1187093766~287 (0) #f (core derived)) (case macro &case~1187093766~403 (0) #f (core derived)) (else macro &else~1187093766~487 (0) #f (core derived)) (=> macro &=>~1187093766~483 (0) #f (core derived))) '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)) '(&build~1187093766~99 &build~1187093766~57 &build~1187093766~205 &build~1187093766~2) (lambda () (ex:register-macro! '&let*~1187093766~206 (lambda (&x~1187093766~208) (let ((&input~1187093766~210 &x~1187093766~208)) (let ((&fail~1187093766~211 (lambda () (let ((&fail~1187093766~212 (lambda () (ex:invalid-form &input~1187093766~210)))) (if (pair? &input~1187093766~210) (let ((&temp~1187093766~276 (car &input~1187093766~210))) (let ((&temp~1187093766~265 (cdr &input~1187093766~210))) (if (pair? &temp~1187093766~265) (let ((&temp~1187093766~269 (car &temp~1187093766~265))) (ex:map-while (lambda (&temp~1187093766~269) (if (pair? &temp~1187093766~269) (let ((&temp~1187093766~275 (car &temp~1187093766~269))) (let ((&x~1187093766~213 &temp~1187093766~275)) (let ((&temp~1187093766~272 (cdr &temp~1187093766~269))) (if (pair? &temp~1187093766~272) (let ((&temp~1187093766~274 (car &temp~1187093766~272))) (let ((&v~1187093766~214 &temp~1187093766~274)) (let ((&temp~1187093766~273 (cdr &temp~1187093766~272))) (if (null? &temp~1187093766~273) (list &x~1187093766~213 &v~1187093766~214) #f)))) #f)))) #f)) &temp~1187093766~269 (lambda (&cols~1187093766~270 &rest~1187093766~271) (if (null? &rest~1187093766~271) (apply (lambda (&x~1187093766~213 &v~1187093766~214) (let ((&temp~1187093766~266 (cdr &temp~1187093766~265))) (if (pair? &temp~1187093766~266) (let ((&temp~1187093766~268 (car &temp~1187093766~266))) (let ((&e1~1187093766~215 &temp~1187093766~268)) (let ((&temp~1187093766~267 (cdr &temp~1187093766~266))) (if (list? &temp~1187093766~267) (let ((&e2~1187093766~216 &temp~1187093766~267)) (if (for-all ex:identifier? &x~1187093766~213) (((lambda (&f~1187093766~223) ((lambda (&temp~1187093766~226) (set! &f~1187093766~223 &temp~1187093766~226) ((lambda () &f~1187093766~223))) (lambda (&bindings~1187093766~231) (let ((&input~1187093766~233 &bindings~1187093766~231)) (let ((&fail~1187093766~234 (lambda () (let ((&fail~1187093766~235 (lambda () (ex:invalid-form &input~1187093766~233)))) (if (pair? &input~1187093766~233) (let ((&temp~1187093766~249 (car &input~1187093766~233))) (if (pair? &temp~1187093766~249) (let ((&temp~1187093766~253 (car &temp~1187093766~249))) (let ((&x~1187093766~236 &temp~1187093766~253)) (let ((&temp~1187093766~250 (cdr &temp~1187093766~249))) (if (pair? &temp~1187093766~250) (let ((&temp~1187093766~252 (car &temp~1187093766~250))) (let ((&v~1187093766~237 &temp~1187093766~252)) (let ((&temp~1187093766~251 (cdr &temp~1187093766~250))) (if (null? &temp~1187093766~251) (let ((&temp~1187093766~248 (cdr &input~1187093766~233))) (let ((&rest~1187093766~238 &temp~1187093766~248)) (let ((&input~1187093766~241 (&f~1187093766~223 &rest~1187093766~238))) (let ((&fail~1187093766~243 (lambda () (ex:invalid-form &input~1187093766~241)))) (let ((&body~1187093766~244 &input~1187093766~241)) (begin (cons (ex:syntax-rename 'let '() '(&env~1187093766~247) 0 '(core derived)) (cons (cons (cons &x~1187093766~236 (cons &v~1187093766~237 '())) '()) (cons &body~1187093766~244 '()))))))))) (&fail~1187093766~235))))) (&fail~1187093766~235))))) (&fail~1187093766~235))) (&fail~1187093766~235)))))) (if (pair? &input~1187093766~233) (let ((&temp~1187093766~259 (car &input~1187093766~233))) (if (pair? &temp~1187093766~259) (let ((&temp~1187093766~263 (car &temp~1187093766~259))) (let ((&x~1187093766~254 &temp~1187093766~263)) (let ((&temp~1187093766~260 (cdr &temp~1187093766~259))) (if (pair? &temp~1187093766~260) (let ((&temp~1187093766~262 (car &temp~1187093766~260))) (let ((&v~1187093766~255 &temp~1187093766~262)) (let ((&temp~1187093766~261 (cdr &temp~1187093766~260))) (if (null? &temp~1187093766~261) (let ((&temp~1187093766~258 (cdr &input~1187093766~233))) (if (null? &temp~1187093766~258) (cons (ex:syntax-rename 'let '() '(&env~1187093766~257) 0 '(core derived)) (cons (cons (cons &x~1187093766~254 (cons &v~1187093766~255 '())) '()) (cons &e1~1187093766~215 &e2~1187093766~216))) (&fail~1187093766~234))) (&fail~1187093766~234))))) (&fail~1187093766~234))))) (&fail~1187093766~234))) (&fail~1187093766~234))))))) &unspecified~1187093766~179) (map (lambda (&x~1187093766~213 &v~1187093766~214) (cons &x~1187093766~213 (cons &v~1187093766~214 '()))) &x~1187093766~213 &v~1187093766~214)) (&fail~1187093766~212))) (&fail~1187093766~212))))) (&fail~1187093766~212)))) (if (null? &cols~1187093766~270) '(() ()) (apply map list &cols~1187093766~270))) (&fail~1187093766~212))))) (&fail~1187093766~212)))) (&fail~1187093766~212)))))) (if (pair? &input~1187093766~210) (let ((&temp~1187093766~286 (car &input~1187093766~210))) (let ((&temp~1187093766~281 (cdr &input~1187093766~210))) (if (pair? &temp~1187093766~281) (let ((&temp~1187093766~285 (car &temp~1187093766~281))) (if (null? &temp~1187093766~285) (let ((&temp~1187093766~282 (cdr &temp~1187093766~281))) (if (pair? &temp~1187093766~282) (let ((&temp~1187093766~284 (car &temp~1187093766~282))) (let ((&e1~1187093766~277 &temp~1187093766~284)) (let ((&temp~1187093766~283 (cdr &temp~1187093766~282))) (if (list? &temp~1187093766~283) (let ((&e2~1187093766~278 &temp~1187093766~283)) (cons (ex:syntax-rename 'let '() '(&env~1187093766~280) 0 '(core derived)) (cons '() (cons &e1~1187093766~277 &e2~1187093766~278)))) (&fail~1187093766~211))))) (&fail~1187093766~211))) (&fail~1187093766~211))) (&fail~1187093766~211)))) (&fail~1187093766~211)))))) (ex:register-macro! '&cond~1187093766~287 (lambda (&x~1187093766~289) (let ((&input~1187093766~291 &x~1187093766~289)) (let ((&fail~1187093766~292 (lambda () (ex:invalid-form &input~1187093766~291)))) (if (pair? &input~1187093766~291) (let ((&temp~1187093766~402 (car &input~1187093766~291))) (let ((&temp~1187093766~399 (cdr &input~1187093766~291))) (if (pair? &temp~1187093766~399) (let ((&temp~1187093766~401 (car &temp~1187093766~399))) (let ((&c1~1187093766~293 &temp~1187093766~401)) (let ((&temp~1187093766~400 (cdr &temp~1187093766~399))) (if (list? &temp~1187093766~400) (let ((&c2~1187093766~294 &temp~1187093766~400)) (((lambda (&f~1187093766~300) ((lambda (&temp~1187093766~303) (set! &f~1187093766~300 &temp~1187093766~303) ((lambda () &f~1187093766~300))) (lambda (&c1~1187093766~308 &c2*~1187093766~309) (let ((&input~1187093766~311 &c2*~1187093766~309)) (let ((&fail~1187093766~312 (lambda () (let ((&fail~1187093766~313 (lambda () (ex:invalid-form &input~1187093766~311)))) (if (pair? &input~1187093766~311) (let ((&temp~1187093766~356 (car &input~1187093766~311))) (let ((&c2~1187093766~314 &temp~1187093766~356)) (let ((&temp~1187093766~355 (cdr &input~1187093766~311))) (if (list? &temp~1187093766~355) (let ((&c3~1187093766~315 &temp~1187093766~355)) (let ((&input~1187093766~318 (&f~1187093766~300 &c2~1187093766~314 &c3~1187093766~315))) (let ((&fail~1187093766~321 (lambda () (ex:invalid-form &input~1187093766~318)))) (let ((&rest~1187093766~322 &input~1187093766~318)) (begin (let ((&input~1187093766~325 &c1~1187093766~308)) (let ((&fail~1187093766~326 (lambda () (let ((&fail~1187093766~327 (lambda () (let ((&fail~1187093766~328 (lambda () (let ((&fail~1187093766~329 (lambda () (ex:invalid-form &input~1187093766~325)))) (ex:syntax-violation 'cond "Invalid expression" &x~1187093766~289))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~339 (car &input~1187093766~325))) (let ((&e0~1187093766~331 &temp~1187093766~339)) (let ((&temp~1187093766~336 (cdr &input~1187093766~325))) (if (pair? &temp~1187093766~336) (let ((&temp~1187093766~338 (car &temp~1187093766~336))) (let ((&e1~1187093766~332 &temp~1187093766~338)) (let ((&temp~1187093766~337 (cdr &temp~1187093766~336))) (if (list? &temp~1187093766~337) (let ((&e2~1187093766~333 &temp~1187093766~337)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~335) 0 '(core derived)) (cons &e0~1187093766~331 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~335) 0 '(core derived)) (cons &e1~1187093766~332 &e2~1187093766~333)) (cons &rest~1187093766~322 '()))))) (&fail~1187093766~328))))) (&fail~1187093766~328))))) (&fail~1187093766~328)))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~349 (car &input~1187093766~325))) (let ((&e0~1187093766~340 &temp~1187093766~349)) (let ((&temp~1187093766~344 (cdr &input~1187093766~325))) (if (pair? &temp~1187093766~344) (let ((&temp~1187093766~348 (car &temp~1187093766~344))) (if (and (ex:identifier? &temp~1187093766~348) (ex:free-identifier=? &temp~1187093766~348 (ex:syntax-rename '=> '() '(&env~1187093766~343) 0 '(core derived)))) (let ((&temp~1187093766~345 (cdr &temp~1187093766~344))) (if (pair? &temp~1187093766~345) (let ((&temp~1187093766~347 (car &temp~1187093766~345))) (let ((&e1~1187093766~341 &temp~1187093766~347)) (let ((&temp~1187093766~346 (cdr &temp~1187093766~345))) (if (null? &temp~1187093766~346) (cons (ex:syntax-rename 'let '() '(&env~1187093766~343) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) (cons &e0~1187093766~340 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~343) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) (cons (cons &e1~1187093766~341 (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) '())) (cons &rest~1187093766~322 '())))) '()))) (&fail~1187093766~327))))) (&fail~1187093766~327))) (&fail~1187093766~327))) (&fail~1187093766~327))))) (&fail~1187093766~327)))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~354 (car &input~1187093766~325))) (let ((&e0~1187093766~350 &temp~1187093766~354)) (let ((&temp~1187093766~353 (cdr &input~1187093766~325))) (if (null? &temp~1187093766~353) (cons (ex:syntax-rename 'let '() '(&env~1187093766~352) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons &e0~1187093766~350 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~352) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons &rest~1187093766~322 '())))) '()))) (&fail~1187093766~326))))) (&fail~1187093766~326))))))))) (&fail~1187093766~313))))) (&fail~1187093766~313)))))) (if (null? &input~1187093766~311) (let ((&input~1187093766~358 &c1~1187093766~308)) (let ((&fail~1187093766~359 (lambda () (let ((&fail~1187093766~360 (lambda () (let ((&fail~1187093766~361 (lambda () (let ((&fail~1187093766~362 (lambda () (let ((&fail~1187093766~363 (lambda () (ex:invalid-form &input~1187093766~358)))) (ex:syntax-violation 'cond "Invalid expression" &x~1187093766~289))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~373 (car &input~1187093766~358))) (let ((&e0~1187093766~365 &temp~1187093766~373)) (let ((&temp~1187093766~370 (cdr &input~1187093766~358))) (if (pair? &temp~1187093766~370) (let ((&temp~1187093766~372 (car &temp~1187093766~370))) (let ((&e1~1187093766~366 &temp~1187093766~372)) (let ((&temp~1187093766~371 (cdr &temp~1187093766~370))) (if (list? &temp~1187093766~371) (let ((&e2~1187093766~367 &temp~1187093766~371)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~369) 0 '(core derived)) (cons &e0~1187093766~365 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~369) 0 '(core derived)) (cons &e1~1187093766~366 &e2~1187093766~367)) '())))) (&fail~1187093766~362))))) (&fail~1187093766~362))))) (&fail~1187093766~362)))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~383 (car &input~1187093766~358))) (let ((&e0~1187093766~374 &temp~1187093766~383)) (let ((&temp~1187093766~378 (cdr &input~1187093766~358))) (if (pair? &temp~1187093766~378) (let ((&temp~1187093766~382 (car &temp~1187093766~378))) (if (and (ex:identifier? &temp~1187093766~382) (ex:free-identifier=? &temp~1187093766~382 (ex:syntax-rename '=> '() '(&env~1187093766~377) 0 '(core derived)))) (let ((&temp~1187093766~379 (cdr &temp~1187093766~378))) (if (pair? &temp~1187093766~379) (let ((&temp~1187093766~381 (car &temp~1187093766~379))) (let ((&e1~1187093766~375 &temp~1187093766~381)) (let ((&temp~1187093766~380 (cdr &temp~1187093766~379))) (if (null? &temp~1187093766~380) (cons (ex:syntax-rename 'let '() '(&env~1187093766~377) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) (cons &e0~1187093766~374 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~377) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) (cons (cons &e1~1187093766~375 (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) '())) '()))) '()))) (&fail~1187093766~361))))) (&fail~1187093766~361))) (&fail~1187093766~361))) (&fail~1187093766~361))))) (&fail~1187093766~361)))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~388 (car &input~1187093766~358))) (let ((&e0~1187093766~384 &temp~1187093766~388)) (let ((&temp~1187093766~387 (cdr &input~1187093766~358))) (if (null? &temp~1187093766~387) (cons (ex:syntax-rename 'let '() '(&env~1187093766~386) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~386) 0 '(core derived)) (cons &e0~1187093766~384 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~386) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~386) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~386) 0 '(core derived)) '()))) '()))) (&fail~1187093766~360))))) (&fail~1187093766~360)))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~396 (car &input~1187093766~358))) (if (and (ex:identifier? &temp~1187093766~396) (ex:free-identifier=? &temp~1187093766~396 (ex:syntax-rename 'else '() '(&env~1187093766~392) 0 '(core derived)))) (let ((&temp~1187093766~393 (cdr &input~1187093766~358))) (if (pair? &temp~1187093766~393) (let ((&temp~1187093766~395 (car &temp~1187093766~393))) (let ((&e1~1187093766~389 &temp~1187093766~395)) (let ((&temp~1187093766~394 (cdr &temp~1187093766~393))) (if (list? &temp~1187093766~394) (let ((&e2~1187093766~390 &temp~1187093766~394)) (cons (ex:syntax-rename 'begin '() '(&env~1187093766~392) 0 '(core derived)) (cons &e1~1187093766~389 &e2~1187093766~390))) (&fail~1187093766~359))))) (&fail~1187093766~359))) (&fail~1187093766~359))) (&fail~1187093766~359)))) (&fail~1187093766~312))))))) &unspecified~1187093766~179) &c1~1187093766~293 &c2~1187093766~294)) (&fail~1187093766~292))))) (&fail~1187093766~292)))) (&fail~1187093766~292)))))) (ex:register-macro! '&case~1187093766~403 (lambda (&x~1187093766~405) (let ((&input~1187093766~407 &x~1187093766~405)) (let ((&fail~1187093766~408 (lambda () (ex:invalid-form &input~1187093766~407)))) (if (pair? &input~1187093766~407) (let ((&temp~1187093766~482 (car &input~1187093766~407))) (let ((&temp~1187093766~477 (cdr &input~1187093766~407))) (if (pair? &temp~1187093766~477) (let ((&temp~1187093766~481 (car &temp~1187093766~477))) (let ((&e~1187093766~409 &temp~1187093766~481)) (let ((&temp~1187093766~478 (cdr &temp~1187093766~477))) (if (pair? &temp~1187093766~478) (let ((&temp~1187093766~480 (car &temp~1187093766~478))) (let ((&c1~1187093766~410 &temp~1187093766~480)) (let ((&temp~1187093766~479 (cdr &temp~1187093766~478))) (if (list? &temp~1187093766~479) (let ((&c2~1187093766~411 &temp~1187093766~479)) (let ((&input~1187093766~414 (((lambda (&f~1187093766~420) ((lambda (&temp~1187093766~423) (set! &f~1187093766~420 &temp~1187093766~423) ((lambda () &f~1187093766~420))) (lambda (&c1~1187093766~428 &cmore~1187093766~429) (if (null? &cmore~1187093766~429) (let ((&input~1187093766~432 &c1~1187093766~428)) (let ((&fail~1187093766~433 (lambda () (let ((&fail~1187093766~434 (lambda () (ex:invalid-form &input~1187093766~432)))) (if (pair? &input~1187093766~432) (let ((&temp~1187093766~443 (car &input~1187093766~432))) (if (list? &temp~1187093766~443) (let ((&k~1187093766~435 &temp~1187093766~443)) (let ((&temp~1187093766~440 (cdr &input~1187093766~432))) (if (pair? &temp~1187093766~440) (let ((&temp~1187093766~442 (car &temp~1187093766~440))) (let ((&e1~1187093766~436 &temp~1187093766~442)) (let ((&temp~1187093766~441 (cdr &temp~1187093766~440))) (if (list? &temp~1187093766~441) (let ((&e2~1187093766~437 &temp~1187093766~441)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~439) 0 '(core derived)) (cons (cons (ex:syntax-rename 'memv '() '(&env~1187093766~439) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~439) 0 '(core derived)) (cons (cons (ex:syntax-rename 'quote '() '(&env~1187093766~439) 0 '(core derived)) (cons &k~1187093766~435 '())) '()))) (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~439) 0 '(core derived)) (cons &e1~1187093766~436 &e2~1187093766~437)) '())))) (&fail~1187093766~434))))) (&fail~1187093766~434)))) (&fail~1187093766~434))) (&fail~1187093766~434)))))) (if (pair? &input~1187093766~432) (let ((&temp~1187093766~451 (car &input~1187093766~432))) (if (and (ex:identifier? &temp~1187093766~451) (ex:free-identifier=? &temp~1187093766~451 (ex:syntax-rename 'else '() '(&env~1187093766~447) 0 '(core derived)))) (let ((&temp~1187093766~448 (cdr &input~1187093766~432))) (if (pair? &temp~1187093766~448) (let ((&temp~1187093766~450 (car &temp~1187093766~448))) (let ((&e1~1187093766~444 &temp~1187093766~450)) (let ((&temp~1187093766~449 (cdr &temp~1187093766~448))) (if (list? &temp~1187093766~449) (let ((&e2~1187093766~445 &temp~1187093766~449)) (cons (ex:syntax-rename 'begin '() '(&env~1187093766~447) 0 '(core derived)) (cons &e1~1187093766~444 &e2~1187093766~445))) (&fail~1187093766~433))))) (&fail~1187093766~433))) (&fail~1187093766~433))) (&fail~1187093766~433)))) (let ((&input~1187093766~454 (&f~1187093766~420 (car &cmore~1187093766~429) (cdr &cmore~1187093766~429)))) (let ((&fail~1187093766~455 (lambda () (ex:invalid-form &input~1187093766~454)))) (let ((&rest~1187093766~456 &input~1187093766~454)) (begin (let ((&input~1187093766~459 &c1~1187093766~428)) (let ((&fail~1187093766~460 (lambda () (ex:invalid-form &input~1187093766~459)))) (if (pair? &input~1187093766~459) (let ((&temp~1187093766~469 (car &input~1187093766~459))) (if (list? &temp~1187093766~469) (let ((&k~1187093766~461 &temp~1187093766~469)) (let ((&temp~1187093766~466 (cdr &input~1187093766~459))) (if (pair? &temp~1187093766~466) (let ((&temp~1187093766~468 (car &temp~1187093766~466))) (let ((&e1~1187093766~462 &temp~1187093766~468)) (let ((&temp~1187093766~467 (cdr &temp~1187093766~466))) (if (list? &temp~1187093766~467) (let ((&e2~1187093766~463 &temp~1187093766~467)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~465) 0 '(core derived)) (cons (cons (ex:syntax-rename 'memv '() '(&env~1187093766~465) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~465) 0 '(core derived)) (cons (cons (ex:syntax-rename 'quote '() '(&env~1187093766~465) 0 '(core derived)) (cons &k~1187093766~461 '())) '()))) (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~465) 0 '(core derived)) (cons &e1~1187093766~462 &e2~1187093766~463)) (cons &rest~1187093766~456 '()))))) (&fail~1187093766~460))))) (&fail~1187093766~460)))) (&fail~1187093766~460))) (&fail~1187093766~460)))))))))))) &unspecified~1187093766~179) &c1~1187093766~410 &c2~1187093766~411))) (let ((&fail~1187093766~472 (lambda () (ex:invalid-form &input~1187093766~414)))) (let ((&body~1187093766~473 &input~1187093766~414)) (begin (cons (ex:syntax-rename 'let '() '(&env~1187093766~476) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~476) 0 '(core derived)) (cons &e~1187093766~409 '())) '()) (cons &body~1187093766~473 '())))))))) (&fail~1187093766~408))))) (&fail~1187093766~408))))) (&fail~1187093766~408)))) (&fail~1187093766~408)))))) (ex:register-macro! '&=>~1187093766~483 (lambda (&x~1187093766~485) (ex:syntax-violation '=> "Invalid expression" &x~1187093766~485))) (ex:register-macro! '&else~1187093766~487 (lambda (&x~1187093766~489) (ex:syntax-violation 'else "Invalid expression" &x~1187093766~489))) (values)) (lambda () (values)) '&build~1187093766~491)) (values)) (begin (ex:register-library! (ex:make-library '(core identifier-syntax) (lambda () (ex:uncompress '(((&env~1187093766~532 0 1 2 3) (&env~1187093766~509 4 1 2 3)) (4 (((id) . #f) ((exp1) . #f) ((var) . #f) ((val) . #f) ((exp2) . #f))) (3 (((identifier-syntax) macro &identifier-syntax~1187093766~492 (0) #f (core identifier-syntax)) ((identifier?) variable ex:identifier? (1 0 -1) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (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 ()) ((define-syntax) macro define-syntax (1 0 -1) #f ()) ((and) macro and (1 0 -1) #f ()) ((set!) macro set! (1 0 -1) #f ()) ((lambda) macro lambda (1 0 -1) #f ()))) (2 (((x) variable &x~1187093766~494 (1) #f (core identifier-syntax)))) (1 ()) (0 (((e) . #f)))))) '((identifier-syntax macro &identifier-syntax~1187093766~492 (0) #f (core identifier-syntax))) '(((core primitives) 1 0 -1)) '(&build~1187093766~2) (lambda () (ex:register-macro! '&identifier-syntax~1187093766~492 (lambda (&x~1187093766~494) (let ((&input~1187093766~496 &x~1187093766~494)) (let ((&fail~1187093766~497 (lambda () (let ((&fail~1187093766~498 (lambda () (ex:invalid-form &input~1187093766~496)))) (if (pair? &input~1187093766~496) (let ((&temp~1187093766~529 (car &input~1187093766~496))) (let ((&temp~1187093766~510 (cdr &input~1187093766~496))) (if (pair? &temp~1187093766~510) (let ((&temp~1187093766~524 (car &temp~1187093766~510))) (if (pair? &temp~1187093766~524) (let ((&temp~1187093766~528 (car &temp~1187093766~524))) (let ((&id~1187093766~499 &temp~1187093766~528)) (let ((&temp~1187093766~525 (cdr &temp~1187093766~524))) (if (pair? &temp~1187093766~525) (let ((&temp~1187093766~527 (car &temp~1187093766~525))) (let ((&exp1~1187093766~500 &temp~1187093766~527)) (let ((&temp~1187093766~526 (cdr &temp~1187093766~525))) (if (null? &temp~1187093766~526) (let ((&temp~1187093766~511 (cdr &temp~1187093766~510))) (if (pair? &temp~1187093766~511) (let ((&temp~1187093766~513 (car &temp~1187093766~511))) (if (pair? &temp~1187093766~513) (let ((&temp~1187093766~517 (car &temp~1187093766~513))) (if (pair? &temp~1187093766~517) (let ((&temp~1187093766~523 (car &temp~1187093766~517))) (if (and (ex:identifier? &temp~1187093766~523) (ex:free-identifier=? &temp~1187093766~523 (ex:syntax-rename 'set! '() '(&env~1187093766~509) 0 '(core identifier-syntax)))) (let ((&temp~1187093766~518 (cdr &temp~1187093766~517))) (if (pair? &temp~1187093766~518) (let ((&temp~1187093766~522 (car &temp~1187093766~518))) (let ((&var~1187093766~501 &temp~1187093766~522)) (let ((&temp~1187093766~519 (cdr &temp~1187093766~518))) (if (pair? &temp~1187093766~519) (let ((&temp~1187093766~521 (car &temp~1187093766~519))) (let ((&val~1187093766~502 &temp~1187093766~521)) (let ((&temp~1187093766~520 (cdr &temp~1187093766~519))) (if (null? &temp~1187093766~520) (let ((&temp~1187093766~514 (cdr &temp~1187093766~513))) (if (pair? &temp~1187093766~514) (let ((&temp~1187093766~516 (car &temp~1187093766~514))) (let ((&exp2~1187093766~503 &temp~1187093766~516)) (let ((&temp~1187093766~515 (cdr &temp~1187093766~514))) (if (null? &temp~1187093766~515) (let ((&temp~1187093766~512 (cdr &temp~1187093766~511))) (if (null? &temp~1187093766~512) (if (if (ex:identifier? &id~1187093766~499) (ex:identifier? &var~1187093766~501) #f) (cons (ex:syntax-rename 'make-variable-transformer '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'x '() '(&env~1187093766~509) 0 '(core identifier-syntax)) '()) (cons (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (ex:syntax-rename 'x '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'set! '() '(&env~1187093766~509) 0 '(core identifier-syntax)) '()) (cons (cons (cons (ex:syntax-rename 'set! '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons &var~1187093766~501 (cons &val~1187093766~502 '()))) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons &exp2~1187093766~503 '())) '())) (cons (cons (cons &id~1187093766~499 (cons (ex:syntax-rename 'x '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (ex:syntax-rename '... '() '(&env~1187093766~509) 0 '(core identifier-syntax)) '()))) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (cons &exp1~1187093766~500 (cons (ex:syntax-rename 'x '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (ex:syntax-rename '... '() '(&env~1187093766~509) 0 '(core identifier-syntax)) '()))) '())) '())) (cons (cons &id~1187093766~499 (cons (cons (ex:syntax-rename 'identifier? '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons &id~1187093766~499 '())) '())) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~509) 0 '(core identifier-syntax)) (cons &exp1~1187093766~500 '())) '()))) '())))))) '()))) '())) (&fail~1187093766~498)) (&fail~1187093766~498))) (&fail~1187093766~498))))) (&fail~1187093766~498))) (&fail~1187093766~498))))) (&fail~1187093766~498))))) (&fail~1187093766~498))) (&fail~1187093766~498))) (&fail~1187093766~498))) (&fail~1187093766~498))) (&fail~1187093766~498))) (&fail~1187093766~498))))) (&fail~1187093766~498))))) (&fail~1187093766~498))) (&fail~1187093766~498)))) (&fail~1187093766~498)))))) (if (pair? &input~1187093766~496) (let ((&temp~1187093766~536 (car &input~1187093766~496))) (let ((&temp~1187093766~533 (cdr &input~1187093766~496))) (if (pair? &temp~1187093766~533) (let ((&temp~1187093766~535 (car &temp~1187093766~533))) (let ((&e~1187093766~530 &temp~1187093766~535)) (let ((&temp~1187093766~534 (cdr &temp~1187093766~533))) (if (null? &temp~1187093766~534) (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'x '() '(&env~1187093766~532) 0 '(core identifier-syntax)) '()) (cons (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (ex:syntax-rename 'x '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons '() (cons (cons (ex:syntax-rename 'id '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'identifier? '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (ex:syntax-rename 'id '() '(&env~1187093766~532) 0 '(core identifier-syntax)) '())) '())) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons &e~1187093766~530 '())) '()))) (cons (cons (cons (ex:syntax-rename '_ '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (ex:syntax-rename 'x '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (ex:syntax-rename '... '() '(&env~1187093766~532) 0 '(core identifier-syntax)) '()))) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (cons &e~1187093766~530 (cons (ex:syntax-rename 'x '() '(&env~1187093766~532) 0 '(core identifier-syntax)) (cons (ex:syntax-rename '... '() '(&env~1187093766~532) 0 '(core identifier-syntax)) '()))) '())) '())) '()))))) '()))) (&fail~1187093766~497))))) (&fail~1187093766~497)))) (&fail~1187093766~497)))))) (values)) (lambda () (values)) '&build~1187093766~537)) (values)) (begin (ex:register-library! (ex:make-library '(core quasisyntax) (lambda () (ex:uncompress '(((&env~1187093766~755 0 1 2 3 4 5) (&env~1187093766~727 6 1 2 3 4 5) (&env~1187093766~711 7 1 2 3 4 5) (&env~1187093766~685 8 1 2 3 4 5) (&env~1187093766~666 9 8 1 2 3 4 5) (&env~1187093766~631 10 1 2 3 4 5) (&env~1187093766~555 11 12 3 4 5)) (12 (((template) . #f))) (11 (((template*) . #f) ((replacements) . #f))) (10 (((k) . #f) ((r) . #f))) (9 (((r*) . #f) ((rep) . #f) ((t) . #f))) (8 (((e) . #f) ((r) . #f))) (7 (((e) . #f) ((r) . #f))) (6 (((e) . #f))) (5 (((unsyntax-splicing) macro &unsyntax-splicing~1187093766~760 (0) #f (core quasisyntax)) ((unsyntax) macro &unsyntax~1187093766~756 (0) #f (core quasisyntax)) ((quasisyntax) macro &quasisyntax~1187093766~538 (0) #f (core quasisyntax)) ((syntax-violation) variable ex:syntax-violation (0 1) #f ()) ((generate-temporaries) variable ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ()) ((identifier?) variable ex:identifier? (0 1) #f ()) ((vector->list) variable vector->list (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 ()) ((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 ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((letrec*) macro &letrec*~1187093766~180 (0 1) #f (core let)) ((letrec) macro &letrec~1187093766~148 (0 1) #f (core let)) ((let) macro &let~1187093766~100 (0 1) #f (core let)) ((=>) macro &=>~1187093766~483 (0 1) #f (core derived)) ((else) macro &else~1187093766~487 (0 1) #f (core derived)) ((case) macro &case~1187093766~403 (0 1) #f (core derived)) ((cond) macro &cond~1187093766~287 (0 1) #f (core derived)) ((let*) macro &let*~1187093766~206 (0 1) #f (core derived)) ((with-syntax) macro &with-syntax~1187093766~3 (0 1) #f (core with-syntax)))) (4 (((e) variable &e~1187093766~540 (1) #f (core quasisyntax)))) (3 (((expand) variable &expand~1187093766~541 (1) #f (core quasisyntax)))) (2 (((x) variable &x~1187093766~565 (1) #f (core quasisyntax)) ((level) variable &level~1187093766~566 (1) #f (core quasisyntax)))) (1 ()) (0 (((e) . #f)))))) '((quasisyntax macro &quasisyntax~1187093766~538 (0) #f (core quasisyntax)) (unsyntax macro &unsyntax~1187093766~756 (0) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1187093766~760 (0) #f (core quasisyntax))) '(((core with-syntax) 0 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1)) '(&build~1187093766~57 &build~1187093766~491 &build~1187093766~205 &build~1187093766~2) (lambda () (ex:register-macro! '&quasisyntax~1187093766~538 (lambda (&e~1187093766~540) ((lambda (&expand~1187093766~541) (set! &expand~1187093766~541 (lambda (&x~1187093766~565 &level~1187093766~566) (let ((&input~1187093766~568 &x~1187093766~565)) (let ((&fail~1187093766~569 (lambda () (let ((&fail~1187093766~570 (lambda () (let ((&fail~1187093766~571 (lambda () (let ((&fail~1187093766~572 (lambda () (let ((&fail~1187093766~573 (lambda () (let ((&fail~1187093766~574 (lambda () (let ((&fail~1187093766~575 (lambda () (let ((&fail~1187093766~576 (lambda () (ex:invalid-form &input~1187093766~568)))) (let ((&other~1187093766~577 &input~1187093766~568)) (cons &other~1187093766~577 (cons '() '()))))))) (if (vector? &input~1187093766~568) (let ((&temp~1187093766~593 (vector->list &input~1187093766~568))) (if (list? &temp~1187093766~593) (let ((&e~1187093766~579 &temp~1187093766~593)) (let ((&input~1187093766~582 (&expand~1187093766~541 (vector->list (list->vector &e~1187093766~579)) &level~1187093766~566))) (let ((&fail~1187093766~584 (lambda () (ex:invalid-form &input~1187093766~582)))) (if (pair? &input~1187093766~582) (let ((&temp~1187093766~592 (car &input~1187093766~582))) (if (list? &temp~1187093766~592) (let ((&e*~1187093766~585 &temp~1187093766~592)) (let ((&temp~1187093766~589 (cdr &input~1187093766~582))) (if (pair? &temp~1187093766~589) (let ((&temp~1187093766~591 (car &temp~1187093766~589))) (let ((&reps~1187093766~586 &temp~1187093766~591)) (let ((&temp~1187093766~590 (cdr &temp~1187093766~589))) (if (null? &temp~1187093766~590) (begin (cons (list->vector &e*~1187093766~585) (cons &reps~1187093766~586 '()))) (&fail~1187093766~584))))) (&fail~1187093766~584)))) (&fail~1187093766~584))) (&fail~1187093766~584))))) (&fail~1187093766~575))) (&fail~1187093766~575)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~621 (car &input~1187093766~568))) (let ((&h~1187093766~594 &temp~1187093766~621)) (let ((&temp~1187093766~620 (cdr &input~1187093766~568))) (let ((&t~1187093766~595 &temp~1187093766~620)) (let ((&input~1187093766~598 (list (&expand~1187093766~541 &h~1187093766~594 &level~1187093766~566) (&expand~1187093766~541 &t~1187093766~595 &level~1187093766~566)))) (let ((&fail~1187093766~601 (lambda () (ex:invalid-form &input~1187093766~598)))) (if (pair? &input~1187093766~598) (let ((&temp~1187093766~615 (car &input~1187093766~598))) (if (pair? &temp~1187093766~615) (let ((&temp~1187093766~619 (car &temp~1187093766~615))) (let ((&h*~1187093766~602 &temp~1187093766~619)) (let ((&temp~1187093766~616 (cdr &temp~1187093766~615))) (if (pair? &temp~1187093766~616) (let ((&temp~1187093766~618 (car &temp~1187093766~616))) (if (list? &temp~1187093766~618) (let ((&rep1~1187093766~603 &temp~1187093766~618)) (let ((&temp~1187093766~617 (cdr &temp~1187093766~616))) (if (null? &temp~1187093766~617) (let ((&temp~1187093766~608 (cdr &input~1187093766~598))) (if (pair? &temp~1187093766~608) (let ((&temp~1187093766~610 (car &temp~1187093766~608))) (if (pair? &temp~1187093766~610) (let ((&temp~1187093766~614 (car &temp~1187093766~610))) (let ((&t*~1187093766~604 &temp~1187093766~614)) (let ((&temp~1187093766~611 (cdr &temp~1187093766~610))) (if (pair? &temp~1187093766~611) (let ((&temp~1187093766~613 (car &temp~1187093766~611))) (if (list? &temp~1187093766~613) (let ((&rep2~1187093766~605 &temp~1187093766~613)) (let ((&temp~1187093766~612 (cdr &temp~1187093766~611))) (if (null? &temp~1187093766~612) (let ((&temp~1187093766~609 (cdr &temp~1187093766~608))) (if (null? &temp~1187093766~609) (begin (cons (cons &h*~1187093766~602 &t*~1187093766~604) (cons (append &rep1~1187093766~603 &rep2~1187093766~605) '()))) (&fail~1187093766~601))) (&fail~1187093766~601)))) (&fail~1187093766~601))) (&fail~1187093766~601))))) (&fail~1187093766~601))) (&fail~1187093766~601))) (&fail~1187093766~601)))) (&fail~1187093766~601))) (&fail~1187093766~601))))) (&fail~1187093766~601))) (&fail~1187093766~601)))))))) (&fail~1187093766~574)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~649 (car &input~1187093766~568))) (let ((&k~1187093766~622 &temp~1187093766~649)) (let ((&temp~1187093766~648 (cdr &input~1187093766~568))) (let ((&r~1187093766~623 &temp~1187093766~648)) (if (if (> &level~1187093766~566 0) (if (ex:identifier? &k~1187093766~622) (let ((x (ex:free-identifier=? &k~1187093766~622 (ex:syntax-rename 'unsyntax '() '(&env~1187093766~631) 0 '(core quasisyntax))))) (if x x (ex:free-identifier=? &k~1187093766~622 (ex:syntax-rename 'unsyntax-splicing '() '(&env~1187093766~631) 0 '(core quasisyntax))))) #f) #f) (let ((&input~1187093766~637 (&expand~1187093766~541 &r~1187093766~623 (- &level~1187093766~566 1)))) (let ((&fail~1187093766~639 (lambda () (ex:invalid-form &input~1187093766~637)))) (if (pair? &input~1187093766~637) (let ((&temp~1187093766~647 (car &input~1187093766~637))) (let ((&r*~1187093766~640 &temp~1187093766~647)) (let ((&temp~1187093766~644 (cdr &input~1187093766~637))) (if (pair? &temp~1187093766~644) (let ((&temp~1187093766~646 (car &temp~1187093766~644))) (let ((&reps~1187093766~641 &temp~1187093766~646)) (let ((&temp~1187093766~645 (cdr &temp~1187093766~644))) (if (null? &temp~1187093766~645) (begin (cons (cons &k~1187093766~622 &r*~1187093766~640) (cons &reps~1187093766~641 '()))) (&fail~1187093766~639))))) (&fail~1187093766~639))))) (&fail~1187093766~639)))) (&fail~1187093766~573)))))) (&fail~1187093766~573)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~682 (car &input~1187093766~568))) (if (pair? &temp~1187093766~682) (let ((&temp~1187093766~684 (car &temp~1187093766~682))) (if (and (ex:identifier? &temp~1187093766~684) (ex:free-identifier=? &temp~1187093766~684 (ex:syntax-rename 'unsyntax-splicing '() '(&env~1187093766~685) 0 '(core quasisyntax)))) (let ((&temp~1187093766~683 (cdr &temp~1187093766~682))) (if (list? &temp~1187093766~683) (let ((&e~1187093766~650 &temp~1187093766~683)) (let ((&temp~1187093766~681 (cdr &input~1187093766~568))) (let ((&r~1187093766~651 &temp~1187093766~681)) (if (= &level~1187093766~566 0) (let ((&input~1187093766~654 (list (&expand~1187093766~541 &r~1187093766~651 0) (ex:generate-temporaries &e~1187093766~650)))) (let ((&fail~1187093766~657 (lambda () (ex:invalid-form &input~1187093766~654)))) (if (pair? &input~1187093766~654) (let ((&temp~1187093766~676 (car &input~1187093766~654))) (if (pair? &temp~1187093766~676) (let ((&temp~1187093766~680 (car &temp~1187093766~676))) (let ((&r*~1187093766~658 &temp~1187093766~680)) (let ((&temp~1187093766~677 (cdr &temp~1187093766~676))) (if (pair? &temp~1187093766~677) (let ((&temp~1187093766~679 (car &temp~1187093766~677))) (if (list? &temp~1187093766~679) (let ((&rep~1187093766~659 &temp~1187093766~679)) (let ((&temp~1187093766~678 (cdr &temp~1187093766~677))) (if (null? &temp~1187093766~678) (let ((&temp~1187093766~673 (cdr &input~1187093766~654))) (if (pair? &temp~1187093766~673) (let ((&temp~1187093766~675 (car &temp~1187093766~673))) (if (list? &temp~1187093766~675) (let ((&t~1187093766~660 &temp~1187093766~675)) (let ((&temp~1187093766~674 (cdr &temp~1187093766~673))) (if (null? &temp~1187093766~674) (begin (let ((&input~1187093766~664 (map (lambda (&t~1187093766~660) (cons &t~1187093766~660 (cons (ex:syntax-rename '... '() '(&env~1187093766~666) 0 '(core quasisyntax)) '()))) &t~1187093766~660))) (let ((&fail~1187093766~667 (lambda () (ex:invalid-form &input~1187093766~664)))) (ex:map-while (lambda (&input~1187093766~664) (if (list? &input~1187093766~664) (let ((&t~1187093766~668 &input~1187093766~664)) (list &t~1187093766~668)) #f)) &input~1187093766~664 (lambda (&cols~1187093766~671 &rest~1187093766~672) (if (null? &rest~1187093766~672) (apply (lambda (&t~1187093766~668) (begin (cons (append (apply append &t~1187093766~668) &r*~1187093766~658) (cons (append (map (lambda (&t~1187093766~668 &e~1187093766~650) (cons &t~1187093766~668 (cons &e~1187093766~650 '()))) &t~1187093766~668 &e~1187093766~650) &rep~1187093766~659) '())))) (if (null? &cols~1187093766~671) '(()) (apply map list &cols~1187093766~671))) (&fail~1187093766~667))))))) (&fail~1187093766~657)))) (&fail~1187093766~657))) (&fail~1187093766~657))) (&fail~1187093766~657)))) (&fail~1187093766~657))) (&fail~1187093766~657))))) (&fail~1187093766~657))) (&fail~1187093766~657)))) (&fail~1187093766~572))))) (&fail~1187093766~572))) (&fail~1187093766~572))) (&fail~1187093766~572))) (&fail~1187093766~572)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~708 (car &input~1187093766~568))) (if (pair? &temp~1187093766~708) (let ((&temp~1187093766~710 (car &temp~1187093766~708))) (if (and (ex:identifier? &temp~1187093766~710) (ex:free-identifier=? &temp~1187093766~710 (ex:syntax-rename 'unsyntax '() '(&env~1187093766~711) 0 '(core quasisyntax)))) (let ((&temp~1187093766~709 (cdr &temp~1187093766~708))) (if (list? &temp~1187093766~709) (let ((&e~1187093766~686 &temp~1187093766~709)) (let ((&temp~1187093766~707 (cdr &input~1187093766~568))) (let ((&r~1187093766~687 &temp~1187093766~707)) (if (= &level~1187093766~566 0) (let ((&input~1187093766~690 (list (&expand~1187093766~541 &r~1187093766~687 0) (ex:generate-temporaries &e~1187093766~686)))) (let ((&fail~1187093766~693 (lambda () (ex:invalid-form &input~1187093766~690)))) (if (pair? &input~1187093766~690) (let ((&temp~1187093766~702 (car &input~1187093766~690))) (if (pair? &temp~1187093766~702) (let ((&temp~1187093766~706 (car &temp~1187093766~702))) (let ((&r*~1187093766~694 &temp~1187093766~706)) (let ((&temp~1187093766~703 (cdr &temp~1187093766~702))) (if (pair? &temp~1187093766~703) (let ((&temp~1187093766~705 (car &temp~1187093766~703))) (if (list? &temp~1187093766~705) (let ((&rep~1187093766~695 &temp~1187093766~705)) (let ((&temp~1187093766~704 (cdr &temp~1187093766~703))) (if (null? &temp~1187093766~704) (let ((&temp~1187093766~699 (cdr &input~1187093766~690))) (if (pair? &temp~1187093766~699) (let ((&temp~1187093766~701 (car &temp~1187093766~699))) (if (list? &temp~1187093766~701) (let ((&t~1187093766~696 &temp~1187093766~701)) (let ((&temp~1187093766~700 (cdr &temp~1187093766~699))) (if (null? &temp~1187093766~700) (begin (cons (append &t~1187093766~696 &r*~1187093766~694) (cons (append (map (lambda (&t~1187093766~696 &e~1187093766~686) (cons &t~1187093766~696 (cons &e~1187093766~686 '()))) &t~1187093766~696 &e~1187093766~686) &rep~1187093766~695) '()))) (&fail~1187093766~693)))) (&fail~1187093766~693))) (&fail~1187093766~693))) (&fail~1187093766~693)))) (&fail~1187093766~693))) (&fail~1187093766~693))))) (&fail~1187093766~693))) (&fail~1187093766~693)))) (&fail~1187093766~571))))) (&fail~1187093766~571))) (&fail~1187093766~571))) (&fail~1187093766~571))) (&fail~1187093766~571)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~726 (car &input~1187093766~568))) (if (and (ex:identifier? &temp~1187093766~726) (ex:free-identifier=? &temp~1187093766~726 (ex:syntax-rename 'unsyntax '() '(&env~1187093766~727) 0 '(core quasisyntax)))) (let ((&temp~1187093766~723 (cdr &input~1187093766~568))) (if (pair? &temp~1187093766~723) (let ((&temp~1187093766~725 (car &temp~1187093766~723))) (let ((&e~1187093766~712 &temp~1187093766~725)) (let ((&temp~1187093766~724 (cdr &temp~1187093766~723))) (if (null? &temp~1187093766~724) (if (= &level~1187093766~566 0) (let ((&input~1187093766~715 (ex:generate-temporaries '(t)))) (let ((&fail~1187093766~717 (lambda () (ex:invalid-form &input~1187093766~715)))) (if (pair? &input~1187093766~715) (let ((&temp~1187093766~722 (car &input~1187093766~715))) (let ((&t~1187093766~718 &temp~1187093766~722)) (let ((&temp~1187093766~721 (cdr &input~1187093766~715))) (if (null? &temp~1187093766~721) (begin (cons &t~1187093766~718 (cons (cons (cons &t~1187093766~718 (cons &e~1187093766~712 '())) '()) '()))) (&fail~1187093766~717))))) (&fail~1187093766~717)))) (&fail~1187093766~570)) (&fail~1187093766~570))))) (&fail~1187093766~570))) (&fail~1187093766~570))) (&fail~1187093766~570)))))) (if (pair? &input~1187093766~568) (let ((&temp~1187093766~754 (car &input~1187093766~568))) (if (and (ex:identifier? &temp~1187093766~754) (ex:free-identifier=? &temp~1187093766~754 (ex:syntax-rename 'quasisyntax '() '(&env~1187093766~755) 0 '(core quasisyntax)))) (let ((&temp~1187093766~751 (cdr &input~1187093766~568))) (if (pair? &temp~1187093766~751) (let ((&temp~1187093766~753 (car &temp~1187093766~751))) (let ((&e~1187093766~728 &temp~1187093766~753)) (let ((&temp~1187093766~752 (cdr &temp~1187093766~751))) (if (null? &temp~1187093766~752) (let ((&input~1187093766~731 (list &x~1187093766~565 (&expand~1187093766~541 &e~1187093766~728 (+ &level~1187093766~566 1))))) (let ((&fail~1187093766~733 (lambda () (ex:invalid-form &input~1187093766~731)))) (if (pair? &input~1187093766~731) (let ((&temp~1187093766~746 (car &input~1187093766~731))) (if (pair? &temp~1187093766~746) (let ((&temp~1187093766~750 (car &temp~1187093766~746))) (let ((&k~1187093766~734 &temp~1187093766~750)) (let ((&temp~1187093766~747 (cdr &temp~1187093766~746))) (if (pair? &temp~1187093766~747) (let ((&temp~1187093766~749 (car &temp~1187093766~747))) (let ((&temp~1187093766~748 (cdr &temp~1187093766~747))) (if (null? &temp~1187093766~748) (let ((&temp~1187093766~739 (cdr &input~1187093766~731))) (if (pair? &temp~1187093766~739) (let ((&temp~1187093766~741 (car &temp~1187093766~739))) (if (pair? &temp~1187093766~741) (let ((&temp~1187093766~745 (car &temp~1187093766~741))) (let ((&e*~1187093766~735 &temp~1187093766~745)) (let ((&temp~1187093766~742 (cdr &temp~1187093766~741))) (if (pair? &temp~1187093766~742) (let ((&temp~1187093766~744 (car &temp~1187093766~742))) (let ((&reps~1187093766~736 &temp~1187093766~744)) (let ((&temp~1187093766~743 (cdr &temp~1187093766~742))) (if (null? &temp~1187093766~743) (let ((&temp~1187093766~740 (cdr &temp~1187093766~739))) (if (null? &temp~1187093766~740) (begin (cons (cons &k~1187093766~734 (cons &e*~1187093766~735 '())) (cons &reps~1187093766~736 '()))) (&fail~1187093766~733))) (&fail~1187093766~733))))) (&fail~1187093766~733))))) (&fail~1187093766~733))) (&fail~1187093766~733))) (&fail~1187093766~733)))) (&fail~1187093766~733))))) (&fail~1187093766~733))) (&fail~1187093766~733)))) (&fail~1187093766~569))))) (&fail~1187093766~569))) (&fail~1187093766~569))) (&fail~1187093766~569)))))) (let ((&input~1187093766~543 &e~1187093766~540)) (let ((&fail~1187093766~544 (lambda () (ex:invalid-form &input~1187093766~543)))) (if (pair? &input~1187093766~543) (let ((&temp~1187093766~563 (car &input~1187093766~543))) (let ((&temp~1187093766~560 (cdr &input~1187093766~543))) (if (pair? &temp~1187093766~560) (let ((&temp~1187093766~562 (car &temp~1187093766~560))) (let ((&template~1187093766~545 &temp~1187093766~562)) (let ((&temp~1187093766~561 (cdr &temp~1187093766~560))) (if (null? &temp~1187093766~561) (let ((&input~1187093766~548 (&expand~1187093766~541 &template~1187093766~545 0))) (let ((&fail~1187093766~550 (lambda () (ex:invalid-form &input~1187093766~548)))) (if (pair? &input~1187093766~548) (let ((&temp~1187093766~559 (car &input~1187093766~548))) (let ((&template*~1187093766~551 &temp~1187093766~559)) (let ((&temp~1187093766~556 (cdr &input~1187093766~548))) (if (pair? &temp~1187093766~556) (let ((&temp~1187093766~558 (car &temp~1187093766~556))) (let ((&replacements~1187093766~552 &temp~1187093766~558)) (let ((&temp~1187093766~557 (cdr &temp~1187093766~556))) (if (null? &temp~1187093766~557) (begin (cons (ex:syntax-rename 'with-syntax '() '(&env~1187093766~555) 0 '(core quasisyntax)) (cons &replacements~1187093766~552 (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~555) 0 '(core quasisyntax)) (cons &template*~1187093766~551 '())) '())))) (&fail~1187093766~550))))) (&fail~1187093766~550))))) (&fail~1187093766~550)))) (&fail~1187093766~544))))) (&fail~1187093766~544)))) (&fail~1187093766~544))))) ex:undefined))) (ex:register-macro! '&unsyntax~1187093766~756 (lambda (&e~1187093766~758) (ex:syntax-violation 'unsyntax "Invalid expression" &e~1187093766~758))) (ex:register-macro! '&unsyntax-splicing~1187093766~760 (lambda (&e~1187093766~762) (ex:syntax-violation 'unsyntax "Invalid expression" &e~1187093766~762))) (values)) (lambda () (values)) '&build~1187093766~764)) (values)) (begin (ex:register-library! (ex:make-library '(core quasiquote) (lambda () (ex:uncompress '(((&env~1187093766~1193 0 1 2 3 4 5) (&env~1187093766~1183 6 1 2 3 4 5) (&env~1187093766~1174 7 8 1 2 3 4 5) (&env~1187093766~1164 9 8 1 2 3 4 5) (&env~1187093766~1127 10 11 12 13 3 4 5) (&env~1187093766~1117 14 11 12 13 3 4 5) (&env~1187093766~904 15 16 17 3 4 5) (&env~1187093766~899 18 19 16 17 3 4 5) (&env~1187093766~876 20 21 22 23 24 25 16 17 3 4 5) (&env~1187093766~844 26 27 16 17 3 4 5) (&env~1187093766~830 28 29 16 17 3 4 5) (&env~1187093766~814 30 31 16 17 3 4 5)) (31 (((x) . #f))) (30 (((temp &c~1187093766~805) . #f))) (29 (((x) . #f))) (28 (((temp &c~1187093766~821) . #f))) (27 (((x) . #f))) (26 (((temp &c~1187093766~835) . #f))) (25 (((x) . #f) ((y) . #f))) (24 (((f) variable &f~1187093766~854 (1) #t (core quasiquote)))) (23 ()) (22 (((x*) variable &x*~1187093766~862 (1) #f (core quasiquote)))) (21 ()) (20 (((temp &c~1187093766~867) . #f) ((temp &c~1187093766~866) . #f))) (19 (((x) . #f))) (18 (((temp &c~1187093766~890) . #f))) (17 (((x) variable &x~1187093766~787 (1) #f (core quasiquote)))) (16 ()) (15 (((x) . #f))) (14 (((p) . #f))) (13 (((p) variable &p~1187093766~1095 (1) #f (core quasiquote)) ((lev) variable &lev~1187093766~1096 (1) #f (core quasiquote)))) (12 ()) (11 (((p) . #f) ((q) . #f))) (10 (((p) . #f))) (9 (((p) . #f))) (8 (((p) . #f) ((q) . #f))) (7 (((p) . #f))) (6 (((p) . #f))) (5 (((unquote-splicing) macro &unquote-splicing~1187093766~1203 (0) #f (core quasiquote)) ((unquote) macro &unquote~1187093766~1199 (0) #f (core quasiquote)) ((quasiquote) macro &quasiquote~1187093766~765 (0) #f (core quasiquote)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((map) variable map (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list) variable list (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((append) variable append (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 ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((letrec*) macro &letrec*~1187093766~180 (1 0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (1 0) #f (core let)) ((let) macro &let~1187093766~100 (1 0) #f (core let)) ((=>) macro &=>~1187093766~483 (1 0) #f (core derived)) ((else) macro &else~1187093766~487 (1 0) #f (core derived)) ((case) macro &case~1187093766~403 (1 0) #f (core derived)) ((cond) macro &cond~1187093766~287 (1 0) #f (core derived)) ((let*) macro &let*~1187093766~206 (1 0) #f (core derived)) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)) ((unsyntax-splicing) macro &unsyntax-splicing~1187093766~760 (1) #f (core quasisyntax)) ((unsyntax) macro &unsyntax~1187093766~756 (1) #f (core quasisyntax)) ((quasisyntax) macro &quasisyntax~1187093766~538 (1) #f (core quasisyntax)))) (4 ()) (3 (((emit) variable &emit~1187093766~774 (1) #f (core quasiquote)) ((quasivector) variable &quasivector~1187093766~773 (1) #f (core quasiquote)) ((quasilist*) variable &quasilist*~1187093766~772 (1) #f (core quasiquote)) ((quasiappend) variable &quasiappend~1187093766~771 (1) #f (core quasiquote)) ((quasicons) variable &quasicons~1187093766~770 (1) #f (core quasiquote)) ((vquasi) variable &vquasi~1187093766~769 (1) #f (core quasiquote)) ((quasi) variable &quasi~1187093766~768 (1) #f (core quasiquote)))) (2 (((p) variable &p~1187093766~1135 (1) #f (core quasiquote)) ((lev) variable &lev~1187093766~1136 (1) #f (core quasiquote)))) (1 ()) (0 (((p) . #f)))))) '((quasiquote macro &quasiquote~1187093766~765 (0) #f (core quasiquote)) (unquote macro &unquote~1187093766~1199 (0) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1187093766~1203 (0) #f (core quasiquote))) '(((core quasisyntax) 1) ((core with-syntax) 1) ((core derived) 1 0) ((core let) 1 0) ((core primitives) 1 0)) '(&build~1187093766~764 &build~1187093766~57 &build~1187093766~491 &build~1187093766~205 &build~1187093766~2) (lambda () (ex:register-macro! '&quasiquote~1187093766~765 ((lambda () ((lambda (&emit~1187093766~774 &quasivector~1187093766~773 &quasilist*~1187093766~772 &quasiappend~1187093766~771 &quasicons~1187093766~770 &vquasi~1187093766~769 &quasi~1187093766~768) (set! &quasi~1187093766~768 (lambda (&p~1187093766~1135 &lev~1187093766~1136) (let ((&input~1187093766~1138 &p~1187093766~1135)) (let ((&fail~1187093766~1139 (lambda () (let ((&fail~1187093766~1140 (lambda () (let ((&fail~1187093766~1141 (lambda () (let ((&fail~1187093766~1142 (lambda () (let ((&fail~1187093766~1143 (lambda () (ex:invalid-form &input~1187093766~1138)))) (let ((&p~1187093766~1144 &input~1187093766~1138)) (cons '"quote" (cons &p~1187093766~1144 '()))))))) (if (vector? &input~1187093766~1138) (let ((&temp~1187093766~1148 (vector->list &input~1187093766~1138))) (if (list? &temp~1187093766~1148) (let ((&x~1187093766~1146 &temp~1187093766~1148)) (&quasivector~1187093766~773 (&vquasi~1187093766~769 &x~1187093766~1146 &lev~1187093766~1136))) (&fail~1187093766~1142))) (&fail~1187093766~1142)))))) (if (pair? &input~1187093766~1138) (let ((&temp~1187093766~1180 (car &input~1187093766~1138))) (let ((&p~1187093766~1149 &temp~1187093766~1180)) (let ((&temp~1187093766~1179 (cdr &input~1187093766~1138))) (let ((&q~1187093766~1150 &temp~1187093766~1179)) (let ((&input~1187093766~1152 &p~1187093766~1149)) (let ((&fail~1187093766~1154 (lambda () (let ((&fail~1187093766~1155 (lambda () (let ((&fail~1187093766~1156 (lambda () (ex:invalid-form &input~1187093766~1152)))) (&quasicons~1187093766~770 (&quasi~1187093766~768 &p~1187093766~1149 &lev~1187093766~1136) (&quasi~1187093766~768 &q~1187093766~1150 &lev~1187093766~1136)))))) (if (pair? &input~1187093766~1152) (let ((&temp~1187093766~1168 (car &input~1187093766~1152))) (if (and (ex:identifier? &temp~1187093766~1168) (ex:free-identifier=? &temp~1187093766~1168 (ex:syntax-rename 'unquote-splicing '() '(&env~1187093766~1164) 0 '(core quasiquote)))) (let ((&temp~1187093766~1167 (cdr &input~1187093766~1152))) (if (list? &temp~1187093766~1167) (let ((&p~1187093766~1159 &temp~1187093766~1167)) (if (= &lev~1187093766~1136 0) (&quasiappend~1187093766~771 (map (lambda (&p~1187093766~1159) (cons '"value" (cons &p~1187093766~1159 '()))) &p~1187093766~1159) (&quasi~1187093766~768 &q~1187093766~1150 &lev~1187093766~1136)) (&quasicons~1187093766~770 (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'unquote-splicing '() '(&env~1187093766~1164) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 &p~1187093766~1159 (- &lev~1187093766~1136 1))) (&quasi~1187093766~768 &q~1187093766~1150 &lev~1187093766~1136)))) (&fail~1187093766~1155))) (&fail~1187093766~1155))) (&fail~1187093766~1155)))))) (if (pair? &input~1187093766~1152) (let ((&temp~1187093766~1178 (car &input~1187093766~1152))) (if (and (ex:identifier? &temp~1187093766~1178) (ex:free-identifier=? &temp~1187093766~1178 (ex:syntax-rename 'unquote '() '(&env~1187093766~1174) 0 '(core quasiquote)))) (let ((&temp~1187093766~1177 (cdr &input~1187093766~1152))) (if (list? &temp~1187093766~1177) (let ((&p~1187093766~1169 &temp~1187093766~1177)) (if (= &lev~1187093766~1136 0) (&quasilist*~1187093766~772 (map (lambda (&p~1187093766~1169) (cons '"value" (cons &p~1187093766~1169 '()))) &p~1187093766~1169) (&quasi~1187093766~768 &q~1187093766~1150 &lev~1187093766~1136)) (&quasicons~1187093766~770 (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'unquote '() '(&env~1187093766~1174) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 &p~1187093766~1169 (- &lev~1187093766~1136 1))) (&quasi~1187093766~768 &q~1187093766~1150 &lev~1187093766~1136)))) (&fail~1187093766~1154))) (&fail~1187093766~1154))) (&fail~1187093766~1154)))))))) (&fail~1187093766~1141)))))) (if (pair? &input~1187093766~1138) (let ((&temp~1187093766~1188 (car &input~1187093766~1138))) (if (and (ex:identifier? &temp~1187093766~1188) (ex:free-identifier=? &temp~1187093766~1188 (ex:syntax-rename 'quasiquote '() '(&env~1187093766~1183) 0 '(core quasiquote)))) (let ((&temp~1187093766~1185 (cdr &input~1187093766~1138))) (if (pair? &temp~1187093766~1185) (let ((&temp~1187093766~1187 (car &temp~1187093766~1185))) (let ((&p~1187093766~1181 &temp~1187093766~1187)) (let ((&temp~1187093766~1186 (cdr &temp~1187093766~1185))) (if (null? &temp~1187093766~1186) (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'quasiquote '() '(&env~1187093766~1183) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 (cons &p~1187093766~1181 '()) (+ &lev~1187093766~1136 1))) (&fail~1187093766~1140))))) (&fail~1187093766~1140))) (&fail~1187093766~1140))) (&fail~1187093766~1140)))))) (if (pair? &input~1187093766~1138) (let ((&temp~1187093766~1198 (car &input~1187093766~1138))) (if (and (ex:identifier? &temp~1187093766~1198) (ex:free-identifier=? &temp~1187093766~1198 (ex:syntax-rename 'unquote '() '(&env~1187093766~1193) 0 '(core quasiquote)))) (let ((&temp~1187093766~1195 (cdr &input~1187093766~1138))) (if (pair? &temp~1187093766~1195) (let ((&temp~1187093766~1197 (car &temp~1187093766~1195))) (let ((&p~1187093766~1189 &temp~1187093766~1197)) (let ((&temp~1187093766~1196 (cdr &temp~1187093766~1195))) (if (null? &temp~1187093766~1196) (if (= &lev~1187093766~1136 0) (cons '"value" (cons &p~1187093766~1189 '())) (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'unquote '() '(&env~1187093766~1193) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 (cons &p~1187093766~1189 '()) (- &lev~1187093766~1136 1)))) (&fail~1187093766~1139))))) (&fail~1187093766~1139))) (&fail~1187093766~1139))) (&fail~1187093766~1139)))))) (set! &vquasi~1187093766~769 (lambda (&p~1187093766~1095 &lev~1187093766~1096) (let ((&input~1187093766~1098 &p~1187093766~1095)) (let ((&fail~1187093766~1099 (lambda () (let ((&fail~1187093766~1100 (lambda () (ex:invalid-form &input~1187093766~1098)))) (if (null? &input~1187093766~1098) (cons '"quote" (cons '() '())) (&fail~1187093766~1100)))))) (if (pair? &input~1187093766~1098) (let ((&temp~1187093766~1133 (car &input~1187093766~1098))) (let ((&p~1187093766~1102 &temp~1187093766~1133)) (let ((&temp~1187093766~1132 (cdr &input~1187093766~1098))) (let ((&q~1187093766~1103 &temp~1187093766~1132)) (let ((&input~1187093766~1105 &p~1187093766~1102)) (let ((&fail~1187093766~1107 (lambda () (let ((&fail~1187093766~1108 (lambda () (let ((&fail~1187093766~1109 (lambda () (ex:invalid-form &input~1187093766~1105)))) (&quasicons~1187093766~770 (&quasi~1187093766~768 &p~1187093766~1102 &lev~1187093766~1096) (&vquasi~1187093766~769 &q~1187093766~1103 &lev~1187093766~1096)))))) (if (pair? &input~1187093766~1105) (let ((&temp~1187093766~1121 (car &input~1187093766~1105))) (if (and (ex:identifier? &temp~1187093766~1121) (ex:free-identifier=? &temp~1187093766~1121 (ex:syntax-rename 'unquote-splicing '() '(&env~1187093766~1117) 0 '(core quasiquote)))) (let ((&temp~1187093766~1120 (cdr &input~1187093766~1105))) (if (list? &temp~1187093766~1120) (let ((&p~1187093766~1112 &temp~1187093766~1120)) (if (= &lev~1187093766~1096 0) (&quasiappend~1187093766~771 (map (lambda (&p~1187093766~1112) (cons '"value" (cons &p~1187093766~1112 '()))) &p~1187093766~1112) (&vquasi~1187093766~769 &q~1187093766~1103 &lev~1187093766~1096)) (&quasicons~1187093766~770 (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'unquote-splicing '() '(&env~1187093766~1117) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 &p~1187093766~1112 (- &lev~1187093766~1096 1))) (&vquasi~1187093766~769 &q~1187093766~1103 &lev~1187093766~1096)))) (&fail~1187093766~1108))) (&fail~1187093766~1108))) (&fail~1187093766~1108)))))) (if (pair? &input~1187093766~1105) (let ((&temp~1187093766~1131 (car &input~1187093766~1105))) (if (and (ex:identifier? &temp~1187093766~1131) (ex:free-identifier=? &temp~1187093766~1131 (ex:syntax-rename 'unquote '() '(&env~1187093766~1127) 0 '(core quasiquote)))) (let ((&temp~1187093766~1130 (cdr &input~1187093766~1105))) (if (list? &temp~1187093766~1130) (let ((&p~1187093766~1122 &temp~1187093766~1130)) (if (= &lev~1187093766~1096 0) (&quasilist*~1187093766~772 (map (lambda (&p~1187093766~1122) (cons '"value" (cons &p~1187093766~1122 '()))) &p~1187093766~1122) (&vquasi~1187093766~769 &q~1187093766~1103 &lev~1187093766~1096)) (&quasicons~1187093766~770 (&quasicons~1187093766~770 (cons '"quote" (cons (ex:syntax-rename 'unquote '() '(&env~1187093766~1127) 0 '(core quasiquote)) '())) (&quasi~1187093766~768 &p~1187093766~1122 (- &lev~1187093766~1096 1))) (&vquasi~1187093766~769 &q~1187093766~1103 &lev~1187093766~1096)))) (&fail~1187093766~1107))) (&fail~1187093766~1107))) (&fail~1187093766~1107)))))))) (&fail~1187093766~1099)))))) (set! &quasicons~1187093766~770 (lambda (&x~1187093766~1045 &y~1187093766~1046) (let ((&input~1187093766~1049 (list &x~1187093766~1045 &y~1187093766~1046))) (let ((&fail~1187093766~1050 (lambda () (ex:invalid-form &input~1187093766~1049)))) (if (pair? &input~1187093766~1049) (let ((&temp~1187093766~1093 (car &input~1187093766~1049))) (let ((&x~1187093766~1051 &temp~1187093766~1093)) (let ((&temp~1187093766~1090 (cdr &input~1187093766~1049))) (if (pair? &temp~1187093766~1090) (let ((&temp~1187093766~1092 (car &temp~1187093766~1090))) (let ((&y~1187093766~1052 &temp~1187093766~1092)) (let ((&temp~1187093766~1091 (cdr &temp~1187093766~1090))) (if (null? &temp~1187093766~1091) (begin (let ((&input~1187093766~1055 &y~1187093766~1052)) (let ((&fail~1187093766~1057 (lambda () (let ((&fail~1187093766~1058 (lambda () (let ((&fail~1187093766~1059 (lambda () (let ((&fail~1187093766~1060 (lambda () (ex:invalid-form &input~1187093766~1055)))) (cons '"list*" (cons &x~1187093766~1051 (cons &y~1187093766~1052 '()))))))) (if (pair? &input~1187093766~1055) (let ((&temp~1187093766~1065 (car &input~1187093766~1055))) (if (equal? &temp~1187093766~1065 '"list*") (let ((&temp~1187093766~1064 (cdr &input~1187093766~1055))) (let ((&stuff~1187093766~1062 &temp~1187093766~1064)) (cons '"list*" (cons &x~1187093766~1051 &stuff~1187093766~1062)))) (&fail~1187093766~1059))) (&fail~1187093766~1059)))))) (if (pair? &input~1187093766~1055) (let ((&temp~1187093766~1069 (car &input~1187093766~1055))) (if (equal? &temp~1187093766~1069 '"list") (let ((&temp~1187093766~1068 (cdr &input~1187093766~1055))) (let ((&stuff~1187093766~1066 &temp~1187093766~1068)) (cons '"list" (cons &x~1187093766~1051 &stuff~1187093766~1066)))) (&fail~1187093766~1058))) (&fail~1187093766~1058)))))) (if (pair? &input~1187093766~1055) (let ((&temp~1187093766~1089 (car &input~1187093766~1055))) (if (equal? &temp~1187093766~1089 '"quote") (let ((&temp~1187093766~1086 (cdr &input~1187093766~1055))) (if (pair? &temp~1187093766~1086) (let ((&temp~1187093766~1088 (car &temp~1187093766~1086))) (let ((&dy~1187093766~1070 &temp~1187093766~1088)) (let ((&temp~1187093766~1087 (cdr &temp~1187093766~1086))) (if (null? &temp~1187093766~1087) (let ((&input~1187093766~1072 &x~1187093766~1051)) (let ((&fail~1187093766~1074 (lambda () (let ((&fail~1187093766~1075 (lambda () (ex:invalid-form &input~1187093766~1072)))) (if (null? &dy~1187093766~1070) (cons '"list" (cons &x~1187093766~1051 '())) (cons '"list*" (cons &x~1187093766~1051 (cons &y~1187093766~1052 '())))))))) (if (pair? &input~1187093766~1072) (let ((&temp~1187093766~1085 (car &input~1187093766~1072))) (if (equal? &temp~1187093766~1085 '"quote") (let ((&temp~1187093766~1082 (cdr &input~1187093766~1072))) (if (pair? &temp~1187093766~1082) (let ((&temp~1187093766~1084 (car &temp~1187093766~1082))) (let ((&dx~1187093766~1080 &temp~1187093766~1084)) (let ((&temp~1187093766~1083 (cdr &temp~1187093766~1082))) (if (null? &temp~1187093766~1083) (cons '"quote" (cons (cons &dx~1187093766~1080 &dy~1187093766~1070) '())) (&fail~1187093766~1074))))) (&fail~1187093766~1074))) (&fail~1187093766~1074))) (&fail~1187093766~1074)))) (&fail~1187093766~1057))))) (&fail~1187093766~1057))) (&fail~1187093766~1057))) (&fail~1187093766~1057))))) (&fail~1187093766~1050))))) (&fail~1187093766~1050))))) (&fail~1187093766~1050)))))) (set! &quasiappend~1187093766~771 (lambda (&x~1187093766~1004 &y~1187093766~1005) (let ((&input~1187093766~1007 &y~1187093766~1005)) (let ((&fail~1187093766~1008 (lambda () (let ((&fail~1187093766~1009 (lambda () (ex:invalid-form &input~1187093766~1007)))) (if (null? &x~1187093766~1004) (begin &y~1187093766~1005) (begin (let ((&input~1187093766~1016 (list &x~1187093766~1004 &y~1187093766~1005))) (let ((&fail~1187093766~1017 (lambda () (ex:invalid-form &input~1187093766~1016)))) (if (pair? &input~1187093766~1016) (let ((&temp~1187093766~1025 (car &input~1187093766~1016))) (if (list? &temp~1187093766~1025) (let ((&p~1187093766~1018 &temp~1187093766~1025)) (let ((&temp~1187093766~1022 (cdr &input~1187093766~1016))) (if (pair? &temp~1187093766~1022) (let ((&temp~1187093766~1024 (car &temp~1187093766~1022))) (let ((&y~1187093766~1019 &temp~1187093766~1024)) (let ((&temp~1187093766~1023 (cdr &temp~1187093766~1022))) (if (null? &temp~1187093766~1023) (begin (cons '"append" (append &p~1187093766~1018 (cons &y~1187093766~1019 '())))) (&fail~1187093766~1017))))) (&fail~1187093766~1017)))) (&fail~1187093766~1017))) (&fail~1187093766~1017)))))))))) (if (pair? &input~1187093766~1007) (let ((&temp~1187093766~1043 (car &input~1187093766~1007))) (if (equal? &temp~1187093766~1043 '"quote") (let ((&temp~1187093766~1040 (cdr &input~1187093766~1007))) (if (pair? &temp~1187093766~1040) (let ((&temp~1187093766~1042 (car &temp~1187093766~1040))) (if (null? &temp~1187093766~1042) (let ((&temp~1187093766~1041 (cdr &temp~1187093766~1040))) (if (null? &temp~1187093766~1041) (if (null? &x~1187093766~1004) (begin (cons '"quote" (cons '() '()))) (if (null? (cdr &x~1187093766~1004)) (begin (car &x~1187093766~1004)) (begin (let ((&input~1187093766~1035 &x~1187093766~1004)) (let ((&fail~1187093766~1036 (lambda () (ex:invalid-form &input~1187093766~1035)))) (if (list? &input~1187093766~1035) (let ((&p~1187093766~1037 &input~1187093766~1035)) (begin (cons '"append" &p~1187093766~1037))) (&fail~1187093766~1036))))))) (&fail~1187093766~1008))) (&fail~1187093766~1008))) (&fail~1187093766~1008))) (&fail~1187093766~1008))) (&fail~1187093766~1008)))))) (set! &quasilist*~1187093766~772 (lambda (&x~1187093766~986 &y~1187093766~987) (((lambda (&f~1187093766~993) ((lambda (&temp~1187093766~996) (set! &f~1187093766~993 &temp~1187093766~996) ((lambda () &f~1187093766~993))) (lambda (&x~1187093766~1001) (if (null? &x~1187093766~1001) &y~1187093766~987 (&quasicons~1187093766~770 (car &x~1187093766~1001) (&f~1187093766~993 (cdr &x~1187093766~1001))))))) &unspecified~1187093766~179) &x~1187093766~986))) (set! &quasivector~1187093766~773 (lambda (&x~1187093766~910) (let ((&input~1187093766~912 &x~1187093766~910)) (let ((&fail~1187093766~913 (lambda () (let ((&fail~1187093766~914 (lambda () (ex:invalid-form &input~1187093766~912)))) (((lambda (&f~1187093766~920) ((lambda (&temp~1187093766~923) (set! &f~1187093766~920 &temp~1187093766~923) ((lambda () &f~1187093766~920))) (lambda (&y~1187093766~928 &k~1187093766~929) (let ((&input~1187093766~931 &y~1187093766~928)) (let ((&fail~1187093766~932 (lambda () (let ((&fail~1187093766~933 (lambda () (let ((&fail~1187093766~934 (lambda () (let ((&fail~1187093766~935 (lambda () (ex:invalid-form &input~1187093766~931)))) (let ((&else~1187093766~936 &input~1187093766~931)) (let ((&input~1187093766~941 &x~1187093766~910)) (let ((&fail~1187093766~942 (lambda () (ex:invalid-form &input~1187093766~941)))) (let ((&temp~1187093766~943 &input~1187093766~941)) (begin (cons '"list->vector" (cons &temp~1187093766~943 '()))))))))))) (if (pair? &input~1187093766~931) (let ((&temp~1187093766~957 (car &input~1187093766~931))) (if (equal? &temp~1187093766~957 '"list*") (let ((&temp~1187093766~952 (cdr &input~1187093766~931))) (if (>= (ex:dotted-length &temp~1187093766~952) 1) (let ((&temp~1187093766~956 (ex:dotted-butlast &temp~1187093766~952 1))) (if (list? &temp~1187093766~956) (let ((&y~1187093766~946 &temp~1187093766~956)) (let ((&temp~1187093766~953 (ex:dotted-last &temp~1187093766~952 1))) (if (pair? &temp~1187093766~953) (let ((&temp~1187093766~955 (car &temp~1187093766~953))) (let ((&z~1187093766~947 &temp~1187093766~955)) (let ((&temp~1187093766~954 (cdr &temp~1187093766~953))) (if (null? &temp~1187093766~954) (&f~1187093766~920 &z~1187093766~947 (lambda (&ls~1187093766~950) (&k~1187093766~929 (append &y~1187093766~946 &ls~1187093766~950)))) (&fail~1187093766~934))))) (&fail~1187093766~934)))) (&fail~1187093766~934))) (&fail~1187093766~934))) (&fail~1187093766~934))) (&fail~1187093766~934)))))) (if (pair? &input~1187093766~931) (let ((&temp~1187093766~961 (car &input~1187093766~931))) (if (equal? &temp~1187093766~961 '"list") (let ((&temp~1187093766~960 (cdr &input~1187093766~931))) (if (list? &temp~1187093766~960) (let ((&y~1187093766~958 &temp~1187093766~960)) (&k~1187093766~929 &y~1187093766~958)) (&fail~1187093766~933))) (&fail~1187093766~933))) (&fail~1187093766~933)))))) (if (pair? &input~1187093766~931) (let ((&temp~1187093766~967 (car &input~1187093766~931))) (if (equal? &temp~1187093766~967 '"quote") (let ((&temp~1187093766~964 (cdr &input~1187093766~931))) (if (pair? &temp~1187093766~964) (let ((&temp~1187093766~966 (car &temp~1187093766~964))) (if (list? &temp~1187093766~966) (let ((&y~1187093766~962 &temp~1187093766~966)) (let ((&temp~1187093766~965 (cdr &temp~1187093766~964))) (if (null? &temp~1187093766~965) (&k~1187093766~929 (map (lambda (&y~1187093766~962) (cons '"quote" (cons &y~1187093766~962 '()))) &y~1187093766~962)) (&fail~1187093766~932)))) (&fail~1187093766~932))) (&fail~1187093766~932))) (&fail~1187093766~932))) (&fail~1187093766~932))))))) &unspecified~1187093766~179) &x~1187093766~910 (lambda (&ls~1187093766~969) (let ((&input~1187093766~974 &ls~1187093766~969)) (let ((&fail~1187093766~975 (lambda () (ex:invalid-form &input~1187093766~974)))) (if (list? &input~1187093766~974) (let ((&temp~1187093766~976 &input~1187093766~974)) (begin (cons '"vector" &temp~1187093766~976))) (&fail~1187093766~975)))))))))) (if (pair? &input~1187093766~912) (let ((&temp~1187093766~984 (car &input~1187093766~912))) (if (equal? &temp~1187093766~984 '"quote") (let ((&temp~1187093766~981 (cdr &input~1187093766~912))) (if (pair? &temp~1187093766~981) (let ((&temp~1187093766~983 (car &temp~1187093766~981))) (if (list? &temp~1187093766~983) (let ((&x~1187093766~979 &temp~1187093766~983)) (let ((&temp~1187093766~982 (cdr &temp~1187093766~981))) (if (null? &temp~1187093766~982) (cons '"quote" (cons (list->vector &x~1187093766~979) '())) (&fail~1187093766~913)))) (&fail~1187093766~913))) (&fail~1187093766~913))) (&fail~1187093766~913))) (&fail~1187093766~913)))))) (set! &emit~1187093766~774 (lambda (&x~1187093766~787) (let ((&input~1187093766~789 &x~1187093766~787)) (let ((&fail~1187093766~790 (lambda () (let ((&fail~1187093766~791 (lambda () (let ((&fail~1187093766~792 (lambda () (let ((&fail~1187093766~793 (lambda () (let ((&fail~1187093766~794 (lambda () (let ((&fail~1187093766~795 (lambda () (let ((&fail~1187093766~796 (lambda () (ex:invalid-form &input~1187093766~789)))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~802 (car &input~1187093766~789))) (if (equal? &temp~1187093766~802 '"value") (let ((&temp~1187093766~799 (cdr &input~1187093766~789))) (if (pair? &temp~1187093766~799) (let ((&temp~1187093766~801 (car &temp~1187093766~799))) (let ((&x~1187093766~797 &temp~1187093766~801)) (let ((&temp~1187093766~800 (cdr &temp~1187093766~799))) (if (null? &temp~1187093766~800) &x~1187093766~797 (&fail~1187093766~796))))) (&fail~1187093766~796))) (&fail~1187093766~796))) (&fail~1187093766~796)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~818 (car &input~1187093766~789))) (if (equal? &temp~1187093766~818 '"list->vector") (let ((&temp~1187093766~815 (cdr &input~1187093766~789))) (if (pair? &temp~1187093766~815) (let ((&temp~1187093766~817 (car &temp~1187093766~815))) (let ((&x~1187093766~803 &temp~1187093766~817)) (let ((&temp~1187093766~816 (cdr &temp~1187093766~815))) (if (null? &temp~1187093766~816) (let ((&input~1187093766~808 (&emit~1187093766~774 &x~1187093766~803))) (let ((&fail~1187093766~810 (lambda () (ex:invalid-form &input~1187093766~808)))) (let ((&temp~1187093766~811 &input~1187093766~808)) (begin (cons (ex:syntax-rename 'list->vector '() '(&env~1187093766~814) 0 '(core quasiquote)) (cons &temp~1187093766~811 '())))))) (&fail~1187093766~795))))) (&fail~1187093766~795))) (&fail~1187093766~795))) (&fail~1187093766~795)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~832 (car &input~1187093766~789))) (if (equal? &temp~1187093766~832 '"vector") (let ((&temp~1187093766~831 (cdr &input~1187093766~789))) (if (list? &temp~1187093766~831) (let ((&x~1187093766~819 &temp~1187093766~831)) (let ((&input~1187093766~824 (map &emit~1187093766~774 &x~1187093766~819))) (let ((&fail~1187093766~826 (lambda () (ex:invalid-form &input~1187093766~824)))) (if (list? &input~1187093766~824) (let ((&temp~1187093766~827 &input~1187093766~824)) (begin (cons (ex:syntax-rename 'vector '() '(&env~1187093766~830) 0 '(core quasiquote)) &temp~1187093766~827))) (&fail~1187093766~826))))) (&fail~1187093766~794))) (&fail~1187093766~794))) (&fail~1187093766~794)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~846 (car &input~1187093766~789))) (if (equal? &temp~1187093766~846 '"append") (let ((&temp~1187093766~845 (cdr &input~1187093766~789))) (if (list? &temp~1187093766~845) (let ((&x~1187093766~833 &temp~1187093766~845)) (let ((&input~1187093766~838 (map &emit~1187093766~774 &x~1187093766~833))) (let ((&fail~1187093766~840 (lambda () (ex:invalid-form &input~1187093766~838)))) (if (list? &input~1187093766~838) (let ((&temp~1187093766~841 &input~1187093766~838)) (begin (cons (ex:syntax-rename 'append '() '(&env~1187093766~844) 0 '(core quasiquote)) &temp~1187093766~841))) (&fail~1187093766~840))))) (&fail~1187093766~793))) (&fail~1187093766~793))) (&fail~1187093766~793)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~887 (car &input~1187093766~789))) (if (equal? &temp~1187093766~887 '"list*") (let ((&temp~1187093766~882 (cdr &input~1187093766~789))) (if (>= (ex:dotted-length &temp~1187093766~882) 1) (let ((&temp~1187093766~886 (ex:dotted-butlast &temp~1187093766~882 1))) (if (list? &temp~1187093766~886) (let ((&x~1187093766~847 &temp~1187093766~886)) (let ((&temp~1187093766~883 (ex:dotted-last &temp~1187093766~882 1))) (if (pair? &temp~1187093766~883) (let ((&temp~1187093766~885 (car &temp~1187093766~883))) (let ((&y~1187093766~848 &temp~1187093766~885)) (let ((&temp~1187093766~884 (cdr &temp~1187093766~883))) (if (null? &temp~1187093766~884) (((lambda (&f~1187093766~854) ((lambda (&temp~1187093766~857) (set! &f~1187093766~854 &temp~1187093766~857) ((lambda () &f~1187093766~854))) (lambda (&x*~1187093766~862) (if (null? &x*~1187093766~862) (&emit~1187093766~774 &y~1187093766~848) (let ((&input~1187093766~870 (list (&emit~1187093766~774 (car &x*~1187093766~862)) (&f~1187093766~854 (cdr &x*~1187093766~862))))) (let ((&fail~1187093766~871 (lambda () (ex:invalid-form &input~1187093766~870)))) (if (pair? &input~1187093766~870) (let ((&temp~1187093766~880 (car &input~1187093766~870))) (let ((&temp~1187093766~872 &temp~1187093766~880)) (let ((&temp~1187093766~877 (cdr &input~1187093766~870))) (if (pair? &temp~1187093766~877) (let ((&temp~1187093766~879 (car &temp~1187093766~877))) (let ((&temp~1187093766~873 &temp~1187093766~879)) (let ((&temp~1187093766~878 (cdr &temp~1187093766~877))) (if (null? &temp~1187093766~878) (begin (cons (ex:syntax-rename 'cons '() '(&env~1187093766~876) 0 '(core quasiquote)) (cons &temp~1187093766~872 (cons &temp~1187093766~873 '())))) (&fail~1187093766~871))))) (&fail~1187093766~871))))) (&fail~1187093766~871)))))))) &unspecified~1187093766~179) &x~1187093766~847) (&fail~1187093766~792))))) (&fail~1187093766~792)))) (&fail~1187093766~792))) (&fail~1187093766~792))) (&fail~1187093766~792))) (&fail~1187093766~792)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~901 (car &input~1187093766~789))) (if (equal? &temp~1187093766~901 '"list") (let ((&temp~1187093766~900 (cdr &input~1187093766~789))) (if (list? &temp~1187093766~900) (let ((&x~1187093766~888 &temp~1187093766~900)) (let ((&input~1187093766~893 (map &emit~1187093766~774 &x~1187093766~888))) (let ((&fail~1187093766~895 (lambda () (ex:invalid-form &input~1187093766~893)))) (if (list? &input~1187093766~893) (let ((&temp~1187093766~896 &input~1187093766~893)) (begin (cons (ex:syntax-rename 'list '() '(&env~1187093766~899) 0 '(core quasiquote)) &temp~1187093766~896))) (&fail~1187093766~895))))) (&fail~1187093766~791))) (&fail~1187093766~791))) (&fail~1187093766~791)))))) (if (pair? &input~1187093766~789) (let ((&temp~1187093766~908 (car &input~1187093766~789))) (if (equal? &temp~1187093766~908 '"quote") (let ((&temp~1187093766~905 (cdr &input~1187093766~789))) (if (pair? &temp~1187093766~905) (let ((&temp~1187093766~907 (car &temp~1187093766~905))) (let ((&x~1187093766~902 &temp~1187093766~907)) (let ((&temp~1187093766~906 (cdr &temp~1187093766~905))) (if (null? &temp~1187093766~906) (cons (ex:syntax-rename 'quote '() '(&env~1187093766~904) 0 '(core quasiquote)) (cons &x~1187093766~902 '())) (&fail~1187093766~790))))) (&fail~1187093766~790))) (&fail~1187093766~790))) (&fail~1187093766~790)))))) (lambda (&x~1187093766~776) (let ((&input~1187093766~778 &x~1187093766~776)) (let ((&fail~1187093766~779 (lambda () (ex:invalid-form &input~1187093766~778)))) (if (pair? &input~1187093766~778) (let ((&temp~1187093766~785 (car &input~1187093766~778))) (let ((&temp~1187093766~782 (cdr &input~1187093766~778))) (if (pair? &temp~1187093766~782) (let ((&temp~1187093766~784 (car &temp~1187093766~782))) (let ((&e~1187093766~780 &temp~1187093766~784)) (let ((&temp~1187093766~783 (cdr &temp~1187093766~782))) (if (null? &temp~1187093766~783) (&emit~1187093766~774 (&quasi~1187093766~768 &e~1187093766~780 0)) (&fail~1187093766~779))))) (&fail~1187093766~779)))) (&fail~1187093766~779)))))) ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined)))) (ex:register-macro! '&unquote~1187093766~1199 (lambda (&e~1187093766~1201) (ex:syntax-violation 'unquote "Invalid expression" &e~1187093766~1201))) (ex:register-macro! '&unquote-splicing~1187093766~1203 (lambda (&e~1187093766~1205) (ex:syntax-violation 'unquote-splicing "Invalid expression" &e~1187093766~1205))) (values)) (lambda () (values)) '&build~1187093766~1207)) (values)) (begin (ex:register-library! (ex:make-library '(core let-values) (lambda () (ex:uncompress '(((&env~1187093766~1375 0 1 2 3) (&env~1187093766~1362 4 1 2 3) (&env~1187093766~1341 5 6 7 3) (&env~1187093766~1325 8 6 7 3) (&env~1187093766~1304 9 6 7 3) (&env~1187093766~1280 10 6 7 3) (&env~1187093766~1254 11 6 7 3) (&env~1187093766~1228 12 6 7 3)) (12 (((dummy &c~1187093766~1209) . #f) ((?a) . #f) ((?e0) . #f) ((?arg) . #f) ((?bindings) . #f) ((?tmp) . #f) ((?body) . #f))) (11 (((dummy &c~1187093766~1209) . #f) ((?a) . #f) ((?b) . #f) ((?e0) . #f) ((?arg) . #f) ((?bindings) . #f) ((?tmp) . #f) ((?body) . #f))) (10 (((dummy &c~1187093766~1209) . #f) ((?e0) . #f) ((?args) . #f) ((?bindings) . #f) ((?tmps) . #f) ((?body) . #f))) (9 (((dummy &c~1187093766~1209) . #f) ((?b0) . #f) ((?e0) . #f) ((?binding) . #f) ((?tmps) . #f) ((?body) . #f))) (8 (((dummy &c~1187093766~1209) . #f) ((?tmps) . #f) ((?body) . #f))) (7 (((x &c~1187093766~1209) variable &x~1187093766~1211 (0) #f (core let-values)))) (6 ()) (5 (((dummy &c~1187093766~1209) . #f) ((?binding) . #f) ((?body0) . #f) ((?body1) . #f))) (4 (((dummy &c~1187093766~1349) . #f) ((?binding0) . #f) ((?binding1) . #f) ((?body0) . #f) ((?body1) . #f))) (3 (((let*-values) macro &let*-values~1187093766~1348 (0) #f (core let-values)) ((let-values) macro &let-values~1187093766~1208 (0) #f (core let-values)) ((call-with-values) variable call-with-values (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((syntax-rules) macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)) ((letrec*) macro &letrec*~1187093766~180 (0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (0) #f (core let)) ((let) macro &let~1187093766~100 (0) #f (core let)))) (2 (((x &c~1187093766~1349) variable &x~1187093766~1351 (0) #f (core let-values)))) (1 ()) (0 (((dummy &c~1187093766~1349) . #f) ((?body0) . #f) ((?body1) . #f)))))) '((let-values macro &let-values~1187093766~1208 (0) #f (core let-values)) (let*-values macro &let*-values~1187093766~1348 (0) #f (core let-values))) '(((core let) 0) ((core syntax-rules) 1) ((core primitives) 1 0)) '(&build~1187093766~205 &build~1187093766~99 &build~1187093766~2) (lambda () (ex:register-macro! '&let-values~1187093766~1208 (lambda (&x~1187093766~1211) (let ((&input~1187093766~1213 &x~1187093766~1211)) (let ((&fail~1187093766~1214 (lambda () (let ((&fail~1187093766~1215 (lambda () (let ((&fail~1187093766~1216 (lambda () (let ((&fail~1187093766~1217 (lambda () (let ((&fail~1187093766~1218 (lambda () (let ((&fail~1187093766~1219 (lambda () (ex:invalid-form &input~1187093766~1213)))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1244 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1220 &temp~1187093766~1244)) (let ((&temp~1187093766~1229 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1229) (let ((&temp~1187093766~1243 (car &temp~1187093766~1229))) (if (equal? &temp~1187093766~1243 '"mktmp") (let ((&temp~1187093766~1230 (cdr &temp~1187093766~1229))) (if (pair? &temp~1187093766~1230) (let ((&temp~1187093766~1242 (car &temp~1187093766~1230))) (let ((&?a~1187093766~1221 &temp~1187093766~1242)) (let ((&temp~1187093766~1231 (cdr &temp~1187093766~1230))) (if (pair? &temp~1187093766~1231) (let ((&temp~1187093766~1241 (car &temp~1187093766~1231))) (let ((&?e0~1187093766~1222 &temp~1187093766~1241)) (let ((&temp~1187093766~1232 (cdr &temp~1187093766~1231))) (if (pair? &temp~1187093766~1232) (let ((&temp~1187093766~1240 (car &temp~1187093766~1232))) (if (list? &temp~1187093766~1240) (let ((&?arg~1187093766~1223 &temp~1187093766~1240)) (let ((&temp~1187093766~1233 (cdr &temp~1187093766~1232))) (if (pair? &temp~1187093766~1233) (let ((&temp~1187093766~1239 (car &temp~1187093766~1233))) (let ((&?bindings~1187093766~1224 &temp~1187093766~1239)) (let ((&temp~1187093766~1234 (cdr &temp~1187093766~1233))) (if (pair? &temp~1187093766~1234) (let ((&temp~1187093766~1238 (car &temp~1187093766~1234))) (if (list? &temp~1187093766~1238) (let ((&?tmp~1187093766~1225 &temp~1187093766~1238)) (let ((&temp~1187093766~1235 (cdr &temp~1187093766~1234))) (if (pair? &temp~1187093766~1235) (let ((&temp~1187093766~1237 (car &temp~1187093766~1235))) (let ((&?body~1187093766~1226 &temp~1187093766~1237)) (let ((&temp~1187093766~1236 (cdr &temp~1187093766~1235))) (if (null? &temp~1187093766~1236) (cons (ex:syntax-rename 'call-with-values '() '(&env~1187093766~1228) 0 '(core let-values)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1228) 0 '(core let-values)) (cons '() (cons &?e0~1187093766~1222 '()))) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1228) 0 '(core let-values)) (cons (append &?arg~1187093766~1223 (ex:syntax-rename 'x '() '(&env~1187093766~1228) 0 '(core let-values))) (cons (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1228) 0 '(core let-values)) (cons '"bind" (cons &?bindings~1187093766~1224 (cons (append &?tmp~1187093766~1225 (cons (cons &?a~1187093766~1221 (cons (ex:syntax-rename 'x '() '(&env~1187093766~1228) 0 '(core let-values)) '())) '())) (cons &?body~1187093766~1226 '()))))) '()))) '()))) (&fail~1187093766~1219))))) (&fail~1187093766~1219)))) (&fail~1187093766~1219))) (&fail~1187093766~1219))))) (&fail~1187093766~1219)))) (&fail~1187093766~1219))) (&fail~1187093766~1219))))) (&fail~1187093766~1219))))) (&fail~1187093766~1219))) (&fail~1187093766~1219))) (&fail~1187093766~1219))))) (&fail~1187093766~1219)))))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1272 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1245 &temp~1187093766~1272)) (let ((&temp~1187093766~1255 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1255) (let ((&temp~1187093766~1271 (car &temp~1187093766~1255))) (if (equal? &temp~1187093766~1271 '"mktmp") (let ((&temp~1187093766~1256 (cdr &temp~1187093766~1255))) (if (pair? &temp~1187093766~1256) (let ((&temp~1187093766~1268 (car &temp~1187093766~1256))) (if (pair? &temp~1187093766~1268) (let ((&temp~1187093766~1270 (car &temp~1187093766~1268))) (let ((&?a~1187093766~1246 &temp~1187093766~1270)) (let ((&temp~1187093766~1269 (cdr &temp~1187093766~1268))) (let ((&?b~1187093766~1247 &temp~1187093766~1269)) (let ((&temp~1187093766~1257 (cdr &temp~1187093766~1256))) (if (pair? &temp~1187093766~1257) (let ((&temp~1187093766~1267 (car &temp~1187093766~1257))) (let ((&?e0~1187093766~1248 &temp~1187093766~1267)) (let ((&temp~1187093766~1258 (cdr &temp~1187093766~1257))) (if (pair? &temp~1187093766~1258) (let ((&temp~1187093766~1266 (car &temp~1187093766~1258))) (if (list? &temp~1187093766~1266) (let ((&?arg~1187093766~1249 &temp~1187093766~1266)) (let ((&temp~1187093766~1259 (cdr &temp~1187093766~1258))) (if (pair? &temp~1187093766~1259) (let ((&temp~1187093766~1265 (car &temp~1187093766~1259))) (let ((&?bindings~1187093766~1250 &temp~1187093766~1265)) (let ((&temp~1187093766~1260 (cdr &temp~1187093766~1259))) (if (pair? &temp~1187093766~1260) (let ((&temp~1187093766~1264 (car &temp~1187093766~1260))) (if (list? &temp~1187093766~1264) (let ((&?tmp~1187093766~1251 &temp~1187093766~1264)) (let ((&temp~1187093766~1261 (cdr &temp~1187093766~1260))) (if (pair? &temp~1187093766~1261) (let ((&temp~1187093766~1263 (car &temp~1187093766~1261))) (let ((&?body~1187093766~1252 &temp~1187093766~1263)) (let ((&temp~1187093766~1262 (cdr &temp~1187093766~1261))) (if (null? &temp~1187093766~1262) (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1254) 0 '(core let-values)) (cons '"mktmp" (cons &?b~1187093766~1247 (cons &?e0~1187093766~1248 (cons (append &?arg~1187093766~1249 (cons (ex:syntax-rename 'x '() '(&env~1187093766~1254) 0 '(core let-values)) '())) (cons &?bindings~1187093766~1250 (cons (append &?tmp~1187093766~1251 (cons (cons &?a~1187093766~1246 (cons (ex:syntax-rename 'x '() '(&env~1187093766~1254) 0 '(core let-values)) '())) '())) (cons &?body~1187093766~1252 '())))))))) (&fail~1187093766~1218))))) (&fail~1187093766~1218)))) (&fail~1187093766~1218))) (&fail~1187093766~1218))))) (&fail~1187093766~1218)))) (&fail~1187093766~1218))) (&fail~1187093766~1218))))) (&fail~1187093766~1218))))))) (&fail~1187093766~1218))) (&fail~1187093766~1218))) (&fail~1187093766~1218))) (&fail~1187093766~1218))))) (&fail~1187093766~1218)))))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1296 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1273 &temp~1187093766~1296)) (let ((&temp~1187093766~1281 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1281) (let ((&temp~1187093766~1295 (car &temp~1187093766~1281))) (if (equal? &temp~1187093766~1295 '"mktmp") (let ((&temp~1187093766~1282 (cdr &temp~1187093766~1281))) (if (pair? &temp~1187093766~1282) (let ((&temp~1187093766~1294 (car &temp~1187093766~1282))) (if (null? &temp~1187093766~1294) (let ((&temp~1187093766~1283 (cdr &temp~1187093766~1282))) (if (pair? &temp~1187093766~1283) (let ((&temp~1187093766~1293 (car &temp~1187093766~1283))) (let ((&?e0~1187093766~1274 &temp~1187093766~1293)) (let ((&temp~1187093766~1284 (cdr &temp~1187093766~1283))) (if (pair? &temp~1187093766~1284) (let ((&temp~1187093766~1292 (car &temp~1187093766~1284))) (let ((&?args~1187093766~1275 &temp~1187093766~1292)) (let ((&temp~1187093766~1285 (cdr &temp~1187093766~1284))) (if (pair? &temp~1187093766~1285) (let ((&temp~1187093766~1291 (car &temp~1187093766~1285))) (let ((&?bindings~1187093766~1276 &temp~1187093766~1291)) (let ((&temp~1187093766~1286 (cdr &temp~1187093766~1285))) (if (pair? &temp~1187093766~1286) (let ((&temp~1187093766~1290 (car &temp~1187093766~1286))) (let ((&?tmps~1187093766~1277 &temp~1187093766~1290)) (let ((&temp~1187093766~1287 (cdr &temp~1187093766~1286))) (if (pair? &temp~1187093766~1287) (let ((&temp~1187093766~1289 (car &temp~1187093766~1287))) (let ((&?body~1187093766~1278 &temp~1187093766~1289)) (let ((&temp~1187093766~1288 (cdr &temp~1187093766~1287))) (if (null? &temp~1187093766~1288) (cons (ex:syntax-rename 'call-with-values '() '(&env~1187093766~1280) 0 '(core let-values)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1280) 0 '(core let-values)) (cons '() (cons &?e0~1187093766~1274 '()))) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1280) 0 '(core let-values)) (cons &?args~1187093766~1275 (cons (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1280) 0 '(core let-values)) (cons '"bind" (cons &?bindings~1187093766~1276 (cons &?tmps~1187093766~1277 (cons &?body~1187093766~1278 '()))))) '()))) '()))) (&fail~1187093766~1217))))) (&fail~1187093766~1217))))) (&fail~1187093766~1217))))) (&fail~1187093766~1217))))) (&fail~1187093766~1217))))) (&fail~1187093766~1217))) (&fail~1187093766~1217))) (&fail~1187093766~1217))) (&fail~1187093766~1217))) (&fail~1187093766~1217))))) (&fail~1187093766~1217)))))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1320 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1297 &temp~1187093766~1320)) (let ((&temp~1187093766~1305 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1305) (let ((&temp~1187093766~1319 (car &temp~1187093766~1305))) (if (equal? &temp~1187093766~1319 '"bind") (let ((&temp~1187093766~1306 (cdr &temp~1187093766~1305))) (if (pair? &temp~1187093766~1306) (let ((&temp~1187093766~1312 (car &temp~1187093766~1306))) (if (pair? &temp~1187093766~1312) (let ((&temp~1187093766~1314 (car &temp~1187093766~1312))) (if (pair? &temp~1187093766~1314) (let ((&temp~1187093766~1318 (car &temp~1187093766~1314))) (let ((&?b0~1187093766~1298 &temp~1187093766~1318)) (let ((&temp~1187093766~1315 (cdr &temp~1187093766~1314))) (if (pair? &temp~1187093766~1315) (let ((&temp~1187093766~1317 (car &temp~1187093766~1315))) (let ((&?e0~1187093766~1299 &temp~1187093766~1317)) (let ((&temp~1187093766~1316 (cdr &temp~1187093766~1315))) (if (null? &temp~1187093766~1316) (let ((&temp~1187093766~1313 (cdr &temp~1187093766~1312))) (if (list? &temp~1187093766~1313) (let ((&?binding~1187093766~1300 &temp~1187093766~1313)) (let ((&temp~1187093766~1307 (cdr &temp~1187093766~1306))) (if (pair? &temp~1187093766~1307) (let ((&temp~1187093766~1311 (car &temp~1187093766~1307))) (let ((&?tmps~1187093766~1301 &temp~1187093766~1311)) (let ((&temp~1187093766~1308 (cdr &temp~1187093766~1307))) (if (pair? &temp~1187093766~1308) (let ((&temp~1187093766~1310 (car &temp~1187093766~1308))) (let ((&?body~1187093766~1302 &temp~1187093766~1310)) (let ((&temp~1187093766~1309 (cdr &temp~1187093766~1308))) (if (null? &temp~1187093766~1309) (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1304) 0 '(core let-values)) (cons '"mktmp" (cons &?b0~1187093766~1298 (cons &?e0~1187093766~1299 (cons '() (cons &?binding~1187093766~1300 (cons &?tmps~1187093766~1301 (cons &?body~1187093766~1302 '())))))))) (&fail~1187093766~1216))))) (&fail~1187093766~1216))))) (&fail~1187093766~1216)))) (&fail~1187093766~1216))) (&fail~1187093766~1216))))) (&fail~1187093766~1216))))) (&fail~1187093766~1216))) (&fail~1187093766~1216))) (&fail~1187093766~1216))) (&fail~1187093766~1216))) (&fail~1187093766~1216))))) (&fail~1187093766~1216)))))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1335 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1321 &temp~1187093766~1335)) (let ((&temp~1187093766~1326 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1326) (let ((&temp~1187093766~1334 (car &temp~1187093766~1326))) (if (equal? &temp~1187093766~1334 '"bind") (let ((&temp~1187093766~1327 (cdr &temp~1187093766~1326))) (if (pair? &temp~1187093766~1327) (let ((&temp~1187093766~1333 (car &temp~1187093766~1327))) (if (null? &temp~1187093766~1333) (let ((&temp~1187093766~1328 (cdr &temp~1187093766~1327))) (if (pair? &temp~1187093766~1328) (let ((&temp~1187093766~1332 (car &temp~1187093766~1328))) (let ((&?tmps~1187093766~1322 &temp~1187093766~1332)) (let ((&temp~1187093766~1329 (cdr &temp~1187093766~1328))) (if (pair? &temp~1187093766~1329) (let ((&temp~1187093766~1331 (car &temp~1187093766~1329))) (let ((&?body~1187093766~1323 &temp~1187093766~1331)) (let ((&temp~1187093766~1330 (cdr &temp~1187093766~1329))) (if (null? &temp~1187093766~1330) (cons (ex:syntax-rename 'let '() '(&env~1187093766~1325) 0 '(core let-values)) (cons &?tmps~1187093766~1322 (cons &?body~1187093766~1323 '()))) (&fail~1187093766~1215))))) (&fail~1187093766~1215))))) (&fail~1187093766~1215))) (&fail~1187093766~1215))) (&fail~1187093766~1215))) (&fail~1187093766~1215))) (&fail~1187093766~1215))))) (&fail~1187093766~1215)))))) (if (pair? &input~1187093766~1213) (let ((&temp~1187093766~1347 (car &input~1187093766~1213))) (let ((&dummy~1187093766~1336 &temp~1187093766~1347)) (let ((&temp~1187093766~1342 (cdr &input~1187093766~1213))) (if (pair? &temp~1187093766~1342) (let ((&temp~1187093766~1346 (car &temp~1187093766~1342))) (if (list? &temp~1187093766~1346) (let ((&?binding~1187093766~1337 &temp~1187093766~1346)) (let ((&temp~1187093766~1343 (cdr &temp~1187093766~1342))) (if (pair? &temp~1187093766~1343) (let ((&temp~1187093766~1345 (car &temp~1187093766~1343))) (let ((&?body0~1187093766~1338 &temp~1187093766~1345)) (let ((&temp~1187093766~1344 (cdr &temp~1187093766~1343))) (if (list? &temp~1187093766~1344) (let ((&?body1~1187093766~1339 &temp~1187093766~1344)) (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1341) 0 '(core let-values)) (cons '"bind" (cons &?binding~1187093766~1337 (cons '() (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1341) 0 '(core let-values)) (cons &?body0~1187093766~1338 &?body1~1187093766~1339)) '())))))) (&fail~1187093766~1214))))) (&fail~1187093766~1214)))) (&fail~1187093766~1214))) (&fail~1187093766~1214))))) (&fail~1187093766~1214)))))) (ex:register-macro! '&let*-values~1187093766~1348 (lambda (&x~1187093766~1351) (let ((&input~1187093766~1353 &x~1187093766~1351)) (let ((&fail~1187093766~1354 (lambda () (let ((&fail~1187093766~1355 (lambda () (ex:invalid-form &input~1187093766~1353)))) (if (pair? &input~1187093766~1353) (let ((&temp~1187093766~1370 (car &input~1187093766~1353))) (let ((&dummy~1187093766~1356 &temp~1187093766~1370)) (let ((&temp~1187093766~1363 (cdr &input~1187093766~1353))) (if (pair? &temp~1187093766~1363) (let ((&temp~1187093766~1367 (car &temp~1187093766~1363))) (if (pair? &temp~1187093766~1367) (let ((&temp~1187093766~1369 (car &temp~1187093766~1367))) (let ((&?binding0~1187093766~1357 &temp~1187093766~1369)) (let ((&temp~1187093766~1368 (cdr &temp~1187093766~1367))) (if (list? &temp~1187093766~1368) (let ((&?binding1~1187093766~1358 &temp~1187093766~1368)) (let ((&temp~1187093766~1364 (cdr &temp~1187093766~1363))) (if (pair? &temp~1187093766~1364) (let ((&temp~1187093766~1366 (car &temp~1187093766~1364))) (let ((&?body0~1187093766~1359 &temp~1187093766~1366)) (let ((&temp~1187093766~1365 (cdr &temp~1187093766~1364))) (if (list? &temp~1187093766~1365) (let ((&?body1~1187093766~1360 &temp~1187093766~1365)) (cons (ex:syntax-rename 'let-values '() '(&env~1187093766~1362) 0 '(core let-values)) (cons (cons &?binding0~1187093766~1357 '()) (cons (cons (ex:syntax-rename 'let*-values '() '(&env~1187093766~1362) 0 '(core let-values)) (cons &?binding1~1187093766~1358 (cons &?body0~1187093766~1359 &?body1~1187093766~1360))) '())))) (&fail~1187093766~1355))))) (&fail~1187093766~1355)))) (&fail~1187093766~1355))))) (&fail~1187093766~1355))) (&fail~1187093766~1355))))) (&fail~1187093766~1355)))))) (if (pair? &input~1187093766~1353) (let ((&temp~1187093766~1381 (car &input~1187093766~1353))) (let ((&dummy~1187093766~1371 &temp~1187093766~1381)) (let ((&temp~1187093766~1376 (cdr &input~1187093766~1353))) (if (pair? &temp~1187093766~1376) (let ((&temp~1187093766~1380 (car &temp~1187093766~1376))) (if (null? &temp~1187093766~1380) (let ((&temp~1187093766~1377 (cdr &temp~1187093766~1376))) (if (pair? &temp~1187093766~1377) (let ((&temp~1187093766~1379 (car &temp~1187093766~1377))) (let ((&?body0~1187093766~1372 &temp~1187093766~1379)) (let ((&temp~1187093766~1378 (cdr &temp~1187093766~1377))) (if (list? &temp~1187093766~1378) (let ((&?body1~1187093766~1373 &temp~1187093766~1378)) (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1375) 0 '(core let-values)) (cons &?body0~1187093766~1372 &?body1~1187093766~1373))) (&fail~1187093766~1354))))) (&fail~1187093766~1354))) (&fail~1187093766~1354))) (&fail~1187093766~1354))))) (&fail~1187093766~1354)))))) (values)) (lambda () (values)) '&build~1187093766~1382)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs control) (lambda () (ex:uncompress '(((&env~1187093766~1600 0 1 2 3) (&env~1187093766~1583 4 1 2 3) (&env~1187093766~1558 5 1 2 3) (&env~1187093766~1535 6 1 2 3) (&env~1187093766~1508 7 8 9 3) (&env~1187093766~1494 10 8 9 3) (&env~1187093766~1466 11 12 13 14 15 3) (&env~1187093766~1462 16 12 13 14 15 3) (&env~1187093766~1414 17 18 19 3) (&env~1187093766~1395 20 21 22 3)) (22 (((x &c~1187093766~1384) variable &x~1187093766~1386 (0) #f (rnrs control)))) (21 ()) (20 (((dummy &c~1187093766~1384) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f))) (19 (((x &c~1187093766~1403) variable &x~1187093766~1405 (0) #f (rnrs control)))) (18 ()) (17 (((dummy &c~1187093766~1403) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f))) (16 (((e1) . #f) ((e2) . #f))) (15 (((orig-x) variable &orig-x~1187093766~1423 (1) #f (rnrs control)))) (14 ()) (13 (((var) . #f) ((init) . #f) ((step) . #f) ((e0) . #f) ((e1) . #f) ((c) . #f))) (12 (((step) . #f))) (11 ()) (10 (((dummy &c~1187093766~1482) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f))) (9 (((x &c~1187093766~1482) variable &x~1187093766~1484 (0) #f (rnrs control)))) (8 ()) (7 (((dummy &c~1187093766~1482) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f))) (6 (((dummy &c~1187093766~1518) . #f) ((args) . #f) ((n) . #f) ((r) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (5 (((dummy &c~1187093766~1518) . #f) ((args) . #f) ((n) . #f) ((x1) . #f) ((x2) . #f) ((r) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (4 (((dummy &c~1187093766~1518) . #f) ((args) . #f) ((n) . #f) ((x) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (3 (((case-lambda-help) macro &case-lambda-help~1187093766~1517 (0) #f (rnrs control)) ((case-lambda) macro &case-lambda~1187093766~1481 (0) #f (rnrs control)) ((do) macro &do~1187093766~1421 (0) #f (rnrs control)) ((unless) macro &unless~1187093766~1402 (0) #f (rnrs control)) ((when) macro &when~1187093766~1383 (0) #f (rnrs control)) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((not) variable not (1 0) #f ()) ((map) variable map (1 0) #f ()) ((length) variable length (1 0) #f ()) ((apply) variable apply (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 ()) ((define-syntax) macro define-syntax (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*~1187093766~180 (1 0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (1 0) #f (core let)) ((let) macro &let~1187093766~100 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)))) (2 (((x &c~1187093766~1518) variable &x~1187093766~1520 (0) #f (rnrs control)))) (1 ()) (0 (((dummy &c~1187093766~1518) . #f) ((args) . #f) ((n) . #f)))))) '((when macro &when~1187093766~1383 (0) #f (rnrs control)) (unless macro &unless~1187093766~1402 (0) #f (rnrs control)) (do macro &do~1187093766~1421 (0) #f (rnrs control)) (case-lambda macro &case-lambda~1187093766~1481 (0) #f (rnrs control))) '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)) '(&build~1187093766~99 &build~1187093766~57 &build~1187093766~205 &build~1187093766~2) (lambda () (ex:register-macro! '&when~1187093766~1383 (lambda (&x~1187093766~1386) (let ((&input~1187093766~1388 &x~1187093766~1386)) (let ((&fail~1187093766~1389 (lambda () (ex:invalid-form &input~1187093766~1388)))) (if (pair? &input~1187093766~1388) (let ((&temp~1187093766~1401 (car &input~1187093766~1388))) (let ((&dummy~1187093766~1390 &temp~1187093766~1401)) (let ((&temp~1187093766~1396 (cdr &input~1187093766~1388))) (if (pair? &temp~1187093766~1396) (let ((&temp~1187093766~1400 (car &temp~1187093766~1396))) (let ((&test~1187093766~1391 &temp~1187093766~1400)) (let ((&temp~1187093766~1397 (cdr &temp~1187093766~1396))) (if (pair? &temp~1187093766~1397) (let ((&temp~1187093766~1399 (car &temp~1187093766~1397))) (let ((&result1~1187093766~1392 &temp~1187093766~1399)) (let ((&temp~1187093766~1398 (cdr &temp~1187093766~1397))) (if (list? &temp~1187093766~1398) (let ((&result2~1187093766~1393 &temp~1187093766~1398)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~1395) 0 '(rnrs control)) (cons &test~1187093766~1391 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1395) 0 '(rnrs control)) (cons &result1~1187093766~1392 &result2~1187093766~1393)) '())))) (&fail~1187093766~1389))))) (&fail~1187093766~1389))))) (&fail~1187093766~1389))))) (&fail~1187093766~1389)))))) (ex:register-macro! '&unless~1187093766~1402 (lambda (&x~1187093766~1405) (let ((&input~1187093766~1407 &x~1187093766~1405)) (let ((&fail~1187093766~1408 (lambda () (ex:invalid-form &input~1187093766~1407)))) (if (pair? &input~1187093766~1407) (let ((&temp~1187093766~1420 (car &input~1187093766~1407))) (let ((&dummy~1187093766~1409 &temp~1187093766~1420)) (let ((&temp~1187093766~1415 (cdr &input~1187093766~1407))) (if (pair? &temp~1187093766~1415) (let ((&temp~1187093766~1419 (car &temp~1187093766~1415))) (let ((&test~1187093766~1410 &temp~1187093766~1419)) (let ((&temp~1187093766~1416 (cdr &temp~1187093766~1415))) (if (pair? &temp~1187093766~1416) (let ((&temp~1187093766~1418 (car &temp~1187093766~1416))) (let ((&result1~1187093766~1411 &temp~1187093766~1418)) (let ((&temp~1187093766~1417 (cdr &temp~1187093766~1416))) (if (list? &temp~1187093766~1417) (let ((&result2~1187093766~1412 &temp~1187093766~1417)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~1414) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'not '() '(&env~1187093766~1414) 0 '(rnrs control)) (cons &test~1187093766~1410 '())) (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1414) 0 '(rnrs control)) (cons &result1~1187093766~1411 &result2~1187093766~1412)) '())))) (&fail~1187093766~1408))))) (&fail~1187093766~1408))))) (&fail~1187093766~1408))))) (&fail~1187093766~1408)))))) (ex:register-macro! '&do~1187093766~1421 (lambda (&orig-x~1187093766~1423) (let ((&input~1187093766~1425 &orig-x~1187093766~1423)) (let ((&fail~1187093766~1426 (lambda () (ex:invalid-form &input~1187093766~1425)))) (if (pair? &input~1187093766~1425) (let ((&temp~1187093766~1480 (car &input~1187093766~1425))) (let ((&temp~1187093766~1467 (cdr &input~1187093766~1425))) (if (pair? &temp~1187093766~1467) (let ((&temp~1187093766~1473 (car &temp~1187093766~1467))) (ex:map-while (lambda (&temp~1187093766~1473) (if (pair? &temp~1187093766~1473) (let ((&temp~1187093766~1479 (car &temp~1187093766~1473))) (let ((&var~1187093766~1427 &temp~1187093766~1479)) (let ((&temp~1187093766~1476 (cdr &temp~1187093766~1473))) (if (pair? &temp~1187093766~1476) (let ((&temp~1187093766~1478 (car &temp~1187093766~1476))) (let ((&init~1187093766~1428 &temp~1187093766~1478)) (let ((&temp~1187093766~1477 (cdr &temp~1187093766~1476))) (let ((&step~1187093766~1429 &temp~1187093766~1477)) (list &var~1187093766~1427 &init~1187093766~1428 &step~1187093766~1429))))) #f)))) #f)) &temp~1187093766~1473 (lambda (&cols~1187093766~1474 &rest~1187093766~1475) (if (null? &rest~1187093766~1475) (apply (lambda (&var~1187093766~1427 &init~1187093766~1428 &step~1187093766~1429) (let ((&temp~1187093766~1468 (cdr &temp~1187093766~1467))) (if (pair? &temp~1187093766~1468) (let ((&temp~1187093766~1470 (car &temp~1187093766~1468))) (if (pair? &temp~1187093766~1470) (let ((&temp~1187093766~1472 (car &temp~1187093766~1470))) (let ((&e0~1187093766~1430 &temp~1187093766~1472)) (let ((&temp~1187093766~1471 (cdr &temp~1187093766~1470))) (if (list? &temp~1187093766~1471) (let ((&e1~1187093766~1431 &temp~1187093766~1471)) (let ((&temp~1187093766~1469 (cdr &temp~1187093766~1468))) (if (list? &temp~1187093766~1469) (let ((&c~1187093766~1432 &temp~1187093766~1469)) (let ((&input~1187093766~1435 (map (lambda (&v~1187093766~1437 &s~1187093766~1438) (let ((&input~1187093766~1440 &s~1187093766~1438)) (let ((&fail~1187093766~1441 (lambda () (let ((&fail~1187093766~1442 (lambda () (let ((&fail~1187093766~1443 (lambda () (ex:invalid-form &input~1187093766~1440)))) (ex:syntax-violation 'do "Invalid step" &orig-x~1187093766~1423 &s~1187093766~1438))))) (if (pair? &input~1187093766~1440) (let ((&temp~1187093766~1448 (car &input~1187093766~1440))) (let ((&e~1187093766~1445 &temp~1187093766~1448)) (let ((&temp~1187093766~1447 (cdr &input~1187093766~1440))) (if (null? &temp~1187093766~1447) &e~1187093766~1445 (&fail~1187093766~1442))))) (&fail~1187093766~1442)))))) (if (null? &input~1187093766~1440) &v~1187093766~1437 (&fail~1187093766~1441))))) &var~1187093766~1427 &step~1187093766~1429))) (let ((&fail~1187093766~1451 (lambda () (ex:invalid-form &input~1187093766~1435)))) (if (list? &input~1187093766~1435) (let ((&step~1187093766~1452 &input~1187093766~1435)) (begin (let ((&input~1187093766~1455 &e1~1187093766~1431)) (let ((&fail~1187093766~1457 (lambda () (let ((&fail~1187093766~1458 (lambda () (ex:invalid-form &input~1187093766~1455)))) (if (pair? &input~1187093766~1455) (let ((&temp~1187093766~1464 (car &input~1187093766~1455))) (let ((&e1~1187093766~1459 &temp~1187093766~1464)) (let ((&temp~1187093766~1463 (cdr &input~1187093766~1455))) (if (list? &temp~1187093766~1463) (let ((&e2~1187093766~1460 &temp~1187093766~1463)) (cons (ex:syntax-rename 'let '() '(&env~1187093766~1462) 0 '(rnrs control)) (cons (ex:syntax-rename 'do '() '(&env~1187093766~1462) 0 '(rnrs control)) (cons (map (lambda (&var~1187093766~1427 &init~1187093766~1428) (cons &var~1187093766~1427 (cons &init~1187093766~1428 '()))) &var~1187093766~1427 &init~1187093766~1428) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~1462) 0 '(rnrs control)) (cons &e0~1187093766~1430 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1462) 0 '(rnrs control)) (cons &e1~1187093766~1459 &e2~1187093766~1460)) (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1462) 0 '(rnrs control)) (append &c~1187093766~1432 (cons (cons (ex:syntax-rename 'do '() '(&env~1187093766~1462) 0 '(rnrs control)) &step~1187093766~1452) '()))) '())))) '()))))) (&fail~1187093766~1458))))) (&fail~1187093766~1458)))))) (if (null? &input~1187093766~1455) (cons (ex:syntax-rename 'let '() '(&env~1187093766~1466) 0 '(rnrs control)) (cons (ex:syntax-rename 'do '() '(&env~1187093766~1466) 0 '(rnrs control)) (cons (map (lambda (&var~1187093766~1427 &init~1187093766~1428) (cons &var~1187093766~1427 (cons &init~1187093766~1428 '()))) &var~1187093766~1427 &init~1187093766~1428) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~1466) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'not '() '(&env~1187093766~1466) 0 '(rnrs control)) (cons &e0~1187093766~1430 '())) (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~1466) 0 '(rnrs control)) (append &c~1187093766~1432 (cons (cons (ex:syntax-rename 'do '() '(&env~1187093766~1466) 0 '(rnrs control)) &step~1187093766~1452) '()))) '()))) '())))) (&fail~1187093766~1457)))))) (&fail~1187093766~1451))))) (&fail~1187093766~1426)))) (&fail~1187093766~1426))))) (&fail~1187093766~1426))) (&fail~1187093766~1426)))) (if (null? &cols~1187093766~1474) '(() () ()) (apply map list &cols~1187093766~1474))) (&fail~1187093766~1426))))) (&fail~1187093766~1426)))) (&fail~1187093766~1426)))))) (ex:register-macro! '&case-lambda~1187093766~1481 (lambda (&x~1187093766~1484) (let ((&input~1187093766~1486 &x~1187093766~1484)) (let ((&fail~1187093766~1487 (lambda () (let ((&fail~1187093766~1488 (lambda () (ex:invalid-form &input~1187093766~1486)))) (if (pair? &input~1187093766~1486) (let ((&temp~1187093766~1502 (car &input~1187093766~1486))) (let ((&dummy~1187093766~1489 &temp~1187093766~1502)) (let ((&temp~1187093766~1495 (cdr &input~1187093766~1486))) (ex:map-while (lambda (&temp~1187093766~1495) (if (pair? &temp~1187093766~1495) (let ((&temp~1187093766~1501 (car &temp~1187093766~1495))) (let ((&fmls~1187093766~1490 &temp~1187093766~1501)) (let ((&temp~1187093766~1498 (cdr &temp~1187093766~1495))) (if (pair? &temp~1187093766~1498) (let ((&temp~1187093766~1500 (car &temp~1187093766~1498))) (let ((&b1~1187093766~1491 &temp~1187093766~1500)) (let ((&temp~1187093766~1499 (cdr &temp~1187093766~1498))) (if (list? &temp~1187093766~1499) (let ((&b2~1187093766~1492 &temp~1187093766~1499)) (list &fmls~1187093766~1490 &b1~1187093766~1491 &b2~1187093766~1492)) #f)))) #f)))) #f)) &temp~1187093766~1495 (lambda (&cols~1187093766~1496 &rest~1187093766~1497) (if (null? &rest~1187093766~1497) (apply (lambda (&fmls~1187093766~1490 &b1~1187093766~1491 &b2~1187093766~1492) (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (ex:syntax-rename 'args '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (cons (cons (ex:syntax-rename 'n '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'length '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (ex:syntax-rename 'args '() '(&env~1187093766~1494) 0 '(rnrs control)) '())) '())) '()) (cons (cons (ex:syntax-rename 'case-lambda-help '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (ex:syntax-rename 'args '() '(&env~1187093766~1494) 0 '(rnrs control)) (cons (ex:syntax-rename 'n '() '(&env~1187093766~1494) 0 '(rnrs control)) (map (lambda (&fmls~1187093766~1490 &b1~1187093766~1491 &b2~1187093766~1492) (cons &fmls~1187093766~1490 (cons &b1~1187093766~1491 &b2~1187093766~1492))) &fmls~1187093766~1490 &b1~1187093766~1491 &b2~1187093766~1492)))) '()))) '())))) (if (null? &cols~1187093766~1496) '(() () ()) (apply map list &cols~1187093766~1496))) (&fail~1187093766~1488))))))) (&fail~1187093766~1488)))))) (if (pair? &input~1187093766~1486) (let ((&temp~1187093766~1516 (car &input~1187093766~1486))) (let ((&dummy~1187093766~1503 &temp~1187093766~1516)) (let ((&temp~1187093766~1509 (cdr &input~1187093766~1486))) (if (pair? &temp~1187093766~1509) (let ((&temp~1187093766~1511 (car &temp~1187093766~1509))) (if (pair? &temp~1187093766~1511) (let ((&temp~1187093766~1515 (car &temp~1187093766~1511))) (let ((&fmls~1187093766~1504 &temp~1187093766~1515)) (let ((&temp~1187093766~1512 (cdr &temp~1187093766~1511))) (if (pair? &temp~1187093766~1512) (let ((&temp~1187093766~1514 (car &temp~1187093766~1512))) (let ((&b1~1187093766~1505 &temp~1187093766~1514)) (let ((&temp~1187093766~1513 (cdr &temp~1187093766~1512))) (if (list? &temp~1187093766~1513) (let ((&b2~1187093766~1506 &temp~1187093766~1513)) (let ((&temp~1187093766~1510 (cdr &temp~1187093766~1509))) (if (null? &temp~1187093766~1510) (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1508) 0 '(rnrs control)) (cons &fmls~1187093766~1504 (cons &b1~1187093766~1505 &b2~1187093766~1506))) (&fail~1187093766~1487)))) (&fail~1187093766~1487))))) (&fail~1187093766~1487))))) (&fail~1187093766~1487))) (&fail~1187093766~1487))))) (&fail~1187093766~1487)))))) (ex:register-macro! '&case-lambda-help~1187093766~1517 (lambda (&x~1187093766~1520) (let ((&input~1187093766~1522 &x~1187093766~1520)) (let ((&fail~1187093766~1523 (lambda () (let ((&fail~1187093766~1524 (lambda () (let ((&fail~1187093766~1525 (lambda () (let ((&fail~1187093766~1526 (lambda () (ex:invalid-form &input~1187093766~1522)))) (if (pair? &input~1187093766~1522) (let ((&temp~1187093766~1547 (car &input~1187093766~1522))) (let ((&dummy~1187093766~1527 &temp~1187093766~1547)) (let ((&temp~1187093766~1536 (cdr &input~1187093766~1522))) (if (pair? &temp~1187093766~1536) (let ((&temp~1187093766~1546 (car &temp~1187093766~1536))) (let ((&args~1187093766~1528 &temp~1187093766~1546)) (let ((&temp~1187093766~1537 (cdr &temp~1187093766~1536))) (if (pair? &temp~1187093766~1537) (let ((&temp~1187093766~1545 (car &temp~1187093766~1537))) (let ((&n~1187093766~1529 &temp~1187093766~1545)) (let ((&temp~1187093766~1538 (cdr &temp~1187093766~1537))) (if (pair? &temp~1187093766~1538) (let ((&temp~1187093766~1540 (car &temp~1187093766~1538))) (if (pair? &temp~1187093766~1540) (let ((&temp~1187093766~1544 (car &temp~1187093766~1540))) (let ((&r~1187093766~1530 &temp~1187093766~1544)) (let ((&temp~1187093766~1541 (cdr &temp~1187093766~1540))) (if (pair? &temp~1187093766~1541) (let ((&temp~1187093766~1543 (car &temp~1187093766~1541))) (let ((&b1~1187093766~1531 &temp~1187093766~1543)) (let ((&temp~1187093766~1542 (cdr &temp~1187093766~1541))) (if (list? &temp~1187093766~1542) (let ((&b2~1187093766~1532 &temp~1187093766~1542)) (let ((&temp~1187093766~1539 (cdr &temp~1187093766~1538))) (if (list? &temp~1187093766~1539) (let ((&more~1187093766~1533 &temp~1187093766~1539)) (cons (ex:syntax-rename 'apply '() '(&env~1187093766~1535) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1535) 0 '(rnrs control)) (cons &r~1187093766~1530 (cons &b1~1187093766~1531 &b2~1187093766~1532))) (cons &args~1187093766~1528 '())))) (&fail~1187093766~1526)))) (&fail~1187093766~1526))))) (&fail~1187093766~1526))))) (&fail~1187093766~1526))) (&fail~1187093766~1526))))) (&fail~1187093766~1526))))) (&fail~1187093766~1526))))) (&fail~1187093766~1526)))))) (if (pair? &input~1187093766~1522) (let ((&temp~1187093766~1574 (car &input~1187093766~1522))) (let ((&dummy~1187093766~1548 &temp~1187093766~1574)) (let ((&temp~1187093766~1559 (cdr &input~1187093766~1522))) (if (pair? &temp~1187093766~1559) (let ((&temp~1187093766~1573 (car &temp~1187093766~1559))) (let ((&args~1187093766~1549 &temp~1187093766~1573)) (let ((&temp~1187093766~1560 (cdr &temp~1187093766~1559))) (if (pair? &temp~1187093766~1560) (let ((&temp~1187093766~1572 (car &temp~1187093766~1560))) (let ((&n~1187093766~1550 &temp~1187093766~1572)) (let ((&temp~1187093766~1561 (cdr &temp~1187093766~1560))) (if (pair? &temp~1187093766~1561) (let ((&temp~1187093766~1563 (car &temp~1187093766~1561))) (if (pair? &temp~1187093766~1563) (let ((&temp~1187093766~1567 (car &temp~1187093766~1563))) (if (pair? &temp~1187093766~1567) (let ((&temp~1187093766~1571 (car &temp~1187093766~1567))) (let ((&x1~1187093766~1551 &temp~1187093766~1571)) (let ((&temp~1187093766~1568 (cdr &temp~1187093766~1567))) (if (>= (ex:dotted-length &temp~1187093766~1568) 0) (let ((&temp~1187093766~1570 (ex:dotted-butlast &temp~1187093766~1568 0))) (if (list? &temp~1187093766~1570) (let ((&x2~1187093766~1552 &temp~1187093766~1570)) (let ((&temp~1187093766~1569 (ex:dotted-last &temp~1187093766~1568 0))) (let ((&r~1187093766~1553 &temp~1187093766~1569)) (let ((&temp~1187093766~1564 (cdr &temp~1187093766~1563))) (if (pair? &temp~1187093766~1564) (let ((&temp~1187093766~1566 (car &temp~1187093766~1564))) (let ((&b1~1187093766~1554 &temp~1187093766~1566)) (let ((&temp~1187093766~1565 (cdr &temp~1187093766~1564))) (if (list? &temp~1187093766~1565) (let ((&b2~1187093766~1555 &temp~1187093766~1565)) (let ((&temp~1187093766~1562 (cdr &temp~1187093766~1561))) (if (list? &temp~1187093766~1562) (let ((&more~1187093766~1556 &temp~1187093766~1562)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons (cons (ex:syntax-rename '>= '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons &n~1187093766~1550 (cons (cons (ex:syntax-rename 'length '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'quote '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons (cons &x1~1187093766~1551 &x2~1187093766~1552) '())) '())) '()))) (cons (cons (ex:syntax-rename 'apply '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons (cons &x1~1187093766~1551 (append &x2~1187093766~1552 &r~1187093766~1553)) (cons &b1~1187093766~1554 &b2~1187093766~1555))) (cons &args~1187093766~1549 '()))) (cons (cons (ex:syntax-rename 'case-lambda-help '() '(&env~1187093766~1558) 0 '(rnrs control)) (cons &args~1187093766~1549 (cons &n~1187093766~1550 &more~1187093766~1556))) '()))))) (&fail~1187093766~1525)))) (&fail~1187093766~1525))))) (&fail~1187093766~1525)))))) (&fail~1187093766~1525))) (&fail~1187093766~1525))))) (&fail~1187093766~1525))) (&fail~1187093766~1525))) (&fail~1187093766~1525))))) (&fail~1187093766~1525))))) (&fail~1187093766~1525))))) (&fail~1187093766~1525)))))) (if (pair? &input~1187093766~1522) (let ((&temp~1187093766~1595 (car &input~1187093766~1522))) (let ((&dummy~1187093766~1575 &temp~1187093766~1595)) (let ((&temp~1187093766~1584 (cdr &input~1187093766~1522))) (if (pair? &temp~1187093766~1584) (let ((&temp~1187093766~1594 (car &temp~1187093766~1584))) (let ((&args~1187093766~1576 &temp~1187093766~1594)) (let ((&temp~1187093766~1585 (cdr &temp~1187093766~1584))) (if (pair? &temp~1187093766~1585) (let ((&temp~1187093766~1593 (car &temp~1187093766~1585))) (let ((&n~1187093766~1577 &temp~1187093766~1593)) (let ((&temp~1187093766~1586 (cdr &temp~1187093766~1585))) (if (pair? &temp~1187093766~1586) (let ((&temp~1187093766~1588 (car &temp~1187093766~1586))) (if (pair? &temp~1187093766~1588) (let ((&temp~1187093766~1592 (car &temp~1187093766~1588))) (if (list? &temp~1187093766~1592) (let ((&x~1187093766~1578 &temp~1187093766~1592)) (let ((&temp~1187093766~1589 (cdr &temp~1187093766~1588))) (if (pair? &temp~1187093766~1589) (let ((&temp~1187093766~1591 (car &temp~1187093766~1589))) (let ((&b1~1187093766~1579 &temp~1187093766~1591)) (let ((&temp~1187093766~1590 (cdr &temp~1187093766~1589))) (if (list? &temp~1187093766~1590) (let ((&b2~1187093766~1580 &temp~1187093766~1590)) (let ((&temp~1187093766~1587 (cdr &temp~1187093766~1586))) (if (list? &temp~1187093766~1587) (let ((&more~1187093766~1581 &temp~1187093766~1587)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons (cons (ex:syntax-rename '= '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons &n~1187093766~1577 (cons (cons (ex:syntax-rename 'length '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'quote '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons &x~1187093766~1578 '())) '())) '()))) (cons (cons (ex:syntax-rename 'apply '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons &x~1187093766~1578 (cons &b1~1187093766~1579 &b2~1187093766~1580))) (cons &args~1187093766~1576 '()))) (cons (cons (ex:syntax-rename 'case-lambda-help '() '(&env~1187093766~1583) 0 '(rnrs control)) (cons &args~1187093766~1576 (cons &n~1187093766~1577 &more~1187093766~1581))) '()))))) (&fail~1187093766~1524)))) (&fail~1187093766~1524))))) (&fail~1187093766~1524)))) (&fail~1187093766~1524))) (&fail~1187093766~1524))) (&fail~1187093766~1524))))) (&fail~1187093766~1524))))) (&fail~1187093766~1524))))) (&fail~1187093766~1524)))))) (if (pair? &input~1187093766~1522) (let ((&temp~1187093766~1606 (car &input~1187093766~1522))) (let ((&dummy~1187093766~1596 &temp~1187093766~1606)) (let ((&temp~1187093766~1601 (cdr &input~1187093766~1522))) (if (pair? &temp~1187093766~1601) (let ((&temp~1187093766~1605 (car &temp~1187093766~1601))) (let ((&args~1187093766~1597 &temp~1187093766~1605)) (let ((&temp~1187093766~1602 (cdr &temp~1187093766~1601))) (if (pair? &temp~1187093766~1602) (let ((&temp~1187093766~1604 (car &temp~1187093766~1602))) (let ((&n~1187093766~1598 &temp~1187093766~1604)) (let ((&temp~1187093766~1603 (cdr &temp~1187093766~1602))) (if (null? &temp~1187093766~1603) (cons (ex:syntax-rename 'assertion-violation '() '(&env~1187093766~1600) 0 '(rnrs control)) (cons '#f (cons '"unexpected number of arguments" '()))) (&fail~1187093766~1523))))) (&fail~1187093766~1523))))) (&fail~1187093766~1523))))) (&fail~1187093766~1523)))))) (values)) (lambda () (values)) '&build~1187093766~1607)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs lists) (lambda () '()) '((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 ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1608)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs io simple) (lambda () '()) '((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 ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1609)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs unicode) (lambda () '()) '((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-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 ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1610)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs mutable-strings) (lambda () '()) '((string-set! variable string-set! (0) #f ()) (string-fill! variable string-fill! (0) #f ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1611)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs syntax-case) (lambda () '()) '((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~1187093766~538 (0) #f (core quasisyntax)) (unsyntax macro &unsyntax~1187093766~756 (0) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1187093766~760 (0) #f (core quasisyntax)) (with-syntax macro &with-syntax~1187093766~3 (0) #f (core with-syntax)) (_ macro _ (0) #f ()) (... macro ... (0) #f ())) '(((core quasisyntax) 0) ((core with-syntax) 0) ((core primitives) 0)) '(&build~1187093766~764 &build~1187093766~57 &build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1612)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs base) (lambda () '()) '((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~1187093766~100 (0) #f (core let)) (let* macro &let*~1187093766~206 (0) #f (core derived)) (letrec macro &letrec~1187093766~148 (0) #f (core let)) (letrec* macro &letrec*~1187093766~180 (0) #f (core let)) (let-values macro &let-values~1187093766~1208 (0) #f (core let-values)) (let*-values macro &let*-values~1187093766~1348 (0) #f (core let-values)) (case macro &case~1187093766~403 (0) #f (core derived)) (cond macro &cond~1187093766~287 (0) #f (core derived)) (else macro &else~1187093766~487 (0) #f (core derived)) (=> macro &=>~1187093766~483 (0) #f (core derived)) (quasiquote macro &quasiquote~1187093766~765 (0) #f (core quasiquote)) (unquote macro &unquote~1187093766~1199 (0) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1187093766~1203 (0) #f (core quasiquote)) (syntax-rules macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)) (identifier-syntax macro &identifier-syntax~1187093766~492 (1) #f (core identifier-syntax)) (* 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? variable char? (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 ()) (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 ())) '(((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)) '(&build~1187093766~2 &build~1187093766~537 &build~1187093766~99 &build~1187093766~1382 &build~1187093766~1207 &build~1187093766~491 &build~1187093766~205 &build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1613)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs) (lambda () '()) '((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~1187093766~100 (0 1) #f (core let)) (let* macro &let*~1187093766~206 (0 1) #f (core derived)) (letrec macro &letrec~1187093766~148 (0 1) #f (core let)) (letrec* macro &letrec*~1187093766~180 (0 1) #f (core let)) (let-values macro &let-values~1187093766~1208 (0 1) #f (core let-values)) (let*-values macro &let*-values~1187093766~1348 (0 1) #f (core let-values)) (case macro &case~1187093766~403 (0 1) #f (core derived)) (cond macro &cond~1187093766~287 (0 1) #f (core derived)) (else macro &else~1187093766~487 (0 1) #f (core derived)) (=> macro &=>~1187093766~483 (0 1) #f (core derived)) (quasiquote macro &quasiquote~1187093766~765 (0 1) #f (core quasiquote)) (unquote macro &unquote~1187093766~1199 (0 1) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1187093766~1203 (0 1) #f (core quasiquote)) (syntax-rules macro &syntax-rules~1187093766~58 (0 1) #f (core syntax-rules)) (identifier-syntax macro &identifier-syntax~1187093766~492 (0 1) #f (core identifier-syntax)) (* 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? variable char? (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 ()) (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~1187093766~538 (0 1) #f (core quasisyntax)) (unsyntax macro &unsyntax~1187093766~756 (0 1) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1187093766~760 (0 1) #f (core quasisyntax)) (with-syntax macro &with-syntax~1187093766~3 (0 1) #f (core with-syntax)) (when macro &when~1187093766~1383 (0 1) #f (rnrs control)) (unless macro &unless~1187093766~1402 (0 1) #f (rnrs control)) (do macro &do~1187093766~1421 (0 1) #f (rnrs control)) (case-lambda macro &case-lambda~1187093766~1481 (0 1) #f (rnrs control)) (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-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-set! variable string-set! (0 1) #f ()) (string-fill! variable string-fill! (0 1) #f ())) '(((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)) '(&build~1187093766~1611 &build~1187093766~1610 &build~1187093766~1609 &build~1187093766~1612 &build~1187093766~1608 &build~1187093766~1607 &build~1187093766~537 &build~1187093766~99 &build~1187093766~1613 &build~1187093766~1613) (lambda () (values)) (lambda () (values)) '&build~1187093766~1614)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs eval) (lambda () '()) '((eval variable ex:eval (0) #f ()) (environment variable ex:environment (0) #f ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1615)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs mutable-pairs) (lambda () '()) '((set-car! variable set-car! (0) #f ()) (set-cdr! variable set-cdr! (0) #f ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1616)) (values)) (begin (define &make-promise~1187093766~1635 ex:unspecified) (define &force~1187093766~1619 ex:unspecified) (define &null-environment~1187093766~1618 ex:unspecified) (define &scheme-report-environment~1187093766~1617 ex:unspecified) (ex:register-library! (ex:make-library '(rnrs r5rs) (lambda () (ex:uncompress '(((&env~1187093766~1630 0 1 2 3)) (3 (((make-promise) variable &make-promise~1187093766~1635 (0) #f (rnrs r5rs)) ((delay) macro &delay~1187093766~1620 (0) #f (rnrs r5rs)) ((force) variable &force~1187093766~1619 (0) #f (rnrs r5rs)) ((null-environment) variable &null-environment~1187093766~1618 (0) #f (rnrs r5rs)) ((scheme-report-environment) variable &scheme-report-environment~1187093766~1617 (0) #f (rnrs r5rs)) ((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 ()) ((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 ()) ((stringsymbol) 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 ()) ((char?) variable char? (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~1187093766~492 (1) #f (core identifier-syntax)) ((syntax-rules) macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)) ((unquote-splicing) macro &unquote-splicing~1187093766~1203 (0) #f (core quasiquote)) ((unquote) macro &unquote~1187093766~1199 (0) #f (core quasiquote)) ((quasiquote) macro &quasiquote~1187093766~765 (0) #f (core quasiquote)) ((=>) macro &=>~1187093766~483 (0) #f (core derived)) ((else) macro &else~1187093766~487 (0) #f (core derived)) ((cond) macro &cond~1187093766~287 (0) #f (core derived)) ((case) macro &case~1187093766~403 (0) #f (core derived)) ((let*-values) macro &let*-values~1187093766~1348 (0) #f (core let-values)) ((let-values) macro &let-values~1187093766~1208 (0) #f (core let-values)) ((letrec*) macro &letrec*~1187093766~180 (0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (0) #f (core let)) ((let*) macro &let*~1187093766~206 (0) #f (core derived)) ((let) macro &let~1187093766~100 (0) #f (core let)) ((...) macro ... (1) #f ()) ((_) macro _ (1) #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~1187093766~1481 (0) #f (rnrs control)) ((do) macro &do~1187093766~1421 (0) #f (rnrs control)) ((unless) macro &unless~1187093766~1402 (0) #f (rnrs control)) ((when) macro &when~1187093766~1383 (0) #f (rnrs control)))) (2 (((x &c~1187093766~1621) variable &x~1187093766~1623 (0) #f (rnrs r5rs)))) (1 ()) (0 (((dummy &c~1187093766~1621) . #f) ((expression) . #f)))))) '((null-environment variable &null-environment~1187093766~1618 (0) #f (rnrs r5rs)) (scheme-report-environment variable &scheme-report-environment~1187093766~1617 (0) #f (rnrs r5rs)) (delay macro &delay~1187093766~1620 (0) #f (rnrs r5rs)) (force variable &force~1187093766~1619 (0) #f (rnrs r5rs)) (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 ())) '(((rnrs control) 0) ((rnrs base) 0) ((rnrs eval) 0) ((core primitives) 0)) '(&build~1187093766~1607 &build~1187093766~1613 &build~1187093766~1615 &build~1187093766~2) (lambda () (ex:register-macro! '&delay~1187093766~1620 (lambda (&x~1187093766~1623) (let ((&input~1187093766~1625 &x~1187093766~1623)) (let ((&fail~1187093766~1626 (lambda () (ex:invalid-form &input~1187093766~1625)))) (if (pair? &input~1187093766~1625) (let ((&temp~1187093766~1634 (car &input~1187093766~1625))) (let ((&dummy~1187093766~1627 &temp~1187093766~1634)) (let ((&temp~1187093766~1631 (cdr &input~1187093766~1625))) (if (pair? &temp~1187093766~1631) (let ((&temp~1187093766~1633 (car &temp~1187093766~1631))) (let ((&expression~1187093766~1628 &temp~1187093766~1633)) (let ((&temp~1187093766~1632 (cdr &temp~1187093766~1631))) (if (null? &temp~1187093766~1632) (cons (ex:syntax-rename 'make-promise '() '(&env~1187093766~1630) 0 '(rnrs r5rs)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1630) 0 '(rnrs r5rs)) (cons '() (cons &expression~1187093766~1628 '()))) '())) (&fail~1187093766~1626))))) (&fail~1187093766~1626))))) (&fail~1187093766~1626)))))) (values)) (lambda () (set! &make-promise~1187093766~1635 ex:undefined) (set! &force~1187093766~1619 ex:undefined) (set! &null-environment~1187093766~1618 ex:undefined) (set! &scheme-report-environment~1187093766~1617 ex:undefined) (set! &scheme-report-environment~1187093766~1617 ((lambda (&r5rs-env~1187093766~1666) (lambda (&n~1187093766~1668) (if (not (= &n~1187093766~1668 5)) (begin (assertion-violation 'scheme-report-environment "Argument should be 5" &n~1187093766~1668))) &r5rs-env~1187093766~1666)) (ex:environment '(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) '(only (rnrs eval) eval) '(only (rnrs control) do) '(only (rnrs lists) assoc assv assq) '(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) '(only (rnrs unicode) char-upcase char-downcase 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>=?) '(only (rnrs mutable-pairs) set-car! set-cdr!) '(only (rnrs lists) assoc assv assq member memv memq) '(only (rnrs mutable-strings) string-set! string-fill!) '(rnrs r5rs)))) (set! &null-environment~1187093766~1618 ((lambda (&null-env~1187093766~1655) (lambda (&n~1187093766~1657) (if (not (= &n~1187093766~1657 5)) (begin (assertion-violation 'scheme-report-environment "Argument should be 5" &n~1187093766~1657))) &null-env~1187093766~1655)) (ex:environment '(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 ...) '(only (rnrs control) do)))) (set! &force~1187093766~1619 (lambda (&object~1187093766~1652) (&object~1187093766~1652))) (set! &make-promise~1187093766~1635 (lambda (&proc~1187093766~1637) ((lambda (&result-ready?~1187093766~1640 &result~1187093766~1641) (lambda () (if &result-ready?~1187093766~1640 &result~1187093766~1641 ((lambda (&x~1187093766~1646) (if &result-ready?~1187093766~1640 &result~1187093766~1641 (begin (set! &result-ready?~1187093766~1640 #t) (set! &result~1187093766~1641 &x~1187093766~1646) &result~1187093766~1641))) (&proc~1187093766~1637))))) #f #f))) (values)) '&build~1187093766~1683)) (values)) (begin (ex:register-library! (ex:make-library '(rnrs eval reflection) (lambda () '()) '((environment-bindings variable ex:environment-bindings (0) #f ())) '(((core primitives) 0)) '(&build~1187093766~2) (lambda () (values)) (lambda () (values)) '&build~1187093766~1684)) (values)) (begin (ex:register-library! (ex:make-library '(explicit-renaming helper) (lambda () (ex:uncompress '(((&env~1187093766~1694 0 1 2 3)) (3 (((er-transformer) macro &er-transformer~1187093766~1685 (0) #f (explicit-renaming helper)) ((syntax-case) macro syntax-case (0 1) #f ()) ((syntax) macro syntax (0 1) #f ()) ((datum->syntax) variable ex:datum->syntax (0 1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()))) (2 (((exp) variable &exp~1187093766~1687 (1) #f (explicit-renaming helper)))) (1 ()) (0 (((k) . #f) ((proc) . #f)))))) '((er-transformer macro &er-transformer~1187093766~1685 (0) #f (explicit-renaming helper))) '(((rnrs) 0)) '(&build~1187093766~1614) (lambda () (ex:register-macro! '&er-transformer~1187093766~1685 (lambda (&exp~1187093766~1687) (let ((&input~1187093766~1689 &exp~1187093766~1687)) (let ((&fail~1187093766~1690 (lambda () (ex:invalid-form &input~1187093766~1689)))) (if (pair? &input~1187093766~1689) (let ((&temp~1187093766~1698 (car &input~1187093766~1689))) (let ((&k~1187093766~1691 &temp~1187093766~1698)) (let ((&temp~1187093766~1695 (cdr &input~1187093766~1689))) (if (pair? &temp~1187093766~1695) (let ((&temp~1187093766~1697 (car &temp~1187093766~1695))) (let ((&proc~1187093766~1692 &temp~1187093766~1697)) (let ((&temp~1187093766~1696 (cdr &temp~1187093766~1695))) (if (null? &temp~1187093766~1696) (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) (cons (cons (ex:syntax-rename 'form '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) '()) (cons (cons &proc~1187093766~1692 (cons (ex:syntax-rename 'form '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) (cons (cons (ex:syntax-rename 'symbol '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) '()) (cons (cons (ex:syntax-rename 'datum->syntax '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) (cons &k~1187093766~1691 '())) (cons (ex:syntax-rename 'symbol '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) '()))) '()))) (cons (ex:syntax-rename 'free-identifier=? '() '(&env~1187093766~1694) 0 '(explicit-renaming helper)) '())))) '()))) (&fail~1187093766~1690))))) (&fail~1187093766~1690))))) (&fail~1187093766~1690)))))) (values)) (lambda () (values)) '&build~1187093766~1699)) (values)) (begin (ex:register-library! (ex:make-library '(explicit-renaming) (lambda () '()) '((er-transformer macro &er-transformer~1187093766~1685 (0) #f (explicit-renaming helper)) (identifier? variable ex:identifier? (0) #f ()) (bound-identifier=? variable ex:bound-identifier=? (0) #f ()) (datum->syntax variable ex:datum->syntax (0) #f ())) '(((rnrs syntax-case) 0) ((explicit-renaming helper) 0)) '(&build~1187093766~1612 &build~1187093766~1699) (lambda () (values)) (lambda () (values)) '&build~1187093766~1700)) (values))