diff options
author | Andy Wingo <wingo@pobox.com> | 2011-10-28 11:41:08 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-10-28 11:41:08 +0200 |
commit | dd64fe65fd3b93b469d6286df3dd135aaec6756e (patch) | |
tree | 3b7bbb13af2584283babcd4414b04776a3d9bec5 | |
parent | d5a4f51f9ccffe6b7850d276e23de2841c1a88b3 (diff) | |
download | guile-dd64fe65fd3b93b469d6286df3dd135aaec6756e.tar.gz |
regenerate psyntax-pp
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 16676 |
1 files changed, 8338 insertions, 8338 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 2d9485660..dbd1ace7a 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -3,1963 +3,1963 @@ (letrec* ((#{top-level-eval-hook 4302}# - (lambda (#{x 36532}# #{mod 36533}#) - (primitive-eval #{x 36532}#))) + (lambda (#{x 36832}# #{mod 36833}#) + (primitive-eval #{x 36832}#))) (#{maybe-name-value! 4307}# - (lambda (#{name 19324}# #{val 19325}#) - (if (if (struct? #{val 19325}#) - (eq? (struct-vtable #{val 19325}#) + (lambda (#{name 19451}# #{val 19452}#) + (if (if (struct? #{val 19452}#) + (eq? (struct-vtable #{val 19452}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19332}# (struct-ref #{val 19325}# 1))) - (if (not (assq 'name #{meta 19332}#)) - (let ((#{v 19337}# - (cons (cons 'name #{name 19324}#) #{meta 19332}#))) - (struct-set! #{val 19325}# 1 #{v 19337}#))))))) + (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 19069}# - #{fun-exp 19070}# - #{arg-exps 19071}#) + (lambda (#{source 19196}# + #{fun-exp 19197}# + #{arg-exps 19198}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 19069}# - #{fun-exp 19070}# - #{arg-exps 19071}#))) + #{source 19196}# + #{fun-exp 19197}# + #{arg-exps 19198}#))) (#{build-conditional 4310}# - (lambda (#{source 19077}# - #{test-exp 19078}# - #{then-exp 19079}# - #{else-exp 19080}#) + (lambda (#{source 19204}# + #{test-exp 19205}# + #{then-exp 19206}# + #{else-exp 19207}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 19077}# - #{test-exp 19078}# - #{then-exp 19079}# - #{else-exp 19080}#))) + #{source 19204}# + #{test-exp 19205}# + #{then-exp 19206}# + #{else-exp 19207}#))) (#{build-dynlet 4311}# - (lambda (#{source 19087}# - #{fluids 19088}# - #{vals 19089}# - #{body 19090}#) + (lambda (#{source 19214}# + #{fluids 19215}# + #{vals 19216}# + #{body 19217}#) (make-struct/no-tail (vector-ref %expanded-vtables 18) - #{source 19087}# - #{fluids 19088}# - #{vals 19089}# - #{body 19090}#))) + #{source 19214}# + #{fluids 19215}# + #{vals 19216}# + #{body 19217}#))) (#{build-lexical-reference 4312}# - (lambda (#{type 36534}# - #{source 36535}# - #{name 36536}# - #{var 36537}#) + (lambda (#{type 36834}# + #{source 36835}# + #{name 36836}# + #{var 36837}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 36535}# - #{name 36536}# - #{var 36537}#))) + #{source 36835}# + #{name 36836}# + #{var 36837}#))) (#{build-lexical-assignment 4313}# - (lambda (#{source 19097}# - #{name 19098}# - #{var 19099}# - #{exp 19100}#) + (lambda (#{source 19224}# + #{name 19225}# + #{var 19226}# + #{exp 19227}#) (begin - (if (if (struct? #{exp 19100}#) - (eq? (struct-vtable #{exp 19100}#) + (if (if (struct? #{exp 19227}#) + (eq? (struct-vtable #{exp 19227}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19116}# (struct-ref #{exp 19100}# 1))) - (if (not (assq 'name #{meta 19116}#)) - (let ((#{v 19123}# - (cons (cons 'name #{name 19098}#) #{meta 19116}#))) - (struct-set! #{exp 19100}# 1 #{v 19123}#))))) + (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}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 19097}# - #{name 19098}# - #{var 19099}# - #{exp 19100}#)))) + #{source 19224}# + #{name 19225}# + #{var 19226}# + #{exp 19227}#)))) (#{analyze-variable 4314}# - (lambda (#{mod 36543}# - #{var 36544}# - #{modref-cont 36545}# - #{bare-cont 36546}#) - (if (not #{mod 36543}#) - (#{bare-cont 36546}# #{var 36544}#) - (let ((#{kind 36547}# (car #{mod 36543}#)) - (#{mod 36548}# (cdr #{mod 36543}#))) - (if (eqv? #{kind 36547}# 'public) - (#{modref-cont 36545}# - #{mod 36548}# - #{var 36544}# + (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}# #t) - (if (eqv? #{kind 36547}# 'private) + (if (eqv? #{kind 36847}# 'private) (if (not (equal? - #{mod 36548}# + #{mod 36848}# (module-name (current-module)))) - (#{modref-cont 36545}# - #{mod 36548}# - #{var 36544}# + (#{modref-cont 36845}# + #{mod 36848}# + #{var 36844}# #f) - (#{bare-cont 36546}# #{var 36544}#)) - (if (eqv? #{kind 36547}# 'bare) - (#{bare-cont 36546}# #{var 36544}#) - (if (eqv? #{kind 36547}# 'hygiene) + (#{bare-cont 36846}# #{var 36844}#)) + (if (eqv? #{kind 36847}# 'bare) + (#{bare-cont 36846}# #{var 36844}#) + (if (eqv? #{kind 36847}# 'hygiene) (if (if (not (equal? - #{mod 36548}# + #{mod 36848}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 36548}#) - #{var 36544}#) + (resolve-module #{mod 36848}#) + #{var 36844}#) #f) - (#{modref-cont 36545}# - #{mod 36548}# - #{var 36544}# + (#{modref-cont 36845}# + #{mod 36848}# + #{var 36844}# #f) - (#{bare-cont 36546}# #{var 36544}#)) + (#{bare-cont 36846}# #{var 36844}#)) (syntax-violation #f "bad module kind" - #{var 36544}# - #{mod 36548}#))))))))) + #{var 36844}# + #{mod 36848}#))))))))) (#{build-global-reference 4315}# - (lambda (#{source 36563}# #{var 36564}# #{mod 36565}#) + (lambda (#{source 36863}# #{var 36864}# #{mod 36865}#) (#{analyze-variable 4314}# - #{mod 36565}# - #{var 36564}# - (lambda (#{mod 36568}# #{var 36569}# #{public? 36570}#) + #{mod 36865}# + #{var 36864}# + (lambda (#{mod 36868}# #{var 36869}# #{public? 36870}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 36563}# - #{mod 36568}# - #{var 36569}# - #{public? 36570}#)) - (lambda (#{var 36577}#) + #{source 36863}# + #{mod 36868}# + #{var 36869}# + #{public? 36870}#)) + (lambda (#{var 36877}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 36563}# - #{var 36577}#))))) + #{source 36863}# + #{var 36877}#))))) (#{build-global-assignment 4316}# - (lambda (#{source 19132}# - #{var 19133}# - #{exp 19134}# - #{mod 19135}#) + (lambda (#{source 19259}# + #{var 19260}# + #{exp 19261}# + #{mod 19262}#) (begin - (if (if (struct? #{exp 19134}#) - (eq? (struct-vtable #{exp 19134}#) + (if (if (struct? #{exp 19261}#) + (eq? (struct-vtable #{exp 19261}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19151}# (struct-ref #{exp 19134}# 1))) - (if (not (assq 'name #{meta 19151}#)) - (let ((#{v 19158}# - (cons (cons 'name #{var 19133}#) #{meta 19151}#))) - (struct-set! #{exp 19134}# 1 #{v 19158}#))))) + (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 19135}# - #{var 19133}# - (lambda (#{mod 19163}# #{var 19164}# #{public? 19165}#) + #{mod 19262}# + #{var 19260}# + (lambda (#{mod 19290}# #{var 19291}# #{public? 19292}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 19132}# - #{mod 19163}# - #{var 19164}# - #{public? 19165}# - #{exp 19134}#)) - (lambda (#{var 19173}#) + #{source 19259}# + #{mod 19290}# + #{var 19291}# + #{public? 19292}# + #{exp 19261}#)) + (lambda (#{var 19300}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 19132}# - #{var 19173}# - #{exp 19134}#)))))) + #{source 19259}# + #{var 19300}# + #{exp 19261}#)))))) (#{build-global-definition 4317}# - (lambda (#{source 36582}# #{var 36583}# #{exp 36584}#) + (lambda (#{source 36882}# #{var 36883}# #{exp 36884}#) (begin - (if (if (struct? #{exp 36584}#) - (eq? (struct-vtable #{exp 36584}#) + (if (if (struct? #{exp 36884}#) + (eq? (struct-vtable #{exp 36884}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 36600}# (struct-ref #{exp 36584}# 1))) - (if (not (assq 'name #{meta 36600}#)) - (let ((#{v 36607}# - (cons (cons 'name #{var 36583}#) #{meta 36600}#))) - (struct-set! #{exp 36584}# 1 #{v 36607}#))))) + (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}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 36582}# - #{var 36583}# - #{exp 36584}#)))) + #{source 36882}# + #{var 36883}# + #{exp 36884}#)))) (#{build-simple-lambda 4318}# - (lambda (#{src 19179}# - #{req 19180}# - #{rest 19181}# - #{vars 19182}# - #{meta 19183}# - #{exp 19184}#) - (let ((#{body 19190}# + (lambda (#{src 19306}# + #{req 19307}# + #{rest 19308}# + #{vars 19309}# + #{meta 19310}# + #{exp 19311}#) + (let ((#{body 19317}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 19179}# - #{req 19180}# + #{src 19306}# + #{req 19307}# #f - #{rest 19181}# + #{rest 19308}# #f '() - #{vars 19182}# - #{exp 19184}# + #{vars 19309}# + #{exp 19311}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 19179}# - #{meta 19183}# - #{body 19190}#)))) + #{src 19306}# + #{meta 19310}# + #{body 19317}#)))) (#{build-primcall 4321}# - (lambda (#{src 19202}# #{name 19203}# #{args 19204}#) + (lambda (#{src 19329}# #{name 19330}# #{args 19331}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 19202}# - #{name 19203}# - #{args 19204}#))) + #{src 19329}# + #{name 19330}# + #{args 19331}#))) (#{build-sequence 4324}# - (lambda (#{src 36615}# #{exps 36616}#) - (if (null? (cdr #{exps 36616}#)) - (car #{exps 36616}#) - (let ((#{head 36620}# (car #{exps 36616}#)) - (#{tail 36621}# - (#{build-sequence 4324}# #f (cdr #{exps 36616}#)))) + (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}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 36615}# - #{head 36620}# - #{tail 36621}#))))) + #{src 36915}# + #{head 36920}# + #{tail 36921}#))))) (#{build-named-let 4326}# - (lambda (#{src 19210}# - #{ids 19211}# - #{vars 19212}# - #{val-exps 19213}# - #{body-exp 19214}#) - (let ((#{f 19215}# (car #{vars 19212}#)) - (#{f-name 19216}# (car #{ids 19211}#)) - (#{vars 19217}# (cdr #{vars 19212}#)) - (#{ids 19218}# (cdr #{ids 19211}#))) - (let ((#{proc 19219}# - (let ((#{body 19239}# + (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}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 19210}# - #{ids 19218}# + #{src 19337}# + #{ids 19345}# #f #f #f '() - #{vars 19217}# - #{body-exp 19214}# + #{vars 19344}# + #{body-exp 19341}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 19210}# + #{src 19337}# '() - #{body 19239}#)))) + #{body 19366}#)))) (begin - (if (if (struct? #{proc 19219}#) - (eq? (struct-vtable #{proc 19219}#) + (if (if (struct? #{proc 19346}#) + (eq? (struct-vtable #{proc 19346}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 19263}# (struct-ref #{proc 19219}# 1))) - (if (not (assq 'name #{meta 19263}#)) - (let ((#{v 19270}# - (cons (cons 'name #{f-name 19216}#) - #{meta 19263}#))) - (struct-set! #{proc 19219}# 1 #{v 19270}#))))) + (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}#))))) (for-each #{maybe-name-value! 4307}# - #{ids 19218}# - #{val-exps 19213}#) - (let ((#{names 19294}# (list #{f-name 19216}#)) - (#{gensyms 19295}# (list #{f 19215}#)) - (#{vals 19296}# (list #{proc 19219}#)) - (#{body 19297}# - (let ((#{fun-exp 19301}# + #{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}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 19210}# - #{f-name 19216}# - #{f 19215}#))) + #{src 19337}# + #{f-name 19343}# + #{f 19342}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 19210}# - #{fun-exp 19301}# - #{val-exps 19213}#)))) + #{src 19337}# + #{fun-exp 19428}# + #{val-exps 19340}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 19210}# + #{src 19337}# #f - #{names 19294}# - #{gensyms 19295}# - #{vals 19296}# - #{body 19297}#))))))) + #{names 19421}# + #{gensyms 19422}# + #{vals 19423}# + #{body 19424}#))))))) (#{build-letrec 4327}# - (lambda (#{src 19317}# - #{in-order? 19318}# - #{ids 19319}# - #{vars 19320}# - #{val-exps 19321}# - #{body-exp 19322}#) - (if (null? #{vars 19320}#) - #{body-exp 19322}# + (lambda (#{src 19444}# + #{in-order? 19445}# + #{ids 19446}# + #{vars 19447}# + #{val-exps 19448}# + #{body-exp 19449}#) + (if (null? #{vars 19447}#) + #{body-exp 19449}# (begin (for-each #{maybe-name-value! 4307}# - #{ids 19319}# - #{val-exps 19321}#) + #{ids 19446}# + #{val-exps 19448}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 19317}# - #{in-order? 19318}# - #{ids 19319}# - #{vars 19320}# - #{val-exps 19321}# - #{body-exp 19322}#))))) + #{src 19444}# + #{in-order? 19445}# + #{ids 19446}# + #{vars 19447}# + #{val-exps 19448}# + #{body-exp 19449}#))))) (#{source-annotation 4336}# - (lambda (#{x 19348}#) - (if (if (vector? #{x 19348}#) - (if (= (vector-length #{x 19348}#) 4) - (eq? (vector-ref #{x 19348}# 0) 'syntax-object) + (lambda (#{x 19475}#) + (if (if (vector? #{x 19475}#) + (if (= (vector-length #{x 19475}#) 4) + (eq? (vector-ref #{x 19475}# 0) 'syntax-object) #f) #f) (#{source-annotation 4336}# - (vector-ref #{x 19348}# 1)) - (if (pair? #{x 19348}#) - (let ((#{props 19363}# (source-properties #{x 19348}#))) - (if (pair? #{props 19363}#) #{props 19363}# #f)) + (vector-ref #{x 19475}# 1)) + (if (pair? #{x 19475}#) + (let ((#{props 19490}# (source-properties #{x 19475}#))) + (if (pair? #{props 19490}#) #{props 19490}# #f)) #f)))) (#{extend-env 4337}# - (lambda (#{labels 19365}# #{bindings 19366}# #{r 19367}#) - (if (null? #{labels 19365}#) - #{r 19367}# + (lambda (#{labels 19492}# #{bindings 19493}# #{r 19494}#) + (if (null? #{labels 19492}#) + #{r 19494}# (#{extend-env 4337}# - (cdr #{labels 19365}#) - (cdr #{bindings 19366}#) - (cons (cons (car #{labels 19365}#) - (car #{bindings 19366}#)) - #{r 19367}#))))) + (cdr #{labels 19492}#) + (cdr #{bindings 19493}#) + (cons (cons (car #{labels 19492}#) + (car #{bindings 19493}#)) + #{r 19494}#))))) (#{extend-var-env 4338}# - (lambda (#{labels 19368}# #{vars 19369}# #{r 19370}#) - (if (null? #{labels 19368}#) - #{r 19370}# + (lambda (#{labels 19495}# #{vars 19496}# #{r 19497}#) + (if (null? #{labels 19495}#) + #{r 19497}# (#{extend-var-env 4338}# - (cdr #{labels 19368}#) - (cdr #{vars 19369}#) - (cons (cons (car #{labels 19368}#) - (cons 'lexical (car #{vars 19369}#))) - #{r 19370}#))))) + (cdr #{labels 19495}#) + (cdr #{vars 19496}#) + (cons (cons (car #{labels 19495}#) + (cons 'lexical (car #{vars 19496}#))) + #{r 19497}#))))) (#{macros-only-env 4339}# - (lambda (#{r 19371}#) - (if (null? #{r 19371}#) + (lambda (#{r 19498}#) + (if (null? #{r 19498}#) '() - (let ((#{a 19372}# (car #{r 19371}#))) - (if (eq? (car (cdr #{a 19372}#)) 'macro) - (cons #{a 19372}# - (#{macros-only-env 4339}# (cdr #{r 19371}#))) - (#{macros-only-env 4339}# (cdr #{r 19371}#))))))) + (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 19374}# #{sym 19375}# #{val 19376}#) + (lambda (#{type 19501}# #{sym 19502}# #{val 19503}#) (module-define! (current-module) - #{sym 19375}# + #{sym 19502}# (make-syntax-transformer - #{sym 19375}# - #{type 19374}# - #{val 19376}#)))) + #{sym 19502}# + #{type 19501}# + #{val 19503}#)))) (#{id? 4343}# - (lambda (#{x 12386}#) - (if (symbol? #{x 12386}#) + (lambda (#{x 12438}#) + (if (symbol? #{x 12438}#) #t - (if (if (vector? #{x 12386}#) - (if (= (vector-length #{x 12386}#) 4) - (eq? (vector-ref #{x 12386}# 0) 'syntax-object) + (if (if (vector? #{x 12438}#) + (if (= (vector-length #{x 12438}#) 4) + (eq? (vector-ref #{x 12438}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12386}# 1)) + (symbol? (vector-ref #{x 12438}# 1)) #f)))) (#{gen-labels 4346}# - (lambda (#{ls 19386}#) - (if (null? #{ls 19386}#) + (lambda (#{ls 19513}#) + (if (null? #{ls 19513}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 4346}# (cdr #{ls 19386}#)))))) + (#{gen-labels 4346}# (cdr #{ls 19513}#)))))) (#{make-binding-wrap 4357}# - (lambda (#{ids 19390}# #{labels 19391}# #{w 19392}#) - (if (null? #{ids 19390}#) - #{w 19392}# - (cons (car #{w 19392}#) - (cons (let ((#{labelvec 19393}# - (list->vector #{labels 19391}#))) - (let ((#{n 19394}# (vector-length #{labelvec 19393}#))) - (let ((#{symnamevec 19395}# (make-vector #{n 19394}#)) - (#{marksvec 19396}# (make-vector #{n 19394}#))) + (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}#))) (begin (letrec* - ((#{f 19397}# - (lambda (#{ids 19592}# #{i 19593}#) - (if (not (null? #{ids 19592}#)) + ((#{f 19524}# + (lambda (#{ids 19723}# #{i 19724}#) + (if (not (null? #{ids 19723}#)) (call-with-values (lambda () - (let ((#{x 19596}# - (car #{ids 19592}#))) - (if (if (vector? #{x 19596}#) + (let ((#{x 19727}# + (car #{ids 19723}#))) + (if (if (vector? #{x 19727}#) (if (= (vector-length - #{x 19596}#) + #{x 19727}#) 4) (eq? (vector-ref - #{x 19596}# + #{x 19727}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 19596}# 1) - (let ((#{m1 19612}# - (car #{w 19392}#)) - (#{m2 19613}# + (vector-ref #{x 19727}# 1) + (let ((#{m1 19743}# + (car #{w 19519}#)) + (#{m2 19744}# (car (vector-ref - #{x 19596}# + #{x 19727}# 2)))) - (if (null? #{m2 19613}#) - #{m1 19612}# + (if (null? #{m2 19744}#) + #{m1 19743}# (append - #{m1 19612}# - #{m2 19613}#)))) + #{m1 19743}# + #{m2 19744}#)))) (values - #{x 19596}# - (car #{w 19392}#))))) - (lambda (#{symname 19633}# - #{marks 19634}#) + #{x 19727}# + (car #{w 19519}#))))) + (lambda (#{symname 19764}# + #{marks 19765}#) (begin (vector-set! - #{symnamevec 19395}# - #{i 19593}# - #{symname 19633}#) + #{symnamevec 19522}# + #{i 19724}# + #{symname 19764}#) (vector-set! - #{marksvec 19396}# - #{i 19593}# - #{marks 19634}#) - (#{f 19397}# - (cdr #{ids 19592}#) - (#{1+}# #{i 19593}#))))))))) - (#{f 19397}# #{ids 19390}# 0)) + #{marksvec 19523}# + #{i 19724}# + #{marks 19765}#) + (#{f 19524}# + (cdr #{ids 19723}#) + (#{1+}# #{i 19724}#))))))))) + (#{f 19524}# #{ids 19517}# 0)) (vector 'ribcage - #{symnamevec 19395}# - #{marksvec 19396}# - #{labelvec 19393}#))))) - (cdr #{w 19392}#)))))) + #{symnamevec 19522}# + #{marksvec 19523}# + #{labelvec 19520}#))))) + (cdr #{w 19519}#)))))) (#{same-marks? 4361}# - (lambda (#{x 36622}# #{y 36623}#) - (if (eq? #{x 36622}# #{y 36623}#) - (eq? #{x 36622}# #{y 36623}#) - (if (not (null? #{x 36622}#)) - (if (not (null? #{y 36623}#)) - (if (eq? (car #{x 36622}#) (car #{y 36623}#)) + (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 36622}#) - (cdr #{y 36623}#)) + (cdr #{x 36922}#) + (cdr #{y 36923}#)) #f) #f) #f)))) (#{id-var-name 4362}# - (lambda (#{id 19641}# #{w 19642}#) + (lambda (#{id 19772}# #{w 19773}#) (letrec* - ((#{search 19643}# - (lambda (#{sym 19704}# #{subst 19705}# #{marks 19706}#) - (if (null? #{subst 19705}#) - (values #f #{marks 19706}#) - (let ((#{fst 19707}# (car #{subst 19705}#))) - (if (eq? #{fst 19707}# 'shift) - (#{search 19643}# - #{sym 19704}# - (cdr #{subst 19705}#) - (cdr #{marks 19706}#)) - (let ((#{symnames 19709}# (vector-ref #{fst 19707}# 1))) - (if (vector? #{symnames 19709}#) - (#{search-vector-rib 19645}# - #{sym 19704}# - #{subst 19705}# - #{marks 19706}# - #{symnames 19709}# - #{fst 19707}#) - (#{search-list-rib 19644}# - #{sym 19704}# - #{subst 19705}# - #{marks 19706}# - #{symnames 19709}# - #{fst 19707}#)))))))) - (#{search-list-rib 19644}# - (lambda (#{sym 19879}# - #{subst 19880}# - #{marks 19881}# - #{symnames 19882}# - #{ribcage 19883}#) + ((#{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}#) (letrec* - ((#{f 19884}# - (lambda (#{symnames 19887}# #{i 19888}#) - (if (null? #{symnames 19887}#) - (#{search 19643}# - #{sym 19879}# - (cdr #{subst 19880}#) - #{marks 19881}#) - (if (if (eq? (car #{symnames 19887}#) #{sym 19879}#) + ((#{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 19881}# + #{marks 20012}# (list-ref - (vector-ref #{ribcage 19883}# 2) - #{i 19888}#)) + (vector-ref #{ribcage 20014}# 2) + #{i 20019}#)) #f) (values (list-ref - (vector-ref #{ribcage 19883}# 3) - #{i 19888}#) - #{marks 19881}#) - (#{f 19884}# - (cdr #{symnames 19887}#) - (#{1+}# #{i 19888}#))))))) - (#{f 19884}# #{symnames 19882}# 0)))) - (#{search-vector-rib 19645}# - (lambda (#{sym 20038}# - #{subst 20039}# - #{marks 20040}# - #{symnames 20041}# - #{ribcage 20042}#) - (let ((#{n 20043}# (vector-length #{symnames 20041}#))) + (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}#))) (letrec* - ((#{f 20044}# - (lambda (#{i 20101}#) - (if (= #{i 20101}# #{n 20043}#) - (#{search 19643}# - #{sym 20038}# - (cdr #{subst 20039}#) - #{marks 20040}#) + ((#{f 20175}# + (lambda (#{i 20232}#) + (if (= #{i 20232}# #{n 20174}#) + (#{search 19774}# + #{sym 20169}# + (cdr #{subst 20170}#) + #{marks 20171}#) (if (if (eq? (vector-ref - #{symnames 20041}# - #{i 20101}#) - #{sym 20038}#) + #{symnames 20172}# + #{i 20232}#) + #{sym 20169}#) (#{same-marks? 4361}# - #{marks 20040}# + #{marks 20171}# (vector-ref - (vector-ref #{ribcage 20042}# 2) - #{i 20101}#)) + (vector-ref #{ribcage 20173}# 2) + #{i 20232}#)) #f) (values (vector-ref - (vector-ref #{ribcage 20042}# 3) - #{i 20101}#) - #{marks 20040}#) - (#{f 20044}# (#{1+}# #{i 20101}#))))))) - (#{f 20044}# 0)))))) - (if (symbol? #{id 19641}#) - (let ((#{t 19646}# - (#{search 19643}# - #{id 19641}# - (cdr #{w 19642}#) - (car #{w 19642}#)))) - (if #{t 19646}# #{t 19646}# #{id 19641}#)) - (if (if (vector? #{id 19641}#) - (if (= (vector-length #{id 19641}#) 4) - (eq? (vector-ref #{id 19641}# 0) 'syntax-object) + (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) #f) #f) - (let ((#{id 19661}# (vector-ref #{id 19641}# 1)) - (#{w1 19662}# (vector-ref #{id 19641}# 2))) - (let ((#{marks 19663}# - (let ((#{m1 19673}# (car #{w 19642}#)) - (#{m2 19674}# (car #{w1 19662}#))) - (if (null? #{m2 19674}#) - #{m1 19673}# - (append #{m1 19673}# #{m2 19674}#))))) + (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}#))))) (call-with-values (lambda () - (#{search 19643}# - #{id 19661}# - (cdr #{w 19642}#) - #{marks 19663}#)) - (lambda (#{new-id 19690}# #{marks 19691}#) - (if #{new-id 19690}# - #{new-id 19690}# - (let ((#{t 19699}# - (#{search 19643}# - #{id 19661}# - (cdr #{w1 19662}#) - #{marks 19691}#))) - (if #{t 19699}# #{t 19699}# #{id 19661}#))))))) + (#{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}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 19641}#)))))) + #{id 19772}#)))))) (#{free-id=? 4363}# - (lambda (#{i 20251}# #{j 20252}#) - (let ((#{ni 20253}# - (#{id-var-name 4362}# #{i 20251}# '(()))) - (#{nj 20254}# - (#{id-var-name 4362}# #{j 20252}# '(())))) - (if (eq? #{ni 20253}# - (if (if (vector? #{i 20251}#) - (if (= (vector-length #{i 20251}#) 4) - (eq? (vector-ref #{i 20251}# 0) 'syntax-object) + (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) #f) #f) - (vector-ref #{i 20251}# 1) - #{i 20251}#)) - (if (eq? #{nj 20254}# - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) 'syntax-object) + (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) #f) #f) - (vector-ref #{j 20252}# 1) - #{j 20252}#)) - (if (let ((#{bi 20312}# - (let ((#{mod 20581}# - (if (if (vector? #{i 20251}#) - (if (= (vector-length #{i 20251}#) 4) - (eq? (vector-ref #{i 20251}# 0) + (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) 'syntax-object) #f) #f) - (vector-ref #{i 20251}# 3) + (vector-ref #{i 20382}# 3) #f))) (module-variable - (if #{mod 20581}# - (resolve-module (cdr #{mod 20581}#)) + (if #{mod 20712}# + (resolve-module (cdr #{mod 20712}#)) (current-module)) - (if (if (vector? #{i 20251}#) - (if (= (vector-length #{i 20251}#) 4) - (eq? (vector-ref #{i 20251}# 0) + (if (if (vector? #{i 20382}#) + (if (= (vector-length #{i 20382}#) 4) + (eq? (vector-ref #{i 20382}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20251}# 1) - #{i 20251}#))))) - (if #{bi 20312}# - (eq? #{bi 20312}# - (let ((#{mod 20425}# - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) + (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) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 3) + (vector-ref #{j 20383}# 3) #f))) (module-variable - (if #{mod 20425}# - (resolve-module (cdr #{mod 20425}#)) + (if #{mod 20556}# + (resolve-module (cdr #{mod 20556}#)) (current-module)) - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) + (if (if (vector? #{j 20383}#) + (if (= (vector-length #{j 20383}#) 4) + (eq? (vector-ref #{j 20383}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 1) - #{j 20252}#)))) - (if (not (let ((#{mod 20503}# - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) + (vector-ref #{j 20383}# 1) + #{j 20383}#)))) + (if (not (let ((#{mod 20634}# + (if (if (vector? #{j 20383}#) + (if (= (vector-length #{j 20383}#) 4) - (eq? (vector-ref #{j 20252}# 0) + (eq? (vector-ref #{j 20383}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 3) + (vector-ref #{j 20383}# 3) #f))) (module-variable - (if #{mod 20503}# - (resolve-module (cdr #{mod 20503}#)) + (if #{mod 20634}# + (resolve-module (cdr #{mod 20634}#)) (current-module)) - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) + (if (if (vector? #{j 20383}#) + (if (= (vector-length #{j 20383}#) 4) + (eq? (vector-ref #{j 20383}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 1) - #{j 20252}#)))) - (eq? #{ni 20253}# #{nj 20254}#) + (vector-ref #{j 20383}# 1) + #{j 20383}#)))) + (eq? #{ni 20384}# #{nj 20385}#) #f))) - (eq? (let ((#{mod 20659}# - (if (if (vector? #{i 20251}#) - (if (= (vector-length #{i 20251}#) 4) - (eq? (vector-ref #{i 20251}# 0) + (eq? (let ((#{mod 20790}# + (if (if (vector? #{i 20382}#) + (if (= (vector-length #{i 20382}#) 4) + (eq? (vector-ref #{i 20382}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20251}# 3) + (vector-ref #{i 20382}# 3) #f))) (module-variable - (if #{mod 20659}# - (resolve-module (cdr #{mod 20659}#)) + (if #{mod 20790}# + (resolve-module (cdr #{mod 20790}#)) (current-module)) - (if (if (vector? #{i 20251}#) - (if (= (vector-length #{i 20251}#) 4) - (eq? (vector-ref #{i 20251}# 0) 'syntax-object) + (if (if (vector? #{i 20382}#) + (if (= (vector-length #{i 20382}#) 4) + (eq? (vector-ref #{i 20382}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 20251}# 1) - #{i 20251}#))) - (let ((#{mod 20737}# - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) + (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) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 3) + (vector-ref #{j 20383}# 3) #f))) (module-variable - (if #{mod 20737}# - (resolve-module (cdr #{mod 20737}#)) + (if #{mod 20868}# + (resolve-module (cdr #{mod 20868}#)) (current-module)) - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) 'syntax-object) + (if (if (vector? #{j 20383}#) + (if (= (vector-length #{j 20383}#) 4) + (eq? (vector-ref #{j 20383}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 20252}# 1) - #{j 20252}#)))) + (vector-ref #{j 20383}# 1) + #{j 20383}#)))) #f) #f) - (if (eq? #{ni 20253}# #{nj 20254}#) - (not (eq? #{nj 20254}# - (if (if (vector? #{j 20252}#) - (if (= (vector-length #{j 20252}#) 4) - (eq? (vector-ref #{j 20252}# 0) 'syntax-object) + (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) #f) #f) - (vector-ref #{j 20252}# 1) - #{j 20252}#))) + (vector-ref #{j 20383}# 1) + #{j 20383}#))) #f))))) (#{bound-id=? 4364}# - (lambda (#{i 20837}# #{j 20838}#) - (if (if (if (vector? #{i 20837}#) - (if (= (vector-length #{i 20837}#) 4) - (eq? (vector-ref #{i 20837}# 0) 'syntax-object) + (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) #f) #f) - (if (vector? #{j 20838}#) - (if (= (vector-length #{j 20838}#) 4) - (eq? (vector-ref #{j 20838}# 0) 'syntax-object) + (if (vector? #{j 20969}#) + (if (= (vector-length #{j 20969}#) 4) + (eq? (vector-ref #{j 20969}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{i 20837}# 1) - (vector-ref #{j 20838}# 1)) + (if (eq? (vector-ref #{i 20968}# 1) + (vector-ref #{j 20969}# 1)) (#{same-marks? 4361}# - (car (vector-ref #{i 20837}# 2)) - (car (vector-ref #{j 20838}# 2))) + (car (vector-ref #{i 20968}# 2)) + (car (vector-ref #{j 20969}# 2))) #f) - (eq? #{i 20837}# #{j 20838}#)))) + (eq? #{i 20968}# #{j 20969}#)))) (#{valid-bound-ids? 4365}# - (lambda (#{ids 21007}#) + (lambda (#{ids 21138}#) (if (letrec* - ((#{all-ids? 21008}# - (lambda (#{ids 21198}#) - (if (null? #{ids 21198}#) - (null? #{ids 21198}#) - (if (let ((#{x 21209}# (car #{ids 21198}#))) - (if (symbol? #{x 21209}#) + ((#{all-ids? 21139}# + (lambda (#{ids 21336}#) + (if (null? #{ids 21336}#) + (null? #{ids 21336}#) + (if (let ((#{x 21347}# (car #{ids 21336}#))) + (if (symbol? #{x 21347}#) #t - (if (if (vector? #{x 21209}#) - (if (= (vector-length #{x 21209}#) 4) - (eq? (vector-ref #{x 21209}# 0) + (if (if (vector? #{x 21347}#) + (if (= (vector-length #{x 21347}#) 4) + (eq? (vector-ref #{x 21347}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 21209}# 1)) + (symbol? (vector-ref #{x 21347}# 1)) #f))) - (#{all-ids? 21008}# (cdr #{ids 21198}#)) + (#{all-ids? 21139}# (cdr #{ids 21336}#)) #f))))) - (#{all-ids? 21008}# #{ids 21007}#)) - (#{distinct-bound-ids? 4366}# #{ids 21007}#) + (#{all-ids? 21139}# #{ids 21138}#)) + (#{distinct-bound-ids? 4366}# #{ids 21138}#) #f))) (#{distinct-bound-ids? 4366}# - (lambda (#{ids 21330}#) + (lambda (#{ids 21468}#) (letrec* - ((#{distinct? 21331}# - (lambda (#{ids 21436}#) - (if (null? #{ids 21436}#) - (null? #{ids 21436}#) + ((#{distinct? 21469}# + (lambda (#{ids 21574}#) + (if (null? #{ids 21574}#) + (null? #{ids 21574}#) (if (not (#{bound-id-member? 4367}# - (car #{ids 21436}#) - (cdr #{ids 21436}#))) - (#{distinct? 21331}# (cdr #{ids 21436}#)) + (car #{ids 21574}#) + (cdr #{ids 21574}#))) + (#{distinct? 21469}# (cdr #{ids 21574}#)) #f))))) - (#{distinct? 21331}# #{ids 21330}#)))) + (#{distinct? 21469}# #{ids 21468}#)))) (#{bound-id-member? 4367}# - (lambda (#{x 21532}# #{list 21533}#) - (if (not (null? #{list 21533}#)) - (let ((#{t 21534}# + (lambda (#{x 21670}# #{list 21671}#) + (if (not (null? #{list 21671}#)) + (let ((#{t 21672}# (#{bound-id=? 4364}# - #{x 21532}# - (car #{list 21533}#)))) - (if #{t 21534}# - #{t 21534}# + #{x 21670}# + (car #{list 21671}#)))) + (if #{t 21672}# + #{t 21672}# (#{bound-id-member? 4367}# - #{x 21532}# - (cdr #{list 21533}#)))) + #{x 21670}# + (cdr #{list 21671}#)))) #f))) (#{source-wrap 4369}# - (lambda (#{x 21708}# - #{w 21709}# - #{s 21710}# - #{defmod 21711}#) - (let ((#{x 21715}# + (lambda (#{x 21850}# + #{w 21851}# + #{s 21852}# + #{defmod 21853}#) + (let ((#{x 21857}# (begin - (if (if (pair? #{x 21708}#) #{s 21710}# #f) - (set-source-properties! #{x 21708}# #{s 21710}#)) - #{x 21708}#))) - (if (if (null? (car #{w 21709}#)) - (null? (cdr #{w 21709}#)) + (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}#)) #f) - #{x 21715}# - (if (if (vector? #{x 21715}#) - (if (= (vector-length #{x 21715}#) 4) - (eq? (vector-ref #{x 21715}# 0) 'syntax-object) + #{x 21857}# + (if (if (vector? #{x 21857}#) + (if (= (vector-length #{x 21857}#) 4) + (eq? (vector-ref #{x 21857}# 0) 'syntax-object) #f) #f) - (let ((#{expression 21747}# (vector-ref #{x 21715}# 1)) - (#{wrap 21748}# - (let ((#{w2 21756}# (vector-ref #{x 21715}# 2))) - (let ((#{m1 21757}# (car #{w 21709}#)) - (#{s1 21758}# (cdr #{w 21709}#))) - (if (null? #{m1 21757}#) - (if (null? #{s1 21758}#) - #{w2 21756}# - (cons (car #{w2 21756}#) - (let ((#{m2 21773}# (cdr #{w2 21756}#))) - (if (null? #{m2 21773}#) - #{s1 21758}# - (append #{s1 21758}# #{m2 21773}#))))) - (cons (let ((#{m2 21781}# (car #{w2 21756}#))) - (if (null? #{m2 21781}#) - #{m1 21757}# - (append #{m1 21757}# #{m2 21781}#))) - (let ((#{m2 21789}# (cdr #{w2 21756}#))) - (if (null? #{m2 21789}#) - #{s1 21758}# - (append #{s1 21758}# #{m2 21789}#)))))))) - (#{module 21749}# (vector-ref #{x 21715}# 3))) + (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))) (vector 'syntax-object - #{expression 21747}# - #{wrap 21748}# - #{module 21749}#)) - (if (null? #{x 21715}#) - #{x 21715}# + #{expression 21889}# + #{wrap 21890}# + #{module 21891}#)) + (if (null? #{x 21857}#) + #{x 21857}# (vector 'syntax-object - #{x 21715}# - #{w 21709}# - #{defmod 21711}#))))))) + #{x 21857}# + #{w 21851}# + #{defmod 21853}#))))))) (#{chi-sequence 4370}# - (lambda (#{body 36631}# - #{r 36632}# - #{w 36633}# - #{s 36634}# - #{mod 36635}#) + (lambda (#{body 36931}# + #{r 36932}# + #{w 36933}# + #{s 36934}# + #{mod 36935}#) (#{build-sequence 4324}# - #{s 36634}# + #{s 36934}# (letrec* - ((#{dobody 36725}# - (lambda (#{body 36810}# - #{r 36811}# - #{w 36812}# - #{mod 36813}#) - (if (null? #{body 36810}#) + ((#{dobody 37027}# + (lambda (#{body 37114}# + #{r 37115}# + #{w 37116}# + #{mod 37117}#) + (if (null? #{body 37114}#) '() - (let ((#{first 36814}# + (let ((#{first 37118}# (#{chi 4375}# - (car #{body 36810}#) - #{r 36811}# - #{w 36812}# - #{mod 36813}#))) - (cons #{first 36814}# - (#{dobody 36725}# - (cdr #{body 36810}#) - #{r 36811}# - #{w 36812}# - #{mod 36813}#))))))) - (#{dobody 36725}# - #{body 36631}# - #{r 36632}# - #{w 36633}# - #{mod 36635}#))))) + (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 21804}# - #{r 21805}# - #{w 21806}# - #{s 21807}# - #{m 21808}# - #{esew 21809}# - #{mod 21810}#) + (lambda (#{body 21946}# + #{r 21947}# + #{w 21948}# + #{s 21949}# + #{m 21950}# + #{esew 21951}# + #{mod 21952}#) (letrec* - ((#{scan 21811}# - (lambda (#{body 21958}# - #{r 21959}# - #{w 21960}# - #{s 21961}# - #{m 21962}# - #{esew 21963}# - #{mod 21964}# - #{exps 21965}#) - (if (null? #{body 21958}#) - #{exps 21965}# + ((#{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 21966}# (car #{body 21958}#))) + (let ((#{e 22108}# (car #{body 22100}#))) (#{syntax-type 4374}# - #{e 21966}# - #{r 21959}# - #{w 21960}# - (let ((#{t 21970}# - (#{source-annotation 4336}# #{e 21966}#))) - (if #{t 21970}# #{t 21970}# #{s 21961}#)) + #{e 22108}# + #{r 22101}# + #{w 22102}# + (let ((#{t 22112}# + (#{source-annotation 4336}# #{e 22108}#))) + (if #{t 22112}# #{t 22112}# #{s 22103}#)) #f - #{mod 21964}# + #{mod 22106}# #f))) - (lambda (#{type 22252}# - #{value 22253}# - #{e 22254}# - #{w 22255}# - #{s 22256}# - #{mod 22257}#) - (if (eqv? #{type 22252}# 'begin-form) - (let ((#{tmp 22262}# - ($sc-dispatch #{e 22254}# '(_)))) - (if #{tmp 22262}# - (@apply (lambda () #{exps 21965}#) #{tmp 22262}#) - (let ((#{tmp 22266}# + (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 22254}# + #{e 22412}# '(_ any . each-any)))) - (if #{tmp 22266}# + (if #{tmp 22424}# (@apply - (lambda (#{e1 22270}# #{e2 22271}#) - (#{scan 21811}# - (cons #{e1 22270}# #{e2 22271}#) - #{r 21959}# - #{w 22255}# - #{s 22256}# - #{m 21962}# - #{esew 21963}# - #{mod 22257}# - #{exps 21965}#)) - #{tmp 22266}#) + (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 22254}#))))) - (if (eqv? #{type 22252}# 'local-syntax-form) + #{e 22412}#))))) + (if (eqv? #{type 22410}# 'local-syntax-form) (#{chi-local-syntax 4380}# - #{value 22253}# - #{e 22254}# - #{r 21959}# - #{w 22255}# - #{s 22256}# - #{mod 22257}# - (lambda (#{body 22286}# - #{r 22287}# - #{w 22288}# - #{s 22289}# - #{mod 22290}#) - (#{scan 21811}# - #{body 22286}# - #{r 22287}# - #{w 22288}# - #{s 22289}# - #{m 21962}# - #{esew 21963}# - #{mod 22290}# - #{exps 21965}#))) - (if (eqv? #{type 22252}# 'eval-when-form) - (let ((#{tmp 22295}# + #{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 22254}# + #{e 22412}# '(_ each-any any . each-any)))) - (if #{tmp 22295}# + (if #{tmp 22453}# (@apply - (lambda (#{x 22299}# - #{e1 22300}# - #{e2 22301}#) - (let ((#{when-list 22302}# + (lambda (#{x 22457}# + #{e1 22458}# + #{e2 22459}#) + (let ((#{when-list 22460}# (#{chi-when-list 4373}# - #{e 22254}# - #{x 22299}# - #{w 22255}#)) - (#{body 22303}# - (cons #{e1 22300}# - #{e2 22301}#))) - (if (eq? #{m 21962}# 'e) - (if (memq 'eval #{when-list 22302}#) - (#{scan 21811}# - #{body 22303}# - #{r 21959}# - #{w 22255}# - #{s 22256}# + #{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 22302}#) + #{when-list 22460}#) 'c&e 'e) '(eval) - #{mod 22257}# - #{exps 21965}#) + #{mod 22415}# + #{exps 22107}#) (begin (if (memq 'expand - #{when-list 22302}#) - (let ((#{x 22310}# + #{when-list 22460}#) + (let ((#{x 22468}# (#{chi-top-sequence 4371}# - #{body 22303}# - #{r 21959}# - #{w 22255}# - #{s 22256}# + #{body 22461}# + #{r 22101}# + #{w 22413}# + #{s 22414}# 'e '(eval) - #{mod 22257}#))) + #{mod 22415}#))) (primitive-eval - #{x 22310}#))) - (values #{exps 21965}#))) - (if (memq 'load #{when-list 22302}#) - (if (let ((#{t 22312}# + #{x 22468}#))) + (values #{exps 22107}#))) + (if (memq 'load #{when-list 22460}#) + (if (let ((#{t 22470}# (memq 'compile - #{when-list 22302}#))) - (if #{t 22312}# - #{t 22312}# - (let ((#{t 22314}# + #{when-list 22460}#))) + (if #{t 22470}# + #{t 22470}# + (let ((#{t 22472}# (memq 'expand - #{when-list 22302}#))) - (if #{t 22314}# - #{t 22314}# - (if (eq? #{m 21962}# + #{when-list 22460}#))) + (if #{t 22472}# + #{t 22472}# + (if (eq? #{m 22104}# 'c&e) (memq 'eval - #{when-list 22302}#) + #{when-list 22460}#) #f))))) - (#{scan 21811}# - #{body 22303}# - #{r 21959}# - #{w 22255}# - #{s 22256}# + (#{scan 21953}# + #{body 22461}# + #{r 22101}# + #{w 22413}# + #{s 22414}# 'c&e '(compile load) - #{mod 22257}# - #{exps 21965}#) - (if (if (eq? #{m 21962}# 'c) + #{mod 22415}# + #{exps 22107}#) + (if (if (eq? #{m 22104}# 'c) #t - (eq? #{m 21962}# 'c&e)) - (#{scan 21811}# - #{body 22303}# - #{r 21959}# - #{w 22255}# - #{s 22256}# + (eq? #{m 22104}# 'c&e)) + (#{scan 21953}# + #{body 22461}# + #{r 22101}# + #{w 22413}# + #{s 22414}# 'c '(load) - #{mod 22257}# - #{exps 21965}#) - (values #{exps 21965}#))) - (if (let ((#{t 22324}# + #{mod 22415}# + #{exps 22107}#) + (values #{exps 22107}#))) + (if (let ((#{t 22482}# (memq 'compile - #{when-list 22302}#))) - (if #{t 22324}# - #{t 22324}# - (let ((#{t 22326}# + #{when-list 22460}#))) + (if #{t 22482}# + #{t 22482}# + (let ((#{t 22484}# (memq 'expand - #{when-list 22302}#))) - (if #{t 22326}# - #{t 22326}# - (if (eq? #{m 21962}# + #{when-list 22460}#))) + (if #{t 22484}# + #{t 22484}# + (if (eq? #{m 22104}# 'c&e) (memq 'eval - #{when-list 22302}#) + #{when-list 22460}#) #f))))) (begin - (let ((#{x 22331}# + (let ((#{x 22489}# (#{chi-top-sequence 4371}# - #{body 22303}# - #{r 21959}# - #{w 22255}# - #{s 22256}# + #{body 22461}# + #{r 22101}# + #{w 22413}# + #{s 22414}# 'e '(eval) - #{mod 22257}#))) - (primitive-eval #{x 22331}#)) - (values #{exps 21965}#)) - (values #{exps 21965}#)))))) - #{tmp 22295}#) + #{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 22254}#))) - (if (eqv? #{type 22252}# 'define-syntax-form) - (let ((#{n 22342}# + #{e 22412}#))) + (if (eqv? #{type 22410}# 'define-syntax-form) + (let ((#{n 22500}# (#{id-var-name 4362}# - #{value 22253}# - #{w 22255}#)) - (#{r 22343}# + #{value 22411}# + #{w 22413}#)) + (#{r 22501}# (#{macros-only-env 4339}# - #{r 21959}#))) - (if (eqv? #{m 21962}# 'c) - (if (memq 'compile #{esew 21963}#) - (let ((#{e 22347}# + #{r 22101}#))) + (if (eqv? #{m 22104}# 'c) + (if (memq 'compile #{esew 22105}#) + (let ((#{e 22505}# (#{chi-install-global 4372}# - #{n 22342}# + #{n 22500}# (#{chi 4375}# - #{e 22254}# - #{r 22343}# - #{w 22255}# - #{mod 22257}#)))) + #{e 22412}# + #{r 22501}# + #{w 22413}# + #{mod 22415}#)))) (begin (#{top-level-eval-hook 4302}# - #{e 22347}# - #{mod 22257}#) - (if (memq 'load #{esew 21963}#) + #{e 22505}# + #{mod 22415}#) + (if (memq 'load #{esew 22105}#) (values - (cons #{e 22347}# - #{exps 21965}#)) - (values #{exps 21965}#)))) - (if (memq 'load #{esew 21963}#) + (cons #{e 22505}# + #{exps 22107}#)) + (values #{exps 22107}#)))) + (if (memq 'load #{esew 22105}#) (values (cons (#{chi-install-global 4372}# - #{n 22342}# + #{n 22500}# (#{chi 4375}# - #{e 22254}# - #{r 22343}# - #{w 22255}# - #{mod 22257}#)) - #{exps 21965}#)) - (values #{exps 21965}#))) - (if (eqv? #{m 21962}# 'c&e) - (let ((#{e 22789}# + #{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 22342}# + #{n 22500}# (#{chi 4375}# - #{e 22254}# - #{r 22343}# - #{w 22255}# - #{mod 22257}#)))) + #{e 22412}# + #{r 22501}# + #{w 22413}# + #{mod 22415}#)))) (begin (#{top-level-eval-hook 4302}# - #{e 22789}# - #{mod 22257}#) + #{e 22951}# + #{mod 22415}#) (values - (cons #{e 22789}# - #{exps 21965}#)))) + (cons #{e 22951}# + #{exps 22107}#)))) (begin - (if (memq 'eval #{esew 21963}#) + (if (memq 'eval #{esew 22105}#) (#{top-level-eval-hook 4302}# (#{chi-install-global 4372}# - #{n 22342}# + #{n 22500}# (#{chi 4375}# - #{e 22254}# - #{r 22343}# - #{w 22255}# - #{mod 22257}#)) - #{mod 22257}#)) - (values #{exps 21965}#))))) - (if (eqv? #{type 22252}# 'define-form) - (let ((#{n 23433}# + #{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 22253}# - #{w 22255}#))) - (let ((#{type 23434}# - (car (let ((#{t 24426}# - (assq #{n 23433}# - #{r 21959}#))) - (if #{t 24426}# - (cdr #{t 24426}#) - (if (symbol? #{n 23433}#) - (let ((#{t 24431}# + #{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 22257}#) + (if (if (not #{mod 22415}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 23433}#)) - (let ((#{v 24468}# + #{n 23601}#)) + (let ((#{v 24646}# (module-variable - (if #{mod 22257}# + (if #{mod 22415}# (resolve-module - (cdr #{mod 22257}#)) + (cdr #{mod 22415}#)) (current-module)) - #{n 23433}#))) - (if #{v 24468}# + #{n 23601}#))) + (if #{v 24646}# (if (variable-bound? - #{v 24468}#) - (let ((#{val 24477}# + #{v 24646}#) + (let ((#{val 24655}# (variable-ref - #{v 24468}#))) + #{v 24646}#))) (if (macro? - #{val 24477}#) + #{val 24655}#) (if (macro-type - #{val 24477}#) + #{val 24655}#) (cons (macro-type - #{val 24477}#) + #{val 24655}#) (macro-binding - #{val 24477}#)) + #{val 24655}#)) #f) #f)) #f) #f))))) - (if #{t 24431}# - #{t 24431}# + (if #{t 24609}# + #{t 24609}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 23468}# #{type 23434}#)) - (if (eqv? #{t 23468}# 'global) + (if (let ((#{t 23636}# #{type 23602}#)) + (if (eqv? #{t 23636}# 'global) #t - (if (eqv? #{t 23468}# 'core) + (if (eqv? #{t 23636}# 'core) #t - (if (eqv? #{t 23468}# 'macro) + (if (eqv? #{t 23636}# 'macro) #t - (eqv? #{t 23468}# + (eqv? #{t 23636}# 'module-ref))))) (begin - (if (if (if (eq? #{m 21962}# 'c) + (if (if (if (eq? #{m 22104}# 'c) #t - (eq? #{m 21962}# 'c&e)) + (eq? #{m 22104}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 23433}#)) + #{n 23601}#)) (current-module) #f) #f) - (let ((#{old 23632}# + (let ((#{old 23800}# (module-variable (current-module) - #{n 23433}#))) - (if (if (variable? #{old 23632}#) + #{n 23601}#))) + (if (if (variable? #{old 23800}#) (variable-bound? - #{old 23632}#) + #{old 23800}#) #f) (module-define! (current-module) - #{n 23433}# - (variable-ref #{old 23632}#)) + #{n 23601}# + (variable-ref #{old 23800}#)) (module-add! (current-module) - #{n 23433}# + #{n 23601}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 21962}# 'c&e) - (let ((#{x 23634}# + (cons (if (eq? #{m 22104}# 'c&e) + (let ((#{x 23802}# (#{build-global-definition 4317}# - #{s 22256}# - #{n 23433}# + #{s 22414}# + #{n 23601}# (#{chi 4375}# - #{e 22254}# - #{r 21959}# - #{w 22255}# - #{mod 22257}#)))) + #{e 22412}# + #{r 22101}# + #{w 22413}# + #{mod 22415}#)))) (begin (#{top-level-eval-hook 4302}# - #{x 23634}# - #{mod 22257}#) - #{x 23634}#)) + #{x 23802}# + #{mod 22415}#) + #{x 23802}#)) (lambda () (#{build-global-definition 4317}# - #{s 22256}# - #{n 23433}# + #{s 22414}# + #{n 23601}# (#{chi 4375}# - #{e 22254}# - #{r 21959}# - #{w 22255}# - #{mod 22257}#)))) - #{exps 21965}#))) - (if (let ((#{t 24161}# #{type 23434}#)) - (eqv? #{t 24161}# + #{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 22254}# - (if (if (null? (car #{w 22255}#)) - (null? (cdr #{w 22255}#)) + #{e 22412}# + (if (if (null? (car #{w 22413}#)) + (null? (cdr #{w 22413}#)) #f) - #{value 22253}# - (if (if (vector? #{value 22253}#) + #{value 22411}# + (if (if (vector? #{value 22411}#) (if (= (vector-length - #{value 22253}#) + #{value 22411}#) 4) (eq? (vector-ref - #{value 22253}# + #{value 22411}# 0) 'syntax-object) #f) #f) - (let ((#{expression 24253}# + (let ((#{expression 24431}# (vector-ref - #{value 22253}# + #{value 22411}# 1)) - (#{wrap 24254}# - (let ((#{w2 24264}# + (#{wrap 24432}# + (let ((#{w2 24442}# (vector-ref - #{value 22253}# + #{value 22411}# 2))) - (let ((#{m1 24265}# - (car #{w 22255}#)) - (#{s1 24266}# - (cdr #{w 22255}#))) - (if (null? #{m1 24265}#) - (if (null? #{s1 24266}#) - #{w2 24264}# - (cons (car #{w2 24264}#) - (let ((#{m2 24283}# - (cdr #{w2 24264}#))) - (if (null? #{m2 24283}#) - #{s1 24266}# + (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 24266}# - #{m2 24283}#))))) - (cons (let ((#{m2 24291}# - (car #{w2 24264}#))) - (if (null? #{m2 24291}#) - #{m1 24265}# + #{s1 24444}# + #{m2 24461}#))))) + (cons (let ((#{m2 24469}# + (car #{w2 24442}#))) + (if (null? #{m2 24469}#) + #{m1 24443}# (append - #{m1 24265}# - #{m2 24291}#))) - (let ((#{m2 24299}# - (cdr #{w2 24264}#))) - (if (null? #{m2 24299}#) - #{s1 24266}# + #{m1 24443}# + #{m2 24469}#))) + (let ((#{m2 24477}# + (cdr #{w2 24442}#))) + (if (null? #{m2 24477}#) + #{s1 24444}# (append - #{s1 24266}# - #{m2 24299}#)))))))) - (#{module 24255}# + #{s1 24444}# + #{m2 24477}#)))))))) + (#{module 24433}# (vector-ref - #{value 22253}# + #{value 22411}# 3))) (vector 'syntax-object - #{expression 24253}# - #{wrap 24254}# - #{module 24255}#)) - (if (null? #{value 22253}#) - #{value 22253}# + #{expression 24431}# + #{wrap 24432}# + #{module 24433}#)) + (if (null? #{value 22411}#) + #{value 22411}# (vector 'syntax-object - #{value 22253}# - #{w 22255}# - #{mod 22257}#))))) + #{value 22411}# + #{w 22413}# + #{mod 22415}#))))) (syntax-violation #f "cannot define keyword at top level" - #{e 22254}# - (if (if (null? (car #{w 22255}#)) - (null? (cdr #{w 22255}#)) + #{e 22412}# + (if (if (null? (car #{w 22413}#)) + (null? (cdr #{w 22413}#)) #f) - #{value 22253}# - (if (if (vector? #{value 22253}#) + #{value 22411}# + (if (if (vector? #{value 22411}#) (if (= (vector-length - #{value 22253}#) + #{value 22411}#) 4) (eq? (vector-ref - #{value 22253}# + #{value 22411}# 0) 'syntax-object) #f) #f) - (let ((#{expression 24351}# + (let ((#{expression 24529}# (vector-ref - #{value 22253}# + #{value 22411}# 1)) - (#{wrap 24352}# - (let ((#{w2 24362}# + (#{wrap 24530}# + (let ((#{w2 24540}# (vector-ref - #{value 22253}# + #{value 22411}# 2))) - (let ((#{m1 24363}# - (car #{w 22255}#)) - (#{s1 24364}# - (cdr #{w 22255}#))) - (if (null? #{m1 24363}#) - (if (null? #{s1 24364}#) - #{w2 24362}# - (cons (car #{w2 24362}#) - (let ((#{m2 24381}# - (cdr #{w2 24362}#))) - (if (null? #{m2 24381}#) - #{s1 24364}# + (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 24364}# - #{m2 24381}#))))) - (cons (let ((#{m2 24389}# - (car #{w2 24362}#))) - (if (null? #{m2 24389}#) - #{m1 24363}# + #{s1 24542}# + #{m2 24559}#))))) + (cons (let ((#{m2 24567}# + (car #{w2 24540}#))) + (if (null? #{m2 24567}#) + #{m1 24541}# (append - #{m1 24363}# - #{m2 24389}#))) - (let ((#{m2 24397}# - (cdr #{w2 24362}#))) - (if (null? #{m2 24397}#) - #{s1 24364}# + #{m1 24541}# + #{m2 24567}#))) + (let ((#{m2 24575}# + (cdr #{w2 24540}#))) + (if (null? #{m2 24575}#) + #{s1 24542}# (append - #{s1 24364}# - #{m2 24397}#)))))))) - (#{module 24353}# + #{s1 24542}# + #{m2 24575}#)))))))) + (#{module 24531}# (vector-ref - #{value 22253}# + #{value 22411}# 3))) (vector 'syntax-object - #{expression 24351}# - #{wrap 24352}# - #{module 24353}#)) - (if (null? #{value 22253}#) - #{value 22253}# + #{expression 24529}# + #{wrap 24530}# + #{module 24531}#)) + (if (null? #{value 22411}#) + #{value 22411}# (vector 'syntax-object - #{value 22253}# - #{w 22255}# - #{mod 22257}#))))))))) + #{value 22411}# + #{w 22413}# + #{mod 22415}#))))))))) (values - (cons (if (eq? #{m 21962}# 'c&e) - (let ((#{x 24488}# + (cons (if (eq? #{m 22104}# 'c&e) + (let ((#{x 24666}# (#{chi-expr 4376}# - #{type 22252}# - #{value 22253}# - #{e 22254}# - #{r 21959}# - #{w 22255}# - #{s 22256}# - #{mod 22257}#))) + #{type 22410}# + #{value 22411}# + #{e 22412}# + #{r 22101}# + #{w 22413}# + #{s 22414}# + #{mod 22415}#))) (begin - (primitive-eval #{x 24488}#) - #{x 24488}#)) + (primitive-eval #{x 24666}#) + #{x 24666}#)) (lambda () (#{chi-expr 4376}# - #{type 22252}# - #{value 22253}# - #{e 22254}# - #{r 21959}# - #{w 22255}# - #{s 22256}# - #{mod 22257}#))) - #{exps 21965}#)))))))))) - (lambda (#{exps 24497}#) - (#{scan 21811}# - (cdr #{body 21958}#) - #{r 21959}# - #{w 21960}# - #{s 21961}# - #{m 21962}# - #{esew 21963}# - #{mod 21964}# - #{exps 24497}#))))))) + #{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 21811}# - #{body 21804}# - #{r 21805}# - #{w 21806}# - #{s 21807}# - #{m 21808}# - #{esew 21809}# - #{mod 21810}# + (#{scan 21953}# + #{body 21946}# + #{r 21947}# + #{w 21948}# + #{s 21949}# + #{m 21950}# + #{esew 21951}# + #{mod 21952}# '())) - (lambda (#{exps 21814}#) - (if (null? #{exps 21814}#) + (lambda (#{exps 21956}#) + (if (null? #{exps 21956}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 21807}#) + #{s 21949}#) (#{build-sequence 4324}# - #{s 21807}# + #{s 21949}# (letrec* - ((#{lp 21858}# - (lambda (#{in 21954}# #{out 21955}#) - (if (null? #{in 21954}#) - #{out 21955}# - (let ((#{e 21956}# (car #{in 21954}#))) - (#{lp 21858}# - (cdr #{in 21954}#) - (cons (if (procedure? #{e 21956}#) - (#{e 21956}#) - #{e 21956}#) - #{out 21955}#))))))) - (#{lp 21858}# #{exps 21814}# '()))))))))) + ((#{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 24498}# #{e 24499}#) - (let ((#{exp 24505}# - (let ((#{args 24516}# + (lambda (#{name 24676}# #{e 24677}#) + (let ((#{exp 24683}# + (let ((#{args 24694}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 24498}#) + #{name 24676}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 24499}#))) + #{e 24677}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'make-syntax-transformer - #{args 24516}#)))) + #{args 24694}#)))) (begin - (if (if (struct? #{exp 24505}#) - (eq? (struct-vtable #{exp 24505}#) + (if (if (struct? #{exp 24683}#) + (eq? (struct-vtable #{exp 24683}#) (vector-ref %expanded-vtables 14)) #f) - (let ((#{meta 24543}# (struct-ref #{exp 24505}# 1))) - (if (not (assq 'name #{meta 24543}#)) - (let ((#{v 24550}# - (cons (cons 'name #{name 24498}#) #{meta 24543}#))) - (struct-set! #{exp 24505}# 1 #{v 24550}#))))) + (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}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 24498}# - #{exp 24505}#))))) + #{name 24676}# + #{exp 24683}#))))) (#{chi-when-list 4373}# - (lambda (#{e 24561}# #{when-list 24562}# #{w 24563}#) + (lambda (#{e 24739}# #{when-list 24740}# #{w 24741}#) (letrec* - ((#{f 24564}# - (lambda (#{when-list 24764}# #{situations 24765}#) - (if (null? #{when-list 24764}#) - #{situations 24765}# - (#{f 24564}# - (cdr #{when-list 24764}#) - (cons (let ((#{x 24766}# - (syntax->datum (car #{when-list 24764}#)))) - (if (if (eq? #{x 24766}# 'compile) + ((#{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) #t - (if (eq? #{x 24766}# 'load) + (if (eq? #{x 24946}# 'load) #t - (if (eq? #{x 24766}# 'eval) + (if (eq? #{x 24946}# 'eval) #t - (eq? #{x 24766}# 'expand)))) - #{x 24766}# + (eq? #{x 24946}# 'expand)))) + #{x 24946}# (syntax-violation 'eval-when "invalid situation" - #{e 24561}# - (let ((#{x 24785}# (car #{when-list 24764}#))) - (if (if (null? (car #{w 24563}#)) - (null? (cdr #{w 24563}#)) + #{e 24739}# + (let ((#{x 24965}# (car #{when-list 24944}#))) + (if (if (null? (car #{w 24741}#)) + (null? (cdr #{w 24741}#)) #f) - #{x 24785}# - (if (if (vector? #{x 24785}#) - (if (= (vector-length #{x 24785}#) 4) - (eq? (vector-ref #{x 24785}# 0) + #{x 24965}# + (if (if (vector? #{x 24965}#) + (if (= (vector-length #{x 24965}#) 4) + (eq? (vector-ref #{x 24965}# 0) 'syntax-object) #f) #f) - (let ((#{expression 24803}# - (vector-ref #{x 24785}# 1)) - (#{wrap 24804}# - (let ((#{w2 24812}# + (let ((#{expression 24983}# + (vector-ref #{x 24965}# 1)) + (#{wrap 24984}# + (let ((#{w2 24992}# (vector-ref - #{x 24785}# + #{x 24965}# 2))) - (let ((#{m1 24813}# - (car #{w 24563}#)) - (#{s1 24814}# - (cdr #{w 24563}#))) - (if (null? #{m1 24813}#) - (if (null? #{s1 24814}#) - #{w2 24812}# - (cons (car #{w2 24812}#) - (let ((#{m2 24829}# - (cdr #{w2 24812}#))) - (if (null? #{m2 24829}#) - #{s1 24814}# + (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}# (append - #{s1 24814}# - #{m2 24829}#))))) - (cons (let ((#{m2 24837}# - (car #{w2 24812}#))) - (if (null? #{m2 24837}#) - #{m1 24813}# + #{s1 24994}# + #{m2 25009}#))))) + (cons (let ((#{m2 25017}# + (car #{w2 24992}#))) + (if (null? #{m2 25017}#) + #{m1 24993}# (append - #{m1 24813}# - #{m2 24837}#))) - (let ((#{m2 24845}# - (cdr #{w2 24812}#))) - (if (null? #{m2 24845}#) - #{s1 24814}# + #{m1 24993}# + #{m2 25017}#))) + (let ((#{m2 25025}# + (cdr #{w2 24992}#))) + (if (null? #{m2 25025}#) + #{s1 24994}# (append - #{s1 24814}# - #{m2 24845}#)))))))) - (#{module 24805}# - (vector-ref #{x 24785}# 3))) + #{s1 24994}# + #{m2 25025}#)))))))) + (#{module 24985}# + (vector-ref #{x 24965}# 3))) (vector 'syntax-object - #{expression 24803}# - #{wrap 24804}# - #{module 24805}#)) - (if (null? #{x 24785}#) - #{x 24785}# + #{expression 24983}# + #{wrap 24984}# + #{module 24985}#)) + (if (null? #{x 24965}#) + #{x 24965}# (vector 'syntax-object - #{x 24785}# - #{w 24563}# + #{x 24965}# + #{w 24741}# #f)))))))) - #{situations 24765}#)))))) - (#{f 24564}# #{when-list 24562}# '())))) + #{situations 24945}#)))))) + (#{f 24742}# #{when-list 24740}# '())))) (#{syntax-type 4374}# - (lambda (#{e 24860}# - #{r 24861}# - #{w 24862}# - #{s 24863}# - #{rib 24864}# - #{mod 24865}# - #{for-car? 24866}#) - (if (symbol? #{e 24860}#) - (let ((#{n 24867}# - (#{id-var-name 4362}# #{e 24860}# #{w 24862}#))) - (let ((#{b 24868}# - (let ((#{t 25443}# (assq #{n 24867}# #{r 24861}#))) - (if #{t 25443}# - (cdr #{t 25443}#) - (if (symbol? #{n 24867}#) - (let ((#{t 25448}# + (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}# (begin - (if (if (not #{mod 24865}#) + (if (if (not #{mod 25045}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 24867}#)) - (let ((#{v 25485}# + #{n 25047}#)) + (let ((#{v 25665}# (module-variable - (if #{mod 24865}# + (if #{mod 25045}# (resolve-module - (cdr #{mod 24865}#)) + (cdr #{mod 25045}#)) (current-module)) - #{n 24867}#))) - (if #{v 25485}# - (if (variable-bound? #{v 25485}#) - (let ((#{val 25494}# - (variable-ref #{v 25485}#))) - (if (macro? #{val 25494}#) - (if (macro-type #{val 25494}#) - (cons (macro-type #{val 25494}#) + #{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}#) (macro-binding - #{val 25494}#)) + #{val 25674}#)) #f) #f)) #f) #f))))) - (if #{t 25448}# #{t 25448}# '(global))) + (if #{t 25628}# #{t 25628}# '(global))) '(displaced-lexical)))))) - (let ((#{type 24869}# (car #{b 24868}#))) - (if (let ((#{t 24903}# #{type 24869}#)) - (eqv? #{t 24903}# 'lexical)) + (let ((#{type 25049}# (car #{b 25048}#))) + (if (let ((#{t 25083}# #{type 25049}#)) + (eqv? #{t 25083}# 'lexical)) (values - #{type 24869}# - (cdr #{b 24868}#) - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (let ((#{t 25060}# #{type 24869}#)) - (eqv? #{t 25060}# 'global)) + #{type 25049}# + (cdr #{b 25048}#) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (let ((#{t 25240}# #{type 25049}#)) + (eqv? #{t 25240}# 'global)) (values - #{type 24869}# - #{n 24867}# - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (let ((#{t 25186}# #{type 24869}#)) - (eqv? #{t 25186}# 'macro)) - (if #{for-car? 24866}# + #{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}# (values - #{type 24869}# - (cdr #{b 24868}#) - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) + #{type 25049}# + (cdr #{b 25048}#) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) (#{syntax-type 4374}# (#{chi-macro 4378}# - (cdr #{b 24868}#) - #{e 24860}# - #{r 24861}# - #{w 24862}# - #{s 24863}# - #{rib 24864}# - #{mod 24865}#) - #{r 24861}# + (cdr #{b 25048}#) + #{e 25040}# + #{r 25041}# + #{w 25042}# + #{s 25043}# + #{rib 25044}# + #{mod 25045}#) + #{r 25041}# '(()) - #{s 24863}# - #{rib 24864}# - #{mod 24865}# + #{s 25043}# + #{rib 25044}# + #{mod 25045}# #f)) (values - #{type 24869}# - (cdr #{b 24868}#) - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#))))))) - (if (pair? #{e 24860}#) - (let ((#{first 25505}# (car #{e 24860}#))) + #{type 25049}# + (cdr #{b 25048}#) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#))))))) + (if (pair? #{e 25040}#) + (let ((#{first 25685}# (car #{e 25040}#))) (call-with-values (lambda () (#{syntax-type 4374}# - #{first 25505}# - #{r 24861}# - #{w 24862}# - #{s 24863}# - #{rib 24864}# - #{mod 24865}# + #{first 25685}# + #{r 25041}# + #{w 25042}# + #{s 25043}# + #{rib 25044}# + #{mod 25045}# #t)) - (lambda (#{ftype 25507}# - #{fval 25508}# - #{fe 25509}# - #{fw 25510}# - #{fs 25511}# - #{fmod 25512}#) - (if (eqv? #{ftype 25507}# 'lexical) + (lambda (#{ftype 25687}# + #{fval 25688}# + #{fe 25689}# + #{fw 25690}# + #{fs 25691}# + #{fmod 25692}#) + (if (eqv? #{ftype 25687}# 'lexical) (values 'lexical-call - #{fval 25508}# - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'global) + #{fval 25688}# + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (eqv? #{ftype 25687}# 'global) (values 'global-call (vector 'syntax-object - #{fval 25508}# - #{w 24862}# - #{fmod 25512}#) - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'macro) + #{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 25508}# - #{e 24860}# - #{r 24861}# - #{w 24862}# - #{s 24863}# - #{rib 24864}# - #{mod 24865}#) - #{r 24861}# + #{fval 25688}# + #{e 25040}# + #{r 25041}# + #{w 25042}# + #{s 25043}# + #{rib 25044}# + #{mod 25045}#) + #{r 25041}# '(()) - #{s 24863}# - #{rib 24864}# - #{mod 24865}# - #{for-car? 24866}#) - (if (eqv? #{ftype 25507}# 'module-ref) + #{s 25043}# + #{rib 25044}# + #{mod 25045}# + #{for-car? 25046}#) + (if (eqv? #{ftype 25687}# 'module-ref) (call-with-values (lambda () - (#{fval 25508}# - #{e 24860}# - #{r 24861}# - #{w 24862}#)) - (lambda (#{e 25533}# - #{r 25534}# - #{w 25535}# - #{s 25536}# - #{mod 25537}#) + (#{fval 25688}# + #{e 25040}# + #{r 25041}# + #{w 25042}#)) + (lambda (#{e 25713}# + #{r 25714}# + #{w 25715}# + #{s 25716}# + #{mod 25717}#) (#{syntax-type 4374}# - #{e 25533}# - #{r 25534}# - #{w 25535}# - #{s 25536}# - #{rib 24864}# - #{mod 25537}# - #{for-car? 24866}#))) - (if (eqv? #{ftype 25507}# 'core) + #{e 25713}# + #{r 25714}# + #{w 25715}# + #{s 25716}# + #{rib 25044}# + #{mod 25717}# + #{for-car? 25046}#))) + (if (eqv? #{ftype 25687}# 'core) (values 'core-form - #{fval 25508}# - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'local-syntax) + #{fval 25688}# + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (eqv? #{ftype 25687}# 'local-syntax) (values 'local-syntax-form - #{fval 25508}# - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'begin) + #{fval 25688}# + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (eqv? #{ftype 25687}# 'begin) (values 'begin-form #f - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'eval-when) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (eqv? #{ftype 25687}# 'eval-when) (values 'eval-when-form #f - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) - (if (eqv? #{ftype 25507}# 'define) - (let ((#{tmp 25554}# + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) + (if (eqv? #{ftype 25687}# 'define) + (let ((#{tmp 25734}# ($sc-dispatch - #{e 24860}# + #{e 25040}# '(_ any any)))) - (if (if #{tmp 25554}# + (if (if #{tmp 25734}# (@apply - (lambda (#{name 25558}# - #{val 25559}#) - (if (symbol? #{name 25558}#) + (lambda (#{name 25738}# + #{val 25739}#) + (if (symbol? #{name 25738}#) #t (if (if (vector? - #{name 25558}#) + #{name 25738}#) (if (= (vector-length - #{name 25558}#) + #{name 25738}#) 4) (eq? (vector-ref - #{name 25558}# + #{name 25738}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 25558}# + #{name 25738}# 1)) #f))) - #{tmp 25554}#) + #{tmp 25734}#) #f) (@apply - (lambda (#{name 25586}# #{val 25587}#) + (lambda (#{name 25766}# #{val 25767}#) (values 'define-form - #{name 25586}# - #{val 25587}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#)) - #{tmp 25554}#) - (let ((#{tmp 25588}# + #{name 25766}# + #{val 25767}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#)) + #{tmp 25734}#) + (let ((#{tmp 25768}# ($sc-dispatch - #{e 24860}# + #{e 25040}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 25588}# + (if (if #{tmp 25768}# (@apply - (lambda (#{name 25592}# - #{args 25593}# - #{e1 25594}# - #{e2 25595}#) + (lambda (#{name 25772}# + #{args 25773}# + #{e1 25774}# + #{e2 25775}#) (if (if (symbol? - #{name 25592}#) + #{name 25772}#) #t (if (if (vector? - #{name 25592}#) + #{name 25772}#) (if (= (vector-length - #{name 25592}#) + #{name 25772}#) 4) (eq? (vector-ref - #{name 25592}# + #{name 25772}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 25592}# + #{name 25772}# 1)) #f)) (#{valid-bound-ids? 4365}# (#{lambda-var-list 4390}# - #{args 25593}#)) + #{args 25773}#)) #f)) - #{tmp 25588}#) + #{tmp 25768}#) #f) (@apply - (lambda (#{name 26071}# - #{args 26072}# - #{e1 26073}# - #{e2 26074}#) + (lambda (#{name 26256}# + #{args 26257}# + #{e1 26258}# + #{e2 26259}#) (values 'define-form - (if (if (null? (car #{w 24862}#)) - (null? (cdr #{w 24862}#)) + (if (if (null? (car #{w 25042}#)) + (null? (cdr #{w 25042}#)) #f) - #{name 26071}# + #{name 26256}# (if (if (vector? - #{name 26071}#) + #{name 26256}#) (if (= (vector-length - #{name 26071}#) + #{name 26256}#) 4) (eq? (vector-ref - #{name 26071}# + #{name 26256}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26104}# + (let ((#{expression 26289}# (vector-ref - #{name 26071}# + #{name 26256}# 1)) - (#{wrap 26105}# - (let ((#{w2 26115}# + (#{wrap 26290}# + (let ((#{w2 26300}# (vector-ref - #{name 26071}# + #{name 26256}# 2))) - (let ((#{m1 26116}# - (car #{w 24862}#)) - (#{s1 26117}# - (cdr #{w 24862}#))) - (if (null? #{m1 26116}#) - (if (null? #{s1 26117}#) - #{w2 26115}# - (cons (car #{w2 26115}#) - (let ((#{m2 26134}# - (cdr #{w2 26115}#))) - (if (null? #{m2 26134}#) - #{s1 26117}# + (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}# (append - #{s1 26117}# - #{m2 26134}#))))) - (cons (let ((#{m2 26142}# - (car #{w2 26115}#))) - (if (null? #{m2 26142}#) - #{m1 26116}# + #{s1 26302}# + #{m2 26319}#))))) + (cons (let ((#{m2 26327}# + (car #{w2 26300}#))) + (if (null? #{m2 26327}#) + #{m1 26301}# (append - #{m1 26116}# - #{m2 26142}#))) - (let ((#{m2 26150}# - (cdr #{w2 26115}#))) - (if (null? #{m2 26150}#) - #{s1 26117}# + #{m1 26301}# + #{m2 26327}#))) + (let ((#{m2 26335}# + (cdr #{w2 26300}#))) + (if (null? #{m2 26335}#) + #{s1 26302}# (append - #{s1 26117}# - #{m2 26150}#)))))))) - (#{module 26106}# + #{s1 26302}# + #{m2 26335}#)))))))) + (#{module 26291}# (vector-ref - #{name 26071}# + #{name 26256}# 3))) (vector 'syntax-object - #{expression 26104}# - #{wrap 26105}# - #{module 26106}#)) - (if (null? #{name 26071}#) - #{name 26071}# + #{expression 26289}# + #{wrap 26290}# + #{module 26291}#)) + (if (null? #{name 26256}#) + #{name 26256}# (vector 'syntax-object - #{name 26071}# - #{w 24862}# - #{mod 24865}#)))) - (let ((#{e 26176}# + #{name 26256}# + #{w 25042}# + #{mod 25045}#)))) + (let ((#{e 26361}# (cons '#(syntax-object lambda ((top) @@ -2472,192 +2472,192 @@ "i44"))) (hygiene guile)) - (let ((#{x 26180}# - (cons #{args 26072}# - (cons #{e1 26073}# - #{e2 26074}#)))) - (if (if (null? (car #{w 24862}#)) - (null? (cdr #{w 24862}#)) + (let ((#{x 26365}# + (cons #{args 26257}# + (cons #{e1 26258}# + #{e2 26259}#)))) + (if (if (null? (car #{w 25042}#)) + (null? (cdr #{w 25042}#)) #f) - #{x 26180}# + #{x 26365}# (if (if (vector? - #{x 26180}#) + #{x 26365}#) (if (= (vector-length - #{x 26180}#) + #{x 26365}#) 4) (eq? (vector-ref - #{x 26180}# + #{x 26365}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26198}# + (let ((#{expression 26383}# (vector-ref - #{x 26180}# + #{x 26365}# 1)) - (#{wrap 26199}# - (let ((#{w2 26207}# + (#{wrap 26384}# + (let ((#{w2 26392}# (vector-ref - #{x 26180}# + #{x 26365}# 2))) - (let ((#{m1 26208}# - (car #{w 24862}#)) - (#{s1 26209}# - (cdr #{w 24862}#))) - (if (null? #{m1 26208}#) - (if (null? #{s1 26209}#) - #{w2 26207}# - (cons (car #{w2 26207}#) - (let ((#{m2 26224}# - (cdr #{w2 26207}#))) - (if (null? #{m2 26224}#) - #{s1 26209}# + (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}# (append - #{s1 26209}# - #{m2 26224}#))))) - (cons (let ((#{m2 26232}# - (car #{w2 26207}#))) - (if (null? #{m2 26232}#) - #{m1 26208}# + #{s1 26394}# + #{m2 26409}#))))) + (cons (let ((#{m2 26417}# + (car #{w2 26392}#))) + (if (null? #{m2 26417}#) + #{m1 26393}# (append - #{m1 26208}# - #{m2 26232}#))) - (let ((#{m2 26240}# - (cdr #{w2 26207}#))) - (if (null? #{m2 26240}#) - #{s1 26209}# + #{m1 26393}# + #{m2 26417}#))) + (let ((#{m2 26425}# + (cdr #{w2 26392}#))) + (if (null? #{m2 26425}#) + #{s1 26394}# (append - #{s1 26209}# - #{m2 26240}#)))))))) - (#{module 26200}# + #{s1 26394}# + #{m2 26425}#)))))))) + (#{module 26385}# (vector-ref - #{x 26180}# + #{x 26365}# 3))) (vector 'syntax-object - #{expression 26198}# - #{wrap 26199}# - #{module 26200}#)) - (if (null? #{x 26180}#) - #{x 26180}# + #{expression 26383}# + #{wrap 26384}# + #{module 26385}#)) + (if (null? #{x 26365}#) + #{x 26365}# (vector 'syntax-object - #{x 26180}# - #{w 24862}# - #{mod 24865}#)))))))) + #{x 26365}# + #{w 25042}# + #{mod 25045}#)))))))) (begin - (if (if (pair? #{e 26176}#) - #{s 24863}# + (if (if (pair? #{e 26361}#) + #{s 25043}# #f) (set-source-properties! - #{e 26176}# - #{s 24863}#)) - #{e 26176}#)) + #{e 26361}# + #{s 25043}#)) + #{e 26361}#)) '(()) - #{s 24863}# - #{mod 24865}#)) - #{tmp 25588}#) - (let ((#{tmp 26259}# + #{s 25043}# + #{mod 25045}#)) + #{tmp 25768}#) + (let ((#{tmp 26444}# ($sc-dispatch - #{e 24860}# + #{e 25040}# '(_ any)))) - (if (if #{tmp 26259}# + (if (if #{tmp 26444}# (@apply - (lambda (#{name 26263}#) + (lambda (#{name 26448}#) (if (symbol? - #{name 26263}#) + #{name 26448}#) #t (if (if (vector? - #{name 26263}#) + #{name 26448}#) (if (= (vector-length - #{name 26263}#) + #{name 26448}#) 4) (eq? (vector-ref - #{name 26263}# + #{name 26448}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 26263}# + #{name 26448}# 1)) #f))) - #{tmp 26259}#) + #{tmp 26444}#) #f) (@apply - (lambda (#{name 26290}#) + (lambda (#{name 26475}#) (values 'define-form - (if (if (null? (car #{w 24862}#)) - (null? (cdr #{w 24862}#)) + (if (if (null? (car #{w 25042}#)) + (null? (cdr #{w 25042}#)) #f) - #{name 26290}# + #{name 26475}# (if (if (vector? - #{name 26290}#) + #{name 26475}#) (if (= (vector-length - #{name 26290}#) + #{name 26475}#) 4) (eq? (vector-ref - #{name 26290}# + #{name 26475}# 0) 'syntax-object) #f) #f) - (let ((#{expression 26320}# + (let ((#{expression 26505}# (vector-ref - #{name 26290}# + #{name 26475}# 1)) - (#{wrap 26321}# - (let ((#{w2 26331}# + (#{wrap 26506}# + (let ((#{w2 26516}# (vector-ref - #{name 26290}# + #{name 26475}# 2))) - (let ((#{m1 26332}# - (car #{w 24862}#)) - (#{s1 26333}# - (cdr #{w 24862}#))) - (if (null? #{m1 26332}#) - (if (null? #{s1 26333}#) - #{w2 26331}# - (cons (car #{w2 26331}#) - (let ((#{m2 26350}# - (cdr #{w2 26331}#))) - (if (null? #{m2 26350}#) - #{s1 26333}# + (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}# (append - #{s1 26333}# - #{m2 26350}#))))) - (cons (let ((#{m2 26358}# - (car #{w2 26331}#))) - (if (null? #{m2 26358}#) - #{m1 26332}# + #{s1 26518}# + #{m2 26535}#))))) + (cons (let ((#{m2 26543}# + (car #{w2 26516}#))) + (if (null? #{m2 26543}#) + #{m1 26517}# (append - #{m1 26332}# - #{m2 26358}#))) - (let ((#{m2 26366}# - (cdr #{w2 26331}#))) - (if (null? #{m2 26366}#) - #{s1 26333}# + #{m1 26517}# + #{m2 26543}#))) + (let ((#{m2 26551}# + (cdr #{w2 26516}#))) + (if (null? #{m2 26551}#) + #{s1 26518}# (append - #{s1 26333}# - #{m2 26366}#)))))))) - (#{module 26322}# + #{s1 26518}# + #{m2 26551}#)))))))) + (#{module 26507}# (vector-ref - #{name 26290}# + #{name 26475}# 3))) (vector 'syntax-object - #{expression 26320}# - #{wrap 26321}# - #{module 26322}#)) - (if (null? #{name 26290}#) - #{name 26290}# + #{expression 26505}# + #{wrap 26506}# + #{module 26507}#)) + (if (null? #{name 26475}#) + #{name 26475}# (vector 'syntax-object - #{name 26290}# - #{w 24862}# - #{mod 24865}#)))) + #{name 26475}# + #{w 25042}# + #{mod 25045}#)))) '(#(syntax-object if ((top) @@ -4105,1869 +4105,1869 @@ "i44"))) (hygiene guile))) '(()) - #{s 24863}# - #{mod 24865}#)) - #{tmp 26259}#) + #{s 25043}# + #{mod 25045}#)) + #{tmp 26444}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 24860}#))))))) - (if (eqv? #{ftype 25507}# 'define-syntax) - (let ((#{tmp 26405}# + #{e 25040}#))))))) + (if (eqv? #{ftype 25687}# 'define-syntax) + (let ((#{tmp 26590}# ($sc-dispatch - #{e 24860}# + #{e 25040}# '(_ any any)))) - (if (if #{tmp 26405}# + (if (if #{tmp 26590}# (@apply - (lambda (#{name 26409}# - #{val 26410}#) - (if (symbol? #{name 26409}#) + (lambda (#{name 26594}# + #{val 26595}#) + (if (symbol? #{name 26594}#) #t (if (if (vector? - #{name 26409}#) + #{name 26594}#) (if (= (vector-length - #{name 26409}#) + #{name 26594}#) 4) (eq? (vector-ref - #{name 26409}# + #{name 26594}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 26409}# + #{name 26594}# 1)) #f))) - #{tmp 26405}#) + #{tmp 26590}#) #f) (@apply - (lambda (#{name 26437}# - #{val 26438}#) + (lambda (#{name 26622}# + #{val 26623}#) (values 'define-syntax-form - #{name 26437}# - #{val 26438}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#)) - #{tmp 26405}#) + #{name 26622}# + #{val 26623}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#)) + #{tmp 26590}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 24860}#))) + #{e 25040}#))) (values 'call #f - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#)))))))))))))) - (if (if (vector? #{e 24860}#) - (if (= (vector-length #{e 24860}#) 4) - (eq? (vector-ref #{e 24860}# 0) 'syntax-object) + #{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) #f) #f) (#{syntax-type 4374}# - (vector-ref #{e 24860}# 1) - #{r 24861}# - (let ((#{w2 26463}# (vector-ref #{e 24860}# 2))) - (let ((#{m1 26464}# (car #{w 24862}#)) - (#{s1 26465}# (cdr #{w 24862}#))) - (if (null? #{m1 26464}#) - (if (null? #{s1 26465}#) - #{w2 26463}# - (cons (car #{w2 26463}#) - (let ((#{m2 26476}# (cdr #{w2 26463}#))) - (if (null? #{m2 26476}#) - #{s1 26465}# - (append #{s1 26465}# #{m2 26476}#))))) - (cons (let ((#{m2 26484}# (car #{w2 26463}#))) - (if (null? #{m2 26484}#) - #{m1 26464}# - (append #{m1 26464}# #{m2 26484}#))) - (let ((#{m2 26492}# (cdr #{w2 26463}#))) - (if (null? #{m2 26492}#) - #{s1 26465}# - (append #{s1 26465}# #{m2 26492}#))))))) - (let ((#{t 26497}# - (#{source-annotation 4336}# #{e 24860}#))) - (if #{t 26497}# #{t 26497}# #{s 24863}#)) - #{rib 24864}# - (let ((#{t 26779}# (vector-ref #{e 24860}# 3))) - (if #{t 26779}# #{t 26779}# #{mod 24865}#)) - #{for-car? 24866}#) - (if (self-evaluating? #{e 24860}#) + (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}#) (values 'constant #f - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#) (values 'other #f - #{e 24860}# - #{w 24862}# - #{s 24863}# - #{mod 24865}#))))))) + #{e 25040}# + #{w 25042}# + #{s 25043}# + #{mod 25045}#))))))) (#{chi 4375}# - (lambda (#{e 26788}# - #{r 26789}# - #{w 26790}# - #{mod 26791}#) + (lambda (#{e 26989}# + #{r 26990}# + #{w 26991}# + #{mod 26992}#) (call-with-values (lambda () (#{syntax-type 4374}# - #{e 26788}# - #{r 26789}# - #{w 26790}# - (#{source-annotation 4336}# #{e 26788}#) + #{e 26989}# + #{r 26990}# + #{w 26991}# + (#{source-annotation 4336}# #{e 26989}#) #f - #{mod 26791}# + #{mod 26992}# #f)) - (lambda (#{type 26983}# - #{value 26984}# - #{e 26985}# - #{w 26986}# - #{s 26987}# - #{mod 26988}#) + (lambda (#{type 27196}# + #{value 27197}# + #{e 27198}# + #{w 27199}# + #{s 27200}# + #{mod 27201}#) (#{chi-expr 4376}# - #{type 26983}# - #{value 26984}# - #{e 26985}# - #{r 26789}# - #{w 26986}# - #{s 26987}# - #{mod 26988}#))))) + #{type 27196}# + #{value 27197}# + #{e 27198}# + #{r 26990}# + #{w 27199}# + #{s 27200}# + #{mod 27201}#))))) (#{chi-expr 4376}# - (lambda (#{type 26991}# - #{value 26992}# - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) - (if (eqv? #{type 26991}# 'lexical) + (lambda (#{type 27204}# + #{value 27205}# + #{e 27206}# + #{r 27207}# + #{w 27208}# + #{s 27209}# + #{mod 27210}#) + (if (eqv? #{type 27204}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 26996}# - #{e 26993}# - #{value 26992}#) - (if (if (eqv? #{type 26991}# 'core) + #{s 27209}# + #{e 27206}# + #{value 27205}#) + (if (if (eqv? #{type 27204}# 'core) #t - (eqv? #{type 26991}# 'core-form)) - (#{value 26992}# - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) - (if (eqv? #{type 26991}# 'module-ref) + (eqv? #{type 27204}# 'core-form)) + (#{value 27205}# + #{e 27206}# + #{r 27207}# + #{w 27208}# + #{s 27209}# + #{mod 27210}#) + (if (eqv? #{type 27204}# 'module-ref) (call-with-values (lambda () - (#{value 26992}# - #{e 26993}# - #{r 26994}# - #{w 26995}#)) - (lambda (#{e 27023}# - #{r 27024}# - #{w 27025}# - #{s 27026}# - #{mod 27027}#) + (#{value 27205}# + #{e 27206}# + #{r 27207}# + #{w 27208}#)) + (lambda (#{e 27236}# + #{r 27237}# + #{w 27238}# + #{s 27239}# + #{mod 27240}#) (#{chi 4375}# - #{e 27023}# - #{r 27024}# - #{w 27025}# - #{mod 27027}#))) - (if (eqv? #{type 26991}# 'lexical-call) + #{e 27236}# + #{r 27237}# + #{w 27238}# + #{mod 27240}#))) + (if (eqv? #{type 27204}# 'lexical-call) (#{chi-call 4377}# - (let ((#{id 27204}# (car #{e 26993}#))) + (let ((#{id 27421}# (car #{e 27206}#))) (#{build-lexical-reference 4312}# 'fun - (#{source-annotation 4336}# #{id 27204}#) - (if (if (vector? #{id 27204}#) - (if (= (vector-length #{id 27204}#) 4) - (eq? (vector-ref #{id 27204}# 0) 'syntax-object) + (#{source-annotation 4336}# #{id 27421}#) + (if (if (vector? #{id 27421}#) + (if (= (vector-length #{id 27421}#) 4) + (eq? (vector-ref #{id 27421}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 27204}#) - #{id 27204}#) - #{value 26992}#)) - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) - (if (eqv? #{type 26991}# 'global-call) + (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 26993}#)) - (if (if (vector? #{value 26992}#) - (if (= (vector-length #{value 26992}#) 4) - (eq? (vector-ref #{value 26992}# 0) + (#{source-annotation 4336}# (car #{e 27206}#)) + (if (if (vector? #{value 27205}#) + (if (= (vector-length #{value 27205}#) 4) + (eq? (vector-ref #{value 27205}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 26992}# 1) - #{value 26992}#) - (if (if (vector? #{value 26992}#) - (if (= (vector-length #{value 26992}#) 4) - (eq? (vector-ref #{value 26992}# 0) + (vector-ref #{value 27205}# 1) + #{value 27205}#) + (if (if (vector? #{value 27205}#) + (if (= (vector-length #{value 27205}#) 4) + (eq? (vector-ref #{value 27205}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 26992}# 3) - #{mod 26997}#)) - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) - (if (eqv? #{type 26991}# 'constant) - (let ((#{exp 27897}# + (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 27910}# + (let ((#{x 28156}# (begin - (if (if (pair? #{e 26993}#) - #{s 26996}# + (if (if (pair? #{e 27206}#) + #{s 27209}# #f) (set-source-properties! - #{e 26993}# - #{s 26996}#)) - #{e 26993}#))) - (if (if (null? (car #{w 26995}#)) - (null? (cdr #{w 26995}#)) + #{e 27206}# + #{s 27209}#)) + #{e 27206}#))) + (if (if (null? (car #{w 27208}#)) + (null? (cdr #{w 27208}#)) #f) - #{x 27910}# - (if (if (vector? #{x 27910}#) - (if (= (vector-length #{x 27910}#) 4) - (eq? (vector-ref #{x 27910}# 0) + #{x 28156}# + (if (if (vector? #{x 28156}#) + (if (= (vector-length #{x 28156}#) 4) + (eq? (vector-ref #{x 28156}# 0) 'syntax-object) #f) #f) - (let ((#{expression 27942}# - (vector-ref #{x 27910}# 1)) - (#{wrap 27943}# - (let ((#{w2 27951}# - (vector-ref #{x 27910}# 2))) - (let ((#{m1 27952}# - (car #{w 26995}#)) - (#{s1 27953}# - (cdr #{w 26995}#))) - (if (null? #{m1 27952}#) - (if (null? #{s1 27953}#) - #{w2 27951}# - (cons (car #{w2 27951}#) - (let ((#{m2 27968}# - (cdr #{w2 27951}#))) - (if (null? #{m2 27968}#) - #{s1 27953}# + (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}# (append - #{s1 27953}# - #{m2 27968}#))))) - (cons (let ((#{m2 27976}# - (car #{w2 27951}#))) - (if (null? #{m2 27976}#) - #{m1 27952}# + #{s1 28199}# + #{m2 28214}#))))) + (cons (let ((#{m2 28222}# + (car #{w2 28197}#))) + (if (null? #{m2 28222}#) + #{m1 28198}# (append - #{m1 27952}# - #{m2 27976}#))) - (let ((#{m2 27984}# - (cdr #{w2 27951}#))) - (if (null? #{m2 27984}#) - #{s1 27953}# + #{m1 28198}# + #{m2 28222}#))) + (let ((#{m2 28230}# + (cdr #{w2 28197}#))) + (if (null? #{m2 28230}#) + #{s1 28199}# (append - #{s1 27953}# - #{m2 27984}#)))))))) - (#{module 27944}# - (vector-ref #{x 27910}# 3))) + #{s1 28199}# + #{m2 28230}#)))))))) + (#{module 28190}# + (vector-ref #{x 28156}# 3))) (vector 'syntax-object - #{expression 27942}# - #{wrap 27943}# - #{module 27944}#)) - (if (null? #{x 27910}#) - #{x 27910}# + #{expression 28188}# + #{wrap 28189}# + #{module 28190}#)) + (if (null? #{x 28156}#) + #{x 28156}# (vector 'syntax-object - #{x 27910}# - #{w 26995}# - #{mod 26997}#))))) + #{x 28156}# + #{w 27208}# + #{mod 27210}#))))) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 26996}# - #{exp 27897}#)) - (if (eqv? #{type 26991}# 'global) + #{s 27209}# + #{exp 28143}#)) + (if (eqv? #{type 27204}# 'global) (#{analyze-variable 4314}# - #{mod 26997}# - #{value 26992}# - (lambda (#{mod 28009}# #{var 28010}# #{public? 28011}#) + #{mod 27210}# + #{value 27205}# + (lambda (#{mod 28255}# #{var 28256}# #{public? 28257}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 26996}# - #{mod 28009}# - #{var 28010}# - #{public? 28011}#)) - (lambda (#{var 28019}#) + #{s 27209}# + #{mod 28255}# + #{var 28256}# + #{public? 28257}#)) + (lambda (#{var 28265}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 26996}# - #{var 28019}#))) - (if (eqv? #{type 26991}# 'call) + #{s 27209}# + #{var 28265}#))) + (if (eqv? #{type 27204}# 'call) (#{chi-call 4377}# (#{chi 4375}# - (car #{e 26993}#) - #{r 26994}# - #{w 26995}# - #{mod 26997}#) - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) - (if (eqv? #{type 26991}# 'begin-form) - (let ((#{tmp 28193}# + (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}# ($sc-dispatch - #{e 26993}# + #{e 27206}# '(_ any . each-any)))) - (if #{tmp 28193}# + (if #{tmp 28443}# (@apply - (lambda (#{e1 28197}# #{e2 28198}#) + (lambda (#{e1 28447}# #{e2 28448}#) (#{chi-sequence 4370}# - (cons #{e1 28197}# #{e2 28198}#) - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#)) - #{tmp 28193}#) + (cons #{e1 28447}# #{e2 28448}#) + #{r 27207}# + #{w 27208}# + #{s 27209}# + #{mod 27210}#)) + #{tmp 28443}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 26993}#))) - (if (eqv? #{type 26991}# 'local-syntax-form) + #{e 27206}#))) + (if (eqv? #{type 27204}# 'local-syntax-form) (#{chi-local-syntax 4380}# - #{value 26992}# - #{e 26993}# - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}# + #{value 27205}# + #{e 27206}# + #{r 27207}# + #{w 27208}# + #{s 27209}# + #{mod 27210}# #{chi-sequence 4370}#) - (if (eqv? #{type 26991}# 'eval-when-form) - (let ((#{tmp 28374}# + (if (eqv? #{type 27204}# 'eval-when-form) + (let ((#{tmp 28628}# ($sc-dispatch - #{e 26993}# + #{e 27206}# '(_ each-any any . each-any)))) - (if #{tmp 28374}# + (if #{tmp 28628}# (@apply - (lambda (#{x 28378}# - #{e1 28379}# - #{e2 28380}#) - (let ((#{when-list 28381}# + (lambda (#{x 28632}# + #{e1 28633}# + #{e2 28634}#) + (let ((#{when-list 28635}# (#{chi-when-list 4373}# - #{e 26993}# - #{x 28378}# - #{w 26995}#))) - (if (memq 'eval #{when-list 28381}#) + #{e 27206}# + #{x 28632}# + #{w 27208}#))) + (if (memq 'eval #{when-list 28635}#) (#{chi-sequence 4370}# - (cons #{e1 28379}# #{e2 28380}#) - #{r 26994}# - #{w 26995}# - #{s 26996}# - #{mod 26997}#) + (cons #{e1 28633}# #{e2 28634}#) + #{r 27207}# + #{w 27208}# + #{s 27209}# + #{mod 27210}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 28374}#) + #{tmp 28628}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 26993}#))) - (if (if (eqv? #{type 26991}# 'define-form) + #{e 27206}#))) + (if (if (eqv? #{type 27204}# 'define-form) #t - (eqv? #{type 26991}# 'define-syntax-form)) + (eqv? #{type 27204}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 26993}# - (if (if (null? (car #{w 26995}#)) - (null? (cdr #{w 26995}#)) + #{e 27206}# + (if (if (null? (car #{w 27208}#)) + (null? (cdr #{w 27208}#)) #f) - #{value 26992}# - (if (if (vector? #{value 26992}#) - (if (= (vector-length #{value 26992}#) + #{value 27205}# + (if (if (vector? #{value 27205}#) + (if (= (vector-length #{value 27205}#) 4) - (eq? (vector-ref #{value 26992}# 0) + (eq? (vector-ref #{value 27205}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28530}# - (vector-ref #{value 26992}# 1)) - (#{wrap 28531}# - (let ((#{w2 28541}# + (let ((#{expression 28786}# + (vector-ref #{value 27205}# 1)) + (#{wrap 28787}# + (let ((#{w2 28797}# (vector-ref - #{value 26992}# + #{value 27205}# 2))) - (let ((#{m1 28542}# - (car #{w 26995}#)) - (#{s1 28543}# - (cdr #{w 26995}#))) - (if (null? #{m1 28542}#) - (if (null? #{s1 28543}#) - #{w2 28541}# - (cons (car #{w2 28541}#) - (let ((#{m2 28560}# - (cdr #{w2 28541}#))) - (if (null? #{m2 28560}#) - #{s1 28543}# + (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}# (append - #{s1 28543}# - #{m2 28560}#))))) - (cons (let ((#{m2 28568}# - (car #{w2 28541}#))) - (if (null? #{m2 28568}#) - #{m1 28542}# + #{s1 28799}# + #{m2 28816}#))))) + (cons (let ((#{m2 28824}# + (car #{w2 28797}#))) + (if (null? #{m2 28824}#) + #{m1 28798}# (append - #{m1 28542}# - #{m2 28568}#))) - (let ((#{m2 28576}# - (cdr #{w2 28541}#))) - (if (null? #{m2 28576}#) - #{s1 28543}# + #{m1 28798}# + #{m2 28824}#))) + (let ((#{m2 28832}# + (cdr #{w2 28797}#))) + (if (null? #{m2 28832}#) + #{s1 28799}# (append - #{s1 28543}# - #{m2 28576}#)))))))) - (#{module 28532}# - (vector-ref #{value 26992}# 3))) + #{s1 28799}# + #{m2 28832}#)))))))) + (#{module 28788}# + (vector-ref #{value 27205}# 3))) (vector 'syntax-object - #{expression 28530}# - #{wrap 28531}# - #{module 28532}#)) - (if (null? #{value 26992}#) - #{value 26992}# + #{expression 28786}# + #{wrap 28787}# + #{module 28788}#)) + (if (null? #{value 27205}#) + #{value 27205}# (vector 'syntax-object - #{value 26992}# - #{w 26995}# - #{mod 26997}#))))) - (if (eqv? #{type 26991}# 'syntax) + #{value 27205}# + #{w 27208}# + #{mod 27210}#))))) + (if (eqv? #{type 27204}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (let ((#{x 28611}# + (let ((#{x 28867}# (begin - (if (if (pair? #{e 26993}#) - #{s 26996}# + (if (if (pair? #{e 27206}#) + #{s 27209}# #f) (set-source-properties! - #{e 26993}# - #{s 26996}#)) - #{e 26993}#))) - (if (if (null? (car #{w 26995}#)) - (null? (cdr #{w 26995}#)) + #{e 27206}# + #{s 27209}#)) + #{e 27206}#))) + (if (if (null? (car #{w 27208}#)) + (null? (cdr #{w 27208}#)) #f) - #{x 28611}# - (if (if (vector? #{x 28611}#) - (if (= (vector-length #{x 28611}#) + #{x 28867}# + (if (if (vector? #{x 28867}#) + (if (= (vector-length #{x 28867}#) 4) - (eq? (vector-ref #{x 28611}# 0) + (eq? (vector-ref #{x 28867}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28643}# - (vector-ref #{x 28611}# 1)) - (#{wrap 28644}# - (let ((#{w2 28652}# + (let ((#{expression 28899}# + (vector-ref #{x 28867}# 1)) + (#{wrap 28900}# + (let ((#{w2 28908}# (vector-ref - #{x 28611}# + #{x 28867}# 2))) - (let ((#{m1 28653}# - (car #{w 26995}#)) - (#{s1 28654}# - (cdr #{w 26995}#))) - (if (null? #{m1 28653}#) - (if (null? #{s1 28654}#) - #{w2 28652}# - (cons (car #{w2 28652}#) - (let ((#{m2 28669}# - (cdr #{w2 28652}#))) - (if (null? #{m2 28669}#) - #{s1 28654}# + (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}# (append - #{s1 28654}# - #{m2 28669}#))))) - (cons (let ((#{m2 28677}# - (car #{w2 28652}#))) - (if (null? #{m2 28677}#) - #{m1 28653}# + #{s1 28910}# + #{m2 28925}#))))) + (cons (let ((#{m2 28933}# + (car #{w2 28908}#))) + (if (null? #{m2 28933}#) + #{m1 28909}# (append - #{m1 28653}# - #{m2 28677}#))) - (let ((#{m2 28685}# - (cdr #{w2 28652}#))) - (if (null? #{m2 28685}#) - #{s1 28654}# + #{m1 28909}# + #{m2 28933}#))) + (let ((#{m2 28941}# + (cdr #{w2 28908}#))) + (if (null? #{m2 28941}#) + #{s1 28910}# (append - #{s1 28654}# - #{m2 28685}#)))))))) - (#{module 28645}# - (vector-ref #{x 28611}# 3))) + #{s1 28910}# + #{m2 28941}#)))))))) + (#{module 28901}# + (vector-ref #{x 28867}# 3))) (vector 'syntax-object - #{expression 28643}# - #{wrap 28644}# - #{module 28645}#)) - (if (null? #{x 28611}#) - #{x 28611}# + #{expression 28899}# + #{wrap 28900}# + #{module 28901}#)) + (if (null? #{x 28867}#) + #{x 28867}# (vector 'syntax-object - #{x 28611}# - #{w 26995}# - #{mod 26997}#)))))) - (if (eqv? #{type 26991}# 'displaced-lexical) + #{x 28867}# + #{w 27208}# + #{mod 27210}#)))))) + (if (eqv? #{type 27204}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (let ((#{x 28712}# + (let ((#{x 28968}# (begin - (if (if (pair? #{e 26993}#) - #{s 26996}# + (if (if (pair? #{e 27206}#) + #{s 27209}# #f) (set-source-properties! - #{e 26993}# - #{s 26996}#)) - #{e 26993}#))) - (if (if (null? (car #{w 26995}#)) - (null? (cdr #{w 26995}#)) + #{e 27206}# + #{s 27209}#)) + #{e 27206}#))) + (if (if (null? (car #{w 27208}#)) + (null? (cdr #{w 27208}#)) #f) - #{x 28712}# - (if (if (vector? #{x 28712}#) + #{x 28968}# + (if (if (vector? #{x 28968}#) (if (= (vector-length - #{x 28712}#) + #{x 28968}#) 4) (eq? (vector-ref - #{x 28712}# + #{x 28968}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28744}# - (vector-ref #{x 28712}# 1)) - (#{wrap 28745}# - (let ((#{w2 28753}# + (let ((#{expression 29000}# + (vector-ref #{x 28968}# 1)) + (#{wrap 29001}# + (let ((#{w2 29009}# (vector-ref - #{x 28712}# + #{x 28968}# 2))) - (let ((#{m1 28754}# - (car #{w 26995}#)) - (#{s1 28755}# - (cdr #{w 26995}#))) - (if (null? #{m1 28754}#) - (if (null? #{s1 28755}#) - #{w2 28753}# - (cons (car #{w2 28753}#) - (let ((#{m2 28770}# - (cdr #{w2 28753}#))) - (if (null? #{m2 28770}#) - #{s1 28755}# + (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}# (append - #{s1 28755}# - #{m2 28770}#))))) - (cons (let ((#{m2 28778}# - (car #{w2 28753}#))) - (if (null? #{m2 28778}#) - #{m1 28754}# + #{s1 29011}# + #{m2 29026}#))))) + (cons (let ((#{m2 29034}# + (car #{w2 29009}#))) + (if (null? #{m2 29034}#) + #{m1 29010}# (append - #{m1 28754}# - #{m2 28778}#))) - (let ((#{m2 28786}# - (cdr #{w2 28753}#))) - (if (null? #{m2 28786}#) - #{s1 28755}# + #{m1 29010}# + #{m2 29034}#))) + (let ((#{m2 29042}# + (cdr #{w2 29009}#))) + (if (null? #{m2 29042}#) + #{s1 29011}# (append - #{s1 28755}# - #{m2 28786}#)))))))) - (#{module 28746}# - (vector-ref #{x 28712}# 3))) + #{s1 29011}# + #{m2 29042}#)))))))) + (#{module 29002}# + (vector-ref #{x 28968}# 3))) (vector 'syntax-object - #{expression 28744}# - #{wrap 28745}# - #{module 28746}#)) - (if (null? #{x 28712}#) - #{x 28712}# + #{expression 29000}# + #{wrap 29001}# + #{module 29002}#)) + (if (null? #{x 28968}#) + #{x 28968}# (vector 'syntax-object - #{x 28712}# - #{w 26995}# - #{mod 26997}#)))))) + #{x 28968}# + #{w 27208}# + #{mod 27210}#)))))) (syntax-violation #f "unexpected syntax" - (let ((#{x 28810}# + (let ((#{x 29066}# (begin - (if (if (pair? #{e 26993}#) - #{s 26996}# + (if (if (pair? #{e 27206}#) + #{s 27209}# #f) (set-source-properties! - #{e 26993}# - #{s 26996}#)) - #{e 26993}#))) - (if (if (null? (car #{w 26995}#)) - (null? (cdr #{w 26995}#)) + #{e 27206}# + #{s 27209}#)) + #{e 27206}#))) + (if (if (null? (car #{w 27208}#)) + (null? (cdr #{w 27208}#)) #f) - #{x 28810}# - (if (if (vector? #{x 28810}#) + #{x 29066}# + (if (if (vector? #{x 29066}#) (if (= (vector-length - #{x 28810}#) + #{x 29066}#) 4) (eq? (vector-ref - #{x 28810}# + #{x 29066}# 0) 'syntax-object) #f) #f) - (let ((#{expression 28842}# - (vector-ref #{x 28810}# 1)) - (#{wrap 28843}# - (let ((#{w2 28851}# + (let ((#{expression 29098}# + (vector-ref #{x 29066}# 1)) + (#{wrap 29099}# + (let ((#{w2 29107}# (vector-ref - #{x 28810}# + #{x 29066}# 2))) - (let ((#{m1 28852}# - (car #{w 26995}#)) - (#{s1 28853}# - (cdr #{w 26995}#))) - (if (null? #{m1 28852}#) - (if (null? #{s1 28853}#) - #{w2 28851}# - (cons (car #{w2 28851}#) - (let ((#{m2 28868}# - (cdr #{w2 28851}#))) - (if (null? #{m2 28868}#) - #{s1 28853}# + (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}# (append - #{s1 28853}# - #{m2 28868}#))))) - (cons (let ((#{m2 28876}# - (car #{w2 28851}#))) - (if (null? #{m2 28876}#) - #{m1 28852}# + #{s1 29109}# + #{m2 29124}#))))) + (cons (let ((#{m2 29132}# + (car #{w2 29107}#))) + (if (null? #{m2 29132}#) + #{m1 29108}# (append - #{m1 28852}# - #{m2 28876}#))) - (let ((#{m2 28884}# - (cdr #{w2 28851}#))) - (if (null? #{m2 28884}#) - #{s1 28853}# + #{m1 29108}# + #{m2 29132}#))) + (let ((#{m2 29140}# + (cdr #{w2 29107}#))) + (if (null? #{m2 29140}#) + #{s1 29109}# (append - #{s1 28853}# - #{m2 28884}#)))))))) - (#{module 28844}# - (vector-ref #{x 28810}# 3))) + #{s1 29109}# + #{m2 29140}#)))))))) + (#{module 29100}# + (vector-ref #{x 29066}# 3))) (vector 'syntax-object - #{expression 28842}# - #{wrap 28843}# - #{module 28844}#)) - (if (null? #{x 28810}#) - #{x 28810}# + #{expression 29098}# + #{wrap 29099}# + #{module 29100}#)) + (if (null? #{x 29066}#) + #{x 29066}# (vector 'syntax-object - #{x 28810}# - #{w 26995}# - #{mod 26997}#)))))))))))))))))))))) + #{x 29066}# + #{w 27208}# + #{mod 27210}#)))))))))))))))))))))) (#{chi-call 4377}# - (lambda (#{x 28899}# - #{e 28900}# - #{r 28901}# - #{w 28902}# - #{s 28903}# - #{mod 28904}#) - (let ((#{tmp 28906}# - ($sc-dispatch #{e 28900}# '(any . each-any)))) - (if #{tmp 28906}# + (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}# (@apply - (lambda (#{e0 28910}# #{e1 28911}#) + (lambda (#{e0 29166}# #{e1 29167}#) (#{build-call 4309}# - #{s 28903}# - #{x 28899}# - (map (lambda (#{e 29001}#) + #{s 29159}# + #{x 29155}# + (map (lambda (#{e 29259}#) (#{chi 4375}# - #{e 29001}# - #{r 28901}# - #{w 28902}# - #{mod 28904}#)) - #{e1 28911}#))) - #{tmp 28906}#) + #{e 29259}# + #{r 29157}# + #{w 29158}# + #{mod 29160}#)) + #{e1 29167}#))) + #{tmp 29162}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 28900}#))))) + #{e 29156}#))))) (#{chi-macro 4378}# - (lambda (#{p 29087}# - #{e 29088}# - #{r 29089}# - #{w 29090}# - #{s 29091}# - #{rib 29092}# - #{mod 29093}#) + (lambda (#{p 29347}# + #{e 29348}# + #{r 29349}# + #{w 29350}# + #{s 29351}# + #{rib 29352}# + #{mod 29353}#) (letrec* - ((#{rebuild-macro-output 29094}# - (lambda (#{x 29201}# #{m 29202}#) - (if (pair? #{x 29201}#) - (let ((#{e 29206}# - (cons (#{rebuild-macro-output 29094}# - (car #{x 29201}#) - #{m 29202}#) - (#{rebuild-macro-output 29094}# - (cdr #{x 29201}#) - #{m 29202}#)))) + ((#{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}#)))) (begin - (if (if (pair? #{e 29206}#) #{s 29091}# #f) - (set-source-properties! #{e 29206}# #{s 29091}#)) - #{e 29206}#)) - (if (if (vector? #{x 29201}#) - (if (= (vector-length #{x 29201}#) 4) - (eq? (vector-ref #{x 29201}# 0) 'syntax-object) + (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) #f) #f) - (let ((#{w 29222}# (vector-ref #{x 29201}# 2))) - (let ((#{ms 29223}# (car #{w 29222}#)) - (#{s 29224}# (cdr #{w 29222}#))) - (if (if (pair? #{ms 29223}#) - (eq? (car #{ms 29223}#) #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) #f) - (let ((#{expression 29232}# (vector-ref #{x 29201}# 1)) - (#{wrap 29233}# - (cons (cdr #{ms 29223}#) - (if #{rib 29092}# - (cons #{rib 29092}# (cdr #{s 29224}#)) - (cdr #{s 29224}#)))) - (#{module 29234}# (vector-ref #{x 29201}# 3))) + (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))) (vector 'syntax-object - #{expression 29232}# - #{wrap 29233}# - #{module 29234}#)) - (let ((#{expression 29244}# - (let ((#{e 29249}# (vector-ref #{x 29201}# 1))) + #{expression 29492}# + #{wrap 29493}# + #{module 29494}#)) + (let ((#{expression 29504}# + (let ((#{e 29509}# (vector-ref #{x 29461}# 1))) (begin - (if (if (pair? #{e 29249}#) #{s 29224}# #f) + (if (if (pair? #{e 29509}#) #{s 29484}# #f) (set-source-properties! - #{e 29249}# - #{s 29224}#)) - #{e 29249}#))) - (#{wrap 29245}# - (cons (cons #{m 29202}# #{ms 29223}#) - (if #{rib 29092}# - (cons #{rib 29092}# - (cons 'shift #{s 29224}#)) - (cons 'shift #{s 29224}#)))) - (#{module 29246}# (vector-ref #{x 29201}# 3))) + #{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))) (vector 'syntax-object - #{expression 29244}# - #{wrap 29245}# - #{module 29246}#))))) - (if (vector? #{x 29201}#) - (let ((#{n 29261}# (vector-length #{x 29201}#))) - (let ((#{v 29262}# - (let ((#{e 29270}# (make-vector #{n 29261}#))) + #{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}#))) (begin - (if (if (pair? #{e 29270}#) #{x 29201}# #f) + (if (if (pair? #{e 29530}#) #{x 29461}# #f) (set-source-properties! - #{e 29270}# - #{x 29201}#)) - #{e 29270}#)))) + #{e 29530}# + #{x 29461}#)) + #{e 29530}#)))) (letrec* - ((#{loop 29263}# - (lambda (#{i 29324}#) - (if (= #{i 29324}# #{n 29261}#) - #{v 29262}# + ((#{loop 29523}# + (lambda (#{i 29584}#) + (if (= #{i 29584}# #{n 29521}#) + #{v 29522}# (begin (vector-set! - #{v 29262}# - #{i 29324}# - (#{rebuild-macro-output 29094}# - (vector-ref #{x 29201}# #{i 29324}#) - #{m 29202}#)) - (#{loop 29263}# (#{1+}# #{i 29324}#))))))) - (#{loop 29263}# 0)))) - (if (symbol? #{x 29201}#) + #{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}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 29330}# (cdr #{w 29090}#))) - (let ((#{x 29334}# + (let ((#{s 29590}# (cdr #{w 29350}#))) + (let ((#{x 29594}# (begin - (if (if (pair? #{e 29088}#) #{s 29330}# #f) + (if (if (pair? #{e 29348}#) #{s 29590}# #f) (set-source-properties! - #{e 29088}# - #{s 29330}#)) - #{e 29088}#))) - (if (if (null? (car #{w 29090}#)) - (null? (cdr #{w 29090}#)) + #{e 29348}# + #{s 29590}#)) + #{e 29348}#))) + (if (if (null? (car #{w 29350}#)) + (null? (cdr #{w 29350}#)) #f) - #{x 29334}# - (if (if (vector? #{x 29334}#) - (if (= (vector-length #{x 29334}#) 4) - (eq? (vector-ref #{x 29334}# 0) + #{x 29594}# + (if (if (vector? #{x 29594}#) + (if (= (vector-length #{x 29594}#) 4) + (eq? (vector-ref #{x 29594}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29366}# - (vector-ref #{x 29334}# 1)) - (#{wrap 29367}# - (let ((#{w2 29375}# - (vector-ref #{x 29334}# 2))) - (let ((#{m1 29376}# - (car #{w 29090}#)) - (#{s1 29377}# - (cdr #{w 29090}#))) - (if (null? #{m1 29376}#) - (if (null? #{s1 29377}#) - #{w2 29375}# - (cons (car #{w2 29375}#) - (let ((#{m2 29392}# - (cdr #{w2 29375}#))) - (if (null? #{m2 29392}#) - #{s1 29377}# + (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}# (append - #{s1 29377}# - #{m2 29392}#))))) - (cons (let ((#{m2 29400}# - (car #{w2 29375}#))) - (if (null? #{m2 29400}#) - #{m1 29376}# + #{s1 29637}# + #{m2 29652}#))))) + (cons (let ((#{m2 29660}# + (car #{w2 29635}#))) + (if (null? #{m2 29660}#) + #{m1 29636}# (append - #{m1 29376}# - #{m2 29400}#))) - (let ((#{m2 29408}# - (cdr #{w2 29375}#))) - (if (null? #{m2 29408}#) - #{s1 29377}# + #{m1 29636}# + #{m2 29660}#))) + (let ((#{m2 29668}# + (cdr #{w2 29635}#))) + (if (null? #{m2 29668}#) + #{s1 29637}# (append - #{s1 29377}# - #{m2 29408}#)))))))) - (#{module 29368}# - (vector-ref #{x 29334}# 3))) + #{s1 29637}# + #{m2 29668}#)))))))) + (#{module 29628}# + (vector-ref #{x 29594}# 3))) (vector 'syntax-object - #{expression 29366}# - #{wrap 29367}# - #{module 29368}#)) - (if (null? #{x 29334}#) - #{x 29334}# + #{expression 29626}# + #{wrap 29627}# + #{module 29628}#)) + (if (null? #{x 29594}#) + #{x 29594}# (vector 'syntax-object - #{x 29334}# - #{w 29090}# - #{mod 29093}#)))))) - #{x 29201}#) + #{x 29594}# + #{w 29350}# + #{mod 29353}#)))))) + #{x 29461}#) (begin - (if (if (pair? #{x 29201}#) #{s 29091}# #f) - (set-source-properties! #{x 29201}# #{s 29091}#)) - #{x 29201}#)))))))) - (#{rebuild-macro-output 29094}# - (#{p 29087}# - (let ((#{w 29101}# - (cons (cons #f (car #{w 29090}#)) - (cons 'shift (cdr #{w 29090}#))))) - (let ((#{x 29106}# + (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}# (begin - (if (if (pair? #{e 29088}#) #{s 29091}# #f) - (set-source-properties! #{e 29088}# #{s 29091}#)) - #{e 29088}#))) - (if (if (null? (car #{w 29101}#)) - (null? (cdr #{w 29101}#)) + (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}#)) #f) - #{x 29106}# - (if (if (vector? #{x 29106}#) - (if (= (vector-length #{x 29106}#) 4) - (eq? (vector-ref #{x 29106}# 0) 'syntax-object) + #{x 29366}# + (if (if (vector? #{x 29366}#) + (if (= (vector-length #{x 29366}#) 4) + (eq? (vector-ref #{x 29366}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29144}# (vector-ref #{x 29106}# 1)) - (#{wrap 29145}# - (let ((#{w2 29153}# (vector-ref #{x 29106}# 2))) - (let ((#{m1 29154}# (car #{w 29101}#)) - (#{s1 29155}# (cdr #{w 29101}#))) - (if (null? #{m1 29154}#) - (if (null? #{s1 29155}#) - #{w2 29153}# - (cons (car #{w2 29153}#) - (let ((#{m2 29170}# - (cdr #{w2 29153}#))) - (if (null? #{m2 29170}#) - #{s1 29155}# + (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}# (append - #{s1 29155}# - #{m2 29170}#))))) - (cons (let ((#{m2 29178}# - (car #{w2 29153}#))) - (if (null? #{m2 29178}#) - #{m1 29154}# + #{s1 29415}# + #{m2 29430}#))))) + (cons (let ((#{m2 29438}# + (car #{w2 29413}#))) + (if (null? #{m2 29438}#) + #{m1 29414}# (append - #{m1 29154}# - #{m2 29178}#))) - (let ((#{m2 29186}# - (cdr #{w2 29153}#))) - (if (null? #{m2 29186}#) - #{s1 29155}# + #{m1 29414}# + #{m2 29438}#))) + (let ((#{m2 29446}# + (cdr #{w2 29413}#))) + (if (null? #{m2 29446}#) + #{s1 29415}# (append - #{s1 29155}# - #{m2 29186}#)))))))) - (#{module 29146}# (vector-ref #{x 29106}# 3))) + #{s1 29415}# + #{m2 29446}#)))))))) + (#{module 29406}# (vector-ref #{x 29366}# 3))) (vector 'syntax-object - #{expression 29144}# - #{wrap 29145}# - #{module 29146}#)) - (if (null? #{x 29106}#) - #{x 29106}# + #{expression 29404}# + #{wrap 29405}# + #{module 29406}#)) + (if (null? #{x 29366}#) + #{x 29366}# (vector 'syntax-object - #{x 29106}# - #{w 29101}# - #{mod 29093}#))))))) + #{x 29366}# + #{w 29361}# + #{mod 29353}#))))))) (gensym "m"))))) (#{chi-body 4379}# - (lambda (#{body 29438}# - #{outer-form 29439}# - #{r 29440}# - #{w 29441}# - #{mod 29442}#) - (let ((#{r 29443}# - (cons '("placeholder" placeholder) #{r 29440}#))) - (let ((#{ribcage 29444}# (vector 'ribcage '() '() '()))) - (let ((#{w 29445}# - (cons (car #{w 29441}#) - (cons #{ribcage 29444}# (cdr #{w 29441}#))))) + (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}#))))) (letrec* - ((#{parse 29446}# - (lambda (#{body 29554}# - #{ids 29555}# - #{labels 29556}# - #{var-ids 29557}# - #{vars 29558}# - #{vals 29559}# - #{bindings 29560}#) - (if (null? #{body 29554}#) + ((#{parse 29706}# + (lambda (#{body 29814}# + #{ids 29815}# + #{labels 29816}# + #{var-ids 29817}# + #{vars 29818}# + #{vals 29819}# + #{bindings 29820}#) + (if (null? #{body 29814}#) (syntax-violation #f "no expressions in body" - #{outer-form 29439}#) - (let ((#{e 29561}# (cdr (car #{body 29554}#))) - (#{er 29562}# (car (car #{body 29554}#)))) + #{outer-form 29699}#) + (let ((#{e 29821}# (cdr (car #{body 29814}#))) + (#{er 29822}# (car (car #{body 29814}#)))) (call-with-values (lambda () (#{syntax-type 4374}# - #{e 29561}# - #{er 29562}# + #{e 29821}# + #{er 29822}# '(()) - (#{source-annotation 4336}# #{er 29562}#) - #{ribcage 29444}# - #{mod 29442}# + (#{source-annotation 4336}# #{er 29822}#) + #{ribcage 29704}# + #{mod 29702}# #f)) - (lambda (#{type 29756}# - #{value 29757}# - #{e 29758}# - #{w 29759}# - #{s 29760}# - #{mod 29761}#) - (if (eqv? #{type 29756}# 'define-form) - (let ((#{id 29765}# - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + (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}#)) #f) - #{value 29757}# - (if (if (vector? #{value 29757}#) + #{value 30029}# + (if (if (vector? #{value 30029}#) (if (= (vector-length - #{value 29757}#) + #{value 30029}#) 4) (eq? (vector-ref - #{value 29757}# + #{value 30029}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29810}# + (let ((#{expression 30082}# (vector-ref - #{value 29757}# + #{value 30029}# 1)) - (#{wrap 29811}# - (let ((#{w2 29821}# + (#{wrap 30083}# + (let ((#{w2 30093}# (vector-ref - #{value 29757}# + #{value 30029}# 2))) - (let ((#{m1 29822}# - (car #{w 29759}#)) - (#{s1 29823}# - (cdr #{w 29759}#))) - (if (null? #{m1 29822}#) - (if (null? #{s1 29823}#) - #{w2 29821}# - (cons (car #{w2 29821}#) - (let ((#{m2 29840}# - (cdr #{w2 29821}#))) - (if (null? #{m2 29840}#) - #{s1 29823}# + (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}# (append - #{s1 29823}# - #{m2 29840}#))))) - (cons (let ((#{m2 29848}# - (car #{w2 29821}#))) - (if (null? #{m2 29848}#) - #{m1 29822}# + #{s1 30095}# + #{m2 30112}#))))) + (cons (let ((#{m2 30120}# + (car #{w2 30093}#))) + (if (null? #{m2 30120}#) + #{m1 30094}# (append - #{m1 29822}# - #{m2 29848}#))) - (let ((#{m2 29856}# - (cdr #{w2 29821}#))) - (if (null? #{m2 29856}#) - #{s1 29823}# + #{m1 30094}# + #{m2 30120}#))) + (let ((#{m2 30128}# + (cdr #{w2 30093}#))) + (if (null? #{m2 30128}#) + #{s1 30095}# (append - #{s1 29823}# - #{m2 29856}#)))))))) - (#{module 29812}# + #{s1 30095}# + #{m2 30128}#)))))))) + (#{module 30084}# (vector-ref - #{value 29757}# + #{value 30029}# 3))) (vector 'syntax-object - #{expression 29810}# - #{wrap 29811}# - #{module 29812}#)) - (if (null? #{value 29757}#) - #{value 29757}# + #{expression 30082}# + #{wrap 30083}# + #{module 30084}#)) + (if (null? #{value 30029}#) + #{value 30029}# (vector 'syntax-object - #{value 29757}# - #{w 29759}# - #{mod 29761}#))))) - (#{label 29766}# + #{value 30029}# + #{w 30031}# + #{mod 30033}#))))) + (#{label 30038}# (symbol->string (gensym "i")))) - (let ((#{var 29767}# - (let ((#{id 29917}# - (if (if (vector? #{id 29765}#) + (let ((#{var 30039}# + (let ((#{id 30189}# + (if (if (vector? #{id 30037}#) (if (= (vector-length - #{id 29765}#) + #{id 30037}#) 4) (eq? (vector-ref - #{id 29765}# + #{id 30037}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 29765}# 1) - #{id 29765}#))) + (vector-ref #{id 30037}# 1) + #{id 30037}#))) (gensym (string-append - (symbol->string #{id 29917}#) + (symbol->string #{id 30189}#) " "))))) (begin (begin - (let ((#{update 29776}# - (cons (vector-ref #{id 29765}# 1) + (let ((#{update 30048}# + (cons (vector-ref #{id 30037}# 1) (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 1)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 1 - #{update 29776}#)) - (let ((#{update 29888}# + #{update 30048}#)) + (let ((#{update 30160}# (cons (car (vector-ref - #{id 29765}# + #{id 30037}# 2)) (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 2)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 2 - #{update 29888}#)) - (let ((#{update 29903}# - (cons #{label 29766}# + #{update 30160}#)) + (let ((#{update 30175}# + (cons #{label 30038}# (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 3)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 3 - #{update 29903}#))) - (#{parse 29446}# - (cdr #{body 29554}#) - (cons #{id 29765}# #{ids 29555}#) - (cons #{label 29766}# #{labels 29556}#) - (cons #{id 29765}# #{var-ids 29557}#) - (cons #{var 29767}# #{vars 29558}#) - (cons (cons #{er 29562}# - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + #{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}#)) #f) - #{e 29758}# + #{e 30030}# (if (if (vector? - #{e 29758}#) + #{e 30030}#) (if (= (vector-length - #{e 29758}#) + #{e 30030}#) 4) (eq? (vector-ref - #{e 29758}# + #{e 30030}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29969}# + (let ((#{expression 30241}# (vector-ref - #{e 29758}# + #{e 30030}# 1)) - (#{wrap 29970}# - (let ((#{w2 29980}# + (#{wrap 30242}# + (let ((#{w2 30252}# (vector-ref - #{e 29758}# + #{e 30030}# 2))) - (let ((#{m1 29981}# - (car #{w 29759}#)) - (#{s1 29982}# - (cdr #{w 29759}#))) - (if (null? #{m1 29981}#) - (if (null? #{s1 29982}#) - #{w2 29980}# - (cons (car #{w2 29980}#) - (let ((#{m2 29999}# - (cdr #{w2 29980}#))) - (if (null? #{m2 29999}#) - #{s1 29982}# + (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}# (append - #{s1 29982}# - #{m2 29999}#))))) - (cons (let ((#{m2 30007}# - (car #{w2 29980}#))) - (if (null? #{m2 30007}#) - #{m1 29981}# + #{s1 30254}# + #{m2 30271}#))))) + (cons (let ((#{m2 30279}# + (car #{w2 30252}#))) + (if (null? #{m2 30279}#) + #{m1 30253}# (append - #{m1 29981}# - #{m2 30007}#))) - (let ((#{m2 30015}# - (cdr #{w2 29980}#))) - (if (null? #{m2 30015}#) - #{s1 29982}# + #{m1 30253}# + #{m2 30279}#))) + (let ((#{m2 30287}# + (cdr #{w2 30252}#))) + (if (null? #{m2 30287}#) + #{s1 30254}# (append - #{s1 29982}# - #{m2 30015}#)))))))) - (#{module 29971}# + #{s1 30254}# + #{m2 30287}#)))))))) + (#{module 30243}# (vector-ref - #{e 29758}# + #{e 30030}# 3))) (vector 'syntax-object - #{expression 29969}# - #{wrap 29970}# - #{module 29971}#)) - (if (null? #{e 29758}#) - #{e 29758}# + #{expression 30241}# + #{wrap 30242}# + #{module 30243}#)) + (if (null? #{e 30030}#) + #{e 30030}# (vector 'syntax-object - #{e 29758}# - #{w 29759}# - #{mod 29761}#))))) - #{vals 29559}#) - (cons (cons 'lexical #{var 29767}#) - #{bindings 29560}#))))) - (if (eqv? #{type 29756}# 'define-syntax-form) - (let ((#{id 30041}# - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + #{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}#)) #f) - #{value 29757}# - (if (if (vector? #{value 29757}#) + #{value 30029}# + (if (if (vector? #{value 30029}#) (if (= (vector-length - #{value 29757}#) + #{value 30029}#) 4) (eq? (vector-ref - #{value 29757}# + #{value 30029}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30085}# + (let ((#{expression 30357}# (vector-ref - #{value 29757}# + #{value 30029}# 1)) - (#{wrap 30086}# - (let ((#{w2 30096}# + (#{wrap 30358}# + (let ((#{w2 30368}# (vector-ref - #{value 29757}# + #{value 30029}# 2))) - (let ((#{m1 30097}# - (car #{w 29759}#)) - (#{s1 30098}# - (cdr #{w 29759}#))) - (if (null? #{m1 30097}#) - (if (null? #{s1 30098}#) - #{w2 30096}# - (cons (car #{w2 30096}#) - (let ((#{m2 30115}# - (cdr #{w2 30096}#))) - (if (null? #{m2 30115}#) - #{s1 30098}# + (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}# (append - #{s1 30098}# - #{m2 30115}#))))) - (cons (let ((#{m2 30123}# - (car #{w2 30096}#))) - (if (null? #{m2 30123}#) - #{m1 30097}# + #{s1 30370}# + #{m2 30387}#))))) + (cons (let ((#{m2 30395}# + (car #{w2 30368}#))) + (if (null? #{m2 30395}#) + #{m1 30369}# (append - #{m1 30097}# - #{m2 30123}#))) - (let ((#{m2 30131}# - (cdr #{w2 30096}#))) - (if (null? #{m2 30131}#) - #{s1 30098}# + #{m1 30369}# + #{m2 30395}#))) + (let ((#{m2 30403}# + (cdr #{w2 30368}#))) + (if (null? #{m2 30403}#) + #{s1 30370}# (append - #{s1 30098}# - #{m2 30131}#)))))))) - (#{module 30087}# + #{s1 30370}# + #{m2 30403}#)))))))) + (#{module 30359}# (vector-ref - #{value 29757}# + #{value 30029}# 3))) (vector 'syntax-object - #{expression 30085}# - #{wrap 30086}# - #{module 30087}#)) - (if (null? #{value 29757}#) - #{value 29757}# + #{expression 30357}# + #{wrap 30358}# + #{module 30359}#)) + (if (null? #{value 30029}#) + #{value 30029}# (vector 'syntax-object - #{value 29757}# - #{w 29759}# - #{mod 29761}#))))) - (#{label 30042}# + #{value 30029}# + #{w 30031}# + #{mod 30033}#))))) + (#{label 30314}# (symbol->string (gensym "i")))) (begin (begin - (let ((#{update 30051}# - (cons (vector-ref #{id 30041}# 1) + (let ((#{update 30323}# + (cons (vector-ref #{id 30313}# 1) (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 1)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 1 - #{update 30051}#)) - (let ((#{update 30163}# + #{update 30323}#)) + (let ((#{update 30435}# (cons (car (vector-ref - #{id 30041}# + #{id 30313}# 2)) (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 2)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 2 - #{update 30163}#)) - (let ((#{update 30178}# - (cons #{label 30042}# + #{update 30435}#)) + (let ((#{update 30450}# + (cons #{label 30314}# (vector-ref - #{ribcage 29444}# + #{ribcage 29704}# 3)))) (vector-set! - #{ribcage 29444}# + #{ribcage 29704}# 3 - #{update 30178}#))) - (#{parse 29446}# - (cdr #{body 29554}#) - (cons #{id 30041}# #{ids 29555}#) - (cons #{label 30042}# #{labels 29556}#) - #{var-ids 29557}# - #{vars 29558}# - #{vals 29559}# + #{update 30450}#))) + (#{parse 29706}# + (cdr #{body 29814}#) + (cons #{id 30313}# #{ids 29815}#) + (cons #{label 30314}# #{labels 29816}#) + #{var-ids 29817}# + #{vars 29818}# + #{vals 29819}# (cons (cons 'macro - (cons #{er 29562}# - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + (cons #{er 29822}# + (if (if (null? (car #{w 30031}#)) + (null? (cdr #{w 30031}#)) #f) - #{e 29758}# + #{e 30030}# (if (if (vector? - #{e 29758}#) + #{e 30030}#) (if (= (vector-length - #{e 29758}#) + #{e 30030}#) 4) (eq? (vector-ref - #{e 29758}# + #{e 30030}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30217}# + (let ((#{expression 30489}# (vector-ref - #{e 29758}# + #{e 30030}# 1)) - (#{wrap 30218}# - (let ((#{w2 30228}# + (#{wrap 30490}# + (let ((#{w2 30500}# (vector-ref - #{e 29758}# + #{e 30030}# 2))) - (let ((#{m1 30229}# - (car #{w 29759}#)) - (#{s1 30230}# - (cdr #{w 29759}#))) - (if (null? #{m1 30229}#) - (if (null? #{s1 30230}#) - #{w2 30228}# - (cons (car #{w2 30228}#) - (let ((#{m2 30247}# - (cdr #{w2 30228}#))) - (if (null? #{m2 30247}#) - #{s1 30230}# + (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}# (append - #{s1 30230}# - #{m2 30247}#))))) - (cons (let ((#{m2 30255}# - (car #{w2 30228}#))) - (if (null? #{m2 30255}#) - #{m1 30229}# + #{s1 30502}# + #{m2 30519}#))))) + (cons (let ((#{m2 30527}# + (car #{w2 30500}#))) + (if (null? #{m2 30527}#) + #{m1 30501}# (append - #{m1 30229}# - #{m2 30255}#))) - (let ((#{m2 30263}# - (cdr #{w2 30228}#))) - (if (null? #{m2 30263}#) - #{s1 30230}# + #{m1 30501}# + #{m2 30527}#))) + (let ((#{m2 30535}# + (cdr #{w2 30500}#))) + (if (null? #{m2 30535}#) + #{s1 30502}# (append - #{s1 30230}# - #{m2 30263}#)))))))) - (#{module 30219}# + #{s1 30502}# + #{m2 30535}#)))))))) + (#{module 30491}# (vector-ref - #{e 29758}# + #{e 30030}# 3))) (vector 'syntax-object - #{expression 30217}# - #{wrap 30218}# - #{module 30219}#)) - (if (null? #{e 29758}#) - #{e 29758}# + #{expression 30489}# + #{wrap 30490}# + #{module 30491}#)) + (if (null? #{e 30030}#) + #{e 30030}# (vector 'syntax-object - #{e 29758}# - #{w 29759}# - #{mod 29761}#)))))) - #{bindings 29560}#)))) - (if (eqv? #{type 29756}# 'begin-form) - (let ((#{tmp 30290}# + #{e 30030}# + #{w 30031}# + #{mod 30033}#)))))) + #{bindings 29820}#)))) + (if (eqv? #{type 30028}# 'begin-form) + (let ((#{tmp 30562}# ($sc-dispatch - #{e 29758}# + #{e 30030}# '(_ . each-any)))) - (if #{tmp 30290}# + (if #{tmp 30562}# (@apply - (lambda (#{e1 30294}#) - (#{parse 29446}# + (lambda (#{e1 30566}#) + (#{parse 29706}# (letrec* - ((#{f 30295}# - (lambda (#{forms 30509}#) - (if (null? #{forms 30509}#) - (cdr #{body 29554}#) - (cons (cons #{er 29562}# - (let ((#{x 30513}# - (car #{forms 30509}#))) - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + ((#{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) - #{x 30513}# + #{x 30787}# (if (if (vector? - #{x 30513}#) + #{x 30787}#) (if (= (vector-length - #{x 30513}#) + #{x 30787}#) 4) (eq? (vector-ref - #{x 30513}# + #{x 30787}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30531}# + (let ((#{expression 30805}# (vector-ref - #{x 30513}# + #{x 30787}# 1)) - (#{wrap 30532}# - (let ((#{w2 30540}# + (#{wrap 30806}# + (let ((#{w2 30814}# (vector-ref - #{x 30513}# + #{x 30787}# 2))) - (let ((#{m1 30541}# - (car #{w 29759}#)) - (#{s1 30542}# - (cdr #{w 29759}#))) - (if (null? #{m1 30541}#) - (if (null? #{s1 30542}#) - #{w2 30540}# - (cons (car #{w2 30540}#) - (let ((#{m2 30557}# - (cdr #{w2 30540}#))) - (if (null? #{m2 30557}#) - #{s1 30542}# + (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}# (append - #{s1 30542}# - #{m2 30557}#))))) - (cons (let ((#{m2 30565}# - (car #{w2 30540}#))) - (if (null? #{m2 30565}#) - #{m1 30541}# + #{s1 30816}# + #{m2 30831}#))))) + (cons (let ((#{m2 30839}# + (car #{w2 30814}#))) + (if (null? #{m2 30839}#) + #{m1 30815}# (append - #{m1 30541}# - #{m2 30565}#))) - (let ((#{m2 30573}# - (cdr #{w2 30540}#))) - (if (null? #{m2 30573}#) - #{s1 30542}# + #{m1 30815}# + #{m2 30839}#))) + (let ((#{m2 30847}# + (cdr #{w2 30814}#))) + (if (null? #{m2 30847}#) + #{s1 30816}# (append - #{s1 30542}# - #{m2 30573}#)))))))) - (#{module 30533}# + #{s1 30816}# + #{m2 30847}#)))))))) + (#{module 30807}# (vector-ref - #{x 30513}# + #{x 30787}# 3))) (vector 'syntax-object - #{expression 30531}# - #{wrap 30532}# - #{module 30533}#)) - (if (null? #{x 30513}#) - #{x 30513}# + #{expression 30805}# + #{wrap 30806}# + #{module 30807}#)) + (if (null? #{x 30787}#) + #{x 30787}# (vector 'syntax-object - #{x 30513}# - #{w 29759}# - #{mod 29761}#)))))) - (#{f 30295}# - (cdr #{forms 30509}#))))))) - (#{f 30295}# #{e1 30294}#)) - #{ids 29555}# - #{labels 29556}# - #{var-ids 29557}# - #{vars 29558}# - #{vals 29559}# - #{bindings 29560}#)) - #{tmp 30290}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 29758}#))) - (if (eqv? #{type 29756}# 'local-syntax-form) + #{e 30030}#))) + (if (eqv? #{type 30028}# 'local-syntax-form) (#{chi-local-syntax 4380}# - #{value 29757}# - #{e 29758}# - #{er 29562}# - #{w 29759}# - #{s 29760}# - #{mod 29761}# - (lambda (#{forms 30599}# - #{er 30600}# - #{w 30601}# - #{s 30602}# - #{mod 30603}#) - (#{parse 29446}# + #{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}# (letrec* - ((#{f 30604}# - (lambda (#{forms 30818}#) - (if (null? #{forms 30818}#) - (cdr #{body 29554}#) - (cons (cons #{er 30600}# - (let ((#{x 30822}# - (car #{forms 30818}#))) - (if (if (null? (car #{w 30601}#)) - (null? (cdr #{w 30601}#)) + ((#{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) - #{x 30822}# + #{x 31098}# (if (if (vector? - #{x 30822}#) + #{x 31098}#) (if (= (vector-length - #{x 30822}#) + #{x 31098}#) 4) (eq? (vector-ref - #{x 30822}# + #{x 31098}# 0) 'syntax-object) #f) #f) - (let ((#{expression 30840}# + (let ((#{expression 31116}# (vector-ref - #{x 30822}# + #{x 31098}# 1)) - (#{wrap 30841}# - (let ((#{w2 30849}# + (#{wrap 31117}# + (let ((#{w2 31125}# (vector-ref - #{x 30822}# + #{x 31098}# 2))) - (let ((#{m1 30850}# - (car #{w 30601}#)) - (#{s1 30851}# - (cdr #{w 30601}#))) - (if (null? #{m1 30850}#) - (if (null? #{s1 30851}#) - #{w2 30849}# - (cons (car #{w2 30849}#) - (let ((#{m2 30866}# - (cdr #{w2 30849}#))) - (if (null? #{m2 30866}#) - #{s1 30851}# + (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}# (append - #{s1 30851}# - #{m2 30866}#))))) - (cons (let ((#{m2 30874}# - (car #{w2 30849}#))) - (if (null? #{m2 30874}#) - #{m1 30850}# + #{s1 31127}# + #{m2 31142}#))))) + (cons (let ((#{m2 31150}# + (car #{w2 31125}#))) + (if (null? #{m2 31150}#) + #{m1 31126}# (append - #{m1 30850}# - #{m2 30874}#))) - (let ((#{m2 30882}# - (cdr #{w2 30849}#))) - (if (null? #{m2 30882}#) - #{s1 30851}# + #{m1 31126}# + #{m2 31150}#))) + (let ((#{m2 31158}# + (cdr #{w2 31125}#))) + (if (null? #{m2 31158}#) + #{s1 31127}# (append - #{s1 30851}# - #{m2 30882}#)))))))) - (#{module 30842}# + #{s1 31127}# + #{m2 31158}#)))))))) + (#{module 31118}# (vector-ref - #{x 30822}# + #{x 31098}# 3))) (vector 'syntax-object - #{expression 30840}# - #{wrap 30841}# - #{module 30842}#)) - (if (null? #{x 30822}#) - #{x 30822}# + #{expression 31116}# + #{wrap 31117}# + #{module 31118}#)) + (if (null? #{x 31098}#) + #{x 31098}# (vector 'syntax-object - #{x 30822}# - #{w 30601}# - #{mod 30603}#)))))) - (#{f 30604}# - (cdr #{forms 30818}#))))))) - (#{f 30604}# #{forms 30599}#)) - #{ids 29555}# - #{labels 29556}# - #{var-ids 29557}# - #{vars 29558}# - #{vals 29559}# - #{bindings 29560}#))) - (if (null? #{ids 29555}#) + #{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}# #f - (map (lambda (#{x 30969}#) + (map (lambda (#{x 31247}#) (#{chi 4375}# - (cdr #{x 30969}#) - (car #{x 30969}#) + (cdr #{x 31247}#) + (car #{x 31247}#) '(()) - #{mod 29761}#)) - (cons (cons #{er 29562}# - (let ((#{x 31046}# + #{mod 30033}#)) + (cons (cons #{er 29822}# + (let ((#{x 31326}# (begin - (if (if (pair? #{e 29758}#) - #{s 29760}# + (if (if (pair? #{e 30030}#) + #{s 30032}# #f) (set-source-properties! - #{e 29758}# - #{s 29760}#)) - #{e 29758}#))) - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + #{e 30030}# + #{s 30032}#)) + #{e 30030}#))) + (if (if (null? (car #{w 30031}#)) + (null? (cdr #{w 30031}#)) #f) - #{x 31046}# + #{x 31326}# (if (if (vector? - #{x 31046}#) + #{x 31326}#) (if (= (vector-length - #{x 31046}#) + #{x 31326}#) 4) (eq? (vector-ref - #{x 31046}# + #{x 31326}# 0) 'syntax-object) #f) #f) - (let ((#{expression 31078}# + (let ((#{expression 31358}# (vector-ref - #{x 31046}# + #{x 31326}# 1)) - (#{wrap 31079}# - (let ((#{w2 31087}# + (#{wrap 31359}# + (let ((#{w2 31367}# (vector-ref - #{x 31046}# + #{x 31326}# 2))) - (let ((#{m1 31088}# - (car #{w 29759}#)) - (#{s1 31089}# - (cdr #{w 29759}#))) - (if (null? #{m1 31088}#) - (if (null? #{s1 31089}#) - #{w2 31087}# - (cons (car #{w2 31087}#) - (let ((#{m2 31104}# - (cdr #{w2 31087}#))) - (if (null? #{m2 31104}#) - #{s1 31089}# + (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}# (append - #{s1 31089}# - #{m2 31104}#))))) - (cons (let ((#{m2 31112}# - (car #{w2 31087}#))) - (if (null? #{m2 31112}#) - #{m1 31088}# + #{s1 31369}# + #{m2 31384}#))))) + (cons (let ((#{m2 31392}# + (car #{w2 31367}#))) + (if (null? #{m2 31392}#) + #{m1 31368}# (append - #{m1 31088}# - #{m2 31112}#))) - (let ((#{m2 31120}# - (cdr #{w2 31087}#))) - (if (null? #{m2 31120}#) - #{s1 31089}# + #{m1 31368}# + #{m2 31392}#))) + (let ((#{m2 31400}# + (cdr #{w2 31367}#))) + (if (null? #{m2 31400}#) + #{s1 31369}# (append - #{s1 31089}# - #{m2 31120}#)))))))) - (#{module 31080}# + #{s1 31369}# + #{m2 31400}#)))))))) + (#{module 31360}# (vector-ref - #{x 31046}# + #{x 31326}# 3))) (vector 'syntax-object - #{expression 31078}# - #{wrap 31079}# - #{module 31080}#)) - (if (null? #{x 31046}#) - #{x 31046}# + #{expression 31358}# + #{wrap 31359}# + #{module 31360}#)) + (if (null? #{x 31326}#) + #{x 31326}# (vector 'syntax-object - #{x 31046}# - #{w 29759}# - #{mod 29761}#)))))) - (cdr #{body 29554}#)))) + #{x 31326}# + #{w 30031}# + #{mod 30033}#)))))) + (cdr #{body 29814}#)))) (begin (if (not (#{valid-bound-ids? 4365}# - #{ids 29555}#)) + #{ids 29815}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 29439}#)) + #{outer-form 29699}#)) (letrec* - ((#{loop 31217}# - (lambda (#{bs 31220}# - #{er-cache 31221}# - #{r-cache 31222}#) - (if (not (null? #{bs 31220}#)) - (let ((#{b 31223}# - (car #{bs 31220}#))) - (if (eq? (car #{b 31223}#) + ((#{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}#) 'macro) - (let ((#{er 31225}# - (car (cdr #{b 31223}#)))) - (let ((#{r-cache 31226}# - (if (eq? #{er 31225}# - #{er-cache 31221}#) - #{r-cache 31222}# + (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 31225}#)))) + #{er 31507}#)))) (begin (set-cdr! - #{b 31223}# + #{b 31505}# (#{eval-local-transformer 4381}# (#{chi 4375}# - (cdr (cdr #{b 31223}#)) - #{r-cache 31226}# + (cdr (cdr #{b 31505}#)) + #{r-cache 31508}# '(()) - #{mod 29761}#) - #{mod 29761}#)) - (#{loop 31217}# - (cdr #{bs 31220}#) - #{er 31225}# - #{r-cache 31226}#)))) - (#{loop 31217}# - (cdr #{bs 31220}#) - #{er-cache 31221}# - #{r-cache 31222}#))))))) - (#{loop 31217}# - #{bindings 29560}# + #{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}# #f #f)) (set-cdr! - #{r 29443}# + #{r 29703}# (#{extend-env 4337}# - #{labels 29556}# - #{bindings 29560}# - (cdr #{r 29443}#))) + #{labels 29816}# + #{bindings 29820}# + (cdr #{r 29703}#))) (#{build-letrec 4327}# #f #t (reverse (map syntax->datum - #{var-ids 29557}#)) - (reverse #{vars 29558}#) - (map (lambda (#{x 31641}#) + #{var-ids 29817}#)) + (reverse #{vars 29818}#) + (map (lambda (#{x 31927}#) (#{chi 4375}# - (cdr #{x 31641}#) - (car #{x 31641}#) + (cdr #{x 31927}#) + (car #{x 31927}#) '(()) - #{mod 29761}#)) - (reverse #{vals 29559}#)) + #{mod 30033}#)) + (reverse #{vals 29819}#)) (#{build-sequence 4324}# #f - (map (lambda (#{x 31781}#) + (map (lambda (#{x 32071}#) (#{chi 4375}# - (cdr #{x 31781}#) - (car #{x 31781}#) + (cdr #{x 32071}#) + (car #{x 32071}#) '(()) - #{mod 29761}#)) - (cons (cons #{er 29562}# - (let ((#{x 31858}# + #{mod 30033}#)) + (cons (cons #{er 29822}# + (let ((#{x 32150}# (begin - (if (if (pair? #{e 29758}#) - #{s 29760}# + (if (if (pair? #{e 30030}#) + #{s 30032}# #f) (set-source-properties! - #{e 29758}# - #{s 29760}#)) - #{e 29758}#))) - (if (if (null? (car #{w 29759}#)) - (null? (cdr #{w 29759}#)) + #{e 30030}# + #{s 30032}#)) + #{e 30030}#))) + (if (if (null? (car #{w 30031}#)) + (null? (cdr #{w 30031}#)) #f) - #{x 31858}# + #{x 32150}# (if (if (vector? - #{x 31858}#) + #{x 32150}#) (if (= (vector-length - #{x 31858}#) + #{x 32150}#) 4) (eq? (vector-ref - #{x 31858}# + #{x 32150}# 0) 'syntax-object) #f) #f) - (let ((#{expression 31890}# + (let ((#{expression 32182}# (vector-ref - #{x 31858}# + #{x 32150}# 1)) - (#{wrap 31891}# - (let ((#{w2 31899}# + (#{wrap 32183}# + (let ((#{w2 32191}# (vector-ref - #{x 31858}# + #{x 32150}# 2))) - (let ((#{m1 31900}# - (car #{w 29759}#)) - (#{s1 31901}# - (cdr #{w 29759}#))) - (if (null? #{m1 31900}#) - (if (null? #{s1 31901}#) - #{w2 31899}# - (cons (car #{w2 31899}#) - (let ((#{m2 31916}# - (cdr #{w2 31899}#))) - (if (null? #{m2 31916}#) - #{s1 31901}# + (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}# (append - #{s1 31901}# - #{m2 31916}#))))) - (cons (let ((#{m2 31924}# - (car #{w2 31899}#))) - (if (null? #{m2 31924}#) - #{m1 31900}# + #{s1 32193}# + #{m2 32208}#))))) + (cons (let ((#{m2 32216}# + (car #{w2 32191}#))) + (if (null? #{m2 32216}#) + #{m1 32192}# (append - #{m1 31900}# - #{m2 31924}#))) - (let ((#{m2 31932}# - (cdr #{w2 31899}#))) - (if (null? #{m2 31932}#) - #{s1 31901}# + #{m1 32192}# + #{m2 32216}#))) + (let ((#{m2 32224}# + (cdr #{w2 32191}#))) + (if (null? #{m2 32224}#) + #{s1 32193}# (append - #{s1 31901}# - #{m2 31932}#)))))))) - (#{module 31892}# + #{s1 32193}# + #{m2 32224}#)))))))) + (#{module 32184}# (vector-ref - #{x 31858}# + #{x 32150}# 3))) (vector 'syntax-object - #{expression 31890}# - #{wrap 31891}# - #{module 31892}#)) - (if (null? #{x 31858}#) - #{x 31858}# + #{expression 32182}# + #{wrap 32183}# + #{module 32184}#)) + (if (null? #{x 32150}#) + #{x 32150}# (vector 'syntax-object - #{x 31858}# - #{w 29759}# - #{mod 29761}#)))))) - (cdr #{body 29554}#)))))))))))))))))) - (#{parse 29446}# - (map (lambda (#{x 29449}#) - (cons #{r 29443}# - (if (if (null? (car #{w 29445}#)) - (null? (cdr #{w 29445}#)) + #{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}#)) #f) - #{x 29449}# - (if (if (vector? #{x 29449}#) - (if (= (vector-length #{x 29449}#) 4) - (eq? (vector-ref #{x 29449}# 0) + #{x 29709}# + (if (if (vector? #{x 29709}#) + (if (= (vector-length #{x 29709}#) 4) + (eq? (vector-ref #{x 29709}# 0) 'syntax-object) #f) #f) - (let ((#{expression 29485}# - (vector-ref #{x 29449}# 1)) - (#{wrap 29486}# - (let ((#{w2 29496}# - (vector-ref #{x 29449}# 2))) - (let ((#{m1 29497}# - (car #{w 29445}#)) - (#{s1 29498}# - (cdr #{w 29445}#))) - (if (null? #{m1 29497}#) - (if (null? #{s1 29498}#) - #{w2 29496}# - (cons (car #{w2 29496}#) - (let ((#{m2 29515}# - (cdr #{w2 29496}#))) - (if (null? #{m2 29515}#) - #{s1 29498}# + (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}# (append - #{s1 29498}# - #{m2 29515}#))))) - (cons (let ((#{m2 29523}# - (car #{w2 29496}#))) - (if (null? #{m2 29523}#) - #{m1 29497}# + #{s1 29758}# + #{m2 29775}#))))) + (cons (let ((#{m2 29783}# + (car #{w2 29756}#))) + (if (null? #{m2 29783}#) + #{m1 29757}# (append - #{m1 29497}# - #{m2 29523}#))) - (let ((#{m2 29531}# - (cdr #{w2 29496}#))) - (if (null? #{m2 29531}#) - #{s1 29498}# + #{m1 29757}# + #{m2 29783}#))) + (let ((#{m2 29791}# + (cdr #{w2 29756}#))) + (if (null? #{m2 29791}#) + #{s1 29758}# (append - #{s1 29498}# - #{m2 29531}#)))))))) - (#{module 29487}# - (vector-ref #{x 29449}# 3))) + #{s1 29758}# + #{m2 29791}#)))))))) + (#{module 29747}# + (vector-ref #{x 29709}# 3))) (vector 'syntax-object - #{expression 29485}# - #{wrap 29486}# - #{module 29487}#)) - (if (null? #{x 29449}#) - #{x 29449}# + #{expression 29745}# + #{wrap 29746}# + #{module 29747}#)) + (if (null? #{x 29709}#) + #{x 29709}# (vector 'syntax-object - #{x 29449}# - #{w 29445}# - #{mod 29442}#)))))) - #{body 29438}#) + #{x 29709}# + #{w 29705}# + #{mod 29702}#)))))) + #{body 29698}#) '() '() '() @@ -5975,136 +5975,136 @@ '() '()))))))) (#{chi-local-syntax 4380}# - (lambda (#{rec? 31947}# - #{e 31948}# - #{r 31949}# - #{w 31950}# - #{s 31951}# - #{mod 31952}# - #{k 31953}#) - (let ((#{tmp 31955}# + (lambda (#{rec? 32239}# + #{e 32240}# + #{r 32241}# + #{w 32242}# + #{s 32243}# + #{mod 32244}# + #{k 32245}#) + (let ((#{tmp 32247}# ($sc-dispatch - #{e 31948}# + #{e 32240}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 31955}# + (if #{tmp 32247}# (@apply - (lambda (#{id 31959}# - #{val 31960}# - #{e1 31961}# - #{e2 31962}#) - (if (not (#{valid-bound-ids? 4365}# #{id 31959}#)) + (lambda (#{id 32251}# + #{val 32252}# + #{e1 32253}# + #{e2 32254}#) + (if (not (#{valid-bound-ids? 4365}# #{id 32251}#)) (syntax-violation #f "duplicate bound keyword" - #{e 31948}#) - (let ((#{labels 32057}# - (#{gen-labels 4346}# #{id 31959}#))) - (let ((#{new-w 32058}# + #{e 32240}#) + (let ((#{labels 32351}# + (#{gen-labels 4346}# #{id 32251}#))) + (let ((#{new-w 32352}# (#{make-binding-wrap 4357}# - #{id 31959}# - #{labels 32057}# - #{w 31950}#))) - (#{k 31953}# - (cons #{e1 31961}# #{e2 31962}#) + #{id 32251}# + #{labels 32351}# + #{w 32242}#))) + (#{k 32245}# + (cons #{e1 32253}# #{e2 32254}#) (#{extend-env 4337}# - #{labels 32057}# - (let ((#{trans-r 32098}# - (#{macros-only-env 4339}# #{r 31949}#))) + #{labels 32351}# + (let ((#{trans-r 32392}# + (#{macros-only-env 4339}# #{r 32241}#))) (begin - (if #{rec? 31947}# (if #f #f)) - (map (lambda (#{x 32099}#) + (if #{rec? 32239}# (if #f #f)) + (map (lambda (#{x 32393}#) (cons 'macro (#{eval-local-transformer 4381}# (#{chi 4375}# - #{x 32099}# - #{trans-r 32098}# - (if #{rec? 31947}# - #{new-w 32058}# - #{w 31950}#) - #{mod 31952}#) - #{mod 31952}#))) - #{val 31960}#))) - #{r 31949}#) - #{new-w 32058}# - #{s 31951}# - #{mod 31952}#))))) - #{tmp 31955}#) + #{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}#) (syntax-violation #f "bad local syntax definition" - (let ((#{x 32422}# + (let ((#{x 32718}# (begin - (if (if (pair? #{e 31948}#) #{s 31951}# #f) - (set-source-properties! #{e 31948}# #{s 31951}#)) - #{e 31948}#))) - (if (if (null? (car #{w 31950}#)) - (null? (cdr #{w 31950}#)) + (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}#)) #f) - #{x 32422}# - (if (if (vector? #{x 32422}#) - (if (= (vector-length #{x 32422}#) 4) - (eq? (vector-ref #{x 32422}# 0) 'syntax-object) + #{x 32718}# + (if (if (vector? #{x 32718}#) + (if (= (vector-length #{x 32718}#) 4) + (eq? (vector-ref #{x 32718}# 0) 'syntax-object) #f) #f) - (let ((#{expression 32454}# (vector-ref #{x 32422}# 1)) - (#{wrap 32455}# - (let ((#{w2 32463}# (vector-ref #{x 32422}# 2))) - (let ((#{m1 32464}# (car #{w 31950}#)) - (#{s1 32465}# (cdr #{w 31950}#))) - (if (null? #{m1 32464}#) - (if (null? #{s1 32465}#) - #{w2 32463}# - (cons (car #{w2 32463}#) - (let ((#{m2 32480}# - (cdr #{w2 32463}#))) - (if (null? #{m2 32480}#) - #{s1 32465}# + (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}# (append - #{s1 32465}# - #{m2 32480}#))))) - (cons (let ((#{m2 32488}# (car #{w2 32463}#))) - (if (null? #{m2 32488}#) - #{m1 32464}# - (append #{m1 32464}# #{m2 32488}#))) - (let ((#{m2 32496}# (cdr #{w2 32463}#))) - (if (null? #{m2 32496}#) - #{s1 32465}# + #{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}# (append - #{s1 32465}# - #{m2 32496}#)))))))) - (#{module 32456}# (vector-ref #{x 32422}# 3))) + #{s1 32761}# + #{m2 32792}#)))))))) + (#{module 32752}# (vector-ref #{x 32718}# 3))) (vector 'syntax-object - #{expression 32454}# - #{wrap 32455}# - #{module 32456}#)) - (if (null? #{x 32422}#) - #{x 32422}# + #{expression 32750}# + #{wrap 32751}# + #{module 32752}#)) + (if (null? #{x 32718}#) + #{x 32718}# (vector 'syntax-object - #{x 32422}# - #{w 31950}# - #{mod 31952}#)))))))))) + #{x 32718}# + #{w 32242}# + #{mod 32244}#)))))))))) (#{eval-local-transformer 4381}# - (lambda (#{expanded 32514}# #{mod 32515}#) - (let ((#{p 32516}# (primitive-eval #{expanded 32514}#))) - (if (procedure? #{p 32516}#) - #{p 32516}# + (lambda (#{expanded 32810}# #{mod 32811}#) + (let ((#{p 32812}# (primitive-eval #{expanded 32810}#))) + (if (procedure? #{p 32812}#) + #{p 32812}# (syntax-violation #f "nonprocedure transformer" - #{p 32516}#))))) + #{p 32812}#))))) (#{ellipsis? 4383}# - (lambda (#{x 5824}#) - (if (if (if (vector? #{x 5824}#) - (if (= (vector-length #{x 5824}#) 4) - (eq? (vector-ref #{x 5824}# 0) 'syntax-object) + (lambda (#{x 5834}#) + (if (if (if (vector? #{x 5834}#) + (if (= (vector-length #{x 5834}#) 4) + (eq? (vector-ref #{x 5834}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5824}# 1)) + (symbol? (vector-ref #{x 5834}# 1)) #f) (#{free-id=? 4363}# - #{x 5824}# + #{x 5834}# '#(syntax-object ... ((top) @@ -6535,325 +6535,325 @@ (hygiene guile))) #f))) (#{lambda-formals 4384}# - (lambda (#{orig-args 32521}#) + (lambda (#{orig-args 32817}#) (letrec* - ((#{req 32522}# - (lambda (#{args 32526}# #{rreq 32527}#) - (let ((#{tmp 32529}# ($sc-dispatch #{args 32526}# '()))) - (if #{tmp 32529}# + ((#{req 32818}# + (lambda (#{args 32822}# #{rreq 32823}#) + (let ((#{tmp 32825}# ($sc-dispatch #{args 32822}# '()))) + (if #{tmp 32825}# (@apply (lambda () - (#{check 32523}# (reverse #{rreq 32527}#) #f)) - #{tmp 32529}#) - (let ((#{tmp 32645}# - ($sc-dispatch #{args 32526}# '(any . any)))) - (if (if #{tmp 32645}# + (#{check 32819}# (reverse #{rreq 32823}#) #f)) + #{tmp 32825}#) + (let ((#{tmp 32941}# + ($sc-dispatch #{args 32822}# '(any . any)))) + (if (if #{tmp 32941}# (@apply - (lambda (#{a 32649}# #{b 32650}#) - (if (symbol? #{a 32649}#) + (lambda (#{a 32945}# #{b 32946}#) + (if (symbol? #{a 32945}#) #t - (if (if (vector? #{a 32649}#) - (if (= (vector-length #{a 32649}#) 4) - (eq? (vector-ref #{a 32649}# 0) + (if (if (vector? #{a 32945}#) + (if (= (vector-length #{a 32945}#) 4) + (eq? (vector-ref #{a 32945}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 32649}# 1)) + (symbol? (vector-ref #{a 32945}# 1)) #f))) - #{tmp 32645}#) + #{tmp 32941}#) #f) (@apply - (lambda (#{a 32677}# #{b 32678}#) - (#{req 32522}# - #{b 32678}# - (cons #{a 32677}# #{rreq 32527}#))) - #{tmp 32645}#) - (let ((#{tmp 32679}# (list #{args 32526}#))) + (lambda (#{a 32973}# #{b 32974}#) + (#{req 32818}# + #{b 32974}# + (cons #{a 32973}# #{rreq 32823}#))) + #{tmp 32941}#) + (let ((#{tmp 32975}# (list #{args 32822}#))) (if (@apply - (lambda (#{r 32681}#) - (if (symbol? #{r 32681}#) + (lambda (#{r 32977}#) + (if (symbol? #{r 32977}#) #t - (if (if (vector? #{r 32681}#) - (if (= (vector-length #{r 32681}#) 4) - (eq? (vector-ref #{r 32681}# 0) + (if (if (vector? #{r 32977}#) + (if (= (vector-length #{r 32977}#) 4) + (eq? (vector-ref #{r 32977}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 32681}# 1)) + (symbol? (vector-ref #{r 32977}# 1)) #f))) - #{tmp 32679}#) + #{tmp 32975}#) (@apply - (lambda (#{r 32711}#) - (#{check 32523}# - (reverse #{rreq 32527}#) - #{r 32711}#)) - #{tmp 32679}#) + (lambda (#{r 33007}#) + (#{check 32819}# + (reverse #{rreq 32823}#) + #{r 33007}#)) + #{tmp 32975}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 32521}# - #{args 32526}#))))))))) - (#{check 32523}# - (lambda (#{req 32835}# #{rest 32836}#) + #{orig-args 32817}# + #{args 32822}#))))))))) + (#{check 32819}# + (lambda (#{req 33131}# #{rest 33132}#) (if (#{distinct-bound-ids? 4366}# - (if #{rest 32836}# - (cons #{rest 32836}# #{req 32835}#) - #{req 32835}#)) - (values #{req 32835}# #f #{rest 32836}# #f) + (if #{rest 33132}# + (cons #{rest 33132}# #{req 33131}#) + #{req 33131}#)) + (values #{req 33131}# #f #{rest 33132}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 32521}#))))) - (#{req 32522}# #{orig-args 32521}# '())))) + #{orig-args 32817}#))))) + (#{req 32818}# #{orig-args 32817}# '())))) (#{chi-simple-lambda 4385}# - (lambda (#{e 32945}# - #{r 32946}# - #{w 32947}# - #{s 32948}# - #{mod 32949}# - #{req 32950}# - #{rest 32951}# - #{meta 32952}# - #{body 32953}#) - (let ((#{ids 32954}# - (if #{rest 32951}# - (append #{req 32950}# (list #{rest 32951}#)) - #{req 32950}#))) - (let ((#{vars 32955}# - (map #{gen-var 4389}# #{ids 32954}#))) - (let ((#{labels 32956}# - (#{gen-labels 4346}# #{ids 32954}#))) + (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 32948}# - (map syntax->datum #{req 32950}#) - (if #{rest 32951}# - (syntax->datum #{rest 32951}#) + #{s 33244}# + (map syntax->datum #{req 33246}#) + (if #{rest 33247}# + (syntax->datum #{rest 33247}#) #f) - #{vars 32955}# - #{meta 32952}# + #{vars 33251}# + #{meta 33248}# (#{chi-body 4379}# - #{body 32953}# - (let ((#{x 33145}# + #{body 33249}# + (let ((#{x 33441}# (begin - (if (if (pair? #{e 32945}#) #{s 32948}# #f) - (set-source-properties! #{e 32945}# #{s 32948}#)) - #{e 32945}#))) - (if (if (null? (car #{w 32947}#)) - (null? (cdr #{w 32947}#)) + (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}#)) #f) - #{x 33145}# - (if (if (vector? #{x 33145}#) - (if (= (vector-length #{x 33145}#) 4) - (eq? (vector-ref #{x 33145}# 0) 'syntax-object) + #{x 33441}# + (if (if (vector? #{x 33441}#) + (if (= (vector-length #{x 33441}#) 4) + (eq? (vector-ref #{x 33441}# 0) 'syntax-object) #f) #f) - (let ((#{expression 33177}# (vector-ref #{x 33145}# 1)) - (#{wrap 33178}# - (let ((#{w2 33186}# (vector-ref #{x 33145}# 2))) - (let ((#{m1 33187}# (car #{w 32947}#)) - (#{s1 33188}# (cdr #{w 32947}#))) - (if (null? #{m1 33187}#) - (if (null? #{s1 33188}#) - #{w2 33186}# - (cons (car #{w2 33186}#) - (let ((#{m2 33203}# - (cdr #{w2 33186}#))) - (if (null? #{m2 33203}#) - #{s1 33188}# + (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}# (append - #{s1 33188}# - #{m2 33203}#))))) - (cons (let ((#{m2 33211}# - (car #{w2 33186}#))) - (if (null? #{m2 33211}#) - #{m1 33187}# + #{s1 33484}# + #{m2 33499}#))))) + (cons (let ((#{m2 33507}# + (car #{w2 33482}#))) + (if (null? #{m2 33507}#) + #{m1 33483}# (append - #{m1 33187}# - #{m2 33211}#))) - (let ((#{m2 33219}# - (cdr #{w2 33186}#))) - (if (null? #{m2 33219}#) - #{s1 33188}# + #{m1 33483}# + #{m2 33507}#))) + (let ((#{m2 33515}# + (cdr #{w2 33482}#))) + (if (null? #{m2 33515}#) + #{s1 33484}# (append - #{s1 33188}# - #{m2 33219}#)))))))) - (#{module 33179}# (vector-ref #{x 33145}# 3))) + #{s1 33484}# + #{m2 33515}#)))))))) + (#{module 33475}# (vector-ref #{x 33441}# 3))) (vector 'syntax-object - #{expression 33177}# - #{wrap 33178}# - #{module 33179}#)) - (if (null? #{x 33145}#) - #{x 33145}# + #{expression 33473}# + #{wrap 33474}# + #{module 33475}#)) + (if (null? #{x 33441}#) + #{x 33441}# (vector 'syntax-object - #{x 33145}# - #{w 32947}# - #{mod 32949}#))))) + #{x 33441}# + #{w 33243}# + #{mod 33245}#))))) (#{extend-var-env 4338}# - #{labels 32956}# - #{vars 32955}# - #{r 32946}#) + #{labels 33252}# + #{vars 33251}# + #{r 33242}#) (#{make-binding-wrap 4357}# - #{ids 32954}# - #{labels 32956}# - #{w 32947}#) - #{mod 32949}#))))))) + #{ids 33250}# + #{labels 33252}# + #{w 33243}#) + #{mod 33245}#))))))) (#{lambda*-formals 4386}# - (lambda (#{orig-args 33450}#) + (lambda (#{orig-args 33746}#) (letrec* - ((#{req 33451}# - (lambda (#{args 33458}# #{rreq 33459}#) - (let ((#{tmp 33461}# ($sc-dispatch #{args 33458}# '()))) - (if #{tmp 33461}# + ((#{req 33747}# + (lambda (#{args 33754}# #{rreq 33755}#) + (let ((#{tmp 33757}# ($sc-dispatch #{args 33754}# '()))) + (if #{tmp 33757}# (@apply (lambda () - (#{check 33455}# - (reverse #{rreq 33459}#) + (#{check 33751}# + (reverse #{rreq 33755}#) '() #f '())) - #{tmp 33461}#) - (let ((#{tmp 33580}# - ($sc-dispatch #{args 33458}# '(any . any)))) - (if (if #{tmp 33580}# + #{tmp 33757}#) + (let ((#{tmp 33876}# + ($sc-dispatch #{args 33754}# '(any . any)))) + (if (if #{tmp 33876}# (@apply - (lambda (#{a 33584}# #{b 33585}#) - (if (symbol? #{a 33584}#) + (lambda (#{a 33880}# #{b 33881}#) + (if (symbol? #{a 33880}#) #t - (if (if (vector? #{a 33584}#) - (if (= (vector-length #{a 33584}#) 4) - (eq? (vector-ref #{a 33584}# 0) + (if (if (vector? #{a 33880}#) + (if (= (vector-length #{a 33880}#) 4) + (eq? (vector-ref #{a 33880}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 33584}# 1)) + (symbol? (vector-ref #{a 33880}# 1)) #f))) - #{tmp 33580}#) + #{tmp 33876}#) #f) (@apply - (lambda (#{a 33612}# #{b 33613}#) - (#{req 33451}# - #{b 33613}# - (cons #{a 33612}# #{rreq 33459}#))) - #{tmp 33580}#) - (let ((#{tmp 33614}# - ($sc-dispatch #{args 33458}# '(any . any)))) - (if (if #{tmp 33614}# + (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}# (@apply - (lambda (#{a 33618}# #{b 33619}#) - (eq? (syntax->datum #{a 33618}#) #:optional)) - #{tmp 33614}#) + (lambda (#{a 33914}# #{b 33915}#) + (eq? (syntax->datum #{a 33914}#) #:optional)) + #{tmp 33910}#) #f) (@apply - (lambda (#{a 33620}# #{b 33621}#) - (#{opt 33452}# - #{b 33621}# - (reverse #{rreq 33459}#) + (lambda (#{a 33916}# #{b 33917}#) + (#{opt 33748}# + #{b 33917}# + (reverse #{rreq 33755}#) '())) - #{tmp 33614}#) - (let ((#{tmp 33624}# - ($sc-dispatch #{args 33458}# '(any . any)))) - (if (if #{tmp 33624}# + #{tmp 33910}#) + (let ((#{tmp 33920}# + ($sc-dispatch #{args 33754}# '(any . any)))) + (if (if #{tmp 33920}# (@apply - (lambda (#{a 33628}# #{b 33629}#) - (eq? (syntax->datum #{a 33628}#) #:key)) - #{tmp 33624}#) + (lambda (#{a 33924}# #{b 33925}#) + (eq? (syntax->datum #{a 33924}#) #:key)) + #{tmp 33920}#) #f) (@apply - (lambda (#{a 33630}# #{b 33631}#) - (#{key 33453}# - #{b 33631}# - (reverse #{rreq 33459}#) + (lambda (#{a 33926}# #{b 33927}#) + (#{key 33749}# + #{b 33927}# + (reverse #{rreq 33755}#) '() '())) - #{tmp 33624}#) - (let ((#{tmp 33634}# + #{tmp 33920}#) + (let ((#{tmp 33930}# ($sc-dispatch - #{args 33458}# + #{args 33754}# '(any any)))) - (if (if #{tmp 33634}# + (if (if #{tmp 33930}# (@apply - (lambda (#{a 33638}# #{b 33639}#) - (eq? (syntax->datum #{a 33638}#) + (lambda (#{a 33934}# #{b 33935}#) + (eq? (syntax->datum #{a 33934}#) #:rest)) - #{tmp 33634}#) + #{tmp 33930}#) #f) (@apply - (lambda (#{a 33640}# #{b 33641}#) - (#{rest 33454}# - #{b 33641}# - (reverse #{rreq 33459}#) + (lambda (#{a 33936}# #{b 33937}#) + (#{rest 33750}# + #{b 33937}# + (reverse #{rreq 33755}#) '() '())) - #{tmp 33634}#) - (let ((#{tmp 33644}# (list #{args 33458}#))) + #{tmp 33930}#) + (let ((#{tmp 33940}# (list #{args 33754}#))) (if (@apply - (lambda (#{r 33646}#) - (if (symbol? #{r 33646}#) + (lambda (#{r 33942}#) + (if (symbol? #{r 33942}#) #t - (if (if (vector? #{r 33646}#) + (if (if (vector? #{r 33942}#) (if (= (vector-length - #{r 33646}#) + #{r 33942}#) 4) (eq? (vector-ref - #{r 33646}# + #{r 33942}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 33646}# 1)) + (vector-ref #{r 33942}# 1)) #f))) - #{tmp 33644}#) + #{tmp 33940}#) (@apply - (lambda (#{r 33676}#) - (#{rest 33454}# - #{r 33676}# - (reverse #{rreq 33459}#) + (lambda (#{r 33972}#) + (#{rest 33750}# + #{r 33972}# + (reverse #{rreq 33755}#) '() '())) - #{tmp 33644}#) + #{tmp 33940}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 33450}# - #{args 33458}#))))))))))))))) - (#{opt 33452}# - (lambda (#{args 33695}# #{req 33696}# #{ropt 33697}#) - (let ((#{tmp 33699}# ($sc-dispatch #{args 33695}# '()))) - (if #{tmp 33699}# + #{orig-args 33746}# + #{args 33754}#))))))))))))))) + (#{opt 33748}# + (lambda (#{args 33991}# #{req 33992}# #{ropt 33993}#) + (let ((#{tmp 33995}# ($sc-dispatch #{args 33991}# '()))) + (if #{tmp 33995}# (@apply (lambda () - (#{check 33455}# - #{req 33696}# - (reverse #{ropt 33697}#) + (#{check 33751}# + #{req 33992}# + (reverse #{ropt 33993}#) #f '())) - #{tmp 33699}#) - (let ((#{tmp 33820}# - ($sc-dispatch #{args 33695}# '(any . any)))) - (if (if #{tmp 33820}# + #{tmp 33995}#) + (let ((#{tmp 34116}# + ($sc-dispatch #{args 33991}# '(any . any)))) + (if (if #{tmp 34116}# (@apply - (lambda (#{a 33824}# #{b 33825}#) - (if (symbol? #{a 33824}#) + (lambda (#{a 34120}# #{b 34121}#) + (if (symbol? #{a 34120}#) #t - (if (if (vector? #{a 33824}#) - (if (= (vector-length #{a 33824}#) 4) - (eq? (vector-ref #{a 33824}# 0) + (if (if (vector? #{a 34120}#) + (if (= (vector-length #{a 34120}#) 4) + (eq? (vector-ref #{a 34120}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 33824}# 1)) + (symbol? (vector-ref #{a 34120}# 1)) #f))) - #{tmp 33820}#) + #{tmp 34116}#) #f) (@apply - (lambda (#{a 33852}# #{b 33853}#) - (#{opt 33452}# - #{b 33853}# - #{req 33696}# - (cons (cons #{a 33852}# + (lambda (#{a 34148}# #{b 34149}#) + (#{opt 33748}# + #{b 34149}# + #{req 33992}# + (cons (cons #{a 34148}# '(#(syntax-object #f ((top) @@ -7300,147 +7300,147 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - #{ropt 33697}#))) - #{tmp 33820}#) - (let ((#{tmp 33854}# + #{ropt 33993}#))) + #{tmp 34116}#) + (let ((#{tmp 34150}# ($sc-dispatch - #{args 33695}# + #{args 33991}# '((any any) . any)))) - (if (if #{tmp 33854}# + (if (if #{tmp 34150}# (@apply - (lambda (#{a 33858}# - #{init 33859}# - #{b 33860}#) - (if (symbol? #{a 33858}#) + (lambda (#{a 34154}# + #{init 34155}# + #{b 34156}#) + (if (symbol? #{a 34154}#) #t - (if (if (vector? #{a 33858}#) - (if (= (vector-length #{a 33858}#) 4) - (eq? (vector-ref #{a 33858}# 0) + (if (if (vector? #{a 34154}#) + (if (= (vector-length #{a 34154}#) 4) + (eq? (vector-ref #{a 34154}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 33858}# 1)) + (symbol? (vector-ref #{a 34154}# 1)) #f))) - #{tmp 33854}#) + #{tmp 34150}#) #f) (@apply - (lambda (#{a 33887}# #{init 33888}# #{b 33889}#) - (#{opt 33452}# - #{b 33889}# - #{req 33696}# - (cons (list #{a 33887}# #{init 33888}#) - #{ropt 33697}#))) - #{tmp 33854}#) - (let ((#{tmp 33890}# - ($sc-dispatch #{args 33695}# '(any . any)))) - (if (if #{tmp 33890}# + (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}# (@apply - (lambda (#{a 33894}# #{b 33895}#) - (eq? (syntax->datum #{a 33894}#) #:key)) - #{tmp 33890}#) + (lambda (#{a 34190}# #{b 34191}#) + (eq? (syntax->datum #{a 34190}#) #:key)) + #{tmp 34186}#) #f) (@apply - (lambda (#{a 33896}# #{b 33897}#) - (#{key 33453}# - #{b 33897}# - #{req 33696}# - (reverse #{ropt 33697}#) + (lambda (#{a 34192}# #{b 34193}#) + (#{key 33749}# + #{b 34193}# + #{req 33992}# + (reverse #{ropt 33993}#) '())) - #{tmp 33890}#) - (let ((#{tmp 33900}# + #{tmp 34186}#) + (let ((#{tmp 34196}# ($sc-dispatch - #{args 33695}# + #{args 33991}# '(any any)))) - (if (if #{tmp 33900}# + (if (if #{tmp 34196}# (@apply - (lambda (#{a 33904}# #{b 33905}#) - (eq? (syntax->datum #{a 33904}#) + (lambda (#{a 34200}# #{b 34201}#) + (eq? (syntax->datum #{a 34200}#) #:rest)) - #{tmp 33900}#) + #{tmp 34196}#) #f) (@apply - (lambda (#{a 33906}# #{b 33907}#) - (#{rest 33454}# - #{b 33907}# - #{req 33696}# - (reverse #{ropt 33697}#) + (lambda (#{a 34202}# #{b 34203}#) + (#{rest 33750}# + #{b 34203}# + #{req 33992}# + (reverse #{ropt 33993}#) '())) - #{tmp 33900}#) - (let ((#{tmp 33910}# (list #{args 33695}#))) + #{tmp 34196}#) + (let ((#{tmp 34206}# (list #{args 33991}#))) (if (@apply - (lambda (#{r 33912}#) - (if (symbol? #{r 33912}#) + (lambda (#{r 34208}#) + (if (symbol? #{r 34208}#) #t - (if (if (vector? #{r 33912}#) + (if (if (vector? #{r 34208}#) (if (= (vector-length - #{r 33912}#) + #{r 34208}#) 4) (eq? (vector-ref - #{r 33912}# + #{r 34208}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 33912}# 1)) + (vector-ref #{r 34208}# 1)) #f))) - #{tmp 33910}#) + #{tmp 34206}#) (@apply - (lambda (#{r 33942}#) - (#{rest 33454}# - #{r 33942}# - #{req 33696}# - (reverse #{ropt 33697}#) + (lambda (#{r 34238}#) + (#{rest 33750}# + #{r 34238}# + #{req 33992}# + (reverse #{ropt 33993}#) '())) - #{tmp 33910}#) + #{tmp 34206}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 33450}# - #{args 33695}#))))))))))))))) - (#{key 33453}# - (lambda (#{args 33961}# - #{req 33962}# - #{opt 33963}# - #{rkey 33964}#) - (let ((#{tmp 33966}# ($sc-dispatch #{args 33961}# '()))) - (if #{tmp 33966}# + #{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}# (@apply (lambda () - (#{check 33455}# - #{req 33962}# - #{opt 33963}# + (#{check 33751}# + #{req 34258}# + #{opt 34259}# #f - (cons #f (reverse #{rkey 33964}#)))) - #{tmp 33966}#) - (let ((#{tmp 34088}# - ($sc-dispatch #{args 33961}# '(any . any)))) - (if (if #{tmp 34088}# + (cons #f (reverse #{rkey 34260}#)))) + #{tmp 34262}#) + (let ((#{tmp 34384}# + ($sc-dispatch #{args 34257}# '(any . any)))) + (if (if #{tmp 34384}# (@apply - (lambda (#{a 34092}# #{b 34093}#) - (if (symbol? #{a 34092}#) + (lambda (#{a 34388}# #{b 34389}#) + (if (symbol? #{a 34388}#) #t - (if (if (vector? #{a 34092}#) - (if (= (vector-length #{a 34092}#) 4) - (eq? (vector-ref #{a 34092}# 0) + (if (if (vector? #{a 34388}#) + (if (= (vector-length #{a 34388}#) 4) + (eq? (vector-ref #{a 34388}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34092}# 1)) + (symbol? (vector-ref #{a 34388}# 1)) #f))) - #{tmp 34088}#) + #{tmp 34384}#) #f) (@apply - (lambda (#{a 34120}# #{b 34121}#) - (let ((#{tmp 34122}# + (lambda (#{a 34416}# #{b 34417}#) + (let ((#{tmp 34418}# (symbol->keyword - (syntax->datum #{a 34120}#)))) - (#{key 33453}# - #{b 34121}# - #{req 33962}# - #{opt 33963}# - (cons (cons #{tmp 34122}# - (cons #{a 34120}# + (syntax->datum #{a 34416}#)))) + (#{key 33749}# + #{b 34417}# + #{req 34258}# + #{opt 34259}# + (cons (cons #{tmp 34418}# + (cons #{a 34416}# '(#(syntax-object #f ((top) @@ -7902,1009 +7902,1009 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))))) - #{rkey 33964}#)))) - #{tmp 34088}#) - (let ((#{tmp 34125}# + #{rkey 34260}#)))) + #{tmp 34384}#) + (let ((#{tmp 34421}# ($sc-dispatch - #{args 33961}# + #{args 34257}# '((any any) . any)))) - (if (if #{tmp 34125}# + (if (if #{tmp 34421}# (@apply - (lambda (#{a 34129}# - #{init 34130}# - #{b 34131}#) - (if (symbol? #{a 34129}#) + (lambda (#{a 34425}# + #{init 34426}# + #{b 34427}#) + (if (symbol? #{a 34425}#) #t - (if (if (vector? #{a 34129}#) - (if (= (vector-length #{a 34129}#) 4) - (eq? (vector-ref #{a 34129}# 0) + (if (if (vector? #{a 34425}#) + (if (= (vector-length #{a 34425}#) 4) + (eq? (vector-ref #{a 34425}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 34129}# 1)) + (symbol? (vector-ref #{a 34425}# 1)) #f))) - #{tmp 34125}#) + #{tmp 34421}#) #f) (@apply - (lambda (#{a 34158}# #{init 34159}# #{b 34160}#) - (let ((#{tmp 34161}# + (lambda (#{a 34454}# #{init 34455}# #{b 34456}#) + (let ((#{tmp 34457}# (symbol->keyword - (syntax->datum #{a 34158}#)))) - (#{key 33453}# - #{b 34160}# - #{req 33962}# - #{opt 33963}# - (cons (list #{tmp 34161}# - #{a 34158}# - #{init 34159}#) - #{rkey 33964}#)))) - #{tmp 34125}#) - (let ((#{tmp 34164}# + (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}# ($sc-dispatch - #{args 33961}# + #{args 34257}# '((any any any) . any)))) - (if (if #{tmp 34164}# + (if (if #{tmp 34460}# (@apply - (lambda (#{a 34168}# - #{init 34169}# - #{k 34170}# - #{b 34171}#) - (if (if (symbol? #{a 34168}#) + (lambda (#{a 34464}# + #{init 34465}# + #{k 34466}# + #{b 34467}#) + (if (if (symbol? #{a 34464}#) #t - (if (if (vector? #{a 34168}#) + (if (if (vector? #{a 34464}#) (if (= (vector-length - #{a 34168}#) + #{a 34464}#) 4) (eq? (vector-ref - #{a 34168}# + #{a 34464}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 34168}# 1)) + (vector-ref #{a 34464}# 1)) #f)) - (keyword? (syntax->datum #{k 34170}#)) + (keyword? (syntax->datum #{k 34466}#)) #f)) - #{tmp 34164}#) + #{tmp 34460}#) #f) (@apply - (lambda (#{a 34198}# - #{init 34199}# - #{k 34200}# - #{b 34201}#) - (#{key 33453}# - #{b 34201}# - #{req 33962}# - #{opt 33963}# - (cons (list #{k 34200}# - #{a 34198}# - #{init 34199}#) - #{rkey 33964}#))) - #{tmp 34164}#) - (let ((#{tmp 34202}# - ($sc-dispatch #{args 33961}# '(any)))) - (if (if #{tmp 34202}# + (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}# (@apply - (lambda (#{aok 34206}#) - (eq? (syntax->datum #{aok 34206}#) + (lambda (#{aok 34502}#) + (eq? (syntax->datum #{aok 34502}#) #:allow-other-keys)) - #{tmp 34202}#) + #{tmp 34498}#) #f) (@apply - (lambda (#{aok 34207}#) - (#{check 33455}# - #{req 33962}# - #{opt 33963}# + (lambda (#{aok 34503}#) + (#{check 33751}# + #{req 34258}# + #{opt 34259}# #f - (cons #t (reverse #{rkey 33964}#)))) - #{tmp 34202}#) - (let ((#{tmp 34326}# + (cons #t (reverse #{rkey 34260}#)))) + #{tmp 34498}#) + (let ((#{tmp 34622}# ($sc-dispatch - #{args 33961}# + #{args 34257}# '(any any any)))) - (if (if #{tmp 34326}# + (if (if #{tmp 34622}# (@apply - (lambda (#{aok 34330}# - #{a 34331}# - #{b 34332}#) + (lambda (#{aok 34626}# + #{a 34627}# + #{b 34628}#) (if (eq? (syntax->datum - #{aok 34330}#) + #{aok 34626}#) #:allow-other-keys) (eq? (syntax->datum - #{a 34331}#) + #{a 34627}#) #:rest) #f)) - #{tmp 34326}#) + #{tmp 34622}#) #f) (@apply - (lambda (#{aok 34333}# - #{a 34334}# - #{b 34335}#) - (#{rest 33454}# - #{b 34335}# - #{req 33962}# - #{opt 33963}# + (lambda (#{aok 34629}# + #{a 34630}# + #{b 34631}#) + (#{rest 33750}# + #{b 34631}# + #{req 34258}# + #{opt 34259}# (cons #t - (reverse #{rkey 33964}#)))) - #{tmp 34326}#) - (let ((#{tmp 34338}# + (reverse #{rkey 34260}#)))) + #{tmp 34622}#) + (let ((#{tmp 34634}# ($sc-dispatch - #{args 33961}# + #{args 34257}# '(any . any)))) - (if (if #{tmp 34338}# + (if (if #{tmp 34634}# (@apply - (lambda (#{aok 34342}# - #{r 34343}#) + (lambda (#{aok 34638}# + #{r 34639}#) (if (eq? (syntax->datum - #{aok 34342}#) + #{aok 34638}#) #:allow-other-keys) - (if (symbol? #{r 34343}#) + (if (symbol? #{r 34639}#) #t (if (if (vector? - #{r 34343}#) + #{r 34639}#) (if (= (vector-length - #{r 34343}#) + #{r 34639}#) 4) (eq? (vector-ref - #{r 34343}# + #{r 34639}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 34343}# + #{r 34639}# 1)) #f)) #f)) - #{tmp 34338}#) + #{tmp 34634}#) #f) (@apply - (lambda (#{aok 34370}# #{r 34371}#) - (#{rest 33454}# - #{r 34371}# - #{req 33962}# - #{opt 33963}# + (lambda (#{aok 34666}# #{r 34667}#) + (#{rest 33750}# + #{r 34667}# + #{req 34258}# + #{opt 34259}# (cons #t (reverse - #{rkey 33964}#)))) - #{tmp 34338}#) - (let ((#{tmp 34374}# + #{rkey 34260}#)))) + #{tmp 34634}#) + (let ((#{tmp 34670}# ($sc-dispatch - #{args 33961}# + #{args 34257}# '(any any)))) - (if (if #{tmp 34374}# + (if (if #{tmp 34670}# (@apply - (lambda (#{a 34378}# - #{b 34379}#) + (lambda (#{a 34674}# + #{b 34675}#) (eq? (syntax->datum - #{a 34378}#) + #{a 34674}#) #:rest)) - #{tmp 34374}#) + #{tmp 34670}#) #f) (@apply - (lambda (#{a 34380}# - #{b 34381}#) - (#{rest 33454}# - #{b 34381}# - #{req 33962}# - #{opt 33963}# + (lambda (#{a 34676}# + #{b 34677}#) + (#{rest 33750}# + #{b 34677}# + #{req 34258}# + #{opt 34259}# (cons #f (reverse - #{rkey 33964}#)))) - #{tmp 34374}#) - (let ((#{tmp 34384}# - (list #{args 33961}#))) + #{rkey 34260}#)))) + #{tmp 34670}#) + (let ((#{tmp 34680}# + (list #{args 34257}#))) (if (@apply - (lambda (#{r 34386}#) + (lambda (#{r 34682}#) (if (symbol? - #{r 34386}#) + #{r 34682}#) #t (if (if (vector? - #{r 34386}#) + #{r 34682}#) (if (= (vector-length - #{r 34386}#) + #{r 34682}#) 4) (eq? (vector-ref - #{r 34386}# + #{r 34682}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 34386}# + #{r 34682}# 1)) #f))) - #{tmp 34384}#) + #{tmp 34680}#) (@apply - (lambda (#{r 34416}#) - (#{rest 33454}# - #{r 34416}# - #{req 33962}# - #{opt 33963}# + (lambda (#{r 34712}#) + (#{rest 33750}# + #{r 34712}# + #{req 34258}# + #{opt 34259}# (cons #f (reverse - #{rkey 33964}#)))) - #{tmp 34384}#) + #{rkey 34260}#)))) + #{tmp 34680}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 33450}# - #{args 33961}#))))))))))))))))))))) - (#{rest 33454}# - (lambda (#{args 34444}# - #{req 34445}# - #{opt 34446}# - #{kw 34447}#) - (let ((#{tmp 34449}# (list #{args 34444}#))) + #{orig-args 33746}# + #{args 34257}#))))))))))))))))))))) + (#{rest 33750}# + (lambda (#{args 34740}# + #{req 34741}# + #{opt 34742}# + #{kw 34743}#) + (let ((#{tmp 34745}# (list #{args 34740}#))) (if (@apply - (lambda (#{r 34451}#) - (if (symbol? #{r 34451}#) + (lambda (#{r 34747}#) + (if (symbol? #{r 34747}#) #t - (if (if (vector? #{r 34451}#) - (if (= (vector-length #{r 34451}#) 4) - (eq? (vector-ref #{r 34451}# 0) + (if (if (vector? #{r 34747}#) + (if (= (vector-length #{r 34747}#) 4) + (eq? (vector-ref #{r 34747}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 34451}# 1)) + (symbol? (vector-ref #{r 34747}# 1)) #f))) - #{tmp 34449}#) + #{tmp 34745}#) (@apply - (lambda (#{r 34481}#) - (#{check 33455}# - #{req 34445}# - #{opt 34446}# - #{r 34481}# - #{kw 34447}#)) - #{tmp 34449}#) + (lambda (#{r 34777}#) + (#{check 33751}# + #{req 34741}# + #{opt 34742}# + #{r 34777}# + #{kw 34743}#)) + #{tmp 34745}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 33450}# - #{args 34444}#))))) - (#{check 33455}# - (lambda (#{req 34609}# - #{opt 34610}# - #{rest 34611}# - #{kw 34612}#) + #{orig-args 33746}# + #{args 34740}#))))) + (#{check 33751}# + (lambda (#{req 34905}# + #{opt 34906}# + #{rest 34907}# + #{kw 34908}#) (if (#{distinct-bound-ids? 4366}# (append - #{req 34609}# - (map car #{opt 34610}#) - (if #{rest 34611}# (list #{rest 34611}#) '()) - (if (pair? #{kw 34612}#) - (map cadr (cdr #{kw 34612}#)) + #{req 34905}# + (map car #{opt 34906}#) + (if #{rest 34907}# (list #{rest 34907}#) '()) + (if (pair? #{kw 34908}#) + (map cadr (cdr #{kw 34908}#)) '()))) (values - #{req 34609}# - #{opt 34610}# - #{rest 34611}# - #{kw 34612}#) + #{req 34905}# + #{opt 34906}# + #{rest 34907}# + #{kw 34908}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 33450}#))))) - (#{req 33451}# #{orig-args 33450}# '())))) + #{orig-args 33746}#))))) + (#{req 33747}# #{orig-args 33746}# '())))) (#{chi-lambda-case 4387}# - (lambda (#{e 34721}# - #{r 34722}# - #{w 34723}# - #{s 34724}# - #{mod 34725}# - #{get-formals 34726}# - #{clauses 34727}#) + (lambda (#{e 35017}# + #{r 35018}# + #{w 35019}# + #{s 35020}# + #{mod 35021}# + #{get-formals 35022}# + #{clauses 35023}#) (letrec* - ((#{expand-req 34728}# - (lambda (#{req 34864}# - #{opt 34865}# - #{rest 34866}# - #{kw 34867}# - #{body 34868}#) - (let ((#{vars 34869}# - (map #{gen-var 4389}# #{req 34864}#)) - (#{labels 34870}# - (#{gen-labels 4346}# #{req 34864}#))) - (let ((#{r* 34871}# + ((#{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 34870}# - #{vars 34869}# - #{r 34722}#)) - (#{w* 34872}# + #{labels 35166}# + #{vars 35165}# + #{r 35018}#)) + (#{w* 35168}# (#{make-binding-wrap 4357}# - #{req 34864}# - #{labels 34870}# - #{w 34723}#))) - (#{expand-opt 34729}# - (map syntax->datum #{req 34864}#) - #{opt 34865}# - #{rest 34866}# - #{kw 34867}# - #{body 34868}# - (reverse #{vars 34869}#) - #{r* 34871}# - #{w* 34872}# + #{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-opt 34729}# - (lambda (#{req 35108}# - #{opt 35109}# - #{rest 35110}# - #{kw 35111}# - #{body 35112}# - #{vars 35113}# - #{r* 35114}# - #{w* 35115}# - #{out 35116}# - #{inits 35117}#) - (if (pair? #{opt 35109}#) - (let ((#{tmp 35118}# (car #{opt 35109}#))) - (let ((#{tmp 35119}# - ($sc-dispatch #{tmp 35118}# '(any any)))) - (if #{tmp 35119}# + (#{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}# (@apply - (lambda (#{id 35121}# #{i 35122}#) - (let ((#{v 35123}# - (let ((#{id 35131}# - (if (if (vector? #{id 35121}#) + (lambda (#{id 35417}# #{i 35418}#) + (let ((#{v 35419}# + (let ((#{id 35427}# + (if (if (vector? #{id 35417}#) (if (= (vector-length - #{id 35121}#) + #{id 35417}#) 4) (eq? (vector-ref - #{id 35121}# + #{id 35417}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 35121}# 1) - #{id 35121}#))) + (vector-ref #{id 35417}# 1) + #{id 35417}#))) (gensym (string-append - (symbol->string #{id 35131}#) + (symbol->string #{id 35427}#) " "))))) - (let ((#{l 35124}# - (#{gen-labels 4346}# (list #{v 35123}#)))) - (let ((#{r** 35125}# + (let ((#{l 35420}# + (#{gen-labels 4346}# (list #{v 35419}#)))) + (let ((#{r** 35421}# (#{extend-var-env 4338}# - #{l 35124}# - (list #{v 35123}#) - #{r* 35114}#))) - (let ((#{w** 35126}# + #{l 35420}# + (list #{v 35419}#) + #{r* 35410}#))) + (let ((#{w** 35422}# (#{make-binding-wrap 4357}# - (list #{id 35121}#) - #{l 35124}# - #{w* 35115}#))) - (#{expand-opt 34729}# - #{req 35108}# - (cdr #{opt 35109}#) - #{rest 35110}# - #{kw 35111}# - #{body 35112}# - (cons #{v 35123}# #{vars 35113}#) - #{r** 35125}# - #{w** 35126}# - (cons (syntax->datum #{id 35121}#) - #{out 35116}#) + (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 35122}# - #{r* 35114}# - #{w* 35115}# - #{mod 34725}#) - #{inits 35117}#))))))) - #{tmp 35119}#) + #{i 35418}# + #{r* 35410}# + #{w* 35411}# + #{mod 35021}#) + #{inits 35413}#))))))) + #{tmp 35415}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 35118}#)))) - (if #{rest 35110}# - (let ((#{v 35430}# - (let ((#{id 35440}# - (if (if (vector? #{rest 35110}#) - (if (= (vector-length #{rest 35110}#) + #{tmp 35414}#)))) + (if #{rest 35406}# + (let ((#{v 35728}# + (let ((#{id 35738}# + (if (if (vector? #{rest 35406}#) + (if (= (vector-length #{rest 35406}#) 4) - (eq? (vector-ref #{rest 35110}# 0) + (eq? (vector-ref #{rest 35406}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 35110}# 1) - #{rest 35110}#))) + (vector-ref #{rest 35406}# 1) + #{rest 35406}#))) (gensym (string-append - (symbol->string #{id 35440}#) + (symbol->string #{id 35738}#) " "))))) - (let ((#{l 35431}# - (#{gen-labels 4346}# (list #{v 35430}#)))) - (let ((#{r* 35432}# + (let ((#{l 35729}# + (#{gen-labels 4346}# (list #{v 35728}#)))) + (let ((#{r* 35730}# (#{extend-var-env 4338}# - #{l 35431}# - (list #{v 35430}#) - #{r* 35114}#))) - (let ((#{w* 35433}# + #{l 35729}# + (list #{v 35728}#) + #{r* 35410}#))) + (let ((#{w* 35731}# (#{make-binding-wrap 4357}# - (list #{rest 35110}#) - #{l 35431}# - #{w* 35115}#))) - (#{expand-kw 34730}# - #{req 35108}# - (if (pair? #{out 35116}#) - (reverse #{out 35116}#) + (list #{rest 35406}#) + #{l 35729}# + #{w* 35411}#))) + (#{expand-kw 35026}# + #{req 35404}# + (if (pair? #{out 35412}#) + (reverse #{out 35412}#) #f) - (syntax->datum #{rest 35110}#) - (if (pair? #{kw 35111}#) - (cdr #{kw 35111}#) - #{kw 35111}#) - #{body 35112}# - (cons #{v 35430}# #{vars 35113}#) - #{r* 35432}# - #{w* 35433}# - (if (pair? #{kw 35111}#) (car #{kw 35111}#) #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) '() - #{inits 35117}#))))) - (#{expand-kw 34730}# - #{req 35108}# - (if (pair? #{out 35116}#) - (reverse #{out 35116}#) + #{inits 35413}#))))) + (#{expand-kw 35026}# + #{req 35404}# + (if (pair? #{out 35412}#) + (reverse #{out 35412}#) #f) #f - (if (pair? #{kw 35111}#) - (cdr #{kw 35111}#) - #{kw 35111}#) - #{body 35112}# - #{vars 35113}# - #{r* 35114}# - #{w* 35115}# - (if (pair? #{kw 35111}#) (car #{kw 35111}#) #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) '() - #{inits 35117}#))))) - (#{expand-kw 34730}# - (lambda (#{req 35662}# - #{opt 35663}# - #{rest 35664}# - #{kw 35665}# - #{body 35666}# - #{vars 35667}# - #{r* 35668}# - #{w* 35669}# - #{aok 35670}# - #{out 35671}# - #{inits 35672}#) - (if (pair? #{kw 35665}#) - (let ((#{tmp 35673}# (car #{kw 35665}#))) - (let ((#{tmp 35674}# - ($sc-dispatch #{tmp 35673}# '(any any any)))) - (if #{tmp 35674}# + #{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}# (@apply - (lambda (#{k 35676}# #{id 35677}# #{i 35678}#) - (let ((#{v 35679}# - (let ((#{id 35687}# - (if (if (vector? #{id 35677}#) + (lambda (#{k 35974}# #{id 35975}# #{i 35976}#) + (let ((#{v 35977}# + (let ((#{id 35985}# + (if (if (vector? #{id 35975}#) (if (= (vector-length - #{id 35677}#) + #{id 35975}#) 4) (eq? (vector-ref - #{id 35677}# + #{id 35975}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 35677}# 1) - #{id 35677}#))) + (vector-ref #{id 35975}# 1) + #{id 35975}#))) (gensym (string-append - (symbol->string #{id 35687}#) + (symbol->string #{id 35985}#) " "))))) - (let ((#{l 35680}# - (#{gen-labels 4346}# (list #{v 35679}#)))) - (let ((#{r** 35681}# + (let ((#{l 35978}# + (#{gen-labels 4346}# (list #{v 35977}#)))) + (let ((#{r** 35979}# (#{extend-var-env 4338}# - #{l 35680}# - (list #{v 35679}#) - #{r* 35668}#))) - (let ((#{w** 35682}# + #{l 35978}# + (list #{v 35977}#) + #{r* 35966}#))) + (let ((#{w** 35980}# (#{make-binding-wrap 4357}# - (list #{id 35677}#) - #{l 35680}# - #{w* 35669}#))) - (#{expand-kw 34730}# - #{req 35662}# - #{opt 35663}# - #{rest 35664}# - (cdr #{kw 35665}#) - #{body 35666}# - (cons #{v 35679}# #{vars 35667}#) - #{r** 35681}# - #{w** 35682}# - #{aok 35670}# - (cons (list (syntax->datum #{k 35676}#) - (syntax->datum #{id 35677}#) - #{v 35679}#) - #{out 35671}#) + (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 35678}# - #{r* 35668}# - #{w* 35669}# - #{mod 34725}#) - #{inits 35672}#))))))) - #{tmp 35674}#) + #{i 35976}# + #{r* 35966}# + #{w* 35967}# + #{mod 35021}#) + #{inits 35970}#))))))) + #{tmp 35972}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 35673}#)))) - (#{expand-body 34731}# - #{req 35662}# - #{opt 35663}# - #{rest 35664}# - (if (if #{aok 35670}# - #{aok 35670}# - (pair? #{out 35671}#)) - (cons #{aok 35670}# (reverse #{out 35671}#)) + #{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}#)) #f) - #{body 35666}# - (reverse #{vars 35667}#) - #{r* 35668}# - #{w* 35669}# - (reverse #{inits 35672}#) + #{body 35964}# + (reverse #{vars 35965}#) + #{r* 35966}# + #{w* 35967}# + (reverse #{inits 35970}#) '())))) - (#{expand-body 34731}# - (lambda (#{req 35995}# - #{opt 35996}# - #{rest 35997}# - #{kw 35998}# - #{body 35999}# - #{vars 36000}# - #{r* 36001}# - #{w* 36002}# - #{inits 36003}# - #{meta 36004}#) - (let ((#{tmp 36006}# + (#{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}# ($sc-dispatch - #{body 35999}# + #{body 36299}# '(any any . each-any)))) - (if (if #{tmp 36006}# + (if (if #{tmp 36306}# (@apply - (lambda (#{docstring 36010}# #{e1 36011}# #{e2 36012}#) - (string? (syntax->datum #{docstring 36010}#))) - #{tmp 36006}#) + (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#) + (string? (syntax->datum #{docstring 36310}#))) + #{tmp 36306}#) #f) (@apply - (lambda (#{docstring 36013}# #{e1 36014}# #{e2 36015}#) - (#{expand-body 34731}# - #{req 35995}# - #{opt 35996}# - #{rest 35997}# - #{kw 35998}# - (cons #{e1 36014}# #{e2 36015}#) - #{vars 36000}# - #{r* 36001}# - #{w* 36002}# - #{inits 36003}# + (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}# (append - #{meta 36004}# + #{meta 36304}# (list (cons 'documentation - (syntax->datum #{docstring 36013}#)))))) - #{tmp 36006}#) - (let ((#{tmp 36016}# + (syntax->datum #{docstring 36313}#)))))) + #{tmp 36306}#) + (let ((#{tmp 36316}# ($sc-dispatch - #{body 35999}# + #{body 36299}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 36016}# + (if #{tmp 36316}# (@apply - (lambda (#{k 36020}# - #{v 36021}# - #{e1 36022}# - #{e2 36023}#) - (#{expand-body 34731}# - #{req 35995}# - #{opt 35996}# - #{rest 35997}# - #{kw 35998}# - (cons #{e1 36022}# #{e2 36023}#) - #{vars 36000}# - #{r* 36001}# - #{w* 36002}# - #{inits 36003}# + (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}# (append - #{meta 36004}# + #{meta 36304}# (syntax->datum - (map cons #{k 36020}# #{v 36021}#))))) - #{tmp 36016}#) - (let ((#{tmp 36024}# - ($sc-dispatch #{body 35999}# '(any . each-any)))) - (if #{tmp 36024}# + (map cons #{k 36320}# #{v 36321}#))))) + #{tmp 36316}#) + (let ((#{tmp 36324}# + ($sc-dispatch #{body 36299}# '(any . each-any)))) + (if #{tmp 36324}# (@apply - (lambda (#{e1 36028}# #{e2 36029}#) + (lambda (#{e1 36328}# #{e2 36329}#) (values - #{meta 36004}# - #{req 35995}# - #{opt 35996}# - #{rest 35997}# - #{kw 35998}# - #{inits 36003}# - #{vars 36000}# + #{meta 36304}# + #{req 36295}# + #{opt 36296}# + #{rest 36297}# + #{kw 36298}# + #{inits 36303}# + #{vars 36300}# (#{chi-body 4379}# - (cons #{e1 36028}# #{e2 36029}#) - (let ((#{x 36041}# + (cons #{e1 36328}# #{e2 36329}#) + (let ((#{x 36341}# (begin - (if (if (pair? #{e 34721}#) - #{s 34724}# + (if (if (pair? #{e 35017}#) + #{s 35020}# #f) (set-source-properties! - #{e 34721}# - #{s 34724}#)) - #{e 34721}#))) - (if (if (null? (car #{w 34723}#)) - (null? (cdr #{w 34723}#)) + #{e 35017}# + #{s 35020}#)) + #{e 35017}#))) + (if (if (null? (car #{w 35019}#)) + (null? (cdr #{w 35019}#)) #f) - #{x 36041}# - (if (if (vector? #{x 36041}#) - (if (= (vector-length #{x 36041}#) + #{x 36341}# + (if (if (vector? #{x 36341}#) + (if (= (vector-length #{x 36341}#) 4) - (eq? (vector-ref #{x 36041}# 0) + (eq? (vector-ref #{x 36341}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36073}# - (vector-ref #{x 36041}# 1)) - (#{wrap 36074}# - (let ((#{w2 36082}# + (let ((#{expression 36373}# + (vector-ref #{x 36341}# 1)) + (#{wrap 36374}# + (let ((#{w2 36382}# (vector-ref - #{x 36041}# + #{x 36341}# 2))) - (let ((#{m1 36083}# - (car #{w 34723}#)) - (#{s1 36084}# - (cdr #{w 34723}#))) - (if (null? #{m1 36083}#) - (if (null? #{s1 36084}#) - #{w2 36082}# - (cons (car #{w2 36082}#) - (let ((#{m2 36099}# - (cdr #{w2 36082}#))) - (if (null? #{m2 36099}#) - #{s1 36084}# + (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}# (append - #{s1 36084}# - #{m2 36099}#))))) - (cons (let ((#{m2 36107}# - (car #{w2 36082}#))) - (if (null? #{m2 36107}#) - #{m1 36083}# + #{s1 36384}# + #{m2 36399}#))))) + (cons (let ((#{m2 36407}# + (car #{w2 36382}#))) + (if (null? #{m2 36407}#) + #{m1 36383}# (append - #{m1 36083}# - #{m2 36107}#))) - (let ((#{m2 36115}# - (cdr #{w2 36082}#))) - (if (null? #{m2 36115}#) - #{s1 36084}# + #{m1 36383}# + #{m2 36407}#))) + (let ((#{m2 36415}# + (cdr #{w2 36382}#))) + (if (null? #{m2 36415}#) + #{s1 36384}# (append - #{s1 36084}# - #{m2 36115}#)))))))) - (#{module 36075}# - (vector-ref #{x 36041}# 3))) + #{s1 36384}# + #{m2 36415}#)))))))) + (#{module 36375}# + (vector-ref #{x 36341}# 3))) (vector 'syntax-object - #{expression 36073}# - #{wrap 36074}# - #{module 36075}#)) - (if (null? #{x 36041}#) - #{x 36041}# + #{expression 36373}# + #{wrap 36374}# + #{module 36375}#)) + (if (null? #{x 36341}#) + #{x 36341}# (vector 'syntax-object - #{x 36041}# - #{w 34723}# - #{mod 34725}#))))) - #{r* 36001}# - #{w* 36002}# - #{mod 34725}#))) - #{tmp 36024}#) + #{x 36341}# + #{w 35019}# + #{mod 35021}#))))) + #{r* 36301}# + #{w* 36302}# + #{mod 35021}#))) + #{tmp 36324}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 35999}#)))))))))) - (let ((#{tmp 34733}# - ($sc-dispatch #{clauses 34727}# '()))) - (if #{tmp 34733}# + #{body 36299}#)))))))))) + (let ((#{tmp 35029}# + ($sc-dispatch #{clauses 35023}# '()))) + (if #{tmp 35029}# (@apply (lambda () (values '() #f)) - #{tmp 34733}#) - (let ((#{tmp 34738}# + #{tmp 35029}#) + (let ((#{tmp 35034}# ($sc-dispatch - #{clauses 34727}# + #{clauses 35023}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 34738}# + (if #{tmp 35034}# (@apply - (lambda (#{args 34742}# - #{e1 34743}# - #{e2 34744}# - #{args* 34745}# - #{e1* 34746}# - #{e2* 34747}#) + (lambda (#{args 35038}# + #{e1 35039}# + #{e2 35040}# + #{args* 35041}# + #{e1* 35042}# + #{e2* 35043}#) (call-with-values (lambda () - (#{get-formals 34726}# #{args 34742}#)) - (lambda (#{req 34748}# - #{opt 34749}# - #{rest 34750}# - #{kw 34751}#) + (#{get-formals 35022}# #{args 35038}#)) + (lambda (#{req 35044}# + #{opt 35045}# + #{rest 35046}# + #{kw 35047}#) (call-with-values (lambda () - (#{expand-req 34728}# - #{req 34748}# - #{opt 34749}# - #{rest 34750}# - #{kw 34751}# - (cons #{e1 34743}# #{e2 34744}#))) - (lambda (#{meta 34820}# - #{req 34821}# - #{opt 34822}# - #{rest 34823}# - #{kw 34824}# - #{inits 34825}# - #{vars 34826}# - #{body 34827}#) + (#{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}#) (call-with-values (lambda () (#{chi-lambda-case 4387}# - #{e 34721}# - #{r 34722}# - #{w 34723}# - #{s 34724}# - #{mod 34725}# - #{get-formals 34726}# - (map (lambda (#{tmp 2808 34828}# - #{tmp 2807 34829}# - #{tmp 2806 34830}#) - (cons #{tmp 2806 34830}# - (cons #{tmp 2807 34829}# - #{tmp 2808 34828}#))) - #{e2* 34747}# - #{e1* 34746}# - #{args* 34745}#))) - (lambda (#{meta* 34831}# #{else* 34832}#) + #{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}#) (values - (append #{meta 34820}# #{meta* 34831}#) + (append #{meta 35116}# #{meta* 35127}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{s 34724}# - #{req 34821}# - #{opt 34822}# - #{rest 34823}# - #{kw 34824}# - #{inits 34825}# - #{vars 34826}# - #{body 34827}# - #{else* 34832}#))))))))) - #{tmp 34738}#) + #{s 35020}# + #{req 35117}# + #{opt 35118}# + #{rest 35119}# + #{kw 35120}# + #{inits 35121}# + #{vars 35122}# + #{body 35123}# + #{else* 35128}#))))))))) + #{tmp 35034}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 34727}#)))))))) + #{clauses 35023}#)))))))) (#{strip 4388}# - (lambda (#{x 36142}# #{w 36143}#) - (if (memq 'top (car #{w 36143}#)) - #{x 36142}# + (lambda (#{x 36442}# #{w 36443}#) + (if (memq 'top (car #{w 36443}#)) + #{x 36442}# (letrec* - ((#{f 36144}# - (lambda (#{x 36147}#) - (if (if (vector? #{x 36147}#) - (if (= (vector-length #{x 36147}#) 4) - (eq? (vector-ref #{x 36147}# 0) 'syntax-object) + ((#{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) #f) (#{strip 4388}# - (vector-ref #{x 36147}# 1) - (vector-ref #{x 36147}# 2)) - (if (pair? #{x 36147}#) - (let ((#{a 36166}# (#{f 36144}# (car #{x 36147}#))) - (#{d 36167}# (#{f 36144}# (cdr #{x 36147}#)))) - (if (if (eq? #{a 36166}# (car #{x 36147}#)) - (eq? #{d 36167}# (cdr #{x 36147}#)) + (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}#)) #f) - #{x 36147}# - (cons #{a 36166}# #{d 36167}#))) - (if (vector? #{x 36147}#) - (let ((#{old 36170}# (vector->list #{x 36147}#))) - (let ((#{new 36171}# (map #{f 36144}# #{old 36170}#))) + #{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}#))) (letrec* - ((#{lp 36172}# - (lambda (#{l1 36269}# #{l2 36270}#) - (if (null? #{l1 36269}#) - #{x 36147}# - (if (eq? (car #{l1 36269}#) - (car #{l2 36270}#)) - (#{lp 36172}# - (cdr #{l1 36269}#) - (cdr #{l2 36270}#)) - (list->vector #{new 36171}#)))))) - (#{lp 36172}# #{old 36170}# #{new 36171}#)))) - #{x 36147}#)))))) - (#{f 36144}# #{x 36142}#))))) + ((#{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 34876}#) - (let ((#{id 34877}# - (if (if (vector? #{id 34876}#) - (if (= (vector-length #{id 34876}#) 4) - (eq? (vector-ref #{id 34876}# 0) 'syntax-object) + (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) #f) #f) - (vector-ref #{id 34876}# 1) - #{id 34876}#))) + (vector-ref #{id 35172}# 1) + #{id 35172}#))) (gensym - (string-append (symbol->string #{id 34877}#) " "))))) + (string-append (symbol->string #{id 35173}#) " "))))) (#{lambda-var-list 4390}# - (lambda (#{vars 36271}#) + (lambda (#{vars 36571}#) (letrec* - ((#{lvl 36272}# - (lambda (#{vars 36275}# #{ls 36276}# #{w 36277}#) - (if (pair? #{vars 36275}#) - (#{lvl 36272}# - (cdr #{vars 36275}#) - (cons (let ((#{x 36281}# (car #{vars 36275}#))) - (if (if (null? (car #{w 36277}#)) - (null? (cdr #{w 36277}#)) + ((#{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}#)) #f) - #{x 36281}# - (if (if (vector? #{x 36281}#) - (if (= (vector-length #{x 36281}#) 4) - (eq? (vector-ref #{x 36281}# 0) + #{x 36581}# + (if (if (vector? #{x 36581}#) + (if (= (vector-length #{x 36581}#) 4) + (eq? (vector-ref #{x 36581}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36299}# - (vector-ref #{x 36281}# 1)) - (#{wrap 36300}# - (let ((#{w2 36308}# - (vector-ref #{x 36281}# 2))) - (let ((#{m1 36309}# (car #{w 36277}#)) - (#{s1 36310}# (cdr #{w 36277}#))) - (if (null? #{m1 36309}#) - (if (null? #{s1 36310}#) - #{w2 36308}# - (cons (car #{w2 36308}#) - (let ((#{m2 36325}# - (cdr #{w2 36308}#))) - (if (null? #{m2 36325}#) - #{s1 36310}# + (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}# (append - #{s1 36310}# - #{m2 36325}#))))) - (cons (let ((#{m2 36333}# - (car #{w2 36308}#))) - (if (null? #{m2 36333}#) - #{m1 36309}# + #{s1 36610}# + #{m2 36625}#))))) + (cons (let ((#{m2 36633}# + (car #{w2 36608}#))) + (if (null? #{m2 36633}#) + #{m1 36609}# (append - #{m1 36309}# - #{m2 36333}#))) - (let ((#{m2 36341}# - (cdr #{w2 36308}#))) - (if (null? #{m2 36341}#) - #{s1 36310}# + #{m1 36609}# + #{m2 36633}#))) + (let ((#{m2 36641}# + (cdr #{w2 36608}#))) + (if (null? #{m2 36641}#) + #{s1 36610}# (append - #{s1 36310}# - #{m2 36341}#)))))))) - (#{module 36301}# - (vector-ref #{x 36281}# 3))) + #{s1 36610}# + #{m2 36641}#)))))))) + (#{module 36601}# + (vector-ref #{x 36581}# 3))) (vector 'syntax-object - #{expression 36299}# - #{wrap 36300}# - #{module 36301}#)) - (if (null? #{x 36281}#) - #{x 36281}# + #{expression 36599}# + #{wrap 36600}# + #{module 36601}#)) + (if (null? #{x 36581}#) + #{x 36581}# (vector 'syntax-object - #{x 36281}# - #{w 36277}# + #{x 36581}# + #{w 36577}# #f))))) - #{ls 36276}#) - #{w 36277}#) - (if (if (symbol? #{vars 36275}#) + #{ls 36576}#) + #{w 36577}#) + (if (if (symbol? #{vars 36575}#) #t - (if (if (vector? #{vars 36275}#) - (if (= (vector-length #{vars 36275}#) 4) - (eq? (vector-ref #{vars 36275}# 0) + (if (if (vector? #{vars 36575}#) + (if (= (vector-length #{vars 36575}#) 4) + (eq? (vector-ref #{vars 36575}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{vars 36275}# 1)) + (symbol? (vector-ref #{vars 36575}# 1)) #f)) - (cons (if (if (null? (car #{w 36277}#)) - (null? (cdr #{w 36277}#)) + (cons (if (if (null? (car #{w 36577}#)) + (null? (cdr #{w 36577}#)) #f) - #{vars 36275}# - (if (if (vector? #{vars 36275}#) - (if (= (vector-length #{vars 36275}#) 4) - (eq? (vector-ref #{vars 36275}# 0) + #{vars 36575}# + (if (if (vector? #{vars 36575}#) + (if (= (vector-length #{vars 36575}#) 4) + (eq? (vector-ref #{vars 36575}# 0) 'syntax-object) #f) #f) - (let ((#{expression 36411}# - (vector-ref #{vars 36275}# 1)) - (#{wrap 36412}# - (let ((#{w2 36422}# - (vector-ref #{vars 36275}# 2))) - (let ((#{m1 36423}# (car #{w 36277}#)) - (#{s1 36424}# (cdr #{w 36277}#))) - (if (null? #{m1 36423}#) - (if (null? #{s1 36424}#) - #{w2 36422}# - (cons (car #{w2 36422}#) - (let ((#{m2 36441}# - (cdr #{w2 36422}#))) - (if (null? #{m2 36441}#) - #{s1 36424}# + (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}# (append - #{s1 36424}# - #{m2 36441}#))))) - (cons (let ((#{m2 36449}# - (car #{w2 36422}#))) - (if (null? #{m2 36449}#) - #{m1 36423}# + #{s1 36724}# + #{m2 36741}#))))) + (cons (let ((#{m2 36749}# + (car #{w2 36722}#))) + (if (null? #{m2 36749}#) + #{m1 36723}# (append - #{m1 36423}# - #{m2 36449}#))) - (let ((#{m2 36457}# - (cdr #{w2 36422}#))) - (if (null? #{m2 36457}#) - #{s1 36424}# + #{m1 36723}# + #{m2 36749}#))) + (let ((#{m2 36757}# + (cdr #{w2 36722}#))) + (if (null? #{m2 36757}#) + #{s1 36724}# (append - #{s1 36424}# - #{m2 36457}#)))))))) - (#{module 36413}# - (vector-ref #{vars 36275}# 3))) + #{s1 36724}# + #{m2 36757}#)))))))) + (#{module 36713}# + (vector-ref #{vars 36575}# 3))) (vector 'syntax-object - #{expression 36411}# - #{wrap 36412}# - #{module 36413}#)) - (if (null? #{vars 36275}#) - #{vars 36275}# + #{expression 36711}# + #{wrap 36712}# + #{module 36713}#)) + (if (null? #{vars 36575}#) + #{vars 36575}# (vector 'syntax-object - #{vars 36275}# - #{w 36277}# + #{vars 36575}# + #{w 36577}# #f)))) - #{ls 36276}#) - (if (null? #{vars 36275}#) - #{ls 36276}# - (if (if (vector? #{vars 36275}#) - (if (= (vector-length #{vars 36275}#) 4) - (eq? (vector-ref #{vars 36275}# 0) + #{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) 'syntax-object) #f) #f) - (#{lvl 36272}# - (vector-ref #{vars 36275}# 1) - #{ls 36276}# - (let ((#{w2 36498}# (vector-ref #{vars 36275}# 2))) - (let ((#{m1 36499}# (car #{w 36277}#)) - (#{s1 36500}# (cdr #{w 36277}#))) - (if (null? #{m1 36499}#) - (if (null? #{s1 36500}#) - #{w2 36498}# - (cons (car #{w2 36498}#) - (let ((#{m2 36511}# (cdr #{w2 36498}#))) - (if (null? #{m2 36511}#) - #{s1 36500}# + (#{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}# (append - #{s1 36500}# - #{m2 36511}#))))) - (cons (let ((#{m2 36519}# (car #{w2 36498}#))) - (if (null? #{m2 36519}#) - #{m1 36499}# - (append #{m1 36499}# #{m2 36519}#))) - (let ((#{m2 36527}# (cdr #{w2 36498}#))) - (if (null? #{m2 36527}#) - #{s1 36500}# + #{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}# (append - #{s1 36500}# - #{m2 36527}#)))))))) - (cons #{vars 36275}# #{ls 36276}#)))))))) - (#{lvl 36272}# #{vars 36271}# '() '(())))))) + #{s1 36800}# + #{m2 36827}#)))))))) + (cons #{vars 36575}# #{ls 36576}#)))))))) + (#{lvl 36572}# #{vars 36571}# '() '(())))))) (begin (module-define! (current-module) @@ -8923,2097 +8923,2097 @@ (#{global-extend 4341}# 'core 'fluid-let-syntax - (lambda (#{e 4515}# - #{r 4516}# - #{w 4517}# - #{s 4518}# - #{mod 4519}#) - (let ((#{tmp 4521}# + (lambda (#{e 4517}# + #{r 4518}# + #{w 4519}# + #{s 4520}# + #{mod 4521}#) + (let ((#{tmp 4523}# ($sc-dispatch - #{e 4515}# + #{e 4517}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4521}# + (if (if #{tmp 4523}# (@apply - (lambda (#{var 4525}# - #{val 4526}# - #{e1 4527}# - #{e2 4528}#) - (#{valid-bound-ids? 4365}# #{var 4525}#)) - #{tmp 4521}#) + (lambda (#{var 4527}# + #{val 4528}# + #{e1 4529}# + #{e2 4530}#) + (#{valid-bound-ids? 4365}# #{var 4527}#)) + #{tmp 4523}#) #f) (@apply - (lambda (#{var 4611}# - #{val 4612}# - #{e1 4613}# - #{e2 4614}#) - (let ((#{names 4615}# - (map (lambda (#{x 4881}#) - (#{id-var-name 4362}# #{x 4881}# #{w 4517}#)) - #{var 4611}#))) + (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}#))) (begin (for-each - (lambda (#{id 4616}# #{n 4617}#) - (let ((#{atom-key 4618}# - (car (let ((#{t 4818}# - (assq #{n 4617}# #{r 4516}#))) - (if #{t 4818}# - (cdr #{t 4818}#) - (if (symbol? #{n 4617}#) - (let ((#{t 4823}# + (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}# (begin - (if (if (not #{mod 4519}#) + (if (if (not #{mod 4521}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 4617}#)) - (let ((#{v 4860}# + #{n 4621}#)) + (let ((#{v 4864}# (module-variable - (if #{mod 4519}# + (if #{mod 4521}# (resolve-module - (cdr #{mod 4519}#)) + (cdr #{mod 4521}#)) (current-module)) - #{n 4617}#))) - (if #{v 4860}# + #{n 4621}#))) + (if #{v 4864}# (if (variable-bound? - #{v 4860}#) - (let ((#{val 4869}# + #{v 4864}#) + (let ((#{val 4873}# (variable-ref - #{v 4860}#))) + #{v 4864}#))) (if (macro? - #{val 4869}#) + #{val 4873}#) (if (macro-type - #{val 4869}#) + #{val 4873}#) (cons (macro-type - #{val 4869}#) + #{val 4873}#) (macro-binding - #{val 4869}#)) + #{val 4873}#)) #f) #f)) #f) #f))))) - (if #{t 4823}# - #{t 4823}# + (if #{t 4827}# + #{t 4827}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 4651}# #{atom-key 4618}#)) - (eqv? #{t 4651}# 'displaced-lexical)) + (if (let ((#{t 4655}# #{atom-key 4622}#)) + (eqv? #{t 4655}# 'displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 4515}# - (let ((#{x 4723}# + #{e 4517}# + (let ((#{x 4727}# (begin - (if (if (pair? #{id 4616}#) - #{s 4518}# + (if (if (pair? #{id 4620}#) + #{s 4520}# #f) (set-source-properties! - #{id 4616}# - #{s 4518}#)) - #{id 4616}#))) - (if (if (null? (car #{w 4517}#)) - (null? (cdr #{w 4517}#)) + #{id 4620}# + #{s 4520}#)) + #{id 4620}#))) + (if (if (null? (car #{w 4519}#)) + (null? (cdr #{w 4519}#)) #f) - #{x 4723}# - (if (if (vector? #{x 4723}#) - (if (= (vector-length #{x 4723}#) 4) - (eq? (vector-ref #{x 4723}# 0) + #{x 4727}# + (if (if (vector? #{x 4727}#) + (if (= (vector-length #{x 4727}#) 4) + (eq? (vector-ref #{x 4727}# 0) 'syntax-object) #f) #f) - (let ((#{expression 4755}# - (vector-ref #{x 4723}# 1)) - (#{wrap 4756}# - (let ((#{w2 4764}# - (vector-ref #{x 4723}# 2))) - (let ((#{m1 4765}# - (car #{w 4517}#)) - (#{s1 4766}# - (cdr #{w 4517}#))) - (if (null? #{m1 4765}#) - (if (null? #{s1 4766}#) - #{w2 4764}# - (cons (car #{w2 4764}#) - (let ((#{m2 4781}# - (cdr #{w2 4764}#))) - (if (null? #{m2 4781}#) - #{s1 4766}# + (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}# (append - #{s1 4766}# - #{m2 4781}#))))) - (cons (let ((#{m2 4789}# - (car #{w2 4764}#))) - (if (null? #{m2 4789}#) - #{m1 4765}# + #{s1 4770}# + #{m2 4785}#))))) + (cons (let ((#{m2 4793}# + (car #{w2 4768}#))) + (if (null? #{m2 4793}#) + #{m1 4769}# (append - #{m1 4765}# - #{m2 4789}#))) - (let ((#{m2 4797}# - (cdr #{w2 4764}#))) - (if (null? #{m2 4797}#) - #{s1 4766}# + #{m1 4769}# + #{m2 4793}#))) + (let ((#{m2 4801}# + (cdr #{w2 4768}#))) + (if (null? #{m2 4801}#) + #{s1 4770}# (append - #{s1 4766}# - #{m2 4797}#)))))))) - (#{module 4757}# - (vector-ref #{x 4723}# 3))) + #{s1 4770}# + #{m2 4801}#)))))))) + (#{module 4761}# + (vector-ref #{x 4727}# 3))) (vector 'syntax-object - #{expression 4755}# - #{wrap 4756}# - #{module 4757}#)) - (if (null? #{x 4723}#) - #{x 4723}# + #{expression 4759}# + #{wrap 4760}# + #{module 4761}#)) + (if (null? #{x 4727}#) + #{x 4727}# (vector 'syntax-object - #{x 4723}# - #{w 4517}# - #{mod 4519}#))))))))) - #{var 4611}# - #{names 4615}#) + #{x 4727}# + #{w 4519}# + #{mod 4521}#))))))))) + #{var 4615}# + #{names 4619}#) (#{chi-body 4379}# - (cons #{e1 4613}# #{e2 4614}#) - (let ((#{x 4894}# + (cons #{e1 4617}# #{e2 4618}#) + (let ((#{x 4898}# (begin - (if (if (pair? #{e 4515}#) #{s 4518}# #f) + (if (if (pair? #{e 4517}#) #{s 4520}# #f) (set-source-properties! - #{e 4515}# - #{s 4518}#)) - #{e 4515}#))) - (if (if (null? (car #{w 4517}#)) - (null? (cdr #{w 4517}#)) + #{e 4517}# + #{s 4520}#)) + #{e 4517}#))) + (if (if (null? (car #{w 4519}#)) + (null? (cdr #{w 4519}#)) #f) - #{x 4894}# - (if (if (vector? #{x 4894}#) - (if (= (vector-length #{x 4894}#) 4) - (eq? (vector-ref #{x 4894}# 0) + #{x 4898}# + (if (if (vector? #{x 4898}#) + (if (= (vector-length #{x 4898}#) 4) + (eq? (vector-ref #{x 4898}# 0) 'syntax-object) #f) #f) - (let ((#{expression 4926}# - (vector-ref #{x 4894}# 1)) - (#{wrap 4927}# - (let ((#{w2 4935}# - (vector-ref #{x 4894}# 2))) - (let ((#{m1 4936}# (car #{w 4517}#)) - (#{s1 4937}# (cdr #{w 4517}#))) - (if (null? #{m1 4936}#) - (if (null? #{s1 4937}#) - #{w2 4935}# - (cons (car #{w2 4935}#) - (let ((#{m2 4952}# - (cdr #{w2 4935}#))) - (if (null? #{m2 4952}#) - #{s1 4937}# + (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}# (append - #{s1 4937}# - #{m2 4952}#))))) - (cons (let ((#{m2 4960}# - (car #{w2 4935}#))) - (if (null? #{m2 4960}#) - #{m1 4936}# + #{s1 4941}# + #{m2 4956}#))))) + (cons (let ((#{m2 4964}# + (car #{w2 4939}#))) + (if (null? #{m2 4964}#) + #{m1 4940}# (append - #{m1 4936}# - #{m2 4960}#))) - (let ((#{m2 4968}# - (cdr #{w2 4935}#))) - (if (null? #{m2 4968}#) - #{s1 4937}# + #{m1 4940}# + #{m2 4964}#))) + (let ((#{m2 4972}# + (cdr #{w2 4939}#))) + (if (null? #{m2 4972}#) + #{s1 4941}# (append - #{s1 4937}# - #{m2 4968}#)))))))) - (#{module 4928}# (vector-ref #{x 4894}# 3))) + #{s1 4941}# + #{m2 4972}#)))))))) + (#{module 4932}# (vector-ref #{x 4898}# 3))) (vector 'syntax-object - #{expression 4926}# - #{wrap 4927}# - #{module 4928}#)) - (if (null? #{x 4894}#) - #{x 4894}# + #{expression 4930}# + #{wrap 4931}# + #{module 4932}#)) + (if (null? #{x 4898}#) + #{x 4898}# (vector 'syntax-object - #{x 4894}# - #{w 4517}# - #{mod 4519}#))))) + #{x 4898}# + #{w 4519}# + #{mod 4521}#))))) (#{extend-env 4337}# - #{names 4615}# - (let ((#{trans-r 5046}# - (#{macros-only-env 4339}# #{r 4516}#))) - (map (lambda (#{x 5047}#) + #{names 4619}# + (let ((#{trans-r 5050}# + (#{macros-only-env 4339}# #{r 4518}#))) + (map (lambda (#{x 5051}#) (cons 'macro (#{eval-local-transformer 4381}# (#{chi 4375}# - #{x 5047}# - #{trans-r 5046}# - #{w 4517}# - #{mod 4519}#) - #{mod 4519}#))) - #{val 4612}#)) - #{r 4516}#) - #{w 4517}# - #{mod 4519}#)))) - #{tmp 4521}#) + #{x 5051}# + #{trans-r 5050}# + #{w 4519}# + #{mod 4521}#) + #{mod 4521}#))) + #{val 4616}#)) + #{r 4518}#) + #{w 4519}# + #{mod 4521}#)))) + #{tmp 4523}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (let ((#{x 5261}# + (let ((#{x 5267}# (begin - (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}#)) + (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}#)) #f) - #{x 5261}# - (if (if (vector? #{x 5261}#) - (if (= (vector-length #{x 5261}#) 4) - (eq? (vector-ref #{x 5261}# 0) 'syntax-object) + #{x 5267}# + (if (if (vector? #{x 5267}#) + (if (= (vector-length #{x 5267}#) 4) + (eq? (vector-ref #{x 5267}# 0) 'syntax-object) #f) #f) - (let ((#{expression 5293}# (vector-ref #{x 5261}# 1)) - (#{wrap 5294}# - (let ((#{w2 5302}# (vector-ref #{x 5261}# 2))) - (let ((#{m1 5303}# (car #{w 4517}#)) - (#{s1 5304}# (cdr #{w 4517}#))) - (if (null? #{m1 5303}#) - (if (null? #{s1 5304}#) - #{w2 5302}# - (cons (car #{w2 5302}#) - (let ((#{m2 5319}# - (cdr #{w2 5302}#))) - (if (null? #{m2 5319}#) - #{s1 5304}# + (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}# (append - #{s1 5304}# - #{m2 5319}#))))) - (cons (let ((#{m2 5327}# (car #{w2 5302}#))) - (if (null? #{m2 5327}#) - #{m1 5303}# - (append #{m1 5303}# #{m2 5327}#))) - (let ((#{m2 5335}# (cdr #{w2 5302}#))) - (if (null? #{m2 5335}#) - #{s1 5304}# + #{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}# (append - #{s1 5304}# - #{m2 5335}#)))))))) - (#{module 5295}# (vector-ref #{x 5261}# 3))) + #{s1 5310}# + #{m2 5341}#)))))))) + (#{module 5301}# (vector-ref #{x 5267}# 3))) (vector 'syntax-object - #{expression 5293}# - #{wrap 5294}# - #{module 5295}#)) - (if (null? #{x 5261}#) - #{x 5261}# + #{expression 5299}# + #{wrap 5300}# + #{module 5301}#)) + (if (null? #{x 5267}#) + #{x 5267}# (vector 'syntax-object - #{x 5261}# - #{w 4517}# - #{mod 4519}#)))))))))) + #{x 5267}# + #{w 4519}# + #{mod 4521}#)))))))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5363}# - #{r 5364}# - #{w 5365}# - #{s 5366}# - #{mod 5367}#) - (let ((#{tmp 5369}# ($sc-dispatch #{e 5363}# '(_ any)))) - (if #{tmp 5369}# + (lambda (#{e 5369}# + #{r 5370}# + #{w 5371}# + #{s 5372}# + #{mod 5373}#) + (let ((#{tmp 5375}# ($sc-dispatch #{e 5369}# '(_ any)))) + (if #{tmp 5375}# (@apply - (lambda (#{e 5372}#) - (let ((#{exp 5376}# - (#{strip 4388}# #{e 5372}# #{w 5365}#))) + (lambda (#{e 5378}#) + (let ((#{exp 5382}# + (#{strip 4388}# #{e 5378}# #{w 5371}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5366}# - #{exp 5376}#))) - #{tmp 5369}#) + #{s 5372}# + #{exp 5382}#))) + #{tmp 5375}#) (syntax-violation 'quote "bad syntax" - (let ((#{x 5390}# + (let ((#{x 5396}# (begin - (if (if (pair? #{e 5363}#) #{s 5366}# #f) - (set-source-properties! #{e 5363}# #{s 5366}#)) - #{e 5363}#))) - (if (if (null? (car #{w 5365}#)) - (null? (cdr #{w 5365}#)) + (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}#)) #f) - #{x 5390}# - (if (if (vector? #{x 5390}#) - (if (= (vector-length #{x 5390}#) 4) - (eq? (vector-ref #{x 5390}# 0) 'syntax-object) + #{x 5396}# + (if (if (vector? #{x 5396}#) + (if (= (vector-length #{x 5396}#) 4) + (eq? (vector-ref #{x 5396}# 0) 'syntax-object) #f) #f) - (let ((#{expression 5422}# (vector-ref #{x 5390}# 1)) - (#{wrap 5423}# - (let ((#{w2 5431}# (vector-ref #{x 5390}# 2))) - (let ((#{m1 5432}# (car #{w 5365}#)) - (#{s1 5433}# (cdr #{w 5365}#))) - (if (null? #{m1 5432}#) - (if (null? #{s1 5433}#) - #{w2 5431}# - (cons (car #{w2 5431}#) - (let ((#{m2 5448}# - (cdr #{w2 5431}#))) - (if (null? #{m2 5448}#) - #{s1 5433}# + (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}# (append - #{s1 5433}# - #{m2 5448}#))))) - (cons (let ((#{m2 5456}# - (car #{w2 5431}#))) - (if (null? #{m2 5456}#) - #{m1 5432}# + #{s1 5439}# + #{m2 5454}#))))) + (cons (let ((#{m2 5462}# + (car #{w2 5437}#))) + (if (null? #{m2 5462}#) + #{m1 5438}# (append - #{m1 5432}# - #{m2 5456}#))) - (let ((#{m2 5464}# - (cdr #{w2 5431}#))) - (if (null? #{m2 5464}#) - #{s1 5433}# + #{m1 5438}# + #{m2 5462}#))) + (let ((#{m2 5470}# + (cdr #{w2 5437}#))) + (if (null? #{m2 5470}#) + #{s1 5439}# (append - #{s1 5433}# - #{m2 5464}#)))))))) - (#{module 5424}# (vector-ref #{x 5390}# 3))) + #{s1 5439}# + #{m2 5470}#)))))))) + (#{module 5430}# (vector-ref #{x 5396}# 3))) (vector 'syntax-object - #{expression 5422}# - #{wrap 5423}# - #{module 5424}#)) - (if (null? #{x 5390}#) - #{x 5390}# + #{expression 5428}# + #{wrap 5429}# + #{module 5430}#)) + (if (null? #{x 5396}#) + #{x 5396}# (vector 'syntax-object - #{x 5390}# - #{w 5365}# - #{mod 5367}#))))))))))) + #{x 5396}# + #{w 5371}# + #{mod 5373}#))))))))))) (#{global-extend 4341}# 'core 'syntax (letrec* - ((#{gen-syntax 5704}# - (lambda (#{src 6157}# - #{e 6158}# - #{r 6159}# - #{maps 6160}# - #{ellipsis? 6161}# - #{mod 6162}#) - (if (if (symbol? #{e 6158}#) + ((#{gen-syntax 5710}# + (lambda (#{src 6173}# + #{e 6174}# + #{r 6175}# + #{maps 6176}# + #{ellipsis? 6177}# + #{mod 6178}#) + (if (if (symbol? #{e 6174}#) #t - (if (if (vector? #{e 6158}#) - (if (= (vector-length #{e 6158}#) 4) - (eq? (vector-ref #{e 6158}# 0) 'syntax-object) + (if (if (vector? #{e 6174}#) + (if (= (vector-length #{e 6174}#) 4) + (eq? (vector-ref #{e 6174}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 6158}# 1)) + (symbol? (vector-ref #{e 6174}# 1)) #f)) - (let ((#{label 6189}# - (#{id-var-name 4362}# #{e 6158}# '(())))) - (let ((#{b 6190}# - (let ((#{t 6327}# (assq #{label 6189}# #{r 6159}#))) - (if #{t 6327}# - (cdr #{t 6327}#) - (if (symbol? #{label 6189}#) - (let ((#{t 6332}# + (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}# (begin - (if (if (not #{mod 6162}#) + (if (if (not #{mod 6178}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 6189}#)) - (let ((#{v 6369}# + #{label 6205}#)) + (let ((#{v 6385}# (module-variable - (if #{mod 6162}# + (if #{mod 6178}# (resolve-module - (cdr #{mod 6162}#)) + (cdr #{mod 6178}#)) (current-module)) - #{label 6189}#))) - (if #{v 6369}# - (if (variable-bound? #{v 6369}#) - (let ((#{val 6378}# + #{label 6205}#))) + (if #{v 6385}# + (if (variable-bound? #{v 6385}#) + (let ((#{val 6394}# (variable-ref - #{v 6369}#))) - (if (macro? #{val 6378}#) + #{v 6385}#))) + (if (macro? #{val 6394}#) (if (macro-type - #{val 6378}#) + #{val 6394}#) (cons (macro-type - #{val 6378}#) + #{val 6394}#) (macro-binding - #{val 6378}#)) + #{val 6394}#)) #f) #f)) #f) #f))))) - (if #{t 6332}# #{t 6332}# '(global))) + (if #{t 6348}# #{t 6348}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 6190}#) 'syntax) + (if (eq? (car #{b 6206}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 6223}# (cdr #{b 6190}#))) - (#{gen-ref 5705}# - #{src 6157}# - (car #{var.lev 6223}#) - (cdr #{var.lev 6223}#) - #{maps 6160}#))) - (lambda (#{var 6319}# #{maps 6320}#) - (values (list 'ref #{var 6319}#) #{maps 6320}#))) - (if (#{ellipsis? 6161}# #{e 6158}#) + (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}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 6157}#) - (values (list 'quote #{e 6158}#) #{maps 6160}#))))) - (let ((#{tmp 6390}# - ($sc-dispatch #{e 6158}# '(any any)))) - (if (if #{tmp 6390}# + #{src 6173}#) + (values (list 'quote #{e 6174}#) #{maps 6176}#))))) + (let ((#{tmp 6406}# + ($sc-dispatch #{e 6174}# '(any any)))) + (if (if #{tmp 6406}# (@apply - (lambda (#{dots 6394}# #{e 6395}#) - (#{ellipsis? 6161}# #{dots 6394}#)) - #{tmp 6390}#) + (lambda (#{dots 6410}# #{e 6411}#) + (#{ellipsis? 6177}# #{dots 6410}#)) + #{tmp 6406}#) #f) (@apply - (lambda (#{dots 6396}# #{e 6397}#) - (#{gen-syntax 5704}# - #{src 6157}# - #{e 6397}# - #{r 6159}# - #{maps 6160}# - (lambda (#{x 6398}#) #f) - #{mod 6162}#)) - #{tmp 6390}#) - (let ((#{tmp 6399}# - ($sc-dispatch #{e 6158}# '(any any . any)))) - (if (if #{tmp 6399}# + (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}# (@apply - (lambda (#{x 6403}# #{dots 6404}# #{y 6405}#) - (#{ellipsis? 6161}# #{dots 6404}#)) - #{tmp 6399}#) + (lambda (#{x 6419}# #{dots 6420}# #{y 6421}#) + (#{ellipsis? 6177}# #{dots 6420}#)) + #{tmp 6415}#) #f) (@apply - (lambda (#{x 6406}# #{dots 6407}# #{y 6408}#) + (lambda (#{x 6422}# #{dots 6423}# #{y 6424}#) (letrec* - ((#{f 6409}# - (lambda (#{y 6417}# #{k 6418}#) - (let ((#{tmp 6420}# + ((#{f 6425}# + (lambda (#{y 6433}# #{k 6434}#) + (let ((#{tmp 6436}# ($sc-dispatch - #{y 6417}# + #{y 6433}# '(any . any)))) - (if (if #{tmp 6420}# + (if (if #{tmp 6436}# (@apply - (lambda (#{dots 6424}# #{y 6425}#) - (#{ellipsis? 6161}# - #{dots 6424}#)) - #{tmp 6420}#) + (lambda (#{dots 6440}# #{y 6441}#) + (#{ellipsis? 6177}# + #{dots 6440}#)) + #{tmp 6436}#) #f) (@apply - (lambda (#{dots 6426}# #{y 6427}#) - (#{f 6409}# - #{y 6427}# - (lambda (#{maps 6428}#) + (lambda (#{dots 6442}# #{y 6443}#) + (#{f 6425}# + #{y 6443}# + (lambda (#{maps 6444}#) (call-with-values (lambda () - (#{k 6418}# - (cons '() #{maps 6428}#))) - (lambda (#{x 6429}# - #{maps 6430}#) - (if (null? (car #{maps 6430}#)) + (#{k 6434}# + (cons '() #{maps 6444}#))) + (lambda (#{x 6445}# + #{maps 6446}#) + (if (null? (car #{maps 6446}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 6157}#) + #{src 6173}#) (values - (let ((#{map-env 6434}# - (car #{maps 6430}#))) + (let ((#{map-env 6450}# + (car #{maps 6446}#))) (list 'apply '(primitive append) - (#{gen-map 5707}# - #{x 6429}# - #{map-env 6434}#))) - (cdr #{maps 6430}#)))))))) - #{tmp 6420}#) + (#{gen-map 5713}# + #{x 6445}# + #{map-env 6450}#))) + (cdr #{maps 6446}#)))))))) + #{tmp 6436}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{src 6157}# - #{y 6417}# - #{r 6159}# - #{maps 6160}# - #{ellipsis? 6161}# - #{mod 6162}#)) - (lambda (#{y 6437}# #{maps 6438}#) + (#{gen-syntax 5710}# + #{src 6173}# + #{y 6433}# + #{r 6175}# + #{maps 6176}# + #{ellipsis? 6177}# + #{mod 6178}#)) + (lambda (#{y 6453}# #{maps 6454}#) (call-with-values (lambda () - (#{k 6418}# #{maps 6438}#)) - (lambda (#{x 6439}# #{maps 6440}#) + (#{k 6434}# #{maps 6454}#)) + (lambda (#{x 6455}# #{maps 6456}#) (values - (if (equal? #{y 6437}# ''()) - #{x 6439}# + (if (equal? #{y 6453}# ''()) + #{x 6455}# (list 'append - #{x 6439}# - #{y 6437}#)) - #{maps 6440}#)))))))))) - (#{f 6409}# - #{y 6408}# - (lambda (#{maps 6412}#) + #{x 6455}# + #{y 6453}#)) + #{maps 6456}#)))))))))) + (#{f 6425}# + #{y 6424}# + (lambda (#{maps 6428}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{src 6157}# - #{x 6406}# - #{r 6159}# - (cons '() #{maps 6412}#) - #{ellipsis? 6161}# - #{mod 6162}#)) - (lambda (#{x 6413}# #{maps 6414}#) - (if (null? (car #{maps 6414}#)) + (#{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}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 6157}#) + #{src 6173}#) (values - (#{gen-map 5707}# - #{x 6413}# - (car #{maps 6414}#)) - (cdr #{maps 6414}#))))))))) - #{tmp 6399}#) - (let ((#{tmp 6456}# - ($sc-dispatch #{e 6158}# '(any . any)))) - (if #{tmp 6456}# + (#{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}# (@apply - (lambda (#{x 6460}# #{y 6461}#) + (lambda (#{x 6476}# #{y 6477}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{src 6157}# - #{x 6460}# - #{r 6159}# - #{maps 6160}# - #{ellipsis? 6161}# - #{mod 6162}#)) - (lambda (#{x 6462}# #{maps 6463}#) + (#{gen-syntax 5710}# + #{src 6173}# + #{x 6476}# + #{r 6175}# + #{maps 6176}# + #{ellipsis? 6177}# + #{mod 6178}#)) + (lambda (#{x 6478}# #{maps 6479}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{src 6157}# - #{y 6461}# - #{r 6159}# - #{maps 6463}# - #{ellipsis? 6161}# - #{mod 6162}#)) - (lambda (#{y 6464}# #{maps 6465}#) + (#{gen-syntax 5710}# + #{src 6173}# + #{y 6477}# + #{r 6175}# + #{maps 6479}# + #{ellipsis? 6177}# + #{mod 6178}#)) + (lambda (#{y 6480}# #{maps 6481}#) (values - (let ((#{atom-key 6470}# - (car #{y 6464}#))) - (if (eqv? #{atom-key 6470}# 'quote) - (if (eq? (car #{x 6462}#) 'quote) + (let ((#{atom-key 6486}# + (car #{y 6480}#))) + (if (eqv? #{atom-key 6486}# 'quote) + (if (eq? (car #{x 6478}#) 'quote) (list 'quote - (cons (car (cdr #{x 6462}#)) - (car (cdr #{y 6464}#)))) - (if (eq? (car (cdr #{y 6464}#)) + (cons (car (cdr #{x 6478}#)) + (car (cdr #{y 6480}#)))) + (if (eq? (car (cdr #{y 6480}#)) '()) - (list 'list #{x 6462}#) + (list 'list #{x 6478}#) (list 'cons - #{x 6462}# - #{y 6464}#))) - (if (eqv? #{atom-key 6470}# 'list) + #{x 6478}# + #{y 6480}#))) + (if (eqv? #{atom-key 6486}# 'list) (cons 'list - (cons #{x 6462}# - (cdr #{y 6464}#))) + (cons #{x 6478}# + (cdr #{y 6480}#))) (list 'cons - #{x 6462}# - #{y 6464}#)))) - #{maps 6465}#)))))) - #{tmp 6456}#) - (let ((#{tmp 6499}# + #{x 6478}# + #{y 6480}#)))) + #{maps 6481}#)))))) + #{tmp 6472}#) + (let ((#{tmp 6515}# ($sc-dispatch - #{e 6158}# + #{e 6174}# '#(vector (any . each-any))))) - (if #{tmp 6499}# + (if #{tmp 6515}# (@apply - (lambda (#{e1 6503}# #{e2 6504}#) + (lambda (#{e1 6519}# #{e2 6520}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{src 6157}# - (cons #{e1 6503}# #{e2 6504}#) - #{r 6159}# - #{maps 6160}# - #{ellipsis? 6161}# - #{mod 6162}#)) - (lambda (#{e 6505}# #{maps 6506}#) + (#{gen-syntax 5710}# + #{src 6173}# + (cons #{e1 6519}# #{e2 6520}#) + #{r 6175}# + #{maps 6176}# + #{ellipsis? 6177}# + #{mod 6178}#)) + (lambda (#{e 6521}# #{maps 6522}#) (values - (if (eq? (car #{e 6505}#) 'list) - (cons 'vector (cdr #{e 6505}#)) - (if (eq? (car #{e 6505}#) 'quote) + (if (eq? (car #{e 6521}#) 'list) + (cons 'vector (cdr #{e 6521}#)) + (if (eq? (car #{e 6521}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 6505}#)))) - (list 'list->vector #{e 6505}#))) - #{maps 6506}#)))) - #{tmp 6499}#) + (car (cdr #{e 6521}#)))) + (list 'list->vector #{e 6521}#))) + #{maps 6522}#)))) + #{tmp 6515}#) (values - (list 'quote #{e 6158}#) - #{maps 6160}#)))))))))))) - (#{gen-ref 5705}# - (lambda (#{src 6533}# - #{var 6534}# - #{level 6535}# - #{maps 6536}#) - (if (= #{level 6535}# 0) - (values #{var 6534}# #{maps 6536}#) - (if (null? #{maps 6536}#) + (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}#) (syntax-violation 'syntax "missing ellipsis" - #{src 6533}#) + #{src 6549}#) (call-with-values (lambda () - (#{gen-ref 5705}# - #{src 6533}# - #{var 6534}# - (#{1-}# #{level 6535}#) - (cdr #{maps 6536}#))) - (lambda (#{outer-var 6537}# #{outer-maps 6538}#) - (let ((#{b 6539}# - (assq #{outer-var 6537}# (car #{maps 6536}#)))) - (if #{b 6539}# - (values (cdr #{b 6539}#) #{maps 6536}#) - (let ((#{inner-var 6541}# + (#{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}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 6541}# - (cons (cons (cons #{outer-var 6537}# - #{inner-var 6541}#) - (car #{maps 6536}#)) - #{outer-maps 6538}#))))))))))) - (#{gen-map 5707}# - (lambda (#{e 6555}# #{map-env 6556}#) - (let ((#{formals 6557}# (map cdr #{map-env 6556}#)) - (#{actuals 6558}# - (map (lambda (#{x 6560}#) - (list 'ref (car #{x 6560}#))) - #{map-env 6556}#))) - (if (eq? (car #{e 6555}#) 'ref) - (car #{actuals 6558}#) + #{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}#) (if (and-map - (lambda (#{x 6561}#) - (if (eq? (car #{x 6561}#) 'ref) - (memq (car (cdr #{x 6561}#)) #{formals 6557}#) + (lambda (#{x 6577}#) + (if (eq? (car #{x 6577}#) 'ref) + (memq (car (cdr #{x 6577}#)) #{formals 6573}#) #f)) - (cdr #{e 6555}#)) + (cdr #{e 6571}#)) (cons 'map - (cons (list 'primitive (car #{e 6555}#)) - (map (let ((#{r 6563}# + (cons (list 'primitive (car #{e 6571}#)) + (map (let ((#{r 6579}# (map cons - #{formals 6557}# - #{actuals 6558}#))) - (lambda (#{x 6564}#) - (cdr (assq (car (cdr #{x 6564}#)) - #{r 6563}#)))) - (cdr #{e 6555}#)))) + #{formals 6573}# + #{actuals 6574}#))) + (lambda (#{x 6580}#) + (cdr (assq (car (cdr #{x 6580}#)) + #{r 6579}#)))) + (cdr #{e 6571}#)))) (cons 'map - (cons (list 'lambda #{formals 6557}# #{e 6555}#) - #{actuals 6558}#))))))) - (#{regen 5711}# - (lambda (#{x 6566}#) - (let ((#{atom-key 6567}# (car #{x 6566}#))) - (if (eqv? #{atom-key 6567}# 'ref) - (let ((#{name 6577}# (car (cdr #{x 6566}#))) - (#{var 6578}# (car (cdr #{x 6566}#)))) + (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}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 6577}# - #{var 6578}#)) - (if (eqv? #{atom-key 6567}# 'primitive) - (let ((#{name 6589}# (car (cdr #{x 6566}#)))) + #{name 6593}# + #{var 6594}#)) + (if (eqv? #{atom-key 6583}# 'primitive) + (let ((#{name 6605}# (car (cdr #{x 6582}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 2) #f - #{name 6589}#)) - (if (eqv? #{atom-key 6567}# 'quote) - (let ((#{exp 6600}# (car (cdr #{x 6566}#)))) + #{name 6605}#)) + (if (eqv? #{atom-key 6583}# 'quote) + (let ((#{exp 6616}# (car (cdr #{x 6582}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 6600}#)) - (if (eqv? #{atom-key 6567}# 'lambda) - (if (list? (car (cdr #{x 6566}#))) - (let ((#{req 6611}# (car (cdr #{x 6566}#))) - (#{vars 6613}# (car (cdr #{x 6566}#))) - (#{exp 6615}# - (#{regen 5711}# - (car (cdr (cdr #{x 6566}#)))))) - (let ((#{body 6620}# + #{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}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 6611}# + #{req 6627}# #f #f #f '() - #{vars 6613}# - #{exp 6615}# + #{vars 6629}# + #{exp 6631}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 6620}#))) - (error "how did we get here" #{x 6566}#)) - (let ((#{name 6636}# (car #{x 6566}#)) - (#{args 6637}# - (map #{regen 5711}# (cdr #{x 6566}#)))) + #{body 6636}#))) + (error "how did we get here" #{x 6582}#)) + (let ((#{name 6652}# (car #{x 6582}#)) + (#{args 6653}# + (map #{regen 5717}# (cdr #{x 6582}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{name 6636}# - #{args 6637}#)))))))))) - (lambda (#{e 5712}# - #{r 5713}# - #{w 5714}# - #{s 5715}# - #{mod 5716}#) - (let ((#{e 5717}# - (let ((#{x 6068}# + #{name 6652}# + #{args 6653}#)))))))))) + (lambda (#{e 5718}# + #{r 5719}# + #{w 5720}# + #{s 5721}# + #{mod 5722}#) + (let ((#{e 5723}# + (let ((#{x 6084}# (begin - (if (if (pair? #{e 5712}#) #{s 5715}# #f) - (set-source-properties! #{e 5712}# #{s 5715}#)) - #{e 5712}#))) - (if (if (null? (car #{w 5714}#)) - (null? (cdr #{w 5714}#)) + (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}#)) #f) - #{x 6068}# - (if (if (vector? #{x 6068}#) - (if (= (vector-length #{x 6068}#) 4) - (eq? (vector-ref #{x 6068}# 0) 'syntax-object) + #{x 6084}# + (if (if (vector? #{x 6084}#) + (if (= (vector-length #{x 6084}#) 4) + (eq? (vector-ref #{x 6084}# 0) 'syntax-object) #f) #f) - (let ((#{expression 6100}# (vector-ref #{x 6068}# 1)) - (#{wrap 6101}# - (let ((#{w2 6109}# (vector-ref #{x 6068}# 2))) - (let ((#{m1 6110}# (car #{w 5714}#)) - (#{s1 6111}# (cdr #{w 5714}#))) - (if (null? #{m1 6110}#) - (if (null? #{s1 6111}#) - #{w2 6109}# - (cons (car #{w2 6109}#) - (let ((#{m2 6126}# - (cdr #{w2 6109}#))) - (if (null? #{m2 6126}#) - #{s1 6111}# + (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}# (append - #{s1 6111}# - #{m2 6126}#))))) - (cons (let ((#{m2 6134}# - (car #{w2 6109}#))) - (if (null? #{m2 6134}#) - #{m1 6110}# + #{s1 6127}# + #{m2 6142}#))))) + (cons (let ((#{m2 6150}# + (car #{w2 6125}#))) + (if (null? #{m2 6150}#) + #{m1 6126}# (append - #{m1 6110}# - #{m2 6134}#))) - (let ((#{m2 6142}# - (cdr #{w2 6109}#))) - (if (null? #{m2 6142}#) - #{s1 6111}# + #{m1 6126}# + #{m2 6150}#))) + (let ((#{m2 6158}# + (cdr #{w2 6125}#))) + (if (null? #{m2 6158}#) + #{s1 6127}# (append - #{s1 6111}# - #{m2 6142}#)))))))) - (#{module 6102}# (vector-ref #{x 6068}# 3))) + #{s1 6127}# + #{m2 6158}#)))))))) + (#{module 6118}# (vector-ref #{x 6084}# 3))) (vector 'syntax-object - #{expression 6100}# - #{wrap 6101}# - #{module 6102}#)) - (if (null? #{x 6068}#) - #{x 6068}# + #{expression 6116}# + #{wrap 6117}# + #{module 6118}#)) + (if (null? #{x 6084}#) + #{x 6084}# (vector 'syntax-object - #{x 6068}# - #{w 5714}# - #{mod 5716}#))))))) - (let ((#{tmp 5718}# #{e 5717}#)) - (let ((#{tmp 5719}# - ($sc-dispatch #{tmp 5718}# '(_ any)))) - (if #{tmp 5719}# + #{x 6084}# + #{w 5720}# + #{mod 5722}#))))))) + (let ((#{tmp 5724}# #{e 5723}#)) + (let ((#{tmp 5725}# + ($sc-dispatch #{tmp 5724}# '(_ any)))) + (if #{tmp 5725}# (@apply - (lambda (#{x 5767}#) + (lambda (#{x 5777}#) (call-with-values (lambda () - (#{gen-syntax 5704}# - #{e 5717}# - #{x 5767}# - #{r 5713}# + (#{gen-syntax 5710}# + #{e 5723}# + #{x 5777}# + #{r 5719}# '() #{ellipsis? 4383}# - #{mod 5716}#)) - (lambda (#{e 5850}# #{maps 5851}#) - (#{regen 5711}# #{e 5850}#)))) - #{tmp 5719}#) + #{mod 5722}#)) + (lambda (#{e 5860}# #{maps 5861}#) + (#{regen 5717}# #{e 5860}#)))) + #{tmp 5725}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5717}#)))))))) + #{e 5723}#)))))))) (#{global-extend 4341}# 'core 'lambda - (lambda (#{e 6873}# - #{r 6874}# - #{w 6875}# - #{s 6876}# - #{mod 6877}#) - (let ((#{tmp 6879}# - ($sc-dispatch #{e 6873}# '(_ any any . each-any)))) - (if #{tmp 6879}# + (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}# (@apply - (lambda (#{args 6883}# #{e1 6884}# #{e2 6885}#) + (lambda (#{args 6899}# #{e1 6900}# #{e2 6901}#) (call-with-values (lambda () - (#{lambda-formals 4384}# #{args 6883}#)) - (lambda (#{req 6888}# - #{opt 6889}# - #{rest 6890}# - #{kw 6891}#) + (#{lambda-formals 4384}# #{args 6899}#)) + (lambda (#{req 6904}# + #{opt 6905}# + #{rest 6906}# + #{kw 6907}#) (letrec* - ((#{lp 6892}# - (lambda (#{body 6895}# #{meta 6896}#) - (let ((#{tmp 6898}# + ((#{lp 6908}# + (lambda (#{body 6911}# #{meta 6912}#) + (let ((#{tmp 6914}# ($sc-dispatch - #{body 6895}# + #{body 6911}# '(any any . each-any)))) - (if (if #{tmp 6898}# + (if (if #{tmp 6914}# (@apply - (lambda (#{docstring 6902}# - #{e1 6903}# - #{e2 6904}#) + (lambda (#{docstring 6918}# + #{e1 6919}# + #{e2 6920}#) (string? - (syntax->datum #{docstring 6902}#))) - #{tmp 6898}#) + (syntax->datum #{docstring 6918}#))) + #{tmp 6914}#) #f) (@apply - (lambda (#{docstring 6905}# - #{e1 6906}# - #{e2 6907}#) - (#{lp 6892}# - (cons #{e1 6906}# #{e2 6907}#) + (lambda (#{docstring 6921}# + #{e1 6922}# + #{e2 6923}#) + (#{lp 6908}# + (cons #{e1 6922}# #{e2 6923}#) (append - #{meta 6896}# + #{meta 6912}# (list (cons 'documentation (syntax->datum - #{docstring 6905}#)))))) - #{tmp 6898}#) - (let ((#{tmp 6908}# + #{docstring 6921}#)))))) + #{tmp 6914}#) + (let ((#{tmp 6924}# ($sc-dispatch - #{body 6895}# + #{body 6911}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 6908}# + (if #{tmp 6924}# (@apply - (lambda (#{k 6912}# - #{v 6913}# - #{e1 6914}# - #{e2 6915}#) - (#{lp 6892}# - (cons #{e1 6914}# #{e2 6915}#) + (lambda (#{k 6928}# + #{v 6929}# + #{e1 6930}# + #{e2 6931}#) + (#{lp 6908}# + (cons #{e1 6930}# #{e2 6931}#) (append - #{meta 6896}# + #{meta 6912}# (syntax->datum (map cons - #{k 6912}# - #{v 6913}#))))) - #{tmp 6908}#) + #{k 6928}# + #{v 6929}#))))) + #{tmp 6924}#) (#{chi-simple-lambda 4385}# - #{e 6873}# - #{r 6874}# - #{w 6875}# - #{s 6876}# - #{mod 6877}# - #{req 6888}# - #{rest 6890}# - #{meta 6896}# - #{body 6895}#)))))))) - (#{lp 6892}# (cons #{e1 6884}# #{e2 6885}#) '()))))) - #{tmp 6879}#) + #{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}#) (syntax-violation 'lambda "bad lambda" - #{e 6873}#))))) + #{e 6889}#))))) (#{global-extend 4341}# 'core 'lambda* - (lambda (#{e 7299}# - #{r 7300}# - #{w 7301}# - #{s 7302}# - #{mod 7303}#) - (let ((#{tmp 7305}# - ($sc-dispatch #{e 7299}# '(_ any any . each-any)))) - (if #{tmp 7305}# + (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}# (@apply - (lambda (#{args 7309}# #{e1 7310}# #{e2 7311}#) + (lambda (#{args 7325}# #{e1 7326}# #{e2 7327}#) (call-with-values (lambda () (#{chi-lambda-case 4387}# - #{e 7299}# - #{r 7300}# - #{w 7301}# - #{s 7302}# - #{mod 7303}# + #{e 7315}# + #{r 7316}# + #{w 7317}# + #{s 7318}# + #{mod 7319}# #{lambda*-formals 4386}# - (list (cons #{args 7309}# - (cons #{e1 7310}# #{e2 7311}#))))) - (lambda (#{meta 7314}# #{lcase 7315}#) + (list (cons #{args 7325}# + (cons #{e1 7326}# #{e2 7327}#))))) + (lambda (#{meta 7330}# #{lcase 7331}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7302}# - #{meta 7314}# - #{lcase 7315}#)))) - #{tmp 7305}#) + #{s 7318}# + #{meta 7330}# + #{lcase 7331}#)))) + #{tmp 7321}#) (syntax-violation 'lambda "bad lambda*" - #{e 7299}#))))) + #{e 7315}#))))) (#{global-extend 4341}# 'core 'case-lambda - (lambda (#{e 7478}# - #{r 7479}# - #{w 7480}# - #{s 7481}# - #{mod 7482}#) - (let ((#{tmp 7484}# + (lambda (#{e 7494}# + #{r 7495}# + #{w 7496}# + #{s 7497}# + #{mod 7498}#) + (let ((#{tmp 7500}# ($sc-dispatch - #{e 7478}# + #{e 7494}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 7484}# + (if #{tmp 7500}# (@apply - (lambda (#{args 7488}# - #{e1 7489}# - #{e2 7490}# - #{args* 7491}# - #{e1* 7492}# - #{e2* 7493}#) + (lambda (#{args 7504}# + #{e1 7505}# + #{e2 7506}# + #{args* 7507}# + #{e1* 7508}# + #{e2* 7509}#) (call-with-values (lambda () (#{chi-lambda-case 4387}# - #{e 7478}# - #{r 7479}# - #{w 7480}# - #{s 7481}# - #{mod 7482}# + #{e 7494}# + #{r 7495}# + #{w 7496}# + #{s 7497}# + #{mod 7498}# #{lambda-formals 4384}# - (cons (cons #{args 7488}# - (cons #{e1 7489}# #{e2 7490}#)) - (map (lambda (#{tmp 3306 7496}# - #{tmp 3305 7497}# - #{tmp 3304 7498}#) - (cons #{tmp 3304 7498}# - (cons #{tmp 3305 7497}# - #{tmp 3306 7496}#))) - #{e2* 7493}# - #{e1* 7492}# - #{args* 7491}#)))) - (lambda (#{meta 7499}# #{lcase 7500}#) + (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}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7481}# - #{meta 7499}# - #{lcase 7500}#)))) - #{tmp 7484}#) + #{s 7497}# + #{meta 7515}# + #{lcase 7516}#)))) + #{tmp 7500}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 7478}#))))) + #{e 7494}#))))) (#{global-extend 4341}# 'core 'case-lambda* - (lambda (#{e 7669}# - #{r 7670}# - #{w 7671}# - #{s 7672}# - #{mod 7673}#) - (let ((#{tmp 7675}# + (lambda (#{e 7685}# + #{r 7686}# + #{w 7687}# + #{s 7688}# + #{mod 7689}#) + (let ((#{tmp 7691}# ($sc-dispatch - #{e 7669}# + #{e 7685}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 7675}# + (if #{tmp 7691}# (@apply - (lambda (#{args 7679}# - #{e1 7680}# - #{e2 7681}# - #{args* 7682}# - #{e1* 7683}# - #{e2* 7684}#) + (lambda (#{args 7695}# + #{e1 7696}# + #{e2 7697}# + #{args* 7698}# + #{e1* 7699}# + #{e2* 7700}#) (call-with-values (lambda () (#{chi-lambda-case 4387}# - #{e 7669}# - #{r 7670}# - #{w 7671}# - #{s 7672}# - #{mod 7673}# + #{e 7685}# + #{r 7686}# + #{w 7687}# + #{s 7688}# + #{mod 7689}# #{lambda*-formals 4386}# - (cons (cons #{args 7679}# - (cons #{e1 7680}# #{e2 7681}#)) - (map (lambda (#{tmp 3341 7687}# - #{tmp 3340 7688}# - #{tmp 3339 7689}#) - (cons #{tmp 3339 7689}# - (cons #{tmp 3340 7688}# - #{tmp 3341 7687}#))) - #{e2* 7684}# - #{e1* 7683}# - #{args* 7682}#)))) - (lambda (#{meta 7690}# #{lcase 7691}#) + (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}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 7672}# - #{meta 7690}# - #{lcase 7691}#)))) - #{tmp 7675}#) + #{s 7688}# + #{meta 7706}# + #{lcase 7707}#)))) + #{tmp 7691}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 7669}#))))) + #{e 7685}#))))) (#{global-extend 4341}# 'core 'let (letrec* - ((#{chi-let 7900}# - (lambda (#{e 8110}# - #{r 8111}# - #{w 8112}# - #{s 8113}# - #{mod 8114}# - #{constructor 8115}# - #{ids 8116}# - #{vals 8117}# - #{exps 8118}#) - (if (not (#{valid-bound-ids? 4365}# #{ids 8116}#)) + ((#{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}#)) (syntax-violation 'let "duplicate bound variable" - #{e 8110}#) - (let ((#{labels 8201}# - (#{gen-labels 4346}# #{ids 8116}#)) - (#{new-vars 8202}# - (map #{gen-var 4389}# #{ids 8116}#))) - (let ((#{nw 8203}# + #{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 8116}# - #{labels 8201}# - #{w 8112}#)) - (#{nr 8204}# + #{ids 8132}# + #{labels 8219}# + #{w 8128}#)) + (#{nr 8222}# (#{extend-var-env 4338}# - #{labels 8201}# - #{new-vars 8202}# - #{r 8111}#))) - (#{constructor 8115}# - #{s 8113}# - (map syntax->datum #{ids 8116}#) - #{new-vars 8202}# - (map (lambda (#{x 8221}#) + #{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 8221}# - #{r 8111}# - #{w 8112}# - #{mod 8114}#)) - #{vals 8117}#) + #{x 8239}# + #{r 8127}# + #{w 8128}# + #{mod 8130}#)) + #{vals 8133}#) (#{chi-body 4379}# - #{exps 8118}# + #{exps 8134}# (#{source-wrap 4369}# - #{e 8110}# - #{nw 8203}# - #{s 8113}# - #{mod 8114}#) - #{nr 8204}# - #{nw 8203}# - #{mod 8114}#)))))))) - (lambda (#{e 7901}# - #{r 7902}# - #{w 7903}# - #{s 7904}# - #{mod 7905}#) - (let ((#{tmp 7907}# + #{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}# ($sc-dispatch - #{e 7901}# + #{e 7917}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7907}# + (if (if #{tmp 7923}# (@apply - (lambda (#{id 7911}# - #{val 7912}# - #{e1 7913}# - #{e2 7914}#) - (and-map #{id? 4343}# #{id 7911}#)) - #{tmp 7907}#) + (lambda (#{id 7927}# + #{val 7928}# + #{e1 7929}# + #{e2 7930}#) + (and-map #{id? 4343}# #{id 7927}#)) + #{tmp 7923}#) #f) (@apply - (lambda (#{id 7930}# - #{val 7931}# - #{e1 7932}# - #{e2 7933}#) - (#{chi-let 7900}# - #{e 7901}# - #{r 7902}# - #{w 7903}# - #{s 7904}# - #{mod 7905}# - (lambda (#{src 7937}# - #{ids 7938}# - #{vars 7939}# - #{val-exps 7940}# - #{body-exp 7941}#) + (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}#) (begin (for-each #{maybe-name-value! 4307}# - #{ids 7938}# - #{val-exps 7940}#) - (if (null? #{vars 7939}#) - #{body-exp 7941}# + #{ids 7954}# + #{val-exps 7956}#) + (if (null? #{vars 7955}#) + #{body-exp 7957}# (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 7937}# - #{ids 7938}# - #{vars 7939}# - #{val-exps 7940}# - #{body-exp 7941}#)))) - #{id 7930}# - #{val 7931}# - (cons #{e1 7932}# #{e2 7933}#))) - #{tmp 7907}#) - (let ((#{tmp 7948}# + #{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}# ($sc-dispatch - #{e 7901}# + #{e 7917}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7948}# + (if (if #{tmp 7964}# (@apply - (lambda (#{f 7952}# - #{id 7953}# - #{val 7954}# - #{e1 7955}# - #{e2 7956}#) - (if (if (symbol? #{f 7952}#) + (lambda (#{f 7968}# + #{id 7969}# + #{val 7970}# + #{e1 7971}# + #{e2 7972}#) + (if (if (symbol? #{f 7968}#) #t - (if (if (vector? #{f 7952}#) - (if (= (vector-length #{f 7952}#) 4) - (eq? (vector-ref #{f 7952}# 0) + (if (if (vector? #{f 7968}#) + (if (= (vector-length #{f 7968}#) 4) + (eq? (vector-ref #{f 7968}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 7952}# 1)) + (symbol? (vector-ref #{f 7968}# 1)) #f)) - (and-map #{id? 4343}# #{id 7953}#) + (and-map #{id? 4343}# #{id 7969}#) #f)) - #{tmp 7948}#) + #{tmp 7964}#) #f) (@apply - (lambda (#{f 7998}# - #{id 7999}# - #{val 8000}# - #{e1 8001}# - #{e2 8002}#) - (#{chi-let 7900}# - #{e 7901}# - #{r 7902}# - #{w 7903}# - #{s 7904}# - #{mod 7905}# + (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 7998}# #{id 7999}#) - #{val 8000}# - (cons #{e1 8001}# #{e2 8002}#))) - #{tmp 7948}#) + (cons #{f 8014}# #{id 8015}#) + #{val 8016}# + (cons #{e1 8017}# #{e2 8018}#))) + #{tmp 7964}#) (syntax-violation 'let "bad let" - (let ((#{x 8015}# + (let ((#{x 8031}# (begin - (if (if (pair? #{e 7901}#) #{s 7904}# #f) - (set-source-properties! #{e 7901}# #{s 7904}#)) - #{e 7901}#))) - (if (if (null? (car #{w 7903}#)) - (null? (cdr #{w 7903}#)) + (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}#)) #f) - #{x 8015}# - (if (if (vector? #{x 8015}#) - (if (= (vector-length #{x 8015}#) 4) - (eq? (vector-ref #{x 8015}# 0) 'syntax-object) + #{x 8031}# + (if (if (vector? #{x 8031}#) + (if (= (vector-length #{x 8031}#) 4) + (eq? (vector-ref #{x 8031}# 0) 'syntax-object) #f) #f) - (let ((#{expression 8047}# (vector-ref #{x 8015}# 1)) - (#{wrap 8048}# - (let ((#{w2 8056}# - (vector-ref #{x 8015}# 2))) - (let ((#{m1 8057}# (car #{w 7903}#)) - (#{s1 8058}# (cdr #{w 7903}#))) - (if (null? #{m1 8057}#) - (if (null? #{s1 8058}#) - #{w2 8056}# - (cons (car #{w2 8056}#) - (let ((#{m2 8073}# - (cdr #{w2 8056}#))) - (if (null? #{m2 8073}#) - #{s1 8058}# + (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}# (append - #{s1 8058}# - #{m2 8073}#))))) - (cons (let ((#{m2 8081}# - (car #{w2 8056}#))) - (if (null? #{m2 8081}#) - #{m1 8057}# + #{s1 8074}# + #{m2 8089}#))))) + (cons (let ((#{m2 8097}# + (car #{w2 8072}#))) + (if (null? #{m2 8097}#) + #{m1 8073}# (append - #{m1 8057}# - #{m2 8081}#))) - (let ((#{m2 8089}# - (cdr #{w2 8056}#))) - (if (null? #{m2 8089}#) - #{s1 8058}# + #{m1 8073}# + #{m2 8097}#))) + (let ((#{m2 8105}# + (cdr #{w2 8072}#))) + (if (null? #{m2 8105}#) + #{s1 8074}# (append - #{s1 8058}# - #{m2 8089}#)))))))) - (#{module 8049}# (vector-ref #{x 8015}# 3))) + #{s1 8074}# + #{m2 8105}#)))))))) + (#{module 8065}# (vector-ref #{x 8031}# 3))) (vector 'syntax-object - #{expression 8047}# - #{wrap 8048}# - #{module 8049}#)) - (if (null? #{x 8015}#) - #{x 8015}# + #{expression 8063}# + #{wrap 8064}# + #{module 8065}#)) + (if (null? #{x 8031}#) + #{x 8031}# (vector 'syntax-object - #{x 8015}# - #{w 7903}# - #{mod 7905}#))))))))))))) + #{x 8031}# + #{w 7919}# + #{mod 7921}#))))))))))))) (#{global-extend 4341}# 'core 'letrec - (lambda (#{e 8694}# - #{r 8695}# - #{w 8696}# - #{s 8697}# - #{mod 8698}#) - (let ((#{tmp 8700}# + (lambda (#{e 8716}# + #{r 8717}# + #{w 8718}# + #{s 8719}# + #{mod 8720}#) + (let ((#{tmp 8722}# ($sc-dispatch - #{e 8694}# + #{e 8716}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8700}# + (if (if #{tmp 8722}# (@apply - (lambda (#{id 8704}# - #{val 8705}# - #{e1 8706}# - #{e2 8707}#) - (and-map #{id? 4343}# #{id 8704}#)) - #{tmp 8700}#) + (lambda (#{id 8726}# + #{val 8727}# + #{e1 8728}# + #{e2 8729}#) + (and-map #{id? 4343}# #{id 8726}#)) + #{tmp 8722}#) #f) (@apply - (lambda (#{id 8723}# - #{val 8724}# - #{e1 8725}# - #{e2 8726}#) - (if (not (#{valid-bound-ids? 4365}# #{id 8723}#)) + (lambda (#{id 8745}# + #{val 8746}# + #{e1 8747}# + #{e2 8748}#) + (if (not (#{valid-bound-ids? 4365}# #{id 8745}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 8694}#) - (let ((#{labels 8821}# - (#{gen-labels 4346}# #{id 8723}#)) - (#{new-vars 8822}# - (map #{gen-var 4389}# #{id 8723}#))) - (let ((#{w 8823}# + #{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 8723}# - #{labels 8821}# - #{w 8696}#)) - (#{r 8824}# + #{id 8745}# + #{labels 8845}# + #{w 8718}#)) + (#{r 8848}# (#{extend-var-env 4338}# - #{labels 8821}# - #{new-vars 8822}# - #{r 8695}#))) + #{labels 8845}# + #{new-vars 8846}# + #{r 8717}#))) (#{build-letrec 4327}# - #{s 8697}# + #{s 8719}# #f - (map syntax->datum #{id 8723}#) - #{new-vars 8822}# - (map (lambda (#{x 8903}#) + (map syntax->datum #{id 8745}#) + #{new-vars 8846}# + (map (lambda (#{x 8927}#) (#{chi 4375}# - #{x 8903}# - #{r 8824}# - #{w 8823}# - #{mod 8698}#)) - #{val 8724}#) + #{x 8927}# + #{r 8848}# + #{w 8847}# + #{mod 8720}#)) + #{val 8746}#) (#{chi-body 4379}# - (cons #{e1 8725}# #{e2 8726}#) - (let ((#{x 8965}# + (cons #{e1 8747}# #{e2 8748}#) + (let ((#{x 8989}# (begin - (if (if (pair? #{e 8694}#) #{s 8697}# #f) + (if (if (pair? #{e 8716}#) #{s 8719}# #f) (set-source-properties! - #{e 8694}# - #{s 8697}#)) - #{e 8694}#))) - (if (if (null? (car #{w 8823}#)) - (null? (cdr #{w 8823}#)) + #{e 8716}# + #{s 8719}#)) + #{e 8716}#))) + (if (if (null? (car #{w 8847}#)) + (null? (cdr #{w 8847}#)) #f) - #{x 8965}# - (if (if (vector? #{x 8965}#) - (if (= (vector-length #{x 8965}#) 4) - (eq? (vector-ref #{x 8965}# 0) + #{x 8989}# + (if (if (vector? #{x 8989}#) + (if (= (vector-length #{x 8989}#) 4) + (eq? (vector-ref #{x 8989}# 0) 'syntax-object) #f) #f) - (let ((#{expression 8997}# - (vector-ref #{x 8965}# 1)) - (#{wrap 8998}# - (let ((#{w2 9006}# - (vector-ref #{x 8965}# 2))) - (let ((#{m1 9007}# (car #{w 8823}#)) - (#{s1 9008}# (cdr #{w 8823}#))) - (if (null? #{m1 9007}#) - (if (null? #{s1 9008}#) - #{w2 9006}# - (cons (car #{w2 9006}#) - (let ((#{m2 9023}# - (cdr #{w2 9006}#))) - (if (null? #{m2 9023}#) - #{s1 9008}# + (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}# (append - #{s1 9008}# - #{m2 9023}#))))) - (cons (let ((#{m2 9031}# - (car #{w2 9006}#))) - (if (null? #{m2 9031}#) - #{m1 9007}# + #{s1 9032}# + #{m2 9047}#))))) + (cons (let ((#{m2 9055}# + (car #{w2 9030}#))) + (if (null? #{m2 9055}#) + #{m1 9031}# (append - #{m1 9007}# - #{m2 9031}#))) - (let ((#{m2 9039}# - (cdr #{w2 9006}#))) - (if (null? #{m2 9039}#) - #{s1 9008}# + #{m1 9031}# + #{m2 9055}#))) + (let ((#{m2 9063}# + (cdr #{w2 9030}#))) + (if (null? #{m2 9063}#) + #{s1 9032}# (append - #{s1 9008}# - #{m2 9039}#)))))))) - (#{module 8999}# - (vector-ref #{x 8965}# 3))) + #{s1 9032}# + #{m2 9063}#)))))))) + (#{module 9023}# + (vector-ref #{x 8989}# 3))) (vector 'syntax-object - #{expression 8997}# - #{wrap 8998}# - #{module 8999}#)) - (if (null? #{x 8965}#) - #{x 8965}# + #{expression 9021}# + #{wrap 9022}# + #{module 9023}#)) + (if (null? #{x 8989}#) + #{x 8989}# (vector 'syntax-object - #{x 8965}# - #{w 8823}# - #{mod 8698}#))))) - #{r 8824}# - #{w 8823}# - #{mod 8698}#)))))) - #{tmp 8700}#) + #{x 8989}# + #{w 8847}# + #{mod 8720}#))))) + #{r 8848}# + #{w 8847}# + #{mod 8720}#)))))) + #{tmp 8722}#) (syntax-violation 'letrec "bad letrec" - (let ((#{x 9279}# + (let ((#{x 9303}# (begin - (if (if (pair? #{e 8694}#) #{s 8697}# #f) - (set-source-properties! #{e 8694}# #{s 8697}#)) - #{e 8694}#))) - (if (if (null? (car #{w 8696}#)) - (null? (cdr #{w 8696}#)) + (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}#)) #f) - #{x 9279}# - (if (if (vector? #{x 9279}#) - (if (= (vector-length #{x 9279}#) 4) - (eq? (vector-ref #{x 9279}# 0) 'syntax-object) + #{x 9303}# + (if (if (vector? #{x 9303}#) + (if (= (vector-length #{x 9303}#) 4) + (eq? (vector-ref #{x 9303}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9311}# (vector-ref #{x 9279}# 1)) - (#{wrap 9312}# - (let ((#{w2 9320}# (vector-ref #{x 9279}# 2))) - (let ((#{m1 9321}# (car #{w 8696}#)) - (#{s1 9322}# (cdr #{w 8696}#))) - (if (null? #{m1 9321}#) - (if (null? #{s1 9322}#) - #{w2 9320}# - (cons (car #{w2 9320}#) - (let ((#{m2 9337}# - (cdr #{w2 9320}#))) - (if (null? #{m2 9337}#) - #{s1 9322}# + (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}# (append - #{s1 9322}# - #{m2 9337}#))))) - (cons (let ((#{m2 9345}# (car #{w2 9320}#))) - (if (null? #{m2 9345}#) - #{m1 9321}# - (append #{m1 9321}# #{m2 9345}#))) - (let ((#{m2 9353}# (cdr #{w2 9320}#))) - (if (null? #{m2 9353}#) - #{s1 9322}# + #{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}# (append - #{s1 9322}# - #{m2 9353}#)))))))) - (#{module 9313}# (vector-ref #{x 9279}# 3))) + #{s1 9346}# + #{m2 9377}#)))))))) + (#{module 9337}# (vector-ref #{x 9303}# 3))) (vector 'syntax-object - #{expression 9311}# - #{wrap 9312}# - #{module 9313}#)) - (if (null? #{x 9279}#) - #{x 9279}# + #{expression 9335}# + #{wrap 9336}# + #{module 9337}#)) + (if (null? #{x 9303}#) + #{x 9303}# (vector 'syntax-object - #{x 9279}# - #{w 8696}# - #{mod 8698}#)))))))))) + #{x 9303}# + #{w 8718}# + #{mod 8720}#)))))))))) (#{global-extend 4341}# 'core 'letrec* - (lambda (#{e 9502}# - #{r 9503}# - #{w 9504}# - #{s 9505}# - #{mod 9506}#) - (let ((#{tmp 9508}# + (lambda (#{e 9528}# + #{r 9529}# + #{w 9530}# + #{s 9531}# + #{mod 9532}#) + (let ((#{tmp 9534}# ($sc-dispatch - #{e 9502}# + #{e 9528}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 9508}# + (if (if #{tmp 9534}# (@apply - (lambda (#{id 9512}# - #{val 9513}# - #{e1 9514}# - #{e2 9515}#) - (and-map #{id? 4343}# #{id 9512}#)) - #{tmp 9508}#) + (lambda (#{id 9538}# + #{val 9539}# + #{e1 9540}# + #{e2 9541}#) + (and-map #{id? 4343}# #{id 9538}#)) + #{tmp 9534}#) #f) (@apply - (lambda (#{id 9531}# - #{val 9532}# - #{e1 9533}# - #{e2 9534}#) - (if (not (#{valid-bound-ids? 4365}# #{id 9531}#)) + (lambda (#{id 9557}# + #{val 9558}# + #{e1 9559}# + #{e2 9560}#) + (if (not (#{valid-bound-ids? 4365}# #{id 9557}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 9502}#) - (let ((#{labels 9629}# - (#{gen-labels 4346}# #{id 9531}#)) - (#{new-vars 9630}# - (map #{gen-var 4389}# #{id 9531}#))) - (let ((#{w 9631}# + #{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 9531}# - #{labels 9629}# - #{w 9504}#)) - (#{r 9632}# + #{id 9557}# + #{labels 9657}# + #{w 9530}#)) + (#{r 9660}# (#{extend-var-env 4338}# - #{labels 9629}# - #{new-vars 9630}# - #{r 9503}#))) + #{labels 9657}# + #{new-vars 9658}# + #{r 9529}#))) (#{build-letrec 4327}# - #{s 9505}# + #{s 9531}# #t - (map syntax->datum #{id 9531}#) - #{new-vars 9630}# - (map (lambda (#{x 9711}#) + (map syntax->datum #{id 9557}#) + #{new-vars 9658}# + (map (lambda (#{x 9739}#) (#{chi 4375}# - #{x 9711}# - #{r 9632}# - #{w 9631}# - #{mod 9506}#)) - #{val 9532}#) + #{x 9739}# + #{r 9660}# + #{w 9659}# + #{mod 9532}#)) + #{val 9558}#) (#{chi-body 4379}# - (cons #{e1 9533}# #{e2 9534}#) - (let ((#{x 9773}# + (cons #{e1 9559}# #{e2 9560}#) + (let ((#{x 9801}# (begin - (if (if (pair? #{e 9502}#) #{s 9505}# #f) + (if (if (pair? #{e 9528}#) #{s 9531}# #f) (set-source-properties! - #{e 9502}# - #{s 9505}#)) - #{e 9502}#))) - (if (if (null? (car #{w 9631}#)) - (null? (cdr #{w 9631}#)) + #{e 9528}# + #{s 9531}#)) + #{e 9528}#))) + (if (if (null? (car #{w 9659}#)) + (null? (cdr #{w 9659}#)) #f) - #{x 9773}# - (if (if (vector? #{x 9773}#) - (if (= (vector-length #{x 9773}#) 4) - (eq? (vector-ref #{x 9773}# 0) + #{x 9801}# + (if (if (vector? #{x 9801}#) + (if (= (vector-length #{x 9801}#) 4) + (eq? (vector-ref #{x 9801}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9805}# - (vector-ref #{x 9773}# 1)) - (#{wrap 9806}# - (let ((#{w2 9814}# - (vector-ref #{x 9773}# 2))) - (let ((#{m1 9815}# (car #{w 9631}#)) - (#{s1 9816}# (cdr #{w 9631}#))) - (if (null? #{m1 9815}#) - (if (null? #{s1 9816}#) - #{w2 9814}# - (cons (car #{w2 9814}#) - (let ((#{m2 9831}# - (cdr #{w2 9814}#))) - (if (null? #{m2 9831}#) - #{s1 9816}# + (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}# (append - #{s1 9816}# - #{m2 9831}#))))) - (cons (let ((#{m2 9839}# - (car #{w2 9814}#))) - (if (null? #{m2 9839}#) - #{m1 9815}# + #{s1 9844}# + #{m2 9859}#))))) + (cons (let ((#{m2 9867}# + (car #{w2 9842}#))) + (if (null? #{m2 9867}#) + #{m1 9843}# (append - #{m1 9815}# - #{m2 9839}#))) - (let ((#{m2 9847}# - (cdr #{w2 9814}#))) - (if (null? #{m2 9847}#) - #{s1 9816}# + #{m1 9843}# + #{m2 9867}#))) + (let ((#{m2 9875}# + (cdr #{w2 9842}#))) + (if (null? #{m2 9875}#) + #{s1 9844}# (append - #{s1 9816}# - #{m2 9847}#)))))))) - (#{module 9807}# - (vector-ref #{x 9773}# 3))) + #{s1 9844}# + #{m2 9875}#)))))))) + (#{module 9835}# + (vector-ref #{x 9801}# 3))) (vector 'syntax-object - #{expression 9805}# - #{wrap 9806}# - #{module 9807}#)) - (if (null? #{x 9773}#) - #{x 9773}# + #{expression 9833}# + #{wrap 9834}# + #{module 9835}#)) + (if (null? #{x 9801}#) + #{x 9801}# (vector 'syntax-object - #{x 9773}# - #{w 9631}# - #{mod 9506}#))))) - #{r 9632}# - #{w 9631}# - #{mod 9506}#)))))) - #{tmp 9508}#) + #{x 9801}# + #{w 9659}# + #{mod 9532}#))))) + #{r 9660}# + #{w 9659}# + #{mod 9532}#)))))) + #{tmp 9534}#) (syntax-violation 'letrec* "bad letrec*" - (let ((#{x 10087}# + (let ((#{x 10115}# (begin - (if (if (pair? #{e 9502}#) #{s 9505}# #f) - (set-source-properties! #{e 9502}# #{s 9505}#)) - #{e 9502}#))) - (if (if (null? (car #{w 9504}#)) - (null? (cdr #{w 9504}#)) + (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}#)) #f) - #{x 10087}# - (if (if (vector? #{x 10087}#) - (if (= (vector-length #{x 10087}#) 4) - (eq? (vector-ref #{x 10087}# 0) 'syntax-object) + #{x 10115}# + (if (if (vector? #{x 10115}#) + (if (= (vector-length #{x 10115}#) 4) + (eq? (vector-ref #{x 10115}# 0) 'syntax-object) #f) #f) - (let ((#{expression 10119}# (vector-ref #{x 10087}# 1)) - (#{wrap 10120}# - (let ((#{w2 10128}# (vector-ref #{x 10087}# 2))) - (let ((#{m1 10129}# (car #{w 9504}#)) - (#{s1 10130}# (cdr #{w 9504}#))) - (if (null? #{m1 10129}#) - (if (null? #{s1 10130}#) - #{w2 10128}# - (cons (car #{w2 10128}#) - (let ((#{m2 10145}# - (cdr #{w2 10128}#))) - (if (null? #{m2 10145}#) - #{s1 10130}# + (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}# (append - #{s1 10130}# - #{m2 10145}#))))) - (cons (let ((#{m2 10153}# - (car #{w2 10128}#))) - (if (null? #{m2 10153}#) - #{m1 10129}# + #{s1 10158}# + #{m2 10173}#))))) + (cons (let ((#{m2 10181}# + (car #{w2 10156}#))) + (if (null? #{m2 10181}#) + #{m1 10157}# (append - #{m1 10129}# - #{m2 10153}#))) - (let ((#{m2 10161}# - (cdr #{w2 10128}#))) - (if (null? #{m2 10161}#) - #{s1 10130}# + #{m1 10157}# + #{m2 10181}#))) + (let ((#{m2 10189}# + (cdr #{w2 10156}#))) + (if (null? #{m2 10189}#) + #{s1 10158}# (append - #{s1 10130}# - #{m2 10161}#)))))))) - (#{module 10121}# (vector-ref #{x 10087}# 3))) + #{s1 10158}# + #{m2 10189}#)))))))) + (#{module 10149}# (vector-ref #{x 10115}# 3))) (vector 'syntax-object - #{expression 10119}# - #{wrap 10120}# - #{module 10121}#)) - (if (null? #{x 10087}#) - #{x 10087}# + #{expression 10147}# + #{wrap 10148}# + #{module 10149}#)) + (if (null? #{x 10115}#) + #{x 10115}# (vector 'syntax-object - #{x 10087}# - #{w 9504}# - #{mod 9506}#)))))))))) + #{x 10115}# + #{w 9530}# + #{mod 9532}#)))))))))) (#{global-extend 4341}# 'core 'set! - (lambda (#{e 10378}# - #{r 10379}# - #{w 10380}# - #{s 10381}# - #{mod 10382}#) - (let ((#{tmp 10384}# - ($sc-dispatch #{e 10378}# '(_ any any)))) - (if (if #{tmp 10384}# + (lambda (#{e 10408}# + #{r 10409}# + #{w 10410}# + #{s 10411}# + #{mod 10412}#) + (let ((#{tmp 10414}# + ($sc-dispatch #{e 10408}# '(_ any any)))) + (if (if #{tmp 10414}# (@apply - (lambda (#{id 10388}# #{val 10389}#) - (if (symbol? #{id 10388}#) + (lambda (#{id 10418}# #{val 10419}#) + (if (symbol? #{id 10418}#) #t - (if (if (vector? #{id 10388}#) - (if (= (vector-length #{id 10388}#) 4) - (eq? (vector-ref #{id 10388}# 0) 'syntax-object) + (if (if (vector? #{id 10418}#) + (if (= (vector-length #{id 10418}#) 4) + (eq? (vector-ref #{id 10418}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10388}# 1)) + (symbol? (vector-ref #{id 10418}# 1)) #f))) - #{tmp 10384}#) + #{tmp 10414}#) #f) (@apply - (lambda (#{id 10416}# #{val 10417}#) - (let ((#{n 10418}# - (#{id-var-name 4362}# #{id 10416}# #{w 10380}#)) - (#{id-mod 10419}# - (if (if (vector? #{id 10416}#) - (if (= (vector-length #{id 10416}#) 4) - (eq? (vector-ref #{id 10416}# 0) + (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) 'syntax-object) #f) #f) - (vector-ref #{id 10416}# 3) - #{mod 10382}#))) - (let ((#{b 10420}# - (let ((#{t 11129}# (assq #{n 10418}# #{r 10379}#))) - (if #{t 11129}# - (cdr #{t 11129}#) - (if (symbol? #{n 10418}#) - (let ((#{t 11134}# + (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}# (begin - (if (if (not #{id-mod 10419}#) + (if (if (not #{id-mod 10449}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 10418}#)) - (let ((#{v 11171}# + #{n 10448}#)) + (let ((#{v 11209}# (module-variable - (if #{id-mod 10419}# + (if #{id-mod 10449}# (resolve-module - (cdr #{id-mod 10419}#)) + (cdr #{id-mod 10449}#)) (current-module)) - #{n 10418}#))) - (if #{v 11171}# - (if (variable-bound? #{v 11171}#) - (let ((#{val 11180}# + #{n 10448}#))) + (if #{v 11209}# + (if (variable-bound? #{v 11209}#) + (let ((#{val 11218}# (variable-ref - #{v 11171}#))) - (if (macro? #{val 11180}#) + #{v 11209}#))) + (if (macro? #{val 11218}#) (if (macro-type - #{val 11180}#) + #{val 11218}#) (cons (macro-type - #{val 11180}#) + #{val 11218}#) (macro-binding - #{val 11180}#)) + #{val 11218}#)) #f) #f)) #f) #f))))) - (if #{t 11134}# #{t 11134}# '(global))) + (if #{t 11172}# #{t 11172}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 10421}# (car #{b 10420}#))) - (if (let ((#{t 10460}# #{atom-key 10421}#)) - (eqv? #{t 10460}# 'lexical)) + (let ((#{atom-key 10451}# (car #{b 10450}#))) + (if (let ((#{t 10490}# #{atom-key 10451}#)) + (eqv? #{t 10490}# 'lexical)) (#{build-lexical-assignment 4313}# - #{s 10381}# - (syntax->datum #{id 10416}#) - (cdr #{b 10420}#) + #{s 10411}# + (syntax->datum #{id 10446}#) + (cdr #{b 10450}#) (#{chi 4375}# - #{val 10417}# - #{r 10379}# - #{w 10380}# - #{mod 10382}#)) - (if (let ((#{t 10755}# #{atom-key 10421}#)) - (eqv? #{t 10755}# 'global)) + #{val 10447}# + #{r 10409}# + #{w 10410}# + #{mod 10412}#)) + (if (let ((#{t 10789}# #{atom-key 10451}#)) + (eqv? #{t 10789}# 'global)) (#{build-global-assignment 4316}# - #{s 10381}# - #{n 10418}# + #{s 10411}# + #{n 10448}# (#{chi 4375}# - #{val 10417}# - #{r 10379}# - #{w 10380}# - #{mod 10382}#) - #{id-mod 10419}#) - (if (let ((#{t 11020}# #{atom-key 10421}#)) - (eqv? #{t 11020}# 'macro)) - (let ((#{p 11083}# (cdr #{b 10420}#))) + #{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}#))) (if (procedure-property - #{p 11083}# + #{p 11121}# 'variable-transformer) (#{chi 4375}# (#{chi-macro 4378}# - #{p 11083}# - #{e 10378}# - #{r 10379}# - #{w 10380}# - #{s 10381}# + #{p 11121}# + #{e 10408}# + #{r 10409}# + #{w 10410}# + #{s 10411}# #f - #{mod 10382}#) - #{r 10379}# + #{mod 10412}#) + #{r 10409}# '(()) - #{mod 10382}#) + #{mod 10412}#) (syntax-violation 'set! "not a variable transformer" - (if (if (null? (car #{w 10380}#)) - (null? (cdr #{w 10380}#)) + (if (if (null? (car #{w 10410}#)) + (null? (cdr #{w 10410}#)) #f) - #{e 10378}# - (if (if (vector? #{e 10378}#) - (if (= (vector-length #{e 10378}#) 4) - (eq? (vector-ref #{e 10378}# 0) + #{e 10408}# + (if (if (vector? #{e 10408}#) + (if (= (vector-length #{e 10408}#) 4) + (eq? (vector-ref #{e 10408}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11283}# - (vector-ref #{e 10378}# 1)) - (#{wrap 11284}# - (let ((#{w2 11294}# + (let ((#{expression 11323}# + (vector-ref #{e 10408}# 1)) + (#{wrap 11324}# + (let ((#{w2 11334}# (vector-ref - #{e 10378}# + #{e 10408}# 2))) - (let ((#{m1 11295}# - (car #{w 10380}#)) - (#{s1 11296}# - (cdr #{w 10380}#))) - (if (null? #{m1 11295}#) - (if (null? #{s1 11296}#) - #{w2 11294}# - (cons (car #{w2 11294}#) - (let ((#{m2 11313}# - (cdr #{w2 11294}#))) - (if (null? #{m2 11313}#) - #{s1 11296}# + (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}# (append - #{s1 11296}# - #{m2 11313}#))))) - (cons (let ((#{m2 11321}# - (car #{w2 11294}#))) - (if (null? #{m2 11321}#) - #{m1 11295}# + #{s1 11336}# + #{m2 11353}#))))) + (cons (let ((#{m2 11361}# + (car #{w2 11334}#))) + (if (null? #{m2 11361}#) + #{m1 11335}# (append - #{m1 11295}# - #{m2 11321}#))) - (let ((#{m2 11329}# - (cdr #{w2 11294}#))) - (if (null? #{m2 11329}#) - #{s1 11296}# + #{m1 11335}# + #{m2 11361}#))) + (let ((#{m2 11369}# + (cdr #{w2 11334}#))) + (if (null? #{m2 11369}#) + #{s1 11336}# (append - #{s1 11296}# - #{m2 11329}#)))))))) - (#{module 11285}# - (vector-ref #{e 10378}# 3))) + #{s1 11336}# + #{m2 11369}#)))))))) + (#{module 11325}# + (vector-ref #{e 10408}# 3))) (vector 'syntax-object - #{expression 11283}# - #{wrap 11284}# - #{module 11285}#)) - (if (null? #{e 10378}#) - #{e 10378}# + #{expression 11323}# + #{wrap 11324}# + #{module 11325}#)) + (if (null? #{e 10408}#) + #{e 10408}# (vector 'syntax-object - #{e 10378}# - #{w 10380}# - #{mod 10382}#)))) - (if (if (null? (car #{w 10380}#)) - (null? (cdr #{w 10380}#)) + #{e 10408}# + #{w 10410}# + #{mod 10412}#)))) + (if (if (null? (car #{w 10410}#)) + (null? (cdr #{w 10410}#)) #f) - #{id 10416}# - (if (if (vector? #{id 10416}#) - (if (= (vector-length #{id 10416}#) + #{id 10446}# + (if (if (vector? #{id 10446}#) + (if (= (vector-length #{id 10446}#) 4) - (eq? (vector-ref #{id 10416}# 0) + (eq? (vector-ref #{id 10446}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11381}# - (vector-ref #{id 10416}# 1)) - (#{wrap 11382}# - (let ((#{w2 11392}# + (let ((#{expression 11421}# + (vector-ref #{id 10446}# 1)) + (#{wrap 11422}# + (let ((#{w2 11432}# (vector-ref - #{id 10416}# + #{id 10446}# 2))) - (let ((#{m1 11393}# - (car #{w 10380}#)) - (#{s1 11394}# - (cdr #{w 10380}#))) - (if (null? #{m1 11393}#) - (if (null? #{s1 11394}#) - #{w2 11392}# - (cons (car #{w2 11392}#) - (let ((#{m2 11411}# - (cdr #{w2 11392}#))) - (if (null? #{m2 11411}#) - #{s1 11394}# + (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}# (append - #{s1 11394}# - #{m2 11411}#))))) - (cons (let ((#{m2 11419}# - (car #{w2 11392}#))) - (if (null? #{m2 11419}#) - #{m1 11393}# + #{s1 11434}# + #{m2 11451}#))))) + (cons (let ((#{m2 11459}# + (car #{w2 11432}#))) + (if (null? #{m2 11459}#) + #{m1 11433}# (append - #{m1 11393}# - #{m2 11419}#))) - (let ((#{m2 11427}# - (cdr #{w2 11392}#))) - (if (null? #{m2 11427}#) - #{s1 11394}# + #{m1 11433}# + #{m2 11459}#))) + (let ((#{m2 11467}# + (cdr #{w2 11432}#))) + (if (null? #{m2 11467}#) + #{s1 11434}# (append - #{s1 11394}# - #{m2 11427}#)))))))) - (#{module 11383}# - (vector-ref #{id 10416}# 3))) + #{s1 11434}# + #{m2 11467}#)))))))) + (#{module 11423}# + (vector-ref #{id 10446}# 3))) (vector 'syntax-object - #{expression 11381}# - #{wrap 11382}# - #{module 11383}#)) - (if (null? #{id 10416}#) - #{id 10416}# + #{expression 11421}# + #{wrap 11422}# + #{module 11423}#)) + (if (null? #{id 10446}#) + #{id 10446}# (vector 'syntax-object - #{id 10416}# - #{w 10380}# - #{id-mod 10419}#))))))) - (if (eqv? #{atom-key 10421}# 'displaced-lexical) + #{id 10446}# + #{w 10410}# + #{id-mod 10449}#))))))) + (if (eqv? #{atom-key 10451}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (if (if (null? (car #{w 10380}#)) - (null? (cdr #{w 10380}#)) + (if (if (null? (car #{w 10410}#)) + (null? (cdr #{w 10410}#)) #f) - #{id 10416}# - (if (if (vector? #{id 10416}#) - (if (= (vector-length #{id 10416}#) 4) - (eq? (vector-ref #{id 10416}# 0) + #{id 10446}# + (if (if (vector? #{id 10446}#) + (if (= (vector-length #{id 10446}#) 4) + (eq? (vector-ref #{id 10446}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11483}# - (vector-ref #{id 10416}# 1)) - (#{wrap 11484}# - (let ((#{w2 11494}# + (let ((#{expression 11523}# + (vector-ref #{id 10446}# 1)) + (#{wrap 11524}# + (let ((#{w2 11534}# (vector-ref - #{id 10416}# + #{id 10446}# 2))) - (let ((#{m1 11495}# - (car #{w 10380}#)) - (#{s1 11496}# - (cdr #{w 10380}#))) - (if (null? #{m1 11495}#) - (if (null? #{s1 11496}#) - #{w2 11494}# - (cons (car #{w2 11494}#) - (let ((#{m2 11513}# - (cdr #{w2 11494}#))) - (if (null? #{m2 11513}#) - #{s1 11496}# + (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}# (append - #{s1 11496}# - #{m2 11513}#))))) - (cons (let ((#{m2 11521}# - (car #{w2 11494}#))) - (if (null? #{m2 11521}#) - #{m1 11495}# + #{s1 11536}# + #{m2 11553}#))))) + (cons (let ((#{m2 11561}# + (car #{w2 11534}#))) + (if (null? #{m2 11561}#) + #{m1 11535}# (append - #{m1 11495}# - #{m2 11521}#))) - (let ((#{m2 11529}# - (cdr #{w2 11494}#))) - (if (null? #{m2 11529}#) - #{s1 11496}# + #{m1 11535}# + #{m2 11561}#))) + (let ((#{m2 11569}# + (cdr #{w2 11534}#))) + (if (null? #{m2 11569}#) + #{s1 11536}# (append - #{s1 11496}# - #{m2 11529}#)))))))) - (#{module 11485}# - (vector-ref #{id 10416}# 3))) + #{s1 11536}# + #{m2 11569}#)))))))) + (#{module 11525}# + (vector-ref #{id 10446}# 3))) (vector 'syntax-object - #{expression 11483}# - #{wrap 11484}# - #{module 11485}#)) - (if (null? #{id 10416}#) - #{id 10416}# + #{expression 11523}# + #{wrap 11524}# + #{module 11525}#)) + (if (null? #{id 10446}#) + #{id 10446}# (vector 'syntax-object - #{id 10416}# - #{w 10380}# - #{mod 10382}#))))) + #{id 10446}# + #{w 10410}# + #{mod 10412}#))))) (syntax-violation 'set! "bad set!" - (let ((#{x 11561}# + (let ((#{x 11601}# (begin - (if (if (pair? #{e 10378}#) - #{s 10381}# + (if (if (pair? #{e 10408}#) + #{s 10411}# #f) (set-source-properties! - #{e 10378}# - #{s 10381}#)) - #{e 10378}#))) - (if (if (null? (car #{w 10380}#)) - (null? (cdr #{w 10380}#)) + #{e 10408}# + #{s 10411}#)) + #{e 10408}#))) + (if (if (null? (car #{w 10410}#)) + (null? (cdr #{w 10410}#)) #f) - #{x 11561}# - (if (if (vector? #{x 11561}#) - (if (= (vector-length #{x 11561}#) 4) - (eq? (vector-ref #{x 11561}# 0) + #{x 11601}# + (if (if (vector? #{x 11601}#) + (if (= (vector-length #{x 11601}#) 4) + (eq? (vector-ref #{x 11601}# 0) 'syntax-object) #f) #f) - (let ((#{expression 11593}# - (vector-ref #{x 11561}# 1)) - (#{wrap 11594}# - (let ((#{w2 11602}# + (let ((#{expression 11633}# + (vector-ref #{x 11601}# 1)) + (#{wrap 11634}# + (let ((#{w2 11642}# (vector-ref - #{x 11561}# + #{x 11601}# 2))) - (let ((#{m1 11603}# - (car #{w 10380}#)) - (#{s1 11604}# - (cdr #{w 10380}#))) - (if (null? #{m1 11603}#) - (if (null? #{s1 11604}#) - #{w2 11602}# - (cons (car #{w2 11602}#) - (let ((#{m2 11619}# - (cdr #{w2 11602}#))) - (if (null? #{m2 11619}#) - #{s1 11604}# + (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}# (append - #{s1 11604}# - #{m2 11619}#))))) - (cons (let ((#{m2 11627}# - (car #{w2 11602}#))) - (if (null? #{m2 11627}#) - #{m1 11603}# + #{s1 11644}# + #{m2 11659}#))))) + (cons (let ((#{m2 11667}# + (car #{w2 11642}#))) + (if (null? #{m2 11667}#) + #{m1 11643}# (append - #{m1 11603}# - #{m2 11627}#))) - (let ((#{m2 11635}# - (cdr #{w2 11602}#))) - (if (null? #{m2 11635}#) - #{s1 11604}# + #{m1 11643}# + #{m2 11667}#))) + (let ((#{m2 11675}# + (cdr #{w2 11642}#))) + (if (null? #{m2 11675}#) + #{s1 11644}# (append - #{s1 11604}# - #{m2 11635}#)))))))) - (#{module 11595}# - (vector-ref #{x 11561}# 3))) + #{s1 11644}# + #{m2 11675}#)))))))) + (#{module 11635}# + (vector-ref #{x 11601}# 3))) (vector 'syntax-object - #{expression 11593}# - #{wrap 11594}# - #{module 11595}#)) - (if (null? #{x 11561}#) - #{x 11561}# + #{expression 11633}# + #{wrap 11634}# + #{module 11635}#)) + (if (null? #{x 11601}#) + #{x 11601}# (vector 'syntax-object - #{x 11561}# - #{w 10380}# - #{mod 10382}#)))))))))))))) - #{tmp 10384}#) - (let ((#{tmp 11650}# + #{x 11601}# + #{w 10410}# + #{mod 10412}#)))))))))))))) + #{tmp 10414}#) + (let ((#{tmp 11690}# ($sc-dispatch - #{e 10378}# + #{e 10408}# '(_ (any . each-any) any)))) - (if #{tmp 11650}# + (if #{tmp 11690}# (@apply - (lambda (#{head 11654}# #{tail 11655}# #{val 11656}#) + (lambda (#{head 11694}# #{tail 11695}# #{val 11696}#) (call-with-values (lambda () (#{syntax-type 4374}# - #{head 11654}# - #{r 10379}# + #{head 11694}# + #{r 10409}# '(()) #f #f - #{mod 10382}# + #{mod 10412}# #t)) - (lambda (#{type 11659}# - #{value 11660}# - #{ee 11661}# - #{ww 11662}# - #{ss 11663}# - #{modmod 11664}#) - (if (eqv? #{type 11659}# 'module-ref) - (let ((#{val 11668}# + (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 11656}# - #{r 10379}# - #{w 10380}# - #{mod 10382}#))) + #{val 11696}# + #{r 10409}# + #{w 10410}# + #{mod 10412}#))) (call-with-values (lambda () - (#{value 11660}# - (cons #{head 11654}# #{tail 11655}#) - #{r 10379}# - #{w 10380}#)) - (lambda (#{e 11669}# - #{r 11670}# - #{w 11671}# - #{s* 11672}# - #{mod 11673}#) - (let ((#{tmp 11675}# (list #{e 11669}#))) + (#{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}#))) (if (@apply - (lambda (#{e 11677}#) - (if (symbol? #{e 11677}#) + (lambda (#{e 11717}#) + (if (symbol? #{e 11717}#) #t - (if (if (vector? #{e 11677}#) + (if (if (vector? #{e 11717}#) (if (= (vector-length - #{e 11677}#) + #{e 11717}#) 4) (eq? (vector-ref - #{e 11677}# + #{e 11717}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 11677}# 1)) + (vector-ref #{e 11717}# 1)) #f))) - #{tmp 11675}#) + #{tmp 11715}#) (@apply - (lambda (#{e 11707}#) + (lambda (#{e 11747}#) (#{build-global-assignment 4316}# - #{s 10381}# - (syntax->datum #{e 11707}#) - #{val 11668}# - #{mod 11673}#)) - #{tmp 11675}#) + #{s 10411}# + (syntax->datum #{e 11747}#) + #{val 11708}# + #{mod 11713}#)) + #{tmp 11715}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11669}#)))))) + #{e 11709}#)))))) (#{build-call 4309}# - #{s 10381}# + #{s 10411}# (#{chi 4375}# (list '#(syntax-object setter @@ -11469,113 +11469,113 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{head 11654}#) - #{r 10379}# - #{w 10380}# - #{mod 10382}#) - (map (lambda (#{e 12028}#) + #{head 11694}#) + #{r 10409}# + #{w 10410}# + #{mod 10412}#) + (map (lambda (#{e 12076}#) (#{chi 4375}# - #{e 12028}# - #{r 10379}# - #{w 10380}# - #{mod 10382}#)) + #{e 12076}# + #{r 10409}# + #{w 10410}# + #{mod 10412}#)) (append - #{tail 11655}# - (list #{val 11656}#)))))))) - #{tmp 11650}#) + #{tail 11695}# + (list #{val 11696}#)))))))) + #{tmp 11690}#) (syntax-violation 'set! "bad set!" - (let ((#{x 12118}# + (let ((#{x 12168}# (begin - (if (if (pair? #{e 10378}#) #{s 10381}# #f) - (set-source-properties! #{e 10378}# #{s 10381}#)) - #{e 10378}#))) - (if (if (null? (car #{w 10380}#)) - (null? (cdr #{w 10380}#)) + (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}#)) #f) - #{x 12118}# - (if (if (vector? #{x 12118}#) - (if (= (vector-length #{x 12118}#) 4) - (eq? (vector-ref #{x 12118}# 0) 'syntax-object) + #{x 12168}# + (if (if (vector? #{x 12168}#) + (if (= (vector-length #{x 12168}#) 4) + (eq? (vector-ref #{x 12168}# 0) 'syntax-object) #f) #f) - (let ((#{expression 12150}# (vector-ref #{x 12118}# 1)) - (#{wrap 12151}# - (let ((#{w2 12159}# - (vector-ref #{x 12118}# 2))) - (let ((#{m1 12160}# (car #{w 10380}#)) - (#{s1 12161}# (cdr #{w 10380}#))) - (if (null? #{m1 12160}#) - (if (null? #{s1 12161}#) - #{w2 12159}# - (cons (car #{w2 12159}#) - (let ((#{m2 12176}# - (cdr #{w2 12159}#))) - (if (null? #{m2 12176}#) - #{s1 12161}# + (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}# (append - #{s1 12161}# - #{m2 12176}#))))) - (cons (let ((#{m2 12184}# - (car #{w2 12159}#))) - (if (null? #{m2 12184}#) - #{m1 12160}# + #{s1 12211}# + #{m2 12226}#))))) + (cons (let ((#{m2 12234}# + (car #{w2 12209}#))) + (if (null? #{m2 12234}#) + #{m1 12210}# (append - #{m1 12160}# - #{m2 12184}#))) - (let ((#{m2 12192}# - (cdr #{w2 12159}#))) - (if (null? #{m2 12192}#) - #{s1 12161}# + #{m1 12210}# + #{m2 12234}#))) + (let ((#{m2 12242}# + (cdr #{w2 12209}#))) + (if (null? #{m2 12242}#) + #{s1 12211}# (append - #{s1 12161}# - #{m2 12192}#)))))))) - (#{module 12152}# (vector-ref #{x 12118}# 3))) + #{s1 12211}# + #{m2 12242}#)))))))) + (#{module 12202}# (vector-ref #{x 12168}# 3))) (vector 'syntax-object - #{expression 12150}# - #{wrap 12151}# - #{module 12152}#)) - (if (null? #{x 12118}#) - #{x 12118}# + #{expression 12200}# + #{wrap 12201}# + #{module 12202}#)) + (if (null? #{x 12168}#) + #{x 12168}# (vector 'syntax-object - #{x 12118}# - #{w 10380}# - #{mod 10382}#)))))))))))) + #{x 12168}# + #{w 10410}# + #{mod 10412}#)))))))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 12223}# #{r 12224}# #{w 12225}#) - (let ((#{tmp 12227}# - ($sc-dispatch #{e 12223}# '(_ each-any any)))) - (if (if #{tmp 12227}# + (lambda (#{e 12273}# #{r 12274}# #{w 12275}#) + (let ((#{tmp 12277}# + ($sc-dispatch #{e 12273}# '(_ each-any any)))) + (if (if #{tmp 12277}# (@apply - (lambda (#{mod 12230}# #{id 12231}#) - (if (and-map #{id? 4343}# #{mod 12230}#) - (if (symbol? #{id 12231}#) + (lambda (#{mod 12280}# #{id 12281}#) + (if (and-map #{id? 4343}# #{mod 12280}#) + (if (symbol? #{id 12281}#) #t - (if (if (vector? #{id 12231}#) - (if (= (vector-length #{id 12231}#) 4) - (eq? (vector-ref #{id 12231}# 0) + (if (if (vector? #{id 12281}#) + (if (= (vector-length #{id 12281}#) 4) + (eq? (vector-ref #{id 12281}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 12231}# 1)) + (symbol? (vector-ref #{id 12281}# 1)) #f)) #f)) - #{tmp 12227}#) + #{tmp 12277}#) #f) (@apply - (lambda (#{mod 12271}# #{id 12272}#) + (lambda (#{mod 12321}# #{id 12322}#) (values - (syntax->datum #{id 12272}#) - #{r 12224}# - #{w 12225}# + (syntax->datum #{id 12322}#) + #{r 12274}# + #{w 12275}# #f (syntax->datum (cons '#(syntax-object @@ -12012,70 +12012,70 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12271}#)))) - #{tmp 12227}#) + #{mod 12321}#)))) + #{tmp 12277}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12223}#)))))) + #{e 12273}#)))))) (#{global-extend 4341}# 'module-ref '@@ - (lambda (#{e 12374}# #{r 12375}# #{w 12376}#) + (lambda (#{e 12426}# #{r 12427}# #{w 12428}#) (letrec* - ((#{remodulate 12377}# - (lambda (#{x 12601}# #{mod 12602}#) - (if (pair? #{x 12601}#) - (cons (#{remodulate 12377}# - (car #{x 12601}#) - #{mod 12602}#) - (#{remodulate 12377}# - (cdr #{x 12601}#) - #{mod 12602}#)) - (if (if (vector? #{x 12601}#) - (if (= (vector-length #{x 12601}#) 4) - (eq? (vector-ref #{x 12601}# 0) 'syntax-object) + ((#{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) #f) #f) - (let ((#{expression 12616}# - (#{remodulate 12377}# - (vector-ref #{x 12601}# 1) - #{mod 12602}#)) - (#{wrap 12617}# (vector-ref #{x 12601}# 2))) + (let ((#{expression 12680}# + (#{remodulate 12429}# + (vector-ref #{x 12665}# 1) + #{mod 12666}#)) + (#{wrap 12681}# (vector-ref #{x 12665}# 2))) (vector 'syntax-object - #{expression 12616}# - #{wrap 12617}# - #{mod 12602}#)) - (if (vector? #{x 12601}#) - (let ((#{n 12625}# (vector-length #{x 12601}#))) - (let ((#{v 12626}# (make-vector #{n 12625}#))) + #{expression 12680}# + #{wrap 12681}# + #{mod 12666}#)) + (if (vector? #{x 12665}#) + (let ((#{n 12689}# (vector-length #{x 12665}#))) + (let ((#{v 12690}# (make-vector #{n 12689}#))) (letrec* - ((#{loop 12627}# - (lambda (#{i 12682}#) - (if (= #{i 12682}# #{n 12625}#) - #{v 12626}# + ((#{loop 12691}# + (lambda (#{i 12746}#) + (if (= #{i 12746}# #{n 12689}#) + #{v 12690}# (begin (vector-set! - #{v 12626}# - #{i 12682}# - (#{remodulate 12377}# - (vector-ref #{x 12601}# #{i 12682}#) - #{mod 12602}#)) - (#{loop 12627}# (#{1+}# #{i 12682}#))))))) - (#{loop 12627}# 0)))) - #{x 12601}#)))))) - (let ((#{tmp 12379}# - ($sc-dispatch #{e 12374}# '(_ each-any any)))) - (if (if #{tmp 12379}# + #{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}# (@apply - (lambda (#{mod 12383}# #{exp 12384}#) - (and-map #{id? 4343}# #{mod 12383}#)) - #{tmp 12379}#) + (lambda (#{mod 12435}# #{exp 12436}#) + (and-map #{id? 4343}# #{mod 12435}#)) + #{tmp 12431}#) #f) (@apply - (lambda (#{mod 12400}# #{exp 12401}#) - (let ((#{mod 12402}# + (lambda (#{mod 12452}# #{exp 12453}#) + (let ((#{mod 12454}# (syntax->datum (cons '#(syntax-object private @@ -12511,181 +12511,181 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12400}#)))) + #{mod 12452}#)))) (values - (#{remodulate 12377}# - #{exp 12401}# - #{mod 12402}#) - #{r 12375}# - #{w 12376}# - (#{source-annotation 4336}# #{exp 12401}#) - #{mod 12402}#))) - #{tmp 12379}#) + (#{remodulate 12429}# + #{exp 12453}# + #{mod 12454}#) + #{r 12427}# + #{w 12428}# + (#{source-annotation 4336}# #{exp 12453}#) + #{mod 12454}#))) + #{tmp 12431}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12374}#)))))) + #{e 12426}#)))))) (#{global-extend 4341}# 'core 'if - (lambda (#{e 12793}# - #{r 12794}# - #{w 12795}# - #{s 12796}# - #{mod 12797}#) - (let ((#{tmp 12799}# - ($sc-dispatch #{e 12793}# '(_ any any)))) - (if #{tmp 12799}# + (lambda (#{e 12859}# + #{r 12860}# + #{w 12861}# + #{s 12862}# + #{mod 12863}#) + (let ((#{tmp 12865}# + ($sc-dispatch #{e 12859}# '(_ any any)))) + (if #{tmp 12865}# (@apply - (lambda (#{test 12803}# #{then 12804}#) + (lambda (#{test 12869}# #{then 12870}#) (#{build-conditional 4310}# - #{s 12796}# + #{s 12862}# (#{chi 4375}# - #{test 12803}# - #{r 12794}# - #{w 12795}# - #{mod 12797}#) + #{test 12869}# + #{r 12860}# + #{w 12861}# + #{mod 12863}#) (#{chi 4375}# - #{then 12804}# - #{r 12794}# - #{w 12795}# - #{mod 12797}#) + #{then 12870}# + #{r 12860}# + #{w 12861}# + #{mod 12863}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 12799}#) - (let ((#{tmp 13059}# - ($sc-dispatch #{e 12793}# '(_ any any any)))) - (if #{tmp 13059}# + #{tmp 12865}#) + (let ((#{tmp 13131}# + ($sc-dispatch #{e 12859}# '(_ any any any)))) + (if #{tmp 13131}# (@apply - (lambda (#{test 13063}# #{then 13064}# #{else 13065}#) + (lambda (#{test 13135}# #{then 13136}# #{else 13137}#) (#{build-conditional 4310}# - #{s 12796}# + #{s 12862}# (#{chi 4375}# - #{test 13063}# - #{r 12794}# - #{w 12795}# - #{mod 12797}#) + #{test 13135}# + #{r 12860}# + #{w 12861}# + #{mod 12863}#) (#{chi 4375}# - #{then 13064}# - #{r 12794}# - #{w 12795}# - #{mod 12797}#) + #{then 13136}# + #{r 12860}# + #{w 12861}# + #{mod 12863}#) (#{chi 4375}# - #{else 13065}# - #{r 12794}# - #{w 12795}# - #{mod 12797}#))) - #{tmp 13059}#) + #{else 13137}# + #{r 12860}# + #{w 12861}# + #{mod 12863}#))) + #{tmp 13131}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12793}#))))))) + #{e 12859}#))))))) (#{global-extend 4341}# 'core 'with-fluids - (lambda (#{e 13514}# - #{r 13515}# - #{w 13516}# - #{s 13517}# - #{mod 13518}#) - (let ((#{tmp 13520}# + (lambda (#{e 13596}# + #{r 13597}# + #{w 13598}# + #{s 13599}# + #{mod 13600}#) + (let ((#{tmp 13602}# ($sc-dispatch - #{e 13514}# + #{e 13596}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 13520}# + (if #{tmp 13602}# (@apply - (lambda (#{fluid 13524}# - #{val 13525}# - #{b 13526}# - #{b* 13527}#) + (lambda (#{fluid 13606}# + #{val 13607}# + #{b 13608}# + #{b* 13609}#) (#{build-dynlet 4311}# - #{s 13517}# - (map (lambda (#{x 13618}#) + #{s 13599}# + (map (lambda (#{x 13702}#) (#{chi 4375}# - #{x 13618}# - #{r 13515}# - #{w 13516}# - #{mod 13518}#)) - #{fluid 13524}#) - (map (lambda (#{x 13698}#) + #{x 13702}# + #{r 13597}# + #{w 13598}# + #{mod 13600}#)) + #{fluid 13606}#) + (map (lambda (#{x 13784}#) (#{chi 4375}# - #{x 13698}# - #{r 13515}# - #{w 13516}# - #{mod 13518}#)) - #{val 13525}#) + #{x 13784}# + #{r 13597}# + #{w 13598}# + #{mod 13600}#)) + #{val 13607}#) (#{chi-body 4379}# - (cons #{b 13526}# #{b* 13527}#) - (let ((#{x 13789}# + (cons #{b 13608}# #{b* 13609}#) + (let ((#{x 13877}# (begin - (if (if (pair? #{e 13514}#) #{s 13517}# #f) + (if (if (pair? #{e 13596}#) #{s 13599}# #f) (set-source-properties! - #{e 13514}# - #{s 13517}#)) - #{e 13514}#))) - (if (if (null? (car #{w 13516}#)) - (null? (cdr #{w 13516}#)) + #{e 13596}# + #{s 13599}#)) + #{e 13596}#))) + (if (if (null? (car #{w 13598}#)) + (null? (cdr #{w 13598}#)) #f) - #{x 13789}# - (if (if (vector? #{x 13789}#) - (if (= (vector-length #{x 13789}#) 4) - (eq? (vector-ref #{x 13789}# 0) 'syntax-object) + #{x 13877}# + (if (if (vector? #{x 13877}#) + (if (= (vector-length #{x 13877}#) 4) + (eq? (vector-ref #{x 13877}# 0) 'syntax-object) #f) #f) - (let ((#{expression 13821}# - (vector-ref #{x 13789}# 1)) - (#{wrap 13822}# - (let ((#{w2 13830}# - (vector-ref #{x 13789}# 2))) - (let ((#{m1 13831}# (car #{w 13516}#)) - (#{s1 13832}# (cdr #{w 13516}#))) - (if (null? #{m1 13831}#) - (if (null? #{s1 13832}#) - #{w2 13830}# - (cons (car #{w2 13830}#) - (let ((#{m2 13847}# - (cdr #{w2 13830}#))) - (if (null? #{m2 13847}#) - #{s1 13832}# + (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}# (append - #{s1 13832}# - #{m2 13847}#))))) - (cons (let ((#{m2 13855}# - (car #{w2 13830}#))) - (if (null? #{m2 13855}#) - #{m1 13831}# + #{s1 13920}# + #{m2 13935}#))))) + (cons (let ((#{m2 13943}# + (car #{w2 13918}#))) + (if (null? #{m2 13943}#) + #{m1 13919}# (append - #{m1 13831}# - #{m2 13855}#))) - (let ((#{m2 13863}# - (cdr #{w2 13830}#))) - (if (null? #{m2 13863}#) - #{s1 13832}# + #{m1 13919}# + #{m2 13943}#))) + (let ((#{m2 13951}# + (cdr #{w2 13918}#))) + (if (null? #{m2 13951}#) + #{s1 13920}# (append - #{s1 13832}# - #{m2 13863}#)))))))) - (#{module 13823}# (vector-ref #{x 13789}# 3))) + #{s1 13920}# + #{m2 13951}#)))))))) + (#{module 13911}# (vector-ref #{x 13877}# 3))) (vector 'syntax-object - #{expression 13821}# - #{wrap 13822}# - #{module 13823}#)) - (if (null? #{x 13789}#) - #{x 13789}# + #{expression 13909}# + #{wrap 13910}# + #{module 13911}#)) + (if (null? #{x 13877}#) + #{x 13877}# (vector 'syntax-object - #{x 13789}# - #{w 13516}# - #{mod 13518}#))))) - #{r 13515}# - #{w 13516}# - #{mod 13518}#))) - #{tmp 13520}#) + #{x 13877}# + #{w 13598}# + #{mod 13600}#))))) + #{r 13597}# + #{w 13598}# + #{mod 13600}#))) + #{tmp 13602}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 13514}#))))) + #{e 13596}#))))) (module-define! (current-module) 'begin @@ -12712,64 +12712,64 @@ 'core 'syntax-case (letrec* - ((#{convert-pattern 14157}# - (lambda (#{pattern 15795}# #{keys 15796}#) + ((#{convert-pattern 14245}# + (lambda (#{pattern 15901}# #{keys 15902}#) (letrec* - ((#{cvt* 15797}# - (lambda (#{p* 16596}# #{n 16597}# #{ids 16598}#) - (if (not (pair? #{p* 16596}#)) - (#{cvt 15799}# - #{p* 16596}# - #{n 16597}# - #{ids 16598}#) + ((#{cvt* 15903}# + (lambda (#{p* 16702}# #{n 16703}# #{ids 16704}#) + (if (not (pair? #{p* 16702}#)) + (#{cvt 15905}# + #{p* 16702}# + #{n 16703}# + #{ids 16704}#) (call-with-values (lambda () - (#{cvt* 15797}# - (cdr #{p* 16596}#) - #{n 16597}# - #{ids 16598}#)) - (lambda (#{y 16601}# #{ids 16602}#) + (#{cvt* 15903}# + (cdr #{p* 16702}#) + #{n 16703}# + #{ids 16704}#)) + (lambda (#{y 16707}# #{ids 16708}#) (call-with-values (lambda () - (#{cvt 15799}# - (car #{p* 16596}#) - #{n 16597}# - #{ids 16602}#)) - (lambda (#{x 16605}# #{ids 16606}#) + (#{cvt 15905}# + (car #{p* 16702}#) + #{n 16703}# + #{ids 16708}#)) + (lambda (#{x 16711}# #{ids 16712}#) (values - (cons #{x 16605}# #{y 16601}#) - #{ids 16606}#)))))))) - (#{v-reverse 15798}# - (lambda (#{x 16607}#) + (cons #{x 16711}# #{y 16707}#) + #{ids 16712}#)))))))) + (#{v-reverse 15904}# + (lambda (#{x 16713}#) (letrec* - ((#{loop 16608}# - (lambda (#{r 16709}# #{x 16710}#) - (if (not (pair? #{x 16710}#)) - (values #{r 16709}# #{x 16710}#) - (#{loop 16608}# - (cons (car #{x 16710}#) #{r 16709}#) - (cdr #{x 16710}#)))))) - (#{loop 16608}# '() #{x 16607}#)))) - (#{cvt 15799}# - (lambda (#{p 15802}# #{n 15803}# #{ids 15804}#) - (if (if (symbol? #{p 15802}#) + ((#{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}#) #t - (if (if (vector? #{p 15802}#) - (if (= (vector-length #{p 15802}#) 4) - (eq? (vector-ref #{p 15802}# 0) + (if (if (vector? #{p 15908}#) + (if (= (vector-length #{p 15908}#) 4) + (eq? (vector-ref #{p 15908}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 15802}# 1)) + (symbol? (vector-ref #{p 15908}# 1)) #f)) (if (#{bound-id-member? 4367}# - #{p 15802}# - #{keys 15796}#) + #{p 15908}# + #{keys 15902}#) (values - (vector 'free-id #{p 15802}#) - #{ids 15804}#) + (vector 'free-id #{p 15908}#) + #{ids 15910}#) (if (#{free-id=? 4363}# - #{p 15802}# + #{p 15908}# '#(syntax-object _ ((top) @@ -13215,30 +13215,30 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))) - (values '_ #{ids 15804}#) + (values '_ #{ids 15910}#) (values 'any - (cons (cons #{p 15802}# #{n 15803}#) - #{ids 15804}#)))) - (let ((#{tmp 15936}# - ($sc-dispatch #{p 15802}# '(any any)))) - (if (if #{tmp 15936}# + (cons (cons #{p 15908}# #{n 15909}#) + #{ids 15910}#)))) + (let ((#{tmp 16042}# + ($sc-dispatch #{p 15908}# '(any any)))) + (if (if #{tmp 16042}# (@apply - (lambda (#{x 15940}# #{dots 15941}#) - (if (if (if (vector? #{dots 15941}#) + (lambda (#{x 16046}# #{dots 16047}#) + (if (if (if (vector? #{dots 16047}#) (if (= (vector-length - #{dots 15941}#) + #{dots 16047}#) 4) (eq? (vector-ref - #{dots 15941}# + #{dots 16047}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 15941}# 1)) + (symbol? (vector-ref #{dots 16047}# 1)) #f) (#{free-id=? 4363}# - #{dots 15941}# + #{dots 16047}# '#(syntax-object ... ((top) @@ -13668,45 +13668,45 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)) - #{tmp 15936}#) + #{tmp 16042}#) #f) (@apply - (lambda (#{x 15980}# #{dots 15981}#) + (lambda (#{x 16086}# #{dots 16087}#) (call-with-values (lambda () - (#{cvt 15799}# - #{x 15980}# - (#{1+}# #{n 15803}#) - #{ids 15804}#)) - (lambda (#{p 15982}# #{ids 15983}#) + (#{cvt 15905}# + #{x 16086}# + (#{1+}# #{n 15909}#) + #{ids 15910}#)) + (lambda (#{p 16088}# #{ids 16089}#) (values - (if (eq? #{p 15982}# 'any) + (if (eq? #{p 16088}# 'any) 'each-any - (vector 'each #{p 15982}#)) - #{ids 15983}#)))) - #{tmp 15936}#) - (let ((#{tmp 15984}# - ($sc-dispatch #{p 15802}# '(any any . any)))) - (if (if #{tmp 15984}# + (vector 'each #{p 16088}#)) + #{ids 16089}#)))) + #{tmp 16042}#) + (let ((#{tmp 16090}# + ($sc-dispatch #{p 15908}# '(any any . any)))) + (if (if #{tmp 16090}# (@apply - (lambda (#{x 15988}# - #{dots 15989}# - #{ys 15990}#) - (if (if (if (vector? #{dots 15989}#) + (lambda (#{x 16094}# + #{dots 16095}# + #{ys 16096}#) + (if (if (if (vector? #{dots 16095}#) (if (= (vector-length - #{dots 15989}#) + #{dots 16095}#) 4) (eq? (vector-ref - #{dots 15989}# + #{dots 16095}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 15989}# 1)) + (vector-ref #{dots 16095}# 1)) #f) (#{free-id=? 4363}# - #{dots 15989}# + #{dots 16095}# '#(syntax-object ... ((top) @@ -14139,175 +14139,175 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)) - #{tmp 15984}#) + #{tmp 16090}#) #f) (@apply - (lambda (#{x 16029}# - #{dots 16030}# - #{ys 16031}#) + (lambda (#{x 16135}# + #{dots 16136}# + #{ys 16137}#) (call-with-values (lambda () - (#{cvt* 15797}# - #{ys 16031}# - #{n 15803}# - #{ids 15804}#)) - (lambda (#{ys 16516}# #{ids 16517}#) + (#{cvt* 15903}# + #{ys 16137}# + #{n 15909}# + #{ids 15910}#)) + (lambda (#{ys 16622}# #{ids 16623}#) (call-with-values (lambda () - (#{cvt 15799}# - #{x 16029}# - (#{1+}# #{n 15803}#) - #{ids 16517}#)) - (lambda (#{x 16518}# #{ids 16519}#) + (#{cvt 15905}# + #{x 16135}# + (#{1+}# #{n 15909}#) + #{ids 16623}#)) + (lambda (#{x 16624}# #{ids 16625}#) (call-with-values (lambda () - (#{v-reverse 15798}# - #{ys 16516}#)) - (lambda (#{ys 16555}# #{e 16556}#) + (#{v-reverse 15904}# + #{ys 16622}#)) + (lambda (#{ys 16661}# #{e 16662}#) (values (vector 'each+ - #{x 16518}# - #{ys 16555}# - #{e 16556}#) - #{ids 16519}#)))))))) - #{tmp 15984}#) - (let ((#{tmp 16557}# - ($sc-dispatch #{p 15802}# '(any . any)))) - (if #{tmp 16557}# + #{x 16624}# + #{ys 16661}# + #{e 16662}#) + #{ids 16625}#)))))))) + #{tmp 16090}#) + (let ((#{tmp 16663}# + ($sc-dispatch #{p 15908}# '(any . any)))) + (if #{tmp 16663}# (@apply - (lambda (#{x 16561}# #{y 16562}#) + (lambda (#{x 16667}# #{y 16668}#) (call-with-values (lambda () - (#{cvt 15799}# - #{y 16562}# - #{n 15803}# - #{ids 15804}#)) - (lambda (#{y 16563}# #{ids 16564}#) + (#{cvt 15905}# + #{y 16668}# + #{n 15909}# + #{ids 15910}#)) + (lambda (#{y 16669}# #{ids 16670}#) (call-with-values (lambda () - (#{cvt 15799}# - #{x 16561}# - #{n 15803}# - #{ids 16564}#)) - (lambda (#{x 16565}# #{ids 16566}#) + (#{cvt 15905}# + #{x 16667}# + #{n 15909}# + #{ids 16670}#)) + (lambda (#{x 16671}# #{ids 16672}#) (values - (cons #{x 16565}# #{y 16563}#) - #{ids 16566}#)))))) - #{tmp 16557}#) - (let ((#{tmp 16567}# - ($sc-dispatch #{p 15802}# '()))) - (if #{tmp 16567}# + (cons #{x 16671}# #{y 16669}#) + #{ids 16672}#)))))) + #{tmp 16663}#) + (let ((#{tmp 16673}# + ($sc-dispatch #{p 15908}# '()))) + (if #{tmp 16673}# (@apply - (lambda () (values '() #{ids 15804}#)) - #{tmp 16567}#) - (let ((#{tmp 16571}# + (lambda () (values '() #{ids 15910}#)) + #{tmp 16673}#) + (let ((#{tmp 16677}# ($sc-dispatch - #{p 15802}# + #{p 15908}# '#(vector each-any)))) - (if #{tmp 16571}# + (if #{tmp 16677}# (@apply - (lambda (#{x 16575}#) + (lambda (#{x 16681}#) (call-with-values (lambda () - (#{cvt 15799}# - #{x 16575}# - #{n 15803}# - #{ids 15804}#)) - (lambda (#{p 16576}# - #{ids 16577}#) + (#{cvt 15905}# + #{x 16681}# + #{n 15909}# + #{ids 15910}#)) + (lambda (#{p 16682}# + #{ids 16683}#) (values (vector 'vector - #{p 16576}#) - #{ids 16577}#)))) - #{tmp 16571}#) + #{p 16682}#) + #{ids 16683}#)))) + #{tmp 16677}#) (values (vector 'atom (#{strip 4388}# - #{p 15802}# + #{p 15908}# '(()))) - #{ids 15804}#))))))))))))))) - (#{cvt 15799}# #{pattern 15795}# 0 '())))) - (#{build-dispatch-call 14158}# - (lambda (#{pvars 16711}# - #{exp 16712}# - #{y 16713}# - #{r 16714}# - #{mod 16715}#) - (let ((#{ids 16716}# (map car #{pvars 16711}#))) + #{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}#))) (begin - (map cdr #{pvars 16711}#) - (let ((#{labels 16718}# - (#{gen-labels 4346}# #{ids 16716}#)) - (#{new-vars 16719}# - (map #{gen-var 4389}# #{ids 16716}#))) + (map cdr #{pvars 16817}#) + (let ((#{labels 16824}# + (#{gen-labels 4346}# #{ids 16822}#)) + (#{new-vars 16825}# + (map #{gen-var 4389}# #{ids 16822}#))) (#{build-primcall 4321}# #f 'apply (list (#{build-simple-lambda 4318}# #f - (map syntax->datum #{ids 16716}#) + (map syntax->datum #{ids 16822}#) #f - #{new-vars 16719}# + #{new-vars 16825}# '() (#{chi 4375}# - #{exp 16712}# + #{exp 16818}# (#{extend-env 4337}# - #{labels 16718}# - (map (lambda (#{var 17051}# #{level 17052}#) + #{labels 16824}# + (map (lambda (#{var 17157}# #{level 17158}#) (cons 'syntax - (cons #{var 17051}# - #{level 17052}#))) - #{new-vars 16719}# - (map cdr #{pvars 16711}#)) - #{r 16714}#) + (cons #{var 17157}# + #{level 17158}#))) + #{new-vars 16825}# + (map cdr #{pvars 16817}#)) + #{r 16820}#) (#{make-binding-wrap 4357}# - #{ids 16716}# - #{labels 16718}# + #{ids 16822}# + #{labels 16824}# '(())) - #{mod 16715}#)) - #{y 16713}#))))))) - (#{gen-clause 14159}# - (lambda (#{x 15389}# - #{keys 15390}# - #{clauses 15391}# - #{r 15392}# - #{pat 15393}# - #{fender 15394}# - #{exp 15395}# - #{mod 15396}#) + #{mod 16821}#)) + #{y 16819}#))))))) + (#{gen-clause 14247}# + (lambda (#{x 15495}# + #{keys 15496}# + #{clauses 15497}# + #{r 15498}# + #{pat 15499}# + #{fender 15500}# + #{exp 15501}# + #{mod 15502}#) (call-with-values (lambda () - (#{convert-pattern 14157}# - #{pat 15393}# - #{keys 15390}#)) - (lambda (#{p 15534}# #{pvars 15535}#) + (#{convert-pattern 14245}# + #{pat 15499}# + #{keys 15496}#)) + (lambda (#{p 15640}# #{pvars 15641}#) (if (not (#{distinct-bound-ids? 4366}# - (map car #{pvars 15535}#))) + (map car #{pvars 15641}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 15393}#) + #{pat 15499}#) (if (not (and-map - (lambda (#{x 15644}#) - (not (let ((#{x 15648}# (car #{x 15644}#))) - (if (if (if (vector? #{x 15648}#) + (lambda (#{x 15750}#) + (not (let ((#{x 15754}# (car #{x 15750}#))) + (if (if (if (vector? #{x 15754}#) (if (= (vector-length - #{x 15648}#) + #{x 15754}#) 4) (eq? (vector-ref - #{x 15648}# + #{x 15754}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 15648}# 1)) + (vector-ref #{x 15754}# 1)) #f) (#{free-id=? 4363}# - #{x 15648}# + #{x 15754}# '#(syntax-object ... ((top) @@ -14740,43 +14740,43 @@ ("i46" "i45" "i44"))) (hygiene guile))) #f)))) - #{pvars 15535}#)) + #{pvars 15641}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 15393}#) - (let ((#{y 15673}# + #{pat 15499}#) + (let ((#{y 15779}# (gensym (string-append (symbol->string 'tmp) " ")))) - (let ((#{fun-exp 15678}# - (let ((#{req 15687}# (list 'tmp)) - (#{vars 15689}# (list #{y 15673}#)) - (#{exp 15691}# - (let ((#{y 15720}# + (let ((#{fun-exp 15784}# + (let ((#{req 15793}# (list 'tmp)) + (#{vars 15795}# (list #{y 15779}#)) + (#{exp 15797}# + (let ((#{y 15826}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 15673}#))) - (let ((#{test-exp 15724}# - (let ((#{tmp 15733}# + #{y 15779}#))) + (let ((#{test-exp 15830}# + (let ((#{tmp 15839}# ($sc-dispatch - #{fender 15394}# + #{fender 15500}# '#(atom #t)))) - (if #{tmp 15733}# + (if #{tmp 15839}# (@apply - (lambda () #{y 15720}#) - #{tmp 15733}#) - (let ((#{then-exp 15751}# - (#{build-dispatch-call 14158}# - #{pvars 15535}# - #{fender 15394}# - #{y 15720}# - #{r 15392}# - #{mod 15396}#)) - (#{else-exp 15752}# + (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}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -14788,81 +14788,81 @@ %expanded-vtables 10) #f - #{y 15720}# - #{then-exp 15751}# - #{else-exp 15752}#))))) - (#{then-exp 15725}# - (#{build-dispatch-call 14158}# - #{pvars 15535}# - #{exp 15395}# - #{y 15720}# - #{r 15392}# - #{mod 15396}#)) - (#{else-exp 15726}# - (#{gen-syntax-case 14160}# - #{x 15389}# - #{keys 15390}# - #{clauses 15391}# - #{r 15392}# - #{mod 15396}#))) + #{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}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 15724}# - #{then-exp 15725}# - #{else-exp 15726}#))))) - (let ((#{body 15696}# + #{test-exp 15830}# + #{then-exp 15831}# + #{else-exp 15832}#))))) + (let ((#{body 15802}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 15687}# + #{req 15793}# #f #f #f '() - #{vars 15689}# - #{exp 15691}# + #{vars 15795}# + #{exp 15797}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 15696}#)))) - (#{arg-exps 15679}# - (list (if (eq? #{p 15534}# 'any) - (let ((#{args 15774}# - (list #{x 15389}#))) + #{body 15802}#)))) + (#{arg-exps 15785}# + (list (if (eq? #{p 15640}# 'any) + (let ((#{args 15880}# + (list #{x 15495}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'list - #{args 15774}#)) - (let ((#{args 15783}# - (list #{x 15389}# + #{args 15880}#)) + (let ((#{args 15889}# + (list #{x 15495}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 15534}#)))) + #{p 15640}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f '$sc-dispatch - #{args 15783}#)))))) + #{args 15889}#)))))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 15678}# - #{arg-exps 15679}#))))))))) - (#{gen-syntax-case 14160}# - (lambda (#{x 14888}# - #{keys 14889}# - #{clauses 14890}# - #{r 14891}# - #{mod 14892}#) - (if (null? #{clauses 14890}#) - (let ((#{args 14898}# + #{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}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -14871,34 +14871,34 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 14888}#))) + #{x 14992}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'syntax-violation - #{args 14898}#)) - (let ((#{tmp 14917}# (car #{clauses 14890}#))) - (let ((#{tmp 14918}# - ($sc-dispatch #{tmp 14917}# '(any any)))) - (if #{tmp 14918}# + #{args 15002}#)) + (let ((#{tmp 15021}# (car #{clauses 14994}#))) + (let ((#{tmp 15022}# + ($sc-dispatch #{tmp 15021}# '(any any)))) + (if #{tmp 15022}# (@apply - (lambda (#{pat 14920}# #{exp 14921}#) - (if (if (if (symbol? #{pat 14920}#) + (lambda (#{pat 15024}# #{exp 15025}#) + (if (if (if (symbol? #{pat 15024}#) #t - (if (if (vector? #{pat 14920}#) - (if (= (vector-length #{pat 14920}#) + (if (if (vector? #{pat 15024}#) + (if (= (vector-length #{pat 15024}#) 4) - (eq? (vector-ref #{pat 14920}# 0) + (eq? (vector-ref #{pat 15024}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 14920}# 1)) + (symbol? (vector-ref #{pat 15024}# 1)) #f)) (and-map - (lambda (#{x 14948}#) + (lambda (#{x 15052}#) (not (#{free-id=? 4363}# - #{pat 14920}# - #{x 14948}#))) + #{pat 15024}# + #{x 15052}#))) (cons '#(syntax-object ... ((top) @@ -15344,7 +15344,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 14889}#)) + #{keys 14993}#)) #f) (if (#{free-id=? 4363}# '#(syntax-object @@ -16238,180 +16238,180 @@ ("i46" "i45" "i44"))) (hygiene guile))) (#{chi 4375}# - #{exp 14921}# - #{r 14891}# + #{exp 15025}# + #{r 14995}# '(()) - #{mod 14892}#) - (let ((#{labels 15032}# + #{mod 14996}#) + (let ((#{labels 15138}# (list (symbol->string (gensym "i")))) - (#{var 15033}# - (let ((#{id 15071}# - (if (if (vector? #{pat 14920}#) + (#{var 15139}# + (let ((#{id 15177}# + (if (if (vector? #{pat 15024}#) (if (= (vector-length - #{pat 14920}#) + #{pat 15024}#) 4) (eq? (vector-ref - #{pat 14920}# + #{pat 15024}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 14920}# 1) - #{pat 14920}#))) + (vector-ref #{pat 15024}# 1) + #{pat 15024}#))) (gensym (string-append - (symbol->string #{id 15071}#) + (symbol->string #{id 15177}#) " "))))) (#{build-call 4309}# #f (#{build-simple-lambda 4318}# #f - (list (syntax->datum #{pat 14920}#)) + (list (syntax->datum #{pat 15024}#)) #f - (list #{var 15033}#) + (list #{var 15139}#) '() (#{chi 4375}# - #{exp 14921}# + #{exp 15025}# (#{extend-env 4337}# - #{labels 15032}# + #{labels 15138}# (list (cons 'syntax - (cons #{var 15033}# 0))) - #{r 14891}#) + (cons #{var 15139}# 0))) + #{r 14995}#) (#{make-binding-wrap 4357}# - (list #{pat 14920}#) - #{labels 15032}# + (list #{pat 15024}#) + #{labels 15138}# '(())) - #{mod 14892}#)) - (list #{x 14888}#)))) - (#{gen-clause 14159}# - #{x 14888}# - #{keys 14889}# - (cdr #{clauses 14890}#) - #{r 14891}# - #{pat 14920}# + #{mod 14996}#)) + (list #{x 14992}#)))) + (#{gen-clause 14247}# + #{x 14992}# + #{keys 14993}# + (cdr #{clauses 14994}#) + #{r 14995}# + #{pat 15024}# #t - #{exp 14921}# - #{mod 14892}#))) - #{tmp 14918}#) - (let ((#{tmp 15381}# - ($sc-dispatch #{tmp 14917}# '(any any any)))) - (if #{tmp 15381}# + #{exp 15025}# + #{mod 14996}#))) + #{tmp 15022}#) + (let ((#{tmp 15487}# + ($sc-dispatch #{tmp 15021}# '(any any any)))) + (if #{tmp 15487}# (@apply - (lambda (#{pat 15383}# - #{fender 15384}# - #{exp 15385}#) - (#{gen-clause 14159}# - #{x 14888}# - #{keys 14889}# - (cdr #{clauses 14890}#) - #{r 14891}# - #{pat 15383}# - #{fender 15384}# - #{exp 15385}# - #{mod 14892}#)) - #{tmp 15381}#) + (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}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 14890}#))))))))))) - (lambda (#{e 14161}# - #{r 14162}# - #{w 14163}# - #{s 14164}# - #{mod 14165}#) - (let ((#{e 14166}# - (let ((#{x 14799}# + (car #{clauses 14994}#))))))))))) + (lambda (#{e 14249}# + #{r 14250}# + #{w 14251}# + #{s 14252}# + #{mod 14253}#) + (let ((#{e 14254}# + (let ((#{x 14903}# (begin - (if (if (pair? #{e 14161}#) #{s 14164}# #f) - (set-source-properties! #{e 14161}# #{s 14164}#)) - #{e 14161}#))) - (if (if (null? (car #{w 14163}#)) - (null? (cdr #{w 14163}#)) + (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}#)) #f) - #{x 14799}# - (if (if (vector? #{x 14799}#) - (if (= (vector-length #{x 14799}#) 4) - (eq? (vector-ref #{x 14799}# 0) 'syntax-object) + #{x 14903}# + (if (if (vector? #{x 14903}#) + (if (= (vector-length #{x 14903}#) 4) + (eq? (vector-ref #{x 14903}# 0) 'syntax-object) #f) #f) - (let ((#{expression 14831}# (vector-ref #{x 14799}# 1)) - (#{wrap 14832}# - (let ((#{w2 14840}# - (vector-ref #{x 14799}# 2))) - (let ((#{m1 14841}# (car #{w 14163}#)) - (#{s1 14842}# (cdr #{w 14163}#))) - (if (null? #{m1 14841}#) - (if (null? #{s1 14842}#) - #{w2 14840}# - (cons (car #{w2 14840}#) - (let ((#{m2 14857}# - (cdr #{w2 14840}#))) - (if (null? #{m2 14857}#) - #{s1 14842}# + (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}# (append - #{s1 14842}# - #{m2 14857}#))))) - (cons (let ((#{m2 14865}# - (car #{w2 14840}#))) - (if (null? #{m2 14865}#) - #{m1 14841}# + #{s1 14946}# + #{m2 14961}#))))) + (cons (let ((#{m2 14969}# + (car #{w2 14944}#))) + (if (null? #{m2 14969}#) + #{m1 14945}# (append - #{m1 14841}# - #{m2 14865}#))) - (let ((#{m2 14873}# - (cdr #{w2 14840}#))) - (if (null? #{m2 14873}#) - #{s1 14842}# + #{m1 14945}# + #{m2 14969}#))) + (let ((#{m2 14977}# + (cdr #{w2 14944}#))) + (if (null? #{m2 14977}#) + #{s1 14946}# (append - #{s1 14842}# - #{m2 14873}#)))))))) - (#{module 14833}# (vector-ref #{x 14799}# 3))) + #{s1 14946}# + #{m2 14977}#)))))))) + (#{module 14937}# (vector-ref #{x 14903}# 3))) (vector 'syntax-object - #{expression 14831}# - #{wrap 14832}# - #{module 14833}#)) - (if (null? #{x 14799}#) - #{x 14799}# + #{expression 14935}# + #{wrap 14936}# + #{module 14937}#)) + (if (null? #{x 14903}#) + #{x 14903}# (vector 'syntax-object - #{x 14799}# - #{w 14163}# - #{mod 14165}#))))))) - (let ((#{tmp 14167}# #{e 14166}#)) - (let ((#{tmp 14168}# + #{x 14903}# + #{w 14251}# + #{mod 14253}#))))))) + (let ((#{tmp 14255}# #{e 14254}#)) + (let ((#{tmp 14256}# ($sc-dispatch - #{tmp 14167}# + #{tmp 14255}# '(_ any each-any . each-any)))) - (if #{tmp 14168}# + (if #{tmp 14256}# (@apply - (lambda (#{val 14216}# #{key 14217}# #{m 14218}#) + (lambda (#{val 14308}# #{key 14309}# #{m 14310}#) (if (and-map - (lambda (#{x 14219}#) - (if (if (symbol? #{x 14219}#) + (lambda (#{x 14311}#) + (if (if (symbol? #{x 14311}#) #t - (if (if (vector? #{x 14219}#) - (if (= (vector-length #{x 14219}#) 4) - (eq? (vector-ref #{x 14219}# 0) + (if (if (vector? #{x 14311}#) + (if (= (vector-length #{x 14311}#) 4) + (eq? (vector-ref #{x 14311}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14219}# 1)) + (symbol? (vector-ref #{x 14311}# 1)) #f)) - (not (if (if (if (vector? #{x 14219}#) + (not (if (if (if (vector? #{x 14311}#) (if (= (vector-length - #{x 14219}#) + #{x 14311}#) 4) (eq? (vector-ref - #{x 14219}# + #{x 14311}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14219}# 1)) + (symbol? (vector-ref #{x 14311}# 1)) #f) (#{free-id=? 4363}# - #{x 14219}# + #{x 14311}# '#(syntax-object ... ((top) @@ -16845,790 +16845,790 @@ (hygiene guile))) #f)) #f)) - #{key 14217}#) - (let ((#{x 14284}# + #{key 14309}#) + (let ((#{x 14376}# (gensym (string-append (symbol->string 'tmp) " ")))) (#{build-call 4309}# - #{s 14164}# - (let ((#{req 14424}# (list 'tmp)) - (#{vars 14426}# (list #{x 14284}#)) - (#{exp 14428}# - (#{gen-syntax-case 14160}# + #{s 14252}# + (let ((#{req 14518}# (list 'tmp)) + (#{vars 14520}# (list #{x 14376}#)) + (#{exp 14522}# + (#{gen-syntax-case 14248}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 14284}#) - #{key 14217}# - #{m 14218}# - #{r 14162}# - #{mod 14165}#))) - (let ((#{body 14433}# + #{x 14376}#) + #{key 14309}# + #{m 14310}# + #{r 14250}# + #{mod 14253}#))) + (let ((#{body 14527}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f - #{req 14424}# + #{req 14518}# #f #f #f '() - #{vars 14426}# - #{exp 14428}# + #{vars 14520}# + #{exp 14522}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() - #{body 14433}#))) + #{body 14527}#))) (list (#{chi 4375}# - #{val 14216}# - #{r 14162}# + #{val 14308}# + #{r 14250}# '(()) - #{mod 14165}#)))) + #{mod 14253}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 14166}#))) - #{tmp 14168}#) + #{e 14254}#))) + #{tmp 14256}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 14167}#)))))))) + #{tmp 14255}#)))))))) (set! macroexpand (lambda* - (#{x 17153}# + (#{x 17259}# #:optional - (#{m 17154}# 'e) - (#{esew 17155}# '(eval))) + (#{m 17260}# 'e) + (#{esew 17261}# '(eval))) (#{chi-top-sequence 4371}# - (list #{x 17153}#) + (list #{x 17259}#) '() '((top)) #f - #{m 17154}# - #{esew 17155}# + #{m 17260}# + #{esew 17261}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 17158}#) - (if (if (vector? #{x 17158}#) - (if (= (vector-length #{x 17158}#) 4) - (eq? (vector-ref #{x 17158}# 0) 'syntax-object) + (lambda (#{x 17264}#) + (if (if (vector? #{x 17264}#) + (if (= (vector-length #{x 17264}#) 4) + (eq? (vector-ref #{x 17264}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17158}# 1)) + (symbol? (vector-ref #{x 17264}# 1)) #f))) (set! datum->syntax - (lambda (#{id 17183}# #{datum 17184}#) - (let ((#{wrap 17189}# (vector-ref #{id 17183}# 2)) - (#{module 17190}# (vector-ref #{id 17183}# 3))) + (lambda (#{id 17289}# #{datum 17290}#) + (let ((#{wrap 17295}# (vector-ref #{id 17289}# 2)) + (#{module 17296}# (vector-ref #{id 17289}# 3))) (vector 'syntax-object - #{datum 17184}# - #{wrap 17189}# - #{module 17190}#)))) + #{datum 17290}# + #{wrap 17295}# + #{module 17296}#)))) (set! syntax->datum - (lambda (#{x 17197}#) - (#{strip 4388}# #{x 17197}# '(())))) + (lambda (#{x 17303}#) + (#{strip 4388}# #{x 17303}# '(())))) (set! syntax-source - (lambda (#{x 17200}#) - (#{source-annotation 4336}# #{x 17200}#))) + (lambda (#{x 17306}#) + (#{source-annotation 4336}# #{x 17306}#))) (set! generate-temporaries - (lambda (#{ls 17390}#) + (lambda (#{ls 17508}#) (begin - (if (not (list? #{ls 17390}#)) + (if (not (list? #{ls 17508}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 17390}#)) - (let ((#{mod 17398}# + #{ls 17508}#)) + (let ((#{mod 17516}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 17399}#) - (let ((#{x 17403}# (gensym))) - (if (if (vector? #{x 17403}#) - (if (= (vector-length #{x 17403}#) 4) - (eq? (vector-ref #{x 17403}# 0) 'syntax-object) + (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) #f) #f) - (let ((#{expression 17418}# (vector-ref #{x 17403}# 1)) - (#{wrap 17419}# - (let ((#{w2 17427}# (vector-ref #{x 17403}# 2))) - (cons (let ((#{m2 17434}# (car #{w2 17427}#))) - (if (null? #{m2 17434}#) + (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}#) '(top) - (append '(top) #{m2 17434}#))) - (let ((#{m2 17441}# (cdr #{w2 17427}#))) - (if (null? #{m2 17441}#) + (append '(top) #{m2 17552}#))) + (let ((#{m2 17559}# (cdr #{w2 17545}#))) + (if (null? #{m2 17559}#) '() - (append '() #{m2 17441}#)))))) - (#{module 17420}# (vector-ref #{x 17403}# 3))) + (append '() #{m2 17559}#)))))) + (#{module 17538}# (vector-ref #{x 17521}# 3))) (vector 'syntax-object - #{expression 17418}# - #{wrap 17419}# - #{module 17420}#)) - (if (null? #{x 17403}#) - #{x 17403}# + #{expression 17536}# + #{wrap 17537}# + #{module 17538}#)) + (if (null? #{x 17521}#) + #{x 17521}# (vector 'syntax-object - #{x 17403}# + #{x 17521}# '((top)) - #{mod 17398}#))))) - #{ls 17390}#))))) + #{mod 17516}#))))) + #{ls 17508}#))))) (set! free-identifier=? - (lambda (#{x 17450}# #{y 17451}#) + (lambda (#{x 17568}# #{y 17569}#) (begin - (if (not (if (if (vector? #{x 17450}#) - (if (= (vector-length #{x 17450}#) 4) - (eq? (vector-ref #{x 17450}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 17568}#) + (if (= (vector-length #{x 17568}#) 4) + (eq? (vector-ref #{x 17568}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17450}# 1)) + (symbol? (vector-ref #{x 17568}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 17450}#)) - (if (not (if (if (vector? #{y 17451}#) - (if (= (vector-length #{y 17451}#) 4) - (eq? (vector-ref #{y 17451}# 0) 'syntax-object) + #{x 17568}#)) + (if (not (if (if (vector? #{y 17569}#) + (if (= (vector-length #{y 17569}#) 4) + (eq? (vector-ref #{y 17569}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 17451}# 1)) + (symbol? (vector-ref #{y 17569}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 17451}#)) - (#{free-id=? 4363}# #{x 17450}# #{y 17451}#)))) + #{y 17569}#)) + (#{free-id=? 4363}# #{x 17568}# #{y 17569}#)))) (set! bound-identifier=? - (lambda (#{x 17526}# #{y 17527}#) + (lambda (#{x 17644}# #{y 17645}#) (begin - (if (not (if (if (vector? #{x 17526}#) - (if (= (vector-length #{x 17526}#) 4) - (eq? (vector-ref #{x 17526}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 17644}#) + (if (= (vector-length #{x 17644}#) 4) + (eq? (vector-ref #{x 17644}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17526}# 1)) + (symbol? (vector-ref #{x 17644}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 17526}#)) - (if (not (if (if (vector? #{y 17527}#) - (if (= (vector-length #{y 17527}#) 4) - (eq? (vector-ref #{y 17527}# 0) 'syntax-object) + #{x 17644}#)) + (if (not (if (if (vector? #{y 17645}#) + (if (= (vector-length #{y 17645}#) 4) + (eq? (vector-ref #{y 17645}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 17527}# 1)) + (symbol? (vector-ref #{y 17645}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 17527}#)) - (#{bound-id=? 4364}# #{x 17526}# #{y 17527}#)))) + #{y 17645}#)) + (#{bound-id=? 4364}# #{x 17644}# #{y 17645}#)))) (set! syntax-violation (lambda* - (#{who 17693}# - #{message 17694}# - #{form 17695}# + (#{who 17811}# + #{message 17812}# + #{form 17813}# #:optional - (#{subform 17696}# #f)) + (#{subform 17814}# #f)) (begin - (if (not (if (not #{who 17693}#) - (not #{who 17693}#) - (let ((#{t 17714}# (string? #{who 17693}#))) - (if #{t 17714}# - #{t 17714}# - (symbol? #{who 17693}#))))) + (if (not (if (not #{who 17811}#) + (not #{who 17811}#) + (let ((#{t 17832}# (string? #{who 17811}#))) + (if #{t 17832}# + #{t 17832}# + (symbol? #{who 17811}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 17693}#)) - (if (not (string? #{message 17694}#)) + #{who 17811}#)) + (if (not (string? #{message 17812}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 17694}#)) + #{message 17812}#)) (throw 'syntax-error - #{who 17693}# - #{message 17694}# + #{who 17811}# + #{message 17812}# (#{source-annotation 4336}# - (if #{form 17695}# - #{form 17695}# - #{subform 17696}#)) - (#{strip 4388}# #{form 17695}# '(())) - (if #{subform 17696}# - (#{strip 4388}# #{subform 17696}# '(())) + (if #{form 17813}# + #{form 17813}# + #{subform 17814}#)) + (#{strip 4388}# #{form 17813}# '(())) + (if #{subform 17814}# + (#{strip 4388}# #{subform 17814}# '(())) #f))))) (letrec* - ((#{match-each 17956}# - (lambda (#{e 18844}# - #{p 18845}# - #{w 18846}# - #{mod 18847}#) - (if (pair? #{e 18844}#) - (let ((#{first 18848}# - (#{match 17962}# - (car #{e 18844}#) - #{p 18845}# - #{w 18846}# + ((#{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}# '() - #{mod 18847}#))) - (if #{first 18848}# - (let ((#{rest 18851}# - (#{match-each 17956}# - (cdr #{e 18844}#) - #{p 18845}# - #{w 18846}# - #{mod 18847}#))) - (if #{rest 18851}# - (cons #{first 18848}# #{rest 18851}#) + #{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}#) #f)) #f)) - (if (null? #{e 18844}#) + (if (null? #{e 18971}#) '() - (if (if (vector? #{e 18844}#) - (if (= (vector-length #{e 18844}#) 4) - (eq? (vector-ref #{e 18844}# 0) 'syntax-object) + (if (if (vector? #{e 18971}#) + (if (= (vector-length #{e 18971}#) 4) + (eq? (vector-ref #{e 18971}# 0) 'syntax-object) #f) #f) - (#{match-each 17956}# - (vector-ref #{e 18844}# 1) - #{p 18845}# - (let ((#{w2 18873}# (vector-ref #{e 18844}# 2))) - (let ((#{m1 18874}# (car #{w 18846}#)) - (#{s1 18875}# (cdr #{w 18846}#))) - (if (null? #{m1 18874}#) - (if (null? #{s1 18875}#) - #{w2 18873}# - (cons (car #{w2 18873}#) - (let ((#{m2 18886}# (cdr #{w2 18873}#))) - (if (null? #{m2 18886}#) - #{s1 18875}# - (append #{s1 18875}# #{m2 18886}#))))) - (cons (let ((#{m2 18894}# (car #{w2 18873}#))) - (if (null? #{m2 18894}#) - #{m1 18874}# - (append #{m1 18874}# #{m2 18894}#))) - (let ((#{m2 18902}# (cdr #{w2 18873}#))) - (if (null? #{m2 18902}#) - #{s1 18875}# - (append #{s1 18875}# #{m2 18902}#))))))) - (vector-ref #{e 18844}# 3)) + (#{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)) #f))))) - (#{match-each-any 17958}# - (lambda (#{e 18911}# #{w 18912}# #{mod 18913}#) - (if (pair? #{e 18911}#) - (let ((#{l 18914}# - (#{match-each-any 17958}# - (cdr #{e 18911}#) - #{w 18912}# - #{mod 18913}#))) - (if #{l 18914}# - (cons (let ((#{x 18919}# (car #{e 18911}#))) - (if (if (null? (car #{w 18912}#)) - (null? (cdr #{w 18912}#)) + (#{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}#)) #f) - #{x 18919}# - (if (if (vector? #{x 18919}#) - (if (= (vector-length #{x 18919}#) 4) - (eq? (vector-ref #{x 18919}# 0) + #{x 19046}# + (if (if (vector? #{x 19046}#) + (if (= (vector-length #{x 19046}#) 4) + (eq? (vector-ref #{x 19046}# 0) 'syntax-object) #f) #f) - (let ((#{expression 18937}# - (vector-ref #{x 18919}# 1)) - (#{wrap 18938}# - (let ((#{w2 18946}# - (vector-ref #{x 18919}# 2))) - (let ((#{m1 18947}# (car #{w 18912}#)) - (#{s1 18948}# (cdr #{w 18912}#))) - (if (null? #{m1 18947}#) - (if (null? #{s1 18948}#) - #{w2 18946}# - (cons (car #{w2 18946}#) - (let ((#{m2 18963}# - (cdr #{w2 18946}#))) - (if (null? #{m2 18963}#) - #{s1 18948}# + (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}# (append - #{s1 18948}# - #{m2 18963}#))))) - (cons (let ((#{m2 18971}# - (car #{w2 18946}#))) - (if (null? #{m2 18971}#) - #{m1 18947}# + #{s1 19075}# + #{m2 19090}#))))) + (cons (let ((#{m2 19098}# + (car #{w2 19073}#))) + (if (null? #{m2 19098}#) + #{m1 19074}# (append - #{m1 18947}# - #{m2 18971}#))) - (let ((#{m2 18979}# - (cdr #{w2 18946}#))) - (if (null? #{m2 18979}#) - #{s1 18948}# + #{m1 19074}# + #{m2 19098}#))) + (let ((#{m2 19106}# + (cdr #{w2 19073}#))) + (if (null? #{m2 19106}#) + #{s1 19075}# (append - #{s1 18948}# - #{m2 18979}#)))))))) - (#{module 18939}# - (vector-ref #{x 18919}# 3))) + #{s1 19075}# + #{m2 19106}#)))))))) + (#{module 19066}# + (vector-ref #{x 19046}# 3))) (vector 'syntax-object - #{expression 18937}# - #{wrap 18938}# - #{module 18939}#)) - (if (null? #{x 18919}#) - #{x 18919}# + #{expression 19064}# + #{wrap 19065}# + #{module 19066}#)) + (if (null? #{x 19046}#) + #{x 19046}# (vector 'syntax-object - #{x 18919}# - #{w 18912}# - #{mod 18913}#))))) - #{l 18914}#) + #{x 19046}# + #{w 19039}# + #{mod 19040}#))))) + #{l 19041}#) #f)) - (if (null? #{e 18911}#) + (if (null? #{e 19038}#) '() - (if (if (vector? #{e 18911}#) - (if (= (vector-length #{e 18911}#) 4) - (eq? (vector-ref #{e 18911}# 0) 'syntax-object) + (if (if (vector? #{e 19038}#) + (if (= (vector-length #{e 19038}#) 4) + (eq? (vector-ref #{e 19038}# 0) 'syntax-object) #f) #f) - (#{match-each-any 17958}# - (vector-ref #{e 18911}# 1) - (let ((#{w2 19012}# (vector-ref #{e 18911}# 2))) - (let ((#{m1 19013}# (car #{w 18912}#)) - (#{s1 19014}# (cdr #{w 18912}#))) - (if (null? #{m1 19013}#) - (if (null? #{s1 19014}#) - #{w2 19012}# - (cons (car #{w2 19012}#) - (let ((#{m2 19025}# (cdr #{w2 19012}#))) - (if (null? #{m2 19025}#) - #{s1 19014}# - (append #{s1 19014}# #{m2 19025}#))))) - (cons (let ((#{m2 19033}# (car #{w2 19012}#))) - (if (null? #{m2 19033}#) - #{m1 19013}# - (append #{m1 19013}# #{m2 19033}#))) - (let ((#{m2 19041}# (cdr #{w2 19012}#))) - (if (null? #{m2 19041}#) - #{s1 19014}# - (append #{s1 19014}# #{m2 19041}#))))))) - #{mod 18913}#) + (#{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}#) #f))))) - (#{match-empty 17959}# - (lambda (#{p 19046}# #{r 19047}#) - (if (null? #{p 19046}#) - #{r 19047}# - (if (eq? #{p 19046}# '_) - #{r 19047}# - (if (eq? #{p 19046}# 'any) - (cons '() #{r 19047}#) - (if (pair? #{p 19046}#) - (#{match-empty 17959}# - (car #{p 19046}#) - (#{match-empty 17959}# - (cdr #{p 19046}#) - #{r 19047}#)) - (if (eq? #{p 19046}# 'each-any) - (cons '() #{r 19047}#) - (let ((#{atom-key 19048}# (vector-ref #{p 19046}# 0))) - (if (eqv? #{atom-key 19048}# 'each) - (#{match-empty 17959}# - (vector-ref #{p 19046}# 1) - #{r 19047}#) - (if (eqv? #{atom-key 19048}# 'each+) - (#{match-empty 17959}# - (vector-ref #{p 19046}# 1) - (#{match-empty 17959}# - (reverse (vector-ref #{p 19046}# 2)) - (#{match-empty 17959}# - (vector-ref #{p 19046}# 3) - #{r 19047}#))) - (if (if (eqv? #{atom-key 19048}# 'free-id) + (#{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) #t - (eqv? #{atom-key 19048}# 'atom)) - #{r 19047}# - (if (eqv? #{atom-key 19048}# 'vector) - (#{match-empty 17959}# - (vector-ref #{p 19046}# 1) - #{r 19047}#))))))))))))) - (#{combine 17960}# - (lambda (#{r* 19067}# #{r 19068}#) - (if (null? (car #{r* 19067}#)) - #{r 19068}# - (cons (map car #{r* 19067}#) - (#{combine 17960}# - (map cdr #{r* 19067}#) - #{r 19068}#))))) - (#{match* 17961}# - (lambda (#{e 17991}# - #{p 17992}# - #{w 17993}# - #{r 17994}# - #{mod 17995}#) - (if (null? #{p 17992}#) - (if (null? #{e 17991}#) #{r 17994}# #f) - (if (pair? #{p 17992}#) - (if (pair? #{e 17991}#) - (#{match 17962}# - (car #{e 17991}#) - (car #{p 17992}#) - #{w 17993}# - (#{match 17962}# - (cdr #{e 17991}#) - (cdr #{p 17992}#) - #{w 17993}# - #{r 17994}# - #{mod 17995}#) - #{mod 17995}#) + (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}#) #f) - (if (eq? #{p 17992}# 'each-any) - (let ((#{l 18000}# - (#{match-each-any 17958}# - #{e 17991}# - #{w 17993}# - #{mod 17995}#))) - (if #{l 18000}# - (cons #{l 18000}# #{r 17994}#) + (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}#) #f)) - (let ((#{atom-key 18005}# (vector-ref #{p 17992}# 0))) - (if (eqv? #{atom-key 18005}# 'each) - (if (null? #{e 17991}#) - (#{match-empty 17959}# - (vector-ref #{p 17992}# 1) - #{r 17994}#) - (let ((#{l 18012}# - (#{match-each 17956}# - #{e 17991}# - (vector-ref #{p 17992}# 1) - #{w 17993}# - #{mod 17995}#))) - (if #{l 18012}# + (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}# (letrec* - ((#{collect 18015}# - (lambda (#{l 18076}#) - (if (null? (car #{l 18076}#)) - #{r 17994}# - (cons (map car #{l 18076}#) - (#{collect 18015}# - (map cdr #{l 18076}#))))))) - (#{collect 18015}# #{l 18012}#)) + ((#{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}#)) #f))) - (if (eqv? #{atom-key 18005}# 'each+) + (if (eqv? #{atom-key 18132}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 18085}# (vector-ref #{p 17992}# 1)) - (#{y-pat 18086}# (vector-ref #{p 17992}# 2)) - (#{z-pat 18087}# (vector-ref #{p 17992}# 3))) + (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))) (letrec* - ((#{f 18091}# - (lambda (#{e 18093}# #{w 18094}#) - (if (pair? #{e 18093}#) + ((#{f 18218}# + (lambda (#{e 18220}# #{w 18221}#) + (if (pair? #{e 18220}#) (call-with-values (lambda () - (#{f 18091}# - (cdr #{e 18093}#) - #{w 18094}#)) - (lambda (#{xr* 18095}# - #{y-pat 18096}# - #{r 18097}#) - (if #{r 18097}# - (if (null? #{y-pat 18096}#) - (let ((#{xr 18098}# - (#{match 17962}# - (car #{e 18093}#) - #{x-pat 18085}# - #{w 18094}# + (#{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}# '() - #{mod 17995}#))) - (if #{xr 18098}# + #{mod 18122}#))) + (if #{xr 18225}# (values - (cons #{xr 18098}# - #{xr* 18095}#) - #{y-pat 18096}# - #{r 18097}#) + (cons #{xr 18225}# + #{xr* 18222}#) + #{y-pat 18223}# + #{r 18224}#) (values #f #f #f))) (values '() - (cdr #{y-pat 18096}#) - (#{match 17962}# - (car #{e 18093}#) - (car #{y-pat 18096}#) - #{w 18094}# - #{r 18097}# - #{mod 17995}#))) + (cdr #{y-pat 18223}#) + (#{match 18089}# + (car #{e 18220}#) + (car #{y-pat 18223}#) + #{w 18221}# + #{r 18224}# + #{mod 18122}#))) (values #f #f #f)))) - (if (if (vector? #{e 18093}#) - (if (= (vector-length #{e 18093}#) + (if (if (vector? #{e 18220}#) + (if (= (vector-length #{e 18220}#) 4) - (eq? (vector-ref #{e 18093}# 0) + (eq? (vector-ref #{e 18220}# 0) 'syntax-object) #f) #f) - (#{f 18091}# - (vector-ref #{e 18093}# 1) - (let ((#{m1 18126}# - (car #{w 18094}#)) - (#{s1 18127}# - (cdr #{w 18094}#))) - (if (null? #{m1 18126}#) - (if (null? #{s1 18127}#) - #{e 18093}# - (cons (car #{e 18093}#) - (let ((#{m2 18139}# - (cdr #{e 18093}#))) - (if (null? #{m2 18139}#) - #{s1 18127}# + (#{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}# (append - #{s1 18127}# - #{m2 18139}#))))) - (cons (let ((#{m2 18149}# - (car #{e 18093}#))) - (if (null? #{m2 18149}#) - #{m1 18126}# + #{s1 18254}# + #{m2 18266}#))))) + (cons (let ((#{m2 18276}# + (car #{e 18220}#))) + (if (null? #{m2 18276}#) + #{m1 18253}# (append - #{m1 18126}# - #{m2 18149}#))) - (let ((#{m2 18159}# - (cdr #{e 18093}#))) - (if (null? #{m2 18159}#) - #{s1 18127}# + #{m1 18253}# + #{m2 18276}#))) + (let ((#{m2 18286}# + (cdr #{e 18220}#))) + (if (null? #{m2 18286}#) + #{s1 18254}# (append - #{s1 18127}# - #{m2 18159}#))))))) + #{s1 18254}# + #{m2 18286}#))))))) (values '() - #{y-pat 18086}# - (#{match 17962}# - #{e 18093}# - #{z-pat 18087}# - #{w 18094}# - #{r 17994}# - #{mod 17995}#))))))) - (#{f 18091}# #{e 17991}# #{w 17993}#)))) - (lambda (#{xr* 18169}# #{y-pat 18170}# #{r 18171}#) - (if #{r 18171}# - (if (null? #{y-pat 18170}#) - (if (null? #{xr* 18169}#) - (#{match-empty 17959}# - (vector-ref #{p 17992}# 1) - #{r 18171}#) - (#{combine 17960}# #{xr* 18169}# #{r 18171}#)) + #{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}#)) #f) #f))) - (if (eqv? #{atom-key 18005}# 'free-id) - (if (if (symbol? #{e 17991}#) + (if (eqv? #{atom-key 18132}# 'free-id) + (if (if (symbol? #{e 18118}#) #t - (if (if (vector? #{e 17991}#) - (if (= (vector-length #{e 17991}#) 4) - (eq? (vector-ref #{e 17991}# 0) + (if (if (vector? #{e 18118}#) + (if (= (vector-length #{e 18118}#) 4) + (eq? (vector-ref #{e 18118}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 17991}# 1)) + (symbol? (vector-ref #{e 18118}# 1)) #f)) (if (#{free-id=? 4363}# - (if (if (null? (car #{w 17993}#)) - (null? (cdr #{w 17993}#)) + (if (if (null? (car #{w 18120}#)) + (null? (cdr #{w 18120}#)) #f) - #{e 17991}# - (if (if (vector? #{e 17991}#) - (if (= (vector-length #{e 17991}#) 4) - (eq? (vector-ref #{e 17991}# 0) + #{e 18118}# + (if (if (vector? #{e 18118}#) + (if (= (vector-length #{e 18118}#) 4) + (eq? (vector-ref #{e 18118}# 0) 'syntax-object) #f) #f) - (let ((#{expression 18602}# - (vector-ref #{e 17991}# 1)) - (#{wrap 18603}# - (let ((#{w2 18613}# + (let ((#{expression 18729}# + (vector-ref #{e 18118}# 1)) + (#{wrap 18730}# + (let ((#{w2 18740}# (vector-ref - #{e 17991}# + #{e 18118}# 2))) - (let ((#{m1 18614}# - (car #{w 17993}#)) - (#{s1 18615}# - (cdr #{w 17993}#))) - (if (null? #{m1 18614}#) - (if (null? #{s1 18615}#) - #{w2 18613}# - (cons (car #{w2 18613}#) - (let ((#{m2 18632}# - (cdr #{w2 18613}#))) - (if (null? #{m2 18632}#) - #{s1 18615}# + (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}# (append - #{s1 18615}# - #{m2 18632}#))))) - (cons (let ((#{m2 18640}# - (car #{w2 18613}#))) - (if (null? #{m2 18640}#) - #{m1 18614}# + #{s1 18742}# + #{m2 18759}#))))) + (cons (let ((#{m2 18767}# + (car #{w2 18740}#))) + (if (null? #{m2 18767}#) + #{m1 18741}# (append - #{m1 18614}# - #{m2 18640}#))) - (let ((#{m2 18648}# - (cdr #{w2 18613}#))) - (if (null? #{m2 18648}#) - #{s1 18615}# + #{m1 18741}# + #{m2 18767}#))) + (let ((#{m2 18775}# + (cdr #{w2 18740}#))) + (if (null? #{m2 18775}#) + #{s1 18742}# (append - #{s1 18615}# - #{m2 18648}#)))))))) - (#{module 18604}# - (vector-ref #{e 17991}# 3))) + #{s1 18742}# + #{m2 18775}#)))))))) + (#{module 18731}# + (vector-ref #{e 18118}# 3))) (vector 'syntax-object - #{expression 18602}# - #{wrap 18603}# - #{module 18604}#)) - (if (null? #{e 17991}#) - #{e 17991}# + #{expression 18729}# + #{wrap 18730}# + #{module 18731}#)) + (if (null? #{e 18118}#) + #{e 18118}# (vector 'syntax-object - #{e 17991}# - #{w 17993}# - #{mod 17995}#)))) - (vector-ref #{p 17992}# 1)) - #{r 17994}# + #{e 18118}# + #{w 18120}# + #{mod 18122}#)))) + (vector-ref #{p 18119}# 1)) + #{r 18121}# #f) #f) - (if (eqv? #{atom-key 18005}# 'atom) + (if (eqv? #{atom-key 18132}# 'atom) (if (equal? - (vector-ref #{p 17992}# 1) - (#{strip 4388}# #{e 17991}# #{w 17993}#)) - #{r 17994}# + (vector-ref #{p 18119}# 1) + (#{strip 4388}# #{e 18118}# #{w 18120}#)) + #{r 18121}# #f) - (if (eqv? #{atom-key 18005}# 'vector) - (if (vector? #{e 17991}#) - (#{match 17962}# - (vector->list #{e 17991}#) - (vector-ref #{p 17992}# 1) - #{w 17993}# - #{r 17994}# - #{mod 17995}#) + (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}#) #f)))))))))))) - (#{match 17962}# - (lambda (#{e 18681}# - #{p 18682}# - #{w 18683}# - #{r 18684}# - #{mod 18685}#) - (if (not #{r 18684}#) + (#{match 18089}# + (lambda (#{e 18808}# + #{p 18809}# + #{w 18810}# + #{r 18811}# + #{mod 18812}#) + (if (not #{r 18811}#) #f - (if (eq? #{p 18682}# '_) - #{r 18684}# - (if (eq? #{p 18682}# 'any) - (cons (if (if (null? (car #{w 18683}#)) - (null? (cdr #{w 18683}#)) + (if (eq? #{p 18809}# '_) + #{r 18811}# + (if (eq? #{p 18809}# 'any) + (cons (if (if (null? (car #{w 18810}#)) + (null? (cdr #{w 18810}#)) #f) - #{e 18681}# - (if (if (vector? #{e 18681}#) - (if (= (vector-length #{e 18681}#) 4) - (eq? (vector-ref #{e 18681}# 0) + #{e 18808}# + (if (if (vector? #{e 18808}#) + (if (= (vector-length #{e 18808}#) 4) + (eq? (vector-ref #{e 18808}# 0) 'syntax-object) #f) #f) - (let ((#{expression 18715}# - (vector-ref #{e 18681}# 1)) - (#{wrap 18716}# - (let ((#{w2 18726}# - (vector-ref #{e 18681}# 2))) - (let ((#{m1 18727}# (car #{w 18683}#)) - (#{s1 18728}# (cdr #{w 18683}#))) - (if (null? #{m1 18727}#) - (if (null? #{s1 18728}#) - #{w2 18726}# - (cons (car #{w2 18726}#) - (let ((#{m2 18745}# - (cdr #{w2 18726}#))) - (if (null? #{m2 18745}#) - #{s1 18728}# + (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}# (append - #{s1 18728}# - #{m2 18745}#))))) - (cons (let ((#{m2 18753}# - (car #{w2 18726}#))) - (if (null? #{m2 18753}#) - #{m1 18727}# + #{s1 18855}# + #{m2 18872}#))))) + (cons (let ((#{m2 18880}# + (car #{w2 18853}#))) + (if (null? #{m2 18880}#) + #{m1 18854}# (append - #{m1 18727}# - #{m2 18753}#))) - (let ((#{m2 18761}# - (cdr #{w2 18726}#))) - (if (null? #{m2 18761}#) - #{s1 18728}# + #{m1 18854}# + #{m2 18880}#))) + (let ((#{m2 18888}# + (cdr #{w2 18853}#))) + (if (null? #{m2 18888}#) + #{s1 18855}# (append - #{s1 18728}# - #{m2 18761}#)))))))) - (#{module 18717}# (vector-ref #{e 18681}# 3))) + #{s1 18855}# + #{m2 18888}#)))))))) + (#{module 18844}# (vector-ref #{e 18808}# 3))) (vector 'syntax-object - #{expression 18715}# - #{wrap 18716}# - #{module 18717}#)) - (if (null? #{e 18681}#) - #{e 18681}# + #{expression 18842}# + #{wrap 18843}# + #{module 18844}#)) + (if (null? #{e 18808}#) + #{e 18808}# (vector 'syntax-object - #{e 18681}# - #{w 18683}# - #{mod 18685}#)))) - #{r 18684}#) - (if (if (vector? #{e 18681}#) - (if (= (vector-length #{e 18681}#) 4) - (eq? (vector-ref #{e 18681}# 0) '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) #f) #f) - (#{match* 17961}# - (vector-ref #{e 18681}# 1) - #{p 18682}# - (let ((#{w2 18804}# (vector-ref #{e 18681}# 2))) - (let ((#{m1 18805}# (car #{w 18683}#)) - (#{s1 18806}# (cdr #{w 18683}#))) - (if (null? #{m1 18805}#) - (if (null? #{s1 18806}#) - #{w2 18804}# - (cons (car #{w2 18804}#) - (let ((#{m2 18817}# (cdr #{w2 18804}#))) - (if (null? #{m2 18817}#) - #{s1 18806}# - (append #{s1 18806}# #{m2 18817}#))))) - (cons (let ((#{m2 18825}# (car #{w2 18804}#))) - (if (null? #{m2 18825}#) - #{m1 18805}# - (append #{m1 18805}# #{m2 18825}#))) - (let ((#{m2 18833}# (cdr #{w2 18804}#))) - (if (null? #{m2 18833}#) - #{s1 18806}# - (append #{s1 18806}# #{m2 18833}#))))))) - #{r 18684}# - (vector-ref #{e 18681}# 3)) - (#{match* 17961}# - #{e 18681}# - #{p 18682}# - #{w 18683}# - #{r 18684}# - #{mod 18685}#)))))))) + (#{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}#)))))))) (set! $sc-dispatch - (lambda (#{e 17963}# #{p 17964}#) - (if (eq? #{p 17964}# 'any) - (list #{e 17963}#) - (if (eq? #{p 17964}# '_) + (lambda (#{e 18090}# #{p 18091}#) + (if (eq? #{p 18091}# 'any) + (list #{e 18090}#) + (if (eq? #{p 18091}# '_) '() - (if (if (vector? #{e 17963}#) - (if (= (vector-length #{e 17963}#) 4) - (eq? (vector-ref #{e 17963}# 0) 'syntax-object) + (if (if (vector? #{e 18090}#) + (if (= (vector-length #{e 18090}#) 4) + (eq? (vector-ref #{e 18090}# 0) 'syntax-object) #f) #f) - (#{match* 17961}# - (vector-ref #{e 17963}# 1) - #{p 17964}# - (vector-ref #{e 17963}# 2) + (#{match* 18088}# + (vector-ref #{e 18090}# 1) + #{p 18091}# + (vector-ref #{e 18090}# 2) '() - (vector-ref #{e 17963}# 3)) - (#{match* 17961}# - #{e 17963}# - #{p 17964}# + (vector-ref #{e 18090}# 3)) + (#{match* 18088}# + #{e 18090}# + #{p 18091}# '(()) '() #f))))))))) @@ -17637,82 +17637,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 36962}#) - (let ((#{tmp 36964}# - ($sc-dispatch #{x 36962}# '(_ () any . each-any)))) - (if #{tmp 36964}# + (lambda (#{x 37271}#) + (let ((#{tmp 37273}# + ($sc-dispatch #{x 37271}# '(_ () any . each-any)))) + (if #{tmp 37273}# (@apply - (lambda (#{e1 36968}# #{e2 36969}#) + (lambda (#{e1 37277}# #{e2 37278}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i36935" "i36936")) + #("i37244" "i37245")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36932"))) + #(ribcage #(x) #((top)) #("i37241"))) (hygiene guile)) - (cons '() (cons #{e1 36968}# #{e2 36969}#)))) - #{tmp 36964}#) - (let ((#{tmp 36970}# + (cons '() (cons #{e1 37277}# #{e2 37278}#)))) + #{tmp 37273}#) + (let ((#{tmp 37279}# ($sc-dispatch - #{x 36962}# + #{x 37271}# '(_ ((any any)) any . each-any)))) - (if #{tmp 36970}# + (if #{tmp 37279}# (@apply - (lambda (#{out 36974}# - #{in 36975}# - #{e1 36976}# - #{e2 36977}#) + (lambda (#{out 37283}# + #{in 37284}# + #{e1 37285}# + #{e2 37286}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i36941" "i36942" "i36943" "i36944")) + #("i37250" "i37251" "i37252" "i37253")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36932"))) + #(ribcage #(x) #((top)) #("i37241"))) (hygiene guile)) - #{in 36975}# + #{in 37284}# '() - (list #{out 36974}# + (list #{out 37283}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i36941" - "i36942" - "i36943" - "i36944")) + #("i37250" + "i37251" + "i37252" + "i37253")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36932"))) + #(ribcage #(x) #((top)) #("i37241"))) (hygiene guile)) (cons '() - (cons #{e1 36976}# #{e2 36977}#)))))) - #{tmp 36970}#) - (let ((#{tmp 36978}# + (cons #{e1 37285}# #{e2 37286}#)))))) + #{tmp 37279}#) + (let ((#{tmp 37287}# ($sc-dispatch - #{x 36962}# + #{x 37271}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 36978}# + (if #{tmp 37287}# (@apply - (lambda (#{out 36982}# - #{in 36983}# - #{e1 36984}# - #{e2 36985}#) + (lambda (#{out 37291}# + #{in 37292}# + #{e1 37293}# + #{e2 37294}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i36951" "i36952" "i36953" "i36954")) + #("i37260" "i37261" "i37262" "i37263")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36932"))) + #(ribcage #(x) #((top)) #("i37241"))) (hygiene guile)) (cons '#(syntax-object list @@ -17720,62 +17720,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i36951" "i36952" "i36953" "i36954")) + #("i37260" "i37261" "i37262" "i37263")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36932"))) + #(ribcage #(x) #((top)) #("i37241"))) (hygiene guile)) - #{in 36983}#) + #{in 37292}#) '() - (list #{out 36982}# + (list #{out 37291}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i36951" - "i36952" - "i36953" - "i36954")) + #("i37260" + "i37261" + "i37262" + "i37263")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i36932"))) + #("i37241"))) (hygiene guile)) (cons '() - (cons #{e1 36984}# - #{e2 36985}#)))))) - #{tmp 36978}#) + (cons #{e1 37293}# + #{e2 37294}#)))))) + #{tmp 37287}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 36962}#)))))))))) + #{x 37271}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 37039}#) - (let ((#{tmp 37041}# + (lambda (#{x 37348}#) + (let ((#{tmp 37350}# ($sc-dispatch - #{x 37039}# + #{x 37348}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 37041}# + (if #{tmp 37350}# (@apply - (lambda (#{k 37045}# - #{keyword 37046}# - #{pattern 37047}# - #{template 37048}#) + (lambda (#{k 37354}# + #{keyword 37355}# + #{pattern 37356}# + #{template 37357}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) '(#(syntax-object x @@ -17783,9 +17783,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile))) (vector '(#(syntax-object @@ -17794,9 +17794,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) . #(syntax-object @@ -17805,9 +17805,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -17815,20 +17815,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) - #{pattern 37047}#)) + #{pattern 37356}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) (cons '#(syntax-object x @@ -17836,13 +17836,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i37002" "i37003" "i37004" "i37005")) + #("i37311" "i37312" "i37313" "i37314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) - (cons #{k 37045}# - (map (lambda (#{tmp 37013 37049}# - #{tmp 37012 37050}#) + (cons #{k 37354}# + (map (lambda (#{tmp 37322 37358}# + #{tmp 37321 37359}#) (list (cons '#(syntax-object dummy ((top) @@ -17855,10 +17855,10 @@ (top) (top) (top)) - #("i37002" - "i37003" - "i37004" - "i37005")) + #("i37311" + "i37312" + "i37313" + "i37314")) #(ribcage () () @@ -17866,9 +17866,9 @@ #(ribcage #(x) #((top)) - #("i36999"))) + #("i37308"))) (hygiene guile)) - #{tmp 37012 37050}#) + #{tmp 37321 37359}#) (list '#(syntax-object syntax ((top) @@ -17881,10 +17881,10 @@ (top) (top) (top)) - #("i37002" - "i37003" - "i37004" - "i37005")) + #("i37311" + "i37312" + "i37313" + "i37314")) #(ribcage () () @@ -17892,41 +17892,41 @@ #(ribcage #(x) #((top)) - #("i36999"))) + #("i37308"))) (hygiene guile)) - #{tmp 37013 37049}#))) - #{template 37048}# - #{pattern 37047}#)))))) - #{tmp 37041}#) - (let ((#{tmp 37051}# + #{tmp 37322 37358}#))) + #{template 37357}# + #{pattern 37356}#)))))) + #{tmp 37350}#) + (let ((#{tmp 37360}# ($sc-dispatch - #{x 37039}# + #{x 37348}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 37051}# + (if (if #{tmp 37360}# (@apply - (lambda (#{k 37055}# - #{docstring 37056}# - #{keyword 37057}# - #{pattern 37058}# - #{template 37059}#) - (string? (syntax->datum #{docstring 37056}#))) - #{tmp 37051}#) + (lambda (#{k 37364}# + #{docstring 37365}# + #{keyword 37366}# + #{pattern 37367}# + #{template 37368}#) + (string? (syntax->datum #{docstring 37365}#))) + #{tmp 37360}#) #f) (@apply - (lambda (#{k 37060}# - #{docstring 37061}# - #{keyword 37062}# - #{pattern 37063}# - #{template 37064}#) + (lambda (#{k 37369}# + #{docstring 37370}# + #{keyword 37371}# + #{pattern 37372}# + #{template 37373}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" "i37026" "i37027" "i37028" "i37029")) + #("i37334" "i37335" "i37336" "i37337" "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) '(#(syntax-object x @@ -17934,11 +17934,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" "i37026" "i37027" "i37028" "i37029")) + #("i37334" "i37335" "i37336" "i37337" "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile))) - #{docstring 37061}# + #{docstring 37370}# (vector '(#(syntax-object macro-type @@ -17946,13 +17946,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) . #(syntax-object @@ -17961,13 +17961,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -17975,28 +17975,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) - #{pattern 37063}#)) + #{pattern 37372}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) (cons '#(syntax-object x @@ -18008,17 +18008,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i36999"))) + #(ribcage #(x) #((top)) #("i37308"))) (hygiene guile)) - (cons #{k 37060}# - (map (lambda (#{tmp 37038 37065}# - #{tmp 37037 37066}#) + (cons #{k 37369}# + (map (lambda (#{tmp 37347 37374}# + #{tmp 37346 37375}#) (list (cons '#(syntax-object dummy ((top) @@ -18033,11 +18033,11 @@ (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () @@ -18045,10 +18045,10 @@ #(ribcage #(x) #((top)) - #("i36999"))) + #("i37308"))) (hygiene guile)) - #{tmp 37037 37066}#) + #{tmp 37346 37375}#) (list '#(syntax-object syntax ((top) @@ -18063,11 +18063,11 @@ (top) (top) (top)) - #("i37025" - "i37026" - "i37027" - "i37028" - "i37029")) + #("i37334" + "i37335" + "i37336" + "i37337" + "i37338")) #(ribcage () () @@ -18075,50 +18075,50 @@ #(ribcage #(x) #((top)) - #("i36999"))) + #("i37308"))) (hygiene guile)) - #{tmp 37038 37065}#))) - #{template 37064}# - #{pattern 37063}#)))))) - #{tmp 37051}#) + #{tmp 37347 37374}#))) + #{template 37373}# + #{pattern 37372}#)))))) + #{tmp 37360}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37039}#)))))))) + #{x 37348}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 37103}#) - (let ((#{tmp 37105}# - ($sc-dispatch #{x 37103}# '(_ (any . any) any)))) - (if #{tmp 37105}# + (lambda (#{x 37412}#) + (let ((#{tmp 37414}# + ($sc-dispatch #{x 37412}# '(_ (any . any) any)))) + (if #{tmp 37414}# (@apply - (lambda (#{name 37109}# - #{pattern 37110}# - #{template 37111}#) + (lambda (#{name 37418}# + #{pattern 37419}# + #{template 37420}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37080" "i37081" "i37082")) + #("i37389" "i37390" "i37391")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37077"))) + #(ribcage #(x) #((top)) #("i37386"))) (hygiene guile)) - #{name 37109}# + #{name 37418}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37080" "i37081" "i37082")) + #("i37389" "i37390" "i37391")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37077"))) + #(ribcage #(x) #((top)) #("i37386"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -18127,54 +18127,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i37080" "i37081" "i37082")) + #("i37389" "i37390" "i37391")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37077"))) + #(ribcage #(x) #((top)) #("i37386"))) (hygiene guile)) - #{pattern 37110}#) - #{template 37111}#)))) - #{tmp 37105}#) - (let ((#{tmp 37112}# + #{pattern 37419}#) + #{template 37420}#)))) + #{tmp 37414}#) + (let ((#{tmp 37421}# ($sc-dispatch - #{x 37103}# + #{x 37412}# '(_ (any . any) any any)))) - (if (if #{tmp 37112}# + (if (if #{tmp 37421}# (@apply - (lambda (#{name 37116}# - #{pattern 37117}# - #{docstring 37118}# - #{template 37119}#) - (string? (syntax->datum #{docstring 37118}#))) - #{tmp 37112}#) + (lambda (#{name 37425}# + #{pattern 37426}# + #{docstring 37427}# + #{template 37428}#) + (string? (syntax->datum #{docstring 37427}#))) + #{tmp 37421}#) #f) (@apply - (lambda (#{name 37120}# - #{pattern 37121}# - #{docstring 37122}# - #{template 37123}#) + (lambda (#{name 37429}# + #{pattern 37430}# + #{docstring 37431}# + #{template 37432}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i37095" "i37096" "i37097" "i37098")) + #("i37404" "i37405" "i37406" "i37407")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37077"))) + #(ribcage #(x) #((top)) #("i37386"))) (hygiene guile)) - #{name 37120}# + #{name 37429}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i37095" "i37096" "i37097" "i37098")) + #("i37404" "i37405" "i37406" "i37407")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37077"))) + #(ribcage #(x) #((top)) #("i37386"))) (hygiene guile)) '() - #{docstring 37122}# + #{docstring 37431}# (list (cons '#(syntax-object _ ((top) @@ -18184,53 +18184,53 @@ docstring template) #((top) (top) (top) (top)) - #("i37095" - "i37096" - "i37097" - "i37098")) + #("i37404" + "i37405" + "i37406" + "i37407")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37077"))) + #("i37386"))) (hygiene guile)) - #{pattern 37121}#) - #{template 37123}#)))) - #{tmp 37112}#) + #{pattern 37430}#) + #{template 37432}#)))) + #{tmp 37421}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37103}#)))))))) + #{x 37412}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 37172}#) - (let ((#{tmp 37174}# + (lambda (#{x 37481}#) + (let ((#{tmp 37483}# ($sc-dispatch - #{x 37172}# + #{x 37481}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 37174}# + (if (if #{tmp 37483}# (@apply - (lambda (#{let* 37178}# - #{x 37179}# - #{v 37180}# - #{e1 37181}# - #{e2 37182}#) - (and-map identifier? #{x 37179}#)) - #{tmp 37174}#) + (lambda (#{let* 37487}# + #{x 37488}# + #{v 37489}# + #{e1 37490}# + #{e2 37491}#) + (and-map identifier? #{x 37488}#)) + #{tmp 37483}#) #f) (@apply - (lambda (#{let* 37183}# - #{x 37184}# - #{v 37185}# - #{e1 37186}# - #{e2 37187}#) + (lambda (#{let* 37492}# + #{x 37493}# + #{v 37494}# + #{e1 37495}# + #{e2 37496}#) (letrec* - ((#{f 37188}# - (lambda (#{bindings 37191}#) - (if (null? #{bindings 37191}#) + ((#{f 37497}# + (lambda (#{bindings 37500}#) + (if (null? #{bindings 37500}#) (cons '#(syntax-object let ((top) @@ -18238,27 +18238,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i37158" "i37159")) + #("i37467" "i37468")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i37148" - "i37149" - "i37150" - "i37151" - "i37152")) + #("i37457" + "i37458" + "i37459" + "i37460" + "i37461")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37134"))) + #(ribcage #(x) #((top)) #("i37443"))) (hygiene guile)) - (cons '() (cons #{e1 37186}# #{e2 37187}#))) - (let ((#{tmp 37192}# - (list (#{f 37188}# (cdr #{bindings 37191}#)) - (car #{bindings 37191}#)))) - (let ((#{tmp 37193}# - ($sc-dispatch #{tmp 37192}# '(any any)))) - (if #{tmp 37193}# + (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}# (@apply - (lambda (#{body 37195}# #{binding 37196}#) + (lambda (#{body 37504}# #{binding 37505}#) (list '#(syntax-object let ((top) @@ -18266,86 +18266,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i37168" "i37169")) + #("i37477" "i37478")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i37158" "i37159")) + #("i37467" "i37468")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i37148" - "i37149" - "i37150" - "i37151" - "i37152")) + #("i37457" + "i37458" + "i37459" + "i37460" + "i37461")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37134"))) + #("i37443"))) (hygiene guile)) - (list #{binding 37196}#) - #{body 37195}#)) - #{tmp 37193}#) + (list #{binding 37505}#) + #{body 37504}#)) + #{tmp 37502}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37192}#)))))))) - (#{f 37188}# (map list #{x 37184}# #{v 37185}#)))) - #{tmp 37174}#) + #{tmp 37501}#)))))))) + (#{f 37497}# (map list #{x 37493}# #{v 37494}#)))) + #{tmp 37483}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37172}#)))))) + #{x 37481}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 37254}#) - (let ((#{tmp 37256}# + (lambda (#{orig-x 37563}#) + (let ((#{tmp 37565}# ($sc-dispatch - #{orig-x 37254}# + #{orig-x 37563}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 37256}# + (if #{tmp 37565}# (@apply - (lambda (#{var 37260}# - #{init 37261}# - #{step 37262}# - #{e0 37263}# - #{e1 37264}# - #{c 37265}#) - (let ((#{tmp 37266}# - (map (lambda (#{v 37269}# #{s 37270}#) - (let ((#{tmp 37272}# - ($sc-dispatch #{s 37270}# '()))) - (if #{tmp 37272}# - (@apply (lambda () #{v 37269}#) #{tmp 37272}#) - (let ((#{tmp 37275}# - ($sc-dispatch #{s 37270}# '(any)))) - (if #{tmp 37275}# + (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}# (@apply - (lambda (#{e 37278}#) #{e 37278}#) - #{tmp 37275}#) + (lambda (#{e 37587}#) #{e 37587}#) + #{tmp 37584}#) (syntax-violation 'do "bad step expression" - #{orig-x 37254}# - #{s 37270}#)))))) - #{var 37260}# - #{step 37262}#))) - (let ((#{tmp 37267}# - ($sc-dispatch #{tmp 37266}# 'each-any))) - (if #{tmp 37267}# + #{orig-x 37563}# + #{s 37579}#)))))) + #{var 37569}# + #{step 37571}#))) + (let ((#{tmp 37576}# + ($sc-dispatch #{tmp 37575}# 'each-any))) + (if #{tmp 37576}# (@apply - (lambda (#{step 37284}#) - (let ((#{tmp 37286}# ($sc-dispatch #{e1 37264}# '()))) - (if #{tmp 37286}# + (lambda (#{step 37593}#) + (let ((#{tmp 37595}# ($sc-dispatch #{e1 37573}# '()))) + (if #{tmp 37595}# (@apply (lambda () (list '#(syntax-object @@ -18355,7 +18355,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18364,17 +18364,17 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) '#(syntax-object doloop @@ -18383,7 +18383,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18392,19 +18392,19 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - (map list #{var 37260}# #{init 37261}#) + (map list #{var 37569}# #{init 37570}#) (list '#(syntax-object if ((top) @@ -18412,7 +18412,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18421,17 +18421,17 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) (list '#(syntax-object not @@ -18440,7 +18440,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18454,19 +18454,19 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - #{e0 37263}#) + #{e0 37572}#) (cons '#(syntax-object begin ((top) @@ -18474,7 +18474,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18488,20 +18488,20 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) (append - #{c 37265}# + #{c 37574}# (list (cons '#(syntax-object doloop ((top) @@ -18512,7 +18512,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18526,12 +18526,12 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () @@ -18539,30 +18539,30 @@ #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - #{step 37284}#))))))) - #{tmp 37286}#) - (let ((#{tmp 37290}# + #{step 37593}#))))))) + #{tmp 37595}#) + (let ((#{tmp 37599}# ($sc-dispatch - #{e1 37264}# + #{e1 37573}# '(any . each-any)))) - (if #{tmp 37290}# + (if #{tmp 37599}# (@apply - (lambda (#{e1 37294}# #{e2 37295}#) + (lambda (#{e1 37603}# #{e2 37604}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37231" "i37232")) + #("i37540" "i37541")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18571,17 +18571,17 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) '#(syntax-object doloop @@ -18589,12 +18589,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i37231" "i37232")) + #("i37540" "i37541")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18603,33 +18603,33 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) (map list - #{var 37260}# - #{init 37261}#) + #{var 37569}# + #{init 37570}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37231" "i37232")) + #("i37540" "i37541")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init step e0 e1 c) #((top) @@ -18638,32 +18638,32 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - #{e0 37263}# + #{e0 37572}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37231" - "i37232")) + #("i37540" + "i37541")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18677,33 +18677,33 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - (cons #{e1 37294}# - #{e2 37295}#)) + (cons #{e1 37603}# + #{e2 37604}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i37231" - "i37232")) + #("i37540" + "i37541")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18717,20 +18717,20 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) (append - #{c 37265}# + #{c 37574}# (list (cons '#(syntax-object doloop ((top) @@ -18739,8 +18739,8 @@ e2) #((top) (top)) - #("i37231" - "i37232")) + #("i37540" + "i37541")) #(ribcage () () @@ -18748,7 +18748,7 @@ #(ribcage #(step) #((top)) - #("i37222")) + #("i37531")) #(ribcage #(var init @@ -18762,12 +18762,12 @@ (top) (top) (top)) - #("i37207" - "i37208" - "i37209" - "i37210" - "i37211" - "i37212")) + #("i37516" + "i37517" + "i37518" + "i37519" + "i37520" + "i37521")) #(ribcage () () @@ -18775,36 +18775,36 @@ #(ribcage #(orig-x) #((top)) - #("i37204"))) + #("i37513"))) (hygiene guile)) - #{step 37284}#))))))) - #{tmp 37290}#) + #{step 37593}#))))))) + #{tmp 37599}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 37264}#)))))) - #{tmp 37267}#) + #{e1 37573}#)))))) + #{tmp 37576}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37266}#))))) - #{tmp 37256}#) + #{tmp 37575}#))))) + #{tmp 37565}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 37254}#)))))) + #{orig-x 37563}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 37581}# - (lambda (#{p 37605}# #{lev 37606}#) - (let ((#{tmp 37608}# + ((#{quasi 37890}# + (lambda (#{p 37914}# #{lev 37915}#) + (let ((#{tmp 37917}# ($sc-dispatch - #{p 37605}# + #{p 37914}# '(#(free-id #(syntax-object unquote @@ -18813,7 +18813,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18822,28 +18822,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) any)))) - (if #{tmp 37608}# + (if #{tmp 37917}# (@apply - (lambda (#{p 37612}#) - (if (= #{lev 37606}# 0) + (lambda (#{p 37921}#) + (if (= #{lev 37915}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i37331")) + #(ribcage #(p) #((top)) #("i37640")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18852,25 +18852,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{p 37612}#) - (#{quasicons 37583}# + #{p 37921}#) + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37331")) + #(ribcage #(p) #((top)) #("i37640")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18879,23 +18879,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i37331")) + #(ribcage #(p) #((top)) #("i37640")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18904,21 +18904,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - (list #{p 37612}#) - (#{1-}# #{lev 37606}#))))) - #{tmp 37608}#) - (let ((#{tmp 37615}# + (#{quasi 37890}# + (list #{p 37921}#) + (#{1-}# #{lev 37915}#))))) + #{tmp 37917}#) + (let ((#{tmp 37924}# ($sc-dispatch - #{p 37605}# + #{p 37914}# '(#(free-id #(syntax-object quasiquote @@ -18927,7 +18927,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18936,28 +18936,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) any)))) - (if #{tmp 37615}# + (if #{tmp 37924}# (@apply - (lambda (#{p 37619}#) - (#{quasicons 37583}# + (lambda (#{p 37928}#) + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37334")) + #(ribcage #(p) #((top)) #("i37643")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18966,23 +18966,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i37334")) + #(ribcage #(p) #((top)) #("i37643")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -18991,26 +18991,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - (list #{p 37619}#) - (#{1+}# #{lev 37606}#)))) - #{tmp 37615}#) - (let ((#{tmp 37622}# - ($sc-dispatch #{p 37605}# '(any . any)))) - (if #{tmp 37622}# + (#{quasi 37890}# + (list #{p 37928}#) + (#{1+}# #{lev 37915}#)))) + #{tmp 37924}#) + (let ((#{tmp 37931}# + ($sc-dispatch #{p 37914}# '(any . any)))) + (if #{tmp 37931}# (@apply - (lambda (#{p 37626}# #{q 37627}#) - (let ((#{tmp 37629}# + (lambda (#{p 37935}# #{q 37936}#) + (let ((#{tmp 37938}# ($sc-dispatch - #{p 37626}# + #{p 37935}# '(#(free-id #(syntax-object unquote @@ -19018,12 +19018,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19038,38 +19038,38 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) . each-any)))) - (if #{tmp 37629}# + (if #{tmp 37938}# (@apply - (lambda (#{p 37633}#) - (if (= #{lev 37606}# 0) - (#{quasilist* 37585}# - (map (lambda (#{tmp 37345 37672}#) + (lambda (#{p 37942}#) + (if (= #{lev 37915}# 0) + (#{quasilist* 37894}# + (map (lambda (#{tmp 37654 37981}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37343")) + #("i37652")) #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19084,37 +19084,37 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 37345 37672}#)) - #{p 37633}#) - (#{quasi 37581}# - #{q 37627}# - #{lev 37606}#)) - (#{quasicons 37583}# - (#{quasicons 37583}# + #{tmp 37654 37981}#)) + #{p 37942}#) + (#{quasi 37890}# + #{q 37936}# + #{lev 37915}#)) + (#{quasicons 37892}# + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i37343")) + #("i37652")) #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19129,13 +19129,13 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object unquote @@ -19143,16 +19143,16 @@ #(ribcage #(p) #((top)) - #("i37343")) + #("i37652")) #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19167,24 +19167,24 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - #{p 37633}# - (#{1-}# #{lev 37606}#))) - (#{quasi 37581}# - #{q 37627}# - #{lev 37606}#)))) - #{tmp 37629}#) - (let ((#{tmp 37677}# + (#{quasi 37890}# + #{p 37942}# + (#{1-}# #{lev 37915}#))) + (#{quasi 37890}# + #{q 37936}# + #{lev 37915}#)))) + #{tmp 37938}#) + (let ((#{tmp 37986}# ($sc-dispatch - #{p 37626}# + #{p 37935}# '(#(free-id #(syntax-object unquote-splicing @@ -19192,12 +19192,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19212,40 +19212,40 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) . each-any)))) - (if #{tmp 37677}# + (if #{tmp 37986}# (@apply - (lambda (#{p 37681}#) - (if (= #{lev 37606}# 0) - (#{quasiappend 37584}# - (map (lambda (#{tmp 37350 37684}#) + (lambda (#{p 37990}#) + (if (= #{lev 37915}# 0) + (#{quasiappend 37893}# + (map (lambda (#{tmp 37659 37993}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37348")) + #("i37657")) #(ribcage #(p q) #((top) (top)) - #("i37337" - "i37338")) + #("i37646" + "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" - "i37328")) + #("i37636" + "i37637")) #(ribcage (emit quasivector quasilist* @@ -19260,37 +19260,37 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 37350 37684}#)) - #{p 37681}#) - (#{quasi 37581}# - #{q 37627}# - #{lev 37606}#)) - (#{quasicons 37583}# - (#{quasicons 37583}# + #{tmp 37659 37993}#)) + #{p 37990}#) + (#{quasi 37890}# + #{q 37936}# + #{lev 37915}#)) + (#{quasicons 37892}# + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i37348")) + #("i37657")) #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19305,13 +19305,13 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -19319,16 +19319,16 @@ #(ribcage #(p) #((top)) - #("i37348")) + #("i37657")) #(ribcage #(p q) #((top) (top)) - #("i37337" "i37338")) + #("i37646" "i37647")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19343,57 +19343,57 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - #{p 37681}# - (#{1-}# #{lev 37606}#))) - (#{quasi 37581}# - #{q 37627}# - #{lev 37606}#)))) - #{tmp 37677}#) - (#{quasicons 37583}# - (#{quasi 37581}# - #{p 37626}# - #{lev 37606}#) - (#{quasi 37581}# - #{q 37627}# - #{lev 37606}#))))))) - #{tmp 37622}#) - (let ((#{tmp 37698}# - ($sc-dispatch #{p 37605}# '#(vector each-any)))) - (if #{tmp 37698}# + (#{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}# (@apply - (lambda (#{x 37702}#) - (let ((#{x 37705}# - (#{vquasi 37582}# - #{x 37702}# - #{lev 37606}#))) - (let ((#{tmp 37707}# + (lambda (#{x 38011}#) + (let ((#{x 38014}# + (#{vquasi 37891}# + #{x 38011}# + #{lev 37915}#))) + (let ((#{tmp 38016}# ($sc-dispatch - #{x 37705}# + #{x 38014}# '(#(atom "quote") each-any)))) - (if #{tmp 37707}# + (if #{tmp 38016}# (@apply - (lambda (#{x 37711}#) + (lambda (#{x 38020}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i37455")) + #("i37764")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37452")) + #("i37761")) #(ribcage (emit quasivector quasilist* @@ -19408,36 +19408,36 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - (list->vector #{x 37711}#))) - #{tmp 37707}#) + (list->vector #{x 38020}#))) + #{tmp 38016}#) (letrec* - ((#{f 37713}# - (lambda (#{y 37725}# #{k 37726}#) - (let ((#{tmp 37728}# + ((#{f 38022}# + (lambda (#{y 38034}# #{k 38035}#) + (let ((#{tmp 38037}# ($sc-dispatch - #{y 37725}# + #{y 38034}# '(#(atom "quote") each-any)))) - (if #{tmp 37728}# + (if #{tmp 38037}# (@apply - (lambda (#{y 37731}#) - (#{k 37726}# - (map (lambda (#{tmp 37480 37732}#) + (lambda (#{y 38040}#) + (#{k 38035}# + (map (lambda (#{tmp 37789 38041}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i37478")) + #("i37787")) #(ribcage () () @@ -19449,13 +19449,13 @@ #((top) (top) (top)) - #("i37460" - "i37461" - "i37462")) + #("i37769" + "i37770" + "i37771")) #(ribcage #(_) #((top)) - #("i37458")) + #("i37767")) #(ribcage () () @@ -19463,7 +19463,7 @@ #(ribcage #(x) #((top)) - #("i37452")) + #("i37761")) #(ribcage (emit quasivector quasilist* @@ -19478,51 +19478,51 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 37480 37732}#)) - #{y 37731}#))) - #{tmp 37728}#) - (let ((#{tmp 37733}# + #{tmp 37789 38041}#)) + #{y 38040}#))) + #{tmp 38037}#) + (let ((#{tmp 38042}# ($sc-dispatch - #{y 37725}# + #{y 38034}# '(#(atom "list") . each-any)))) - (if #{tmp 37733}# + (if #{tmp 38042}# (@apply - (lambda (#{y 37736}#) - (#{k 37726}# - #{y 37736}#)) - #{tmp 37733}#) - (let ((#{tmp 37737}# + (lambda (#{y 38045}#) + (#{k 38035}# + #{y 38045}#)) + #{tmp 38042}#) + (let ((#{tmp 38046}# ($sc-dispatch - #{y 37725}# + #{y 38034}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 37737}# + (if #{tmp 38046}# (@apply - (lambda (#{y 37740}# - #{z 37741}#) - (#{f 37713}# - #{z 37741}# - (lambda (#{ls 37742}#) - (#{k 37726}# + (lambda (#{y 38049}# + #{z 38050}#) + (#{f 38022}# + #{z 38050}# + (lambda (#{ls 38051}#) + (#{k 38035}# (append - #{y 37740}# - #{ls 37742}#))))) - #{tmp 37737}#) + #{y 38049}# + #{ls 38051}#))))) + #{tmp 38046}#) (list '#(syntax-object "list->vector" ((top) @@ -19531,14 +19531,14 @@ () ()) #(ribcage - #(#{ g37495}#) - #((m37496 + #(#{ g37804}#) + #((m37805 top)) - #("i37499")) + #("i37808")) #(ribcage #(else) #((top)) - #("i37493")) + #("i37802")) #(ribcage () () @@ -19548,13 +19548,13 @@ #((top) (top) (top)) - #("i37460" - "i37461" - "i37462")) + #("i37769" + "i37770" + "i37771")) #(ribcage #(_) #((top)) - #("i37458")) + #("i37767")) #(ribcage () () @@ -19562,7 +19562,7 @@ #(ribcage #(x) #((top)) - #("i37452")) + #("i37761")) #(ribcage (emit quasivector quasilist* @@ -19577,26 +19577,26 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{x 37705}#)))))))))) - (#{f 37713}# - #{x 37705}# - (lambda (#{ls 37715}#) - (let ((#{tmp 37717}# + #{x 38014}#)))))))))) + (#{f 38022}# + #{x 38014}# + (lambda (#{ls 38024}#) + (let ((#{tmp 38026}# ($sc-dispatch - #{ls 37715}# + #{ls 38024}# 'each-any))) - (if #{tmp 37717}# + (if #{tmp 38026}# (@apply - (lambda (#{ g37468 37720}#) + (lambda (#{ g37777 38029}#) (cons '#(syntax-object "vector" ((top) @@ -19605,9 +19605,9 @@ () ()) #(ribcage - #(#{ g37468}#) - #((m37469 top)) - #("i37473")) + #(#{ g37777}#) + #((m37778 top)) + #("i37782")) #(ribcage () () @@ -19623,11 +19623,11 @@ #(ribcage #(ls) #((top)) - #("i37467")) + #("i37776")) #(ribcage #(_) #((top)) - #("i37458")) + #("i37767")) #(ribcage () () @@ -19635,7 +19635,7 @@ #(ribcage #(x) #((top)) - #("i37452")) + #("i37761")) #(ribcage (emit quasivector quasilist* @@ -19650,30 +19650,30 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{ g37468 37720}#)) - #{tmp 37717}#) + #{ g37777 38029}#)) + #{tmp 38026}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 37715}#)))))))))) - #{tmp 37698}#) + #{ls 38024}#)))))))))) + #{tmp 38007}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37358")) + #(ribcage #(p) #((top)) #("i37667")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37327" "i37328")) + #("i37636" "i37637")) #(ribcage (emit quasivector quasilist* @@ -19688,25 +19688,25 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{p 37605}#))))))))))) - (#{vquasi 37582}# - (lambda (#{p 37770}# #{lev 37771}#) - (let ((#{tmp 37773}# - ($sc-dispatch #{p 37770}# '(any . any)))) - (if #{tmp 37773}# + #{p 37914}#))))))))))) + (#{vquasi 37891}# + (lambda (#{p 38079}# #{lev 38080}#) + (let ((#{tmp 38082}# + ($sc-dispatch #{p 38079}# '(any . any)))) + (if #{tmp 38082}# (@apply - (lambda (#{p 37777}# #{q 37778}#) - (let ((#{tmp 37780}# + (lambda (#{p 38086}# #{q 38087}#) + (let ((#{tmp 38089}# ($sc-dispatch - #{p 37777}# + #{p 38086}# '(#(free-id #(syntax-object unquote @@ -19714,12 +19714,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19734,38 +19734,38 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) . each-any)))) - (if #{tmp 37780}# + (if #{tmp 38089}# (@apply - (lambda (#{p 37784}#) - (if (= #{lev 37771}# 0) - (#{quasilist* 37585}# - (map (lambda (#{tmp 37374 37823}#) + (lambda (#{p 38093}#) + (if (= #{lev 38080}# 0) + (#{quasilist* 37894}# + (map (lambda (#{tmp 37683 38132}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37372")) + #("i37681")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19780,32 +19780,32 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 37374 37823}#)) - #{p 37784}#) - (#{vquasi 37582}# #{q 37778}# #{lev 37771}#)) - (#{quasicons 37583}# - (#{quasicons 37583}# + #{tmp 37683 38132}#)) + #{p 38093}#) + (#{vquasi 37891}# #{q 38087}# #{lev 38080}#)) + (#{quasicons 37892}# + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37372")) + #(ribcage #(p) #((top)) #("i37681")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19820,27 +19820,27 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i37372")) + #(ribcage #(p) #((top)) #("i37681")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19855,22 +19855,22 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - #{p 37784}# - (#{1-}# #{lev 37771}#))) - (#{vquasi 37582}# #{q 37778}# #{lev 37771}#)))) - #{tmp 37780}#) - (let ((#{tmp 37830}# + (#{quasi 37890}# + #{p 38093}# + (#{1-}# #{lev 38080}#))) + (#{vquasi 37891}# #{q 38087}# #{lev 38080}#)))) + #{tmp 38089}#) + (let ((#{tmp 38139}# ($sc-dispatch - #{p 37777}# + #{p 38086}# '(#(free-id #(syntax-object unquote-splicing @@ -19878,12 +19878,12 @@ #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19898,38 +19898,38 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) . each-any)))) - (if #{tmp 37830}# + (if #{tmp 38139}# (@apply - (lambda (#{p 37834}#) - (if (= #{lev 37771}# 0) - (#{quasiappend 37584}# - (map (lambda (#{tmp 37379 37837}#) + (lambda (#{p 38143}#) + (if (= #{lev 38080}# 0) + (#{quasiappend 37893}# + (map (lambda (#{tmp 37688 38146}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i37377")) + #("i37686")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19944,34 +19944,34 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 37379 37837}#)) - #{p 37834}#) - (#{vquasi 37582}# - #{q 37778}# - #{lev 37771}#)) - (#{quasicons 37583}# - (#{quasicons 37583}# + #{tmp 37688 38146}#)) + #{p 38143}#) + (#{vquasi 37891}# + #{q 38087}# + #{lev 38080}#)) + (#{quasicons 37892}# + (#{quasicons 37892}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i37377")) + #(ribcage #(p) #((top)) #("i37686")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -19986,27 +19986,27 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i37377")) + #(ribcage #(p) #((top)) #("i37686")) #(ribcage #(p q) #((top) (top)) - #("i37366" "i37367")) + #("i37675" "i37676")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -20021,27 +20021,27 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile))) - (#{quasi 37581}# - #{p 37834}# - (#{1-}# #{lev 37771}#))) - (#{vquasi 37582}# - #{q 37778}# - #{lev 37771}#)))) - #{tmp 37830}#) - (#{quasicons 37583}# - (#{quasi 37581}# #{p 37777}# #{lev 37771}#) - (#{vquasi 37582}# #{q 37778}# #{lev 37771}#))))))) - #{tmp 37773}#) - (let ((#{tmp 37855}# ($sc-dispatch #{p 37770}# '()))) - (if #{tmp 37855}# + (#{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}# (@apply (lambda () '(#(syntax-object @@ -20051,7 +20051,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i37362" "i37363")) + #("i37671" "i37672")) #(ribcage (emit quasivector quasilist* @@ -20060,64 +20060,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) ())) - #{tmp 37855}#) + #{tmp 38164}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 37770}#))))))) - (#{quasicons 37583}# - (lambda (#{x 37868}# #{y 37869}#) - (let ((#{tmp 37870}# (list #{x 37868}# #{y 37869}#))) - (let ((#{tmp 37871}# - ($sc-dispatch #{tmp 37870}# '(any any)))) - (if #{tmp 37871}# + #{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}# (@apply - (lambda (#{x 37873}# #{y 37874}#) - (let ((#{tmp 37876}# + (lambda (#{x 38182}# #{y 38183}#) + (let ((#{tmp 38185}# ($sc-dispatch - #{y 37874}# + #{y 38183}# '(#(atom "quote") any)))) - (if #{tmp 37876}# + (if #{tmp 38185}# (@apply - (lambda (#{dy 37880}#) - (let ((#{tmp 37882}# + (lambda (#{dy 38189}#) + (let ((#{tmp 38191}# ($sc-dispatch - #{x 37873}# + #{x 38182}# '(#(atom "quote") any)))) - (if #{tmp 37882}# + (if #{tmp 38191}# (@apply - (lambda (#{dx 37886}#) + (lambda (#{dx 38195}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i37401")) + #("i37710")) #(ribcage #(dy) #((top)) - #("i37397")) + #("i37706")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20132,39 +20132,39 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - (cons #{dx 37886}# #{dy 37880}#))) - #{tmp 37882}#) - (if (null? #{dy 37880}#) + (cons #{dx 38195}# #{dy 38189}#))) + #{tmp 38191}#) + (if (null? #{dy 38189}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i37403")) + #("i37712")) #(ribcage #(dy) #((top)) - #("i37397")) + #("i37706")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20179,37 +20179,37 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{x 37873}#) + #{x 38182}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i37403")) + #("i37712")) #(ribcage #(dy) #((top)) - #("i37397")) + #("i37706")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20224,42 +20224,42 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{x 37873}# - #{y 37874}#))))) - #{tmp 37876}#) - (let ((#{tmp 37891}# + #{x 38182}# + #{y 38183}#))))) + #{tmp 38185}#) + (let ((#{tmp 38200}# ($sc-dispatch - #{y 37874}# + #{y 38183}# '(#(atom "list") . any)))) - (if #{tmp 37891}# + (if #{tmp 38200}# (@apply - (lambda (#{stuff 37895}#) + (lambda (#{stuff 38204}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i37406")) + #("i37715")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20274,41 +20274,41 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - (cons #{x 37873}# #{stuff 37895}#))) - #{tmp 37891}#) - (let ((#{tmp 37896}# + (cons #{x 38182}# #{stuff 38204}#))) + #{tmp 38200}#) + (let ((#{tmp 38205}# ($sc-dispatch - #{y 37874}# + #{y 38183}# '(#(atom "list*") . any)))) - (if #{tmp 37896}# + (if #{tmp 38205}# (@apply - (lambda (#{stuff 37900}#) + (lambda (#{stuff 38209}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i37409")) + #("i37718")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20323,31 +20323,31 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - (cons #{x 37873}# #{stuff 37900}#))) - #{tmp 37896}#) + (cons #{x 38182}# #{stuff 38209}#))) + #{tmp 38205}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i37411")) + #(ribcage #(_) #((top)) #("i37720")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37391" "i37392")) + #("i37700" "i37701")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37386" "i37387")) + #("i37695" "i37696")) #(ribcage (emit quasivector quasilist* @@ -20362,29 +20362,29 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{x 37873}# - #{y 37874}#)))))))) - #{tmp 37871}#) + #{x 38182}# + #{y 38183}#)))))))) + #{tmp 38180}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37870}#)))))) - (#{quasiappend 37584}# - (lambda (#{x 37911}# #{y 37912}#) - (let ((#{tmp 37914}# - ($sc-dispatch #{y 37912}# '(#(atom "quote") ())))) - (if #{tmp 37914}# + #{tmp 38179}#)))))) + (#{quasiappend 37893}# + (lambda (#{x 38220}# #{y 38221}#) + (let ((#{tmp 38223}# + ($sc-dispatch #{y 38221}# '(#(atom "quote") ())))) + (if #{tmp 38223}# (@apply (lambda () - (if (null? #{x 37911}#) + (if (null? #{x 38220}#) '(#(syntax-object "quote" ((top) @@ -20392,7 +20392,7 @@ #(ribcage #(x y) #((top) (top)) - #("i37415" "i37416")) + #("i37724" "i37725")) #(ribcage (emit quasivector quasilist* @@ -20401,32 +20401,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) ()) - (if (null? (cdr #{x 37911}#)) - (car #{x 37911}#) - (let ((#{tmp 37919}# - ($sc-dispatch #{x 37911}# 'each-any))) - (if #{tmp 37919}# + (if (null? (cdr #{x 38220}#)) + (car #{x 38220}#) + (let ((#{tmp 38228}# + ($sc-dispatch #{x 38220}# 'each-any))) + (if #{tmp 38228}# (@apply - (lambda (#{p 37923}#) + (lambda (#{p 38232}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i37427")) + #(ribcage #(p) #((top)) #("i37736")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37415" "i37416")) + #("i37724" "i37725")) #(ribcage (emit quasivector quasilist* @@ -20441,29 +20441,29 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{p 37923}#)) - #{tmp 37919}#) + #{p 38232}#)) + #{tmp 38228}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37911}#)))))) - #{tmp 37914}#) - (if (null? #{x 37911}#) - #{y 37912}# - (let ((#{tmp 37931}# (list #{x 37911}# #{y 37912}#))) - (let ((#{tmp 37932}# - ($sc-dispatch #{tmp 37931}# '(each-any any)))) - (if #{tmp 37932}# + #{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}# (@apply - (lambda (#{p 37934}# #{y 37935}#) + (lambda (#{p 38243}# #{y 38244}#) (cons '#(syntax-object "append" ((top) @@ -20471,13 +20471,13 @@ #(ribcage #(p y) #((top) (top)) - #("i37438" "i37439")) - #(ribcage #(_) #((top)) #("i37430")) + #("i37747" "i37748")) + #(ribcage #(_) #((top)) #("i37739")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i37415" "i37416")) + #("i37724" "i37725")) #(ribcage (emit quasivector quasilist* @@ -20492,44 +20492,44 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - (append #{p 37934}# (list #{y 37935}#)))) - #{tmp 37932}#) + (append #{p 38243}# (list #{y 38244}#)))) + #{tmp 38241}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 37931}#))))))))) - (#{quasilist* 37585}# - (lambda (#{x 37939}# #{y 37940}#) + #{tmp 38240}#))))))))) + (#{quasilist* 37894}# + (lambda (#{x 38248}# #{y 38249}#) (letrec* - ((#{f 37941}# - (lambda (#{x 38045}#) - (if (null? #{x 38045}#) - #{y 37940}# - (#{quasicons 37583}# - (car #{x 38045}#) - (#{f 37941}# (cdr #{x 38045}#))))))) - (#{f 37941}# #{x 37939}#)))) - (#{emit 37587}# - (lambda (#{x 38048}#) - (let ((#{tmp 38050}# - ($sc-dispatch #{x 38048}# '(#(atom "quote") any)))) - (if #{tmp 38050}# + ((#{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}# (@apply - (lambda (#{x 38054}#) + (lambda (#{x 38363}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i37505")) + #(ribcage #(x) #((top)) #("i37814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37502")) + #(ribcage #(x) #((top)) #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20538,40 +20538,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{x 38054}#)) - #{tmp 38050}#) - (let ((#{tmp 38055}# + #{x 38363}#)) + #{tmp 38359}#) + (let ((#{tmp 38364}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "list") . each-any)))) - (if #{tmp 38055}# + (if #{tmp 38364}# (@apply - (lambda (#{x 38059}#) - (let ((#{tmp 38060}# (map #{emit 37587}# #{x 38059}#))) - (let ((#{tmp 38061}# - ($sc-dispatch #{tmp 38060}# 'each-any))) - (if #{tmp 38061}# + (lambda (#{x 38368}#) + (let ((#{tmp 38369}# (map #{emit 37896}# #{x 38368}#))) + (let ((#{tmp 38370}# + ($sc-dispatch #{tmp 38369}# 'each-any))) + (if #{tmp 38370}# (@apply - (lambda (#{ g37510 38063}#) + (lambda (#{ g37819 38372}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g37510}#) - #((m37511 top)) - #("i37515")) - #(ribcage #(x) #((top)) #("i37508")) + #(#{ g37819}#) + #((m37820 top)) + #("i37824")) + #(ribcage #(x) #((top)) #("i37817")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i37502")) + #(ribcage #(x) #((top)) #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20586,70 +20586,70 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{ g37510 38063}#)) - #{tmp 38061}#) + #{ g37819 38372}#)) + #{tmp 38370}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38060}#))))) - #{tmp 38055}#) - (let ((#{tmp 38064}# + #{tmp 38369}#))))) + #{tmp 38364}#) + (let ((#{tmp 38373}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 38064}# + (if #{tmp 38373}# (@apply - (lambda (#{x 38068}# #{y 38069}#) + (lambda (#{x 38377}# #{y 38378}#) (letrec* - ((#{f 38070}# - (lambda (#{x* 38073}#) - (if (null? #{x* 38073}#) - (#{emit 37587}# #{y 38069}#) - (let ((#{tmp 38074}# - (list (#{emit 37587}# - (car #{x* 38073}#)) - (#{f 38070}# - (cdr #{x* 38073}#))))) - (let ((#{tmp 38075}# + ((#{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}# ($sc-dispatch - #{tmp 38074}# + #{tmp 38383}# '(any any)))) - (if #{tmp 38075}# + (if #{tmp 38384}# (@apply - (lambda (#{ g37530 38077}# - #{ g37529 38078}#) + (lambda (#{ g37839 38386}# + #{ g37838 38387}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g37530}# - #{ g37529}#) - #((m37531 top) - (m37531 top)) - #("i37535" "i37536")) + #(#{ g37839}# + #{ g37838}#) + #((m37840 top) + (m37840 top)) + #("i37844" "i37845")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i37524" "i37525")) + #("i37833" "i37834")) #(ribcage #(x y) #((top) (top)) - #("i37520" "i37521")) + #("i37829" "i37830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37502")) + #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20664,56 +20664,56 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{ g37530 38077}# - #{ g37529 38078}#)) - #{tmp 38075}#) + #{ g37839 38386}# + #{ g37838 38387}#)) + #{tmp 38384}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38074}#)))))))) - (#{f 38070}# #{x 38068}#))) - #{tmp 38064}#) - (let ((#{tmp 38079}# + #{tmp 38383}#)))))))) + (#{f 38379}# #{x 38377}#))) + #{tmp 38373}#) + (let ((#{tmp 38388}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "append") . each-any)))) - (if #{tmp 38079}# + (if #{tmp 38388}# (@apply - (lambda (#{x 38083}#) - (let ((#{tmp 38084}# - (map #{emit 37587}# #{x 38083}#))) - (let ((#{tmp 38085}# + (lambda (#{x 38392}#) + (let ((#{tmp 38393}# + (map #{emit 37896}# #{x 38392}#))) + (let ((#{tmp 38394}# ($sc-dispatch - #{tmp 38084}# + #{tmp 38393}# 'each-any))) - (if #{tmp 38085}# + (if #{tmp 38394}# (@apply - (lambda (#{ g37542 38087}#) + (lambda (#{ g37851 38396}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g37542}#) - #((m37543 top)) - #("i37547")) + #(#{ g37851}#) + #((m37852 top)) + #("i37856")) #(ribcage #(x) #((top)) - #("i37540")) + #("i37849")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37502")) + #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20728,54 +20728,54 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{ g37542 38087}#)) - #{tmp 38085}#) + #{ g37851 38396}#)) + #{tmp 38394}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38084}#))))) - #{tmp 38079}#) - (let ((#{tmp 38088}# + #{tmp 38393}#))))) + #{tmp 38388}#) + (let ((#{tmp 38397}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "vector") . each-any)))) - (if #{tmp 38088}# + (if #{tmp 38397}# (@apply - (lambda (#{x 38092}#) - (let ((#{tmp 38093}# - (map #{emit 37587}# #{x 38092}#))) - (let ((#{tmp 38094}# + (lambda (#{x 38401}#) + (let ((#{tmp 38402}# + (map #{emit 37896}# #{x 38401}#))) + (let ((#{tmp 38403}# ($sc-dispatch - #{tmp 38093}# + #{tmp 38402}# 'each-any))) - (if #{tmp 38094}# + (if #{tmp 38403}# (@apply - (lambda (#{ g37554 38096}#) + (lambda (#{ g37863 38405}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g37554}#) - #((m37555 top)) - #("i37559")) + #(#{ g37863}#) + #((m37864 top)) + #("i37868")) #(ribcage #(x) #((top)) - #("i37552")) + #("i37861")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37502")) + #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20790,47 +20790,47 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{ g37554 38096}#)) - #{tmp 38094}#) + #{ g37863 38405}#)) + #{tmp 38403}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38093}#))))) - #{tmp 38088}#) - (let ((#{tmp 38097}# + #{tmp 38402}#))))) + #{tmp 38397}#) + (let ((#{tmp 38406}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "list->vector") any)))) - (if #{tmp 38097}# + (if #{tmp 38406}# (@apply - (lambda (#{x 38101}#) - (let ((#{tmp 38102}# - (#{emit 37587}# #{x 38101}#))) + (lambda (#{x 38410}#) + (let ((#{tmp 38411}# + (#{emit 37896}# #{x 38410}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g37566}#) - #((m37567 top)) - #("i37570")) + #(#{ g37875}#) + #((m37876 top)) + #("i37879")) #(ribcage #(x) #((top)) - #("i37564")) + #("i37873")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i37502")) + #("i37811")) #(ribcage (emit quasivector quasilist* @@ -20845,188 +20845,188 @@ (top) (top) (top)) - ("i37323" - "i37321" - "i37319" - "i37317" - "i37315" - "i37313" - "i37311"))) + ("i37632" + "i37630" + "i37628" + "i37626" + "i37624" + "i37622" + "i37620"))) (hygiene guile)) - #{tmp 38102}#))) - #{tmp 38097}#) - (let ((#{tmp 38105}# + #{tmp 38411}#))) + #{tmp 38406}#) + (let ((#{tmp 38414}# ($sc-dispatch - #{x 38048}# + #{x 38357}# '(#(atom "value") any)))) - (if #{tmp 38105}# + (if #{tmp 38414}# (@apply - (lambda (#{x 38109}#) #{x 38109}#) - #{tmp 38105}#) + (lambda (#{x 38418}#) #{x 38418}#) + #{tmp 38414}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38048}#)))))))))))))))))) - (lambda (#{x 37588}#) - (let ((#{tmp 37590}# - ($sc-dispatch #{x 37588}# '(_ any)))) - (if #{tmp 37590}# + #{x 38357}#)))))))))))))))))) + (lambda (#{x 37897}#) + (let ((#{tmp 37899}# + ($sc-dispatch #{x 37897}# '(_ any)))) + (if #{tmp 37899}# (@apply - (lambda (#{e 37594}#) - (#{emit 37587}# (#{quasi 37581}# #{e 37594}# 0))) - #{tmp 37590}#) + (lambda (#{e 37903}#) + (#{emit 37896}# (#{quasi 37890}# #{e 37903}# 0))) + #{tmp 37899}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 37588}#))))))) + #{x 37897}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 38164}#) + (lambda (#{x 38473}#) (letrec* - ((#{read-file 38165}# - (lambda (#{fn 38281}# #{k 38282}#) - (let ((#{p 38283}# (open-input-file #{fn 38281}#))) + ((#{read-file 38474}# + (lambda (#{fn 38590}# #{k 38591}#) + (let ((#{p 38592}# (open-input-file #{fn 38590}#))) (letrec* - ((#{f 38284}# - (lambda (#{x 38341}# #{result 38342}#) - (if (eof-object? #{x 38341}#) + ((#{f 38593}# + (lambda (#{x 38650}# #{result 38651}#) + (if (eof-object? #{x 38650}#) (begin - (close-input-port #{p 38283}#) - (reverse #{result 38342}#)) - (#{f 38284}# - (read #{p 38283}#) - (cons (datum->syntax #{k 38282}# #{x 38341}#) - #{result 38342}#)))))) - (#{f 38284}# (read #{p 38283}#) '())))))) - (let ((#{tmp 38167}# - ($sc-dispatch #{x 38164}# '(any any)))) - (if #{tmp 38167}# + (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}# (@apply - (lambda (#{k 38171}# #{filename 38172}#) - (let ((#{fn 38173}# (syntax->datum #{filename 38172}#))) - (let ((#{tmp 38174}# - (#{read-file 38165}# - #{fn 38173}# - #{filename 38172}#))) - (let ((#{tmp 38175}# - ($sc-dispatch #{tmp 38174}# 'each-any))) - (if #{tmp 38175}# + (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}# (@apply - (lambda (#{exp 38193}#) + (lambda (#{exp 38502}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i38161")) + #(ribcage #(exp) #((top)) #("i38470")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38156")) + #(ribcage #(fn) #((top)) #("i38465")) #(ribcage #(k filename) #((top) (top)) - #("i38152" "i38153")) - #(ribcage (read-file) ((top)) ("i38136")) - #(ribcage #(x) #((top)) #("i38135"))) + #("i38461" "i38462")) + #(ribcage (read-file) ((top)) ("i38445")) + #(ribcage #(x) #((top)) #("i38444"))) (hygiene guile)) - #{exp 38193}#)) - #{tmp 38175}#) + #{exp 38502}#)) + #{tmp 38484}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 38174}#)))))) - #{tmp 38167}#) + #{tmp 38483}#)))))) + #{tmp 38476}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38164}#))))))) + #{x 38473}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 38361}#) - (let ((#{tmp 38363}# - ($sc-dispatch #{x 38361}# '(any any)))) - (if #{tmp 38363}# + (lambda (#{x 38670}#) + (let ((#{tmp 38672}# + ($sc-dispatch #{x 38670}# '(any any)))) + (if #{tmp 38672}# (@apply - (lambda (#{k 38367}# #{filename 38368}#) - (let ((#{fn 38369}# (syntax->datum #{filename 38368}#))) - (let ((#{tmp 38370}# + (lambda (#{k 38676}# #{filename 38677}#) + (let ((#{fn 38678}# (syntax->datum #{filename 38677}#))) + (let ((#{tmp 38679}# (datum->syntax - #{filename 38368}# - (let ((#{t 38373}# (%search-load-path #{fn 38369}#))) - (if #{t 38373}# - #{t 38373}# + #{filename 38677}# + (let ((#{t 38682}# (%search-load-path #{fn 38678}#))) + (if #{t 38682}# + #{t 38682}# (syntax-violation 'include-from-path "file not found in path" - #{x 38361}# - #{filename 38368}#)))))) + #{x 38670}# + #{filename 38677}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38355")) + #(ribcage #(fn) #((top)) #("i38664")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i38351")) + #(ribcage #(fn) #((top)) #("i38660")) #(ribcage #(k filename) #((top) (top)) - #("i38347" "i38348")) + #("i38656" "i38657")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38344"))) + #(ribcage #(x) #((top)) #("i38653"))) (hygiene guile)) - #{tmp 38370}#)))) - #{tmp 38363}#) + #{tmp 38679}#)))) + #{tmp 38672}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38361}#)))))) + #{x 38670}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 38382}#) + (lambda (#{x 38691}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 38382}#)))) + #{x 38691}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 38385}#) + (lambda (#{x 38694}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 38385}#)))) + #{x 38694}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 38441}#) - (let ((#{tmp 38443}# + (lambda (#{x 38750}#) + (let ((#{tmp 38752}# ($sc-dispatch - #{x 38441}# + #{x 38750}# '(_ any any . each-any)))) - (if #{tmp 38443}# + (if #{tmp 38752}# (@apply - (lambda (#{e 38447}# #{m1 38448}# #{m2 38449}#) - (let ((#{tmp 38450}# + (lambda (#{e 38756}# #{m1 38757}# #{m2 38758}#) + (let ((#{tmp 38759}# (letrec* - ((#{f 38511}# - (lambda (#{clause 38514}# #{clauses 38515}#) - (if (null? #{clauses 38515}#) - (let ((#{tmp 38517}# + ((#{f 38820}# + (lambda (#{clause 38823}# #{clauses 38824}#) + (if (null? #{clauses 38824}#) + (let ((#{tmp 38826}# ($sc-dispatch - #{clause 38514}# + #{clause 38823}# '(#(free-id #(syntax-object else @@ -21035,91 +21035,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile))) any . each-any)))) - (if #{tmp 38517}# + (if #{tmp 38826}# (@apply - (lambda (#{e1 38521}# #{e2 38522}#) + (lambda (#{e1 38830}# #{e2 38831}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i38409" "i38410")) + #("i38718" "i38719")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) - (cons #{e1 38521}# #{e2 38522}#))) - #{tmp 38517}#) - (let ((#{tmp 38523}# + (cons #{e1 38830}# #{e2 38831}#))) + #{tmp 38826}#) + (let ((#{tmp 38832}# ($sc-dispatch - #{clause 38514}# + #{clause 38823}# '(each-any any . each-any)))) - (if #{tmp 38523}# + (if #{tmp 38832}# (@apply - (lambda (#{k 38527}# - #{e1 38528}# - #{e2 38529}#) + (lambda (#{k 38836}# + #{e1 38837}# + #{e2 38838}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38415" - "i38416" - "i38417")) + #("i38724" + "i38725" + "i38726")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) (list '#(syntax-object memv @@ -21129,9 +21129,9 @@ #((top) (top) (top)) - #("i38415" - "i38416" - "i38417")) + #("i38724" + "i38725" + "i38726")) #(ribcage () () ()) #(ribcage #(f @@ -21140,22 +21140,22 @@ #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) '#(syntax-object t @@ -21165,9 +21165,9 @@ #((top) (top) (top)) - #("i38415" - "i38416" - "i38417")) + #("i38724" + "i38725" + "i38726")) #(ribcage () () ()) #(ribcage #(f @@ -21176,22 +21176,22 @@ #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) (list '#(syntax-object quote @@ -21201,9 +21201,9 @@ #((top) (top) (top)) - #("i38415" - "i38416" - "i38417")) + #("i38724" + "i38725" + "i38726")) #(ribcage () () @@ -21215,17 +21215,17 @@ #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () @@ -21233,10 +21233,10 @@ #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) - #{k 38527}#)) + #{k 38836}#)) (cons '#(syntax-object begin ((top) @@ -21245,9 +21245,9 @@ #((top) (top) (top)) - #("i38415" - "i38416" - "i38417")) + #("i38724" + "i38725" + "i38726")) #(ribcage () () ()) #(ribcage #(f @@ -21256,76 +21256,76 @@ #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) - (cons #{e1 38528}# - #{e2 38529}#)))) - #{tmp 38523}#) + (cons #{e1 38837}# + #{e2 38838}#)))) + #{tmp 38832}#) (syntax-violation 'case "bad clause" - #{x 38441}# - #{clause 38514}#))))) - (let ((#{tmp 38537}# - (#{f 38511}# - (car #{clauses 38515}#) - (cdr #{clauses 38515}#)))) - (let ((#{tmp 38540}# + #{x 38750}# + #{clause 38823}#))))) + (let ((#{tmp 38846}# + (#{f 38820}# + (car #{clauses 38824}#) + (cdr #{clauses 38824}#)))) + (let ((#{tmp 38849}# ($sc-dispatch - #{clause 38514}# + #{clause 38823}# '(each-any any . each-any)))) - (if #{tmp 38540}# + (if #{tmp 38849}# (@apply - (lambda (#{k 38544}# - #{e1 38545}# - #{e2 38546}#) + (lambda (#{k 38853}# + #{e1 38854}# + #{e2 38855}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38431" - "i38432" - "i38433")) + #("i38740" + "i38741" + "i38742")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38427")) + #("i38736")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) (list '#(syntax-object memv @@ -21333,32 +21333,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38431" - "i38432" - "i38433")) + #("i38740" + "i38741" + "i38742")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38427")) + #("i38736")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) '#(syntax-object t @@ -21366,32 +21366,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38431" - "i38432" - "i38433")) + #("i38740" + "i38741" + "i38742")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38427")) + #("i38736")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) (list '#(syntax-object quote @@ -21401,9 +21401,9 @@ #((top) (top) (top)) - #("i38431" - "i38432" - "i38433")) + #("i38740" + "i38741" + "i38742")) #(ribcage () () @@ -21411,7 +21411,7 @@ #(ribcage #(rest) #((top)) - #("i38427")) + #("i38736")) #(ribcage () () @@ -21423,17 +21423,17 @@ #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () @@ -21441,232 +21441,232 @@ #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) - #{k 38544}#)) + #{k 38853}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i38431" - "i38432" - "i38433")) + #("i38740" + "i38741" + "i38742")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i38427")) + #("i38736")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i38400" - "i38401" - "i38402")) + #("i38709" + "i38710" + "i38711")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" - "i38391" - "i38392")) + #("i38699" + "i38700" + "i38701")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38387"))) + #("i38696"))) (hygiene guile)) - (cons #{e1 38545}# - #{e2 38546}#)) - #{tmp 38537}#)) - #{tmp 38540}#) + (cons #{e1 38854}# + #{e2 38855}#)) + #{tmp 38846}#)) + #{tmp 38849}#) (syntax-violation 'case "bad clause" - #{x 38441}# - #{clause 38514}#)))))))) - (#{f 38511}# #{m1 38448}# #{m2 38449}#)))) - (let ((#{body 38451}# #{tmp 38450}#)) + #{x 38750}# + #{clause 38823}#)))))))) + (#{f 38820}# #{m1 38757}# #{m2 38758}#)))) + (let ((#{body 38760}# #{tmp 38759}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i38398")) + #(ribcage #(body) #((top)) #("i38707")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" "i38391" "i38392")) + #("i38699" "i38700" "i38701")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38387"))) + #(ribcage #(x) #((top)) #("i38696"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i38398")) + #(ribcage #(body) #((top)) #("i38707")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i38390" "i38391" "i38392")) + #("i38699" "i38700" "i38701")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38387"))) + #(ribcage #(x) #((top)) #("i38696"))) (hygiene guile)) - #{e 38447}#)) - #{body 38451}#)))) - #{tmp 38443}#) + #{e 38756}#)) + #{body 38760}#)))) + #{tmp 38752}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38441}#)))))) + #{x 38750}#)))))) (define make-variable-transformer - (lambda (#{proc 38564}#) - (if (procedure? #{proc 38564}#) + (lambda (#{proc 38873}#) + (if (procedure? #{proc 38873}#) (letrec* - ((#{trans 38565}# - (lambda (#{x 38571}#) - (#{proc 38564}# #{x 38571}#)))) + ((#{trans 38874}# + (lambda (#{x 38880}#) + (#{proc 38873}# #{x 38880}#)))) (begin (set-procedure-property! - #{trans 38565}# + #{trans 38874}# 'variable-transformer #t) - #{trans 38565}#)) + #{trans 38874}#)) (error "variable transformer not a procedure" - #{proc 38564}#)))) + #{proc 38873}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 38603}#) - (let ((#{tmp 38605}# - ($sc-dispatch #{x 38603}# '(_ any)))) - (if #{tmp 38605}# + (lambda (#{x 38912}#) + (let ((#{tmp 38914}# + ($sc-dispatch #{x 38912}# '(_ any)))) + (if #{tmp 38914}# (@apply - (lambda (#{e 38609}#) + (lambda (#{e 38918}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) - #{e 38609}#)) + #{e 38918}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i38578")) + #(ribcage #(e) #((top)) #("i38887")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) - (cons #{e 38609}# + (cons #{e 38918}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i38578")) + #("i38887")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) #(syntax-object ... @@ -21674,55 +21674,55 @@ #(ribcage #(e) #((top)) - #("i38578")) + #("i38887")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile))))))))) - #{tmp 38605}#) - (let ((#{tmp 38610}# + #{tmp 38914}#) + (let ((#{tmp 38919}# ($sc-dispatch - #{x 38603}# + #{x 38912}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 38610}# + (if (if #{tmp 38919}# (@apply - (lambda (#{id 38614}# - #{exp1 38615}# - #{var 38616}# - #{val 38617}# - #{exp2 38618}#) - (if (identifier? #{id 38614}#) - (identifier? #{var 38616}#) + (lambda (#{id 38923}# + #{exp1 38924}# + #{var 38925}# + #{val 38926}# + #{exp2 38927}#) + (if (identifier? #{id 38923}#) + (identifier? #{var 38925}#) #f)) - #{tmp 38610}#) + #{tmp 38919}#) #f) (@apply - (lambda (#{id 38619}# - #{exp1 38620}# - #{var 38621}# - #{val 38622}# - #{exp2 38623}#) + (lambda (#{id 38928}# + #{exp1 38929}# + #{var 38930}# + #{val 38931}# + #{exp2 38932}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" "i38594" "i38595" "i38596" "i38597")) + #("i38902" "i38903" "i38904" "i38905" "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) (list '#(syntax-object lambda @@ -21730,13 +21730,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '(#(syntax-object x @@ -21744,13 +21744,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -21758,13 +21758,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) . #(syntax-object @@ -21773,13 +21773,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -21787,13 +21787,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '#(syntax-object x @@ -21801,13 +21801,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile)) '(#(syntax-object set! @@ -21815,13 +21815,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38575"))) + #(ribcage #(x) #((top)) #("i38884"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -21833,19 +21833,19 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) - #{var 38621}# - #{val 38622}#) + #{var 38930}# + #{val 38931}#) (list '#(syntax-object syntax ((top) @@ -21856,19 +21856,19 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) - #{exp2 38623}#)) - (list (cons #{id 38619}# + #{exp2 38932}#)) + (list (cons #{id 38928}# '(#(syntax-object x ((top) @@ -21879,16 +21879,16 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) #(syntax-object ... @@ -21900,16 +21900,16 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -21921,18 +21921,18 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) - (cons #{exp1 38620}# + (cons #{exp1 38929}# '(#(syntax-object x ((top) @@ -21947,16 +21947,16 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) #(syntax-object ... @@ -21972,18 +21972,18 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)))))) - (list #{id 38619}# + (list #{id 38928}# (list '#(syntax-object identifier? ((top) @@ -21994,16 +21994,16 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) (list '#(syntax-object syntax @@ -22019,18 +22019,18 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) - #{id 38619}#)) + #{id 38928}#)) (list '#(syntax-object syntax ((top) @@ -22041,68 +22041,68 @@ (top) (top) (top)) - #("i38593" - "i38594" - "i38595" - "i38596" - "i38597")) + #("i38902" + "i38903" + "i38904" + "i38905" + "i38906")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i38575"))) + #("i38884"))) (hygiene guile)) - #{exp1 38620}#)))))) - #{tmp 38610}#) + #{exp1 38929}#)))))) + #{tmp 38919}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38603}#)))))))) + #{x 38912}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 38655}#) - (let ((#{tmp 38657}# + (lambda (#{x 38964}#) + (let ((#{tmp 38966}# ($sc-dispatch - #{x 38655}# + #{x 38964}# '(_ (any . any) any . each-any)))) - (if #{tmp 38657}# + (if #{tmp 38966}# (@apply - (lambda (#{id 38661}# - #{args 38662}# - #{b0 38663}# - #{b1 38664}#) + (lambda (#{id 38970}# + #{args 38971}# + #{b0 38972}# + #{b1 38973}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i38637" "i38638" "i38639" "i38640")) + #("i38946" "i38947" "i38948" "i38949")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38634"))) + #(ribcage #(x) #((top)) #("i38943"))) (hygiene guile)) - #{id 38661}# + #{id 38970}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i38637" "i38638" "i38639" "i38640")) + #("i38946" "i38947" "i38948" "i38949")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38634"))) + #(ribcage #(x) #((top)) #("i38943"))) (hygiene guile)) - (cons #{args 38662}# - (cons #{b0 38663}# #{b1 38664}#))))) - #{tmp 38657}#) - (let ((#{tmp 38665}# - ($sc-dispatch #{x 38655}# '(_ any any)))) - (if (if #{tmp 38665}# + (cons #{args 38971}# + (cons #{b0 38972}# #{b1 38973}#))))) + #{tmp 38966}#) + (let ((#{tmp 38974}# + ($sc-dispatch #{x 38964}# '(_ any any)))) + (if (if #{tmp 38974}# (@apply - (lambda (#{id 38669}# #{val 38670}#) + (lambda (#{id 38978}# #{val 38979}#) (identifier? '#(syntax-object x @@ -22110,29 +22110,29 @@ #(ribcage #(id val) #((top) (top)) - #("i38647" "i38648")) + #("i38956" "i38957")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38634"))) + #(ribcage #(x) #((top)) #("i38943"))) (hygiene guile)))) - #{tmp 38665}#) + #{tmp 38974}#) #f) (@apply - (lambda (#{id 38671}# #{val 38672}#) + (lambda (#{id 38980}# #{val 38981}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i38651" "i38652")) + #("i38960" "i38961")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i38634"))) + #(ribcage #(x) #((top)) #("i38943"))) (hygiene guile)) - #{id 38671}# - #{val 38672}#)) - #{tmp 38665}#) + #{id 38980}# + #{val 38981}#)) + #{tmp 38974}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 38655}#)))))))) + #{x 38964}#)))))))) |