(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 ()) (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 ()) (undefined variable ex:undefined (0) #f ()))) (quote (((core primitive-macros) 0))) (quote (system)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~2))) (values))
(begin (ex:register-library! (ex:make-library (quote (core with-syntax)) (lambda () (ex:uncompress (quote (((&env~1204670678~50 0 1 2 3) (&env~1204670678~34 4 1 2 3) (&env~1204670678~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~1204670678~3 (0) #f (core with-syntax)) ((undefined) variable ex:undefined (0 1) #f ()) ((eval) variable ex:eval (0 1) #f ()) ((environment-bindings) variable ex:environment-bindings (0 1) #f ()) ((environment) variable ex:environment (0 1) #f ()) ((syntax-violation) variable ex:syntax-violation (0 1) #f ()) ((syntax->datum) variable ex:syntax->datum (0 1) #f ()) ((datum->syntax) variable ex:datum->syntax (0 1) #f ()) ((generate-temporaries) variable ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (0 1) #f ()) ((identifier?) variable ex:identifier? (0 1) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (0 1) #f ()) ((syntax-case) macro syntax-case (0 1) #f ()) ((syntax) macro syntax (0 1) #f ()) ((...) macro ... (0 1) #f ()) ((_) macro _ (0 1) #f ()) ((letrec-syntax) macro letrec-syntax (0 1) #f ()) ((let-syntax) macro let-syntax (0 1) #f ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((define) macro define (0 1) #f ()) ((or) macro or (0 1) #f ()) ((and) macro and (0 1) #f ()) ((set!) macro set! (0 1) #f ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((if) macro if (0 1) #f ()) ((begin) macro begin (0 1) #f ()) ((list) variable list (0) #f ()))) (2 (((x) variable &x~1204670678~5 (1) #f (core with-syntax)))) (1 ()) (0 (((e1) . #f) ((e2) . #f))))))) (quote ((with-syntax macro &with-syntax~1204670678~3 (0) #f (core with-syntax)))) (quote (((core primitives) 0 1))) (quote (&build~1204670678~2)) (lambda () (ex:register-macro! (quote &with-syntax~1204670678~3) (lambda (&x~1204670678~5) (let ((&input~1204670678~7 &x~1204670678~5)) (let ((&fail~1204670678~8 (lambda () (let ((&fail~1204670678~9 (lambda () (let ((&fail~1204670678~10 (lambda () (ex:invalid-form &input~1204670678~7)))) (if (pair? &input~1204670678~7) (let ((&temp~1204670678~28 (car &input~1204670678~7))) (let ((&temp~1204670678~17 (cdr &input~1204670678~7))) (if (pair? &temp~1204670678~17) (let ((&temp~1204670678~21 (car &temp~1204670678~17))) (ex:map-while (lambda (&temp~1204670678~21) (if (pair? &temp~1204670678~21) (let ((&temp~1204670678~27 (car &temp~1204670678~21))) (let ((&out~1204670678~11 &temp~1204670678~27)) (let ((&temp~1204670678~24 (cdr &temp~1204670678~21))) (if (pair? &temp~1204670678~24) (let ((&temp~1204670678~26 (car &temp~1204670678~24))) (let ((&in~1204670678~12 &temp~1204670678~26)) (let ((&temp~1204670678~25 (cdr &temp~1204670678~24))) (if (null? &temp~1204670678~25) (list &out~1204670678~11 &in~1204670678~12) #f)))) #f)))) #f)) &temp~1204670678~21 (lambda (&cols~1204670678~22 &rest~1204670678~23) (if (null? &rest~1204670678~23) (apply (lambda (&out~1204670678~11 &in~1204670678~12) (let ((&temp~1204670678~18 (cdr &temp~1204670678~17))) (if (pair? &temp~1204670678~18) (let ((&temp~1204670678~20 (car &temp~1204670678~18))) (let ((&e1~1204670678~13 &temp~1204670678~20)) (let ((&temp~1204670678~19 (cdr &temp~1204670678~18))) (if (list? &temp~1204670678~19) (let ((&e2~1204670678~14 &temp~1204670678~19)) (cons (ex:syntax-rename (quote syntax-case) (quote ()) (quote (&env~1204670678~16)) 0 (quote (core with-syntax))) (cons (cons (ex:syntax-rename (quote list) (quote ()) (quote (&env~1204670678~16)) 0 (quote (core with-syntax))) &in~1204670678~12) (cons (quote ()) (cons (cons &out~1204670678~11 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~16)) 0 (quote (core with-syntax))) (cons &e1~1204670678~13 &e2~1204670678~14)) (quote ()))) (quote ())))))) (&fail~1204670678~10))))) (&fail~1204670678~10)))) (if (null? &cols~1204670678~22) (quote (() ())) (apply map list &cols~1204670678~22))) (&fail~1204670678~10))))) (&fail~1204670678~10)))) (&fail~1204670678~10)))))) (if (pair? &input~1204670678~7) (let ((&temp~1204670678~46 (car &input~1204670678~7))) (let ((&temp~1204670678~35 (cdr &input~1204670678~7))) (if (pair? &temp~1204670678~35) (let ((&temp~1204670678~39 (car &temp~1204670678~35))) (if (pair? &temp~1204670678~39) (let ((&temp~1204670678~41 (car &temp~1204670678~39))) (if (pair? &temp~1204670678~41) (let ((&temp~1204670678~45 (car &temp~1204670678~41))) (let ((&out~1204670678~29 &temp~1204670678~45)) (let ((&temp~1204670678~42 (cdr &temp~1204670678~41))) (if (pair? &temp~1204670678~42) (let ((&temp~1204670678~44 (car &temp~1204670678~42))) (let ((&in~1204670678~30 &temp~1204670678~44)) (let ((&temp~1204670678~43 (cdr &temp~1204670678~42))) (if (null? &temp~1204670678~43) (let ((&temp~1204670678~40 (cdr &temp~1204670678~39))) (if (null? &temp~1204670678~40) (let ((&temp~1204670678~36 (cdr &temp~1204670678~35))) (if (pair? &temp~1204670678~36) (let ((&temp~1204670678~38 (car &temp~1204670678~36))) (let ((&e1~1204670678~31 &temp~1204670678~38)) (let ((&temp~1204670678~37 (cdr &temp~1204670678~36))) (if (list? &temp~1204670678~37) (let ((&e2~1204670678~32 &temp~1204670678~37)) (cons (ex:syntax-rename (quote syntax-case) (quote ()) (quote (&env~1204670678~34)) 0 (quote (core with-syntax))) (cons &in~1204670678~30 (cons (quote ()) (cons (cons &out~1204670678~29 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~34)) 0 (quote (core with-syntax))) (cons &e1~1204670678~31 &e2~1204670678~32)) (quote ()))) (quote ())))))) (&fail~1204670678~9))))) (&fail~1204670678~9))) (&fail~1204670678~9))) (&fail~1204670678~9))))) (&fail~1204670678~9))))) (&fail~1204670678~9))) (&fail~1204670678~9))) (&fail~1204670678~9)))) (&fail~1204670678~9)))))) (if (pair? &input~1204670678~7) (let ((&temp~1204670678~56 (car &input~1204670678~7))) (let ((&temp~1204670678~51 (cdr &input~1204670678~7))) (if (pair? &temp~1204670678~51) (let ((&temp~1204670678~55 (car &temp~1204670678~51))) (if (null? &temp~1204670678~55) (let ((&temp~1204670678~52 (cdr &temp~1204670678~51))) (if (pair? &temp~1204670678~52) (let ((&temp~1204670678~54 (car &temp~1204670678~52))) (let ((&e1~1204670678~47 &temp~1204670678~54)) (let ((&temp~1204670678~53 (cdr &temp~1204670678~52))) (if (list? &temp~1204670678~53) (let ((&e2~1204670678~48 &temp~1204670678~53)) (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~50)) 0 (quote (core with-syntax))) (cons &e1~1204670678~47 &e2~1204670678~48))) (&fail~1204670678~8))))) (&fail~1204670678~8))) (&fail~1204670678~8))) (&fail~1204670678~8)))) (&fail~1204670678~8)))))) (values)) (lambda () (values)) (quote &build~1204670678~57))) (values))
(begin (ex:register-library! (ex:make-library (quote (core syntax-rules)) (lambda () (ex:uncompress (quote (((&env~1204670678~92 0 1 2 3 4 5) (&env~1204670678~76 6 7 3 4 5)) (7 (((k) . #f) ((cl) . #f))) (6 (((cl) . #f))) (5 (((syntax-rules) macro &syntax-rules~1204670678~58 (0) #f (core syntax-rules)) ((undefined) variable ex:undefined (1 0) #f ()) ((eval) variable ex:eval (1 0) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0) #f ()) ((environment) variable ex:environment (1 0) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((with-syntax) macro &with-syntax~1204670678~3 (1) #f (core with-syntax)) ((map) variable map (1) #f ()) ((for-all) variable for-all (1) #f ()))) (4 (((x) variable &x~1204670678~60 (1) #f (core syntax-rules)))) (3 (((clause) variable &clause~1204670678~61 (1) #f (core syntax-rules)))) (2 (((y) variable &y~1204670678~82 (1) #f (core syntax-rules)))) (1 ()) (0 (((keyword) . #f) ((pattern) . #f) ((template) . #f))))))) (quote ((syntax-rules macro &syntax-rules~1204670678~58 (0) #f (core syntax-rules)))) (quote (((core with-syntax) 1) ((core primitives) 1 0))) (quote (&build~1204670678~57 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &syntax-rules~1204670678~58) (lambda (&x~1204670678~60) ((lambda (&clause~1204670678~61) (set! &clause~1204670678~61 (lambda (&y~1204670678~82) (let ((&input~1204670678~84 &y~1204670678~82)) (let ((&fail~1204670678~85 (lambda () (let ((&fail~1204670678~86 (lambda () (ex:invalid-form &input~1204670678~84)))) (ex:syntax-violation (quote syntax-rules) "Invalid expression" &x~1204670678~60))))) (if (pair? &input~1204670678~84) (let ((&temp~1204670678~96 (car &input~1204670678~84))) (if (pair? &temp~1204670678~96) (let ((&temp~1204670678~98 (car &temp~1204670678~96))) (let ((&keyword~1204670678~88 &temp~1204670678~98)) (let ((&temp~1204670678~97 (cdr &temp~1204670678~96))) (let ((&pattern~1204670678~89 &temp~1204670678~97)) (let ((&temp~1204670678~93 (cdr &input~1204670678~84))) (if (pair? &temp~1204670678~93) (let ((&temp~1204670678~95 (car &temp~1204670678~93))) (let ((&template~1204670678~90 &temp~1204670678~95)) (let ((&temp~1204670678~94 (cdr &temp~1204670678~93))) (if (null? &temp~1204670678~94) (cons (cons (ex:syntax-rename (quote dummy) (quote ()) (quote (&env~1204670678~92)) 0 (quote (core syntax-rules))) &pattern~1204670678~89) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~92)) 0 (quote (core syntax-rules))) (cons &template~1204670678~90 (quote ()))) (quote ()))) (&fail~1204670678~85))))) (&fail~1204670678~85))))))) (&fail~1204670678~85))) (&fail~1204670678~85)))))) (let ((&input~1204670678~63 &x~1204670678~60)) (let ((&fail~1204670678~64 (lambda () (ex:invalid-form &input~1204670678~63)))) (if (pair? &input~1204670678~63) (let ((&temp~1204670678~80 (car &input~1204670678~63))) (let ((&temp~1204670678~77 (cdr &input~1204670678~63))) (if (pair? &temp~1204670678~77) (let ((&temp~1204670678~79 (car &temp~1204670678~77))) (if (list? &temp~1204670678~79) (let ((&k~1204670678~65 &temp~1204670678~79)) (let ((&temp~1204670678~78 (cdr &temp~1204670678~77))) (if (list? &temp~1204670678~78) (let ((&cl~1204670678~66 &temp~1204670678~78)) (if (for-all ex:identifier? &k~1204670678~65) (let ((&input~1204670678~70 (map &clause~1204670678~61 &cl~1204670678~66))) (let ((&fail~1204670678~72 (lambda () (ex:invalid-form &input~1204670678~70)))) (if (list? &input~1204670678~70) (let ((&cl~1204670678~73 &input~1204670678~70)) (begin (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~76)) 0 (quote (core syntax-rules))) (cons (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~76)) 0 (quote (core syntax-rules))) (quote ())) (cons (cons (ex:syntax-rename (quote syntax-case) (quote ()) (quote (&env~1204670678~76)) 0 (quote (core syntax-rules))) (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~76)) 0 (quote (core syntax-rules))) (cons &k~1204670678~65 &cl~1204670678~73))) (quote ())))))) (&fail~1204670678~72)))) (&fail~1204670678~64))) (&fail~1204670678~64)))) (&fail~1204670678~64))) (&fail~1204670678~64)))) (&fail~1204670678~64))))) ex:undefined))) (values)) (lambda () (values)) (quote &build~1204670678~99))) (values))
(begin (ex:register-library! (ex:make-library (quote (core let)) (lambda () (ex:uncompress (quote (((&env~1204670678~190 0 1 2 3) (&env~1204670678~166 4 5 6 7 3) (&env~1204670678~135 8 9 10 3) (&env~1204670678~114 11 9 10 3)) (11 (((f) . #f) ((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (10 (((x) variable &x~1204670678~102 (1) #f (core let)))) (9 ()) (8 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (7 (((x) variable &x~1204670678~150 (1) #f (core let)))) (6 ()) (5 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (4 (((t) . #f))) (3 (((letrec*) macro &letrec*~1204670678~179 (0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0) #f (core let)) ((let) macro &let~1204670678~100 (0) #f (core let)) ((undefined) variable ex:undefined (1 0) #f ()) ((eval) variable ex:eval (1 0) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0) #f ()) ((environment) variable ex:environment (1 0) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((with-syntax) macro &with-syntax~1204670678~3 (1) #f (core with-syntax)) ((for-all) variable for-all (1) #f ()))) (2 (((x) variable &x~1204670678~181 (1) #f (core let)))) (1 ()) (0 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))))))) (quote ((let macro &let~1204670678~100 (0) #f (core let)) (letrec macro &letrec~1204670678~148 (0) #f (core let)) (letrec* macro &letrec*~1204670678~179 (0) #f (core let)))) (quote (((core with-syntax) 1) ((core primitives) 1 0))) (quote (&build~1204670678~57 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &let~1204670678~100) (lambda (&x~1204670678~102) (let ((&input~1204670678~104 &x~1204670678~102)) (let ((&fail~1204670678~105 (lambda () (let ((&fail~1204670678~106 (lambda () (ex:invalid-form &input~1204670678~104)))) (if (pair? &input~1204670678~104) (let ((&temp~1204670678~128 (car &input~1204670678~104))) (let ((&temp~1204670678~115 (cdr &input~1204670678~104))) (if (pair? &temp~1204670678~115) (let ((&temp~1204670678~127 (car &temp~1204670678~115))) (let ((&f~1204670678~107 &temp~1204670678~127)) (let ((&temp~1204670678~116 (cdr &temp~1204670678~115))) (if (pair? &temp~1204670678~116) (let ((&temp~1204670678~120 (car &temp~1204670678~116))) (ex:map-while (lambda (&temp~1204670678~120) (if (pair? &temp~1204670678~120) (let ((&temp~1204670678~126 (car &temp~1204670678~120))) (let ((&x~1204670678~108 &temp~1204670678~126)) (let ((&temp~1204670678~123 (cdr &temp~1204670678~120))) (if (pair? &temp~1204670678~123) (let ((&temp~1204670678~125 (car &temp~1204670678~123))) (let ((&v~1204670678~109 &temp~1204670678~125)) (let ((&temp~1204670678~124 (cdr &temp~1204670678~123))) (if (null? &temp~1204670678~124) (list &x~1204670678~108 &v~1204670678~109) #f)))) #f)))) #f)) &temp~1204670678~120 (lambda (&cols~1204670678~121 &rest~1204670678~122) (if (null? &rest~1204670678~122) (apply (lambda (&x~1204670678~108 &v~1204670678~109) (let ((&temp~1204670678~117 (cdr &temp~1204670678~116))) (if (pair? &temp~1204670678~117) (let ((&temp~1204670678~119 (car &temp~1204670678~117))) (let ((&e1~1204670678~110 &temp~1204670678~119)) (let ((&temp~1204670678~118 (cdr &temp~1204670678~117))) (if (list? &temp~1204670678~118) (let ((&e2~1204670678~111 &temp~1204670678~118)) (if (for-all ex:identifier? (cons &f~1204670678~107 &x~1204670678~108)) (cons (cons (ex:syntax-rename (quote letrec) (quote ()) (quote (&env~1204670678~114)) 0 (quote (core let))) (cons (cons (cons &f~1204670678~107 (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~114)) 0 (quote (core let))) (cons &x~1204670678~108 (cons &e1~1204670678~110 &e2~1204670678~111))) (quote ()))) (quote ())) (cons &f~1204670678~107 (quote ())))) &v~1204670678~109) (&fail~1204670678~106))) (&fail~1204670678~106))))) (&fail~1204670678~106)))) (if (null? &cols~1204670678~121) (quote (() ())) (apply map list &cols~1204670678~121))) (&fail~1204670678~106))))) (&fail~1204670678~106))))) (&fail~1204670678~106)))) (&fail~1204670678~106)))))) (if (pair? &input~1204670678~104) (let ((&temp~1204670678~147 (car &input~1204670678~104))) (let ((&temp~1204670678~136 (cdr &input~1204670678~104))) (if (pair? &temp~1204670678~136) (let ((&temp~1204670678~140 (car &temp~1204670678~136))) (ex:map-while (lambda (&temp~1204670678~140) (if (pair? &temp~1204670678~140) (let ((&temp~1204670678~146 (car &temp~1204670678~140))) (let ((&x~1204670678~129 &temp~1204670678~146)) (let ((&temp~1204670678~143 (cdr &temp~1204670678~140))) (if (pair? &temp~1204670678~143) (let ((&temp~1204670678~145 (car &temp~1204670678~143))) (let ((&v~1204670678~130 &temp~1204670678~145)) (let ((&temp~1204670678~144 (cdr &temp~1204670678~143))) (if (null? &temp~1204670678~144) (list &x~1204670678~129 &v~1204670678~130) #f)))) #f)))) #f)) &temp~1204670678~140 (lambda (&cols~1204670678~141 &rest~1204670678~142) (if (null? &rest~1204670678~142) (apply (lambda (&x~1204670678~129 &v~1204670678~130) (let ((&temp~1204670678~137 (cdr &temp~1204670678~136))) (if (pair? &temp~1204670678~137) (let ((&temp~1204670678~139 (car &temp~1204670678~137))) (let ((&e1~1204670678~131 &temp~1204670678~139)) (let ((&temp~1204670678~138 (cdr &temp~1204670678~137))) (if (list? &temp~1204670678~138) (let ((&e2~1204670678~132 &temp~1204670678~138)) (if (for-all ex:identifier? &x~1204670678~129) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~135)) 0 (quote (core let))) (cons &x~1204670678~129 (cons &e1~1204670678~131 &e2~1204670678~132))) &v~1204670678~130) (&fail~1204670678~105))) (&fail~1204670678~105))))) (&fail~1204670678~105)))) (if (null? &cols~1204670678~141) (quote (() ())) (apply map list &cols~1204670678~141))) (&fail~1204670678~105))))) (&fail~1204670678~105)))) (&fail~1204670678~105)))))) (ex:register-macro! (quote &letrec~1204670678~148) (lambda (&x~1204670678~150) (let ((&input~1204670678~152 &x~1204670678~150)) (let ((&fail~1204670678~153 (lambda () (ex:invalid-form &input~1204670678~152)))) (if (pair? &input~1204670678~152) (let ((&temp~1204670678~178 (car &input~1204670678~152))) (let ((&temp~1204670678~167 (cdr &input~1204670678~152))) (if (pair? &temp~1204670678~167) (let ((&temp~1204670678~171 (car &temp~1204670678~167))) (ex:map-while (lambda (&temp~1204670678~171) (if (pair? &temp~1204670678~171) (let ((&temp~1204670678~177 (car &temp~1204670678~171))) (let ((&i~1204670678~154 &temp~1204670678~177)) (let ((&temp~1204670678~174 (cdr &temp~1204670678~171))) (if (pair? &temp~1204670678~174) (let ((&temp~1204670678~176 (car &temp~1204670678~174))) (let ((&v~1204670678~155 &temp~1204670678~176)) (let ((&temp~1204670678~175 (cdr &temp~1204670678~174))) (if (null? &temp~1204670678~175) (list &i~1204670678~154 &v~1204670678~155) #f)))) #f)))) #f)) &temp~1204670678~171 (lambda (&cols~1204670678~172 &rest~1204670678~173) (if (null? &rest~1204670678~173) (apply (lambda (&i~1204670678~154 &v~1204670678~155) (let ((&temp~1204670678~168 (cdr &temp~1204670678~167))) (if (pair? &temp~1204670678~168) (let ((&temp~1204670678~170 (car &temp~1204670678~168))) (let ((&e1~1204670678~156 &temp~1204670678~170)) (let ((&temp~1204670678~169 (cdr &temp~1204670678~168))) (if (list? &temp~1204670678~169) (let ((&e2~1204670678~157 &temp~1204670678~169)) (let ((&input~1204670678~160 (ex:generate-temporaries &i~1204670678~154))) (let ((&fail~1204670678~162 (lambda () (ex:invalid-form &input~1204670678~160)))) (if (list? &input~1204670678~160) (let ((&t~1204670678~163 &input~1204670678~160)) (begin (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~166)) 0 (quote (core let))) (cons (map (lambda (&i~1204670678~154) (cons &i~1204670678~154 (cons (ex:syntax-rename (quote undefined) (quote ()) (quote (&env~1204670678~166)) 0 (quote (core let))) (quote ())))) &i~1204670678~154) (cons (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~166)) 0 (quote (core let))) (cons (if (= (length &t~1204670678~163) (length &v~1204670678~155)) (map (lambda (&t~1204670678~163 &v~1204670678~155) (cons &t~1204670678~163 (cons &v~1204670678~155 (quote ())))) &t~1204670678~163 &v~1204670678~155) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((t v) ...)) (list &t~1204670678~163 &v~1204670678~155))) (append (if (= (length &i~1204670678~154) (length &t~1204670678~163)) (map (lambda (&i~1204670678~154 &t~1204670678~163) (cons (ex:syntax-rename (quote set!) (quote ()) (quote (&env~1204670678~166)) 0 (quote (core let))) (cons &i~1204670678~154 (cons &t~1204670678~163 (quote ()))))) &i~1204670678~154 &t~1204670678~163) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((set! i t) ... (let () e1 e2 ...))) (list &i~1204670678~154 &t~1204670678~163))) (cons (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~166)) 0 (quote (core let))) (cons (quote ()) (cons &e1~1204670678~156 &e2~1204670678~157))) (quote ()))))) (quote ())))))) (&fail~1204670678~162))))) (&fail~1204670678~153))))) (&fail~1204670678~153)))) (if (null? &cols~1204670678~172) (quote (() ())) (apply map list &cols~1204670678~172))) (&fail~1204670678~153))))) (&fail~1204670678~153)))) (&fail~1204670678~153)))))) (ex:register-macro! (quote &letrec*~1204670678~179) (lambda (&x~1204670678~181) (let ((&input~1204670678~183 &x~1204670678~181)) (let ((&fail~1204670678~184 (lambda () (ex:invalid-form &input~1204670678~183)))) (if (pair? &input~1204670678~183) (let ((&temp~1204670678~202 (car &input~1204670678~183))) (let ((&temp~1204670678~191 (cdr &input~1204670678~183))) (if (pair? &temp~1204670678~191) (let ((&temp~1204670678~195 (car &temp~1204670678~191))) (ex:map-while (lambda (&temp~1204670678~195) (if (pair? &temp~1204670678~195) (let ((&temp~1204670678~201 (car &temp~1204670678~195))) (let ((&i~1204670678~185 &temp~1204670678~201)) (let ((&temp~1204670678~198 (cdr &temp~1204670678~195))) (if (pair? &temp~1204670678~198) (let ((&temp~1204670678~200 (car &temp~1204670678~198))) (let ((&v~1204670678~186 &temp~1204670678~200)) (let ((&temp~1204670678~199 (cdr &temp~1204670678~198))) (if (null? &temp~1204670678~199) (list &i~1204670678~185 &v~1204670678~186) #f)))) #f)))) #f)) &temp~1204670678~195 (lambda (&cols~1204670678~196 &rest~1204670678~197) (if (null? &rest~1204670678~197) (apply (lambda (&i~1204670678~185 &v~1204670678~186) (let ((&temp~1204670678~192 (cdr &temp~1204670678~191))) (if (pair? &temp~1204670678~192) (let ((&temp~1204670678~194 (car &temp~1204670678~192))) (let ((&e1~1204670678~187 &temp~1204670678~194)) (let ((&temp~1204670678~193 (cdr &temp~1204670678~192))) (if (list? &temp~1204670678~193) (let ((&e2~1204670678~188 &temp~1204670678~193)) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~190)) 0 (quote (core let))) (cons (quote ()) (append (if (= (length &i~1204670678~185) (length &v~1204670678~186)) (map (lambda (&i~1204670678~185 &v~1204670678~186) (cons (ex:syntax-rename (quote define) (quote ()) (quote (&env~1204670678~190)) 0 (quote (core let))) (cons &i~1204670678~185 (cons &v~1204670678~186 (quote ()))))) &i~1204670678~185 &v~1204670678~186) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((define i v) ... (let () e1 e2 ...))) (list &i~1204670678~185 &v~1204670678~186))) (cons (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~190)) 0 (quote (core let))) (cons (quote ()) (cons &e1~1204670678~187 &e2~1204670678~188))) (quote ())))))) (&fail~1204670678~184))))) (&fail~1204670678~184)))) (if (null? &cols~1204670678~196) (quote (() ())) (apply map list &cols~1204670678~196))) (&fail~1204670678~184))))) (&fail~1204670678~184)))) (&fail~1204670678~184)))))) (values)) (lambda () (values)) (quote &build~1204670678~203))) (values))
(begin (ex:register-library! (ex:make-library (quote (core derived)) (lambda () (ex:uncompress (quote (((&env~1204670678~474 0 1 2 3 4) (&env~1204670678~463 5 6 7 8 9 10 1 2 3 4) (&env~1204670678~445 11 7 8 9 10 1 2 3 4) (&env~1204670678~437 12 7 8 9 10 1 2 3 4) (&env~1204670678~390 13 14 15 16 17 18 19 20 21 4) (&env~1204670678~384 22 14 15 16 17 18 19 20 21 4) (&env~1204670678~375 23 14 15 16 17 18 19 20 21 4) (&env~1204670678~367 24 14 15 16 17 18 19 20 21 4) (&env~1204670678~350 25 26 27 15 16 17 18 19 20 21 4) (&env~1204670678~341 28 26 27 15 16 17 18 19 20 21 4) (&env~1204670678~333 29 26 27 15 16 17 18 19 20 21 4) (&env~1204670678~278 30 31 32 4) (&env~1204670678~255 33 34 35 36 37 38 31 32 4) (&env~1204670678~245 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~1204670678~221 (1) #t (core derived)))) (36 ()) (35 (((bindings) variable &bindings~1204670678~229 (1) #f (core derived)))) (34 ()) (33 (((x) . #f) ((v) . #f))) (32 (((x) variable &x~1204670678~206 (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~1204670678~287 (1) #f (core derived)))) (20 ()) (19 (((c1) . #f) ((c2) . #f))) (18 (((f) variable &f~1204670678~298 (1) #t (core derived)))) (17 ()) (16 (((c1) variable &c1~1204670678~306 (1) #f (core derived)) ((c2*) variable &c2*~1204670678~307 (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~1204670678~418 (1) #t (core derived)))) (9 ()) (8 (((c1) variable &c1~1204670678~426 (1) #f (core derived)) ((cmore) variable &cmore~1204670678~427 (1) #f (core derived)))) (7 ()) (6 (((rest) . #f))) (5 (((k) . #f) ((e1) . #f) ((e2) . #f))) (4 (((else) macro &else~1204670678~485 (0) #f (core derived)) ((=>) macro &=>~1204670678~481 (0) #f (core derived)) ((case) macro &case~1204670678~401 (0) #f (core derived)) ((cond) macro &cond~1204670678~285 (0) #f (core derived)) ((let*) macro &let*~1204670678~204 (0) #f (core derived)) ((undefined) variable ex:undefined (1 0) #f ()) ((eval) variable ex:eval (1 0) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0) #f ()) ((environment) variable ex:environment (1 0) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((letrec*) macro &letrec*~1204670678~179 (1 0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (1 0) #f (core let)) ((let) macro &let~1204670678~100 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~1204670678~3 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()))) (3 (((x) variable &x~1204670678~403 (1) #f (core derived)))) (2 ()) (1 (((e) . #f) ((c1) . #f) ((c2) . #f))) (0 (((body) . #f))))))) (quote ((let* macro &let*~1204670678~204 (0) #f (core derived)) (cond macro &cond~1204670678~285 (0) #f (core derived)) (case macro &case~1204670678~401 (0) #f (core derived)) (else macro &else~1204670678~485 (0) #f (core derived)) (=> macro &=>~1204670678~481 (0) #f (core derived)))) (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0))) (quote (&build~1204670678~99 &build~1204670678~57 &build~1204670678~203 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &let*~1204670678~204) (lambda (&x~1204670678~206) (let ((&input~1204670678~208 &x~1204670678~206)) (let ((&fail~1204670678~209 (lambda () (let ((&fail~1204670678~210 (lambda () (ex:invalid-form &input~1204670678~208)))) (if (pair? &input~1204670678~208) (let ((&temp~1204670678~274 (car &input~1204670678~208))) (let ((&temp~1204670678~263 (cdr &input~1204670678~208))) (if (pair? &temp~1204670678~263) (let ((&temp~1204670678~267 (car &temp~1204670678~263))) (ex:map-while (lambda (&temp~1204670678~267) (if (pair? &temp~1204670678~267) (let ((&temp~1204670678~273 (car &temp~1204670678~267))) (let ((&x~1204670678~211 &temp~1204670678~273)) (let ((&temp~1204670678~270 (cdr &temp~1204670678~267))) (if (pair? &temp~1204670678~270) (let ((&temp~1204670678~272 (car &temp~1204670678~270))) (let ((&v~1204670678~212 &temp~1204670678~272)) (let ((&temp~1204670678~271 (cdr &temp~1204670678~270))) (if (null? &temp~1204670678~271) (list &x~1204670678~211 &v~1204670678~212) #f)))) #f)))) #f)) &temp~1204670678~267 (lambda (&cols~1204670678~268 &rest~1204670678~269) (if (null? &rest~1204670678~269) (apply (lambda (&x~1204670678~211 &v~1204670678~212) (let ((&temp~1204670678~264 (cdr &temp~1204670678~263))) (if (pair? &temp~1204670678~264) (let ((&temp~1204670678~266 (car &temp~1204670678~264))) (let ((&e1~1204670678~213 &temp~1204670678~266)) (let ((&temp~1204670678~265 (cdr &temp~1204670678~264))) (if (list? &temp~1204670678~265) (let ((&e2~1204670678~214 &temp~1204670678~265)) (if (for-all ex:identifier? &x~1204670678~211) (((lambda (&f~1204670678~221) ((lambda (&temp~1204670678~224) (set! &f~1204670678~221 &temp~1204670678~224) ((lambda () &f~1204670678~221))) (lambda (&bindings~1204670678~229) (let ((&input~1204670678~231 &bindings~1204670678~229)) (let ((&fail~1204670678~232 (lambda () (let ((&fail~1204670678~233 (lambda () (ex:invalid-form &input~1204670678~231)))) (if (pair? &input~1204670678~231) (let ((&temp~1204670678~247 (car &input~1204670678~231))) (if (pair? &temp~1204670678~247) (let ((&temp~1204670678~251 (car &temp~1204670678~247))) (let ((&x~1204670678~234 &temp~1204670678~251)) (let ((&temp~1204670678~248 (cdr &temp~1204670678~247))) (if (pair? &temp~1204670678~248) (let ((&temp~1204670678~250 (car &temp~1204670678~248))) (let ((&v~1204670678~235 &temp~1204670678~250)) (let ((&temp~1204670678~249 (cdr &temp~1204670678~248))) (if (null? &temp~1204670678~249) (let ((&temp~1204670678~246 (cdr &input~1204670678~231))) (let ((&rest~1204670678~236 &temp~1204670678~246)) (let ((&input~1204670678~239 (&f~1204670678~221 &rest~1204670678~236))) (let ((&fail~1204670678~241 (lambda () (ex:invalid-form &input~1204670678~239)))) (let ((&body~1204670678~242 &input~1204670678~239)) (begin (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~245)) 0 (quote (core derived))) (cons (cons (cons &x~1204670678~234 (cons &v~1204670678~235 (quote ()))) (quote ())) (cons &body~1204670678~242 (quote ())))))))))) (&fail~1204670678~233))))) (&fail~1204670678~233))))) (&fail~1204670678~233))) (&fail~1204670678~233)))))) (if (pair? &input~1204670678~231) (let ((&temp~1204670678~257 (car &input~1204670678~231))) (if (pair? &temp~1204670678~257) (let ((&temp~1204670678~261 (car &temp~1204670678~257))) (let ((&x~1204670678~252 &temp~1204670678~261)) (let ((&temp~1204670678~258 (cdr &temp~1204670678~257))) (if (pair? &temp~1204670678~258) (let ((&temp~1204670678~260 (car &temp~1204670678~258))) (let ((&v~1204670678~253 &temp~1204670678~260)) (let ((&temp~1204670678~259 (cdr &temp~1204670678~258))) (if (null? &temp~1204670678~259) (let ((&temp~1204670678~256 (cdr &input~1204670678~231))) (if (null? &temp~1204670678~256) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~255)) 0 (quote (core derived))) (cons (cons (cons &x~1204670678~252 (cons &v~1204670678~253 (quote ()))) (quote ())) (cons &e1~1204670678~213 &e2~1204670678~214))) (&fail~1204670678~232))) (&fail~1204670678~232))))) (&fail~1204670678~232))))) (&fail~1204670678~232))) (&fail~1204670678~232))))))) ex:undefined) (if (= (length &x~1204670678~211) (length &v~1204670678~212)) (map (lambda (&x~1204670678~211 &v~1204670678~212) (cons &x~1204670678~211 (cons &v~1204670678~212 (quote ())))) &x~1204670678~211 &v~1204670678~212) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((x v) ...)) (list &x~1204670678~211 &v~1204670678~212)))) (&fail~1204670678~210))) (&fail~1204670678~210))))) (&fail~1204670678~210)))) (if (null? &cols~1204670678~268) (quote (() ())) (apply map list &cols~1204670678~268))) (&fail~1204670678~210))))) (&fail~1204670678~210)))) (&fail~1204670678~210)))))) (if (pair? &input~1204670678~208) (let ((&temp~1204670678~284 (car &input~1204670678~208))) (let ((&temp~1204670678~279 (cdr &input~1204670678~208))) (if (pair? &temp~1204670678~279) (let ((&temp~1204670678~283 (car &temp~1204670678~279))) (if (null? &temp~1204670678~283) (let ((&temp~1204670678~280 (cdr &temp~1204670678~279))) (if (pair? &temp~1204670678~280) (let ((&temp~1204670678~282 (car &temp~1204670678~280))) (let ((&e1~1204670678~275 &temp~1204670678~282)) (let ((&temp~1204670678~281 (cdr &temp~1204670678~280))) (if (list? &temp~1204670678~281) (let ((&e2~1204670678~276 &temp~1204670678~281)) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~278)) 0 (quote (core derived))) (cons (quote ()) (cons &e1~1204670678~275 &e2~1204670678~276)))) (&fail~1204670678~209))))) (&fail~1204670678~209))) (&fail~1204670678~209))) (&fail~1204670678~209)))) (&fail~1204670678~209)))))) (ex:register-macro! (quote &cond~1204670678~285) (lambda (&x~1204670678~287) (let ((&input~1204670678~289 &x~1204670678~287)) (let ((&fail~1204670678~290 (lambda () (ex:invalid-form &input~1204670678~289)))) (if (pair? &input~1204670678~289) (let ((&temp~1204670678~400 (car &input~1204670678~289))) (let ((&temp~1204670678~397 (cdr &input~1204670678~289))) (if (pair? &temp~1204670678~397) (let ((&temp~1204670678~399 (car &temp~1204670678~397))) (let ((&c1~1204670678~291 &temp~1204670678~399)) (let ((&temp~1204670678~398 (cdr &temp~1204670678~397))) (if (list? &temp~1204670678~398) (let ((&c2~1204670678~292 &temp~1204670678~398)) (((lambda (&f~1204670678~298) ((lambda (&temp~1204670678~301) (set! &f~1204670678~298 &temp~1204670678~301) ((lambda () &f~1204670678~298))) (lambda (&c1~1204670678~306 &c2*~1204670678~307) (let ((&input~1204670678~309 &c2*~1204670678~307)) (let ((&fail~1204670678~310 (lambda () (let ((&fail~1204670678~311 (lambda () (ex:invalid-form &input~1204670678~309)))) (if (pair? &input~1204670678~309) (let ((&temp~1204670678~354 (car &input~1204670678~309))) (let ((&c2~1204670678~312 &temp~1204670678~354)) (let ((&temp~1204670678~353 (cdr &input~1204670678~309))) (if (list? &temp~1204670678~353) (let ((&c3~1204670678~313 &temp~1204670678~353)) (let ((&input~1204670678~316 (&f~1204670678~298 &c2~1204670678~312 &c3~1204670678~313))) (let ((&fail~1204670678~319 (lambda () (ex:invalid-form &input~1204670678~316)))) (let ((&rest~1204670678~320 &input~1204670678~316)) (begin (let ((&input~1204670678~323 &c1~1204670678~306)) (let ((&fail~1204670678~324 (lambda () (let ((&fail~1204670678~325 (lambda () (let ((&fail~1204670678~326 (lambda () (let ((&fail~1204670678~327 (lambda () (ex:invalid-form &input~1204670678~323)))) (ex:syntax-violation (quote cond) "Invalid expression" &x~1204670678~287))))) (if (pair? &input~1204670678~323) (let ((&temp~1204670678~337 (car &input~1204670678~323))) (let ((&e0~1204670678~329 &temp~1204670678~337)) (let ((&temp~1204670678~334 (cdr &input~1204670678~323))) (if (pair? &temp~1204670678~334) (let ((&temp~1204670678~336 (car &temp~1204670678~334))) (let ((&e1~1204670678~330 &temp~1204670678~336)) (let ((&temp~1204670678~335 (cdr &temp~1204670678~334))) (if (list? &temp~1204670678~335) (let ((&e2~1204670678~331 &temp~1204670678~335)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~333)) 0 (quote (core derived))) (cons &e0~1204670678~329 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~333)) 0 (quote (core derived))) (cons &e1~1204670678~330 &e2~1204670678~331)) (cons &rest~1204670678~320 (quote ())))))) (&fail~1204670678~326))))) (&fail~1204670678~326))))) (&fail~1204670678~326)))))) (if (pair? &input~1204670678~323) (let ((&temp~1204670678~347 (car &input~1204670678~323))) (let ((&e0~1204670678~338 &temp~1204670678~347)) (let ((&temp~1204670678~342 (cdr &input~1204670678~323))) (if (pair? &temp~1204670678~342) (let ((&temp~1204670678~346 (car &temp~1204670678~342))) (if (and (ex:identifier? &temp~1204670678~346) (ex:free-identifier=? &temp~1204670678~346 (ex:syntax-rename (quote =>) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))))) (let ((&temp~1204670678~343 (cdr &temp~1204670678~342))) (if (pair? &temp~1204670678~343) (let ((&temp~1204670678~345 (car &temp~1204670678~343))) (let ((&e1~1204670678~339 &temp~1204670678~345)) (let ((&temp~1204670678~344 (cdr &temp~1204670678~343))) (if (null? &temp~1204670678~344) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))) (cons (cons (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))) (cons &e0~1204670678~338 (quote ()))) (quote ())) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))) (cons (cons &e1~1204670678~339 (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~341)) 0 (quote (core derived))) (quote ()))) (cons &rest~1204670678~320 (quote ()))))) (quote ())))) (&fail~1204670678~325))))) (&fail~1204670678~325))) (&fail~1204670678~325))) (&fail~1204670678~325))))) (&fail~1204670678~325)))))) (if (pair? &input~1204670678~323) (let ((&temp~1204670678~352 (car &input~1204670678~323))) (let ((&e0~1204670678~348 &temp~1204670678~352)) (let ((&temp~1204670678~351 (cdr &input~1204670678~323))) (if (null? &temp~1204670678~351) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~350)) 0 (quote (core derived))) (cons (cons (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~350)) 0 (quote (core derived))) (cons &e0~1204670678~348 (quote ()))) (quote ())) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~350)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~350)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~350)) 0 (quote (core derived))) (cons &rest~1204670678~320 (quote ()))))) (quote ())))) (&fail~1204670678~324))))) (&fail~1204670678~324))))))))) (&fail~1204670678~311))))) (&fail~1204670678~311)))))) (if (null? &input~1204670678~309) (let ((&input~1204670678~356 &c1~1204670678~306)) (let ((&fail~1204670678~357 (lambda () (let ((&fail~1204670678~358 (lambda () (let ((&fail~1204670678~359 (lambda () (let ((&fail~1204670678~360 (lambda () (let ((&fail~1204670678~361 (lambda () (ex:invalid-form &input~1204670678~356)))) (ex:syntax-violation (quote cond) "Invalid expression" &x~1204670678~287))))) (if (pair? &input~1204670678~356) (let ((&temp~1204670678~371 (car &input~1204670678~356))) (let ((&e0~1204670678~363 &temp~1204670678~371)) (let ((&temp~1204670678~368 (cdr &input~1204670678~356))) (if (pair? &temp~1204670678~368) (let ((&temp~1204670678~370 (car &temp~1204670678~368))) (let ((&e1~1204670678~364 &temp~1204670678~370)) (let ((&temp~1204670678~369 (cdr &temp~1204670678~368))) (if (list? &temp~1204670678~369) (let ((&e2~1204670678~365 &temp~1204670678~369)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~367)) 0 (quote (core derived))) (cons &e0~1204670678~363 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~367)) 0 (quote (core derived))) (cons &e1~1204670678~364 &e2~1204670678~365)) (quote ()))))) (&fail~1204670678~360))))) (&fail~1204670678~360))))) (&fail~1204670678~360)))))) (if (pair? &input~1204670678~356) (let ((&temp~1204670678~381 (car &input~1204670678~356))) (let ((&e0~1204670678~372 &temp~1204670678~381)) (let ((&temp~1204670678~376 (cdr &input~1204670678~356))) (if (pair? &temp~1204670678~376) (let ((&temp~1204670678~380 (car &temp~1204670678~376))) (if (and (ex:identifier? &temp~1204670678~380) (ex:free-identifier=? &temp~1204670678~380 (ex:syntax-rename (quote =>) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))))) (let ((&temp~1204670678~377 (cdr &temp~1204670678~376))) (if (pair? &temp~1204670678~377) (let ((&temp~1204670678~379 (car &temp~1204670678~377))) (let ((&e1~1204670678~373 &temp~1204670678~379)) (let ((&temp~1204670678~378 (cdr &temp~1204670678~377))) (if (null? &temp~1204670678~378) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))) (cons (cons (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))) (cons &e0~1204670678~372 (quote ()))) (quote ())) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))) (cons (cons &e1~1204670678~373 (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~375)) 0 (quote (core derived))) (quote ()))) (quote ())))) (quote ())))) (&fail~1204670678~359))))) (&fail~1204670678~359))) (&fail~1204670678~359))) (&fail~1204670678~359))))) (&fail~1204670678~359)))))) (if (pair? &input~1204670678~356) (let ((&temp~1204670678~386 (car &input~1204670678~356))) (let ((&e0~1204670678~382 &temp~1204670678~386)) (let ((&temp~1204670678~385 (cdr &input~1204670678~356))) (if (null? &temp~1204670678~385) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~384)) 0 (quote (core derived))) (cons (cons (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~384)) 0 (quote (core derived))) (cons &e0~1204670678~382 (quote ()))) (quote ())) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~384)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~384)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~384)) 0 (quote (core derived))) (quote ())))) (quote ())))) (&fail~1204670678~358))))) (&fail~1204670678~358)))))) (if (pair? &input~1204670678~356) (let ((&temp~1204670678~394 (car &input~1204670678~356))) (if (and (ex:identifier? &temp~1204670678~394) (ex:free-identifier=? &temp~1204670678~394 (ex:syntax-rename (quote else) (quote ()) (quote (&env~1204670678~390)) 0 (quote (core derived))))) (let ((&temp~1204670678~391 (cdr &input~1204670678~356))) (if (pair? &temp~1204670678~391) (let ((&temp~1204670678~393 (car &temp~1204670678~391))) (let ((&e1~1204670678~387 &temp~1204670678~393)) (let ((&temp~1204670678~392 (cdr &temp~1204670678~391))) (if (list? &temp~1204670678~392) (let ((&e2~1204670678~388 &temp~1204670678~392)) (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~390)) 0 (quote (core derived))) (cons &e1~1204670678~387 &e2~1204670678~388))) (&fail~1204670678~357))))) (&fail~1204670678~357))) (&fail~1204670678~357))) (&fail~1204670678~357)))) (&fail~1204670678~310))))))) ex:undefined) &c1~1204670678~291 &c2~1204670678~292)) (&fail~1204670678~290))))) (&fail~1204670678~290)))) (&fail~1204670678~290)))))) (ex:register-macro! (quote &case~1204670678~401) (lambda (&x~1204670678~403) (let ((&input~1204670678~405 &x~1204670678~403)) (let ((&fail~1204670678~406 (lambda () (ex:invalid-form &input~1204670678~405)))) (if (pair? &input~1204670678~405) (let ((&temp~1204670678~480 (car &input~1204670678~405))) (let ((&temp~1204670678~475 (cdr &input~1204670678~405))) (if (pair? &temp~1204670678~475) (let ((&temp~1204670678~479 (car &temp~1204670678~475))) (let ((&e~1204670678~407 &temp~1204670678~479)) (let ((&temp~1204670678~476 (cdr &temp~1204670678~475))) (if (pair? &temp~1204670678~476) (let ((&temp~1204670678~478 (car &temp~1204670678~476))) (let ((&c1~1204670678~408 &temp~1204670678~478)) (let ((&temp~1204670678~477 (cdr &temp~1204670678~476))) (if (list? &temp~1204670678~477) (let ((&c2~1204670678~409 &temp~1204670678~477)) (let ((&input~1204670678~412 (((lambda (&f~1204670678~418) ((lambda (&temp~1204670678~421) (set! &f~1204670678~418 &temp~1204670678~421) ((lambda () &f~1204670678~418))) (lambda (&c1~1204670678~426 &cmore~1204670678~427) (if (null? &cmore~1204670678~427) (let ((&input~1204670678~430 &c1~1204670678~426)) (let ((&fail~1204670678~431 (lambda () (let ((&fail~1204670678~432 (lambda () (ex:invalid-form &input~1204670678~430)))) (if (pair? &input~1204670678~430) (let ((&temp~1204670678~441 (car &input~1204670678~430))) (if (list? &temp~1204670678~441) (let ((&k~1204670678~433 &temp~1204670678~441)) (let ((&temp~1204670678~438 (cdr &input~1204670678~430))) (if (pair? &temp~1204670678~438) (let ((&temp~1204670678~440 (car &temp~1204670678~438))) (let ((&e1~1204670678~434 &temp~1204670678~440)) (let ((&temp~1204670678~439 (cdr &temp~1204670678~438))) (if (list? &temp~1204670678~439) (let ((&e2~1204670678~435 &temp~1204670678~439)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~437)) 0 (quote (core derived))) (cons (cons (ex:syntax-rename (quote memv) (quote ()) (quote (&env~1204670678~437)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~437)) 0 (quote (core derived))) (cons (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~437)) 0 (quote (core derived))) (cons &k~1204670678~433 (quote ()))) (quote ())))) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~437)) 0 (quote (core derived))) (cons &e1~1204670678~434 &e2~1204670678~435)) (quote ()))))) (&fail~1204670678~432))))) (&fail~1204670678~432)))) (&fail~1204670678~432))) (&fail~1204670678~432)))))) (if (pair? &input~1204670678~430) (let ((&temp~1204670678~449 (car &input~1204670678~430))) (if (and (ex:identifier? &temp~1204670678~449) (ex:free-identifier=? &temp~1204670678~449 (ex:syntax-rename (quote else) (quote ()) (quote (&env~1204670678~445)) 0 (quote (core derived))))) (let ((&temp~1204670678~446 (cdr &input~1204670678~430))) (if (pair? &temp~1204670678~446) (let ((&temp~1204670678~448 (car &temp~1204670678~446))) (let ((&e1~1204670678~442 &temp~1204670678~448)) (let ((&temp~1204670678~447 (cdr &temp~1204670678~446))) (if (list? &temp~1204670678~447) (let ((&e2~1204670678~443 &temp~1204670678~447)) (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~445)) 0 (quote (core derived))) (cons &e1~1204670678~442 &e2~1204670678~443))) (&fail~1204670678~431))))) (&fail~1204670678~431))) (&fail~1204670678~431))) (&fail~1204670678~431)))) (let ((&input~1204670678~452 (&f~1204670678~418 (car &cmore~1204670678~427) (cdr &cmore~1204670678~427)))) (let ((&fail~1204670678~453 (lambda () (ex:invalid-form &input~1204670678~452)))) (let ((&rest~1204670678~454 &input~1204670678~452)) (begin (let ((&input~1204670678~457 &c1~1204670678~426)) (let ((&fail~1204670678~458 (lambda () (ex:invalid-form &input~1204670678~457)))) (if (pair? &input~1204670678~457) (let ((&temp~1204670678~467 (car &input~1204670678~457))) (if (list? &temp~1204670678~467) (let ((&k~1204670678~459 &temp~1204670678~467)) (let ((&temp~1204670678~464 (cdr &input~1204670678~457))) (if (pair? &temp~1204670678~464) (let ((&temp~1204670678~466 (car &temp~1204670678~464))) (let ((&e1~1204670678~460 &temp~1204670678~466)) (let ((&temp~1204670678~465 (cdr &temp~1204670678~464))) (if (list? &temp~1204670678~465) (let ((&e2~1204670678~461 &temp~1204670678~465)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~463)) 0 (quote (core derived))) (cons (cons (ex:syntax-rename (quote memv) (quote ()) (quote (&env~1204670678~463)) 0 (quote (core derived))) (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~463)) 0 (quote (core derived))) (cons (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~463)) 0 (quote (core derived))) (cons &k~1204670678~459 (quote ()))) (quote ())))) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~463)) 0 (quote (core derived))) (cons &e1~1204670678~460 &e2~1204670678~461)) (cons &rest~1204670678~454 (quote ())))))) (&fail~1204670678~458))))) (&fail~1204670678~458)))) (&fail~1204670678~458))) (&fail~1204670678~458)))))))))))) ex:undefined) &c1~1204670678~408 &c2~1204670678~409))) (let ((&fail~1204670678~470 (lambda () (ex:invalid-form &input~1204670678~412)))) (let ((&body~1204670678~471 &input~1204670678~412)) (begin (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~474)) 0 (quote (core derived))) (cons (cons (cons (ex:syntax-rename (quote t) (quote ()) (quote (&env~1204670678~474)) 0 (quote (core derived))) (cons &e~1204670678~407 (quote ()))) (quote ())) (cons &body~1204670678~471 (quote ()))))))))) (&fail~1204670678~406))))) (&fail~1204670678~406))))) (&fail~1204670678~406)))) (&fail~1204670678~406)))))) (ex:register-macro! (quote &=>~1204670678~481) (lambda (&x~1204670678~483) (ex:syntax-violation (quote =>) "Invalid expression" &x~1204670678~483))) (ex:register-macro! (quote &else~1204670678~485) (lambda (&x~1204670678~487) (ex:syntax-violation (quote else) "Invalid expression" &x~1204670678~487))) (values)) (lambda () (values)) (quote &build~1204670678~489))) (values))
(begin (ex:register-library! (ex:make-library (quote (core identifier-syntax)) (lambda () (ex:uncompress (quote (((&env~1204670678~530 0 1 2 3) (&env~1204670678~507 4 1 2 3)) (4 (((id) . #f) ((exp1) . #f) ((var) . #f) ((val) . #f) ((exp2) . #f))) (3 (((identifier-syntax) macro &identifier-syntax~1204670678~490 (0) #f (core identifier-syntax)) ((undefined) variable ex:undefined (1 0 -1) #f ()) ((eval) variable ex:eval (1 0 -1) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0 -1) #f ()) ((environment) variable ex:environment (1 0 -1) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0 -1) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0 -1) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0 -1) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0 -1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0 -1) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0 -1) #f ()) ((identifier?) variable ex:identifier? (1 0 -1) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0 -1) #f ()) ((syntax-case) macro syntax-case (1 0 -1) #f ()) ((syntax) macro syntax (1 0 -1) #f ()) ((...) macro ... (1 0 -1) #f ()) ((_) macro _ (1 0 -1) #f ()) ((letrec-syntax) macro letrec-syntax (1 0 -1) #f ()) ((let-syntax) macro let-syntax (1 0 -1) #f ()) ((define-syntax) macro define-syntax (1 0 -1) #f ()) ((define) macro define (1 0 -1) #f ()) ((or) macro or (1 0 -1) #f ()) ((and) macro and (1 0 -1) #f ()) ((set!) macro set! (1 0 -1) #f ()) ((quote) macro quote (1 0 -1) #f ()) ((lambda) macro lambda (1 0 -1) #f ()) ((if) macro if (1 0 -1) #f ()) ((begin) macro begin (1 0 -1) #f ()))) (2 (((x) variable &x~1204670678~492 (1) #f (core identifier-syntax)))) (1 ()) (0 (((e) . #f))))))) (quote ((identifier-syntax macro &identifier-syntax~1204670678~490 (0) #f (core identifier-syntax)))) (quote (((core primitives) 1 0 -1))) (quote (&build~1204670678~2)) (lambda () (ex:register-macro! (quote &identifier-syntax~1204670678~490) (lambda (&x~1204670678~492) (let ((&input~1204670678~494 &x~1204670678~492)) (let ((&fail~1204670678~495 (lambda () (let ((&fail~1204670678~496 (lambda () (ex:invalid-form &input~1204670678~494)))) (if (pair? &input~1204670678~494) (let ((&temp~1204670678~527 (car &input~1204670678~494))) (let ((&temp~1204670678~508 (cdr &input~1204670678~494))) (if (pair? &temp~1204670678~508) (let ((&temp~1204670678~522 (car &temp~1204670678~508))) (if (pair? &temp~1204670678~522) (let ((&temp~1204670678~526 (car &temp~1204670678~522))) (let ((&id~1204670678~497 &temp~1204670678~526)) (let ((&temp~1204670678~523 (cdr &temp~1204670678~522))) (if (pair? &temp~1204670678~523) (let ((&temp~1204670678~525 (car &temp~1204670678~523))) (let ((&exp1~1204670678~498 &temp~1204670678~525)) (let ((&temp~1204670678~524 (cdr &temp~1204670678~523))) (if (null? &temp~1204670678~524) (let ((&temp~1204670678~509 (cdr &temp~1204670678~508))) (if (pair? &temp~1204670678~509) (let ((&temp~1204670678~511 (car &temp~1204670678~509))) (if (pair? &temp~1204670678~511) (let ((&temp~1204670678~515 (car &temp~1204670678~511))) (if (pair? &temp~1204670678~515) (let ((&temp~1204670678~521 (car &temp~1204670678~515))) (if (and (ex:identifier? &temp~1204670678~521) (ex:free-identifier=? &temp~1204670678~521 (ex:syntax-rename (quote set!) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))))) (let ((&temp~1204670678~516 (cdr &temp~1204670678~515))) (if (pair? &temp~1204670678~516) (let ((&temp~1204670678~520 (car &temp~1204670678~516))) (let ((&var~1204670678~499 &temp~1204670678~520)) (let ((&temp~1204670678~517 (cdr &temp~1204670678~516))) (if (pair? &temp~1204670678~517) (let ((&temp~1204670678~519 (car &temp~1204670678~517))) (let ((&val~1204670678~500 &temp~1204670678~519)) (let ((&temp~1204670678~518 (cdr &temp~1204670678~517))) (if (null? &temp~1204670678~518) (let ((&temp~1204670678~512 (cdr &temp~1204670678~511))) (if (pair? &temp~1204670678~512) (let ((&temp~1204670678~514 (car &temp~1204670678~512))) (let ((&exp2~1204670678~501 &temp~1204670678~514)) (let ((&temp~1204670678~513 (cdr &temp~1204670678~512))) (if (null? &temp~1204670678~513) (let ((&temp~1204670678~510 (cdr &temp~1204670678~509))) (if (null? &temp~1204670678~510) (if (if (ex:identifier? &id~1204670678~497) (ex:identifier? &var~1204670678~499) #f) (cons (ex:syntax-rename (quote make-variable-transformer) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons (ex:syntax-rename (quote syntax-case) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote set!) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons (cons (ex:syntax-rename (quote set!) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons &var~1204670678~499 (cons &val~1204670678~500 (quote ())))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons &exp2~1204670678~501 (quote ()))) (quote ()))) (cons (cons (cons &id~1204670678~497 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote ...) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (cons &exp1~1204670678~498 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote ...) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (cons (cons &id~1204670678~497 (cons (cons (ex:syntax-rename (quote identifier?) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons &id~1204670678~497 (quote ()))) (quote ()))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~507)) 0 (quote (core identifier-syntax))) (cons &exp1~1204670678~498 (quote ()))) (quote ())))) (quote ()))))))) (quote ())))) (quote ()))) (&fail~1204670678~496)) (&fail~1204670678~496))) (&fail~1204670678~496))))) (&fail~1204670678~496))) (&fail~1204670678~496))))) (&fail~1204670678~496))))) (&fail~1204670678~496))) (&fail~1204670678~496))) (&fail~1204670678~496))) (&fail~1204670678~496))) (&fail~1204670678~496))) (&fail~1204670678~496))))) (&fail~1204670678~496))))) (&fail~1204670678~496))) (&fail~1204670678~496)))) (&fail~1204670678~496)))))) (if (pair? &input~1204670678~494) (let ((&temp~1204670678~534 (car &input~1204670678~494))) (let ((&temp~1204670678~531 (cdr &input~1204670678~494))) (if (pair? &temp~1204670678~531) (let ((&temp~1204670678~533 (car &temp~1204670678~531))) (let ((&e~1204670678~528 &temp~1204670678~533)) (let ((&temp~1204670678~532 (cdr &temp~1204670678~531))) (if (null? &temp~1204670678~532) (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons (ex:syntax-rename (quote syntax-case) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (quote ()) (cons (cons (ex:syntax-rename (quote id) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote identifier?) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote id) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (quote ()))) (quote ()))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons &e~1204670678~528 (quote ()))) (quote ())))) (cons (cons (cons (ex:syntax-rename (quote _) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote ...) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (cons &e~1204670678~528 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (cons (ex:syntax-rename (quote ...) (quote ()) (quote (&env~1204670678~530)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (quote ())))))) (quote ())))) (&fail~1204670678~495))))) (&fail~1204670678~495)))) (&fail~1204670678~495)))))) (values)) (lambda () (values)) (quote &build~1204670678~535))) (values))
(begin (ex:register-library! (ex:make-library (quote (core quasisyntax)) (lambda () (ex:uncompress (quote (((&env~1204670678~753 0 1 2 3 4 5) (&env~1204670678~725 6 1 2 3 4 5) (&env~1204670678~709 7 1 2 3 4 5) (&env~1204670678~683 8 1 2 3 4 5) (&env~1204670678~664 9 8 1 2 3 4 5) (&env~1204670678~629 10 1 2 3 4 5) (&env~1204670678~553 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~1204670678~758 (0) #f (core quasisyntax)) ((unsyntax) macro &unsyntax~1204670678~754 (0) #f (core quasisyntax)) ((quasisyntax) macro &quasisyntax~1204670678~536 (0) #f (core quasisyntax)) ((undefined) variable ex:undefined (0 1) #f ()) ((eval) variable ex:eval (0 1) #f ()) ((environment-bindings) variable ex:environment-bindings (0 1) #f ()) ((environment) variable ex:environment (0 1) #f ()) ((syntax-violation) variable ex:syntax-violation (0 1) #f ()) ((syntax->datum) variable ex:syntax->datum (0 1) #f ()) ((datum->syntax) variable ex:datum->syntax (0 1) #f ()) ((generate-temporaries) variable ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (0 1) #f ()) ((identifier?) variable ex:identifier? (0 1) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (0 1) #f ()) ((syntax-case) macro syntax-case (0 1) #f ()) ((syntax) macro syntax (0 1) #f ()) ((...) macro ... (0 1) #f ()) ((_) macro _ (0 1) #f ()) ((letrec-syntax) macro letrec-syntax (0 1) #f ()) ((let-syntax) macro let-syntax (0 1) #f ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((define) macro define (0 1) #f ()) ((or) macro or (0 1) #f ()) ((and) macro and (0 1) #f ()) ((set!) macro set! (0 1) #f ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((if) macro if (0 1) #f ()) ((begin) macro begin (0 1) #f ()) ((letrec*) macro &letrec*~1204670678~179 (0 1) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0 1) #f (core let)) ((let) macro &let~1204670678~100 (0 1) #f (core let)) ((=>) macro &=>~1204670678~481 (0 1) #f (core derived)) ((else) macro &else~1204670678~485 (0 1) #f (core derived)) ((case) macro &case~1204670678~401 (0 1) #f (core derived)) ((cond) macro &cond~1204670678~285 (0 1) #f (core derived)) ((let*) macro &let*~1204670678~204 (0 1) #f (core derived)) ((with-syntax) macro &with-syntax~1204670678~3 (0 1) #f (core with-syntax)) ((vector->list) variable vector->list (0 1) #f ()) ((-) variable - (0 1) #f ()) ((+) variable + (0 1) #f ()) ((>) variable > (0 1) #f ()) ((=) variable = (0 1) #f ()))) (4 (((e) variable &e~1204670678~538 (1) #f (core quasisyntax)))) (3 (((expand) variable &expand~1204670678~539 (1) #f (core quasisyntax)))) (2 (((x) variable &x~1204670678~563 (1) #f (core quasisyntax)) ((level) variable &level~1204670678~564 (1) #f (core quasisyntax)))) (1 ()) (0 (((e) . #f))))))) (quote ((quasisyntax macro &quasisyntax~1204670678~536 (0) #f (core quasisyntax)) (unsyntax macro &unsyntax~1204670678~754 (0) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1204670678~758 (0) #f (core quasisyntax)))) (quote (((core with-syntax) 0 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1))) (quote (&build~1204670678~57 &build~1204670678~489 &build~1204670678~203 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &quasisyntax~1204670678~536) (lambda (&e~1204670678~538) ((lambda (&expand~1204670678~539) (set! &expand~1204670678~539 (lambda (&x~1204670678~563 &level~1204670678~564) (let ((&input~1204670678~566 &x~1204670678~563)) (let ((&fail~1204670678~567 (lambda () (let ((&fail~1204670678~568 (lambda () (let ((&fail~1204670678~569 (lambda () (let ((&fail~1204670678~570 (lambda () (let ((&fail~1204670678~571 (lambda () (let ((&fail~1204670678~572 (lambda () (let ((&fail~1204670678~573 (lambda () (let ((&fail~1204670678~574 (lambda () (ex:invalid-form &input~1204670678~566)))) (let ((&other~1204670678~575 &input~1204670678~566)) (cons &other~1204670678~575 (cons (quote ()) (quote ())))))))) (if (vector? &input~1204670678~566) (let ((&temp~1204670678~591 (vector->list &input~1204670678~566))) (if (list? &temp~1204670678~591) (let ((&e~1204670678~577 &temp~1204670678~591)) (let ((&input~1204670678~580 (&expand~1204670678~539 (vector->list (list->vector &e~1204670678~577)) &level~1204670678~564))) (let ((&fail~1204670678~582 (lambda () (ex:invalid-form &input~1204670678~580)))) (if (pair? &input~1204670678~580) (let ((&temp~1204670678~590 (car &input~1204670678~580))) (if (list? &temp~1204670678~590) (let ((&e*~1204670678~583 &temp~1204670678~590)) (let ((&temp~1204670678~587 (cdr &input~1204670678~580))) (if (pair? &temp~1204670678~587) (let ((&temp~1204670678~589 (car &temp~1204670678~587))) (let ((&reps~1204670678~584 &temp~1204670678~589)) (let ((&temp~1204670678~588 (cdr &temp~1204670678~587))) (if (null? &temp~1204670678~588) (begin (cons (list->vector &e*~1204670678~583) (cons &reps~1204670678~584 (quote ())))) (&fail~1204670678~582))))) (&fail~1204670678~582)))) (&fail~1204670678~582))) (&fail~1204670678~582))))) (&fail~1204670678~573))) (&fail~1204670678~573)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~619 (car &input~1204670678~566))) (let ((&h~1204670678~592 &temp~1204670678~619)) (let ((&temp~1204670678~618 (cdr &input~1204670678~566))) (let ((&t~1204670678~593 &temp~1204670678~618)) (let ((&input~1204670678~596 (list (&expand~1204670678~539 &h~1204670678~592 &level~1204670678~564) (&expand~1204670678~539 &t~1204670678~593 &level~1204670678~564)))) (let ((&fail~1204670678~599 (lambda () (ex:invalid-form &input~1204670678~596)))) (if (pair? &input~1204670678~596) (let ((&temp~1204670678~613 (car &input~1204670678~596))) (if (pair? &temp~1204670678~613) (let ((&temp~1204670678~617 (car &temp~1204670678~613))) (let ((&h*~1204670678~600 &temp~1204670678~617)) (let ((&temp~1204670678~614 (cdr &temp~1204670678~613))) (if (pair? &temp~1204670678~614) (let ((&temp~1204670678~616 (car &temp~1204670678~614))) (if (list? &temp~1204670678~616) (let ((&rep1~1204670678~601 &temp~1204670678~616)) (let ((&temp~1204670678~615 (cdr &temp~1204670678~614))) (if (null? &temp~1204670678~615) (let ((&temp~1204670678~606 (cdr &input~1204670678~596))) (if (pair? &temp~1204670678~606) (let ((&temp~1204670678~608 (car &temp~1204670678~606))) (if (pair? &temp~1204670678~608) (let ((&temp~1204670678~612 (car &temp~1204670678~608))) (let ((&t*~1204670678~602 &temp~1204670678~612)) (let ((&temp~1204670678~609 (cdr &temp~1204670678~608))) (if (pair? &temp~1204670678~609) (let ((&temp~1204670678~611 (car &temp~1204670678~609))) (if (list? &temp~1204670678~611) (let ((&rep2~1204670678~603 &temp~1204670678~611)) (let ((&temp~1204670678~610 (cdr &temp~1204670678~609))) (if (null? &temp~1204670678~610) (let ((&temp~1204670678~607 (cdr &temp~1204670678~606))) (if (null? &temp~1204670678~607) (begin (cons (cons &h*~1204670678~600 &t*~1204670678~602) (cons (append &rep1~1204670678~601 &rep2~1204670678~603) (quote ())))) (&fail~1204670678~599))) (&fail~1204670678~599)))) (&fail~1204670678~599))) (&fail~1204670678~599))))) (&fail~1204670678~599))) (&fail~1204670678~599))) (&fail~1204670678~599)))) (&fail~1204670678~599))) (&fail~1204670678~599))))) (&fail~1204670678~599))) (&fail~1204670678~599)))))))) (&fail~1204670678~572)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~647 (car &input~1204670678~566))) (let ((&k~1204670678~620 &temp~1204670678~647)) (let ((&temp~1204670678~646 (cdr &input~1204670678~566))) (let ((&r~1204670678~621 &temp~1204670678~646)) (if (if (> &level~1204670678~564 0) (if (ex:identifier? &k~1204670678~620) (let ((x (ex:free-identifier=? &k~1204670678~620 (ex:syntax-rename (quote unsyntax) (quote ()) (quote (&env~1204670678~629)) 0 (quote (core quasisyntax)))))) (if x x (ex:free-identifier=? &k~1204670678~620 (ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (&env~1204670678~629)) 0 (quote (core quasisyntax)))))) #f) #f) (let ((&input~1204670678~635 (&expand~1204670678~539 &r~1204670678~621 (- &level~1204670678~564 1)))) (let ((&fail~1204670678~637 (lambda () (ex:invalid-form &input~1204670678~635)))) (if (pair? &input~1204670678~635) (let ((&temp~1204670678~645 (car &input~1204670678~635))) (let ((&r*~1204670678~638 &temp~1204670678~645)) (let ((&temp~1204670678~642 (cdr &input~1204670678~635))) (if (pair? &temp~1204670678~642) (let ((&temp~1204670678~644 (car &temp~1204670678~642))) (let ((&reps~1204670678~639 &temp~1204670678~644)) (let ((&temp~1204670678~643 (cdr &temp~1204670678~642))) (if (null? &temp~1204670678~643) (begin (cons (cons &k~1204670678~620 &r*~1204670678~638) (cons &reps~1204670678~639 (quote ())))) (&fail~1204670678~637))))) (&fail~1204670678~637))))) (&fail~1204670678~637)))) (&fail~1204670678~571)))))) (&fail~1204670678~571)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~680 (car &input~1204670678~566))) (if (pair? &temp~1204670678~680) (let ((&temp~1204670678~682 (car &temp~1204670678~680))) (if (and (ex:identifier? &temp~1204670678~682) (ex:free-identifier=? &temp~1204670678~682 (ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (&env~1204670678~683)) 0 (quote (core quasisyntax))))) (let ((&temp~1204670678~681 (cdr &temp~1204670678~680))) (if (list? &temp~1204670678~681) (let ((&e~1204670678~648 &temp~1204670678~681)) (let ((&temp~1204670678~679 (cdr &input~1204670678~566))) (let ((&r~1204670678~649 &temp~1204670678~679)) (if (= &level~1204670678~564 0) (let ((&input~1204670678~652 (list (&expand~1204670678~539 &r~1204670678~649 0) (ex:generate-temporaries &e~1204670678~648)))) (let ((&fail~1204670678~655 (lambda () (ex:invalid-form &input~1204670678~652)))) (if (pair? &input~1204670678~652) (let ((&temp~1204670678~674 (car &input~1204670678~652))) (if (pair? &temp~1204670678~674) (let ((&temp~1204670678~678 (car &temp~1204670678~674))) (let ((&r*~1204670678~656 &temp~1204670678~678)) (let ((&temp~1204670678~675 (cdr &temp~1204670678~674))) (if (pair? &temp~1204670678~675) (let ((&temp~1204670678~677 (car &temp~1204670678~675))) (if (list? &temp~1204670678~677) (let ((&rep~1204670678~657 &temp~1204670678~677)) (let ((&temp~1204670678~676 (cdr &temp~1204670678~675))) (if (null? &temp~1204670678~676) (let ((&temp~1204670678~671 (cdr &input~1204670678~652))) (if (pair? &temp~1204670678~671) (let ((&temp~1204670678~673 (car &temp~1204670678~671))) (if (list? &temp~1204670678~673) (let ((&t~1204670678~658 &temp~1204670678~673)) (let ((&temp~1204670678~672 (cdr &temp~1204670678~671))) (if (null? &temp~1204670678~672) (begin (let ((&input~1204670678~662 (map (lambda (&t~1204670678~658) (cons &t~1204670678~658 (cons (ex:syntax-rename (quote ...) (quote ()) (quote (&env~1204670678~664)) 0 (quote (core quasisyntax))) (quote ())))) &t~1204670678~658))) (let ((&fail~1204670678~665 (lambda () (ex:invalid-form &input~1204670678~662)))) (ex:map-while (lambda (&input~1204670678~662) (if (list? &input~1204670678~662) (let ((&t~1204670678~666 &input~1204670678~662)) (list &t~1204670678~666)) #f)) &input~1204670678~662 (lambda (&cols~1204670678~669 &rest~1204670678~670) (if (null? &rest~1204670678~670) (apply (lambda (&t~1204670678~666) (begin (cons (append (apply append &t~1204670678~666) &r*~1204670678~656) (cons (append (if (= (length &t~1204670678~666) (length &e~1204670678~648)) (map (lambda (&t~1204670678~666 &e~1204670678~648) (cons &t~1204670678~666 (cons &e~1204670678~648 (quote ())))) &t~1204670678~666 &e~1204670678~648) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote (((t ...) e) ... rep ...)) (list &t~1204670678~666 &e~1204670678~648))) &rep~1204670678~657) (quote ()))))) (if (null? &cols~1204670678~669) (quote (())) (apply map list &cols~1204670678~669))) (&fail~1204670678~665))))))) (&fail~1204670678~655)))) (&fail~1204670678~655))) (&fail~1204670678~655))) (&fail~1204670678~655)))) (&fail~1204670678~655))) (&fail~1204670678~655))))) (&fail~1204670678~655))) (&fail~1204670678~655)))) (&fail~1204670678~570))))) (&fail~1204670678~570))) (&fail~1204670678~570))) (&fail~1204670678~570))) (&fail~1204670678~570)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~706 (car &input~1204670678~566))) (if (pair? &temp~1204670678~706) (let ((&temp~1204670678~708 (car &temp~1204670678~706))) (if (and (ex:identifier? &temp~1204670678~708) (ex:free-identifier=? &temp~1204670678~708 (ex:syntax-rename (quote unsyntax) (quote ()) (quote (&env~1204670678~709)) 0 (quote (core quasisyntax))))) (let ((&temp~1204670678~707 (cdr &temp~1204670678~706))) (if (list? &temp~1204670678~707) (let ((&e~1204670678~684 &temp~1204670678~707)) (let ((&temp~1204670678~705 (cdr &input~1204670678~566))) (let ((&r~1204670678~685 &temp~1204670678~705)) (if (= &level~1204670678~564 0) (let ((&input~1204670678~688 (list (&expand~1204670678~539 &r~1204670678~685 0) (ex:generate-temporaries &e~1204670678~684)))) (let ((&fail~1204670678~691 (lambda () (ex:invalid-form &input~1204670678~688)))) (if (pair? &input~1204670678~688) (let ((&temp~1204670678~700 (car &input~1204670678~688))) (if (pair? &temp~1204670678~700) (let ((&temp~1204670678~704 (car &temp~1204670678~700))) (let ((&r*~1204670678~692 &temp~1204670678~704)) (let ((&temp~1204670678~701 (cdr &temp~1204670678~700))) (if (pair? &temp~1204670678~701) (let ((&temp~1204670678~703 (car &temp~1204670678~701))) (if (list? &temp~1204670678~703) (let ((&rep~1204670678~693 &temp~1204670678~703)) (let ((&temp~1204670678~702 (cdr &temp~1204670678~701))) (if (null? &temp~1204670678~702) (let ((&temp~1204670678~697 (cdr &input~1204670678~688))) (if (pair? &temp~1204670678~697) (let ((&temp~1204670678~699 (car &temp~1204670678~697))) (if (list? &temp~1204670678~699) (let ((&t~1204670678~694 &temp~1204670678~699)) (let ((&temp~1204670678~698 (cdr &temp~1204670678~697))) (if (null? &temp~1204670678~698) (begin (cons (append &t~1204670678~694 &r*~1204670678~692) (cons (append (if (= (length &t~1204670678~694) (length &e~1204670678~684)) (map (lambda (&t~1204670678~694 &e~1204670678~684) (cons &t~1204670678~694 (cons &e~1204670678~684 (quote ())))) &t~1204670678~694 &e~1204670678~684) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((t e) ... rep ...)) (list &t~1204670678~694 &e~1204670678~684))) &rep~1204670678~693) (quote ())))) (&fail~1204670678~691)))) (&fail~1204670678~691))) (&fail~1204670678~691))) (&fail~1204670678~691)))) (&fail~1204670678~691))) (&fail~1204670678~691))))) (&fail~1204670678~691))) (&fail~1204670678~691)))) (&fail~1204670678~569))))) (&fail~1204670678~569))) (&fail~1204670678~569))) (&fail~1204670678~569))) (&fail~1204670678~569)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~724 (car &input~1204670678~566))) (if (and (ex:identifier? &temp~1204670678~724) (ex:free-identifier=? &temp~1204670678~724 (ex:syntax-rename (quote unsyntax) (quote ()) (quote (&env~1204670678~725)) 0 (quote (core quasisyntax))))) (let ((&temp~1204670678~721 (cdr &input~1204670678~566))) (if (pair? &temp~1204670678~721) (let ((&temp~1204670678~723 (car &temp~1204670678~721))) (let ((&e~1204670678~710 &temp~1204670678~723)) (let ((&temp~1204670678~722 (cdr &temp~1204670678~721))) (if (null? &temp~1204670678~722) (if (= &level~1204670678~564 0) (let ((&input~1204670678~713 (ex:generate-temporaries (quote (t))))) (let ((&fail~1204670678~715 (lambda () (ex:invalid-form &input~1204670678~713)))) (if (pair? &input~1204670678~713) (let ((&temp~1204670678~720 (car &input~1204670678~713))) (let ((&t~1204670678~716 &temp~1204670678~720)) (let ((&temp~1204670678~719 (cdr &input~1204670678~713))) (if (null? &temp~1204670678~719) (begin (cons &t~1204670678~716 (cons (cons (cons &t~1204670678~716 (cons &e~1204670678~710 (quote ()))) (quote ())) (quote ())))) (&fail~1204670678~715))))) (&fail~1204670678~715)))) (&fail~1204670678~568)) (&fail~1204670678~568))))) (&fail~1204670678~568))) (&fail~1204670678~568))) (&fail~1204670678~568)))))) (if (pair? &input~1204670678~566) (let ((&temp~1204670678~752 (car &input~1204670678~566))) (if (and (ex:identifier? &temp~1204670678~752) (ex:free-identifier=? &temp~1204670678~752 (ex:syntax-rename (quote quasisyntax) (quote ()) (quote (&env~1204670678~753)) 0 (quote (core quasisyntax))))) (let ((&temp~1204670678~749 (cdr &input~1204670678~566))) (if (pair? &temp~1204670678~749) (let ((&temp~1204670678~751 (car &temp~1204670678~749))) (let ((&e~1204670678~726 &temp~1204670678~751)) (let ((&temp~1204670678~750 (cdr &temp~1204670678~749))) (if (null? &temp~1204670678~750) (let ((&input~1204670678~729 (list &x~1204670678~563 (&expand~1204670678~539 &e~1204670678~726 (+ &level~1204670678~564 1))))) (let ((&fail~1204670678~731 (lambda () (ex:invalid-form &input~1204670678~729)))) (if (pair? &input~1204670678~729) (let ((&temp~1204670678~744 (car &input~1204670678~729))) (if (pair? &temp~1204670678~744) (let ((&temp~1204670678~748 (car &temp~1204670678~744))) (let ((&k~1204670678~732 &temp~1204670678~748)) (let ((&temp~1204670678~745 (cdr &temp~1204670678~744))) (if (pair? &temp~1204670678~745) (let ((&temp~1204670678~747 (car &temp~1204670678~745))) (let ((&temp~1204670678~746 (cdr &temp~1204670678~745))) (if (null? &temp~1204670678~746) (let ((&temp~1204670678~737 (cdr &input~1204670678~729))) (if (pair? &temp~1204670678~737) (let ((&temp~1204670678~739 (car &temp~1204670678~737))) (if (pair? &temp~1204670678~739) (let ((&temp~1204670678~743 (car &temp~1204670678~739))) (let ((&e*~1204670678~733 &temp~1204670678~743)) (let ((&temp~1204670678~740 (cdr &temp~1204670678~739))) (if (pair? &temp~1204670678~740) (let ((&temp~1204670678~742 (car &temp~1204670678~740))) (let ((&reps~1204670678~734 &temp~1204670678~742)) (let ((&temp~1204670678~741 (cdr &temp~1204670678~740))) (if (null? &temp~1204670678~741) (let ((&temp~1204670678~738 (cdr &temp~1204670678~737))) (if (null? &temp~1204670678~738) (begin (cons (cons &k~1204670678~732 (cons &e*~1204670678~733 (quote ()))) (cons &reps~1204670678~734 (quote ())))) (&fail~1204670678~731))) (&fail~1204670678~731))))) (&fail~1204670678~731))))) (&fail~1204670678~731))) (&fail~1204670678~731))) (&fail~1204670678~731)))) (&fail~1204670678~731))))) (&fail~1204670678~731))) (&fail~1204670678~731)))) (&fail~1204670678~567))))) (&fail~1204670678~567))) (&fail~1204670678~567))) (&fail~1204670678~567)))))) (let ((&input~1204670678~541 &e~1204670678~538)) (let ((&fail~1204670678~542 (lambda () (ex:invalid-form &input~1204670678~541)))) (if (pair? &input~1204670678~541) (let ((&temp~1204670678~561 (car &input~1204670678~541))) (let ((&temp~1204670678~558 (cdr &input~1204670678~541))) (if (pair? &temp~1204670678~558) (let ((&temp~1204670678~560 (car &temp~1204670678~558))) (let ((&template~1204670678~543 &temp~1204670678~560)) (let ((&temp~1204670678~559 (cdr &temp~1204670678~558))) (if (null? &temp~1204670678~559) (let ((&input~1204670678~546 (&expand~1204670678~539 &template~1204670678~543 0))) (let ((&fail~1204670678~548 (lambda () (ex:invalid-form &input~1204670678~546)))) (if (pair? &input~1204670678~546) (let ((&temp~1204670678~557 (car &input~1204670678~546))) (let ((&template*~1204670678~549 &temp~1204670678~557)) (let ((&temp~1204670678~554 (cdr &input~1204670678~546))) (if (pair? &temp~1204670678~554) (let ((&temp~1204670678~556 (car &temp~1204670678~554))) (let ((&replacements~1204670678~550 &temp~1204670678~556)) (let ((&temp~1204670678~555 (cdr &temp~1204670678~554))) (if (null? &temp~1204670678~555) (begin (cons (ex:syntax-rename (quote with-syntax) (quote ()) (quote (&env~1204670678~553)) 0 (quote (core quasisyntax))) (cons &replacements~1204670678~550 (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~553)) 0 (quote (core quasisyntax))) (cons &template*~1204670678~549 (quote ()))) (quote ()))))) (&fail~1204670678~548))))) (&fail~1204670678~548))))) (&fail~1204670678~548)))) (&fail~1204670678~542))))) (&fail~1204670678~542)))) (&fail~1204670678~542))))) ex:undefined))) (ex:register-macro! (quote &unsyntax~1204670678~754) (lambda (&e~1204670678~756) (ex:syntax-violation (quote unsyntax) "Invalid expression" &e~1204670678~756))) (ex:register-macro! (quote &unsyntax-splicing~1204670678~758) (lambda (&e~1204670678~760) (ex:syntax-violation (quote unsyntax) "Invalid expression" &e~1204670678~760))) (values)) (lambda () (values)) (quote &build~1204670678~762))) (values))
(begin (ex:register-library! (ex:make-library (quote (core quasiquote)) (lambda () (ex:uncompress (quote (((&env~1204670678~1191 0 1 2 3 4 5) (&env~1204670678~1181 6 1 2 3 4 5) (&env~1204670678~1172 7 8 1 2 3 4 5) (&env~1204670678~1162 9 8 1 2 3 4 5) (&env~1204670678~1125 10 11 12 13 3 4 5) (&env~1204670678~1115 14 11 12 13 3 4 5) (&env~1204670678~902 15 16 17 3 4 5) (&env~1204670678~897 18 19 16 17 3 4 5) (&env~1204670678~874 20 21 22 23 24 25 16 17 3 4 5) (&env~1204670678~842 26 27 16 17 3 4 5) (&env~1204670678~828 28 29 16 17 3 4 5) (&env~1204670678~812 30 31 16 17 3 4 5)) (31 (((x) . #f))) (30 (((temp &c~1204670678~803) . #f))) (29 (((x) . #f))) (28 (((temp &c~1204670678~819) . #f))) (27 (((x) . #f))) (26 (((temp &c~1204670678~833) . #f))) (25 (((x) . #f) ((y) . #f))) (24 (((f) variable &f~1204670678~852 (1) #t (core quasiquote)))) (23 ()) (22 (((x*) variable &x*~1204670678~860 (1) #f (core quasiquote)))) (21 ()) (20 (((temp &c~1204670678~865) . #f) ((temp &c~1204670678~864) . #f))) (19 (((x) . #f))) (18 (((temp &c~1204670678~888) . #f))) (17 (((x) variable &x~1204670678~785 (1) #f (core quasiquote)))) (16 ()) (15 (((x) . #f))) (14 (((p) . #f))) (13 (((p) variable &p~1204670678~1093 (1) #f (core quasiquote)) ((lev) variable &lev~1204670678~1094 (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~1204670678~1201 (0) #f (core quasiquote)) ((unquote) macro &unquote~1204670678~1197 (0) #f (core quasiquote)) ((quasiquote) macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) ((undefined) variable ex:undefined (0 1) #f ()) ((eval) variable ex:eval (0 1) #f ()) ((environment-bindings) variable ex:environment-bindings (0 1) #f ()) ((environment) variable ex:environment (0 1) #f ()) ((syntax-violation) variable ex:syntax-violation (0 1) #f ()) ((syntax->datum) variable ex:syntax->datum (0 1) #f ()) ((datum->syntax) variable ex:datum->syntax (0 1) #f ()) ((generate-temporaries) variable ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (0 1) #f ()) ((identifier?) variable ex:identifier? (0 1) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (0 1) #f ()) ((syntax-case) macro syntax-case (0 1) #f ()) ((syntax) macro syntax (0 1) #f ()) ((...) macro ... (0 1) #f ()) ((_) macro _ (0 1) #f ()) ((letrec-syntax) macro letrec-syntax (0 1) #f ()) ((let-syntax) macro let-syntax (0 1) #f ()) ((define-syntax) macro define-syntax (0 1) #f ()) ((define) macro define (0 1) #f ()) ((or) macro or (0 1) #f ()) ((and) macro and (0 1) #f ()) ((set!) macro set! (0 1) #f ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((if) macro if (0 1) #f ()) ((begin) macro begin (0 1) #f ()) ((letrec*) macro &letrec*~1204670678~179 (0 1) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0 1) #f (core let)) ((let) macro &let~1204670678~100 (0 1) #f (core let)) ((=>) macro &=>~1204670678~481 (0 1) #f (core derived)) ((else) macro &else~1204670678~485 (0 1) #f (core derived)) ((case) macro &case~1204670678~401 (0 1) #f (core derived)) ((cond) macro &cond~1204670678~285 (0 1) #f (core derived)) ((let*) macro &let*~1204670678~204 (0 1) #f (core derived)) ((with-syntax) macro &with-syntax~1204670678~3 (1) #f (core with-syntax)) ((unsyntax-splicing) macro &unsyntax-splicing~1204670678~758 (1) #f (core quasisyntax)) ((unsyntax) macro &unsyntax~1204670678~754 (1) #f (core quasisyntax)) ((quasisyntax) macro &quasisyntax~1204670678~536 (1) #f (core quasisyntax)) ((list->vector) variable list->vector (0 1) #f ()) ((vector) variable vector (0 1) #f ()) ((list) variable list (0 1) #f ()) ((map) variable map (0 1) #f ()) ((append) variable append (0 1) #f ()) ((cdr) variable cdr (0 1) #f ()) ((car) variable car (0 1) #f ()) ((cons) variable cons (0 1) #f ()) ((null?) variable null? (0 1) #f ()) ((-) variable - (0 1) #f ()) ((+) variable + (0 1) #f ()) ((=) variable = (0 1) #f ()))) (4 ()) (3 (((emit) variable &emit~1204670678~772 (1) #f (core quasiquote)) ((quasivector) variable &quasivector~1204670678~771 (1) #f (core quasiquote)) ((quasilist*) variable &quasilist*~1204670678~770 (1) #f (core quasiquote)) ((quasiappend) variable &quasiappend~1204670678~769 (1) #f (core quasiquote)) ((quasicons) variable &quasicons~1204670678~768 (1) #f (core quasiquote)) ((vquasi) variable &vquasi~1204670678~767 (1) #f (core quasiquote)) ((quasi) variable &quasi~1204670678~766 (1) #f (core quasiquote)))) (2 (((p) variable &p~1204670678~1133 (1) #f (core quasiquote)) ((lev) variable &lev~1204670678~1134 (1) #f (core quasiquote)))) (1 ()) (0 (((p) . #f))))))) (quote ((quasiquote macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) (unquote macro &unquote~1204670678~1197 (0) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1204670678~1201 (0) #f (core quasiquote)))) (quote (((core quasisyntax) 1) ((core with-syntax) 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1))) (quote (&build~1204670678~762 &build~1204670678~57 &build~1204670678~489 &build~1204670678~203 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &quasiquote~1204670678~763) ((lambda () ((lambda (&emit~1204670678~772 &quasivector~1204670678~771 &quasilist*~1204670678~770 &quasiappend~1204670678~769 &quasicons~1204670678~768 &vquasi~1204670678~767 &quasi~1204670678~766) (set! &quasi~1204670678~766 (lambda (&p~1204670678~1133 &lev~1204670678~1134) (let ((&input~1204670678~1136 &p~1204670678~1133)) (let ((&fail~1204670678~1137 (lambda () (let ((&fail~1204670678~1138 (lambda () (let ((&fail~1204670678~1139 (lambda () (let ((&fail~1204670678~1140 (lambda () (let ((&fail~1204670678~1141 (lambda () (ex:invalid-form &input~1204670678~1136)))) (let ((&p~1204670678~1142 &input~1204670678~1136)) (cons (quote "quote") (cons &p~1204670678~1142 (quote ())))))))) (if (vector? &input~1204670678~1136) (let ((&temp~1204670678~1146 (vector->list &input~1204670678~1136))) (if (list? &temp~1204670678~1146) (let ((&x~1204670678~1144 &temp~1204670678~1146)) (&quasivector~1204670678~771 (&vquasi~1204670678~767 &x~1204670678~1144 &lev~1204670678~1134))) (&fail~1204670678~1140))) (&fail~1204670678~1140)))))) (if (pair? &input~1204670678~1136) (let ((&temp~1204670678~1178 (car &input~1204670678~1136))) (let ((&p~1204670678~1147 &temp~1204670678~1178)) (let ((&temp~1204670678~1177 (cdr &input~1204670678~1136))) (let ((&q~1204670678~1148 &temp~1204670678~1177)) (let ((&input~1204670678~1150 &p~1204670678~1147)) (let ((&fail~1204670678~1152 (lambda () (let ((&fail~1204670678~1153 (lambda () (let ((&fail~1204670678~1154 (lambda () (ex:invalid-form &input~1204670678~1150)))) (&quasicons~1204670678~768 (&quasi~1204670678~766 &p~1204670678~1147 &lev~1204670678~1134) (&quasi~1204670678~766 &q~1204670678~1148 &lev~1204670678~1134)))))) (if (pair? &input~1204670678~1150) (let ((&temp~1204670678~1166 (car &input~1204670678~1150))) (if (and (ex:identifier? &temp~1204670678~1166) (ex:free-identifier=? &temp~1204670678~1166 (ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (&env~1204670678~1162)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1165 (cdr &input~1204670678~1150))) (if (list? &temp~1204670678~1165) (let ((&p~1204670678~1157 &temp~1204670678~1165)) (if (= &lev~1204670678~1134 0) (&quasiappend~1204670678~769 (map (lambda (&p~1204670678~1157) (cons (quote "value") (cons &p~1204670678~1157 (quote ())))) &p~1204670678~1157) (&quasi~1204670678~766 &q~1204670678~1148 &lev~1204670678~1134)) (&quasicons~1204670678~768 (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (&env~1204670678~1162)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 &p~1204670678~1157 (- &lev~1204670678~1134 1))) (&quasi~1204670678~766 &q~1204670678~1148 &lev~1204670678~1134)))) (&fail~1204670678~1153))) (&fail~1204670678~1153))) (&fail~1204670678~1153)))))) (if (pair? &input~1204670678~1150) (let ((&temp~1204670678~1176 (car &input~1204670678~1150))) (if (and (ex:identifier? &temp~1204670678~1176) (ex:free-identifier=? &temp~1204670678~1176 (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1172)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1175 (cdr &input~1204670678~1150))) (if (list? &temp~1204670678~1175) (let ((&p~1204670678~1167 &temp~1204670678~1175)) (if (= &lev~1204670678~1134 0) (&quasilist*~1204670678~770 (map (lambda (&p~1204670678~1167) (cons (quote "value") (cons &p~1204670678~1167 (quote ())))) &p~1204670678~1167) (&quasi~1204670678~766 &q~1204670678~1148 &lev~1204670678~1134)) (&quasicons~1204670678~768 (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1172)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 &p~1204670678~1167 (- &lev~1204670678~1134 1))) (&quasi~1204670678~766 &q~1204670678~1148 &lev~1204670678~1134)))) (&fail~1204670678~1152))) (&fail~1204670678~1152))) (&fail~1204670678~1152)))))))) (&fail~1204670678~1139)))))) (if (pair? &input~1204670678~1136) (let ((&temp~1204670678~1186 (car &input~1204670678~1136))) (if (and (ex:identifier? &temp~1204670678~1186) (ex:free-identifier=? &temp~1204670678~1186 (ex:syntax-rename (quote quasiquote) (quote ()) (quote (&env~1204670678~1181)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1183 (cdr &input~1204670678~1136))) (if (pair? &temp~1204670678~1183) (let ((&temp~1204670678~1185 (car &temp~1204670678~1183))) (let ((&p~1204670678~1179 &temp~1204670678~1185)) (let ((&temp~1204670678~1184 (cdr &temp~1204670678~1183))) (if (null? &temp~1204670678~1184) (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote quasiquote) (quote ()) (quote (&env~1204670678~1181)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 (cons &p~1204670678~1179 (quote ())) (+ &lev~1204670678~1134 1))) (&fail~1204670678~1138))))) (&fail~1204670678~1138))) (&fail~1204670678~1138))) (&fail~1204670678~1138)))))) (if (pair? &input~1204670678~1136) (let ((&temp~1204670678~1196 (car &input~1204670678~1136))) (if (and (ex:identifier? &temp~1204670678~1196) (ex:free-identifier=? &temp~1204670678~1196 (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1191)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1193 (cdr &input~1204670678~1136))) (if (pair? &temp~1204670678~1193) (let ((&temp~1204670678~1195 (car &temp~1204670678~1193))) (let ((&p~1204670678~1187 &temp~1204670678~1195)) (let ((&temp~1204670678~1194 (cdr &temp~1204670678~1193))) (if (null? &temp~1204670678~1194) (if (= &lev~1204670678~1134 0) (cons (quote "value") (cons &p~1204670678~1187 (quote ()))) (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1191)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 (cons &p~1204670678~1187 (quote ())) (- &lev~1204670678~1134 1)))) (&fail~1204670678~1137))))) (&fail~1204670678~1137))) (&fail~1204670678~1137))) (&fail~1204670678~1137)))))) (set! &vquasi~1204670678~767 (lambda (&p~1204670678~1093 &lev~1204670678~1094) (let ((&input~1204670678~1096 &p~1204670678~1093)) (let ((&fail~1204670678~1097 (lambda () (let ((&fail~1204670678~1098 (lambda () (ex:invalid-form &input~1204670678~1096)))) (if (null? &input~1204670678~1096) (cons (quote "quote") (cons (quote ()) (quote ()))) (&fail~1204670678~1098)))))) (if (pair? &input~1204670678~1096) (let ((&temp~1204670678~1131 (car &input~1204670678~1096))) (let ((&p~1204670678~1100 &temp~1204670678~1131)) (let ((&temp~1204670678~1130 (cdr &input~1204670678~1096))) (let ((&q~1204670678~1101 &temp~1204670678~1130)) (let ((&input~1204670678~1103 &p~1204670678~1100)) (let ((&fail~1204670678~1105 (lambda () (let ((&fail~1204670678~1106 (lambda () (let ((&fail~1204670678~1107 (lambda () (ex:invalid-form &input~1204670678~1103)))) (&quasicons~1204670678~768 (&quasi~1204670678~766 &p~1204670678~1100 &lev~1204670678~1094) (&vquasi~1204670678~767 &q~1204670678~1101 &lev~1204670678~1094)))))) (if (pair? &input~1204670678~1103) (let ((&temp~1204670678~1119 (car &input~1204670678~1103))) (if (and (ex:identifier? &temp~1204670678~1119) (ex:free-identifier=? &temp~1204670678~1119 (ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (&env~1204670678~1115)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1118 (cdr &input~1204670678~1103))) (if (list? &temp~1204670678~1118) (let ((&p~1204670678~1110 &temp~1204670678~1118)) (if (= &lev~1204670678~1094 0) (&quasiappend~1204670678~769 (map (lambda (&p~1204670678~1110) (cons (quote "value") (cons &p~1204670678~1110 (quote ())))) &p~1204670678~1110) (&vquasi~1204670678~767 &q~1204670678~1101 &lev~1204670678~1094)) (&quasicons~1204670678~768 (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (&env~1204670678~1115)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 &p~1204670678~1110 (- &lev~1204670678~1094 1))) (&vquasi~1204670678~767 &q~1204670678~1101 &lev~1204670678~1094)))) (&fail~1204670678~1106))) (&fail~1204670678~1106))) (&fail~1204670678~1106)))))) (if (pair? &input~1204670678~1103) (let ((&temp~1204670678~1129 (car &input~1204670678~1103))) (if (and (ex:identifier? &temp~1204670678~1129) (ex:free-identifier=? &temp~1204670678~1129 (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1125)) 0 (quote (core quasiquote))))) (let ((&temp~1204670678~1128 (cdr &input~1204670678~1103))) (if (list? &temp~1204670678~1128) (let ((&p~1204670678~1120 &temp~1204670678~1128)) (if (= &lev~1204670678~1094 0) (&quasilist*~1204670678~770 (map (lambda (&p~1204670678~1120) (cons (quote "value") (cons &p~1204670678~1120 (quote ())))) &p~1204670678~1120) (&vquasi~1204670678~767 &q~1204670678~1101 &lev~1204670678~1094)) (&quasicons~1204670678~768 (&quasicons~1204670678~768 (cons (quote "quote") (cons (ex:syntax-rename (quote unquote) (quote ()) (quote (&env~1204670678~1125)) 0 (quote (core quasiquote))) (quote ()))) (&quasi~1204670678~766 &p~1204670678~1120 (- &lev~1204670678~1094 1))) (&vquasi~1204670678~767 &q~1204670678~1101 &lev~1204670678~1094)))) (&fail~1204670678~1105))) (&fail~1204670678~1105))) (&fail~1204670678~1105)))))))) (&fail~1204670678~1097)))))) (set! &quasicons~1204670678~768 (lambda (&x~1204670678~1043 &y~1204670678~1044) (let ((&input~1204670678~1047 (list &x~1204670678~1043 &y~1204670678~1044))) (let ((&fail~1204670678~1048 (lambda () (ex:invalid-form &input~1204670678~1047)))) (if (pair? &input~1204670678~1047) (let ((&temp~1204670678~1091 (car &input~1204670678~1047))) (let ((&x~1204670678~1049 &temp~1204670678~1091)) (let ((&temp~1204670678~1088 (cdr &input~1204670678~1047))) (if (pair? &temp~1204670678~1088) (let ((&temp~1204670678~1090 (car &temp~1204670678~1088))) (let ((&y~1204670678~1050 &temp~1204670678~1090)) (let ((&temp~1204670678~1089 (cdr &temp~1204670678~1088))) (if (null? &temp~1204670678~1089) (begin (let ((&input~1204670678~1053 &y~1204670678~1050)) (let ((&fail~1204670678~1055 (lambda () (let ((&fail~1204670678~1056 (lambda () (let ((&fail~1204670678~1057 (lambda () (let ((&fail~1204670678~1058 (lambda () (ex:invalid-form &input~1204670678~1053)))) (cons (quote "list*") (cons &x~1204670678~1049 (cons &y~1204670678~1050 (quote ())))))))) (if (pair? &input~1204670678~1053) (let ((&temp~1204670678~1063 (car &input~1204670678~1053))) (if (equal? &temp~1204670678~1063 (quote "list*")) (let ((&temp~1204670678~1062 (cdr &input~1204670678~1053))) (let ((&stuff~1204670678~1060 &temp~1204670678~1062)) (cons (quote "list*") (cons &x~1204670678~1049 &stuff~1204670678~1060)))) (&fail~1204670678~1057))) (&fail~1204670678~1057)))))) (if (pair? &input~1204670678~1053) (let ((&temp~1204670678~1067 (car &input~1204670678~1053))) (if (equal? &temp~1204670678~1067 (quote "list")) (let ((&temp~1204670678~1066 (cdr &input~1204670678~1053))) (let ((&stuff~1204670678~1064 &temp~1204670678~1066)) (cons (quote "list") (cons &x~1204670678~1049 &stuff~1204670678~1064)))) (&fail~1204670678~1056))) (&fail~1204670678~1056)))))) (if (pair? &input~1204670678~1053) (let ((&temp~1204670678~1087 (car &input~1204670678~1053))) (if (equal? &temp~1204670678~1087 (quote "quote")) (let ((&temp~1204670678~1084 (cdr &input~1204670678~1053))) (if (pair? &temp~1204670678~1084) (let ((&temp~1204670678~1086 (car &temp~1204670678~1084))) (let ((&dy~1204670678~1068 &temp~1204670678~1086)) (let ((&temp~1204670678~1085 (cdr &temp~1204670678~1084))) (if (null? &temp~1204670678~1085) (let ((&input~1204670678~1070 &x~1204670678~1049)) (let ((&fail~1204670678~1072 (lambda () (let ((&fail~1204670678~1073 (lambda () (ex:invalid-form &input~1204670678~1070)))) (if (null? &dy~1204670678~1068) (cons (quote "list") (cons &x~1204670678~1049 (quote ()))) (cons (quote "list*") (cons &x~1204670678~1049 (cons &y~1204670678~1050 (quote ()))))))))) (if (pair? &input~1204670678~1070) (let ((&temp~1204670678~1083 (car &input~1204670678~1070))) (if (equal? &temp~1204670678~1083 (quote "quote")) (let ((&temp~1204670678~1080 (cdr &input~1204670678~1070))) (if (pair? &temp~1204670678~1080) (let ((&temp~1204670678~1082 (car &temp~1204670678~1080))) (let ((&dx~1204670678~1078 &temp~1204670678~1082)) (let ((&temp~1204670678~1081 (cdr &temp~1204670678~1080))) (if (null? &temp~1204670678~1081) (cons (quote "quote") (cons (cons &dx~1204670678~1078 &dy~1204670678~1068) (quote ()))) (&fail~1204670678~1072))))) (&fail~1204670678~1072))) (&fail~1204670678~1072))) (&fail~1204670678~1072)))) (&fail~1204670678~1055))))) (&fail~1204670678~1055))) (&fail~1204670678~1055))) (&fail~1204670678~1055))))) (&fail~1204670678~1048))))) (&fail~1204670678~1048))))) (&fail~1204670678~1048)))))) (set! &quasiappend~1204670678~769 (lambda (&x~1204670678~1002 &y~1204670678~1003) (let ((&input~1204670678~1005 &y~1204670678~1003)) (let ((&fail~1204670678~1006 (lambda () (let ((&fail~1204670678~1007 (lambda () (ex:invalid-form &input~1204670678~1005)))) (if (null? &x~1204670678~1002) (begin &y~1204670678~1003) (begin (let ((&input~1204670678~1014 (list &x~1204670678~1002 &y~1204670678~1003))) (let ((&fail~1204670678~1015 (lambda () (ex:invalid-form &input~1204670678~1014)))) (if (pair? &input~1204670678~1014) (let ((&temp~1204670678~1023 (car &input~1204670678~1014))) (if (list? &temp~1204670678~1023) (let ((&p~1204670678~1016 &temp~1204670678~1023)) (let ((&temp~1204670678~1020 (cdr &input~1204670678~1014))) (if (pair? &temp~1204670678~1020) (let ((&temp~1204670678~1022 (car &temp~1204670678~1020))) (let ((&y~1204670678~1017 &temp~1204670678~1022)) (let ((&temp~1204670678~1021 (cdr &temp~1204670678~1020))) (if (null? &temp~1204670678~1021) (begin (cons (quote "append") (append &p~1204670678~1016 (cons &y~1204670678~1017 (quote ()))))) (&fail~1204670678~1015))))) (&fail~1204670678~1015)))) (&fail~1204670678~1015))) (&fail~1204670678~1015)))))))))) (if (pair? &input~1204670678~1005) (let ((&temp~1204670678~1041 (car &input~1204670678~1005))) (if (equal? &temp~1204670678~1041 (quote "quote")) (let ((&temp~1204670678~1038 (cdr &input~1204670678~1005))) (if (pair? &temp~1204670678~1038) (let ((&temp~1204670678~1040 (car &temp~1204670678~1038))) (if (null? &temp~1204670678~1040) (let ((&temp~1204670678~1039 (cdr &temp~1204670678~1038))) (if (null? &temp~1204670678~1039) (if (null? &x~1204670678~1002) (begin (cons (quote "quote") (cons (quote ()) (quote ())))) (if (null? (cdr &x~1204670678~1002)) (begin (car &x~1204670678~1002)) (begin (let ((&input~1204670678~1033 &x~1204670678~1002)) (let ((&fail~1204670678~1034 (lambda () (ex:invalid-form &input~1204670678~1033)))) (if (list? &input~1204670678~1033) (let ((&p~1204670678~1035 &input~1204670678~1033)) (begin (cons (quote "append") &p~1204670678~1035))) (&fail~1204670678~1034))))))) (&fail~1204670678~1006))) (&fail~1204670678~1006))) (&fail~1204670678~1006))) (&fail~1204670678~1006))) (&fail~1204670678~1006)))))) (set! &quasilist*~1204670678~770 (lambda (&x~1204670678~984 &y~1204670678~985) (((lambda (&f~1204670678~991) ((lambda (&temp~1204670678~994) (set! &f~1204670678~991 &temp~1204670678~994) ((lambda () &f~1204670678~991))) (lambda (&x~1204670678~999) (if (null? &x~1204670678~999) &y~1204670678~985 (&quasicons~1204670678~768 (car &x~1204670678~999) (&f~1204670678~991 (cdr &x~1204670678~999))))))) ex:undefined) &x~1204670678~984))) (set! &quasivector~1204670678~771 (lambda (&x~1204670678~908) (let ((&input~1204670678~910 &x~1204670678~908)) (let ((&fail~1204670678~911 (lambda () (let ((&fail~1204670678~912 (lambda () (ex:invalid-form &input~1204670678~910)))) (((lambda (&f~1204670678~918) ((lambda (&temp~1204670678~921) (set! &f~1204670678~918 &temp~1204670678~921) ((lambda () &f~1204670678~918))) (lambda (&y~1204670678~926 &k~1204670678~927) (let ((&input~1204670678~929 &y~1204670678~926)) (let ((&fail~1204670678~930 (lambda () (let ((&fail~1204670678~931 (lambda () (let ((&fail~1204670678~932 (lambda () (let ((&fail~1204670678~933 (lambda () (ex:invalid-form &input~1204670678~929)))) (let ((&else~1204670678~934 &input~1204670678~929)) (let ((&input~1204670678~939 &x~1204670678~908)) (let ((&fail~1204670678~940 (lambda () (ex:invalid-form &input~1204670678~939)))) (let ((&temp~1204670678~941 &input~1204670678~939)) (begin (cons (quote "list->vector") (cons &temp~1204670678~941 (quote ())))))))))))) (if (pair? &input~1204670678~929) (let ((&temp~1204670678~955 (car &input~1204670678~929))) (if (equal? &temp~1204670678~955 (quote "list*")) (let ((&temp~1204670678~950 (cdr &input~1204670678~929))) (if (>= (ex:dotted-length &temp~1204670678~950) 1) (let ((&temp~1204670678~954 (ex:dotted-butlast &temp~1204670678~950 1))) (if (list? &temp~1204670678~954) (let ((&y~1204670678~944 &temp~1204670678~954)) (let ((&temp~1204670678~951 (ex:dotted-last &temp~1204670678~950 1))) (if (pair? &temp~1204670678~951) (let ((&temp~1204670678~953 (car &temp~1204670678~951))) (let ((&z~1204670678~945 &temp~1204670678~953)) (let ((&temp~1204670678~952 (cdr &temp~1204670678~951))) (if (null? &temp~1204670678~952) (&f~1204670678~918 &z~1204670678~945 (lambda (&ls~1204670678~948) (&k~1204670678~927 (append &y~1204670678~944 &ls~1204670678~948)))) (&fail~1204670678~932))))) (&fail~1204670678~932)))) (&fail~1204670678~932))) (&fail~1204670678~932))) (&fail~1204670678~932))) (&fail~1204670678~932)))))) (if (pair? &input~1204670678~929) (let ((&temp~1204670678~959 (car &input~1204670678~929))) (if (equal? &temp~1204670678~959 (quote "list")) (let ((&temp~1204670678~958 (cdr &input~1204670678~929))) (if (list? &temp~1204670678~958) (let ((&y~1204670678~956 &temp~1204670678~958)) (&k~1204670678~927 &y~1204670678~956)) (&fail~1204670678~931))) (&fail~1204670678~931))) (&fail~1204670678~931)))))) (if (pair? &input~1204670678~929) (let ((&temp~1204670678~965 (car &input~1204670678~929))) (if (equal? &temp~1204670678~965 (quote "quote")) (let ((&temp~1204670678~962 (cdr &input~1204670678~929))) (if (pair? &temp~1204670678~962) (let ((&temp~1204670678~964 (car &temp~1204670678~962))) (if (list? &temp~1204670678~964) (let ((&y~1204670678~960 &temp~1204670678~964)) (let ((&temp~1204670678~963 (cdr &temp~1204670678~962))) (if (null? &temp~1204670678~963) (&k~1204670678~927 (map (lambda (&y~1204670678~960) (cons (quote "quote") (cons &y~1204670678~960 (quote ())))) &y~1204670678~960)) (&fail~1204670678~930)))) (&fail~1204670678~930))) (&fail~1204670678~930))) (&fail~1204670678~930))) (&fail~1204670678~930))))))) ex:undefined) &x~1204670678~908 (lambda (&ls~1204670678~967) (let ((&input~1204670678~972 &ls~1204670678~967)) (let ((&fail~1204670678~973 (lambda () (ex:invalid-form &input~1204670678~972)))) (if (list? &input~1204670678~972) (let ((&temp~1204670678~974 &input~1204670678~972)) (begin (cons (quote "vector") &temp~1204670678~974))) (&fail~1204670678~973)))))))))) (if (pair? &input~1204670678~910) (let ((&temp~1204670678~982 (car &input~1204670678~910))) (if (equal? &temp~1204670678~982 (quote "quote")) (let ((&temp~1204670678~979 (cdr &input~1204670678~910))) (if (pair? &temp~1204670678~979) (let ((&temp~1204670678~981 (car &temp~1204670678~979))) (if (list? &temp~1204670678~981) (let ((&x~1204670678~977 &temp~1204670678~981)) (let ((&temp~1204670678~980 (cdr &temp~1204670678~979))) (if (null? &temp~1204670678~980) (cons (quote "quote") (cons (list->vector &x~1204670678~977) (quote ()))) (&fail~1204670678~911)))) (&fail~1204670678~911))) (&fail~1204670678~911))) (&fail~1204670678~911))) (&fail~1204670678~911)))))) (set! &emit~1204670678~772 (lambda (&x~1204670678~785) (let ((&input~1204670678~787 &x~1204670678~785)) (let ((&fail~1204670678~788 (lambda () (let ((&fail~1204670678~789 (lambda () (let ((&fail~1204670678~790 (lambda () (let ((&fail~1204670678~791 (lambda () (let ((&fail~1204670678~792 (lambda () (let ((&fail~1204670678~793 (lambda () (let ((&fail~1204670678~794 (lambda () (ex:invalid-form &input~1204670678~787)))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~800 (car &input~1204670678~787))) (if (equal? &temp~1204670678~800 (quote "value")) (let ((&temp~1204670678~797 (cdr &input~1204670678~787))) (if (pair? &temp~1204670678~797) (let ((&temp~1204670678~799 (car &temp~1204670678~797))) (let ((&x~1204670678~795 &temp~1204670678~799)) (let ((&temp~1204670678~798 (cdr &temp~1204670678~797))) (if (null? &temp~1204670678~798) &x~1204670678~795 (&fail~1204670678~794))))) (&fail~1204670678~794))) (&fail~1204670678~794))) (&fail~1204670678~794)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~816 (car &input~1204670678~787))) (if (equal? &temp~1204670678~816 (quote "list->vector")) (let ((&temp~1204670678~813 (cdr &input~1204670678~787))) (if (pair? &temp~1204670678~813) (let ((&temp~1204670678~815 (car &temp~1204670678~813))) (let ((&x~1204670678~801 &temp~1204670678~815)) (let ((&temp~1204670678~814 (cdr &temp~1204670678~813))) (if (null? &temp~1204670678~814) (let ((&input~1204670678~806 (&emit~1204670678~772 &x~1204670678~801))) (let ((&fail~1204670678~808 (lambda () (ex:invalid-form &input~1204670678~806)))) (let ((&temp~1204670678~809 &input~1204670678~806)) (begin (cons (ex:syntax-rename (quote list->vector) (quote ()) (quote (&env~1204670678~812)) 0 (quote (core quasiquote))) (cons &temp~1204670678~809 (quote ()))))))) (&fail~1204670678~793))))) (&fail~1204670678~793))) (&fail~1204670678~793))) (&fail~1204670678~793)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~830 (car &input~1204670678~787))) (if (equal? &temp~1204670678~830 (quote "vector")) (let ((&temp~1204670678~829 (cdr &input~1204670678~787))) (if (list? &temp~1204670678~829) (let ((&x~1204670678~817 &temp~1204670678~829)) (let ((&input~1204670678~822 (map &emit~1204670678~772 &x~1204670678~817))) (let ((&fail~1204670678~824 (lambda () (ex:invalid-form &input~1204670678~822)))) (if (list? &input~1204670678~822) (let ((&temp~1204670678~825 &input~1204670678~822)) (begin (cons (ex:syntax-rename (quote vector) (quote ()) (quote (&env~1204670678~828)) 0 (quote (core quasiquote))) &temp~1204670678~825))) (&fail~1204670678~824))))) (&fail~1204670678~792))) (&fail~1204670678~792))) (&fail~1204670678~792)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~844 (car &input~1204670678~787))) (if (equal? &temp~1204670678~844 (quote "append")) (let ((&temp~1204670678~843 (cdr &input~1204670678~787))) (if (list? &temp~1204670678~843) (let ((&x~1204670678~831 &temp~1204670678~843)) (let ((&input~1204670678~836 (map &emit~1204670678~772 &x~1204670678~831))) (let ((&fail~1204670678~838 (lambda () (ex:invalid-form &input~1204670678~836)))) (if (list? &input~1204670678~836) (let ((&temp~1204670678~839 &input~1204670678~836)) (begin (cons (ex:syntax-rename (quote append) (quote ()) (quote (&env~1204670678~842)) 0 (quote (core quasiquote))) &temp~1204670678~839))) (&fail~1204670678~838))))) (&fail~1204670678~791))) (&fail~1204670678~791))) (&fail~1204670678~791)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~885 (car &input~1204670678~787))) (if (equal? &temp~1204670678~885 (quote "list*")) (let ((&temp~1204670678~880 (cdr &input~1204670678~787))) (if (>= (ex:dotted-length &temp~1204670678~880) 1) (let ((&temp~1204670678~884 (ex:dotted-butlast &temp~1204670678~880 1))) (if (list? &temp~1204670678~884) (let ((&x~1204670678~845 &temp~1204670678~884)) (let ((&temp~1204670678~881 (ex:dotted-last &temp~1204670678~880 1))) (if (pair? &temp~1204670678~881) (let ((&temp~1204670678~883 (car &temp~1204670678~881))) (let ((&y~1204670678~846 &temp~1204670678~883)) (let ((&temp~1204670678~882 (cdr &temp~1204670678~881))) (if (null? &temp~1204670678~882) (((lambda (&f~1204670678~852) ((lambda (&temp~1204670678~855) (set! &f~1204670678~852 &temp~1204670678~855) ((lambda () &f~1204670678~852))) (lambda (&x*~1204670678~860) (if (null? &x*~1204670678~860) (&emit~1204670678~772 &y~1204670678~846) (let ((&input~1204670678~868 (list (&emit~1204670678~772 (car &x*~1204670678~860)) (&f~1204670678~852 (cdr &x*~1204670678~860))))) (let ((&fail~1204670678~869 (lambda () (ex:invalid-form &input~1204670678~868)))) (if (pair? &input~1204670678~868) (let ((&temp~1204670678~878 (car &input~1204670678~868))) (let ((&temp~1204670678~870 &temp~1204670678~878)) (let ((&temp~1204670678~875 (cdr &input~1204670678~868))) (if (pair? &temp~1204670678~875) (let ((&temp~1204670678~877 (car &temp~1204670678~875))) (let ((&temp~1204670678~871 &temp~1204670678~877)) (let ((&temp~1204670678~876 (cdr &temp~1204670678~875))) (if (null? &temp~1204670678~876) (begin (cons (ex:syntax-rename (quote cons) (quote ()) (quote (&env~1204670678~874)) 0 (quote (core quasiquote))) (cons &temp~1204670678~870 (cons &temp~1204670678~871 (quote ()))))) (&fail~1204670678~869))))) (&fail~1204670678~869))))) (&fail~1204670678~869)))))))) ex:undefined) &x~1204670678~845) (&fail~1204670678~790))))) (&fail~1204670678~790)))) (&fail~1204670678~790))) (&fail~1204670678~790))) (&fail~1204670678~790))) (&fail~1204670678~790)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~899 (car &input~1204670678~787))) (if (equal? &temp~1204670678~899 (quote "list")) (let ((&temp~1204670678~898 (cdr &input~1204670678~787))) (if (list? &temp~1204670678~898) (let ((&x~1204670678~886 &temp~1204670678~898)) (let ((&input~1204670678~891 (map &emit~1204670678~772 &x~1204670678~886))) (let ((&fail~1204670678~893 (lambda () (ex:invalid-form &input~1204670678~891)))) (if (list? &input~1204670678~891) (let ((&temp~1204670678~894 &input~1204670678~891)) (begin (cons (ex:syntax-rename (quote list) (quote ()) (quote (&env~1204670678~897)) 0 (quote (core quasiquote))) &temp~1204670678~894))) (&fail~1204670678~893))))) (&fail~1204670678~789))) (&fail~1204670678~789))) (&fail~1204670678~789)))))) (if (pair? &input~1204670678~787) (let ((&temp~1204670678~906 (car &input~1204670678~787))) (if (equal? &temp~1204670678~906 (quote "quote")) (let ((&temp~1204670678~903 (cdr &input~1204670678~787))) (if (pair? &temp~1204670678~903) (let ((&temp~1204670678~905 (car &temp~1204670678~903))) (let ((&x~1204670678~900 &temp~1204670678~905)) (let ((&temp~1204670678~904 (cdr &temp~1204670678~903))) (if (null? &temp~1204670678~904) (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~902)) 0 (quote (core quasiquote))) (cons &x~1204670678~900 (quote ()))) (&fail~1204670678~788))))) (&fail~1204670678~788))) (&fail~1204670678~788))) (&fail~1204670678~788)))))) (lambda (&x~1204670678~774) (let ((&input~1204670678~776 &x~1204670678~774)) (let ((&fail~1204670678~777 (lambda () (ex:invalid-form &input~1204670678~776)))) (if (pair? &input~1204670678~776) (let ((&temp~1204670678~783 (car &input~1204670678~776))) (let ((&temp~1204670678~780 (cdr &input~1204670678~776))) (if (pair? &temp~1204670678~780) (let ((&temp~1204670678~782 (car &temp~1204670678~780))) (let ((&e~1204670678~778 &temp~1204670678~782)) (let ((&temp~1204670678~781 (cdr &temp~1204670678~780))) (if (null? &temp~1204670678~781) (&emit~1204670678~772 (&quasi~1204670678~766 &e~1204670678~778 0)) (&fail~1204670678~777))))) (&fail~1204670678~777)))) (&fail~1204670678~777)))))) ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined ex:undefined)))) (ex:register-macro! (quote &unquote~1204670678~1197) (lambda (&e~1204670678~1199) (ex:syntax-violation (quote unquote) "Invalid expression" &e~1204670678~1199))) (ex:register-macro! (quote &unquote-splicing~1204670678~1201) (lambda (&e~1204670678~1203) (ex:syntax-violation (quote unquote-splicing) "Invalid expression" &e~1204670678~1203))) (values)) (lambda () (values)) (quote &build~1204670678~1205))) (values))
(begin (ex:register-library! (ex:make-library (quote (core let-values)) (lambda () (ex:uncompress (quote (((&env~1204670678~1373 0 1 2 3) (&env~1204670678~1360 4 1 2 3) (&env~1204670678~1339 5 6 7 3) (&env~1204670678~1323 8 6 7 3) (&env~1204670678~1302 9 6 7 3) (&env~1204670678~1278 10 6 7 3) (&env~1204670678~1252 11 6 7 3) (&env~1204670678~1226 12 6 7 3)) (12 (((dummy &c~1204670678~1207) . #f) ((?a) . #f) ((?e0) . #f) ((?arg) . #f) ((?bindings) . #f) ((?tmp) . #f) ((?body) . #f))) (11 (((dummy &c~1204670678~1207) . #f) ((?a) . #f) ((?b) . #f) ((?e0) . #f) ((?arg) . #f) ((?bindings) . #f) ((?tmp) . #f) ((?body) . #f))) (10 (((dummy &c~1204670678~1207) . #f) ((?e0) . #f) ((?args) . #f) ((?bindings) . #f) ((?tmps) . #f) ((?body) . #f))) (9 (((dummy &c~1204670678~1207) . #f) ((?b0) . #f) ((?e0) . #f) ((?binding) . #f) ((?tmps) . #f) ((?body) . #f))) (8 (((dummy &c~1204670678~1207) . #f) ((?tmps) . #f) ((?body) . #f))) (7 (((x &c~1204670678~1207) variable &x~1204670678~1209 (0) #f (core let-values)))) (6 ()) (5 (((dummy &c~1204670678~1207) . #f) ((?binding) . #f) ((?body0) . #f) ((?body1) . #f))) (4 (((dummy &c~1204670678~1347) . #f) ((?binding0) . #f) ((?binding1) . #f) ((?body0) . #f) ((?body1) . #f))) (3 (((let*-values) macro &let*-values~1204670678~1346 (0) #f (core let-values)) ((let-values) macro &let-values~1204670678~1206 (0) #f (core let-values)) ((undefined) variable ex:undefined (1 0) #f ()) ((eval) variable ex:eval (1 0) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0) #f ()) ((environment) variable ex:environment (1 0) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((syntax-rules) macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) ((letrec*) macro &letrec*~1204670678~179 (0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0) #f (core let)) ((let) macro &let~1204670678~100 (0) #f (core let)) ((call-with-values) variable call-with-values (0) #f ()))) (2 (((x &c~1204670678~1347) variable &x~1204670678~1349 (0) #f (core let-values)))) (1 ()) (0 (((dummy &c~1204670678~1347) . #f) ((?body0) . #f) ((?body1) . #f))))))) (quote ((let-values macro &let-values~1204670678~1206 (0) #f (core let-values)) (let*-values macro &let*-values~1204670678~1346 (0) #f (core let-values)))) (quote (((core let) 0) ((core syntax-rules) 1) ((core primitives) 1 0))) (quote (&build~1204670678~203 &build~1204670678~99 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &let-values~1204670678~1206) (lambda (&x~1204670678~1209) (let ((&input~1204670678~1211 &x~1204670678~1209)) (let ((&fail~1204670678~1212 (lambda () (let ((&fail~1204670678~1213 (lambda () (let ((&fail~1204670678~1214 (lambda () (let ((&fail~1204670678~1215 (lambda () (let ((&fail~1204670678~1216 (lambda () (let ((&fail~1204670678~1217 (lambda () (ex:invalid-form &input~1204670678~1211)))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1242 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1218 &temp~1204670678~1242)) (let ((&temp~1204670678~1227 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1227) (let ((&temp~1204670678~1241 (car &temp~1204670678~1227))) (if (equal? &temp~1204670678~1241 (quote "mktmp")) (let ((&temp~1204670678~1228 (cdr &temp~1204670678~1227))) (if (pair? &temp~1204670678~1228) (let ((&temp~1204670678~1240 (car &temp~1204670678~1228))) (let ((&?a~1204670678~1219 &temp~1204670678~1240)) (let ((&temp~1204670678~1229 (cdr &temp~1204670678~1228))) (if (pair? &temp~1204670678~1229) (let ((&temp~1204670678~1239 (car &temp~1204670678~1229))) (let ((&?e0~1204670678~1220 &temp~1204670678~1239)) (let ((&temp~1204670678~1230 (cdr &temp~1204670678~1229))) (if (pair? &temp~1204670678~1230) (let ((&temp~1204670678~1238 (car &temp~1204670678~1230))) (if (list? &temp~1204670678~1238) (let ((&?arg~1204670678~1221 &temp~1204670678~1238)) (let ((&temp~1204670678~1231 (cdr &temp~1204670678~1230))) (if (pair? &temp~1204670678~1231) (let ((&temp~1204670678~1237 (car &temp~1204670678~1231))) (let ((&?bindings~1204670678~1222 &temp~1204670678~1237)) (let ((&temp~1204670678~1232 (cdr &temp~1204670678~1231))) (if (pair? &temp~1204670678~1232) (let ((&temp~1204670678~1236 (car &temp~1204670678~1232))) (if (list? &temp~1204670678~1236) (let ((&?tmp~1204670678~1223 &temp~1204670678~1236)) (let ((&temp~1204670678~1233 (cdr &temp~1204670678~1232))) (if (pair? &temp~1204670678~1233) (let ((&temp~1204670678~1235 (car &temp~1204670678~1233))) (let ((&?body~1204670678~1224 &temp~1204670678~1235)) (let ((&temp~1204670678~1234 (cdr &temp~1204670678~1233))) (if (null? &temp~1204670678~1234) (cons (ex:syntax-rename (quote call-with-values) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values))) (cons (quote ()) (cons &?e0~1204670678~1220 (quote ())))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values))) (cons (append &?arg~1204670678~1221 (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values)))) (cons (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values))) (cons (quote "bind") (cons &?bindings~1204670678~1222 (cons (append &?tmp~1204670678~1223 (cons (cons &?a~1204670678~1219 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~1226)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons &?body~1204670678~1224 (quote ())))))) (quote ())))) (quote ())))) (&fail~1204670678~1217))))) (&fail~1204670678~1217)))) (&fail~1204670678~1217))) (&fail~1204670678~1217))))) (&fail~1204670678~1217)))) (&fail~1204670678~1217))) (&fail~1204670678~1217))))) (&fail~1204670678~1217))))) (&fail~1204670678~1217))) (&fail~1204670678~1217))) (&fail~1204670678~1217))))) (&fail~1204670678~1217)))))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1270 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1243 &temp~1204670678~1270)) (let ((&temp~1204670678~1253 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1253) (let ((&temp~1204670678~1269 (car &temp~1204670678~1253))) (if (equal? &temp~1204670678~1269 (quote "mktmp")) (let ((&temp~1204670678~1254 (cdr &temp~1204670678~1253))) (if (pair? &temp~1204670678~1254) (let ((&temp~1204670678~1266 (car &temp~1204670678~1254))) (if (pair? &temp~1204670678~1266) (let ((&temp~1204670678~1268 (car &temp~1204670678~1266))) (let ((&?a~1204670678~1244 &temp~1204670678~1268)) (let ((&temp~1204670678~1267 (cdr &temp~1204670678~1266))) (let ((&?b~1204670678~1245 &temp~1204670678~1267)) (let ((&temp~1204670678~1255 (cdr &temp~1204670678~1254))) (if (pair? &temp~1204670678~1255) (let ((&temp~1204670678~1265 (car &temp~1204670678~1255))) (let ((&?e0~1204670678~1246 &temp~1204670678~1265)) (let ((&temp~1204670678~1256 (cdr &temp~1204670678~1255))) (if (pair? &temp~1204670678~1256) (let ((&temp~1204670678~1264 (car &temp~1204670678~1256))) (if (list? &temp~1204670678~1264) (let ((&?arg~1204670678~1247 &temp~1204670678~1264)) (let ((&temp~1204670678~1257 (cdr &temp~1204670678~1256))) (if (pair? &temp~1204670678~1257) (let ((&temp~1204670678~1263 (car &temp~1204670678~1257))) (let ((&?bindings~1204670678~1248 &temp~1204670678~1263)) (let ((&temp~1204670678~1258 (cdr &temp~1204670678~1257))) (if (pair? &temp~1204670678~1258) (let ((&temp~1204670678~1262 (car &temp~1204670678~1258))) (if (list? &temp~1204670678~1262) (let ((&?tmp~1204670678~1249 &temp~1204670678~1262)) (let ((&temp~1204670678~1259 (cdr &temp~1204670678~1258))) (if (pair? &temp~1204670678~1259) (let ((&temp~1204670678~1261 (car &temp~1204670678~1259))) (let ((&?body~1204670678~1250 &temp~1204670678~1261)) (let ((&temp~1204670678~1260 (cdr &temp~1204670678~1259))) (if (null? &temp~1204670678~1260) (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1252)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons &?b~1204670678~1245 (cons &?e0~1204670678~1246 (cons (append &?arg~1204670678~1247 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~1252)) 0 (quote (core let-values))) (quote ()))) (cons &?bindings~1204670678~1248 (cons (append &?tmp~1204670678~1249 (cons (cons &?a~1204670678~1244 (cons (ex:syntax-rename (quote x) (quote ()) (quote (&env~1204670678~1252)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons &?body~1204670678~1250 (quote ()))))))))) (&fail~1204670678~1216))))) (&fail~1204670678~1216)))) (&fail~1204670678~1216))) (&fail~1204670678~1216))))) (&fail~1204670678~1216)))) (&fail~1204670678~1216))) (&fail~1204670678~1216))))) (&fail~1204670678~1216))))))) (&fail~1204670678~1216))) (&fail~1204670678~1216))) (&fail~1204670678~1216))) (&fail~1204670678~1216))))) (&fail~1204670678~1216)))))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1294 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1271 &temp~1204670678~1294)) (let ((&temp~1204670678~1279 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1279) (let ((&temp~1204670678~1293 (car &temp~1204670678~1279))) (if (equal? &temp~1204670678~1293 (quote "mktmp")) (let ((&temp~1204670678~1280 (cdr &temp~1204670678~1279))) (if (pair? &temp~1204670678~1280) (let ((&temp~1204670678~1292 (car &temp~1204670678~1280))) (if (null? &temp~1204670678~1292) (let ((&temp~1204670678~1281 (cdr &temp~1204670678~1280))) (if (pair? &temp~1204670678~1281) (let ((&temp~1204670678~1291 (car &temp~1204670678~1281))) (let ((&?e0~1204670678~1272 &temp~1204670678~1291)) (let ((&temp~1204670678~1282 (cdr &temp~1204670678~1281))) (if (pair? &temp~1204670678~1282) (let ((&temp~1204670678~1290 (car &temp~1204670678~1282))) (let ((&?args~1204670678~1273 &temp~1204670678~1290)) (let ((&temp~1204670678~1283 (cdr &temp~1204670678~1282))) (if (pair? &temp~1204670678~1283) (let ((&temp~1204670678~1289 (car &temp~1204670678~1283))) (let ((&?bindings~1204670678~1274 &temp~1204670678~1289)) (let ((&temp~1204670678~1284 (cdr &temp~1204670678~1283))) (if (pair? &temp~1204670678~1284) (let ((&temp~1204670678~1288 (car &temp~1204670678~1284))) (let ((&?tmps~1204670678~1275 &temp~1204670678~1288)) (let ((&temp~1204670678~1285 (cdr &temp~1204670678~1284))) (if (pair? &temp~1204670678~1285) (let ((&temp~1204670678~1287 (car &temp~1204670678~1285))) (let ((&?body~1204670678~1276 &temp~1204670678~1287)) (let ((&temp~1204670678~1286 (cdr &temp~1204670678~1285))) (if (null? &temp~1204670678~1286) (cons (ex:syntax-rename (quote call-with-values) (quote ()) (quote (&env~1204670678~1278)) 0 (quote (core let-values))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1278)) 0 (quote (core let-values))) (cons (quote ()) (cons &?e0~1204670678~1272 (quote ())))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1278)) 0 (quote (core let-values))) (cons &?args~1204670678~1273 (cons (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1278)) 0 (quote (core let-values))) (cons (quote "bind") (cons &?bindings~1204670678~1274 (cons &?tmps~1204670678~1275 (cons &?body~1204670678~1276 (quote ())))))) (quote ())))) (quote ())))) (&fail~1204670678~1215))))) (&fail~1204670678~1215))))) (&fail~1204670678~1215))))) (&fail~1204670678~1215))))) (&fail~1204670678~1215))))) (&fail~1204670678~1215))) (&fail~1204670678~1215))) (&fail~1204670678~1215))) (&fail~1204670678~1215))) (&fail~1204670678~1215))))) (&fail~1204670678~1215)))))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1318 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1295 &temp~1204670678~1318)) (let ((&temp~1204670678~1303 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1303) (let ((&temp~1204670678~1317 (car &temp~1204670678~1303))) (if (equal? &temp~1204670678~1317 (quote "bind")) (let ((&temp~1204670678~1304 (cdr &temp~1204670678~1303))) (if (pair? &temp~1204670678~1304) (let ((&temp~1204670678~1310 (car &temp~1204670678~1304))) (if (pair? &temp~1204670678~1310) (let ((&temp~1204670678~1312 (car &temp~1204670678~1310))) (if (pair? &temp~1204670678~1312) (let ((&temp~1204670678~1316 (car &temp~1204670678~1312))) (let ((&?b0~1204670678~1296 &temp~1204670678~1316)) (let ((&temp~1204670678~1313 (cdr &temp~1204670678~1312))) (if (pair? &temp~1204670678~1313) (let ((&temp~1204670678~1315 (car &temp~1204670678~1313))) (let ((&?e0~1204670678~1297 &temp~1204670678~1315)) (let ((&temp~1204670678~1314 (cdr &temp~1204670678~1313))) (if (null? &temp~1204670678~1314) (let ((&temp~1204670678~1311 (cdr &temp~1204670678~1310))) (if (list? &temp~1204670678~1311) (let ((&?binding~1204670678~1298 &temp~1204670678~1311)) (let ((&temp~1204670678~1305 (cdr &temp~1204670678~1304))) (if (pair? &temp~1204670678~1305) (let ((&temp~1204670678~1309 (car &temp~1204670678~1305))) (let ((&?tmps~1204670678~1299 &temp~1204670678~1309)) (let ((&temp~1204670678~1306 (cdr &temp~1204670678~1305))) (if (pair? &temp~1204670678~1306) (let ((&temp~1204670678~1308 (car &temp~1204670678~1306))) (let ((&?body~1204670678~1300 &temp~1204670678~1308)) (let ((&temp~1204670678~1307 (cdr &temp~1204670678~1306))) (if (null? &temp~1204670678~1307) (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1302)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons &?b0~1204670678~1296 (cons &?e0~1204670678~1297 (cons (quote ()) (cons &?binding~1204670678~1298 (cons &?tmps~1204670678~1299 (cons &?body~1204670678~1300 (quote ()))))))))) (&fail~1204670678~1214))))) (&fail~1204670678~1214))))) (&fail~1204670678~1214)))) (&fail~1204670678~1214))) (&fail~1204670678~1214))))) (&fail~1204670678~1214))))) (&fail~1204670678~1214))) (&fail~1204670678~1214))) (&fail~1204670678~1214))) (&fail~1204670678~1214))) (&fail~1204670678~1214))))) (&fail~1204670678~1214)))))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1333 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1319 &temp~1204670678~1333)) (let ((&temp~1204670678~1324 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1324) (let ((&temp~1204670678~1332 (car &temp~1204670678~1324))) (if (equal? &temp~1204670678~1332 (quote "bind")) (let ((&temp~1204670678~1325 (cdr &temp~1204670678~1324))) (if (pair? &temp~1204670678~1325) (let ((&temp~1204670678~1331 (car &temp~1204670678~1325))) (if (null? &temp~1204670678~1331) (let ((&temp~1204670678~1326 (cdr &temp~1204670678~1325))) (if (pair? &temp~1204670678~1326) (let ((&temp~1204670678~1330 (car &temp~1204670678~1326))) (let ((&?tmps~1204670678~1320 &temp~1204670678~1330)) (let ((&temp~1204670678~1327 (cdr &temp~1204670678~1326))) (if (pair? &temp~1204670678~1327) (let ((&temp~1204670678~1329 (car &temp~1204670678~1327))) (let ((&?body~1204670678~1321 &temp~1204670678~1329)) (let ((&temp~1204670678~1328 (cdr &temp~1204670678~1327))) (if (null? &temp~1204670678~1328) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~1323)) 0 (quote (core let-values))) (cons &?tmps~1204670678~1320 (cons &?body~1204670678~1321 (quote ())))) (&fail~1204670678~1213))))) (&fail~1204670678~1213))))) (&fail~1204670678~1213))) (&fail~1204670678~1213))) (&fail~1204670678~1213))) (&fail~1204670678~1213))) (&fail~1204670678~1213))))) (&fail~1204670678~1213)))))) (if (pair? &input~1204670678~1211) (let ((&temp~1204670678~1345 (car &input~1204670678~1211))) (let ((&dummy~1204670678~1334 &temp~1204670678~1345)) (let ((&temp~1204670678~1340 (cdr &input~1204670678~1211))) (if (pair? &temp~1204670678~1340) (let ((&temp~1204670678~1344 (car &temp~1204670678~1340))) (if (list? &temp~1204670678~1344) (let ((&?binding~1204670678~1335 &temp~1204670678~1344)) (let ((&temp~1204670678~1341 (cdr &temp~1204670678~1340))) (if (pair? &temp~1204670678~1341) (let ((&temp~1204670678~1343 (car &temp~1204670678~1341))) (let ((&?body0~1204670678~1336 &temp~1204670678~1343)) (let ((&temp~1204670678~1342 (cdr &temp~1204670678~1341))) (if (list? &temp~1204670678~1342) (let ((&?body1~1204670678~1337 &temp~1204670678~1342)) (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1339)) 0 (quote (core let-values))) (cons (quote "bind") (cons &?binding~1204670678~1335 (cons (quote ()) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1339)) 0 (quote (core let-values))) (cons &?body0~1204670678~1336 &?body1~1204670678~1337)) (quote ()))))))) (&fail~1204670678~1212))))) (&fail~1204670678~1212)))) (&fail~1204670678~1212))) (&fail~1204670678~1212))))) (&fail~1204670678~1212)))))) (ex:register-macro! (quote &let*-values~1204670678~1346) (lambda (&x~1204670678~1349) (let ((&input~1204670678~1351 &x~1204670678~1349)) (let ((&fail~1204670678~1352 (lambda () (let ((&fail~1204670678~1353 (lambda () (ex:invalid-form &input~1204670678~1351)))) (if (pair? &input~1204670678~1351) (let ((&temp~1204670678~1368 (car &input~1204670678~1351))) (let ((&dummy~1204670678~1354 &temp~1204670678~1368)) (let ((&temp~1204670678~1361 (cdr &input~1204670678~1351))) (if (pair? &temp~1204670678~1361) (let ((&temp~1204670678~1365 (car &temp~1204670678~1361))) (if (pair? &temp~1204670678~1365) (let ((&temp~1204670678~1367 (car &temp~1204670678~1365))) (let ((&?binding0~1204670678~1355 &temp~1204670678~1367)) (let ((&temp~1204670678~1366 (cdr &temp~1204670678~1365))) (if (list? &temp~1204670678~1366) (let ((&?binding1~1204670678~1356 &temp~1204670678~1366)) (let ((&temp~1204670678~1362 (cdr &temp~1204670678~1361))) (if (pair? &temp~1204670678~1362) (let ((&temp~1204670678~1364 (car &temp~1204670678~1362))) (let ((&?body0~1204670678~1357 &temp~1204670678~1364)) (let ((&temp~1204670678~1363 (cdr &temp~1204670678~1362))) (if (list? &temp~1204670678~1363) (let ((&?body1~1204670678~1358 &temp~1204670678~1363)) (cons (ex:syntax-rename (quote let-values) (quote ()) (quote (&env~1204670678~1360)) 0 (quote (core let-values))) (cons (cons &?binding0~1204670678~1355 (quote ())) (cons (cons (ex:syntax-rename (quote let*-values) (quote ()) (quote (&env~1204670678~1360)) 0 (quote (core let-values))) (cons &?binding1~1204670678~1356 (cons &?body0~1204670678~1357 &?body1~1204670678~1358))) (quote ()))))) (&fail~1204670678~1353))))) (&fail~1204670678~1353)))) (&fail~1204670678~1353))))) (&fail~1204670678~1353))) (&fail~1204670678~1353))))) (&fail~1204670678~1353)))))) (if (pair? &input~1204670678~1351) (let ((&temp~1204670678~1379 (car &input~1204670678~1351))) (let ((&dummy~1204670678~1369 &temp~1204670678~1379)) (let ((&temp~1204670678~1374 (cdr &input~1204670678~1351))) (if (pair? &temp~1204670678~1374) (let ((&temp~1204670678~1378 (car &temp~1204670678~1374))) (if (null? &temp~1204670678~1378) (let ((&temp~1204670678~1375 (cdr &temp~1204670678~1374))) (if (pair? &temp~1204670678~1375) (let ((&temp~1204670678~1377 (car &temp~1204670678~1375))) (let ((&?body0~1204670678~1370 &temp~1204670678~1377)) (let ((&temp~1204670678~1376 (cdr &temp~1204670678~1375))) (if (list? &temp~1204670678~1376) (let ((&?body1~1204670678~1371 &temp~1204670678~1376)) (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1373)) 0 (quote (core let-values))) (cons &?body0~1204670678~1370 &?body1~1204670678~1371))) (&fail~1204670678~1352))))) (&fail~1204670678~1352))) (&fail~1204670678~1352))) (&fail~1204670678~1352))))) (&fail~1204670678~1352)))))) (values)) (lambda () (values)) (quote &build~1204670678~1380))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs control)) (lambda () (ex:uncompress (quote (((&env~1204670678~1598 0 1 2 3) (&env~1204670678~1581 4 1 2 3) (&env~1204670678~1556 5 1 2 3) (&env~1204670678~1533 6 1 2 3) (&env~1204670678~1506 7 8 9 3) (&env~1204670678~1492 10 8 9 3) (&env~1204670678~1464 11 12 13 14 15 3) (&env~1204670678~1460 16 12 13 14 15 3) (&env~1204670678~1412 17 18 19 3) (&env~1204670678~1393 20 21 22 3)) (22 (((x &c~1204670678~1382) variable &x~1204670678~1384 (0) #f (rnrs control)))) (21 ()) (20 (((dummy &c~1204670678~1382) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f))) (19 (((x &c~1204670678~1401) variable &x~1204670678~1403 (0) #f (rnrs control)))) (18 ()) (17 (((dummy &c~1204670678~1401) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f))) (16 (((e1) . #f) ((e2) . #f))) (15 (((orig-x) variable &orig-x~1204670678~1421 (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~1204670678~1480) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f))) (9 (((x &c~1204670678~1480) variable &x~1204670678~1482 (0) #f (rnrs control)))) (8 ()) (7 (((dummy &c~1204670678~1480) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f))) (6 (((dummy &c~1204670678~1516) . #f) ((args) . #f) ((n) . #f) ((r) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (5 (((dummy &c~1204670678~1516) . #f) ((args) . #f) ((n) . #f) ((x1) . #f) ((x2) . #f) ((r) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (4 (((dummy &c~1204670678~1516) . #f) ((args) . #f) ((n) . #f) ((x) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f))) (3 (((case-lambda-help) macro &case-lambda-help~1204670678~1515 (0) #f (rnrs control)) ((case-lambda) macro &case-lambda~1204670678~1479 (0) #f (rnrs control)) ((do) macro &do~1204670678~1419 (0) #f (rnrs control)) ((unless) macro &unless~1204670678~1400 (0) #f (rnrs control)) ((when) macro &when~1204670678~1381 (0) #f (rnrs control)) ((undefined) variable ex:undefined (1 0) #f ()) ((eval) variable ex:eval (1 0) #f ()) ((environment-bindings) variable ex:environment-bindings (1 0) #f ()) ((environment) variable ex:environment (1 0) #f ()) ((syntax-violation) variable ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (1 0) #f ()) ((syntax-case) macro syntax-case (1 0) #f ()) ((syntax) macro syntax (1 0) #f ()) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #f ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (1 0) #f ()) ((quote) macro quote (1 0) #f ()) ((lambda) macro lambda (1 0) #f ()) ((if) macro if (1 0) #f ()) ((begin) macro begin (1 0) #f ()) ((letrec*) macro &letrec*~1204670678~179 (1 0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (1 0) #f (core let)) ((let) macro &let~1204670678~100 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~1204670678~3 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) ((apply) variable apply (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((=) variable = (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((length) variable length (1 0) #f ()) ((map) variable map (1 0) #f ()) ((not) variable not (1 0) #f ()))) (2 (((x &c~1204670678~1516) variable &x~1204670678~1518 (0) #f (rnrs control)))) (1 ()) (0 (((dummy &c~1204670678~1516) . #f) ((args) . #f) ((n) . #f))))))) (quote ((when macro &when~1204670678~1381 (0) #f (rnrs control)) (unless macro &unless~1204670678~1400 (0) #f (rnrs control)) (do macro &do~1204670678~1419 (0) #f (rnrs control)) (case-lambda macro &case-lambda~1204670678~1479 (0) #f (rnrs control)))) (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0))) (quote (&build~1204670678~99 &build~1204670678~57 &build~1204670678~203 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &when~1204670678~1381) (lambda (&x~1204670678~1384) (let ((&input~1204670678~1386 &x~1204670678~1384)) (let ((&fail~1204670678~1387 (lambda () (ex:invalid-form &input~1204670678~1386)))) (if (pair? &input~1204670678~1386) (let ((&temp~1204670678~1399 (car &input~1204670678~1386))) (let ((&dummy~1204670678~1388 &temp~1204670678~1399)) (let ((&temp~1204670678~1394 (cdr &input~1204670678~1386))) (if (pair? &temp~1204670678~1394) (let ((&temp~1204670678~1398 (car &temp~1204670678~1394))) (let ((&test~1204670678~1389 &temp~1204670678~1398)) (let ((&temp~1204670678~1395 (cdr &temp~1204670678~1394))) (if (pair? &temp~1204670678~1395) (let ((&temp~1204670678~1397 (car &temp~1204670678~1395))) (let ((&result1~1204670678~1390 &temp~1204670678~1397)) (let ((&temp~1204670678~1396 (cdr &temp~1204670678~1395))) (if (list? &temp~1204670678~1396) (let ((&result2~1204670678~1391 &temp~1204670678~1396)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1393)) 0 (quote (rnrs control))) (cons &test~1204670678~1389 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1393)) 0 (quote (rnrs control))) (cons &result1~1204670678~1390 &result2~1204670678~1391)) (quote ()))))) (&fail~1204670678~1387))))) (&fail~1204670678~1387))))) (&fail~1204670678~1387))))) (&fail~1204670678~1387)))))) (ex:register-macro! (quote &unless~1204670678~1400) (lambda (&x~1204670678~1403) (let ((&input~1204670678~1405 &x~1204670678~1403)) (let ((&fail~1204670678~1406 (lambda () (ex:invalid-form &input~1204670678~1405)))) (if (pair? &input~1204670678~1405) (let ((&temp~1204670678~1418 (car &input~1204670678~1405))) (let ((&dummy~1204670678~1407 &temp~1204670678~1418)) (let ((&temp~1204670678~1413 (cdr &input~1204670678~1405))) (if (pair? &temp~1204670678~1413) (let ((&temp~1204670678~1417 (car &temp~1204670678~1413))) (let ((&test~1204670678~1408 &temp~1204670678~1417)) (let ((&temp~1204670678~1414 (cdr &temp~1204670678~1413))) (if (pair? &temp~1204670678~1414) (let ((&temp~1204670678~1416 (car &temp~1204670678~1414))) (let ((&result1~1204670678~1409 &temp~1204670678~1416)) (let ((&temp~1204670678~1415 (cdr &temp~1204670678~1414))) (if (list? &temp~1204670678~1415) (let ((&result2~1204670678~1410 &temp~1204670678~1415)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1412)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote not) (quote ()) (quote (&env~1204670678~1412)) 0 (quote (rnrs control))) (cons &test~1204670678~1408 (quote ()))) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1412)) 0 (quote (rnrs control))) (cons &result1~1204670678~1409 &result2~1204670678~1410)) (quote ()))))) (&fail~1204670678~1406))))) (&fail~1204670678~1406))))) (&fail~1204670678~1406))))) (&fail~1204670678~1406)))))) (ex:register-macro! (quote &do~1204670678~1419) (lambda (&orig-x~1204670678~1421) (let ((&input~1204670678~1423 &orig-x~1204670678~1421)) (let ((&fail~1204670678~1424 (lambda () (ex:invalid-form &input~1204670678~1423)))) (if (pair? &input~1204670678~1423) (let ((&temp~1204670678~1478 (car &input~1204670678~1423))) (let ((&temp~1204670678~1465 (cdr &input~1204670678~1423))) (if (pair? &temp~1204670678~1465) (let ((&temp~1204670678~1471 (car &temp~1204670678~1465))) (ex:map-while (lambda (&temp~1204670678~1471) (if (pair? &temp~1204670678~1471) (let ((&temp~1204670678~1477 (car &temp~1204670678~1471))) (let ((&var~1204670678~1425 &temp~1204670678~1477)) (let ((&temp~1204670678~1474 (cdr &temp~1204670678~1471))) (if (pair? &temp~1204670678~1474) (let ((&temp~1204670678~1476 (car &temp~1204670678~1474))) (let ((&init~1204670678~1426 &temp~1204670678~1476)) (let ((&temp~1204670678~1475 (cdr &temp~1204670678~1474))) (let ((&step~1204670678~1427 &temp~1204670678~1475)) (list &var~1204670678~1425 &init~1204670678~1426 &step~1204670678~1427))))) #f)))) #f)) &temp~1204670678~1471 (lambda (&cols~1204670678~1472 &rest~1204670678~1473) (if (null? &rest~1204670678~1473) (apply (lambda (&var~1204670678~1425 &init~1204670678~1426 &step~1204670678~1427) (let ((&temp~1204670678~1466 (cdr &temp~1204670678~1465))) (if (pair? &temp~1204670678~1466) (let ((&temp~1204670678~1468 (car &temp~1204670678~1466))) (if (pair? &temp~1204670678~1468) (let ((&temp~1204670678~1470 (car &temp~1204670678~1468))) (let ((&e0~1204670678~1428 &temp~1204670678~1470)) (let ((&temp~1204670678~1469 (cdr &temp~1204670678~1468))) (if (list? &temp~1204670678~1469) (let ((&e1~1204670678~1429 &temp~1204670678~1469)) (let ((&temp~1204670678~1467 (cdr &temp~1204670678~1466))) (if (list? &temp~1204670678~1467) (let ((&c~1204670678~1430 &temp~1204670678~1467)) (let ((&input~1204670678~1433 (map (lambda (&v~1204670678~1435 &s~1204670678~1436) (let ((&input~1204670678~1438 &s~1204670678~1436)) (let ((&fail~1204670678~1439 (lambda () (let ((&fail~1204670678~1440 (lambda () (let ((&fail~1204670678~1441 (lambda () (ex:invalid-form &input~1204670678~1438)))) (ex:syntax-violation (quote do) "Invalid step" &orig-x~1204670678~1421 &s~1204670678~1436))))) (if (pair? &input~1204670678~1438) (let ((&temp~1204670678~1446 (car &input~1204670678~1438))) (let ((&e~1204670678~1443 &temp~1204670678~1446)) (let ((&temp~1204670678~1445 (cdr &input~1204670678~1438))) (if (null? &temp~1204670678~1445) &e~1204670678~1443 (&fail~1204670678~1440))))) (&fail~1204670678~1440)))))) (if (null? &input~1204670678~1438) &v~1204670678~1435 (&fail~1204670678~1439))))) &var~1204670678~1425 &step~1204670678~1427))) (let ((&fail~1204670678~1449 (lambda () (ex:invalid-form &input~1204670678~1433)))) (if (list? &input~1204670678~1433) (let ((&step~1204670678~1450 &input~1204670678~1433)) (begin (let ((&input~1204670678~1453 &e1~1204670678~1429)) (let ((&fail~1204670678~1455 (lambda () (let ((&fail~1204670678~1456 (lambda () (ex:invalid-form &input~1204670678~1453)))) (if (pair? &input~1204670678~1453) (let ((&temp~1204670678~1462 (car &input~1204670678~1453))) (let ((&e1~1204670678~1457 &temp~1204670678~1462)) (let ((&temp~1204670678~1461 (cdr &input~1204670678~1453))) (if (list? &temp~1204670678~1461) (let ((&e2~1204670678~1458 &temp~1204670678~1461)) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote do) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) (cons (if (= (length &var~1204670678~1425) (length &init~1204670678~1426)) (map (lambda (&var~1204670678~1425 &init~1204670678~1426) (cons &var~1204670678~1425 (cons &init~1204670678~1426 (quote ())))) &var~1204670678~1425 &init~1204670678~1426) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((var init) ...)) (list &var~1204670678~1425 &init~1204670678~1426))) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) (cons &e0~1204670678~1428 (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) (cons &e1~1204670678~1457 &e2~1204670678~1458)) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) (append &c~1204670678~1430 (cons (cons (ex:syntax-rename (quote do) (quote ()) (quote (&env~1204670678~1460)) 0 (quote (rnrs control))) &step~1204670678~1450) (quote ())))) (quote ()))))) (quote ())))))) (&fail~1204670678~1456))))) (&fail~1204670678~1456)))))) (if (null? &input~1204670678~1453) (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote do) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) (cons (if (= (length &var~1204670678~1425) (length &init~1204670678~1426)) (map (lambda (&var~1204670678~1425 &init~1204670678~1426) (cons &var~1204670678~1425 (cons &init~1204670678~1426 (quote ())))) &var~1204670678~1425 &init~1204670678~1426) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((var init) ...)) (list &var~1204670678~1425 &init~1204670678~1426))) (cons (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote not) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) (cons &e0~1204670678~1428 (quote ()))) (cons (cons (ex:syntax-rename (quote begin) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) (append &c~1204670678~1430 (cons (cons (ex:syntax-rename (quote do) (quote ()) (quote (&env~1204670678~1464)) 0 (quote (rnrs control))) &step~1204670678~1450) (quote ())))) (quote ())))) (quote ()))))) (&fail~1204670678~1455)))))) (&fail~1204670678~1449))))) (&fail~1204670678~1424)))) (&fail~1204670678~1424))))) (&fail~1204670678~1424))) (&fail~1204670678~1424)))) (if (null? &cols~1204670678~1472) (quote (() () ())) (apply map list &cols~1204670678~1472))) (&fail~1204670678~1424))))) (&fail~1204670678~1424)))) (&fail~1204670678~1424)))))) (ex:register-macro! (quote &case-lambda~1204670678~1479) (lambda (&x~1204670678~1482) (let ((&input~1204670678~1484 &x~1204670678~1482)) (let ((&fail~1204670678~1485 (lambda () (let ((&fail~1204670678~1486 (lambda () (ex:invalid-form &input~1204670678~1484)))) (if (pair? &input~1204670678~1484) (let ((&temp~1204670678~1500 (car &input~1204670678~1484))) (let ((&dummy~1204670678~1487 &temp~1204670678~1500)) (let ((&temp~1204670678~1493 (cdr &input~1204670678~1484))) (ex:map-while (lambda (&temp~1204670678~1493) (if (pair? &temp~1204670678~1493) (let ((&temp~1204670678~1499 (car &temp~1204670678~1493))) (let ((&fmls~1204670678~1488 &temp~1204670678~1499)) (let ((&temp~1204670678~1496 (cdr &temp~1204670678~1493))) (if (pair? &temp~1204670678~1496) (let ((&temp~1204670678~1498 (car &temp~1204670678~1496))) (let ((&b1~1204670678~1489 &temp~1204670678~1498)) (let ((&temp~1204670678~1497 (cdr &temp~1204670678~1496))) (if (list? &temp~1204670678~1497) (let ((&b2~1204670678~1490 &temp~1204670678~1497)) (list &fmls~1204670678~1488 &b1~1204670678~1489 &b2~1204670678~1490)) #f)))) #f)))) #f)) &temp~1204670678~1493 (lambda (&cols~1204670678~1494 &rest~1204670678~1495) (if (null? &rest~1204670678~1495) (apply (lambda (&fmls~1204670678~1488 &b1~1204670678~1489 &b2~1204670678~1490) (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote args) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote let) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (cons (cons (ex:syntax-rename (quote n) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote length) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote args) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (quote ()))) (quote ()))) (quote ())) (cons (cons (ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote args) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (cons (ex:syntax-rename (quote n) (quote ()) (quote (&env~1204670678~1492)) 0 (quote (rnrs control))) (if (= (length &fmls~1204670678~1488) (length &b1~1204670678~1489) (length &b2~1204670678~1490)) (map (lambda (&fmls~1204670678~1488 &b1~1204670678~1489 &b2~1204670678~1490) (cons &fmls~1204670678~1488 (cons &b1~1204670678~1489 &b2~1204670678~1490))) &fmls~1204670678~1488 &b1~1204670678~1489 &b2~1204670678~1490) (ex:syntax-violation (quote syntax) "Pattern variables denoting lists of unequal length preceding ellipses" (quote ((fmls b1 b2 ...) ...)) (list &fmls~1204670678~1488 &b1~1204670678~1489 &b2~1204670678~1490)))))) (quote ())))) (quote ()))))) (if (null? &cols~1204670678~1494) (quote (() () ())) (apply map list &cols~1204670678~1494))) (&fail~1204670678~1486))))))) (&fail~1204670678~1486)))))) (if (pair? &input~1204670678~1484) (let ((&temp~1204670678~1514 (car &input~1204670678~1484))) (let ((&dummy~1204670678~1501 &temp~1204670678~1514)) (let ((&temp~1204670678~1507 (cdr &input~1204670678~1484))) (if (pair? &temp~1204670678~1507) (let ((&temp~1204670678~1509 (car &temp~1204670678~1507))) (if (pair? &temp~1204670678~1509) (let ((&temp~1204670678~1513 (car &temp~1204670678~1509))) (let ((&fmls~1204670678~1502 &temp~1204670678~1513)) (let ((&temp~1204670678~1510 (cdr &temp~1204670678~1509))) (if (pair? &temp~1204670678~1510) (let ((&temp~1204670678~1512 (car &temp~1204670678~1510))) (let ((&b1~1204670678~1503 &temp~1204670678~1512)) (let ((&temp~1204670678~1511 (cdr &temp~1204670678~1510))) (if (list? &temp~1204670678~1511) (let ((&b2~1204670678~1504 &temp~1204670678~1511)) (let ((&temp~1204670678~1508 (cdr &temp~1204670678~1507))) (if (null? &temp~1204670678~1508) (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1506)) 0 (quote (rnrs control))) (cons &fmls~1204670678~1502 (cons &b1~1204670678~1503 &b2~1204670678~1504))) (&fail~1204670678~1485)))) (&fail~1204670678~1485))))) (&fail~1204670678~1485))))) (&fail~1204670678~1485))) (&fail~1204670678~1485))))) (&fail~1204670678~1485)))))) (ex:register-macro! (quote &case-lambda-help~1204670678~1515) (lambda (&x~1204670678~1518) (let ((&input~1204670678~1520 &x~1204670678~1518)) (let ((&fail~1204670678~1521 (lambda () (let ((&fail~1204670678~1522 (lambda () (let ((&fail~1204670678~1523 (lambda () (let ((&fail~1204670678~1524 (lambda () (ex:invalid-form &input~1204670678~1520)))) (if (pair? &input~1204670678~1520) (let ((&temp~1204670678~1545 (car &input~1204670678~1520))) (let ((&dummy~1204670678~1525 &temp~1204670678~1545)) (let ((&temp~1204670678~1534 (cdr &input~1204670678~1520))) (if (pair? &temp~1204670678~1534) (let ((&temp~1204670678~1544 (car &temp~1204670678~1534))) (let ((&args~1204670678~1526 &temp~1204670678~1544)) (let ((&temp~1204670678~1535 (cdr &temp~1204670678~1534))) (if (pair? &temp~1204670678~1535) (let ((&temp~1204670678~1543 (car &temp~1204670678~1535))) (let ((&n~1204670678~1527 &temp~1204670678~1543)) (let ((&temp~1204670678~1536 (cdr &temp~1204670678~1535))) (if (pair? &temp~1204670678~1536) (let ((&temp~1204670678~1538 (car &temp~1204670678~1536))) (if (pair? &temp~1204670678~1538) (let ((&temp~1204670678~1542 (car &temp~1204670678~1538))) (let ((&r~1204670678~1528 &temp~1204670678~1542)) (let ((&temp~1204670678~1539 (cdr &temp~1204670678~1538))) (if (pair? &temp~1204670678~1539) (let ((&temp~1204670678~1541 (car &temp~1204670678~1539))) (let ((&b1~1204670678~1529 &temp~1204670678~1541)) (let ((&temp~1204670678~1540 (cdr &temp~1204670678~1539))) (if (list? &temp~1204670678~1540) (let ((&b2~1204670678~1530 &temp~1204670678~1540)) (let ((&temp~1204670678~1537 (cdr &temp~1204670678~1536))) (if (list? &temp~1204670678~1537) (let ((&more~1204670678~1531 &temp~1204670678~1537)) (cons (ex:syntax-rename (quote apply) (quote ()) (quote (&env~1204670678~1533)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1533)) 0 (quote (rnrs control))) (cons &r~1204670678~1528 (cons &b1~1204670678~1529 &b2~1204670678~1530))) (cons &args~1204670678~1526 (quote ()))))) (&fail~1204670678~1524)))) (&fail~1204670678~1524))))) (&fail~1204670678~1524))))) (&fail~1204670678~1524))) (&fail~1204670678~1524))))) (&fail~1204670678~1524))))) (&fail~1204670678~1524))))) (&fail~1204670678~1524)))))) (if (pair? &input~1204670678~1520) (let ((&temp~1204670678~1572 (car &input~1204670678~1520))) (let ((&dummy~1204670678~1546 &temp~1204670678~1572)) (let ((&temp~1204670678~1557 (cdr &input~1204670678~1520))) (if (pair? &temp~1204670678~1557) (let ((&temp~1204670678~1571 (car &temp~1204670678~1557))) (let ((&args~1204670678~1547 &temp~1204670678~1571)) (let ((&temp~1204670678~1558 (cdr &temp~1204670678~1557))) (if (pair? &temp~1204670678~1558) (let ((&temp~1204670678~1570 (car &temp~1204670678~1558))) (let ((&n~1204670678~1548 &temp~1204670678~1570)) (let ((&temp~1204670678~1559 (cdr &temp~1204670678~1558))) (if (pair? &temp~1204670678~1559) (let ((&temp~1204670678~1561 (car &temp~1204670678~1559))) (if (pair? &temp~1204670678~1561) (let ((&temp~1204670678~1565 (car &temp~1204670678~1561))) (if (pair? &temp~1204670678~1565) (let ((&temp~1204670678~1569 (car &temp~1204670678~1565))) (let ((&x1~1204670678~1549 &temp~1204670678~1569)) (let ((&temp~1204670678~1566 (cdr &temp~1204670678~1565))) (if (>= (ex:dotted-length &temp~1204670678~1566) 0) (let ((&temp~1204670678~1568 (ex:dotted-butlast &temp~1204670678~1566 0))) (if (list? &temp~1204670678~1568) (let ((&x2~1204670678~1550 &temp~1204670678~1568)) (let ((&temp~1204670678~1567 (ex:dotted-last &temp~1204670678~1566 0))) (let ((&r~1204670678~1551 &temp~1204670678~1567)) (let ((&temp~1204670678~1562 (cdr &temp~1204670678~1561))) (if (pair? &temp~1204670678~1562) (let ((&temp~1204670678~1564 (car &temp~1204670678~1562))) (let ((&b1~1204670678~1552 &temp~1204670678~1564)) (let ((&temp~1204670678~1563 (cdr &temp~1204670678~1562))) (if (list? &temp~1204670678~1563) (let ((&b2~1204670678~1553 &temp~1204670678~1563)) (let ((&temp~1204670678~1560 (cdr &temp~1204670678~1559))) (if (list? &temp~1204670678~1560) (let ((&more~1204670678~1554 &temp~1204670678~1560)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote >=) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons &n~1204670678~1548 (cons (cons (ex:syntax-rename (quote length) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons (cons &x1~1204670678~1549 &x2~1204670678~1550) (quote ()))) (quote ()))) (quote ())))) (cons (cons (ex:syntax-rename (quote apply) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons (cons &x1~1204670678~1549 (append &x2~1204670678~1550 &r~1204670678~1551)) (cons &b1~1204670678~1552 &b2~1204670678~1553))) (cons &args~1204670678~1547 (quote ())))) (cons (cons (ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (&env~1204670678~1556)) 0 (quote (rnrs control))) (cons &args~1204670678~1547 (cons &n~1204670678~1548 &more~1204670678~1554))) (quote ())))))) (&fail~1204670678~1523)))) (&fail~1204670678~1523))))) (&fail~1204670678~1523)))))) (&fail~1204670678~1523))) (&fail~1204670678~1523))))) (&fail~1204670678~1523))) (&fail~1204670678~1523))) (&fail~1204670678~1523))))) (&fail~1204670678~1523))))) (&fail~1204670678~1523))))) (&fail~1204670678~1523)))))) (if (pair? &input~1204670678~1520) (let ((&temp~1204670678~1593 (car &input~1204670678~1520))) (let ((&dummy~1204670678~1573 &temp~1204670678~1593)) (let ((&temp~1204670678~1582 (cdr &input~1204670678~1520))) (if (pair? &temp~1204670678~1582) (let ((&temp~1204670678~1592 (car &temp~1204670678~1582))) (let ((&args~1204670678~1574 &temp~1204670678~1592)) (let ((&temp~1204670678~1583 (cdr &temp~1204670678~1582))) (if (pair? &temp~1204670678~1583) (let ((&temp~1204670678~1591 (car &temp~1204670678~1583))) (let ((&n~1204670678~1575 &temp~1204670678~1591)) (let ((&temp~1204670678~1584 (cdr &temp~1204670678~1583))) (if (pair? &temp~1204670678~1584) (let ((&temp~1204670678~1586 (car &temp~1204670678~1584))) (if (pair? &temp~1204670678~1586) (let ((&temp~1204670678~1590 (car &temp~1204670678~1586))) (if (list? &temp~1204670678~1590) (let ((&x~1204670678~1576 &temp~1204670678~1590)) (let ((&temp~1204670678~1587 (cdr &temp~1204670678~1586))) (if (pair? &temp~1204670678~1587) (let ((&temp~1204670678~1589 (car &temp~1204670678~1587))) (let ((&b1~1204670678~1577 &temp~1204670678~1589)) (let ((&temp~1204670678~1588 (cdr &temp~1204670678~1587))) (if (list? &temp~1204670678~1588) (let ((&b2~1204670678~1578 &temp~1204670678~1588)) (let ((&temp~1204670678~1585 (cdr &temp~1204670678~1584))) (if (list? &temp~1204670678~1585) (let ((&more~1204670678~1579 &temp~1204670678~1585)) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote =) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons &n~1204670678~1575 (cons (cons (ex:syntax-rename (quote length) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons &x~1204670678~1576 (quote ()))) (quote ()))) (quote ())))) (cons (cons (ex:syntax-rename (quote apply) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons &x~1204670678~1576 (cons &b1~1204670678~1577 &b2~1204670678~1578))) (cons &args~1204670678~1574 (quote ())))) (cons (cons (ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (&env~1204670678~1581)) 0 (quote (rnrs control))) (cons &args~1204670678~1574 (cons &n~1204670678~1575 &more~1204670678~1579))) (quote ())))))) (&fail~1204670678~1522)))) (&fail~1204670678~1522))))) (&fail~1204670678~1522)))) (&fail~1204670678~1522))) (&fail~1204670678~1522))) (&fail~1204670678~1522))))) (&fail~1204670678~1522))))) (&fail~1204670678~1522))))) (&fail~1204670678~1522)))))) (if (pair? &input~1204670678~1520) (let ((&temp~1204670678~1604 (car &input~1204670678~1520))) (let ((&dummy~1204670678~1594 &temp~1204670678~1604)) (let ((&temp~1204670678~1599 (cdr &input~1204670678~1520))) (if (pair? &temp~1204670678~1599) (let ((&temp~1204670678~1603 (car &temp~1204670678~1599))) (let ((&args~1204670678~1595 &temp~1204670678~1603)) (let ((&temp~1204670678~1600 (cdr &temp~1204670678~1599))) (if (pair? &temp~1204670678~1600) (let ((&temp~1204670678~1602 (car &temp~1204670678~1600))) (let ((&n~1204670678~1596 &temp~1204670678~1602)) (let ((&temp~1204670678~1601 (cdr &temp~1204670678~1600))) (if (null? &temp~1204670678~1601) (cons (ex:syntax-rename (quote assertion-violation) (quote ()) (quote (&env~1204670678~1598)) 0 (quote (rnrs control))) (cons (quote #f) (cons (quote "unexpected number of arguments") (quote ())))) (&fail~1204670678~1521))))) (&fail~1204670678~1521))))) (&fail~1204670678~1521))))) (&fail~1204670678~1521)))))) (values)) (lambda () (values)) (quote &build~1204670678~1605))) (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 ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1606))) (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 ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1607))) (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-titlecase variable char-titlecase (0) #f ()) (char-foldcase variable char-foldcase (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 ()) (char-title-case? variable char-title-case? (0) #f ()) (char-general-category variable char-general-category (0) #f ()) (string-upcase variable string-upcase (0) #f ()) (string-downcase variable string-downcase (0) #f ()) (string-titlecase variable string-titlecase (0) #f ()) (string-foldcase variable string-foldcase (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-normalize-nfd variable string-normalize-nfd (0) #f ()) (string-normalize-nfkd variable string-normalize-nfkd (0) #f ()) (string-normalize-nfc variable string-normalize-nfc (0) #f ()) (string-normalize-nfkc variable string-normalize-nfkc (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1608))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs sorting)) (lambda () (quote ())) (quote ((list-sort variable list-sort (0) #f ()) (vector-sort variable vector-sort (0) #f ()) (vector-sort! variable vector-sort! (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1609))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs records procedural)) (lambda () (quote ())) (quote ((make-record-type-descriptor variable make-record-type-descriptor (0) #f ()) (record-type-descriptor? variable record-type-descriptor? (0) #f ()) (make-record-constructor-descriptor variable make-record-constructor-descriptor (0) #f ()) (record-constructor variable record-constructor (0) #f ()) (record-predicate variable record-predicate (0) #f ()) (record-accessor variable record-accessor (0) #f ()) (record-mutator variable record-mutator (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1610))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs records inspection)) (lambda () (quote ())) (quote ((record? variable record? (0) #f ()) (record-rtd variable record-rtd (0) #f ()) (record-type-name variable record-type-name (0) #f ()) (record-type-parent variable record-type-parent (0) #f ()) (record-type-uid variable record-type-uid (0) #f ()) (record-type-generative? variable record-type-generative? (0) #f ()) (record-type-sealed? variable record-type-sealed? (0) #f ()) (record-type-opaque? variable record-type-opaque? (0) #f ()) (record-type-field-names variable record-type-field-names (0) #f ()) (record-field-mutable? variable record-field-mutable? (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1611))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs arithmetic fixnums)) (lambda () (quote ())) (quote ((fixnum? variable fixnum? (0) #f ()) (fixnum-width variable fixnum-width (0) #f ()) (least-fixnum variable least-fixnum (0) #f ()) (greatest-fixnum variable greatest-fixnum (0) #f ()) (fx=? variable fx=? (0) #f ()) (fx>? variable fx>? (0) #f ()) (fx<? variable fx<? (0) #f ()) (fx>=? variable fx>=? (0) #f ()) (fx<=? variable fx<=? (0) #f ()) (fxzero? variable fxzero? (0) #f ()) (fxpositive? variable fxpositive? (0) #f ()) (fxnegative? variable fxnegative? (0) #f ()) (fxodd? variable fxodd? (0) #f ()) (fxeven? variable fxeven? (0) #f ()) (fxmax variable fxmax (0) #f ()) (fxmin variable fxmin (0) #f ()) (fx+ variable fx+ (0) #f ()) (fx- variable fx- (0) #f ()) (fx* variable fx* (0) #f ()) (fxdiv-and-mod variable fxdiv-and-mod (0) #f ()) (fxdiv variable fxdiv (0) #f ()) (fxmod variable fxmod (0) #f ()) (fxdiv0-and-mod0 variable fxdiv0-and-mod0 (0) #f ()) (fxdiv0 variable fxdiv0 (0) #f ()) (fxmod0 variable fxmod0 (0) #f ()) (fx+/carry variable fx+/carry (0) #f ()) (fx-/carry variable fx-/carry (0) #f ()) (fx*/carry variable fx*/carry (0) #f ()) (fxnot variable fxnot (0) #f ()) (fxand variable fxand (0) #f ()) (fxior variable fxior (0) #f ()) (fxxor variable fxxor (0) #f ()) (fxif variable fxif (0) #f ()) (fxbit-count variable fxbit-count (0) #f ()) (fxlength variable fxlength (0) #f ()) (fxfirst-bit-set variable fxfirst-bit-set (0) #f ()) (fxbit-set? variable fxbit-set? (0) #f ()) (fxcopy-bit variable fxcopy-bit (0) #f ()) (fxbit-field variable fxbit-field (0) #f ()) (fxcopy-bit-field variable fxcopy-bit-field (0) #f ()) (fxrotate-bit-field variable fxrotate-bit-field (0) #f ()) (fxreverse-bit-field variable fxreverse-bit-field (0) #f ()) (fxarithmetic-shift variable fxarithmetic-shift (0) #f ()) (fxarithmetic-shift-left variable fxarithmetic-shift-left (0) #f ()) (fxarithmetic-shift-right variable fxarithmetic-shift-right (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1612))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs arithmetic flonums)) (lambda () (quote ())) (quote ((flonum? variable flonum? (0) #f ()) (real->flonum variable real->flonum (0) #f ()) (fl=? variable fl=? (0) #f ()) (fl<? variable fl<? (0) #f ()) (fl>? variable fl>? (0) #f ()) (fl<=? variable fl<=? (0) #f ()) (fl>=? variable fl>=? (0) #f ()) (flinteger? variable flinteger? (0) #f ()) (flzero? variable flzero? (0) #f ()) (flpositive? variable flpositive? (0) #f ()) (flnegative? variable flnegative? (0) #f ()) (flodd? variable flodd? (0) #f ()) (fleven? variable fleven? (0) #f ()) (flfinite? variable flfinite? (0) #f ()) (flinfinite? variable flinfinite? (0) #f ()) (flnan? variable flnan? (0) #f ()) (flmax variable flmax (0) #f ()) (flmin variable flmin (0) #f ()) (fl+ variable fl+ (0) #f ()) (fl* variable fl* (0) #f ()) (fl- variable fl- (0) #f ()) (fl/ variable fl/ (0) #f ()) (flabs variable flabs (0) #f ()) (fldiv-and-mod variable fldiv-and-mod (0) #f ()) (fldiv variable fldiv (0) #f ()) (flmod variable flmod (0) #f ()) (fldiv0-and-mod0 variable fldiv0-and-mod0 (0) #f ()) (fldiv0 variable fldiv0 (0) #f ()) (flmod0 variable flmod0 (0) #f ()) (flnumerator variable flnumerator (0) #f ()) (fldenominator variable fldenominator (0) #f ()) (flfloor variable flfloor (0) #f ()) (flceiling variable flceiling (0) #f ()) (fltruncate variable fltruncate (0) #f ()) (flround variable flround (0) #f ()) (flexp variable flexp (0) #f ()) (fllog variable fllog (0) #f ()) (flsin variable flsin (0) #f ()) (flcos variable flcos (0) #f ()) (fltan variable fltan (0) #f ()) (flasin variable flasin (0) #f ()) (flacos variable flacos (0) #f ()) (flatan variable flatan (0) #f ()) (flsqrt variable flsqrt (0) #f ()) (flexpt variable flexpt (0) #f ()) (fixnum->flonum variable fixnum->flonum (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1613))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs arithmetic bitwise)) (lambda () (quote ())) (quote ((bitwise-not variable bitwise-not (0) #f ()) (bitwise-and variable bitwise-and (0) #f ()) (bitwise-ior variable bitwise-ior (0) #f ()) (bitwise-xor variable bitwise-xor (0) #f ()) (bitwise-if variable bitwise-if (0) #f ()) (bitwise-bit-count variable bitwise-bit-count (0) #f ()) (bitwise-length variable bitwise-length (0) #f ()) (bitwise-first-bit-set variable bitwise-first-bit-set (0) #f ()) (bitwise-bit-set? variable bitwise-bit-set? (0) #f ()) (bitwise-copy-bit variable bitwise-copy-bit (0) #f ()) (bitwise-bit-field variable bitwise-bit-field (0) #f ()) (bitwise-copy-bit-field variable bitwise-copy-bit-field (0) #f ()) (bitwise-rotate-bit-field variable bitwise-rotate-bit-field (0) #f ()) (bitwise-reverse-bit-field variable bitwise-reverse-bit-field (0) #f ()) (bitwise-arithmetic-shift variable bitwise-arithmetic-shift (0) #f ()) (bitwise-arithmetic-shift-left variable bitwise-arithmetic-shift-left (0) #f ()) (bitwise-arithmetic-shift-right variable bitwise-arithmetic-shift-right (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1614))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs files)) (lambda () (quote ())) (quote ((file-exists? variable file-exists? (0) #f ()) (delete-file variable delete-file (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1615))) (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~1204670678~536 (0) #f (core quasisyntax)) (unsyntax macro &unsyntax~1204670678~754 (0) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1204670678~758 (0) #f (core quasisyntax)) (with-syntax macro &with-syntax~1204670678~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~1204670678~762 &build~1204670678~57 &build~1204670678~2)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1616))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs base)) (lambda () (ex:uncompress (quote (((&env~1204670678~1627 0 1 2 3)) (3 (((assert) macro &assert~1204670678~1617 (0) #f (rnrs base)) ((undefined) variable ex:undefined (0) #f ()) ((eval) variable ex:eval (0) #f ()) ((environment-bindings) variable ex:environment-bindings (0) #f ()) ((environment) variable ex:environment (0) #f ()) ((syntax-violation) variable ex:syntax-violation (0) #f ()) ((syntax->datum) variable ex:syntax->datum (0) #f ()) ((datum->syntax) variable ex:datum->syntax (0) #f ()) ((generate-temporaries) variable ex:generate-temporaries (0) #f ()) ((free-identifier=?) variable ex:free-identifier=? (0) #f ()) ((bound-identifier=?) variable ex:bound-identifier=? (0) #f ()) ((identifier?) variable ex:identifier? (0) #f ()) ((make-variable-transformer) variable ex:make-variable-transformer (0) #f ()) ((syntax-case) macro syntax-case (0) #f ()) ((syntax) macro syntax (0) #f ()) ((letrec-syntax) macro letrec-syntax (0) #f ()) ((let-syntax) macro let-syntax (0) #f ()) ((define-syntax) macro define-syntax (0) #f ()) ((define) macro define (0) #f ()) ((or) macro or (0) #f ()) ((and) macro and (0) #f ()) ((quote) macro quote (0) #f ()) ((lambda) macro lambda (0) #f ()) ((if) macro if (0) #f ()) ((begin) macro begin (0) #f ()) ((letrec*) macro &letrec*~1204670678~179 (0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0) #f (core let)) ((let) macro &let~1204670678~100 (0) #f (core let)) ((=>) macro &=>~1204670678~481 (0) #f (core derived)) ((else) macro &else~1204670678~485 (0) #f (core derived)) ((case) macro &case~1204670678~401 (0) #f (core derived)) ((cond) macro &cond~1204670678~285 (0) #f (core derived)) ((let*) macro &let*~1204670678~204 (0) #f (core derived)) ((unquote-splicing) macro &unquote-splicing~1204670678~1201 (0) #f (core quasiquote)) ((unquote) macro &unquote~1204670678~1197 (0) #f (core quasiquote)) ((quasiquote) macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) ((let*-values) macro &let*-values~1204670678~1346 (0) #f (core let-values)) ((let-values) macro &let-values~1204670678~1206 (0) #f (core let-values)) ((syntax-rules) macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) ((identifier-syntax) macro &identifier-syntax~1204670678~490 (1) #f (core identifier-syntax)) ((...) macro ... (1) #f ()) ((_) macro _ (1) #f ()) ((set!) macro set! (1 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 ()))) (2 (((x &c~1204670678~1618) variable &x~1204670678~1620 (0) #f (rnrs base)))) (1 ()) (0 (((dummy &c~1204670678~1618) . #f) ((expression) . #f))))))) (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~1204670678~100 (0) #f (core let)) (let* macro &let*~1204670678~204 (0) #f (core derived)) (letrec macro &letrec~1204670678~148 (0) #f (core let)) (letrec* macro &letrec*~1204670678~179 (0) #f (core let)) (let-values macro &let-values~1204670678~1206 (0) #f (core let-values)) (let*-values macro &let*-values~1204670678~1346 (0) #f (core let-values)) (case macro &case~1204670678~401 (0) #f (core derived)) (cond macro &cond~1204670678~285 (0) #f (core derived)) (else macro &else~1204670678~485 (0) #f (core derived)) (=> macro &=>~1204670678~481 (0) #f (core derived)) (assert macro &assert~1204670678~1617 (0) #f (rnrs base)) (quasiquote macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) (unquote macro &unquote~1204670678~1197 (0) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1204670678~1201 (0) #f (core quasiquote)) (syntax-rules macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) (identifier-syntax macro &identifier-syntax~1204670678~490 (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~1204670678~2 &build~1204670678~535 &build~1204670678~99 &build~1204670678~1380 &build~1204670678~1205 &build~1204670678~489 &build~1204670678~203 &build~1204670678~2)) (lambda () (ex:register-macro! (quote &assert~1204670678~1617) (lambda (&x~1204670678~1620) (let ((&input~1204670678~1622 &x~1204670678~1620)) (let ((&fail~1204670678~1623 (lambda () (ex:invalid-form &input~1204670678~1622)))) (if (pair? &input~1204670678~1622) (let ((&temp~1204670678~1631 (car &input~1204670678~1622))) (let ((&dummy~1204670678~1624 &temp~1204670678~1631)) (let ((&temp~1204670678~1628 (cdr &input~1204670678~1622))) (if (pair? &temp~1204670678~1628) (let ((&temp~1204670678~1630 (car &temp~1204670678~1628))) (let ((&expression~1204670678~1625 &temp~1204670678~1630)) (let ((&temp~1204670678~1629 (cdr &temp~1204670678~1628))) (if (null? &temp~1204670678~1629) (cons (ex:syntax-rename (quote if) (quote ()) (quote (&env~1204670678~1627)) 0 (quote (rnrs base))) (cons (cons (ex:syntax-rename (quote not) (quote ()) (quote (&env~1204670678~1627)) 0 (quote (rnrs base))) (cons &expression~1204670678~1625 (quote ()))) (cons (cons (ex:syntax-rename (quote assertion-violation) (quote ()) (quote (&env~1204670678~1627)) 0 (quote (rnrs base))) (cons (quote #f) (cons (quote "assertion failed") (cons (cons (ex:syntax-rename (quote quote) (quote ()) (quote (&env~1204670678~1627)) 0 (quote (rnrs base))) (cons &expression~1204670678~1625 (quote ()))) (quote ()))))) (quote ())))) (&fail~1204670678~1623))))) (&fail~1204670678~1623))))) (&fail~1204670678~1623)))))) (values)) (lambda () (values)) (quote &build~1204670678~1632))) (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~1204670678~100 (0 1) #f (core let)) (let* macro &let*~1204670678~204 (0 1) #f (core derived)) (letrec macro &letrec~1204670678~148 (0 1) #f (core let)) (letrec* macro &letrec*~1204670678~179 (0 1) #f (core let)) (let-values macro &let-values~1204670678~1206 (0 1) #f (core let-values)) (let*-values macro &let*-values~1204670678~1346 (0 1) #f (core let-values)) (case macro &case~1204670678~401 (0 1) #f (core derived)) (cond macro &cond~1204670678~285 (0 1) #f (core derived)) (else macro &else~1204670678~485 (0 1) #f (core derived)) (=> macro &=>~1204670678~481 (0 1) #f (core derived)) (assert macro &assert~1204670678~1617 (0 1) #f (rnrs base)) (quasiquote macro &quasiquote~1204670678~763 (0 1) #f (core quasiquote)) (unquote macro &unquote~1204670678~1197 (0 1) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1204670678~1201 (0 1) #f (core quasiquote)) (syntax-rules macro &syntax-rules~1204670678~58 (0 1) #f (core syntax-rules)) (identifier-syntax macro &identifier-syntax~1204670678~490 (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~1204670678~536 (0 1) #f (core quasisyntax)) (unsyntax macro &unsyntax~1204670678~754 (0 1) #f (core quasisyntax)) (unsyntax-splicing macro &unsyntax-splicing~1204670678~758 (0 1) #f (core quasisyntax)) (with-syntax macro &with-syntax~1204670678~3 (0 1) #f (core with-syntax)) (when macro &when~1204670678~1381 (0 1) #f (rnrs control)) (unless macro &unless~1204670678~1400 (0 1) #f (rnrs control)) (do macro &do~1204670678~1419 (0 1) #f (rnrs control)) (case-lambda macro &case-lambda~1204670678~1479 (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-titlecase variable char-titlecase (0 1) #f ()) (char-foldcase variable char-foldcase (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 ()) (char-title-case? variable char-title-case? (0 1) #f ()) (char-general-category variable char-general-category (0 1) #f ()) (string-upcase variable string-upcase (0 1) #f ()) (string-downcase variable string-downcase (0 1) #f ()) (string-titlecase variable string-titlecase (0 1) #f ()) (string-foldcase variable string-foldcase (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-normalize-nfd variable string-normalize-nfd (0 1) #f ()) (string-normalize-nfkd variable string-normalize-nfkd (0 1) #f ()) (string-normalize-nfc variable string-normalize-nfc (0 1) #f ()) (string-normalize-nfkc variable string-normalize-nfkc (0 1) #f ()) (list-sort variable list-sort (0 1) #f ()) (vector-sort variable vector-sort (0 1) #f ()) (vector-sort! variable vector-sort! (0 1) #f ()) (make-record-type-descriptor variable make-record-type-descriptor (0 1) #f ()) (record-type-descriptor? variable record-type-descriptor? (0 1) #f ()) (make-record-constructor-descriptor variable make-record-constructor-descriptor (0 1) #f ()) (record-constructor variable record-constructor (0 1) #f ()) (record-predicate variable record-predicate (0 1) #f ()) (record-accessor variable record-accessor (0 1) #f ()) (record-mutator variable record-mutator (0 1) #f ()) (record? variable record? (0 1) #f ()) (record-rtd variable record-rtd (0 1) #f ()) (record-type-name variable record-type-name (0 1) #f ()) (record-type-parent variable record-type-parent (0 1) #f ()) (record-type-uid variable record-type-uid (0 1) #f ()) (record-type-generative? variable record-type-generative? (0 1) #f ()) (record-type-sealed? variable record-type-sealed? (0 1) #f ()) (record-type-opaque? variable record-type-opaque? (0 1) #f ()) (record-type-field-names variable record-type-field-names (0 1) #f ()) (record-field-mutable? variable record-field-mutable? (0 1) #f ()) (fixnum? variable fixnum? (0 1) #f ()) (fixnum-width variable fixnum-width (0 1) #f ()) (least-fixnum variable least-fixnum (0 1) #f ()) (greatest-fixnum variable greatest-fixnum (0 1) #f ()) (fx=? variable fx=? (0 1) #f ()) (fx>? variable fx>? (0 1) #f ()) (fx<? variable fx<? (0 1) #f ()) (fx>=? variable fx>=? (0 1) #f ()) (fx<=? variable fx<=? (0 1) #f ()) (fxzero? variable fxzero? (0 1) #f ()) (fxpositive? variable fxpositive? (0 1) #f ()) (fxnegative? variable fxnegative? (0 1) #f ()) (fxodd? variable fxodd? (0 1) #f ()) (fxeven? variable fxeven? (0 1) #f ()) (fxmax variable fxmax (0 1) #f ()) (fxmin variable fxmin (0 1) #f ()) (fx+ variable fx+ (0 1) #f ()) (fx- variable fx- (0 1) #f ()) (fx* variable fx* (0 1) #f ()) (fxdiv-and-mod variable fxdiv-and-mod (0 1) #f ()) (fxdiv variable fxdiv (0 1) #f ()) (fxmod variable fxmod (0 1) #f ()) (fxdiv0-and-mod0 variable fxdiv0-and-mod0 (0 1) #f ()) (fxdiv0 variable fxdiv0 (0 1) #f ()) (fxmod0 variable fxmod0 (0 1) #f ()) (fx+/carry variable fx+/carry (0 1) #f ()) (fx-/carry variable fx-/carry (0 1) #f ()) (fx*/carry variable fx*/carry (0 1) #f ()) (fxnot variable fxnot (0 1) #f ()) (fxand variable fxand (0 1) #f ()) (fxior variable fxior (0 1) #f ()) (fxxor variable fxxor (0 1) #f ()) (fxif variable fxif (0 1) #f ()) (fxbit-count variable fxbit-count (0 1) #f ()) (fxlength variable fxlength (0 1) #f ()) (fxfirst-bit-set variable fxfirst-bit-set (0 1) #f ()) (fxbit-set? variable fxbit-set? (0 1) #f ()) (fxcopy-bit variable fxcopy-bit (0 1) #f ()) (fxbit-field variable fxbit-field (0 1) #f ()) (fxcopy-bit-field variable fxcopy-bit-field (0 1) #f ()) (fxrotate-bit-field variable fxrotate-bit-field (0 1) #f ()) (fxreverse-bit-field variable fxreverse-bit-field (0 1) #f ()) (fxarithmetic-shift variable fxarithmetic-shift (0 1) #f ()) (fxarithmetic-shift-left variable fxarithmetic-shift-left (0 1) #f ()) (fxarithmetic-shift-right variable fxarithmetic-shift-right (0 1) #f ()) (flonum? variable flonum? (0 1) #f ()) (real->flonum variable real->flonum (0 1) #f ()) (fl=? variable fl=? (0 1) #f ()) (fl<? variable fl<? (0 1) #f ()) (fl>? variable fl>? (0 1) #f ()) (fl<=? variable fl<=? (0 1) #f ()) (fl>=? variable fl>=? (0 1) #f ()) (flinteger? variable flinteger? (0 1) #f ()) (flzero? variable flzero? (0 1) #f ()) (flpositive? variable flpositive? (0 1) #f ()) (flnegative? variable flnegative? (0 1) #f ()) (flodd? variable flodd? (0 1) #f ()) (fleven? variable fleven? (0 1) #f ()) (flfinite? variable flfinite? (0 1) #f ()) (flinfinite? variable flinfinite? (0 1) #f ()) (flnan? variable flnan? (0 1) #f ()) (flmax variable flmax (0 1) #f ()) (flmin variable flmin (0 1) #f ()) (fl+ variable fl+ (0 1) #f ()) (fl* variable fl* (0 1) #f ()) (fl- variable fl- (0 1) #f ()) (fl/ variable fl/ (0 1) #f ()) (flabs variable flabs (0 1) #f ()) (fldiv-and-mod variable fldiv-and-mod (0 1) #f ()) (fldiv variable fldiv (0 1) #f ()) (flmod variable flmod (0 1) #f ()) (fldiv0-and-mod0 variable fldiv0-and-mod0 (0 1) #f ()) (fldiv0 variable fldiv0 (0 1) #f ()) (flmod0 variable flmod0 (0 1) #f ()) (flnumerator variable flnumerator (0 1) #f ()) (fldenominator variable fldenominator (0 1) #f ()) (flfloor variable flfloor (0 1) #f ()) (flceiling variable flceiling (0 1) #f ()) (fltruncate variable fltruncate (0 1) #f ()) (flround variable flround (0 1) #f ()) (flexp variable flexp (0 1) #f ()) (fllog variable fllog (0 1) #f ()) (flsin variable flsin (0 1) #f ()) (flcos variable flcos (0 1) #f ()) (fltan variable fltan (0 1) #f ()) (flasin variable flasin (0 1) #f ()) (flacos variable flacos (0 1) #f ()) (flatan variable flatan (0 1) #f ()) (flsqrt variable flsqrt (0 1) #f ()) (flexpt variable flexpt (0 1) #f ()) (fixnum->flonum variable fixnum->flonum (0 1) #f ()) (bitwise-not variable bitwise-not (0 1) #f ()) (bitwise-and variable bitwise-and (0 1) #f ()) (bitwise-ior variable bitwise-ior (0 1) #f ()) (bitwise-xor variable bitwise-xor (0 1) #f ()) (bitwise-if variable bitwise-if (0 1) #f ()) (bitwise-bit-count variable bitwise-bit-count (0 1) #f ()) (bitwise-length variable bitwise-length (0 1) #f ()) (bitwise-first-bit-set variable bitwise-first-bit-set (0 1) #f ()) (bitwise-bit-set? variable bitwise-bit-set? (0 1) #f ()) (bitwise-copy-bit variable bitwise-copy-bit (0 1) #f ()) (bitwise-bit-field variable bitwise-bit-field (0 1) #f ()) (bitwise-copy-bit-field variable bitwise-copy-bit-field (0 1) #f ()) (bitwise-rotate-bit-field variable bitwise-rotate-bit-field (0 1) #f ()) (bitwise-reverse-bit-field variable bitwise-reverse-bit-field (0 1) #f ()) (bitwise-arithmetic-shift variable bitwise-arithmetic-shift (0 1) #f ()) (bitwise-arithmetic-shift-left variable bitwise-arithmetic-shift-left (0 1) #f ()) (bitwise-arithmetic-shift-right variable bitwise-arithmetic-shift-right (0 1) #f ()) (file-exists? variable file-exists? (0 1) #f ()) (delete-file variable delete-file (0 1) #f ()))) (quote (((rnrs arithmetic bitwise) 0 1) ((rnrs arithmetic flonums) 0 1) ((rnrs arithmetic fixnums) 0 1) ((rnrs files) 0 1) ((rnrs records inspection) 0 1) ((rnrs records procedural) 0 1) ((rnrs sorting) 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~1204670678~1614 &build~1204670678~1613 &build~1204670678~1612 &build~1204670678~1615 &build~1204670678~1611 &build~1204670678~1610 &build~1204670678~1609 &build~1204670678~1608 &build~1204670678~1607 &build~1204670678~1616 &build~1204670678~1606 &build~1204670678~1605 &build~1204670678~535 &build~1204670678~99 &build~1204670678~1632 &build~1204670678~1632)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1633))) (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 ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1634))) (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 ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1635))) (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~1204670678~2)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1636))) (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~1204670678~2)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1637))) (values))
(begin (define &make-promise~1204670678~1656 ex:unspecified) (define &force~1204670678~1640 ex:unspecified) (define &null-environment~1204670678~1639 ex:unspecified) (define &scheme-report-environment~1204670678~1638 ex:unspecified) (ex:register-library! (ex:make-library (quote (rnrs r5rs)) (lambda () (ex:uncompress (quote (((&env~1204670678~1651 0 1 2 3)) (3 (((make-promise) variable &make-promise~1204670678~1656 (0) #f (rnrs r5rs)) ((delay) macro &delay~1204670678~1641 (0) #f (rnrs r5rs)) ((force) variable &force~1204670678~1640 (0) #f (rnrs r5rs)) ((null-environment) variable &null-environment~1204670678~1639 (0) #f (rnrs r5rs)) ((scheme-report-environment) variable &scheme-report-environment~1204670678~1638 (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~1204670678~490 (1) #f (core identifier-syntax)) ((syntax-rules) macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) ((unquote-splicing) macro &unquote-splicing~1204670678~1201 (0) #f (core quasiquote)) ((unquote) macro &unquote~1204670678~1197 (0) #f (core quasiquote)) ((quasiquote) macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) ((assert) macro &assert~1204670678~1617 (0) #f (rnrs base)) ((=>) macro &=>~1204670678~481 (0) #f (core derived)) ((else) macro &else~1204670678~485 (0) #f (core derived)) ((cond) macro &cond~1204670678~285 (0) #f (core derived)) ((case) macro &case~1204670678~401 (0) #f (core derived)) ((let*-values) macro &let*-values~1204670678~1346 (0) #f (core let-values)) ((let-values) macro &let-values~1204670678~1206 (0) #f (core let-values)) ((letrec*) macro &letrec*~1204670678~179 (0) #f (core let)) ((letrec) macro &letrec~1204670678~148 (0) #f (core let)) ((let*) macro &let*~1204670678~204 (0) #f (core derived)) ((let) macro &let~1204670678~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~1204670678~1479 (0) #f (rnrs control)) ((do) macro &do~1204670678~1419 (0) #f (rnrs control)) ((unless) macro &unless~1204670678~1400 (0) #f (rnrs control)) ((when) macro &when~1204670678~1381 (0) #f (rnrs control)))) (2 (((x &c~1204670678~1642) variable &x~1204670678~1644 (0) #f (rnrs r5rs)))) (1 ()) (0 (((dummy &c~1204670678~1642) . #f) ((expression) . #f))))))) (quote ((null-environment variable &null-environment~1204670678~1639 (0) #f (rnrs r5rs)) (scheme-report-environment variable &scheme-report-environment~1204670678~1638 (0) #f (rnrs r5rs)) (delay macro &delay~1204670678~1641 (0) #f (rnrs r5rs)) (force variable &force~1204670678~1640 (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))) (quote (&build~1204670678~1605 &build~1204670678~1632 &build~1204670678~1636)) (lambda () (ex:register-macro! (quote &delay~1204670678~1641) (lambda (&x~1204670678~1644) (let ((&input~1204670678~1646 &x~1204670678~1644)) (let ((&fail~1204670678~1647 (lambda () (ex:invalid-form &input~1204670678~1646)))) (if (pair? &input~1204670678~1646) (let ((&temp~1204670678~1655 (car &input~1204670678~1646))) (let ((&dummy~1204670678~1648 &temp~1204670678~1655)) (let ((&temp~1204670678~1652 (cdr &input~1204670678~1646))) (if (pair? &temp~1204670678~1652) (let ((&temp~1204670678~1654 (car &temp~1204670678~1652))) (let ((&expression~1204670678~1649 &temp~1204670678~1654)) (let ((&temp~1204670678~1653 (cdr &temp~1204670678~1652))) (if (null? &temp~1204670678~1653) (cons (ex:syntax-rename (quote make-promise) (quote ()) (quote (&env~1204670678~1651)) 0 (quote (rnrs r5rs))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1651)) 0 (quote (rnrs r5rs))) (cons (quote ()) (cons &expression~1204670678~1649 (quote ())))) (quote ()))) (&fail~1204670678~1647))))) (&fail~1204670678~1647))))) (&fail~1204670678~1647)))))) (values)) (lambda () (set! &make-promise~1204670678~1656 ex:undefined) (set! &force~1204670678~1640 ex:undefined) (set! &null-environment~1204670678~1639 ex:undefined) (set! &scheme-report-environment~1204670678~1638 ex:undefined) (set! &scheme-report-environment~1204670678~1638 (lambda (&n~1204670678~1686) (if (not (= &n~1204670678~1686 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" &n~1204670678~1686))) (ex:environment (quote (r5rs))))) (set! &null-environment~1204670678~1639 ((lambda (&null-env~1204670678~1676) (lambda (&n~1204670678~1678) (if (not (= &n~1204670678~1678 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" &n~1204670678~1678))) &null-env~1204670678~1676)) (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~1204670678~1640 (lambda (&object~1204670678~1673) (&object~1204670678~1673))) (set! &make-promise~1204670678~1656 (lambda (&proc~1204670678~1658) ((lambda (&result-ready?~1204670678~1661 &result~1204670678~1662) (lambda () (if &result-ready?~1204670678~1661 &result~1204670678~1662 ((lambda (&x~1204670678~1667) (if &result-ready?~1204670678~1661 &result~1204670678~1662 (begin (set! &result-ready?~1204670678~1661 #t) (set! &result~1204670678~1662 &x~1204670678~1667) &result~1204670678~1662))) (&proc~1204670678~1658))))) #f #f))) (values)) (quote &build~1204670678~1692))) (values))
(begin (ex:register-library! (ex:make-library (quote (rnrs load)) (lambda () (quote ())) (quote ((load variable ex:load (0) #f ()))) (quote ()) (quote ()) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1693))) (values))
(begin (ex:register-library! (ex:make-library (quote (r5rs)) (lambda () (quote ())) (quote ((set! macro set! (0) #f ()) (begin macro begin (0) #f ()) (if macro if (0) #f ()) (lambda macro lambda (0) #f ()) (quote macro quote (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 ()) (let macro &let~1204670678~100 (0) #f (core let)) (let* macro &let*~1204670678~204 (0) #f (core derived)) (letrec macro &letrec~1204670678~148 (0) #f (core let)) (case macro &case~1204670678~401 (0) #f (core derived)) (cond macro &cond~1204670678~285 (0) #f (core derived)) (else macro &else~1204670678~485 (0) #f (core derived)) (=> macro &=>~1204670678~481 (0) #f (core derived)) (quasiquote macro &quasiquote~1204670678~763 (0) #f (core quasiquote)) (unquote macro &unquote~1204670678~1197 (0) #f (core quasiquote)) (unquote-splicing macro &unquote-splicing~1204670678~1201 (0) #f (core quasiquote)) (syntax-rules macro &syntax-rules~1204670678~58 (1) #f (core syntax-rules)) (* 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 ()) (eval variable ex:eval (0) #f ()) (load variable ex:load (0) #f ()) (do macro &do~1204670678~1419 (0) #f (rnrs control)) (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 ()) (set-car! variable set-car! (0) #f ()) (set-cdr! variable set-cdr! (0) #f ()) (assoc variable assoc (0) #f ()) (assv variable assv (0) #f ()) (assq variable assq (0) #f ()) (member variable member (0) #f ()) (memv variable memv (0) #f ()) (memq variable memq (0) #f ()) (string-set! variable string-set! (0) #f ()) (string-fill! variable string-fill! (0) #f ()) (null-environment variable &null-environment~1204670678~1639 (0) #f (rnrs r5rs)) (scheme-report-environment variable &scheme-report-environment~1204670678~1638 (0) #f (rnrs r5rs)) (delay macro &delay~1204670678~1641 (0) #f (rnrs r5rs)) (force variable &force~1204670678~1640 (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 r5rs) 0) ((rnrs mutable-strings) 0) ((rnrs lists) 0) ((rnrs mutable-pairs) 0) ((rnrs unicode) 0) ((rnrs io simple) 0) ((rnrs control) 0) ((rnrs load) 0) ((rnrs eval) 0) ((rnrs base) 0) ((core primitives) 0))) (quote (&build~1204670678~1692 &build~1204670678~1635 &build~1204670678~1606 &build~1204670678~1634 &build~1204670678~1608 &build~1204670678~1607 &build~1204670678~1605 &build~1204670678~1693 &build~1204670678~1636 &build~1204670678~1632 &build~1204670678~2)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1694))) (values))
(begin (ex:register-library! (ex:make-library (quote (explicit-renaming helper)) (lambda () (ex:uncompress (quote (((&env~1204670678~1704 0 1 2 3)) (3 (((er-transformer) macro &er-transformer~1204670678~1695 (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~1204670678~1697 (1) #f (explicit-renaming helper)))) (1 ()) (0 (((k) . #f) ((proc) . #f))))))) (quote ((er-transformer macro &er-transformer~1204670678~1695 (0) #f (explicit-renaming helper)))) (quote (((rnrs) 0))) (quote (&build~1204670678~1633)) (lambda () (ex:register-macro! (quote &er-transformer~1204670678~1695) (lambda (&exp~1204670678~1697) (let ((&input~1204670678~1699 &exp~1204670678~1697)) (let ((&fail~1204670678~1700 (lambda () (ex:invalid-form &input~1204670678~1699)))) (if (pair? &input~1204670678~1699) (let ((&temp~1204670678~1708 (car &input~1204670678~1699))) (let ((&k~1204670678~1701 &temp~1204670678~1708)) (let ((&temp~1204670678~1705 (cdr &input~1204670678~1699))) (if (pair? &temp~1204670678~1705) (let ((&temp~1204670678~1707 (car &temp~1204670678~1705))) (let ((&proc~1204670678~1702 &temp~1204670678~1707)) (let ((&temp~1204670678~1706 (cdr &temp~1204670678~1705))) (if (null? &temp~1204670678~1706) (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (cons (cons (ex:syntax-rename (quote form) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (quote ())) (cons (cons &proc~1204670678~1702 (cons (ex:syntax-rename (quote form) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (cons (cons (ex:syntax-rename (quote lambda) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (cons (cons (ex:syntax-rename (quote symbol) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (quote ())) (cons (cons (ex:syntax-rename (quote datum->syntax) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (cons (cons (ex:syntax-rename (quote syntax) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (cons &k~1204670678~1701 (quote ()))) (cons (ex:syntax-rename (quote symbol) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (quote ())))) (quote ())))) (cons (ex:syntax-rename (quote free-identifier=?) (quote ()) (quote (&env~1204670678~1704)) 0 (quote (explicit-renaming helper))) (quote ()))))) (quote ())))) (&fail~1204670678~1700))))) (&fail~1204670678~1700))))) (&fail~1204670678~1700)))))) (values)) (lambda () (values)) (quote &build~1204670678~1709))) (values))
(begin (ex:register-library! (ex:make-library (quote (explicit-renaming)) (lambda () (quote ())) (quote ((er-transformer macro &er-transformer~1204670678~1695 (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~1204670678~1616 &build~1204670678~1709)) (lambda () (values)) (lambda () (values)) (quote &build~1204670678~1710))) (values))