summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-28 11:41:08 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-28 11:41:08 +0200
commitdd64fe65fd3b93b469d6286df3dd135aaec6756e (patch)
tree3b7bbb13af2584283babcd4414b04776a3d9bec5
parentd5a4f51f9ccffe6b7850d276e23de2841c1a88b3 (diff)
downloadguile-dd64fe65fd3b93b469d6286df3dd135aaec6756e.tar.gz
regenerate psyntax-pp
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--module/ice-9/psyntax-pp.scm16676
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}#))))))))