diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index dbd1ace7a..b6f826933 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1964 +2,1947 @@ (if #f #f) (letrec* - ((#{top-level-eval-hook 4302}# - (lambda (#{x 36832}# #{mod 36833}#) - (primitive-eval #{x 36832}#))) - (#{maybe-name-value! 4307}# - (lambda (#{name 19451}# #{val 19452}#) - (if (if (struct? #{val 19452}#) - (eq? (struct-vtable #{val 19452}#) + ((#{top-level-eval-hook 4300}# + (lambda (#{x 36829}# #{mod 36830}#) + (primitive-eval #{x 36829}#))) + (#{maybe-name-value! 4305}# + (lambda (#{name 19449}# #{val 19450}#) + (if (if (struct? #{val 19450}#) + (eq? (struct-vtable #{val 19450}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19459}# (struct-ref #{val 19452}# 1))) - (if (not (assq 'name #{meta 19459}#)) - (let ((#{v 19464}# - (cons (cons 'name #{name 19451}#) #{meta 19459}#))) - (struct-set! #{val 19452}# 1 #{v 19464}#))))))) - (#{build-call 4309}# - (lambda (#{source 19196}# - #{fun-exp 19197}# - #{arg-exps 19198}#) + (let ((#{meta 19457}# (struct-ref #{val 19450}# 1))) + (if (not (assq 'name #{meta 19457}#)) + (let ((#{v 19462}# + (cons (cons 'name #{name 19449}#) #{meta 19457}#))) + (struct-set! #{val 19450}# 1 #{v 19462}#))))))) + (#{build-call 4307}# + (lambda (#{source 19194}# + #{fun-exp 19195}# + #{arg-exps 19196}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 19196}# - #{fun-exp 19197}# - #{arg-exps 19198}#))) - (#{build-conditional 4310}# - (lambda (#{source 19204}# - #{test-exp 19205}# - #{then-exp 19206}# - #{else-exp 19207}#) + #{source 19194}# + #{fun-exp 19195}# + #{arg-exps 19196}#))) + (#{build-conditional 4308}# + (lambda (#{source 19202}# + #{test-exp 19203}# + #{then-exp 19204}# + #{else-exp 19205}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 19204}# - #{test-exp 19205}# - #{then-exp 19206}# - #{else-exp 19207}#))) - (#{build-dynlet 4311}# - (lambda (#{source 19214}# - #{fluids 19215}# - #{vals 19216}# - #{body 19217}#) + #{source 19202}# + #{test-exp 19203}# + #{then-exp 19204}# + #{else-exp 19205}#))) + (#{build-dynlet 4309}# + (lambda (#{source 19212}# + #{fluids 19213}# + #{vals 19214}# + #{body 19215}#) (make-struct/no-tail (vector-ref %expanded-vtables 18) - #{source 19214}# - #{fluids 19215}# - #{vals 19216}# - #{body 19217}#))) - (#{build-lexical-reference 4312}# - (lambda (#{type 36834}# - #{source 36835}# - #{name 36836}# - #{var 36837}#) + #{source 19212}# + #{fluids 19213}# + #{vals 19214}# + #{body 19215}#))) + (#{build-lexical-reference 4310}# + (lambda (#{type 36831}# + #{source 36832}# + #{name 36833}# + #{var 36834}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 36835}# - #{name 36836}# - #{var 36837}#))) - (#{build-lexical-assignment 4313}# - (lambda (#{source 19224}# - #{name 19225}# - #{var 19226}# - #{exp 19227}#) + #{source 36832}# + #{name 36833}# + #{var 36834}#))) + (#{build-lexical-assignment 4311}# + (lambda (#{source 19222}# + #{name 19223}# + #{var 19224}# + #{exp 19225}#) (begin - (if (if (struct? #{exp 19227}#) - (eq? (struct-vtable #{exp 19227}#) + (if (if (struct? #{exp 19225}#) + (eq? (struct-vtable #{exp 19225}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19243}# (struct-ref #{exp 19227}# 1))) - (if (not (assq 'name #{meta 19243}#)) - (let ((#{v 19250}# - (cons (cons 'name #{name 19225}#) #{meta 19243}#))) - (struct-set! #{exp 19227}# 1 #{v 19250}#))))) + (let ((#{meta 19241}# (struct-ref #{exp 19225}# 1))) + (if (not (assq 'name #{meta 19241}#)) + (let ((#{v 19248}# + (cons (cons 'name #{name 19223}#) #{meta 19241}#))) + (struct-set! #{exp 19225}# 1 #{v 19248}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 19224}# - #{name 19225}# - #{var 19226}# - #{exp 19227}#)))) - (#{analyze-variable 4314}# - (lambda (#{mod 36843}# - #{var 36844}# - #{modref-cont 36845}# - #{bare-cont 36846}#) - (if (not #{mod 36843}#) - (#{bare-cont 36846}# #{var 36844}#) - (let ((#{kind 36847}# (car #{mod 36843}#)) - (#{mod 36848}# (cdr #{mod 36843}#))) - (if (eqv? #{kind 36847}# 'public) - (#{modref-cont 36845}# - #{mod 36848}# - #{var 36844}# + #{source 19222}# + #{name 19223}# + #{var 19224}# + #{exp 19225}#)))) + (#{analyze-variable 4312}# + (lambda (#{mod 36840}# + #{var 36841}# + #{modref-cont 36842}# + #{bare-cont 36843}#) + (if (not #{mod 36840}#) + (#{bare-cont 36843}# #{var 36841}#) + (let ((#{kind 36844}# (car #{mod 36840}#)) + (#{mod 36845}# (cdr #{mod 36840}#))) + (if (eqv? #{kind 36844}# 'public) + (#{modref-cont 36842}# + #{mod 36845}# + #{var 36841}# #t) - (if (eqv? #{kind 36847}# 'private) + (if (eqv? #{kind 36844}# 'private) (if (not (equal? - #{mod 36848}# + #{mod 36845}# (module-name (current-module)))) - (#{modref-cont 36845}# - #{mod 36848}# - #{var 36844}# + (#{modref-cont 36842}# + #{mod 36845}# + #{var 36841}# #f) - (#{bare-cont 36846}# #{var 36844}#)) - (if (eqv? #{kind 36847}# 'bare) - (#{bare-cont 36846}# #{var 36844}#) - (if (eqv? #{kind 36847}# 'hygiene) + (#{bare-cont 36843}# #{var 36841}#)) + (if (eqv? #{kind 36844}# 'bare) + (#{bare-cont 36843}# #{var 36841}#) + (if (eqv? #{kind 36844}# 'hygiene) (if (if (not (equal? - #{mod 36848}# + #{mod 36845}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 36848}#) - #{var 36844}#) + (resolve-module #{mod 36845}#) + #{var 36841}#) #f) - (#{modref-cont 36845}# - #{mod 36848}# - #{var 36844}# + (#{modref-cont 36842}# + #{mod 36845}# + #{var 36841}# #f) - (#{bare-cont 36846}# #{var 36844}#)) + (#{bare-cont 36843}# #{var 36841}#)) (syntax-violation #f "bad module kind" - #{var 36844}# - #{mod 36848}#))))))))) - (#{build-global-reference 4315}# - (lambda (#{source 36863}# #{var 36864}# #{mod 36865}#) - (#{analyze-variable 4314}# - #{mod 36865}# - #{var 36864}# - (lambda (#{mod 36868}# #{var 36869}# #{public? 36870}#) + #{var 36841}# + #{mod 36845}#))))))))) + (#{build-global-reference 4313}# + (lambda (#{source 36860}# #{var 36861}# #{mod 36862}#) + (#{analyze-variable 4312}# + #{mod 36862}# + #{var 36861}# + (lambda (#{mod 36865}# #{var 36866}# #{public? 36867}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 36863}# - #{mod 36868}# - #{var 36869}# - #{public? 36870}#)) - (lambda (#{var 36877}#) + #{source 36860}# + #{mod 36865}# + #{var 36866}# + #{public? 36867}#)) + (lambda (#{var 36874}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 36863}# - #{var 36877}#))))) - (#{build-global-assignment 4316}# - (lambda (#{source 19259}# - #{var 19260}# - #{exp 19261}# - #{mod 19262}#) + #{source 36860}# + #{var 36874}#))))) + (#{build-global-assignment 4314}# + (lambda (#{source 19257}# + #{var 19258}# + #{exp 19259}# + #{mod 19260}#) (begin - (if (if (struct? #{exp 19261}#) - (eq? (struct-vtable #{exp 19261}#) + (if (if (struct? #{exp 19259}#) + (eq? (struct-vtable #{exp 19259}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19278}# (struct-ref #{exp 19261}# 1))) - (if (not (assq 'name #{meta 19278}#)) - (let ((#{v 19285}# - (cons (cons 'name #{var 19260}#) #{meta 19278}#))) - (struct-set! #{exp 19261}# 1 #{v 19285}#))))) - (#{analyze-variable 4314}# - #{mod 19262}# - #{var 19260}# - (lambda (#{mod 19290}# #{var 19291}# #{public? 19292}#) + (let ((#{meta 19276}# (struct-ref #{exp 19259}# 1))) + (if (not (assq 'name #{meta 19276}#)) + (let ((#{v 19283}# + (cons (cons 'name #{var 19258}#) #{meta 19276}#))) + (struct-set! #{exp 19259}# 1 #{v 19283}#))))) + (#{analyze-variable 4312}# + #{mod 19260}# + #{var 19258}# + (lambda (#{mod 19288}# #{var 19289}# #{public? 19290}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 19259}# - #{mod 19290}# - #{var 19291}# - #{public? 19292}# - #{exp 19261}#)) - (lambda (#{var 19300}#) + #{source 19257}# + #{mod 19288}# + #{var 19289}# + #{public? 19290}# + #{exp 19259}#)) + (lambda (#{var 19298}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 19259}# - #{var 19300}# - #{exp 19261}#)))))) - (#{build-global-definition 4317}# - (lambda (#{source 36882}# #{var 36883}# #{exp 36884}#) + #{source 19257}# + #{var 19298}# + #{exp 19259}#)))))) + (#{build-global-definition 4315}# + (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#) (begin - (if (if (struct? #{exp 36884}#) - (eq? (struct-vtable #{exp 36884}#) + (if (if (struct? #{exp 36881}#) + (eq? (struct-vtable #{exp 36881}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 36900}# (struct-ref #{exp 36884}# 1))) - (if (not (assq 'name #{meta 36900}#)) - (let ((#{v 36907}# - (cons (cons 'name #{var 36883}#) #{meta 36900}#))) - (struct-set! #{exp 36884}# 1 #{v 36907}#))))) + (let ((#{meta 36897}# (struct-ref #{exp 36881}# 1))) + (if (not (assq 'name #{meta 36897}#)) + (let ((#{v 36904}# + (cons (cons 'name #{var 36880}#) #{meta 36897}#))) + (struct-set! #{exp 36881}# 1 #{v 36904}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 36882}# - #{var 36883}# - #{exp 36884}#)))) - (#{build-simple-lambda 4318}# - (lambda (#{src 19306}# - #{req 19307}# - #{rest 19308}# - #{vars 19309}# - #{meta 19310}# - #{exp 19311}#) - (let ((#{body 19317}# + #{source 36879}# + #{var 36880}# + #{exp 36881}#)))) + (#{build-simple-lambda 4316}# + (lambda (#{src 19304}# + #{req 19305}# + #{rest 19306}# + #{vars 19307}# + #{meta 19308}# + #{exp 19309}#) + (let ((#{body 19315}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 19306}# - #{req 19307}# + #{src 19304}# + #{req 19305}# #f - #{rest 19308}# + #{rest 19306}# #f '() - #{vars 19309}# - #{exp 19311}# + #{vars 19307}# + #{exp 19309}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 19306}# - #{meta 19310}# - #{body 19317}#)))) - (#{build-primcall 4321}# - (lambda (#{src 19329}# #{name 19330}# #{args 19331}#) + #{src 19304}# + #{meta 19308}# + #{body 19315}#)))) + (#{build-primcall 4319}# + (lambda (#{src 19327}# #{name 19328}# #{args 19329}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 19329}# - #{name 19330}# - #{args 19331}#))) - (#{build-sequence 4324}# - (lambda (#{src 36915}# #{exps 36916}#) - (if (null? (cdr #{exps 36916}#)) - (car #{exps 36916}#) - (let ((#{head 36920}# (car #{exps 36916}#)) - (#{tail 36921}# - (#{build-sequence 4324}# #f (cdr #{exps 36916}#)))) + #{src 19327}# + #{name 19328}# + #{args 19329}#))) + (#{build-sequence 4322}# + (lambda (#{src 36912}# #{exps 36913}#) + (if (null? (cdr #{exps 36913}#)) + (car #{exps 36913}#) + (let ((#{head 36917}# (car #{exps 36913}#)) + (#{tail 36918}# + (#{build-sequence 4322}# #f (cdr #{exps 36913}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 36915}# - #{head 36920}# - #{tail 36921}#))))) - (#{build-named-let 4326}# - (lambda (#{src 19337}# - #{ids 19338}# - #{vars 19339}# - #{val-exps 19340}# - #{body-exp 19341}#) - (let ((#{f 19342}# (car #{vars 19339}#)) - (#{f-name 19343}# (car #{ids 19338}#)) - (#{vars 19344}# (cdr #{vars 19339}#)) - (#{ids 19345}# (cdr #{ids 19338}#))) - (let ((#{proc 19346}# - (let ((#{body 19366}# + #{src 36912}# + #{head 36917}# + #{tail 36918}#))))) + (#{build-named-let 4324}# + (lambda (#{src 19335}# + #{ids 19336}# + #{vars 19337}# + #{val-exps 19338}# + #{body-exp 19339}#) + (let ((#{f 19340}# (car #{vars 19337}#)) + (#{f-name 19341}# (car #{ids 19336}#)) + (#{vars 19342}# (cdr #{vars 19337}#)) + (#{ids 19343}# (cdr #{ids 19336}#))) + (let ((#{proc 19344}# + (let ((#{body 19364}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 19337}# - #{ids 19345}# + #{src 19335}# + #{ids 19343}# #f #f #f '() - #{vars 19344}# - #{body-exp 19341}# + #{vars 19342}# + #{body-exp 19339}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 19337}# + #{src 19335}# '() - #{body 19366}#)))) + #{body 19364}#)))) (begin - (if (if (struct? #{proc 19346}#) - (eq? (struct-vtable #{proc 19346}#) + (if (if (struct? #{proc 19344}#) + (eq? (struct-vtable #{proc 19344}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19390}# (struct-ref #{proc 19346}# 1))) - (if (not (assq 'name #{meta 19390}#)) - (let ((#{v 19397}# - (cons (cons 'name #{f-name 19343}#) - #{meta 19390}#))) - (struct-set! #{proc 19346}# 1 #{v 19397}#))))) + (let ((#{meta 19388}# (struct-ref #{proc 19344}# 1))) + (if (not (assq 'name #{meta 19388}#)) + (let ((#{v 19395}# + (cons (cons 'name #{f-name 19341}#) + #{meta 19388}#))) + (struct-set! #{proc 19344}# 1 #{v 19395}#))))) (for-each - #{maybe-name-value! 4307}# - #{ids 19345}# - #{val-exps 19340}#) - (let ((#{names 19421}# (list #{f-name 19343}#)) - (#{gensyms 19422}# (list #{f 19342}#)) - (#{vals 19423}# (list #{proc 19346}#)) - (#{body 19424}# - (let ((#{fun-exp 19428}# + #{maybe-name-value! 4305}# + #{ids 19343}# + #{val-exps 19338}#) + (let ((#{names 19419}# (list #{f-name 19341}#)) + (#{gensyms 19420}# (list #{f 19340}#)) + (#{vals 19421}# (list #{proc 19344}#)) + (#{body 19422}# + (let ((#{fun-exp 19426}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 19337}# - #{f-name 19343}# - #{f 19342}#))) + #{src 19335}# + #{f-name 19341}# + #{f 19340}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 19337}# - #{fun-exp 19428}# - #{val-exps 19340}#)))) + #{src 19335}# + #{fun-exp 19426}# + #{val-exps 19338}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 19337}# + #{src 19335}# #f - #{names 19421}# - #{gensyms 19422}# - #{vals 19423}# - #{body 19424}#))))))) - (#{build-letrec 4327}# - (lambda (#{src 19444}# - #{in-order? 19445}# - #{ids 19446}# - #{vars 19447}# - #{val-exps 19448}# - #{body-exp 19449}#) - (if (null? #{vars 19447}#) - #{body-exp 19449}# + #{names 19419}# + #{gensyms 19420}# + #{vals 19421}# + #{body 19422}#))))))) + (#{build-letrec 4325}# + (lambda (#{src 19442}# + #{in-order? 19443}# + #{ids 19444}# + #{vars 19445}# + #{val-exps 19446}# + #{body-exp 19447}#) + (if (null? #{vars 19445}#) + #{body-exp 19447}# (begin (for-each - #{maybe-name-value! 4307}# - #{ids 19446}# - #{val-exps 19448}#) + #{maybe-name-value! 4305}# + #{ids 19444}# + #{val-exps 19446}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 19444}# - #{in-order? 19445}# - #{ids 19446}# - #{vars 19447}# - #{val-exps 19448}# - #{body-exp 19449}#))))) - (#{source-annotation 4336}# - (lambda (#{x 19475}#) - (if (if (vector? #{x 19475}#) - (if (= (vector-length #{x 19475}#) 4) - (eq? (vector-ref #{x 19475}# 0) 'syntax-object) + #{src 19442}# + #{in-order? 19443}# + #{ids 19444}# + #{vars 19445}# + #{val-exps 19446}# + #{body-exp 19447}#))))) + (#{source-annotation 4334}# + (lambda (#{x 19473}#) + (if (if (vector? #{x 19473}#) + (if (= (vector-length #{x 19473}#) 4) + (eq? (vector-ref #{x 19473}# 0) 'syntax-object) #f) #f) - (#{source-annotation 4336}# - (vector-ref #{x 19475}# 1)) - (if (pair? #{x 19475}#) - (let ((#{props 19490}# (source-properties #{x 19475}#))) - (if (pair? #{props 19490}#) #{props 19490}# #f)) + (#{source-annotation 4334}# + (vector-ref #{x 19473}# 1)) + (if (pair? #{x 19473}#) + (let ((#{props 19488}# (source-properties #{x 19473}#))) + (if (pair? #{props 19488}#) #{props 19488}# #f)) #f)))) - (#{extend-env 4337}# - (lambda (#{labels 19492}# #{bindings 19493}# #{r 19494}#) - (if (null? #{labels 19492}#) - #{r 19494}# - (#{extend-env 4337}# - (cdr #{labels 19492}#) - (cdr #{bindings 19493}#) - (cons (cons (car #{labels 19492}#) - (car #{bindings 19493}#)) - #{r 19494}#))))) - (#{extend-var-env 4338}# - (lambda (#{labels 19495}# #{vars 19496}# #{r 19497}#) - (if (null? #{labels 19495}#) - #{r 19497}# - (#{extend-var-env 4338}# - (cdr #{labels 19495}#) - (cdr #{vars 19496}#) - (cons (cons (car #{labels 19495}#) - (cons 'lexical (car #{vars 19496}#))) - #{r 19497}#))))) - (#{macros-only-env 4339}# - (lambda (#{r 19498}#) - (if (null? #{r 19498}#) + (#{extend-env 4335}# + (lambda (#{labels 19490}# #{bindings 19491}# #{r 19492}#) + (if (null? #{labels 19490}#) + #{r 19492}# + (#{extend-env 4335}# + (cdr #{labels 19490}#) + (cdr #{bindings 19491}#) + (cons (cons (car #{labels 19490}#) + (car #{bindings 19491}#)) + #{r 19492}#))))) + (#{extend-var-env 4336}# + (lambda (#{labels 19493}# #{vars 19494}# #{r 19495}#) + (if (null? #{labels 19493}#) + #{r 19495}# + (#{extend-var-env 4336}# + (cdr #{labels 19493}#) + (cdr #{vars 19494}#) + (cons (cons (car #{labels 19493}#) + (cons 'lexical (car #{vars 19494}#))) + #{r 19495}#))))) + (#{macros-only-env 4337}# + (lambda (#{r 19496}#) + (if (null? #{r 19496}#) '() - (let ((#{a 19499}# (car #{r 19498}#))) - (if (eq? (car (cdr #{a 19499}#)) 'macro) - (cons #{a 19499}# - (#{macros-only-env 4339}# (cdr #{r 19498}#))) - (#{macros-only-env 4339}# (cdr #{r 19498}#))))))) - (#{global-extend 4341}# - (lambda (#{type 19501}# #{sym 19502}# #{val 19503}#) + (let ((#{a 19497}# (car #{r 19496}#))) + (if (eq? (car (cdr #{a 19497}#)) 'macro) + (cons #{a 19497}# + (#{macros-only-env 4337}# (cdr #{r 19496}#))) + (#{macros-only-env 4337}# (cdr #{r 19496}#))))))) + (#{global-extend 4339}# + (lambda (#{type 19499}# #{sym 19500}# #{val 19501}#) (module-define! (current-module) - #{sym 19502}# + #{sym 19500}# (make-syntax-transformer - #{sym 19502}# - #{type 19501}# - #{val 19503}#)))) - (#{id? 4343}# - (lambda (#{x 12438}#) - (if (symbol? #{x 12438}#) + #{sym 19500}# + #{type 19499}# + #{val 19501}#)))) + (#{id? 4341}# + (lambda (#{x 12436}#) + (if (symbol? #{x 12436}#) #t - (if (if (vector? #{x 12438}#) - (if (= (vector-length #{x 12438}#) 4) - (eq? (vector-ref #{x 12438}# 0) 'syntax-object) + (if (if (vector? #{x 12436}#) + (if (= (vector-length #{x 12436}#) 4) + (eq? (vector-ref #{x 12436}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12438}# 1)) + (symbol? (vector-ref #{x 12436}# 1)) #f)))) - (#{gen-labels 4346}# - (lambda (#{ls 19513}#) - (if (null? #{ls 19513}#) + (#{gen-labels 4344}# + (lambda (#{ls 19511}#) + (if (null? #{ls 19511}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 4346}# (cdr #{ls 19513}#)))))) - (#{make-binding-wrap 4357}# - (lambda (#{ids 19517}# #{labels 19518}# #{w 19519}#) - (if (null? #{ids 19517}#) - #{w 19519}# - (cons (car #{w 19519}#) - (cons (let ((#{labelvec 19520}# - (list->vector #{labels 19518}#))) - (let ((#{n 19521}# (vector-length #{labelvec 19520}#))) - (let ((#{symnamevec 19522}# (make-vector #{n 19521}#)) - (#{marksvec 19523}# (make-vector #{n 19521}#))) + (#{gen-labels 4344}# (cdr #{ls 19511}#)))))) + (#{make-binding-wrap 4355}# + (lambda (#{ids 19515}# #{labels 19516}# #{w 19517}#) + (if (null? #{ids 19515}#) + #{w 19517}# + (cons (car #{w 19517}#) + (cons (let ((#{labelvec 19518}# + (list->vector #{labels 19516}#))) + (let ((#{n 19519}# (vector-length #{labelvec 19518}#))) + (let ((#{symnamevec 19520}# (make-vector #{n 19519}#)) + (#{marksvec 19521}# (make-vector #{n 19519}#))) (begin (letrec* - ((#{f 19524}# - (lambda (#{ids 19723}# #{i 19724}#) - (if (not (null? #{ids 19723}#)) + ((#{f 19522}# + (lambda (#{ids 19721}# #{i 19722}#) + (if (not (null? #{ids 19721}#)) (call-with-values (lambda () - (let ((#{x 19727}# - (car #{ids 19723}#))) - (if (if (vector? #{x 19727}#) + (let ((#{x 19725}# + (car #{ids 19721}#))) + (if (if (vector? #{x 19725}#) (if (= (vector-length - #{x 19727}#) + #{x 19725}#) 4) (eq? (vector-ref - #{x 19727}# + #{x 19725}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 19727}# 1) - (let ((#{m1 19743}# - (car #{w 19519}#)) - (#{m2 19744}# + (vector-ref #{x 19725}# 1) + (let ((#{m1 19741}# + (car #{w 19517}#)) + (#{m2 19742}# (car (vector-ref - #{x 19727}# + #{x 19725}# 2)))) - (if (null? #{m2 19744}#) - #{m1 19743}# + (if (null? #{m2 19742}#) + #{m1 19741}# (append - #{m1 19743}# - #{m2 19744}#)))) + #{m1 19741}# + #{m2 19742}#)))) (values - #{x 19727}# - (car #{w 19519}#))))) - (lambda (#{symname 19764}# - #{marks 19765}#) + #{x 19725}# + (car #{w 19517}#))))) + (lambda (#{symname 19762}# + #{marks 19763}#) (begin (vector-set! - #{symnamevec 19522}# - #{i 19724}# - #{symname 19764}#) + #{symnamevec 19520}# + #{i 19722}# + #{symname 19762}#) (vector-set! - #{marksvec 19523}# - #{i 19724}# - #{marks 19765}#) - (#{f 19524}# - (cdr #{ids 19723}#) - (#{1+}# #{i 19724}#))))))))) - (#{f 19524}# #{ids 19517}# 0)) + #{marksvec 19521}# + #{i 19722}# + #{marks 19763}#) + (#{f 19522}# + (cdr #{ids 19721}#) + (#{1+}# #{i 19722}#))))))))) + (#{f 19522}# #{ids 19515}# 0)) (vector 'ribcage - #{symnamevec 19522}# - #{marksvec 19523}# - #{labelvec 19520}#))))) - (cdr #{w 19519}#)))))) - (#{same-marks? 4361}# - (lambda (#{x 36922}# #{y 36923}#) - (if (eq? #{x 36922}# #{y 36923}#) - (eq? #{x 36922}# #{y 36923}#) - (if (not (null? #{x 36922}#)) - (if (not (null? #{y 36923}#)) - (if (eq? (car #{x 36922}#) (car #{y 36923}#)) - (#{same-marks? 4361}# - (cdr #{x 36922}#) - (cdr #{y 36923}#)) + #{symnamevec 19520}# + #{marksvec 19521}# + #{labelvec 19518}#))))) + (cdr #{w 19517}#)))))) + (#{same-marks? 4359}# + (lambda (#{x 36919}# #{y 36920}#) + (if (eq? #{x 36919}# #{y 36920}#) + (eq? #{x 36919}# #{y 36920}#) + (if (not (null? #{x 36919}#)) + (if (not (null? #{y 36920}#)) + (if (eq? (car #{x 36919}#) (car #{y 36920}#)) + (#{same-marks? 4359}# + (cdr #{x 36919}#) + (cdr #{y 36920}#)) #f) #f) #f)))) - (#{id-var-name 4362}# - (lambda (#{id 19772}# #{w 19773}#) + (#{id-var-name 4360}# + (lambda (#{id 19770}# #{w 19771}#) (letrec* - ((#{search 19774}# - (lambda (#{sym 19835}# #{subst 19836}# #{marks 19837}#) - (if (null? #{subst 19836}#) - (values #f #{marks 19837}#) - (let ((#{fst 19838}# (car #{subst 19836}#))) - (if (eq? #{fst 19838}# 'shift) - (#{search 19774}# - #{sym 19835}# - (cdr #{subst 19836}#) - (cdr #{marks 19837}#)) - (let ((#{symnames 19840}# (vector-ref #{fst 19838}# 1))) - (if (vector? #{symnames 19840}#) - (#{search-vector-rib 19776}# - #{sym 19835}# - #{subst 19836}# - #{marks 19837}# - #{symnames 19840}# - #{fst 19838}#) - (#{search-list-rib 19775}# - #{sym 19835}# - #{subst 19836}# - #{marks 19837}# - #{symnames 19840}# - #{fst 19838}#)))))))) - (#{search-list-rib 19775}# - (lambda (#{sym 20010}# - #{subst 20011}# - #{marks 20012}# - #{symnames 20013}# - #{ribcage 20014}#) + ((#{search 19772}# + (lambda (#{sym 19833}# #{subst 19834}# #{marks 19835}#) + (if (null? #{subst 19834}#) + (values #f #{marks 19835}#) + (let ((#{fst 19836}# (car #{subst 19834}#))) + (if (eq? #{fst 19836}# 'shift) + (#{search 19772}# + #{sym 19833}# + (cdr #{subst 19834}#) + (cdr #{marks 19835}#)) + (let ((#{symnames 19838}# (vector-ref #{fst 19836}# 1))) + (if (vector? #{symnames 19838}#) + (#{search-vector-rib 19774}# + #{sym 19833}# + #{subst 19834}# + #{marks 19835}# + #{symnames 19838}# + #{fst 19836}#) + (#{search-list-rib 19773}# + #{sym 19833}# + #{subst 19834}# + #{marks 19835}# + #{symnames 19838}# + #{fst 19836}#)))))))) + (#{search-list-rib 19773}# + (lambda (#{sym 20008}# + #{subst 20009}# + #{marks 20010}# + #{symnames 20011}# + #{ribcage 20012}#) (letrec* - ((#{f 20015}# - (lambda (#{symnames 20018}# #{i 20019}#) - (if (null? #{symnames 20018}#) - (#{search 19774}# - #{sym 20010}# - (cdr #{subst 20011}#) - #{marks 20012}#) - (if (if (eq? (car #{symnames 20018}#) #{sym 20010}#) - (#{same-marks? 4361}# - #{marks 20012}# + ((#{f 20013}# + (lambda (#{symnames 20016}# #{i 20017}#) + (if (null? #{symnames 20016}#) + (#{search 19772}# + #{sym 20008}# + (cdr #{subst 20009}#) + #{marks 20010}#) + (if (if (eq? (car #{symnames 20016}#) #{sym 20008}#) + (#{same-marks? 4359}# + #{marks 20010}# (list-ref - (vector-ref #{ribcage 20014}# 2) - #{i 20019}#)) + (vector-ref #{ribcage 20012}# 2) + #{i 20017}#)) #f) (values (list-ref - (vector-ref #{ribcage 20014}# 3) - #{i 20019}#) - #{marks 20012}#) - (#{f 20015}# - (cdr #{symnames 20018}#) - (#{1+}# #{i 20019}#))))))) - (#{f 20015}# #{symnames 20013}# 0)))) - (#{search-vector-rib 19776}# - (lambda (#{sym 20169}# - #{subst 20170}# - #{marks 20171}# - #{symnames 20172}# - #{ribcage 20173}#) - (let ((#{n 20174}# (vector-length #{symnames 20172}#))) + (vector-ref #{ribcage 20012}# 3) + #{i 20017}#) + #{marks 20010}#) + (#{f 20013}# + (cdr #{symnames 20016}#) + (#{1+}# #{i 20017}#))))))) + (#{f 20013}# #{symnames 20011}# 0)))) + (#{search-vector-rib 19774}# + (lambda (#{sym 20167}# + #{subst 20168}# + #{marks 20169}# + #{symnames 20170}# + #{ribcage 20171}#) + (let ((#{n 20172}# (vector-length #{symnames 20170}#))) (letrec* - ((#{f 20175}# - (lambda (#{i 20232}#) - (if (= #{i 20232}# #{n 20174}#) - (#{search 19774}# - #{sym 20169}# - (cdr #{subst 20170}#) - #{marks 20171}#) + ((#{f 20173}# + (lambda (#{i 20230}#) + (if (= #{i 20230}# #{n 20172}#) + (#{search 19772}# + #{sym 20167}# + (cdr #{subst 20168}#) + #{marks 20169}#) (if (if (eq? (vector-ref - #{symnames 20172}# - #{i 20232}#) - #{sym 20169}#) - (#{same-marks? 4361}# - #{marks 20171}# + #{symnames 20170}# + #{i 20230}#) + #{sym 20167}#) + (#{same-marks? 4359}# + #{marks 20169}# (vector-ref - (vector-ref #{ribcage 20173}# 2) - #{i 20232}#)) + (vector-ref #{ribcage 20171}# 2) + #{i 20230}#)) #f) (values (vector-ref - (vector-ref #{ribcage 20173}# 3) - #{i 20232}#) - #{marks 20171}#) - (#{f 20175}# (#{1+}# #{i 20232}#))))))) - (#{f 20175}# 0)))))) - (if (symbol? #{id 19772}#) - (let ((#{t 19777}# - (#{search 19774}# - #{id 19772}# - (cdr #{w 19773}#) - (car #{w 19773}#)))) - (if #{t 19777}# #{t 19777}# #{id 19772}#)) - (if (if (vector? #{id 19772}#) - (if (= (vector-length #{id 19772}#) 4) - (eq? (vector-ref #{id 19772}# 0) 'syntax-object) + (vector-ref #{ribcage 20171}# 3) + #{i 20230}#) + #{marks 20169}#) + (#{f 20173}# (#{1+}# #{i 20230}#))))))) + (#{f 20173}# 0)))))) + (if (symbol? #{id 19770}#) + (let ((#{t 19775}# + (#{search 19772}# + #{id 19770}# + (cdr #{w 19771}#) + (car #{w 19771}#)))) + (if #{t 19775}# #{t 19775}# #{id 19770}#)) + (if (if (vector? #{id 19770}#) + (if (= (vector-length #{id 19770}#) 4) + (eq? (vector-ref #{id 19770}# 0) 'syntax-object) #f) #f) - (let ((#{id 19792}# (vector-ref #{id 19772}# 1)) - (#{w1 19793}# (vector-ref #{id 19772}# 2))) - (let ((#{marks 19794}# - (let ((#{m1 19804}# (car #{w 19773}#)) - (#{m2 19805}# (car #{w1 19793}#))) - (if (null? #{m2 19805}#) - #{m1 19804}# - (append #{m1 19804}# #{m2 19805}#))))) + (let ((#{id 19790}# (vector-ref #{id 19770}# 1)) + (#{w1 19791}# (vector-ref #{id 19770}# 2))) + (let ((#{marks 19792}# + (let ((#{m1 19802}# (car #{w 19771}#)) + (#{m2 19803}# (car #{w1 19791}#))) + (if (null? #{m2 19803}#) + #{m1 19802}# + (append #{m1 19802}# #{m2 19803}#))))) (call-with-values (lambda () - (#{search 19774}# - #{id 19792}# - (cdr #{w 19773}#) - #{marks 19794}#)) - (lambda (#{new-id 19821}# #{marks 19822}#) - (if #{new-id 19821}# - #{new-id 19821}# - (let ((#{t 19830}# - (#{search 19774}# - #{id 19792}# - (cdr #{w1 19793}#) - #{marks 19822}#))) - (if #{t 19830}# #{t 19830}# #{id 19792}#))))))) + (#{search 19772}# + #{id 19790}# + (cdr #{w 19771}#) + #{marks 19792}#)) + (lambda (#{new-id 19819}# #{marks 19820}#) + (if #{new-id 19819}# + #{new-id 19819}# + (let ((#{t 19828}# + (#{search 19772}# + #{id 19790}# + (cdr #{w1 19791}#) + #{marks 19820}#))) + (if #{t 19828}# #{t 19828}# #{id 19790}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 19772}#)))))) - (#{free-id=? 4363}# - (lambda (#{i 20382}# #{j 20383}#) - (let ((#{ni 20384}# - (#{id-var-name 4362}# #{i 20382}# '(()))) - (#{nj 20385}# - (#{id-var-name 4362}# #{j 20383}# '(())))) - (if (eq? #{ni 20384}# - (if (if (vector? #{i 20382}#) - (if (= (vector-length #{i 20382}#) 4) - (eq? (vector-ref #{i 20382}# 0) 'syntax-object) + #{id 19770}#)))))) + (#{free-id=? 4361}# + (lambda (#{i 20380}# #{j 20381}#) + (let ((#{ni 20382}# + (#{id-var-name 4360}# #{i 20380}# '(()))) + (#{nj 20383}# + (#{id-var-name 4360}# #{j 20381}# '(())))) + (if (eq? #{ni 20382}# + (if (if (vector? #{i 20380}#) + (if (= (vector-length #{i 20380}#) 4) + (eq? (vector-ref #{i 20380}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20382}# 1) - #{i 20382}#)) - (if (eq? #{nj 20385}# - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) 'syntax-object) + (vector-ref #{i 20380}# 1) + #{i 20380}#)) + (if (eq? #{nj 20383}# + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 1) - #{j 20383}#)) - (if (let ((#{bi 20443}# - (let ((#{mod 20712}# - (if (if (vector? #{i 20382}#) - (if (= (vector-length #{i 20382}#) 4) - (eq? (vector-ref #{i 20382}# 0) + (vector-ref #{j 20381}# 1) + #{j 20381}#)) + (if (let ((#{bi 20441}# + (let ((#{mod 20710}# + (if (if (vector? #{i 20380}#) + (if (= (vector-length #{i 20380}#) 4) + (eq? (vector-ref #{i 20380}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20382}# 3) + (vector-ref #{i 20380}# 3) #f))) (module-variable - (if #{mod 20712}# - (resolve-module (cdr #{mod 20712}#)) + (if #{mod 20710}# + (resolve-module (cdr #{mod 20710}#)) (current-module)) - (if (if (vector? #{i 20382}#) - (if (= (vector-length #{i 20382}#) 4) - (eq? (vector-ref #{i 20382}# 0) + (if (if (vector? #{i 20380}#) + (if (= (vector-length #{i 20380}#) 4) + (eq? (vector-ref #{i 20380}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20382}# 1) - #{i 20382}#))))) - (if #{bi 20443}# - (eq? #{bi 20443}# - (let ((#{mod 20556}# - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) + (vector-ref #{i 20380}# 1) + #{i 20380}#))))) + (if #{bi 20441}# + (eq? #{bi 20441}# + (let ((#{mod 20554}# + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 3) + (vector-ref #{j 20381}# 3) #f))) (module-variable - (if #{mod 20556}# - (resolve-module (cdr #{mod 20556}#)) + (if #{mod 20554}# + (resolve-module (cdr #{mod 20554}#)) (current-module)) - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 1) - #{j 20383}#)))) - (if (not (let ((#{mod 20634}# - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) + (vector-ref #{j 20381}# 1) + #{j 20381}#)))) + (if (not (let ((#{mod 20632}# + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) - (eq? (vector-ref #{j 20383}# 0) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 3) + (vector-ref #{j 20381}# 3) #f))) (module-variable - (if #{mod 20634}# - (resolve-module (cdr #{mod 20634}#)) + (if #{mod 20632}# + (resolve-module (cdr #{mod 20632}#)) (current-module)) - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 1) - #{j 20383}#)))) - (eq? #{ni 20384}# #{nj 20385}#) + (vector-ref #{j 20381}# 1) + #{j 20381}#)))) + (eq? #{ni 20382}# #{nj 20383}#) #f))) - (eq? (let ((#{mod 20790}# - (if (if (vector? #{i 20382}#) - (if (= (vector-length #{i 20382}#) 4) - (eq? (vector-ref #{i 20382}# 0) + (eq? (let ((#{mod 20788}# + (if (if (vector? #{i 20380}#) + (if (= (vector-length #{i 20380}#) 4) + (eq? (vector-ref #{i 20380}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20382}# 3) + (vector-ref #{i 20380}# 3) #f))) (module-variable - (if #{mod 20790}# - (resolve-module (cdr #{mod 20790}#)) + (if #{mod 20788}# + (resolve-module (cdr #{mod 20788}#)) (current-module)) - (if (if (vector? #{i 20382}#) - (if (= (vector-length #{i 20382}#) 4) - (eq? (vector-ref #{i 20382}# 0) 'syntax-object) + (if (if (vector? #{i 20380}#) + (if (= (vector-length #{i 20380}#) 4) + (eq? (vector-ref #{i 20380}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20382}# 1) - #{i 20382}#))) - (let ((#{mod 20868}# - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) + (vector-ref #{i 20380}# 1) + #{i 20380}#))) + (let ((#{mod 20866}# + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 3) + (vector-ref #{j 20381}# 3) #f))) (module-variable - (if #{mod 20868}# - (resolve-module (cdr #{mod 20868}#)) + (if #{mod 20866}# + (resolve-module (cdr #{mod 20866}#)) (current-module)) - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) 'syntax-object) + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 1) - #{j 20383}#)))) + (vector-ref #{j 20381}# 1) + #{j 20381}#)))) #f) #f) - (if (eq? #{ni 20384}# #{nj 20385}#) - (not (eq? #{nj 20385}# - (if (if (vector? #{j 20383}#) - (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20383}# 0) 'syntax-object) + (if (eq? #{ni 20382}# #{nj 20383}#) + (not (eq? #{nj 20383}# + (if (if (vector? #{j 20381}#) + (if (= (vector-length #{j 20381}#) 4) + (eq? (vector-ref #{j 20381}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20383}# 1) - #{j 20383}#))) + (vector-ref #{j 20381}# 1) + #{j 20381}#))) #f))))) - (#{bound-id=? 4364}# - (lambda (#{i 20968}# #{j 20969}#) - (if (if (if (vector? #{i 20968}#) - (if (= (vector-length #{i 20968}#) 4) - (eq? (vector-ref #{i 20968}# 0) 'syntax-object) + (#{bound-id=? 4362}# + (lambda (#{i 20966}# #{j 20967}#) + (if (if (if (vector? #{i 20966}#) + (if (= (vector-length #{i 20966}#) 4) + (eq? (vector-ref #{i 20966}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 20969}#) - (if (= (vector-length #{j 20969}#) 4) - (eq? (vector-ref #{j 20969}# 0) 'syntax-object) + (if (vector? #{j 20967}#) + (if (= (vector-length #{j 20967}#) 4) + (eq? (vector-ref #{j 20967}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{i 20968}# 1) - (vector-ref #{j 20969}# 1)) - (#{same-marks? 4361}# - (car (vector-ref #{i 20968}# 2)) - (car (vector-ref #{j 20969}# 2))) + (if (eq? (vector-ref #{i 20966}# 1) + (vector-ref #{j 20967}# 1)) + (#{same-marks? 4359}# + (car (vector-ref #{i 20966}# 2)) + (car (vector-ref #{j 20967}# 2))) #f) - (eq? #{i 20968}# #{j 20969}#)))) - (#{valid-bound-ids? 4365}# - (lambda (#{ids 21138}#) + (eq? #{i 20966}# #{j 20967}#)))) + (#{valid-bound-ids? 4363}# + (lambda (#{ids 21136}#) (if (letrec* - ((#{all-ids? 21139}# - (lambda (#{ids 21336}#) - (if (null? #{ids 21336}#) - (null? #{ids 21336}#) - (if (let ((#{x 21347}# (car #{ids 21336}#))) - (if (symbol? #{x 21347}#) + ((#{all-ids? 21137}# + (lambda (#{ids 21334}#) + (if (null? #{ids 21334}#) + (null? #{ids 21334}#) + (if (let ((#{x 21345}# (car #{ids 21334}#))) + (if (symbol? #{x 21345}#) #t - (if (if (vector? #{x 21347}#) - (if (= (vector-length #{x 21347}#) 4) - (eq? (vector-ref #{x 21347}# 0) + (if (if (vector? #{x 21345}#) + (if (= (vector-length #{x 21345}#) 4) + (eq? (vector-ref #{x 21345}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 21347}# 1)) + (symbol? (vector-ref #{x 21345}# 1)) #f))) - (#{all-ids? 21139}# (cdr #{ids 21336}#)) + (#{all-ids? 21137}# (cdr #{ids 21334}#)) #f))))) - (#{all-ids? 21139}# #{ids 21138}#)) - (#{distinct-bound-ids? 4366}# #{ids 21138}#) + (#{all-ids? 21137}# #{ids 21136}#)) + (#{distinct-bound-ids? 4364}# #{ids 21136}#) #f))) - (#{distinct-bound-ids? 4366}# - (lambda (#{ids 21468}#) + (#{distinct-bound-ids? 4364}# + (lambda (#{ids 21466}#) (letrec* - ((#{distinct? 21469}# - (lambda (#{ids 21574}#) - (if (null? #{ids 21574}#) - (null? #{ids 21574}#) - (if (not (#{bound-id-member? 4367}# - (car #{ids 21574}#) - (cdr #{ids 21574}#))) - (#{distinct? 21469}# (cdr #{ids 21574}#)) + ((#{distinct? 21467}# + (lambda (#{ids 21572}#) + (if (null? #{ids 21572}#) + (null? #{ids 21572}#) + (if (not (#{bound-id-member? 4365}# + (car #{ids 21572}#) + (cdr #{ids 21572}#))) + (#{distinct? 21467}# (cdr #{ids 21572}#)) #f))))) - (#{distinct? 21469}# #{ids 21468}#)))) - (#{bound-id-member? 4367}# - (lambda (#{x 21670}# #{list 21671}#) - (if (not (null? #{list 21671}#)) - (let ((#{t 21672}# - (#{bound-id=? 4364}# - #{x 21670}# - (car #{list 21671}#)))) - (if #{t 21672}# - #{t 21672}# - (#{bound-id-member? 4367}# - #{x 21670}# - (cdr #{list 21671}#)))) + (#{distinct? 21467}# #{ids 21466}#)))) + (#{bound-id-member? 4365}# + (lambda (#{x 21668}# #{list 21669}#) + (if (not (null? #{list 21669}#)) + (let ((#{t 21670}# + (#{bound-id=? 4362}# + #{x 21668}# + (car #{list 21669}#)))) + (if #{t 21670}# + #{t 21670}# + (#{bound-id-member? 4365}# + #{x 21668}# + (cdr #{list 21669}#)))) #f))) - (#{source-wrap 4369}# - (lambda (#{x 21850}# - #{w 21851}# - #{s 21852}# - #{defmod 21853}#) - (let ((#{x 21857}# + (#{source-wrap 4367}# + (lambda (#{x 21848}# + #{w 21849}# + #{s 21850}# + #{defmod 21851}#) + (let ((#{x 21855}# (begin - (if (if (pair? #{x 21850}#) #{s 21852}# #f) - (set-source-properties! #{x 21850}# #{s 21852}#)) - #{x 21850}#))) - (if (if (null? (car #{w 21851}#)) - (null? (cdr #{w 21851}#)) + (if (if (pair? #{x 21848}#) #{s 21850}# #f) + (set-source-properties! #{x 21848}# #{s 21850}#)) + #{x 21848}#))) + (if (if (null? (car #{w 21849}#)) + (null? (cdr #{w 21849}#)) #f) - #{x 21857}# - (if (if (vector? #{x 21857}#) - (if (= (vector-length #{x 21857}#) 4) - (eq? (vector-ref #{x 21857}# 0) 'syntax-object) + #{x 21855}# + (if (if (vector? #{x 21855}#) + (if (= (vector-length #{x 21855}#) 4) + (eq? (vector-ref #{x 21855}# 0) 'syntax-object) #f) #f) - (let ((#{expression 21889}# (vector-ref #{x 21857}# 1)) - (#{wrap 21890}# - (let ((#{w2 21898}# (vector-ref #{x 21857}# 2))) - (let ((#{m1 21899}# (car #{w 21851}#)) - (#{s1 21900}# (cdr #{w 21851}#))) - (if (null? #{m1 21899}#) - (if (null? #{s1 21900}#) - #{w2 21898}# - (cons (car #{w2 21898}#) - (let ((#{m2 21915}# (cdr #{w2 21898}#))) - (if (null? #{m2 21915}#) - #{s1 21900}# - (append #{s1 21900}# #{m2 21915}#))))) - (cons (let ((#{m2 21923}# (car #{w2 21898}#))) - (if (null? #{m2 21923}#) - #{m1 21899}# - (append #{m1 21899}# #{m2 21923}#))) - (let ((#{m2 21931}# (cdr #{w2 21898}#))) - (if (null? #{m2 21931}#) - #{s1 21900}# - (append #{s1 21900}# #{m2 21931}#)))))))) - (#{module 21891}# (vector-ref #{x 21857}# 3))) + (let ((#{expression 21887}# (vector-ref #{x 21855}# 1)) + (#{wrap 21888}# + (let ((#{w2 21896}# (vector-ref #{x 21855}# 2))) + (let ((#{m1 21897}# (car #{w 21849}#)) + (#{s1 21898}# (cdr #{w 21849}#))) + (if (null? #{m1 21897}#) + (if (null? #{s1 21898}#) + #{w2 21896}# + (cons (car #{w2 21896}#) + (let ((#{m2 21913}# (cdr #{w2 21896}#))) + (if (null? #{m2 21913}#) + #{s1 21898}# + (append #{s1 21898}# #{m2 21913}#))))) + (cons (let ((#{m2 21921}# (car #{w2 21896}#))) + (if (null? #{m2 21921}#) + #{m1 21897}# + (append #{m1 21897}# #{m2 21921}#))) + (let ((#{m2 21929}# (cdr #{w2 21896}#))) + (if (null? #{m2 21929}#) + #{s1 21898}# + (append #{s1 21898}# #{m2 21929}#)))))))) + (#{module 21889}# (vector-ref #{x 21855}# 3))) (vector 'syntax-object - #{expression 21889}# - #{wrap 21890}# - #{module 21891}#)) - (if (null? #{x 21857}#) - #{x 21857}# + #{expression 21887}# + #{wrap 21888}# + #{module 21889}#)) + (if (null? #{x 21855}#) + #{x 21855}# (vector 'syntax-object - #{x 21857}# - #{w 21851}# - #{defmod 21853}#))))))) - (#{chi-sequence 4370}# - (lambda (#{body 36931}# - #{r 36932}# - #{w 36933}# - #{s 36934}# - #{mod 36935}#) - (#{build-sequence 4324}# - #{s 36934}# + #{x 21855}# + #{w 21849}# + #{defmod 21851}#))))))) + (#{chi-sequence 4368}# + (lambda (#{body 36928}# + #{r 36929}# + #{w 36930}# + #{s 36931}# + #{mod 36932}#) + (#{build-sequence 4322}# + #{s 36931}# (letrec* - ((#{dobody 37027}# - (lambda (#{body 37114}# - #{r 37115}# - #{w 37116}# - #{mod 37117}#) - (if (null? #{body 37114}#) + ((#{dobody 37024}# + (lambda (#{body 37111}# + #{r 37112}# + #{w 37113}# + #{mod 37114}#) + (if (null? #{body 37111}#) '() - (let ((#{first 37118}# - (#{chi 4375}# - (car #{body 37114}#) - #{r 37115}# - #{w 37116}# - #{mod 37117}#))) - (cons #{first 37118}# - (#{dobody 37027}# - (cdr #{body 37114}#) - #{r 37115}# - #{w 37116}# - #{mod 37117}#))))))) - (#{dobody 37027}# - #{body 36931}# - #{r 36932}# - #{w 36933}# - #{mod 36935}#))))) - (#{chi-top-sequence 4371}# - (lambda (#{body 21946}# - #{r 21947}# - #{w 21948}# - #{s 21949}# - #{m 21950}# - #{esew 21951}# - #{mod 21952}#) + (let ((#{first 37115}# + (#{chi 4373}# + (car #{body 37111}#) + #{r 37112}# + #{w 37113}# + #{mod 37114}#))) + (cons #{first 37115}# + (#{dobody 37024}# + (cdr #{body 37111}#) + #{r 37112}# + #{w 37113}# + #{mod 37114}#))))))) + (#{dobody 37024}# + #{body 36928}# + #{r 36929}# + #{w 36930}# + #{mod 36932}#))))) + (#{chi-top-sequence 4369}# + (lambda (#{body 21944}# + #{r 21945}# + #{w 21946}# + #{s 21947}# + #{m 21948}# + #{esew 21949}# + #{mod 21950}#) (letrec* - ((#{scan 21953}# - (lambda (#{body 22100}# - #{r 22101}# - #{w 22102}# - #{s 22103}# - #{m 22104}# - #{esew 22105}# - #{mod 22106}# - #{exps 22107}#) - (if (null? #{body 22100}#) - #{exps 22107}# - (call-with-values - (lambda () - (call-with-values - (lambda () - (let ((#{e 22108}# (car #{body 22100}#))) - (#{syntax-type 4374}# - #{e 22108}# - #{r 22101}# - #{w 22102}# - (let ((#{t 22112}# - (#{source-annotation 4336}# #{e 22108}#))) - (if #{t 22112}# #{t 22112}# #{s 22103}#)) - #f - #{mod 22106}# - #f))) - (lambda (#{type 22410}# - #{value 22411}# - #{e 22412}# - #{w 22413}# - #{s 22414}# - #{mod 22415}#) - (if (eqv? #{type 22410}# 'begin-form) - (let ((#{tmp 22420}# - ($sc-dispatch #{e 22412}# '(_)))) - (if #{tmp 22420}# - (@apply (lambda () #{exps 22107}#) #{tmp 22420}#) - (let ((#{tmp 22424}# - ($sc-dispatch - #{e 22412}# - '(_ any . each-any)))) - (if #{tmp 22424}# - (@apply - (lambda (#{e1 22428}# #{e2 22429}#) - (#{scan 21953}# - (cons #{e1 22428}# #{e2 22429}#) - #{r 22101}# - #{w 22413}# - #{s 22414}# - #{m 22104}# - #{esew 22105}# - #{mod 22415}# - #{exps 22107}#)) - #{tmp 22424}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 22412}#))))) - (if (eqv? #{type 22410}# 'local-syntax-form) - (#{chi-local-syntax 4380}# - #{value 22411}# - #{e 22412}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - #{mod 22415}# - (lambda (#{body 22444}# - #{r 22445}# - #{w 22446}# - #{s 22447}# - #{mod 22448}#) - (#{scan 21953}# - #{body 22444}# - #{r 22445}# - #{w 22446}# - #{s 22447}# - #{m 22104}# - #{esew 22105}# - #{mod 22448}# - #{exps 22107}#))) - (if (eqv? #{type 22410}# 'eval-when-form) - (let ((#{tmp 22453}# - ($sc-dispatch - #{e 22412}# - '(_ each-any any . each-any)))) - (if #{tmp 22453}# - (@apply - (lambda (#{x 22457}# - #{e1 22458}# - #{e2 22459}#) - (let ((#{when-list 22460}# - (#{chi-when-list 4373}# - #{e 22412}# - #{x 22457}# - #{w 22413}#)) - (#{body 22461}# - (cons #{e1 22458}# - #{e2 22459}#))) - (if (eq? #{m 22104}# 'e) - (if (memq 'eval #{when-list 22460}#) - (#{scan 21953}# - #{body 22461}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - (if (memq 'expand - #{when-list 22460}#) - 'c&e - 'e) - '(eval) - #{mod 22415}# - #{exps 22107}#) - (begin - (if (memq 'expand - #{when-list 22460}#) - (let ((#{x 22468}# - (#{chi-top-sequence 4371}# - #{body 22461}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - 'e - '(eval) - #{mod 22415}#))) - (primitive-eval - #{x 22468}#))) - (values #{exps 22107}#))) - (if (memq 'load #{when-list 22460}#) - (if (let ((#{t 22470}# - (memq 'compile - #{when-list 22460}#))) - (if #{t 22470}# - #{t 22470}# - (let ((#{t 22472}# - (memq 'expand - #{when-list 22460}#))) - (if #{t 22472}# - #{t 22472}# - (if (eq? #{m 22104}# - 'c&e) - (memq 'eval - #{when-list 22460}#) - #f))))) - (#{scan 21953}# - #{body 22461}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - 'c&e - '(compile load) - #{mod 22415}# - #{exps 22107}#) - (if (if (eq? #{m 22104}# 'c) - #t - (eq? #{m 22104}# 'c&e)) - (#{scan 21953}# - #{body 22461}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - 'c - '(load) - #{mod 22415}# - #{exps 22107}#) - (values #{exps 22107}#))) - (if (let ((#{t 22482}# - (memq 'compile - #{when-list 22460}#))) - (if #{t 22482}# - #{t 22482}# - (let ((#{t 22484}# - (memq 'expand - #{when-list 22460}#))) - (if #{t 22484}# - #{t 22484}# - (if (eq? #{m 22104}# - 'c&e) - (memq 'eval - #{when-list 22460}#) - #f))))) - (begin - (let ((#{x 22489}# - (#{chi-top-sequence 4371}# - #{body 22461}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - 'e - '(eval) - #{mod 22415}#))) - (primitive-eval #{x 22489}#)) - (values #{exps 22107}#)) - (values #{exps 22107}#)))))) - #{tmp 22453}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 22412}#))) - (if (eqv? #{type 22410}# 'define-syntax-form) - (let ((#{n 22500}# - (#{id-var-name 4362}# - #{value 22411}# - #{w 22413}#)) - (#{r 22501}# - (#{macros-only-env 4339}# - #{r 22101}#))) - (if (eqv? #{m 22104}# 'c) - (if (memq 'compile #{esew 22105}#) - (let ((#{e 22505}# - (#{chi-install-global 4372}# - #{n 22500}# - (#{chi 4375}# - #{e 22412}# - #{r 22501}# - #{w 22413}# - #{mod 22415}#)))) - (begin - (#{top-level-eval-hook 4302}# - #{e 22505}# - #{mod 22415}#) - (if (memq 'load #{esew 22105}#) - (values - (cons #{e 22505}# - #{exps 22107}#)) - (values #{exps 22107}#)))) - (if (memq 'load #{esew 22105}#) - (values - (cons (#{chi-install-global 4372}# - #{n 22500}# - (#{chi 4375}# - #{e 22412}# - #{r 22501}# - #{w 22413}# - #{mod 22415}#)) - #{exps 22107}#)) - (values #{exps 22107}#))) - (if (eqv? #{m 22104}# 'c&e) - (let ((#{e 22951}# - (#{chi-install-global 4372}# - #{n 22500}# - (#{chi 4375}# - #{e 22412}# - #{r 22501}# - #{w 22413}# - #{mod 22415}#)))) - (begin - (#{top-level-eval-hook 4302}# - #{e 22951}# - #{mod 22415}#) - (values - (cons #{e 22951}# - #{exps 22107}#)))) - (begin - (if (memq 'eval #{esew 22105}#) - (#{top-level-eval-hook 4302}# - (#{chi-install-global 4372}# - #{n 22500}# - (#{chi 4375}# - #{e 22412}# - #{r 22501}# - #{w 22413}# - #{mod 22415}#)) - #{mod 22415}#)) - (values #{exps 22107}#))))) - (if (eqv? #{type 22410}# 'define-form) - (let ((#{n 23601}# - (#{id-var-name 4362}# - #{value 22411}# - #{w 22413}#))) - (let ((#{type 23602}# - (car (let ((#{t 24604}# - (assq #{n 23601}# - #{r 22101}#))) - (if #{t 24604}# - (cdr #{t 24604}#) - (if (symbol? #{n 23601}#) - (let ((#{t 24609}# - (begin - (if (if (not #{mod 22415}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{n 23601}#)) - (let ((#{v 24646}# - (module-variable - (if #{mod 22415}# - (resolve-module - (cdr #{mod 22415}#)) - (current-module)) - #{n 23601}#))) - (if #{v 24646}# - (if (variable-bound? - #{v 24646}#) - (let ((#{val 24655}# - (variable-ref - #{v 24646}#))) - (if (macro? - #{val 24655}#) - (if (macro-type - #{val 24655}#) - (cons (macro-type - #{val 24655}#) - (macro-binding - #{val 24655}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 24609}# - #{t 24609}# - '(global))) - '(displaced-lexical))))))) - (if (let ((#{t 23636}# #{type 23602}#)) - (if (eqv? #{t 23636}# 'global) - #t - (if (eqv? #{t 23636}# 'core) - #t - (if (eqv? #{t 23636}# 'macro) + ((#{scan 21951}# + (lambda (#{body 22098}# + #{r 22099}# + #{w 22100}# + #{s 22101}# + #{m 22102}# + #{esew 22103}# + #{mod 22104}# + #{exps 22105}#) + (if (null? #{body 22098}#) + #{exps 22105}# + (#{scan 21951}# + (cdr #{body 22098}#) + #{r 22099}# + #{w 22100}# + #{s 22101}# + #{m 22102}# + #{esew 22103}# + #{mod 22104}# + (call-with-values + (lambda () + (let ((#{e 22106}# (car #{body 22098}#))) + (#{syntax-type 4372}# + #{e 22106}# + #{r 22099}# + #{w 22100}# + (let ((#{t 22110}# + (#{source-annotation 4334}# #{e 22106}#))) + (if #{t 22110}# #{t 22110}# #{s 22101}#)) + #f + #{mod 22104}# + #f))) + (lambda (#{type 22408}# + #{value 22409}# + #{e 22410}# + #{w 22411}# + #{s 22412}# + #{mod 22413}#) + (if (eqv? #{type 22408}# 'begin-form) + (let ((#{tmp 22418}# ($sc-dispatch #{e 22410}# '(_)))) + (if #{tmp 22418}# + (@apply (lambda () #{exps 22105}#) #{tmp 22418}#) + (let ((#{tmp 22422}# + ($sc-dispatch + #{e 22410}# + '(_ any . each-any)))) + (if #{tmp 22422}# + (@apply + (lambda (#{e1 22426}# #{e2 22427}#) + (#{scan 21951}# + (cons #{e1 22426}# #{e2 22427}#) + #{r 22099}# + #{w 22411}# + #{s 22412}# + #{m 22102}# + #{esew 22103}# + #{mod 22413}# + #{exps 22105}#)) + #{tmp 22422}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 22410}#))))) + (if (eqv? #{type 22408}# 'local-syntax-form) + (#{chi-local-syntax 4378}# + #{value 22409}# + #{e 22410}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + #{mod 22413}# + (lambda (#{body 22442}# + #{r 22443}# + #{w 22444}# + #{s 22445}# + #{mod 22446}#) + (#{scan 21951}# + #{body 22442}# + #{r 22443}# + #{w 22444}# + #{s 22445}# + #{m 22102}# + #{esew 22103}# + #{mod 22446}# + #{exps 22105}#))) + (if (eqv? #{type 22408}# 'eval-when-form) + (let ((#{tmp 22451}# + ($sc-dispatch + #{e 22410}# + '(_ each-any any . each-any)))) + (if #{tmp 22451}# + (@apply + (lambda (#{x 22455}# + #{e1 22456}# + #{e2 22457}#) + (let ((#{when-list 22458}# + (#{chi-when-list 4371}# + #{e 22410}# + #{x 22455}# + #{w 22411}#)) + (#{body 22459}# + (cons #{e1 22456}# #{e2 22457}#))) + (if (eq? #{m 22102}# 'e) + (if (memq 'eval #{when-list 22458}#) + (#{scan 21951}# + #{body 22459}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + (if (memq 'expand + #{when-list 22458}#) + 'c&e + 'e) + '(eval) + #{mod 22413}# + #{exps 22105}#) + (begin + (if (memq 'expand + #{when-list 22458}#) + (let ((#{x 22466}# + (#{chi-top-sequence 4369}# + #{body 22459}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + 'e + '(eval) + #{mod 22413}#))) + (primitive-eval #{x 22466}#))) + #{exps 22105}#)) + (if (memq 'load #{when-list 22458}#) + (if (let ((#{t 22468}# + (memq 'compile + #{when-list 22458}#))) + (if #{t 22468}# + #{t 22468}# + (let ((#{t 22470}# + (memq 'expand + #{when-list 22458}#))) + (if #{t 22470}# + #{t 22470}# + (if (eq? #{m 22102}# + 'c&e) + (memq 'eval + #{when-list 22458}#) + #f))))) + (#{scan 21951}# + #{body 22459}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + 'c&e + '(compile load) + #{mod 22413}# + #{exps 22105}#) + (if (if (eq? #{m 22102}# 'c) #t - (eqv? #{t 23636}# - 'module-ref))))) - (begin - (if (if (if (eq? #{m 22104}# 'c) - #t - (eq? #{m 22104}# 'c&e)) - (if (not (module-local-variable - (current-module) - #{n 23601}#)) - (current-module) - #f) + (eq? #{m 22102}# 'c&e)) + (#{scan 21951}# + #{body 22459}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + 'c + '(load) + #{mod 22413}# + #{exps 22105}#) + #{exps 22105}#)) + (if (let ((#{t 22480}# + (memq 'compile + #{when-list 22458}#))) + (if #{t 22480}# + #{t 22480}# + (let ((#{t 22482}# + (memq 'expand + #{when-list 22458}#))) + (if #{t 22482}# + #{t 22482}# + (if (eq? #{m 22102}# + 'c&e) + (memq 'eval + #{when-list 22458}#) + #f))))) + (begin + (let ((#{x 22487}# + (#{chi-top-sequence 4369}# + #{body 22459}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + 'e + '(eval) + #{mod 22413}#))) + (primitive-eval #{x 22487}#)) + #{exps 22105}#) + #{exps 22105}#))))) + #{tmp 22451}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 22410}#))) + (if (eqv? #{type 22408}# 'define-syntax-form) + (let ((#{n 22498}# + (#{id-var-name 4360}# + #{value 22409}# + #{w 22411}#)) + (#{r 22499}# + (#{macros-only-env 4337}# #{r 22099}#))) + (if (eqv? #{m 22102}# 'c) + (if (memq 'compile #{esew 22103}#) + (let ((#{e 22503}# + (#{chi-install-global 4370}# + #{n 22498}# + (#{chi 4373}# + #{e 22410}# + #{r 22499}# + #{w 22411}# + #{mod 22413}#)))) + (begin + (#{top-level-eval-hook 4300}# + #{e 22503}# + #{mod 22413}#) + (if (memq 'load #{esew 22103}#) + (cons #{e 22503}# #{exps 22105}#) + #{exps 22105}#))) + (if (memq 'load #{esew 22103}#) + (cons (#{chi-install-global 4370}# + #{n 22498}# + (#{chi 4373}# + #{e 22410}# + #{r 22499}# + #{w 22411}# + #{mod 22413}#)) + #{exps 22105}#) + #{exps 22105}#)) + (if (eqv? #{m 22102}# 'c&e) + (let ((#{e 22949}# + (#{chi-install-global 4370}# + #{n 22498}# + (#{chi 4373}# + #{e 22410}# + #{r 22499}# + #{w 22411}# + #{mod 22413}#)))) + (begin + (#{top-level-eval-hook 4300}# + #{e 22949}# + #{mod 22413}#) + (cons #{e 22949}# #{exps 22105}#))) + (begin + (if (memq 'eval #{esew 22103}#) + (#{top-level-eval-hook 4300}# + (#{chi-install-global 4370}# + #{n 22498}# + (#{chi 4373}# + #{e 22410}# + #{r 22499}# + #{w 22411}# + #{mod 22413}#)) + #{mod 22413}#)) + #{exps 22105}#)))) + (if (eqv? #{type 22408}# 'define-form) + (let ((#{n 23599}# + (#{id-var-name 4360}# + #{value 22409}# + #{w 22411}#))) + (let ((#{type 23600}# + (car (let ((#{t 24602}# + (assq #{n 23599}# + #{r 22099}#))) + (if #{t 24602}# + (cdr #{t 24602}#) + (if (symbol? #{n 23599}#) + (let ((#{t 24607}# + (begin + (if (if (not #{mod 22413}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{n 23599}#)) + (let ((#{v 24644}# + (module-variable + (if #{mod 22413}# + (resolve-module + (cdr #{mod 22413}#)) + (current-module)) + #{n 23599}#))) + (if #{v 24644}# + (if (variable-bound? + #{v 24644}#) + (let ((#{val 24653}# + (variable-ref + #{v 24644}#))) + (if (macro? + #{val 24653}#) + (if (macro-type + #{val 24653}#) + (cons (macro-type + #{val 24653}#) + (macro-binding + #{val 24653}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 24607}# + #{t 24607}# + '(global))) + '(displaced-lexical))))))) + (if (let ((#{t 23634}# #{type 23600}#)) + (if (eqv? #{t 23634}# 'global) + #t + (if (eqv? #{t 23634}# 'core) + #t + (if (eqv? #{t 23634}# 'macro) + #t + (eqv? #{t 23634}# + 'module-ref))))) + (begin + (if (if (if (eq? #{m 22102}# 'c) + #t + (eq? #{m 22102}# 'c&e)) + (if (not (module-local-variable + (current-module) + #{n 23599}#)) + (current-module) #f) - (let ((#{old 23800}# - (module-variable - (current-module) - #{n 23601}#))) - (if (if (variable? #{old 23800}#) - (variable-bound? - #{old 23800}#) - #f) - (module-define! - (current-module) - #{n 23601}# - (variable-ref #{old 23800}#)) - (module-add! - (current-module) - #{n 23601}# - (make-undefined-variable))))) - (values - (cons (if (eq? #{m 22104}# 'c&e) - (let ((#{x 23802}# - (#{build-global-definition 4317}# - #{s 22414}# - #{n 23601}# - (#{chi 4375}# - #{e 22412}# - #{r 22101}# - #{w 22413}# - #{mod 22415}#)))) - (begin - (#{top-level-eval-hook 4302}# - #{x 23802}# - #{mod 22415}#) - #{x 23802}#)) - (lambda () - (#{build-global-definition 4317}# - #{s 22414}# - #{n 23601}# - (#{chi 4375}# - #{e 22412}# - #{r 22101}# - #{w 22413}# - #{mod 22415}#)))) - #{exps 22107}#))) - (if (let ((#{t 24339}# #{type 23602}#)) - (eqv? #{t 24339}# - 'displaced-lexical)) - (syntax-violation - #f - "identifier out of context" - #{e 22412}# - (if (if (null? (car #{w 22413}#)) - (null? (cdr #{w 22413}#)) + #f) + (let ((#{old 23798}# + (module-variable + (current-module) + #{n 23599}#))) + (if (if (variable? #{old 23798}#) + (variable-bound? + #{old 23798}#) #f) - #{value 22411}# - (if (if (vector? #{value 22411}#) - (if (= (vector-length - #{value 22411}#) - 4) - (eq? (vector-ref - #{value 22411}# - 0) - 'syntax-object) - #f) + (module-define! + (current-module) + #{n 23599}# + (variable-ref #{old 23798}#)) + (module-add! + (current-module) + #{n 23599}# + (make-undefined-variable))))) + (cons (if (eq? #{m 22102}# 'c&e) + (let ((#{x 23800}# + (#{build-global-definition 4315}# + #{s 22412}# + #{n 23599}# + (#{chi 4373}# + #{e 22410}# + #{r 22099}# + #{w 22411}# + #{mod 22413}#)))) + (begin + (#{top-level-eval-hook 4300}# + #{x 23800}# + #{mod 22413}#) + #{x 23800}#)) + (lambda () + (#{build-global-definition 4315}# + #{s 22412}# + #{n 23599}# + (#{chi 4373}# + #{e 22410}# + #{r 22099}# + #{w 22411}# + #{mod 22413}#)))) + #{exps 22105}#)) + (if (let ((#{t 24337}# #{type 23600}#)) + (eqv? #{t 24337}# + 'displaced-lexical)) + (syntax-violation + #f + "identifier out of context" + #{e 22410}# + (if (if (null? (car #{w 22411}#)) + (null? (cdr #{w 22411}#)) + #f) + #{value 22409}# + (if (if (vector? #{value 22409}#) + (if (= (vector-length + #{value 22409}#) + 4) + (eq? (vector-ref + #{value 22409}# + 0) + 'syntax-object) #f) - (let ((#{expression 24431}# - (vector-ref - #{value 22411}# - 1)) - (#{wrap 24432}# - (let ((#{w2 24442}# - (vector-ref - #{value 22411}# - 2))) - (let ((#{m1 24443}# - (car #{w 22413}#)) - (#{s1 24444}# - (cdr #{w 22413}#))) - (if (null? #{m1 24443}#) - (if (null? #{s1 24444}#) - #{w2 24442}# - (cons (car #{w2 24442}#) - (let ((#{m2 24461}# - (cdr #{w2 24442}#))) - (if (null? #{m2 24461}#) - #{s1 24444}# - (append - #{s1 24444}# - #{m2 24461}#))))) - (cons (let ((#{m2 24469}# - (car #{w2 24442}#))) - (if (null? #{m2 24469}#) - #{m1 24443}# - (append - #{m1 24443}# - #{m2 24469}#))) - (let ((#{m2 24477}# - (cdr #{w2 24442}#))) - (if (null? #{m2 24477}#) - #{s1 24444}# - (append - #{s1 24444}# - #{m2 24477}#)))))))) - (#{module 24433}# - (vector-ref - #{value 22411}# - 3))) - (vector - 'syntax-object - #{expression 24431}# - #{wrap 24432}# - #{module 24433}#)) - (if (null? #{value 22411}#) - #{value 22411}# - (vector - 'syntax-object - #{value 22411}# - #{w 22413}# - #{mod 22415}#))))) - (syntax-violation - #f - "cannot define keyword at top level" - #{e 22412}# - (if (if (null? (car #{w 22413}#)) - (null? (cdr #{w 22413}#)) #f) - #{value 22411}# - (if (if (vector? #{value 22411}#) - (if (= (vector-length - #{value 22411}#) - 4) - (eq? (vector-ref - #{value 22411}# - 0) - 'syntax-object) - #f) + (let ((#{expression 24429}# + (vector-ref + #{value 22409}# + 1)) + (#{wrap 24430}# + (let ((#{w2 24440}# + (vector-ref + #{value 22409}# + 2))) + (let ((#{m1 24441}# + (car #{w 22411}#)) + (#{s1 24442}# + (cdr #{w 22411}#))) + (if (null? #{m1 24441}#) + (if (null? #{s1 24442}#) + #{w2 24440}# + (cons (car #{w2 24440}#) + (let ((#{m2 24459}# + (cdr #{w2 24440}#))) + (if (null? #{m2 24459}#) + #{s1 24442}# + (append + #{s1 24442}# + #{m2 24459}#))))) + (cons (let ((#{m2 24467}# + (car #{w2 24440}#))) + (if (null? #{m2 24467}#) + #{m1 24441}# + (append + #{m1 24441}# + #{m2 24467}#))) + (let ((#{m2 24475}# + (cdr #{w2 24440}#))) + (if (null? #{m2 24475}#) + #{s1 24442}# + (append + #{s1 24442}# + #{m2 24475}#)))))))) + (#{module 24431}# + (vector-ref + #{value 22409}# + 3))) + (vector + 'syntax-object + #{expression 24429}# + #{wrap 24430}# + #{module 24431}#)) + (if (null? #{value 22409}#) + #{value 22409}# + (vector + 'syntax-object + #{value 22409}# + #{w 22411}# + #{mod 22413}#))))) + (syntax-violation + #f + "cannot define keyword at top level" + #{e 22410}# + (if (if (null? (car #{w 22411}#)) + (null? (cdr #{w 22411}#)) + #f) + #{value 22409}# + (if (if (vector? #{value 22409}#) + (if (= (vector-length + #{value 22409}#) + 4) + (eq? (vector-ref + #{value 22409}# + 0) + 'syntax-object) #f) - (let ((#{expression 24529}# - (vector-ref - #{value 22411}# - 1)) - (#{wrap 24530}# - (let ((#{w2 24540}# - (vector-ref - #{value 22411}# - 2))) - (let ((#{m1 24541}# - (car #{w 22413}#)) - (#{s1 24542}# - (cdr #{w 22413}#))) - (if (null? #{m1 24541}#) - (if (null? #{s1 24542}#) - #{w2 24540}# - (cons (car #{w2 24540}#) - (let ((#{m2 24559}# - (cdr #{w2 24540}#))) - (if (null? #{m2 24559}#) - #{s1 24542}# - (append - #{s1 24542}# - #{m2 24559}#))))) - (cons (let ((#{m2 24567}# - (car #{w2 24540}#))) - (if (null? #{m2 24567}#) - #{m1 24541}# + #f) + (let ((#{expression 24527}# + (vector-ref + #{value 22409}# + 1)) + (#{wrap 24528}# + (let ((#{w2 24538}# + (vector-ref + #{value 22409}# + 2))) + (let ((#{m1 24539}# + (car #{w 22411}#)) + (#{s1 24540}# + (cdr #{w 22411}#))) + (if (null? #{m1 24539}#) + (if (null? #{s1 24540}#) + #{w2 24538}# + (cons (car #{w2 24538}#) + (let ((#{m2 24557}# + (cdr #{w2 24538}#))) + (if (null? #{m2 24557}#) + #{s1 24540}# (append - #{m1 24541}# - #{m2 24567}#))) - (let ((#{m2 24575}# - (cdr #{w2 24540}#))) - (if (null? #{m2 24575}#) - #{s1 24542}# - (append - #{s1 24542}# - #{m2 24575}#)))))))) - (#{module 24531}# - (vector-ref - #{value 22411}# - 3))) - (vector - 'syntax-object - #{expression 24529}# - #{wrap 24530}# - #{module 24531}#)) - (if (null? #{value 22411}#) - #{value 22411}# - (vector - 'syntax-object - #{value 22411}# - #{w 22413}# - #{mod 22415}#))))))))) - (values - (cons (if (eq? #{m 22104}# 'c&e) - (let ((#{x 24666}# - (#{chi-expr 4376}# - #{type 22410}# - #{value 22411}# - #{e 22412}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - #{mod 22415}#))) - (begin - (primitive-eval #{x 24666}#) - #{x 24666}#)) - (lambda () - (#{chi-expr 4376}# - #{type 22410}# - #{value 22411}# - #{e 22412}# - #{r 22101}# - #{w 22413}# - #{s 22414}# - #{mod 22415}#))) - #{exps 22107}#)))))))))) - (lambda (#{exps 24675}#) - (#{scan 21953}# - (cdr #{body 22100}#) - #{r 22101}# - #{w 22102}# - #{s 22103}# - #{m 22104}# - #{esew 22105}# - #{mod 22106}# - #{exps 24675}#))))))) - (call-with-values - (lambda () - (#{scan 21953}# - #{body 21946}# - #{r 21947}# - #{w 21948}# - #{s 21949}# - #{m 21950}# - #{esew 21951}# - #{mod 21952}# - '())) - (lambda (#{exps 21956}#) - (if (null? #{exps 21956}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #{s 21949}#) - (#{build-sequence 4324}# - #{s 21949}# - (letrec* - ((#{lp 22000}# - (lambda (#{in 22096}# #{out 22097}#) - (if (null? #{in 22096}#) - #{out 22097}# - (let ((#{e 22098}# (car #{in 22096}#))) - (#{lp 22000}# - (cdr #{in 22096}#) - (cons (if (procedure? #{e 22098}#) - (#{e 22098}#) - #{e 22098}#) - #{out 22097}#))))))) - (#{lp 22000}# #{exps 21956}# '()))))))))) - (#{chi-install-global 4372}# - (lambda (#{name 24676}# #{e 24677}#) - (let ((#{exp 24683}# - (let ((#{args 24694}# + #{s1 24540}# + #{m2 24557}#))))) + (cons (let ((#{m2 24565}# + (car #{w2 24538}#))) + (if (null? #{m2 24565}#) + #{m1 24539}# + (append + #{m1 24539}# + #{m2 24565}#))) + (let ((#{m2 24573}# + (cdr #{w2 24538}#))) + (if (null? #{m2 24573}#) + #{s1 24540}# + (append + #{s1 24540}# + #{m2 24573}#)))))))) + (#{module 24529}# + (vector-ref + #{value 22409}# + 3))) + (vector + 'syntax-object + #{expression 24527}# + #{wrap 24528}# + #{module 24529}#)) + (if (null? #{value 22409}#) + #{value 22409}# + (vector + 'syntax-object + #{value 22409}# + #{w 22411}# + #{mod 22413}#))))))))) + (cons (if (eq? #{m 22102}# 'c&e) + (let ((#{x 24664}# + (#{chi-expr 4374}# + #{type 22408}# + #{value 22409}# + #{e 22410}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + #{mod 22413}#))) + (begin + (primitive-eval #{x 24664}#) + #{x 24664}#)) + (lambda () + (#{chi-expr 4374}# + #{type 22408}# + #{value 22409}# + #{e 22410}# + #{r 22099}# + #{w 22411}# + #{s 22412}# + #{mod 22413}#))) + #{exps 22105}#))))))))))))) + (let ((#{exps 21952}# + (#{scan 21951}# + #{body 21944}# + #{r 21945}# + #{w 21946}# + #{s 21947}# + #{m 21948}# + #{esew 21949}# + #{mod 21950}# + '()))) + (if (null? #{exps 21952}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #{s 21947}#) + (#{build-sequence 4322}# + #{s 21947}# + (letrec* + ((#{lp 21998}# + (lambda (#{in 22094}# #{out 22095}#) + (if (null? #{in 22094}#) + #{out 22095}# + (let ((#{e 22096}# (car #{in 22094}#))) + (#{lp 21998}# + (cdr #{in 22094}#) + (cons (if (procedure? #{e 22096}#) + (#{e 22096}#) + #{e 22096}#) + #{out 22095}#))))))) + (#{lp 21998}# #{exps 21952}# '())))))))) + (#{chi-install-global 4370}# + (lambda (#{name 24673}# #{e 24674}#) + (let ((#{exp 24680}# + (let ((#{args 24691}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 24676}#) + #{name 24673}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 24677}#))) + #{e 24674}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'make-syntax-transformer - #{args 24694}#)))) + #{args 24691}#)))) (begin - (if (if (struct? #{exp 24683}#) - (eq? (struct-vtable #{exp 24683}#) + (if (if (struct? #{exp 24680}#) + (eq? (struct-vtable #{exp 24680}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 24721}# (struct-ref #{exp 24683}# 1))) - (if (not (assq 'name #{meta 24721}#)) - (let ((#{v 24728}# - (cons (cons 'name #{name 24676}#) #{meta 24721}#))) - (struct-set! #{exp 24683}# 1 #{v 24728}#))))) + (let ((#{meta 24718}# (struct-ref #{exp 24680}# 1))) + (if (not (assq 'name #{meta 24718}#)) + (let ((#{v 24725}# + (cons (cons 'name #{name 24673}#) #{meta 24718}#))) + (struct-set! #{exp 24680}# 1 #{v 24725}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 24676}# - #{exp 24683}#))))) - (#{chi-when-list 4373}# - (lambda (#{e 24739}# #{when-list 24740}# #{w 24741}#) + #{name 24673}# + #{exp 24680}#))))) + (#{chi-when-list 4371}# + (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#) (letrec* - ((#{f 24742}# - (lambda (#{when-list 24944}# #{situations 24945}#) - (if (null? #{when-list 24944}#) - #{situations 24945}# - (#{f 24742}# - (cdr #{when-list 24944}#) - (cons (let ((#{x 24946}# - (syntax->datum (car #{when-list 24944}#)))) - (if (if (eq? #{x 24946}# 'compile) + ((#{f 24739}# + (lambda (#{when-list 24941}# #{situations 24942}#) + (if (null? #{when-list 24941}#) + #{situations 24942}# + (#{f 24739}# + (cdr #{when-list 24941}#) + (cons (let ((#{x 24943}# + (syntax->datum (car #{when-list 24941}#)))) + (if (if (eq? #{x 24943}# 'compile) #t - (if (eq? #{x 24946}# 'load) + (if (eq? #{x 24943}# 'load) #t - (if (eq? #{x 24946}# 'eval) + (if (eq? #{x 24943}# 'eval) #t - (eq? #{x 24946}# 'expand)))) - #{x 24946}# + (eq? #{x 24943}# 'expand)))) + #{x 24943}# (syntax-violation 'eval-when "invalid situation" - #{e 24739}# - (let ((#{x 24965}# (car #{when-list 24944}#))) - (if (if (null? (car #{w 24741}#)) - (null? (cdr #{w 24741}#)) + #{e 24736}# + (let ((#{x 24962}# (car #{when-list 24941}#))) + (if (if (null? (car #{w 24738}#)) + (null? (cdr #{w 24738}#)) #f) - #{x 24965}# - (if (if (vector? #{x 24965}#) - (if (= (vector-length #{x 24965}#) 4) - (eq? (vector-ref #{x 24965}# 0) + #{x 24962}# + (if (if (vector? #{x 24962}#) + (if (= (vector-length #{x 24962}#) 4) + (eq? (vector-ref #{x 24962}# 0) 'syntax-object) #f) #f) - (let ((#{expression 24983}# - (vector-ref #{x 24965}# 1)) - (#{wrap 24984}# - (let ((#{w2 24992}# + (let ((#{expression 24980}# + (vector-ref #{x 24962}# 1)) + (#{wrap 24981}# + (let ((#{w2 24989}# (vector-ref - #{x 24965}# + #{x 24962}# 2))) - (let ((#{m1 24993}# - (car #{w 24741}#)) - (#{s1 24994}# - (cdr #{w 24741}#))) - (if (null? #{m1 24993}#) - (if (null? #{s1 24994}#) - #{w2 24992}# - (cons (car #{w2 24992}#) - (let ((#{m2 25009}# - (cdr #{w2 24992}#))) - (if (null? #{m2 25009}#) - #{s1 24994}# + (let ((#{m1 24990}# + (car #{w 24738}#)) + (#{s1 24991}# + (cdr #{w 24738}#))) + (if (null? #{m1 24990}#) + (if (null? #{s1 24991}#) + #{w2 24989}# + (cons (car #{w2 24989}#) + (let ((#{m2 25006}# + (cdr #{w2 24989}#))) + (if (null? #{m2 25006}#) + #{s1 24991}# (append - #{s1 24994}# - #{m2 25009}#))))) - (cons (let ((#{m2 25017}# - (car #{w2 24992}#))) - (if (null? #{m2 25017}#) - #{m1 24993}# + #{s1 24991}# + #{m2 25006}#))))) + (cons (let ((#{m2 25014}# + (car #{w2 24989}#))) + (if (null? #{m2 25014}#) + #{m1 24990}# (append - #{m1 24993}# - #{m2 25017}#))) - (let ((#{m2 25025}# - (cdr #{w2 24992}#))) - (if (null? #{m2 25025}#) - #{s1 24994}# + #{m1 24990}# + #{m2 25014}#))) + (let ((#{m2 25022}# + (cdr #{w2 24989}#))) + (if (null? #{m2 25022}#) + #{s1 24991}# (append - #{s1 24994}# - #{m2 25025}#)))))))) - (#{module 24985}# - (vector-ref #{x 24965}# 3))) + #{s1 24991}# + #{m2 25022}#)))))))) + (#{module 24982}# + (vector-ref #{x 24962}# 3))) (vector 'syntax-object - #{expression 24983}# - #{wrap 24984}# - #{module 24985}#)) - (if (null? #{x 24965}#) - #{x 24965}# + #{expression 24980}# + #{wrap 24981}# + #{module 24982}#)) + (if (null? #{x 24962}#) + #{x 24962}# (vector 'syntax-object - #{x 24965}# - #{w 24741}# + #{x 24962}# + #{w 24738}# #f)))))))) - #{situations 24945}#)))))) - (#{f 24742}# #{when-list 24740}# '())))) - (#{syntax-type 4374}# - (lambda (#{e 25040}# - #{r 25041}# - #{w 25042}# - #{s 25043}# - #{rib 25044}# - #{mod 25045}# - #{for-car? 25046}#) - (if (symbol? #{e 25040}#) - (let ((#{n 25047}# - (#{id-var-name 4362}# #{e 25040}# #{w 25042}#))) - (let ((#{b 25048}# - (let ((#{t 25623}# (assq #{n 25047}# #{r 25041}#))) - (if #{t 25623}# - (cdr #{t 25623}#) - (if (symbol? #{n 25047}#) - (let ((#{t 25628}# + #{situations 24942}#)))))) + (#{f 24739}# #{when-list 24737}# '())))) + (#{syntax-type 4372}# + (lambda (#{e 25037}# + #{r 25038}# + #{w 25039}# + #{s 25040}# + #{rib 25041}# + #{mod 25042}# + #{for-car? 25043}#) + (if (symbol? #{e 25037}#) + (let ((#{n 25044}# + (#{id-var-name 4360}# #{e 25037}# #{w 25039}#))) + (let ((#{b 25045}# + (let ((#{t 25620}# (assq #{n 25044}# #{r 25038}#))) + (if #{t 25620}# + (cdr #{t 25620}#) + (if (symbol? #{n 25044}#) + (let ((#{t 25625}# (begin - (if (if (not #{mod 25045}#) + (if (if (not #{mod 25042}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 25047}#)) - (let ((#{v 25665}# + #{n 25044}#)) + (let ((#{v 25662}# (module-variable - (if #{mod 25045}# + (if #{mod 25042}# (resolve-module - (cdr #{mod 25045}#)) + (cdr #{mod 25042}#)) (current-module)) - #{n 25047}#))) - (if #{v 25665}# - (if (variable-bound? #{v 25665}#) - (let ((#{val 25674}# - (variable-ref #{v 25665}#))) - (if (macro? #{val 25674}#) - (if (macro-type #{val 25674}#) - (cons (macro-type #{val 25674}#) + #{n 25044}#))) + (if #{v 25662}# + (if (variable-bound? #{v 25662}#) + (let ((#{val 25671}# + (variable-ref #{v 25662}#))) + (if (macro? #{val 25671}#) + (if (macro-type #{val 25671}#) + (cons (macro-type #{val 25671}#) (macro-binding - #{val 25674}#)) + #{val 25671}#)) #f) #f)) #f) #f))))) - (if #{t 25628}# #{t 25628}# '(global))) + (if #{t 25625}# #{t 25625}# '(global))) '(displaced-lexical)))))) - (let ((#{type 25049}# (car #{b 25048}#))) - (if (let ((#{t 25083}# #{type 25049}#)) - (eqv? #{t 25083}# 'lexical)) + (let ((#{type 25046}# (car #{b 25045}#))) + (if (let ((#{t 25080}# #{type 25046}#)) + (eqv? #{t 25080}# 'lexical)) (values - #{type 25049}# - (cdr #{b 25048}#) - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (let ((#{t 25240}# #{type 25049}#)) - (eqv? #{t 25240}# 'global)) + #{type 25046}# + (cdr #{b 25045}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (let ((#{t 25237}# #{type 25046}#)) + (eqv? #{t 25237}# 'global)) (values - #{type 25049}# - #{n 25047}# - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (let ((#{t 25366}# #{type 25049}#)) - (eqv? #{t 25366}# 'macro)) - (if #{for-car? 25046}# + #{type 25046}# + #{n 25044}# + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (let ((#{t 25363}# #{type 25046}#)) + (eqv? #{t 25363}# 'macro)) + (if #{for-car? 25043}# (values - #{type 25049}# - (cdr #{b 25048}#) - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (#{syntax-type 4374}# - (#{chi-macro 4378}# - (cdr #{b 25048}#) - #{e 25040}# - #{r 25041}# - #{w 25042}# - #{s 25043}# - #{rib 25044}# - #{mod 25045}#) - #{r 25041}# + #{type 25046}# + (cdr #{b 25045}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (#{syntax-type 4372}# + (#{chi-macro 4376}# + (cdr #{b 25045}#) + #{e 25037}# + #{r 25038}# + #{w 25039}# + #{s 25040}# + #{rib 25041}# + #{mod 25042}#) + #{r 25038}# '(()) - #{s 25043}# - #{rib 25044}# - #{mod 25045}# + #{s 25040}# + #{rib 25041}# + #{mod 25042}# #f)) (values - #{type 25049}# - (cdr #{b 25048}#) - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#))))))) - (if (pair? #{e 25040}#) - (let ((#{first 25685}# (car #{e 25040}#))) + #{type 25046}# + (cdr #{b 25045}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#))))))) + (if (pair? #{e 25037}#) + (let ((#{first 25682}# (car #{e 25037}#))) (call-with-values (lambda () - (#{syntax-type 4374}# - #{first 25685}# - #{r 25041}# - #{w 25042}# - #{s 25043}# - #{rib 25044}# - #{mod 25045}# + (#{syntax-type 4372}# + #{first 25682}# + #{r 25038}# + #{w 25039}# + #{s 25040}# + #{rib 25041}# + #{mod 25042}# #t)) - (lambda (#{ftype 25687}# - #{fval 25688}# - #{fe 25689}# - #{fw 25690}# - #{fs 25691}# - #{fmod 25692}#) - (if (eqv? #{ftype 25687}# 'lexical) + (lambda (#{ftype 25684}# + #{fval 25685}# + #{fe 25686}# + #{fw 25687}# + #{fs 25688}# + #{fmod 25689}#) + (if (eqv? #{ftype 25684}# 'lexical) (values 'lexical-call - #{fval 25688}# - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'global) + #{fval 25685}# + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'global) (values 'global-call (vector 'syntax-object - #{fval 25688}# - #{w 25042}# - #{fmod 25692}#) - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'macro) - (#{syntax-type 4374}# - (#{chi-macro 4378}# - #{fval 25688}# - #{e 25040}# - #{r 25041}# - #{w 25042}# - #{s 25043}# - #{rib 25044}# - #{mod 25045}#) - #{r 25041}# + #{fval 25685}# + #{w 25039}# + #{fmod 25689}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'macro) + (#{syntax-type 4372}# + (#{chi-macro 4376}# + #{fval 25685}# + #{e 25037}# + #{r 25038}# + #{w 25039}# + #{s 25040}# + #{rib 25041}# + #{mod 25042}#) + #{r 25038}# '(()) - #{s 25043}# - #{rib 25044}# - #{mod 25045}# - #{for-car? 25046}#) - (if (eqv? #{ftype 25687}# 'module-ref) + #{s 25040}# + #{rib 25041}# + #{mod 25042}# + #{for-car? 25043}#) + (if (eqv? #{ftype 25684}# 'module-ref) (call-with-values (lambda () - (#{fval 25688}# - #{e 25040}# - #{r 25041}# - #{w 25042}#)) - (lambda (#{e 25713}# - #{r 25714}# - #{w 25715}# - #{s 25716}# - #{mod 25717}#) - (#{syntax-type 4374}# - #{e 25713}# - #{r 25714}# - #{w 25715}# - #{s 25716}# - #{rib 25044}# - #{mod 25717}# - #{for-car? 25046}#))) - (if (eqv? #{ftype 25687}# 'core) + (#{fval 25685}# + #{e 25037}# + #{r 25038}# + #{w 25039}#)) + (lambda (#{e 25710}# + #{r 25711}# + #{w 25712}# + #{s 25713}# + #{mod 25714}#) + (#{syntax-type 4372}# + #{e 25710}# + #{r 25711}# + #{w 25712}# + #{s 25713}# + #{rib 25041}# + #{mod 25714}# + #{for-car? 25043}#))) + (if (eqv? #{ftype 25684}# 'core) (values 'core-form - #{fval 25688}# - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'local-syntax) + #{fval 25685}# + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'local-syntax) (values 'local-syntax-form - #{fval 25688}# - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'begin) + #{fval 25685}# + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'begin) (values 'begin-form #f - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'eval-when) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'eval-when) (values 'eval-when-form #f - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) - (if (eqv? #{ftype 25687}# 'define) - (let ((#{tmp 25734}# + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) + (if (eqv? #{ftype 25684}# 'define) + (let ((#{tmp 25731}# ($sc-dispatch - #{e 25040}# + #{e 25037}# '(_ any any)))) - (if (if #{tmp 25734}# + (if (if #{tmp 25731}# (@apply - (lambda (#{name 25738}# - #{val 25739}#) - (if (symbol? #{name 25738}#) + (lambda (#{name 25735}# + #{val 25736}#) + (if (symbol? #{name 25735}#) #t (if (if (vector? - #{name 25738}#) + #{name 25735}#) (if (= (vector-length - #{name 25738}#) + #{name 25735}#) 4) (eq? (vector-ref - #{name 25738}# + #{name 25735}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 25738}# + #{name 25735}# 1)) #f))) - #{tmp 25734}#) + #{tmp 25731}#) #f) (@apply - (lambda (#{name 25766}# #{val 25767}#) + (lambda (#{name 25763}# #{val 25764}#) (values 'define-form - #{name 25766}# - #{val 25767}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#)) - #{tmp 25734}#) - (let ((#{tmp 25768}# + #{name 25763}# + #{val 25764}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#)) + #{tmp 25731}#) + (let ((#{tmp 25765}# ($sc-dispatch - #{e 25040}# + #{e 25037}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 25768}# + (if (if #{tmp 25765}# (@apply - (lambda (#{name 25772}# - #{args 25773}# - #{e1 25774}# - #{e2 25775}#) + (lambda (#{name 25769}# + #{args 25770}# + #{e1 25771}# + #{e2 25772}#) (if (if (symbol? - #{name 25772}#) + #{name 25769}#) #t (if (if (vector? - #{name 25772}#) + #{name 25769}#) (if (= (vector-length - #{name 25772}#) + #{name 25769}#) 4) (eq? (vector-ref - #{name 25772}# + #{name 25769}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 25772}# + #{name 25769}# 1)) #f)) - (#{valid-bound-ids? 4365}# - (#{lambda-var-list 4390}# - #{args 25773}#)) + (#{valid-bound-ids? 4363}# + (#{lambda-var-list 4388}# + #{args 25770}#)) #f)) - #{tmp 25768}#) + #{tmp 25765}#) #f) (@apply - (lambda (#{name 26256}# - #{args 26257}# - #{e1 26258}# - #{e2 26259}#) + (lambda (#{name 26253}# + #{args 26254}# + #{e1 26255}# + #{e2 26256}#) (values 'define-form - (if (if (null? (car #{w 25042}#)) - (null? (cdr #{w 25042}#)) + (if (if (null? (car #{w 25039}#)) + (null? (cdr #{w 25039}#)) #f) - #{name 26256}# + #{name 26253}# (if (if (vector? - #{name 26256}#) + #{name 26253}#) (if (= (vector-length - #{name 26256}#) + #{name 26253}#) 4) (eq? (vector-ref - #{name 26256}# + #{name 26253}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26289}# + (let ((#{expression 26286}# (vector-ref - #{name 26256}# + #{name 26253}# 1)) - (#{wrap 26290}# - (let ((#{w2 26300}# + (#{wrap 26287}# + (let ((#{w2 26297}# (vector-ref - #{name 26256}# + #{name 26253}# 2))) - (let ((#{m1 26301}# - (car #{w 25042}#)) - (#{s1 26302}# - (cdr #{w 25042}#))) - (if (null? #{m1 26301}#) - (if (null? #{s1 26302}#) - #{w2 26300}# - (cons (car #{w2 26300}#) - (let ((#{m2 26319}# - (cdr #{w2 26300}#))) - (if (null? #{m2 26319}#) - #{s1 26302}# + (let ((#{m1 26298}# + (car #{w 25039}#)) + (#{s1 26299}# + (cdr #{w 25039}#))) + (if (null? #{m1 26298}#) + (if (null? #{s1 26299}#) + #{w2 26297}# + (cons (car #{w2 26297}#) + (let ((#{m2 26316}# + (cdr #{w2 26297}#))) + (if (null? #{m2 26316}#) + #{s1 26299}# (append - #{s1 26302}# - #{m2 26319}#))))) - (cons (let ((#{m2 26327}# - (car #{w2 26300}#))) - (if (null? #{m2 26327}#) - #{m1 26301}# + #{s1 26299}# + #{m2 26316}#))))) + (cons (let ((#{m2 26324}# + (car #{w2 26297}#))) + (if (null? #{m2 26324}#) + #{m1 26298}# (append - #{m1 26301}# - #{m2 26327}#))) - (let ((#{m2 26335}# - (cdr #{w2 26300}#))) - (if (null? #{m2 26335}#) - #{s1 26302}# + #{m1 26298}# + #{m2 26324}#))) + (let ((#{m2 26332}# + (cdr #{w2 26297}#))) + (if (null? #{m2 26332}#) + #{s1 26299}# (append - #{s1 26302}# - #{m2 26335}#)))))))) - (#{module 26291}# + #{s1 26299}# + #{m2 26332}#)))))))) + (#{module 26288}# (vector-ref - #{name 26256}# + #{name 26253}# 3))) (vector 'syntax-object - #{expression 26289}# - #{wrap 26290}# - #{module 26291}#)) - (if (null? #{name 26256}#) - #{name 26256}# + #{expression 26286}# + #{wrap 26287}# + #{module 26288}#)) + (if (null? #{name 26253}#) + #{name 26253}# (vector 'syntax-object - #{name 26256}# - #{w 25042}# - #{mod 25045}#)))) - (let ((#{e 26361}# + #{name 26253}# + #{w 25039}# + #{mod 25042}#)))) + (let ((#{e 26358}# (cons '#(syntax-object lambda ((top) @@ -1972,10 +1955,10 @@ (top) (top) (top)) - #("i1888" - "i1889" - "i1890" - "i1891")) + #("i1886" + "i1887" + "i1888" + "i1889")) #(ribcage () () @@ -1997,12 +1980,12 @@ (top) (top) (top)) - #("i1841" + #("i1839" + "i1840" + "i1841" "i1842" "i1843" - "i1844" - "i1845" - "i1846")) + "i1844")) #(ribcage () () @@ -2010,7 +1993,7 @@ #(ribcage #(first) #((top)) - #("i1833")) + #("i1831")) #(ribcage () () @@ -2038,13 +2021,13 @@ (top) (top) (top)) - #("i1805" + #("i1803" + "i1804" + "i1805" "i1806" "i1807" "i1808" - "i1809" - "i1810" - "i1811")) + "i1809")) #(ribcage (lambda-var-list gen-var @@ -2472,199 +2455,199 @@ "i44"))) (hygiene guile)) - (let ((#{x 26365}# - (cons #{args 26257}# - (cons #{e1 26258}# - #{e2 26259}#)))) - (if (if (null? (car #{w 25042}#)) - (null? (cdr #{w 25042}#)) + (let ((#{x 26362}# + (cons #{args 26254}# + (cons #{e1 26255}# + #{e2 26256}#)))) + (if (if (null? (car #{w 25039}#)) + (null? (cdr #{w 25039}#)) #f) - #{x 26365}# + #{x 26362}# (if (if (vector? - #{x 26365}#) + #{x 26362}#) (if (= (vector-length - #{x 26365}#) + #{x 26362}#) 4) (eq? (vector-ref - #{x 26365}# + #{x 26362}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26383}# + (let ((#{expression 26380}# (vector-ref - #{x 26365}# + #{x 26362}# 1)) - (#{wrap 26384}# - (let ((#{w2 26392}# + (#{wrap 26381}# + (let ((#{w2 26389}# (vector-ref - #{x 26365}# + #{x 26362}# 2))) - (let ((#{m1 26393}# - (car #{w 25042}#)) - (#{s1 26394}# - (cdr #{w 25042}#))) - (if (null? #{m1 26393}#) - (if (null? #{s1 26394}#) - #{w2 26392}# - (cons (car #{w2 26392}#) - (let ((#{m2 26409}# - (cdr #{w2 26392}#))) - (if (null? #{m2 26409}#) - #{s1 26394}# + (let ((#{m1 26390}# + (car #{w 25039}#)) + (#{s1 26391}# + (cdr #{w 25039}#))) + (if (null? #{m1 26390}#) + (if (null? #{s1 26391}#) + #{w2 26389}# + (cons (car #{w2 26389}#) + (let ((#{m2 26406}# + (cdr #{w2 26389}#))) + (if (null? #{m2 26406}#) + #{s1 26391}# (append - #{s1 26394}# - #{m2 26409}#))))) - (cons (let ((#{m2 26417}# - (car #{w2 26392}#))) - (if (null? #{m2 26417}#) - #{m1 26393}# + #{s1 26391}# + #{m2 26406}#))))) + (cons (let ((#{m2 26414}# + (car #{w2 26389}#))) + (if (null? #{m2 26414}#) + #{m1 26390}# (append - #{m1 26393}# - #{m2 26417}#))) - (let ((#{m2 26425}# - (cdr #{w2 26392}#))) - (if (null? #{m2 26425}#) - #{s1 26394}# + #{m1 26390}# + #{m2 26414}#))) + (let ((#{m2 26422}# + (cdr #{w2 26389}#))) + (if (null? #{m2 26422}#) + #{s1 26391}# (append - #{s1 26394}# - #{m2 26425}#)))))))) - (#{module 26385}# + #{s1 26391}# + #{m2 26422}#)))))))) + (#{module 26382}# (vector-ref - #{x 26365}# + #{x 26362}# 3))) (vector 'syntax-object - #{expression 26383}# - #{wrap 26384}# - #{module 26385}#)) - (if (null? #{x 26365}#) - #{x 26365}# + #{expression 26380}# + #{wrap 26381}# + #{module 26382}#)) + (if (null? #{x 26362}#) + #{x 26362}# (vector 'syntax-object - #{x 26365}# - #{w 25042}# - #{mod 25045}#)))))))) + #{x 26362}# + #{w 25039}# + #{mod 25042}#)))))))) (begin - (if (if (pair? #{e 26361}#) - #{s 25043}# + (if (if (pair? #{e 26358}#) + #{s 25040}# #f) (set-source-properties! - #{e 26361}# - #{s 25043}#)) - #{e 26361}#)) + #{e 26358}# + #{s 25040}#)) + #{e 26358}#)) '(()) - #{s 25043}# - #{mod 25045}#)) - #{tmp 25768}#) - (let ((#{tmp 26444}# + #{s 25040}# + #{mod 25042}#)) + #{tmp 25765}#) + (let ((#{tmp 26441}# ($sc-dispatch - #{e 25040}# + #{e 25037}# '(_ any)))) - (if (if #{tmp 26444}# + (if (if #{tmp 26441}# (@apply - (lambda (#{name 26448}#) + (lambda (#{name 26445}#) (if (symbol? - #{name 26448}#) + #{name 26445}#) #t (if (if (vector? - #{name 26448}#) + #{name 26445}#) (if (= (vector-length - #{name 26448}#) + #{name 26445}#) 4) (eq? (vector-ref - #{name 26448}# + #{name 26445}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 26448}# + #{name 26445}# 1)) #f))) - #{tmp 26444}#) + #{tmp 26441}#) #f) (@apply - (lambda (#{name 26475}#) + (lambda (#{name 26472}#) (values 'define-form - (if (if (null? (car #{w 25042}#)) - (null? (cdr #{w 25042}#)) + (if (if (null? (car #{w 25039}#)) + (null? (cdr #{w 25039}#)) #f) - #{name 26475}# + #{name 26472}# (if (if (vector? - #{name 26475}#) + #{name 26472}#) (if (= (vector-length - #{name 26475}#) + #{name 26472}#) 4) (eq? (vector-ref - #{name 26475}# + #{name 26472}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26505}# + (let ((#{expression 26502}# (vector-ref - #{name 26475}# + #{name 26472}# 1)) - (#{wrap 26506}# - (let ((#{w2 26516}# + (#{wrap 26503}# + (let ((#{w2 26513}# (vector-ref - #{name 26475}# + #{name 26472}# 2))) - (let ((#{m1 26517}# - (car #{w 25042}#)) - (#{s1 26518}# - (cdr #{w 25042}#))) - (if (null? #{m1 26517}#) - (if (null? #{s1 26518}#) - #{w2 26516}# - (cons (car #{w2 26516}#) - (let ((#{m2 26535}# - (cdr #{w2 26516}#))) - (if (null? #{m2 26535}#) - #{s1 26518}# + (let ((#{m1 26514}# + (car #{w 25039}#)) + (#{s1 26515}# + (cdr #{w 25039}#))) + (if (null? #{m1 26514}#) + (if (null? #{s1 26515}#) + #{w2 26513}# + (cons (car #{w2 26513}#) + (let ((#{m2 26532}# + (cdr #{w2 26513}#))) + (if (null? #{m2 26532}#) + #{s1 26515}# (append - #{s1 26518}# - #{m2 26535}#))))) - (cons (let ((#{m2 26543}# - (car #{w2 26516}#))) - (if (null? #{m2 26543}#) - #{m1 26517}# + #{s1 26515}# + #{m2 26532}#))))) + (cons (let ((#{m2 26540}# + (car #{w2 26513}#))) + (if (null? #{m2 26540}#) + #{m1 26514}# (append - #{m1 26517}# - #{m2 26543}#))) - (let ((#{m2 26551}# - (cdr #{w2 26516}#))) - (if (null? #{m2 26551}#) - #{s1 26518}# + #{m1 26514}# + #{m2 26540}#))) + (let ((#{m2 26548}# + (cdr #{w2 26513}#))) + (if (null? #{m2 26548}#) + #{s1 26515}# (append - #{s1 26518}# - #{m2 26551}#)))))))) - (#{module 26507}# + #{s1 26515}# + #{m2 26548}#)))))))) + (#{module 26504}# (vector-ref - #{name 26475}# + #{name 26472}# 3))) (vector 'syntax-object - #{expression 26505}# - #{wrap 26506}# - #{module 26507}#)) - (if (null? #{name 26475}#) - #{name 26475}# + #{expression 26502}# + #{wrap 26503}# + #{module 26504}#)) + (if (null? #{name 26472}#) + #{name 26472}# (vector 'syntax-object - #{name 26475}# - #{w 25042}# - #{mod 25045}#)))) + #{name 26472}# + #{w 25039}# + #{mod 25042}#)))) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1901")) + #("i1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2680,17 +2663,17 @@ (top) (top) (top)) - #("i1841" + #("i1839" + "i1840" + "i1841" "i1842" "i1843" - "i1844" - "i1845" - "i1846")) + "i1844")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1833")) + #("i1831")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2709,13 +2692,13 @@ (top) (top) (top)) - #("i1805" + #("i1803" + "i1804" + "i1805" "i1806" "i1807" "i1808" - "i1809" - "i1810" - "i1811")) + "i1809")) #(ribcage (lambda-var-list gen-var @@ -3146,7 +3129,7 @@ #(ribcage #(name) #((top)) - #("i1901")) + #("i1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3162,17 +3145,17 @@ (top) (top) (top)) - #("i1841" + #("i1839" + "i1840" + "i1841" "i1842" "i1843" - "i1844" - "i1845" - "i1846")) + "i1844")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1833")) + #("i1831")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3191,13 +3174,13 @@ (top) (top) (top)) - #("i1805" + #("i1803" + "i1804" + "i1805" "i1806" "i1807" "i1808" - "i1809" - "i1810" - "i1811")) + "i1809")) #(ribcage (lambda-var-list gen-var @@ -3628,7 +3611,7 @@ #(ribcage #(name) #((top)) - #("i1901")) + #("i1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3644,17 +3627,17 @@ (top) (top) (top)) - #("i1841" + #("i1839" + "i1840" + "i1841" "i1842" "i1843" - "i1844" - "i1845" - "i1846")) + "i1844")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1833")) + #("i1831")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3673,13 +3656,13 @@ (top) (top) (top)) - #("i1805" + #("i1803" + "i1804" + "i1805" "i1806" "i1807" "i1808" - "i1809" - "i1810" - "i1811")) + "i1809")) #(ribcage (lambda-var-list gen-var @@ -4105,2012 +4088,2012 @@ "i44"))) (hygiene guile))) '(()) - #{s 25043}# - #{mod 25045}#)) - #{tmp 26444}#) + #{s 25040}# + #{mod 25042}#)) + #{tmp 26441}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 25040}#))))))) - (if (eqv? #{ftype 25687}# 'define-syntax) - (let ((#{tmp 26590}# + #{e 25037}#))))))) + (if (eqv? #{ftype 25684}# 'define-syntax) + (let ((#{tmp 26587}# ($sc-dispatch - #{e 25040}# + #{e 25037}# '(_ any any)))) - (if (if #{tmp 26590}# + (if (if #{tmp 26587}# (@apply - (lambda (#{name 26594}# - #{val 26595}#) - (if (symbol? #{name 26594}#) + (lambda (#{name 26591}# + #{val 26592}#) + (if (symbol? #{name 26591}#) #t (if (if (vector? - #{name 26594}#) + #{name 26591}#) (if (= (vector-length - #{name 26594}#) + #{name 26591}#) 4) (eq? (vector-ref - #{name 26594}# + #{name 26591}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 26594}# + #{name 26591}# 1)) #f))) - #{tmp 26590}#) + #{tmp 26587}#) #f) (@apply - (lambda (#{name 26622}# - #{val 26623}#) + (lambda (#{name 26619}# + #{val 26620}#) (values 'define-syntax-form - #{name 26622}# - #{val 26623}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#)) - #{tmp 26590}#) + #{name 26619}# + #{val 26620}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#)) + #{tmp 26587}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 25040}#))) + #{e 25037}#))) (values 'call #f - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#)))))))))))))) - (if (if (vector? #{e 25040}#) - (if (= (vector-length #{e 25040}#) 4) - (eq? (vector-ref #{e 25040}# 0) 'syntax-object) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#)))))))))))))) + (if (if (vector? #{e 25037}#) + (if (= (vector-length #{e 25037}#) 4) + (eq? (vector-ref #{e 25037}# 0) 'syntax-object) #f) #f) - (#{syntax-type 4374}# - (vector-ref #{e 25040}# 1) - #{r 25041}# - (let ((#{w2 26648}# (vector-ref #{e 25040}# 2))) - (let ((#{m1 26649}# (car #{w 25042}#)) - (#{s1 26650}# (cdr #{w 25042}#))) - (if (null? #{m1 26649}#) - (if (null? #{s1 26650}#) - #{w2 26648}# - (cons (car #{w2 26648}#) - (let ((#{m2 26661}# (cdr #{w2 26648}#))) - (if (null? #{m2 26661}#) - #{s1 26650}# - (append #{s1 26650}# #{m2 26661}#))))) - (cons (let ((#{m2 26669}# (car #{w2 26648}#))) - (if (null? #{m2 26669}#) - #{m1 26649}# - (append #{m1 26649}# #{m2 26669}#))) - (let ((#{m2 26677}# (cdr #{w2 26648}#))) - (if (null? #{m2 26677}#) - #{s1 26650}# - (append #{s1 26650}# #{m2 26677}#))))))) - (let ((#{t 26682}# - (#{source-annotation 4336}# #{e 25040}#))) - (if #{t 26682}# #{t 26682}# #{s 25043}#)) - #{rib 25044}# - (let ((#{t 26980}# (vector-ref #{e 25040}# 3))) - (if #{t 26980}# #{t 26980}# #{mod 25045}#)) - #{for-car? 25046}#) - (if (self-evaluating? #{e 25040}#) + (#{syntax-type 4372}# + (vector-ref #{e 25037}# 1) + #{r 25038}# + (let ((#{w2 26645}# (vector-ref #{e 25037}# 2))) + (let ((#{m1 26646}# (car #{w 25039}#)) + (#{s1 26647}# (cdr #{w 25039}#))) + (if (null? #{m1 26646}#) + (if (null? #{s1 26647}#) + #{w2 26645}# + (cons (car #{w2 26645}#) + (let ((#{m2 26658}# (cdr #{w2 26645}#))) + (if (null? #{m2 26658}#) + #{s1 26647}# + (append #{s1 26647}# #{m2 26658}#))))) + (cons (let ((#{m2 26666}# (car #{w2 26645}#))) + (if (null? #{m2 26666}#) + #{m1 26646}# + (append #{m1 26646}# #{m2 26666}#))) + (let ((#{m2 26674}# (cdr #{w2 26645}#))) + (if (null? #{m2 26674}#) + #{s1 26647}# + (append #{s1 26647}# #{m2 26674}#))))))) + (let ((#{t 26679}# + (#{source-annotation 4334}# #{e 25037}#))) + (if #{t 26679}# #{t 26679}# #{s 25040}#)) + #{rib 25041}# + (let ((#{t 26977}# (vector-ref #{e 25037}# 3))) + (if #{t 26977}# #{t 26977}# #{mod 25042}#)) + #{for-car? 25043}#) + (if (self-evaluating? #{e 25037}#) (values 'constant #f - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#) (values 'other #f - #{e 25040}# - #{w 25042}# - #{s 25043}# - #{mod 25045}#))))))) - (#{chi 4375}# - (lambda (#{e 26989}# - #{r 26990}# - #{w 26991}# - #{mod 26992}#) + #{e 25037}# + #{w 25039}# + #{s 25040}# + #{mod 25042}#))))))) + (#{chi 4373}# + (lambda (#{e 26986}# + #{r 26987}# + #{w 26988}# + #{mod 26989}#) (call-with-values (lambda () - (#{syntax-type 4374}# - #{e 26989}# - #{r 26990}# - #{w 26991}# - (#{source-annotation 4336}# #{e 26989}#) + (#{syntax-type 4372}# + #{e 26986}# + #{r 26987}# + #{w 26988}# + (#{source-annotation 4334}# #{e 26986}#) #f - #{mod 26992}# + #{mod 26989}# #f)) - (lambda (#{type 27196}# - #{value 27197}# - #{e 27198}# - #{w 27199}# - #{s 27200}# - #{mod 27201}#) - (#{chi-expr 4376}# - #{type 27196}# - #{value 27197}# - #{e 27198}# - #{r 26990}# - #{w 27199}# - #{s 27200}# - #{mod 27201}#))))) - (#{chi-expr 4376}# - (lambda (#{type 27204}# - #{value 27205}# - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) - (if (eqv? #{type 27204}# 'lexical) + (lambda (#{type 27193}# + #{value 27194}# + #{e 27195}# + #{w 27196}# + #{s 27197}# + #{mod 27198}#) + (#{chi-expr 4374}# + #{type 27193}# + #{value 27194}# + #{e 27195}# + #{r 26987}# + #{w 27196}# + #{s 27197}# + #{mod 27198}#))))) + (#{chi-expr 4374}# + (lambda (#{type 27201}# + #{value 27202}# + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) + (if (eqv? #{type 27201}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 27209}# - #{e 27206}# - #{value 27205}#) - (if (if (eqv? #{type 27204}# 'core) + #{s 27206}# + #{e 27203}# + #{value 27202}#) + (if (if (eqv? #{type 27201}# 'core) #t - (eqv? #{type 27204}# 'core-form)) - (#{value 27205}# - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) - (if (eqv? #{type 27204}# 'module-ref) + (eqv? #{type 27201}# 'core-form)) + (#{value 27202}# + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) + (if (eqv? #{type 27201}# 'module-ref) (call-with-values (lambda () - (#{value 27205}# - #{e 27206}# - #{r 27207}# - #{w 27208}#)) - (lambda (#{e 27236}# - #{r 27237}# - #{w 27238}# - #{s 27239}# - #{mod 27240}#) - (#{chi 4375}# - #{e 27236}# - #{r 27237}# - #{w 27238}# - #{mod 27240}#))) - (if (eqv? #{type 27204}# 'lexical-call) - (#{chi-call 4377}# - (let ((#{id 27421}# (car #{e 27206}#))) - (#{build-lexical-reference 4312}# + (#{value 27202}# + #{e 27203}# + #{r 27204}# + #{w 27205}#)) + (lambda (#{e 27233}# + #{r 27234}# + #{w 27235}# + #{s 27236}# + #{mod 27237}#) + (#{chi 4373}# + #{e 27233}# + #{r 27234}# + #{w 27235}# + #{mod 27237}#))) + (if (eqv? #{type 27201}# 'lexical-call) + (#{chi-call 4375}# + (let ((#{id 27418}# (car #{e 27203}#))) + (#{build-lexical-reference 4310}# 'fun - (#{source-annotation 4336}# #{id 27421}#) - (if (if (vector? #{id 27421}#) - (if (= (vector-length #{id 27421}#) 4) - (eq? (vector-ref #{id 27421}# 0) 'syntax-object) + (#{source-annotation 4334}# #{id 27418}#) + (if (if (vector? #{id 27418}#) + (if (= (vector-length #{id 27418}#) 4) + (eq? (vector-ref #{id 27418}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 27421}#) - #{id 27421}#) - #{value 27205}#)) - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) - (if (eqv? #{type 27204}# 'global-call) - (#{chi-call 4377}# - (#{build-global-reference 4315}# - (#{source-annotation 4336}# (car #{e 27206}#)) - (if (if (vector? #{value 27205}#) - (if (= (vector-length #{value 27205}#) 4) - (eq? (vector-ref #{value 27205}# 0) + (syntax->datum #{id 27418}#) + #{id 27418}#) + #{value 27202}#)) + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) + (if (eqv? #{type 27201}# 'global-call) + (#{chi-call 4375}# + (#{build-global-reference 4313}# + (#{source-annotation 4334}# (car #{e 27203}#)) + (if (if (vector? #{value 27202}#) + (if (= (vector-length #{value 27202}#) 4) + (eq? (vector-ref #{value 27202}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 27205}# 1) - #{value 27205}#) - (if (if (vector? #{value 27205}#) - (if (= (vector-length #{value 27205}#) 4) - (eq? (vector-ref #{value 27205}# 0) + (vector-ref #{value 27202}# 1) + #{value 27202}#) + (if (if (vector? #{value 27202}#) + (if (= (vector-length #{value 27202}#) 4) + (eq? (vector-ref #{value 27202}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 27205}# 3) - #{mod 27210}#)) - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) - (if (eqv? #{type 27204}# 'constant) - (let ((#{exp 28143}# - (#{strip 4388}# - (let ((#{x 28156}# + (vector-ref #{value 27202}# 3) + #{mod 27207}#)) + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) + (if (eqv? #{type 27201}# 'constant) + (let ((#{exp 28140}# + (#{strip 4386}# + (let ((#{x 28153}# (begin - (if (if (pair? #{e 27206}#) - #{s 27209}# + (if (if (pair? #{e 27203}#) + #{s 27206}# #f) (set-source-properties! - #{e 27206}# - #{s 27209}#)) - #{e 27206}#))) - (if (if (null? (car #{w 27208}#)) - (null? (cdr #{w 27208}#)) + #{e 27203}# + #{s 27206}#)) + #{e 27203}#))) + (if (if (null? (car #{w 27205}#)) + (null? (cdr #{w 27205}#)) #f) - #{x 28156}# - (if (if (vector? #{x 28156}#) - (if (= (vector-length #{x 28156}#) 4) - (eq? (vector-ref #{x 28156}# 0) + #{x 28153}# + (if (if (vector? #{x 28153}#) + (if (= (vector-length #{x 28153}#) 4) + (eq? (vector-ref #{x 28153}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28188}# - (vector-ref #{x 28156}# 1)) - (#{wrap 28189}# - (let ((#{w2 28197}# - (vector-ref #{x 28156}# 2))) - (let ((#{m1 28198}# - (car #{w 27208}#)) - (#{s1 28199}# - (cdr #{w 27208}#))) - (if (null? #{m1 28198}#) - (if (null? #{s1 28199}#) - #{w2 28197}# - (cons (car #{w2 28197}#) - (let ((#{m2 28214}# - (cdr #{w2 28197}#))) - (if (null? #{m2 28214}#) - #{s1 28199}# + (let ((#{expression 28185}# + (vector-ref #{x 28153}# 1)) + (#{wrap 28186}# + (let ((#{w2 28194}# + (vector-ref #{x 28153}# 2))) + (let ((#{m1 28195}# + (car #{w 27205}#)) + (#{s1 28196}# + (cdr #{w 27205}#))) + (if (null? #{m1 28195}#) + (if (null? #{s1 28196}#) + #{w2 28194}# + (cons (car #{w2 28194}#) + (let ((#{m2 28211}# + (cdr #{w2 28194}#))) + (if (null? #{m2 28211}#) + #{s1 28196}# (append - #{s1 28199}# - #{m2 28214}#))))) - (cons (let ((#{m2 28222}# - (car #{w2 28197}#))) - (if (null? #{m2 28222}#) - #{m1 28198}# + #{s1 28196}# + #{m2 28211}#))))) + (cons (let ((#{m2 28219}# + (car #{w2 28194}#))) + (if (null? #{m2 28219}#) + #{m1 28195}# (append - #{m1 28198}# - #{m2 28222}#))) - (let ((#{m2 28230}# - (cdr #{w2 28197}#))) - (if (null? #{m2 28230}#) - #{s1 28199}# + #{m1 28195}# + #{m2 28219}#))) + (let ((#{m2 28227}# + (cdr #{w2 28194}#))) + (if (null? #{m2 28227}#) + #{s1 28196}# (append - #{s1 28199}# - #{m2 28230}#)))))))) - (#{module 28190}# - (vector-ref #{x 28156}# 3))) + #{s1 28196}# + #{m2 28227}#)))))))) + (#{module 28187}# + (vector-ref #{x 28153}# 3))) (vector 'syntax-object - #{expression 28188}# - #{wrap 28189}# - #{module 28190}#)) - (if (null? #{x 28156}#) - #{x 28156}# + #{expression 28185}# + #{wrap 28186}# + #{module 28187}#)) + (if (null? #{x 28153}#) + #{x 28153}# (vector 'syntax-object - #{x 28156}# - #{w 27208}# - #{mod 27210}#))))) + #{x 28153}# + #{w 27205}# + #{mod 27207}#))))) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 27209}# - #{exp 28143}#)) - (if (eqv? #{type 27204}# 'global) - (#{analyze-variable 4314}# - #{mod 27210}# - #{value 27205}# - (lambda (#{mod 28255}# #{var 28256}# #{public? 28257}#) + #{s 27206}# + #{exp 28140}#)) + (if (eqv? #{type 27201}# 'global) + (#{analyze-variable 4312}# + #{mod 27207}# + #{value 27202}# + (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 27209}# - #{mod 28255}# - #{var 28256}# - #{public? 28257}#)) - (lambda (#{var 28265}#) + #{s 27206}# + #{mod 28252}# + #{var 28253}# + #{public? 28254}#)) + (lambda (#{var 28262}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 27209}# - #{var 28265}#))) - (if (eqv? #{type 27204}# 'call) - (#{chi-call 4377}# - (#{chi 4375}# - (car #{e 27206}#) - #{r 27207}# - #{w 27208}# - #{mod 27210}#) - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) - (if (eqv? #{type 27204}# 'begin-form) - (let ((#{tmp 28443}# + #{s 27206}# + #{var 28262}#))) + (if (eqv? #{type 27201}# 'call) + (#{chi-call 4375}# + (#{chi 4373}# + (car #{e 27203}#) + #{r 27204}# + #{w 27205}# + #{mod 27207}#) + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) + (if (eqv? #{type 27201}# 'begin-form) + (let ((#{tmp 28440}# ($sc-dispatch - #{e 27206}# + #{e 27203}# '(_ any . each-any)))) - (if #{tmp 28443}# + (if #{tmp 28440}# (@apply - (lambda (#{e1 28447}# #{e2 28448}#) - (#{chi-sequence 4370}# - (cons #{e1 28447}# #{e2 28448}#) - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#)) - #{tmp 28443}#) + (lambda (#{e1 28444}# #{e2 28445}#) + (#{chi-sequence 4368}# + (cons #{e1 28444}# #{e2 28445}#) + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#)) + #{tmp 28440}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 27206}#))) - (if (eqv? #{type 27204}# 'local-syntax-form) - (#{chi-local-syntax 4380}# - #{value 27205}# - #{e 27206}# - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}# - #{chi-sequence 4370}#) - (if (eqv? #{type 27204}# 'eval-when-form) - (let ((#{tmp 28628}# + #{e 27203}#))) + (if (eqv? #{type 27201}# 'local-syntax-form) + (#{chi-local-syntax 4378}# + #{value 27202}# + #{e 27203}# + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}# + #{chi-sequence 4368}#) + (if (eqv? #{type 27201}# 'eval-when-form) + (let ((#{tmp 28625}# ($sc-dispatch - #{e 27206}# + #{e 27203}# '(_ each-any any . each-any)))) - (if #{tmp 28628}# + (if #{tmp 28625}# (@apply - (lambda (#{x 28632}# - #{e1 28633}# - #{e2 28634}#) - (let ((#{when-list 28635}# - (#{chi-when-list 4373}# - #{e 27206}# - #{x 28632}# - #{w 27208}#))) - (if (memq 'eval #{when-list 28635}#) - (#{chi-sequence 4370}# - (cons #{e1 28633}# #{e2 28634}#) - #{r 27207}# - #{w 27208}# - #{s 27209}# - #{mod 27210}#) + (lambda (#{x 28629}# + #{e1 28630}# + #{e2 28631}#) + (let ((#{when-list 28632}# + (#{chi-when-list 4371}# + #{e 27203}# + #{x 28629}# + #{w 27205}#))) + (if (memq 'eval #{when-list 28632}#) + (#{chi-sequence 4368}# + (cons #{e1 28630}# #{e2 28631}#) + #{r 27204}# + #{w 27205}# + #{s 27206}# + #{mod 27207}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 28628}#) + #{tmp 28625}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 27206}#))) - (if (if (eqv? #{type 27204}# 'define-form) + #{e 27203}#))) + (if (if (eqv? #{type 27201}# 'define-form) #t - (eqv? #{type 27204}# 'define-syntax-form)) + (eqv? #{type 27201}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 27206}# - (if (if (null? (car #{w 27208}#)) - (null? (cdr #{w 27208}#)) + #{e 27203}# + (if (if (null? (car #{w 27205}#)) + (null? (cdr #{w 27205}#)) #f) - #{value 27205}# - (if (if (vector? #{value 27205}#) - (if (= (vector-length #{value 27205}#) + #{value 27202}# + (if (if (vector? #{value 27202}#) + (if (= (vector-length #{value 27202}#) 4) - (eq? (vector-ref #{value 27205}# 0) + (eq? (vector-ref #{value 27202}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28786}# - (vector-ref #{value 27205}# 1)) - (#{wrap 28787}# - (let ((#{w2 28797}# + (let ((#{expression 28783}# + (vector-ref #{value 27202}# 1)) + (#{wrap 28784}# + (let ((#{w2 28794}# (vector-ref - #{value 27205}# + #{value 27202}# 2))) - (let ((#{m1 28798}# - (car #{w 27208}#)) - (#{s1 28799}# - (cdr #{w 27208}#))) - (if (null? #{m1 28798}#) - (if (null? #{s1 28799}#) - #{w2 28797}# - (cons (car #{w2 28797}#) - (let ((#{m2 28816}# - (cdr #{w2 28797}#))) - (if (null? #{m2 28816}#) - #{s1 28799}# + (let ((#{m1 28795}# + (car #{w 27205}#)) + (#{s1 28796}# + (cdr #{w 27205}#))) + (if (null? #{m1 28795}#) + (if (null? #{s1 28796}#) + #{w2 28794}# + (cons (car #{w2 28794}#) + (let ((#{m2 28813}# + (cdr #{w2 28794}#))) + (if (null? #{m2 28813}#) + #{s1 28796}# (append - #{s1 28799}# - #{m2 28816}#))))) - (cons (let ((#{m2 28824}# - (car #{w2 28797}#))) - (if (null? #{m2 28824}#) - #{m1 28798}# + #{s1 28796}# + #{m2 28813}#))))) + (cons (let ((#{m2 28821}# + (car #{w2 28794}#))) + (if (null? #{m2 28821}#) + #{m1 28795}# (append - #{m1 28798}# - #{m2 28824}#))) - (let ((#{m2 28832}# - (cdr #{w2 28797}#))) - (if (null? #{m2 28832}#) - #{s1 28799}# + #{m1 28795}# + #{m2 28821}#))) + (let ((#{m2 28829}# + (cdr #{w2 28794}#))) + (if (null? #{m2 28829}#) + #{s1 28796}# (append - #{s1 28799}# - #{m2 28832}#)))))))) - (#{module 28788}# - (vector-ref #{value 27205}# 3))) + #{s1 28796}# + #{m2 28829}#)))))))) + (#{module 28785}# + (vector-ref #{value 27202}# 3))) (vector 'syntax-object - #{expression 28786}# - #{wrap 28787}# - #{module 28788}#)) - (if (null? #{value 27205}#) - #{value 27205}# + #{expression 28783}# + #{wrap 28784}# + #{module 28785}#)) + (if (null? #{value 27202}#) + #{value 27202}# (vector 'syntax-object - #{value 27205}# - #{w 27208}# - #{mod 27210}#))))) - (if (eqv? #{type 27204}# 'syntax) + #{value 27202}# + #{w 27205}# + #{mod 27207}#))))) + (if (eqv? #{type 27201}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (let ((#{x 28867}# + (let ((#{x 28864}# (begin - (if (if (pair? #{e 27206}#) - #{s 27209}# + (if (if (pair? #{e 27203}#) + #{s 27206}# #f) (set-source-properties! - #{e 27206}# - #{s 27209}#)) - #{e 27206}#))) - (if (if (null? (car #{w 27208}#)) - (null? (cdr #{w 27208}#)) + #{e 27203}# + #{s 27206}#)) + #{e 27203}#))) + (if (if (null? (car #{w 27205}#)) + (null? (cdr #{w 27205}#)) #f) - #{x 28867}# - (if (if (vector? #{x 28867}#) - (if (= (vector-length #{x 28867}#) + #{x 28864}# + (if (if (vector? #{x 28864}#) + (if (= (vector-length #{x 28864}#) 4) - (eq? (vector-ref #{x 28867}# 0) + (eq? (vector-ref #{x 28864}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28899}# - (vector-ref #{x 28867}# 1)) - (#{wrap 28900}# - (let ((#{w2 28908}# + (let ((#{expression 28896}# + (vector-ref #{x 28864}# 1)) + (#{wrap 28897}# + (let ((#{w2 28905}# (vector-ref - #{x 28867}# + #{x 28864}# 2))) - (let ((#{m1 28909}# - (car #{w 27208}#)) - (#{s1 28910}# - (cdr #{w 27208}#))) - (if (null? #{m1 28909}#) - (if (null? #{s1 28910}#) - #{w2 28908}# - (cons (car #{w2 28908}#) - (let ((#{m2 28925}# - (cdr #{w2 28908}#))) - (if (null? #{m2 28925}#) - #{s1 28910}# + (let ((#{m1 28906}# + (car #{w 27205}#)) + (#{s1 28907}# + (cdr #{w 27205}#))) + (if (null? #{m1 28906}#) + (if (null? #{s1 28907}#) + #{w2 28905}# + (cons (car #{w2 28905}#) + (let ((#{m2 28922}# + (cdr #{w2 28905}#))) + (if (null? #{m2 28922}#) + #{s1 28907}# (append - #{s1 28910}# - #{m2 28925}#))))) - (cons (let ((#{m2 28933}# - (car #{w2 28908}#))) - (if (null? #{m2 28933}#) - #{m1 28909}# + #{s1 28907}# + #{m2 28922}#))))) + (cons (let ((#{m2 28930}# + (car #{w2 28905}#))) + (if (null? #{m2 28930}#) + #{m1 28906}# (append - #{m1 28909}# - #{m2 28933}#))) - (let ((#{m2 28941}# - (cdr #{w2 28908}#))) - (if (null? #{m2 28941}#) - #{s1 28910}# + #{m1 28906}# + #{m2 28930}#))) + (let ((#{m2 28938}# + (cdr #{w2 28905}#))) + (if (null? #{m2 28938}#) + #{s1 28907}# (append - #{s1 28910}# - #{m2 28941}#)))))))) - (#{module 28901}# - (vector-ref #{x 28867}# 3))) + #{s1 28907}# + #{m2 28938}#)))))))) + (#{module 28898}# + (vector-ref #{x 28864}# 3))) (vector 'syntax-object - #{expression 28899}# - #{wrap 28900}# - #{module 28901}#)) - (if (null? #{x 28867}#) - #{x 28867}# + #{expression 28896}# + #{wrap 28897}# + #{module 28898}#)) + (if (null? #{x 28864}#) + #{x 28864}# (vector 'syntax-object - #{x 28867}# - #{w 27208}# - #{mod 27210}#)))))) - (if (eqv? #{type 27204}# 'displaced-lexical) + #{x 28864}# + #{w 27205}# + #{mod 27207}#)))))) + (if (eqv? #{type 27201}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (let ((#{x 28968}# + (let ((#{x 28965}# (begin - (if (if (pair? #{e 27206}#) - #{s 27209}# + (if (if (pair? #{e 27203}#) + #{s 27206}# #f) (set-source-properties! - #{e 27206}# - #{s 27209}#)) - #{e 27206}#))) - (if (if (null? (car #{w 27208}#)) - (null? (cdr #{w 27208}#)) + #{e 27203}# + #{s 27206}#)) + #{e 27203}#))) + (if (if (null? (car #{w 27205}#)) + (null? (cdr #{w 27205}#)) #f) - #{x 28968}# - (if (if (vector? #{x 28968}#) + #{x 28965}# + (if (if (vector? #{x 28965}#) (if (= (vector-length - #{x 28968}#) + #{x 28965}#) 4) (eq? (vector-ref - #{x 28968}# + #{x 28965}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29000}# - (vector-ref #{x 28968}# 1)) - (#{wrap 29001}# - (let ((#{w2 29009}# + (let ((#{expression 28997}# + (vector-ref #{x 28965}# 1)) + (#{wrap 28998}# + (let ((#{w2 29006}# (vector-ref - #{x 28968}# + #{x 28965}# 2))) - (let ((#{m1 29010}# - (car #{w 27208}#)) - (#{s1 29011}# - (cdr #{w 27208}#))) - (if (null? #{m1 29010}#) - (if (null? #{s1 29011}#) - #{w2 29009}# - (cons (car #{w2 29009}#) - (let ((#{m2 29026}# - (cdr #{w2 29009}#))) - (if (null? #{m2 29026}#) - #{s1 29011}# + (let ((#{m1 29007}# + (car #{w 27205}#)) + (#{s1 29008}# + (cdr #{w 27205}#))) + (if (null? #{m1 29007}#) + (if (null? #{s1 29008}#) + #{w2 29006}# + (cons (car #{w2 29006}#) + (let ((#{m2 29023}# + (cdr #{w2 29006}#))) + (if (null? #{m2 29023}#) + #{s1 29008}# (append - #{s1 29011}# - #{m2 29026}#))))) - (cons (let ((#{m2 29034}# - (car #{w2 29009}#))) - (if (null? #{m2 29034}#) - #{m1 29010}# + #{s1 29008}# + #{m2 29023}#))))) + (cons (let ((#{m2 29031}# + (car #{w2 29006}#))) + (if (null? #{m2 29031}#) + #{m1 29007}# (append - #{m1 29010}# - #{m2 29034}#))) - (let ((#{m2 29042}# - (cdr #{w2 29009}#))) - (if (null? #{m2 29042}#) - #{s1 29011}# + #{m1 29007}# + #{m2 29031}#))) + (let ((#{m2 29039}# + (cdr #{w2 29006}#))) + (if (null? #{m2 29039}#) + #{s1 29008}# (append - #{s1 29011}# - #{m2 29042}#)))))))) - (#{module 29002}# - (vector-ref #{x 28968}# 3))) + #{s1 29008}# + #{m2 29039}#)))))))) + (#{module 28999}# + (vector-ref #{x 28965}# 3))) (vector 'syntax-object - #{expression 29000}# - #{wrap 29001}# - #{module 29002}#)) - (if (null? #{x 28968}#) - #{x 28968}# + #{expression 28997}# + #{wrap 28998}# + #{module 28999}#)) + (if (null? #{x 28965}#) + #{x 28965}# (vector 'syntax-object - #{x 28968}# - #{w 27208}# - #{mod 27210}#)))))) + #{x 28965}# + #{w 27205}# + #{mod 27207}#)))))) (syntax-violation #f "unexpected syntax" - (let ((#{x 29066}# + (let ((#{x 29063}# (begin - (if (if (pair? #{e 27206}#) - #{s 27209}# + (if (if (pair? #{e 27203}#) + #{s 27206}# #f) (set-source-properties! - #{e 27206}# - #{s 27209}#)) - #{e 27206}#))) - (if (if (null? (car #{w 27208}#)) - (null? (cdr #{w 27208}#)) + #{e 27203}# + #{s 27206}#)) + #{e 27203}#))) + (if (if (null? (car #{w 27205}#)) + (null? (cdr #{w 27205}#)) #f) - #{x 29066}# - (if (if (vector? #{x 29066}#) + #{x 29063}# + (if (if (vector? #{x 29063}#) (if (= (vector-length - #{x 29066}#) + #{x 29063}#) 4) (eq? (vector-ref - #{x 29066}# + #{x 29063}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29098}# - (vector-ref #{x 29066}# 1)) - (#{wrap 29099}# - (let ((#{w2 29107}# + (let ((#{expression 29095}# + (vector-ref #{x 29063}# 1)) + (#{wrap 29096}# + (let ((#{w2 29104}# (vector-ref - #{x 29066}# + #{x 29063}# 2))) - (let ((#{m1 29108}# - (car #{w 27208}#)) - (#{s1 29109}# - (cdr #{w 27208}#))) - (if (null? #{m1 29108}#) - (if (null? #{s1 29109}#) - #{w2 29107}# - (cons (car #{w2 29107}#) - (let ((#{m2 29124}# - (cdr #{w2 29107}#))) - (if (null? #{m2 29124}#) - #{s1 29109}# + (let ((#{m1 29105}# + (car #{w 27205}#)) + (#{s1 29106}# + (cdr #{w 27205}#))) + (if (null? #{m1 29105}#) + (if (null? #{s1 29106}#) + #{w2 29104}# + (cons (car #{w2 29104}#) + (let ((#{m2 29121}# + (cdr #{w2 29104}#))) + (if (null? #{m2 29121}#) + #{s1 29106}# (append - #{s1 29109}# - #{m2 29124}#))))) - (cons (let ((#{m2 29132}# - (car #{w2 29107}#))) - (if (null? #{m2 29132}#) - #{m1 29108}# + #{s1 29106}# + #{m2 29121}#))))) + (cons (let ((#{m2 29129}# + (car #{w2 29104}#))) + (if (null? #{m2 29129}#) + #{m1 29105}# (append - #{m1 29108}# - #{m2 29132}#))) - (let ((#{m2 29140}# - (cdr #{w2 29107}#))) - (if (null? #{m2 29140}#) - #{s1 29109}# + #{m1 29105}# + #{m2 29129}#))) + (let ((#{m2 29137}# + (cdr #{w2 29104}#))) + (if (null? #{m2 29137}#) + #{s1 29106}# (append - #{s1 29109}# - #{m2 29140}#)))))))) - (#{module 29100}# - (vector-ref #{x 29066}# 3))) + #{s1 29106}# + #{m2 29137}#)))))))) + (#{module 29097}# + (vector-ref #{x 29063}# 3))) (vector 'syntax-object - #{expression 29098}# - #{wrap 29099}# - #{module 29100}#)) - (if (null? #{x 29066}#) - #{x 29066}# + #{expression 29095}# + #{wrap 29096}# + #{module 29097}#)) + (if (null? #{x 29063}#) + #{x 29063}# (vector 'syntax-object - #{x 29066}# - #{w 27208}# - #{mod 27210}#)))))))))))))))))))))) - (#{chi-call 4377}# - (lambda (#{x 29155}# - #{e 29156}# - #{r 29157}# - #{w 29158}# - #{s 29159}# - #{mod 29160}#) - (let ((#{tmp 29162}# - ($sc-dispatch #{e 29156}# '(any . each-any)))) - (if #{tmp 29162}# + #{x 29063}# + #{w 27205}# + #{mod 27207}#)))))))))))))))))))))) + (#{chi-call 4375}# + (lambda (#{x 29152}# + #{e 29153}# + #{r 29154}# + #{w 29155}# + #{s 29156}# + #{mod 29157}#) + (let ((#{tmp 29159}# + ($sc-dispatch #{e 29153}# '(any . each-any)))) + (if #{tmp 29159}# (@apply - (lambda (#{e0 29166}# #{e1 29167}#) - (#{build-call 4309}# - #{s 29159}# - #{x 29155}# - (map (lambda (#{e 29259}#) - (#{chi 4375}# - #{e 29259}# - #{r 29157}# - #{w 29158}# - #{mod 29160}#)) - #{e1 29167}#))) - #{tmp 29162}#) + (lambda (#{e0 29163}# #{e1 29164}#) + (#{build-call 4307}# + #{s 29156}# + #{x 29152}# + (map (lambda (#{e 29256}#) + (#{chi 4373}# + #{e 29256}# + #{r 29154}# + #{w 29155}# + #{mod 29157}#)) + #{e1 29164}#))) + #{tmp 29159}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 29156}#))))) - (#{chi-macro 4378}# - (lambda (#{p 29347}# - #{e 29348}# - #{r 29349}# - #{w 29350}# - #{s 29351}# - #{rib 29352}# - #{mod 29353}#) + #{e 29153}#))))) + (#{chi-macro 4376}# + (lambda (#{p 29344}# + #{e 29345}# + #{r 29346}# + #{w 29347}# + #{s 29348}# + #{rib 29349}# + #{mod 29350}#) (letrec* - ((#{rebuild-macro-output 29354}# - (lambda (#{x 29461}# #{m 29462}#) - (if (pair? #{x 29461}#) - (let ((#{e 29466}# - (cons (#{rebuild-macro-output 29354}# - (car #{x 29461}#) - #{m 29462}#) - (#{rebuild-macro-output 29354}# - (cdr #{x 29461}#) - #{m 29462}#)))) + ((#{rebuild-macro-output 29351}# + (lambda (#{x 29458}# #{m 29459}#) + (if (pair? #{x 29458}#) + (let ((#{e 29463}# + (cons (#{rebuild-macro-output 29351}# + (car #{x 29458}#) + #{m 29459}#) + (#{rebuild-macro-output 29351}# + (cdr #{x 29458}#) + #{m 29459}#)))) (begin - (if (if (pair? #{e 29466}#) #{s 29351}# #f) - (set-source-properties! #{e 29466}# #{s 29351}#)) - #{e 29466}#)) - (if (if (vector? #{x 29461}#) - (if (= (vector-length #{x 29461}#) 4) - (eq? (vector-ref #{x 29461}# 0) 'syntax-object) + (if (if (pair? #{e 29463}#) #{s 29348}# #f) + (set-source-properties! #{e 29463}# #{s 29348}#)) + #{e 29463}#)) + (if (if (vector? #{x 29458}#) + (if (= (vector-length #{x 29458}#) 4) + (eq? (vector-ref #{x 29458}# 0) 'syntax-object) #f) #f) - (let ((#{w 29482}# (vector-ref #{x 29461}# 2))) - (let ((#{ms 29483}# (car #{w 29482}#)) - (#{s 29484}# (cdr #{w 29482}#))) - (if (if (pair? #{ms 29483}#) - (eq? (car #{ms 29483}#) #f) + (let ((#{w 29479}# (vector-ref #{x 29458}# 2))) + (let ((#{ms 29480}# (car #{w 29479}#)) + (#{s 29481}# (cdr #{w 29479}#))) + (if (if (pair? #{ms 29480}#) + (eq? (car #{ms 29480}#) #f) #f) - (let ((#{expression 29492}# (vector-ref #{x 29461}# 1)) - (#{wrap 29493}# - (cons (cdr #{ms 29483}#) - (if #{rib 29352}# - (cons #{rib 29352}# (cdr #{s 29484}#)) - (cdr #{s 29484}#)))) - (#{module 29494}# (vector-ref #{x 29461}# 3))) + (let ((#{expression 29489}# (vector-ref #{x 29458}# 1)) + (#{wrap 29490}# + (cons (cdr #{ms 29480}#) + (if #{rib 29349}# + (cons #{rib 29349}# (cdr #{s 29481}#)) + (cdr #{s 29481}#)))) + (#{module 29491}# (vector-ref #{x 29458}# 3))) (vector 'syntax-object - #{expression 29492}# - #{wrap 29493}# - #{module 29494}#)) - (let ((#{expression 29504}# - (let ((#{e 29509}# (vector-ref #{x 29461}# 1))) + #{expression 29489}# + #{wrap 29490}# + #{module 29491}#)) + (let ((#{expression 29501}# + (let ((#{e 29506}# (vector-ref #{x 29458}# 1))) (begin - (if (if (pair? #{e 29509}#) #{s 29484}# #f) + (if (if (pair? #{e 29506}#) #{s 29481}# #f) (set-source-properties! - #{e 29509}# - #{s 29484}#)) - #{e 29509}#))) - (#{wrap 29505}# - (cons (cons #{m 29462}# #{ms 29483}#) - (if #{rib 29352}# - (cons #{rib 29352}# - (cons 'shift #{s 29484}#)) - (cons 'shift #{s 29484}#)))) - (#{module 29506}# (vector-ref #{x 29461}# 3))) + #{e 29506}# + #{s 29481}#)) + #{e 29506}#))) + (#{wrap 29502}# + (cons (cons #{m 29459}# #{ms 29480}#) + (if #{rib 29349}# + (cons #{rib 29349}# + (cons 'shift #{s 29481}#)) + (cons 'shift #{s 29481}#)))) + (#{module 29503}# (vector-ref #{x 29458}# 3))) (vector 'syntax-object - #{expression 29504}# - #{wrap 29505}# - #{module 29506}#))))) - (if (vector? #{x 29461}#) - (let ((#{n 29521}# (vector-length #{x 29461}#))) - (let ((#{v 29522}# - (let ((#{e 29530}# (make-vector #{n 29521}#))) + #{expression 29501}# + #{wrap 29502}# + #{module 29503}#))))) + (if (vector? #{x 29458}#) + (let ((#{n 29518}# (vector-length #{x 29458}#))) + (let ((#{v 29519}# + (let ((#{e 29527}# (make-vector #{n 29518}#))) (begin - (if (if (pair? #{e 29530}#) #{x 29461}# #f) + (if (if (pair? #{e 29527}#) #{x 29458}# #f) (set-source-properties! - #{e 29530}# - #{x 29461}#)) - #{e 29530}#)))) + #{e 29527}# + #{x 29458}#)) + #{e 29527}#)))) (letrec* - ((#{loop 29523}# - (lambda (#{i 29584}#) - (if (= #{i 29584}# #{n 29521}#) - #{v 29522}# + ((#{loop 29520}# + (lambda (#{i 29581}#) + (if (= #{i 29581}# #{n 29518}#) + #{v 29519}# (begin (vector-set! - #{v 29522}# - #{i 29584}# - (#{rebuild-macro-output 29354}# - (vector-ref #{x 29461}# #{i 29584}#) - #{m 29462}#)) - (#{loop 29523}# (#{1+}# #{i 29584}#))))))) - (#{loop 29523}# 0)))) - (if (symbol? #{x 29461}#) + #{v 29519}# + #{i 29581}# + (#{rebuild-macro-output 29351}# + (vector-ref #{x 29458}# #{i 29581}#) + #{m 29459}#)) + (#{loop 29520}# (#{1+}# #{i 29581}#))))))) + (#{loop 29520}# 0)))) + (if (symbol? #{x 29458}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 29590}# (cdr #{w 29350}#))) - (let ((#{x 29594}# + (let ((#{s 29587}# (cdr #{w 29347}#))) + (let ((#{x 29591}# (begin - (if (if (pair? #{e 29348}#) #{s 29590}# #f) + (if (if (pair? #{e 29345}#) #{s 29587}# #f) (set-source-properties! - #{e 29348}# - #{s 29590}#)) - #{e 29348}#))) - (if (if (null? (car #{w 29350}#)) - (null? (cdr #{w 29350}#)) + #{e 29345}# + #{s 29587}#)) + #{e 29345}#))) + (if (if (null? (car #{w 29347}#)) + (null? (cdr #{w 29347}#)) #f) - #{x 29594}# - (if (if (vector? #{x 29594}#) - (if (= (vector-length #{x 29594}#) 4) - (eq? (vector-ref #{x 29594}# 0) + #{x 29591}# + (if (if (vector? #{x 29591}#) + (if (= (vector-length #{x 29591}#) 4) + (eq? (vector-ref #{x 29591}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29626}# - (vector-ref #{x 29594}# 1)) - (#{wrap 29627}# - (let ((#{w2 29635}# - (vector-ref #{x 29594}# 2))) - (let ((#{m1 29636}# - (car #{w 29350}#)) - (#{s1 29637}# - (cdr #{w 29350}#))) - (if (null? #{m1 29636}#) - (if (null? #{s1 29637}#) - #{w2 29635}# - (cons (car #{w2 29635}#) - (let ((#{m2 29652}# - (cdr #{w2 29635}#))) - (if (null? #{m2 29652}#) - #{s1 29637}# + (let ((#{expression 29623}# + (vector-ref #{x 29591}# 1)) + (#{wrap 29624}# + (let ((#{w2 29632}# + (vector-ref #{x 29591}# 2))) + (let ((#{m1 29633}# + (car #{w 29347}#)) + (#{s1 29634}# + (cdr #{w 29347}#))) + (if (null? #{m1 29633}#) + (if (null? #{s1 29634}#) + #{w2 29632}# + (cons (car #{w2 29632}#) + (let ((#{m2 29649}# + (cdr #{w2 29632}#))) + (if (null? #{m2 29649}#) + #{s1 29634}# (append - #{s1 29637}# - #{m2 29652}#))))) - (cons (let ((#{m2 29660}# - (car #{w2 29635}#))) - (if (null? #{m2 29660}#) - #{m1 29636}# + #{s1 29634}# + #{m2 29649}#))))) + (cons (let ((#{m2 29657}# + (car #{w2 29632}#))) + (if (null? #{m2 29657}#) + #{m1 29633}# (append - #{m1 29636}# - #{m2 29660}#))) - (let ((#{m2 29668}# - (cdr #{w2 29635}#))) - (if (null? #{m2 29668}#) - #{s1 29637}# + #{m1 29633}# + #{m2 29657}#))) + (let ((#{m2 29665}# + (cdr #{w2 29632}#))) + (if (null? #{m2 29665}#) + #{s1 29634}# (append - #{s1 29637}# - #{m2 29668}#)))))))) - (#{module 29628}# - (vector-ref #{x 29594}# 3))) + #{s1 29634}# + #{m2 29665}#)))))))) + (#{module 29625}# + (vector-ref #{x 29591}# 3))) (vector 'syntax-object - #{expression 29626}# - #{wrap 29627}# - #{module 29628}#)) - (if (null? #{x 29594}#) - #{x 29594}# + #{expression 29623}# + #{wrap 29624}# + #{module 29625}#)) + (if (null? #{x 29591}#) + #{x 29591}# (vector 'syntax-object - #{x 29594}# - #{w 29350}# - #{mod 29353}#)))))) - #{x 29461}#) + #{x 29591}# + #{w 29347}# + #{mod 29350}#)))))) + #{x 29458}#) (begin - (if (if (pair? #{x 29461}#) #{s 29351}# #f) - (set-source-properties! #{x 29461}# #{s 29351}#)) - #{x 29461}#)))))))) - (#{rebuild-macro-output 29354}# - (#{p 29347}# - (let ((#{w 29361}# - (cons (cons #f (car #{w 29350}#)) - (cons 'shift (cdr #{w 29350}#))))) - (let ((#{x 29366}# + (if (if (pair? #{x 29458}#) #{s 29348}# #f) + (set-source-properties! #{x 29458}# #{s 29348}#)) + #{x 29458}#)))))))) + (#{rebuild-macro-output 29351}# + (#{p 29344}# + (let ((#{w 29358}# + (cons (cons #f (car #{w 29347}#)) + (cons 'shift (cdr #{w 29347}#))))) + (let ((#{x 29363}# (begin - (if (if (pair? #{e 29348}#) #{s 29351}# #f) - (set-source-properties! #{e 29348}# #{s 29351}#)) - #{e 29348}#))) - (if (if (null? (car #{w 29361}#)) - (null? (cdr #{w 29361}#)) + (if (if (pair? #{e 29345}#) #{s 29348}# #f) + (set-source-properties! #{e 29345}# #{s 29348}#)) + #{e 29345}#))) + (if (if (null? (car #{w 29358}#)) + (null? (cdr #{w 29358}#)) #f) - #{x 29366}# - (if (if (vector? #{x 29366}#) - (if (= (vector-length #{x 29366}#) 4) - (eq? (vector-ref #{x 29366}# 0) 'syntax-object) + #{x 29363}# + (if (if (vector? #{x 29363}#) + (if (= (vector-length #{x 29363}#) 4) + (eq? (vector-ref #{x 29363}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29404}# (vector-ref #{x 29366}# 1)) - (#{wrap 29405}# - (let ((#{w2 29413}# (vector-ref #{x 29366}# 2))) - (let ((#{m1 29414}# (car #{w 29361}#)) - (#{s1 29415}# (cdr #{w 29361}#))) - (if (null? #{m1 29414}#) - (if (null? #{s1 29415}#) - #{w2 29413}# - (cons (car #{w2 29413}#) - (let ((#{m2 29430}# - (cdr #{w2 29413}#))) - (if (null? #{m2 29430}#) - #{s1 29415}# + (let ((#{expression 29401}# (vector-ref #{x 29363}# 1)) + (#{wrap 29402}# + (let ((#{w2 29410}# (vector-ref #{x 29363}# 2))) + (let ((#{m1 29411}# (car #{w 29358}#)) + (#{s1 29412}# (cdr #{w 29358}#))) + (if (null? #{m1 29411}#) + (if (null? #{s1 29412}#) + #{w2 29410}# + (cons (car #{w2 29410}#) + (let ((#{m2 29427}# + (cdr #{w2 29410}#))) + (if (null? #{m2 29427}#) + #{s1 29412}# (append - #{s1 29415}# - #{m2 29430}#))))) - (cons (let ((#{m2 29438}# - (car #{w2 29413}#))) - (if (null? #{m2 29438}#) - #{m1 29414}# + #{s1 29412}# + #{m2 29427}#))))) + (cons (let ((#{m2 29435}# + (car #{w2 29410}#))) + (if (null? #{m2 29435}#) + #{m1 29411}# (append - #{m1 29414}# - #{m2 29438}#))) - (let ((#{m2 29446}# - (cdr #{w2 29413}#))) - (if (null? #{m2 29446}#) - #{s1 29415}# + #{m1 29411}# + #{m2 29435}#))) + (let ((#{m2 29443}# + (cdr #{w2 29410}#))) + (if (null? #{m2 29443}#) + #{s1 29412}# (append - #{s1 29415}# - #{m2 29446}#)))))))) - (#{module 29406}# (vector-ref #{x 29366}# 3))) + #{s1 29412}# + #{m2 29443}#)))))))) + (#{module 29403}# (vector-ref #{x 29363}# 3))) (vector 'syntax-object - #{expression 29404}# - #{wrap 29405}# - #{module 29406}#)) - (if (null? #{x 29366}#) - #{x 29366}# + #{expression 29401}# + #{wrap 29402}# + #{module 29403}#)) + (if (null? #{x 29363}#) + #{x 29363}# (vector 'syntax-object - #{x 29366}# - #{w 29361}# - #{mod 29353}#))))))) + #{x 29363}# + #{w 29358}# + #{mod 29350}#))))))) (gensym "m"))))) - (#{chi-body 4379}# - (lambda (#{body 29698}# - #{outer-form 29699}# - #{r 29700}# - #{w 29701}# - #{mod 29702}#) - (let ((#{r 29703}# - (cons '("placeholder" placeholder) #{r 29700}#))) - (let ((#{ribcage 29704}# (vector 'ribcage '() '() '()))) - (let ((#{w 29705}# - (cons (car #{w 29701}#) - (cons #{ribcage 29704}# (cdr #{w 29701}#))))) + (#{chi-body 4377}# + (lambda (#{body 29695}# + #{outer-form 29696}# + #{r 29697}# + #{w 29698}# + #{mod 29699}#) + (let ((#{r 29700}# + (cons '("placeholder" placeholder) #{r 29697}#))) + (let ((#{ribcage 29701}# (vector 'ribcage '() '() '()))) + (let ((#{w 29702}# + (cons (car #{w 29698}#) + (cons #{ribcage 29701}# (cdr #{w 29698}#))))) (letrec* - ((#{parse 29706}# - (lambda (#{body 29814}# - #{ids 29815}# - #{labels 29816}# - #{var-ids 29817}# - #{vars 29818}# - #{vals 29819}# - #{bindings 29820}#) - (if (null? #{body 29814}#) + ((#{parse 29703}# + (lambda (#{body 29811}# + #{ids 29812}# + #{labels 29813}# + #{var-ids 29814}# + #{vars 29815}# + #{vals 29816}# + #{bindings 29817}#) + (if (null? #{body 29811}#) (syntax-violation #f "no expressions in body" - #{outer-form 29699}#) - (let ((#{e 29821}# (cdr (car #{body 29814}#))) - (#{er 29822}# (car (car #{body 29814}#)))) + #{outer-form 29696}#) + (let ((#{e 29818}# (cdr (car #{body 29811}#))) + (#{er 29819}# (car (car #{body 29811}#)))) (call-with-values (lambda () - (#{syntax-type 4374}# - #{e 29821}# - #{er 29822}# + (#{syntax-type 4372}# + #{e 29818}# + #{er 29819}# '(()) - (#{source-annotation 4336}# #{er 29822}#) - #{ribcage 29704}# - #{mod 29702}# + (#{source-annotation 4334}# #{er 29819}#) + #{ribcage 29701}# + #{mod 29699}# #f)) - (lambda (#{type 30028}# - #{value 30029}# - #{e 30030}# - #{w 30031}# - #{s 30032}# - #{mod 30033}#) - (if (eqv? #{type 30028}# 'define-form) - (let ((#{id 30037}# - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + (lambda (#{type 30025}# + #{value 30026}# + #{e 30027}# + #{w 30028}# + #{s 30029}# + #{mod 30030}#) + (if (eqv? #{type 30025}# 'define-form) + (let ((#{id 30034}# + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{value 30029}# - (if (if (vector? #{value 30029}#) + #{value 30026}# + (if (if (vector? #{value 30026}#) (if (= (vector-length - #{value 30029}#) + #{value 30026}#) 4) (eq? (vector-ref - #{value 30029}# + #{value 30026}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30082}# + (let ((#{expression 30079}# (vector-ref - #{value 30029}# + #{value 30026}# 1)) - (#{wrap 30083}# - (let ((#{w2 30093}# + (#{wrap 30080}# + (let ((#{w2 30090}# (vector-ref - #{value 30029}# + #{value 30026}# 2))) - (let ((#{m1 30094}# - (car #{w 30031}#)) - (#{s1 30095}# - (cdr #{w 30031}#))) - (if (null? #{m1 30094}#) - (if (null? #{s1 30095}#) - #{w2 30093}# - (cons (car #{w2 30093}#) - (let ((#{m2 30112}# - (cdr #{w2 30093}#))) - (if (null? #{m2 30112}#) - #{s1 30095}# + (let ((#{m1 30091}# + (car #{w 30028}#)) + (#{s1 30092}# + (cdr #{w 30028}#))) + (if (null? #{m1 30091}#) + (if (null? #{s1 30092}#) + #{w2 30090}# + (cons (car #{w2 30090}#) + (let ((#{m2 30109}# + (cdr #{w2 30090}#))) + (if (null? #{m2 30109}#) + #{s1 30092}# (append - #{s1 30095}# - #{m2 30112}#))))) - (cons (let ((#{m2 30120}# - (car #{w2 30093}#))) - (if (null? #{m2 30120}#) - #{m1 30094}# + #{s1 30092}# + #{m2 30109}#))))) + (cons (let ((#{m2 30117}# + (car #{w2 30090}#))) + (if (null? #{m2 30117}#) + #{m1 30091}# (append - #{m1 30094}# - #{m2 30120}#))) - (let ((#{m2 30128}# - (cdr #{w2 30093}#))) - (if (null? #{m2 30128}#) - #{s1 30095}# + #{m1 30091}# + #{m2 30117}#))) + (let ((#{m2 30125}# + (cdr #{w2 30090}#))) + (if (null? #{m2 30125}#) + #{s1 30092}# (append - #{s1 30095}# - #{m2 30128}#)))))))) - (#{module 30084}# + #{s1 30092}# + #{m2 30125}#)))))))) + (#{module 30081}# (vector-ref - #{value 30029}# + #{value 30026}# 3))) (vector 'syntax-object - #{expression 30082}# - #{wrap 30083}# - #{module 30084}#)) - (if (null? #{value 30029}#) - #{value 30029}# + #{expression 30079}# + #{wrap 30080}# + #{module 30081}#)) + (if (null? #{value 30026}#) + #{value 30026}# (vector 'syntax-object - #{value 30029}# - #{w 30031}# - #{mod 30033}#))))) - (#{label 30038}# + #{value 30026}# + #{w 30028}# + #{mod 30030}#))))) + (#{label 30035}# (symbol->string (gensym "i")))) - (let ((#{var 30039}# - (let ((#{id 30189}# - (if (if (vector? #{id 30037}#) + (let ((#{var 30036}# + (let ((#{id 30186}# + (if (if (vector? #{id 30034}#) (if (= (vector-length - #{id 30037}#) + #{id 30034}#) 4) (eq? (vector-ref - #{id 30037}# + #{id 30034}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 30037}# 1) - #{id 30037}#))) + (vector-ref #{id 30034}# 1) + #{id 30034}#))) (gensym (string-append - (symbol->string #{id 30189}#) + (symbol->string #{id 30186}#) " "))))) (begin (begin - (let ((#{update 30048}# - (cons (vector-ref #{id 30037}# 1) + (let ((#{update 30045}# + (cons (vector-ref #{id 30034}# 1) (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 1)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 1 - #{update 30048}#)) - (let ((#{update 30160}# + #{update 30045}#)) + (let ((#{update 30157}# (cons (car (vector-ref - #{id 30037}# + #{id 30034}# 2)) (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 2)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 2 - #{update 30160}#)) - (let ((#{update 30175}# - (cons #{label 30038}# + #{update 30157}#)) + (let ((#{update 30172}# + (cons #{label 30035}# (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 3)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 3 - #{update 30175}#))) - (#{parse 29706}# - (cdr #{body 29814}#) - (cons #{id 30037}# #{ids 29815}#) - (cons #{label 30038}# #{labels 29816}#) - (cons #{id 30037}# #{var-ids 29817}#) - (cons #{var 30039}# #{vars 29818}#) - (cons (cons #{er 29822}# - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + #{update 30172}#))) + (#{parse 29703}# + (cdr #{body 29811}#) + (cons #{id 30034}# #{ids 29812}#) + (cons #{label 30035}# #{labels 29813}#) + (cons #{id 30034}# #{var-ids 29814}#) + (cons #{var 30036}# #{vars 29815}#) + (cons (cons #{er 29819}# + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{e 30030}# + #{e 30027}# (if (if (vector? - #{e 30030}#) + #{e 30027}#) (if (= (vector-length - #{e 30030}#) + #{e 30027}#) 4) (eq? (vector-ref - #{e 30030}# + #{e 30027}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30241}# + (let ((#{expression 30238}# (vector-ref - #{e 30030}# + #{e 30027}# 1)) - (#{wrap 30242}# - (let ((#{w2 30252}# + (#{wrap 30239}# + (let ((#{w2 30249}# (vector-ref - #{e 30030}# + #{e 30027}# 2))) - (let ((#{m1 30253}# - (car #{w 30031}#)) - (#{s1 30254}# - (cdr #{w 30031}#))) - (if (null? #{m1 30253}#) - (if (null? #{s1 30254}#) - #{w2 30252}# - (cons (car #{w2 30252}#) - (let ((#{m2 30271}# - (cdr #{w2 30252}#))) - (if (null? #{m2 30271}#) - #{s1 30254}# + (let ((#{m1 30250}# + (car #{w 30028}#)) + (#{s1 30251}# + (cdr #{w 30028}#))) + (if (null? #{m1 30250}#) + (if (null? #{s1 30251}#) + #{w2 30249}# + (cons (car #{w2 30249}#) + (let ((#{m2 30268}# + (cdr #{w2 30249}#))) + (if (null? #{m2 30268}#) + #{s1 30251}# (append - #{s1 30254}# - #{m2 30271}#))))) - (cons (let ((#{m2 30279}# - (car #{w2 30252}#))) - (if (null? #{m2 30279}#) - #{m1 30253}# + #{s1 30251}# + #{m2 30268}#))))) + (cons (let ((#{m2 30276}# + (car #{w2 30249}#))) + (if (null? #{m2 30276}#) + #{m1 30250}# (append - #{m1 30253}# - #{m2 30279}#))) - (let ((#{m2 30287}# - (cdr #{w2 30252}#))) - (if (null? #{m2 30287}#) - #{s1 30254}# + #{m1 30250}# + #{m2 30276}#))) + (let ((#{m2 30284}# + (cdr #{w2 30249}#))) + (if (null? #{m2 30284}#) + #{s1 30251}# (append - #{s1 30254}# - #{m2 30287}#)))))))) - (#{module 30243}# + #{s1 30251}# + #{m2 30284}#)))))))) + (#{module 30240}# (vector-ref - #{e 30030}# + #{e 30027}# 3))) (vector 'syntax-object - #{expression 30241}# - #{wrap 30242}# - #{module 30243}#)) - (if (null? #{e 30030}#) - #{e 30030}# + #{expression 30238}# + #{wrap 30239}# + #{module 30240}#)) + (if (null? #{e 30027}#) + #{e 30027}# (vector 'syntax-object - #{e 30030}# - #{w 30031}# - #{mod 30033}#))))) - #{vals 29819}#) - (cons (cons 'lexical #{var 30039}#) - #{bindings 29820}#))))) - (if (eqv? #{type 30028}# 'define-syntax-form) - (let ((#{id 30313}# - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + #{e 30027}# + #{w 30028}# + #{mod 30030}#))))) + #{vals 29816}#) + (cons (cons 'lexical #{var 30036}#) + #{bindings 29817}#))))) + (if (eqv? #{type 30025}# 'define-syntax-form) + (let ((#{id 30310}# + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{value 30029}# - (if (if (vector? #{value 30029}#) + #{value 30026}# + (if (if (vector? #{value 30026}#) (if (= (vector-length - #{value 30029}#) + #{value 30026}#) 4) (eq? (vector-ref - #{value 30029}# + #{value 30026}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30357}# + (let ((#{expression 30354}# (vector-ref - #{value 30029}# + #{value 30026}# 1)) - (#{wrap 30358}# - (let ((#{w2 30368}# + (#{wrap 30355}# + (let ((#{w2 30365}# (vector-ref - #{value 30029}# + #{value 30026}# 2))) - (let ((#{m1 30369}# - (car #{w 30031}#)) - (#{s1 30370}# - (cdr #{w 30031}#))) - (if (null? #{m1 30369}#) - (if (null? #{s1 30370}#) - #{w2 30368}# - (cons (car #{w2 30368}#) - (let ((#{m2 30387}# - (cdr #{w2 30368}#))) - (if (null? #{m2 30387}#) - #{s1 30370}# + (let ((#{m1 30366}# + (car #{w 30028}#)) + (#{s1 30367}# + (cdr #{w 30028}#))) + (if (null? #{m1 30366}#) + (if (null? #{s1 30367}#) + #{w2 30365}# + (cons (car #{w2 30365}#) + (let ((#{m2 30384}# + (cdr #{w2 30365}#))) + (if (null? #{m2 30384}#) + #{s1 30367}# (append - #{s1 30370}# - #{m2 30387}#))))) - (cons (let ((#{m2 30395}# - (car #{w2 30368}#))) - (if (null? #{m2 30395}#) - #{m1 30369}# + #{s1 30367}# + #{m2 30384}#))))) + (cons (let ((#{m2 30392}# + (car #{w2 30365}#))) + (if (null? #{m2 30392}#) + #{m1 30366}# (append - #{m1 30369}# - #{m2 30395}#))) - (let ((#{m2 30403}# - (cdr #{w2 30368}#))) - (if (null? #{m2 30403}#) - #{s1 30370}# + #{m1 30366}# + #{m2 30392}#))) + (let ((#{m2 30400}# + (cdr #{w2 30365}#))) + (if (null? #{m2 30400}#) + #{s1 30367}# (append - #{s1 30370}# - #{m2 30403}#)))))))) - (#{module 30359}# + #{s1 30367}# + #{m2 30400}#)))))))) + (#{module 30356}# (vector-ref - #{value 30029}# + #{value 30026}# 3))) (vector 'syntax-object - #{expression 30357}# - #{wrap 30358}# - #{module 30359}#)) - (if (null? #{value 30029}#) - #{value 30029}# + #{expression 30354}# + #{wrap 30355}# + #{module 30356}#)) + (if (null? #{value 30026}#) + #{value 30026}# (vector 'syntax-object - #{value 30029}# - #{w 30031}# - #{mod 30033}#))))) - (#{label 30314}# + #{value 30026}# + #{w 30028}# + #{mod 30030}#))))) + (#{label 30311}# (symbol->string (gensym "i")))) (begin (begin - (let ((#{update 30323}# - (cons (vector-ref #{id 30313}# 1) + (let ((#{update 30320}# + (cons (vector-ref #{id 30310}# 1) (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 1)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 1 - #{update 30323}#)) - (let ((#{update 30435}# + #{update 30320}#)) + (let ((#{update 30432}# (cons (car (vector-ref - #{id 30313}# + #{id 30310}# 2)) (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 2)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 2 - #{update 30435}#)) - (let ((#{update 30450}# - (cons #{label 30314}# + #{update 30432}#)) + (let ((#{update 30447}# + (cons #{label 30311}# (vector-ref - #{ribcage 29704}# + #{ribcage 29701}# 3)))) (vector-set! - #{ribcage 29704}# + #{ribcage 29701}# 3 - #{update 30450}#))) - (#{parse 29706}# - (cdr #{body 29814}#) - (cons #{id 30313}# #{ids 29815}#) - (cons #{label 30314}# #{labels 29816}#) - #{var-ids 29817}# - #{vars 29818}# - #{vals 29819}# + #{update 30447}#))) + (#{parse 29703}# + (cdr #{body 29811}#) + (cons #{id 30310}# #{ids 29812}#) + (cons #{label 30311}# #{labels 29813}#) + #{var-ids 29814}# + #{vars 29815}# + #{vals 29816}# (cons (cons 'macro - (cons #{er 29822}# - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + (cons #{er 29819}# + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{e 30030}# + #{e 30027}# (if (if (vector? - #{e 30030}#) + #{e 30027}#) (if (= (vector-length - #{e 30030}#) + #{e 30027}#) 4) (eq? (vector-ref - #{e 30030}# + #{e 30027}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30489}# + (let ((#{expression 30486}# (vector-ref - #{e 30030}# + #{e 30027}# 1)) - (#{wrap 30490}# - (let ((#{w2 30500}# + (#{wrap 30487}# + (let ((#{w2 30497}# (vector-ref - #{e 30030}# + #{e 30027}# 2))) - (let ((#{m1 30501}# - (car #{w 30031}#)) - (#{s1 30502}# - (cdr #{w 30031}#))) - (if (null? #{m1 30501}#) - (if (null? #{s1 30502}#) - #{w2 30500}# - (cons (car #{w2 30500}#) - (let ((#{m2 30519}# - (cdr #{w2 30500}#))) - (if (null? #{m2 30519}#) - #{s1 30502}# + (let ((#{m1 30498}# + (car #{w 30028}#)) + (#{s1 30499}# + (cdr #{w 30028}#))) + (if (null? #{m1 30498}#) + (if (null? #{s1 30499}#) + #{w2 30497}# + (cons (car #{w2 30497}#) + (let ((#{m2 30516}# + (cdr #{w2 30497}#))) + (if (null? #{m2 30516}#) + #{s1 30499}# (append - #{s1 30502}# - #{m2 30519}#))))) - (cons (let ((#{m2 30527}# - (car #{w2 30500}#))) - (if (null? #{m2 30527}#) - #{m1 30501}# + #{s1 30499}# + #{m2 30516}#))))) + (cons (let ((#{m2 30524}# + (car #{w2 30497}#))) + (if (null? #{m2 30524}#) + #{m1 30498}# (append - #{m1 30501}# - #{m2 30527}#))) - (let ((#{m2 30535}# - (cdr #{w2 30500}#))) - (if (null? #{m2 30535}#) - #{s1 30502}# + #{m1 30498}# + #{m2 30524}#))) + (let ((#{m2 30532}# + (cdr #{w2 30497}#))) + (if (null? #{m2 30532}#) + #{s1 30499}# (append - #{s1 30502}# - #{m2 30535}#)))))))) - (#{module 30491}# + #{s1 30499}# + #{m2 30532}#)))))))) + (#{module 30488}# (vector-ref - #{e 30030}# + #{e 30027}# 3))) (vector 'syntax-object - #{expression 30489}# - #{wrap 30490}# - #{module 30491}#)) - (if (null? #{e 30030}#) - #{e 30030}# + #{expression 30486}# + #{wrap 30487}# + #{module 30488}#)) + (if (null? #{e 30027}#) + #{e 30027}# (vector 'syntax-object - #{e 30030}# - #{w 30031}# - #{mod 30033}#)))))) - #{bindings 29820}#)))) - (if (eqv? #{type 30028}# 'begin-form) - (let ((#{tmp 30562}# + #{e 30027}# + #{w 30028}# + #{mod 30030}#)))))) + #{bindings 29817}#)))) + (if (eqv? #{type 30025}# 'begin-form) + (let ((#{tmp 30559}# ($sc-dispatch - #{e 30030}# + #{e 30027}# '(_ . each-any)))) - (if #{tmp 30562}# + (if #{tmp 30559}# (@apply - (lambda (#{e1 30566}#) - (#{parse 29706}# + (lambda (#{e1 30563}#) + (#{parse 29703}# (letrec* - ((#{f 30567}# - (lambda (#{forms 30783}#) - (if (null? #{forms 30783}#) - (cdr #{body 29814}#) - (cons (cons #{er 29822}# - (let ((#{x 30787}# - (car #{forms 30783}#))) - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + ((#{f 30564}# + (lambda (#{forms 30780}#) + (if (null? #{forms 30780}#) + (cdr #{body 29811}#) + (cons (cons #{er 29819}# + (let ((#{x 30784}# + (car #{forms 30780}#))) + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{x 30787}# + #{x 30784}# (if (if (vector? - #{x 30787}#) + #{x 30784}#) (if (= (vector-length - #{x 30787}#) + #{x 30784}#) 4) (eq? (vector-ref - #{x 30787}# + #{x 30784}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30805}# + (let ((#{expression 30802}# (vector-ref - #{x 30787}# + #{x 30784}# 1)) - (#{wrap 30806}# - (let ((#{w2 30814}# + (#{wrap 30803}# + (let ((#{w2 30811}# (vector-ref - #{x 30787}# + #{x 30784}# 2))) - (let ((#{m1 30815}# - (car #{w 30031}#)) - (#{s1 30816}# - (cdr #{w 30031}#))) - (if (null? #{m1 30815}#) - (if (null? #{s1 30816}#) - #{w2 30814}# - (cons (car #{w2 30814}#) - (let ((#{m2 30831}# - (cdr #{w2 30814}#))) - (if (null? #{m2 30831}#) - #{s1 30816}# + (let ((#{m1 30812}# + (car #{w 30028}#)) + (#{s1 30813}# + (cdr #{w 30028}#))) + (if (null? #{m1 30812}#) + (if (null? #{s1 30813}#) + #{w2 30811}# + (cons (car #{w2 30811}#) + (let ((#{m2 30828}# + (cdr #{w2 30811}#))) + (if (null? #{m2 30828}#) + #{s1 30813}# (append - #{s1 30816}# - #{m2 30831}#))))) - (cons (let ((#{m2 30839}# - (car #{w2 30814}#))) - (if (null? #{m2 30839}#) - #{m1 30815}# + #{s1 30813}# + #{m2 30828}#))))) + (cons (let ((#{m2 30836}# + (car #{w2 30811}#))) + (if (null? #{m2 30836}#) + #{m1 30812}# (append - #{m1 30815}# - #{m2 30839}#))) - (let ((#{m2 30847}# - (cdr #{w2 30814}#))) - (if (null? #{m2 30847}#) - #{s1 30816}# + #{m1 30812}# + #{m2 30836}#))) + (let ((#{m2 30844}# + (cdr #{w2 30811}#))) + (if (null? #{m2 30844}#) + #{s1 30813}# (append - #{s1 30816}# - #{m2 30847}#)))))))) - (#{module 30807}# + #{s1 30813}# + #{m2 30844}#)))))))) + (#{module 30804}# (vector-ref - #{x 30787}# + #{x 30784}# 3))) (vector 'syntax-object - #{expression 30805}# - #{wrap 30806}# - #{module 30807}#)) - (if (null? #{x 30787}#) - #{x 30787}# + #{expression 30802}# + #{wrap 30803}# + #{module 30804}#)) + (if (null? #{x 30784}#) + #{x 30784}# (vector 'syntax-object - #{x 30787}# - #{w 30031}# - #{mod 30033}#)))))) - (#{f 30567}# - (cdr #{forms 30783}#))))))) - (#{f 30567}# #{e1 30566}#)) - #{ids 29815}# - #{labels 29816}# - #{var-ids 29817}# - #{vars 29818}# - #{vals 29819}# - #{bindings 29820}#)) - #{tmp 30562}#) + #{x 30784}# + #{w 30028}# + #{mod 30030}#)))))) + (#{f 30564}# + (cdr #{forms 30780}#))))))) + (#{f 30564}# #{e1 30563}#)) + #{ids 29812}# + #{labels 29813}# + #{var-ids 29814}# + #{vars 29815}# + #{vals 29816}# + #{bindings 29817}#)) + #{tmp 30559}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 30030}#))) - (if (eqv? #{type 30028}# 'local-syntax-form) - (#{chi-local-syntax 4380}# - #{value 30029}# - #{e 30030}# - #{er 29822}# - #{w 30031}# - #{s 30032}# - #{mod 30033}# - (lambda (#{forms 30873}# - #{er 30874}# - #{w 30875}# - #{s 30876}# - #{mod 30877}#) - (#{parse 29706}# + #{e 30027}#))) + (if (eqv? #{type 30025}# 'local-syntax-form) + (#{chi-local-syntax 4378}# + #{value 30026}# + #{e 30027}# + #{er 29819}# + #{w 30028}# + #{s 30029}# + #{mod 30030}# + (lambda (#{forms 30870}# + #{er 30871}# + #{w 30872}# + #{s 30873}# + #{mod 30874}#) + (#{parse 29703}# (letrec* - ((#{f 30878}# - (lambda (#{forms 31094}#) - (if (null? #{forms 31094}#) - (cdr #{body 29814}#) - (cons (cons #{er 30874}# - (let ((#{x 31098}# - (car #{forms 31094}#))) - (if (if (null? (car #{w 30875}#)) - (null? (cdr #{w 30875}#)) + ((#{f 30875}# + (lambda (#{forms 31091}#) + (if (null? #{forms 31091}#) + (cdr #{body 29811}#) + (cons (cons #{er 30871}# + (let ((#{x 31095}# + (car #{forms 31091}#))) + (if (if (null? (car #{w 30872}#)) + (null? (cdr #{w 30872}#)) #f) - #{x 31098}# + #{x 31095}# (if (if (vector? - #{x 31098}#) + #{x 31095}#) (if (= (vector-length - #{x 31098}#) + #{x 31095}#) 4) (eq? (vector-ref - #{x 31098}# + #{x 31095}# 0) 'syntax-object) #f) #f) - (let ((#{expression 31116}# + (let ((#{expression 31113}# (vector-ref - #{x 31098}# + #{x 31095}# 1)) - (#{wrap 31117}# - (let ((#{w2 31125}# + (#{wrap 31114}# + (let ((#{w2 31122}# (vector-ref - #{x 31098}# + #{x 31095}# 2))) - (let ((#{m1 31126}# - (car #{w 30875}#)) - (#{s1 31127}# - (cdr #{w 30875}#))) - (if (null? #{m1 31126}#) - (if (null? #{s1 31127}#) - #{w2 31125}# - (cons (car #{w2 31125}#) - (let ((#{m2 31142}# - (cdr #{w2 31125}#))) - (if (null? #{m2 31142}#) - #{s1 31127}# + (let ((#{m1 31123}# + (car #{w 30872}#)) + (#{s1 31124}# + (cdr #{w 30872}#))) + (if (null? #{m1 31123}#) + (if (null? #{s1 31124}#) + #{w2 31122}# + (cons (car #{w2 31122}#) + (let ((#{m2 31139}# + (cdr #{w2 31122}#))) + (if (null? #{m2 31139}#) + #{s1 31124}# (append - #{s1 31127}# - #{m2 31142}#))))) - (cons (let ((#{m2 31150}# - (car #{w2 31125}#))) - (if (null? #{m2 31150}#) - #{m1 31126}# + #{s1 31124}# + #{m2 31139}#))))) + (cons (let ((#{m2 31147}# + (car #{w2 31122}#))) + (if (null? #{m2 31147}#) + #{m1 31123}# (append - #{m1 31126}# - #{m2 31150}#))) - (let ((#{m2 31158}# - (cdr #{w2 31125}#))) - (if (null? #{m2 31158}#) - #{s1 31127}# + #{m1 31123}# + #{m2 31147}#))) + (let ((#{m2 31155}# + (cdr #{w2 31122}#))) + (if (null? #{m2 31155}#) + #{s1 31124}# (append - #{s1 31127}# - #{m2 31158}#)))))))) - (#{module 31118}# + #{s1 31124}# + #{m2 31155}#)))))))) + (#{module 31115}# (vector-ref - #{x 31098}# + #{x 31095}# 3))) (vector 'syntax-object - #{expression 31116}# - #{wrap 31117}# - #{module 31118}#)) - (if (null? #{x 31098}#) - #{x 31098}# + #{expression 31113}# + #{wrap 31114}# + #{module 31115}#)) + (if (null? #{x 31095}#) + #{x 31095}# (vector 'syntax-object - #{x 31098}# - #{w 30875}# - #{mod 30877}#)))))) - (#{f 30878}# - (cdr #{forms 31094}#))))))) - (#{f 30878}# #{forms 30873}#)) - #{ids 29815}# - #{labels 29816}# - #{var-ids 29817}# - #{vars 29818}# - #{vals 29819}# - #{bindings 29820}#))) - (if (null? #{ids 29815}#) - (#{build-sequence 4324}# + #{x 31095}# + #{w 30872}# + #{mod 30874}#)))))) + (#{f 30875}# + (cdr #{forms 31091}#))))))) + (#{f 30875}# #{forms 30870}#)) + #{ids 29812}# + #{labels 29813}# + #{var-ids 29814}# + #{vars 29815}# + #{vals 29816}# + #{bindings 29817}#))) + (if (null? #{ids 29812}#) + (#{build-sequence 4322}# #f - (map (lambda (#{x 31247}#) - (#{chi 4375}# - (cdr #{x 31247}#) - (car #{x 31247}#) + (map (lambda (#{x 31244}#) + (#{chi 4373}# + (cdr #{x 31244}#) + (car #{x 31244}#) '(()) - #{mod 30033}#)) - (cons (cons #{er 29822}# - (let ((#{x 31326}# + #{mod 30030}#)) + (cons (cons #{er 29819}# + (let ((#{x 31323}# (begin - (if (if (pair? #{e 30030}#) - #{s 30032}# + (if (if (pair? #{e 30027}#) + #{s 30029}# #f) (set-source-properties! - #{e 30030}# - #{s 30032}#)) - #{e 30030}#))) - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + #{e 30027}# + #{s 30029}#)) + #{e 30027}#))) + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{x 31326}# + #{x 31323}# (if (if (vector? - #{x 31326}#) + #{x 31323}#) (if (= (vector-length - #{x 31326}#) + #{x 31323}#) 4) (eq? (vector-ref - #{x 31326}# + #{x 31323}# 0) 'syntax-object) #f) #f) - (let ((#{expression 31358}# + (let ((#{expression 31355}# (vector-ref - #{x 31326}# + #{x 31323}# 1)) - (#{wrap 31359}# - (let ((#{w2 31367}# + (#{wrap 31356}# + (let ((#{w2 31364}# (vector-ref - #{x 31326}# + #{x 31323}# 2))) - (let ((#{m1 31368}# - (car #{w 30031}#)) - (#{s1 31369}# - (cdr #{w 30031}#))) - (if (null? #{m1 31368}#) - (if (null? #{s1 31369}#) - #{w2 31367}# - (cons (car #{w2 31367}#) - (let ((#{m2 31384}# - (cdr #{w2 31367}#))) - (if (null? #{m2 31384}#) - #{s1 31369}# + (let ((#{m1 31365}# + (car #{w 30028}#)) + (#{s1 31366}# + (cdr #{w 30028}#))) + (if (null? #{m1 31365}#) + (if (null? #{s1 31366}#) + #{w2 31364}# + (cons (car #{w2 31364}#) + (let ((#{m2 31381}# + (cdr #{w2 31364}#))) + (if (null? #{m2 31381}#) + #{s1 31366}# (append - #{s1 31369}# - #{m2 31384}#))))) - (cons (let ((#{m2 31392}# - (car #{w2 31367}#))) - (if (null? #{m2 31392}#) - #{m1 31368}# + #{s1 31366}# + #{m2 31381}#))))) + (cons (let ((#{m2 31389}# + (car #{w2 31364}#))) + (if (null? #{m2 31389}#) + #{m1 31365}# (append - #{m1 31368}# - #{m2 31392}#))) - (let ((#{m2 31400}# - (cdr #{w2 31367}#))) - (if (null? #{m2 31400}#) - #{s1 31369}# + #{m1 31365}# + #{m2 31389}#))) + (let ((#{m2 31397}# + (cdr #{w2 31364}#))) + (if (null? #{m2 31397}#) + #{s1 31366}# (append - #{s1 31369}# - #{m2 31400}#)))))))) - (#{module 31360}# + #{s1 31366}# + #{m2 31397}#)))))))) + (#{module 31357}# (vector-ref - #{x 31326}# + #{x 31323}# 3))) (vector 'syntax-object - #{expression 31358}# - #{wrap 31359}# - #{module 31360}#)) - (if (null? #{x 31326}#) - #{x 31326}# + #{expression 31355}# + #{wrap 31356}# + #{module 31357}#)) + (if (null? #{x 31323}#) + #{x 31323}# (vector 'syntax-object - #{x 31326}# - #{w 30031}# - #{mod 30033}#)))))) - (cdr #{body 29814}#)))) + #{x 31323}# + #{w 30028}# + #{mod 30030}#)))))) + (cdr #{body 29811}#)))) (begin - (if (not (#{valid-bound-ids? 4365}# - #{ids 29815}#)) + (if (not (#{valid-bound-ids? 4363}# + #{ids 29812}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 29699}#)) + #{outer-form 29696}#)) (letrec* - ((#{loop 31499}# - (lambda (#{bs 31502}# - #{er-cache 31503}# - #{r-cache 31504}#) - (if (not (null? #{bs 31502}#)) - (let ((#{b 31505}# - (car #{bs 31502}#))) - (if (eq? (car #{b 31505}#) + ((#{loop 31496}# + (lambda (#{bs 31499}# + #{er-cache 31500}# + #{r-cache 31501}#) + (if (not (null? #{bs 31499}#)) + (let ((#{b 31502}# + (car #{bs 31499}#))) + (if (eq? (car #{b 31502}#) 'macro) - (let ((#{er 31507}# - (car (cdr #{b 31505}#)))) - (let ((#{r-cache 31508}# - (if (eq? #{er 31507}# - #{er-cache 31503}#) - #{r-cache 31504}# - (#{macros-only-env 4339}# - #{er 31507}#)))) + (let ((#{er 31504}# + (car (cdr #{b 31502}#)))) + (let ((#{r-cache 31505}# + (if (eq? #{er 31504}# + #{er-cache 31500}#) + #{r-cache 31501}# + (#{macros-only-env 4337}# + #{er 31504}#)))) (begin (set-cdr! - #{b 31505}# - (#{eval-local-transformer 4381}# - (#{chi 4375}# - (cdr (cdr #{b 31505}#)) - #{r-cache 31508}# + #{b 31502}# + (#{eval-local-transformer 4379}# + (#{chi 4373}# + (cdr (cdr #{b 31502}#)) + #{r-cache 31505}# '(()) - #{mod 30033}#) - #{mod 30033}#)) - (#{loop 31499}# - (cdr #{bs 31502}#) - #{er 31507}# - #{r-cache 31508}#)))) - (#{loop 31499}# - (cdr #{bs 31502}#) - #{er-cache 31503}# - #{r-cache 31504}#))))))) - (#{loop 31499}# - #{bindings 29820}# + #{mod 30030}#) + #{mod 30030}#)) + (#{loop 31496}# + (cdr #{bs 31499}#) + #{er 31504}# + #{r-cache 31505}#)))) + (#{loop 31496}# + (cdr #{bs 31499}#) + #{er-cache 31500}# + #{r-cache 31501}#))))))) + (#{loop 31496}# + #{bindings 29817}# #f #f)) (set-cdr! - #{r 29703}# - (#{extend-env 4337}# - #{labels 29816}# - #{bindings 29820}# - (cdr #{r 29703}#))) - (#{build-letrec 4327}# + #{r 29700}# + (#{extend-env 4335}# + #{labels 29813}# + #{bindings 29817}# + (cdr #{r 29700}#))) + (#{build-letrec 4325}# #f #t (reverse (map syntax->datum - #{var-ids 29817}#)) - (reverse #{vars 29818}#) - (map (lambda (#{x 31927}#) - (#{chi 4375}# - (cdr #{x 31927}#) - (car #{x 31927}#) + #{var-ids 29814}#)) + (reverse #{vars 29815}#) + (map (lambda (#{x 31924}#) + (#{chi 4373}# + (cdr #{x 31924}#) + (car #{x 31924}#) '(()) - #{mod 30033}#)) - (reverse #{vals 29819}#)) - (#{build-sequence 4324}# + #{mod 30030}#)) + (reverse #{vals 29816}#)) + (#{build-sequence 4322}# #f - (map (lambda (#{x 32071}#) - (#{chi 4375}# - (cdr #{x 32071}#) - (car #{x 32071}#) + (map (lambda (#{x 32068}#) + (#{chi 4373}# + (cdr #{x 32068}#) + (car #{x 32068}#) '(()) - #{mod 30033}#)) - (cons (cons #{er 29822}# - (let ((#{x 32150}# + #{mod 30030}#)) + (cons (cons #{er 29819}# + (let ((#{x 32147}# (begin - (if (if (pair? #{e 30030}#) - #{s 30032}# + (if (if (pair? #{e 30027}#) + #{s 30029}# #f) (set-source-properties! - #{e 30030}# - #{s 30032}#)) - #{e 30030}#))) - (if (if (null? (car #{w 30031}#)) - (null? (cdr #{w 30031}#)) + #{e 30027}# + #{s 30029}#)) + #{e 30027}#))) + (if (if (null? (car #{w 30028}#)) + (null? (cdr #{w 30028}#)) #f) - #{x 32150}# + #{x 32147}# (if (if (vector? - #{x 32150}#) + #{x 32147}#) (if (= (vector-length - #{x 32150}#) + #{x 32147}#) 4) (eq? (vector-ref - #{x 32150}# + #{x 32147}# 0) 'syntax-object) #f) #f) - (let ((#{expression 32182}# + (let ((#{expression 32179}# (vector-ref - #{x 32150}# + #{x 32147}# 1)) - (#{wrap 32183}# - (let ((#{w2 32191}# + (#{wrap 32180}# + (let ((#{w2 32188}# (vector-ref - #{x 32150}# + #{x 32147}# 2))) - (let ((#{m1 32192}# - (car #{w 30031}#)) - (#{s1 32193}# - (cdr #{w 30031}#))) - (if (null? #{m1 32192}#) - (if (null? #{s1 32193}#) - #{w2 32191}# - (cons (car #{w2 32191}#) - (let ((#{m2 32208}# - (cdr #{w2 32191}#))) - (if (null? #{m2 32208}#) - #{s1 32193}# + (let ((#{m1 32189}# + (car #{w 30028}#)) + (#{s1 32190}# + (cdr #{w 30028}#))) + (if (null? #{m1 32189}#) + (if (null? #{s1 32190}#) + #{w2 32188}# + (cons (car #{w2 32188}#) + (let ((#{m2 32205}# + (cdr #{w2 32188}#))) + (if (null? #{m2 32205}#) + #{s1 32190}# (append - #{s1 32193}# - #{m2 32208}#))))) - (cons (let ((#{m2 32216}# - (car #{w2 32191}#))) - (if (null? #{m2 32216}#) - #{m1 32192}# + #{s1 32190}# + #{m2 32205}#))))) + (cons (let ((#{m2 32213}# + (car #{w2 32188}#))) + (if (null? #{m2 32213}#) + #{m1 32189}# (append - #{m1 32192}# - #{m2 32216}#))) - (let ((#{m2 32224}# - (cdr #{w2 32191}#))) - (if (null? #{m2 32224}#) - #{s1 32193}# + #{m1 32189}# + #{m2 32213}#))) + (let ((#{m2 32221}# + (cdr #{w2 32188}#))) + (if (null? #{m2 32221}#) + #{s1 32190}# (append - #{s1 32193}# - #{m2 32224}#)))))))) - (#{module 32184}# + #{s1 32190}# + #{m2 32221}#)))))))) + (#{module 32181}# (vector-ref - #{x 32150}# + #{x 32147}# 3))) (vector 'syntax-object - #{expression 32182}# - #{wrap 32183}# - #{module 32184}#)) - (if (null? #{x 32150}#) - #{x 32150}# + #{expression 32179}# + #{wrap 32180}# + #{module 32181}#)) + (if (null? #{x 32147}#) + #{x 32147}# (vector 'syntax-object - #{x 32150}# - #{w 30031}# - #{mod 30033}#)))))) - (cdr #{body 29814}#)))))))))))))))))) - (#{parse 29706}# - (map (lambda (#{x 29709}#) - (cons #{r 29703}# - (if (if (null? (car #{w 29705}#)) - (null? (cdr #{w 29705}#)) + #{x 32147}# + #{w 30028}# + #{mod 30030}#)))))) + (cdr #{body 29811}#)))))))))))))))))) + (#{parse 29703}# + (map (lambda (#{x 29706}#) + (cons #{r 29700}# + (if (if (null? (car #{w 29702}#)) + (null? (cdr #{w 29702}#)) #f) - #{x 29709}# - (if (if (vector? #{x 29709}#) - (if (= (vector-length #{x 29709}#) 4) - (eq? (vector-ref #{x 29709}# 0) + #{x 29706}# + (if (if (vector? #{x 29706}#) + (if (= (vector-length #{x 29706}#) 4) + (eq? (vector-ref #{x 29706}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29745}# - (vector-ref #{x 29709}# 1)) - (#{wrap 29746}# - (let ((#{w2 29756}# - (vector-ref #{x 29709}# 2))) - (let ((#{m1 29757}# - (car #{w 29705}#)) - (#{s1 29758}# - (cdr #{w 29705}#))) - (if (null? #{m1 29757}#) - (if (null? #{s1 29758}#) - #{w2 29756}# - (cons (car #{w2 29756}#) - (let ((#{m2 29775}# - (cdr #{w2 29756}#))) - (if (null? #{m2 29775}#) - #{s1 29758}# + (let ((#{expression 29742}# + (vector-ref #{x 29706}# 1)) + (#{wrap 29743}# + (let ((#{w2 29753}# + (vector-ref #{x 29706}# 2))) + (let ((#{m1 29754}# + (car #{w 29702}#)) + (#{s1 29755}# + (cdr #{w 29702}#))) + (if (null? #{m1 29754}#) + (if (null? #{s1 29755}#) + #{w2 29753}# + (cons (car #{w2 29753}#) + (let ((#{m2 29772}# + (cdr #{w2 29753}#))) + (if (null? #{m2 29772}#) + #{s1 29755}# (append - #{s1 29758}# - #{m2 29775}#))))) - (cons (let ((#{m2 29783}# - (car #{w2 29756}#))) - (if (null? #{m2 29783}#) - #{m1 29757}# + #{s1 29755}# + #{m2 29772}#))))) + (cons (let ((#{m2 29780}# + (car #{w2 29753}#))) + (if (null? #{m2 29780}#) + #{m1 29754}# (append - #{m1 29757}# - #{m2 29783}#))) - (let ((#{m2 29791}# - (cdr #{w2 29756}#))) - (if (null? #{m2 29791}#) - #{s1 29758}# + #{m1 29754}# + #{m2 29780}#))) + (let ((#{m2 29788}# + (cdr #{w2 29753}#))) + (if (null? #{m2 29788}#) + #{s1 29755}# (append - #{s1 29758}# - #{m2 29791}#)))))))) - (#{module 29747}# - (vector-ref #{x 29709}# 3))) + #{s1 29755}# + #{m2 29788}#)))))))) + (#{module 29744}# + (vector-ref #{x 29706}# 3))) (vector 'syntax-object - #{expression 29745}# - #{wrap 29746}# - #{module 29747}#)) - (if (null? #{x 29709}#) - #{x 29709}# + #{expression 29742}# + #{wrap 29743}# + #{module 29744}#)) + (if (null? #{x 29706}#) + #{x 29706}# (vector 'syntax-object - #{x 29709}# - #{w 29705}# - #{mod 29702}#)))))) - #{body 29698}#) + #{x 29706}# + #{w 29702}# + #{mod 29699}#)))))) + #{body 29695}#) '() '() '() '() '() '()))))))) - (#{chi-local-syntax 4380}# - (lambda (#{rec? 32239}# - #{e 32240}# - #{r 32241}# - #{w 32242}# - #{s 32243}# - #{mod 32244}# - #{k 32245}#) - (let ((#{tmp 32247}# + (#{chi-local-syntax 4378}# + (lambda (#{rec? 32236}# + #{e 32237}# + #{r 32238}# + #{w 32239}# + #{s 32240}# + #{mod 32241}# + #{k 32242}#) + (let ((#{tmp 32244}# ($sc-dispatch - #{e 32240}# + #{e 32237}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 32247}# + (if #{tmp 32244}# (@apply - (lambda (#{id 32251}# - #{val 32252}# - #{e1 32253}# - #{e2 32254}#) - (if (not (#{valid-bound-ids? 4365}# #{id 32251}#)) + (lambda (#{id 32248}# + #{val 32249}# + #{e1 32250}# + #{e2 32251}#) + (if (not (#{valid-bound-ids? 4363}# #{id 32248}#)) (syntax-violation #f "duplicate bound keyword" - #{e 32240}#) - (let ((#{labels 32351}# - (#{gen-labels 4346}# #{id 32251}#))) - (let ((#{new-w 32352}# - (#{make-binding-wrap 4357}# - #{id 32251}# - #{labels 32351}# - #{w 32242}#))) - (#{k 32245}# - (cons #{e1 32253}# #{e2 32254}#) - (#{extend-env 4337}# - #{labels 32351}# - (let ((#{trans-r 32392}# - (#{macros-only-env 4339}# #{r 32241}#))) + #{e 32237}#) + (let ((#{labels 32348}# + (#{gen-labels 4344}# #{id 32248}#))) + (let ((#{new-w 32349}# + (#{make-binding-wrap 4355}# + #{id 32248}# + #{labels 32348}# + #{w 32239}#))) + (#{k 32242}# + (cons #{e1 32250}# #{e2 32251}#) + (#{extend-env 4335}# + #{labels 32348}# + (let ((#{trans-r 32389}# + (#{macros-only-env 4337}# #{r 32238}#))) (begin - (if #{rec? 32239}# (if #f #f)) - (map (lambda (#{x 32393}#) + (if #{rec? 32236}# (if #f #f)) + (map (lambda (#{x 32390}#) (cons 'macro - (#{eval-local-transformer 4381}# - (#{chi 4375}# - #{x 32393}# - #{trans-r 32392}# - (if #{rec? 32239}# - #{new-w 32352}# - #{w 32242}#) - #{mod 32244}#) - #{mod 32244}#))) - #{val 32252}#))) - #{r 32241}#) - #{new-w 32352}# - #{s 32243}# - #{mod 32244}#))))) - #{tmp 32247}#) + (#{eval-local-transformer 4379}# + (#{chi 4373}# + #{x 32390}# + #{trans-r 32389}# + (if #{rec? 32236}# + #{new-w 32349}# + #{w 32239}#) + #{mod 32241}#) + #{mod 32241}#))) + #{val 32249}#))) + #{r 32238}#) + #{new-w 32349}# + #{s 32240}# + #{mod 32241}#))))) + #{tmp 32244}#) (syntax-violation #f "bad local syntax definition" - (let ((#{x 32718}# + (let ((#{x 32715}# (begin - (if (if (pair? #{e 32240}#) #{s 32243}# #f) - (set-source-properties! #{e 32240}# #{s 32243}#)) - #{e 32240}#))) - (if (if (null? (car #{w 32242}#)) - (null? (cdr #{w 32242}#)) + (if (if (pair? #{e 32237}#) #{s 32240}# #f) + (set-source-properties! #{e 32237}# #{s 32240}#)) + #{e 32237}#))) + (if (if (null? (car #{w 32239}#)) + (null? (cdr #{w 32239}#)) #f) - #{x 32718}# - (if (if (vector? #{x 32718}#) - (if (= (vector-length #{x 32718}#) 4) - (eq? (vector-ref #{x 32718}# 0) 'syntax-object) + #{x 32715}# + (if (if (vector? #{x 32715}#) + (if (= (vector-length #{x 32715}#) 4) + (eq? (vector-ref #{x 32715}# 0) 'syntax-object) #f) #f) - (let ((#{expression 32750}# (vector-ref #{x 32718}# 1)) - (#{wrap 32751}# - (let ((#{w2 32759}# (vector-ref #{x 32718}# 2))) - (let ((#{m1 32760}# (car #{w 32242}#)) - (#{s1 32761}# (cdr #{w 32242}#))) - (if (null? #{m1 32760}#) - (if (null? #{s1 32761}#) - #{w2 32759}# - (cons (car #{w2 32759}#) - (let ((#{m2 32776}# - (cdr #{w2 32759}#))) - (if (null? #{m2 32776}#) - #{s1 32761}# + (let ((#{expression 32747}# (vector-ref #{x 32715}# 1)) + (#{wrap 32748}# + (let ((#{w2 32756}# (vector-ref #{x 32715}# 2))) + (let ((#{m1 32757}# (car #{w 32239}#)) + (#{s1 32758}# (cdr #{w 32239}#))) + (if (null? #{m1 32757}#) + (if (null? #{s1 32758}#) + #{w2 32756}# + (cons (car #{w2 32756}#) + (let ((#{m2 32773}# + (cdr #{w2 32756}#))) + (if (null? #{m2 32773}#) + #{s1 32758}# (append - #{s1 32761}# - #{m2 32776}#))))) - (cons (let ((#{m2 32784}# (car #{w2 32759}#))) - (if (null? #{m2 32784}#) - #{m1 32760}# - (append #{m1 32760}# #{m2 32784}#))) - (let ((#{m2 32792}# (cdr #{w2 32759}#))) - (if (null? #{m2 32792}#) - #{s1 32761}# + #{s1 32758}# + #{m2 32773}#))))) + (cons (let ((#{m2 32781}# (car #{w2 32756}#))) + (if (null? #{m2 32781}#) + #{m1 32757}# + (append #{m1 32757}# #{m2 32781}#))) + (let ((#{m2 32789}# (cdr #{w2 32756}#))) + (if (null? #{m2 32789}#) + #{s1 32758}# (append - #{s1 32761}# - #{m2 32792}#)))))))) - (#{module 32752}# (vector-ref #{x 32718}# 3))) + #{s1 32758}# + #{m2 32789}#)))))))) + (#{module 32749}# (vector-ref #{x 32715}# 3))) (vector 'syntax-object - #{expression 32750}# - #{wrap 32751}# - #{module 32752}#)) - (if (null? #{x 32718}#) - #{x 32718}# + #{expression 32747}# + #{wrap 32748}# + #{module 32749}#)) + (if (null? #{x 32715}#) + #{x 32715}# (vector 'syntax-object - #{x 32718}# - #{w 32242}# - #{mod 32244}#)))))))))) - (#{eval-local-transformer 4381}# - (lambda (#{expanded 32810}# #{mod 32811}#) - (let ((#{p 32812}# (primitive-eval #{expanded 32810}#))) - (if (procedure? #{p 32812}#) - #{p 32812}# + #{x 32715}# + #{w 32239}# + #{mod 32241}#)))))))))) + (#{eval-local-transformer 4379}# + (lambda (#{expanded 32807}# #{mod 32808}#) + (let ((#{p 32809}# (primitive-eval #{expanded 32807}#))) + (if (procedure? #{p 32809}#) + #{p 32809}# (syntax-violation #f "nonprocedure transformer" - #{p 32812}#))))) - (#{ellipsis? 4383}# - (lambda (#{x 5834}#) - (if (if (if (vector? #{x 5834}#) - (if (= (vector-length #{x 5834}#) 4) - (eq? (vector-ref #{x 5834}# 0) 'syntax-object) + #{p 32809}#))))) + (#{ellipsis? 4381}# + (lambda (#{x 5832}#) + (if (if (if (vector? #{x 5832}#) + (if (= (vector-length #{x 5832}#) 4) + (eq? (vector-ref #{x 5832}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5834}# 1)) + (symbol? (vector-ref #{x 5832}# 1)) #f) - (#{free-id=? 4363}# - #{x 5834}# + (#{free-id=? 4361}# + #{x 5832}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2263")) + #(ribcage #(x) #((top)) #("i2261")) #(ribcage (lambda-var-list gen-var @@ -6534,350 +6517,350 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f))) - (#{lambda-formals 4384}# - (lambda (#{orig-args 32817}#) + (#{lambda-formals 4382}# + (lambda (#{orig-args 32814}#) (letrec* - ((#{req 32818}# - (lambda (#{args 32822}# #{rreq 32823}#) - (let ((#{tmp 32825}# ($sc-dispatch #{args 32822}# '()))) - (if #{tmp 32825}# + ((#{req 32815}# + (lambda (#{args 32819}# #{rreq 32820}#) + (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '()))) + (if #{tmp 32822}# (@apply (lambda () - (#{check 32819}# (reverse #{rreq 32823}#) #f)) - #{tmp 32825}#) - (let ((#{tmp 32941}# - ($sc-dispatch #{args 32822}# '(any . any)))) - (if (if #{tmp 32941}# + (#{check 32816}# (reverse #{rreq 32820}#) #f)) + #{tmp 32822}#) + (let ((#{tmp 32938}# + ($sc-dispatch #{args 32819}# '(any . any)))) + (if (if #{tmp 32938}# (@apply - (lambda (#{a 32945}# #{b 32946}#) - (if (symbol? #{a 32945}#) + (lambda (#{a 32942}# #{b 32943}#) + (if (symbol? #{a 32942}#) #t - (if (if (vector? #{a 32945}#) - (if (= (vector-length #{a 32945}#) 4) - (eq? (vector-ref #{a 32945}# 0) + (if (if (vector? #{a 32942}#) + (if (= (vector-length #{a 32942}#) 4) + (eq? (vector-ref #{a 32942}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 32945}# 1)) + (symbol? (vector-ref #{a 32942}# 1)) #f))) - #{tmp 32941}#) + #{tmp 32938}#) #f) (@apply - (lambda (#{a 32973}# #{b 32974}#) - (#{req 32818}# - #{b 32974}# - (cons #{a 32973}# #{rreq 32823}#))) - #{tmp 32941}#) - (let ((#{tmp 32975}# (list #{args 32822}#))) + (lambda (#{a 32970}# #{b 32971}#) + (#{req 32815}# + #{b 32971}# + (cons #{a 32970}# #{rreq 32820}#))) + #{tmp 32938}#) + (let ((#{tmp 32972}# (list #{args 32819}#))) (if (@apply - (lambda (#{r 32977}#) - (if (symbol? #{r 32977}#) + (lambda (#{r 32974}#) + (if (symbol? #{r 32974}#) #t - (if (if (vector? #{r 32977}#) - (if (= (vector-length #{r 32977}#) 4) - (eq? (vector-ref #{r 32977}# 0) + (if (if (vector? #{r 32974}#) + (if (= (vector-length #{r 32974}#) 4) + (eq? (vector-ref #{r 32974}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 32977}# 1)) + (symbol? (vector-ref #{r 32974}# 1)) #f))) - #{tmp 32975}#) + #{tmp 32972}#) (@apply - (lambda (#{r 33007}#) - (#{check 32819}# - (reverse #{rreq 32823}#) - #{r 33007}#)) - #{tmp 32975}#) + (lambda (#{r 33004}#) + (#{check 32816}# + (reverse #{rreq 32820}#) + #{r 33004}#)) + #{tmp 32972}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 32817}# - #{args 32822}#))))))))) - (#{check 32819}# - (lambda (#{req 33131}# #{rest 33132}#) - (if (#{distinct-bound-ids? 4366}# - (if #{rest 33132}# - (cons #{rest 33132}# #{req 33131}#) - #{req 33131}#)) - (values #{req 33131}# #f #{rest 33132}# #f) + #{orig-args 32814}# + #{args 32819}#))))))))) + (#{check 32816}# + (lambda (#{req 33128}# #{rest 33129}#) + (if (#{distinct-bound-ids? 4364}# + (if #{rest 33129}# + (cons #{rest 33129}# #{req 33128}#) + #{req 33128}#)) + (values #{req 33128}# #f #{rest 33129}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 32817}#))))) - (#{req 32818}# #{orig-args 32817}# '())))) - (#{chi-simple-lambda 4385}# - (lambda (#{e 33241}# - #{r 33242}# - #{w 33243}# - #{s 33244}# - #{mod 33245}# - #{req 33246}# - #{rest 33247}# - #{meta 33248}# - #{body 33249}#) - (let ((#{ids 33250}# - (if #{rest 33247}# - (append #{req 33246}# (list #{rest 33247}#)) - #{req 33246}#))) - (let ((#{vars 33251}# - (map #{gen-var 4389}# #{ids 33250}#))) - (let ((#{labels 33252}# - (#{gen-labels 4346}# #{ids 33250}#))) - (#{build-simple-lambda 4318}# - #{s 33244}# - (map syntax->datum #{req 33246}#) - (if #{rest 33247}# - (syntax->datum #{rest 33247}#) + #{orig-args 32814}#))))) + (#{req 32815}# #{orig-args 32814}# '())))) + (#{chi-simple-lambda 4383}# + (lambda (#{e 33238}# + #{r 33239}# + #{w 33240}# + #{s 33241}# + #{mod 33242}# + #{req 33243}# + #{rest 33244}# + #{meta 33245}# + #{body 33246}#) + (let ((#{ids 33247}# + (if #{rest 33244}# + (append #{req 33243}# (list #{rest 33244}#)) + #{req 33243}#))) + (let ((#{vars 33248}# + (map #{gen-var 4387}# #{ids 33247}#))) + (let ((#{labels 33249}# + (#{gen-labels 4344}# #{ids 33247}#))) + (#{build-simple-lambda 4316}# + #{s 33241}# + (map syntax->datum #{req 33243}#) + (if #{rest 33244}# + (syntax->datum #{rest 33244}#) #f) - #{vars 33251}# - #{meta 33248}# - (#{chi-body 4379}# - #{body 33249}# - (let ((#{x 33441}# + #{vars 33248}# + #{meta 33245}# + (#{chi-body 4377}# + #{body 33246}# + (let ((#{x 33438}# (begin - (if (if (pair? #{e 33241}#) #{s 33244}# #f) - (set-source-properties! #{e 33241}# #{s 33244}#)) - #{e 33241}#))) - (if (if (null? (car #{w 33243}#)) - (null? (cdr #{w 33243}#)) + (if (if (pair? #{e 33238}#) #{s 33241}# #f) + (set-source-properties! #{e 33238}# #{s 33241}#)) + #{e 33238}#))) + (if (if (null? (car #{w 33240}#)) + (null? (cdr #{w 33240}#)) #f) - #{x 33441}# - (if (if (vector? #{x 33441}#) - (if (= (vector-length #{x 33441}#) 4) - (eq? (vector-ref #{x 33441}# 0) 'syntax-object) + #{x 33438}# + (if (if (vector? #{x 33438}#) + (if (= (vector-length #{x 33438}#) 4) + (eq? (vector-ref #{x 33438}# 0) 'syntax-object) #f) #f) - (let ((#{expression 33473}# (vector-ref #{x 33441}# 1)) - (#{wrap 33474}# - (let ((#{w2 33482}# (vector-ref #{x 33441}# 2))) - (let ((#{m1 33483}# (car #{w 33243}#)) - (#{s1 33484}# (cdr #{w 33243}#))) - (if (null? #{m1 33483}#) - (if (null? #{s1 33484}#) - #{w2 33482}# - (cons (car #{w2 33482}#) - (let ((#{m2 33499}# - (cdr #{w2 33482}#))) - (if (null? #{m2 33499}#) - #{s1 33484}# + (let ((#{expression 33470}# (vector-ref #{x 33438}# 1)) + (#{wrap 33471}# + (let ((#{w2 33479}# (vector-ref #{x 33438}# 2))) + (let ((#{m1 33480}# (car #{w 33240}#)) + (#{s1 33481}# (cdr #{w 33240}#))) + (if (null? #{m1 33480}#) + (if (null? #{s1 33481}#) + #{w2 33479}# + (cons (car #{w2 33479}#) + (let ((#{m2 33496}# + (cdr #{w2 33479}#))) + (if (null? #{m2 33496}#) + #{s1 33481}# (append - #{s1 33484}# - #{m2 33499}#))))) - (cons (let ((#{m2 33507}# - (car #{w2 33482}#))) - (if (null? #{m2 33507}#) - #{m1 33483}# + #{s1 33481}# + #{m2 33496}#))))) + (cons (let ((#{m2 33504}# + (car #{w2 33479}#))) + (if (null? #{m2 33504}#) + #{m1 33480}# (append - #{m1 33483}# - #{m2 33507}#))) - (let ((#{m2 33515}# - (cdr #{w2 33482}#))) - (if (null? #{m2 33515}#) - #{s1 33484}# + #{m1 33480}# + #{m2 33504}#))) + (let ((#{m2 33512}# + (cdr #{w2 33479}#))) + (if (null? #{m2 33512}#) + #{s1 33481}# (append - #{s1 33484}# - #{m2 33515}#)))))))) - (#{module 33475}# (vector-ref #{x 33441}# 3))) + #{s1 33481}# + #{m2 33512}#)))))))) + (#{module 33472}# (vector-ref #{x 33438}# 3))) (vector 'syntax-object - #{expression 33473}# - #{wrap 33474}# - #{module 33475}#)) - (if (null? #{x 33441}#) - #{x 33441}# + #{expression 33470}# + #{wrap 33471}# + #{module 33472}#)) + (if (null? #{x 33438}#) + #{x 33438}# (vector 'syntax-object - #{x 33441}# - #{w 33243}# - #{mod 33245}#))))) - (#{extend-var-env 4338}# - #{labels 33252}# - #{vars 33251}# - #{r 33242}#) - (#{make-binding-wrap 4357}# - #{ids 33250}# - #{labels 33252}# - #{w 33243}#) - #{mod 33245}#))))))) - (#{lambda*-formals 4386}# - (lambda (#{orig-args 33746}#) + #{x 33438}# + #{w 33240}# + #{mod 33242}#))))) + (#{extend-var-env 4336}# + #{labels 33249}# + #{vars 33248}# + #{r 33239}#) + (#{make-binding-wrap 4355}# + #{ids 33247}# + #{labels 33249}# + #{w 33240}#) + #{mod 33242}#))))))) + (#{lambda*-formals 4384}# + (lambda (#{orig-args 33743}#) (letrec* - ((#{req 33747}# - (lambda (#{args 33754}# #{rreq 33755}#) - (let ((#{tmp 33757}# ($sc-dispatch #{args 33754}# '()))) - (if #{tmp 33757}# + ((#{req 33744}# + (lambda (#{args 33751}# #{rreq 33752}#) + (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '()))) + (if #{tmp 33754}# (@apply (lambda () - (#{check 33751}# - (reverse #{rreq 33755}#) + (#{check 33748}# + (reverse #{rreq 33752}#) '() #f '())) - #{tmp 33757}#) - (let ((#{tmp 33876}# - ($sc-dispatch #{args 33754}# '(any . any)))) - (if (if #{tmp 33876}# + #{tmp 33754}#) + (let ((#{tmp 33873}# + ($sc-dispatch #{args 33751}# '(any . any)))) + (if (if #{tmp 33873}# (@apply - (lambda (#{a 33880}# #{b 33881}#) - (if (symbol? #{a 33880}#) + (lambda (#{a 33877}# #{b 33878}#) + (if (symbol? #{a 33877}#) #t - (if (if (vector? #{a 33880}#) - (if (= (vector-length #{a 33880}#) 4) - (eq? (vector-ref #{a 33880}# 0) + (if (if (vector? #{a 33877}#) + (if (= (vector-length #{a 33877}#) 4) + (eq? (vector-ref #{a 33877}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 33880}# 1)) + (symbol? (vector-ref #{a 33877}# 1)) #f))) - #{tmp 33876}#) + #{tmp 33873}#) #f) (@apply - (lambda (#{a 33908}# #{b 33909}#) - (#{req 33747}# - #{b 33909}# - (cons #{a 33908}# #{rreq 33755}#))) - #{tmp 33876}#) - (let ((#{tmp 33910}# - ($sc-dispatch #{args 33754}# '(any . any)))) - (if (if #{tmp 33910}# + (lambda (#{a 33905}# #{b 33906}#) + (#{req 33744}# + #{b 33906}# + (cons #{a 33905}# #{rreq 33752}#))) + #{tmp 33873}#) + (let ((#{tmp 33907}# + ($sc-dispatch #{args 33751}# '(any . any)))) + (if (if #{tmp 33907}# (@apply - (lambda (#{a 33914}# #{b 33915}#) - (eq? (syntax->datum #{a 33914}#) #:optional)) - #{tmp 33910}#) + (lambda (#{a 33911}# #{b 33912}#) + (eq? (syntax->datum #{a 33911}#) #:optional)) + #{tmp 33907}#) #f) (@apply - (lambda (#{a 33916}# #{b 33917}#) - (#{opt 33748}# - #{b 33917}# - (reverse #{rreq 33755}#) + (lambda (#{a 33913}# #{b 33914}#) + (#{opt 33745}# + #{b 33914}# + (reverse #{rreq 33752}#) '())) - #{tmp 33910}#) - (let ((#{tmp 33920}# - ($sc-dispatch #{args 33754}# '(any . any)))) - (if (if #{tmp 33920}# + #{tmp 33907}#) + (let ((#{tmp 33917}# + ($sc-dispatch #{args 33751}# '(any . any)))) + (if (if #{tmp 33917}# (@apply - (lambda (#{a 33924}# #{b 33925}#) - (eq? (syntax->datum #{a 33924}#) #:key)) - #{tmp 33920}#) + (lambda (#{a 33921}# #{b 33922}#) + (eq? (syntax->datum #{a 33921}#) #:key)) + #{tmp 33917}#) #f) (@apply - (lambda (#{a 33926}# #{b 33927}#) - (#{key 33749}# - #{b 33927}# - (reverse #{rreq 33755}#) + (lambda (#{a 33923}# #{b 33924}#) + (#{key 33746}# + #{b 33924}# + (reverse #{rreq 33752}#) '() '())) - #{tmp 33920}#) - (let ((#{tmp 33930}# + #{tmp 33917}#) + (let ((#{tmp 33927}# ($sc-dispatch - #{args 33754}# + #{args 33751}# '(any any)))) - (if (if #{tmp 33930}# + (if (if #{tmp 33927}# (@apply - (lambda (#{a 33934}# #{b 33935}#) - (eq? (syntax->datum #{a 33934}#) + (lambda (#{a 33931}# #{b 33932}#) + (eq? (syntax->datum #{a 33931}#) #:rest)) - #{tmp 33930}#) + #{tmp 33927}#) #f) (@apply - (lambda (#{a 33936}# #{b 33937}#) - (#{rest 33750}# - #{b 33937}# - (reverse #{rreq 33755}#) + (lambda (#{a 33933}# #{b 33934}#) + (#{rest 33747}# + #{b 33934}# + (reverse #{rreq 33752}#) '() '())) - #{tmp 33930}#) - (let ((#{tmp 33940}# (list #{args 33754}#))) + #{tmp 33927}#) + (let ((#{tmp 33937}# (list #{args 33751}#))) (if (@apply - (lambda (#{r 33942}#) - (if (symbol? #{r 33942}#) + (lambda (#{r 33939}#) + (if (symbol? #{r 33939}#) #t - (if (if (vector? #{r 33942}#) + (if (if (vector? #{r 33939}#) (if (= (vector-length - #{r 33942}#) + #{r 33939}#) 4) (eq? (vector-ref - #{r 33942}# + #{r 33939}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 33942}# 1)) + (vector-ref #{r 33939}# 1)) #f))) - #{tmp 33940}#) + #{tmp 33937}#) (@apply - (lambda (#{r 33972}#) - (#{rest 33750}# - #{r 33972}# - (reverse #{rreq 33755}#) + (lambda (#{r 33969}#) + (#{rest 33747}# + #{r 33969}# + (reverse #{rreq 33752}#) '() '())) - #{tmp 33940}#) + #{tmp 33937}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 33746}# - #{args 33754}#))))))))))))))) - (#{opt 33748}# - (lambda (#{args 33991}# #{req 33992}# #{ropt 33993}#) - (let ((#{tmp 33995}# ($sc-dispatch #{args 33991}# '()))) - (if #{tmp 33995}# + #{orig-args 33743}# + #{args 33751}#))))))))))))))) + (#{opt 33745}# + (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#) + (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '()))) + (if #{tmp 33992}# (@apply (lambda () - (#{check 33751}# - #{req 33992}# - (reverse #{ropt 33993}#) + (#{check 33748}# + #{req 33989}# + (reverse #{ropt 33990}#) #f '())) - #{tmp 33995}#) - (let ((#{tmp 34116}# - ($sc-dispatch #{args 33991}# '(any . any)))) - (if (if #{tmp 34116}# + #{tmp 33992}#) + (let ((#{tmp 34113}# + ($sc-dispatch #{args 33988}# '(any . any)))) + (if (if #{tmp 34113}# (@apply - (lambda (#{a 34120}# #{b 34121}#) - (if (symbol? #{a 34120}#) + (lambda (#{a 34117}# #{b 34118}#) + (if (symbol? #{a 34117}#) #t - (if (if (vector? #{a 34120}#) - (if (= (vector-length #{a 34120}#) 4) - (eq? (vector-ref #{a 34120}# 0) + (if (if (vector? #{a 34117}#) + (if (= (vector-length #{a 34117}#) 4) + (eq? (vector-ref #{a 34117}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34120}# 1)) + (symbol? (vector-ref #{a 34117}# 1)) #f))) - #{tmp 34116}#) + #{tmp 34113}#) #f) (@apply - (lambda (#{a 34148}# #{b 34149}#) - (#{opt 33748}# - #{b 34149}# - #{req 33992}# - (cons (cons #{a 34148}# + (lambda (#{a 34145}# #{b 34146}#) + (#{opt 33745}# + #{b 34146}# + #{req 33989}# + (cons (cons #{a 34145}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2402" "i2403")) + #("i2400" "i2401")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2392" "i2393" "i2394")) + #("i2390" "i2391" "i2392")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) - ("i2338" - "i2336" + ("i2336" "i2334" "i2332" - "i2330")) + "i2330" + "i2328")) #(ribcage #(orig-args) #((top)) - #("i2329")) + #("i2327")) #(ribcage (lambda-var-list gen-var @@ -7300,147 +7283,147 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - #{ropt 33993}#))) - #{tmp 34116}#) - (let ((#{tmp 34150}# + #{ropt 33990}#))) + #{tmp 34113}#) + (let ((#{tmp 34147}# ($sc-dispatch - #{args 33991}# + #{args 33988}# '((any any) . any)))) - (if (if #{tmp 34150}# + (if (if #{tmp 34147}# (@apply - (lambda (#{a 34154}# - #{init 34155}# - #{b 34156}#) - (if (symbol? #{a 34154}#) + (lambda (#{a 34151}# + #{init 34152}# + #{b 34153}#) + (if (symbol? #{a 34151}#) #t - (if (if (vector? #{a 34154}#) - (if (= (vector-length #{a 34154}#) 4) - (eq? (vector-ref #{a 34154}# 0) + (if (if (vector? #{a 34151}#) + (if (= (vector-length #{a 34151}#) 4) + (eq? (vector-ref #{a 34151}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34154}# 1)) + (symbol? (vector-ref #{a 34151}# 1)) #f))) - #{tmp 34150}#) + #{tmp 34147}#) #f) (@apply - (lambda (#{a 34183}# #{init 34184}# #{b 34185}#) - (#{opt 33748}# - #{b 34185}# - #{req 33992}# - (cons (list #{a 34183}# #{init 34184}#) - #{ropt 33993}#))) - #{tmp 34150}#) - (let ((#{tmp 34186}# - ($sc-dispatch #{args 33991}# '(any . any)))) - (if (if #{tmp 34186}# + (lambda (#{a 34180}# #{init 34181}# #{b 34182}#) + (#{opt 33745}# + #{b 34182}# + #{req 33989}# + (cons (list #{a 34180}# #{init 34181}#) + #{ropt 33990}#))) + #{tmp 34147}#) + (let ((#{tmp 34183}# + ($sc-dispatch #{args 33988}# '(any . any)))) + (if (if #{tmp 34183}# (@apply - (lambda (#{a 34190}# #{b 34191}#) - (eq? (syntax->datum #{a 34190}#) #:key)) - #{tmp 34186}#) + (lambda (#{a 34187}# #{b 34188}#) + (eq? (syntax->datum #{a 34187}#) #:key)) + #{tmp 34183}#) #f) (@apply - (lambda (#{a 34192}# #{b 34193}#) - (#{key 33749}# - #{b 34193}# - #{req 33992}# - (reverse #{ropt 33993}#) + (lambda (#{a 34189}# #{b 34190}#) + (#{key 33746}# + #{b 34190}# + #{req 33989}# + (reverse #{ropt 33990}#) '())) - #{tmp 34186}#) - (let ((#{tmp 34196}# + #{tmp 34183}#) + (let ((#{tmp 34193}# ($sc-dispatch - #{args 33991}# + #{args 33988}# '(any any)))) - (if (if #{tmp 34196}# + (if (if #{tmp 34193}# (@apply - (lambda (#{a 34200}# #{b 34201}#) - (eq? (syntax->datum #{a 34200}#) + (lambda (#{a 34197}# #{b 34198}#) + (eq? (syntax->datum #{a 34197}#) #:rest)) - #{tmp 34196}#) + #{tmp 34193}#) #f) (@apply - (lambda (#{a 34202}# #{b 34203}#) - (#{rest 33750}# - #{b 34203}# - #{req 33992}# - (reverse #{ropt 33993}#) + (lambda (#{a 34199}# #{b 34200}#) + (#{rest 33747}# + #{b 34200}# + #{req 33989}# + (reverse #{ropt 33990}#) '())) - #{tmp 34196}#) - (let ((#{tmp 34206}# (list #{args 33991}#))) + #{tmp 34193}#) + (let ((#{tmp 34203}# (list #{args 33988}#))) (if (@apply - (lambda (#{r 34208}#) - (if (symbol? #{r 34208}#) + (lambda (#{r 34205}#) + (if (symbol? #{r 34205}#) #t - (if (if (vector? #{r 34208}#) + (if (if (vector? #{r 34205}#) (if (= (vector-length - #{r 34208}#) + #{r 34205}#) 4) (eq? (vector-ref - #{r 34208}# + #{r 34205}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 34208}# 1)) + (vector-ref #{r 34205}# 1)) #f))) - #{tmp 34206}#) + #{tmp 34203}#) (@apply - (lambda (#{r 34238}#) - (#{rest 33750}# - #{r 34238}# - #{req 33992}# - (reverse #{ropt 33993}#) + (lambda (#{r 34235}#) + (#{rest 33747}# + #{r 34235}# + #{req 33989}# + (reverse #{ropt 33990}#) '())) - #{tmp 34206}#) + #{tmp 34203}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 33746}# - #{args 33991}#))))))))))))))) - (#{key 33749}# - (lambda (#{args 34257}# - #{req 34258}# - #{opt 34259}# - #{rkey 34260}#) - (let ((#{tmp 34262}# ($sc-dispatch #{args 34257}# '()))) - (if #{tmp 34262}# + #{orig-args 33743}# + #{args 33988}#))))))))))))))) + (#{key 33746}# + (lambda (#{args 34254}# + #{req 34255}# + #{opt 34256}# + #{rkey 34257}#) + (let ((#{tmp 34259}# ($sc-dispatch #{args 34254}# '()))) + (if #{tmp 34259}# (@apply (lambda () - (#{check 33751}# - #{req 34258}# - #{opt 34259}# + (#{check 33748}# + #{req 34255}# + #{opt 34256}# #f - (cons #f (reverse #{rkey 34260}#)))) - #{tmp 34262}#) - (let ((#{tmp 34384}# - ($sc-dispatch #{args 34257}# '(any . any)))) - (if (if #{tmp 34384}# + (cons #f (reverse #{rkey 34257}#)))) + #{tmp 34259}#) + (let ((#{tmp 34381}# + ($sc-dispatch #{args 34254}# '(any . any)))) + (if (if #{tmp 34381}# (@apply - (lambda (#{a 34388}# #{b 34389}#) - (if (symbol? #{a 34388}#) + (lambda (#{a 34385}# #{b 34386}#) + (if (symbol? #{a 34385}#) #t - (if (if (vector? #{a 34388}#) - (if (= (vector-length #{a 34388}#) 4) - (eq? (vector-ref #{a 34388}# 0) + (if (if (vector? #{a 34385}#) + (if (= (vector-length #{a 34385}#) 4) + (eq? (vector-ref #{a 34385}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34388}# 1)) + (symbol? (vector-ref #{a 34385}# 1)) #f))) - #{tmp 34384}#) + #{tmp 34381}#) #f) (@apply - (lambda (#{a 34416}# #{b 34417}#) - (let ((#{tmp 34418}# + (lambda (#{a 34413}# #{b 34414}#) + (let ((#{tmp 34415}# (symbol->keyword - (syntax->datum #{a 34416}#)))) - (#{key 33749}# - #{b 34417}# - #{req 34258}# - #{opt 34259}# - (cons (cons #{tmp 34418}# - (cons #{a 34416}# + (syntax->datum #{a 34413}#)))) + (#{key 33746}# + #{b 34414}# + #{req 34255}# + #{opt 34256}# + (cons (cons #{tmp 34415}# + (cons #{a 34413}# '(#(syntax-object #f ((top) @@ -7448,11 +7431,11 @@ #(ribcage #(k) #((top)) - #("i2465")) + #("i2463")) #(ribcage #(a b) #((top) (top)) - #("i2459" "i2460")) + #("i2457" "i2458")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7460,10 +7443,10 @@ (top) (top) (top)) - #("i2448" - "i2449" - "i2450" - "i2451")) + #("i2446" + "i2447" + "i2448" + "i2449")) #(ribcage (check rest key opt req) ((top) @@ -7471,15 +7454,15 @@ (top) (top) (top)) - ("i2338" - "i2336" + ("i2336" "i2334" "i2332" - "i2330")) + "i2330" + "i2328")) #(ribcage #(orig-args) #((top)) - #("i2329")) + #("i2327")) #(ribcage (lambda-var-list gen-var @@ -7902,1009 +7885,1009 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))))) - #{rkey 34260}#)))) - #{tmp 34384}#) - (let ((#{tmp 34421}# + #{rkey 34257}#)))) + #{tmp 34381}#) + (let ((#{tmp 34418}# ($sc-dispatch - #{args 34257}# + #{args 34254}# '((any any) . any)))) - (if (if #{tmp 34421}# + (if (if #{tmp 34418}# (@apply - (lambda (#{a 34425}# - #{init 34426}# - #{b 34427}#) - (if (symbol? #{a 34425}#) + (lambda (#{a 34422}# + #{init 34423}# + #{b 34424}#) + (if (symbol? #{a 34422}#) #t - (if (if (vector? #{a 34425}#) - (if (= (vector-length #{a 34425}#) 4) - (eq? (vector-ref #{a 34425}# 0) + (if (if (vector? #{a 34422}#) + (if (= (vector-length #{a 34422}#) 4) + (eq? (vector-ref #{a 34422}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34425}# 1)) + (symbol? (vector-ref #{a 34422}# 1)) #f))) - #{tmp 34421}#) + #{tmp 34418}#) #f) (@apply - (lambda (#{a 34454}# #{init 34455}# #{b 34456}#) - (let ((#{tmp 34457}# + (lambda (#{a 34451}# #{init 34452}# #{b 34453}#) + (let ((#{tmp 34454}# (symbol->keyword - (syntax->datum #{a 34454}#)))) - (#{key 33749}# - #{b 34456}# - #{req 34258}# - #{opt 34259}# - (cons (list #{tmp 34457}# - #{a 34454}# - #{init 34455}#) - #{rkey 34260}#)))) - #{tmp 34421}#) - (let ((#{tmp 34460}# + (syntax->datum #{a 34451}#)))) + (#{key 33746}# + #{b 34453}# + #{req 34255}# + #{opt 34256}# + (cons (list #{tmp 34454}# + #{a 34451}# + #{init 34452}#) + #{rkey 34257}#)))) + #{tmp 34418}#) + (let ((#{tmp 34457}# ($sc-dispatch - #{args 34257}# + #{args 34254}# '((any any any) . any)))) - (if (if #{tmp 34460}# + (if (if #{tmp 34457}# (@apply - (lambda (#{a 34464}# - #{init 34465}# - #{k 34466}# - #{b 34467}#) - (if (if (symbol? #{a 34464}#) + (lambda (#{a 34461}# + #{init 34462}# + #{k 34463}# + #{b 34464}#) + (if (if (symbol? #{a 34461}#) #t - (if (if (vector? #{a 34464}#) + (if (if (vector? #{a 34461}#) (if (= (vector-length - #{a 34464}#) + #{a 34461}#) 4) (eq? (vector-ref - #{a 34464}# + #{a 34461}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 34464}# 1)) + (vector-ref #{a 34461}# 1)) #f)) - (keyword? (syntax->datum #{k 34466}#)) + (keyword? (syntax->datum #{k 34463}#)) #f)) - #{tmp 34460}#) + #{tmp 34457}#) #f) (@apply - (lambda (#{a 34494}# - #{init 34495}# - #{k 34496}# - #{b 34497}#) - (#{key 33749}# - #{b 34497}# - #{req 34258}# - #{opt 34259}# - (cons (list #{k 34496}# - #{a 34494}# - #{init 34495}#) - #{rkey 34260}#))) - #{tmp 34460}#) - (let ((#{tmp 34498}# - ($sc-dispatch #{args 34257}# '(any)))) - (if (if #{tmp 34498}# + (lambda (#{a 34491}# + #{init 34492}# + #{k 34493}# + #{b 34494}#) + (#{key 33746}# + #{b 34494}# + #{req 34255}# + #{opt 34256}# + (cons (list #{k 34493}# + #{a 34491}# + #{init 34492}#) + #{rkey 34257}#))) + #{tmp 34457}#) + (let ((#{tmp 34495}# + ($sc-dispatch #{args 34254}# '(any)))) + (if (if #{tmp 34495}# (@apply - (lambda (#{aok 34502}#) - (eq? (syntax->datum #{aok 34502}#) + (lambda (#{aok 34499}#) + (eq? (syntax->datum #{aok 34499}#) #:allow-other-keys)) - #{tmp 34498}#) + #{tmp 34495}#) #f) (@apply - (lambda (#{aok 34503}#) - (#{check 33751}# - #{req 34258}# - #{opt 34259}# + (lambda (#{aok 34500}#) + (#{check 33748}# + #{req 34255}# + #{opt 34256}# #f - (cons #t (reverse #{rkey 34260}#)))) - #{tmp 34498}#) - (let ((#{tmp 34622}# + (cons #t (reverse #{rkey 34257}#)))) + #{tmp 34495}#) + (let ((#{tmp 34619}# ($sc-dispatch - #{args 34257}# + #{args 34254}# '(any any any)))) - (if (if #{tmp 34622}# + (if (if #{tmp 34619}# (@apply - (lambda (#{aok 34626}# - #{a 34627}# - #{b 34628}#) + (lambda (#{aok 34623}# + #{a 34624}# + #{b 34625}#) (if (eq? (syntax->datum - #{aok 34626}#) + #{aok 34623}#) #:allow-other-keys) (eq? (syntax->datum - #{a 34627}#) + #{a 34624}#) #:rest) #f)) - #{tmp 34622}#) + #{tmp 34619}#) #f) (@apply - (lambda (#{aok 34629}# - #{a 34630}# - #{b 34631}#) - (#{rest 33750}# - #{b 34631}# - #{req 34258}# - #{opt 34259}# + (lambda (#{aok 34626}# + #{a 34627}# + #{b 34628}#) + (#{rest 33747}# + #{b 34628}# + #{req 34255}# + #{opt 34256}# (cons #t - (reverse #{rkey 34260}#)))) - #{tmp 34622}#) - (let ((#{tmp 34634}# + (reverse #{rkey 34257}#)))) + #{tmp 34619}#) + (let ((#{tmp 34631}# ($sc-dispatch - #{args 34257}# + #{args 34254}# '(any . any)))) - (if (if #{tmp 34634}# + (if (if #{tmp 34631}# (@apply - (lambda (#{aok 34638}# - #{r 34639}#) + (lambda (#{aok 34635}# + #{r 34636}#) (if (eq? (syntax->datum - #{aok 34638}#) + #{aok 34635}#) #:allow-other-keys) - (if (symbol? #{r 34639}#) + (if (symbol? #{r 34636}#) #t (if (if (vector? - #{r 34639}#) + #{r 34636}#) (if (= (vector-length - #{r 34639}#) + #{r 34636}#) 4) (eq? (vector-ref - #{r 34639}# + #{r 34636}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 34639}# + #{r 34636}# 1)) #f)) #f)) - #{tmp 34634}#) + #{tmp 34631}#) #f) (@apply - (lambda (#{aok 34666}# #{r 34667}#) - (#{rest 33750}# - #{r 34667}# - #{req 34258}# - #{opt 34259}# + (lambda (#{aok 34663}# #{r 34664}#) + (#{rest 33747}# + #{r 34664}# + #{req 34255}# + #{opt 34256}# (cons #t (reverse - #{rkey 34260}#)))) - #{tmp 34634}#) - (let ((#{tmp 34670}# + #{rkey 34257}#)))) + #{tmp 34631}#) + (let ((#{tmp 34667}# ($sc-dispatch - #{args 34257}# + #{args 34254}# '(any any)))) - (if (if #{tmp 34670}# + (if (if #{tmp 34667}# (@apply - (lambda (#{a 34674}# - #{b 34675}#) + (lambda (#{a 34671}# + #{b 34672}#) (eq? (syntax->datum - #{a 34674}#) + #{a 34671}#) #:rest)) - #{tmp 34670}#) + #{tmp 34667}#) #f) (@apply - (lambda (#{a 34676}# - #{b 34677}#) - (#{rest 33750}# - #{b 34677}# - #{req 34258}# - #{opt 34259}# + (lambda (#{a 34673}# + #{b 34674}#) + (#{rest 33747}# + #{b 34674}# + #{req 34255}# + #{opt 34256}# (cons #f (reverse - #{rkey 34260}#)))) - #{tmp 34670}#) - (let ((#{tmp 34680}# - (list #{args 34257}#))) + #{rkey 34257}#)))) + #{tmp 34667}#) + (let ((#{tmp 34677}# + (list #{args 34254}#))) (if (@apply - (lambda (#{r 34682}#) + (lambda (#{r 34679}#) (if (symbol? - #{r 34682}#) + #{r 34679}#) #t (if (if (vector? - #{r 34682}#) + #{r 34679}#) (if (= (vector-length - #{r 34682}#) + #{r 34679}#) 4) (eq? (vector-ref - #{r 34682}# + #{r 34679}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 34682}# + #{r 34679}# 1)) #f))) - #{tmp 34680}#) + #{tmp 34677}#) (@apply - (lambda (#{r 34712}#) - (#{rest 33750}# - #{r 34712}# - #{req 34258}# - #{opt 34259}# + (lambda (#{r 34709}#) + (#{rest 33747}# + #{r 34709}# + #{req 34255}# + #{opt 34256}# (cons #f (reverse - #{rkey 34260}#)))) - #{tmp 34680}#) + #{rkey 34257}#)))) + #{tmp 34677}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 33746}# - #{args 34257}#))))))))))))))))))))) - (#{rest 33750}# - (lambda (#{args 34740}# - #{req 34741}# - #{opt 34742}# - #{kw 34743}#) - (let ((#{tmp 34745}# (list #{args 34740}#))) + #{orig-args 33743}# + #{args 34254}#))))))))))))))))))))) + (#{rest 33747}# + (lambda (#{args 34737}# + #{req 34738}# + #{opt 34739}# + #{kw 34740}#) + (let ((#{tmp 34742}# (list #{args 34737}#))) (if (@apply - (lambda (#{r 34747}#) - (if (symbol? #{r 34747}#) + (lambda (#{r 34744}#) + (if (symbol? #{r 34744}#) #t - (if (if (vector? #{r 34747}#) - (if (= (vector-length #{r 34747}#) 4) - (eq? (vector-ref #{r 34747}# 0) + (if (if (vector? #{r 34744}#) + (if (= (vector-length #{r 34744}#) 4) + (eq? (vector-ref #{r 34744}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 34747}# 1)) + (symbol? (vector-ref #{r 34744}# 1)) #f))) - #{tmp 34745}#) + #{tmp 34742}#) (@apply - (lambda (#{r 34777}#) - (#{check 33751}# - #{req 34741}# - #{opt 34742}# - #{r 34777}# - #{kw 34743}#)) - #{tmp 34745}#) + (lambda (#{r 34774}#) + (#{check 33748}# + #{req 34738}# + #{opt 34739}# + #{r 34774}# + #{kw 34740}#)) + #{tmp 34742}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 33746}# - #{args 34740}#))))) - (#{check 33751}# - (lambda (#{req 34905}# - #{opt 34906}# - #{rest 34907}# - #{kw 34908}#) - (if (#{distinct-bound-ids? 4366}# + #{orig-args 33743}# + #{args 34737}#))))) + (#{check 33748}# + (lambda (#{req 34902}# + #{opt 34903}# + #{rest 34904}# + #{kw 34905}#) + (if (#{distinct-bound-ids? 4364}# (append - #{req 34905}# - (map car #{opt 34906}#) - (if #{rest 34907}# (list #{rest 34907}#) '()) - (if (pair? #{kw 34908}#) - (map cadr (cdr #{kw 34908}#)) + #{req 34902}# + (map car #{opt 34903}#) + (if #{rest 34904}# (list #{rest 34904}#) '()) + (if (pair? #{kw 34905}#) + (map cadr (cdr #{kw 34905}#)) '()))) (values - #{req 34905}# - #{opt 34906}# - #{rest 34907}# - #{kw 34908}#) + #{req 34902}# + #{opt 34903}# + #{rest 34904}# + #{kw 34905}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 33746}#))))) - (#{req 33747}# #{orig-args 33746}# '())))) - (#{chi-lambda-case 4387}# - (lambda (#{e 35017}# - #{r 35018}# - #{w 35019}# - #{s 35020}# - #{mod 35021}# - #{get-formals 35022}# - #{clauses 35023}#) + #{orig-args 33743}#))))) + (#{req 33744}# #{orig-args 33743}# '())))) + (#{chi-lambda-case 4385}# + (lambda (#{e 35014}# + #{r 35015}# + #{w 35016}# + #{s 35017}# + #{mod 35018}# + #{get-formals 35019}# + #{clauses 35020}#) (letrec* - ((#{expand-req 35024}# - (lambda (#{req 35160}# - #{opt 35161}# - #{rest 35162}# - #{kw 35163}# - #{body 35164}#) - (let ((#{vars 35165}# - (map #{gen-var 4389}# #{req 35160}#)) - (#{labels 35166}# - (#{gen-labels 4346}# #{req 35160}#))) - (let ((#{r* 35167}# - (#{extend-var-env 4338}# - #{labels 35166}# - #{vars 35165}# - #{r 35018}#)) - (#{w* 35168}# - (#{make-binding-wrap 4357}# - #{req 35160}# - #{labels 35166}# - #{w 35019}#))) - (#{expand-opt 35025}# - (map syntax->datum #{req 35160}#) - #{opt 35161}# - #{rest 35162}# - #{kw 35163}# - #{body 35164}# - (reverse #{vars 35165}#) - #{r* 35167}# - #{w* 35168}# + ((#{expand-req 35021}# + (lambda (#{req 35157}# + #{opt 35158}# + #{rest 35159}# + #{kw 35160}# + #{body 35161}#) + (let ((#{vars 35162}# + (map #{gen-var 4387}# #{req 35157}#)) + (#{labels 35163}# + (#{gen-labels 4344}# #{req 35157}#))) + (let ((#{r* 35164}# + (#{extend-var-env 4336}# + #{labels 35163}# + #{vars 35162}# + #{r 35015}#)) + (#{w* 35165}# + (#{make-binding-wrap 4355}# + #{req 35157}# + #{labels 35163}# + #{w 35016}#))) + (#{expand-opt 35022}# + (map syntax->datum #{req 35157}#) + #{opt 35158}# + #{rest 35159}# + #{kw 35160}# + #{body 35161}# + (reverse #{vars 35162}#) + #{r* 35164}# + #{w* 35165}# '() '()))))) - (#{expand-opt 35025}# - (lambda (#{req 35404}# - #{opt 35405}# - #{rest 35406}# - #{kw 35407}# - #{body 35408}# - #{vars 35409}# - #{r* 35410}# - #{w* 35411}# - #{out 35412}# - #{inits 35413}#) - (if (pair? #{opt 35405}#) - (let ((#{tmp 35414}# (car #{opt 35405}#))) - (let ((#{tmp 35415}# - ($sc-dispatch #{tmp 35414}# '(any any)))) - (if #{tmp 35415}# + (#{expand-opt 35022}# + (lambda (#{req 35401}# + #{opt 35402}# + #{rest 35403}# + #{kw 35404}# + #{body 35405}# + #{vars 35406}# + #{r* 35407}# + #{w* 35408}# + #{out 35409}# + #{inits 35410}#) + (if (pair? #{opt 35402}#) + (let ((#{tmp 35411}# (car #{opt 35402}#))) + (let ((#{tmp 35412}# + ($sc-dispatch #{tmp 35411}# '(any any)))) + (if #{tmp 35412}# (@apply - (lambda (#{id 35417}# #{i 35418}#) - (let ((#{v 35419}# - (let ((#{id 35427}# - (if (if (vector? #{id 35417}#) + (lambda (#{id 35414}# #{i 35415}#) + (let ((#{v 35416}# + (let ((#{id 35424}# + (if (if (vector? #{id 35414}#) (if (= (vector-length - #{id 35417}#) + #{id 35414}#) 4) (eq? (vector-ref - #{id 35417}# + #{id 35414}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 35417}# 1) - #{id 35417}#))) + (vector-ref #{id 35414}# 1) + #{id 35414}#))) (gensym (string-append - (symbol->string #{id 35427}#) + (symbol->string #{id 35424}#) " "))))) - (let ((#{l 35420}# - (#{gen-labels 4346}# (list #{v 35419}#)))) - (let ((#{r** 35421}# - (#{extend-var-env 4338}# - #{l 35420}# - (list #{v 35419}#) - #{r* 35410}#))) - (let ((#{w** 35422}# - (#{make-binding-wrap 4357}# - (list #{id 35417}#) - #{l 35420}# - #{w* 35411}#))) - (#{expand-opt 35025}# - #{req 35404}# - (cdr #{opt 35405}#) - #{rest 35406}# - #{kw 35407}# - #{body 35408}# - (cons #{v 35419}# #{vars 35409}#) - #{r** 35421}# - #{w** 35422}# - (cons (syntax->datum #{id 35417}#) - #{out 35412}#) - (cons (#{chi 4375}# - #{i 35418}# - #{r* 35410}# - #{w* 35411}# - #{mod 35021}#) - #{inits 35413}#))))))) - #{tmp 35415}#) + (let ((#{l 35417}# + (#{gen-labels 4344}# (list #{v 35416}#)))) + (let ((#{r** 35418}# + (#{extend-var-env 4336}# + #{l 35417}# + (list #{v 35416}#) + #{r* 35407}#))) + (let ((#{w** 35419}# + (#{make-binding-wrap 4355}# + (list #{id 35414}#) + #{l 35417}# + #{w* 35408}#))) + (#{expand-opt 35022}# + #{req 35401}# + (cdr #{opt 35402}#) + #{rest 35403}# + #{kw 35404}# + #{body 35405}# + (cons #{v 35416}# #{vars 35406}#) + #{r** 35418}# + #{w** 35419}# + (cons (syntax->datum #{id 35414}#) + #{out 35409}#) + (cons (#{chi 4373}# + #{i 35415}# + #{r* 35407}# + #{w* 35408}# + #{mod 35018}#) + #{inits 35410}#))))))) + #{tmp 35412}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 35414}#)))) - (if #{rest 35406}# - (let ((#{v 35728}# - (let ((#{id 35738}# - (if (if (vector? #{rest 35406}#) - (if (= (vector-length #{rest 35406}#) + #{tmp 35411}#)))) + (if #{rest 35403}# + (let ((#{v 35725}# + (let ((#{id 35735}# + (if (if (vector? #{rest 35403}#) + (if (= (vector-length #{rest 35403}#) 4) - (eq? (vector-ref #{rest 35406}# 0) + (eq? (vector-ref #{rest 35403}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 35406}# 1) - #{rest 35406}#))) + (vector-ref #{rest 35403}# 1) + #{rest 35403}#))) (gensym (string-append - (symbol->string #{id 35738}#) + (symbol->string #{id 35735}#) " "))))) - (let ((#{l 35729}# - (#{gen-labels 4346}# (list #{v 35728}#)))) - (let ((#{r* 35730}# - (#{extend-var-env 4338}# - #{l 35729}# - (list #{v 35728}#) - #{r* 35410}#))) - (let ((#{w* 35731}# - (#{make-binding-wrap 4357}# - (list #{rest 35406}#) - #{l 35729}# - #{w* 35411}#))) - (#{expand-kw 35026}# - #{req 35404}# - (if (pair? #{out 35412}#) - (reverse #{out 35412}#) + (let ((#{l 35726}# + (#{gen-labels 4344}# (list #{v 35725}#)))) + (let ((#{r* 35727}# + (#{extend-var-env 4336}# + #{l 35726}# + (list #{v 35725}#) + #{r* 35407}#))) + (let ((#{w* 35728}# + (#{make-binding-wrap 4355}# + (list #{rest 35403}#) + #{l 35726}# + #{w* 35408}#))) + (#{expand-kw 35023}# + #{req 35401}# + (if (pair? #{out 35409}#) + (reverse #{out 35409}#) #f) - (syntax->datum #{rest 35406}#) - (if (pair? #{kw 35407}#) - (cdr #{kw 35407}#) - #{kw 35407}#) - #{body 35408}# - (cons #{v 35728}# #{vars 35409}#) - #{r* 35730}# - #{w* 35731}# - (if (pair? #{kw 35407}#) (car #{kw 35407}#) #f) + (syntax->datum #{rest 35403}#) + (if (pair? #{kw 35404}#) + (cdr #{kw 35404}#) + #{kw 35404}#) + #{body 35405}# + (cons #{v 35725}# #{vars 35406}#) + #{r* 35727}# + #{w* 35728}# + (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f) '() - #{inits 35413}#))))) - (#{expand-kw 35026}# - #{req 35404}# - (if (pair? #{out 35412}#) - (reverse #{out 35412}#) + #{inits 35410}#))))) + (#{expand-kw 35023}# + #{req 35401}# + (if (pair? #{out 35409}#) + (reverse #{out 35409}#) #f) #f - (if (pair? #{kw 35407}#) - (cdr #{kw 35407}#) - #{kw 35407}#) - #{body 35408}# - #{vars 35409}# - #{r* 35410}# - #{w* 35411}# - (if (pair? #{kw 35407}#) (car #{kw 35407}#) #f) + (if (pair? #{kw 35404}#) + (cdr #{kw 35404}#) + #{kw 35404}#) + #{body 35405}# + #{vars 35406}# + #{r* 35407}# + #{w* 35408}# + (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f) '() - #{inits 35413}#))))) - (#{expand-kw 35026}# - (lambda (#{req 35960}# - #{opt 35961}# - #{rest 35962}# - #{kw 35963}# - #{body 35964}# - #{vars 35965}# - #{r* 35966}# - #{w* 35967}# - #{aok 35968}# - #{out 35969}# - #{inits 35970}#) - (if (pair? #{kw 35963}#) - (let ((#{tmp 35971}# (car #{kw 35963}#))) - (let ((#{tmp 35972}# - ($sc-dispatch #{tmp 35971}# '(any any any)))) - (if #{tmp 35972}# + #{inits 35410}#))))) + (#{expand-kw 35023}# + (lambda (#{req 35957}# + #{opt 35958}# + #{rest 35959}# + #{kw 35960}# + #{body 35961}# + #{vars 35962}# + #{r* 35963}# + #{w* 35964}# + #{aok 35965}# + #{out 35966}# + #{inits 35967}#) + (if (pair? #{kw 35960}#) + (let ((#{tmp 35968}# (car #{kw 35960}#))) + (let ((#{tmp 35969}# + ($sc-dispatch #{tmp 35968}# '(any any any)))) + (if #{tmp 35969}# (@apply - (lambda (#{k 35974}# #{id 35975}# #{i 35976}#) - (let ((#{v 35977}# - (let ((#{id 35985}# - (if (if (vector? #{id 35975}#) + (lambda (#{k 35971}# #{id 35972}# #{i 35973}#) + (let ((#{v 35974}# + (let ((#{id 35982}# + (if (if (vector? #{id 35972}#) (if (= (vector-length - #{id 35975}#) + #{id 35972}#) 4) (eq? (vector-ref - #{id 35975}# + #{id 35972}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 35975}# 1) - #{id 35975}#))) + (vector-ref #{id 35972}# 1) + #{id 35972}#))) (gensym (string-append - (symbol->string #{id 35985}#) + (symbol->string #{id 35982}#) " "))))) - (let ((#{l 35978}# - (#{gen-labels 4346}# (list #{v 35977}#)))) - (let ((#{r** 35979}# - (#{extend-var-env 4338}# - #{l 35978}# - (list #{v 35977}#) - #{r* 35966}#))) - (let ((#{w** 35980}# - (#{make-binding-wrap 4357}# - (list #{id 35975}#) - #{l 35978}# - #{w* 35967}#))) - (#{expand-kw 35026}# - #{req 35960}# - #{opt 35961}# - #{rest 35962}# - (cdr #{kw 35963}#) - #{body 35964}# - (cons #{v 35977}# #{vars 35965}#) - #{r** 35979}# - #{w** 35980}# - #{aok 35968}# - (cons (list (syntax->datum #{k 35974}#) - (syntax->datum #{id 35975}#) - #{v 35977}#) - #{out 35969}#) - (cons (#{chi 4375}# - #{i 35976}# - #{r* 35966}# - #{w* 35967}# - #{mod 35021}#) - #{inits 35970}#))))))) - #{tmp 35972}#) + (let ((#{l 35975}# + (#{gen-labels 4344}# (list #{v 35974}#)))) + (let ((#{r** 35976}# + (#{extend-var-env 4336}# + #{l 35975}# + (list #{v 35974}#) + #{r* 35963}#))) + (let ((#{w** 35977}# + (#{make-binding-wrap 4355}# + (list #{id 35972}#) + #{l 35975}# + #{w* 35964}#))) + (#{expand-kw 35023}# + #{req 35957}# + #{opt 35958}# + #{rest 35959}# + (cdr #{kw 35960}#) + #{body 35961}# + (cons #{v 35974}# #{vars 35962}#) + #{r** 35976}# + #{w** 35977}# + #{aok 35965}# + (cons (list (syntax->datum #{k 35971}#) + (syntax->datum #{id 35972}#) + #{v 35974}#) + #{out 35966}#) + (cons (#{chi 4373}# + #{i 35973}# + #{r* 35963}# + #{w* 35964}# + #{mod 35018}#) + #{inits 35967}#))))))) + #{tmp 35969}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 35971}#)))) - (#{expand-body 35027}# - #{req 35960}# - #{opt 35961}# - #{rest 35962}# - (if (if #{aok 35968}# - #{aok 35968}# - (pair? #{out 35969}#)) - (cons #{aok 35968}# (reverse #{out 35969}#)) + #{tmp 35968}#)))) + (#{expand-body 35024}# + #{req 35957}# + #{opt 35958}# + #{rest 35959}# + (if (if #{aok 35965}# + #{aok 35965}# + (pair? #{out 35966}#)) + (cons #{aok 35965}# (reverse #{out 35966}#)) #f) - #{body 35964}# - (reverse #{vars 35965}#) - #{r* 35966}# - #{w* 35967}# - (reverse #{inits 35970}#) + #{body 35961}# + (reverse #{vars 35962}#) + #{r* 35963}# + #{w* 35964}# + (reverse #{inits 35967}#) '())))) - (#{expand-body 35027}# - (lambda (#{req 36295}# - #{opt 36296}# - #{rest 36297}# - #{kw 36298}# - #{body 36299}# - #{vars 36300}# - #{r* 36301}# - #{w* 36302}# - #{inits 36303}# - #{meta 36304}#) - (let ((#{tmp 36306}# + (#{expand-body 35024}# + (lambda (#{req 36292}# + #{opt 36293}# + #{rest 36294}# + #{kw 36295}# + #{body 36296}# + #{vars 36297}# + #{r* 36298}# + #{w* 36299}# + #{inits 36300}# + #{meta 36301}#) + (let ((#{tmp 36303}# ($sc-dispatch - #{body 36299}# + #{body 36296}# '(any any . each-any)))) - (if (if #{tmp 36306}# + (if (if #{tmp 36303}# (@apply - (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#) - (string? (syntax->datum #{docstring 36310}#))) - #{tmp 36306}#) + (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#) + (string? (syntax->datum #{docstring 36307}#))) + #{tmp 36303}#) #f) (@apply - (lambda (#{docstring 36313}# #{e1 36314}# #{e2 36315}#) - (#{expand-body 35027}# - #{req 36295}# - #{opt 36296}# - #{rest 36297}# - #{kw 36298}# - (cons #{e1 36314}# #{e2 36315}#) - #{vars 36300}# - #{r* 36301}# - #{w* 36302}# - #{inits 36303}# + (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#) + (#{expand-body 35024}# + #{req 36292}# + #{opt 36293}# + #{rest 36294}# + #{kw 36295}# + (cons #{e1 36311}# #{e2 36312}#) + #{vars 36297}# + #{r* 36298}# + #{w* 36299}# + #{inits 36300}# (append - #{meta 36304}# + #{meta 36301}# (list (cons 'documentation - (syntax->datum #{docstring 36313}#)))))) - #{tmp 36306}#) - (let ((#{tmp 36316}# + (syntax->datum #{docstring 36310}#)))))) + #{tmp 36303}#) + (let ((#{tmp 36313}# ($sc-dispatch - #{body 36299}# + #{body 36296}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 36316}# + (if #{tmp 36313}# (@apply - (lambda (#{k 36320}# - #{v 36321}# - #{e1 36322}# - #{e2 36323}#) - (#{expand-body 35027}# - #{req 36295}# - #{opt 36296}# - #{rest 36297}# - #{kw 36298}# - (cons #{e1 36322}# #{e2 36323}#) - #{vars 36300}# - #{r* 36301}# - #{w* 36302}# - #{inits 36303}# + (lambda (#{k 36317}# + #{v 36318}# + #{e1 36319}# + #{e2 36320}#) + (#{expand-body 35024}# + #{req 36292}# + #{opt 36293}# + #{rest 36294}# + #{kw 36295}# + (cons #{e1 36319}# #{e2 36320}#) + #{vars 36297}# + #{r* 36298}# + #{w* 36299}# + #{inits 36300}# (append - #{meta 36304}# + #{meta 36301}# (syntax->datum - (map cons #{k 36320}# #{v 36321}#))))) - #{tmp 36316}#) - (let ((#{tmp 36324}# - ($sc-dispatch #{body 36299}# '(any . each-any)))) - (if #{tmp 36324}# + (map cons #{k 36317}# #{v 36318}#))))) + #{tmp 36313}#) + (let ((#{tmp 36321}# + ($sc-dispatch #{body 36296}# '(any . each-any)))) + (if #{tmp 36321}# (@apply - (lambda (#{e1 36328}# #{e2 36329}#) + (lambda (#{e1 36325}# #{e2 36326}#) (values - #{meta 36304}# - #{req 36295}# - #{opt 36296}# - #{rest 36297}# - #{kw 36298}# - #{inits 36303}# - #{vars 36300}# - (#{chi-body 4379}# - (cons #{e1 36328}# #{e2 36329}#) - (let ((#{x 36341}# + #{meta 36301}# + #{req 36292}# + #{opt 36293}# + #{rest 36294}# + #{kw 36295}# + #{inits 36300}# + #{vars 36297}# + (#{chi-body 4377}# + (cons #{e1 36325}# #{e2 36326}#) + (let ((#{x 36338}# (begin - (if (if (pair? #{e 35017}#) - #{s 35020}# + (if (if (pair? #{e 35014}#) + #{s 35017}# #f) (set-source-properties! - #{e 35017}# - #{s 35020}#)) - #{e 35017}#))) - (if (if (null? (car #{w 35019}#)) - (null? (cdr #{w 35019}#)) + #{e 35014}# + #{s 35017}#)) + #{e 35014}#))) + (if (if (null? (car #{w 35016}#)) + (null? (cdr #{w 35016}#)) #f) - #{x 36341}# - (if (if (vector? #{x 36341}#) - (if (= (vector-length #{x 36341}#) + #{x 36338}# + (if (if (vector? #{x 36338}#) + (if (= (vector-length #{x 36338}#) 4) - (eq? (vector-ref #{x 36341}# 0) + (eq? (vector-ref #{x 36338}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36373}# - (vector-ref #{x 36341}# 1)) - (#{wrap 36374}# - (let ((#{w2 36382}# + (let ((#{expression 36370}# + (vector-ref #{x 36338}# 1)) + (#{wrap 36371}# + (let ((#{w2 36379}# (vector-ref - #{x 36341}# + #{x 36338}# 2))) - (let ((#{m1 36383}# - (car #{w 35019}#)) - (#{s1 36384}# - (cdr #{w 35019}#))) - (if (null? #{m1 36383}#) - (if (null? #{s1 36384}#) - #{w2 36382}# - (cons (car #{w2 36382}#) - (let ((#{m2 36399}# - (cdr #{w2 36382}#))) - (if (null? #{m2 36399}#) - #{s1 36384}# + (let ((#{m1 36380}# + (car #{w 35016}#)) + (#{s1 36381}# + (cdr #{w 35016}#))) + (if (null? #{m1 36380}#) + (if (null? #{s1 36381}#) + #{w2 36379}# + (cons (car #{w2 36379}#) + (let ((#{m2 36396}# + (cdr #{w2 36379}#))) + (if (null? #{m2 36396}#) + #{s1 36381}# (append - #{s1 36384}# - #{m2 36399}#))))) - (cons (let ((#{m2 36407}# - (car #{w2 36382}#))) - (if (null? #{m2 36407}#) - #{m1 36383}# + #{s1 36381}# + #{m2 36396}#))))) + (cons (let ((#{m2 36404}# + (car #{w2 36379}#))) + (if (null? #{m2 36404}#) + #{m1 36380}# (append - #{m1 36383}# - #{m2 36407}#))) - (let ((#{m2 36415}# - (cdr #{w2 36382}#))) - (if (null? #{m2 36415}#) - #{s1 36384}# + #{m1 36380}# + #{m2 36404}#))) + (let ((#{m2 36412}# + (cdr #{w2 36379}#))) + (if (null? #{m2 36412}#) + #{s1 36381}# (append - #{s1 36384}# - #{m2 36415}#)))))))) - (#{module 36375}# - (vector-ref #{x 36341}# 3))) + #{s1 36381}# + #{m2 36412}#)))))))) + (#{module 36372}# + (vector-ref #{x 36338}# 3))) (vector 'syntax-object - #{expression 36373}# - #{wrap 36374}# - #{module 36375}#)) - (if (null? #{x 36341}#) - #{x 36341}# + #{expression 36370}# + #{wrap 36371}# + #{module 36372}#)) + (if (null? #{x 36338}#) + #{x 36338}# (vector 'syntax-object - #{x 36341}# - #{w 35019}# - #{mod 35021}#))))) - #{r* 36301}# - #{w* 36302}# - #{mod 35021}#))) - #{tmp 36324}#) + #{x 36338}# + #{w 35016}# + #{mod 35018}#))))) + #{r* 36298}# + #{w* 36299}# + #{mod 35018}#))) + #{tmp 36321}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 36299}#)))))))))) - (let ((#{tmp 35029}# - ($sc-dispatch #{clauses 35023}# '()))) - (if #{tmp 35029}# + #{body 36296}#)))))))))) + (let ((#{tmp 35026}# + ($sc-dispatch #{clauses 35020}# '()))) + (if #{tmp 35026}# (@apply (lambda () (values '() #f)) - #{tmp 35029}#) - (let ((#{tmp 35034}# + #{tmp 35026}#) + (let ((#{tmp 35031}# ($sc-dispatch - #{clauses 35023}# + #{clauses 35020}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 35034}# + (if #{tmp 35031}# (@apply - (lambda (#{args 35038}# - #{e1 35039}# - #{e2 35040}# - #{args* 35041}# - #{e1* 35042}# - #{e2* 35043}#) + (lambda (#{args 35035}# + #{e1 35036}# + #{e2 35037}# + #{args* 35038}# + #{e1* 35039}# + #{e2* 35040}#) (call-with-values (lambda () - (#{get-formals 35022}# #{args 35038}#)) - (lambda (#{req 35044}# - #{opt 35045}# - #{rest 35046}# - #{kw 35047}#) + (#{get-formals 35019}# #{args 35035}#)) + (lambda (#{req 35041}# + #{opt 35042}# + #{rest 35043}# + #{kw 35044}#) (call-with-values (lambda () - (#{expand-req 35024}# - #{req 35044}# - #{opt 35045}# - #{rest 35046}# - #{kw 35047}# - (cons #{e1 35039}# #{e2 35040}#))) - (lambda (#{meta 35116}# - #{req 35117}# - #{opt 35118}# - #{rest 35119}# - #{kw 35120}# - #{inits 35121}# - #{vars 35122}# - #{body 35123}#) + (#{expand-req 35021}# + #{req 35041}# + #{opt 35042}# + #{rest 35043}# + #{kw 35044}# + (cons #{e1 35036}# #{e2 35037}#))) + (lambda (#{meta 35113}# + #{req 35114}# + #{opt 35115}# + #{rest 35116}# + #{kw 35117}# + #{inits 35118}# + #{vars 35119}# + #{body 35120}#) (call-with-values (lambda () - (#{chi-lambda-case 4387}# - #{e 35017}# - #{r 35018}# - #{w 35019}# - #{s 35020}# - #{mod 35021}# - #{get-formals 35022}# - (map (lambda (#{tmp 2808 35124}# - #{tmp 2807 35125}# - #{tmp 2806 35126}#) - (cons #{tmp 2806 35126}# - (cons #{tmp 2807 35125}# - #{tmp 2808 35124}#))) - #{e2* 35043}# - #{e1* 35042}# - #{args* 35041}#))) - (lambda (#{meta* 35127}# #{else* 35128}#) + (#{chi-lambda-case 4385}# + #{e 35014}# + #{r 35015}# + #{w 35016}# + #{s 35017}# + #{mod 35018}# + #{get-formals 35019}# + (map (lambda (#{tmp 2806 35121}# + #{tmp 2805 35122}# + #{tmp 2804 35123}#) + (cons #{tmp 2804 35123}# + (cons #{tmp 2805 35122}# + #{tmp 2806 35121}#))) + #{e2* 35040}# + #{e1* 35039}# + #{args* 35038}#))) + (lambda (#{meta* 35124}# #{else* 35125}#) (values - (append #{meta 35116}# #{meta* 35127}#) + (append #{meta 35113}# #{meta* 35124}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{s 35020}# - #{req 35117}# - #{opt 35118}# - #{rest 35119}# - #{kw 35120}# - #{inits 35121}# - #{vars 35122}# - #{body 35123}# - #{else* 35128}#))))))))) - #{tmp 35034}#) + #{s 35017}# + #{req 35114}# + #{opt 35115}# + #{rest 35116}# + #{kw 35117}# + #{inits 35118}# + #{vars 35119}# + #{body 35120}# + #{else* 35125}#))))))))) + #{tmp 35031}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 35023}#)))))))) - (#{strip 4388}# - (lambda (#{x 36442}# #{w 36443}#) - (if (memq 'top (car #{w 36443}#)) - #{x 36442}# + #{clauses 35020}#)))))))) + (#{strip 4386}# + (lambda (#{x 36439}# #{w 36440}#) + (if (memq 'top (car #{w 36440}#)) + #{x 36439}# (letrec* - ((#{f 36444}# - (lambda (#{x 36447}#) - (if (if (vector? #{x 36447}#) - (if (= (vector-length #{x 36447}#) 4) - (eq? (vector-ref #{x 36447}# 0) 'syntax-object) + ((#{f 36441}# + (lambda (#{x 36444}#) + (if (if (vector? #{x 36444}#) + (if (= (vector-length #{x 36444}#) 4) + (eq? (vector-ref #{x 36444}# 0) 'syntax-object) #f) #f) - (#{strip 4388}# - (vector-ref #{x 36447}# 1) - (vector-ref #{x 36447}# 2)) - (if (pair? #{x 36447}#) - (let ((#{a 36466}# (#{f 36444}# (car #{x 36447}#))) - (#{d 36467}# (#{f 36444}# (cdr #{x 36447}#)))) - (if (if (eq? #{a 36466}# (car #{x 36447}#)) - (eq? #{d 36467}# (cdr #{x 36447}#)) + (#{strip 4386}# + (vector-ref #{x 36444}# 1) + (vector-ref #{x 36444}# 2)) + (if (pair? #{x 36444}#) + (let ((#{a 36463}# (#{f 36441}# (car #{x 36444}#))) + (#{d 36464}# (#{f 36441}# (cdr #{x 36444}#)))) + (if (if (eq? #{a 36463}# (car #{x 36444}#)) + (eq? #{d 36464}# (cdr #{x 36444}#)) #f) - #{x 36447}# - (cons #{a 36466}# #{d 36467}#))) - (if (vector? #{x 36447}#) - (let ((#{old 36470}# (vector->list #{x 36447}#))) - (let ((#{new 36471}# (map #{f 36444}# #{old 36470}#))) + #{x 36444}# + (cons #{a 36463}# #{d 36464}#))) + (if (vector? #{x 36444}#) + (let ((#{old 36467}# (vector->list #{x 36444}#))) + (let ((#{new 36468}# (map #{f 36441}# #{old 36467}#))) (letrec* - ((#{lp 36472}# - (lambda (#{l1 36569}# #{l2 36570}#) - (if (null? #{l1 36569}#) - #{x 36447}# - (if (eq? (car #{l1 36569}#) - (car #{l2 36570}#)) - (#{lp 36472}# - (cdr #{l1 36569}#) - (cdr #{l2 36570}#)) - (list->vector #{new 36471}#)))))) - (#{lp 36472}# #{old 36470}# #{new 36471}#)))) - #{x 36447}#)))))) - (#{f 36444}# #{x 36442}#))))) - (#{gen-var 4389}# - (lambda (#{id 35172}#) - (let ((#{id 35173}# - (if (if (vector? #{id 35172}#) - (if (= (vector-length #{id 35172}#) 4) - (eq? (vector-ref #{id 35172}# 0) 'syntax-object) + ((#{lp 36469}# + (lambda (#{l1 36566}# #{l2 36567}#) + (if (null? #{l1 36566}#) + #{x 36444}# + (if (eq? (car #{l1 36566}#) + (car #{l2 36567}#)) + (#{lp 36469}# + (cdr #{l1 36566}#) + (cdr #{l2 36567}#)) + (list->vector #{new 36468}#)))))) + (#{lp 36469}# #{old 36467}# #{new 36468}#)))) + #{x 36444}#)))))) + (#{f 36441}# #{x 36439}#))))) + (#{gen-var 4387}# + (lambda (#{id 35169}#) + (let ((#{id 35170}# + (if (if (vector? #{id 35169}#) + (if (= (vector-length #{id 35169}#) 4) + (eq? (vector-ref #{id 35169}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 35172}# 1) - #{id 35172}#))) + (vector-ref #{id 35169}# 1) + #{id 35169}#))) (gensym - (string-append (symbol->string #{id 35173}#) " "))))) - (#{lambda-var-list 4390}# - (lambda (#{vars 36571}#) + (string-append (symbol->string #{id 35170}#) " "))))) + (#{lambda-var-list 4388}# + (lambda (#{vars 36568}#) (letrec* - ((#{lvl 36572}# - (lambda (#{vars 36575}# #{ls 36576}# #{w 36577}#) - (if (pair? #{vars 36575}#) - (#{lvl 36572}# - (cdr #{vars 36575}#) - (cons (let ((#{x 36581}# (car #{vars 36575}#))) - (if (if (null? (car #{w 36577}#)) - (null? (cdr #{w 36577}#)) + ((#{lvl 36569}# + (lambda (#{vars 36572}# #{ls 36573}# #{w 36574}#) + (if (pair? #{vars 36572}#) + (#{lvl 36569}# + (cdr #{vars 36572}#) + (cons (let ((#{x 36578}# (car #{vars 36572}#))) + (if (if (null? (car #{w 36574}#)) + (null? (cdr #{w 36574}#)) #f) - #{x 36581}# - (if (if (vector? #{x 36581}#) - (if (= (vector-length #{x 36581}#) 4) - (eq? (vector-ref #{x 36581}# 0) + #{x 36578}# + (if (if (vector? #{x 36578}#) + (if (= (vector-length #{x 36578}#) 4) + (eq? (vector-ref #{x 36578}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36599}# - (vector-ref #{x 36581}# 1)) - (#{wrap 36600}# - (let ((#{w2 36608}# - (vector-ref #{x 36581}# 2))) - (let ((#{m1 36609}# (car #{w 36577}#)) - (#{s1 36610}# (cdr #{w 36577}#))) - (if (null? #{m1 36609}#) - (if (null? #{s1 36610}#) - #{w2 36608}# - (cons (car #{w2 36608}#) - (let ((#{m2 36625}# - (cdr #{w2 36608}#))) - (if (null? #{m2 36625}#) - #{s1 36610}# + (let ((#{expression 36596}# + (vector-ref #{x 36578}# 1)) + (#{wrap 36597}# + (let ((#{w2 36605}# + (vector-ref #{x 36578}# 2))) + (let ((#{m1 36606}# (car #{w 36574}#)) + (#{s1 36607}# (cdr #{w 36574}#))) + (if (null? #{m1 36606}#) + (if (null? #{s1 36607}#) + #{w2 36605}# + (cons (car #{w2 36605}#) + (let ((#{m2 36622}# + (cdr #{w2 36605}#))) + (if (null? #{m2 36622}#) + #{s1 36607}# (append - #{s1 36610}# - #{m2 36625}#))))) - (cons (let ((#{m2 36633}# - (car #{w2 36608}#))) - (if (null? #{m2 36633}#) - #{m1 36609}# + #{s1 36607}# + #{m2 36622}#))))) + (cons (let ((#{m2 36630}# + (car #{w2 36605}#))) + (if (null? #{m2 36630}#) + #{m1 36606}# (append - #{m1 36609}# - #{m2 36633}#))) - (let ((#{m2 36641}# - (cdr #{w2 36608}#))) - (if (null? #{m2 36641}#) - #{s1 36610}# + #{m1 36606}# + #{m2 36630}#))) + (let ((#{m2 36638}# + (cdr #{w2 36605}#))) + (if (null? #{m2 36638}#) + #{s1 36607}# (append - #{s1 36610}# - #{m2 36641}#)))))))) - (#{module 36601}# - (vector-ref #{x 36581}# 3))) + #{s1 36607}# + #{m2 36638}#)))))))) + (#{module 36598}# + (vector-ref #{x 36578}# 3))) (vector 'syntax-object - #{expression 36599}# - #{wrap 36600}# - #{module 36601}#)) - (if (null? #{x 36581}#) - #{x 36581}# + #{expression 36596}# + #{wrap 36597}# + #{module 36598}#)) + (if (null? #{x 36578}#) + #{x 36578}# (vector 'syntax-object - #{x 36581}# - #{w 36577}# + #{x 36578}# + #{w 36574}# #f))))) - #{ls 36576}#) - #{w 36577}#) - (if (if (symbol? #{vars 36575}#) + #{ls 36573}#) + #{w 36574}#) + (if (if (symbol? #{vars 36572}#) #t - (if (if (vector? #{vars 36575}#) - (if (= (vector-length #{vars 36575}#) 4) - (eq? (vector-ref #{vars 36575}# 0) + (if (if (vector? #{vars 36572}#) + (if (= (vector-length #{vars 36572}#) 4) + (eq? (vector-ref #{vars 36572}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{vars 36575}# 1)) + (symbol? (vector-ref #{vars 36572}# 1)) #f)) - (cons (if (if (null? (car #{w 36577}#)) - (null? (cdr #{w 36577}#)) + (cons (if (if (null? (car #{w 36574}#)) + (null? (cdr #{w 36574}#)) #f) - #{vars 36575}# - (if (if (vector? #{vars 36575}#) - (if (= (vector-length #{vars 36575}#) 4) - (eq? (vector-ref #{vars 36575}# 0) + #{vars 36572}# + (if (if (vector? #{vars 36572}#) + (if (= (vector-length #{vars 36572}#) 4) + (eq? (vector-ref #{vars 36572}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36711}# - (vector-ref #{vars 36575}# 1)) - (#{wrap 36712}# - (let ((#{w2 36722}# - (vector-ref #{vars 36575}# 2))) - (let ((#{m1 36723}# (car #{w 36577}#)) - (#{s1 36724}# (cdr #{w 36577}#))) - (if (null? #{m1 36723}#) - (if (null? #{s1 36724}#) - #{w2 36722}# - (cons (car #{w2 36722}#) - (let ((#{m2 36741}# - (cdr #{w2 36722}#))) - (if (null? #{m2 36741}#) - #{s1 36724}# + (let ((#{expression 36708}# + (vector-ref #{vars 36572}# 1)) + (#{wrap 36709}# + (let ((#{w2 36719}# + (vector-ref #{vars 36572}# 2))) + (let ((#{m1 36720}# (car #{w 36574}#)) + (#{s1 36721}# (cdr #{w 36574}#))) + (if (null? #{m1 36720}#) + (if (null? #{s1 36721}#) + #{w2 36719}# + (cons (car #{w2 36719}#) + (let ((#{m2 36738}# + (cdr #{w2 36719}#))) + (if (null? #{m2 36738}#) + #{s1 36721}# (append - #{s1 36724}# - #{m2 36741}#))))) - (cons (let ((#{m2 36749}# - (car #{w2 36722}#))) - (if (null? #{m2 36749}#) - #{m1 36723}# + #{s1 36721}# + #{m2 36738}#))))) + (cons (let ((#{m2 36746}# + (car #{w2 36719}#))) + (if (null? #{m2 36746}#) + #{m1 36720}# (append - #{m1 36723}# - #{m2 36749}#))) - (let ((#{m2 36757}# - (cdr #{w2 36722}#))) - (if (null? #{m2 36757}#) - #{s1 36724}# + #{m1 36720}# + #{m2 36746}#))) + (let ((#{m2 36754}# + (cdr #{w2 36719}#))) + (if (null? #{m2 36754}#) + #{s1 36721}# (append - #{s1 36724}# - #{m2 36757}#)))))))) - (#{module 36713}# - (vector-ref #{vars 36575}# 3))) + #{s1 36721}# + #{m2 36754}#)))))))) + (#{module 36710}# + (vector-ref #{vars 36572}# 3))) (vector 'syntax-object - #{expression 36711}# - #{wrap 36712}# - #{module 36713}#)) - (if (null? #{vars 36575}#) - #{vars 36575}# + #{expression 36708}# + #{wrap 36709}# + #{module 36710}#)) + (if (null? #{vars 36572}#) + #{vars 36572}# (vector 'syntax-object - #{vars 36575}# - #{w 36577}# + #{vars 36572}# + #{w 36574}# #f)))) - #{ls 36576}#) - (if (null? #{vars 36575}#) - #{ls 36576}# - (if (if (vector? #{vars 36575}#) - (if (= (vector-length #{vars 36575}#) 4) - (eq? (vector-ref #{vars 36575}# 0) + #{ls 36573}#) + (if (null? #{vars 36572}#) + #{ls 36573}# + (if (if (vector? #{vars 36572}#) + (if (= (vector-length #{vars 36572}#) 4) + (eq? (vector-ref #{vars 36572}# 0) 'syntax-object) #f) #f) - (#{lvl 36572}# - (vector-ref #{vars 36575}# 1) - #{ls 36576}# - (let ((#{w2 36798}# (vector-ref #{vars 36575}# 2))) - (let ((#{m1 36799}# (car #{w 36577}#)) - (#{s1 36800}# (cdr #{w 36577}#))) - (if (null? #{m1 36799}#) - (if (null? #{s1 36800}#) - #{w2 36798}# - (cons (car #{w2 36798}#) - (let ((#{m2 36811}# (cdr #{w2 36798}#))) - (if (null? #{m2 36811}#) - #{s1 36800}# + (#{lvl 36569}# + (vector-ref #{vars 36572}# 1) + #{ls 36573}# + (let ((#{w2 36795}# (vector-ref #{vars 36572}# 2))) + (let ((#{m1 36796}# (car #{w 36574}#)) + (#{s1 36797}# (cdr #{w 36574}#))) + (if (null? #{m1 36796}#) + (if (null? #{s1 36797}#) + #{w2 36795}# + (cons (car #{w2 36795}#) + (let ((#{m2 36808}# (cdr #{w2 36795}#))) + (if (null? #{m2 36808}#) + #{s1 36797}# (append - #{s1 36800}# - #{m2 36811}#))))) - (cons (let ((#{m2 36819}# (car #{w2 36798}#))) - (if (null? #{m2 36819}#) - #{m1 36799}# - (append #{m1 36799}# #{m2 36819}#))) - (let ((#{m2 36827}# (cdr #{w2 36798}#))) - (if (null? #{m2 36827}#) - #{s1 36800}# + #{s1 36797}# + #{m2 36808}#))))) + (cons (let ((#{m2 36816}# (car #{w2 36795}#))) + (if (null? #{m2 36816}#) + #{m1 36796}# + (append #{m1 36796}# #{m2 36816}#))) + (let ((#{m2 36824}# (cdr #{w2 36795}#))) + (if (null? #{m2 36824}#) + #{s1 36797}# (append - #{s1 36800}# - #{m2 36827}#)))))))) - (cons #{vars 36575}# #{ls 36576}#)))))))) - (#{lvl 36572}# #{vars 36571}# '() '(())))))) + #{s1 36797}# + #{m2 36824}#)))))))) + (cons #{vars 36572}# #{ls 36573}#)))))))) + (#{lvl 36569}# #{vars 36568}# '() '(())))))) (begin (module-define! (current-module) @@ -8920,2101 +8903,2101 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 4341}# + (#{global-extend 4339}# 'core 'fluid-let-syntax - (lambda (#{e 4517}# - #{r 4518}# - #{w 4519}# - #{s 4520}# - #{mod 4521}#) - (let ((#{tmp 4523}# + (lambda (#{e 4515}# + #{r 4516}# + #{w 4517}# + #{s 4518}# + #{mod 4519}#) + (let ((#{tmp 4521}# ($sc-dispatch - #{e 4517}# + #{e 4515}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4523}# + (if (if #{tmp 4521}# (@apply - (lambda (#{var 4527}# - #{val 4528}# - #{e1 4529}# - #{e2 4530}#) - (#{valid-bound-ids? 4365}# #{var 4527}#)) - #{tmp 4523}#) + (lambda (#{var 4525}# + #{val 4526}# + #{e1 4527}# + #{e2 4528}#) + (#{valid-bound-ids? 4363}# #{var 4525}#)) + #{tmp 4521}#) #f) (@apply - (lambda (#{var 4615}# - #{val 4616}# - #{e1 4617}# - #{e2 4618}#) - (let ((#{names 4619}# - (map (lambda (#{x 4885}#) - (#{id-var-name 4362}# #{x 4885}# #{w 4519}#)) - #{var 4615}#))) + (lambda (#{var 4613}# + #{val 4614}# + #{e1 4615}# + #{e2 4616}#) + (let ((#{names 4617}# + (map (lambda (#{x 4883}#) + (#{id-var-name 4360}# #{x 4883}# #{w 4517}#)) + #{var 4613}#))) (begin (for-each - (lambda (#{id 4620}# #{n 4621}#) - (let ((#{atom-key 4622}# - (car (let ((#{t 4822}# - (assq #{n 4621}# #{r 4518}#))) - (if #{t 4822}# - (cdr #{t 4822}#) - (if (symbol? #{n 4621}#) - (let ((#{t 4827}# + (lambda (#{id 4618}# #{n 4619}#) + (let ((#{atom-key 4620}# + (car (let ((#{t 4820}# + (assq #{n 4619}# #{r 4516}#))) + (if #{t 4820}# + (cdr #{t 4820}#) + (if (symbol? #{n 4619}#) + (let ((#{t 4825}# (begin - (if (if (not #{mod 4521}#) + (if (if (not #{mod 4519}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 4621}#)) - (let ((#{v 4864}# + #{n 4619}#)) + (let ((#{v 4862}# (module-variable - (if #{mod 4521}# + (if #{mod 4519}# (resolve-module - (cdr #{mod 4521}#)) + (cdr #{mod 4519}#)) (current-module)) - #{n 4621}#))) - (if #{v 4864}# + #{n 4619}#))) + (if #{v 4862}# (if (variable-bound? - #{v 4864}#) - (let ((#{val 4873}# + #{v 4862}#) + (let ((#{val 4871}# (variable-ref - #{v 4864}#))) + #{v 4862}#))) (if (macro? - #{val 4873}#) + #{val 4871}#) (if (macro-type - #{val 4873}#) + #{val 4871}#) (cons (macro-type - #{val 4873}#) + #{val 4871}#) (macro-binding - #{val 4873}#)) + #{val 4871}#)) #f) #f)) #f) #f))))) - (if #{t 4827}# - #{t 4827}# + (if #{t 4825}# + #{t 4825}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 4655}# #{atom-key 4622}#)) - (eqv? #{t 4655}# 'displaced-lexical)) + (if (let ((#{t 4653}# #{atom-key 4620}#)) + (eqv? #{t 4653}# 'displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 4517}# - (let ((#{x 4727}# + #{e 4515}# + (let ((#{x 4725}# (begin - (if (if (pair? #{id 4620}#) - #{s 4520}# + (if (if (pair? #{id 4618}#) + #{s 4518}# #f) (set-source-properties! - #{id 4620}# - #{s 4520}#)) - #{id 4620}#))) - (if (if (null? (car #{w 4519}#)) - (null? (cdr #{w 4519}#)) + #{id 4618}# + #{s 4518}#)) + #{id 4618}#))) + (if (if (null? (car #{w 4517}#)) + (null? (cdr #{w 4517}#)) #f) - #{x 4727}# - (if (if (vector? #{x 4727}#) - (if (= (vector-length #{x 4727}#) 4) - (eq? (vector-ref #{x 4727}# 0) + #{x 4725}# + (if (if (vector? #{x 4725}#) + (if (= (vector-length #{x 4725}#) 4) + (eq? (vector-ref #{x 4725}# 0) 'syntax-object) #f) #f) - (let ((#{expression 4759}# - (vector-ref #{x 4727}# 1)) - (#{wrap 4760}# - (let ((#{w2 4768}# - (vector-ref #{x 4727}# 2))) - (let ((#{m1 4769}# - (car #{w 4519}#)) - (#{s1 4770}# - (cdr #{w 4519}#))) - (if (null? #{m1 4769}#) - (if (null? #{s1 4770}#) - #{w2 4768}# - (cons (car #{w2 4768}#) - (let ((#{m2 4785}# - (cdr #{w2 4768}#))) - (if (null? #{m2 4785}#) - #{s1 4770}# + (let ((#{expression 4757}# + (vector-ref #{x 4725}# 1)) + (#{wrap 4758}# + (let ((#{w2 4766}# + (vector-ref #{x 4725}# 2))) + (let ((#{m1 4767}# + (car #{w 4517}#)) + (#{s1 4768}# + (cdr #{w 4517}#))) + (if (null? #{m1 4767}#) + (if (null? #{s1 4768}#) + #{w2 4766}# + (cons (car #{w2 4766}#) + (let ((#{m2 4783}# + (cdr #{w2 4766}#))) + (if (null? #{m2 4783}#) + #{s1 4768}# (append - #{s1 4770}# - #{m2 4785}#))))) - (cons (let ((#{m2 4793}# - (car #{w2 4768}#))) - (if (null? #{m2 4793}#) - #{m1 4769}# + #{s1 4768}# + #{m2 4783}#))))) + (cons (let ((#{m2 4791}# + (car #{w2 4766}#))) + (if (null? #{m2 4791}#) + #{m1 4767}# (append - #{m1 4769}# - #{m2 4793}#))) - (let ((#{m2 4801}# - (cdr #{w2 4768}#))) - (if (null? #{m2 4801}#) - #{s1 4770}# + #{m1 4767}# + #{m2 4791}#))) + (let ((#{m2 4799}# + (cdr #{w2 4766}#))) + (if (null? #{m2 4799}#) + #{s1 4768}# (append - #{s1 4770}# - #{m2 4801}#)))))))) - (#{module 4761}# - (vector-ref #{x 4727}# 3))) + #{s1 4768}# + #{m2 4799}#)))))))) + (#{module 4759}# + (vector-ref #{x 4725}# 3))) (vector 'syntax-object - #{expression 4759}# - #{wrap 4760}# - #{module 4761}#)) - (if (null? #{x 4727}#) - #{x 4727}# + #{expression 4757}# + #{wrap 4758}# + #{module 4759}#)) + (if (null? #{x 4725}#) + #{x 4725}# (vector 'syntax-object - #{x 4727}# - #{w 4519}# - #{mod 4521}#))))))))) - #{var 4615}# - #{names 4619}#) - (#{chi-body 4379}# - (cons #{e1 4617}# #{e2 4618}#) - (let ((#{x 4898}# + #{x 4725}# + #{w 4517}# + #{mod 4519}#))))))))) + #{var 4613}# + #{names 4617}#) + (#{chi-body 4377}# + (cons #{e1 4615}# #{e2 4616}#) + (let ((#{x 4896}# (begin - (if (if (pair? #{e 4517}#) #{s 4520}# #f) + (if (if (pair? #{e 4515}#) #{s 4518}# #f) (set-source-properties! - #{e 4517}# - #{s 4520}#)) - #{e 4517}#))) - (if (if (null? (car #{w 4519}#)) - (null? (cdr #{w 4519}#)) + #{e 4515}# + #{s 4518}#)) + #{e 4515}#))) + (if (if (null? (car #{w 4517}#)) + (null? (cdr #{w 4517}#)) #f) - #{x 4898}# - (if (if (vector? #{x 4898}#) - (if (= (vector-length #{x 4898}#) 4) - (eq? (vector-ref #{x 4898}# 0) + #{x 4896}# + (if (if (vector? #{x 4896}#) + (if (= (vector-length #{x 4896}#) 4) + (eq? (vector-ref #{x 4896}# 0) 'syntax-object) #f) #f) - (let ((#{expression 4930}# - (vector-ref #{x 4898}# 1)) - (#{wrap 4931}# - (let ((#{w2 4939}# - (vector-ref #{x 4898}# 2))) - (let ((#{m1 4940}# (car #{w 4519}#)) - (#{s1 4941}# (cdr #{w 4519}#))) - (if (null? #{m1 4940}#) - (if (null? #{s1 4941}#) - #{w2 4939}# - (cons (car #{w2 4939}#) - (let ((#{m2 4956}# - (cdr #{w2 4939}#))) - (if (null? #{m2 4956}#) - #{s1 4941}# + (let ((#{expression 4928}# + (vector-ref #{x 4896}# 1)) + (#{wrap 4929}# + (let ((#{w2 4937}# + (vector-ref #{x 4896}# 2))) + (let ((#{m1 4938}# (car #{w 4517}#)) + (#{s1 4939}# (cdr #{w 4517}#))) + (if (null? #{m1 4938}#) + (if (null? #{s1 4939}#) + #{w2 4937}# + (cons (car #{w2 4937}#) + (let ((#{m2 4954}# + (cdr #{w2 4937}#))) + (if (null? #{m2 4954}#) + #{s1 4939}# (append - #{s1 4941}# - #{m2 4956}#))))) - (cons (let ((#{m2 4964}# - (car #{w2 4939}#))) - (if (null? #{m2 4964}#) - #{m1 4940}# + #{s1 4939}# + #{m2 4954}#))))) + (cons (let ((#{m2 4962}# + (car #{w2 4937}#))) + (if (null? #{m2 4962}#) + #{m1 4938}# (append - #{m1 4940}# - #{m2 4964}#))) - (let ((#{m2 4972}# - (cdr #{w2 4939}#))) - (if (null? #{m2 4972}#) - #{s1 4941}# + #{m1 4938}# + #{m2 4962}#))) + (let ((#{m2 4970}# + (cdr #{w2 4937}#))) + (if (null? #{m2 4970}#) + #{s1 4939}# (append - #{s1 4941}# - #{m2 4972}#)))))))) - (#{module 4932}# (vector-ref #{x 4898}# 3))) + #{s1 4939}# + #{m2 4970}#)))))))) + (#{module 4930}# (vector-ref #{x 4896}# 3))) (vector 'syntax-object - #{expression 4930}# - #{wrap 4931}# - #{module 4932}#)) - (if (null? #{x 4898}#) - #{x 4898}# + #{expression 4928}# + #{wrap 4929}# + #{module 4930}#)) + (if (null? #{x 4896}#) + #{x 4896}# (vector 'syntax-object - #{x 4898}# - #{w 4519}# - #{mod 4521}#))))) - (#{extend-env 4337}# - #{names 4619}# - (let ((#{trans-r 5050}# - (#{macros-only-env 4339}# #{r 4518}#))) - (map (lambda (#{x 5051}#) + #{x 4896}# + #{w 4517}# + #{mod 4519}#))))) + (#{extend-env 4335}# + #{names 4617}# + (let ((#{trans-r 5048}# + (#{macros-only-env 4337}# #{r 4516}#))) + (map (lambda (#{x 5049}#) (cons 'macro - (#{eval-local-transformer 4381}# - (#{chi 4375}# - #{x 5051}# - #{trans-r 5050}# - #{w 4519}# - #{mod 4521}#) - #{mod 4521}#))) - #{val 4616}#)) - #{r 4518}#) - #{w 4519}# - #{mod 4521}#)))) - #{tmp 4523}#) + (#{eval-local-transformer 4379}# + (#{chi 4373}# + #{x 5049}# + #{trans-r 5048}# + #{w 4517}# + #{mod 4519}#) + #{mod 4519}#))) + #{val 4614}#)) + #{r 4516}#) + #{w 4517}# + #{mod 4519}#)))) + #{tmp 4521}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (let ((#{x 5267}# + (let ((#{x 5265}# (begin - (if (if (pair? #{e 4517}#) #{s 4520}# #f) - (set-source-properties! #{e 4517}# #{s 4520}#)) - #{e 4517}#))) - (if (if (null? (car #{w 4519}#)) - (null? (cdr #{w 4519}#)) + (if (if (pair? #{e 4515}#) #{s 4518}# #f) + (set-source-properties! #{e 4515}# #{s 4518}#)) + #{e 4515}#))) + (if (if (null? (car #{w 4517}#)) + (null? (cdr #{w 4517}#)) #f) - #{x 5267}# - (if (if (vector? #{x 5267}#) - (if (= (vector-length #{x 5267}#) 4) - (eq? (vector-ref #{x 5267}# 0) 'syntax-object) + #{x 5265}# + (if (if (vector? #{x 5265}#) + (if (= (vector-length #{x 5265}#) 4) + (eq? (vector-ref #{x 5265}# 0) 'syntax-object) #f) #f) - (let ((#{expression 5299}# (vector-ref #{x 5267}# 1)) - (#{wrap 5300}# - (let ((#{w2 5308}# (vector-ref #{x 5267}# 2))) - (let ((#{m1 5309}# (car #{w 4519}#)) - (#{s1 5310}# (cdr #{w 4519}#))) - (if (null? #{m1 5309}#) - (if (null? #{s1 5310}#) - #{w2 5308}# - (cons (car #{w2 5308}#) - (let ((#{m2 5325}# - (cdr #{w2 5308}#))) - (if (null? #{m2 5325}#) - #{s1 5310}# + (let ((#{expression 5297}# (vector-ref #{x 5265}# 1)) + (#{wrap 5298}# + (let ((#{w2 5306}# (vector-ref #{x 5265}# 2))) + (let ((#{m1 5307}# (car #{w 4517}#)) + (#{s1 5308}# (cdr #{w 4517}#))) + (if (null? #{m1 5307}#) + (if (null? #{s1 5308}#) + #{w2 5306}# + (cons (car #{w2 5306}#) + (let ((#{m2 5323}# + (cdr #{w2 5306}#))) + (if (null? #{m2 5323}#) + #{s1 5308}# (append - #{s1 5310}# - #{m2 5325}#))))) - (cons (let ((#{m2 5333}# (car #{w2 5308}#))) - (if (null? #{m2 5333}#) - #{m1 5309}# - (append #{m1 5309}# #{m2 5333}#))) - (let ((#{m2 5341}# (cdr #{w2 5308}#))) - (if (null? #{m2 5341}#) - #{s1 5310}# + #{s1 5308}# + #{m2 5323}#))))) + (cons (let ((#{m2 5331}# (car #{w2 5306}#))) + (if (null? #{m2 5331}#) + #{m1 5307}# + (append #{m1 5307}# #{m2 5331}#))) + (let ((#{m2 5339}# (cdr #{w2 5306}#))) + (if (null? #{m2 5339}#) + #{s1 5308}# (append - #{s1 5310}# - #{m2 5341}#)))))))) - (#{module 5301}# (vector-ref #{x 5267}# 3))) + #{s1 5308}# + #{m2 5339}#)))))))) + (#{module 5299}# (vector-ref #{x 5265}# 3))) (vector 'syntax-object - #{expression 5299}# - #{wrap 5300}# - #{module 5301}#)) - (if (null? #{x 5267}#) - #{x 5267}# + #{expression 5297}# + #{wrap 5298}# + #{module 5299}#)) + (if (null? #{x 5265}#) + #{x 5265}# (vector 'syntax-object - #{x 5267}# - #{w 4519}# - #{mod 4521}#)))))))))) + #{x 5265}# + #{w 4517}# + #{mod 4519}#)))))))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5369}# - #{r 5370}# - #{w 5371}# - #{s 5372}# - #{mod 5373}#) - (let ((#{tmp 5375}# ($sc-dispatch #{e 5369}# '(_ any)))) - (if #{tmp 5375}# + (lambda (#{e 5367}# + #{r 5368}# + #{w 5369}# + #{s 5370}# + #{mod 5371}#) + (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any)))) + (if #{tmp 5373}# (@apply - (lambda (#{e 5378}#) - (let ((#{exp 5382}# - (#{strip 4388}# #{e 5378}# #{w 5371}#))) + (lambda (#{e 5376}#) + (let ((#{exp 5380}# + (#{strip 4386}# #{e 5376}# #{w 5369}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5372}# - #{exp 5382}#))) - #{tmp 5375}#) + #{s 5370}# + #{exp 5380}#))) + #{tmp 5373}#) (syntax-violation 'quote "bad syntax" - (let ((#{x 5396}# + (let ((#{x 5394}# (begin - (if (if (pair? #{e 5369}#) #{s 5372}# #f) - (set-source-properties! #{e 5369}# #{s 5372}#)) - #{e 5369}#))) - (if (if (null? (car #{w 5371}#)) - (null? (cdr #{w 5371}#)) + (if (if (pair? #{e 5367}#) #{s 5370}# #f) + (set-source-properties! #{e 5367}# #{s 5370}#)) + #{e 5367}#))) + (if (if (null? (car #{w 5369}#)) + (null? (cdr #{w 5369}#)) #f) - #{x 5396}# - (if (if (vector? #{x 5396}#) - (if (= (vector-length #{x 5396}#) 4) - (eq? (vector-ref #{x 5396}# 0) 'syntax-object) + #{x 5394}# + (if (if (vector? #{x 5394}#) + (if (= (vector-length #{x 5394}#) 4) + (eq? (vector-ref #{x 5394}# 0) 'syntax-object) #f) #f) - (let ((#{expression 5428}# (vector-ref #{x 5396}# 1)) - (#{wrap 5429}# - (let ((#{w2 5437}# (vector-ref #{x 5396}# 2))) - (let ((#{m1 5438}# (car #{w 5371}#)) - (#{s1 5439}# (cdr #{w 5371}#))) - (if (null? #{m1 5438}#) - (if (null? #{s1 5439}#) - #{w2 5437}# - (cons (car #{w2 5437}#) - (let ((#{m2 5454}# - (cdr #{w2 5437}#))) - (if (null? #{m2 5454}#) - #{s1 5439}# + (let ((#{expression 5426}# (vector-ref #{x 5394}# 1)) + (#{wrap 5427}# + (let ((#{w2 5435}# (vector-ref #{x 5394}# 2))) + (let ((#{m1 5436}# (car #{w 5369}#)) + (#{s1 5437}# (cdr #{w 5369}#))) + (if (null? #{m1 5436}#) + (if (null? #{s1 5437}#) + #{w2 5435}# + (cons (car #{w2 5435}#) + (let ((#{m2 5452}# + (cdr #{w2 5435}#))) + (if (null? #{m2 5452}#) + #{s1 5437}# (append - #{s1 5439}# - #{m2 5454}#))))) - (cons (let ((#{m2 5462}# - (car #{w2 5437}#))) - (if (null? #{m2 5462}#) - #{m1 5438}# + #{s1 5437}# + #{m2 5452}#))))) + (cons (let ((#{m2 5460}# + (car #{w2 5435}#))) + (if (null? #{m2 5460}#) + #{m1 5436}# (append - #{m1 5438}# - #{m2 5462}#))) - (let ((#{m2 5470}# - (cdr #{w2 5437}#))) - (if (null? #{m2 5470}#) - #{s1 5439}# + #{m1 5436}# + #{m2 5460}#))) + (let ((#{m2 5468}# + (cdr #{w2 5435}#))) + (if (null? #{m2 5468}#) + #{s1 5437}# (append - #{s1 5439}# - #{m2 5470}#)))))))) - (#{module 5430}# (vector-ref #{x 5396}# 3))) + #{s1 5437}# + #{m2 5468}#)))))))) + (#{module 5428}# (vector-ref #{x 5394}# 3))) (vector 'syntax-object - #{expression 5428}# - #{wrap 5429}# - #{module 5430}#)) - (if (null? #{x 5396}#) - #{x 5396}# + #{expression 5426}# + #{wrap 5427}# + #{module 5428}#)) + (if (null? #{x 5394}#) + #{x 5394}# (vector 'syntax-object - #{x 5396}# - #{w 5371}# - #{mod 5373}#))))))))))) - (#{global-extend 4341}# + #{x 5394}# + #{w 5369}# + #{mod 5371}#))))))))))) + (#{global-extend 4339}# 'core 'syntax (letrec* - ((#{gen-syntax 5710}# - (lambda (#{src 6173}# - #{e 6174}# - #{r 6175}# - #{maps 6176}# - #{ellipsis? 6177}# - #{mod 6178}#) - (if (if (symbol? #{e 6174}#) + ((#{gen-syntax 5708}# + (lambda (#{src 6171}# + #{e 6172}# + #{r 6173}# + #{maps 6174}# + #{ellipsis? 6175}# + #{mod 6176}#) + (if (if (symbol? #{e 6172}#) #t - (if (if (vector? #{e 6174}#) - (if (= (vector-length #{e 6174}#) 4) - (eq? (vector-ref #{e 6174}# 0) 'syntax-object) + (if (if (vector? #{e 6172}#) + (if (= (vector-length #{e 6172}#) 4) + (eq? (vector-ref #{e 6172}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 6174}# 1)) + (symbol? (vector-ref #{e 6172}# 1)) #f)) - (let ((#{label 6205}# - (#{id-var-name 4362}# #{e 6174}# '(())))) - (let ((#{b 6206}# - (let ((#{t 6343}# (assq #{label 6205}# #{r 6175}#))) - (if #{t 6343}# - (cdr #{t 6343}#) - (if (symbol? #{label 6205}#) - (let ((#{t 6348}# + (let ((#{label 6203}# + (#{id-var-name 4360}# #{e 6172}# '(())))) + (let ((#{b 6204}# + (let ((#{t 6341}# (assq #{label 6203}# #{r 6173}#))) + (if #{t 6341}# + (cdr #{t 6341}#) + (if (symbol? #{label 6203}#) + (let ((#{t 6346}# (begin - (if (if (not #{mod 6178}#) + (if (if (not #{mod 6176}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 6205}#)) - (let ((#{v 6385}# + #{label 6203}#)) + (let ((#{v 6383}# (module-variable - (if #{mod 6178}# + (if #{mod 6176}# (resolve-module - (cdr #{mod 6178}#)) + (cdr #{mod 6176}#)) (current-module)) - #{label 6205}#))) - (if #{v 6385}# - (if (variable-bound? #{v 6385}#) - (let ((#{val 6394}# + #{label 6203}#))) + (if #{v 6383}# + (if (variable-bound? #{v 6383}#) + (let ((#{val 6392}# (variable-ref - #{v 6385}#))) - (if (macro? #{val 6394}#) + #{v 6383}#))) + (if (macro? #{val 6392}#) (if (macro-type - #{val 6394}#) + #{val 6392}#) (cons (macro-type - #{val 6394}#) + #{val 6392}#) (macro-binding - #{val 6394}#)) + #{val 6392}#)) #f) #f)) #f) #f))))) - (if #{t 6348}# #{t 6348}# '(global))) + (if #{t 6346}# #{t 6346}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 6206}#) 'syntax) + (if (eq? (car #{b 6204}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 6239}# (cdr #{b 6206}#))) - (#{gen-ref 5711}# - #{src 6173}# - (car #{var.lev 6239}#) - (cdr #{var.lev 6239}#) - #{maps 6176}#))) - (lambda (#{var 6335}# #{maps 6336}#) - (values (list 'ref #{var 6335}#) #{maps 6336}#))) - (if (#{ellipsis? 6177}# #{e 6174}#) + (let ((#{var.lev 6237}# (cdr #{b 6204}#))) + (#{gen-ref 5709}# + #{src 6171}# + (car #{var.lev 6237}#) + (cdr #{var.lev 6237}#) + #{maps 6174}#))) + (lambda (#{var 6333}# #{maps 6334}#) + (values (list 'ref #{var 6333}#) #{maps 6334}#))) + (if (#{ellipsis? 6175}# #{e 6172}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 6173}#) - (values (list 'quote #{e 6174}#) #{maps 6176}#))))) - (let ((#{tmp 6406}# - ($sc-dispatch #{e 6174}# '(any any)))) - (if (if #{tmp 6406}# + #{src 6171}#) + (values (list 'quote #{e 6172}#) #{maps 6174}#))))) + (let ((#{tmp 6404}# + ($sc-dispatch #{e 6172}# '(any any)))) + (if (if #{tmp 6404}# (@apply - (lambda (#{dots 6410}# #{e 6411}#) - (#{ellipsis? 6177}# #{dots 6410}#)) - #{tmp 6406}#) + (lambda (#{dots 6408}# #{e 6409}#) + (#{ellipsis? 6175}# #{dots 6408}#)) + #{tmp 6404}#) #f) (@apply - (lambda (#{dots 6412}# #{e 6413}#) - (#{gen-syntax 5710}# - #{src 6173}# - #{e 6413}# - #{r 6175}# - #{maps 6176}# - (lambda (#{x 6414}#) #f) - #{mod 6178}#)) - #{tmp 6406}#) - (let ((#{tmp 6415}# - ($sc-dispatch #{e 6174}# '(any any . any)))) - (if (if #{tmp 6415}# + (lambda (#{dots 6410}# #{e 6411}#) + (#{gen-syntax 5708}# + #{src 6171}# + #{e 6411}# + #{r 6173}# + #{maps 6174}# + (lambda (#{x 6412}#) #f) + #{mod 6176}#)) + #{tmp 6404}#) + (let ((#{tmp 6413}# + ($sc-dispatch #{e 6172}# '(any any . any)))) + (if (if #{tmp 6413}# (@apply - (lambda (#{x 6419}# #{dots 6420}# #{y 6421}#) - (#{ellipsis? 6177}# #{dots 6420}#)) - #{tmp 6415}#) + (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#) + (#{ellipsis? 6175}# #{dots 6418}#)) + #{tmp 6413}#) #f) (@apply - (lambda (#{x 6422}# #{dots 6423}# #{y 6424}#) + (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#) (letrec* - ((#{f 6425}# - (lambda (#{y 6433}# #{k 6434}#) - (let ((#{tmp 6436}# + ((#{f 6423}# + (lambda (#{y 6431}# #{k 6432}#) + (let ((#{tmp 6434}# ($sc-dispatch - #{y 6433}# + #{y 6431}# '(any . any)))) - (if (if #{tmp 6436}# + (if (if #{tmp 6434}# (@apply - (lambda (#{dots 6440}# #{y 6441}#) - (#{ellipsis? 6177}# - #{dots 6440}#)) - #{tmp 6436}#) + (lambda (#{dots 6438}# #{y 6439}#) + (#{ellipsis? 6175}# + #{dots 6438}#)) + #{tmp 6434}#) #f) (@apply - (lambda (#{dots 6442}# #{y 6443}#) - (#{f 6425}# - #{y 6443}# - (lambda (#{maps 6444}#) + (lambda (#{dots 6440}# #{y 6441}#) + (#{f 6423}# + #{y 6441}# + (lambda (#{maps 6442}#) (call-with-values (lambda () - (#{k 6434}# - (cons '() #{maps 6444}#))) - (lambda (#{x 6445}# - #{maps 6446}#) - (if (null? (car #{maps 6446}#)) + (#{k 6432}# + (cons '() #{maps 6442}#))) + (lambda (#{x 6443}# + #{maps 6444}#) + (if (null? (car #{maps 6444}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 6173}#) + #{src 6171}#) (values - (let ((#{map-env 6450}# - (car #{maps 6446}#))) + (let ((#{map-env 6448}# + (car #{maps 6444}#))) (list 'apply '(primitive append) - (#{gen-map 5713}# - #{x 6445}# - #{map-env 6450}#))) - (cdr #{maps 6446}#)))))))) - #{tmp 6436}#) + (#{gen-map 5711}# + #{x 6443}# + #{map-env 6448}#))) + (cdr #{maps 6444}#)))))))) + #{tmp 6434}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{src 6173}# - #{y 6433}# - #{r 6175}# - #{maps 6176}# - #{ellipsis? 6177}# - #{mod 6178}#)) - (lambda (#{y 6453}# #{maps 6454}#) + (#{gen-syntax 5708}# + #{src 6171}# + #{y 6431}# + #{r 6173}# + #{maps 6174}# + #{ellipsis? 6175}# + #{mod 6176}#)) + (lambda (#{y 6451}# #{maps 6452}#) (call-with-values (lambda () - (#{k 6434}# #{maps 6454}#)) - (lambda (#{x 6455}# #{maps 6456}#) + (#{k 6432}# #{maps 6452}#)) + (lambda (#{x 6453}# #{maps 6454}#) (values - (if (equal? #{y 6453}# ''()) - #{x 6455}# + (if (equal? #{y 6451}# ''()) + #{x 6453}# (list 'append - #{x 6455}# - #{y 6453}#)) - #{maps 6456}#)))))))))) - (#{f 6425}# - #{y 6424}# - (lambda (#{maps 6428}#) + #{x 6453}# + #{y 6451}#)) + #{maps 6454}#)))))))))) + (#{f 6423}# + #{y 6422}# + (lambda (#{maps 6426}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{src 6173}# - #{x 6422}# - #{r 6175}# - (cons '() #{maps 6428}#) - #{ellipsis? 6177}# - #{mod 6178}#)) - (lambda (#{x 6429}# #{maps 6430}#) - (if (null? (car #{maps 6430}#)) + (#{gen-syntax 5708}# + #{src 6171}# + #{x 6420}# + #{r 6173}# + (cons '() #{maps 6426}#) + #{ellipsis? 6175}# + #{mod 6176}#)) + (lambda (#{x 6427}# #{maps 6428}#) + (if (null? (car #{maps 6428}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 6173}#) + #{src 6171}#) (values - (#{gen-map 5713}# - #{x 6429}# - (car #{maps 6430}#)) - (cdr #{maps 6430}#))))))))) - #{tmp 6415}#) - (let ((#{tmp 6472}# - ($sc-dispatch #{e 6174}# '(any . any)))) - (if #{tmp 6472}# + (#{gen-map 5711}# + #{x 6427}# + (car #{maps 6428}#)) + (cdr #{maps 6428}#))))))))) + #{tmp 6413}#) + (let ((#{tmp 6470}# + ($sc-dispatch #{e 6172}# '(any . any)))) + (if #{tmp 6470}# (@apply - (lambda (#{x 6476}# #{y 6477}#) + (lambda (#{x 6474}# #{y 6475}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{src 6173}# - #{x 6476}# - #{r 6175}# - #{maps 6176}# - #{ellipsis? 6177}# - #{mod 6178}#)) - (lambda (#{x 6478}# #{maps 6479}#) + (#{gen-syntax 5708}# + #{src 6171}# + #{x 6474}# + #{r 6173}# + #{maps 6174}# + #{ellipsis? 6175}# + #{mod 6176}#)) + (lambda (#{x 6476}# #{maps 6477}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{src 6173}# - #{y 6477}# - #{r 6175}# - #{maps 6479}# - #{ellipsis? 6177}# - #{mod 6178}#)) - (lambda (#{y 6480}# #{maps 6481}#) + (#{gen-syntax 5708}# + #{src 6171}# + #{y 6475}# + #{r 6173}# + #{maps 6477}# + #{ellipsis? 6175}# + #{mod 6176}#)) + (lambda (#{y 6478}# #{maps 6479}#) (values - (let ((#{atom-key 6486}# - (car #{y 6480}#))) - (if (eqv? #{atom-key 6486}# 'quote) - (if (eq? (car #{x 6478}#) 'quote) + (let ((#{atom-key 6484}# + (car #{y 6478}#))) + (if (eqv? #{atom-key 6484}# 'quote) + (if (eq? (car #{x 6476}#) 'quote) (list 'quote - (cons (car (cdr #{x 6478}#)) - (car (cdr #{y 6480}#)))) - (if (eq? (car (cdr #{y 6480}#)) + (cons (car (cdr #{x 6476}#)) + (car (cdr #{y 6478}#)))) + (if (eq? (car (cdr #{y 6478}#)) '()) - (list 'list #{x 6478}#) + (list 'list #{x 6476}#) (list 'cons - #{x 6478}# - #{y 6480}#))) - (if (eqv? #{atom-key 6486}# 'list) + #{x 6476}# + #{y 6478}#))) + (if (eqv? #{atom-key 6484}# 'list) (cons 'list - (cons #{x 6478}# - (cdr #{y 6480}#))) + (cons #{x 6476}# + (cdr #{y 6478}#))) (list 'cons - #{x 6478}# - #{y 6480}#)))) - #{maps 6481}#)))))) - #{tmp 6472}#) - (let ((#{tmp 6515}# + #{x 6476}# + #{y 6478}#)))) + #{maps 6479}#)))))) + #{tmp 6470}#) + (let ((#{tmp 6513}# ($sc-dispatch - #{e 6174}# + #{e 6172}# '#(vector (any . each-any))))) - (if #{tmp 6515}# + (if #{tmp 6513}# (@apply - (lambda (#{e1 6519}# #{e2 6520}#) + (lambda (#{e1 6517}# #{e2 6518}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{src 6173}# - (cons #{e1 6519}# #{e2 6520}#) - #{r 6175}# - #{maps 6176}# - #{ellipsis? 6177}# - #{mod 6178}#)) - (lambda (#{e 6521}# #{maps 6522}#) + (#{gen-syntax 5708}# + #{src 6171}# + (cons #{e1 6517}# #{e2 6518}#) + #{r 6173}# + #{maps 6174}# + #{ellipsis? 6175}# + #{mod 6176}#)) + (lambda (#{e 6519}# #{maps 6520}#) (values - (if (eq? (car #{e 6521}#) 'list) - (cons 'vector (cdr #{e 6521}#)) - (if (eq? (car #{e 6521}#) 'quote) + (if (eq? (car #{e 6519}#) 'list) + (cons 'vector (cdr #{e 6519}#)) + (if (eq? (car #{e 6519}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 6521}#)))) - (list 'list->vector #{e 6521}#))) - #{maps 6522}#)))) - #{tmp 6515}#) + (car (cdr #{e 6519}#)))) + (list 'list->vector #{e 6519}#))) + #{maps 6520}#)))) + #{tmp 6513}#) (values - (list 'quote #{e 6174}#) - #{maps 6176}#)))))))))))) - (#{gen-ref 5711}# - (lambda (#{src 6549}# - #{var 6550}# - #{level 6551}# - #{maps 6552}#) - (if (= #{level 6551}# 0) - (values #{var 6550}# #{maps 6552}#) - (if (null? #{maps 6552}#) + (list 'quote #{e 6172}#) + #{maps 6174}#)))))))))))) + (#{gen-ref 5709}# + (lambda (#{src 6547}# + #{var 6548}# + #{level 6549}# + #{maps 6550}#) + (if (= #{level 6549}# 0) + (values #{var 6548}# #{maps 6550}#) + (if (null? #{maps 6550}#) (syntax-violation 'syntax "missing ellipsis" - #{src 6549}#) + #{src 6547}#) (call-with-values (lambda () - (#{gen-ref 5711}# - #{src 6549}# - #{var 6550}# - (#{1-}# #{level 6551}#) - (cdr #{maps 6552}#))) - (lambda (#{outer-var 6553}# #{outer-maps 6554}#) - (let ((#{b 6555}# - (assq #{outer-var 6553}# (car #{maps 6552}#)))) - (if #{b 6555}# - (values (cdr #{b 6555}#) #{maps 6552}#) - (let ((#{inner-var 6557}# + (#{gen-ref 5709}# + #{src 6547}# + #{var 6548}# + (#{1-}# #{level 6549}#) + (cdr #{maps 6550}#))) + (lambda (#{outer-var 6551}# #{outer-maps 6552}#) + (let ((#{b 6553}# + (assq #{outer-var 6551}# (car #{maps 6550}#)))) + (if #{b 6553}# + (values (cdr #{b 6553}#) #{maps 6550}#) + (let ((#{inner-var 6555}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 6557}# - (cons (cons (cons #{outer-var 6553}# - #{inner-var 6557}#) - (car #{maps 6552}#)) - #{outer-maps 6554}#))))))))))) - (#{gen-map 5713}# - (lambda (#{e 6571}# #{map-env 6572}#) - (let ((#{formals 6573}# (map cdr #{map-env 6572}#)) - (#{actuals 6574}# - (map (lambda (#{x 6576}#) - (list 'ref (car #{x 6576}#))) - #{map-env 6572}#))) - (if (eq? (car #{e 6571}#) 'ref) - (car #{actuals 6574}#) + #{inner-var 6555}# + (cons (cons (cons #{outer-var 6551}# + #{inner-var 6555}#) + (car #{maps 6550}#)) + #{outer-maps 6552}#))))))))))) + (#{gen-map 5711}# + (lambda (#{e 6569}# #{map-env 6570}#) + (let ((#{formals 6571}# (map cdr #{map-env 6570}#)) + (#{actuals 6572}# + (map (lambda (#{x 6574}#) + (list 'ref (car #{x 6574}#))) + #{map-env 6570}#))) + (if (eq? (car #{e 6569}#) 'ref) + (car #{actuals 6572}#) (if (and-map - (lambda (#{x 6577}#) - (if (eq? (car #{x 6577}#) 'ref) - (memq (car (cdr #{x 6577}#)) #{formals 6573}#) + (lambda (#{x 6575}#) + (if (eq? (car #{x 6575}#) 'ref) + (memq (car (cdr #{x 6575}#)) #{formals 6571}#) #f)) - (cdr #{e 6571}#)) + (cdr #{e 6569}#)) (cons 'map - (cons (list 'primitive (car #{e 6571}#)) - (map (let ((#{r 6579}# + (cons (list 'primitive (car #{e 6569}#)) + (map (let ((#{r 6577}# (map cons - #{formals 6573}# - #{actuals 6574}#))) - (lambda (#{x 6580}#) - (cdr (assq (car (cdr #{x 6580}#)) - #{r 6579}#)))) - (cdr #{e 6571}#)))) + #{formals 6571}# + #{actuals 6572}#))) + (lambda (#{x 6578}#) + (cdr (assq (car (cdr #{x 6578}#)) + #{r 6577}#)))) + (cdr #{e 6569}#)))) (cons 'map - (cons (list 'lambda #{formals 6573}# #{e 6571}#) - #{actuals 6574}#))))))) - (#{regen 5717}# - (lambda (#{x 6582}#) - (let ((#{atom-key 6583}# (car #{x 6582}#))) - (if (eqv? #{atom-key 6583}# 'ref) - (let ((#{name 6593}# (car (cdr #{x 6582}#))) - (#{var 6594}# (car (cdr #{x 6582}#)))) + (cons (list 'lambda #{formals 6571}# #{e 6569}#) + #{actuals 6572}#))))))) + (#{regen 5715}# + (lambda (#{x 6580}#) + (let ((#{atom-key 6581}# (car #{x 6580}#))) + (if (eqv? #{atom-key 6581}# 'ref) + (let ((#{name 6591}# (car (cdr #{x 6580}#))) + (#{var 6592}# (car (cdr #{x 6580}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 6593}# - #{var 6594}#)) - (if (eqv? #{atom-key 6583}# 'primitive) - (let ((#{name 6605}# (car (cdr #{x 6582}#)))) + #{name 6591}# + #{var 6592}#)) + (if (eqv? #{atom-key 6581}# 'primitive) + (let ((#{name 6603}# (car (cdr #{x 6580}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 2) #f - #{name 6605}#)) - (if (eqv? #{atom-key 6583}# 'quote) - (let ((#{exp 6616}# (car (cdr #{x 6582}#)))) + #{name 6603}#)) + (if (eqv? #{atom-key 6581}# 'quote) + (let ((#{exp 6614}# (car (cdr #{x 6580}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 6616}#)) - (if (eqv? #{atom-key 6583}# 'lambda) - (if (list? (car (cdr #{x 6582}#))) - (let ((#{req 6627}# (car (cdr #{x 6582}#))) - (#{vars 6629}# (car (cdr #{x 6582}#))) - (#{exp 6631}# - (#{regen 5717}# - (car (cdr (cdr #{x 6582}#)))))) - (let ((#{body 6636}# + #{exp 6614}#)) + (if (eqv? #{atom-key 6581}# 'lambda) + (if (list? (car (cdr #{x 6580}#))) + (let ((#{req 6625}# (car (cdr #{x 6580}#))) + (#{vars 6627}# (car (cdr #{x 6580}#))) + (#{exp 6629}# + (#{regen 5715}# + (car (cdr (cdr #{x 6580}#)))))) + (let ((#{body 6634}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 6627}# + #{req 6625}# #f #f #f '() - #{vars 6629}# - #{exp 6631}# + #{vars 6627}# + #{exp 6629}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 6636}#))) - (error "how did we get here" #{x 6582}#)) - (let ((#{name 6652}# (car #{x 6582}#)) - (#{args 6653}# - (map #{regen 5717}# (cdr #{x 6582}#)))) + #{body 6634}#))) + (error "how did we get here" #{x 6580}#)) + (let ((#{name 6650}# (car #{x 6580}#)) + (#{args 6651}# + (map #{regen 5715}# (cdr #{x 6580}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{name 6652}# - #{args 6653}#)))))))))) - (lambda (#{e 5718}# - #{r 5719}# - #{w 5720}# - #{s 5721}# - #{mod 5722}#) - (let ((#{e 5723}# - (let ((#{x 6084}# + #{name 6650}# + #{args 6651}#)))))))))) + (lambda (#{e 5716}# + #{r 5717}# + #{w 5718}# + #{s 5719}# + #{mod 5720}#) + (let ((#{e 5721}# + (let ((#{x 6082}# (begin - (if (if (pair? #{e 5718}#) #{s 5721}# #f) - (set-source-properties! #{e 5718}# #{s 5721}#)) - #{e 5718}#))) - (if (if (null? (car #{w 5720}#)) - (null? (cdr #{w 5720}#)) + (if (if (pair? #{e 5716}#) #{s 5719}# #f) + (set-source-properties! #{e 5716}# #{s 5719}#)) + #{e 5716}#))) + (if (if (null? (car #{w 5718}#)) + (null? (cdr #{w 5718}#)) #f) - #{x 6084}# - (if (if (vector? #{x 6084}#) - (if (= (vector-length #{x 6084}#) 4) - (eq? (vector-ref #{x 6084}# 0) 'syntax-object) + #{x 6082}# + (if (if (vector? #{x 6082}#) + (if (= (vector-length #{x 6082}#) 4) + (eq? (vector-ref #{x 6082}# 0) 'syntax-object) #f) #f) - (let ((#{expression 6116}# (vector-ref #{x 6084}# 1)) - (#{wrap 6117}# - (let ((#{w2 6125}# (vector-ref #{x 6084}# 2))) - (let ((#{m1 6126}# (car #{w 5720}#)) - (#{s1 6127}# (cdr #{w 5720}#))) - (if (null? #{m1 6126}#) - (if (null? #{s1 6127}#) - #{w2 6125}# - (cons (car #{w2 6125}#) - (let ((#{m2 6142}# - (cdr #{w2 6125}#))) - (if (null? #{m2 6142}#) - #{s1 6127}# + (let ((#{expression 6114}# (vector-ref #{x 6082}# 1)) + (#{wrap 6115}# + (let ((#{w2 6123}# (vector-ref #{x 6082}# 2))) + (let ((#{m1 6124}# (car #{w 5718}#)) + (#{s1 6125}# (cdr #{w 5718}#))) + (if (null? #{m1 6124}#) + (if (null? #{s1 6125}#) + #{w2 6123}# + (cons (car #{w2 6123}#) + (let ((#{m2 6140}# + (cdr #{w2 6123}#))) + (if (null? #{m2 6140}#) + #{s1 6125}# (append - #{s1 6127}# - #{m2 6142}#))))) - (cons (let ((#{m2 6150}# - (car #{w2 6125}#))) - (if (null? #{m2 6150}#) - #{m1 6126}# + #{s1 6125}# + #{m2 6140}#))))) + (cons (let ((#{m2 6148}# + (car #{w2 6123}#))) + (if (null? #{m2 6148}#) + #{m1 6124}# (append - #{m1 6126}# - #{m2 6150}#))) - (let ((#{m2 6158}# - (cdr #{w2 6125}#))) - (if (null? #{m2 6158}#) - #{s1 6127}# + #{m1 6124}# + #{m2 6148}#))) + (let ((#{m2 6156}# + (cdr #{w2 6123}#))) + (if (null? #{m2 6156}#) + #{s1 6125}# (append - #{s1 6127}# - #{m2 6158}#)))))))) - (#{module 6118}# (vector-ref #{x 6084}# 3))) + #{s1 6125}# + #{m2 6156}#)))))))) + (#{module 6116}# (vector-ref #{x 6082}# 3))) (vector 'syntax-object - #{expression 6116}# - #{wrap 6117}# - #{module 6118}#)) - (if (null? #{x 6084}#) - #{x 6084}# + #{expression 6114}# + #{wrap 6115}# + #{module 6116}#)) + (if (null? #{x 6082}#) + #{x 6082}# (vector 'syntax-object - #{x 6084}# - #{w 5720}# - #{mod 5722}#))))))) - (let ((#{tmp 5724}# #{e 5723}#)) - (let ((#{tmp 5725}# - ($sc-dispatch #{tmp 5724}# '(_ any)))) - (if #{tmp 5725}# + #{x 6082}# + #{w 5718}# + #{mod 5720}#))))))) + (let ((#{tmp 5722}# #{e 5721}#)) + (let ((#{tmp 5723}# + ($sc-dispatch #{tmp 5722}# '(_ any)))) + (if #{tmp 5723}# (@apply - (lambda (#{x 5777}#) + (lambda (#{x 5775}#) (call-with-values (lambda () - (#{gen-syntax 5710}# - #{e 5723}# - #{x 5777}# - #{r 5719}# + (#{gen-syntax 5708}# + #{e 5721}# + #{x 5775}# + #{r 5717}# '() - #{ellipsis? 4383}# - #{mod 5722}#)) - (lambda (#{e 5860}# #{maps 5861}#) - (#{regen 5717}# #{e 5860}#)))) - #{tmp 5725}#) + #{ellipsis? 4381}# + #{mod 5720}#)) + (lambda (#{e 5858}# #{maps 5859}#) + (#{regen 5715}# #{e 5858}#)))) + #{tmp 5723}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5723}#)))))))) - (#{global-extend 4341}# + #{e 5721}#)))))))) + (#{global-extend 4339}# 'core 'lambda - (lambda (#{e 6889}# - #{r 6890}# - #{w 6891}# - #{s 6892}# - #{mod 6893}#) - (let ((#{tmp 6895}# - ($sc-dispatch #{e 6889}# '(_ any any . each-any)))) - (if #{tmp 6895}# + (lambda (#{e 6887}# + #{r 6888}# + #{w 6889}# + #{s 6890}# + #{mod 6891}#) + (let ((#{tmp 6893}# + ($sc-dispatch #{e 6887}# '(_ any any . each-any)))) + (if #{tmp 6893}# (@apply - (lambda (#{args 6899}# #{e1 6900}# #{e2 6901}#) + (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#) (call-with-values (lambda () - (#{lambda-formals 4384}# #{args 6899}#)) - (lambda (#{req 6904}# - #{opt 6905}# - #{rest 6906}# - #{kw 6907}#) + (#{lambda-formals 4382}# #{args 6897}#)) + (lambda (#{req 6902}# + #{opt 6903}# + #{rest 6904}# + #{kw 6905}#) (letrec* - ((#{lp 6908}# - (lambda (#{body 6911}# #{meta 6912}#) - (let ((#{tmp 6914}# + ((#{lp 6906}# + (lambda (#{body 6909}# #{meta 6910}#) + (let ((#{tmp 6912}# ($sc-dispatch - #{body 6911}# + #{body 6909}# '(any any . each-any)))) - (if (if #{tmp 6914}# + (if (if #{tmp 6912}# (@apply - (lambda (#{docstring 6918}# - #{e1 6919}# - #{e2 6920}#) + (lambda (#{docstring 6916}# + #{e1 6917}# + #{e2 6918}#) (string? - (syntax->datum #{docstring 6918}#))) - #{tmp 6914}#) + (syntax->datum #{docstring 6916}#))) + #{tmp 6912}#) #f) (@apply - (lambda (#{docstring 6921}# - #{e1 6922}# - #{e2 6923}#) - (#{lp 6908}# - (cons #{e1 6922}# #{e2 6923}#) + (lambda (#{docstring 6919}# + #{e1 6920}# + #{e2 6921}#) + (#{lp 6906}# + (cons #{e1 6920}# #{e2 6921}#) (append - #{meta 6912}# + #{meta 6910}# (list (cons 'documentation (syntax->datum - #{docstring 6921}#)))))) - #{tmp 6914}#) - (let ((#{tmp 6924}# + #{docstring 6919}#)))))) + #{tmp 6912}#) + (let ((#{tmp 6922}# ($sc-dispatch - #{body 6911}# + #{body 6909}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 6924}# + (if #{tmp 6922}# (@apply - (lambda (#{k 6928}# - #{v 6929}# - #{e1 6930}# - #{e2 6931}#) - (#{lp 6908}# - (cons #{e1 6930}# #{e2 6931}#) + (lambda (#{k 6926}# + #{v 6927}# + #{e1 6928}# + #{e2 6929}#) + (#{lp 6906}# + (cons #{e1 6928}# #{e2 6929}#) (append - #{meta 6912}# + #{meta 6910}# (syntax->datum (map cons - #{k 6928}# - #{v 6929}#))))) - #{tmp 6924}#) - (#{chi-simple-lambda 4385}# - #{e 6889}# - #{r 6890}# - #{w 6891}# - #{s 6892}# - #{mod 6893}# - #{req 6904}# - #{rest 6906}# - #{meta 6912}# - #{body 6911}#)))))))) - (#{lp 6908}# (cons #{e1 6900}# #{e2 6901}#) '()))))) - #{tmp 6895}#) + #{k 6926}# + #{v 6927}#))))) + #{tmp 6922}#) + (#{chi-simple-lambda 4383}# + #{e 6887}# + #{r 6888}# + #{w 6889}# + #{s 6890}# + #{mod 6891}# + #{req 6902}# + #{rest 6904}# + #{meta 6910}# + #{body 6909}#)))))))) + (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '()))))) + #{tmp 6893}#) (syntax-violation 'lambda "bad lambda" - #{e 6889}#))))) - (#{global-extend 4341}# + #{e 6887}#))))) + (#{global-extend 4339}# 'core 'lambda* - (lambda (#{e 7315}# - #{r 7316}# - #{w 7317}# - #{s 7318}# - #{mod 7319}#) - (let ((#{tmp 7321}# - ($sc-dispatch #{e 7315}# '(_ any any . each-any)))) - (if #{tmp 7321}# + (lambda (#{e 7313}# + #{r 7314}# + #{w 7315}# + #{s 7316}# + #{mod 7317}#) + (let ((#{tmp 7319}# + ($sc-dispatch #{e 7313}# '(_ any any . each-any)))) + (if #{tmp 7319}# (@apply - (lambda (#{args 7325}# #{e1 7326}# #{e2 7327}#) + (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#) (call-with-values (lambda () - (#{chi-lambda-case 4387}# - #{e 7315}# - #{r 7316}# - #{w 7317}# - #{s 7318}# - #{mod 7319}# - #{lambda*-formals 4386}# - (list (cons #{args 7325}# - (cons #{e1 7326}# #{e2 7327}#))))) - (lambda (#{meta 7330}# #{lcase 7331}#) + (#{chi-lambda-case 4385}# + #{e 7313}# + #{r 7314}# + #{w 7315}# + #{s 7316}# + #{mod 7317}# + #{lambda*-formals 4384}# + (list (cons #{args 7323}# + (cons #{e1 7324}# #{e2 7325}#))))) + (lambda (#{meta 7328}# #{lcase 7329}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7318}# - #{meta 7330}# - #{lcase 7331}#)))) - #{tmp 7321}#) + #{s 7316}# + #{meta 7328}# + #{lcase 7329}#)))) + #{tmp 7319}#) (syntax-violation 'lambda "bad lambda*" - #{e 7315}#))))) - (#{global-extend 4341}# + #{e 7313}#))))) + (#{global-extend 4339}# 'core 'case-lambda - (lambda (#{e 7494}# - #{r 7495}# - #{w 7496}# - #{s 7497}# - #{mod 7498}#) - (let ((#{tmp 7500}# + (lambda (#{e 7492}# + #{r 7493}# + #{w 7494}# + #{s 7495}# + #{mod 7496}#) + (let ((#{tmp 7498}# ($sc-dispatch - #{e 7494}# + #{e 7492}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 7500}# + (if #{tmp 7498}# (@apply - (lambda (#{args 7504}# - #{e1 7505}# - #{e2 7506}# - #{args* 7507}# - #{e1* 7508}# - #{e2* 7509}#) + (lambda (#{args 7502}# + #{e1 7503}# + #{e2 7504}# + #{args* 7505}# + #{e1* 7506}# + #{e2* 7507}#) (call-with-values (lambda () - (#{chi-lambda-case 4387}# - #{e 7494}# - #{r 7495}# - #{w 7496}# - #{s 7497}# - #{mod 7498}# - #{lambda-formals 4384}# - (cons (cons #{args 7504}# - (cons #{e1 7505}# #{e2 7506}#)) - (map (lambda (#{tmp 3306 7512}# - #{tmp 3305 7513}# - #{tmp 3304 7514}#) - (cons #{tmp 3304 7514}# - (cons #{tmp 3305 7513}# - #{tmp 3306 7512}#))) - #{e2* 7509}# - #{e1* 7508}# - #{args* 7507}#)))) - (lambda (#{meta 7515}# #{lcase 7516}#) + (#{chi-lambda-case 4385}# + #{e 7492}# + #{r 7493}# + #{w 7494}# + #{s 7495}# + #{mod 7496}# + #{lambda-formals 4382}# + (cons (cons #{args 7502}# + (cons #{e1 7503}# #{e2 7504}#)) + (map (lambda (#{tmp 3304 7510}# + #{tmp 3303 7511}# + #{tmp 3302 7512}#) + (cons #{tmp 3302 7512}# + (cons #{tmp 3303 7511}# + #{tmp 3304 7510}#))) + #{e2* 7507}# + #{e1* 7506}# + #{args* 7505}#)))) + (lambda (#{meta 7513}# #{lcase 7514}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7497}# - #{meta 7515}# - #{lcase 7516}#)))) - #{tmp 7500}#) + #{s 7495}# + #{meta 7513}# + #{lcase 7514}#)))) + #{tmp 7498}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 7494}#))))) - (#{global-extend 4341}# + #{e 7492}#))))) + (#{global-extend 4339}# 'core 'case-lambda* - (lambda (#{e 7685}# - #{r 7686}# - #{w 7687}# - #{s 7688}# - #{mod 7689}#) - (let ((#{tmp 7691}# + (lambda (#{e 7683}# + #{r 7684}# + #{w 7685}# + #{s 7686}# + #{mod 7687}#) + (let ((#{tmp 7689}# ($sc-dispatch - #{e 7685}# + #{e 7683}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 7691}# + (if #{tmp 7689}# (@apply - (lambda (#{args 7695}# - #{e1 7696}# - #{e2 7697}# - #{args* 7698}# - #{e1* 7699}# - #{e2* 7700}#) + (lambda (#{args 7693}# + #{e1 7694}# + #{e2 7695}# + #{args* 7696}# + #{e1* 7697}# + #{e2* 7698}#) (call-with-values (lambda () - (#{chi-lambda-case 4387}# - #{e 7685}# - #{r 7686}# - #{w 7687}# - #{s 7688}# - #{mod 7689}# - #{lambda*-formals 4386}# - (cons (cons #{args 7695}# - (cons #{e1 7696}# #{e2 7697}#)) - (map (lambda (#{tmp 3341 7703}# - #{tmp 3340 7704}# - #{tmp 3339 7705}#) - (cons #{tmp 3339 7705}# - (cons #{tmp 3340 7704}# - #{tmp 3341 7703}#))) - #{e2* 7700}# - #{e1* 7699}# - #{args* 7698}#)))) - (lambda (#{meta 7706}# #{lcase 7707}#) + (#{chi-lambda-case 4385}# + #{e 7683}# + #{r 7684}# + #{w 7685}# + #{s 7686}# + #{mod 7687}# + #{lambda*-formals 4384}# + (cons (cons #{args 7693}# + (cons #{e1 7694}# #{e2 7695}#)) + (map (lambda (#{tmp 3339 7701}# + #{tmp 3338 7702}# + #{tmp 3337 7703}#) + (cons #{tmp 3337 7703}# + (cons #{tmp 3338 7702}# + #{tmp 3339 7701}#))) + #{e2* 7698}# + #{e1* 7697}# + #{args* 7696}#)))) + (lambda (#{meta 7704}# #{lcase 7705}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7688}# - #{meta 7706}# - #{lcase 7707}#)))) - #{tmp 7691}#) + #{s 7686}# + #{meta 7704}# + #{lcase 7705}#)))) + #{tmp 7689}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 7685}#))))) - (#{global-extend 4341}# + #{e 7683}#))))) + (#{global-extend 4339}# 'core 'let (letrec* - ((#{chi-let 7916}# - (lambda (#{e 8126}# - #{r 8127}# - #{w 8128}# - #{s 8129}# - #{mod 8130}# - #{constructor 8131}# - #{ids 8132}# - #{vals 8133}# - #{exps 8134}#) - (if (not (#{valid-bound-ids? 4365}# #{ids 8132}#)) + ((#{chi-let 7914}# + (lambda (#{e 8124}# + #{r 8125}# + #{w 8126}# + #{s 8127}# + #{mod 8128}# + #{constructor 8129}# + #{ids 8130}# + #{vals 8131}# + #{exps 8132}#) + (if (not (#{valid-bound-ids? 4363}# #{ids 8130}#)) (syntax-violation 'let "duplicate bound variable" - #{e 8126}#) - (let ((#{labels 8219}# - (#{gen-labels 4346}# #{ids 8132}#)) - (#{new-vars 8220}# - (map #{gen-var 4389}# #{ids 8132}#))) - (let ((#{nw 8221}# - (#{make-binding-wrap 4357}# - #{ids 8132}# - #{labels 8219}# - #{w 8128}#)) - (#{nr 8222}# - (#{extend-var-env 4338}# - #{labels 8219}# - #{new-vars 8220}# - #{r 8127}#))) - (#{constructor 8131}# - #{s 8129}# - (map syntax->datum #{ids 8132}#) - #{new-vars 8220}# - (map (lambda (#{x 8239}#) - (#{chi 4375}# - #{x 8239}# - #{r 8127}# - #{w 8128}# - #{mod 8130}#)) - #{vals 8133}#) - (#{chi-body 4379}# - #{exps 8134}# - (#{source-wrap 4369}# - #{e 8126}# - #{nw 8221}# - #{s 8129}# - #{mod 8130}#) - #{nr 8222}# - #{nw 8221}# - #{mod 8130}#)))))))) - (lambda (#{e 7917}# - #{r 7918}# - #{w 7919}# - #{s 7920}# - #{mod 7921}#) - (let ((#{tmp 7923}# + #{e 8124}#) + (let ((#{labels 8217}# + (#{gen-labels 4344}# #{ids 8130}#)) + (#{new-vars 8218}# + (map #{gen-var 4387}# #{ids 8130}#))) + (let ((#{nw 8219}# + (#{make-binding-wrap 4355}# + #{ids 8130}# + #{labels 8217}# + #{w 8126}#)) + (#{nr 8220}# + (#{extend-var-env 4336}# + #{labels 8217}# + #{new-vars 8218}# + #{r 8125}#))) + (#{constructor 8129}# + #{s 8127}# + (map syntax->datum #{ids 8130}#) + #{new-vars 8218}# + (map (lambda (#{x 8237}#) + (#{chi 4373}# + #{x 8237}# + #{r 8125}# + #{w 8126}# + #{mod 8128}#)) + #{vals 8131}#) + (#{chi-body 4377}# + #{exps 8132}# + (#{source-wrap 4367}# + #{e 8124}# + #{nw 8219}# + #{s 8127}# + #{mod 8128}#) + #{nr 8220}# + #{nw 8219}# + #{mod 8128}#)))))))) + (lambda (#{e 7915}# + #{r 7916}# + #{w 7917}# + #{s 7918}# + #{mod 7919}#) + (let ((#{tmp 7921}# ($sc-dispatch - #{e 7917}# + #{e 7915}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7923}# + (if (if #{tmp 7921}# (@apply - (lambda (#{id 7927}# - #{val 7928}# - #{e1 7929}# - #{e2 7930}#) - (and-map #{id? 4343}# #{id 7927}#)) - #{tmp 7923}#) + (lambda (#{id 7925}# + #{val 7926}# + #{e1 7927}# + #{e2 7928}#) + (and-map #{id? 4341}# #{id 7925}#)) + #{tmp 7921}#) #f) (@apply - (lambda (#{id 7946}# - #{val 7947}# - #{e1 7948}# - #{e2 7949}#) - (#{chi-let 7916}# - #{e 7917}# - #{r 7918}# - #{w 7919}# - #{s 7920}# - #{mod 7921}# - (lambda (#{src 7953}# - #{ids 7954}# - #{vars 7955}# - #{val-exps 7956}# - #{body-exp 7957}#) + (lambda (#{id 7944}# + #{val 7945}# + #{e1 7946}# + #{e2 7947}#) + (#{chi-let 7914}# + #{e 7915}# + #{r 7916}# + #{w 7917}# + #{s 7918}# + #{mod 7919}# + (lambda (#{src 7951}# + #{ids 7952}# + #{vars 7953}# + #{val-exps 7954}# + #{body-exp 7955}#) (begin (for-each - #{maybe-name-value! 4307}# - #{ids 7954}# - #{val-exps 7956}#) - (if (null? #{vars 7955}#) - #{body-exp 7957}# + #{maybe-name-value! 4305}# + #{ids 7952}# + #{val-exps 7954}#) + (if (null? #{vars 7953}#) + #{body-exp 7955}# (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 7953}# - #{ids 7954}# - #{vars 7955}# - #{val-exps 7956}# - #{body-exp 7957}#)))) - #{id 7946}# - #{val 7947}# - (cons #{e1 7948}# #{e2 7949}#))) - #{tmp 7923}#) - (let ((#{tmp 7964}# + #{src 7951}# + #{ids 7952}# + #{vars 7953}# + #{val-exps 7954}# + #{body-exp 7955}#)))) + #{id 7944}# + #{val 7945}# + (cons #{e1 7946}# #{e2 7947}#))) + #{tmp 7921}#) + (let ((#{tmp 7962}# ($sc-dispatch - #{e 7917}# + #{e 7915}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7964}# + (if (if #{tmp 7962}# (@apply - (lambda (#{f 7968}# - #{id 7969}# - #{val 7970}# - #{e1 7971}# - #{e2 7972}#) - (if (if (symbol? #{f 7968}#) + (lambda (#{f 7966}# + #{id 7967}# + #{val 7968}# + #{e1 7969}# + #{e2 7970}#) + (if (if (symbol? #{f 7966}#) #t - (if (if (vector? #{f 7968}#) - (if (= (vector-length #{f 7968}#) 4) - (eq? (vector-ref #{f 7968}# 0) + (if (if (vector? #{f 7966}#) + (if (= (vector-length #{f 7966}#) 4) + (eq? (vector-ref #{f 7966}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 7968}# 1)) + (symbol? (vector-ref #{f 7966}# 1)) #f)) - (and-map #{id? 4343}# #{id 7969}#) + (and-map #{id? 4341}# #{id 7967}#) #f)) - #{tmp 7964}#) + #{tmp 7962}#) #f) (@apply - (lambda (#{f 8014}# - #{id 8015}# - #{val 8016}# - #{e1 8017}# - #{e2 8018}#) - (#{chi-let 7916}# - #{e 7917}# - #{r 7918}# - #{w 7919}# - #{s 7920}# - #{mod 7921}# - #{build-named-let 4326}# - (cons #{f 8014}# #{id 8015}#) - #{val 8016}# - (cons #{e1 8017}# #{e2 8018}#))) - #{tmp 7964}#) + (lambda (#{f 8012}# + #{id 8013}# + #{val 8014}# + #{e1 8015}# + #{e2 8016}#) + (#{chi-let 7914}# + #{e 7915}# + #{r 7916}# + #{w 7917}# + #{s 7918}# + #{mod 7919}# + #{build-named-let 4324}# + (cons #{f 8012}# #{id 8013}#) + #{val 8014}# + (cons #{e1 8015}# #{e2 8016}#))) + #{tmp 7962}#) (syntax-violation 'let "bad let" - (let ((#{x 8031}# + (let ((#{x 8029}# (begin - (if (if (pair? #{e 7917}#) #{s 7920}# #f) - (set-source-properties! #{e 7917}# #{s 7920}#)) - #{e 7917}#))) - (if (if (null? (car #{w 7919}#)) - (null? (cdr #{w 7919}#)) + (if (if (pair? #{e 7915}#) #{s 7918}# #f) + (set-source-properties! #{e 7915}# #{s 7918}#)) + #{e 7915}#))) + (if (if (null? (car #{w 7917}#)) + (null? (cdr #{w 7917}#)) #f) - #{x 8031}# - (if (if (vector? #{x 8031}#) - (if (= (vector-length #{x 8031}#) 4) - (eq? (vector-ref #{x 8031}# 0) 'syntax-object) + #{x 8029}# + (if (if (vector? #{x 8029}#) + (if (= (vector-length #{x 8029}#) 4) + (eq? (vector-ref #{x 8029}# 0) 'syntax-object) #f) #f) - (let ((#{expression 8063}# (vector-ref #{x 8031}# 1)) - (#{wrap 8064}# - (let ((#{w2 8072}# - (vector-ref #{x 8031}# 2))) - (let ((#{m1 8073}# (car #{w 7919}#)) - (#{s1 8074}# (cdr #{w 7919}#))) - (if (null? #{m1 8073}#) - (if (null? #{s1 8074}#) - #{w2 8072}# - (cons (car #{w2 8072}#) - (let ((#{m2 8089}# - (cdr #{w2 8072}#))) - (if (null? #{m2 8089}#) - #{s1 8074}# + (let ((#{expression 8061}# (vector-ref #{x 8029}# 1)) + (#{wrap 8062}# + (let ((#{w2 8070}# + (vector-ref #{x 8029}# 2))) + (let ((#{m1 8071}# (car #{w 7917}#)) + (#{s1 8072}# (cdr #{w 7917}#))) + (if (null? #{m1 8071}#) + (if (null? #{s1 8072}#) + #{w2 8070}# + (cons (car #{w2 8070}#) + (let ((#{m2 8087}# + (cdr #{w2 8070}#))) + (if (null? #{m2 8087}#) + #{s1 8072}# (append - #{s1 8074}# - #{m2 8089}#))))) - (cons (let ((#{m2 8097}# - (car #{w2 8072}#))) - (if (null? #{m2 8097}#) - #{m1 8073}# + #{s1 8072}# + #{m2 8087}#))))) + (cons (let ((#{m2 8095}# + (car #{w2 8070}#))) + (if (null? #{m2 8095}#) + #{m1 8071}# (append - #{m1 8073}# - #{m2 8097}#))) - (let ((#{m2 8105}# - (cdr #{w2 8072}#))) - (if (null? #{m2 8105}#) - #{s1 8074}# + #{m1 8071}# + #{m2 8095}#))) + (let ((#{m2 8103}# + (cdr #{w2 8070}#))) + (if (null? #{m2 8103}#) + #{s1 8072}# (append - #{s1 8074}# - #{m2 8105}#)))))))) - (#{module 8065}# (vector-ref #{x 8031}# 3))) + #{s1 8072}# + #{m2 8103}#)))))))) + (#{module 8063}# (vector-ref #{x 8029}# 3))) (vector 'syntax-object - #{expression 8063}# - #{wrap 8064}# - #{module 8065}#)) - (if (null? #{x 8031}#) - #{x 8031}# + #{expression 8061}# + #{wrap 8062}# + #{module 8063}#)) + (if (null? #{x 8029}#) + #{x 8029}# (vector 'syntax-object - #{x 8031}# - #{w 7919}# - #{mod 7921}#))))))))))))) - (#{global-extend 4341}# + #{x 8029}# + #{w 7917}# + #{mod 7919}#))))))))))))) + (#{global-extend 4339}# 'core 'letrec - (lambda (#{e 8716}# - #{r 8717}# - #{w 8718}# - #{s 8719}# - #{mod 8720}#) - (let ((#{tmp 8722}# + (lambda (#{e 8714}# + #{r 8715}# + #{w 8716}# + #{s 8717}# + #{mod 8718}#) + (let ((#{tmp 8720}# ($sc-dispatch - #{e 8716}# + #{e 8714}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8722}# + (if (if #{tmp 8720}# (@apply - (lambda (#{id 8726}# - #{val 8727}# - #{e1 8728}# - #{e2 8729}#) - (and-map #{id? 4343}# #{id 8726}#)) - #{tmp 8722}#) + (lambda (#{id 8724}# + #{val 8725}# + #{e1 8726}# + #{e2 8727}#) + (and-map #{id? 4341}# #{id 8724}#)) + #{tmp 8720}#) #f) (@apply - (lambda (#{id 8745}# - #{val 8746}# - #{e1 8747}# - #{e2 8748}#) - (if (not (#{valid-bound-ids? 4365}# #{id 8745}#)) + (lambda (#{id 8743}# + #{val 8744}# + #{e1 8745}# + #{e2 8746}#) + (if (not (#{valid-bound-ids? 4363}# #{id 8743}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 8716}#) - (let ((#{labels 8845}# - (#{gen-labels 4346}# #{id 8745}#)) - (#{new-vars 8846}# - (map #{gen-var 4389}# #{id 8745}#))) - (let ((#{w 8847}# - (#{make-binding-wrap 4357}# - #{id 8745}# - #{labels 8845}# - #{w 8718}#)) - (#{r 8848}# - (#{extend-var-env 4338}# - #{labels 8845}# - #{new-vars 8846}# - #{r 8717}#))) - (#{build-letrec 4327}# - #{s 8719}# + #{e 8714}#) + (let ((#{labels 8843}# + (#{gen-labels 4344}# #{id 8743}#)) + (#{new-vars 8844}# + (map #{gen-var 4387}# #{id 8743}#))) + (let ((#{w 8845}# + (#{make-binding-wrap 4355}# + #{id 8743}# + #{labels 8843}# + #{w 8716}#)) + (#{r 8846}# + (#{extend-var-env 4336}# + #{labels 8843}# + #{new-vars 8844}# + #{r 8715}#))) + (#{build-letrec 4325}# + #{s 8717}# #f - (map syntax->datum #{id 8745}#) - #{new-vars 8846}# - (map (lambda (#{x 8927}#) - (#{chi 4375}# - #{x 8927}# - #{r 8848}# - #{w 8847}# - #{mod 8720}#)) - #{val 8746}#) - (#{chi-body 4379}# - (cons #{e1 8747}# #{e2 8748}#) - (let ((#{x 8989}# + (map syntax->datum #{id 8743}#) + #{new-vars 8844}# + (map (lambda (#{x 8925}#) + (#{chi 4373}# + #{x 8925}# + #{r 8846}# + #{w 8845}# + #{mod 8718}#)) + #{val 8744}#) + (#{chi-body 4377}# + (cons #{e1 8745}# #{e2 8746}#) + (let ((#{x 8987}# (begin - (if (if (pair? #{e 8716}#) #{s 8719}# #f) + (if (if (pair? #{e 8714}#) #{s 8717}# #f) (set-source-properties! - #{e 8716}# - #{s 8719}#)) - #{e 8716}#))) - (if (if (null? (car #{w 8847}#)) - (null? (cdr #{w 8847}#)) + #{e 8714}# + #{s 8717}#)) + #{e 8714}#))) + (if (if (null? (car #{w 8845}#)) + (null? (cdr #{w 8845}#)) #f) - #{x 8989}# - (if (if (vector? #{x 8989}#) - (if (= (vector-length #{x 8989}#) 4) - (eq? (vector-ref #{x 8989}# 0) + #{x 8987}# + (if (if (vector? #{x 8987}#) + (if (= (vector-length #{x 8987}#) 4) + (eq? (vector-ref #{x 8987}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9021}# - (vector-ref #{x 8989}# 1)) - (#{wrap 9022}# - (let ((#{w2 9030}# - (vector-ref #{x 8989}# 2))) - (let ((#{m1 9031}# (car #{w 8847}#)) - (#{s1 9032}# (cdr #{w 8847}#))) - (if (null? #{m1 9031}#) - (if (null? #{s1 9032}#) - #{w2 9030}# - (cons (car #{w2 9030}#) - (let ((#{m2 9047}# - (cdr #{w2 9030}#))) - (if (null? #{m2 9047}#) - #{s1 9032}# + (let ((#{expression 9019}# + (vector-ref #{x 8987}# 1)) + (#{wrap 9020}# + (let ((#{w2 9028}# + (vector-ref #{x 8987}# 2))) + (let ((#{m1 9029}# (car #{w 8845}#)) + (#{s1 9030}# (cdr #{w 8845}#))) + (if (null? #{m1 9029}#) + (if (null? #{s1 9030}#) + #{w2 9028}# + (cons (car #{w2 9028}#) + (let ((#{m2 9045}# + (cdr #{w2 9028}#))) + (if (null? #{m2 9045}#) + #{s1 9030}# (append - #{s1 9032}# - #{m2 9047}#))))) - (cons (let ((#{m2 9055}# - (car #{w2 9030}#))) - (if (null? #{m2 9055}#) - #{m1 9031}# + #{s1 9030}# + #{m2 9045}#))))) + (cons (let ((#{m2 9053}# + (car #{w2 9028}#))) + (if (null? #{m2 9053}#) + #{m1 9029}# (append - #{m1 9031}# - #{m2 9055}#))) - (let ((#{m2 9063}# - (cdr #{w2 9030}#))) - (if (null? #{m2 9063}#) - #{s1 9032}# + #{m1 9029}# + #{m2 9053}#))) + (let ((#{m2 9061}# + (cdr #{w2 9028}#))) + (if (null? #{m2 9061}#) + #{s1 9030}# (append - #{s1 9032}# - #{m2 9063}#)))))))) - (#{module 9023}# - (vector-ref #{x 8989}# 3))) + #{s1 9030}# + #{m2 9061}#)))))))) + (#{module 9021}# + (vector-ref #{x 8987}# 3))) (vector 'syntax-object - #{expression 9021}# - #{wrap 9022}# - #{module 9023}#)) - (if (null? #{x 8989}#) - #{x 8989}# + #{expression 9019}# + #{wrap 9020}# + #{module 9021}#)) + (if (null? #{x 8987}#) + #{x 8987}# (vector 'syntax-object - #{x 8989}# - #{w 8847}# - #{mod 8720}#))))) - #{r 8848}# - #{w 8847}# - #{mod 8720}#)))))) - #{tmp 8722}#) + #{x 8987}# + #{w 8845}# + #{mod 8718}#))))) + #{r 8846}# + #{w 8845}# + #{mod 8718}#)))))) + #{tmp 8720}#) (syntax-violation 'letrec "bad letrec" - (let ((#{x 9303}# + (let ((#{x 9301}# (begin - (if (if (pair? #{e 8716}#) #{s 8719}# #f) - (set-source-properties! #{e 8716}# #{s 8719}#)) - #{e 8716}#))) - (if (if (null? (car #{w 8718}#)) - (null? (cdr #{w 8718}#)) + (if (if (pair? #{e 8714}#) #{s 8717}# #f) + (set-source-properties! #{e 8714}# #{s 8717}#)) + #{e 8714}#))) + (if (if (null? (car #{w 8716}#)) + (null? (cdr #{w 8716}#)) #f) - #{x 9303}# - (if (if (vector? #{x 9303}#) - (if (= (vector-length #{x 9303}#) 4) - (eq? (vector-ref #{x 9303}# 0) 'syntax-object) + #{x 9301}# + (if (if (vector? #{x 9301}#) + (if (= (vector-length #{x 9301}#) 4) + (eq? (vector-ref #{x 9301}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9335}# (vector-ref #{x 9303}# 1)) - (#{wrap 9336}# - (let ((#{w2 9344}# (vector-ref #{x 9303}# 2))) - (let ((#{m1 9345}# (car #{w 8718}#)) - (#{s1 9346}# (cdr #{w 8718}#))) - (if (null? #{m1 9345}#) - (if (null? #{s1 9346}#) - #{w2 9344}# - (cons (car #{w2 9344}#) - (let ((#{m2 9361}# - (cdr #{w2 9344}#))) - (if (null? #{m2 9361}#) - #{s1 9346}# + (let ((#{expression 9333}# (vector-ref #{x 9301}# 1)) + (#{wrap 9334}# + (let ((#{w2 9342}# (vector-ref #{x 9301}# 2))) + (let ((#{m1 9343}# (car #{w 8716}#)) + (#{s1 9344}# (cdr #{w 8716}#))) + (if (null? #{m1 9343}#) + (if (null? #{s1 9344}#) + #{w2 9342}# + (cons (car #{w2 9342}#) + (let ((#{m2 9359}# + (cdr #{w2 9342}#))) + (if (null? #{m2 9359}#) + #{s1 9344}# (append - #{s1 9346}# - #{m2 9361}#))))) - (cons (let ((#{m2 9369}# (car #{w2 9344}#))) - (if (null? #{m2 9369}#) - #{m1 9345}# - (append #{m1 9345}# #{m2 9369}#))) - (let ((#{m2 9377}# (cdr #{w2 9344}#))) - (if (null? #{m2 9377}#) - #{s1 9346}# + #{s1 9344}# + #{m2 9359}#))))) + (cons (let ((#{m2 9367}# (car #{w2 9342}#))) + (if (null? #{m2 9367}#) + #{m1 9343}# + (append #{m1 9343}# #{m2 9367}#))) + (let ((#{m2 9375}# (cdr #{w2 9342}#))) + (if (null? #{m2 9375}#) + #{s1 9344}# (append - #{s1 9346}# - #{m2 9377}#)))))))) - (#{module 9337}# (vector-ref #{x 9303}# 3))) + #{s1 9344}# + #{m2 9375}#)))))))) + (#{module 9335}# (vector-ref #{x 9301}# 3))) (vector 'syntax-object - #{expression 9335}# - #{wrap 9336}# - #{module 9337}#)) - (if (null? #{x 9303}#) - #{x 9303}# + #{expression 9333}# + #{wrap 9334}# + #{module 9335}#)) + (if (null? #{x 9301}#) + #{x 9301}# (vector 'syntax-object - #{x 9303}# - #{w 8718}# - #{mod 8720}#)))))))))) - (#{global-extend 4341}# + #{x 9301}# + #{w 8716}# + #{mod 8718}#)))))))))) + (#{global-extend 4339}# 'core 'letrec* - (lambda (#{e 9528}# - #{r 9529}# - #{w 9530}# - #{s 9531}# - #{mod 9532}#) - (let ((#{tmp 9534}# + (lambda (#{e 9526}# + #{r 9527}# + #{w 9528}# + #{s 9529}# + #{mod 9530}#) + (let ((#{tmp 9532}# ($sc-dispatch - #{e 9528}# + #{e 9526}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 9534}# + (if (if #{tmp 9532}# (@apply - (lambda (#{id 9538}# - #{val 9539}# - #{e1 9540}# - #{e2 9541}#) - (and-map #{id? 4343}# #{id 9538}#)) - #{tmp 9534}#) + (lambda (#{id 9536}# + #{val 9537}# + #{e1 9538}# + #{e2 9539}#) + (and-map #{id? 4341}# #{id 9536}#)) + #{tmp 9532}#) #f) (@apply - (lambda (#{id 9557}# - #{val 9558}# - #{e1 9559}# - #{e2 9560}#) - (if (not (#{valid-bound-ids? 4365}# #{id 9557}#)) + (lambda (#{id 9555}# + #{val 9556}# + #{e1 9557}# + #{e2 9558}#) + (if (not (#{valid-bound-ids? 4363}# #{id 9555}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 9528}#) - (let ((#{labels 9657}# - (#{gen-labels 4346}# #{id 9557}#)) - (#{new-vars 9658}# - (map #{gen-var 4389}# #{id 9557}#))) - (let ((#{w 9659}# - (#{make-binding-wrap 4357}# - #{id 9557}# - #{labels 9657}# - #{w 9530}#)) - (#{r 9660}# - (#{extend-var-env 4338}# - #{labels 9657}# - #{new-vars 9658}# - #{r 9529}#))) - (#{build-letrec 4327}# - #{s 9531}# + #{e 9526}#) + (let ((#{labels 9655}# + (#{gen-labels 4344}# #{id 9555}#)) + (#{new-vars 9656}# + (map #{gen-var 4387}# #{id 9555}#))) + (let ((#{w 9657}# + (#{make-binding-wrap 4355}# + #{id 9555}# + #{labels 9655}# + #{w 9528}#)) + (#{r 9658}# + (#{extend-var-env 4336}# + #{labels 9655}# + #{new-vars 9656}# + #{r 9527}#))) + (#{build-letrec 4325}# + #{s 9529}# #t - (map syntax->datum #{id 9557}#) - #{new-vars 9658}# - (map (lambda (#{x 9739}#) - (#{chi 4375}# - #{x 9739}# - #{r 9660}# - #{w 9659}# - #{mod 9532}#)) - #{val 9558}#) - (#{chi-body 4379}# - (cons #{e1 9559}# #{e2 9560}#) - (let ((#{x 9801}# + (map syntax->datum #{id 9555}#) + #{new-vars 9656}# + (map (lambda (#{x 9737}#) + (#{chi 4373}# + #{x 9737}# + #{r 9658}# + #{w 9657}# + #{mod 9530}#)) + #{val 9556}#) + (#{chi-body 4377}# + (cons #{e1 9557}# #{e2 9558}#) + (let ((#{x 9799}# (begin - (if (if (pair? #{e 9528}#) #{s 9531}# #f) + (if (if (pair? #{e 9526}#) #{s 9529}# #f) (set-source-properties! - #{e 9528}# - #{s 9531}#)) - #{e 9528}#))) - (if (if (null? (car #{w 9659}#)) - (null? (cdr #{w 9659}#)) + #{e 9526}# + #{s 9529}#)) + #{e 9526}#))) + (if (if (null? (car #{w 9657}#)) + (null? (cdr #{w 9657}#)) #f) - #{x 9801}# - (if (if (vector? #{x 9801}#) - (if (= (vector-length #{x 9801}#) 4) - (eq? (vector-ref #{x 9801}# 0) + #{x 9799}# + (if (if (vector? #{x 9799}#) + (if (= (vector-length #{x 9799}#) 4) + (eq? (vector-ref #{x 9799}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9833}# - (vector-ref #{x 9801}# 1)) - (#{wrap 9834}# - (let ((#{w2 9842}# - (vector-ref #{x 9801}# 2))) - (let ((#{m1 9843}# (car #{w 9659}#)) - (#{s1 9844}# (cdr #{w 9659}#))) - (if (null? #{m1 9843}#) - (if (null? #{s1 9844}#) - #{w2 9842}# - (cons (car #{w2 9842}#) - (let ((#{m2 9859}# - (cdr #{w2 9842}#))) - (if (null? #{m2 9859}#) - #{s1 9844}# + (let ((#{expression 9831}# + (vector-ref #{x 9799}# 1)) + (#{wrap 9832}# + (let ((#{w2 9840}# + (vector-ref #{x 9799}# 2))) + (let ((#{m1 9841}# (car #{w 9657}#)) + (#{s1 9842}# (cdr #{w 9657}#))) + (if (null? #{m1 9841}#) + (if (null? #{s1 9842}#) + #{w2 9840}# + (cons (car #{w2 9840}#) + (let ((#{m2 9857}# + (cdr #{w2 9840}#))) + (if (null? #{m2 9857}#) + #{s1 9842}# (append - #{s1 9844}# - #{m2 9859}#))))) - (cons (let ((#{m2 9867}# - (car #{w2 9842}#))) - (if (null? #{m2 9867}#) - #{m1 9843}# + #{s1 9842}# + #{m2 9857}#))))) + (cons (let ((#{m2 9865}# + (car #{w2 9840}#))) + (if (null? #{m2 9865}#) + #{m1 9841}# (append - #{m1 9843}# - #{m2 9867}#))) - (let ((#{m2 9875}# - (cdr #{w2 9842}#))) - (if (null? #{m2 9875}#) - #{s1 9844}# + #{m1 9841}# + #{m2 9865}#))) + (let ((#{m2 9873}# + (cdr #{w2 9840}#))) + (if (null? #{m2 9873}#) + #{s1 9842}# (append - #{s1 9844}# - #{m2 9875}#)))))))) - (#{module 9835}# - (vector-ref #{x 9801}# 3))) + #{s1 9842}# + #{m2 9873}#)))))))) + (#{module 9833}# + (vector-ref #{x 9799}# 3))) (vector 'syntax-object - #{expression 9833}# - #{wrap 9834}# - #{module 9835}#)) - (if (null? #{x 9801}#) - #{x 9801}# + #{expression 9831}# + #{wrap 9832}# + #{module 9833}#)) + (if (null? #{x 9799}#) + #{x 9799}# (vector 'syntax-object - #{x 9801}# - #{w 9659}# - #{mod 9532}#))))) - #{r 9660}# - #{w 9659}# - #{mod 9532}#)))))) - #{tmp 9534}#) + #{x 9799}# + #{w 9657}# + #{mod 9530}#))))) + #{r 9658}# + #{w 9657}# + #{mod 9530}#)))))) + #{tmp 9532}#) (syntax-violation 'letrec* "bad letrec*" - (let ((#{x 10115}# + (let ((#{x 10113}# (begin - (if (if (pair? #{e 9528}#) #{s 9531}# #f) - (set-source-properties! #{e 9528}# #{s 9531}#)) - #{e 9528}#))) - (if (if (null? (car #{w 9530}#)) - (null? (cdr #{w 9530}#)) + (if (if (pair? #{e 9526}#) #{s 9529}# #f) + (set-source-properties! #{e 9526}# #{s 9529}#)) + #{e 9526}#))) + (if (if (null? (car #{w 9528}#)) + (null? (cdr #{w 9528}#)) #f) - #{x 10115}# - (if (if (vector? #{x 10115}#) - (if (= (vector-length #{x 10115}#) 4) - (eq? (vector-ref #{x 10115}# 0) 'syntax-object) + #{x 10113}# + (if (if (vector? #{x 10113}#) + (if (= (vector-length #{x 10113}#) 4) + (eq? (vector-ref #{x 10113}# 0) 'syntax-object) #f) #f) - (let ((#{expression 10147}# (vector-ref #{x 10115}# 1)) - (#{wrap 10148}# - (let ((#{w2 10156}# (vector-ref #{x 10115}# 2))) - (let ((#{m1 10157}# (car #{w 9530}#)) - (#{s1 10158}# (cdr #{w 9530}#))) - (if (null? #{m1 10157}#) - (if (null? #{s1 10158}#) - #{w2 10156}# - (cons (car #{w2 10156}#) - (let ((#{m2 10173}# - (cdr #{w2 10156}#))) - (if (null? #{m2 10173}#) - #{s1 10158}# + (let ((#{expression 10145}# (vector-ref #{x 10113}# 1)) + (#{wrap 10146}# + (let ((#{w2 10154}# (vector-ref #{x 10113}# 2))) + (let ((#{m1 10155}# (car #{w 9528}#)) + (#{s1 10156}# (cdr #{w 9528}#))) + (if (null? #{m1 10155}#) + (if (null? #{s1 10156}#) + #{w2 10154}# + (cons (car #{w2 10154}#) + (let ((#{m2 10171}# + (cdr #{w2 10154}#))) + (if (null? #{m2 10171}#) + #{s1 10156}# (append - #{s1 10158}# - #{m2 10173}#))))) - (cons (let ((#{m2 10181}# - (car #{w2 10156}#))) - (if (null? #{m2 10181}#) - #{m1 10157}# + #{s1 10156}# + #{m2 10171}#))))) + (cons (let ((#{m2 10179}# + (car #{w2 10154}#))) + (if (null? #{m2 10179}#) + #{m1 10155}# (append - #{m1 10157}# - #{m2 10181}#))) - (let ((#{m2 10189}# - (cdr #{w2 10156}#))) - (if (null? #{m2 10189}#) - #{s1 10158}# + #{m1 10155}# + #{m2 10179}#))) + (let ((#{m2 10187}# + (cdr #{w2 10154}#))) + (if (null? #{m2 10187}#) + #{s1 10156}# (append - #{s1 10158}# - #{m2 10189}#)))))))) - (#{module 10149}# (vector-ref #{x 10115}# 3))) + #{s1 10156}# + #{m2 10187}#)))))))) + (#{module 10147}# (vector-ref #{x 10113}# 3))) (vector 'syntax-object - #{expression 10147}# - #{wrap 10148}# - #{module 10149}#)) - (if (null? #{x 10115}#) - #{x 10115}# + #{expression 10145}# + #{wrap 10146}# + #{module 10147}#)) + (if (null? #{x 10113}#) + #{x 10113}# (vector 'syntax-object - #{x 10115}# - #{w 9530}# - #{mod 9532}#)))))))))) - (#{global-extend 4341}# + #{x 10113}# + #{w 9528}# + #{mod 9530}#)))))))))) + (#{global-extend 4339}# 'core 'set! - (lambda (#{e 10408}# - #{r 10409}# - #{w 10410}# - #{s 10411}# - #{mod 10412}#) - (let ((#{tmp 10414}# - ($sc-dispatch #{e 10408}# '(_ any any)))) - (if (if #{tmp 10414}# + (lambda (#{e 10406}# + #{r 10407}# + #{w 10408}# + #{s 10409}# + #{mod 10410}#) + (let ((#{tmp 10412}# + ($sc-dispatch #{e 10406}# '(_ any any)))) + (if (if #{tmp 10412}# (@apply - (lambda (#{id 10418}# #{val 10419}#) - (if (symbol? #{id 10418}#) + (lambda (#{id 10416}# #{val 10417}#) + (if (symbol? #{id 10416}#) #t - (if (if (vector? #{id 10418}#) - (if (= (vector-length #{id 10418}#) 4) - (eq? (vector-ref #{id 10418}# 0) 'syntax-object) + (if (if (vector? #{id 10416}#) + (if (= (vector-length #{id 10416}#) 4) + (eq? (vector-ref #{id 10416}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10418}# 1)) + (symbol? (vector-ref #{id 10416}# 1)) #f))) - #{tmp 10414}#) + #{tmp 10412}#) #f) (@apply - (lambda (#{id 10446}# #{val 10447}#) - (let ((#{n 10448}# - (#{id-var-name 4362}# #{id 10446}# #{w 10410}#)) - (#{id-mod 10449}# - (if (if (vector? #{id 10446}#) - (if (= (vector-length #{id 10446}#) 4) - (eq? (vector-ref #{id 10446}# 0) + (lambda (#{id 10444}# #{val 10445}#) + (let ((#{n 10446}# + (#{id-var-name 4360}# #{id 10444}# #{w 10408}#)) + (#{id-mod 10447}# + (if (if (vector? #{id 10444}#) + (if (= (vector-length #{id 10444}#) 4) + (eq? (vector-ref #{id 10444}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 10446}# 3) - #{mod 10412}#))) - (let ((#{b 10450}# - (let ((#{t 11167}# (assq #{n 10448}# #{r 10409}#))) - (if #{t 11167}# - (cdr #{t 11167}#) - (if (symbol? #{n 10448}#) - (let ((#{t 11172}# + (vector-ref #{id 10444}# 3) + #{mod 10410}#))) + (let ((#{b 10448}# + (let ((#{t 11165}# (assq #{n 10446}# #{r 10407}#))) + (if #{t 11165}# + (cdr #{t 11165}#) + (if (symbol? #{n 10446}#) + (let ((#{t 11170}# (begin - (if (if (not #{id-mod 10449}#) + (if (if (not #{id-mod 10447}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 10448}#)) - (let ((#{v 11209}# + #{n 10446}#)) + (let ((#{v 11207}# (module-variable - (if #{id-mod 10449}# + (if #{id-mod 10447}# (resolve-module - (cdr #{id-mod 10449}#)) + (cdr #{id-mod 10447}#)) (current-module)) - #{n 10448}#))) - (if #{v 11209}# - (if (variable-bound? #{v 11209}#) - (let ((#{val 11218}# + #{n 10446}#))) + (if #{v 11207}# + (if (variable-bound? #{v 11207}#) + (let ((#{val 11216}# (variable-ref - #{v 11209}#))) - (if (macro? #{val 11218}#) + #{v 11207}#))) + (if (macro? #{val 11216}#) (if (macro-type - #{val 11218}#) + #{val 11216}#) (cons (macro-type - #{val 11218}#) + #{val 11216}#) (macro-binding - #{val 11218}#)) + #{val 11216}#)) #f) #f)) #f) #f))))) - (if #{t 11172}# #{t 11172}# '(global))) + (if #{t 11170}# #{t 11170}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 10451}# (car #{b 10450}#))) - (if (let ((#{t 10490}# #{atom-key 10451}#)) - (eqv? #{t 10490}# 'lexical)) - (#{build-lexical-assignment 4313}# - #{s 10411}# - (syntax->datum #{id 10446}#) - (cdr #{b 10450}#) - (#{chi 4375}# - #{val 10447}# - #{r 10409}# - #{w 10410}# - #{mod 10412}#)) - (if (let ((#{t 10789}# #{atom-key 10451}#)) - (eqv? #{t 10789}# 'global)) - (#{build-global-assignment 4316}# - #{s 10411}# - #{n 10448}# - (#{chi 4375}# - #{val 10447}# - #{r 10409}# - #{w 10410}# - #{mod 10412}#) - #{id-mod 10449}#) - (if (let ((#{t 11058}# #{atom-key 10451}#)) - (eqv? #{t 11058}# 'macro)) - (let ((#{p 11121}# (cdr #{b 10450}#))) + (let ((#{atom-key 10449}# (car #{b 10448}#))) + (if (let ((#{t 10488}# #{atom-key 10449}#)) + (eqv? #{t 10488}# 'lexical)) + (#{build-lexical-assignment 4311}# + #{s 10409}# + (syntax->datum #{id 10444}#) + (cdr #{b 10448}#) + (#{chi 4373}# + #{val 10445}# + #{r 10407}# + #{w 10408}# + #{mod 10410}#)) + (if (let ((#{t 10787}# #{atom-key 10449}#)) + (eqv? #{t 10787}# 'global)) + (#{build-global-assignment 4314}# + #{s 10409}# + #{n 10446}# + (#{chi 4373}# + #{val 10445}# + #{r 10407}# + #{w 10408}# + #{mod 10410}#) + #{id-mod 10447}#) + (if (let ((#{t 11056}# #{atom-key 10449}#)) + (eqv? #{t 11056}# 'macro)) + (let ((#{p 11119}# (cdr #{b 10448}#))) (if (procedure-property - #{p 11121}# + #{p 11119}# 'variable-transformer) - (#{chi 4375}# - (#{chi-macro 4378}# - #{p 11121}# - #{e 10408}# - #{r 10409}# - #{w 10410}# - #{s 10411}# + (#{chi 4373}# + (#{chi-macro 4376}# + #{p 11119}# + #{e 10406}# + #{r 10407}# + #{w 10408}# + #{s 10409}# #f - #{mod 10412}#) - #{r 10409}# + #{mod 10410}#) + #{r 10407}# '(()) - #{mod 10412}#) + #{mod 10410}#) (syntax-violation 'set! "not a variable transformer" - (if (if (null? (car #{w 10410}#)) - (null? (cdr #{w 10410}#)) + (if (if (null? (car #{w 10408}#)) + (null? (cdr #{w 10408}#)) #f) - #{e 10408}# - (if (if (vector? #{e 10408}#) - (if (= (vector-length #{e 10408}#) 4) - (eq? (vector-ref #{e 10408}# 0) + #{e 10406}# + (if (if (vector? #{e 10406}#) + (if (= (vector-length #{e 10406}#) 4) + (eq? (vector-ref #{e 10406}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11323}# - (vector-ref #{e 10408}# 1)) - (#{wrap 11324}# - (let ((#{w2 11334}# + (let ((#{expression 11321}# + (vector-ref #{e 10406}# 1)) + (#{wrap 11322}# + (let ((#{w2 11332}# (vector-ref - #{e 10408}# + #{e 10406}# 2))) - (let ((#{m1 11335}# - (car #{w 10410}#)) - (#{s1 11336}# - (cdr #{w 10410}#))) - (if (null? #{m1 11335}#) - (if (null? #{s1 11336}#) - #{w2 11334}# - (cons (car #{w2 11334}#) - (let ((#{m2 11353}# - (cdr #{w2 11334}#))) - (if (null? #{m2 11353}#) - #{s1 11336}# + (let ((#{m1 11333}# + (car #{w 10408}#)) + (#{s1 11334}# + (cdr #{w 10408}#))) + (if (null? #{m1 11333}#) + (if (null? #{s1 11334}#) + #{w2 11332}# + (cons (car #{w2 11332}#) + (let ((#{m2 11351}# + (cdr #{w2 11332}#))) + (if (null? #{m2 11351}#) + #{s1 11334}# (append - #{s1 11336}# - #{m2 11353}#))))) - (cons (let ((#{m2 11361}# - (car #{w2 11334}#))) - (if (null? #{m2 11361}#) - #{m1 11335}# + #{s1 11334}# + #{m2 11351}#))))) + (cons (let ((#{m2 11359}# + (car #{w2 11332}#))) + (if (null? #{m2 11359}#) + #{m1 11333}# (append - #{m1 11335}# - #{m2 11361}#))) - (let ((#{m2 11369}# - (cdr #{w2 11334}#))) - (if (null? #{m2 11369}#) - #{s1 11336}# + #{m1 11333}# + #{m2 11359}#))) + (let ((#{m2 11367}# + (cdr #{w2 11332}#))) + (if (null? #{m2 11367}#) + #{s1 11334}# (append - #{s1 11336}# - #{m2 11369}#)))))))) - (#{module 11325}# - (vector-ref #{e 10408}# 3))) + #{s1 11334}# + #{m2 11367}#)))))))) + (#{module 11323}# + (vector-ref #{e 10406}# 3))) (vector 'syntax-object - #{expression 11323}# - #{wrap 11324}# - #{module 11325}#)) - (if (null? #{e 10408}#) - #{e 10408}# + #{expression 11321}# + #{wrap 11322}# + #{module 11323}#)) + (if (null? #{e 10406}#) + #{e 10406}# (vector 'syntax-object - #{e 10408}# - #{w 10410}# - #{mod 10412}#)))) - (if (if (null? (car #{w 10410}#)) - (null? (cdr #{w 10410}#)) + #{e 10406}# + #{w 10408}# + #{mod 10410}#)))) + (if (if (null? (car #{w 10408}#)) + (null? (cdr #{w 10408}#)) #f) - #{id 10446}# - (if (if (vector? #{id 10446}#) - (if (= (vector-length #{id 10446}#) + #{id 10444}# + (if (if (vector? #{id 10444}#) + (if (= (vector-length #{id 10444}#) 4) - (eq? (vector-ref #{id 10446}# 0) + (eq? (vector-ref #{id 10444}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11421}# - (vector-ref #{id 10446}# 1)) - (#{wrap 11422}# - (let ((#{w2 11432}# + (let ((#{expression 11419}# + (vector-ref #{id 10444}# 1)) + (#{wrap 11420}# + (let ((#{w2 11430}# (vector-ref - #{id 10446}# + #{id 10444}# 2))) - (let ((#{m1 11433}# - (car #{w 10410}#)) - (#{s1 11434}# - (cdr #{w 10410}#))) - (if (null? #{m1 11433}#) - (if (null? #{s1 11434}#) - #{w2 11432}# - (cons (car #{w2 11432}#) - (let ((#{m2 11451}# - (cdr #{w2 11432}#))) - (if (null? #{m2 11451}#) - #{s1 11434}# + (let ((#{m1 11431}# + (car #{w 10408}#)) + (#{s1 11432}# + (cdr #{w 10408}#))) + (if (null? #{m1 11431}#) + (if (null? #{s1 11432}#) + #{w2 11430}# + (cons (car #{w2 11430}#) + (let ((#{m2 11449}# + (cdr #{w2 11430}#))) + (if (null? #{m2 11449}#) + #{s1 11432}# (append - #{s1 11434}# - #{m2 11451}#))))) - (cons (let ((#{m2 11459}# - (car #{w2 11432}#))) - (if (null? #{m2 11459}#) - #{m1 11433}# + #{s1 11432}# + #{m2 11449}#))))) + (cons (let ((#{m2 11457}# + (car #{w2 11430}#))) + (if (null? #{m2 11457}#) + #{m1 11431}# (append - #{m1 11433}# - #{m2 11459}#))) - (let ((#{m2 11467}# - (cdr #{w2 11432}#))) - (if (null? #{m2 11467}#) - #{s1 11434}# + #{m1 11431}# + #{m2 11457}#))) + (let ((#{m2 11465}# + (cdr #{w2 11430}#))) + (if (null? #{m2 11465}#) + #{s1 11432}# (append - #{s1 11434}# - #{m2 11467}#)))))))) - (#{module 11423}# - (vector-ref #{id 10446}# 3))) + #{s1 11432}# + #{m2 11465}#)))))))) + (#{module 11421}# + (vector-ref #{id 10444}# 3))) (vector 'syntax-object - #{expression 11421}# - #{wrap 11422}# - #{module 11423}#)) - (if (null? #{id 10446}#) - #{id 10446}# + #{expression 11419}# + #{wrap 11420}# + #{module 11421}#)) + (if (null? #{id 10444}#) + #{id 10444}# (vector 'syntax-object - #{id 10446}# - #{w 10410}# - #{id-mod 10449}#))))))) - (if (eqv? #{atom-key 10451}# 'displaced-lexical) + #{id 10444}# + #{w 10408}# + #{id-mod 10447}#))))))) + (if (eqv? #{atom-key 10449}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (if (if (null? (car #{w 10410}#)) - (null? (cdr #{w 10410}#)) + (if (if (null? (car #{w 10408}#)) + (null? (cdr #{w 10408}#)) #f) - #{id 10446}# - (if (if (vector? #{id 10446}#) - (if (= (vector-length #{id 10446}#) 4) - (eq? (vector-ref #{id 10446}# 0) + #{id 10444}# + (if (if (vector? #{id 10444}#) + (if (= (vector-length #{id 10444}#) 4) + (eq? (vector-ref #{id 10444}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11523}# - (vector-ref #{id 10446}# 1)) - (#{wrap 11524}# - (let ((#{w2 11534}# + (let ((#{expression 11521}# + (vector-ref #{id 10444}# 1)) + (#{wrap 11522}# + (let ((#{w2 11532}# (vector-ref - #{id 10446}# + #{id 10444}# 2))) - (let ((#{m1 11535}# - (car #{w 10410}#)) - (#{s1 11536}# - (cdr #{w 10410}#))) - (if (null? #{m1 11535}#) - (if (null? #{s1 11536}#) - #{w2 11534}# - (cons (car #{w2 11534}#) - (let ((#{m2 11553}# - (cdr #{w2 11534}#))) - (if (null? #{m2 11553}#) - #{s1 11536}# + (let ((#{m1 11533}# + (car #{w 10408}#)) + (#{s1 11534}# + (cdr #{w 10408}#))) + (if (null? #{m1 11533}#) + (if (null? #{s1 11534}#) + #{w2 11532}# + (cons (car #{w2 11532}#) + (let ((#{m2 11551}# + (cdr #{w2 11532}#))) + (if (null? #{m2 11551}#) + #{s1 11534}# (append - #{s1 11536}# - #{m2 11553}#))))) - (cons (let ((#{m2 11561}# - (car #{w2 11534}#))) - (if (null? #{m2 11561}#) - #{m1 11535}# + #{s1 11534}# + #{m2 11551}#))))) + (cons (let ((#{m2 11559}# + (car #{w2 11532}#))) + (if (null? #{m2 11559}#) + #{m1 11533}# (append - #{m1 11535}# - #{m2 11561}#))) - (let ((#{m2 11569}# - (cdr #{w2 11534}#))) - (if (null? #{m2 11569}#) - #{s1 11536}# + #{m1 11533}# + #{m2 11559}#))) + (let ((#{m2 11567}# + (cdr #{w2 11532}#))) + (if (null? #{m2 11567}#) + #{s1 11534}# (append - #{s1 11536}# - #{m2 11569}#)))))))) - (#{module 11525}# - (vector-ref #{id 10446}# 3))) + #{s1 11534}# + #{m2 11567}#)))))))) + (#{module 11523}# + (vector-ref #{id 10444}# 3))) (vector 'syntax-object - #{expression 11523}# - #{wrap 11524}# - #{module 11525}#)) - (if (null? #{id 10446}#) - #{id 10446}# + #{expression 11521}# + #{wrap 11522}# + #{module 11523}#)) + (if (null? #{id 10444}#) + #{id 10444}# (vector 'syntax-object - #{id 10446}# - #{w 10410}# - #{mod 10412}#))))) + #{id 10444}# + #{w 10408}# + #{mod 10410}#))))) (syntax-violation 'set! "bad set!" - (let ((#{x 11601}# + (let ((#{x 11599}# (begin - (if (if (pair? #{e 10408}#) - #{s 10411}# + (if (if (pair? #{e 10406}#) + #{s 10409}# #f) (set-source-properties! - #{e 10408}# - #{s 10411}#)) - #{e 10408}#))) - (if (if (null? (car #{w 10410}#)) - (null? (cdr #{w 10410}#)) + #{e 10406}# + #{s 10409}#)) + #{e 10406}#))) + (if (if (null? (car #{w 10408}#)) + (null? (cdr #{w 10408}#)) #f) - #{x 11601}# - (if (if (vector? #{x 11601}#) - (if (= (vector-length #{x 11601}#) 4) - (eq? (vector-ref #{x 11601}# 0) + #{x 11599}# + (if (if (vector? #{x 11599}#) + (if (= (vector-length #{x 11599}#) 4) + (eq? (vector-ref #{x 11599}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11633}# - (vector-ref #{x 11601}# 1)) - (#{wrap 11634}# - (let ((#{w2 11642}# + (let ((#{expression 11631}# + (vector-ref #{x 11599}# 1)) + (#{wrap 11632}# + (let ((#{w2 11640}# (vector-ref - #{x 11601}# + #{x 11599}# 2))) - (let ((#{m1 11643}# - (car #{w 10410}#)) - (#{s1 11644}# - (cdr #{w 10410}#))) - (if (null? #{m1 11643}#) - (if (null? #{s1 11644}#) - #{w2 11642}# - (cons (car #{w2 11642}#) - (let ((#{m2 11659}# - (cdr #{w2 11642}#))) - (if (null? #{m2 11659}#) - #{s1 11644}# + (let ((#{m1 11641}# + (car #{w 10408}#)) + (#{s1 11642}# + (cdr #{w 10408}#))) + (if (null? #{m1 11641}#) + (if (null? #{s1 11642}#) + #{w2 11640}# + (cons (car #{w2 11640}#) + (let ((#{m2 11657}# + (cdr #{w2 11640}#))) + (if (null? #{m2 11657}#) + #{s1 11642}# (append - #{s1 11644}# - #{m2 11659}#))))) - (cons (let ((#{m2 11667}# - (car #{w2 11642}#))) - (if (null? #{m2 11667}#) - #{m1 11643}# + #{s1 11642}# + #{m2 11657}#))))) + (cons (let ((#{m2 11665}# + (car #{w2 11640}#))) + (if (null? #{m2 11665}#) + #{m1 11641}# (append - #{m1 11643}# - #{m2 11667}#))) - (let ((#{m2 11675}# - (cdr #{w2 11642}#))) - (if (null? #{m2 11675}#) - #{s1 11644}# + #{m1 11641}# + #{m2 11665}#))) + (let ((#{m2 11673}# + (cdr #{w2 11640}#))) + (if (null? #{m2 11673}#) + #{s1 11642}# (append - #{s1 11644}# - #{m2 11675}#)))))))) - (#{module 11635}# - (vector-ref #{x 11601}# 3))) + #{s1 11642}# + #{m2 11673}#)))))))) + (#{module 11633}# + (vector-ref #{x 11599}# 3))) (vector 'syntax-object - #{expression 11633}# - #{wrap 11634}# - #{module 11635}#)) - (if (null? #{x 11601}#) - #{x 11601}# + #{expression 11631}# + #{wrap 11632}# + #{module 11633}#)) + (if (null? #{x 11599}#) + #{x 11599}# (vector 'syntax-object - #{x 11601}# - #{w 10410}# - #{mod 10412}#)))))))))))))) - #{tmp 10414}#) - (let ((#{tmp 11690}# + #{x 11599}# + #{w 10408}# + #{mod 10410}#)))))))))))))) + #{tmp 10412}#) + (let ((#{tmp 11688}# ($sc-dispatch - #{e 10408}# + #{e 10406}# '(_ (any . each-any) any)))) - (if #{tmp 11690}# + (if #{tmp 11688}# (@apply - (lambda (#{head 11694}# #{tail 11695}# #{val 11696}#) + (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#) (call-with-values (lambda () - (#{syntax-type 4374}# - #{head 11694}# - #{r 10409}# + (#{syntax-type 4372}# + #{head 11692}# + #{r 10407}# '(()) #f #f - #{mod 10412}# + #{mod 10410}# #t)) - (lambda (#{type 11699}# - #{value 11700}# - #{ee 11701}# - #{ww 11702}# - #{ss 11703}# - #{modmod 11704}#) - (if (eqv? #{type 11699}# 'module-ref) - (let ((#{val 11708}# - (#{chi 4375}# - #{val 11696}# - #{r 10409}# - #{w 10410}# - #{mod 10412}#))) + (lambda (#{type 11697}# + #{value 11698}# + #{ee 11699}# + #{ww 11700}# + #{ss 11701}# + #{modmod 11702}#) + (if (eqv? #{type 11697}# 'module-ref) + (let ((#{val 11706}# + (#{chi 4373}# + #{val 11694}# + #{r 10407}# + #{w 10408}# + #{mod 10410}#))) (call-with-values (lambda () - (#{value 11700}# - (cons #{head 11694}# #{tail 11695}#) - #{r 10409}# - #{w 10410}#)) - (lambda (#{e 11709}# - #{r 11710}# - #{w 11711}# - #{s* 11712}# - #{mod 11713}#) - (let ((#{tmp 11715}# (list #{e 11709}#))) + (#{value 11698}# + (cons #{head 11692}# #{tail 11693}#) + #{r 10407}# + #{w 10408}#)) + (lambda (#{e 11707}# + #{r 11708}# + #{w 11709}# + #{s* 11710}# + #{mod 11711}#) + (let ((#{tmp 11713}# (list #{e 11707}#))) (if (@apply - (lambda (#{e 11717}#) - (if (symbol? #{e 11717}#) + (lambda (#{e 11715}#) + (if (symbol? #{e 11715}#) #t - (if (if (vector? #{e 11717}#) + (if (if (vector? #{e 11715}#) (if (= (vector-length - #{e 11717}#) + #{e 11715}#) 4) (eq? (vector-ref - #{e 11717}# + #{e 11715}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 11717}# 1)) + (vector-ref #{e 11715}# 1)) #f))) - #{tmp 11715}#) + #{tmp 11713}#) (@apply - (lambda (#{e 11747}#) - (#{build-global-assignment 4316}# - #{s 10411}# - (syntax->datum #{e 11747}#) - #{val 11708}# - #{mod 11713}#)) - #{tmp 11715}#) + (lambda (#{e 11745}#) + (#{build-global-assignment 4314}# + #{s 10409}# + (syntax->datum #{e 11745}#) + #{val 11706}# + #{mod 11711}#)) + #{tmp 11713}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11709}#)))))) - (#{build-call 4309}# - #{s 10411}# - (#{chi 4375}# + #{e 11707}#)))))) + (#{build-call 4307}# + #{s 10409}# + (#{chi 4373}# (list '#(syntax-object setter ((top) @@ -11028,25 +11011,25 @@ (top) (top) (top)) - #("i3587" + #("i3585" + "i3586" + "i3587" "i3588" "i3589" - "i3590" - "i3591" - "i3592")) + "i3590")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3573" "i3574" "i3575")) + #("i3571" "i3572" "i3573")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) - #("i3537" + #("i3535" + "i3536" + "i3537" "i3538" - "i3539" - "i3540" - "i3541")) + "i3539")) #(ribcage (lambda-var-list gen-var @@ -11469,113 +11452,113 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{head 11694}#) - #{r 10409}# - #{w 10410}# - #{mod 10412}#) - (map (lambda (#{e 12076}#) - (#{chi 4375}# - #{e 12076}# - #{r 10409}# - #{w 10410}# - #{mod 10412}#)) + #{head 11692}#) + #{r 10407}# + #{w 10408}# + #{mod 10410}#) + (map (lambda (#{e 12074}#) + (#{chi 4373}# + #{e 12074}# + #{r 10407}# + #{w 10408}# + #{mod 10410}#)) (append - #{tail 11695}# - (list #{val 11696}#)))))))) - #{tmp 11690}#) + #{tail 11693}# + (list #{val 11694}#)))))))) + #{tmp 11688}#) (syntax-violation 'set! "bad set!" - (let ((#{x 12168}# + (let ((#{x 12166}# (begin - (if (if (pair? #{e 10408}#) #{s 10411}# #f) - (set-source-properties! #{e 10408}# #{s 10411}#)) - #{e 10408}#))) - (if (if (null? (car #{w 10410}#)) - (null? (cdr #{w 10410}#)) + (if (if (pair? #{e 10406}#) #{s 10409}# #f) + (set-source-properties! #{e 10406}# #{s 10409}#)) + #{e 10406}#))) + (if (if (null? (car #{w 10408}#)) + (null? (cdr #{w 10408}#)) #f) - #{x 12168}# - (if (if (vector? #{x 12168}#) - (if (= (vector-length #{x 12168}#) 4) - (eq? (vector-ref #{x 12168}# 0) 'syntax-object) + #{x 12166}# + (if (if (vector? #{x 12166}#) + (if (= (vector-length #{x 12166}#) 4) + (eq? (vector-ref #{x 12166}# 0) 'syntax-object) #f) #f) - (let ((#{expression 12200}# (vector-ref #{x 12168}# 1)) - (#{wrap 12201}# - (let ((#{w2 12209}# - (vector-ref #{x 12168}# 2))) - (let ((#{m1 12210}# (car #{w 10410}#)) - (#{s1 12211}# (cdr #{w 10410}#))) - (if (null? #{m1 12210}#) - (if (null? #{s1 12211}#) - #{w2 12209}# - (cons (car #{w2 12209}#) - (let ((#{m2 12226}# - (cdr #{w2 12209}#))) - (if (null? #{m2 12226}#) - #{s1 12211}# + (let ((#{expression 12198}# (vector-ref #{x 12166}# 1)) + (#{wrap 12199}# + (let ((#{w2 12207}# + (vector-ref #{x 12166}# 2))) + (let ((#{m1 12208}# (car #{w 10408}#)) + (#{s1 12209}# (cdr #{w 10408}#))) + (if (null? #{m1 12208}#) + (if (null? #{s1 12209}#) + #{w2 12207}# + (cons (car #{w2 12207}#) + (let ((#{m2 12224}# + (cdr #{w2 12207}#))) + (if (null? #{m2 12224}#) + #{s1 12209}# (append - #{s1 12211}# - #{m2 12226}#))))) - (cons (let ((#{m2 12234}# - (car #{w2 12209}#))) - (if (null? #{m2 12234}#) - #{m1 12210}# + #{s1 12209}# + #{m2 12224}#))))) + (cons (let ((#{m2 12232}# + (car #{w2 12207}#))) + (if (null? #{m2 12232}#) + #{m1 12208}# (append - #{m1 12210}# - #{m2 12234}#))) - (let ((#{m2 12242}# - (cdr #{w2 12209}#))) - (if (null? #{m2 12242}#) - #{s1 12211}# + #{m1 12208}# + #{m2 12232}#))) + (let ((#{m2 12240}# + (cdr #{w2 12207}#))) + (if (null? #{m2 12240}#) + #{s1 12209}# (append - #{s1 12211}# - #{m2 12242}#)))))))) - (#{module 12202}# (vector-ref #{x 12168}# 3))) + #{s1 12209}# + #{m2 12240}#)))))))) + (#{module 12200}# (vector-ref #{x 12166}# 3))) (vector 'syntax-object - #{expression 12200}# - #{wrap 12201}# - #{module 12202}#)) - (if (null? #{x 12168}#) - #{x 12168}# + #{expression 12198}# + #{wrap 12199}# + #{module 12200}#)) + (if (null? #{x 12166}#) + #{x 12166}# (vector 'syntax-object - #{x 12168}# - #{w 10410}# - #{mod 10412}#)))))))))))) + #{x 12166}# + #{w 10408}# + #{mod 10410}#)))))))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 12273}# #{r 12274}# #{w 12275}#) - (let ((#{tmp 12277}# - ($sc-dispatch #{e 12273}# '(_ each-any any)))) - (if (if #{tmp 12277}# + (lambda (#{e 12271}# #{r 12272}# #{w 12273}#) + (let ((#{tmp 12275}# + ($sc-dispatch #{e 12271}# '(_ each-any any)))) + (if (if #{tmp 12275}# (@apply - (lambda (#{mod 12280}# #{id 12281}#) - (if (and-map #{id? 4343}# #{mod 12280}#) - (if (symbol? #{id 12281}#) + (lambda (#{mod 12278}# #{id 12279}#) + (if (and-map #{id? 4341}# #{mod 12278}#) + (if (symbol? #{id 12279}#) #t - (if (if (vector? #{id 12281}#) - (if (= (vector-length #{id 12281}#) 4) - (eq? (vector-ref #{id 12281}# 0) + (if (if (vector? #{id 12279}#) + (if (= (vector-length #{id 12279}#) 4) + (eq? (vector-ref #{id 12279}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 12281}# 1)) + (symbol? (vector-ref #{id 12279}# 1)) #f)) #f)) - #{tmp 12277}#) + #{tmp 12275}#) #f) (@apply - (lambda (#{mod 12321}# #{id 12322}#) + (lambda (#{mod 12319}# #{id 12320}#) (values - (syntax->datum #{id 12322}#) - #{r 12274}# - #{w 12275}# + (syntax->datum #{id 12320}#) + #{r 12272}# + #{w 12273}# #f (syntax->datum (cons '#(syntax-object @@ -11584,12 +11567,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3634" "i3635")) + #("i3632" "i3633")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3622" "i3623" "i3624")) + #("i3620" "i3621" "i3622")) #(ribcage (lambda-var-list gen-var @@ -12012,70 +11995,70 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12321}#)))) - #{tmp 12277}#) + #{mod 12319}#)))) + #{tmp 12275}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12273}#)))))) - (#{global-extend 4341}# + #{e 12271}#)))))) + (#{global-extend 4339}# 'module-ref '@@ - (lambda (#{e 12426}# #{r 12427}# #{w 12428}#) + (lambda (#{e 12424}# #{r 12425}# #{w 12426}#) (letrec* - ((#{remodulate 12429}# - (lambda (#{x 12665}# #{mod 12666}#) - (if (pair? #{x 12665}#) - (cons (#{remodulate 12429}# - (car #{x 12665}#) - #{mod 12666}#) - (#{remodulate 12429}# - (cdr #{x 12665}#) - #{mod 12666}#)) - (if (if (vector? #{x 12665}#) - (if (= (vector-length #{x 12665}#) 4) - (eq? (vector-ref #{x 12665}# 0) 'syntax-object) + ((#{remodulate 12427}# + (lambda (#{x 12663}# #{mod 12664}#) + (if (pair? #{x 12663}#) + (cons (#{remodulate 12427}# + (car #{x 12663}#) + #{mod 12664}#) + (#{remodulate 12427}# + (cdr #{x 12663}#) + #{mod 12664}#)) + (if (if (vector? #{x 12663}#) + (if (= (vector-length #{x 12663}#) 4) + (eq? (vector-ref #{x 12663}# 0) 'syntax-object) #f) #f) - (let ((#{expression 12680}# - (#{remodulate 12429}# - (vector-ref #{x 12665}# 1) - #{mod 12666}#)) - (#{wrap 12681}# (vector-ref #{x 12665}# 2))) + (let ((#{expression 12678}# + (#{remodulate 12427}# + (vector-ref #{x 12663}# 1) + #{mod 12664}#)) + (#{wrap 12679}# (vector-ref #{x 12663}# 2))) (vector 'syntax-object - #{expression 12680}# - #{wrap 12681}# - #{mod 12666}#)) - (if (vector? #{x 12665}#) - (let ((#{n 12689}# (vector-length #{x 12665}#))) - (let ((#{v 12690}# (make-vector #{n 12689}#))) + #{expression 12678}# + #{wrap 12679}# + #{mod 12664}#)) + (if (vector? #{x 12663}#) + (let ((#{n 12687}# (vector-length #{x 12663}#))) + (let ((#{v 12688}# (make-vector #{n 12687}#))) (letrec* - ((#{loop 12691}# - (lambda (#{i 12746}#) - (if (= #{i 12746}# #{n 12689}#) - #{v 12690}# + ((#{loop 12689}# + (lambda (#{i 12744}#) + (if (= #{i 12744}# #{n 12687}#) + #{v 12688}# (begin (vector-set! - #{v 12690}# - #{i 12746}# - (#{remodulate 12429}# - (vector-ref #{x 12665}# #{i 12746}#) - #{mod 12666}#)) - (#{loop 12691}# (#{1+}# #{i 12746}#))))))) - (#{loop 12691}# 0)))) - #{x 12665}#)))))) - (let ((#{tmp 12431}# - ($sc-dispatch #{e 12426}# '(_ each-any any)))) - (if (if #{tmp 12431}# + #{v 12688}# + #{i 12744}# + (#{remodulate 12427}# + (vector-ref #{x 12663}# #{i 12744}#) + #{mod 12664}#)) + (#{loop 12689}# (#{1+}# #{i 12744}#))))))) + (#{loop 12689}# 0)))) + #{x 12663}#)))))) + (let ((#{tmp 12429}# + ($sc-dispatch #{e 12424}# '(_ each-any any)))) + (if (if #{tmp 12429}# (@apply - (lambda (#{mod 12435}# #{exp 12436}#) - (and-map #{id? 4343}# #{mod 12435}#)) - #{tmp 12431}#) + (lambda (#{mod 12433}# #{exp 12434}#) + (and-map #{id? 4341}# #{mod 12433}#)) + #{tmp 12429}#) #f) (@apply - (lambda (#{mod 12452}# #{exp 12453}#) - (let ((#{mod 12454}# + (lambda (#{mod 12450}# #{exp 12451}#) + (let ((#{mod 12452}# (syntax->datum (cons '#(syntax-object private @@ -12083,12 +12066,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3678" "i3679")) - #(ribcage (remodulate) ((top)) ("i3645")) + #("i3676" "i3677")) + #(ribcage (remodulate) ((top)) ("i3643")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3642" "i3643" "i3644")) + #("i3640" "i3641" "i3642")) #(ribcage (lambda-var-list gen-var @@ -12511,181 +12494,181 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12452}#)))) + #{mod 12450}#)))) (values - (#{remodulate 12429}# - #{exp 12453}# - #{mod 12454}#) - #{r 12427}# - #{w 12428}# - (#{source-annotation 4336}# #{exp 12453}#) - #{mod 12454}#))) - #{tmp 12431}#) + (#{remodulate 12427}# + #{exp 12451}# + #{mod 12452}#) + #{r 12425}# + #{w 12426}# + (#{source-annotation 4334}# #{exp 12451}#) + #{mod 12452}#))) + #{tmp 12429}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12426}#)))))) - (#{global-extend 4341}# + #{e 12424}#)))))) + (#{global-extend 4339}# 'core 'if - (lambda (#{e 12859}# - #{r 12860}# - #{w 12861}# - #{s 12862}# - #{mod 12863}#) - (let ((#{tmp 12865}# - ($sc-dispatch #{e 12859}# '(_ any any)))) - (if #{tmp 12865}# + (lambda (#{e 12857}# + #{r 12858}# + #{w 12859}# + #{s 12860}# + #{mod 12861}#) + (let ((#{tmp 12863}# + ($sc-dispatch #{e 12857}# '(_ any any)))) + (if #{tmp 12863}# (@apply - (lambda (#{test 12869}# #{then 12870}#) - (#{build-conditional 4310}# - #{s 12862}# - (#{chi 4375}# - #{test 12869}# - #{r 12860}# - #{w 12861}# - #{mod 12863}#) - (#{chi 4375}# - #{then 12870}# - #{r 12860}# - #{w 12861}# - #{mod 12863}#) + (lambda (#{test 12867}# #{then 12868}#) + (#{build-conditional 4308}# + #{s 12860}# + (#{chi 4373}# + #{test 12867}# + #{r 12858}# + #{w 12859}# + #{mod 12861}#) + (#{chi 4373}# + #{then 12868}# + #{r 12858}# + #{w 12859}# + #{mod 12861}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 12865}#) - (let ((#{tmp 13131}# - ($sc-dispatch #{e 12859}# '(_ any any any)))) - (if #{tmp 13131}# + #{tmp 12863}#) + (let ((#{tmp 13129}# + ($sc-dispatch #{e 12857}# '(_ any any any)))) + (if #{tmp 13129}# (@apply - (lambda (#{test 13135}# #{then 13136}# #{else 13137}#) - (#{build-conditional 4310}# - #{s 12862}# - (#{chi 4375}# - #{test 13135}# - #{r 12860}# - #{w 12861}# - #{mod 12863}#) - (#{chi 4375}# - #{then 13136}# - #{r 12860}# - #{w 12861}# - #{mod 12863}#) - (#{chi 4375}# - #{else 13137}# - #{r 12860}# - #{w 12861}# - #{mod 12863}#))) - #{tmp 13131}#) + (lambda (#{test 13133}# #{then 13134}# #{else 13135}#) + (#{build-conditional 4308}# + #{s 12860}# + (#{chi 4373}# + #{test 13133}# + #{r 12858}# + #{w 12859}# + #{mod 12861}#) + (#{chi 4373}# + #{then 13134}# + #{r 12858}# + #{w 12859}# + #{mod 12861}#) + (#{chi 4373}# + #{else 13135}# + #{r 12858}# + #{w 12859}# + #{mod 12861}#))) + #{tmp 13129}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12859}#))))))) - (#{global-extend 4341}# + #{e 12857}#))))))) + (#{global-extend 4339}# 'core 'with-fluids - (lambda (#{e 13596}# - #{r 13597}# - #{w 13598}# - #{s 13599}# - #{mod 13600}#) - (let ((#{tmp 13602}# + (lambda (#{e 13594}# + #{r 13595}# + #{w 13596}# + #{s 13597}# + #{mod 13598}#) + (let ((#{tmp 13600}# ($sc-dispatch - #{e 13596}# + #{e 13594}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 13602}# + (if #{tmp 13600}# (@apply - (lambda (#{fluid 13606}# - #{val 13607}# - #{b 13608}# - #{b* 13609}#) - (#{build-dynlet 4311}# - #{s 13599}# - (map (lambda (#{x 13702}#) - (#{chi 4375}# - #{x 13702}# - #{r 13597}# - #{w 13598}# - #{mod 13600}#)) - #{fluid 13606}#) - (map (lambda (#{x 13784}#) - (#{chi 4375}# - #{x 13784}# - #{r 13597}# - #{w 13598}# - #{mod 13600}#)) - #{val 13607}#) - (#{chi-body 4379}# - (cons #{b 13608}# #{b* 13609}#) - (let ((#{x 13877}# + (lambda (#{fluid 13604}# + #{val 13605}# + #{b 13606}# + #{b* 13607}#) + (#{build-dynlet 4309}# + #{s 13597}# + (map (lambda (#{x 13700}#) + (#{chi 4373}# + #{x 13700}# + #{r 13595}# + #{w 13596}# + #{mod 13598}#)) + #{fluid 13604}#) + (map (lambda (#{x 13782}#) + (#{chi 4373}# + #{x 13782}# + #{r 13595}# + #{w 13596}# + #{mod 13598}#)) + #{val 13605}#) + (#{chi-body 4377}# + (cons #{b 13606}# #{b* 13607}#) + (let ((#{x 13875}# (begin - (if (if (pair? #{e 13596}#) #{s 13599}# #f) + (if (if (pair? #{e 13594}#) #{s 13597}# #f) (set-source-properties! - #{e 13596}# - #{s 13599}#)) - #{e 13596}#))) - (if (if (null? (car #{w 13598}#)) - (null? (cdr #{w 13598}#)) + #{e 13594}# + #{s 13597}#)) + #{e 13594}#))) + (if (if (null? (car #{w 13596}#)) + (null? (cdr #{w 13596}#)) #f) - #{x 13877}# - (if (if (vector? #{x 13877}#) - (if (= (vector-length #{x 13877}#) 4) - (eq? (vector-ref #{x 13877}# 0) 'syntax-object) + #{x 13875}# + (if (if (vector? #{x 13875}#) + (if (= (vector-length #{x 13875}#) 4) + (eq? (vector-ref #{x 13875}# 0) 'syntax-object) #f) #f) - (let ((#{expression 13909}# - (vector-ref #{x 13877}# 1)) - (#{wrap 13910}# - (let ((#{w2 13918}# - (vector-ref #{x 13877}# 2))) - (let ((#{m1 13919}# (car #{w 13598}#)) - (#{s1 13920}# (cdr #{w 13598}#))) - (if (null? #{m1 13919}#) - (if (null? #{s1 13920}#) - #{w2 13918}# - (cons (car #{w2 13918}#) - (let ((#{m2 13935}# - (cdr #{w2 13918}#))) - (if (null? #{m2 13935}#) - #{s1 13920}# + (let ((#{expression 13907}# + (vector-ref #{x 13875}# 1)) + (#{wrap 13908}# + (let ((#{w2 13916}# + (vector-ref #{x 13875}# 2))) + (let ((#{m1 13917}# (car #{w 13596}#)) + (#{s1 13918}# (cdr #{w 13596}#))) + (if (null? #{m1 13917}#) + (if (null? #{s1 13918}#) + #{w2 13916}# + (cons (car #{w2 13916}#) + (let ((#{m2 13933}# + (cdr #{w2 13916}#))) + (if (null? #{m2 13933}#) + #{s1 13918}# (append - #{s1 13920}# - #{m2 13935}#))))) - (cons (let ((#{m2 13943}# - (car #{w2 13918}#))) - (if (null? #{m2 13943}#) - #{m1 13919}# + #{s1 13918}# + #{m2 13933}#))))) + (cons (let ((#{m2 13941}# + (car #{w2 13916}#))) + (if (null? #{m2 13941}#) + #{m1 13917}# (append - #{m1 13919}# - #{m2 13943}#))) - (let ((#{m2 13951}# - (cdr #{w2 13918}#))) - (if (null? #{m2 13951}#) - #{s1 13920}# + #{m1 13917}# + #{m2 13941}#))) + (let ((#{m2 13949}# + (cdr #{w2 13916}#))) + (if (null? #{m2 13949}#) + #{s1 13918}# (append - #{s1 13920}# - #{m2 13951}#)))))))) - (#{module 13911}# (vector-ref #{x 13877}# 3))) + #{s1 13918}# + #{m2 13949}#)))))))) + (#{module 13909}# (vector-ref #{x 13875}# 3))) (vector 'syntax-object - #{expression 13909}# - #{wrap 13910}# - #{module 13911}#)) - (if (null? #{x 13877}#) - #{x 13877}# + #{expression 13907}# + #{wrap 13908}# + #{module 13909}#)) + (if (null? #{x 13875}#) + #{x 13875}# (vector 'syntax-object - #{x 13877}# - #{w 13598}# - #{mod 13600}#))))) - #{r 13597}# - #{w 13598}# - #{mod 13600}#))) - #{tmp 13602}#) + #{x 13875}# + #{w 13596}# + #{mod 13598}#))))) + #{r 13595}# + #{w 13596}# + #{mod 13598}#))) + #{tmp 13600}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 13596}#))))) + #{e 13594}#))))) (module-define! (current-module) 'begin @@ -12708,68 +12691,68 @@ 'eval-when 'eval-when '())) - (#{global-extend 4341}# + (#{global-extend 4339}# 'core 'syntax-case (letrec* - ((#{convert-pattern 14245}# - (lambda (#{pattern 15901}# #{keys 15902}#) + ((#{convert-pattern 14243}# + (lambda (#{pattern 15899}# #{keys 15900}#) (letrec* - ((#{cvt* 15903}# - (lambda (#{p* 16702}# #{n 16703}# #{ids 16704}#) - (if (not (pair? #{p* 16702}#)) - (#{cvt 15905}# - #{p* 16702}# - #{n 16703}# - #{ids 16704}#) + ((#{cvt* 15901}# + (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#) + (if (not (pair? #{p* 16700}#)) + (#{cvt 15903}# + #{p* 16700}# + #{n 16701}# + #{ids 16702}#) (call-with-values (lambda () - (#{cvt* 15903}# - (cdr #{p* 16702}#) - #{n 16703}# - #{ids 16704}#)) - (lambda (#{y 16707}# #{ids 16708}#) + (#{cvt* 15901}# + (cdr #{p* 16700}#) + #{n 16701}# + #{ids 16702}#)) + (lambda (#{y 16705}# #{ids 16706}#) (call-with-values (lambda () - (#{cvt 15905}# - (car #{p* 16702}#) - #{n 16703}# - #{ids 16708}#)) - (lambda (#{x 16711}# #{ids 16712}#) + (#{cvt 15903}# + (car #{p* 16700}#) + #{n 16701}# + #{ids 16706}#)) + (lambda (#{x 16709}# #{ids 16710}#) (values - (cons #{x 16711}# #{y 16707}#) - #{ids 16712}#)))))))) - (#{v-reverse 15904}# - (lambda (#{x 16713}#) + (cons #{x 16709}# #{y 16705}#) + #{ids 16710}#)))))))) + (#{v-reverse 15902}# + (lambda (#{x 16711}#) (letrec* - ((#{loop 16714}# - (lambda (#{r 16815}# #{x 16816}#) - (if (not (pair? #{x 16816}#)) - (values #{r 16815}# #{x 16816}#) - (#{loop 16714}# - (cons (car #{x 16816}#) #{r 16815}#) - (cdr #{x 16816}#)))))) - (#{loop 16714}# '() #{x 16713}#)))) - (#{cvt 15905}# - (lambda (#{p 15908}# #{n 15909}# #{ids 15910}#) - (if (if (symbol? #{p 15908}#) + ((#{loop 16712}# + (lambda (#{r 16813}# #{x 16814}#) + (if (not (pair? #{x 16814}#)) + (values #{r 16813}# #{x 16814}#) + (#{loop 16712}# + (cons (car #{x 16814}#) #{r 16813}#) + (cdr #{x 16814}#)))))) + (#{loop 16712}# '() #{x 16711}#)))) + (#{cvt 15903}# + (lambda (#{p 15906}# #{n 15907}# #{ids 15908}#) + (if (if (symbol? #{p 15906}#) #t - (if (if (vector? #{p 15908}#) - (if (= (vector-length #{p 15908}#) 4) - (eq? (vector-ref #{p 15908}# 0) + (if (if (vector? #{p 15906}#) + (if (= (vector-length #{p 15906}#) 4) + (eq? (vector-ref #{p 15906}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 15908}# 1)) + (symbol? (vector-ref #{p 15906}# 1)) #f)) - (if (#{bound-id-member? 4367}# - #{p 15908}# - #{keys 15902}#) + (if (#{bound-id-member? 4365}# + #{p 15906}# + #{keys 15900}#) (values - (vector 'free-id #{p 15908}#) - #{ids 15910}#) - (if (#{free-id=? 4363}# - #{p 15908}# + (vector 'free-id #{p 15906}#) + #{ids 15908}#) + (if (#{free-id=? 4361}# + #{p 15906}# '#(syntax-object _ ((top) @@ -12777,22 +12760,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3779" "i3780" "i3781")) + #("i3777" "i3778" "i3779")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3752" "i3750" "i3748")) + ("i3750" "i3748" "i3746")) #(ribcage #(pattern keys) #((top) (top)) - #("i3746" "i3747")) + #("i3744" "i3745")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3742" "i3740" "i3738" "i3736")) + ("i3740" "i3738" "i3736" "i3734")) #(ribcage (lambda-var-list gen-var @@ -13215,36 +13198,36 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))) - (values '_ #{ids 15910}#) + (values '_ #{ids 15908}#) (values 'any - (cons (cons #{p 15908}# #{n 15909}#) - #{ids 15910}#)))) - (let ((#{tmp 16042}# - ($sc-dispatch #{p 15908}# '(any any)))) - (if (if #{tmp 16042}# + (cons (cons #{p 15906}# #{n 15907}#) + #{ids 15908}#)))) + (let ((#{tmp 16040}# + ($sc-dispatch #{p 15906}# '(any any)))) + (if (if #{tmp 16040}# (@apply - (lambda (#{x 16046}# #{dots 16047}#) - (if (if (if (vector? #{dots 16047}#) + (lambda (#{x 16044}# #{dots 16045}#) + (if (if (if (vector? #{dots 16045}#) (if (= (vector-length - #{dots 16047}#) + #{dots 16045}#) 4) (eq? (vector-ref - #{dots 16047}# + #{dots 16045}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 16047}# 1)) + (symbol? (vector-ref #{dots 16045}# 1)) #f) - (#{free-id=? 4363}# - #{dots 16047}# + (#{free-id=? 4361}# + #{dots 16045}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2263")) + #(ribcage #(x) #((top)) #("i2261")) #(ribcage (lambda-var-list gen-var @@ -13668,45 +13651,45 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)) - #{tmp 16042}#) + #{tmp 16040}#) #f) (@apply - (lambda (#{x 16086}# #{dots 16087}#) + (lambda (#{x 16084}# #{dots 16085}#) (call-with-values (lambda () - (#{cvt 15905}# - #{x 16086}# - (#{1+}# #{n 15909}#) - #{ids 15910}#)) - (lambda (#{p 16088}# #{ids 16089}#) + (#{cvt 15903}# + #{x 16084}# + (#{1+}# #{n 15907}#) + #{ids 15908}#)) + (lambda (#{p 16086}# #{ids 16087}#) (values - (if (eq? #{p 16088}# 'any) + (if (eq? #{p 16086}# 'any) 'each-any - (vector 'each #{p 16088}#)) - #{ids 16089}#)))) - #{tmp 16042}#) - (let ((#{tmp 16090}# - ($sc-dispatch #{p 15908}# '(any any . any)))) - (if (if #{tmp 16090}# + (vector 'each #{p 16086}#)) + #{ids 16087}#)))) + #{tmp 16040}#) + (let ((#{tmp 16088}# + ($sc-dispatch #{p 15906}# '(any any . any)))) + (if (if #{tmp 16088}# (@apply - (lambda (#{x 16094}# - #{dots 16095}# - #{ys 16096}#) - (if (if (if (vector? #{dots 16095}#) + (lambda (#{x 16092}# + #{dots 16093}# + #{ys 16094}#) + (if (if (if (vector? #{dots 16093}#) (if (= (vector-length - #{dots 16095}#) + #{dots 16093}#) 4) (eq? (vector-ref - #{dots 16095}# + #{dots 16093}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 16095}# 1)) + (vector-ref #{dots 16093}# 1)) #f) - (#{free-id=? 4363}# - #{dots 16095}# + (#{free-id=? 4361}# + #{dots 16093}# '#(syntax-object ... ((top) @@ -13715,7 +13698,7 @@ #(ribcage #(x) #((top)) - #("i2263")) + #("i2261")) #(ribcage (lambda-var-list gen-var @@ -14139,175 +14122,175 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)) - #{tmp 16090}#) + #{tmp 16088}#) #f) (@apply - (lambda (#{x 16135}# - #{dots 16136}# - #{ys 16137}#) + (lambda (#{x 16133}# + #{dots 16134}# + #{ys 16135}#) (call-with-values (lambda () - (#{cvt* 15903}# - #{ys 16137}# - #{n 15909}# - #{ids 15910}#)) - (lambda (#{ys 16622}# #{ids 16623}#) + (#{cvt* 15901}# + #{ys 16135}# + #{n 15907}# + #{ids 15908}#)) + (lambda (#{ys 16620}# #{ids 16621}#) (call-with-values (lambda () - (#{cvt 15905}# - #{x 16135}# - (#{1+}# #{n 15909}#) - #{ids 16623}#)) - (lambda (#{x 16624}# #{ids 16625}#) + (#{cvt 15903}# + #{x 16133}# + (#{1+}# #{n 15907}#) + #{ids 16621}#)) + (lambda (#{x 16622}# #{ids 16623}#) (call-with-values (lambda () - (#{v-reverse 15904}# - #{ys 16622}#)) - (lambda (#{ys 16661}# #{e 16662}#) + (#{v-reverse 15902}# + #{ys 16620}#)) + (lambda (#{ys 16659}# #{e 16660}#) (values (vector 'each+ - #{x 16624}# - #{ys 16661}# - #{e 16662}#) - #{ids 16625}#)))))))) - #{tmp 16090}#) - (let ((#{tmp 16663}# - ($sc-dispatch #{p 15908}# '(any . any)))) - (if #{tmp 16663}# + #{x 16622}# + #{ys 16659}# + #{e 16660}#) + #{ids 16623}#)))))))) + #{tmp 16088}#) + (let ((#{tmp 16661}# + ($sc-dispatch #{p 15906}# '(any . any)))) + (if #{tmp 16661}# (@apply - (lambda (#{x 16667}# #{y 16668}#) + (lambda (#{x 16665}# #{y 16666}#) (call-with-values (lambda () - (#{cvt 15905}# - #{y 16668}# - #{n 15909}# - #{ids 15910}#)) - (lambda (#{y 16669}# #{ids 16670}#) + (#{cvt 15903}# + #{y 16666}# + #{n 15907}# + #{ids 15908}#)) + (lambda (#{y 16667}# #{ids 16668}#) (call-with-values (lambda () - (#{cvt 15905}# - #{x 16667}# - #{n 15909}# - #{ids 16670}#)) - (lambda (#{x 16671}# #{ids 16672}#) + (#{cvt 15903}# + #{x 16665}# + #{n 15907}# + #{ids 16668}#)) + (lambda (#{x 16669}# #{ids 16670}#) (values - (cons #{x 16671}# #{y 16669}#) - #{ids 16672}#)))))) - #{tmp 16663}#) - (let ((#{tmp 16673}# - ($sc-dispatch #{p 15908}# '()))) - (if #{tmp 16673}# + (cons #{x 16669}# #{y 16667}#) + #{ids 16670}#)))))) + #{tmp 16661}#) + (let ((#{tmp 16671}# + ($sc-dispatch #{p 15906}# '()))) + (if #{tmp 16671}# (@apply - (lambda () (values '() #{ids 15910}#)) - #{tmp 16673}#) - (let ((#{tmp 16677}# + (lambda () (values '() #{ids 15908}#)) + #{tmp 16671}#) + (let ((#{tmp 16675}# ($sc-dispatch - #{p 15908}# + #{p 15906}# '#(vector each-any)))) - (if #{tmp 16677}# + (if #{tmp 16675}# (@apply - (lambda (#{x 16681}#) + (lambda (#{x 16679}#) (call-with-values (lambda () - (#{cvt 15905}# - #{x 16681}# - #{n 15909}# - #{ids 15910}#)) - (lambda (#{p 16682}# - #{ids 16683}#) + (#{cvt 15903}# + #{x 16679}# + #{n 15907}# + #{ids 15908}#)) + (lambda (#{p 16680}# + #{ids 16681}#) (values (vector 'vector - #{p 16682}#) - #{ids 16683}#)))) - #{tmp 16677}#) + #{p 16680}#) + #{ids 16681}#)))) + #{tmp 16675}#) (values (vector 'atom - (#{strip 4388}# - #{p 15908}# + (#{strip 4386}# + #{p 15906}# '(()))) - #{ids 15910}#))))))))))))))) - (#{cvt 15905}# #{pattern 15901}# 0 '())))) - (#{build-dispatch-call 14246}# - (lambda (#{pvars 16817}# - #{exp 16818}# - #{y 16819}# - #{r 16820}# - #{mod 16821}#) - (let ((#{ids 16822}# (map car #{pvars 16817}#))) + #{ids 15908}#))))))))))))))) + (#{cvt 15903}# #{pattern 15899}# 0 '())))) + (#{build-dispatch-call 14244}# + (lambda (#{pvars 16815}# + #{exp 16816}# + #{y 16817}# + #{r 16818}# + #{mod 16819}#) + (let ((#{ids 16820}# (map car #{pvars 16815}#))) (begin - (map cdr #{pvars 16817}#) - (let ((#{labels 16824}# - (#{gen-labels 4346}# #{ids 16822}#)) - (#{new-vars 16825}# - (map #{gen-var 4389}# #{ids 16822}#))) - (#{build-primcall 4321}# + (map cdr #{pvars 16815}#) + (let ((#{labels 16822}# + (#{gen-labels 4344}# #{ids 16820}#)) + (#{new-vars 16823}# + (map #{gen-var 4387}# #{ids 16820}#))) + (#{build-primcall 4319}# #f 'apply - (list (#{build-simple-lambda 4318}# + (list (#{build-simple-lambda 4316}# #f - (map syntax->datum #{ids 16822}#) + (map syntax->datum #{ids 16820}#) #f - #{new-vars 16825}# + #{new-vars 16823}# '() - (#{chi 4375}# - #{exp 16818}# - (#{extend-env 4337}# - #{labels 16824}# - (map (lambda (#{var 17157}# #{level 17158}#) + (#{chi 4373}# + #{exp 16816}# + (#{extend-env 4335}# + #{labels 16822}# + (map (lambda (#{var 17155}# #{level 17156}#) (cons 'syntax - (cons #{var 17157}# - #{level 17158}#))) - #{new-vars 16825}# - (map cdr #{pvars 16817}#)) - #{r 16820}#) - (#{make-binding-wrap 4357}# - #{ids 16822}# - #{labels 16824}# + (cons #{var 17155}# + #{level 17156}#))) + #{new-vars 16823}# + (map cdr #{pvars 16815}#)) + #{r 16818}#) + (#{make-binding-wrap 4355}# + #{ids 16820}# + #{labels 16822}# '(())) - #{mod 16821}#)) - #{y 16819}#))))))) - (#{gen-clause 14247}# - (lambda (#{x 15495}# - #{keys 15496}# - #{clauses 15497}# - #{r 15498}# - #{pat 15499}# - #{fender 15500}# - #{exp 15501}# - #{mod 15502}#) + #{mod 16819}#)) + #{y 16817}#))))))) + (#{gen-clause 14245}# + (lambda (#{x 15493}# + #{keys 15494}# + #{clauses 15495}# + #{r 15496}# + #{pat 15497}# + #{fender 15498}# + #{exp 15499}# + #{mod 15500}#) (call-with-values (lambda () - (#{convert-pattern 14245}# - #{pat 15499}# - #{keys 15496}#)) - (lambda (#{p 15640}# #{pvars 15641}#) - (if (not (#{distinct-bound-ids? 4366}# - (map car #{pvars 15641}#))) + (#{convert-pattern 14243}# + #{pat 15497}# + #{keys 15494}#)) + (lambda (#{p 15638}# #{pvars 15639}#) + (if (not (#{distinct-bound-ids? 4364}# + (map car #{pvars 15639}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 15499}#) + #{pat 15497}#) (if (not (and-map - (lambda (#{x 15750}#) - (not (let ((#{x 15754}# (car #{x 15750}#))) - (if (if (if (vector? #{x 15754}#) + (lambda (#{x 15748}#) + (not (let ((#{x 15752}# (car #{x 15748}#))) + (if (if (if (vector? #{x 15752}#) (if (= (vector-length - #{x 15754}#) + #{x 15752}#) 4) (eq? (vector-ref - #{x 15754}# + #{x 15752}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 15754}# 1)) + (vector-ref #{x 15752}# 1)) #f) - (#{free-id=? 4363}# - #{x 15754}# + (#{free-id=? 4361}# + #{x 15752}# '#(syntax-object ... ((top) @@ -14316,7 +14299,7 @@ #(ribcage #(x) #((top)) - #("i2263")) + #("i2261")) #(ribcage (lambda-var-list gen-var @@ -14740,43 +14723,43 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)))) - #{pvars 15641}#)) + #{pvars 15639}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 15499}#) - (let ((#{y 15779}# + #{pat 15497}#) + (let ((#{y 15777}# (gensym (string-append (symbol->string 'tmp) " ")))) - (let ((#{fun-exp 15784}# - (let ((#{req 15793}# (list 'tmp)) - (#{vars 15795}# (list #{y 15779}#)) - (#{exp 15797}# - (let ((#{y 15826}# + (let ((#{fun-exp 15782}# + (let ((#{req 15791}# (list 'tmp)) + (#{vars 15793}# (list #{y 15777}#)) + (#{exp 15795}# + (let ((#{y 15824}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 15779}#))) - (let ((#{test-exp 15830}# - (let ((#{tmp 15839}# + #{y 15777}#))) + (let ((#{test-exp 15828}# + (let ((#{tmp 15837}# ($sc-dispatch - #{fender 15500}# + #{fender 15498}# '#(atom #t)))) - (if #{tmp 15839}# + (if #{tmp 15837}# (@apply - (lambda () #{y 15826}#) - #{tmp 15839}#) - (let ((#{then-exp 15857}# - (#{build-dispatch-call 14246}# - #{pvars 15641}# - #{fender 15500}# - #{y 15826}# - #{r 15498}# - #{mod 15502}#)) - (#{else-exp 15858}# + (lambda () #{y 15824}#) + #{tmp 15837}#) + (let ((#{then-exp 15855}# + (#{build-dispatch-call 14244}# + #{pvars 15639}# + #{fender 15498}# + #{y 15824}# + #{r 15496}# + #{mod 15500}#)) + (#{else-exp 15856}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -14788,81 +14771,81 @@ %expanded-vtables 10) #f - #{y 15826}# - #{then-exp 15857}# - #{else-exp 15858}#))))) - (#{then-exp 15831}# - (#{build-dispatch-call 14246}# - #{pvars 15641}# - #{exp 15501}# - #{y 15826}# - #{r 15498}# - #{mod 15502}#)) - (#{else-exp 15832}# - (#{gen-syntax-case 14248}# - #{x 15495}# - #{keys 15496}# - #{clauses 15497}# - #{r 15498}# - #{mod 15502}#))) + #{y 15824}# + #{then-exp 15855}# + #{else-exp 15856}#))))) + (#{then-exp 15829}# + (#{build-dispatch-call 14244}# + #{pvars 15639}# + #{exp 15499}# + #{y 15824}# + #{r 15496}# + #{mod 15500}#)) + (#{else-exp 15830}# + (#{gen-syntax-case 14246}# + #{x 15493}# + #{keys 15494}# + #{clauses 15495}# + #{r 15496}# + #{mod 15500}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 15830}# - #{then-exp 15831}# - #{else-exp 15832}#))))) - (let ((#{body 15802}# + #{test-exp 15828}# + #{then-exp 15829}# + #{else-exp 15830}#))))) + (let ((#{body 15800}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 15793}# + #{req 15791}# #f #f #f '() - #{vars 15795}# - #{exp 15797}# + #{vars 15793}# + #{exp 15795}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 15802}#)))) - (#{arg-exps 15785}# - (list (if (eq? #{p 15640}# 'any) - (let ((#{args 15880}# - (list #{x 15495}#))) + #{body 15800}#)))) + (#{arg-exps 15783}# + (list (if (eq? #{p 15638}# 'any) + (let ((#{args 15878}# + (list #{x 15493}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'list - #{args 15880}#)) - (let ((#{args 15889}# - (list #{x 15495}# + #{args 15878}#)) + (let ((#{args 15887}# + (list #{x 15493}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 15640}#)))) + #{p 15638}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f '$sc-dispatch - #{args 15889}#)))))) + #{args 15887}#)))))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 15784}# - #{arg-exps 15785}#))))))))) - (#{gen-syntax-case 14248}# - (lambda (#{x 14992}# - #{keys 14993}# - #{clauses 14994}# - #{r 14995}# - #{mod 14996}#) - (if (null? #{clauses 14994}#) - (let ((#{args 15002}# + #{fun-exp 15782}# + #{arg-exps 15783}#))))))))) + (#{gen-syntax-case 14246}# + (lambda (#{x 14990}# + #{keys 14991}# + #{clauses 14992}# + #{r 14993}# + #{mod 14994}#) + (if (null? #{clauses 14992}#) + (let ((#{args 15000}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -14871,57 +14854,57 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 14992}#))) + #{x 14990}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'syntax-violation - #{args 15002}#)) - (let ((#{tmp 15021}# (car #{clauses 14994}#))) - (let ((#{tmp 15022}# - ($sc-dispatch #{tmp 15021}# '(any any)))) - (if #{tmp 15022}# + #{args 15000}#)) + (let ((#{tmp 15019}# (car #{clauses 14992}#))) + (let ((#{tmp 15020}# + ($sc-dispatch #{tmp 15019}# '(any any)))) + (if #{tmp 15020}# (@apply - (lambda (#{pat 15024}# #{exp 15025}#) - (if (if (if (symbol? #{pat 15024}#) + (lambda (#{pat 15022}# #{exp 15023}#) + (if (if (if (symbol? #{pat 15022}#) #t - (if (if (vector? #{pat 15024}#) - (if (= (vector-length #{pat 15024}#) + (if (if (vector? #{pat 15022}#) + (if (= (vector-length #{pat 15022}#) 4) - (eq? (vector-ref #{pat 15024}# 0) + (eq? (vector-ref #{pat 15022}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 15024}# 1)) + (symbol? (vector-ref #{pat 15022}# 1)) #f)) (and-map - (lambda (#{x 15052}#) - (not (#{free-id=? 4363}# - #{pat 15024}# - #{x 15052}#))) + (lambda (#{x 15050}#) + (not (#{free-id=? 4361}# + #{pat 15022}# + #{x 15050}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3939" "i3940")) + #("i3937" "i3938")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3929" + #("i3927" + "i3928" + "i3929" "i3930" - "i3931" - "i3932" - "i3933")) + "i3931")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3742" "i3740" "i3738" "i3736")) + ("i3740" "i3738" "i3736" "i3734")) #(ribcage (lambda-var-list gen-var @@ -15344,32 +15327,32 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 14993}#)) + #{keys 14991}#)) #f) - (if (#{free-id=? 4363}# + (if (#{free-id=? 4361}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3939" "i3940")) + #("i3937" "i3938")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3929" + #("i3927" + "i3928" + "i3929" "i3930" - "i3931" - "i3932" - "i3933")) + "i3931")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3742" "i3740" "i3738" "i3736")) + ("i3740" "i3738" "i3736" "i3734")) #(ribcage (lambda-var-list gen-var @@ -15798,23 +15781,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3939" "i3940")) + #("i3937" "i3938")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3929" + #("i3927" + "i3928" + "i3929" "i3930" - "i3931" - "i3932" - "i3933")) + "i3931")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3742" "i3740" "i3738" "i3736")) + ("i3740" "i3738" "i3736" "i3734")) #(ribcage (lambda-var-list gen-var @@ -16237,181 +16220,181 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))) - (#{chi 4375}# - #{exp 15025}# - #{r 14995}# + (#{chi 4373}# + #{exp 15023}# + #{r 14993}# '(()) - #{mod 14996}#) - (let ((#{labels 15138}# + #{mod 14994}#) + (let ((#{labels 15136}# (list (symbol->string (gensym "i")))) - (#{var 15139}# - (let ((#{id 15177}# - (if (if (vector? #{pat 15024}#) + (#{var 15137}# + (let ((#{id 15175}# + (if (if (vector? #{pat 15022}#) (if (= (vector-length - #{pat 15024}#) + #{pat 15022}#) 4) (eq? (vector-ref - #{pat 15024}# + #{pat 15022}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 15024}# 1) - #{pat 15024}#))) + (vector-ref #{pat 15022}# 1) + #{pat 15022}#))) (gensym (string-append - (symbol->string #{id 15177}#) + (symbol->string #{id 15175}#) " "))))) - (#{build-call 4309}# + (#{build-call 4307}# #f - (#{build-simple-lambda 4318}# + (#{build-simple-lambda 4316}# #f - (list (syntax->datum #{pat 15024}#)) + (list (syntax->datum #{pat 15022}#)) #f - (list #{var 15139}#) + (list #{var 15137}#) '() - (#{chi 4375}# - #{exp 15025}# - (#{extend-env 4337}# - #{labels 15138}# + (#{chi 4373}# + #{exp 15023}# + (#{extend-env 4335}# + #{labels 15136}# (list (cons 'syntax - (cons #{var 15139}# 0))) - #{r 14995}#) - (#{make-binding-wrap 4357}# - (list #{pat 15024}#) - #{labels 15138}# + (cons #{var 15137}# 0))) + #{r 14993}#) + (#{make-binding-wrap 4355}# + (list #{pat 15022}#) + #{labels 15136}# '(())) - #{mod 14996}#)) - (list #{x 14992}#)))) - (#{gen-clause 14247}# - #{x 14992}# - #{keys 14993}# - (cdr #{clauses 14994}#) - #{r 14995}# - #{pat 15024}# + #{mod 14994}#)) + (list #{x 14990}#)))) + (#{gen-clause 14245}# + #{x 14990}# + #{keys 14991}# + (cdr #{clauses 14992}#) + #{r 14993}# + #{pat 15022}# #t - #{exp 15025}# - #{mod 14996}#))) - #{tmp 15022}#) - (let ((#{tmp 15487}# - ($sc-dispatch #{tmp 15021}# '(any any any)))) - (if #{tmp 15487}# + #{exp 15023}# + #{mod 14994}#))) + #{tmp 15020}#) + (let ((#{tmp 15485}# + ($sc-dispatch #{tmp 15019}# '(any any any)))) + (if #{tmp 15485}# (@apply - (lambda (#{pat 15489}# - #{fender 15490}# - #{exp 15491}#) - (#{gen-clause 14247}# - #{x 14992}# - #{keys 14993}# - (cdr #{clauses 14994}#) - #{r 14995}# - #{pat 15489}# - #{fender 15490}# - #{exp 15491}# - #{mod 14996}#)) - #{tmp 15487}#) + (lambda (#{pat 15487}# + #{fender 15488}# + #{exp 15489}#) + (#{gen-clause 14245}# + #{x 14990}# + #{keys 14991}# + (cdr #{clauses 14992}#) + #{r 14993}# + #{pat 15487}# + #{fender 15488}# + #{exp 15489}# + #{mod 14994}#)) + #{tmp 15485}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 14994}#))))))))))) - (lambda (#{e 14249}# - #{r 14250}# - #{w 14251}# - #{s 14252}# - #{mod 14253}#) - (let ((#{e 14254}# - (let ((#{x 14903}# + (car #{clauses 14992}#))))))))))) + (lambda (#{e 14247}# + #{r 14248}# + #{w 14249}# + #{s 14250}# + #{mod 14251}#) + (let ((#{e 14252}# + (let ((#{x 14901}# (begin - (if (if (pair? #{e 14249}#) #{s 14252}# #f) - (set-source-properties! #{e 14249}# #{s 14252}#)) - #{e 14249}#))) - (if (if (null? (car #{w 14251}#)) - (null? (cdr #{w 14251}#)) + (if (if (pair? #{e 14247}#) #{s 14250}# #f) + (set-source-properties! #{e 14247}# #{s 14250}#)) + #{e 14247}#))) + (if (if (null? (car #{w 14249}#)) + (null? (cdr #{w 14249}#)) #f) - #{x 14903}# - (if (if (vector? #{x 14903}#) - (if (= (vector-length #{x 14903}#) 4) - (eq? (vector-ref #{x 14903}# 0) 'syntax-object) + #{x 14901}# + (if (if (vector? #{x 14901}#) + (if (= (vector-length #{x 14901}#) 4) + (eq? (vector-ref #{x 14901}# 0) 'syntax-object) #f) #f) - (let ((#{expression 14935}# (vector-ref #{x 14903}# 1)) - (#{wrap 14936}# - (let ((#{w2 14944}# - (vector-ref #{x 14903}# 2))) - (let ((#{m1 14945}# (car #{w 14251}#)) - (#{s1 14946}# (cdr #{w 14251}#))) - (if (null? #{m1 14945}#) - (if (null? #{s1 14946}#) - #{w2 14944}# - (cons (car #{w2 14944}#) - (let ((#{m2 14961}# - (cdr #{w2 14944}#))) - (if (null? #{m2 14961}#) - #{s1 14946}# + (let ((#{expression 14933}# (vector-ref #{x 14901}# 1)) + (#{wrap 14934}# + (let ((#{w2 14942}# + (vector-ref #{x 14901}# 2))) + (let ((#{m1 14943}# (car #{w 14249}#)) + (#{s1 14944}# (cdr #{w 14249}#))) + (if (null? #{m1 14943}#) + (if (null? #{s1 14944}#) + #{w2 14942}# + (cons (car #{w2 14942}#) + (let ((#{m2 14959}# + (cdr #{w2 14942}#))) + (if (null? #{m2 14959}#) + #{s1 14944}# (append - #{s1 14946}# - #{m2 14961}#))))) - (cons (let ((#{m2 14969}# - (car #{w2 14944}#))) - (if (null? #{m2 14969}#) - #{m1 14945}# + #{s1 14944}# + #{m2 14959}#))))) + (cons (let ((#{m2 14967}# + (car #{w2 14942}#))) + (if (null? #{m2 14967}#) + #{m1 14943}# (append - #{m1 14945}# - #{m2 14969}#))) - (let ((#{m2 14977}# - (cdr #{w2 14944}#))) - (if (null? #{m2 14977}#) - #{s1 14946}# + #{m1 14943}# + #{m2 14967}#))) + (let ((#{m2 14975}# + (cdr #{w2 14942}#))) + (if (null? #{m2 14975}#) + #{s1 14944}# (append - #{s1 14946}# - #{m2 14977}#)))))))) - (#{module 14937}# (vector-ref #{x 14903}# 3))) + #{s1 14944}# + #{m2 14975}#)))))))) + (#{module 14935}# (vector-ref #{x 14901}# 3))) (vector 'syntax-object - #{expression 14935}# - #{wrap 14936}# - #{module 14937}#)) - (if (null? #{x 14903}#) - #{x 14903}# + #{expression 14933}# + #{wrap 14934}# + #{module 14935}#)) + (if (null? #{x 14901}#) + #{x 14901}# (vector 'syntax-object - #{x 14903}# - #{w 14251}# - #{mod 14253}#))))))) - (let ((#{tmp 14255}# #{e 14254}#)) - (let ((#{tmp 14256}# + #{x 14901}# + #{w 14249}# + #{mod 14251}#))))))) + (let ((#{tmp 14253}# #{e 14252}#)) + (let ((#{tmp 14254}# ($sc-dispatch - #{tmp 14255}# + #{tmp 14253}# '(_ any each-any . each-any)))) - (if #{tmp 14256}# + (if #{tmp 14254}# (@apply - (lambda (#{val 14308}# #{key 14309}# #{m 14310}#) + (lambda (#{val 14306}# #{key 14307}# #{m 14308}#) (if (and-map - (lambda (#{x 14311}#) - (if (if (symbol? #{x 14311}#) + (lambda (#{x 14309}#) + (if (if (symbol? #{x 14309}#) #t - (if (if (vector? #{x 14311}#) - (if (= (vector-length #{x 14311}#) 4) - (eq? (vector-ref #{x 14311}# 0) + (if (if (vector? #{x 14309}#) + (if (= (vector-length #{x 14309}#) 4) + (eq? (vector-ref #{x 14309}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14311}# 1)) + (symbol? (vector-ref #{x 14309}# 1)) #f)) - (not (if (if (if (vector? #{x 14311}#) + (not (if (if (if (vector? #{x 14309}#) (if (= (vector-length - #{x 14311}#) + #{x 14309}#) 4) (eq? (vector-ref - #{x 14311}# + #{x 14309}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14311}# 1)) + (symbol? (vector-ref #{x 14309}# 1)) #f) - (#{free-id=? 4363}# - #{x 14311}# + (#{free-id=? 4361}# + #{x 14309}# '#(syntax-object ... ((top) @@ -16420,7 +16403,7 @@ #(ribcage #(x) #((top)) - #("i2263")) + #("i2261")) #(ribcage (lambda-var-list gen-var @@ -16845,790 +16828,790 @@ (hygiene guile))) #f)) #f)) - #{key 14309}#) - (let ((#{x 14376}# + #{key 14307}#) + (let ((#{x 14374}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-call 4309}# - #{s 14252}# - (let ((#{req 14518}# (list 'tmp)) - (#{vars 14520}# (list #{x 14376}#)) - (#{exp 14522}# - (#{gen-syntax-case 14248}# + (#{build-call 4307}# + #{s 14250}# + (let ((#{req 14516}# (list 'tmp)) + (#{vars 14518}# (list #{x 14374}#)) + (#{exp 14520}# + (#{gen-syntax-case 14246}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 14376}#) - #{key 14309}# - #{m 14310}# - #{r 14250}# - #{mod 14253}#))) - (let ((#{body 14527}# + #{x 14374}#) + #{key 14307}# + #{m 14308}# + #{r 14248}# + #{mod 14251}#))) + (let ((#{body 14525}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 14518}# + #{req 14516}# #f #f #f '() - #{vars 14520}# - #{exp 14522}# + #{vars 14518}# + #{exp 14520}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 14527}#))) - (list (#{chi 4375}# - #{val 14308}# - #{r 14250}# + #{body 14525}#))) + (list (#{chi 4373}# + #{val 14306}# + #{r 14248}# '(()) - #{mod 14253}#)))) + #{mod 14251}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 14254}#))) - #{tmp 14256}#) + #{e 14252}#))) + #{tmp 14254}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 14255}#)))))))) + #{tmp 14253}#)))))))) (set! macroexpand (lambda* - (#{x 17259}# + (#{x 17257}# #:optional - (#{m 17260}# 'e) - (#{esew 17261}# '(eval))) - (#{chi-top-sequence 4371}# - (list #{x 17259}#) + (#{m 17258}# 'e) + (#{esew 17259}# '(eval))) + (#{chi-top-sequence 4369}# + (list #{x 17257}#) '() '((top)) #f - #{m 17260}# - #{esew 17261}# + #{m 17258}# + #{esew 17259}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 17264}#) - (if (if (vector? #{x 17264}#) - (if (= (vector-length #{x 17264}#) 4) - (eq? (vector-ref #{x 17264}# 0) 'syntax-object) + (lambda (#{x 17262}#) + (if (if (vector? #{x 17262}#) + (if (= (vector-length #{x 17262}#) 4) + (eq? (vector-ref #{x 17262}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17264}# 1)) + (symbol? (vector-ref #{x 17262}# 1)) #f))) (set! datum->syntax - (lambda (#{id 17289}# #{datum 17290}#) - (let ((#{wrap 17295}# (vector-ref #{id 17289}# 2)) - (#{module 17296}# (vector-ref #{id 17289}# 3))) + (lambda (#{id 17287}# #{datum 17288}#) + (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2)) + (#{module 17294}# (vector-ref #{id 17287}# 3))) (vector 'syntax-object - #{datum 17290}# - #{wrap 17295}# - #{module 17296}#)))) + #{datum 17288}# + #{wrap 17293}# + #{module 17294}#)))) (set! syntax->datum - (lambda (#{x 17303}#) - (#{strip 4388}# #{x 17303}# '(())))) + (lambda (#{x 17301}#) + (#{strip 4386}# #{x 17301}# '(())))) (set! syntax-source - (lambda (#{x 17306}#) - (#{source-annotation 4336}# #{x 17306}#))) + (lambda (#{x 17304}#) + (#{source-annotation 4334}# #{x 17304}#))) (set! generate-temporaries - (lambda (#{ls 17508}#) + (lambda (#{ls 17506}#) (begin - (if (not (list? #{ls 17508}#)) + (if (not (list? #{ls 17506}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 17508}#)) - (let ((#{mod 17516}# + #{ls 17506}#)) + (let ((#{mod 17514}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 17517}#) - (let ((#{x 17521}# (gensym))) - (if (if (vector? #{x 17521}#) - (if (= (vector-length #{x 17521}#) 4) - (eq? (vector-ref #{x 17521}# 0) 'syntax-object) + (map (lambda (#{x 17515}#) + (let ((#{x 17519}# (gensym))) + (if (if (vector? #{x 17519}#) + (if (= (vector-length #{x 17519}#) 4) + (eq? (vector-ref #{x 17519}# 0) 'syntax-object) #f) #f) - (let ((#{expression 17536}# (vector-ref #{x 17521}# 1)) - (#{wrap 17537}# - (let ((#{w2 17545}# (vector-ref #{x 17521}# 2))) - (cons (let ((#{m2 17552}# (car #{w2 17545}#))) - (if (null? #{m2 17552}#) + (let ((#{expression 17534}# (vector-ref #{x 17519}# 1)) + (#{wrap 17535}# + (let ((#{w2 17543}# (vector-ref #{x 17519}# 2))) + (cons (let ((#{m2 17550}# (car #{w2 17543}#))) + (if (null? #{m2 17550}#) '(top) - (append '(top) #{m2 17552}#))) - (let ((#{m2 17559}# (cdr #{w2 17545}#))) - (if (null? #{m2 17559}#) + (append '(top) #{m2 17550}#))) + (let ((#{m2 17557}# (cdr #{w2 17543}#))) + (if (null? #{m2 17557}#) '() - (append '() #{m2 17559}#)))))) - (#{module 17538}# (vector-ref #{x 17521}# 3))) + (append '() #{m2 17557}#)))))) + (#{module 17536}# (vector-ref #{x 17519}# 3))) (vector 'syntax-object - #{expression 17536}# - #{wrap 17537}# - #{module 17538}#)) - (if (null? #{x 17521}#) - #{x 17521}# + #{expression 17534}# + #{wrap 17535}# + #{module 17536}#)) + (if (null? #{x 17519}#) + #{x 17519}# (vector 'syntax-object - #{x 17521}# + #{x 17519}# '((top)) - #{mod 17516}#))))) - #{ls 17508}#))))) + #{mod 17514}#))))) + #{ls 17506}#))))) (set! free-identifier=? - (lambda (#{x 17568}# #{y 17569}#) + (lambda (#{x 17566}# #{y 17567}#) (begin - (if (not (if (if (vector? #{x 17568}#) - (if (= (vector-length #{x 17568}#) 4) - (eq? (vector-ref #{x 17568}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 17566}#) + (if (= (vector-length #{x 17566}#) 4) + (eq? (vector-ref #{x 17566}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17568}# 1)) + (symbol? (vector-ref #{x 17566}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 17568}#)) - (if (not (if (if (vector? #{y 17569}#) - (if (= (vector-length #{y 17569}#) 4) - (eq? (vector-ref #{y 17569}# 0) 'syntax-object) + #{x 17566}#)) + (if (not (if (if (vector? #{y 17567}#) + (if (= (vector-length #{y 17567}#) 4) + (eq? (vector-ref #{y 17567}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 17569}# 1)) + (symbol? (vector-ref #{y 17567}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 17569}#)) - (#{free-id=? 4363}# #{x 17568}# #{y 17569}#)))) + #{y 17567}#)) + (#{free-id=? 4361}# #{x 17566}# #{y 17567}#)))) (set! bound-identifier=? - (lambda (#{x 17644}# #{y 17645}#) + (lambda (#{x 17642}# #{y 17643}#) (begin - (if (not (if (if (vector? #{x 17644}#) - (if (= (vector-length #{x 17644}#) 4) - (eq? (vector-ref #{x 17644}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 17642}#) + (if (= (vector-length #{x 17642}#) 4) + (eq? (vector-ref #{x 17642}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17644}# 1)) + (symbol? (vector-ref #{x 17642}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 17644}#)) - (if (not (if (if (vector? #{y 17645}#) - (if (= (vector-length #{y 17645}#) 4) - (eq? (vector-ref #{y 17645}# 0) 'syntax-object) + #{x 17642}#)) + (if (not (if (if (vector? #{y 17643}#) + (if (= (vector-length #{y 17643}#) 4) + (eq? (vector-ref #{y 17643}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 17645}# 1)) + (symbol? (vector-ref #{y 17643}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 17645}#)) - (#{bound-id=? 4364}# #{x 17644}# #{y 17645}#)))) + #{y 17643}#)) + (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#)))) (set! syntax-violation (lambda* - (#{who 17811}# - #{message 17812}# - #{form 17813}# + (#{who 17809}# + #{message 17810}# + #{form 17811}# #:optional - (#{subform 17814}# #f)) + (#{subform 17812}# #f)) (begin - (if (not (if (not #{who 17811}#) - (not #{who 17811}#) - (let ((#{t 17832}# (string? #{who 17811}#))) - (if #{t 17832}# - #{t 17832}# - (symbol? #{who 17811}#))))) + (if (not (if (not #{who 17809}#) + (not #{who 17809}#) + (let ((#{t 17830}# (string? #{who 17809}#))) + (if #{t 17830}# + #{t 17830}# + (symbol? #{who 17809}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 17811}#)) - (if (not (string? #{message 17812}#)) + #{who 17809}#)) + (if (not (string? #{message 17810}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 17812}#)) + #{message 17810}#)) (throw 'syntax-error - #{who 17811}# - #{message 17812}# - (#{source-annotation 4336}# - (if #{form 17813}# - #{form 17813}# - #{subform 17814}#)) - (#{strip 4388}# #{form 17813}# '(())) - (if #{subform 17814}# - (#{strip 4388}# #{subform 17814}# '(())) + #{who 17809}# + #{message 17810}# + (#{source-annotation 4334}# + (if #{form 17811}# + #{form 17811}# + #{subform 17812}#)) + (#{strip 4386}# #{form 17811}# '(())) + (if #{subform 17812}# + (#{strip 4386}# #{subform 17812}# '(())) #f))))) (letrec* - ((#{match-each 18083}# - (lambda (#{e 18971}# - #{p 18972}# - #{w 18973}# - #{mod 18974}#) - (if (pair? #{e 18971}#) - (let ((#{first 18975}# - (#{match 18089}# - (car #{e 18971}#) - #{p 18972}# - #{w 18973}# + ((#{match-each 18081}# + (lambda (#{e 18969}# + #{p 18970}# + #{w 18971}# + #{mod 18972}#) + (if (pair? #{e 18969}#) + (let ((#{first 18973}# + (#{match 18087}# + (car #{e 18969}#) + #{p 18970}# + #{w 18971}# '() - #{mod 18974}#))) - (if #{first 18975}# - (let ((#{rest 18978}# - (#{match-each 18083}# - (cdr #{e 18971}#) - #{p 18972}# - #{w 18973}# - #{mod 18974}#))) - (if #{rest 18978}# - (cons #{first 18975}# #{rest 18978}#) + #{mod 18972}#))) + (if #{first 18973}# + (let ((#{rest 18976}# + (#{match-each 18081}# + (cdr #{e 18969}#) + #{p 18970}# + #{w 18971}# + #{mod 18972}#))) + (if #{rest 18976}# + (cons #{first 18973}# #{rest 18976}#) #f)) #f)) - (if (null? #{e 18971}#) + (if (null? #{e 18969}#) '() - (if (if (vector? #{e 18971}#) - (if (= (vector-length #{e 18971}#) 4) - (eq? (vector-ref #{e 18971}# 0) 'syntax-object) + (if (if (vector? #{e 18969}#) + (if (= (vector-length #{e 18969}#) 4) + (eq? (vector-ref #{e 18969}# 0) 'syntax-object) #f) #f) - (#{match-each 18083}# - (vector-ref #{e 18971}# 1) - #{p 18972}# - (let ((#{w2 19000}# (vector-ref #{e 18971}# 2))) - (let ((#{m1 19001}# (car #{w 18973}#)) - (#{s1 19002}# (cdr #{w 18973}#))) - (if (null? #{m1 19001}#) - (if (null? #{s1 19002}#) - #{w2 19000}# - (cons (car #{w2 19000}#) - (let ((#{m2 19013}# (cdr #{w2 19000}#))) - (if (null? #{m2 19013}#) - #{s1 19002}# - (append #{s1 19002}# #{m2 19013}#))))) - (cons (let ((#{m2 19021}# (car #{w2 19000}#))) - (if (null? #{m2 19021}#) - #{m1 19001}# - (append #{m1 19001}# #{m2 19021}#))) - (let ((#{m2 19029}# (cdr #{w2 19000}#))) - (if (null? #{m2 19029}#) - #{s1 19002}# - (append #{s1 19002}# #{m2 19029}#))))))) - (vector-ref #{e 18971}# 3)) + (#{match-each 18081}# + (vector-ref #{e 18969}# 1) + #{p 18970}# + (let ((#{w2 18998}# (vector-ref #{e 18969}# 2))) + (let ((#{m1 18999}# (car #{w 18971}#)) + (#{s1 19000}# (cdr #{w 18971}#))) + (if (null? #{m1 18999}#) + (if (null? #{s1 19000}#) + #{w2 18998}# + (cons (car #{w2 18998}#) + (let ((#{m2 19011}# (cdr #{w2 18998}#))) + (if (null? #{m2 19011}#) + #{s1 19000}# + (append #{s1 19000}# #{m2 19011}#))))) + (cons (let ((#{m2 19019}# (car #{w2 18998}#))) + (if (null? #{m2 19019}#) + #{m1 18999}# + (append #{m1 18999}# #{m2 19019}#))) + (let ((#{m2 19027}# (cdr #{w2 18998}#))) + (if (null? #{m2 19027}#) + #{s1 19000}# + (append #{s1 19000}# #{m2 19027}#))))))) + (vector-ref #{e 18969}# 3)) #f))))) - (#{match-each-any 18085}# - (lambda (#{e 19038}# #{w 19039}# #{mod 19040}#) - (if (pair? #{e 19038}#) - (let ((#{l 19041}# - (#{match-each-any 18085}# - (cdr #{e 19038}#) - #{w 19039}# - #{mod 19040}#))) - (if #{l 19041}# - (cons (let ((#{x 19046}# (car #{e 19038}#))) - (if (if (null? (car #{w 19039}#)) - (null? (cdr #{w 19039}#)) + (#{match-each-any 18083}# + (lambda (#{e 19036}# #{w 19037}# #{mod 19038}#) + (if (pair? #{e 19036}#) + (let ((#{l 19039}# + (#{match-each-any 18083}# + (cdr #{e 19036}#) + #{w 19037}# + #{mod 19038}#))) + (if #{l 19039}# + (cons (let ((#{x 19044}# (car #{e 19036}#))) + (if (if (null? (car #{w 19037}#)) + (null? (cdr #{w 19037}#)) #f) - #{x 19046}# - (if (if (vector? #{x 19046}#) - (if (= (vector-length #{x 19046}#) 4) - (eq? (vector-ref #{x 19046}# 0) + #{x 19044}# + (if (if (vector? #{x 19044}#) + (if (= (vector-length #{x 19044}#) 4) + (eq? (vector-ref #{x 19044}# 0) 'syntax-object) #f) #f) - (let ((#{expression 19064}# - (vector-ref #{x 19046}# 1)) - (#{wrap 19065}# - (let ((#{w2 19073}# - (vector-ref #{x 19046}# 2))) - (let ((#{m1 19074}# (car #{w 19039}#)) - (#{s1 19075}# (cdr #{w 19039}#))) - (if (null? #{m1 19074}#) - (if (null? #{s1 19075}#) - #{w2 19073}# - (cons (car #{w2 19073}#) - (let ((#{m2 19090}# - (cdr #{w2 19073}#))) - (if (null? #{m2 19090}#) - #{s1 19075}# + (let ((#{expression 19062}# + (vector-ref #{x 19044}# 1)) + (#{wrap 19063}# + (let ((#{w2 19071}# + (vector-ref #{x 19044}# 2))) + (let ((#{m1 19072}# (car #{w 19037}#)) + (#{s1 19073}# (cdr #{w 19037}#))) + (if (null? #{m1 19072}#) + (if (null? #{s1 19073}#) + #{w2 19071}# + (cons (car #{w2 19071}#) + (let ((#{m2 19088}# + (cdr #{w2 19071}#))) + (if (null? #{m2 19088}#) + #{s1 19073}# (append - #{s1 19075}# - #{m2 19090}#))))) - (cons (let ((#{m2 19098}# - (car #{w2 19073}#))) - (if (null? #{m2 19098}#) - #{m1 19074}# + #{s1 19073}# + #{m2 19088}#))))) + (cons (let ((#{m2 19096}# + (car #{w2 19071}#))) + (if (null? #{m2 19096}#) + #{m1 19072}# (append - #{m1 19074}# - #{m2 19098}#))) - (let ((#{m2 19106}# - (cdr #{w2 19073}#))) - (if (null? #{m2 19106}#) - #{s1 19075}# + #{m1 19072}# + #{m2 19096}#))) + (let ((#{m2 19104}# + (cdr #{w2 19071}#))) + (if (null? #{m2 19104}#) + #{s1 19073}# (append - #{s1 19075}# - #{m2 19106}#)))))))) - (#{module 19066}# - (vector-ref #{x 19046}# 3))) + #{s1 19073}# + #{m2 19104}#)))))))) + (#{module 19064}# + (vector-ref #{x 19044}# 3))) (vector 'syntax-object - #{expression 19064}# - #{wrap 19065}# - #{module 19066}#)) - (if (null? #{x 19046}#) - #{x 19046}# + #{expression 19062}# + #{wrap 19063}# + #{module 19064}#)) + (if (null? #{x 19044}#) + #{x 19044}# (vector 'syntax-object - #{x 19046}# - #{w 19039}# - #{mod 19040}#))))) - #{l 19041}#) + #{x 19044}# + #{w 19037}# + #{mod 19038}#))))) + #{l 19039}#) #f)) - (if (null? #{e 19038}#) + (if (null? #{e 19036}#) '() - (if (if (vector? #{e 19038}#) - (if (= (vector-length #{e 19038}#) 4) - (eq? (vector-ref #{e 19038}# 0) 'syntax-object) + (if (if (vector? #{e 19036}#) + (if (= (vector-length #{e 19036}#) 4) + (eq? (vector-ref #{e 19036}# 0) 'syntax-object) #f) #f) - (#{match-each-any 18085}# - (vector-ref #{e 19038}# 1) - (let ((#{w2 19139}# (vector-ref #{e 19038}# 2))) - (let ((#{m1 19140}# (car #{w 19039}#)) - (#{s1 19141}# (cdr #{w 19039}#))) - (if (null? #{m1 19140}#) - (if (null? #{s1 19141}#) - #{w2 19139}# - (cons (car #{w2 19139}#) - (let ((#{m2 19152}# (cdr #{w2 19139}#))) - (if (null? #{m2 19152}#) - #{s1 19141}# - (append #{s1 19141}# #{m2 19152}#))))) - (cons (let ((#{m2 19160}# (car #{w2 19139}#))) - (if (null? #{m2 19160}#) - #{m1 19140}# - (append #{m1 19140}# #{m2 19160}#))) - (let ((#{m2 19168}# (cdr #{w2 19139}#))) - (if (null? #{m2 19168}#) - #{s1 19141}# - (append #{s1 19141}# #{m2 19168}#))))))) - #{mod 19040}#) + (#{match-each-any 18083}# + (vector-ref #{e 19036}# 1) + (let ((#{w2 19137}# (vector-ref #{e 19036}# 2))) + (let ((#{m1 19138}# (car #{w 19037}#)) + (#{s1 19139}# (cdr #{w 19037}#))) + (if (null? #{m1 19138}#) + (if (null? #{s1 19139}#) + #{w2 19137}# + (cons (car #{w2 19137}#) + (let ((#{m2 19150}# (cdr #{w2 19137}#))) + (if (null? #{m2 19150}#) + #{s1 19139}# + (append #{s1 19139}# #{m2 19150}#))))) + (cons (let ((#{m2 19158}# (car #{w2 19137}#))) + (if (null? #{m2 19158}#) + #{m1 19138}# + (append #{m1 19138}# #{m2 19158}#))) + (let ((#{m2 19166}# (cdr #{w2 19137}#))) + (if (null? #{m2 19166}#) + #{s1 19139}# + (append #{s1 19139}# #{m2 19166}#))))))) + #{mod 19038}#) #f))))) - (#{match-empty 18086}# - (lambda (#{p 19173}# #{r 19174}#) - (if (null? #{p 19173}#) - #{r 19174}# - (if (eq? #{p 19173}# '_) - #{r 19174}# - (if (eq? #{p 19173}# 'any) - (cons '() #{r 19174}#) - (if (pair? #{p 19173}#) - (#{match-empty 18086}# - (car #{p 19173}#) - (#{match-empty 18086}# - (cdr #{p 19173}#) - #{r 19174}#)) - (if (eq? #{p 19173}# 'each-any) - (cons '() #{r 19174}#) - (let ((#{atom-key 19175}# (vector-ref #{p 19173}# 0))) - (if (eqv? #{atom-key 19175}# 'each) - (#{match-empty 18086}# - (vector-ref #{p 19173}# 1) - #{r 19174}#) - (if (eqv? #{atom-key 19175}# 'each+) - (#{match-empty 18086}# - (vector-ref #{p 19173}# 1) - (#{match-empty 18086}# - (reverse (vector-ref #{p 19173}# 2)) - (#{match-empty 18086}# - (vector-ref #{p 19173}# 3) - #{r 19174}#))) - (if (if (eqv? #{atom-key 19175}# 'free-id) + (#{match-empty 18084}# + (lambda (#{p 19171}# #{r 19172}#) + (if (null? #{p 19171}#) + #{r 19172}# + (if (eq? #{p 19171}# '_) + #{r 19172}# + (if (eq? #{p 19171}# 'any) + (cons '() #{r 19172}#) + (if (pair? #{p 19171}#) + (#{match-empty 18084}# + (car #{p 19171}#) + (#{match-empty 18084}# + (cdr #{p 19171}#) + #{r 19172}#)) + (if (eq? #{p 19171}# 'each-any) + (cons '() #{r 19172}#) + (let ((#{atom-key 19173}# (vector-ref #{p 19171}# 0))) + (if (eqv? #{atom-key 19173}# 'each) + (#{match-empty 18084}# + (vector-ref #{p 19171}# 1) + #{r 19172}#) + (if (eqv? #{atom-key 19173}# 'each+) + (#{match-empty 18084}# + (vector-ref #{p 19171}# 1) + (#{match-empty 18084}# + (reverse (vector-ref #{p 19171}# 2)) + (#{match-empty 18084}# + (vector-ref #{p 19171}# 3) + #{r 19172}#))) + (if (if (eqv? #{atom-key 19173}# 'free-id) #t - (eqv? #{atom-key 19175}# 'atom)) - #{r 19174}# - (if (eqv? #{atom-key 19175}# 'vector) - (#{match-empty 18086}# - (vector-ref #{p 19173}# 1) - #{r 19174}#))))))))))))) - (#{combine 18087}# - (lambda (#{r* 19194}# #{r 19195}#) - (if (null? (car #{r* 19194}#)) - #{r 19195}# - (cons (map car #{r* 19194}#) - (#{combine 18087}# - (map cdr #{r* 19194}#) - #{r 19195}#))))) - (#{match* 18088}# - (lambda (#{e 18118}# - #{p 18119}# - #{w 18120}# - #{r 18121}# - #{mod 18122}#) - (if (null? #{p 18119}#) - (if (null? #{e 18118}#) #{r 18121}# #f) - (if (pair? #{p 18119}#) - (if (pair? #{e 18118}#) - (#{match 18089}# - (car #{e 18118}#) - (car #{p 18119}#) - #{w 18120}# - (#{match 18089}# - (cdr #{e 18118}#) - (cdr #{p 18119}#) - #{w 18120}# - #{r 18121}# - #{mod 18122}#) - #{mod 18122}#) + (eqv? #{atom-key 19173}# 'atom)) + #{r 19172}# + (if (eqv? #{atom-key 19173}# 'vector) + (#{match-empty 18084}# + (vector-ref #{p 19171}# 1) + #{r 19172}#))))))))))))) + (#{combine 18085}# + (lambda (#{r* 19192}# #{r 19193}#) + (if (null? (car #{r* 19192}#)) + #{r 19193}# + (cons (map car #{r* 19192}#) + (#{combine 18085}# + (map cdr #{r* 19192}#) + #{r 19193}#))))) + (#{match* 18086}# + (lambda (#{e 18116}# + #{p 18117}# + #{w 18118}# + #{r 18119}# + #{mod 18120}#) + (if (null? #{p 18117}#) + (if (null? #{e 18116}#) #{r 18119}# #f) + (if (pair? #{p 18117}#) + (if (pair? #{e 18116}#) + (#{match 18087}# + (car #{e 18116}#) + (car #{p 18117}#) + #{w 18118}# + (#{match 18087}# + (cdr #{e 18116}#) + (cdr #{p 18117}#) + #{w 18118}# + #{r 18119}# + #{mod 18120}#) + #{mod 18120}#) #f) - (if (eq? #{p 18119}# 'each-any) - (let ((#{l 18127}# - (#{match-each-any 18085}# - #{e 18118}# - #{w 18120}# - #{mod 18122}#))) - (if #{l 18127}# - (cons #{l 18127}# #{r 18121}#) + (if (eq? #{p 18117}# 'each-any) + (let ((#{l 18125}# + (#{match-each-any 18083}# + #{e 18116}# + #{w 18118}# + #{mod 18120}#))) + (if #{l 18125}# + (cons #{l 18125}# #{r 18119}#) #f)) - (let ((#{atom-key 18132}# (vector-ref #{p 18119}# 0))) - (if (eqv? #{atom-key 18132}# 'each) - (if (null? #{e 18118}#) - (#{match-empty 18086}# - (vector-ref #{p 18119}# 1) - #{r 18121}#) - (let ((#{l 18139}# - (#{match-each 18083}# - #{e 18118}# - (vector-ref #{p 18119}# 1) - #{w 18120}# - #{mod 18122}#))) - (if #{l 18139}# + (let ((#{atom-key 18130}# (vector-ref #{p 18117}# 0))) + (if (eqv? #{atom-key 18130}# 'each) + (if (null? #{e 18116}#) + (#{match-empty 18084}# + (vector-ref #{p 18117}# 1) + #{r 18119}#) + (let ((#{l 18137}# + (#{match-each 18081}# + #{e 18116}# + (vector-ref #{p 18117}# 1) + #{w 18118}# + #{mod 18120}#))) + (if #{l 18137}# (letrec* - ((#{collect 18142}# - (lambda (#{l 18203}#) - (if (null? (car #{l 18203}#)) - #{r 18121}# - (cons (map car #{l 18203}#) - (#{collect 18142}# - (map cdr #{l 18203}#))))))) - (#{collect 18142}# #{l 18139}#)) + ((#{collect 18140}# + (lambda (#{l 18201}#) + (if (null? (car #{l 18201}#)) + #{r 18119}# + (cons (map car #{l 18201}#) + (#{collect 18140}# + (map cdr #{l 18201}#))))))) + (#{collect 18140}# #{l 18137}#)) #f))) - (if (eqv? #{atom-key 18132}# 'each+) + (if (eqv? #{atom-key 18130}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 18212}# (vector-ref #{p 18119}# 1)) - (#{y-pat 18213}# (vector-ref #{p 18119}# 2)) - (#{z-pat 18214}# (vector-ref #{p 18119}# 3))) + (let ((#{x-pat 18210}# (vector-ref #{p 18117}# 1)) + (#{y-pat 18211}# (vector-ref #{p 18117}# 2)) + (#{z-pat 18212}# (vector-ref #{p 18117}# 3))) (letrec* - ((#{f 18218}# - (lambda (#{e 18220}# #{w 18221}#) - (if (pair? #{e 18220}#) + ((#{f 18216}# + (lambda (#{e 18218}# #{w 18219}#) + (if (pair? #{e 18218}#) (call-with-values (lambda () - (#{f 18218}# - (cdr #{e 18220}#) - #{w 18221}#)) - (lambda (#{xr* 18222}# - #{y-pat 18223}# - #{r 18224}#) - (if #{r 18224}# - (if (null? #{y-pat 18223}#) - (let ((#{xr 18225}# - (#{match 18089}# - (car #{e 18220}#) - #{x-pat 18212}# - #{w 18221}# + (#{f 18216}# + (cdr #{e 18218}#) + #{w 18219}#)) + (lambda (#{xr* 18220}# + #{y-pat 18221}# + #{r 18222}#) + (if #{r 18222}# + (if (null? #{y-pat 18221}#) + (let ((#{xr 18223}# + (#{match 18087}# + (car #{e 18218}#) + #{x-pat 18210}# + #{w 18219}# '() - #{mod 18122}#))) - (if #{xr 18225}# + #{mod 18120}#))) + (if #{xr 18223}# (values - (cons #{xr 18225}# - #{xr* 18222}#) - #{y-pat 18223}# - #{r 18224}#) + (cons #{xr 18223}# + #{xr* 18220}#) + #{y-pat 18221}# + #{r 18222}#) (values #f #f #f))) (values '() - (cdr #{y-pat 18223}#) - (#{match 18089}# - (car #{e 18220}#) - (car #{y-pat 18223}#) - #{w 18221}# - #{r 18224}# - #{mod 18122}#))) + (cdr #{y-pat 18221}#) + (#{match 18087}# + (car #{e 18218}#) + (car #{y-pat 18221}#) + #{w 18219}# + #{r 18222}# + #{mod 18120}#))) (values #f #f #f)))) - (if (if (vector? #{e 18220}#) - (if (= (vector-length #{e 18220}#) + (if (if (vector? #{e 18218}#) + (if (= (vector-length #{e 18218}#) 4) - (eq? (vector-ref #{e 18220}# 0) + (eq? (vector-ref #{e 18218}# 0) 'syntax-object) #f) #f) - (#{f 18218}# - (vector-ref #{e 18220}# 1) - (let ((#{m1 18253}# - (car #{w 18221}#)) - (#{s1 18254}# - (cdr #{w 18221}#))) - (if (null? #{m1 18253}#) - (if (null? #{s1 18254}#) - #{e 18220}# - (cons (car #{e 18220}#) - (let ((#{m2 18266}# - (cdr #{e 18220}#))) - (if (null? #{m2 18266}#) - #{s1 18254}# + (#{f 18216}# + (vector-ref #{e 18218}# 1) + (let ((#{m1 18251}# + (car #{w 18219}#)) + (#{s1 18252}# + (cdr #{w 18219}#))) + (if (null? #{m1 18251}#) + (if (null? #{s1 18252}#) + #{e 18218}# + (cons (car #{e 18218}#) + (let ((#{m2 18264}# + (cdr #{e 18218}#))) + (if (null? #{m2 18264}#) + #{s1 18252}# (append - #{s1 18254}# - #{m2 18266}#))))) - (cons (let ((#{m2 18276}# - (car #{e 18220}#))) - (if (null? #{m2 18276}#) - #{m1 18253}# + #{s1 18252}# + #{m2 18264}#))))) + (cons (let ((#{m2 18274}# + (car #{e 18218}#))) + (if (null? #{m2 18274}#) + #{m1 18251}# (append - #{m1 18253}# - #{m2 18276}#))) - (let ((#{m2 18286}# - (cdr #{e 18220}#))) - (if (null? #{m2 18286}#) - #{s1 18254}# + #{m1 18251}# + #{m2 18274}#))) + (let ((#{m2 18284}# + (cdr #{e 18218}#))) + (if (null? #{m2 18284}#) + #{s1 18252}# (append - #{s1 18254}# - #{m2 18286}#))))))) + #{s1 18252}# + #{m2 18284}#))))))) (values '() - #{y-pat 18213}# - (#{match 18089}# - #{e 18220}# - #{z-pat 18214}# - #{w 18221}# - #{r 18121}# - #{mod 18122}#))))))) - (#{f 18218}# #{e 18118}# #{w 18120}#)))) - (lambda (#{xr* 18296}# #{y-pat 18297}# #{r 18298}#) - (if #{r 18298}# - (if (null? #{y-pat 18297}#) - (if (null? #{xr* 18296}#) - (#{match-empty 18086}# - (vector-ref #{p 18119}# 1) - #{r 18298}#) - (#{combine 18087}# #{xr* 18296}# #{r 18298}#)) + #{y-pat 18211}# + (#{match 18087}# + #{e 18218}# + #{z-pat 18212}# + #{w 18219}# + #{r 18119}# + #{mod 18120}#))))))) + (#{f 18216}# #{e 18116}# #{w 18118}#)))) + (lambda (#{xr* 18294}# #{y-pat 18295}# #{r 18296}#) + (if #{r 18296}# + (if (null? #{y-pat 18295}#) + (if (null? #{xr* 18294}#) + (#{match-empty 18084}# + (vector-ref #{p 18117}# 1) + #{r 18296}#) + (#{combine 18085}# #{xr* 18294}# #{r 18296}#)) #f) #f))) - (if (eqv? #{atom-key 18132}# 'free-id) - (if (if (symbol? #{e 18118}#) + (if (eqv? #{atom-key 18130}# 'free-id) + (if (if (symbol? #{e 18116}#) #t - (if (if (vector? #{e 18118}#) - (if (= (vector-length #{e 18118}#) 4) - (eq? (vector-ref #{e 18118}# 0) + (if (if (vector? #{e 18116}#) + (if (= (vector-length #{e 18116}#) 4) + (eq? (vector-ref #{e 18116}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 18118}# 1)) + (symbol? (vector-ref #{e 18116}# 1)) #f)) - (if (#{free-id=? 4363}# - (if (if (null? (car #{w 18120}#)) - (null? (cdr #{w 18120}#)) + (if (#{free-id=? 4361}# + (if (if (null? (car #{w 18118}#)) + (null? (cdr #{w 18118}#)) #f) - #{e 18118}# - (if (if (vector? #{e 18118}#) - (if (= (vector-length #{e 18118}#) 4) - (eq? (vector-ref #{e 18118}# 0) + #{e 18116}# + (if (if (vector? #{e 18116}#) + (if (= (vector-length #{e 18116}#) 4) + (eq? (vector-ref #{e 18116}# 0) 'syntax-object) #f) #f) - (let ((#{expression 18729}# - (vector-ref #{e 18118}# 1)) - (#{wrap 18730}# - (let ((#{w2 18740}# + (let ((#{expression 18727}# + (vector-ref #{e 18116}# 1)) + (#{wrap 18728}# + (let ((#{w2 18738}# (vector-ref - #{e 18118}# + #{e 18116}# 2))) - (let ((#{m1 18741}# - (car #{w 18120}#)) - (#{s1 18742}# - (cdr #{w 18120}#))) - (if (null? #{m1 18741}#) - (if (null? #{s1 18742}#) - #{w2 18740}# - (cons (car #{w2 18740}#) - (let ((#{m2 18759}# - (cdr #{w2 18740}#))) - (if (null? #{m2 18759}#) - #{s1 18742}# + (let ((#{m1 18739}# + (car #{w 18118}#)) + (#{s1 18740}# + (cdr #{w 18118}#))) + (if (null? #{m1 18739}#) + (if (null? #{s1 18740}#) + #{w2 18738}# + (cons (car #{w2 18738}#) + (let ((#{m2 18757}# + (cdr #{w2 18738}#))) + (if (null? #{m2 18757}#) + #{s1 18740}# (append - #{s1 18742}# - #{m2 18759}#))))) - (cons (let ((#{m2 18767}# - (car #{w2 18740}#))) - (if (null? #{m2 18767}#) - #{m1 18741}# + #{s1 18740}# + #{m2 18757}#))))) + (cons (let ((#{m2 18765}# + (car #{w2 18738}#))) + (if (null? #{m2 18765}#) + #{m1 18739}# (append - #{m1 18741}# - #{m2 18767}#))) - (let ((#{m2 18775}# - (cdr #{w2 18740}#))) - (if (null? #{m2 18775}#) - #{s1 18742}# + #{m1 18739}# + #{m2 18765}#))) + (let ((#{m2 18773}# + (cdr #{w2 18738}#))) + (if (null? #{m2 18773}#) + #{s1 18740}# (append - #{s1 18742}# - #{m2 18775}#)))))))) - (#{module 18731}# - (vector-ref #{e 18118}# 3))) + #{s1 18740}# + #{m2 18773}#)))))))) + (#{module 18729}# + (vector-ref #{e 18116}# 3))) (vector 'syntax-object - #{expression 18729}# - #{wrap 18730}# - #{module 18731}#)) - (if (null? #{e 18118}#) - #{e 18118}# + #{expression 18727}# + #{wrap 18728}# + #{module 18729}#)) + (if (null? #{e 18116}#) + #{e 18116}# (vector 'syntax-object - #{e 18118}# - #{w 18120}# - #{mod 18122}#)))) - (vector-ref #{p 18119}# 1)) - #{r 18121}# + #{e 18116}# + #{w 18118}# + #{mod 18120}#)))) + (vector-ref #{p 18117}# 1)) + #{r 18119}# #f) #f) - (if (eqv? #{atom-key 18132}# 'atom) + (if (eqv? #{atom-key 18130}# 'atom) (if (equal? - (vector-ref #{p 18119}# 1) - (#{strip 4388}# #{e 18118}# #{w 18120}#)) - #{r 18121}# + (vector-ref #{p 18117}# 1) + (#{strip 4386}# #{e 18116}# #{w 18118}#)) + #{r 18119}# #f) - (if (eqv? #{atom-key 18132}# 'vector) - (if (vector? #{e 18118}#) - (#{match 18089}# - (vector->list #{e 18118}#) - (vector-ref #{p 18119}# 1) - #{w 18120}# - #{r 18121}# - #{mod 18122}#) + (if (eqv? #{atom-key 18130}# 'vector) + (if (vector? #{e 18116}#) + (#{match 18087}# + (vector->list #{e 18116}#) + (vector-ref #{p 18117}# 1) + #{w 18118}# + #{r 18119}# + #{mod 18120}#) #f)))))))))))) - (#{match 18089}# - (lambda (#{e 18808}# - #{p 18809}# - #{w 18810}# - #{r 18811}# - #{mod 18812}#) - (if (not #{r 18811}#) + (#{match 18087}# + (lambda (#{e 18806}# + #{p 18807}# + #{w 18808}# + #{r 18809}# + #{mod 18810}#) + (if (not #{r 18809}#) #f - (if (eq? #{p 18809}# '_) - #{r 18811}# - (if (eq? #{p 18809}# 'any) - (cons (if (if (null? (car #{w 18810}#)) - (null? (cdr #{w 18810}#)) + (if (eq? #{p 18807}# '_) + #{r 18809}# + (if (eq? #{p 18807}# 'any) + (cons (if (if (null? (car #{w 18808}#)) + (null? (cdr #{w 18808}#)) #f) - #{e 18808}# - (if (if (vector? #{e 18808}#) - (if (= (vector-length #{e 18808}#) 4) - (eq? (vector-ref #{e 18808}# 0) + #{e 18806}# + (if (if (vector? #{e 18806}#) + (if (= (vector-length #{e 18806}#) 4) + (eq? (vector-ref #{e 18806}# 0) 'syntax-object) #f) #f) - (let ((#{expression 18842}# - (vector-ref #{e 18808}# 1)) - (#{wrap 18843}# - (let ((#{w2 18853}# - (vector-ref #{e 18808}# 2))) - (let ((#{m1 18854}# (car #{w 18810}#)) - (#{s1 18855}# (cdr #{w 18810}#))) - (if (null? #{m1 18854}#) - (if (null? #{s1 18855}#) - #{w2 18853}# - (cons (car #{w2 18853}#) - (let ((#{m2 18872}# - (cdr #{w2 18853}#))) - (if (null? #{m2 18872}#) - #{s1 18855}# + (let ((#{expression 18840}# + (vector-ref #{e 18806}# 1)) + (#{wrap 18841}# + (let ((#{w2 18851}# + (vector-ref #{e 18806}# 2))) + (let ((#{m1 18852}# (car #{w 18808}#)) + (#{s1 18853}# (cdr #{w 18808}#))) + (if (null? #{m1 18852}#) + (if (null? #{s1 18853}#) + #{w2 18851}# + (cons (car #{w2 18851}#) + (let ((#{m2 18870}# + (cdr #{w2 18851}#))) + (if (null? #{m2 18870}#) + #{s1 18853}# (append - #{s1 18855}# - #{m2 18872}#))))) - (cons (let ((#{m2 18880}# - (car #{w2 18853}#))) - (if (null? #{m2 18880}#) - #{m1 18854}# + #{s1 18853}# + #{m2 18870}#))))) + (cons (let ((#{m2 18878}# + (car #{w2 18851}#))) + (if (null? #{m2 18878}#) + #{m1 18852}# (append - #{m1 18854}# - #{m2 18880}#))) - (let ((#{m2 18888}# - (cdr #{w2 18853}#))) - (if (null? #{m2 18888}#) - #{s1 18855}# + #{m1 18852}# + #{m2 18878}#))) + (let ((#{m2 18886}# + (cdr #{w2 18851}#))) + (if (null? #{m2 18886}#) + #{s1 18853}# (append - #{s1 18855}# - #{m2 18888}#)))))))) - (#{module 18844}# (vector-ref #{e 18808}# 3))) + #{s1 18853}# + #{m2 18886}#)))))))) + (#{module 18842}# (vector-ref #{e 18806}# 3))) (vector 'syntax-object - #{expression 18842}# - #{wrap 18843}# - #{module 18844}#)) - (if (null? #{e 18808}#) - #{e 18808}# + #{expression 18840}# + #{wrap 18841}# + #{module 18842}#)) + (if (null? #{e 18806}#) + #{e 18806}# (vector 'syntax-object - #{e 18808}# - #{w 18810}# - #{mod 18812}#)))) - #{r 18811}#) - (if (if (vector? #{e 18808}#) - (if (= (vector-length #{e 18808}#) 4) - (eq? (vector-ref #{e 18808}# 0) 'syntax-object) + #{e 18806}# + #{w 18808}# + #{mod 18810}#)))) + #{r 18809}#) + (if (if (vector? #{e 18806}#) + (if (= (vector-length #{e 18806}#) 4) + (eq? (vector-ref #{e 18806}# 0) 'syntax-object) #f) #f) - (#{match* 18088}# - (vector-ref #{e 18808}# 1) - #{p 18809}# - (let ((#{w2 18931}# (vector-ref #{e 18808}# 2))) - (let ((#{m1 18932}# (car #{w 18810}#)) - (#{s1 18933}# (cdr #{w 18810}#))) - (if (null? #{m1 18932}#) - (if (null? #{s1 18933}#) - #{w2 18931}# - (cons (car #{w2 18931}#) - (let ((#{m2 18944}# (cdr #{w2 18931}#))) - (if (null? #{m2 18944}#) - #{s1 18933}# - (append #{s1 18933}# #{m2 18944}#))))) - (cons (let ((#{m2 18952}# (car #{w2 18931}#))) - (if (null? #{m2 18952}#) - #{m1 18932}# - (append #{m1 18932}# #{m2 18952}#))) - (let ((#{m2 18960}# (cdr #{w2 18931}#))) - (if (null? #{m2 18960}#) - #{s1 18933}# - (append #{s1 18933}# #{m2 18960}#))))))) - #{r 18811}# - (vector-ref #{e 18808}# 3)) - (#{match* 18088}# - #{e 18808}# - #{p 18809}# - #{w 18810}# - #{r 18811}# - #{mod 18812}#)))))))) + (#{match* 18086}# + (vector-ref #{e 18806}# 1) + #{p 18807}# + (let ((#{w2 18929}# (vector-ref #{e 18806}# 2))) + (let ((#{m1 18930}# (car #{w 18808}#)) + (#{s1 18931}# (cdr #{w 18808}#))) + (if (null? #{m1 18930}#) + (if (null? #{s1 18931}#) + #{w2 18929}# + (cons (car #{w2 18929}#) + (let ((#{m2 18942}# (cdr #{w2 18929}#))) + (if (null? #{m2 18942}#) + #{s1 18931}# + (append #{s1 18931}# #{m2 18942}#))))) + (cons (let ((#{m2 18950}# (car #{w2 18929}#))) + (if (null? #{m2 18950}#) + #{m1 18930}# + (append #{m1 18930}# #{m2 18950}#))) + (let ((#{m2 18958}# (cdr #{w2 18929}#))) + (if (null? #{m2 18958}#) + #{s1 18931}# + (append #{s1 18931}# #{m2 18958}#))))))) + #{r 18809}# + (vector-ref #{e 18806}# 3)) + (#{match* 18086}# + #{e 18806}# + #{p 18807}# + #{w 18808}# + #{r 18809}# + #{mod 18810}#)))))))) (set! $sc-dispatch - (lambda (#{e 18090}# #{p 18091}#) - (if (eq? #{p 18091}# 'any) - (list #{e 18090}#) - (if (eq? #{p 18091}# '_) + (lambda (#{e 18088}# #{p 18089}#) + (if (eq? #{p 18089}# 'any) + (list #{e 18088}#) + (if (eq? #{p 18089}# '_) '() - (if (if (vector? #{e 18090}#) - (if (= (vector-length #{e 18090}#) 4) - (eq? (vector-ref #{e 18090}# 0) 'syntax-object) + (if (if (vector? #{e 18088}#) + (if (= (vector-length #{e 18088}#) 4) + (eq? (vector-ref #{e 18088}# 0) 'syntax-object) #f) #f) - (#{match* 18088}# - (vector-ref #{e 18090}# 1) - #{p 18091}# - (vector-ref #{e 18090}# 2) + (#{match* 18086}# + (vector-ref #{e 18088}# 1) + #{p 18089}# + (vector-ref #{e 18088}# 2) '() - (vector-ref #{e 18090}# 3)) - (#{match* 18088}# - #{e 18090}# - #{p 18091}# + (vector-ref #{e 18088}# 3)) + (#{match* 18086}# + #{e 18088}# + #{p 18089}# '(()) '() #f))))))))) @@ -17637,82 +17620,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 37271}#) - (let ((#{tmp 37273}# - ($sc-dispatch #{x 37271}# '(_ () any . each-any)))) - (if #{tmp 37273}# + (lambda (#{x 37268}#) + (let ((#{tmp 37270}# + ($sc-dispatch #{x 37268}# '(_ () any . each-any)))) + (if #{tmp 37270}# (@apply - (lambda (#{e1 37277}# #{e2 37278}#) + (lambda (#{e1 37274}# #{e2 37275}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37244" "i37245")) + #("i37241" "i37242")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37241"))) + #(ribcage #(x) #((top)) #("i37238"))) (hygiene guile)) - (cons '() (cons #{e1 37277}# #{e2 37278}#)))) - #{tmp 37273}#) - (let ((#{tmp 37279}# + (cons '() (cons #{e1 37274}# #{e2 37275}#)))) + #{tmp 37270}#) + (let ((#{tmp 37276}# ($sc-dispatch - #{x 37271}# + #{x 37268}# '(_ ((any any)) any . each-any)))) - (if #{tmp 37279}# + (if #{tmp 37276}# (@apply - (lambda (#{out 37283}# - #{in 37284}# - #{e1 37285}# - #{e2 37286}#) + (lambda (#{out 37280}# + #{in 37281}# + #{e1 37282}# + #{e2 37283}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i37250" "i37251" "i37252" "i37253")) + #("i37247" "i37248" "i37249" "i37250")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37241"))) + #(ribcage #(x) #((top)) #("i37238"))) (hygiene guile)) - #{in 37284}# + #{in 37281}# '() - (list #{out 37283}# + (list #{out 37280}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i37250" - "i37251" - "i37252" - "i37253")) + #("i37247" + "i37248" + "i37249" + "i37250")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37241"))) + #(ribcage #(x) #((top)) #("i37238"))) (hygiene guile)) (cons '() - (cons #{e1 37285}# #{e2 37286}#)))))) - #{tmp 37279}#) - (let ((#{tmp 37287}# + (cons #{e1 37282}# #{e2 37283}#)))))) + #{tmp 37276}#) + (let ((#{tmp 37284}# ($sc-dispatch - #{x 37271}# + #{x 37268}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 37287}# + (if #{tmp 37284}# (@apply - (lambda (#{out 37291}# - #{in 37292}# - #{e1 37293}# - #{e2 37294}#) + (lambda (#{out 37288}# + #{in 37289}# + #{e1 37290}# + #{e2 37291}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i37260" "i37261" "i37262" "i37263")) + #("i37257" "i37258" "i37259" "i37260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37241"))) + #(ribcage #(x) #((top)) #("i37238"))) (hygiene guile)) (cons '#(syntax-object list @@ -17720,62 +17703,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i37260" "i37261" "i37262" "i37263")) + #("i37257" "i37258" "i37259" "i37260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37241"))) + #(ribcage #(x) #((top)) #("i37238"))) (hygiene guile)) - #{in 37292}#) + #{in 37289}#) '() - (list #{out 37291}# + (list #{out 37288}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i37260" - "i37261" - "i37262" - "i37263")) + #("i37257" + "i37258" + "i37259" + "i37260")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37241"))) + #("i37238"))) (hygiene guile)) (cons '() - (cons #{e1 37293}# - #{e2 37294}#)))))) - #{tmp 37287}#) + (cons #{e1 37290}# + #{e2 37291}#)))))) + #{tmp 37284}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37271}#)))))))))) + #{x 37268}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 37348}#) - (let ((#{tmp 37350}# + (lambda (#{x 37345}#) + (let ((#{tmp 37347}# ($sc-dispatch - #{x 37348}# + #{x 37345}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 37350}# + (if #{tmp 37347}# (@apply - (lambda (#{k 37354}# - #{keyword 37355}# - #{pattern 37356}# - #{template 37357}#) + (lambda (#{k 37351}# + #{keyword 37352}# + #{pattern 37353}# + #{template 37354}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) '(#(syntax-object x @@ -17783,9 +17766,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile))) (vector '(#(syntax-object @@ -17794,9 +17777,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) . #(syntax-object @@ -17805,9 +17788,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -17815,20 +17798,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) - #{pattern 37356}#)) + #{pattern 37353}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) (cons '#(syntax-object x @@ -17836,13 +17819,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37311" "i37312" "i37313" "i37314")) + #("i37308" "i37309" "i37310" "i37311")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) - (cons #{k 37354}# - (map (lambda (#{tmp 37322 37358}# - #{tmp 37321 37359}#) + (cons #{k 37351}# + (map (lambda (#{tmp 37319 37355}# + #{tmp 37318 37356}#) (list (cons '#(syntax-object dummy ((top) @@ -17855,10 +17838,10 @@ (top) (top) (top)) - #("i37311" - "i37312" - "i37313" - "i37314")) + #("i37308" + "i37309" + "i37310" + "i37311")) #(ribcage () () @@ -17866,9 +17849,9 @@ #(ribcage #(x) #((top)) - #("i37308"))) + #("i37305"))) (hygiene guile)) - #{tmp 37321 37359}#) + #{tmp 37318 37356}#) (list '#(syntax-object syntax ((top) @@ -17881,10 +17864,10 @@ (top) (top) (top)) - #("i37311" - "i37312" - "i37313" - "i37314")) + #("i37308" + "i37309" + "i37310" + "i37311")) #(ribcage () () @@ -17892,41 +17875,41 @@ #(ribcage #(x) #((top)) - #("i37308"))) + #("i37305"))) (hygiene guile)) - #{tmp 37322 37358}#))) - #{template 37357}# - #{pattern 37356}#)))))) - #{tmp 37350}#) - (let ((#{tmp 37360}# + #{tmp 37319 37355}#))) + #{template 37354}# + #{pattern 37353}#)))))) + #{tmp 37347}#) + (let ((#{tmp 37357}# ($sc-dispatch - #{x 37348}# + #{x 37345}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 37360}# + (if (if #{tmp 37357}# (@apply - (lambda (#{k 37364}# - #{docstring 37365}# - #{keyword 37366}# - #{pattern 37367}# - #{template 37368}#) - (string? (syntax->datum #{docstring 37365}#))) - #{tmp 37360}#) + (lambda (#{k 37361}# + #{docstring 37362}# + #{keyword 37363}# + #{pattern 37364}# + #{template 37365}#) + (string? (syntax->datum #{docstring 37362}#))) + #{tmp 37357}#) #f) (@apply - (lambda (#{k 37369}# - #{docstring 37370}# - #{keyword 37371}# - #{pattern 37372}# - #{template 37373}#) + (lambda (#{k 37366}# + #{docstring 37367}# + #{keyword 37368}# + #{pattern 37369}# + #{template 37370}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" "i37335" "i37336" "i37337" "i37338")) + #("i37331" "i37332" "i37333" "i37334" "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) '(#(syntax-object x @@ -17934,11 +17917,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" "i37335" "i37336" "i37337" "i37338")) + #("i37331" "i37332" "i37333" "i37334" "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile))) - #{docstring 37370}# + #{docstring 37367}# (vector '(#(syntax-object macro-type @@ -17946,13 +17929,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) . #(syntax-object @@ -17961,13 +17944,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -17975,28 +17958,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) - #{pattern 37372}#)) + #{pattern 37369}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) (cons '#(syntax-object x @@ -18008,17 +17991,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37308"))) + #(ribcage #(x) #((top)) #("i37305"))) (hygiene guile)) - (cons #{k 37369}# - (map (lambda (#{tmp 37347 37374}# - #{tmp 37346 37375}#) + (cons #{k 37366}# + (map (lambda (#{tmp 37344 37371}# + #{tmp 37343 37372}#) (list (cons '#(syntax-object dummy ((top) @@ -18033,11 +18016,11 @@ (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () @@ -18045,10 +18028,10 @@ #(ribcage #(x) #((top)) - #("i37308"))) + #("i37305"))) (hygiene guile)) - #{tmp 37346 37375}#) + #{tmp 37343 37372}#) (list '#(syntax-object syntax ((top) @@ -18063,11 +18046,11 @@ (top) (top) (top)) - #("i37334" - "i37335" - "i37336" - "i37337" - "i37338")) + #("i37331" + "i37332" + "i37333" + "i37334" + "i37335")) #(ribcage () () @@ -18075,50 +18058,50 @@ #(ribcage #(x) #((top)) - #("i37308"))) + #("i37305"))) (hygiene guile)) - #{tmp 37347 37374}#))) - #{template 37373}# - #{pattern 37372}#)))))) - #{tmp 37360}#) + #{tmp 37344 37371}#))) + #{template 37370}# + #{pattern 37369}#)))))) + #{tmp 37357}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37348}#)))))))) + #{x 37345}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 37412}#) - (let ((#{tmp 37414}# - ($sc-dispatch #{x 37412}# '(_ (any . any) any)))) - (if #{tmp 37414}# + (lambda (#{x 37409}#) + (let ((#{tmp 37411}# + ($sc-dispatch #{x 37409}# '(_ (any . any) any)))) + (if #{tmp 37411}# (@apply - (lambda (#{name 37418}# - #{pattern 37419}# - #{template 37420}#) + (lambda (#{name 37415}# + #{pattern 37416}# + #{template 37417}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37389" "i37390" "i37391")) + #("i37386" "i37387" "i37388")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37386"))) + #(ribcage #(x) #((top)) #("i37383"))) (hygiene guile)) - #{name 37418}# + #{name 37415}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37389" "i37390" "i37391")) + #("i37386" "i37387" "i37388")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37386"))) + #(ribcage #(x) #((top)) #("i37383"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -18127,54 +18110,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37389" "i37390" "i37391")) + #("i37386" "i37387" "i37388")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37386"))) + #(ribcage #(x) #((top)) #("i37383"))) (hygiene guile)) - #{pattern 37419}#) - #{template 37420}#)))) - #{tmp 37414}#) - (let ((#{tmp 37421}# + #{pattern 37416}#) + #{template 37417}#)))) + #{tmp 37411}#) + (let ((#{tmp 37418}# ($sc-dispatch - #{x 37412}# + #{x 37409}# '(_ (any . any) any any)))) - (if (if #{tmp 37421}# + (if (if #{tmp 37418}# (@apply - (lambda (#{name 37425}# - #{pattern 37426}# - #{docstring 37427}# - #{template 37428}#) - (string? (syntax->datum #{docstring 37427}#))) - #{tmp 37421}#) + (lambda (#{name 37422}# + #{pattern 37423}# + #{docstring 37424}# + #{template 37425}#) + (string? (syntax->datum #{docstring 37424}#))) + #{tmp 37418}#) #f) (@apply - (lambda (#{name 37429}# - #{pattern 37430}# - #{docstring 37431}# - #{template 37432}#) + (lambda (#{name 37426}# + #{pattern 37427}# + #{docstring 37428}# + #{template 37429}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i37404" "i37405" "i37406" "i37407")) + #("i37401" "i37402" "i37403" "i37404")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37386"))) + #(ribcage #(x) #((top)) #("i37383"))) (hygiene guile)) - #{name 37429}# + #{name 37426}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i37404" "i37405" "i37406" "i37407")) + #("i37401" "i37402" "i37403" "i37404")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37386"))) + #(ribcage #(x) #((top)) #("i37383"))) (hygiene guile)) '() - #{docstring 37431}# + #{docstring 37428}# (list (cons '#(syntax-object _ ((top) @@ -18184,53 +18167,53 @@ docstring template) #((top) (top) (top) (top)) - #("i37404" - "i37405" - "i37406" - "i37407")) + #("i37401" + "i37402" + "i37403" + "i37404")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37386"))) + #("i37383"))) (hygiene guile)) - #{pattern 37430}#) - #{template 37432}#)))) - #{tmp 37421}#) + #{pattern 37427}#) + #{template 37429}#)))) + #{tmp 37418}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37412}#)))))))) + #{x 37409}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 37481}#) - (let ((#{tmp 37483}# + (lambda (#{x 37478}#) + (let ((#{tmp 37480}# ($sc-dispatch - #{x 37481}# + #{x 37478}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 37483}# + (if (if #{tmp 37480}# (@apply - (lambda (#{let* 37487}# - #{x 37488}# - #{v 37489}# - #{e1 37490}# - #{e2 37491}#) - (and-map identifier? #{x 37488}#)) - #{tmp 37483}#) + (lambda (#{let* 37484}# + #{x 37485}# + #{v 37486}# + #{e1 37487}# + #{e2 37488}#) + (and-map identifier? #{x 37485}#)) + #{tmp 37480}#) #f) (@apply - (lambda (#{let* 37492}# - #{x 37493}# - #{v 37494}# - #{e1 37495}# - #{e2 37496}#) + (lambda (#{let* 37489}# + #{x 37490}# + #{v 37491}# + #{e1 37492}# + #{e2 37493}#) (letrec* - ((#{f 37497}# - (lambda (#{bindings 37500}#) - (if (null? #{bindings 37500}#) + ((#{f 37494}# + (lambda (#{bindings 37497}#) + (if (null? #{bindings 37497}#) (cons '#(syntax-object let ((top) @@ -18238,27 +18221,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i37467" "i37468")) + #("i37464" "i37465")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i37457" - "i37458" - "i37459" - "i37460" - "i37461")) + #("i37454" + "i37455" + "i37456" + "i37457" + "i37458")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37443"))) + #(ribcage #(x) #((top)) #("i37440"))) (hygiene guile)) - (cons '() (cons #{e1 37495}# #{e2 37496}#))) - (let ((#{tmp 37501}# - (list (#{f 37497}# (cdr #{bindings 37500}#)) - (car #{bindings 37500}#)))) - (let ((#{tmp 37502}# - ($sc-dispatch #{tmp 37501}# '(any any)))) - (if #{tmp 37502}# + (cons '() (cons #{e1 37492}# #{e2 37493}#))) + (let ((#{tmp 37498}# + (list (#{f 37494}# (cdr #{bindings 37497}#)) + (car #{bindings 37497}#)))) + (let ((#{tmp 37499}# + ($sc-dispatch #{tmp 37498}# '(any any)))) + (if #{tmp 37499}# (@apply - (lambda (#{body 37504}# #{binding 37505}#) + (lambda (#{body 37501}# #{binding 37502}#) (list '#(syntax-object let ((top) @@ -18266,86 +18249,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i37477" "i37478")) + #("i37474" "i37475")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i37467" "i37468")) + #("i37464" "i37465")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i37457" - "i37458" - "i37459" - "i37460" - "i37461")) + #("i37454" + "i37455" + "i37456" + "i37457" + "i37458")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37443"))) + #("i37440"))) (hygiene guile)) - (list #{binding 37505}#) - #{body 37504}#)) - #{tmp 37502}#) + (list #{binding 37502}#) + #{body 37501}#)) + #{tmp 37499}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37501}#)))))))) - (#{f 37497}# (map list #{x 37493}# #{v 37494}#)))) - #{tmp 37483}#) + #{tmp 37498}#)))))))) + (#{f 37494}# (map list #{x 37490}# #{v 37491}#)))) + #{tmp 37480}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37481}#)))))) + #{x 37478}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 37563}#) - (let ((#{tmp 37565}# + (lambda (#{orig-x 37560}#) + (let ((#{tmp 37562}# ($sc-dispatch - #{orig-x 37563}# + #{orig-x 37560}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 37565}# + (if #{tmp 37562}# (@apply - (lambda (#{var 37569}# - #{init 37570}# - #{step 37571}# - #{e0 37572}# - #{e1 37573}# - #{c 37574}#) - (let ((#{tmp 37575}# - (map (lambda (#{v 37578}# #{s 37579}#) - (let ((#{tmp 37581}# - ($sc-dispatch #{s 37579}# '()))) - (if #{tmp 37581}# - (@apply (lambda () #{v 37578}#) #{tmp 37581}#) - (let ((#{tmp 37584}# - ($sc-dispatch #{s 37579}# '(any)))) - (if #{tmp 37584}# + (lambda (#{var 37566}# + #{init 37567}# + #{step 37568}# + #{e0 37569}# + #{e1 37570}# + #{c 37571}#) + (let ((#{tmp 37572}# + (map (lambda (#{v 37575}# #{s 37576}#) + (let ((#{tmp 37578}# + ($sc-dispatch #{s 37576}# '()))) + (if #{tmp 37578}# + (@apply (lambda () #{v 37575}#) #{tmp 37578}#) + (let ((#{tmp 37581}# + ($sc-dispatch #{s 37576}# '(any)))) + (if #{tmp 37581}# (@apply - (lambda (#{e 37587}#) #{e 37587}#) - #{tmp 37584}#) + (lambda (#{e 37584}#) #{e 37584}#) + #{tmp 37581}#) (syntax-violation 'do "bad step expression" - #{orig-x 37563}# - #{s 37579}#)))))) - #{var 37569}# - #{step 37571}#))) - (let ((#{tmp 37576}# - ($sc-dispatch #{tmp 37575}# 'each-any))) - (if #{tmp 37576}# + #{orig-x 37560}# + #{s 37576}#)))))) + #{var 37566}# + #{step 37568}#))) + (let ((#{tmp 37573}# + ($sc-dispatch #{tmp 37572}# 'each-any))) + (if #{tmp 37573}# (@apply - (lambda (#{step 37593}#) - (let ((#{tmp 37595}# ($sc-dispatch #{e1 37573}# '()))) - (if #{tmp 37595}# + (lambda (#{step 37590}#) + (let ((#{tmp 37592}# ($sc-dispatch #{e1 37570}# '()))) + (if #{tmp 37592}# (@apply (lambda () (list '#(syntax-object @@ -18355,7 +18338,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18364,17 +18347,17 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) '#(syntax-object doloop @@ -18383,7 +18366,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18392,19 +18375,19 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - (map list #{var 37569}# #{init 37570}#) + (map list #{var 37566}# #{init 37567}#) (list '#(syntax-object if ((top) @@ -18412,7 +18395,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18421,17 +18404,17 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) (list '#(syntax-object not @@ -18440,7 +18423,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18454,19 +18437,19 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - #{e0 37572}#) + #{e0 37569}#) (cons '#(syntax-object begin ((top) @@ -18474,7 +18457,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18488,20 +18471,20 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) (append - #{c 37574}# + #{c 37571}# (list (cons '#(syntax-object doloop ((top) @@ -18512,7 +18495,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18526,12 +18509,12 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () @@ -18539,30 +18522,30 @@ #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - #{step 37593}#))))))) - #{tmp 37595}#) - (let ((#{tmp 37599}# + #{step 37590}#))))))) + #{tmp 37592}#) + (let ((#{tmp 37596}# ($sc-dispatch - #{e1 37573}# + #{e1 37570}# '(any . each-any)))) - (if #{tmp 37599}# + (if #{tmp 37596}# (@apply - (lambda (#{e1 37603}# #{e2 37604}#) + (lambda (#{e1 37600}# #{e2 37601}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37540" "i37541")) + #("i37537" "i37538")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18571,17 +18554,17 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) '#(syntax-object doloop @@ -18589,12 +18572,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i37540" "i37541")) + #("i37537" "i37538")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18603,33 +18586,33 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) (map list - #{var 37569}# - #{init 37570}#) + #{var 37566}# + #{init 37567}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37540" "i37541")) + #("i37537" "i37538")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18638,32 +18621,32 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - #{e0 37572}# + #{e0 37569}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37540" - "i37541")) + #("i37537" + "i37538")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18677,33 +18660,33 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - (cons #{e1 37603}# - #{e2 37604}#)) + (cons #{e1 37600}# + #{e2 37601}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37540" - "i37541")) + #("i37537" + "i37538")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18717,20 +18700,20 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) (append - #{c 37574}# + #{c 37571}# (list (cons '#(syntax-object doloop ((top) @@ -18739,8 +18722,8 @@ e2) #((top) (top)) - #("i37540" - "i37541")) + #("i37537" + "i37538")) #(ribcage () () @@ -18748,7 +18731,7 @@ #(ribcage #(step) #((top)) - #("i37531")) + #("i37528")) #(ribcage #(var init @@ -18762,12 +18745,12 @@ (top) (top) (top)) - #("i37516" + #("i37513" + "i37514" + "i37515" + "i37516" "i37517" - "i37518" - "i37519" - "i37520" - "i37521")) + "i37518")) #(ribcage () () @@ -18775,36 +18758,36 @@ #(ribcage #(orig-x) #((top)) - #("i37513"))) + #("i37510"))) (hygiene guile)) - #{step 37593}#))))))) - #{tmp 37599}#) + #{step 37590}#))))))) + #{tmp 37596}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 37573}#)))))) - #{tmp 37576}#) + #{e1 37570}#)))))) + #{tmp 37573}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37575}#))))) - #{tmp 37565}#) + #{tmp 37572}#))))) + #{tmp 37562}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 37563}#)))))) + #{orig-x 37560}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 37890}# - (lambda (#{p 37914}# #{lev 37915}#) - (let ((#{tmp 37917}# + ((#{quasi 37887}# + (lambda (#{p 37911}# #{lev 37912}#) + (let ((#{tmp 37914}# ($sc-dispatch - #{p 37914}# + #{p 37911}# '(#(free-id #(syntax-object unquote @@ -18813,7 +18796,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18822,28 +18805,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) any)))) - (if #{tmp 37917}# + (if #{tmp 37914}# (@apply - (lambda (#{p 37921}#) - (if (= #{lev 37915}# 0) + (lambda (#{p 37918}#) + (if (= #{lev 37912}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i37640")) + #(ribcage #(p) #((top)) #("i37637")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18852,25 +18835,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{p 37921}#) - (#{quasicons 37892}# + #{p 37918}#) + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37640")) + #(ribcage #(p) #((top)) #("i37637")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18879,23 +18862,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i37640")) + #(ribcage #(p) #((top)) #("i37637")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18904,21 +18887,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - (list #{p 37921}#) - (#{1-}# #{lev 37915}#))))) - #{tmp 37917}#) - (let ((#{tmp 37924}# + (#{quasi 37887}# + (list #{p 37918}#) + (#{1-}# #{lev 37912}#))))) + #{tmp 37914}#) + (let ((#{tmp 37921}# ($sc-dispatch - #{p 37914}# + #{p 37911}# '(#(free-id #(syntax-object quasiquote @@ -18927,7 +18910,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18936,28 +18919,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) any)))) - (if #{tmp 37924}# + (if #{tmp 37921}# (@apply - (lambda (#{p 37928}#) - (#{quasicons 37892}# + (lambda (#{p 37925}#) + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37643")) + #(ribcage #(p) #((top)) #("i37640")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18966,23 +18949,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i37643")) + #(ribcage #(p) #((top)) #("i37640")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -18991,26 +18974,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - (list #{p 37928}#) - (#{1+}# #{lev 37915}#)))) - #{tmp 37924}#) - (let ((#{tmp 37931}# - ($sc-dispatch #{p 37914}# '(any . any)))) - (if #{tmp 37931}# + (#{quasi 37887}# + (list #{p 37925}#) + (#{1+}# #{lev 37912}#)))) + #{tmp 37921}#) + (let ((#{tmp 37928}# + ($sc-dispatch #{p 37911}# '(any . any)))) + (if #{tmp 37928}# (@apply - (lambda (#{p 37935}# #{q 37936}#) - (let ((#{tmp 37938}# + (lambda (#{p 37932}# #{q 37933}#) + (let ((#{tmp 37935}# ($sc-dispatch - #{p 37935}# + #{p 37932}# '(#(free-id #(syntax-object unquote @@ -19018,12 +19001,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19038,38 +19021,38 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) . each-any)))) - (if #{tmp 37938}# + (if #{tmp 37935}# (@apply - (lambda (#{p 37942}#) - (if (= #{lev 37915}# 0) - (#{quasilist* 37894}# - (map (lambda (#{tmp 37654 37981}#) + (lambda (#{p 37939}#) + (if (= #{lev 37912}# 0) + (#{quasilist* 37891}# + (map (lambda (#{tmp 37651 37978}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37652")) + #("i37649")) #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19084,37 +19067,37 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 37654 37981}#)) - #{p 37942}#) - (#{quasi 37890}# - #{q 37936}# - #{lev 37915}#)) - (#{quasicons 37892}# - (#{quasicons 37892}# + #{tmp 37651 37978}#)) + #{p 37939}#) + (#{quasi 37887}# + #{q 37933}# + #{lev 37912}#)) + (#{quasicons 37889}# + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i37652")) + #("i37649")) #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19129,13 +19112,13 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object unquote @@ -19143,16 +19126,16 @@ #(ribcage #(p) #((top)) - #("i37652")) + #("i37649")) #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19167,24 +19150,24 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - #{p 37942}# - (#{1-}# #{lev 37915}#))) - (#{quasi 37890}# - #{q 37936}# - #{lev 37915}#)))) - #{tmp 37938}#) - (let ((#{tmp 37986}# + (#{quasi 37887}# + #{p 37939}# + (#{1-}# #{lev 37912}#))) + (#{quasi 37887}# + #{q 37933}# + #{lev 37912}#)))) + #{tmp 37935}#) + (let ((#{tmp 37983}# ($sc-dispatch - #{p 37935}# + #{p 37932}# '(#(free-id #(syntax-object unquote-splicing @@ -19192,12 +19175,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19212,40 +19195,40 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) . each-any)))) - (if #{tmp 37986}# + (if #{tmp 37983}# (@apply - (lambda (#{p 37990}#) - (if (= #{lev 37915}# 0) - (#{quasiappend 37893}# - (map (lambda (#{tmp 37659 37993}#) + (lambda (#{p 37987}#) + (if (= #{lev 37912}# 0) + (#{quasiappend 37890}# + (map (lambda (#{tmp 37656 37990}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37657")) + #("i37654")) #(ribcage #(p q) #((top) (top)) - #("i37646" - "i37647")) + #("i37643" + "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" - "i37637")) + #("i37633" + "i37634")) #(ribcage (emit quasivector quasilist* @@ -19260,37 +19243,37 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 37659 37993}#)) - #{p 37990}#) - (#{quasi 37890}# - #{q 37936}# - #{lev 37915}#)) - (#{quasicons 37892}# - (#{quasicons 37892}# + #{tmp 37656 37990}#)) + #{p 37987}#) + (#{quasi 37887}# + #{q 37933}# + #{lev 37912}#)) + (#{quasicons 37889}# + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i37657")) + #("i37654")) #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19305,13 +19288,13 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -19319,16 +19302,16 @@ #(ribcage #(p) #((top)) - #("i37657")) + #("i37654")) #(ribcage #(p q) #((top) (top)) - #("i37646" "i37647")) + #("i37643" "i37644")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19343,57 +19326,57 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - #{p 37990}# - (#{1-}# #{lev 37915}#))) - (#{quasi 37890}# - #{q 37936}# - #{lev 37915}#)))) - #{tmp 37986}#) - (#{quasicons 37892}# - (#{quasi 37890}# - #{p 37935}# - #{lev 37915}#) - (#{quasi 37890}# - #{q 37936}# - #{lev 37915}#))))))) - #{tmp 37931}#) - (let ((#{tmp 38007}# - ($sc-dispatch #{p 37914}# '#(vector each-any)))) - (if #{tmp 38007}# + (#{quasi 37887}# + #{p 37987}# + (#{1-}# #{lev 37912}#))) + (#{quasi 37887}# + #{q 37933}# + #{lev 37912}#)))) + #{tmp 37983}#) + (#{quasicons 37889}# + (#{quasi 37887}# + #{p 37932}# + #{lev 37912}#) + (#{quasi 37887}# + #{q 37933}# + #{lev 37912}#))))))) + #{tmp 37928}#) + (let ((#{tmp 38004}# + ($sc-dispatch #{p 37911}# '#(vector each-any)))) + (if #{tmp 38004}# (@apply - (lambda (#{x 38011}#) - (let ((#{x 38014}# - (#{vquasi 37891}# - #{x 38011}# - #{lev 37915}#))) - (let ((#{tmp 38016}# + (lambda (#{x 38008}#) + (let ((#{x 38011}# + (#{vquasi 37888}# + #{x 38008}# + #{lev 37912}#))) + (let ((#{tmp 38013}# ($sc-dispatch - #{x 38014}# + #{x 38011}# '(#(atom "quote") each-any)))) - (if #{tmp 38016}# + (if #{tmp 38013}# (@apply - (lambda (#{x 38020}#) + (lambda (#{x 38017}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i37764")) + #("i37761")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37761")) + #("i37758")) #(ribcage (emit quasivector quasilist* @@ -19408,36 +19391,36 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - (list->vector #{x 38020}#))) - #{tmp 38016}#) + (list->vector #{x 38017}#))) + #{tmp 38013}#) (letrec* - ((#{f 38022}# - (lambda (#{y 38034}# #{k 38035}#) - (let ((#{tmp 38037}# + ((#{f 38019}# + (lambda (#{y 38031}# #{k 38032}#) + (let ((#{tmp 38034}# ($sc-dispatch - #{y 38034}# + #{y 38031}# '(#(atom "quote") each-any)))) - (if #{tmp 38037}# + (if #{tmp 38034}# (@apply - (lambda (#{y 38040}#) - (#{k 38035}# - (map (lambda (#{tmp 37789 38041}#) + (lambda (#{y 38037}#) + (#{k 38032}# + (map (lambda (#{tmp 37786 38038}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i37787")) + #("i37784")) #(ribcage () () @@ -19449,13 +19432,13 @@ #((top) (top) (top)) - #("i37769" - "i37770" - "i37771")) + #("i37766" + "i37767" + "i37768")) #(ribcage #(_) #((top)) - #("i37767")) + #("i37764")) #(ribcage () () @@ -19463,7 +19446,7 @@ #(ribcage #(x) #((top)) - #("i37761")) + #("i37758")) #(ribcage (emit quasivector quasilist* @@ -19478,51 +19461,51 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 37789 38041}#)) - #{y 38040}#))) - #{tmp 38037}#) - (let ((#{tmp 38042}# + #{tmp 37786 38038}#)) + #{y 38037}#))) + #{tmp 38034}#) + (let ((#{tmp 38039}# ($sc-dispatch - #{y 38034}# + #{y 38031}# '(#(atom "list") . each-any)))) - (if #{tmp 38042}# + (if #{tmp 38039}# (@apply - (lambda (#{y 38045}#) - (#{k 38035}# - #{y 38045}#)) - #{tmp 38042}#) - (let ((#{tmp 38046}# + (lambda (#{y 38042}#) + (#{k 38032}# + #{y 38042}#)) + #{tmp 38039}#) + (let ((#{tmp 38043}# ($sc-dispatch - #{y 38034}# + #{y 38031}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 38046}# + (if #{tmp 38043}# (@apply - (lambda (#{y 38049}# - #{z 38050}#) - (#{f 38022}# - #{z 38050}# - (lambda (#{ls 38051}#) - (#{k 38035}# + (lambda (#{y 38046}# + #{z 38047}#) + (#{f 38019}# + #{z 38047}# + (lambda (#{ls 38048}#) + (#{k 38032}# (append - #{y 38049}# - #{ls 38051}#))))) - #{tmp 38046}#) + #{y 38046}# + #{ls 38048}#))))) + #{tmp 38043}#) (list '#(syntax-object "list->vector" ((top) @@ -19531,14 +19514,14 @@ () ()) #(ribcage - #(#{ g37804}#) - #((m37805 + #(#{ g37801}#) + #((m37802 top)) - #("i37808")) + #("i37805")) #(ribcage #(else) #((top)) - #("i37802")) + #("i37799")) #(ribcage () () @@ -19548,13 +19531,13 @@ #((top) (top) (top)) - #("i37769" - "i37770" - "i37771")) + #("i37766" + "i37767" + "i37768")) #(ribcage #(_) #((top)) - #("i37767")) + #("i37764")) #(ribcage () () @@ -19562,7 +19545,7 @@ #(ribcage #(x) #((top)) - #("i37761")) + #("i37758")) #(ribcage (emit quasivector quasilist* @@ -19577,26 +19560,26 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{x 38014}#)))))))))) - (#{f 38022}# - #{x 38014}# - (lambda (#{ls 38024}#) - (let ((#{tmp 38026}# + #{x 38011}#)))))))))) + (#{f 38019}# + #{x 38011}# + (lambda (#{ls 38021}#) + (let ((#{tmp 38023}# ($sc-dispatch - #{ls 38024}# + #{ls 38021}# 'each-any))) - (if #{tmp 38026}# + (if #{tmp 38023}# (@apply - (lambda (#{ g37777 38029}#) + (lambda (#{ g37774 38026}#) (cons '#(syntax-object "vector" ((top) @@ -19605,9 +19588,9 @@ () ()) #(ribcage - #(#{ g37777}#) - #((m37778 top)) - #("i37782")) + #(#{ g37774}#) + #((m37775 top)) + #("i37779")) #(ribcage () () @@ -19623,11 +19606,11 @@ #(ribcage #(ls) #((top)) - #("i37776")) + #("i37773")) #(ribcage #(_) #((top)) - #("i37767")) + #("i37764")) #(ribcage () () @@ -19635,7 +19618,7 @@ #(ribcage #(x) #((top)) - #("i37761")) + #("i37758")) #(ribcage (emit quasivector quasilist* @@ -19650,30 +19633,30 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{ g37777 38029}#)) - #{tmp 38026}#) + #{ g37774 38026}#)) + #{tmp 38023}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 38024}#)))))))))) - #{tmp 38007}#) + #{ls 38021}#)))))))))) + #{tmp 38004}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37667")) + #(ribcage #(p) #((top)) #("i37664")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37636" "i37637")) + #("i37633" "i37634")) #(ribcage (emit quasivector quasilist* @@ -19688,25 +19671,25 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{p 37914}#))))))))))) - (#{vquasi 37891}# - (lambda (#{p 38079}# #{lev 38080}#) - (let ((#{tmp 38082}# - ($sc-dispatch #{p 38079}# '(any . any)))) - (if #{tmp 38082}# + #{p 37911}#))))))))))) + (#{vquasi 37888}# + (lambda (#{p 38076}# #{lev 38077}#) + (let ((#{tmp 38079}# + ($sc-dispatch #{p 38076}# '(any . any)))) + (if #{tmp 38079}# (@apply - (lambda (#{p 38086}# #{q 38087}#) - (let ((#{tmp 38089}# + (lambda (#{p 38083}# #{q 38084}#) + (let ((#{tmp 38086}# ($sc-dispatch - #{p 38086}# + #{p 38083}# '(#(free-id #(syntax-object unquote @@ -19714,12 +19697,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19734,38 +19717,38 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) . each-any)))) - (if #{tmp 38089}# + (if #{tmp 38086}# (@apply - (lambda (#{p 38093}#) - (if (= #{lev 38080}# 0) - (#{quasilist* 37894}# - (map (lambda (#{tmp 37683 38132}#) + (lambda (#{p 38090}#) + (if (= #{lev 38077}# 0) + (#{quasilist* 37891}# + (map (lambda (#{tmp 37680 38129}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37681")) + #("i37678")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19780,32 +19763,32 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 37683 38132}#)) - #{p 38093}#) - (#{vquasi 37891}# #{q 38087}# #{lev 38080}#)) - (#{quasicons 37892}# - (#{quasicons 37892}# + #{tmp 37680 38129}#)) + #{p 38090}#) + (#{vquasi 37888}# #{q 38084}# #{lev 38077}#)) + (#{quasicons 37889}# + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37681")) + #(ribcage #(p) #((top)) #("i37678")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19820,27 +19803,27 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i37681")) + #(ribcage #(p) #((top)) #("i37678")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19855,22 +19838,22 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - #{p 38093}# - (#{1-}# #{lev 38080}#))) - (#{vquasi 37891}# #{q 38087}# #{lev 38080}#)))) - #{tmp 38089}#) - (let ((#{tmp 38139}# + (#{quasi 37887}# + #{p 38090}# + (#{1-}# #{lev 38077}#))) + (#{vquasi 37888}# #{q 38084}# #{lev 38077}#)))) + #{tmp 38086}#) + (let ((#{tmp 38136}# ($sc-dispatch - #{p 38086}# + #{p 38083}# '(#(free-id #(syntax-object unquote-splicing @@ -19878,12 +19861,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19898,38 +19881,38 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) . each-any)))) - (if #{tmp 38139}# + (if #{tmp 38136}# (@apply - (lambda (#{p 38143}#) - (if (= #{lev 38080}# 0) - (#{quasiappend 37893}# - (map (lambda (#{tmp 37688 38146}#) + (lambda (#{p 38140}#) + (if (= #{lev 38077}# 0) + (#{quasiappend 37890}# + (map (lambda (#{tmp 37685 38143}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37686")) + #("i37683")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19944,34 +19927,34 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 37688 38146}#)) - #{p 38143}#) - (#{vquasi 37891}# - #{q 38087}# - #{lev 38080}#)) - (#{quasicons 37892}# - (#{quasicons 37892}# + #{tmp 37685 38143}#)) + #{p 38140}#) + (#{vquasi 37888}# + #{q 38084}# + #{lev 38077}#)) + (#{quasicons 37889}# + (#{quasicons 37889}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37686")) + #(ribcage #(p) #((top)) #("i37683")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -19986,27 +19969,27 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i37686")) + #(ribcage #(p) #((top)) #("i37683")) #(ribcage #(p q) #((top) (top)) - #("i37675" "i37676")) + #("i37672" "i37673")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -20021,27 +20004,27 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile))) - (#{quasi 37890}# - #{p 38143}# - (#{1-}# #{lev 38080}#))) - (#{vquasi 37891}# - #{q 38087}# - #{lev 38080}#)))) - #{tmp 38139}#) - (#{quasicons 37892}# - (#{quasi 37890}# #{p 38086}# #{lev 38080}#) - (#{vquasi 37891}# #{q 38087}# #{lev 38080}#))))))) - #{tmp 38082}#) - (let ((#{tmp 38164}# ($sc-dispatch #{p 38079}# '()))) - (if #{tmp 38164}# + (#{quasi 37887}# + #{p 38140}# + (#{1-}# #{lev 38077}#))) + (#{vquasi 37888}# + #{q 38084}# + #{lev 38077}#)))) + #{tmp 38136}#) + (#{quasicons 37889}# + (#{quasi 37887}# #{p 38083}# #{lev 38077}#) + (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))))))) + #{tmp 38079}#) + (let ((#{tmp 38161}# ($sc-dispatch #{p 38076}# '()))) + (if #{tmp 38161}# (@apply (lambda () '(#(syntax-object @@ -20051,7 +20034,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37671" "i37672")) + #("i37668" "i37669")) #(ribcage (emit quasivector quasilist* @@ -20060,64 +20043,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) ())) - #{tmp 38164}#) + #{tmp 38161}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 38079}#))))))) - (#{quasicons 37892}# - (lambda (#{x 38177}# #{y 38178}#) - (let ((#{tmp 38179}# (list #{x 38177}# #{y 38178}#))) - (let ((#{tmp 38180}# - ($sc-dispatch #{tmp 38179}# '(any any)))) - (if #{tmp 38180}# + #{p 38076}#))))))) + (#{quasicons 37889}# + (lambda (#{x 38174}# #{y 38175}#) + (let ((#{tmp 38176}# (list #{x 38174}# #{y 38175}#))) + (let ((#{tmp 38177}# + ($sc-dispatch #{tmp 38176}# '(any any)))) + (if #{tmp 38177}# (@apply - (lambda (#{x 38182}# #{y 38183}#) - (let ((#{tmp 38185}# + (lambda (#{x 38179}# #{y 38180}#) + (let ((#{tmp 38182}# ($sc-dispatch - #{y 38183}# + #{y 38180}# '(#(atom "quote") any)))) - (if #{tmp 38185}# + (if #{tmp 38182}# (@apply - (lambda (#{dy 38189}#) - (let ((#{tmp 38191}# + (lambda (#{dy 38186}#) + (let ((#{tmp 38188}# ($sc-dispatch - #{x 38182}# + #{x 38179}# '(#(atom "quote") any)))) - (if #{tmp 38191}# + (if #{tmp 38188}# (@apply - (lambda (#{dx 38195}#) + (lambda (#{dx 38192}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i37710")) + #("i37707")) #(ribcage #(dy) #((top)) - #("i37706")) + #("i37703")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20132,39 +20115,39 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - (cons #{dx 38195}# #{dy 38189}#))) - #{tmp 38191}#) - (if (null? #{dy 38189}#) + (cons #{dx 38192}# #{dy 38186}#))) + #{tmp 38188}#) + (if (null? #{dy 38186}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i37712")) + #("i37709")) #(ribcage #(dy) #((top)) - #("i37706")) + #("i37703")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20179,37 +20162,37 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{x 38182}#) + #{x 38179}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i37712")) + #("i37709")) #(ribcage #(dy) #((top)) - #("i37706")) + #("i37703")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20224,42 +20207,42 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{x 38182}# - #{y 38183}#))))) - #{tmp 38185}#) - (let ((#{tmp 38200}# + #{x 38179}# + #{y 38180}#))))) + #{tmp 38182}#) + (let ((#{tmp 38197}# ($sc-dispatch - #{y 38183}# + #{y 38180}# '(#(atom "list") . any)))) - (if #{tmp 38200}# + (if #{tmp 38197}# (@apply - (lambda (#{stuff 38204}#) + (lambda (#{stuff 38201}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i37715")) + #("i37712")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20274,41 +20257,41 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - (cons #{x 38182}# #{stuff 38204}#))) - #{tmp 38200}#) - (let ((#{tmp 38205}# + (cons #{x 38179}# #{stuff 38201}#))) + #{tmp 38197}#) + (let ((#{tmp 38202}# ($sc-dispatch - #{y 38183}# + #{y 38180}# '(#(atom "list*") . any)))) - (if #{tmp 38205}# + (if #{tmp 38202}# (@apply - (lambda (#{stuff 38209}#) + (lambda (#{stuff 38206}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i37718")) + #("i37715")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20323,31 +20306,31 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - (cons #{x 38182}# #{stuff 38209}#))) - #{tmp 38205}#) + (cons #{x 38179}# #{stuff 38206}#))) + #{tmp 38202}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i37720")) + #(ribcage #(_) #((top)) #("i37717")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37700" "i37701")) + #("i37697" "i37698")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37695" "i37696")) + #("i37692" "i37693")) #(ribcage (emit quasivector quasilist* @@ -20362,29 +20345,29 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{x 38182}# - #{y 38183}#)))))))) - #{tmp 38180}#) + #{x 38179}# + #{y 38180}#)))))))) + #{tmp 38177}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38179}#)))))) - (#{quasiappend 37893}# - (lambda (#{x 38220}# #{y 38221}#) - (let ((#{tmp 38223}# - ($sc-dispatch #{y 38221}# '(#(atom "quote") ())))) - (if #{tmp 38223}# + #{tmp 38176}#)))))) + (#{quasiappend 37890}# + (lambda (#{x 38217}# #{y 38218}#) + (let ((#{tmp 38220}# + ($sc-dispatch #{y 38218}# '(#(atom "quote") ())))) + (if #{tmp 38220}# (@apply (lambda () - (if (null? #{x 38220}#) + (if (null? #{x 38217}#) '(#(syntax-object "quote" ((top) @@ -20392,7 +20375,7 @@ #(ribcage #(x y) #((top) (top)) - #("i37724" "i37725")) + #("i37721" "i37722")) #(ribcage (emit quasivector quasilist* @@ -20401,32 +20384,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) ()) - (if (null? (cdr #{x 38220}#)) - (car #{x 38220}#) - (let ((#{tmp 38228}# - ($sc-dispatch #{x 38220}# 'each-any))) - (if #{tmp 38228}# + (if (null? (cdr #{x 38217}#)) + (car #{x 38217}#) + (let ((#{tmp 38225}# + ($sc-dispatch #{x 38217}# 'each-any))) + (if #{tmp 38225}# (@apply - (lambda (#{p 38232}#) + (lambda (#{p 38229}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i37736")) + #(ribcage #(p) #((top)) #("i37733")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37724" "i37725")) + #("i37721" "i37722")) #(ribcage (emit quasivector quasilist* @@ -20441,29 +20424,29 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{p 38232}#)) - #{tmp 38228}#) + #{p 38229}#)) + #{tmp 38225}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38220}#)))))) - #{tmp 38223}#) - (if (null? #{x 38220}#) - #{y 38221}# - (let ((#{tmp 38240}# (list #{x 38220}# #{y 38221}#))) - (let ((#{tmp 38241}# - ($sc-dispatch #{tmp 38240}# '(each-any any)))) - (if #{tmp 38241}# + #{x 38217}#)))))) + #{tmp 38220}#) + (if (null? #{x 38217}#) + #{y 38218}# + (let ((#{tmp 38237}# (list #{x 38217}# #{y 38218}#))) + (let ((#{tmp 38238}# + ($sc-dispatch #{tmp 38237}# '(each-any any)))) + (if #{tmp 38238}# (@apply - (lambda (#{p 38243}# #{y 38244}#) + (lambda (#{p 38240}# #{y 38241}#) (cons '#(syntax-object "append" ((top) @@ -20471,13 +20454,13 @@ #(ribcage #(p y) #((top) (top)) - #("i37747" "i37748")) - #(ribcage #(_) #((top)) #("i37739")) + #("i37744" "i37745")) + #(ribcage #(_) #((top)) #("i37736")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37724" "i37725")) + #("i37721" "i37722")) #(ribcage (emit quasivector quasilist* @@ -20492,44 +20475,44 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - (append #{p 38243}# (list #{y 38244}#)))) - #{tmp 38241}#) + (append #{p 38240}# (list #{y 38241}#)))) + #{tmp 38238}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38240}#))))))))) - (#{quasilist* 37894}# - (lambda (#{x 38248}# #{y 38249}#) + #{tmp 38237}#))))))))) + (#{quasilist* 37891}# + (lambda (#{x 38245}# #{y 38246}#) (letrec* - ((#{f 38250}# - (lambda (#{x 38354}#) - (if (null? #{x 38354}#) - #{y 38249}# - (#{quasicons 37892}# - (car #{x 38354}#) - (#{f 38250}# (cdr #{x 38354}#))))))) - (#{f 38250}# #{x 38248}#)))) - (#{emit 37896}# - (lambda (#{x 38357}#) - (let ((#{tmp 38359}# - ($sc-dispatch #{x 38357}# '(#(atom "quote") any)))) - (if #{tmp 38359}# + ((#{f 38247}# + (lambda (#{x 38351}#) + (if (null? #{x 38351}#) + #{y 38246}# + (#{quasicons 37889}# + (car #{x 38351}#) + (#{f 38247}# (cdr #{x 38351}#))))))) + (#{f 38247}# #{x 38245}#)))) + (#{emit 37893}# + (lambda (#{x 38354}#) + (let ((#{tmp 38356}# + ($sc-dispatch #{x 38354}# '(#(atom "quote") any)))) + (if #{tmp 38356}# (@apply - (lambda (#{x 38363}#) + (lambda (#{x 38360}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i37814")) - #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37811")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20538,40 +20521,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{x 38363}#)) - #{tmp 38359}#) - (let ((#{tmp 38364}# + #{x 38360}#)) + #{tmp 38356}#) + (let ((#{tmp 38361}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "list") . each-any)))) - (if #{tmp 38364}# + (if #{tmp 38361}# (@apply - (lambda (#{x 38368}#) - (let ((#{tmp 38369}# (map #{emit 37896}# #{x 38368}#))) - (let ((#{tmp 38370}# - ($sc-dispatch #{tmp 38369}# 'each-any))) - (if #{tmp 38370}# + (lambda (#{x 38365}#) + (let ((#{tmp 38366}# (map #{emit 37893}# #{x 38365}#))) + (let ((#{tmp 38367}# + ($sc-dispatch #{tmp 38366}# 'each-any))) + (if #{tmp 38367}# (@apply - (lambda (#{ g37819 38372}#) + (lambda (#{ g37816 38369}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g37819}#) - #((m37820 top)) - #("i37824")) - #(ribcage #(x) #((top)) #("i37817")) + #(#{ g37816}#) + #((m37817 top)) + #("i37821")) + #(ribcage #(x) #((top)) #("i37814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37811")) + #(ribcage #(x) #((top)) #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20586,70 +20569,70 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{ g37819 38372}#)) - #{tmp 38370}#) + #{ g37816 38369}#)) + #{tmp 38367}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38369}#))))) - #{tmp 38364}#) - (let ((#{tmp 38373}# + #{tmp 38366}#))))) + #{tmp 38361}#) + (let ((#{tmp 38370}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 38373}# + (if #{tmp 38370}# (@apply - (lambda (#{x 38377}# #{y 38378}#) + (lambda (#{x 38374}# #{y 38375}#) (letrec* - ((#{f 38379}# - (lambda (#{x* 38382}#) - (if (null? #{x* 38382}#) - (#{emit 37896}# #{y 38378}#) - (let ((#{tmp 38383}# - (list (#{emit 37896}# - (car #{x* 38382}#)) - (#{f 38379}# - (cdr #{x* 38382}#))))) - (let ((#{tmp 38384}# + ((#{f 38376}# + (lambda (#{x* 38379}#) + (if (null? #{x* 38379}#) + (#{emit 37893}# #{y 38375}#) + (let ((#{tmp 38380}# + (list (#{emit 37893}# + (car #{x* 38379}#)) + (#{f 38376}# + (cdr #{x* 38379}#))))) + (let ((#{tmp 38381}# ($sc-dispatch - #{tmp 38383}# + #{tmp 38380}# '(any any)))) - (if #{tmp 38384}# + (if #{tmp 38381}# (@apply - (lambda (#{ g37839 38386}# - #{ g37838 38387}#) + (lambda (#{ g37836 38383}# + #{ g37835 38384}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g37839}# - #{ g37838}#) - #((m37840 top) - (m37840 top)) - #("i37844" "i37845")) + #(#{ g37836}# + #{ g37835}#) + #((m37837 top) + (m37837 top)) + #("i37841" "i37842")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i37833" "i37834")) + #("i37830" "i37831")) #(ribcage #(x y) #((top) (top)) - #("i37829" "i37830")) + #("i37826" "i37827")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37811")) + #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20664,56 +20647,56 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{ g37839 38386}# - #{ g37838 38387}#)) - #{tmp 38384}#) + #{ g37836 38383}# + #{ g37835 38384}#)) + #{tmp 38381}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38383}#)))))))) - (#{f 38379}# #{x 38377}#))) - #{tmp 38373}#) - (let ((#{tmp 38388}# + #{tmp 38380}#)))))))) + (#{f 38376}# #{x 38374}#))) + #{tmp 38370}#) + (let ((#{tmp 38385}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "append") . each-any)))) - (if #{tmp 38388}# + (if #{tmp 38385}# (@apply - (lambda (#{x 38392}#) - (let ((#{tmp 38393}# - (map #{emit 37896}# #{x 38392}#))) - (let ((#{tmp 38394}# + (lambda (#{x 38389}#) + (let ((#{tmp 38390}# + (map #{emit 37893}# #{x 38389}#))) + (let ((#{tmp 38391}# ($sc-dispatch - #{tmp 38393}# + #{tmp 38390}# 'each-any))) - (if #{tmp 38394}# + (if #{tmp 38391}# (@apply - (lambda (#{ g37851 38396}#) + (lambda (#{ g37848 38393}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g37851}#) - #((m37852 top)) - #("i37856")) + #(#{ g37848}#) + #((m37849 top)) + #("i37853")) #(ribcage #(x) #((top)) - #("i37849")) + #("i37846")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37811")) + #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20728,54 +20711,54 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{ g37851 38396}#)) - #{tmp 38394}#) + #{ g37848 38393}#)) + #{tmp 38391}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38393}#))))) - #{tmp 38388}#) - (let ((#{tmp 38397}# + #{tmp 38390}#))))) + #{tmp 38385}#) + (let ((#{tmp 38394}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "vector") . each-any)))) - (if #{tmp 38397}# + (if #{tmp 38394}# (@apply - (lambda (#{x 38401}#) - (let ((#{tmp 38402}# - (map #{emit 37896}# #{x 38401}#))) - (let ((#{tmp 38403}# + (lambda (#{x 38398}#) + (let ((#{tmp 38399}# + (map #{emit 37893}# #{x 38398}#))) + (let ((#{tmp 38400}# ($sc-dispatch - #{tmp 38402}# + #{tmp 38399}# 'each-any))) - (if #{tmp 38403}# + (if #{tmp 38400}# (@apply - (lambda (#{ g37863 38405}#) + (lambda (#{ g37860 38402}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g37863}#) - #((m37864 top)) - #("i37868")) + #(#{ g37860}#) + #((m37861 top)) + #("i37865")) #(ribcage #(x) #((top)) - #("i37861")) + #("i37858")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37811")) + #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20790,47 +20773,47 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{ g37863 38405}#)) - #{tmp 38403}#) + #{ g37860 38402}#)) + #{tmp 38400}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38402}#))))) - #{tmp 38397}#) - (let ((#{tmp 38406}# + #{tmp 38399}#))))) + #{tmp 38394}#) + (let ((#{tmp 38403}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "list->vector") any)))) - (if #{tmp 38406}# + (if #{tmp 38403}# (@apply - (lambda (#{x 38410}#) - (let ((#{tmp 38411}# - (#{emit 37896}# #{x 38410}#))) + (lambda (#{x 38407}#) + (let ((#{tmp 38408}# + (#{emit 37893}# #{x 38407}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g37875}#) - #((m37876 top)) - #("i37879")) + #(#{ g37872}#) + #((m37873 top)) + #("i37876")) #(ribcage #(x) #((top)) - #("i37873")) + #("i37870")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37811")) + #("i37808")) #(ribcage (emit quasivector quasilist* @@ -20845,188 +20828,188 @@ (top) (top) (top)) - ("i37632" - "i37630" - "i37628" - "i37626" - "i37624" - "i37622" - "i37620"))) + ("i37629" + "i37627" + "i37625" + "i37623" + "i37621" + "i37619" + "i37617"))) (hygiene guile)) - #{tmp 38411}#))) - #{tmp 38406}#) - (let ((#{tmp 38414}# + #{tmp 38408}#))) + #{tmp 38403}#) + (let ((#{tmp 38411}# ($sc-dispatch - #{x 38357}# + #{x 38354}# '(#(atom "value") any)))) - (if #{tmp 38414}# + (if #{tmp 38411}# (@apply - (lambda (#{x 38418}#) #{x 38418}#) - #{tmp 38414}#) + (lambda (#{x 38415}#) #{x 38415}#) + #{tmp 38411}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38357}#)))))))))))))))))) - (lambda (#{x 37897}#) - (let ((#{tmp 37899}# - ($sc-dispatch #{x 37897}# '(_ any)))) - (if #{tmp 37899}# + #{x 38354}#)))))))))))))))))) + (lambda (#{x 37894}#) + (let ((#{tmp 37896}# + ($sc-dispatch #{x 37894}# '(_ any)))) + (if #{tmp 37896}# (@apply - (lambda (#{e 37903}#) - (#{emit 37896}# (#{quasi 37890}# #{e 37903}# 0))) - #{tmp 37899}#) + (lambda (#{e 37900}#) + (#{emit 37893}# (#{quasi 37887}# #{e 37900}# 0))) + #{tmp 37896}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37897}#))))))) + #{x 37894}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 38473}#) + (lambda (#{x 38470}#) (letrec* - ((#{read-file 38474}# - (lambda (#{fn 38590}# #{k 38591}#) - (let ((#{p 38592}# (open-input-file #{fn 38590}#))) + ((#{read-file 38471}# + (lambda (#{fn 38587}# #{k 38588}#) + (let ((#{p 38589}# (open-input-file #{fn 38587}#))) (letrec* - ((#{f 38593}# - (lambda (#{x 38650}# #{result 38651}#) - (if (eof-object? #{x 38650}#) + ((#{f 38590}# + (lambda (#{x 38647}# #{result 38648}#) + (if (eof-object? #{x 38647}#) (begin - (close-input-port #{p 38592}#) - (reverse #{result 38651}#)) - (#{f 38593}# - (read #{p 38592}#) - (cons (datum->syntax #{k 38591}# #{x 38650}#) - #{result 38651}#)))))) - (#{f 38593}# (read #{p 38592}#) '())))))) - (let ((#{tmp 38476}# - ($sc-dispatch #{x 38473}# '(any any)))) - (if #{tmp 38476}# + (close-input-port #{p 38589}#) + (reverse #{result 38648}#)) + (#{f 38590}# + (read #{p 38589}#) + (cons (datum->syntax #{k 38588}# #{x 38647}#) + #{result 38648}#)))))) + (#{f 38590}# (read #{p 38589}#) '())))))) + (let ((#{tmp 38473}# + ($sc-dispatch #{x 38470}# '(any any)))) + (if #{tmp 38473}# (@apply - (lambda (#{k 38480}# #{filename 38481}#) - (let ((#{fn 38482}# (syntax->datum #{filename 38481}#))) - (let ((#{tmp 38483}# - (#{read-file 38474}# - #{fn 38482}# - #{filename 38481}#))) - (let ((#{tmp 38484}# - ($sc-dispatch #{tmp 38483}# 'each-any))) - (if #{tmp 38484}# + (lambda (#{k 38477}# #{filename 38478}#) + (let ((#{fn 38479}# (syntax->datum #{filename 38478}#))) + (let ((#{tmp 38480}# + (#{read-file 38471}# + #{fn 38479}# + #{filename 38478}#))) + (let ((#{tmp 38481}# + ($sc-dispatch #{tmp 38480}# 'each-any))) + (if #{tmp 38481}# (@apply - (lambda (#{exp 38502}#) + (lambda (#{exp 38499}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i38470")) + #(ribcage #(exp) #((top)) #("i38467")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38465")) + #(ribcage #(fn) #((top)) #("i38462")) #(ribcage #(k filename) #((top) (top)) - #("i38461" "i38462")) - #(ribcage (read-file) ((top)) ("i38445")) - #(ribcage #(x) #((top)) #("i38444"))) + #("i38458" "i38459")) + #(ribcage (read-file) ((top)) ("i38442")) + #(ribcage #(x) #((top)) #("i38441"))) (hygiene guile)) - #{exp 38502}#)) - #{tmp 38484}#) + #{exp 38499}#)) + #{tmp 38481}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38483}#)))))) - #{tmp 38476}#) + #{tmp 38480}#)))))) + #{tmp 38473}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38473}#))))))) + #{x 38470}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 38670}#) - (let ((#{tmp 38672}# - ($sc-dispatch #{x 38670}# '(any any)))) - (if #{tmp 38672}# + (lambda (#{x 38667}#) + (let ((#{tmp 38669}# + ($sc-dispatch #{x 38667}# '(any any)))) + (if #{tmp 38669}# (@apply - (lambda (#{k 38676}# #{filename 38677}#) - (let ((#{fn 38678}# (syntax->datum #{filename 38677}#))) - (let ((#{tmp 38679}# + (lambda (#{k 38673}# #{filename 38674}#) + (let ((#{fn 38675}# (syntax->datum #{filename 38674}#))) + (let ((#{tmp 38676}# (datum->syntax - #{filename 38677}# - (let ((#{t 38682}# (%search-load-path #{fn 38678}#))) - (if #{t 38682}# - #{t 38682}# + #{filename 38674}# + (let ((#{t 38679}# (%search-load-path #{fn 38675}#))) + (if #{t 38679}# + #{t 38679}# (syntax-violation 'include-from-path "file not found in path" - #{x 38670}# - #{filename 38677}#)))))) + #{x 38667}# + #{filename 38674}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38664")) + #(ribcage #(fn) #((top)) #("i38661")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38660")) + #(ribcage #(fn) #((top)) #("i38657")) #(ribcage #(k filename) #((top) (top)) - #("i38656" "i38657")) + #("i38653" "i38654")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38653"))) + #(ribcage #(x) #((top)) #("i38650"))) (hygiene guile)) - #{tmp 38679}#)))) - #{tmp 38672}#) + #{tmp 38676}#)))) + #{tmp 38669}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38670}#)))))) + #{x 38667}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 38691}#) + (lambda (#{x 38688}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 38691}#)))) + #{x 38688}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 38694}#) + (lambda (#{x 38691}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 38694}#)))) + #{x 38691}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 38750}#) - (let ((#{tmp 38752}# + (lambda (#{x 38747}#) + (let ((#{tmp 38749}# ($sc-dispatch - #{x 38750}# + #{x 38747}# '(_ any any . each-any)))) - (if #{tmp 38752}# + (if #{tmp 38749}# (@apply - (lambda (#{e 38756}# #{m1 38757}# #{m2 38758}#) - (let ((#{tmp 38759}# + (lambda (#{e 38753}# #{m1 38754}# #{m2 38755}#) + (let ((#{tmp 38756}# (letrec* - ((#{f 38820}# - (lambda (#{clause 38823}# #{clauses 38824}#) - (if (null? #{clauses 38824}#) - (let ((#{tmp 38826}# + ((#{f 38817}# + (lambda (#{clause 38820}# #{clauses 38821}#) + (if (null? #{clauses 38821}#) + (let ((#{tmp 38823}# ($sc-dispatch - #{clause 38823}# + #{clause 38820}# '(#(free-id #(syntax-object else @@ -21035,91 +21018,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile))) any . each-any)))) - (if #{tmp 38826}# + (if #{tmp 38823}# (@apply - (lambda (#{e1 38830}# #{e2 38831}#) + (lambda (#{e1 38827}# #{e2 38828}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i38718" "i38719")) + #("i38715" "i38716")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) - (cons #{e1 38830}# #{e2 38831}#))) - #{tmp 38826}#) - (let ((#{tmp 38832}# + (cons #{e1 38827}# #{e2 38828}#))) + #{tmp 38823}#) + (let ((#{tmp 38829}# ($sc-dispatch - #{clause 38823}# + #{clause 38820}# '(each-any any . each-any)))) - (if #{tmp 38832}# + (if #{tmp 38829}# (@apply - (lambda (#{k 38836}# - #{e1 38837}# - #{e2 38838}#) + (lambda (#{k 38833}# + #{e1 38834}# + #{e2 38835}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38724" - "i38725" - "i38726")) + #("i38721" + "i38722" + "i38723")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) (list '#(syntax-object memv @@ -21129,9 +21112,9 @@ #((top) (top) (top)) - #("i38724" - "i38725" - "i38726")) + #("i38721" + "i38722" + "i38723")) #(ribcage () () ()) #(ribcage #(f @@ -21140,22 +21123,22 @@ #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) '#(syntax-object t @@ -21165,9 +21148,9 @@ #((top) (top) (top)) - #("i38724" - "i38725" - "i38726")) + #("i38721" + "i38722" + "i38723")) #(ribcage () () ()) #(ribcage #(f @@ -21176,22 +21159,22 @@ #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) (list '#(syntax-object quote @@ -21201,9 +21184,9 @@ #((top) (top) (top)) - #("i38724" - "i38725" - "i38726")) + #("i38721" + "i38722" + "i38723")) #(ribcage () () @@ -21215,17 +21198,17 @@ #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () @@ -21233,10 +21216,10 @@ #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) - #{k 38836}#)) + #{k 38833}#)) (cons '#(syntax-object begin ((top) @@ -21245,9 +21228,9 @@ #((top) (top) (top)) - #("i38724" - "i38725" - "i38726")) + #("i38721" + "i38722" + "i38723")) #(ribcage () () ()) #(ribcage #(f @@ -21256,76 +21239,76 @@ #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) - (cons #{e1 38837}# - #{e2 38838}#)))) - #{tmp 38832}#) + (cons #{e1 38834}# + #{e2 38835}#)))) + #{tmp 38829}#) (syntax-violation 'case "bad clause" - #{x 38750}# - #{clause 38823}#))))) - (let ((#{tmp 38846}# - (#{f 38820}# - (car #{clauses 38824}#) - (cdr #{clauses 38824}#)))) - (let ((#{tmp 38849}# + #{x 38747}# + #{clause 38820}#))))) + (let ((#{tmp 38843}# + (#{f 38817}# + (car #{clauses 38821}#) + (cdr #{clauses 38821}#)))) + (let ((#{tmp 38846}# ($sc-dispatch - #{clause 38823}# + #{clause 38820}# '(each-any any . each-any)))) - (if #{tmp 38849}# + (if #{tmp 38846}# (@apply - (lambda (#{k 38853}# - #{e1 38854}# - #{e2 38855}#) + (lambda (#{k 38850}# + #{e1 38851}# + #{e2 38852}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38740" - "i38741" - "i38742")) + #("i38737" + "i38738" + "i38739")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38736")) + #("i38733")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) (list '#(syntax-object memv @@ -21333,32 +21316,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38740" - "i38741" - "i38742")) + #("i38737" + "i38738" + "i38739")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38736")) + #("i38733")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) '#(syntax-object t @@ -21366,32 +21349,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38740" - "i38741" - "i38742")) + #("i38737" + "i38738" + "i38739")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38736")) + #("i38733")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) (list '#(syntax-object quote @@ -21401,9 +21384,9 @@ #((top) (top) (top)) - #("i38740" - "i38741" - "i38742")) + #("i38737" + "i38738" + "i38739")) #(ribcage () () @@ -21411,7 +21394,7 @@ #(ribcage #(rest) #((top)) - #("i38736")) + #("i38733")) #(ribcage () () @@ -21423,17 +21406,17 @@ #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () @@ -21441,232 +21424,232 @@ #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) - #{k 38853}#)) + #{k 38850}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38740" - "i38741" - "i38742")) + #("i38737" + "i38738" + "i38739")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38736")) + #("i38733")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38709" - "i38710" - "i38711")) + #("i38706" + "i38707" + "i38708")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" - "i38700" - "i38701")) + #("i38696" + "i38697" + "i38698")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38696"))) + #("i38693"))) (hygiene guile)) - (cons #{e1 38854}# - #{e2 38855}#)) - #{tmp 38846}#)) - #{tmp 38849}#) + (cons #{e1 38851}# + #{e2 38852}#)) + #{tmp 38843}#)) + #{tmp 38846}#) (syntax-violation 'case "bad clause" - #{x 38750}# - #{clause 38823}#)))))))) - (#{f 38820}# #{m1 38757}# #{m2 38758}#)))) - (let ((#{body 38760}# #{tmp 38759}#)) + #{x 38747}# + #{clause 38820}#)))))))) + (#{f 38817}# #{m1 38754}# #{m2 38755}#)))) + (let ((#{body 38757}# #{tmp 38756}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i38707")) + #(ribcage #(body) #((top)) #("i38704")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" "i38700" "i38701")) + #("i38696" "i38697" "i38698")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38696"))) + #(ribcage #(x) #((top)) #("i38693"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i38707")) + #(ribcage #(body) #((top)) #("i38704")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38699" "i38700" "i38701")) + #("i38696" "i38697" "i38698")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38696"))) + #(ribcage #(x) #((top)) #("i38693"))) (hygiene guile)) - #{e 38756}#)) - #{body 38760}#)))) - #{tmp 38752}#) + #{e 38753}#)) + #{body 38757}#)))) + #{tmp 38749}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38750}#)))))) + #{x 38747}#)))))) (define make-variable-transformer - (lambda (#{proc 38873}#) - (if (procedure? #{proc 38873}#) + (lambda (#{proc 38870}#) + (if (procedure? #{proc 38870}#) (letrec* - ((#{trans 38874}# - (lambda (#{x 38880}#) - (#{proc 38873}# #{x 38880}#)))) + ((#{trans 38871}# + (lambda (#{x 38877}#) + (#{proc 38870}# #{x 38877}#)))) (begin (set-procedure-property! - #{trans 38874}# + #{trans 38871}# 'variable-transformer #t) - #{trans 38874}#)) + #{trans 38871}#)) (error "variable transformer not a procedure" - #{proc 38873}#)))) + #{proc 38870}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 38912}#) - (let ((#{tmp 38914}# - ($sc-dispatch #{x 38912}# '(_ any)))) - (if #{tmp 38914}# + (lambda (#{x 38909}#) + (let ((#{tmp 38911}# + ($sc-dispatch #{x 38909}# '(_ any)))) + (if #{tmp 38911}# (@apply - (lambda (#{e 38918}#) + (lambda (#{e 38915}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) - #{e 38918}#)) + #{e 38915}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38887")) + #(ribcage #(e) #((top)) #("i38884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) - (cons #{e 38918}# + (cons #{e 38915}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i38887")) + #("i38884")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) #(syntax-object ... @@ -21674,55 +21657,55 @@ #(ribcage #(e) #((top)) - #("i38887")) + #("i38884")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile))))))))) - #{tmp 38914}#) - (let ((#{tmp 38919}# + #{tmp 38911}#) + (let ((#{tmp 38916}# ($sc-dispatch - #{x 38912}# + #{x 38909}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 38919}# + (if (if #{tmp 38916}# (@apply - (lambda (#{id 38923}# - #{exp1 38924}# - #{var 38925}# - #{val 38926}# - #{exp2 38927}#) - (if (identifier? #{id 38923}#) - (identifier? #{var 38925}#) + (lambda (#{id 38920}# + #{exp1 38921}# + #{var 38922}# + #{val 38923}# + #{exp2 38924}#) + (if (identifier? #{id 38920}#) + (identifier? #{var 38922}#) #f)) - #{tmp 38919}#) + #{tmp 38916}#) #f) (@apply - (lambda (#{id 38928}# - #{exp1 38929}# - #{var 38930}# - #{val 38931}# - #{exp2 38932}#) + (lambda (#{id 38925}# + #{exp1 38926}# + #{var 38927}# + #{val 38928}# + #{exp2 38929}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" "i38903" "i38904" "i38905" "i38906")) + #("i38899" "i38900" "i38901" "i38902" "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) (list '#(syntax-object lambda @@ -21730,13 +21713,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '(#(syntax-object x @@ -21744,13 +21727,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -21758,13 +21741,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) . #(syntax-object @@ -21773,13 +21756,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -21787,13 +21770,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '#(syntax-object x @@ -21801,13 +21784,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile)) '(#(syntax-object set! @@ -21815,13 +21798,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38884"))) + #(ribcage #(x) #((top)) #("i38881"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -21833,19 +21816,19 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) - #{var 38930}# - #{val 38931}#) + #{var 38927}# + #{val 38928}#) (list '#(syntax-object syntax ((top) @@ -21856,19 +21839,19 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) - #{exp2 38932}#)) - (list (cons #{id 38928}# + #{exp2 38929}#)) + (list (cons #{id 38925}# '(#(syntax-object x ((top) @@ -21879,16 +21862,16 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) #(syntax-object ... @@ -21900,16 +21883,16 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -21921,18 +21904,18 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) - (cons #{exp1 38929}# + (cons #{exp1 38926}# '(#(syntax-object x ((top) @@ -21947,16 +21930,16 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) #(syntax-object ... @@ -21972,18 +21955,18 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)))))) - (list #{id 38928}# + (list #{id 38925}# (list '#(syntax-object identifier? ((top) @@ -21994,16 +21977,16 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) (list '#(syntax-object syntax @@ -22019,18 +22002,18 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) - #{id 38928}#)) + #{id 38925}#)) (list '#(syntax-object syntax ((top) @@ -22041,68 +22024,68 @@ (top) (top) (top)) - #("i38902" - "i38903" - "i38904" - "i38905" - "i38906")) + #("i38899" + "i38900" + "i38901" + "i38902" + "i38903")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38884"))) + #("i38881"))) (hygiene guile)) - #{exp1 38929}#)))))) - #{tmp 38919}#) + #{exp1 38926}#)))))) + #{tmp 38916}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38912}#)))))))) + #{x 38909}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 38964}#) - (let ((#{tmp 38966}# + (lambda (#{x 38961}#) + (let ((#{tmp 38963}# ($sc-dispatch - #{x 38964}# + #{x 38961}# '(_ (any . any) any . each-any)))) - (if #{tmp 38966}# + (if #{tmp 38963}# (@apply - (lambda (#{id 38970}# - #{args 38971}# - #{b0 38972}# - #{b1 38973}#) + (lambda (#{id 38967}# + #{args 38968}# + #{b0 38969}# + #{b1 38970}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i38946" "i38947" "i38948" "i38949")) + #("i38943" "i38944" "i38945" "i38946")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38943"))) + #(ribcage #(x) #((top)) #("i38940"))) (hygiene guile)) - #{id 38970}# + #{id 38967}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i38946" "i38947" "i38948" "i38949")) + #("i38943" "i38944" "i38945" "i38946")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38943"))) + #(ribcage #(x) #((top)) #("i38940"))) (hygiene guile)) - (cons #{args 38971}# - (cons #{b0 38972}# #{b1 38973}#))))) - #{tmp 38966}#) - (let ((#{tmp 38974}# - ($sc-dispatch #{x 38964}# '(_ any any)))) - (if (if #{tmp 38974}# + (cons #{args 38968}# + (cons #{b0 38969}# #{b1 38970}#))))) + #{tmp 38963}#) + (let ((#{tmp 38971}# + ($sc-dispatch #{x 38961}# '(_ any any)))) + (if (if #{tmp 38971}# (@apply - (lambda (#{id 38978}# #{val 38979}#) + (lambda (#{id 38975}# #{val 38976}#) (identifier? '#(syntax-object x @@ -22110,29 +22093,29 @@ #(ribcage #(id val) #((top) (top)) - #("i38956" "i38957")) + #("i38953" "i38954")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38943"))) + #(ribcage #(x) #((top)) #("i38940"))) (hygiene guile)))) - #{tmp 38974}#) + #{tmp 38971}#) #f) (@apply - (lambda (#{id 38980}# #{val 38981}#) + (lambda (#{id 38977}# #{val 38978}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i38960" "i38961")) + #("i38957" "i38958")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38943"))) + #(ribcage #(x) #((top)) #("i38940"))) (hygiene guile)) - #{id 38980}# - #{val 38981}#)) - #{tmp 38974}#) + #{id 38977}# + #{val 38978}#)) + #{tmp 38971}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38964}#)))))))) + #{x 38961}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 1717ba506..07bb0e4ed 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -916,137 +916,129 @@ ;; in reversed order exps) (else - (call-with-values - (lambda () - (call-with-values - (lambda () - (let ((e (car body))) - (syntax-type e r w (or (source-annotation e) s) #f mod #f))) - (lambda (type value e w s mod) - (case type - ((begin-form) - (syntax-case e () - ((_) exps) - ((_ e1 e2 ...) - (scan #'(e1 e2 ...) r w s m esew mod exps)))) - ((local-syntax-form) - (chi-local-syntax value e r w s mod - (lambda (body r w s mod) - (scan body r w s m esew mod exps)))) - ((eval-when-form) - (syntax-case e () - ((_ (x ...) e1 e2 ...) - (let ((when-list (chi-when-list e #'(x ...) w)) - (body #'(e1 e2 ...))) - (cond - ((eq? m 'e) - (if (memq 'eval when-list) - (scan body r w s - (if (memq 'expand when-list) 'c&e 'e) - '(eval) - mod exps) - (begin - (if (memq 'expand when-list) - (top-level-eval-hook - (chi-top-sequence body r w s 'e '(eval) mod) - mod)) - (values exps)))) - ((memq 'load when-list) - (if (or (memq 'compile when-list) - (memq 'expand when-list) - (and (eq? m 'c&e) (memq 'eval when-list))) - (scan body r w s 'c&e '(compile load) mod exps) - (if (memq m '(c c&e)) - (scan body r w s 'c '(load) mod exps) - (values exps)))) - ((or (memq 'compile when-list) - (memq 'expand when-list) - (and (eq? m 'c&e) (memq 'eval when-list))) - (top-level-eval-hook - (chi-top-sequence body r w s 'e '(eval) mod) - mod) - (values exps)) - (else - (values exps))))))) - ((define-syntax-form) - (let ((n (id-var-name value w)) (r (macros-only-env r))) - (case m - ((c) - (if (memq 'compile esew) - (let ((e (chi-install-global n (chi e r w mod)))) - (top-level-eval-hook e mod) - (if (memq 'load esew) - (values (cons e exps)) - (values exps))) - (if (memq 'load esew) - (values (cons (chi-install-global n (chi e r w mod)) - exps)) - (values exps)))) - ((c&e) - (let ((e (chi-install-global n (chi e r w mod)))) - (top-level-eval-hook e mod) - (values (cons e exps)))) - (else - (if (memq 'eval esew) - (top-level-eval-hook - (chi-install-global n (chi e r w mod)) - mod)) - (values exps))))) - ((define-form) - (let* ((n (id-var-name value w)) - ;; Lookup the name in the module of the define form. - (type (binding-type (lookup n r mod)))) - (case type - ((global core macro module-ref) - ;; affect compile-time environment (once we have booted) - (if (and (memq m '(c c&e)) - (not (module-local-variable (current-module) n)) - (current-module)) - (let ((old (module-variable (current-module) n))) - ;; use value of the same-named imported variable, if - ;; any - (if (and (variable? old) (variable-bound? old)) - (module-define! (current-module) n (variable-ref old)) - (module-add! (current-module) n (make-undefined-variable))))) - (values - (cons - (if (eq? m 'c&e) - (let ((x (build-global-definition s n (chi e r w mod)))) - (top-level-eval-hook x mod) - x) - (lambda () - (build-global-definition s n (chi e r w mod)))) - exps))) - ((displaced-lexical) - (syntax-violation #f "identifier out of context" - e (wrap value w mod))) - (else - (syntax-violation #f "cannot define keyword at top level" - e (wrap value w mod)))))) + (scan + (cdr body) r w s m esew mod + (call-with-values + (lambda () + (let ((e (car body))) + (syntax-type e r w (or (source-annotation e) s) #f mod #f))) + (lambda (type value e w s mod) + (case type + ((begin-form) + (syntax-case e () + ((_) exps) + ((_ e1 e2 ...) + (scan #'(e1 e2 ...) r w s m esew mod exps)))) + ((local-syntax-form) + (chi-local-syntax value e r w s mod + (lambda (body r w s mod) + (scan body r w s m esew mod exps)))) + ((eval-when-form) + (syntax-case e () + ((_ (x ...) e1 e2 ...) + (let ((when-list (chi-when-list e #'(x ...) w)) + (body #'(e1 e2 ...))) + (cond + ((eq? m 'e) + (if (memq 'eval when-list) + (scan body r w s + (if (memq 'expand when-list) 'c&e 'e) + '(eval) + mod exps) + (begin + (if (memq 'expand when-list) + (top-level-eval-hook + (chi-top-sequence body r w s 'e '(eval) mod) + mod)) + exps))) + ((memq 'load when-list) + (if (or (memq 'compile when-list) + (memq 'expand when-list) + (and (eq? m 'c&e) (memq 'eval when-list))) + (scan body r w s 'c&e '(compile load) mod exps) + (if (memq m '(c c&e)) + (scan body r w s 'c '(load) mod exps) + exps))) + ((or (memq 'compile when-list) + (memq 'expand when-list) + (and (eq? m 'c&e) (memq 'eval when-list))) + (top-level-eval-hook + (chi-top-sequence body r w s 'e '(eval) mod) + mod) + exps) + (else + exps)))))) + ((define-syntax-form) + (let ((n (id-var-name value w)) (r (macros-only-env r))) + (case m + ((c) + (if (memq 'compile esew) + (let ((e (chi-install-global n (chi e r w mod)))) + (top-level-eval-hook e mod) + (if (memq 'load esew) + (cons e exps) + exps)) + (if (memq 'load esew) + (cons (chi-install-global n (chi e r w mod)) + exps) + exps))) + ((c&e) + (let ((e (chi-install-global n (chi e r w mod)))) + (top-level-eval-hook e mod) + (cons e exps))) (else - (values (cons - (if (eq? m 'c&e) - (let ((x (chi-expr type value e r w s mod))) - (top-level-eval-hook x mod) - x) - (lambda () - (chi-expr type value e r w s mod))) - exps))))))) - (lambda (exps) - (scan (cdr body) r w s m esew mod exps)))))) - - (call-with-values (lambda () - (scan body r w s m esew mod '())) - (lambda (exps) - (if (null? exps) - (build-void s) - (build-sequence - s - (let lp ((in exps) (out '())) - (if (null? in) out - (let ((e (car in))) - (lp (cdr in) - (cons (if (procedure? e) (e) e) out))))))))))) + (if (memq 'eval esew) + (top-level-eval-hook + (chi-install-global n (chi e r w mod)) + mod)) + exps)))) + ((define-form) + (let* ((n (id-var-name value w)) + ;; Lookup the name in the module of the define form. + (type (binding-type (lookup n r mod)))) + (case type + ((global core macro module-ref) + ;; affect compile-time environment (once we have booted) + (if (and (memq m '(c c&e)) + (not (module-local-variable (current-module) n)) + (current-module)) + (let ((old (module-variable (current-module) n))) + ;; use value of the same-named imported variable, if + ;; any + (if (and (variable? old) (variable-bound? old)) + (module-define! (current-module) n (variable-ref old)) + (module-add! (current-module) n (make-undefined-variable))))) + (cons (if (eq? m 'c&e) + (let ((x (build-global-definition s n (chi e r w mod)))) + (top-level-eval-hook x mod) + x) + (lambda () + (build-global-definition s n (chi e r w mod)))) + exps)) + ((displaced-lexical) + (syntax-violation #f "identifier out of context" + e (wrap value w mod))) + (else + (syntax-violation #f "cannot define keyword at top level" + e (wrap value w mod)))))) + (else + (cons (if (eq? m 'c&e) + (let ((x (chi-expr type value e r w s mod))) + (top-level-eval-hook x mod) + x) + (lambda () + (chi-expr type value e r w s mod))) + exps))))))))) + (let ((exps (scan body r w s m esew mod '()))) + (if (null? exps) + (build-void s) + (build-sequence + s + (let lp ((in exps) (out '())) + (if (null? in) out + (let ((e (car in))) + (lp (cdr in) + (cons (if (procedure? e) (e) e) out)))))))))) (define chi-install-global (lambda (name e)