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