summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-28 12:14:00 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-28 12:14:00 +0200
commit148dfc2409786996834f6ee1d0fdda563db182c0 (patch)
tree651b3b1bf61d6f393a15fa86896691f6513e25b1
parentdd64fe65fd3b93b469d6286df3dd135aaec6756e (diff)
downloadguile-148dfc2409786996834f6ee1d0fdda563db182c0.tar.gz
refactor chi-top-sequence
* module/ice-9/psyntax.scm (chi-top-sequence): Refactor slightly. * module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--module/ice-9/psyntax-pp.scm17615
-rw-r--r--module/ice-9/psyntax.scm250
2 files changed, 8920 insertions, 8945 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index dbd1ace7a..b6f826933 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1964 +2,1947 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4302}#
- (lambda (#{x 36832}# #{mod 36833}#)
- (primitive-eval #{x 36832}#)))
- (#{maybe-name-value! 4307}#
- (lambda (#{name 19451}# #{val 19452}#)
- (if (if (struct? #{val 19452}#)
- (eq? (struct-vtable #{val 19452}#)
+ ((#{top-level-eval-hook 4300}#
+ (lambda (#{x 36829}# #{mod 36830}#)
+ (primitive-eval #{x 36829}#)))
+ (#{maybe-name-value! 4305}#
+ (lambda (#{name 19449}# #{val 19450}#)
+ (if (if (struct? #{val 19450}#)
+ (eq? (struct-vtable #{val 19450}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19459}# (struct-ref #{val 19452}# 1)))
- (if (not (assq 'name #{meta 19459}#))
- (let ((#{v 19464}#
- (cons (cons 'name #{name 19451}#) #{meta 19459}#)))
- (struct-set! #{val 19452}# 1 #{v 19464}#)))))))
- (#{build-call 4309}#
- (lambda (#{source 19196}#
- #{fun-exp 19197}#
- #{arg-exps 19198}#)
+ (let ((#{meta 19457}# (struct-ref #{val 19450}# 1)))
+ (if (not (assq 'name #{meta 19457}#))
+ (let ((#{v 19462}#
+ (cons (cons 'name #{name 19449}#) #{meta 19457}#)))
+ (struct-set! #{val 19450}# 1 #{v 19462}#)))))))
+ (#{build-call 4307}#
+ (lambda (#{source 19194}#
+ #{fun-exp 19195}#
+ #{arg-exps 19196}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 19196}#
- #{fun-exp 19197}#
- #{arg-exps 19198}#)))
- (#{build-conditional 4310}#
- (lambda (#{source 19204}#
- #{test-exp 19205}#
- #{then-exp 19206}#
- #{else-exp 19207}#)
+ #{source 19194}#
+ #{fun-exp 19195}#
+ #{arg-exps 19196}#)))
+ (#{build-conditional 4308}#
+ (lambda (#{source 19202}#
+ #{test-exp 19203}#
+ #{then-exp 19204}#
+ #{else-exp 19205}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 19204}#
- #{test-exp 19205}#
- #{then-exp 19206}#
- #{else-exp 19207}#)))
- (#{build-dynlet 4311}#
- (lambda (#{source 19214}#
- #{fluids 19215}#
- #{vals 19216}#
- #{body 19217}#)
+ #{source 19202}#
+ #{test-exp 19203}#
+ #{then-exp 19204}#
+ #{else-exp 19205}#)))
+ (#{build-dynlet 4309}#
+ (lambda (#{source 19212}#
+ #{fluids 19213}#
+ #{vals 19214}#
+ #{body 19215}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 18)
- #{source 19214}#
- #{fluids 19215}#
- #{vals 19216}#
- #{body 19217}#)))
- (#{build-lexical-reference 4312}#
- (lambda (#{type 36834}#
- #{source 36835}#
- #{name 36836}#
- #{var 36837}#)
+ #{source 19212}#
+ #{fluids 19213}#
+ #{vals 19214}#
+ #{body 19215}#)))
+ (#{build-lexical-reference 4310}#
+ (lambda (#{type 36831}#
+ #{source 36832}#
+ #{name 36833}#
+ #{var 36834}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 36835}#
- #{name 36836}#
- #{var 36837}#)))
- (#{build-lexical-assignment 4313}#
- (lambda (#{source 19224}#
- #{name 19225}#
- #{var 19226}#
- #{exp 19227}#)
+ #{source 36832}#
+ #{name 36833}#
+ #{var 36834}#)))
+ (#{build-lexical-assignment 4311}#
+ (lambda (#{source 19222}#
+ #{name 19223}#
+ #{var 19224}#
+ #{exp 19225}#)
(begin
- (if (if (struct? #{exp 19227}#)
- (eq? (struct-vtable #{exp 19227}#)
+ (if (if (struct? #{exp 19225}#)
+ (eq? (struct-vtable #{exp 19225}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19243}# (struct-ref #{exp 19227}# 1)))
- (if (not (assq 'name #{meta 19243}#))
- (let ((#{v 19250}#
- (cons (cons 'name #{name 19225}#) #{meta 19243}#)))
- (struct-set! #{exp 19227}# 1 #{v 19250}#)))))
+ (let ((#{meta 19241}# (struct-ref #{exp 19225}# 1)))
+ (if (not (assq 'name #{meta 19241}#))
+ (let ((#{v 19248}#
+ (cons (cons 'name #{name 19223}#) #{meta 19241}#)))
+ (struct-set! #{exp 19225}# 1 #{v 19248}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 19224}#
- #{name 19225}#
- #{var 19226}#
- #{exp 19227}#))))
- (#{analyze-variable 4314}#
- (lambda (#{mod 36843}#
- #{var 36844}#
- #{modref-cont 36845}#
- #{bare-cont 36846}#)
- (if (not #{mod 36843}#)
- (#{bare-cont 36846}# #{var 36844}#)
- (let ((#{kind 36847}# (car #{mod 36843}#))
- (#{mod 36848}# (cdr #{mod 36843}#)))
- (if (eqv? #{kind 36847}# 'public)
- (#{modref-cont 36845}#
- #{mod 36848}#
- #{var 36844}#
+ #{source 19222}#
+ #{name 19223}#
+ #{var 19224}#
+ #{exp 19225}#))))
+ (#{analyze-variable 4312}#
+ (lambda (#{mod 36840}#
+ #{var 36841}#
+ #{modref-cont 36842}#
+ #{bare-cont 36843}#)
+ (if (not #{mod 36840}#)
+ (#{bare-cont 36843}# #{var 36841}#)
+ (let ((#{kind 36844}# (car #{mod 36840}#))
+ (#{mod 36845}# (cdr #{mod 36840}#)))
+ (if (eqv? #{kind 36844}# 'public)
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#t)
- (if (eqv? #{kind 36847}# 'private)
+ (if (eqv? #{kind 36844}# 'private)
(if (not (equal?
- #{mod 36848}#
+ #{mod 36845}#
(module-name (current-module))))
- (#{modref-cont 36845}#
- #{mod 36848}#
- #{var 36844}#
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#f)
- (#{bare-cont 36846}# #{var 36844}#))
- (if (eqv? #{kind 36847}# 'bare)
- (#{bare-cont 36846}# #{var 36844}#)
- (if (eqv? #{kind 36847}# 'hygiene)
+ (#{bare-cont 36843}# #{var 36841}#))
+ (if (eqv? #{kind 36844}# 'bare)
+ (#{bare-cont 36843}# #{var 36841}#)
+ (if (eqv? #{kind 36844}# 'hygiene)
(if (if (not (equal?
- #{mod 36848}#
+ #{mod 36845}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 36848}#)
- #{var 36844}#)
+ (resolve-module #{mod 36845}#)
+ #{var 36841}#)
#f)
- (#{modref-cont 36845}#
- #{mod 36848}#
- #{var 36844}#
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#f)
- (#{bare-cont 36846}# #{var 36844}#))
+ (#{bare-cont 36843}# #{var 36841}#))
(syntax-violation
#f
"bad module kind"
- #{var 36844}#
- #{mod 36848}#)))))))))
- (#{build-global-reference 4315}#
- (lambda (#{source 36863}# #{var 36864}# #{mod 36865}#)
- (#{analyze-variable 4314}#
- #{mod 36865}#
- #{var 36864}#
- (lambda (#{mod 36868}# #{var 36869}# #{public? 36870}#)
+ #{var 36841}#
+ #{mod 36845}#)))))))))
+ (#{build-global-reference 4313}#
+ (lambda (#{source 36860}# #{var 36861}# #{mod 36862}#)
+ (#{analyze-variable 4312}#
+ #{mod 36862}#
+ #{var 36861}#
+ (lambda (#{mod 36865}# #{var 36866}# #{public? 36867}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 36863}#
- #{mod 36868}#
- #{var 36869}#
- #{public? 36870}#))
- (lambda (#{var 36877}#)
+ #{source 36860}#
+ #{mod 36865}#
+ #{var 36866}#
+ #{public? 36867}#))
+ (lambda (#{var 36874}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 36863}#
- #{var 36877}#)))))
- (#{build-global-assignment 4316}#
- (lambda (#{source 19259}#
- #{var 19260}#
- #{exp 19261}#
- #{mod 19262}#)
+ #{source 36860}#
+ #{var 36874}#)))))
+ (#{build-global-assignment 4314}#
+ (lambda (#{source 19257}#
+ #{var 19258}#
+ #{exp 19259}#
+ #{mod 19260}#)
(begin
- (if (if (struct? #{exp 19261}#)
- (eq? (struct-vtable #{exp 19261}#)
+ (if (if (struct? #{exp 19259}#)
+ (eq? (struct-vtable #{exp 19259}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19278}# (struct-ref #{exp 19261}# 1)))
- (if (not (assq 'name #{meta 19278}#))
- (let ((#{v 19285}#
- (cons (cons 'name #{var 19260}#) #{meta 19278}#)))
- (struct-set! #{exp 19261}# 1 #{v 19285}#)))))
- (#{analyze-variable 4314}#
- #{mod 19262}#
- #{var 19260}#
- (lambda (#{mod 19290}# #{var 19291}# #{public? 19292}#)
+ (let ((#{meta 19276}# (struct-ref #{exp 19259}# 1)))
+ (if (not (assq 'name #{meta 19276}#))
+ (let ((#{v 19283}#
+ (cons (cons 'name #{var 19258}#) #{meta 19276}#)))
+ (struct-set! #{exp 19259}# 1 #{v 19283}#)))))
+ (#{analyze-variable 4312}#
+ #{mod 19260}#
+ #{var 19258}#
+ (lambda (#{mod 19288}# #{var 19289}# #{public? 19290}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 19259}#
- #{mod 19290}#
- #{var 19291}#
- #{public? 19292}#
- #{exp 19261}#))
- (lambda (#{var 19300}#)
+ #{source 19257}#
+ #{mod 19288}#
+ #{var 19289}#
+ #{public? 19290}#
+ #{exp 19259}#))
+ (lambda (#{var 19298}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 19259}#
- #{var 19300}#
- #{exp 19261}#))))))
- (#{build-global-definition 4317}#
- (lambda (#{source 36882}# #{var 36883}# #{exp 36884}#)
+ #{source 19257}#
+ #{var 19298}#
+ #{exp 19259}#))))))
+ (#{build-global-definition 4315}#
+ (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#)
(begin
- (if (if (struct? #{exp 36884}#)
- (eq? (struct-vtable #{exp 36884}#)
+ (if (if (struct? #{exp 36881}#)
+ (eq? (struct-vtable #{exp 36881}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 36900}# (struct-ref #{exp 36884}# 1)))
- (if (not (assq 'name #{meta 36900}#))
- (let ((#{v 36907}#
- (cons (cons 'name #{var 36883}#) #{meta 36900}#)))
- (struct-set! #{exp 36884}# 1 #{v 36907}#)))))
+ (let ((#{meta 36897}# (struct-ref #{exp 36881}# 1)))
+ (if (not (assq 'name #{meta 36897}#))
+ (let ((#{v 36904}#
+ (cons (cons 'name #{var 36880}#) #{meta 36897}#)))
+ (struct-set! #{exp 36881}# 1 #{v 36904}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 36882}#
- #{var 36883}#
- #{exp 36884}#))))
- (#{build-simple-lambda 4318}#
- (lambda (#{src 19306}#
- #{req 19307}#
- #{rest 19308}#
- #{vars 19309}#
- #{meta 19310}#
- #{exp 19311}#)
- (let ((#{body 19317}#
+ #{source 36879}#
+ #{var 36880}#
+ #{exp 36881}#))))
+ (#{build-simple-lambda 4316}#
+ (lambda (#{src 19304}#
+ #{req 19305}#
+ #{rest 19306}#
+ #{vars 19307}#
+ #{meta 19308}#
+ #{exp 19309}#)
+ (let ((#{body 19315}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19306}#
- #{req 19307}#
+ #{src 19304}#
+ #{req 19305}#
#f
- #{rest 19308}#
+ #{rest 19306}#
#f
'()
- #{vars 19309}#
- #{exp 19311}#
+ #{vars 19307}#
+ #{exp 19309}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19306}#
- #{meta 19310}#
- #{body 19317}#))))
- (#{build-primcall 4321}#
- (lambda (#{src 19329}# #{name 19330}# #{args 19331}#)
+ #{src 19304}#
+ #{meta 19308}#
+ #{body 19315}#))))
+ (#{build-primcall 4319}#
+ (lambda (#{src 19327}# #{name 19328}# #{args 19329}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 19329}#
- #{name 19330}#
- #{args 19331}#)))
- (#{build-sequence 4324}#
- (lambda (#{src 36915}# #{exps 36916}#)
- (if (null? (cdr #{exps 36916}#))
- (car #{exps 36916}#)
- (let ((#{head 36920}# (car #{exps 36916}#))
- (#{tail 36921}#
- (#{build-sequence 4324}# #f (cdr #{exps 36916}#))))
+ #{src 19327}#
+ #{name 19328}#
+ #{args 19329}#)))
+ (#{build-sequence 4322}#
+ (lambda (#{src 36912}# #{exps 36913}#)
+ (if (null? (cdr #{exps 36913}#))
+ (car #{exps 36913}#)
+ (let ((#{head 36917}# (car #{exps 36913}#))
+ (#{tail 36918}#
+ (#{build-sequence 4322}# #f (cdr #{exps 36913}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 36915}#
- #{head 36920}#
- #{tail 36921}#)))))
- (#{build-named-let 4326}#
- (lambda (#{src 19337}#
- #{ids 19338}#
- #{vars 19339}#
- #{val-exps 19340}#
- #{body-exp 19341}#)
- (let ((#{f 19342}# (car #{vars 19339}#))
- (#{f-name 19343}# (car #{ids 19338}#))
- (#{vars 19344}# (cdr #{vars 19339}#))
- (#{ids 19345}# (cdr #{ids 19338}#)))
- (let ((#{proc 19346}#
- (let ((#{body 19366}#
+ #{src 36912}#
+ #{head 36917}#
+ #{tail 36918}#)))))
+ (#{build-named-let 4324}#
+ (lambda (#{src 19335}#
+ #{ids 19336}#
+ #{vars 19337}#
+ #{val-exps 19338}#
+ #{body-exp 19339}#)
+ (let ((#{f 19340}# (car #{vars 19337}#))
+ (#{f-name 19341}# (car #{ids 19336}#))
+ (#{vars 19342}# (cdr #{vars 19337}#))
+ (#{ids 19343}# (cdr #{ids 19336}#)))
+ (let ((#{proc 19344}#
+ (let ((#{body 19364}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19337}#
- #{ids 19345}#
+ #{src 19335}#
+ #{ids 19343}#
#f
#f
#f
'()
- #{vars 19344}#
- #{body-exp 19341}#
+ #{vars 19342}#
+ #{body-exp 19339}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19337}#
+ #{src 19335}#
'()
- #{body 19366}#))))
+ #{body 19364}#))))
(begin
- (if (if (struct? #{proc 19346}#)
- (eq? (struct-vtable #{proc 19346}#)
+ (if (if (struct? #{proc 19344}#)
+ (eq? (struct-vtable #{proc 19344}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19390}# (struct-ref #{proc 19346}# 1)))
- (if (not (assq 'name #{meta 19390}#))
- (let ((#{v 19397}#
- (cons (cons 'name #{f-name 19343}#)
- #{meta 19390}#)))
- (struct-set! #{proc 19346}# 1 #{v 19397}#)))))
+ (let ((#{meta 19388}# (struct-ref #{proc 19344}# 1)))
+ (if (not (assq 'name #{meta 19388}#))
+ (let ((#{v 19395}#
+ (cons (cons 'name #{f-name 19341}#)
+ #{meta 19388}#)))
+ (struct-set! #{proc 19344}# 1 #{v 19395}#)))))
(for-each
- #{maybe-name-value! 4307}#
- #{ids 19345}#
- #{val-exps 19340}#)
- (let ((#{names 19421}# (list #{f-name 19343}#))
- (#{gensyms 19422}# (list #{f 19342}#))
- (#{vals 19423}# (list #{proc 19346}#))
- (#{body 19424}#
- (let ((#{fun-exp 19428}#
+ #{maybe-name-value! 4305}#
+ #{ids 19343}#
+ #{val-exps 19338}#)
+ (let ((#{names 19419}# (list #{f-name 19341}#))
+ (#{gensyms 19420}# (list #{f 19340}#))
+ (#{vals 19421}# (list #{proc 19344}#))
+ (#{body 19422}#
+ (let ((#{fun-exp 19426}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 19337}#
- #{f-name 19343}#
- #{f 19342}#)))
+ #{src 19335}#
+ #{f-name 19341}#
+ #{f 19340}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 19337}#
- #{fun-exp 19428}#
- #{val-exps 19340}#))))
+ #{src 19335}#
+ #{fun-exp 19426}#
+ #{val-exps 19338}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 19337}#
+ #{src 19335}#
#f
- #{names 19421}#
- #{gensyms 19422}#
- #{vals 19423}#
- #{body 19424}#)))))))
- (#{build-letrec 4327}#
- (lambda (#{src 19444}#
- #{in-order? 19445}#
- #{ids 19446}#
- #{vars 19447}#
- #{val-exps 19448}#
- #{body-exp 19449}#)
- (if (null? #{vars 19447}#)
- #{body-exp 19449}#
+ #{names 19419}#
+ #{gensyms 19420}#
+ #{vals 19421}#
+ #{body 19422}#)))))))
+ (#{build-letrec 4325}#
+ (lambda (#{src 19442}#
+ #{in-order? 19443}#
+ #{ids 19444}#
+ #{vars 19445}#
+ #{val-exps 19446}#
+ #{body-exp 19447}#)
+ (if (null? #{vars 19445}#)
+ #{body-exp 19447}#
(begin
(for-each
- #{maybe-name-value! 4307}#
- #{ids 19446}#
- #{val-exps 19448}#)
+ #{maybe-name-value! 4305}#
+ #{ids 19444}#
+ #{val-exps 19446}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 19444}#
- #{in-order? 19445}#
- #{ids 19446}#
- #{vars 19447}#
- #{val-exps 19448}#
- #{body-exp 19449}#)))))
- (#{source-annotation 4336}#
- (lambda (#{x 19475}#)
- (if (if (vector? #{x 19475}#)
- (if (= (vector-length #{x 19475}#) 4)
- (eq? (vector-ref #{x 19475}# 0) 'syntax-object)
+ #{src 19442}#
+ #{in-order? 19443}#
+ #{ids 19444}#
+ #{vars 19445}#
+ #{val-exps 19446}#
+ #{body-exp 19447}#)))))
+ (#{source-annotation 4334}#
+ (lambda (#{x 19473}#)
+ (if (if (vector? #{x 19473}#)
+ (if (= (vector-length #{x 19473}#) 4)
+ (eq? (vector-ref #{x 19473}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4336}#
- (vector-ref #{x 19475}# 1))
- (if (pair? #{x 19475}#)
- (let ((#{props 19490}# (source-properties #{x 19475}#)))
- (if (pair? #{props 19490}#) #{props 19490}# #f))
+ (#{source-annotation 4334}#
+ (vector-ref #{x 19473}# 1))
+ (if (pair? #{x 19473}#)
+ (let ((#{props 19488}# (source-properties #{x 19473}#)))
+ (if (pair? #{props 19488}#) #{props 19488}# #f))
#f))))
- (#{extend-env 4337}#
- (lambda (#{labels 19492}# #{bindings 19493}# #{r 19494}#)
- (if (null? #{labels 19492}#)
- #{r 19494}#
- (#{extend-env 4337}#
- (cdr #{labels 19492}#)
- (cdr #{bindings 19493}#)
- (cons (cons (car #{labels 19492}#)
- (car #{bindings 19493}#))
- #{r 19494}#)))))
- (#{extend-var-env 4338}#
- (lambda (#{labels 19495}# #{vars 19496}# #{r 19497}#)
- (if (null? #{labels 19495}#)
- #{r 19497}#
- (#{extend-var-env 4338}#
- (cdr #{labels 19495}#)
- (cdr #{vars 19496}#)
- (cons (cons (car #{labels 19495}#)
- (cons 'lexical (car #{vars 19496}#)))
- #{r 19497}#)))))
- (#{macros-only-env 4339}#
- (lambda (#{r 19498}#)
- (if (null? #{r 19498}#)
+ (#{extend-env 4335}#
+ (lambda (#{labels 19490}# #{bindings 19491}# #{r 19492}#)
+ (if (null? #{labels 19490}#)
+ #{r 19492}#
+ (#{extend-env 4335}#
+ (cdr #{labels 19490}#)
+ (cdr #{bindings 19491}#)
+ (cons (cons (car #{labels 19490}#)
+ (car #{bindings 19491}#))
+ #{r 19492}#)))))
+ (#{extend-var-env 4336}#
+ (lambda (#{labels 19493}# #{vars 19494}# #{r 19495}#)
+ (if (null? #{labels 19493}#)
+ #{r 19495}#
+ (#{extend-var-env 4336}#
+ (cdr #{labels 19493}#)
+ (cdr #{vars 19494}#)
+ (cons (cons (car #{labels 19493}#)
+ (cons 'lexical (car #{vars 19494}#)))
+ #{r 19495}#)))))
+ (#{macros-only-env 4337}#
+ (lambda (#{r 19496}#)
+ (if (null? #{r 19496}#)
'()
- (let ((#{a 19499}# (car #{r 19498}#)))
- (if (eq? (car (cdr #{a 19499}#)) 'macro)
- (cons #{a 19499}#
- (#{macros-only-env 4339}# (cdr #{r 19498}#)))
- (#{macros-only-env 4339}# (cdr #{r 19498}#)))))))
- (#{global-extend 4341}#
- (lambda (#{type 19501}# #{sym 19502}# #{val 19503}#)
+ (let ((#{a 19497}# (car #{r 19496}#)))
+ (if (eq? (car (cdr #{a 19497}#)) 'macro)
+ (cons #{a 19497}#
+ (#{macros-only-env 4337}# (cdr #{r 19496}#)))
+ (#{macros-only-env 4337}# (cdr #{r 19496}#)))))))
+ (#{global-extend 4339}#
+ (lambda (#{type 19499}# #{sym 19500}# #{val 19501}#)
(module-define!
(current-module)
- #{sym 19502}#
+ #{sym 19500}#
(make-syntax-transformer
- #{sym 19502}#
- #{type 19501}#
- #{val 19503}#))))
- (#{id? 4343}#
- (lambda (#{x 12438}#)
- (if (symbol? #{x 12438}#)
+ #{sym 19500}#
+ #{type 19499}#
+ #{val 19501}#))))
+ (#{id? 4341}#
+ (lambda (#{x 12436}#)
+ (if (symbol? #{x 12436}#)
#t
- (if (if (vector? #{x 12438}#)
- (if (= (vector-length #{x 12438}#) 4)
- (eq? (vector-ref #{x 12438}# 0) 'syntax-object)
+ (if (if (vector? #{x 12436}#)
+ (if (= (vector-length #{x 12436}#) 4)
+ (eq? (vector-ref #{x 12436}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12438}# 1))
+ (symbol? (vector-ref #{x 12436}# 1))
#f))))
- (#{gen-labels 4346}#
- (lambda (#{ls 19513}#)
- (if (null? #{ls 19513}#)
+ (#{gen-labels 4344}#
+ (lambda (#{ls 19511}#)
+ (if (null? #{ls 19511}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4346}# (cdr #{ls 19513}#))))))
- (#{make-binding-wrap 4357}#
- (lambda (#{ids 19517}# #{labels 19518}# #{w 19519}#)
- (if (null? #{ids 19517}#)
- #{w 19519}#
- (cons (car #{w 19519}#)
- (cons (let ((#{labelvec 19520}#
- (list->vector #{labels 19518}#)))
- (let ((#{n 19521}# (vector-length #{labelvec 19520}#)))
- (let ((#{symnamevec 19522}# (make-vector #{n 19521}#))
- (#{marksvec 19523}# (make-vector #{n 19521}#)))
+ (#{gen-labels 4344}# (cdr #{ls 19511}#))))))
+ (#{make-binding-wrap 4355}#
+ (lambda (#{ids 19515}# #{labels 19516}# #{w 19517}#)
+ (if (null? #{ids 19515}#)
+ #{w 19517}#
+ (cons (car #{w 19517}#)
+ (cons (let ((#{labelvec 19518}#
+ (list->vector #{labels 19516}#)))
+ (let ((#{n 19519}# (vector-length #{labelvec 19518}#)))
+ (let ((#{symnamevec 19520}# (make-vector #{n 19519}#))
+ (#{marksvec 19521}# (make-vector #{n 19519}#)))
(begin
(letrec*
- ((#{f 19524}#
- (lambda (#{ids 19723}# #{i 19724}#)
- (if (not (null? #{ids 19723}#))
+ ((#{f 19522}#
+ (lambda (#{ids 19721}# #{i 19722}#)
+ (if (not (null? #{ids 19721}#))
(call-with-values
(lambda ()
- (let ((#{x 19727}#
- (car #{ids 19723}#)))
- (if (if (vector? #{x 19727}#)
+ (let ((#{x 19725}#
+ (car #{ids 19721}#)))
+ (if (if (vector? #{x 19725}#)
(if (= (vector-length
- #{x 19727}#)
+ #{x 19725}#)
4)
(eq? (vector-ref
- #{x 19727}#
+ #{x 19725}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 19727}# 1)
- (let ((#{m1 19743}#
- (car #{w 19519}#))
- (#{m2 19744}#
+ (vector-ref #{x 19725}# 1)
+ (let ((#{m1 19741}#
+ (car #{w 19517}#))
+ (#{m2 19742}#
(car (vector-ref
- #{x 19727}#
+ #{x 19725}#
2))))
- (if (null? #{m2 19744}#)
- #{m1 19743}#
+ (if (null? #{m2 19742}#)
+ #{m1 19741}#
(append
- #{m1 19743}#
- #{m2 19744}#))))
+ #{m1 19741}#
+ #{m2 19742}#))))
(values
- #{x 19727}#
- (car #{w 19519}#)))))
- (lambda (#{symname 19764}#
- #{marks 19765}#)
+ #{x 19725}#
+ (car #{w 19517}#)))))
+ (lambda (#{symname 19762}#
+ #{marks 19763}#)
(begin
(vector-set!
- #{symnamevec 19522}#
- #{i 19724}#
- #{symname 19764}#)
+ #{symnamevec 19520}#
+ #{i 19722}#
+ #{symname 19762}#)
(vector-set!
- #{marksvec 19523}#
- #{i 19724}#
- #{marks 19765}#)
- (#{f 19524}#
- (cdr #{ids 19723}#)
- (#{1+}# #{i 19724}#)))))))))
- (#{f 19524}# #{ids 19517}# 0))
+ #{marksvec 19521}#
+ #{i 19722}#
+ #{marks 19763}#)
+ (#{f 19522}#
+ (cdr #{ids 19721}#)
+ (#{1+}# #{i 19722}#)))))))))
+ (#{f 19522}# #{ids 19515}# 0))
(vector
'ribcage
- #{symnamevec 19522}#
- #{marksvec 19523}#
- #{labelvec 19520}#)))))
- (cdr #{w 19519}#))))))
- (#{same-marks? 4361}#
- (lambda (#{x 36922}# #{y 36923}#)
- (if (eq? #{x 36922}# #{y 36923}#)
- (eq? #{x 36922}# #{y 36923}#)
- (if (not (null? #{x 36922}#))
- (if (not (null? #{y 36923}#))
- (if (eq? (car #{x 36922}#) (car #{y 36923}#))
- (#{same-marks? 4361}#
- (cdr #{x 36922}#)
- (cdr #{y 36923}#))
+ #{symnamevec 19520}#
+ #{marksvec 19521}#
+ #{labelvec 19518}#)))))
+ (cdr #{w 19517}#))))))
+ (#{same-marks? 4359}#
+ (lambda (#{x 36919}# #{y 36920}#)
+ (if (eq? #{x 36919}# #{y 36920}#)
+ (eq? #{x 36919}# #{y 36920}#)
+ (if (not (null? #{x 36919}#))
+ (if (not (null? #{y 36920}#))
+ (if (eq? (car #{x 36919}#) (car #{y 36920}#))
+ (#{same-marks? 4359}#
+ (cdr #{x 36919}#)
+ (cdr #{y 36920}#))
#f)
#f)
#f))))
- (#{id-var-name 4362}#
- (lambda (#{id 19772}# #{w 19773}#)
+ (#{id-var-name 4360}#
+ (lambda (#{id 19770}# #{w 19771}#)
(letrec*
- ((#{search 19774}#
- (lambda (#{sym 19835}# #{subst 19836}# #{marks 19837}#)
- (if (null? #{subst 19836}#)
- (values #f #{marks 19837}#)
- (let ((#{fst 19838}# (car #{subst 19836}#)))
- (if (eq? #{fst 19838}# 'shift)
- (#{search 19774}#
- #{sym 19835}#
- (cdr #{subst 19836}#)
- (cdr #{marks 19837}#))
- (let ((#{symnames 19840}# (vector-ref #{fst 19838}# 1)))
- (if (vector? #{symnames 19840}#)
- (#{search-vector-rib 19776}#
- #{sym 19835}#
- #{subst 19836}#
- #{marks 19837}#
- #{symnames 19840}#
- #{fst 19838}#)
- (#{search-list-rib 19775}#
- #{sym 19835}#
- #{subst 19836}#
- #{marks 19837}#
- #{symnames 19840}#
- #{fst 19838}#))))))))
- (#{search-list-rib 19775}#
- (lambda (#{sym 20010}#
- #{subst 20011}#
- #{marks 20012}#
- #{symnames 20013}#
- #{ribcage 20014}#)
+ ((#{search 19772}#
+ (lambda (#{sym 19833}# #{subst 19834}# #{marks 19835}#)
+ (if (null? #{subst 19834}#)
+ (values #f #{marks 19835}#)
+ (let ((#{fst 19836}# (car #{subst 19834}#)))
+ (if (eq? #{fst 19836}# 'shift)
+ (#{search 19772}#
+ #{sym 19833}#
+ (cdr #{subst 19834}#)
+ (cdr #{marks 19835}#))
+ (let ((#{symnames 19838}# (vector-ref #{fst 19836}# 1)))
+ (if (vector? #{symnames 19838}#)
+ (#{search-vector-rib 19774}#
+ #{sym 19833}#
+ #{subst 19834}#
+ #{marks 19835}#
+ #{symnames 19838}#
+ #{fst 19836}#)
+ (#{search-list-rib 19773}#
+ #{sym 19833}#
+ #{subst 19834}#
+ #{marks 19835}#
+ #{symnames 19838}#
+ #{fst 19836}#))))))))
+ (#{search-list-rib 19773}#
+ (lambda (#{sym 20008}#
+ #{subst 20009}#
+ #{marks 20010}#
+ #{symnames 20011}#
+ #{ribcage 20012}#)
(letrec*
- ((#{f 20015}#
- (lambda (#{symnames 20018}# #{i 20019}#)
- (if (null? #{symnames 20018}#)
- (#{search 19774}#
- #{sym 20010}#
- (cdr #{subst 20011}#)
- #{marks 20012}#)
- (if (if (eq? (car #{symnames 20018}#) #{sym 20010}#)
- (#{same-marks? 4361}#
- #{marks 20012}#
+ ((#{f 20013}#
+ (lambda (#{symnames 20016}# #{i 20017}#)
+ (if (null? #{symnames 20016}#)
+ (#{search 19772}#
+ #{sym 20008}#
+ (cdr #{subst 20009}#)
+ #{marks 20010}#)
+ (if (if (eq? (car #{symnames 20016}#) #{sym 20008}#)
+ (#{same-marks? 4359}#
+ #{marks 20010}#
(list-ref
- (vector-ref #{ribcage 20014}# 2)
- #{i 20019}#))
+ (vector-ref #{ribcage 20012}# 2)
+ #{i 20017}#))
#f)
(values
(list-ref
- (vector-ref #{ribcage 20014}# 3)
- #{i 20019}#)
- #{marks 20012}#)
- (#{f 20015}#
- (cdr #{symnames 20018}#)
- (#{1+}# #{i 20019}#)))))))
- (#{f 20015}# #{symnames 20013}# 0))))
- (#{search-vector-rib 19776}#
- (lambda (#{sym 20169}#
- #{subst 20170}#
- #{marks 20171}#
- #{symnames 20172}#
- #{ribcage 20173}#)
- (let ((#{n 20174}# (vector-length #{symnames 20172}#)))
+ (vector-ref #{ribcage 20012}# 3)
+ #{i 20017}#)
+ #{marks 20010}#)
+ (#{f 20013}#
+ (cdr #{symnames 20016}#)
+ (#{1+}# #{i 20017}#)))))))
+ (#{f 20013}# #{symnames 20011}# 0))))
+ (#{search-vector-rib 19774}#
+ (lambda (#{sym 20167}#
+ #{subst 20168}#
+ #{marks 20169}#
+ #{symnames 20170}#
+ #{ribcage 20171}#)
+ (let ((#{n 20172}# (vector-length #{symnames 20170}#)))
(letrec*
- ((#{f 20175}#
- (lambda (#{i 20232}#)
- (if (= #{i 20232}# #{n 20174}#)
- (#{search 19774}#
- #{sym 20169}#
- (cdr #{subst 20170}#)
- #{marks 20171}#)
+ ((#{f 20173}#
+ (lambda (#{i 20230}#)
+ (if (= #{i 20230}# #{n 20172}#)
+ (#{search 19772}#
+ #{sym 20167}#
+ (cdr #{subst 20168}#)
+ #{marks 20169}#)
(if (if (eq? (vector-ref
- #{symnames 20172}#
- #{i 20232}#)
- #{sym 20169}#)
- (#{same-marks? 4361}#
- #{marks 20171}#
+ #{symnames 20170}#
+ #{i 20230}#)
+ #{sym 20167}#)
+ (#{same-marks? 4359}#
+ #{marks 20169}#
(vector-ref
- (vector-ref #{ribcage 20173}# 2)
- #{i 20232}#))
+ (vector-ref #{ribcage 20171}# 2)
+ #{i 20230}#))
#f)
(values
(vector-ref
- (vector-ref #{ribcage 20173}# 3)
- #{i 20232}#)
- #{marks 20171}#)
- (#{f 20175}# (#{1+}# #{i 20232}#)))))))
- (#{f 20175}# 0))))))
- (if (symbol? #{id 19772}#)
- (let ((#{t 19777}#
- (#{search 19774}#
- #{id 19772}#
- (cdr #{w 19773}#)
- (car #{w 19773}#))))
- (if #{t 19777}# #{t 19777}# #{id 19772}#))
- (if (if (vector? #{id 19772}#)
- (if (= (vector-length #{id 19772}#) 4)
- (eq? (vector-ref #{id 19772}# 0) 'syntax-object)
+ (vector-ref #{ribcage 20171}# 3)
+ #{i 20230}#)
+ #{marks 20169}#)
+ (#{f 20173}# (#{1+}# #{i 20230}#)))))))
+ (#{f 20173}# 0))))))
+ (if (symbol? #{id 19770}#)
+ (let ((#{t 19775}#
+ (#{search 19772}#
+ #{id 19770}#
+ (cdr #{w 19771}#)
+ (car #{w 19771}#))))
+ (if #{t 19775}# #{t 19775}# #{id 19770}#))
+ (if (if (vector? #{id 19770}#)
+ (if (= (vector-length #{id 19770}#) 4)
+ (eq? (vector-ref #{id 19770}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 19792}# (vector-ref #{id 19772}# 1))
- (#{w1 19793}# (vector-ref #{id 19772}# 2)))
- (let ((#{marks 19794}#
- (let ((#{m1 19804}# (car #{w 19773}#))
- (#{m2 19805}# (car #{w1 19793}#)))
- (if (null? #{m2 19805}#)
- #{m1 19804}#
- (append #{m1 19804}# #{m2 19805}#)))))
+ (let ((#{id 19790}# (vector-ref #{id 19770}# 1))
+ (#{w1 19791}# (vector-ref #{id 19770}# 2)))
+ (let ((#{marks 19792}#
+ (let ((#{m1 19802}# (car #{w 19771}#))
+ (#{m2 19803}# (car #{w1 19791}#)))
+ (if (null? #{m2 19803}#)
+ #{m1 19802}#
+ (append #{m1 19802}# #{m2 19803}#)))))
(call-with-values
(lambda ()
- (#{search 19774}#
- #{id 19792}#
- (cdr #{w 19773}#)
- #{marks 19794}#))
- (lambda (#{new-id 19821}# #{marks 19822}#)
- (if #{new-id 19821}#
- #{new-id 19821}#
- (let ((#{t 19830}#
- (#{search 19774}#
- #{id 19792}#
- (cdr #{w1 19793}#)
- #{marks 19822}#)))
- (if #{t 19830}# #{t 19830}# #{id 19792}#)))))))
+ (#{search 19772}#
+ #{id 19790}#
+ (cdr #{w 19771}#)
+ #{marks 19792}#))
+ (lambda (#{new-id 19819}# #{marks 19820}#)
+ (if #{new-id 19819}#
+ #{new-id 19819}#
+ (let ((#{t 19828}#
+ (#{search 19772}#
+ #{id 19790}#
+ (cdr #{w1 19791}#)
+ #{marks 19820}#)))
+ (if #{t 19828}# #{t 19828}# #{id 19790}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 19772}#))))))
- (#{free-id=? 4363}#
- (lambda (#{i 20382}# #{j 20383}#)
- (let ((#{ni 20384}#
- (#{id-var-name 4362}# #{i 20382}# '(())))
- (#{nj 20385}#
- (#{id-var-name 4362}# #{j 20383}# '(()))))
- (if (eq? #{ni 20384}#
- (if (if (vector? #{i 20382}#)
- (if (= (vector-length #{i 20382}#) 4)
- (eq? (vector-ref #{i 20382}# 0) 'syntax-object)
+ #{id 19770}#))))))
+ (#{free-id=? 4361}#
+ (lambda (#{i 20380}# #{j 20381}#)
+ (let ((#{ni 20382}#
+ (#{id-var-name 4360}# #{i 20380}# '(())))
+ (#{nj 20383}#
+ (#{id-var-name 4360}# #{j 20381}# '(()))))
+ (if (eq? #{ni 20382}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 20382}# 1)
- #{i 20382}#))
- (if (eq? #{nj 20385}#
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0) 'syntax-object)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#))
+ (if (eq? #{nj 20383}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 1)
- #{j 20383}#))
- (if (let ((#{bi 20443}#
- (let ((#{mod 20712}#
- (if (if (vector? #{i 20382}#)
- (if (= (vector-length #{i 20382}#) 4)
- (eq? (vector-ref #{i 20382}# 0)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))
+ (if (let ((#{bi 20441}#
+ (let ((#{mod 20710}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20382}# 3)
+ (vector-ref #{i 20380}# 3)
#f)))
(module-variable
- (if #{mod 20712}#
- (resolve-module (cdr #{mod 20712}#))
+ (if #{mod 20710}#
+ (resolve-module (cdr #{mod 20710}#))
(current-module))
- (if (if (vector? #{i 20382}#)
- (if (= (vector-length #{i 20382}#) 4)
- (eq? (vector-ref #{i 20382}# 0)
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20382}# 1)
- #{i 20382}#)))))
- (if #{bi 20443}#
- (eq? #{bi 20443}#
- (let ((#{mod 20556}#
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#)))))
+ (if #{bi 20441}#
+ (eq? #{bi 20441}#
+ (let ((#{mod 20554}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20556}#
- (resolve-module (cdr #{mod 20556}#))
+ (if #{mod 20554}#
+ (resolve-module (cdr #{mod 20554}#))
(current-module))
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 1)
- #{j 20383}#))))
- (if (not (let ((#{mod 20634}#
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
+ (if (not (let ((#{mod 20632}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#)
4)
- (eq? (vector-ref #{j 20383}# 0)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20634}#
- (resolve-module (cdr #{mod 20634}#))
+ (if #{mod 20632}#
+ (resolve-module (cdr #{mod 20632}#))
(current-module))
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 1)
- #{j 20383}#))))
- (eq? #{ni 20384}# #{nj 20385}#)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
+ (eq? #{ni 20382}# #{nj 20383}#)
#f)))
- (eq? (let ((#{mod 20790}#
- (if (if (vector? #{i 20382}#)
- (if (= (vector-length #{i 20382}#) 4)
- (eq? (vector-ref #{i 20382}# 0)
+ (eq? (let ((#{mod 20788}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20382}# 3)
+ (vector-ref #{i 20380}# 3)
#f)))
(module-variable
- (if #{mod 20790}#
- (resolve-module (cdr #{mod 20790}#))
+ (if #{mod 20788}#
+ (resolve-module (cdr #{mod 20788}#))
(current-module))
- (if (if (vector? #{i 20382}#)
- (if (= (vector-length #{i 20382}#) 4)
- (eq? (vector-ref #{i 20382}# 0) 'syntax-object)
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 20382}# 1)
- #{i 20382}#)))
- (let ((#{mod 20868}#
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#)))
+ (let ((#{mod 20866}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20868}#
- (resolve-module (cdr #{mod 20868}#))
+ (if #{mod 20866}#
+ (resolve-module (cdr #{mod 20866}#))
(current-module))
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0) 'syntax-object)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 1)
- #{j 20383}#))))
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
#f)
#f)
- (if (eq? #{ni 20384}# #{nj 20385}#)
- (not (eq? #{nj 20385}#
- (if (if (vector? #{j 20383}#)
- (if (= (vector-length #{j 20383}#) 4)
- (eq? (vector-ref #{j 20383}# 0) 'syntax-object)
+ (if (eq? #{ni 20382}# #{nj 20383}#)
+ (not (eq? #{nj 20383}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20383}# 1)
- #{j 20383}#)))
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#)))
#f)))))
- (#{bound-id=? 4364}#
- (lambda (#{i 20968}# #{j 20969}#)
- (if (if (if (vector? #{i 20968}#)
- (if (= (vector-length #{i 20968}#) 4)
- (eq? (vector-ref #{i 20968}# 0) 'syntax-object)
+ (#{bound-id=? 4362}#
+ (lambda (#{i 20966}# #{j 20967}#)
+ (if (if (if (vector? #{i 20966}#)
+ (if (= (vector-length #{i 20966}#) 4)
+ (eq? (vector-ref #{i 20966}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 20969}#)
- (if (= (vector-length #{j 20969}#) 4)
- (eq? (vector-ref #{j 20969}# 0) 'syntax-object)
+ (if (vector? #{j 20967}#)
+ (if (= (vector-length #{j 20967}#) 4)
+ (eq? (vector-ref #{j 20967}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{i 20968}# 1)
- (vector-ref #{j 20969}# 1))
- (#{same-marks? 4361}#
- (car (vector-ref #{i 20968}# 2))
- (car (vector-ref #{j 20969}# 2)))
+ (if (eq? (vector-ref #{i 20966}# 1)
+ (vector-ref #{j 20967}# 1))
+ (#{same-marks? 4359}#
+ (car (vector-ref #{i 20966}# 2))
+ (car (vector-ref #{j 20967}# 2)))
#f)
- (eq? #{i 20968}# #{j 20969}#))))
- (#{valid-bound-ids? 4365}#
- (lambda (#{ids 21138}#)
+ (eq? #{i 20966}# #{j 20967}#))))
+ (#{valid-bound-ids? 4363}#
+ (lambda (#{ids 21136}#)
(if (letrec*
- ((#{all-ids? 21139}#
- (lambda (#{ids 21336}#)
- (if (null? #{ids 21336}#)
- (null? #{ids 21336}#)
- (if (let ((#{x 21347}# (car #{ids 21336}#)))
- (if (symbol? #{x 21347}#)
+ ((#{all-ids? 21137}#
+ (lambda (#{ids 21334}#)
+ (if (null? #{ids 21334}#)
+ (null? #{ids 21334}#)
+ (if (let ((#{x 21345}# (car #{ids 21334}#)))
+ (if (symbol? #{x 21345}#)
#t
- (if (if (vector? #{x 21347}#)
- (if (= (vector-length #{x 21347}#) 4)
- (eq? (vector-ref #{x 21347}# 0)
+ (if (if (vector? #{x 21345}#)
+ (if (= (vector-length #{x 21345}#) 4)
+ (eq? (vector-ref #{x 21345}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 21347}# 1))
+ (symbol? (vector-ref #{x 21345}# 1))
#f)))
- (#{all-ids? 21139}# (cdr #{ids 21336}#))
+ (#{all-ids? 21137}# (cdr #{ids 21334}#))
#f)))))
- (#{all-ids? 21139}# #{ids 21138}#))
- (#{distinct-bound-ids? 4366}# #{ids 21138}#)
+ (#{all-ids? 21137}# #{ids 21136}#))
+ (#{distinct-bound-ids? 4364}# #{ids 21136}#)
#f)))
- (#{distinct-bound-ids? 4366}#
- (lambda (#{ids 21468}#)
+ (#{distinct-bound-ids? 4364}#
+ (lambda (#{ids 21466}#)
(letrec*
- ((#{distinct? 21469}#
- (lambda (#{ids 21574}#)
- (if (null? #{ids 21574}#)
- (null? #{ids 21574}#)
- (if (not (#{bound-id-member? 4367}#
- (car #{ids 21574}#)
- (cdr #{ids 21574}#)))
- (#{distinct? 21469}# (cdr #{ids 21574}#))
+ ((#{distinct? 21467}#
+ (lambda (#{ids 21572}#)
+ (if (null? #{ids 21572}#)
+ (null? #{ids 21572}#)
+ (if (not (#{bound-id-member? 4365}#
+ (car #{ids 21572}#)
+ (cdr #{ids 21572}#)))
+ (#{distinct? 21467}# (cdr #{ids 21572}#))
#f)))))
- (#{distinct? 21469}# #{ids 21468}#))))
- (#{bound-id-member? 4367}#
- (lambda (#{x 21670}# #{list 21671}#)
- (if (not (null? #{list 21671}#))
- (let ((#{t 21672}#
- (#{bound-id=? 4364}#
- #{x 21670}#
- (car #{list 21671}#))))
- (if #{t 21672}#
- #{t 21672}#
- (#{bound-id-member? 4367}#
- #{x 21670}#
- (cdr #{list 21671}#))))
+ (#{distinct? 21467}# #{ids 21466}#))))
+ (#{bound-id-member? 4365}#
+ (lambda (#{x 21668}# #{list 21669}#)
+ (if (not (null? #{list 21669}#))
+ (let ((#{t 21670}#
+ (#{bound-id=? 4362}#
+ #{x 21668}#
+ (car #{list 21669}#))))
+ (if #{t 21670}#
+ #{t 21670}#
+ (#{bound-id-member? 4365}#
+ #{x 21668}#
+ (cdr #{list 21669}#))))
#f)))
- (#{source-wrap 4369}#
- (lambda (#{x 21850}#
- #{w 21851}#
- #{s 21852}#
- #{defmod 21853}#)
- (let ((#{x 21857}#
+ (#{source-wrap 4367}#
+ (lambda (#{x 21848}#
+ #{w 21849}#
+ #{s 21850}#
+ #{defmod 21851}#)
+ (let ((#{x 21855}#
(begin
- (if (if (pair? #{x 21850}#) #{s 21852}# #f)
- (set-source-properties! #{x 21850}# #{s 21852}#))
- #{x 21850}#)))
- (if (if (null? (car #{w 21851}#))
- (null? (cdr #{w 21851}#))
+ (if (if (pair? #{x 21848}#) #{s 21850}# #f)
+ (set-source-properties! #{x 21848}# #{s 21850}#))
+ #{x 21848}#)))
+ (if (if (null? (car #{w 21849}#))
+ (null? (cdr #{w 21849}#))
#f)
- #{x 21857}#
- (if (if (vector? #{x 21857}#)
- (if (= (vector-length #{x 21857}#) 4)
- (eq? (vector-ref #{x 21857}# 0) 'syntax-object)
+ #{x 21855}#
+ (if (if (vector? #{x 21855}#)
+ (if (= (vector-length #{x 21855}#) 4)
+ (eq? (vector-ref #{x 21855}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 21889}# (vector-ref #{x 21857}# 1))
- (#{wrap 21890}#
- (let ((#{w2 21898}# (vector-ref #{x 21857}# 2)))
- (let ((#{m1 21899}# (car #{w 21851}#))
- (#{s1 21900}# (cdr #{w 21851}#)))
- (if (null? #{m1 21899}#)
- (if (null? #{s1 21900}#)
- #{w2 21898}#
- (cons (car #{w2 21898}#)
- (let ((#{m2 21915}# (cdr #{w2 21898}#)))
- (if (null? #{m2 21915}#)
- #{s1 21900}#
- (append #{s1 21900}# #{m2 21915}#)))))
- (cons (let ((#{m2 21923}# (car #{w2 21898}#)))
- (if (null? #{m2 21923}#)
- #{m1 21899}#
- (append #{m1 21899}# #{m2 21923}#)))
- (let ((#{m2 21931}# (cdr #{w2 21898}#)))
- (if (null? #{m2 21931}#)
- #{s1 21900}#
- (append #{s1 21900}# #{m2 21931}#))))))))
- (#{module 21891}# (vector-ref #{x 21857}# 3)))
+ (let ((#{expression 21887}# (vector-ref #{x 21855}# 1))
+ (#{wrap 21888}#
+ (let ((#{w2 21896}# (vector-ref #{x 21855}# 2)))
+ (let ((#{m1 21897}# (car #{w 21849}#))
+ (#{s1 21898}# (cdr #{w 21849}#)))
+ (if (null? #{m1 21897}#)
+ (if (null? #{s1 21898}#)
+ #{w2 21896}#
+ (cons (car #{w2 21896}#)
+ (let ((#{m2 21913}# (cdr #{w2 21896}#)))
+ (if (null? #{m2 21913}#)
+ #{s1 21898}#
+ (append #{s1 21898}# #{m2 21913}#)))))
+ (cons (let ((#{m2 21921}# (car #{w2 21896}#)))
+ (if (null? #{m2 21921}#)
+ #{m1 21897}#
+ (append #{m1 21897}# #{m2 21921}#)))
+ (let ((#{m2 21929}# (cdr #{w2 21896}#)))
+ (if (null? #{m2 21929}#)
+ #{s1 21898}#
+ (append #{s1 21898}# #{m2 21929}#))))))))
+ (#{module 21889}# (vector-ref #{x 21855}# 3)))
(vector
'syntax-object
- #{expression 21889}#
- #{wrap 21890}#
- #{module 21891}#))
- (if (null? #{x 21857}#)
- #{x 21857}#
+ #{expression 21887}#
+ #{wrap 21888}#
+ #{module 21889}#))
+ (if (null? #{x 21855}#)
+ #{x 21855}#
(vector
'syntax-object
- #{x 21857}#
- #{w 21851}#
- #{defmod 21853}#)))))))
- (#{chi-sequence 4370}#
- (lambda (#{body 36931}#
- #{r 36932}#
- #{w 36933}#
- #{s 36934}#
- #{mod 36935}#)
- (#{build-sequence 4324}#
- #{s 36934}#
+ #{x 21855}#
+ #{w 21849}#
+ #{defmod 21851}#)))))))
+ (#{chi-sequence 4368}#
+ (lambda (#{body 36928}#
+ #{r 36929}#
+ #{w 36930}#
+ #{s 36931}#
+ #{mod 36932}#)
+ (#{build-sequence 4322}#
+ #{s 36931}#
(letrec*
- ((#{dobody 37027}#
- (lambda (#{body 37114}#
- #{r 37115}#
- #{w 37116}#
- #{mod 37117}#)
- (if (null? #{body 37114}#)
+ ((#{dobody 37024}#
+ (lambda (#{body 37111}#
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)
+ (if (null? #{body 37111}#)
'()
- (let ((#{first 37118}#
- (#{chi 4375}#
- (car #{body 37114}#)
- #{r 37115}#
- #{w 37116}#
- #{mod 37117}#)))
- (cons #{first 37118}#
- (#{dobody 37027}#
- (cdr #{body 37114}#)
- #{r 37115}#
- #{w 37116}#
- #{mod 37117}#)))))))
- (#{dobody 37027}#
- #{body 36931}#
- #{r 36932}#
- #{w 36933}#
- #{mod 36935}#)))))
- (#{chi-top-sequence 4371}#
- (lambda (#{body 21946}#
- #{r 21947}#
- #{w 21948}#
- #{s 21949}#
- #{m 21950}#
- #{esew 21951}#
- #{mod 21952}#)
+ (let ((#{first 37115}#
+ (#{chi 4373}#
+ (car #{body 37111}#)
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)))
+ (cons #{first 37115}#
+ (#{dobody 37024}#
+ (cdr #{body 37111}#)
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)))))))
+ (#{dobody 37024}#
+ #{body 36928}#
+ #{r 36929}#
+ #{w 36930}#
+ #{mod 36932}#)))))
+ (#{chi-top-sequence 4369}#
+ (lambda (#{body 21944}#
+ #{r 21945}#
+ #{w 21946}#
+ #{s 21947}#
+ #{m 21948}#
+ #{esew 21949}#
+ #{mod 21950}#)
(letrec*
- ((#{scan 21953}#
- (lambda (#{body 22100}#
- #{r 22101}#
- #{w 22102}#
- #{s 22103}#
- #{m 22104}#
- #{esew 22105}#
- #{mod 22106}#
- #{exps 22107}#)
- (if (null? #{body 22100}#)
- #{exps 22107}#
- (call-with-values
- (lambda ()
- (call-with-values
- (lambda ()
- (let ((#{e 22108}# (car #{body 22100}#)))
- (#{syntax-type 4374}#
- #{e 22108}#
- #{r 22101}#
- #{w 22102}#
- (let ((#{t 22112}#
- (#{source-annotation 4336}# #{e 22108}#)))
- (if #{t 22112}# #{t 22112}# #{s 22103}#))
- #f
- #{mod 22106}#
- #f)))
- (lambda (#{type 22410}#
- #{value 22411}#
- #{e 22412}#
- #{w 22413}#
- #{s 22414}#
- #{mod 22415}#)
- (if (eqv? #{type 22410}# 'begin-form)
- (let ((#{tmp 22420}#
- ($sc-dispatch #{e 22412}# '(_))))
- (if #{tmp 22420}#
- (@apply (lambda () #{exps 22107}#) #{tmp 22420}#)
- (let ((#{tmp 22424}#
- ($sc-dispatch
- #{e 22412}#
- '(_ any . each-any))))
- (if #{tmp 22424}#
- (@apply
- (lambda (#{e1 22428}# #{e2 22429}#)
- (#{scan 21953}#
- (cons #{e1 22428}# #{e2 22429}#)
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- #{m 22104}#
- #{esew 22105}#
- #{mod 22415}#
- #{exps 22107}#))
- #{tmp 22424}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22412}#)))))
- (if (eqv? #{type 22410}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 22411}#
- #{e 22412}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- #{mod 22415}#
- (lambda (#{body 22444}#
- #{r 22445}#
- #{w 22446}#
- #{s 22447}#
- #{mod 22448}#)
- (#{scan 21953}#
- #{body 22444}#
- #{r 22445}#
- #{w 22446}#
- #{s 22447}#
- #{m 22104}#
- #{esew 22105}#
- #{mod 22448}#
- #{exps 22107}#)))
- (if (eqv? #{type 22410}# 'eval-when-form)
- (let ((#{tmp 22453}#
- ($sc-dispatch
- #{e 22412}#
- '(_ each-any any . each-any))))
- (if #{tmp 22453}#
- (@apply
- (lambda (#{x 22457}#
- #{e1 22458}#
- #{e2 22459}#)
- (let ((#{when-list 22460}#
- (#{chi-when-list 4373}#
- #{e 22412}#
- #{x 22457}#
- #{w 22413}#))
- (#{body 22461}#
- (cons #{e1 22458}#
- #{e2 22459}#)))
- (if (eq? #{m 22104}# 'e)
- (if (memq 'eval #{when-list 22460}#)
- (#{scan 21953}#
- #{body 22461}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- (if (memq 'expand
- #{when-list 22460}#)
- 'c&e
- 'e)
- '(eval)
- #{mod 22415}#
- #{exps 22107}#)
+ ((#{scan 21951}#
+ (lambda (#{body 22098}#
+ #{r 22099}#
+ #{w 22100}#
+ #{s 22101}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22104}#
+ #{exps 22105}#)
+ (if (null? #{body 22098}#)
+ #{exps 22105}#
+ (#{scan 21951}#
+ (cdr #{body 22098}#)
+ #{r 22099}#
+ #{w 22100}#
+ #{s 22101}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22104}#
+ (call-with-values
+ (lambda ()
+ (let ((#{e 22106}# (car #{body 22098}#)))
+ (#{syntax-type 4372}#
+ #{e 22106}#
+ #{r 22099}#
+ #{w 22100}#
+ (let ((#{t 22110}#
+ (#{source-annotation 4334}# #{e 22106}#)))
+ (if #{t 22110}# #{t 22110}# #{s 22101}#))
+ #f
+ #{mod 22104}#
+ #f)))
+ (lambda (#{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)
+ (if (eqv? #{type 22408}# 'begin-form)
+ (let ((#{tmp 22418}# ($sc-dispatch #{e 22410}# '(_))))
+ (if #{tmp 22418}#
+ (@apply (lambda () #{exps 22105}#) #{tmp 22418}#)
+ (let ((#{tmp 22422}#
+ ($sc-dispatch
+ #{e 22410}#
+ '(_ any . each-any))))
+ (if #{tmp 22422}#
+ (@apply
+ (lambda (#{e1 22426}# #{e2 22427}#)
+ (#{scan 21951}#
+ (cons #{e1 22426}# #{e2 22427}#)
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22413}#
+ #{exps 22105}#))
+ #{tmp 22422}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 22410}#)))))
+ (if (eqv? #{type 22408}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#
+ (lambda (#{body 22442}#
+ #{r 22443}#
+ #{w 22444}#
+ #{s 22445}#
+ #{mod 22446}#)
+ (#{scan 21951}#
+ #{body 22442}#
+ #{r 22443}#
+ #{w 22444}#
+ #{s 22445}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22446}#
+ #{exps 22105}#)))
+ (if (eqv? #{type 22408}# 'eval-when-form)
+ (let ((#{tmp 22451}#
+ ($sc-dispatch
+ #{e 22410}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 22451}#
+ (@apply
+ (lambda (#{x 22455}#
+ #{e1 22456}#
+ #{e2 22457}#)
+ (let ((#{when-list 22458}#
+ (#{chi-when-list 4371}#
+ #{e 22410}#
+ #{x 22455}#
+ #{w 22411}#))
+ (#{body 22459}#
+ (cons #{e1 22456}# #{e2 22457}#)))
+ (if (eq? #{m 22102}# 'e)
+ (if (memq 'eval #{when-list 22458}#)
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ (if (memq 'expand
+ #{when-list 22458}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod 22413}#
+ #{exps 22105}#)
+ (begin
+ (if (memq 'expand
+ #{when-list 22458}#)
+ (let ((#{x 22466}#
+ (#{chi-top-sequence 4369}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'e
+ '(eval)
+ #{mod 22413}#)))
+ (primitive-eval #{x 22466}#)))
+ #{exps 22105}#))
+ (if (memq 'load #{when-list 22458}#)
+ (if (let ((#{t 22468}#
+ (memq 'compile
+ #{when-list 22458}#)))
+ (if #{t 22468}#
+ #{t 22468}#
+ (let ((#{t 22470}#
+ (memq 'expand
+ #{when-list 22458}#)))
+ (if #{t 22470}#
+ #{t 22470}#
+ (if (eq? #{m 22102}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 22458}#)
+ #f)))))
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'c&e
+ '(compile load)
+ #{mod 22413}#
+ #{exps 22105}#)
+ (if (if (eq? #{m 22102}# 'c)
+ #t
+ (eq? #{m 22102}# 'c&e))
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'c
+ '(load)
+ #{mod 22413}#
+ #{exps 22105}#)
+ #{exps 22105}#))
+ (if (let ((#{t 22480}#
+ (memq 'compile
+ #{when-list 22458}#)))
+ (if #{t 22480}#
+ #{t 22480}#
+ (let ((#{t 22482}#
+ (memq 'expand
+ #{when-list 22458}#)))
+ (if #{t 22482}#
+ #{t 22482}#
+ (if (eq? #{m 22102}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 22458}#)
+ #f)))))
(begin
- (if (memq 'expand
- #{when-list 22460}#)
- (let ((#{x 22468}#
- (#{chi-top-sequence 4371}#
- #{body 22461}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- 'e
- '(eval)
- #{mod 22415}#)))
- (primitive-eval
- #{x 22468}#)))
- (values #{exps 22107}#)))
- (if (memq 'load #{when-list 22460}#)
- (if (let ((#{t 22470}#
- (memq 'compile
- #{when-list 22460}#)))
- (if #{t 22470}#
- #{t 22470}#
- (let ((#{t 22472}#
- (memq 'expand
- #{when-list 22460}#)))
- (if #{t 22472}#
- #{t 22472}#
- (if (eq? #{m 22104}#
- 'c&e)
- (memq 'eval
- #{when-list 22460}#)
- #f)))))
- (#{scan 21953}#
- #{body 22461}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- 'c&e
- '(compile load)
- #{mod 22415}#
- #{exps 22107}#)
- (if (if (eq? #{m 22104}# 'c)
- #t
- (eq? #{m 22104}# 'c&e))
- (#{scan 21953}#
- #{body 22461}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- 'c
- '(load)
- #{mod 22415}#
- #{exps 22107}#)
- (values #{exps 22107}#)))
- (if (let ((#{t 22482}#
- (memq 'compile
- #{when-list 22460}#)))
- (if #{t 22482}#
- #{t 22482}#
- (let ((#{t 22484}#
- (memq 'expand
- #{when-list 22460}#)))
- (if #{t 22484}#
- #{t 22484}#
- (if (eq? #{m 22104}#
- 'c&e)
- (memq 'eval
- #{when-list 22460}#)
- #f)))))
- (begin
- (let ((#{x 22489}#
- (#{chi-top-sequence 4371}#
- #{body 22461}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- 'e
- '(eval)
- #{mod 22415}#)))
- (primitive-eval #{x 22489}#))
- (values #{exps 22107}#))
- (values #{exps 22107}#))))))
- #{tmp 22453}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22412}#)))
- (if (eqv? #{type 22410}# 'define-syntax-form)
- (let ((#{n 22500}#
- (#{id-var-name 4362}#
- #{value 22411}#
- #{w 22413}#))
- (#{r 22501}#
- (#{macros-only-env 4339}#
- #{r 22101}#)))
- (if (eqv? #{m 22104}# 'c)
- (if (memq 'compile #{esew 22105}#)
- (let ((#{e 22505}#
- (#{chi-install-global 4372}#
- #{n 22500}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22501}#
- #{w 22413}#
- #{mod 22415}#))))
- (begin
- (#{top-level-eval-hook 4302}#
- #{e 22505}#
- #{mod 22415}#)
- (if (memq 'load #{esew 22105}#)
- (values
- (cons #{e 22505}#
- #{exps 22107}#))
- (values #{exps 22107}#))))
- (if (memq 'load #{esew 22105}#)
- (values
- (cons (#{chi-install-global 4372}#
- #{n 22500}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22501}#
- #{w 22413}#
- #{mod 22415}#))
- #{exps 22107}#))
- (values #{exps 22107}#)))
- (if (eqv? #{m 22104}# 'c&e)
- (let ((#{e 22951}#
- (#{chi-install-global 4372}#
- #{n 22500}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22501}#
- #{w 22413}#
- #{mod 22415}#))))
- (begin
- (#{top-level-eval-hook 4302}#
- #{e 22951}#
- #{mod 22415}#)
- (values
- (cons #{e 22951}#
- #{exps 22107}#))))
+ (let ((#{x 22487}#
+ (#{chi-top-sequence 4369}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'e
+ '(eval)
+ #{mod 22413}#)))
+ (primitive-eval #{x 22487}#))
+ #{exps 22105}#)
+ #{exps 22105}#)))))
+ #{tmp 22451}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 22410}#)))
+ (if (eqv? #{type 22408}# 'define-syntax-form)
+ (let ((#{n 22498}#
+ (#{id-var-name 4360}#
+ #{value 22409}#
+ #{w 22411}#))
+ (#{r 22499}#
+ (#{macros-only-env 4337}# #{r 22099}#)))
+ (if (eqv? #{m 22102}# 'c)
+ (if (memq 'compile #{esew 22103}#)
+ (let ((#{e 22503}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))))
(begin
- (if (memq 'eval #{esew 22105}#)
- (#{top-level-eval-hook 4302}#
- (#{chi-install-global 4372}#
- #{n 22500}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22501}#
- #{w 22413}#
- #{mod 22415}#))
- #{mod 22415}#))
- (values #{exps 22107}#)))))
- (if (eqv? #{type 22410}# 'define-form)
- (let ((#{n 23601}#
- (#{id-var-name 4362}#
- #{value 22411}#
- #{w 22413}#)))
- (let ((#{type 23602}#
- (car (let ((#{t 24604}#
- (assq #{n 23601}#
- #{r 22101}#)))
- (if #{t 24604}#
- (cdr #{t 24604}#)
- (if (symbol? #{n 23601}#)
- (let ((#{t 24609}#
- (begin
- (if (if (not #{mod 22415}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{n 23601}#))
- (let ((#{v 24646}#
- (module-variable
- (if #{mod 22415}#
- (resolve-module
- (cdr #{mod 22415}#))
- (current-module))
- #{n 23601}#)))
- (if #{v 24646}#
- (if (variable-bound?
- #{v 24646}#)
- (let ((#{val 24655}#
- (variable-ref
- #{v 24646}#)))
- (if (macro?
- #{val 24655}#)
- (if (macro-type
- #{val 24655}#)
- (cons (macro-type
- #{val 24655}#)
- (macro-binding
- #{val 24655}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 24609}#
- #{t 24609}#
- '(global)))
- '(displaced-lexical)))))))
- (if (let ((#{t 23636}# #{type 23602}#))
- (if (eqv? #{t 23636}# 'global)
+ (#{top-level-eval-hook 4300}#
+ #{e 22503}#
+ #{mod 22413}#)
+ (if (memq 'load #{esew 22103}#)
+ (cons #{e 22503}# #{exps 22105}#)
+ #{exps 22105}#)))
+ (if (memq 'load #{esew 22103}#)
+ (cons (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))
+ #{exps 22105}#)
+ #{exps 22105}#))
+ (if (eqv? #{m 22102}# 'c&e)
+ (let ((#{e 22949}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ (begin
+ (#{top-level-eval-hook 4300}#
+ #{e 22949}#
+ #{mod 22413}#)
+ (cons #{e 22949}# #{exps 22105}#)))
+ (begin
+ (if (memq 'eval #{esew 22103}#)
+ (#{top-level-eval-hook 4300}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))
+ #{mod 22413}#))
+ #{exps 22105}#))))
+ (if (eqv? #{type 22408}# 'define-form)
+ (let ((#{n 23599}#
+ (#{id-var-name 4360}#
+ #{value 22409}#
+ #{w 22411}#)))
+ (let ((#{type 23600}#
+ (car (let ((#{t 24602}#
+ (assq #{n 23599}#
+ #{r 22099}#)))
+ (if #{t 24602}#
+ (cdr #{t 24602}#)
+ (if (symbol? #{n 23599}#)
+ (let ((#{t 24607}#
+ (begin
+ (if (if (not #{mod 22413}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 23599}#))
+ (let ((#{v 24644}#
+ (module-variable
+ (if #{mod 22413}#
+ (resolve-module
+ (cdr #{mod 22413}#))
+ (current-module))
+ #{n 23599}#)))
+ (if #{v 24644}#
+ (if (variable-bound?
+ #{v 24644}#)
+ (let ((#{val 24653}#
+ (variable-ref
+ #{v 24644}#)))
+ (if (macro?
+ #{val 24653}#)
+ (if (macro-type
+ #{val 24653}#)
+ (cons (macro-type
+ #{val 24653}#)
+ (macro-binding
+ #{val 24653}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 24607}#
+ #{t 24607}#
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (let ((#{t 23634}# #{type 23600}#))
+ (if (eqv? #{t 23634}# 'global)
+ #t
+ (if (eqv? #{t 23634}# 'core)
#t
- (if (eqv? #{t 23636}# 'core)
+ (if (eqv? #{t 23634}# 'macro)
#t
- (if (eqv? #{t 23636}# 'macro)
+ (eqv? #{t 23634}#
+ 'module-ref)))))
+ (begin
+ (if (if (if (eq? #{m 22102}# 'c)
#t
- (eqv? #{t 23636}#
- 'module-ref)))))
- (begin
- (if (if (if (eq? #{m 22104}# 'c)
- #t
- (eq? #{m 22104}# 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n 23601}#))
- (current-module)
+ (eq? #{m 22102}# 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n 23599}#))
+ (current-module)
+ #f)
+ #f)
+ (let ((#{old 23798}#
+ (module-variable
+ (current-module)
+ #{n 23599}#)))
+ (if (if (variable? #{old 23798}#)
+ (variable-bound?
+ #{old 23798}#)
#f)
+ (module-define!
+ (current-module)
+ #{n 23599}#
+ (variable-ref #{old 23798}#))
+ (module-add!
+ (current-module)
+ #{n 23599}#
+ (make-undefined-variable)))))
+ (cons (if (eq? #{m 22102}# 'c&e)
+ (let ((#{x 23800}#
+ (#{build-global-definition 4315}#
+ #{s 22412}#
+ #{n 23599}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ (begin
+ (#{top-level-eval-hook 4300}#
+ #{x 23800}#
+ #{mod 22413}#)
+ #{x 23800}#))
+ (lambda ()
+ (#{build-global-definition 4315}#
+ #{s 22412}#
+ #{n 23599}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ #{exps 22105}#))
+ (if (let ((#{t 24337}# #{type 23600}#))
+ (eqv? #{t 24337}#
+ 'displaced-lexical))
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e 22410}#
+ (if (if (null? (car #{w 22411}#))
+ (null? (cdr #{w 22411}#))
#f)
- (let ((#{old 23800}#
- (module-variable
- (current-module)
- #{n 23601}#)))
- (if (if (variable? #{old 23800}#)
- (variable-bound?
- #{old 23800}#)
+ #{value 22409}#
+ (if (if (vector? #{value 22409}#)
+ (if (= (vector-length
+ #{value 22409}#)
+ 4)
+ (eq? (vector-ref
+ #{value 22409}#
+ 0)
+ 'syntax-object)
#f)
- (module-define!
- (current-module)
- #{n 23601}#
- (variable-ref #{old 23800}#))
- (module-add!
- (current-module)
- #{n 23601}#
- (make-undefined-variable)))))
- (values
- (cons (if (eq? #{m 22104}# 'c&e)
- (let ((#{x 23802}#
- (#{build-global-definition 4317}#
- #{s 22414}#
- #{n 23601}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22101}#
- #{w 22413}#
- #{mod 22415}#))))
- (begin
- (#{top-level-eval-hook 4302}#
- #{x 23802}#
- #{mod 22415}#)
- #{x 23802}#))
- (lambda ()
- (#{build-global-definition 4317}#
- #{s 22414}#
- #{n 23601}#
- (#{chi 4375}#
- #{e 22412}#
- #{r 22101}#
- #{w 22413}#
- #{mod 22415}#))))
- #{exps 22107}#)))
- (if (let ((#{t 24339}# #{type 23602}#))
- (eqv? #{t 24339}#
- 'displaced-lexical))
- (syntax-violation
- #f
- "identifier out of context"
- #{e 22412}#
- (if (if (null? (car #{w 22413}#))
- (null? (cdr #{w 22413}#))
#f)
- #{value 22411}#
- (if (if (vector? #{value 22411}#)
- (if (= (vector-length
- #{value 22411}#)
- 4)
- (eq? (vector-ref
- #{value 22411}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (let ((#{expression 24431}#
- (vector-ref
- #{value 22411}#
- 1))
- (#{wrap 24432}#
- (let ((#{w2 24442}#
- (vector-ref
- #{value 22411}#
- 2)))
- (let ((#{m1 24443}#
- (car #{w 22413}#))
- (#{s1 24444}#
- (cdr #{w 22413}#)))
- (if (null? #{m1 24443}#)
- (if (null? #{s1 24444}#)
- #{w2 24442}#
- (cons (car #{w2 24442}#)
- (let ((#{m2 24461}#
- (cdr #{w2 24442}#)))
- (if (null? #{m2 24461}#)
- #{s1 24444}#
- (append
- #{s1 24444}#
- #{m2 24461}#)))))
- (cons (let ((#{m2 24469}#
- (car #{w2 24442}#)))
- (if (null? #{m2 24469}#)
- #{m1 24443}#
- (append
- #{m1 24443}#
- #{m2 24469}#)))
- (let ((#{m2 24477}#
- (cdr #{w2 24442}#)))
- (if (null? #{m2 24477}#)
- #{s1 24444}#
+ (let ((#{expression 24429}#
+ (vector-ref
+ #{value 22409}#
+ 1))
+ (#{wrap 24430}#
+ (let ((#{w2 24440}#
+ (vector-ref
+ #{value 22409}#
+ 2)))
+ (let ((#{m1 24441}#
+ (car #{w 22411}#))
+ (#{s1 24442}#
+ (cdr #{w 22411}#)))
+ (if (null? #{m1 24441}#)
+ (if (null? #{s1 24442}#)
+ #{w2 24440}#
+ (cons (car #{w2 24440}#)
+ (let ((#{m2 24459}#
+ (cdr #{w2 24440}#)))
+ (if (null? #{m2 24459}#)
+ #{s1 24442}#
(append
- #{s1 24444}#
- #{m2 24477}#))))))))
- (#{module 24433}#
- (vector-ref
- #{value 22411}#
- 3)))
- (vector
- 'syntax-object
- #{expression 24431}#
- #{wrap 24432}#
- #{module 24433}#))
- (if (null? #{value 22411}#)
- #{value 22411}#
- (vector
- 'syntax-object
- #{value 22411}#
- #{w 22413}#
- #{mod 22415}#)))))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e 22412}#
- (if (if (null? (car #{w 22413}#))
- (null? (cdr #{w 22413}#))
- #f)
- #{value 22411}#
- (if (if (vector? #{value 22411}#)
- (if (= (vector-length
- #{value 22411}#)
- 4)
- (eq? (vector-ref
- #{value 22411}#
- 0)
- 'syntax-object)
- #f)
+ #{s1 24442}#
+ #{m2 24459}#)))))
+ (cons (let ((#{m2 24467}#
+ (car #{w2 24440}#)))
+ (if (null? #{m2 24467}#)
+ #{m1 24441}#
+ (append
+ #{m1 24441}#
+ #{m2 24467}#)))
+ (let ((#{m2 24475}#
+ (cdr #{w2 24440}#)))
+ (if (null? #{m2 24475}#)
+ #{s1 24442}#
+ (append
+ #{s1 24442}#
+ #{m2 24475}#))))))))
+ (#{module 24431}#
+ (vector-ref
+ #{value 22409}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 24429}#
+ #{wrap 24430}#
+ #{module 24431}#))
+ (if (null? #{value 22409}#)
+ #{value 22409}#
+ (vector
+ 'syntax-object
+ #{value 22409}#
+ #{w 22411}#
+ #{mod 22413}#)))))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e 22410}#
+ (if (if (null? (car #{w 22411}#))
+ (null? (cdr #{w 22411}#))
+ #f)
+ #{value 22409}#
+ (if (if (vector? #{value 22409}#)
+ (if (= (vector-length
+ #{value 22409}#)
+ 4)
+ (eq? (vector-ref
+ #{value 22409}#
+ 0)
+ 'syntax-object)
#f)
- (let ((#{expression 24529}#
- (vector-ref
- #{value 22411}#
- 1))
- (#{wrap 24530}#
- (let ((#{w2 24540}#
- (vector-ref
- #{value 22411}#
- 2)))
- (let ((#{m1 24541}#
- (car #{w 22413}#))
- (#{s1 24542}#
- (cdr #{w 22413}#)))
- (if (null? #{m1 24541}#)
- (if (null? #{s1 24542}#)
- #{w2 24540}#
- (cons (car #{w2 24540}#)
- (let ((#{m2 24559}#
- (cdr #{w2 24540}#)))
- (if (null? #{m2 24559}#)
- #{s1 24542}#
- (append
- #{s1 24542}#
- #{m2 24559}#)))))
- (cons (let ((#{m2 24567}#
- (car #{w2 24540}#)))
- (if (null? #{m2 24567}#)
- #{m1 24541}#
- (append
- #{m1 24541}#
- #{m2 24567}#)))
- (let ((#{m2 24575}#
- (cdr #{w2 24540}#)))
- (if (null? #{m2 24575}#)
- #{s1 24542}#
+ #f)
+ (let ((#{expression 24527}#
+ (vector-ref
+ #{value 22409}#
+ 1))
+ (#{wrap 24528}#
+ (let ((#{w2 24538}#
+ (vector-ref
+ #{value 22409}#
+ 2)))
+ (let ((#{m1 24539}#
+ (car #{w 22411}#))
+ (#{s1 24540}#
+ (cdr #{w 22411}#)))
+ (if (null? #{m1 24539}#)
+ (if (null? #{s1 24540}#)
+ #{w2 24538}#
+ (cons (car #{w2 24538}#)
+ (let ((#{m2 24557}#
+ (cdr #{w2 24538}#)))
+ (if (null? #{m2 24557}#)
+ #{s1 24540}#
(append
- #{s1 24542}#
- #{m2 24575}#))))))))
- (#{module 24531}#
- (vector-ref
- #{value 22411}#
- 3)))
- (vector
- 'syntax-object
- #{expression 24529}#
- #{wrap 24530}#
- #{module 24531}#))
- (if (null? #{value 22411}#)
- #{value 22411}#
- (vector
- 'syntax-object
- #{value 22411}#
- #{w 22413}#
- #{mod 22415}#)))))))))
- (values
- (cons (if (eq? #{m 22104}# 'c&e)
- (let ((#{x 24666}#
- (#{chi-expr 4376}#
- #{type 22410}#
- #{value 22411}#
- #{e 22412}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- #{mod 22415}#)))
- (begin
- (primitive-eval #{x 24666}#)
- #{x 24666}#))
- (lambda ()
- (#{chi-expr 4376}#
- #{type 22410}#
- #{value 22411}#
- #{e 22412}#
- #{r 22101}#
- #{w 22413}#
- #{s 22414}#
- #{mod 22415}#)))
- #{exps 22107}#))))))))))
- (lambda (#{exps 24675}#)
- (#{scan 21953}#
- (cdr #{body 22100}#)
- #{r 22101}#
- #{w 22102}#
- #{s 22103}#
- #{m 22104}#
- #{esew 22105}#
- #{mod 22106}#
- #{exps 24675}#)))))))
- (call-with-values
- (lambda ()
- (#{scan 21953}#
- #{body 21946}#
- #{r 21947}#
- #{w 21948}#
- #{s 21949}#
- #{m 21950}#
- #{esew 21951}#
- #{mod 21952}#
- '()))
- (lambda (#{exps 21956}#)
- (if (null? #{exps 21956}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{s 21949}#)
- (#{build-sequence 4324}#
- #{s 21949}#
- (letrec*
- ((#{lp 22000}#
- (lambda (#{in 22096}# #{out 22097}#)
- (if (null? #{in 22096}#)
- #{out 22097}#
- (let ((#{e 22098}# (car #{in 22096}#)))
- (#{lp 22000}#
- (cdr #{in 22096}#)
- (cons (if (procedure? #{e 22098}#)
- (#{e 22098}#)
- #{e 22098}#)
- #{out 22097}#)))))))
- (#{lp 22000}# #{exps 21956}# '())))))))))
- (#{chi-install-global 4372}#
- (lambda (#{name 24676}# #{e 24677}#)
- (let ((#{exp 24683}#
- (let ((#{args 24694}#
+ #{s1 24540}#
+ #{m2 24557}#)))))
+ (cons (let ((#{m2 24565}#
+ (car #{w2 24538}#)))
+ (if (null? #{m2 24565}#)
+ #{m1 24539}#
+ (append
+ #{m1 24539}#
+ #{m2 24565}#)))
+ (let ((#{m2 24573}#
+ (cdr #{w2 24538}#)))
+ (if (null? #{m2 24573}#)
+ #{s1 24540}#
+ (append
+ #{s1 24540}#
+ #{m2 24573}#))))))))
+ (#{module 24529}#
+ (vector-ref
+ #{value 22409}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 24527}#
+ #{wrap 24528}#
+ #{module 24529}#))
+ (if (null? #{value 22409}#)
+ #{value 22409}#
+ (vector
+ 'syntax-object
+ #{value 22409}#
+ #{w 22411}#
+ #{mod 22413}#)))))))))
+ (cons (if (eq? #{m 22102}# 'c&e)
+ (let ((#{x 24664}#
+ (#{chi-expr 4374}#
+ #{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)))
+ (begin
+ (primitive-eval #{x 24664}#)
+ #{x 24664}#))
+ (lambda ()
+ (#{chi-expr 4374}#
+ #{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)))
+ #{exps 22105}#)))))))))))))
+ (let ((#{exps 21952}#
+ (#{scan 21951}#
+ #{body 21944}#
+ #{r 21945}#
+ #{w 21946}#
+ #{s 21947}#
+ #{m 21948}#
+ #{esew 21949}#
+ #{mod 21950}#
+ '())))
+ (if (null? #{exps 21952}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{s 21947}#)
+ (#{build-sequence 4322}#
+ #{s 21947}#
+ (letrec*
+ ((#{lp 21998}#
+ (lambda (#{in 22094}# #{out 22095}#)
+ (if (null? #{in 22094}#)
+ #{out 22095}#
+ (let ((#{e 22096}# (car #{in 22094}#)))
+ (#{lp 21998}#
+ (cdr #{in 22094}#)
+ (cons (if (procedure? #{e 22096}#)
+ (#{e 22096}#)
+ #{e 22096}#)
+ #{out 22095}#)))))))
+ (#{lp 21998}# #{exps 21952}# '()))))))))
+ (#{chi-install-global 4370}#
+ (lambda (#{name 24673}# #{e 24674}#)
+ (let ((#{exp 24680}#
+ (let ((#{args 24691}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24676}#)
+ #{name 24673}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 24677}#)))
+ #{e 24674}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'make-syntax-transformer
- #{args 24694}#))))
+ #{args 24691}#))))
(begin
- (if (if (struct? #{exp 24683}#)
- (eq? (struct-vtable #{exp 24683}#)
+ (if (if (struct? #{exp 24680}#)
+ (eq? (struct-vtable #{exp 24680}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 24721}# (struct-ref #{exp 24683}# 1)))
- (if (not (assq 'name #{meta 24721}#))
- (let ((#{v 24728}#
- (cons (cons 'name #{name 24676}#) #{meta 24721}#)))
- (struct-set! #{exp 24683}# 1 #{v 24728}#)))))
+ (let ((#{meta 24718}# (struct-ref #{exp 24680}# 1)))
+ (if (not (assq 'name #{meta 24718}#))
+ (let ((#{v 24725}#
+ (cons (cons 'name #{name 24673}#) #{meta 24718}#)))
+ (struct-set! #{exp 24680}# 1 #{v 24725}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 24676}#
- #{exp 24683}#)))))
- (#{chi-when-list 4373}#
- (lambda (#{e 24739}# #{when-list 24740}# #{w 24741}#)
+ #{name 24673}#
+ #{exp 24680}#)))))
+ (#{chi-when-list 4371}#
+ (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#)
(letrec*
- ((#{f 24742}#
- (lambda (#{when-list 24944}# #{situations 24945}#)
- (if (null? #{when-list 24944}#)
- #{situations 24945}#
- (#{f 24742}#
- (cdr #{when-list 24944}#)
- (cons (let ((#{x 24946}#
- (syntax->datum (car #{when-list 24944}#))))
- (if (if (eq? #{x 24946}# 'compile)
+ ((#{f 24739}#
+ (lambda (#{when-list 24941}# #{situations 24942}#)
+ (if (null? #{when-list 24941}#)
+ #{situations 24942}#
+ (#{f 24739}#
+ (cdr #{when-list 24941}#)
+ (cons (let ((#{x 24943}#
+ (syntax->datum (car #{when-list 24941}#))))
+ (if (if (eq? #{x 24943}# 'compile)
#t
- (if (eq? #{x 24946}# 'load)
+ (if (eq? #{x 24943}# 'load)
#t
- (if (eq? #{x 24946}# 'eval)
+ (if (eq? #{x 24943}# 'eval)
#t
- (eq? #{x 24946}# 'expand))))
- #{x 24946}#
+ (eq? #{x 24943}# 'expand))))
+ #{x 24943}#
(syntax-violation
'eval-when
"invalid situation"
- #{e 24739}#
- (let ((#{x 24965}# (car #{when-list 24944}#)))
- (if (if (null? (car #{w 24741}#))
- (null? (cdr #{w 24741}#))
+ #{e 24736}#
+ (let ((#{x 24962}# (car #{when-list 24941}#)))
+ (if (if (null? (car #{w 24738}#))
+ (null? (cdr #{w 24738}#))
#f)
- #{x 24965}#
- (if (if (vector? #{x 24965}#)
- (if (= (vector-length #{x 24965}#) 4)
- (eq? (vector-ref #{x 24965}# 0)
+ #{x 24962}#
+ (if (if (vector? #{x 24962}#)
+ (if (= (vector-length #{x 24962}#) 4)
+ (eq? (vector-ref #{x 24962}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 24983}#
- (vector-ref #{x 24965}# 1))
- (#{wrap 24984}#
- (let ((#{w2 24992}#
+ (let ((#{expression 24980}#
+ (vector-ref #{x 24962}# 1))
+ (#{wrap 24981}#
+ (let ((#{w2 24989}#
(vector-ref
- #{x 24965}#
+ #{x 24962}#
2)))
- (let ((#{m1 24993}#
- (car #{w 24741}#))
- (#{s1 24994}#
- (cdr #{w 24741}#)))
- (if (null? #{m1 24993}#)
- (if (null? #{s1 24994}#)
- #{w2 24992}#
- (cons (car #{w2 24992}#)
- (let ((#{m2 25009}#
- (cdr #{w2 24992}#)))
- (if (null? #{m2 25009}#)
- #{s1 24994}#
+ (let ((#{m1 24990}#
+ (car #{w 24738}#))
+ (#{s1 24991}#
+ (cdr #{w 24738}#)))
+ (if (null? #{m1 24990}#)
+ (if (null? #{s1 24991}#)
+ #{w2 24989}#
+ (cons (car #{w2 24989}#)
+ (let ((#{m2 25006}#
+ (cdr #{w2 24989}#)))
+ (if (null? #{m2 25006}#)
+ #{s1 24991}#
(append
- #{s1 24994}#
- #{m2 25009}#)))))
- (cons (let ((#{m2 25017}#
- (car #{w2 24992}#)))
- (if (null? #{m2 25017}#)
- #{m1 24993}#
+ #{s1 24991}#
+ #{m2 25006}#)))))
+ (cons (let ((#{m2 25014}#
+ (car #{w2 24989}#)))
+ (if (null? #{m2 25014}#)
+ #{m1 24990}#
(append
- #{m1 24993}#
- #{m2 25017}#)))
- (let ((#{m2 25025}#
- (cdr #{w2 24992}#)))
- (if (null? #{m2 25025}#)
- #{s1 24994}#
+ #{m1 24990}#
+ #{m2 25014}#)))
+ (let ((#{m2 25022}#
+ (cdr #{w2 24989}#)))
+ (if (null? #{m2 25022}#)
+ #{s1 24991}#
(append
- #{s1 24994}#
- #{m2 25025}#))))))))
- (#{module 24985}#
- (vector-ref #{x 24965}# 3)))
+ #{s1 24991}#
+ #{m2 25022}#))))))))
+ (#{module 24982}#
+ (vector-ref #{x 24962}# 3)))
(vector
'syntax-object
- #{expression 24983}#
- #{wrap 24984}#
- #{module 24985}#))
- (if (null? #{x 24965}#)
- #{x 24965}#
+ #{expression 24980}#
+ #{wrap 24981}#
+ #{module 24982}#))
+ (if (null? #{x 24962}#)
+ #{x 24962}#
(vector
'syntax-object
- #{x 24965}#
- #{w 24741}#
+ #{x 24962}#
+ #{w 24738}#
#f))))))))
- #{situations 24945}#))))))
- (#{f 24742}# #{when-list 24740}# '()))))
- (#{syntax-type 4374}#
- (lambda (#{e 25040}#
- #{r 25041}#
- #{w 25042}#
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#
- #{for-car? 25046}#)
- (if (symbol? #{e 25040}#)
- (let ((#{n 25047}#
- (#{id-var-name 4362}# #{e 25040}# #{w 25042}#)))
- (let ((#{b 25048}#
- (let ((#{t 25623}# (assq #{n 25047}# #{r 25041}#)))
- (if #{t 25623}#
- (cdr #{t 25623}#)
- (if (symbol? #{n 25047}#)
- (let ((#{t 25628}#
+ #{situations 24942}#))))))
+ (#{f 24739}# #{when-list 24737}# '()))))
+ (#{syntax-type 4372}#
+ (lambda (#{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
+ #{for-car? 25043}#)
+ (if (symbol? #{e 25037}#)
+ (let ((#{n 25044}#
+ (#{id-var-name 4360}# #{e 25037}# #{w 25039}#)))
+ (let ((#{b 25045}#
+ (let ((#{t 25620}# (assq #{n 25044}# #{r 25038}#)))
+ (if #{t 25620}#
+ (cdr #{t 25620}#)
+ (if (symbol? #{n 25044}#)
+ (let ((#{t 25625}#
(begin
- (if (if (not #{mod 25045}#)
+ (if (if (not #{mod 25042}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 25047}#))
- (let ((#{v 25665}#
+ #{n 25044}#))
+ (let ((#{v 25662}#
(module-variable
- (if #{mod 25045}#
+ (if #{mod 25042}#
(resolve-module
- (cdr #{mod 25045}#))
+ (cdr #{mod 25042}#))
(current-module))
- #{n 25047}#)))
- (if #{v 25665}#
- (if (variable-bound? #{v 25665}#)
- (let ((#{val 25674}#
- (variable-ref #{v 25665}#)))
- (if (macro? #{val 25674}#)
- (if (macro-type #{val 25674}#)
- (cons (macro-type #{val 25674}#)
+ #{n 25044}#)))
+ (if #{v 25662}#
+ (if (variable-bound? #{v 25662}#)
+ (let ((#{val 25671}#
+ (variable-ref #{v 25662}#)))
+ (if (macro? #{val 25671}#)
+ (if (macro-type #{val 25671}#)
+ (cons (macro-type #{val 25671}#)
(macro-binding
- #{val 25674}#))
+ #{val 25671}#))
#f)
#f))
#f)
#f)))))
- (if #{t 25628}# #{t 25628}# '(global)))
+ (if #{t 25625}# #{t 25625}# '(global)))
'(displaced-lexical))))))
- (let ((#{type 25049}# (car #{b 25048}#)))
- (if (let ((#{t 25083}# #{type 25049}#))
- (eqv? #{t 25083}# 'lexical))
+ (let ((#{type 25046}# (car #{b 25045}#)))
+ (if (let ((#{t 25080}# #{type 25046}#))
+ (eqv? #{t 25080}# 'lexical))
(values
- #{type 25049}#
- (cdr #{b 25048}#)
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (let ((#{t 25240}# #{type 25049}#))
- (eqv? #{t 25240}# 'global))
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (let ((#{t 25237}# #{type 25046}#))
+ (eqv? #{t 25237}# 'global))
(values
- #{type 25049}#
- #{n 25047}#
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (let ((#{t 25366}# #{type 25049}#))
- (eqv? #{t 25366}# 'macro))
- (if #{for-car? 25046}#
+ #{type 25046}#
+ #{n 25044}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (let ((#{t 25363}# #{type 25046}#))
+ (eqv? #{t 25363}# 'macro))
+ (if #{for-car? 25043}#
(values
- #{type 25049}#
- (cdr #{b 25048}#)
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (#{syntax-type 4374}#
- (#{chi-macro 4378}#
- (cdr #{b 25048}#)
- #{e 25040}#
- #{r 25041}#
- #{w 25042}#
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#)
- #{r 25041}#
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (#{syntax-type 4372}#
+ (#{chi-macro 4376}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#)
+ #{r 25038}#
'(())
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
#f))
(values
- #{type 25049}#
- (cdr #{b 25048}#)
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)))))))
- (if (pair? #{e 25040}#)
- (let ((#{first 25685}# (car #{e 25040}#)))
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)))))))
+ (if (pair? #{e 25037}#)
+ (let ((#{first 25682}# (car #{e 25037}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{first 25685}#
- #{r 25041}#
- #{w 25042}#
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#
+ (#{syntax-type 4372}#
+ #{first 25682}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
#t))
- (lambda (#{ftype 25687}#
- #{fval 25688}#
- #{fe 25689}#
- #{fw 25690}#
- #{fs 25691}#
- #{fmod 25692}#)
- (if (eqv? #{ftype 25687}# 'lexical)
+ (lambda (#{ftype 25684}#
+ #{fval 25685}#
+ #{fe 25686}#
+ #{fw 25687}#
+ #{fs 25688}#
+ #{fmod 25689}#)
+ (if (eqv? #{ftype 25684}# 'lexical)
(values
'lexical-call
- #{fval 25688}#
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'global)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 25688}#
- #{w 25042}#
- #{fmod 25692}#)
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'macro)
- (#{syntax-type 4374}#
- (#{chi-macro 4378}#
- #{fval 25688}#
- #{e 25040}#
- #{r 25041}#
- #{w 25042}#
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#)
- #{r 25041}#
+ #{fval 25685}#
+ #{w 25039}#
+ #{fmod 25689}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'macro)
+ (#{syntax-type 4372}#
+ (#{chi-macro 4376}#
+ #{fval 25685}#
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#)
+ #{r 25038}#
'(())
- #{s 25043}#
- #{rib 25044}#
- #{mod 25045}#
- #{for-car? 25046}#)
- (if (eqv? #{ftype 25687}# 'module-ref)
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
+ #{for-car? 25043}#)
+ (if (eqv? #{ftype 25684}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 25688}#
- #{e 25040}#
- #{r 25041}#
- #{w 25042}#))
- (lambda (#{e 25713}#
- #{r 25714}#
- #{w 25715}#
- #{s 25716}#
- #{mod 25717}#)
- (#{syntax-type 4374}#
- #{e 25713}#
- #{r 25714}#
- #{w 25715}#
- #{s 25716}#
- #{rib 25044}#
- #{mod 25717}#
- #{for-car? 25046}#)))
- (if (eqv? #{ftype 25687}# 'core)
+ (#{fval 25685}#
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#))
+ (lambda (#{e 25710}#
+ #{r 25711}#
+ #{w 25712}#
+ #{s 25713}#
+ #{mod 25714}#)
+ (#{syntax-type 4372}#
+ #{e 25710}#
+ #{r 25711}#
+ #{w 25712}#
+ #{s 25713}#
+ #{rib 25041}#
+ #{mod 25714}#
+ #{for-car? 25043}#)))
+ (if (eqv? #{ftype 25684}# 'core)
(values
'core-form
- #{fval 25688}#
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'local-syntax)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'local-syntax)
(values
'local-syntax-form
- #{fval 25688}#
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'begin)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'begin)
(values
'begin-form
#f
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'eval-when)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'eval-when)
(values
'eval-when-form
#f
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
- (if (eqv? #{ftype 25687}# 'define)
- (let ((#{tmp 25734}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'define)
+ (let ((#{tmp 25731}#
($sc-dispatch
- #{e 25040}#
+ #{e 25037}#
'(_ any any))))
- (if (if #{tmp 25734}#
+ (if (if #{tmp 25731}#
(@apply
- (lambda (#{name 25738}#
- #{val 25739}#)
- (if (symbol? #{name 25738}#)
+ (lambda (#{name 25735}#
+ #{val 25736}#)
+ (if (symbol? #{name 25735}#)
#t
(if (if (vector?
- #{name 25738}#)
+ #{name 25735}#)
(if (= (vector-length
- #{name 25738}#)
+ #{name 25735}#)
4)
(eq? (vector-ref
- #{name 25738}#
+ #{name 25735}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25738}#
+ #{name 25735}#
1))
#f)))
- #{tmp 25734}#)
+ #{tmp 25731}#)
#f)
(@apply
- (lambda (#{name 25766}# #{val 25767}#)
+ (lambda (#{name 25763}# #{val 25764}#)
(values
'define-form
- #{name 25766}#
- #{val 25767}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#))
- #{tmp 25734}#)
- (let ((#{tmp 25768}#
+ #{name 25763}#
+ #{val 25764}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 25731}#)
+ (let ((#{tmp 25765}#
($sc-dispatch
- #{e 25040}#
+ #{e 25037}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 25768}#
+ (if (if #{tmp 25765}#
(@apply
- (lambda (#{name 25772}#
- #{args 25773}#
- #{e1 25774}#
- #{e2 25775}#)
+ (lambda (#{name 25769}#
+ #{args 25770}#
+ #{e1 25771}#
+ #{e2 25772}#)
(if (if (symbol?
- #{name 25772}#)
+ #{name 25769}#)
#t
(if (if (vector?
- #{name 25772}#)
+ #{name 25769}#)
(if (= (vector-length
- #{name 25772}#)
+ #{name 25769}#)
4)
(eq? (vector-ref
- #{name 25772}#
+ #{name 25769}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25772}#
+ #{name 25769}#
1))
#f))
- (#{valid-bound-ids? 4365}#
- (#{lambda-var-list 4390}#
- #{args 25773}#))
+ (#{valid-bound-ids? 4363}#
+ (#{lambda-var-list 4388}#
+ #{args 25770}#))
#f))
- #{tmp 25768}#)
+ #{tmp 25765}#)
#f)
(@apply
- (lambda (#{name 26256}#
- #{args 26257}#
- #{e1 26258}#
- #{e2 26259}#)
+ (lambda (#{name 26253}#
+ #{args 26254}#
+ #{e1 26255}#
+ #{e2 26256}#)
(values
'define-form
- (if (if (null? (car #{w 25042}#))
- (null? (cdr #{w 25042}#))
+ (if (if (null? (car #{w 25039}#))
+ (null? (cdr #{w 25039}#))
#f)
- #{name 26256}#
+ #{name 26253}#
(if (if (vector?
- #{name 26256}#)
+ #{name 26253}#)
(if (= (vector-length
- #{name 26256}#)
+ #{name 26253}#)
4)
(eq? (vector-ref
- #{name 26256}#
+ #{name 26253}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26289}#
+ (let ((#{expression 26286}#
(vector-ref
- #{name 26256}#
+ #{name 26253}#
1))
- (#{wrap 26290}#
- (let ((#{w2 26300}#
+ (#{wrap 26287}#
+ (let ((#{w2 26297}#
(vector-ref
- #{name 26256}#
+ #{name 26253}#
2)))
- (let ((#{m1 26301}#
- (car #{w 25042}#))
- (#{s1 26302}#
- (cdr #{w 25042}#)))
- (if (null? #{m1 26301}#)
- (if (null? #{s1 26302}#)
- #{w2 26300}#
- (cons (car #{w2 26300}#)
- (let ((#{m2 26319}#
- (cdr #{w2 26300}#)))
- (if (null? #{m2 26319}#)
- #{s1 26302}#
+ (let ((#{m1 26298}#
+ (car #{w 25039}#))
+ (#{s1 26299}#
+ (cdr #{w 25039}#)))
+ (if (null? #{m1 26298}#)
+ (if (null? #{s1 26299}#)
+ #{w2 26297}#
+ (cons (car #{w2 26297}#)
+ (let ((#{m2 26316}#
+ (cdr #{w2 26297}#)))
+ (if (null? #{m2 26316}#)
+ #{s1 26299}#
(append
- #{s1 26302}#
- #{m2 26319}#)))))
- (cons (let ((#{m2 26327}#
- (car #{w2 26300}#)))
- (if (null? #{m2 26327}#)
- #{m1 26301}#
+ #{s1 26299}#
+ #{m2 26316}#)))))
+ (cons (let ((#{m2 26324}#
+ (car #{w2 26297}#)))
+ (if (null? #{m2 26324}#)
+ #{m1 26298}#
(append
- #{m1 26301}#
- #{m2 26327}#)))
- (let ((#{m2 26335}#
- (cdr #{w2 26300}#)))
- (if (null? #{m2 26335}#)
- #{s1 26302}#
+ #{m1 26298}#
+ #{m2 26324}#)))
+ (let ((#{m2 26332}#
+ (cdr #{w2 26297}#)))
+ (if (null? #{m2 26332}#)
+ #{s1 26299}#
(append
- #{s1 26302}#
- #{m2 26335}#))))))))
- (#{module 26291}#
+ #{s1 26299}#
+ #{m2 26332}#))))))))
+ (#{module 26288}#
(vector-ref
- #{name 26256}#
+ #{name 26253}#
3)))
(vector
'syntax-object
- #{expression 26289}#
- #{wrap 26290}#
- #{module 26291}#))
- (if (null? #{name 26256}#)
- #{name 26256}#
+ #{expression 26286}#
+ #{wrap 26287}#
+ #{module 26288}#))
+ (if (null? #{name 26253}#)
+ #{name 26253}#
(vector
'syntax-object
- #{name 26256}#
- #{w 25042}#
- #{mod 25045}#))))
- (let ((#{e 26361}#
+ #{name 26253}#
+ #{w 25039}#
+ #{mod 25042}#))))
+ (let ((#{e 26358}#
(cons '#(syntax-object
lambda
((top)
@@ -1972,10 +1955,10 @@
(top)
(top)
(top))
- #("i1888"
- "i1889"
- "i1890"
- "i1891"))
+ #("i1886"
+ "i1887"
+ "i1888"
+ "i1889"))
#(ribcage
()
()
@@ -1997,12 +1980,12 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage
()
()
@@ -2010,7 +1993,7 @@
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage
()
()
@@ -2038,13 +2021,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -2472,199 +2455,199 @@
"i44")))
(hygiene
guile))
- (let ((#{x 26365}#
- (cons #{args 26257}#
- (cons #{e1 26258}#
- #{e2 26259}#))))
- (if (if (null? (car #{w 25042}#))
- (null? (cdr #{w 25042}#))
+ (let ((#{x 26362}#
+ (cons #{args 26254}#
+ (cons #{e1 26255}#
+ #{e2 26256}#))))
+ (if (if (null? (car #{w 25039}#))
+ (null? (cdr #{w 25039}#))
#f)
- #{x 26365}#
+ #{x 26362}#
(if (if (vector?
- #{x 26365}#)
+ #{x 26362}#)
(if (= (vector-length
- #{x 26365}#)
+ #{x 26362}#)
4)
(eq? (vector-ref
- #{x 26365}#
+ #{x 26362}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26383}#
+ (let ((#{expression 26380}#
(vector-ref
- #{x 26365}#
+ #{x 26362}#
1))
- (#{wrap 26384}#
- (let ((#{w2 26392}#
+ (#{wrap 26381}#
+ (let ((#{w2 26389}#
(vector-ref
- #{x 26365}#
+ #{x 26362}#
2)))
- (let ((#{m1 26393}#
- (car #{w 25042}#))
- (#{s1 26394}#
- (cdr #{w 25042}#)))
- (if (null? #{m1 26393}#)
- (if (null? #{s1 26394}#)
- #{w2 26392}#
- (cons (car #{w2 26392}#)
- (let ((#{m2 26409}#
- (cdr #{w2 26392}#)))
- (if (null? #{m2 26409}#)
- #{s1 26394}#
+ (let ((#{m1 26390}#
+ (car #{w 25039}#))
+ (#{s1 26391}#
+ (cdr #{w 25039}#)))
+ (if (null? #{m1 26390}#)
+ (if (null? #{s1 26391}#)
+ #{w2 26389}#
+ (cons (car #{w2 26389}#)
+ (let ((#{m2 26406}#
+ (cdr #{w2 26389}#)))
+ (if (null? #{m2 26406}#)
+ #{s1 26391}#
(append
- #{s1 26394}#
- #{m2 26409}#)))))
- (cons (let ((#{m2 26417}#
- (car #{w2 26392}#)))
- (if (null? #{m2 26417}#)
- #{m1 26393}#
+ #{s1 26391}#
+ #{m2 26406}#)))))
+ (cons (let ((#{m2 26414}#
+ (car #{w2 26389}#)))
+ (if (null? #{m2 26414}#)
+ #{m1 26390}#
(append
- #{m1 26393}#
- #{m2 26417}#)))
- (let ((#{m2 26425}#
- (cdr #{w2 26392}#)))
- (if (null? #{m2 26425}#)
- #{s1 26394}#
+ #{m1 26390}#
+ #{m2 26414}#)))
+ (let ((#{m2 26422}#
+ (cdr #{w2 26389}#)))
+ (if (null? #{m2 26422}#)
+ #{s1 26391}#
(append
- #{s1 26394}#
- #{m2 26425}#))))))))
- (#{module 26385}#
+ #{s1 26391}#
+ #{m2 26422}#))))))))
+ (#{module 26382}#
(vector-ref
- #{x 26365}#
+ #{x 26362}#
3)))
(vector
'syntax-object
- #{expression 26383}#
- #{wrap 26384}#
- #{module 26385}#))
- (if (null? #{x 26365}#)
- #{x 26365}#
+ #{expression 26380}#
+ #{wrap 26381}#
+ #{module 26382}#))
+ (if (null? #{x 26362}#)
+ #{x 26362}#
(vector
'syntax-object
- #{x 26365}#
- #{w 25042}#
- #{mod 25045}#))))))))
+ #{x 26362}#
+ #{w 25039}#
+ #{mod 25042}#))))))))
(begin
- (if (if (pair? #{e 26361}#)
- #{s 25043}#
+ (if (if (pair? #{e 26358}#)
+ #{s 25040}#
#f)
(set-source-properties!
- #{e 26361}#
- #{s 25043}#))
- #{e 26361}#))
+ #{e 26358}#
+ #{s 25040}#))
+ #{e 26358}#))
'(())
- #{s 25043}#
- #{mod 25045}#))
- #{tmp 25768}#)
- (let ((#{tmp 26444}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 25765}#)
+ (let ((#{tmp 26441}#
($sc-dispatch
- #{e 25040}#
+ #{e 25037}#
'(_ any))))
- (if (if #{tmp 26444}#
+ (if (if #{tmp 26441}#
(@apply
- (lambda (#{name 26448}#)
+ (lambda (#{name 26445}#)
(if (symbol?
- #{name 26448}#)
+ #{name 26445}#)
#t
(if (if (vector?
- #{name 26448}#)
+ #{name 26445}#)
(if (= (vector-length
- #{name 26448}#)
+ #{name 26445}#)
4)
(eq? (vector-ref
- #{name 26448}#
+ #{name 26445}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26448}#
+ #{name 26445}#
1))
#f)))
- #{tmp 26444}#)
+ #{tmp 26441}#)
#f)
(@apply
- (lambda (#{name 26475}#)
+ (lambda (#{name 26472}#)
(values
'define-form
- (if (if (null? (car #{w 25042}#))
- (null? (cdr #{w 25042}#))
+ (if (if (null? (car #{w 25039}#))
+ (null? (cdr #{w 25039}#))
#f)
- #{name 26475}#
+ #{name 26472}#
(if (if (vector?
- #{name 26475}#)
+ #{name 26472}#)
(if (= (vector-length
- #{name 26475}#)
+ #{name 26472}#)
4)
(eq? (vector-ref
- #{name 26475}#
+ #{name 26472}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26505}#
+ (let ((#{expression 26502}#
(vector-ref
- #{name 26475}#
+ #{name 26472}#
1))
- (#{wrap 26506}#
- (let ((#{w2 26516}#
+ (#{wrap 26503}#
+ (let ((#{w2 26513}#
(vector-ref
- #{name 26475}#
+ #{name 26472}#
2)))
- (let ((#{m1 26517}#
- (car #{w 25042}#))
- (#{s1 26518}#
- (cdr #{w 25042}#)))
- (if (null? #{m1 26517}#)
- (if (null? #{s1 26518}#)
- #{w2 26516}#
- (cons (car #{w2 26516}#)
- (let ((#{m2 26535}#
- (cdr #{w2 26516}#)))
- (if (null? #{m2 26535}#)
- #{s1 26518}#
+ (let ((#{m1 26514}#
+ (car #{w 25039}#))
+ (#{s1 26515}#
+ (cdr #{w 25039}#)))
+ (if (null? #{m1 26514}#)
+ (if (null? #{s1 26515}#)
+ #{w2 26513}#
+ (cons (car #{w2 26513}#)
+ (let ((#{m2 26532}#
+ (cdr #{w2 26513}#)))
+ (if (null? #{m2 26532}#)
+ #{s1 26515}#
(append
- #{s1 26518}#
- #{m2 26535}#)))))
- (cons (let ((#{m2 26543}#
- (car #{w2 26516}#)))
- (if (null? #{m2 26543}#)
- #{m1 26517}#
+ #{s1 26515}#
+ #{m2 26532}#)))))
+ (cons (let ((#{m2 26540}#
+ (car #{w2 26513}#)))
+ (if (null? #{m2 26540}#)
+ #{m1 26514}#
(append
- #{m1 26517}#
- #{m2 26543}#)))
- (let ((#{m2 26551}#
- (cdr #{w2 26516}#)))
- (if (null? #{m2 26551}#)
- #{s1 26518}#
+ #{m1 26514}#
+ #{m2 26540}#)))
+ (let ((#{m2 26548}#
+ (cdr #{w2 26513}#)))
+ (if (null? #{m2 26548}#)
+ #{s1 26515}#
(append
- #{s1 26518}#
- #{m2 26551}#))))))))
- (#{module 26507}#
+ #{s1 26515}#
+ #{m2 26548}#))))))))
+ (#{module 26504}#
(vector-ref
- #{name 26475}#
+ #{name 26472}#
3)))
(vector
'syntax-object
- #{expression 26505}#
- #{wrap 26506}#
- #{module 26507}#))
- (if (null? #{name 26475}#)
- #{name 26475}#
+ #{expression 26502}#
+ #{wrap 26503}#
+ #{module 26504}#))
+ (if (null? #{name 26472}#)
+ #{name 26472}#
(vector
'syntax-object
- #{name 26475}#
- #{w 25042}#
- #{mod 25045}#))))
+ #{name 26472}#
+ #{w 25039}#
+ #{mod 25042}#))))
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2680,17 +2663,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2709,13 +2692,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -3146,7 +3129,7 @@
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3162,17 +3145,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3191,13 +3174,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -3628,7 +3611,7 @@
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3644,17 +3627,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3673,13 +3656,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -4105,2012 +4088,2012 @@
"i44")))
(hygiene guile)))
'(())
- #{s 25043}#
- #{mod 25045}#))
- #{tmp 26444}#)
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 26441}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 25040}#)))))))
- (if (eqv? #{ftype 25687}# 'define-syntax)
- (let ((#{tmp 26590}#
+ #{e 25037}#)))))))
+ (if (eqv? #{ftype 25684}# 'define-syntax)
+ (let ((#{tmp 26587}#
($sc-dispatch
- #{e 25040}#
+ #{e 25037}#
'(_ any any))))
- (if (if #{tmp 26590}#
+ (if (if #{tmp 26587}#
(@apply
- (lambda (#{name 26594}#
- #{val 26595}#)
- (if (symbol? #{name 26594}#)
+ (lambda (#{name 26591}#
+ #{val 26592}#)
+ (if (symbol? #{name 26591}#)
#t
(if (if (vector?
- #{name 26594}#)
+ #{name 26591}#)
(if (= (vector-length
- #{name 26594}#)
+ #{name 26591}#)
4)
(eq? (vector-ref
- #{name 26594}#
+ #{name 26591}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26594}#
+ #{name 26591}#
1))
#f)))
- #{tmp 26590}#)
+ #{tmp 26587}#)
#f)
(@apply
- (lambda (#{name 26622}#
- #{val 26623}#)
+ (lambda (#{name 26619}#
+ #{val 26620}#)
(values
'define-syntax-form
- #{name 26622}#
- #{val 26623}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#))
- #{tmp 26590}#)
+ #{name 26619}#
+ #{val 26620}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 26587}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 25040}#)))
+ #{e 25037}#)))
(values
'call
#f
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#))))))))))))))
- (if (if (vector? #{e 25040}#)
- (if (= (vector-length #{e 25040}#) 4)
- (eq? (vector-ref #{e 25040}# 0) 'syntax-object)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))))))))))))))
+ (if (if (vector? #{e 25037}#)
+ (if (= (vector-length #{e 25037}#) 4)
+ (eq? (vector-ref #{e 25037}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4374}#
- (vector-ref #{e 25040}# 1)
- #{r 25041}#
- (let ((#{w2 26648}# (vector-ref #{e 25040}# 2)))
- (let ((#{m1 26649}# (car #{w 25042}#))
- (#{s1 26650}# (cdr #{w 25042}#)))
- (if (null? #{m1 26649}#)
- (if (null? #{s1 26650}#)
- #{w2 26648}#
- (cons (car #{w2 26648}#)
- (let ((#{m2 26661}# (cdr #{w2 26648}#)))
- (if (null? #{m2 26661}#)
- #{s1 26650}#
- (append #{s1 26650}# #{m2 26661}#)))))
- (cons (let ((#{m2 26669}# (car #{w2 26648}#)))
- (if (null? #{m2 26669}#)
- #{m1 26649}#
- (append #{m1 26649}# #{m2 26669}#)))
- (let ((#{m2 26677}# (cdr #{w2 26648}#)))
- (if (null? #{m2 26677}#)
- #{s1 26650}#
- (append #{s1 26650}# #{m2 26677}#)))))))
- (let ((#{t 26682}#
- (#{source-annotation 4336}# #{e 25040}#)))
- (if #{t 26682}# #{t 26682}# #{s 25043}#))
- #{rib 25044}#
- (let ((#{t 26980}# (vector-ref #{e 25040}# 3)))
- (if #{t 26980}# #{t 26980}# #{mod 25045}#))
- #{for-car? 25046}#)
- (if (self-evaluating? #{e 25040}#)
+ (#{syntax-type 4372}#
+ (vector-ref #{e 25037}# 1)
+ #{r 25038}#
+ (let ((#{w2 26645}# (vector-ref #{e 25037}# 2)))
+ (let ((#{m1 26646}# (car #{w 25039}#))
+ (#{s1 26647}# (cdr #{w 25039}#)))
+ (if (null? #{m1 26646}#)
+ (if (null? #{s1 26647}#)
+ #{w2 26645}#
+ (cons (car #{w2 26645}#)
+ (let ((#{m2 26658}# (cdr #{w2 26645}#)))
+ (if (null? #{m2 26658}#)
+ #{s1 26647}#
+ (append #{s1 26647}# #{m2 26658}#)))))
+ (cons (let ((#{m2 26666}# (car #{w2 26645}#)))
+ (if (null? #{m2 26666}#)
+ #{m1 26646}#
+ (append #{m1 26646}# #{m2 26666}#)))
+ (let ((#{m2 26674}# (cdr #{w2 26645}#)))
+ (if (null? #{m2 26674}#)
+ #{s1 26647}#
+ (append #{s1 26647}# #{m2 26674}#)))))))
+ (let ((#{t 26679}#
+ (#{source-annotation 4334}# #{e 25037}#)))
+ (if #{t 26679}# #{t 26679}# #{s 25040}#))
+ #{rib 25041}#
+ (let ((#{t 26977}# (vector-ref #{e 25037}# 3)))
+ (if #{t 26977}# #{t 26977}# #{mod 25042}#))
+ #{for-car? 25043}#)
+ (if (self-evaluating? #{e 25037}#)
(values
'constant
#f
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
(values
'other
#f
- #{e 25040}#
- #{w 25042}#
- #{s 25043}#
- #{mod 25045}#)))))))
- (#{chi 4375}#
- (lambda (#{e 26989}#
- #{r 26990}#
- #{w 26991}#
- #{mod 26992}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)))))))
+ (#{chi 4373}#
+ (lambda (#{e 26986}#
+ #{r 26987}#
+ #{w 26988}#
+ #{mod 26989}#)
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{e 26989}#
- #{r 26990}#
- #{w 26991}#
- (#{source-annotation 4336}# #{e 26989}#)
+ (#{syntax-type 4372}#
+ #{e 26986}#
+ #{r 26987}#
+ #{w 26988}#
+ (#{source-annotation 4334}# #{e 26986}#)
#f
- #{mod 26992}#
+ #{mod 26989}#
#f))
- (lambda (#{type 27196}#
- #{value 27197}#
- #{e 27198}#
- #{w 27199}#
- #{s 27200}#
- #{mod 27201}#)
- (#{chi-expr 4376}#
- #{type 27196}#
- #{value 27197}#
- #{e 27198}#
- #{r 26990}#
- #{w 27199}#
- #{s 27200}#
- #{mod 27201}#)))))
- (#{chi-expr 4376}#
- (lambda (#{type 27204}#
- #{value 27205}#
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
- (if (eqv? #{type 27204}# 'lexical)
+ (lambda (#{type 27193}#
+ #{value 27194}#
+ #{e 27195}#
+ #{w 27196}#
+ #{s 27197}#
+ #{mod 27198}#)
+ (#{chi-expr 4374}#
+ #{type 27193}#
+ #{value 27194}#
+ #{e 27195}#
+ #{r 26987}#
+ #{w 27196}#
+ #{s 27197}#
+ #{mod 27198}#)))))
+ (#{chi-expr 4374}#
+ (lambda (#{type 27201}#
+ #{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 27209}#
- #{e 27206}#
- #{value 27205}#)
- (if (if (eqv? #{type 27204}# 'core)
+ #{s 27206}#
+ #{e 27203}#
+ #{value 27202}#)
+ (if (if (eqv? #{type 27201}# 'core)
#t
- (eqv? #{type 27204}# 'core-form))
- (#{value 27205}#
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
- (if (eqv? #{type 27204}# 'module-ref)
+ (eqv? #{type 27201}# 'core-form))
+ (#{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 27205}#
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#))
- (lambda (#{e 27236}#
- #{r 27237}#
- #{w 27238}#
- #{s 27239}#
- #{mod 27240}#)
- (#{chi 4375}#
- #{e 27236}#
- #{r 27237}#
- #{w 27238}#
- #{mod 27240}#)))
- (if (eqv? #{type 27204}# 'lexical-call)
- (#{chi-call 4377}#
- (let ((#{id 27421}# (car #{e 27206}#)))
- (#{build-lexical-reference 4312}#
+ (#{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#))
+ (lambda (#{e 27233}#
+ #{r 27234}#
+ #{w 27235}#
+ #{s 27236}#
+ #{mod 27237}#)
+ (#{chi 4373}#
+ #{e 27233}#
+ #{r 27234}#
+ #{w 27235}#
+ #{mod 27237}#)))
+ (if (eqv? #{type 27201}# 'lexical-call)
+ (#{chi-call 4375}#
+ (let ((#{id 27418}# (car #{e 27203}#)))
+ (#{build-lexical-reference 4310}#
'fun
- (#{source-annotation 4336}# #{id 27421}#)
- (if (if (vector? #{id 27421}#)
- (if (= (vector-length #{id 27421}#) 4)
- (eq? (vector-ref #{id 27421}# 0) 'syntax-object)
+ (#{source-annotation 4334}# #{id 27418}#)
+ (if (if (vector? #{id 27418}#)
+ (if (= (vector-length #{id 27418}#) 4)
+ (eq? (vector-ref #{id 27418}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 27421}#)
- #{id 27421}#)
- #{value 27205}#))
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
- (if (eqv? #{type 27204}# 'global-call)
- (#{chi-call 4377}#
- (#{build-global-reference 4315}#
- (#{source-annotation 4336}# (car #{e 27206}#))
- (if (if (vector? #{value 27205}#)
- (if (= (vector-length #{value 27205}#) 4)
- (eq? (vector-ref #{value 27205}# 0)
+ (syntax->datum #{id 27418}#)
+ #{id 27418}#)
+ #{value 27202}#))
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'global-call)
+ (#{chi-call 4375}#
+ (#{build-global-reference 4313}#
+ (#{source-annotation 4334}# (car #{e 27203}#))
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#) 4)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 27205}# 1)
- #{value 27205}#)
- (if (if (vector? #{value 27205}#)
- (if (= (vector-length #{value 27205}#) 4)
- (eq? (vector-ref #{value 27205}# 0)
+ (vector-ref #{value 27202}# 1)
+ #{value 27202}#)
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#) 4)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 27205}# 3)
- #{mod 27210}#))
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
- (if (eqv? #{type 27204}# 'constant)
- (let ((#{exp 28143}#
- (#{strip 4388}#
- (let ((#{x 28156}#
+ (vector-ref #{value 27202}# 3)
+ #{mod 27207}#))
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'constant)
+ (let ((#{exp 28140}#
+ (#{strip 4386}#
+ (let ((#{x 28153}#
(begin
- (if (if (pair? #{e 27206}#)
- #{s 27209}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 27206}#
- #{s 27209}#))
- #{e 27206}#)))
- (if (if (null? (car #{w 27208}#))
- (null? (cdr #{w 27208}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28156}#
- (if (if (vector? #{x 28156}#)
- (if (= (vector-length #{x 28156}#) 4)
- (eq? (vector-ref #{x 28156}# 0)
+ #{x 28153}#
+ (if (if (vector? #{x 28153}#)
+ (if (= (vector-length #{x 28153}#) 4)
+ (eq? (vector-ref #{x 28153}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28188}#
- (vector-ref #{x 28156}# 1))
- (#{wrap 28189}#
- (let ((#{w2 28197}#
- (vector-ref #{x 28156}# 2)))
- (let ((#{m1 28198}#
- (car #{w 27208}#))
- (#{s1 28199}#
- (cdr #{w 27208}#)))
- (if (null? #{m1 28198}#)
- (if (null? #{s1 28199}#)
- #{w2 28197}#
- (cons (car #{w2 28197}#)
- (let ((#{m2 28214}#
- (cdr #{w2 28197}#)))
- (if (null? #{m2 28214}#)
- #{s1 28199}#
+ (let ((#{expression 28185}#
+ (vector-ref #{x 28153}# 1))
+ (#{wrap 28186}#
+ (let ((#{w2 28194}#
+ (vector-ref #{x 28153}# 2)))
+ (let ((#{m1 28195}#
+ (car #{w 27205}#))
+ (#{s1 28196}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28195}#)
+ (if (null? #{s1 28196}#)
+ #{w2 28194}#
+ (cons (car #{w2 28194}#)
+ (let ((#{m2 28211}#
+ (cdr #{w2 28194}#)))
+ (if (null? #{m2 28211}#)
+ #{s1 28196}#
(append
- #{s1 28199}#
- #{m2 28214}#)))))
- (cons (let ((#{m2 28222}#
- (car #{w2 28197}#)))
- (if (null? #{m2 28222}#)
- #{m1 28198}#
+ #{s1 28196}#
+ #{m2 28211}#)))))
+ (cons (let ((#{m2 28219}#
+ (car #{w2 28194}#)))
+ (if (null? #{m2 28219}#)
+ #{m1 28195}#
(append
- #{m1 28198}#
- #{m2 28222}#)))
- (let ((#{m2 28230}#
- (cdr #{w2 28197}#)))
- (if (null? #{m2 28230}#)
- #{s1 28199}#
+ #{m1 28195}#
+ #{m2 28219}#)))
+ (let ((#{m2 28227}#
+ (cdr #{w2 28194}#)))
+ (if (null? #{m2 28227}#)
+ #{s1 28196}#
(append
- #{s1 28199}#
- #{m2 28230}#))))))))
- (#{module 28190}#
- (vector-ref #{x 28156}# 3)))
+ #{s1 28196}#
+ #{m2 28227}#))))))))
+ (#{module 28187}#
+ (vector-ref #{x 28153}# 3)))
(vector
'syntax-object
- #{expression 28188}#
- #{wrap 28189}#
- #{module 28190}#))
- (if (null? #{x 28156}#)
- #{x 28156}#
+ #{expression 28185}#
+ #{wrap 28186}#
+ #{module 28187}#))
+ (if (null? #{x 28153}#)
+ #{x 28153}#
(vector
'syntax-object
- #{x 28156}#
- #{w 27208}#
- #{mod 27210}#)))))
+ #{x 28153}#
+ #{w 27205}#
+ #{mod 27207}#)))))
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 27209}#
- #{exp 28143}#))
- (if (eqv? #{type 27204}# 'global)
- (#{analyze-variable 4314}#
- #{mod 27210}#
- #{value 27205}#
- (lambda (#{mod 28255}# #{var 28256}# #{public? 28257}#)
+ #{s 27206}#
+ #{exp 28140}#))
+ (if (eqv? #{type 27201}# 'global)
+ (#{analyze-variable 4312}#
+ #{mod 27207}#
+ #{value 27202}#
+ (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 27209}#
- #{mod 28255}#
- #{var 28256}#
- #{public? 28257}#))
- (lambda (#{var 28265}#)
+ #{s 27206}#
+ #{mod 28252}#
+ #{var 28253}#
+ #{public? 28254}#))
+ (lambda (#{var 28262}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 27209}#
- #{var 28265}#)))
- (if (eqv? #{type 27204}# 'call)
- (#{chi-call 4377}#
- (#{chi 4375}#
- (car #{e 27206}#)
- #{r 27207}#
- #{w 27208}#
- #{mod 27210}#)
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
- (if (eqv? #{type 27204}# 'begin-form)
- (let ((#{tmp 28443}#
+ #{s 27206}#
+ #{var 28262}#)))
+ (if (eqv? #{type 27201}# 'call)
+ (#{chi-call 4375}#
+ (#{chi 4373}#
+ (car #{e 27203}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{mod 27207}#)
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'begin-form)
+ (let ((#{tmp 28440}#
($sc-dispatch
- #{e 27206}#
+ #{e 27203}#
'(_ any . each-any))))
- (if #{tmp 28443}#
+ (if #{tmp 28440}#
(@apply
- (lambda (#{e1 28447}# #{e2 28448}#)
- (#{chi-sequence 4370}#
- (cons #{e1 28447}# #{e2 28448}#)
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#))
- #{tmp 28443}#)
+ (lambda (#{e1 28444}# #{e2 28445}#)
+ (#{chi-sequence 4368}#
+ (cons #{e1 28444}# #{e2 28445}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#))
+ #{tmp 28440}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 27206}#)))
- (if (eqv? #{type 27204}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 27205}#
- #{e 27206}#
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#
- #{chi-sequence 4370}#)
- (if (eqv? #{type 27204}# 'eval-when-form)
- (let ((#{tmp 28628}#
+ #{e 27203}#)))
+ (if (eqv? #{type 27201}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#
+ #{chi-sequence 4368}#)
+ (if (eqv? #{type 27201}# 'eval-when-form)
+ (let ((#{tmp 28625}#
($sc-dispatch
- #{e 27206}#
+ #{e 27203}#
'(_ each-any any . each-any))))
- (if #{tmp 28628}#
+ (if #{tmp 28625}#
(@apply
- (lambda (#{x 28632}#
- #{e1 28633}#
- #{e2 28634}#)
- (let ((#{when-list 28635}#
- (#{chi-when-list 4373}#
- #{e 27206}#
- #{x 28632}#
- #{w 27208}#)))
- (if (memq 'eval #{when-list 28635}#)
- (#{chi-sequence 4370}#
- (cons #{e1 28633}# #{e2 28634}#)
- #{r 27207}#
- #{w 27208}#
- #{s 27209}#
- #{mod 27210}#)
+ (lambda (#{x 28629}#
+ #{e1 28630}#
+ #{e2 28631}#)
+ (let ((#{when-list 28632}#
+ (#{chi-when-list 4371}#
+ #{e 27203}#
+ #{x 28629}#
+ #{w 27205}#)))
+ (if (memq 'eval #{when-list 28632}#)
+ (#{chi-sequence 4368}#
+ (cons #{e1 28630}# #{e2 28631}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 28628}#)
+ #{tmp 28625}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 27206}#)))
- (if (if (eqv? #{type 27204}# 'define-form)
+ #{e 27203}#)))
+ (if (if (eqv? #{type 27201}# 'define-form)
#t
- (eqv? #{type 27204}# 'define-syntax-form))
+ (eqv? #{type 27201}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 27206}#
- (if (if (null? (car #{w 27208}#))
- (null? (cdr #{w 27208}#))
+ #{e 27203}#
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{value 27205}#
- (if (if (vector? #{value 27205}#)
- (if (= (vector-length #{value 27205}#)
+ #{value 27202}#
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#)
4)
- (eq? (vector-ref #{value 27205}# 0)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28786}#
- (vector-ref #{value 27205}# 1))
- (#{wrap 28787}#
- (let ((#{w2 28797}#
+ (let ((#{expression 28783}#
+ (vector-ref #{value 27202}# 1))
+ (#{wrap 28784}#
+ (let ((#{w2 28794}#
(vector-ref
- #{value 27205}#
+ #{value 27202}#
2)))
- (let ((#{m1 28798}#
- (car #{w 27208}#))
- (#{s1 28799}#
- (cdr #{w 27208}#)))
- (if (null? #{m1 28798}#)
- (if (null? #{s1 28799}#)
- #{w2 28797}#
- (cons (car #{w2 28797}#)
- (let ((#{m2 28816}#
- (cdr #{w2 28797}#)))
- (if (null? #{m2 28816}#)
- #{s1 28799}#
+ (let ((#{m1 28795}#
+ (car #{w 27205}#))
+ (#{s1 28796}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28795}#)
+ (if (null? #{s1 28796}#)
+ #{w2 28794}#
+ (cons (car #{w2 28794}#)
+ (let ((#{m2 28813}#
+ (cdr #{w2 28794}#)))
+ (if (null? #{m2 28813}#)
+ #{s1 28796}#
(append
- #{s1 28799}#
- #{m2 28816}#)))))
- (cons (let ((#{m2 28824}#
- (car #{w2 28797}#)))
- (if (null? #{m2 28824}#)
- #{m1 28798}#
+ #{s1 28796}#
+ #{m2 28813}#)))))
+ (cons (let ((#{m2 28821}#
+ (car #{w2 28794}#)))
+ (if (null? #{m2 28821}#)
+ #{m1 28795}#
(append
- #{m1 28798}#
- #{m2 28824}#)))
- (let ((#{m2 28832}#
- (cdr #{w2 28797}#)))
- (if (null? #{m2 28832}#)
- #{s1 28799}#
+ #{m1 28795}#
+ #{m2 28821}#)))
+ (let ((#{m2 28829}#
+ (cdr #{w2 28794}#)))
+ (if (null? #{m2 28829}#)
+ #{s1 28796}#
(append
- #{s1 28799}#
- #{m2 28832}#))))))))
- (#{module 28788}#
- (vector-ref #{value 27205}# 3)))
+ #{s1 28796}#
+ #{m2 28829}#))))))))
+ (#{module 28785}#
+ (vector-ref #{value 27202}# 3)))
(vector
'syntax-object
- #{expression 28786}#
- #{wrap 28787}#
- #{module 28788}#))
- (if (null? #{value 27205}#)
- #{value 27205}#
+ #{expression 28783}#
+ #{wrap 28784}#
+ #{module 28785}#))
+ (if (null? #{value 27202}#)
+ #{value 27202}#
(vector
'syntax-object
- #{value 27205}#
- #{w 27208}#
- #{mod 27210}#)))))
- (if (eqv? #{type 27204}# 'syntax)
+ #{value 27202}#
+ #{w 27205}#
+ #{mod 27207}#)))))
+ (if (eqv? #{type 27201}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (let ((#{x 28867}#
+ (let ((#{x 28864}#
(begin
- (if (if (pair? #{e 27206}#)
- #{s 27209}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 27206}#
- #{s 27209}#))
- #{e 27206}#)))
- (if (if (null? (car #{w 27208}#))
- (null? (cdr #{w 27208}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28867}#
- (if (if (vector? #{x 28867}#)
- (if (= (vector-length #{x 28867}#)
+ #{x 28864}#
+ (if (if (vector? #{x 28864}#)
+ (if (= (vector-length #{x 28864}#)
4)
- (eq? (vector-ref #{x 28867}# 0)
+ (eq? (vector-ref #{x 28864}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28899}#
- (vector-ref #{x 28867}# 1))
- (#{wrap 28900}#
- (let ((#{w2 28908}#
+ (let ((#{expression 28896}#
+ (vector-ref #{x 28864}# 1))
+ (#{wrap 28897}#
+ (let ((#{w2 28905}#
(vector-ref
- #{x 28867}#
+ #{x 28864}#
2)))
- (let ((#{m1 28909}#
- (car #{w 27208}#))
- (#{s1 28910}#
- (cdr #{w 27208}#)))
- (if (null? #{m1 28909}#)
- (if (null? #{s1 28910}#)
- #{w2 28908}#
- (cons (car #{w2 28908}#)
- (let ((#{m2 28925}#
- (cdr #{w2 28908}#)))
- (if (null? #{m2 28925}#)
- #{s1 28910}#
+ (let ((#{m1 28906}#
+ (car #{w 27205}#))
+ (#{s1 28907}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28906}#)
+ (if (null? #{s1 28907}#)
+ #{w2 28905}#
+ (cons (car #{w2 28905}#)
+ (let ((#{m2 28922}#
+ (cdr #{w2 28905}#)))
+ (if (null? #{m2 28922}#)
+ #{s1 28907}#
(append
- #{s1 28910}#
- #{m2 28925}#)))))
- (cons (let ((#{m2 28933}#
- (car #{w2 28908}#)))
- (if (null? #{m2 28933}#)
- #{m1 28909}#
+ #{s1 28907}#
+ #{m2 28922}#)))))
+ (cons (let ((#{m2 28930}#
+ (car #{w2 28905}#)))
+ (if (null? #{m2 28930}#)
+ #{m1 28906}#
(append
- #{m1 28909}#
- #{m2 28933}#)))
- (let ((#{m2 28941}#
- (cdr #{w2 28908}#)))
- (if (null? #{m2 28941}#)
- #{s1 28910}#
+ #{m1 28906}#
+ #{m2 28930}#)))
+ (let ((#{m2 28938}#
+ (cdr #{w2 28905}#)))
+ (if (null? #{m2 28938}#)
+ #{s1 28907}#
(append
- #{s1 28910}#
- #{m2 28941}#))))))))
- (#{module 28901}#
- (vector-ref #{x 28867}# 3)))
+ #{s1 28907}#
+ #{m2 28938}#))))))))
+ (#{module 28898}#
+ (vector-ref #{x 28864}# 3)))
(vector
'syntax-object
- #{expression 28899}#
- #{wrap 28900}#
- #{module 28901}#))
- (if (null? #{x 28867}#)
- #{x 28867}#
+ #{expression 28896}#
+ #{wrap 28897}#
+ #{module 28898}#))
+ (if (null? #{x 28864}#)
+ #{x 28864}#
(vector
'syntax-object
- #{x 28867}#
- #{w 27208}#
- #{mod 27210}#))))))
- (if (eqv? #{type 27204}# 'displaced-lexical)
+ #{x 28864}#
+ #{w 27205}#
+ #{mod 27207}#))))))
+ (if (eqv? #{type 27201}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (let ((#{x 28968}#
+ (let ((#{x 28965}#
(begin
- (if (if (pair? #{e 27206}#)
- #{s 27209}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 27206}#
- #{s 27209}#))
- #{e 27206}#)))
- (if (if (null? (car #{w 27208}#))
- (null? (cdr #{w 27208}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28968}#
- (if (if (vector? #{x 28968}#)
+ #{x 28965}#
+ (if (if (vector? #{x 28965}#)
(if (= (vector-length
- #{x 28968}#)
+ #{x 28965}#)
4)
(eq? (vector-ref
- #{x 28968}#
+ #{x 28965}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29000}#
- (vector-ref #{x 28968}# 1))
- (#{wrap 29001}#
- (let ((#{w2 29009}#
+ (let ((#{expression 28997}#
+ (vector-ref #{x 28965}# 1))
+ (#{wrap 28998}#
+ (let ((#{w2 29006}#
(vector-ref
- #{x 28968}#
+ #{x 28965}#
2)))
- (let ((#{m1 29010}#
- (car #{w 27208}#))
- (#{s1 29011}#
- (cdr #{w 27208}#)))
- (if (null? #{m1 29010}#)
- (if (null? #{s1 29011}#)
- #{w2 29009}#
- (cons (car #{w2 29009}#)
- (let ((#{m2 29026}#
- (cdr #{w2 29009}#)))
- (if (null? #{m2 29026}#)
- #{s1 29011}#
+ (let ((#{m1 29007}#
+ (car #{w 27205}#))
+ (#{s1 29008}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 29007}#)
+ (if (null? #{s1 29008}#)
+ #{w2 29006}#
+ (cons (car #{w2 29006}#)
+ (let ((#{m2 29023}#
+ (cdr #{w2 29006}#)))
+ (if (null? #{m2 29023}#)
+ #{s1 29008}#
(append
- #{s1 29011}#
- #{m2 29026}#)))))
- (cons (let ((#{m2 29034}#
- (car #{w2 29009}#)))
- (if (null? #{m2 29034}#)
- #{m1 29010}#
+ #{s1 29008}#
+ #{m2 29023}#)))))
+ (cons (let ((#{m2 29031}#
+ (car #{w2 29006}#)))
+ (if (null? #{m2 29031}#)
+ #{m1 29007}#
(append
- #{m1 29010}#
- #{m2 29034}#)))
- (let ((#{m2 29042}#
- (cdr #{w2 29009}#)))
- (if (null? #{m2 29042}#)
- #{s1 29011}#
+ #{m1 29007}#
+ #{m2 29031}#)))
+ (let ((#{m2 29039}#
+ (cdr #{w2 29006}#)))
+ (if (null? #{m2 29039}#)
+ #{s1 29008}#
(append
- #{s1 29011}#
- #{m2 29042}#))))))))
- (#{module 29002}#
- (vector-ref #{x 28968}# 3)))
+ #{s1 29008}#
+ #{m2 29039}#))))))))
+ (#{module 28999}#
+ (vector-ref #{x 28965}# 3)))
(vector
'syntax-object
- #{expression 29000}#
- #{wrap 29001}#
- #{module 29002}#))
- (if (null? #{x 28968}#)
- #{x 28968}#
+ #{expression 28997}#
+ #{wrap 28998}#
+ #{module 28999}#))
+ (if (null? #{x 28965}#)
+ #{x 28965}#
(vector
'syntax-object
- #{x 28968}#
- #{w 27208}#
- #{mod 27210}#))))))
+ #{x 28965}#
+ #{w 27205}#
+ #{mod 27207}#))))))
(syntax-violation
#f
"unexpected syntax"
- (let ((#{x 29066}#
+ (let ((#{x 29063}#
(begin
- (if (if (pair? #{e 27206}#)
- #{s 27209}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 27206}#
- #{s 27209}#))
- #{e 27206}#)))
- (if (if (null? (car #{w 27208}#))
- (null? (cdr #{w 27208}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 29066}#
- (if (if (vector? #{x 29066}#)
+ #{x 29063}#
+ (if (if (vector? #{x 29063}#)
(if (= (vector-length
- #{x 29066}#)
+ #{x 29063}#)
4)
(eq? (vector-ref
- #{x 29066}#
+ #{x 29063}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29098}#
- (vector-ref #{x 29066}# 1))
- (#{wrap 29099}#
- (let ((#{w2 29107}#
+ (let ((#{expression 29095}#
+ (vector-ref #{x 29063}# 1))
+ (#{wrap 29096}#
+ (let ((#{w2 29104}#
(vector-ref
- #{x 29066}#
+ #{x 29063}#
2)))
- (let ((#{m1 29108}#
- (car #{w 27208}#))
- (#{s1 29109}#
- (cdr #{w 27208}#)))
- (if (null? #{m1 29108}#)
- (if (null? #{s1 29109}#)
- #{w2 29107}#
- (cons (car #{w2 29107}#)
- (let ((#{m2 29124}#
- (cdr #{w2 29107}#)))
- (if (null? #{m2 29124}#)
- #{s1 29109}#
+ (let ((#{m1 29105}#
+ (car #{w 27205}#))
+ (#{s1 29106}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 29105}#)
+ (if (null? #{s1 29106}#)
+ #{w2 29104}#
+ (cons (car #{w2 29104}#)
+ (let ((#{m2 29121}#
+ (cdr #{w2 29104}#)))
+ (if (null? #{m2 29121}#)
+ #{s1 29106}#
(append
- #{s1 29109}#
- #{m2 29124}#)))))
- (cons (let ((#{m2 29132}#
- (car #{w2 29107}#)))
- (if (null? #{m2 29132}#)
- #{m1 29108}#
+ #{s1 29106}#
+ #{m2 29121}#)))))
+ (cons (let ((#{m2 29129}#
+ (car #{w2 29104}#)))
+ (if (null? #{m2 29129}#)
+ #{m1 29105}#
(append
- #{m1 29108}#
- #{m2 29132}#)))
- (let ((#{m2 29140}#
- (cdr #{w2 29107}#)))
- (if (null? #{m2 29140}#)
- #{s1 29109}#
+ #{m1 29105}#
+ #{m2 29129}#)))
+ (let ((#{m2 29137}#
+ (cdr #{w2 29104}#)))
+ (if (null? #{m2 29137}#)
+ #{s1 29106}#
(append
- #{s1 29109}#
- #{m2 29140}#))))))))
- (#{module 29100}#
- (vector-ref #{x 29066}# 3)))
+ #{s1 29106}#
+ #{m2 29137}#))))))))
+ (#{module 29097}#
+ (vector-ref #{x 29063}# 3)))
(vector
'syntax-object
- #{expression 29098}#
- #{wrap 29099}#
- #{module 29100}#))
- (if (null? #{x 29066}#)
- #{x 29066}#
+ #{expression 29095}#
+ #{wrap 29096}#
+ #{module 29097}#))
+ (if (null? #{x 29063}#)
+ #{x 29063}#
(vector
'syntax-object
- #{x 29066}#
- #{w 27208}#
- #{mod 27210}#))))))))))))))))))))))
- (#{chi-call 4377}#
- (lambda (#{x 29155}#
- #{e 29156}#
- #{r 29157}#
- #{w 29158}#
- #{s 29159}#
- #{mod 29160}#)
- (let ((#{tmp 29162}#
- ($sc-dispatch #{e 29156}# '(any . each-any))))
- (if #{tmp 29162}#
+ #{x 29063}#
+ #{w 27205}#
+ #{mod 27207}#))))))))))))))))))))))
+ (#{chi-call 4375}#
+ (lambda (#{x 29152}#
+ #{e 29153}#
+ #{r 29154}#
+ #{w 29155}#
+ #{s 29156}#
+ #{mod 29157}#)
+ (let ((#{tmp 29159}#
+ ($sc-dispatch #{e 29153}# '(any . each-any))))
+ (if #{tmp 29159}#
(@apply
- (lambda (#{e0 29166}# #{e1 29167}#)
- (#{build-call 4309}#
- #{s 29159}#
- #{x 29155}#
- (map (lambda (#{e 29259}#)
- (#{chi 4375}#
- #{e 29259}#
- #{r 29157}#
- #{w 29158}#
- #{mod 29160}#))
- #{e1 29167}#)))
- #{tmp 29162}#)
+ (lambda (#{e0 29163}# #{e1 29164}#)
+ (#{build-call 4307}#
+ #{s 29156}#
+ #{x 29152}#
+ (map (lambda (#{e 29256}#)
+ (#{chi 4373}#
+ #{e 29256}#
+ #{r 29154}#
+ #{w 29155}#
+ #{mod 29157}#))
+ #{e1 29164}#)))
+ #{tmp 29159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 29156}#)))))
- (#{chi-macro 4378}#
- (lambda (#{p 29347}#
- #{e 29348}#
- #{r 29349}#
- #{w 29350}#
- #{s 29351}#
- #{rib 29352}#
- #{mod 29353}#)
+ #{e 29153}#)))))
+ (#{chi-macro 4376}#
+ (lambda (#{p 29344}#
+ #{e 29345}#
+ #{r 29346}#
+ #{w 29347}#
+ #{s 29348}#
+ #{rib 29349}#
+ #{mod 29350}#)
(letrec*
- ((#{rebuild-macro-output 29354}#
- (lambda (#{x 29461}# #{m 29462}#)
- (if (pair? #{x 29461}#)
- (let ((#{e 29466}#
- (cons (#{rebuild-macro-output 29354}#
- (car #{x 29461}#)
- #{m 29462}#)
- (#{rebuild-macro-output 29354}#
- (cdr #{x 29461}#)
- #{m 29462}#))))
+ ((#{rebuild-macro-output 29351}#
+ (lambda (#{x 29458}# #{m 29459}#)
+ (if (pair? #{x 29458}#)
+ (let ((#{e 29463}#
+ (cons (#{rebuild-macro-output 29351}#
+ (car #{x 29458}#)
+ #{m 29459}#)
+ (#{rebuild-macro-output 29351}#
+ (cdr #{x 29458}#)
+ #{m 29459}#))))
(begin
- (if (if (pair? #{e 29466}#) #{s 29351}# #f)
- (set-source-properties! #{e 29466}# #{s 29351}#))
- #{e 29466}#))
- (if (if (vector? #{x 29461}#)
- (if (= (vector-length #{x 29461}#) 4)
- (eq? (vector-ref #{x 29461}# 0) 'syntax-object)
+ (if (if (pair? #{e 29463}#) #{s 29348}# #f)
+ (set-source-properties! #{e 29463}# #{s 29348}#))
+ #{e 29463}#))
+ (if (if (vector? #{x 29458}#)
+ (if (= (vector-length #{x 29458}#) 4)
+ (eq? (vector-ref #{x 29458}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 29482}# (vector-ref #{x 29461}# 2)))
- (let ((#{ms 29483}# (car #{w 29482}#))
- (#{s 29484}# (cdr #{w 29482}#)))
- (if (if (pair? #{ms 29483}#)
- (eq? (car #{ms 29483}#) #f)
+ (let ((#{w 29479}# (vector-ref #{x 29458}# 2)))
+ (let ((#{ms 29480}# (car #{w 29479}#))
+ (#{s 29481}# (cdr #{w 29479}#)))
+ (if (if (pair? #{ms 29480}#)
+ (eq? (car #{ms 29480}#) #f)
#f)
- (let ((#{expression 29492}# (vector-ref #{x 29461}# 1))
- (#{wrap 29493}#
- (cons (cdr #{ms 29483}#)
- (if #{rib 29352}#
- (cons #{rib 29352}# (cdr #{s 29484}#))
- (cdr #{s 29484}#))))
- (#{module 29494}# (vector-ref #{x 29461}# 3)))
+ (let ((#{expression 29489}# (vector-ref #{x 29458}# 1))
+ (#{wrap 29490}#
+ (cons (cdr #{ms 29480}#)
+ (if #{rib 29349}#
+ (cons #{rib 29349}# (cdr #{s 29481}#))
+ (cdr #{s 29481}#))))
+ (#{module 29491}# (vector-ref #{x 29458}# 3)))
(vector
'syntax-object
- #{expression 29492}#
- #{wrap 29493}#
- #{module 29494}#))
- (let ((#{expression 29504}#
- (let ((#{e 29509}# (vector-ref #{x 29461}# 1)))
+ #{expression 29489}#
+ #{wrap 29490}#
+ #{module 29491}#))
+ (let ((#{expression 29501}#
+ (let ((#{e 29506}# (vector-ref #{x 29458}# 1)))
(begin
- (if (if (pair? #{e 29509}#) #{s 29484}# #f)
+ (if (if (pair? #{e 29506}#) #{s 29481}# #f)
(set-source-properties!
- #{e 29509}#
- #{s 29484}#))
- #{e 29509}#)))
- (#{wrap 29505}#
- (cons (cons #{m 29462}# #{ms 29483}#)
- (if #{rib 29352}#
- (cons #{rib 29352}#
- (cons 'shift #{s 29484}#))
- (cons 'shift #{s 29484}#))))
- (#{module 29506}# (vector-ref #{x 29461}# 3)))
+ #{e 29506}#
+ #{s 29481}#))
+ #{e 29506}#)))
+ (#{wrap 29502}#
+ (cons (cons #{m 29459}# #{ms 29480}#)
+ (if #{rib 29349}#
+ (cons #{rib 29349}#
+ (cons 'shift #{s 29481}#))
+ (cons 'shift #{s 29481}#))))
+ (#{module 29503}# (vector-ref #{x 29458}# 3)))
(vector
'syntax-object
- #{expression 29504}#
- #{wrap 29505}#
- #{module 29506}#)))))
- (if (vector? #{x 29461}#)
- (let ((#{n 29521}# (vector-length #{x 29461}#)))
- (let ((#{v 29522}#
- (let ((#{e 29530}# (make-vector #{n 29521}#)))
+ #{expression 29501}#
+ #{wrap 29502}#
+ #{module 29503}#)))))
+ (if (vector? #{x 29458}#)
+ (let ((#{n 29518}# (vector-length #{x 29458}#)))
+ (let ((#{v 29519}#
+ (let ((#{e 29527}# (make-vector #{n 29518}#)))
(begin
- (if (if (pair? #{e 29530}#) #{x 29461}# #f)
+ (if (if (pair? #{e 29527}#) #{x 29458}# #f)
(set-source-properties!
- #{e 29530}#
- #{x 29461}#))
- #{e 29530}#))))
+ #{e 29527}#
+ #{x 29458}#))
+ #{e 29527}#))))
(letrec*
- ((#{loop 29523}#
- (lambda (#{i 29584}#)
- (if (= #{i 29584}# #{n 29521}#)
- #{v 29522}#
+ ((#{loop 29520}#
+ (lambda (#{i 29581}#)
+ (if (= #{i 29581}# #{n 29518}#)
+ #{v 29519}#
(begin
(vector-set!
- #{v 29522}#
- #{i 29584}#
- (#{rebuild-macro-output 29354}#
- (vector-ref #{x 29461}# #{i 29584}#)
- #{m 29462}#))
- (#{loop 29523}# (#{1+}# #{i 29584}#)))))))
- (#{loop 29523}# 0))))
- (if (symbol? #{x 29461}#)
+ #{v 29519}#
+ #{i 29581}#
+ (#{rebuild-macro-output 29351}#
+ (vector-ref #{x 29458}# #{i 29581}#)
+ #{m 29459}#))
+ (#{loop 29520}# (#{1+}# #{i 29581}#)))))))
+ (#{loop 29520}# 0))))
+ (if (symbol? #{x 29458}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 29590}# (cdr #{w 29350}#)))
- (let ((#{x 29594}#
+ (let ((#{s 29587}# (cdr #{w 29347}#)))
+ (let ((#{x 29591}#
(begin
- (if (if (pair? #{e 29348}#) #{s 29590}# #f)
+ (if (if (pair? #{e 29345}#) #{s 29587}# #f)
(set-source-properties!
- #{e 29348}#
- #{s 29590}#))
- #{e 29348}#)))
- (if (if (null? (car #{w 29350}#))
- (null? (cdr #{w 29350}#))
+ #{e 29345}#
+ #{s 29587}#))
+ #{e 29345}#)))
+ (if (if (null? (car #{w 29347}#))
+ (null? (cdr #{w 29347}#))
#f)
- #{x 29594}#
- (if (if (vector? #{x 29594}#)
- (if (= (vector-length #{x 29594}#) 4)
- (eq? (vector-ref #{x 29594}# 0)
+ #{x 29591}#
+ (if (if (vector? #{x 29591}#)
+ (if (= (vector-length #{x 29591}#) 4)
+ (eq? (vector-ref #{x 29591}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29626}#
- (vector-ref #{x 29594}# 1))
- (#{wrap 29627}#
- (let ((#{w2 29635}#
- (vector-ref #{x 29594}# 2)))
- (let ((#{m1 29636}#
- (car #{w 29350}#))
- (#{s1 29637}#
- (cdr #{w 29350}#)))
- (if (null? #{m1 29636}#)
- (if (null? #{s1 29637}#)
- #{w2 29635}#
- (cons (car #{w2 29635}#)
- (let ((#{m2 29652}#
- (cdr #{w2 29635}#)))
- (if (null? #{m2 29652}#)
- #{s1 29637}#
+ (let ((#{expression 29623}#
+ (vector-ref #{x 29591}# 1))
+ (#{wrap 29624}#
+ (let ((#{w2 29632}#
+ (vector-ref #{x 29591}# 2)))
+ (let ((#{m1 29633}#
+ (car #{w 29347}#))
+ (#{s1 29634}#
+ (cdr #{w 29347}#)))
+ (if (null? #{m1 29633}#)
+ (if (null? #{s1 29634}#)
+ #{w2 29632}#
+ (cons (car #{w2 29632}#)
+ (let ((#{m2 29649}#
+ (cdr #{w2 29632}#)))
+ (if (null? #{m2 29649}#)
+ #{s1 29634}#
(append
- #{s1 29637}#
- #{m2 29652}#)))))
- (cons (let ((#{m2 29660}#
- (car #{w2 29635}#)))
- (if (null? #{m2 29660}#)
- #{m1 29636}#
+ #{s1 29634}#
+ #{m2 29649}#)))))
+ (cons (let ((#{m2 29657}#
+ (car #{w2 29632}#)))
+ (if (null? #{m2 29657}#)
+ #{m1 29633}#
(append
- #{m1 29636}#
- #{m2 29660}#)))
- (let ((#{m2 29668}#
- (cdr #{w2 29635}#)))
- (if (null? #{m2 29668}#)
- #{s1 29637}#
+ #{m1 29633}#
+ #{m2 29657}#)))
+ (let ((#{m2 29665}#
+ (cdr #{w2 29632}#)))
+ (if (null? #{m2 29665}#)
+ #{s1 29634}#
(append
- #{s1 29637}#
- #{m2 29668}#))))))))
- (#{module 29628}#
- (vector-ref #{x 29594}# 3)))
+ #{s1 29634}#
+ #{m2 29665}#))))))))
+ (#{module 29625}#
+ (vector-ref #{x 29591}# 3)))
(vector
'syntax-object
- #{expression 29626}#
- #{wrap 29627}#
- #{module 29628}#))
- (if (null? #{x 29594}#)
- #{x 29594}#
+ #{expression 29623}#
+ #{wrap 29624}#
+ #{module 29625}#))
+ (if (null? #{x 29591}#)
+ #{x 29591}#
(vector
'syntax-object
- #{x 29594}#
- #{w 29350}#
- #{mod 29353}#))))))
- #{x 29461}#)
+ #{x 29591}#
+ #{w 29347}#
+ #{mod 29350}#))))))
+ #{x 29458}#)
(begin
- (if (if (pair? #{x 29461}#) #{s 29351}# #f)
- (set-source-properties! #{x 29461}# #{s 29351}#))
- #{x 29461}#))))))))
- (#{rebuild-macro-output 29354}#
- (#{p 29347}#
- (let ((#{w 29361}#
- (cons (cons #f (car #{w 29350}#))
- (cons 'shift (cdr #{w 29350}#)))))
- (let ((#{x 29366}#
+ (if (if (pair? #{x 29458}#) #{s 29348}# #f)
+ (set-source-properties! #{x 29458}# #{s 29348}#))
+ #{x 29458}#))))))))
+ (#{rebuild-macro-output 29351}#
+ (#{p 29344}#
+ (let ((#{w 29358}#
+ (cons (cons #f (car #{w 29347}#))
+ (cons 'shift (cdr #{w 29347}#)))))
+ (let ((#{x 29363}#
(begin
- (if (if (pair? #{e 29348}#) #{s 29351}# #f)
- (set-source-properties! #{e 29348}# #{s 29351}#))
- #{e 29348}#)))
- (if (if (null? (car #{w 29361}#))
- (null? (cdr #{w 29361}#))
+ (if (if (pair? #{e 29345}#) #{s 29348}# #f)
+ (set-source-properties! #{e 29345}# #{s 29348}#))
+ #{e 29345}#)))
+ (if (if (null? (car #{w 29358}#))
+ (null? (cdr #{w 29358}#))
#f)
- #{x 29366}#
- (if (if (vector? #{x 29366}#)
- (if (= (vector-length #{x 29366}#) 4)
- (eq? (vector-ref #{x 29366}# 0) 'syntax-object)
+ #{x 29363}#
+ (if (if (vector? #{x 29363}#)
+ (if (= (vector-length #{x 29363}#) 4)
+ (eq? (vector-ref #{x 29363}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 29404}# (vector-ref #{x 29366}# 1))
- (#{wrap 29405}#
- (let ((#{w2 29413}# (vector-ref #{x 29366}# 2)))
- (let ((#{m1 29414}# (car #{w 29361}#))
- (#{s1 29415}# (cdr #{w 29361}#)))
- (if (null? #{m1 29414}#)
- (if (null? #{s1 29415}#)
- #{w2 29413}#
- (cons (car #{w2 29413}#)
- (let ((#{m2 29430}#
- (cdr #{w2 29413}#)))
- (if (null? #{m2 29430}#)
- #{s1 29415}#
+ (let ((#{expression 29401}# (vector-ref #{x 29363}# 1))
+ (#{wrap 29402}#
+ (let ((#{w2 29410}# (vector-ref #{x 29363}# 2)))
+ (let ((#{m1 29411}# (car #{w 29358}#))
+ (#{s1 29412}# (cdr #{w 29358}#)))
+ (if (null? #{m1 29411}#)
+ (if (null? #{s1 29412}#)
+ #{w2 29410}#
+ (cons (car #{w2 29410}#)
+ (let ((#{m2 29427}#
+ (cdr #{w2 29410}#)))
+ (if (null? #{m2 29427}#)
+ #{s1 29412}#
(append
- #{s1 29415}#
- #{m2 29430}#)))))
- (cons (let ((#{m2 29438}#
- (car #{w2 29413}#)))
- (if (null? #{m2 29438}#)
- #{m1 29414}#
+ #{s1 29412}#
+ #{m2 29427}#)))))
+ (cons (let ((#{m2 29435}#
+ (car #{w2 29410}#)))
+ (if (null? #{m2 29435}#)
+ #{m1 29411}#
(append
- #{m1 29414}#
- #{m2 29438}#)))
- (let ((#{m2 29446}#
- (cdr #{w2 29413}#)))
- (if (null? #{m2 29446}#)
- #{s1 29415}#
+ #{m1 29411}#
+ #{m2 29435}#)))
+ (let ((#{m2 29443}#
+ (cdr #{w2 29410}#)))
+ (if (null? #{m2 29443}#)
+ #{s1 29412}#
(append
- #{s1 29415}#
- #{m2 29446}#))))))))
- (#{module 29406}# (vector-ref #{x 29366}# 3)))
+ #{s1 29412}#
+ #{m2 29443}#))))))))
+ (#{module 29403}# (vector-ref #{x 29363}# 3)))
(vector
'syntax-object
- #{expression 29404}#
- #{wrap 29405}#
- #{module 29406}#))
- (if (null? #{x 29366}#)
- #{x 29366}#
+ #{expression 29401}#
+ #{wrap 29402}#
+ #{module 29403}#))
+ (if (null? #{x 29363}#)
+ #{x 29363}#
(vector
'syntax-object
- #{x 29366}#
- #{w 29361}#
- #{mod 29353}#)))))))
+ #{x 29363}#
+ #{w 29358}#
+ #{mod 29350}#)))))))
(gensym "m")))))
- (#{chi-body 4379}#
- (lambda (#{body 29698}#
- #{outer-form 29699}#
- #{r 29700}#
- #{w 29701}#
- #{mod 29702}#)
- (let ((#{r 29703}#
- (cons '("placeholder" placeholder) #{r 29700}#)))
- (let ((#{ribcage 29704}# (vector 'ribcage '() '() '())))
- (let ((#{w 29705}#
- (cons (car #{w 29701}#)
- (cons #{ribcage 29704}# (cdr #{w 29701}#)))))
+ (#{chi-body 4377}#
+ (lambda (#{body 29695}#
+ #{outer-form 29696}#
+ #{r 29697}#
+ #{w 29698}#
+ #{mod 29699}#)
+ (let ((#{r 29700}#
+ (cons '("placeholder" placeholder) #{r 29697}#)))
+ (let ((#{ribcage 29701}# (vector 'ribcage '() '() '())))
+ (let ((#{w 29702}#
+ (cons (car #{w 29698}#)
+ (cons #{ribcage 29701}# (cdr #{w 29698}#)))))
(letrec*
- ((#{parse 29706}#
- (lambda (#{body 29814}#
- #{ids 29815}#
- #{labels 29816}#
- #{var-ids 29817}#
- #{vars 29818}#
- #{vals 29819}#
- #{bindings 29820}#)
- (if (null? #{body 29814}#)
+ ((#{parse 29703}#
+ (lambda (#{body 29811}#
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#)
+ (if (null? #{body 29811}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 29699}#)
- (let ((#{e 29821}# (cdr (car #{body 29814}#)))
- (#{er 29822}# (car (car #{body 29814}#))))
+ #{outer-form 29696}#)
+ (let ((#{e 29818}# (cdr (car #{body 29811}#)))
+ (#{er 29819}# (car (car #{body 29811}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{e 29821}#
- #{er 29822}#
+ (#{syntax-type 4372}#
+ #{e 29818}#
+ #{er 29819}#
'(())
- (#{source-annotation 4336}# #{er 29822}#)
- #{ribcage 29704}#
- #{mod 29702}#
+ (#{source-annotation 4334}# #{er 29819}#)
+ #{ribcage 29701}#
+ #{mod 29699}#
#f))
- (lambda (#{type 30028}#
- #{value 30029}#
- #{e 30030}#
- #{w 30031}#
- #{s 30032}#
- #{mod 30033}#)
- (if (eqv? #{type 30028}# 'define-form)
- (let ((#{id 30037}#
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ (lambda (#{type 30025}#
+ #{value 30026}#
+ #{e 30027}#
+ #{w 30028}#
+ #{s 30029}#
+ #{mod 30030}#)
+ (if (eqv? #{type 30025}# 'define-form)
+ (let ((#{id 30034}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{value 30029}#
- (if (if (vector? #{value 30029}#)
+ #{value 30026}#
+ (if (if (vector? #{value 30026}#)
(if (= (vector-length
- #{value 30029}#)
+ #{value 30026}#)
4)
(eq? (vector-ref
- #{value 30029}#
+ #{value 30026}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30082}#
+ (let ((#{expression 30079}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
1))
- (#{wrap 30083}#
- (let ((#{w2 30093}#
+ (#{wrap 30080}#
+ (let ((#{w2 30090}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
2)))
- (let ((#{m1 30094}#
- (car #{w 30031}#))
- (#{s1 30095}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 30094}#)
- (if (null? #{s1 30095}#)
- #{w2 30093}#
- (cons (car #{w2 30093}#)
- (let ((#{m2 30112}#
- (cdr #{w2 30093}#)))
- (if (null? #{m2 30112}#)
- #{s1 30095}#
+ (let ((#{m1 30091}#
+ (car #{w 30028}#))
+ (#{s1 30092}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30091}#)
+ (if (null? #{s1 30092}#)
+ #{w2 30090}#
+ (cons (car #{w2 30090}#)
+ (let ((#{m2 30109}#
+ (cdr #{w2 30090}#)))
+ (if (null? #{m2 30109}#)
+ #{s1 30092}#
(append
- #{s1 30095}#
- #{m2 30112}#)))))
- (cons (let ((#{m2 30120}#
- (car #{w2 30093}#)))
- (if (null? #{m2 30120}#)
- #{m1 30094}#
+ #{s1 30092}#
+ #{m2 30109}#)))))
+ (cons (let ((#{m2 30117}#
+ (car #{w2 30090}#)))
+ (if (null? #{m2 30117}#)
+ #{m1 30091}#
(append
- #{m1 30094}#
- #{m2 30120}#)))
- (let ((#{m2 30128}#
- (cdr #{w2 30093}#)))
- (if (null? #{m2 30128}#)
- #{s1 30095}#
+ #{m1 30091}#
+ #{m2 30117}#)))
+ (let ((#{m2 30125}#
+ (cdr #{w2 30090}#)))
+ (if (null? #{m2 30125}#)
+ #{s1 30092}#
(append
- #{s1 30095}#
- #{m2 30128}#))))))))
- (#{module 30084}#
+ #{s1 30092}#
+ #{m2 30125}#))))))))
+ (#{module 30081}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
3)))
(vector
'syntax-object
- #{expression 30082}#
- #{wrap 30083}#
- #{module 30084}#))
- (if (null? #{value 30029}#)
- #{value 30029}#
+ #{expression 30079}#
+ #{wrap 30080}#
+ #{module 30081}#))
+ (if (null? #{value 30026}#)
+ #{value 30026}#
(vector
'syntax-object
- #{value 30029}#
- #{w 30031}#
- #{mod 30033}#)))))
- (#{label 30038}#
+ #{value 30026}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ (#{label 30035}#
(symbol->string (gensym "i"))))
- (let ((#{var 30039}#
- (let ((#{id 30189}#
- (if (if (vector? #{id 30037}#)
+ (let ((#{var 30036}#
+ (let ((#{id 30186}#
+ (if (if (vector? #{id 30034}#)
(if (= (vector-length
- #{id 30037}#)
+ #{id 30034}#)
4)
(eq? (vector-ref
- #{id 30037}#
+ #{id 30034}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 30037}# 1)
- #{id 30037}#)))
+ (vector-ref #{id 30034}# 1)
+ #{id 30034}#)))
(gensym
(string-append
- (symbol->string #{id 30189}#)
+ (symbol->string #{id 30186}#)
" ")))))
(begin
(begin
- (let ((#{update 30048}#
- (cons (vector-ref #{id 30037}# 1)
+ (let ((#{update 30045}#
+ (cons (vector-ref #{id 30034}# 1)
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
1))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
1
- #{update 30048}#))
- (let ((#{update 30160}#
+ #{update 30045}#))
+ (let ((#{update 30157}#
(cons (car (vector-ref
- #{id 30037}#
+ #{id 30034}#
2))
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
2))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
2
- #{update 30160}#))
- (let ((#{update 30175}#
- (cons #{label 30038}#
+ #{update 30157}#))
+ (let ((#{update 30172}#
+ (cons #{label 30035}#
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
3))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
3
- #{update 30175}#)))
- (#{parse 29706}#
- (cdr #{body 29814}#)
- (cons #{id 30037}# #{ids 29815}#)
- (cons #{label 30038}# #{labels 29816}#)
- (cons #{id 30037}# #{var-ids 29817}#)
- (cons #{var 30039}# #{vars 29818}#)
- (cons (cons #{er 29822}#
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ #{update 30172}#)))
+ (#{parse 29703}#
+ (cdr #{body 29811}#)
+ (cons #{id 30034}# #{ids 29812}#)
+ (cons #{label 30035}# #{labels 29813}#)
+ (cons #{id 30034}# #{var-ids 29814}#)
+ (cons #{var 30036}# #{vars 29815}#)
+ (cons (cons #{er 29819}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{e 30030}#
+ #{e 30027}#
(if (if (vector?
- #{e 30030}#)
+ #{e 30027}#)
(if (= (vector-length
- #{e 30030}#)
+ #{e 30027}#)
4)
(eq? (vector-ref
- #{e 30030}#
+ #{e 30027}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30241}#
+ (let ((#{expression 30238}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
1))
- (#{wrap 30242}#
- (let ((#{w2 30252}#
+ (#{wrap 30239}#
+ (let ((#{w2 30249}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
2)))
- (let ((#{m1 30253}#
- (car #{w 30031}#))
- (#{s1 30254}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 30253}#)
- (if (null? #{s1 30254}#)
- #{w2 30252}#
- (cons (car #{w2 30252}#)
- (let ((#{m2 30271}#
- (cdr #{w2 30252}#)))
- (if (null? #{m2 30271}#)
- #{s1 30254}#
+ (let ((#{m1 30250}#
+ (car #{w 30028}#))
+ (#{s1 30251}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30250}#)
+ (if (null? #{s1 30251}#)
+ #{w2 30249}#
+ (cons (car #{w2 30249}#)
+ (let ((#{m2 30268}#
+ (cdr #{w2 30249}#)))
+ (if (null? #{m2 30268}#)
+ #{s1 30251}#
(append
- #{s1 30254}#
- #{m2 30271}#)))))
- (cons (let ((#{m2 30279}#
- (car #{w2 30252}#)))
- (if (null? #{m2 30279}#)
- #{m1 30253}#
+ #{s1 30251}#
+ #{m2 30268}#)))))
+ (cons (let ((#{m2 30276}#
+ (car #{w2 30249}#)))
+ (if (null? #{m2 30276}#)
+ #{m1 30250}#
(append
- #{m1 30253}#
- #{m2 30279}#)))
- (let ((#{m2 30287}#
- (cdr #{w2 30252}#)))
- (if (null? #{m2 30287}#)
- #{s1 30254}#
+ #{m1 30250}#
+ #{m2 30276}#)))
+ (let ((#{m2 30284}#
+ (cdr #{w2 30249}#)))
+ (if (null? #{m2 30284}#)
+ #{s1 30251}#
(append
- #{s1 30254}#
- #{m2 30287}#))))))))
- (#{module 30243}#
+ #{s1 30251}#
+ #{m2 30284}#))))))))
+ (#{module 30240}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
3)))
(vector
'syntax-object
- #{expression 30241}#
- #{wrap 30242}#
- #{module 30243}#))
- (if (null? #{e 30030}#)
- #{e 30030}#
+ #{expression 30238}#
+ #{wrap 30239}#
+ #{module 30240}#))
+ (if (null? #{e 30027}#)
+ #{e 30027}#
(vector
'syntax-object
- #{e 30030}#
- #{w 30031}#
- #{mod 30033}#)))))
- #{vals 29819}#)
- (cons (cons 'lexical #{var 30039}#)
- #{bindings 29820}#)))))
- (if (eqv? #{type 30028}# 'define-syntax-form)
- (let ((#{id 30313}#
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ #{e 30027}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ #{vals 29816}#)
+ (cons (cons 'lexical #{var 30036}#)
+ #{bindings 29817}#)))))
+ (if (eqv? #{type 30025}# 'define-syntax-form)
+ (let ((#{id 30310}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{value 30029}#
- (if (if (vector? #{value 30029}#)
+ #{value 30026}#
+ (if (if (vector? #{value 30026}#)
(if (= (vector-length
- #{value 30029}#)
+ #{value 30026}#)
4)
(eq? (vector-ref
- #{value 30029}#
+ #{value 30026}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30357}#
+ (let ((#{expression 30354}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
1))
- (#{wrap 30358}#
- (let ((#{w2 30368}#
+ (#{wrap 30355}#
+ (let ((#{w2 30365}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
2)))
- (let ((#{m1 30369}#
- (car #{w 30031}#))
- (#{s1 30370}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 30369}#)
- (if (null? #{s1 30370}#)
- #{w2 30368}#
- (cons (car #{w2 30368}#)
- (let ((#{m2 30387}#
- (cdr #{w2 30368}#)))
- (if (null? #{m2 30387}#)
- #{s1 30370}#
+ (let ((#{m1 30366}#
+ (car #{w 30028}#))
+ (#{s1 30367}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30366}#)
+ (if (null? #{s1 30367}#)
+ #{w2 30365}#
+ (cons (car #{w2 30365}#)
+ (let ((#{m2 30384}#
+ (cdr #{w2 30365}#)))
+ (if (null? #{m2 30384}#)
+ #{s1 30367}#
(append
- #{s1 30370}#
- #{m2 30387}#)))))
- (cons (let ((#{m2 30395}#
- (car #{w2 30368}#)))
- (if (null? #{m2 30395}#)
- #{m1 30369}#
+ #{s1 30367}#
+ #{m2 30384}#)))))
+ (cons (let ((#{m2 30392}#
+ (car #{w2 30365}#)))
+ (if (null? #{m2 30392}#)
+ #{m1 30366}#
(append
- #{m1 30369}#
- #{m2 30395}#)))
- (let ((#{m2 30403}#
- (cdr #{w2 30368}#)))
- (if (null? #{m2 30403}#)
- #{s1 30370}#
+ #{m1 30366}#
+ #{m2 30392}#)))
+ (let ((#{m2 30400}#
+ (cdr #{w2 30365}#)))
+ (if (null? #{m2 30400}#)
+ #{s1 30367}#
(append
- #{s1 30370}#
- #{m2 30403}#))))))))
- (#{module 30359}#
+ #{s1 30367}#
+ #{m2 30400}#))))))))
+ (#{module 30356}#
(vector-ref
- #{value 30029}#
+ #{value 30026}#
3)))
(vector
'syntax-object
- #{expression 30357}#
- #{wrap 30358}#
- #{module 30359}#))
- (if (null? #{value 30029}#)
- #{value 30029}#
+ #{expression 30354}#
+ #{wrap 30355}#
+ #{module 30356}#))
+ (if (null? #{value 30026}#)
+ #{value 30026}#
(vector
'syntax-object
- #{value 30029}#
- #{w 30031}#
- #{mod 30033}#)))))
- (#{label 30314}#
+ #{value 30026}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ (#{label 30311}#
(symbol->string (gensym "i"))))
(begin
(begin
- (let ((#{update 30323}#
- (cons (vector-ref #{id 30313}# 1)
+ (let ((#{update 30320}#
+ (cons (vector-ref #{id 30310}# 1)
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
1))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
1
- #{update 30323}#))
- (let ((#{update 30435}#
+ #{update 30320}#))
+ (let ((#{update 30432}#
(cons (car (vector-ref
- #{id 30313}#
+ #{id 30310}#
2))
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
2))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
2
- #{update 30435}#))
- (let ((#{update 30450}#
- (cons #{label 30314}#
+ #{update 30432}#))
+ (let ((#{update 30447}#
+ (cons #{label 30311}#
(vector-ref
- #{ribcage 29704}#
+ #{ribcage 29701}#
3))))
(vector-set!
- #{ribcage 29704}#
+ #{ribcage 29701}#
3
- #{update 30450}#)))
- (#{parse 29706}#
- (cdr #{body 29814}#)
- (cons #{id 30313}# #{ids 29815}#)
- (cons #{label 30314}# #{labels 29816}#)
- #{var-ids 29817}#
- #{vars 29818}#
- #{vals 29819}#
+ #{update 30447}#)))
+ (#{parse 29703}#
+ (cdr #{body 29811}#)
+ (cons #{id 30310}# #{ids 29812}#)
+ (cons #{label 30311}# #{labels 29813}#)
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
(cons (cons 'macro
- (cons #{er 29822}#
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ (cons #{er 29819}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{e 30030}#
+ #{e 30027}#
(if (if (vector?
- #{e 30030}#)
+ #{e 30027}#)
(if (= (vector-length
- #{e 30030}#)
+ #{e 30027}#)
4)
(eq? (vector-ref
- #{e 30030}#
+ #{e 30027}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30489}#
+ (let ((#{expression 30486}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
1))
- (#{wrap 30490}#
- (let ((#{w2 30500}#
+ (#{wrap 30487}#
+ (let ((#{w2 30497}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
2)))
- (let ((#{m1 30501}#
- (car #{w 30031}#))
- (#{s1 30502}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 30501}#)
- (if (null? #{s1 30502}#)
- #{w2 30500}#
- (cons (car #{w2 30500}#)
- (let ((#{m2 30519}#
- (cdr #{w2 30500}#)))
- (if (null? #{m2 30519}#)
- #{s1 30502}#
+ (let ((#{m1 30498}#
+ (car #{w 30028}#))
+ (#{s1 30499}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30498}#)
+ (if (null? #{s1 30499}#)
+ #{w2 30497}#
+ (cons (car #{w2 30497}#)
+ (let ((#{m2 30516}#
+ (cdr #{w2 30497}#)))
+ (if (null? #{m2 30516}#)
+ #{s1 30499}#
(append
- #{s1 30502}#
- #{m2 30519}#)))))
- (cons (let ((#{m2 30527}#
- (car #{w2 30500}#)))
- (if (null? #{m2 30527}#)
- #{m1 30501}#
+ #{s1 30499}#
+ #{m2 30516}#)))))
+ (cons (let ((#{m2 30524}#
+ (car #{w2 30497}#)))
+ (if (null? #{m2 30524}#)
+ #{m1 30498}#
(append
- #{m1 30501}#
- #{m2 30527}#)))
- (let ((#{m2 30535}#
- (cdr #{w2 30500}#)))
- (if (null? #{m2 30535}#)
- #{s1 30502}#
+ #{m1 30498}#
+ #{m2 30524}#)))
+ (let ((#{m2 30532}#
+ (cdr #{w2 30497}#)))
+ (if (null? #{m2 30532}#)
+ #{s1 30499}#
(append
- #{s1 30502}#
- #{m2 30535}#))))))))
- (#{module 30491}#
+ #{s1 30499}#
+ #{m2 30532}#))))))))
+ (#{module 30488}#
(vector-ref
- #{e 30030}#
+ #{e 30027}#
3)))
(vector
'syntax-object
- #{expression 30489}#
- #{wrap 30490}#
- #{module 30491}#))
- (if (null? #{e 30030}#)
- #{e 30030}#
+ #{expression 30486}#
+ #{wrap 30487}#
+ #{module 30488}#))
+ (if (null? #{e 30027}#)
+ #{e 30027}#
(vector
'syntax-object
- #{e 30030}#
- #{w 30031}#
- #{mod 30033}#))))))
- #{bindings 29820}#))))
- (if (eqv? #{type 30028}# 'begin-form)
- (let ((#{tmp 30562}#
+ #{e 30027}#
+ #{w 30028}#
+ #{mod 30030}#))))))
+ #{bindings 29817}#))))
+ (if (eqv? #{type 30025}# 'begin-form)
+ (let ((#{tmp 30559}#
($sc-dispatch
- #{e 30030}#
+ #{e 30027}#
'(_ . each-any))))
- (if #{tmp 30562}#
+ (if #{tmp 30559}#
(@apply
- (lambda (#{e1 30566}#)
- (#{parse 29706}#
+ (lambda (#{e1 30563}#)
+ (#{parse 29703}#
(letrec*
- ((#{f 30567}#
- (lambda (#{forms 30783}#)
- (if (null? #{forms 30783}#)
- (cdr #{body 29814}#)
- (cons (cons #{er 29822}#
- (let ((#{x 30787}#
- (car #{forms 30783}#)))
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ ((#{f 30564}#
+ (lambda (#{forms 30780}#)
+ (if (null? #{forms 30780}#)
+ (cdr #{body 29811}#)
+ (cons (cons #{er 29819}#
+ (let ((#{x 30784}#
+ (car #{forms 30780}#)))
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{x 30787}#
+ #{x 30784}#
(if (if (vector?
- #{x 30787}#)
+ #{x 30784}#)
(if (= (vector-length
- #{x 30787}#)
+ #{x 30784}#)
4)
(eq? (vector-ref
- #{x 30787}#
+ #{x 30784}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30805}#
+ (let ((#{expression 30802}#
(vector-ref
- #{x 30787}#
+ #{x 30784}#
1))
- (#{wrap 30806}#
- (let ((#{w2 30814}#
+ (#{wrap 30803}#
+ (let ((#{w2 30811}#
(vector-ref
- #{x 30787}#
+ #{x 30784}#
2)))
- (let ((#{m1 30815}#
- (car #{w 30031}#))
- (#{s1 30816}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 30815}#)
- (if (null? #{s1 30816}#)
- #{w2 30814}#
- (cons (car #{w2 30814}#)
- (let ((#{m2 30831}#
- (cdr #{w2 30814}#)))
- (if (null? #{m2 30831}#)
- #{s1 30816}#
+ (let ((#{m1 30812}#
+ (car #{w 30028}#))
+ (#{s1 30813}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30812}#)
+ (if (null? #{s1 30813}#)
+ #{w2 30811}#
+ (cons (car #{w2 30811}#)
+ (let ((#{m2 30828}#
+ (cdr #{w2 30811}#)))
+ (if (null? #{m2 30828}#)
+ #{s1 30813}#
(append
- #{s1 30816}#
- #{m2 30831}#)))))
- (cons (let ((#{m2 30839}#
- (car #{w2 30814}#)))
- (if (null? #{m2 30839}#)
- #{m1 30815}#
+ #{s1 30813}#
+ #{m2 30828}#)))))
+ (cons (let ((#{m2 30836}#
+ (car #{w2 30811}#)))
+ (if (null? #{m2 30836}#)
+ #{m1 30812}#
(append
- #{m1 30815}#
- #{m2 30839}#)))
- (let ((#{m2 30847}#
- (cdr #{w2 30814}#)))
- (if (null? #{m2 30847}#)
- #{s1 30816}#
+ #{m1 30812}#
+ #{m2 30836}#)))
+ (let ((#{m2 30844}#
+ (cdr #{w2 30811}#)))
+ (if (null? #{m2 30844}#)
+ #{s1 30813}#
(append
- #{s1 30816}#
- #{m2 30847}#))))))))
- (#{module 30807}#
+ #{s1 30813}#
+ #{m2 30844}#))))))))
+ (#{module 30804}#
(vector-ref
- #{x 30787}#
+ #{x 30784}#
3)))
(vector
'syntax-object
- #{expression 30805}#
- #{wrap 30806}#
- #{module 30807}#))
- (if (null? #{x 30787}#)
- #{x 30787}#
+ #{expression 30802}#
+ #{wrap 30803}#
+ #{module 30804}#))
+ (if (null? #{x 30784}#)
+ #{x 30784}#
(vector
'syntax-object
- #{x 30787}#
- #{w 30031}#
- #{mod 30033}#))))))
- (#{f 30567}#
- (cdr #{forms 30783}#)))))))
- (#{f 30567}# #{e1 30566}#))
- #{ids 29815}#
- #{labels 29816}#
- #{var-ids 29817}#
- #{vars 29818}#
- #{vals 29819}#
- #{bindings 29820}#))
- #{tmp 30562}#)
+ #{x 30784}#
+ #{w 30028}#
+ #{mod 30030}#))))))
+ (#{f 30564}#
+ (cdr #{forms 30780}#)))))))
+ (#{f 30564}# #{e1 30563}#))
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#))
+ #{tmp 30559}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 30030}#)))
- (if (eqv? #{type 30028}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 30029}#
- #{e 30030}#
- #{er 29822}#
- #{w 30031}#
- #{s 30032}#
- #{mod 30033}#
- (lambda (#{forms 30873}#
- #{er 30874}#
- #{w 30875}#
- #{s 30876}#
- #{mod 30877}#)
- (#{parse 29706}#
+ #{e 30027}#)))
+ (if (eqv? #{type 30025}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 30026}#
+ #{e 30027}#
+ #{er 29819}#
+ #{w 30028}#
+ #{s 30029}#
+ #{mod 30030}#
+ (lambda (#{forms 30870}#
+ #{er 30871}#
+ #{w 30872}#
+ #{s 30873}#
+ #{mod 30874}#)
+ (#{parse 29703}#
(letrec*
- ((#{f 30878}#
- (lambda (#{forms 31094}#)
- (if (null? #{forms 31094}#)
- (cdr #{body 29814}#)
- (cons (cons #{er 30874}#
- (let ((#{x 31098}#
- (car #{forms 31094}#)))
- (if (if (null? (car #{w 30875}#))
- (null? (cdr #{w 30875}#))
+ ((#{f 30875}#
+ (lambda (#{forms 31091}#)
+ (if (null? #{forms 31091}#)
+ (cdr #{body 29811}#)
+ (cons (cons #{er 30871}#
+ (let ((#{x 31095}#
+ (car #{forms 31091}#)))
+ (if (if (null? (car #{w 30872}#))
+ (null? (cdr #{w 30872}#))
#f)
- #{x 31098}#
+ #{x 31095}#
(if (if (vector?
- #{x 31098}#)
+ #{x 31095}#)
(if (= (vector-length
- #{x 31098}#)
+ #{x 31095}#)
4)
(eq? (vector-ref
- #{x 31098}#
+ #{x 31095}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 31116}#
+ (let ((#{expression 31113}#
(vector-ref
- #{x 31098}#
+ #{x 31095}#
1))
- (#{wrap 31117}#
- (let ((#{w2 31125}#
+ (#{wrap 31114}#
+ (let ((#{w2 31122}#
(vector-ref
- #{x 31098}#
+ #{x 31095}#
2)))
- (let ((#{m1 31126}#
- (car #{w 30875}#))
- (#{s1 31127}#
- (cdr #{w 30875}#)))
- (if (null? #{m1 31126}#)
- (if (null? #{s1 31127}#)
- #{w2 31125}#
- (cons (car #{w2 31125}#)
- (let ((#{m2 31142}#
- (cdr #{w2 31125}#)))
- (if (null? #{m2 31142}#)
- #{s1 31127}#
+ (let ((#{m1 31123}#
+ (car #{w 30872}#))
+ (#{s1 31124}#
+ (cdr #{w 30872}#)))
+ (if (null? #{m1 31123}#)
+ (if (null? #{s1 31124}#)
+ #{w2 31122}#
+ (cons (car #{w2 31122}#)
+ (let ((#{m2 31139}#
+ (cdr #{w2 31122}#)))
+ (if (null? #{m2 31139}#)
+ #{s1 31124}#
(append
- #{s1 31127}#
- #{m2 31142}#)))))
- (cons (let ((#{m2 31150}#
- (car #{w2 31125}#)))
- (if (null? #{m2 31150}#)
- #{m1 31126}#
+ #{s1 31124}#
+ #{m2 31139}#)))))
+ (cons (let ((#{m2 31147}#
+ (car #{w2 31122}#)))
+ (if (null? #{m2 31147}#)
+ #{m1 31123}#
(append
- #{m1 31126}#
- #{m2 31150}#)))
- (let ((#{m2 31158}#
- (cdr #{w2 31125}#)))
- (if (null? #{m2 31158}#)
- #{s1 31127}#
+ #{m1 31123}#
+ #{m2 31147}#)))
+ (let ((#{m2 31155}#
+ (cdr #{w2 31122}#)))
+ (if (null? #{m2 31155}#)
+ #{s1 31124}#
(append
- #{s1 31127}#
- #{m2 31158}#))))))))
- (#{module 31118}#
+ #{s1 31124}#
+ #{m2 31155}#))))))))
+ (#{module 31115}#
(vector-ref
- #{x 31098}#
+ #{x 31095}#
3)))
(vector
'syntax-object
- #{expression 31116}#
- #{wrap 31117}#
- #{module 31118}#))
- (if (null? #{x 31098}#)
- #{x 31098}#
+ #{expression 31113}#
+ #{wrap 31114}#
+ #{module 31115}#))
+ (if (null? #{x 31095}#)
+ #{x 31095}#
(vector
'syntax-object
- #{x 31098}#
- #{w 30875}#
- #{mod 30877}#))))))
- (#{f 30878}#
- (cdr #{forms 31094}#)))))))
- (#{f 30878}# #{forms 30873}#))
- #{ids 29815}#
- #{labels 29816}#
- #{var-ids 29817}#
- #{vars 29818}#
- #{vals 29819}#
- #{bindings 29820}#)))
- (if (null? #{ids 29815}#)
- (#{build-sequence 4324}#
+ #{x 31095}#
+ #{w 30872}#
+ #{mod 30874}#))))))
+ (#{f 30875}#
+ (cdr #{forms 31091}#)))))))
+ (#{f 30875}# #{forms 30870}#))
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#)))
+ (if (null? #{ids 29812}#)
+ (#{build-sequence 4322}#
#f
- (map (lambda (#{x 31247}#)
- (#{chi 4375}#
- (cdr #{x 31247}#)
- (car #{x 31247}#)
+ (map (lambda (#{x 31244}#)
+ (#{chi 4373}#
+ (cdr #{x 31244}#)
+ (car #{x 31244}#)
'(())
- #{mod 30033}#))
- (cons (cons #{er 29822}#
- (let ((#{x 31326}#
+ #{mod 30030}#))
+ (cons (cons #{er 29819}#
+ (let ((#{x 31323}#
(begin
- (if (if (pair? #{e 30030}#)
- #{s 30032}#
+ (if (if (pair? #{e 30027}#)
+ #{s 30029}#
#f)
(set-source-properties!
- #{e 30030}#
- #{s 30032}#))
- #{e 30030}#)))
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ #{e 30027}#
+ #{s 30029}#))
+ #{e 30027}#)))
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{x 31326}#
+ #{x 31323}#
(if (if (vector?
- #{x 31326}#)
+ #{x 31323}#)
(if (= (vector-length
- #{x 31326}#)
+ #{x 31323}#)
4)
(eq? (vector-ref
- #{x 31326}#
+ #{x 31323}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 31358}#
+ (let ((#{expression 31355}#
(vector-ref
- #{x 31326}#
+ #{x 31323}#
1))
- (#{wrap 31359}#
- (let ((#{w2 31367}#
+ (#{wrap 31356}#
+ (let ((#{w2 31364}#
(vector-ref
- #{x 31326}#
+ #{x 31323}#
2)))
- (let ((#{m1 31368}#
- (car #{w 30031}#))
- (#{s1 31369}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 31368}#)
- (if (null? #{s1 31369}#)
- #{w2 31367}#
- (cons (car #{w2 31367}#)
- (let ((#{m2 31384}#
- (cdr #{w2 31367}#)))
- (if (null? #{m2 31384}#)
- #{s1 31369}#
+ (let ((#{m1 31365}#
+ (car #{w 30028}#))
+ (#{s1 31366}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 31365}#)
+ (if (null? #{s1 31366}#)
+ #{w2 31364}#
+ (cons (car #{w2 31364}#)
+ (let ((#{m2 31381}#
+ (cdr #{w2 31364}#)))
+ (if (null? #{m2 31381}#)
+ #{s1 31366}#
(append
- #{s1 31369}#
- #{m2 31384}#)))))
- (cons (let ((#{m2 31392}#
- (car #{w2 31367}#)))
- (if (null? #{m2 31392}#)
- #{m1 31368}#
+ #{s1 31366}#
+ #{m2 31381}#)))))
+ (cons (let ((#{m2 31389}#
+ (car #{w2 31364}#)))
+ (if (null? #{m2 31389}#)
+ #{m1 31365}#
(append
- #{m1 31368}#
- #{m2 31392}#)))
- (let ((#{m2 31400}#
- (cdr #{w2 31367}#)))
- (if (null? #{m2 31400}#)
- #{s1 31369}#
+ #{m1 31365}#
+ #{m2 31389}#)))
+ (let ((#{m2 31397}#
+ (cdr #{w2 31364}#)))
+ (if (null? #{m2 31397}#)
+ #{s1 31366}#
(append
- #{s1 31369}#
- #{m2 31400}#))))))))
- (#{module 31360}#
+ #{s1 31366}#
+ #{m2 31397}#))))))))
+ (#{module 31357}#
(vector-ref
- #{x 31326}#
+ #{x 31323}#
3)))
(vector
'syntax-object
- #{expression 31358}#
- #{wrap 31359}#
- #{module 31360}#))
- (if (null? #{x 31326}#)
- #{x 31326}#
+ #{expression 31355}#
+ #{wrap 31356}#
+ #{module 31357}#))
+ (if (null? #{x 31323}#)
+ #{x 31323}#
(vector
'syntax-object
- #{x 31326}#
- #{w 30031}#
- #{mod 30033}#))))))
- (cdr #{body 29814}#))))
+ #{x 31323}#
+ #{w 30028}#
+ #{mod 30030}#))))))
+ (cdr #{body 29811}#))))
(begin
- (if (not (#{valid-bound-ids? 4365}#
- #{ids 29815}#))
+ (if (not (#{valid-bound-ids? 4363}#
+ #{ids 29812}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 29699}#))
+ #{outer-form 29696}#))
(letrec*
- ((#{loop 31499}#
- (lambda (#{bs 31502}#
- #{er-cache 31503}#
- #{r-cache 31504}#)
- (if (not (null? #{bs 31502}#))
- (let ((#{b 31505}#
- (car #{bs 31502}#)))
- (if (eq? (car #{b 31505}#)
+ ((#{loop 31496}#
+ (lambda (#{bs 31499}#
+ #{er-cache 31500}#
+ #{r-cache 31501}#)
+ (if (not (null? #{bs 31499}#))
+ (let ((#{b 31502}#
+ (car #{bs 31499}#)))
+ (if (eq? (car #{b 31502}#)
'macro)
- (let ((#{er 31507}#
- (car (cdr #{b 31505}#))))
- (let ((#{r-cache 31508}#
- (if (eq? #{er 31507}#
- #{er-cache 31503}#)
- #{r-cache 31504}#
- (#{macros-only-env 4339}#
- #{er 31507}#))))
+ (let ((#{er 31504}#
+ (car (cdr #{b 31502}#))))
+ (let ((#{r-cache 31505}#
+ (if (eq? #{er 31504}#
+ #{er-cache 31500}#)
+ #{r-cache 31501}#
+ (#{macros-only-env 4337}#
+ #{er 31504}#))))
(begin
(set-cdr!
- #{b 31505}#
- (#{eval-local-transformer 4381}#
- (#{chi 4375}#
- (cdr (cdr #{b 31505}#))
- #{r-cache 31508}#
+ #{b 31502}#
+ (#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ (cdr (cdr #{b 31502}#))
+ #{r-cache 31505}#
'(())
- #{mod 30033}#)
- #{mod 30033}#))
- (#{loop 31499}#
- (cdr #{bs 31502}#)
- #{er 31507}#
- #{r-cache 31508}#))))
- (#{loop 31499}#
- (cdr #{bs 31502}#)
- #{er-cache 31503}#
- #{r-cache 31504}#)))))))
- (#{loop 31499}#
- #{bindings 29820}#
+ #{mod 30030}#)
+ #{mod 30030}#))
+ (#{loop 31496}#
+ (cdr #{bs 31499}#)
+ #{er 31504}#
+ #{r-cache 31505}#))))
+ (#{loop 31496}#
+ (cdr #{bs 31499}#)
+ #{er-cache 31500}#
+ #{r-cache 31501}#)))))))
+ (#{loop 31496}#
+ #{bindings 29817}#
#f
#f))
(set-cdr!
- #{r 29703}#
- (#{extend-env 4337}#
- #{labels 29816}#
- #{bindings 29820}#
- (cdr #{r 29703}#)))
- (#{build-letrec 4327}#
+ #{r 29700}#
+ (#{extend-env 4335}#
+ #{labels 29813}#
+ #{bindings 29817}#
+ (cdr #{r 29700}#)))
+ (#{build-letrec 4325}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 29817}#))
- (reverse #{vars 29818}#)
- (map (lambda (#{x 31927}#)
- (#{chi 4375}#
- (cdr #{x 31927}#)
- (car #{x 31927}#)
+ #{var-ids 29814}#))
+ (reverse #{vars 29815}#)
+ (map (lambda (#{x 31924}#)
+ (#{chi 4373}#
+ (cdr #{x 31924}#)
+ (car #{x 31924}#)
'(())
- #{mod 30033}#))
- (reverse #{vals 29819}#))
- (#{build-sequence 4324}#
+ #{mod 30030}#))
+ (reverse #{vals 29816}#))
+ (#{build-sequence 4322}#
#f
- (map (lambda (#{x 32071}#)
- (#{chi 4375}#
- (cdr #{x 32071}#)
- (car #{x 32071}#)
+ (map (lambda (#{x 32068}#)
+ (#{chi 4373}#
+ (cdr #{x 32068}#)
+ (car #{x 32068}#)
'(())
- #{mod 30033}#))
- (cons (cons #{er 29822}#
- (let ((#{x 32150}#
+ #{mod 30030}#))
+ (cons (cons #{er 29819}#
+ (let ((#{x 32147}#
(begin
- (if (if (pair? #{e 30030}#)
- #{s 30032}#
+ (if (if (pair? #{e 30027}#)
+ #{s 30029}#
#f)
(set-source-properties!
- #{e 30030}#
- #{s 30032}#))
- #{e 30030}#)))
- (if (if (null? (car #{w 30031}#))
- (null? (cdr #{w 30031}#))
+ #{e 30027}#
+ #{s 30029}#))
+ #{e 30027}#)))
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{x 32150}#
+ #{x 32147}#
(if (if (vector?
- #{x 32150}#)
+ #{x 32147}#)
(if (= (vector-length
- #{x 32150}#)
+ #{x 32147}#)
4)
(eq? (vector-ref
- #{x 32150}#
+ #{x 32147}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 32182}#
+ (let ((#{expression 32179}#
(vector-ref
- #{x 32150}#
+ #{x 32147}#
1))
- (#{wrap 32183}#
- (let ((#{w2 32191}#
+ (#{wrap 32180}#
+ (let ((#{w2 32188}#
(vector-ref
- #{x 32150}#
+ #{x 32147}#
2)))
- (let ((#{m1 32192}#
- (car #{w 30031}#))
- (#{s1 32193}#
- (cdr #{w 30031}#)))
- (if (null? #{m1 32192}#)
- (if (null? #{s1 32193}#)
- #{w2 32191}#
- (cons (car #{w2 32191}#)
- (let ((#{m2 32208}#
- (cdr #{w2 32191}#)))
- (if (null? #{m2 32208}#)
- #{s1 32193}#
+ (let ((#{m1 32189}#
+ (car #{w 30028}#))
+ (#{s1 32190}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 32189}#)
+ (if (null? #{s1 32190}#)
+ #{w2 32188}#
+ (cons (car #{w2 32188}#)
+ (let ((#{m2 32205}#
+ (cdr #{w2 32188}#)))
+ (if (null? #{m2 32205}#)
+ #{s1 32190}#
(append
- #{s1 32193}#
- #{m2 32208}#)))))
- (cons (let ((#{m2 32216}#
- (car #{w2 32191}#)))
- (if (null? #{m2 32216}#)
- #{m1 32192}#
+ #{s1 32190}#
+ #{m2 32205}#)))))
+ (cons (let ((#{m2 32213}#
+ (car #{w2 32188}#)))
+ (if (null? #{m2 32213}#)
+ #{m1 32189}#
(append
- #{m1 32192}#
- #{m2 32216}#)))
- (let ((#{m2 32224}#
- (cdr #{w2 32191}#)))
- (if (null? #{m2 32224}#)
- #{s1 32193}#
+ #{m1 32189}#
+ #{m2 32213}#)))
+ (let ((#{m2 32221}#
+ (cdr #{w2 32188}#)))
+ (if (null? #{m2 32221}#)
+ #{s1 32190}#
(append
- #{s1 32193}#
- #{m2 32224}#))))))))
- (#{module 32184}#
+ #{s1 32190}#
+ #{m2 32221}#))))))))
+ (#{module 32181}#
(vector-ref
- #{x 32150}#
+ #{x 32147}#
3)))
(vector
'syntax-object
- #{expression 32182}#
- #{wrap 32183}#
- #{module 32184}#))
- (if (null? #{x 32150}#)
- #{x 32150}#
+ #{expression 32179}#
+ #{wrap 32180}#
+ #{module 32181}#))
+ (if (null? #{x 32147}#)
+ #{x 32147}#
(vector
'syntax-object
- #{x 32150}#
- #{w 30031}#
- #{mod 30033}#))))))
- (cdr #{body 29814}#))))))))))))))))))
- (#{parse 29706}#
- (map (lambda (#{x 29709}#)
- (cons #{r 29703}#
- (if (if (null? (car #{w 29705}#))
- (null? (cdr #{w 29705}#))
+ #{x 32147}#
+ #{w 30028}#
+ #{mod 30030}#))))))
+ (cdr #{body 29811}#))))))))))))))))))
+ (#{parse 29703}#
+ (map (lambda (#{x 29706}#)
+ (cons #{r 29700}#
+ (if (if (null? (car #{w 29702}#))
+ (null? (cdr #{w 29702}#))
#f)
- #{x 29709}#
- (if (if (vector? #{x 29709}#)
- (if (= (vector-length #{x 29709}#) 4)
- (eq? (vector-ref #{x 29709}# 0)
+ #{x 29706}#
+ (if (if (vector? #{x 29706}#)
+ (if (= (vector-length #{x 29706}#) 4)
+ (eq? (vector-ref #{x 29706}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29745}#
- (vector-ref #{x 29709}# 1))
- (#{wrap 29746}#
- (let ((#{w2 29756}#
- (vector-ref #{x 29709}# 2)))
- (let ((#{m1 29757}#
- (car #{w 29705}#))
- (#{s1 29758}#
- (cdr #{w 29705}#)))
- (if (null? #{m1 29757}#)
- (if (null? #{s1 29758}#)
- #{w2 29756}#
- (cons (car #{w2 29756}#)
- (let ((#{m2 29775}#
- (cdr #{w2 29756}#)))
- (if (null? #{m2 29775}#)
- #{s1 29758}#
+ (let ((#{expression 29742}#
+ (vector-ref #{x 29706}# 1))
+ (#{wrap 29743}#
+ (let ((#{w2 29753}#
+ (vector-ref #{x 29706}# 2)))
+ (let ((#{m1 29754}#
+ (car #{w 29702}#))
+ (#{s1 29755}#
+ (cdr #{w 29702}#)))
+ (if (null? #{m1 29754}#)
+ (if (null? #{s1 29755}#)
+ #{w2 29753}#
+ (cons (car #{w2 29753}#)
+ (let ((#{m2 29772}#
+ (cdr #{w2 29753}#)))
+ (if (null? #{m2 29772}#)
+ #{s1 29755}#
(append
- #{s1 29758}#
- #{m2 29775}#)))))
- (cons (let ((#{m2 29783}#
- (car #{w2 29756}#)))
- (if (null? #{m2 29783}#)
- #{m1 29757}#
+ #{s1 29755}#
+ #{m2 29772}#)))))
+ (cons (let ((#{m2 29780}#
+ (car #{w2 29753}#)))
+ (if (null? #{m2 29780}#)
+ #{m1 29754}#
(append
- #{m1 29757}#
- #{m2 29783}#)))
- (let ((#{m2 29791}#
- (cdr #{w2 29756}#)))
- (if (null? #{m2 29791}#)
- #{s1 29758}#
+ #{m1 29754}#
+ #{m2 29780}#)))
+ (let ((#{m2 29788}#
+ (cdr #{w2 29753}#)))
+ (if (null? #{m2 29788}#)
+ #{s1 29755}#
(append
- #{s1 29758}#
- #{m2 29791}#))))))))
- (#{module 29747}#
- (vector-ref #{x 29709}# 3)))
+ #{s1 29755}#
+ #{m2 29788}#))))))))
+ (#{module 29744}#
+ (vector-ref #{x 29706}# 3)))
(vector
'syntax-object
- #{expression 29745}#
- #{wrap 29746}#
- #{module 29747}#))
- (if (null? #{x 29709}#)
- #{x 29709}#
+ #{expression 29742}#
+ #{wrap 29743}#
+ #{module 29744}#))
+ (if (null? #{x 29706}#)
+ #{x 29706}#
(vector
'syntax-object
- #{x 29709}#
- #{w 29705}#
- #{mod 29702}#))))))
- #{body 29698}#)
+ #{x 29706}#
+ #{w 29702}#
+ #{mod 29699}#))))))
+ #{body 29695}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-local-syntax 4380}#
- (lambda (#{rec? 32239}#
- #{e 32240}#
- #{r 32241}#
- #{w 32242}#
- #{s 32243}#
- #{mod 32244}#
- #{k 32245}#)
- (let ((#{tmp 32247}#
+ (#{chi-local-syntax 4378}#
+ (lambda (#{rec? 32236}#
+ #{e 32237}#
+ #{r 32238}#
+ #{w 32239}#
+ #{s 32240}#
+ #{mod 32241}#
+ #{k 32242}#)
+ (let ((#{tmp 32244}#
($sc-dispatch
- #{e 32240}#
+ #{e 32237}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 32247}#
+ (if #{tmp 32244}#
(@apply
- (lambda (#{id 32251}#
- #{val 32252}#
- #{e1 32253}#
- #{e2 32254}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 32251}#))
+ (lambda (#{id 32248}#
+ #{val 32249}#
+ #{e1 32250}#
+ #{e2 32251}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 32248}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 32240}#)
- (let ((#{labels 32351}#
- (#{gen-labels 4346}# #{id 32251}#)))
- (let ((#{new-w 32352}#
- (#{make-binding-wrap 4357}#
- #{id 32251}#
- #{labels 32351}#
- #{w 32242}#)))
- (#{k 32245}#
- (cons #{e1 32253}# #{e2 32254}#)
- (#{extend-env 4337}#
- #{labels 32351}#
- (let ((#{trans-r 32392}#
- (#{macros-only-env 4339}# #{r 32241}#)))
+ #{e 32237}#)
+ (let ((#{labels 32348}#
+ (#{gen-labels 4344}# #{id 32248}#)))
+ (let ((#{new-w 32349}#
+ (#{make-binding-wrap 4355}#
+ #{id 32248}#
+ #{labels 32348}#
+ #{w 32239}#)))
+ (#{k 32242}#
+ (cons #{e1 32250}# #{e2 32251}#)
+ (#{extend-env 4335}#
+ #{labels 32348}#
+ (let ((#{trans-r 32389}#
+ (#{macros-only-env 4337}# #{r 32238}#)))
(begin
- (if #{rec? 32239}# (if #f #f))
- (map (lambda (#{x 32393}#)
+ (if #{rec? 32236}# (if #f #f))
+ (map (lambda (#{x 32390}#)
(cons 'macro
- (#{eval-local-transformer 4381}#
- (#{chi 4375}#
- #{x 32393}#
- #{trans-r 32392}#
- (if #{rec? 32239}#
- #{new-w 32352}#
- #{w 32242}#)
- #{mod 32244}#)
- #{mod 32244}#)))
- #{val 32252}#)))
- #{r 32241}#)
- #{new-w 32352}#
- #{s 32243}#
- #{mod 32244}#)))))
- #{tmp 32247}#)
+ (#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ #{x 32390}#
+ #{trans-r 32389}#
+ (if #{rec? 32236}#
+ #{new-w 32349}#
+ #{w 32239}#)
+ #{mod 32241}#)
+ #{mod 32241}#)))
+ #{val 32249}#)))
+ #{r 32238}#)
+ #{new-w 32349}#
+ #{s 32240}#
+ #{mod 32241}#)))))
+ #{tmp 32244}#)
(syntax-violation
#f
"bad local syntax definition"
- (let ((#{x 32718}#
+ (let ((#{x 32715}#
(begin
- (if (if (pair? #{e 32240}#) #{s 32243}# #f)
- (set-source-properties! #{e 32240}# #{s 32243}#))
- #{e 32240}#)))
- (if (if (null? (car #{w 32242}#))
- (null? (cdr #{w 32242}#))
+ (if (if (pair? #{e 32237}#) #{s 32240}# #f)
+ (set-source-properties! #{e 32237}# #{s 32240}#))
+ #{e 32237}#)))
+ (if (if (null? (car #{w 32239}#))
+ (null? (cdr #{w 32239}#))
#f)
- #{x 32718}#
- (if (if (vector? #{x 32718}#)
- (if (= (vector-length #{x 32718}#) 4)
- (eq? (vector-ref #{x 32718}# 0) 'syntax-object)
+ #{x 32715}#
+ (if (if (vector? #{x 32715}#)
+ (if (= (vector-length #{x 32715}#) 4)
+ (eq? (vector-ref #{x 32715}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 32750}# (vector-ref #{x 32718}# 1))
- (#{wrap 32751}#
- (let ((#{w2 32759}# (vector-ref #{x 32718}# 2)))
- (let ((#{m1 32760}# (car #{w 32242}#))
- (#{s1 32761}# (cdr #{w 32242}#)))
- (if (null? #{m1 32760}#)
- (if (null? #{s1 32761}#)
- #{w2 32759}#
- (cons (car #{w2 32759}#)
- (let ((#{m2 32776}#
- (cdr #{w2 32759}#)))
- (if (null? #{m2 32776}#)
- #{s1 32761}#
+ (let ((#{expression 32747}# (vector-ref #{x 32715}# 1))
+ (#{wrap 32748}#
+ (let ((#{w2 32756}# (vector-ref #{x 32715}# 2)))
+ (let ((#{m1 32757}# (car #{w 32239}#))
+ (#{s1 32758}# (cdr #{w 32239}#)))
+ (if (null? #{m1 32757}#)
+ (if (null? #{s1 32758}#)
+ #{w2 32756}#
+ (cons (car #{w2 32756}#)
+ (let ((#{m2 32773}#
+ (cdr #{w2 32756}#)))
+ (if (null? #{m2 32773}#)
+ #{s1 32758}#
(append
- #{s1 32761}#
- #{m2 32776}#)))))
- (cons (let ((#{m2 32784}# (car #{w2 32759}#)))
- (if (null? #{m2 32784}#)
- #{m1 32760}#
- (append #{m1 32760}# #{m2 32784}#)))
- (let ((#{m2 32792}# (cdr #{w2 32759}#)))
- (if (null? #{m2 32792}#)
- #{s1 32761}#
+ #{s1 32758}#
+ #{m2 32773}#)))))
+ (cons (let ((#{m2 32781}# (car #{w2 32756}#)))
+ (if (null? #{m2 32781}#)
+ #{m1 32757}#
+ (append #{m1 32757}# #{m2 32781}#)))
+ (let ((#{m2 32789}# (cdr #{w2 32756}#)))
+ (if (null? #{m2 32789}#)
+ #{s1 32758}#
(append
- #{s1 32761}#
- #{m2 32792}#))))))))
- (#{module 32752}# (vector-ref #{x 32718}# 3)))
+ #{s1 32758}#
+ #{m2 32789}#))))))))
+ (#{module 32749}# (vector-ref #{x 32715}# 3)))
(vector
'syntax-object
- #{expression 32750}#
- #{wrap 32751}#
- #{module 32752}#))
- (if (null? #{x 32718}#)
- #{x 32718}#
+ #{expression 32747}#
+ #{wrap 32748}#
+ #{module 32749}#))
+ (if (null? #{x 32715}#)
+ #{x 32715}#
(vector
'syntax-object
- #{x 32718}#
- #{w 32242}#
- #{mod 32244}#))))))))))
- (#{eval-local-transformer 4381}#
- (lambda (#{expanded 32810}# #{mod 32811}#)
- (let ((#{p 32812}# (primitive-eval #{expanded 32810}#)))
- (if (procedure? #{p 32812}#)
- #{p 32812}#
+ #{x 32715}#
+ #{w 32239}#
+ #{mod 32241}#))))))))))
+ (#{eval-local-transformer 4379}#
+ (lambda (#{expanded 32807}# #{mod 32808}#)
+ (let ((#{p 32809}# (primitive-eval #{expanded 32807}#)))
+ (if (procedure? #{p 32809}#)
+ #{p 32809}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 32812}#)))))
- (#{ellipsis? 4383}#
- (lambda (#{x 5834}#)
- (if (if (if (vector? #{x 5834}#)
- (if (= (vector-length #{x 5834}#) 4)
- (eq? (vector-ref #{x 5834}# 0) 'syntax-object)
+ #{p 32809}#)))))
+ (#{ellipsis? 4381}#
+ (lambda (#{x 5832}#)
+ (if (if (if (vector? #{x 5832}#)
+ (if (= (vector-length #{x 5832}#) 4)
+ (eq? (vector-ref #{x 5832}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5834}# 1))
+ (symbol? (vector-ref #{x 5832}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 5834}#
+ (#{free-id=? 4361}#
+ #{x 5832}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2263"))
+ #(ribcage #(x) #((top)) #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -6534,350 +6517,350 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f)))
- (#{lambda-formals 4384}#
- (lambda (#{orig-args 32817}#)
+ (#{lambda-formals 4382}#
+ (lambda (#{orig-args 32814}#)
(letrec*
- ((#{req 32818}#
- (lambda (#{args 32822}# #{rreq 32823}#)
- (let ((#{tmp 32825}# ($sc-dispatch #{args 32822}# '())))
- (if #{tmp 32825}#
+ ((#{req 32815}#
+ (lambda (#{args 32819}# #{rreq 32820}#)
+ (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '())))
+ (if #{tmp 32822}#
(@apply
(lambda ()
- (#{check 32819}# (reverse #{rreq 32823}#) #f))
- #{tmp 32825}#)
- (let ((#{tmp 32941}#
- ($sc-dispatch #{args 32822}# '(any . any))))
- (if (if #{tmp 32941}#
+ (#{check 32816}# (reverse #{rreq 32820}#) #f))
+ #{tmp 32822}#)
+ (let ((#{tmp 32938}#
+ ($sc-dispatch #{args 32819}# '(any . any))))
+ (if (if #{tmp 32938}#
(@apply
- (lambda (#{a 32945}# #{b 32946}#)
- (if (symbol? #{a 32945}#)
+ (lambda (#{a 32942}# #{b 32943}#)
+ (if (symbol? #{a 32942}#)
#t
- (if (if (vector? #{a 32945}#)
- (if (= (vector-length #{a 32945}#) 4)
- (eq? (vector-ref #{a 32945}# 0)
+ (if (if (vector? #{a 32942}#)
+ (if (= (vector-length #{a 32942}#) 4)
+ (eq? (vector-ref #{a 32942}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 32945}# 1))
+ (symbol? (vector-ref #{a 32942}# 1))
#f)))
- #{tmp 32941}#)
+ #{tmp 32938}#)
#f)
(@apply
- (lambda (#{a 32973}# #{b 32974}#)
- (#{req 32818}#
- #{b 32974}#
- (cons #{a 32973}# #{rreq 32823}#)))
- #{tmp 32941}#)
- (let ((#{tmp 32975}# (list #{args 32822}#)))
+ (lambda (#{a 32970}# #{b 32971}#)
+ (#{req 32815}#
+ #{b 32971}#
+ (cons #{a 32970}# #{rreq 32820}#)))
+ #{tmp 32938}#)
+ (let ((#{tmp 32972}# (list #{args 32819}#)))
(if (@apply
- (lambda (#{r 32977}#)
- (if (symbol? #{r 32977}#)
+ (lambda (#{r 32974}#)
+ (if (symbol? #{r 32974}#)
#t
- (if (if (vector? #{r 32977}#)
- (if (= (vector-length #{r 32977}#) 4)
- (eq? (vector-ref #{r 32977}# 0)
+ (if (if (vector? #{r 32974}#)
+ (if (= (vector-length #{r 32974}#) 4)
+ (eq? (vector-ref #{r 32974}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 32977}# 1))
+ (symbol? (vector-ref #{r 32974}# 1))
#f)))
- #{tmp 32975}#)
+ #{tmp 32972}#)
(@apply
- (lambda (#{r 33007}#)
- (#{check 32819}#
- (reverse #{rreq 32823}#)
- #{r 33007}#))
- #{tmp 32975}#)
+ (lambda (#{r 33004}#)
+ (#{check 32816}#
+ (reverse #{rreq 32820}#)
+ #{r 33004}#))
+ #{tmp 32972}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 32817}#
- #{args 32822}#)))))))))
- (#{check 32819}#
- (lambda (#{req 33131}# #{rest 33132}#)
- (if (#{distinct-bound-ids? 4366}#
- (if #{rest 33132}#
- (cons #{rest 33132}# #{req 33131}#)
- #{req 33131}#))
- (values #{req 33131}# #f #{rest 33132}# #f)
+ #{orig-args 32814}#
+ #{args 32819}#)))))))))
+ (#{check 32816}#
+ (lambda (#{req 33128}# #{rest 33129}#)
+ (if (#{distinct-bound-ids? 4364}#
+ (if #{rest 33129}#
+ (cons #{rest 33129}# #{req 33128}#)
+ #{req 33128}#))
+ (values #{req 33128}# #f #{rest 33129}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 32817}#)))))
- (#{req 32818}# #{orig-args 32817}# '()))))
- (#{chi-simple-lambda 4385}#
- (lambda (#{e 33241}#
- #{r 33242}#
- #{w 33243}#
- #{s 33244}#
- #{mod 33245}#
- #{req 33246}#
- #{rest 33247}#
- #{meta 33248}#
- #{body 33249}#)
- (let ((#{ids 33250}#
- (if #{rest 33247}#
- (append #{req 33246}# (list #{rest 33247}#))
- #{req 33246}#)))
- (let ((#{vars 33251}#
- (map #{gen-var 4389}# #{ids 33250}#)))
- (let ((#{labels 33252}#
- (#{gen-labels 4346}# #{ids 33250}#)))
- (#{build-simple-lambda 4318}#
- #{s 33244}#
- (map syntax->datum #{req 33246}#)
- (if #{rest 33247}#
- (syntax->datum #{rest 33247}#)
+ #{orig-args 32814}#)))))
+ (#{req 32815}# #{orig-args 32814}# '()))))
+ (#{chi-simple-lambda 4383}#
+ (lambda (#{e 33238}#
+ #{r 33239}#
+ #{w 33240}#
+ #{s 33241}#
+ #{mod 33242}#
+ #{req 33243}#
+ #{rest 33244}#
+ #{meta 33245}#
+ #{body 33246}#)
+ (let ((#{ids 33247}#
+ (if #{rest 33244}#
+ (append #{req 33243}# (list #{rest 33244}#))
+ #{req 33243}#)))
+ (let ((#{vars 33248}#
+ (map #{gen-var 4387}# #{ids 33247}#)))
+ (let ((#{labels 33249}#
+ (#{gen-labels 4344}# #{ids 33247}#)))
+ (#{build-simple-lambda 4316}#
+ #{s 33241}#
+ (map syntax->datum #{req 33243}#)
+ (if #{rest 33244}#
+ (syntax->datum #{rest 33244}#)
#f)
- #{vars 33251}#
- #{meta 33248}#
- (#{chi-body 4379}#
- #{body 33249}#
- (let ((#{x 33441}#
+ #{vars 33248}#
+ #{meta 33245}#
+ (#{chi-body 4377}#
+ #{body 33246}#
+ (let ((#{x 33438}#
(begin
- (if (if (pair? #{e 33241}#) #{s 33244}# #f)
- (set-source-properties! #{e 33241}# #{s 33244}#))
- #{e 33241}#)))
- (if (if (null? (car #{w 33243}#))
- (null? (cdr #{w 33243}#))
+ (if (if (pair? #{e 33238}#) #{s 33241}# #f)
+ (set-source-properties! #{e 33238}# #{s 33241}#))
+ #{e 33238}#)))
+ (if (if (null? (car #{w 33240}#))
+ (null? (cdr #{w 33240}#))
#f)
- #{x 33441}#
- (if (if (vector? #{x 33441}#)
- (if (= (vector-length #{x 33441}#) 4)
- (eq? (vector-ref #{x 33441}# 0) 'syntax-object)
+ #{x 33438}#
+ (if (if (vector? #{x 33438}#)
+ (if (= (vector-length #{x 33438}#) 4)
+ (eq? (vector-ref #{x 33438}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 33473}# (vector-ref #{x 33441}# 1))
- (#{wrap 33474}#
- (let ((#{w2 33482}# (vector-ref #{x 33441}# 2)))
- (let ((#{m1 33483}# (car #{w 33243}#))
- (#{s1 33484}# (cdr #{w 33243}#)))
- (if (null? #{m1 33483}#)
- (if (null? #{s1 33484}#)
- #{w2 33482}#
- (cons (car #{w2 33482}#)
- (let ((#{m2 33499}#
- (cdr #{w2 33482}#)))
- (if (null? #{m2 33499}#)
- #{s1 33484}#
+ (let ((#{expression 33470}# (vector-ref #{x 33438}# 1))
+ (#{wrap 33471}#
+ (let ((#{w2 33479}# (vector-ref #{x 33438}# 2)))
+ (let ((#{m1 33480}# (car #{w 33240}#))
+ (#{s1 33481}# (cdr #{w 33240}#)))
+ (if (null? #{m1 33480}#)
+ (if (null? #{s1 33481}#)
+ #{w2 33479}#
+ (cons (car #{w2 33479}#)
+ (let ((#{m2 33496}#
+ (cdr #{w2 33479}#)))
+ (if (null? #{m2 33496}#)
+ #{s1 33481}#
(append
- #{s1 33484}#
- #{m2 33499}#)))))
- (cons (let ((#{m2 33507}#
- (car #{w2 33482}#)))
- (if (null? #{m2 33507}#)
- #{m1 33483}#
+ #{s1 33481}#
+ #{m2 33496}#)))))
+ (cons (let ((#{m2 33504}#
+ (car #{w2 33479}#)))
+ (if (null? #{m2 33504}#)
+ #{m1 33480}#
(append
- #{m1 33483}#
- #{m2 33507}#)))
- (let ((#{m2 33515}#
- (cdr #{w2 33482}#)))
- (if (null? #{m2 33515}#)
- #{s1 33484}#
+ #{m1 33480}#
+ #{m2 33504}#)))
+ (let ((#{m2 33512}#
+ (cdr #{w2 33479}#)))
+ (if (null? #{m2 33512}#)
+ #{s1 33481}#
(append
- #{s1 33484}#
- #{m2 33515}#))))))))
- (#{module 33475}# (vector-ref #{x 33441}# 3)))
+ #{s1 33481}#
+ #{m2 33512}#))))))))
+ (#{module 33472}# (vector-ref #{x 33438}# 3)))
(vector
'syntax-object
- #{expression 33473}#
- #{wrap 33474}#
- #{module 33475}#))
- (if (null? #{x 33441}#)
- #{x 33441}#
+ #{expression 33470}#
+ #{wrap 33471}#
+ #{module 33472}#))
+ (if (null? #{x 33438}#)
+ #{x 33438}#
(vector
'syntax-object
- #{x 33441}#
- #{w 33243}#
- #{mod 33245}#)))))
- (#{extend-var-env 4338}#
- #{labels 33252}#
- #{vars 33251}#
- #{r 33242}#)
- (#{make-binding-wrap 4357}#
- #{ids 33250}#
- #{labels 33252}#
- #{w 33243}#)
- #{mod 33245}#)))))))
- (#{lambda*-formals 4386}#
- (lambda (#{orig-args 33746}#)
+ #{x 33438}#
+ #{w 33240}#
+ #{mod 33242}#)))))
+ (#{extend-var-env 4336}#
+ #{labels 33249}#
+ #{vars 33248}#
+ #{r 33239}#)
+ (#{make-binding-wrap 4355}#
+ #{ids 33247}#
+ #{labels 33249}#
+ #{w 33240}#)
+ #{mod 33242}#)))))))
+ (#{lambda*-formals 4384}#
+ (lambda (#{orig-args 33743}#)
(letrec*
- ((#{req 33747}#
- (lambda (#{args 33754}# #{rreq 33755}#)
- (let ((#{tmp 33757}# ($sc-dispatch #{args 33754}# '())))
- (if #{tmp 33757}#
+ ((#{req 33744}#
+ (lambda (#{args 33751}# #{rreq 33752}#)
+ (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '())))
+ (if #{tmp 33754}#
(@apply
(lambda ()
- (#{check 33751}#
- (reverse #{rreq 33755}#)
+ (#{check 33748}#
+ (reverse #{rreq 33752}#)
'()
#f
'()))
- #{tmp 33757}#)
- (let ((#{tmp 33876}#
- ($sc-dispatch #{args 33754}# '(any . any))))
- (if (if #{tmp 33876}#
+ #{tmp 33754}#)
+ (let ((#{tmp 33873}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33873}#
(@apply
- (lambda (#{a 33880}# #{b 33881}#)
- (if (symbol? #{a 33880}#)
+ (lambda (#{a 33877}# #{b 33878}#)
+ (if (symbol? #{a 33877}#)
#t
- (if (if (vector? #{a 33880}#)
- (if (= (vector-length #{a 33880}#) 4)
- (eq? (vector-ref #{a 33880}# 0)
+ (if (if (vector? #{a 33877}#)
+ (if (= (vector-length #{a 33877}#) 4)
+ (eq? (vector-ref #{a 33877}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33880}# 1))
+ (symbol? (vector-ref #{a 33877}# 1))
#f)))
- #{tmp 33876}#)
+ #{tmp 33873}#)
#f)
(@apply
- (lambda (#{a 33908}# #{b 33909}#)
- (#{req 33747}#
- #{b 33909}#
- (cons #{a 33908}# #{rreq 33755}#)))
- #{tmp 33876}#)
- (let ((#{tmp 33910}#
- ($sc-dispatch #{args 33754}# '(any . any))))
- (if (if #{tmp 33910}#
+ (lambda (#{a 33905}# #{b 33906}#)
+ (#{req 33744}#
+ #{b 33906}#
+ (cons #{a 33905}# #{rreq 33752}#)))
+ #{tmp 33873}#)
+ (let ((#{tmp 33907}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33907}#
(@apply
- (lambda (#{a 33914}# #{b 33915}#)
- (eq? (syntax->datum #{a 33914}#) #:optional))
- #{tmp 33910}#)
+ (lambda (#{a 33911}# #{b 33912}#)
+ (eq? (syntax->datum #{a 33911}#) #:optional))
+ #{tmp 33907}#)
#f)
(@apply
- (lambda (#{a 33916}# #{b 33917}#)
- (#{opt 33748}#
- #{b 33917}#
- (reverse #{rreq 33755}#)
+ (lambda (#{a 33913}# #{b 33914}#)
+ (#{opt 33745}#
+ #{b 33914}#
+ (reverse #{rreq 33752}#)
'()))
- #{tmp 33910}#)
- (let ((#{tmp 33920}#
- ($sc-dispatch #{args 33754}# '(any . any))))
- (if (if #{tmp 33920}#
+ #{tmp 33907}#)
+ (let ((#{tmp 33917}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33917}#
(@apply
- (lambda (#{a 33924}# #{b 33925}#)
- (eq? (syntax->datum #{a 33924}#) #:key))
- #{tmp 33920}#)
+ (lambda (#{a 33921}# #{b 33922}#)
+ (eq? (syntax->datum #{a 33921}#) #:key))
+ #{tmp 33917}#)
#f)
(@apply
- (lambda (#{a 33926}# #{b 33927}#)
- (#{key 33749}#
- #{b 33927}#
- (reverse #{rreq 33755}#)
+ (lambda (#{a 33923}# #{b 33924}#)
+ (#{key 33746}#
+ #{b 33924}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33920}#)
- (let ((#{tmp 33930}#
+ #{tmp 33917}#)
+ (let ((#{tmp 33927}#
($sc-dispatch
- #{args 33754}#
+ #{args 33751}#
'(any any))))
- (if (if #{tmp 33930}#
+ (if (if #{tmp 33927}#
(@apply
- (lambda (#{a 33934}# #{b 33935}#)
- (eq? (syntax->datum #{a 33934}#)
+ (lambda (#{a 33931}# #{b 33932}#)
+ (eq? (syntax->datum #{a 33931}#)
#:rest))
- #{tmp 33930}#)
+ #{tmp 33927}#)
#f)
(@apply
- (lambda (#{a 33936}# #{b 33937}#)
- (#{rest 33750}#
- #{b 33937}#
- (reverse #{rreq 33755}#)
+ (lambda (#{a 33933}# #{b 33934}#)
+ (#{rest 33747}#
+ #{b 33934}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33930}#)
- (let ((#{tmp 33940}# (list #{args 33754}#)))
+ #{tmp 33927}#)
+ (let ((#{tmp 33937}# (list #{args 33751}#)))
(if (@apply
- (lambda (#{r 33942}#)
- (if (symbol? #{r 33942}#)
+ (lambda (#{r 33939}#)
+ (if (symbol? #{r 33939}#)
#t
- (if (if (vector? #{r 33942}#)
+ (if (if (vector? #{r 33939}#)
(if (= (vector-length
- #{r 33942}#)
+ #{r 33939}#)
4)
(eq? (vector-ref
- #{r 33942}#
+ #{r 33939}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33942}# 1))
+ (vector-ref #{r 33939}# 1))
#f)))
- #{tmp 33940}#)
+ #{tmp 33937}#)
(@apply
- (lambda (#{r 33972}#)
- (#{rest 33750}#
- #{r 33972}#
- (reverse #{rreq 33755}#)
+ (lambda (#{r 33969}#)
+ (#{rest 33747}#
+ #{r 33969}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33940}#)
+ #{tmp 33937}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 33746}#
- #{args 33754}#)))))))))))))))
- (#{opt 33748}#
- (lambda (#{args 33991}# #{req 33992}# #{ropt 33993}#)
- (let ((#{tmp 33995}# ($sc-dispatch #{args 33991}# '())))
- (if #{tmp 33995}#
+ #{orig-args 33743}#
+ #{args 33751}#)))))))))))))))
+ (#{opt 33745}#
+ (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#)
+ (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '())))
+ (if #{tmp 33992}#
(@apply
(lambda ()
- (#{check 33751}#
- #{req 33992}#
- (reverse #{ropt 33993}#)
+ (#{check 33748}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
#f
'()))
- #{tmp 33995}#)
- (let ((#{tmp 34116}#
- ($sc-dispatch #{args 33991}# '(any . any))))
- (if (if #{tmp 34116}#
+ #{tmp 33992}#)
+ (let ((#{tmp 34113}#
+ ($sc-dispatch #{args 33988}# '(any . any))))
+ (if (if #{tmp 34113}#
(@apply
- (lambda (#{a 34120}# #{b 34121}#)
- (if (symbol? #{a 34120}#)
+ (lambda (#{a 34117}# #{b 34118}#)
+ (if (symbol? #{a 34117}#)
#t
- (if (if (vector? #{a 34120}#)
- (if (= (vector-length #{a 34120}#) 4)
- (eq? (vector-ref #{a 34120}# 0)
+ (if (if (vector? #{a 34117}#)
+ (if (= (vector-length #{a 34117}#) 4)
+ (eq? (vector-ref #{a 34117}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34120}# 1))
+ (symbol? (vector-ref #{a 34117}# 1))
#f)))
- #{tmp 34116}#)
+ #{tmp 34113}#)
#f)
(@apply
- (lambda (#{a 34148}# #{b 34149}#)
- (#{opt 33748}#
- #{b 34149}#
- #{req 33992}#
- (cons (cons #{a 34148}#
+ (lambda (#{a 34145}# #{b 34146}#)
+ (#{opt 33745}#
+ #{b 34146}#
+ #{req 33989}#
+ (cons (cons #{a 34145}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2402" "i2403"))
+ #("i2400" "i2401"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2392" "i2393" "i2394"))
+ #("i2390" "i2391" "i2392"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2338"
- "i2336"
+ ("i2336"
"i2334"
"i2332"
- "i2330"))
+ "i2330"
+ "i2328"))
#(ribcage
#(orig-args)
#((top))
- #("i2329"))
+ #("i2327"))
#(ribcage
(lambda-var-list
gen-var
@@ -7300,147 +7283,147 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- #{ropt 33993}#)))
- #{tmp 34116}#)
- (let ((#{tmp 34150}#
+ #{ropt 33990}#)))
+ #{tmp 34113}#)
+ (let ((#{tmp 34147}#
($sc-dispatch
- #{args 33991}#
+ #{args 33988}#
'((any any) . any))))
- (if (if #{tmp 34150}#
+ (if (if #{tmp 34147}#
(@apply
- (lambda (#{a 34154}#
- #{init 34155}#
- #{b 34156}#)
- (if (symbol? #{a 34154}#)
+ (lambda (#{a 34151}#
+ #{init 34152}#
+ #{b 34153}#)
+ (if (symbol? #{a 34151}#)
#t
- (if (if (vector? #{a 34154}#)
- (if (= (vector-length #{a 34154}#) 4)
- (eq? (vector-ref #{a 34154}# 0)
+ (if (if (vector? #{a 34151}#)
+ (if (= (vector-length #{a 34151}#) 4)
+ (eq? (vector-ref #{a 34151}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34154}# 1))
+ (symbol? (vector-ref #{a 34151}# 1))
#f)))
- #{tmp 34150}#)
+ #{tmp 34147}#)
#f)
(@apply
- (lambda (#{a 34183}# #{init 34184}# #{b 34185}#)
- (#{opt 33748}#
- #{b 34185}#
- #{req 33992}#
- (cons (list #{a 34183}# #{init 34184}#)
- #{ropt 33993}#)))
- #{tmp 34150}#)
- (let ((#{tmp 34186}#
- ($sc-dispatch #{args 33991}# '(any . any))))
- (if (if #{tmp 34186}#
+ (lambda (#{a 34180}# #{init 34181}# #{b 34182}#)
+ (#{opt 33745}#
+ #{b 34182}#
+ #{req 33989}#
+ (cons (list #{a 34180}# #{init 34181}#)
+ #{ropt 33990}#)))
+ #{tmp 34147}#)
+ (let ((#{tmp 34183}#
+ ($sc-dispatch #{args 33988}# '(any . any))))
+ (if (if #{tmp 34183}#
(@apply
- (lambda (#{a 34190}# #{b 34191}#)
- (eq? (syntax->datum #{a 34190}#) #:key))
- #{tmp 34186}#)
+ (lambda (#{a 34187}# #{b 34188}#)
+ (eq? (syntax->datum #{a 34187}#) #:key))
+ #{tmp 34183}#)
#f)
(@apply
- (lambda (#{a 34192}# #{b 34193}#)
- (#{key 33749}#
- #{b 34193}#
- #{req 33992}#
- (reverse #{ropt 33993}#)
+ (lambda (#{a 34189}# #{b 34190}#)
+ (#{key 33746}#
+ #{b 34190}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 34186}#)
- (let ((#{tmp 34196}#
+ #{tmp 34183}#)
+ (let ((#{tmp 34193}#
($sc-dispatch
- #{args 33991}#
+ #{args 33988}#
'(any any))))
- (if (if #{tmp 34196}#
+ (if (if #{tmp 34193}#
(@apply
- (lambda (#{a 34200}# #{b 34201}#)
- (eq? (syntax->datum #{a 34200}#)
+ (lambda (#{a 34197}# #{b 34198}#)
+ (eq? (syntax->datum #{a 34197}#)
#:rest))
- #{tmp 34196}#)
+ #{tmp 34193}#)
#f)
(@apply
- (lambda (#{a 34202}# #{b 34203}#)
- (#{rest 33750}#
- #{b 34203}#
- #{req 33992}#
- (reverse #{ropt 33993}#)
+ (lambda (#{a 34199}# #{b 34200}#)
+ (#{rest 33747}#
+ #{b 34200}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 34196}#)
- (let ((#{tmp 34206}# (list #{args 33991}#)))
+ #{tmp 34193}#)
+ (let ((#{tmp 34203}# (list #{args 33988}#)))
(if (@apply
- (lambda (#{r 34208}#)
- (if (symbol? #{r 34208}#)
+ (lambda (#{r 34205}#)
+ (if (symbol? #{r 34205}#)
#t
- (if (if (vector? #{r 34208}#)
+ (if (if (vector? #{r 34205}#)
(if (= (vector-length
- #{r 34208}#)
+ #{r 34205}#)
4)
(eq? (vector-ref
- #{r 34208}#
+ #{r 34205}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 34208}# 1))
+ (vector-ref #{r 34205}# 1))
#f)))
- #{tmp 34206}#)
+ #{tmp 34203}#)
(@apply
- (lambda (#{r 34238}#)
- (#{rest 33750}#
- #{r 34238}#
- #{req 33992}#
- (reverse #{ropt 33993}#)
+ (lambda (#{r 34235}#)
+ (#{rest 33747}#
+ #{r 34235}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 34206}#)
+ #{tmp 34203}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 33746}#
- #{args 33991}#)))))))))))))))
- (#{key 33749}#
- (lambda (#{args 34257}#
- #{req 34258}#
- #{opt 34259}#
- #{rkey 34260}#)
- (let ((#{tmp 34262}# ($sc-dispatch #{args 34257}# '())))
- (if #{tmp 34262}#
+ #{orig-args 33743}#
+ #{args 33988}#)))))))))))))))
+ (#{key 33746}#
+ (lambda (#{args 34254}#
+ #{req 34255}#
+ #{opt 34256}#
+ #{rkey 34257}#)
+ (let ((#{tmp 34259}# ($sc-dispatch #{args 34254}# '())))
+ (if #{tmp 34259}#
(@apply
(lambda ()
- (#{check 33751}#
- #{req 34258}#
- #{opt 34259}#
+ (#{check 33748}#
+ #{req 34255}#
+ #{opt 34256}#
#f
- (cons #f (reverse #{rkey 34260}#))))
- #{tmp 34262}#)
- (let ((#{tmp 34384}#
- ($sc-dispatch #{args 34257}# '(any . any))))
- (if (if #{tmp 34384}#
+ (cons #f (reverse #{rkey 34257}#))))
+ #{tmp 34259}#)
+ (let ((#{tmp 34381}#
+ ($sc-dispatch #{args 34254}# '(any . any))))
+ (if (if #{tmp 34381}#
(@apply
- (lambda (#{a 34388}# #{b 34389}#)
- (if (symbol? #{a 34388}#)
+ (lambda (#{a 34385}# #{b 34386}#)
+ (if (symbol? #{a 34385}#)
#t
- (if (if (vector? #{a 34388}#)
- (if (= (vector-length #{a 34388}#) 4)
- (eq? (vector-ref #{a 34388}# 0)
+ (if (if (vector? #{a 34385}#)
+ (if (= (vector-length #{a 34385}#) 4)
+ (eq? (vector-ref #{a 34385}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34388}# 1))
+ (symbol? (vector-ref #{a 34385}# 1))
#f)))
- #{tmp 34384}#)
+ #{tmp 34381}#)
#f)
(@apply
- (lambda (#{a 34416}# #{b 34417}#)
- (let ((#{tmp 34418}#
+ (lambda (#{a 34413}# #{b 34414}#)
+ (let ((#{tmp 34415}#
(symbol->keyword
- (syntax->datum #{a 34416}#))))
- (#{key 33749}#
- #{b 34417}#
- #{req 34258}#
- #{opt 34259}#
- (cons (cons #{tmp 34418}#
- (cons #{a 34416}#
+ (syntax->datum #{a 34413}#))))
+ (#{key 33746}#
+ #{b 34414}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (cons #{tmp 34415}#
+ (cons #{a 34413}#
'(#(syntax-object
#f
((top)
@@ -7448,11 +7431,11 @@
#(ribcage
#(k)
#((top))
- #("i2465"))
+ #("i2463"))
#(ribcage
#(a b)
#((top) (top))
- #("i2459" "i2460"))
+ #("i2457" "i2458"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7460,10 +7443,10 @@
(top)
(top)
(top))
- #("i2448"
- "i2449"
- "i2450"
- "i2451"))
+ #("i2446"
+ "i2447"
+ "i2448"
+ "i2449"))
#(ribcage
(check rest key opt req)
((top)
@@ -7471,15 +7454,15 @@
(top)
(top)
(top))
- ("i2338"
- "i2336"
+ ("i2336"
"i2334"
"i2332"
- "i2330"))
+ "i2330"
+ "i2328"))
#(ribcage
#(orig-args)
#((top))
- #("i2329"))
+ #("i2327"))
#(ribcage
(lambda-var-list
gen-var
@@ -7902,1009 +7885,1009 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))))
- #{rkey 34260}#))))
- #{tmp 34384}#)
- (let ((#{tmp 34421}#
+ #{rkey 34257}#))))
+ #{tmp 34381}#)
+ (let ((#{tmp 34418}#
($sc-dispatch
- #{args 34257}#
+ #{args 34254}#
'((any any) . any))))
- (if (if #{tmp 34421}#
+ (if (if #{tmp 34418}#
(@apply
- (lambda (#{a 34425}#
- #{init 34426}#
- #{b 34427}#)
- (if (symbol? #{a 34425}#)
+ (lambda (#{a 34422}#
+ #{init 34423}#
+ #{b 34424}#)
+ (if (symbol? #{a 34422}#)
#t
- (if (if (vector? #{a 34425}#)
- (if (= (vector-length #{a 34425}#) 4)
- (eq? (vector-ref #{a 34425}# 0)
+ (if (if (vector? #{a 34422}#)
+ (if (= (vector-length #{a 34422}#) 4)
+ (eq? (vector-ref #{a 34422}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34425}# 1))
+ (symbol? (vector-ref #{a 34422}# 1))
#f)))
- #{tmp 34421}#)
+ #{tmp 34418}#)
#f)
(@apply
- (lambda (#{a 34454}# #{init 34455}# #{b 34456}#)
- (let ((#{tmp 34457}#
+ (lambda (#{a 34451}# #{init 34452}# #{b 34453}#)
+ (let ((#{tmp 34454}#
(symbol->keyword
- (syntax->datum #{a 34454}#))))
- (#{key 33749}#
- #{b 34456}#
- #{req 34258}#
- #{opt 34259}#
- (cons (list #{tmp 34457}#
- #{a 34454}#
- #{init 34455}#)
- #{rkey 34260}#))))
- #{tmp 34421}#)
- (let ((#{tmp 34460}#
+ (syntax->datum #{a 34451}#))))
+ (#{key 33746}#
+ #{b 34453}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (list #{tmp 34454}#
+ #{a 34451}#
+ #{init 34452}#)
+ #{rkey 34257}#))))
+ #{tmp 34418}#)
+ (let ((#{tmp 34457}#
($sc-dispatch
- #{args 34257}#
+ #{args 34254}#
'((any any any) . any))))
- (if (if #{tmp 34460}#
+ (if (if #{tmp 34457}#
(@apply
- (lambda (#{a 34464}#
- #{init 34465}#
- #{k 34466}#
- #{b 34467}#)
- (if (if (symbol? #{a 34464}#)
+ (lambda (#{a 34461}#
+ #{init 34462}#
+ #{k 34463}#
+ #{b 34464}#)
+ (if (if (symbol? #{a 34461}#)
#t
- (if (if (vector? #{a 34464}#)
+ (if (if (vector? #{a 34461}#)
(if (= (vector-length
- #{a 34464}#)
+ #{a 34461}#)
4)
(eq? (vector-ref
- #{a 34464}#
+ #{a 34461}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 34464}# 1))
+ (vector-ref #{a 34461}# 1))
#f))
- (keyword? (syntax->datum #{k 34466}#))
+ (keyword? (syntax->datum #{k 34463}#))
#f))
- #{tmp 34460}#)
+ #{tmp 34457}#)
#f)
(@apply
- (lambda (#{a 34494}#
- #{init 34495}#
- #{k 34496}#
- #{b 34497}#)
- (#{key 33749}#
- #{b 34497}#
- #{req 34258}#
- #{opt 34259}#
- (cons (list #{k 34496}#
- #{a 34494}#
- #{init 34495}#)
- #{rkey 34260}#)))
- #{tmp 34460}#)
- (let ((#{tmp 34498}#
- ($sc-dispatch #{args 34257}# '(any))))
- (if (if #{tmp 34498}#
+ (lambda (#{a 34491}#
+ #{init 34492}#
+ #{k 34493}#
+ #{b 34494}#)
+ (#{key 33746}#
+ #{b 34494}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (list #{k 34493}#
+ #{a 34491}#
+ #{init 34492}#)
+ #{rkey 34257}#)))
+ #{tmp 34457}#)
+ (let ((#{tmp 34495}#
+ ($sc-dispatch #{args 34254}# '(any))))
+ (if (if #{tmp 34495}#
(@apply
- (lambda (#{aok 34502}#)
- (eq? (syntax->datum #{aok 34502}#)
+ (lambda (#{aok 34499}#)
+ (eq? (syntax->datum #{aok 34499}#)
#:allow-other-keys))
- #{tmp 34498}#)
+ #{tmp 34495}#)
#f)
(@apply
- (lambda (#{aok 34503}#)
- (#{check 33751}#
- #{req 34258}#
- #{opt 34259}#
+ (lambda (#{aok 34500}#)
+ (#{check 33748}#
+ #{req 34255}#
+ #{opt 34256}#
#f
- (cons #t (reverse #{rkey 34260}#))))
- #{tmp 34498}#)
- (let ((#{tmp 34622}#
+ (cons #t (reverse #{rkey 34257}#))))
+ #{tmp 34495}#)
+ (let ((#{tmp 34619}#
($sc-dispatch
- #{args 34257}#
+ #{args 34254}#
'(any any any))))
- (if (if #{tmp 34622}#
+ (if (if #{tmp 34619}#
(@apply
- (lambda (#{aok 34626}#
- #{a 34627}#
- #{b 34628}#)
+ (lambda (#{aok 34623}#
+ #{a 34624}#
+ #{b 34625}#)
(if (eq? (syntax->datum
- #{aok 34626}#)
+ #{aok 34623}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 34627}#)
+ #{a 34624}#)
#:rest)
#f))
- #{tmp 34622}#)
+ #{tmp 34619}#)
#f)
(@apply
- (lambda (#{aok 34629}#
- #{a 34630}#
- #{b 34631}#)
- (#{rest 33750}#
- #{b 34631}#
- #{req 34258}#
- #{opt 34259}#
+ (lambda (#{aok 34626}#
+ #{a 34627}#
+ #{b 34628}#)
+ (#{rest 33747}#
+ #{b 34628}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #t
- (reverse #{rkey 34260}#))))
- #{tmp 34622}#)
- (let ((#{tmp 34634}#
+ (reverse #{rkey 34257}#))))
+ #{tmp 34619}#)
+ (let ((#{tmp 34631}#
($sc-dispatch
- #{args 34257}#
+ #{args 34254}#
'(any . any))))
- (if (if #{tmp 34634}#
+ (if (if #{tmp 34631}#
(@apply
- (lambda (#{aok 34638}#
- #{r 34639}#)
+ (lambda (#{aok 34635}#
+ #{r 34636}#)
(if (eq? (syntax->datum
- #{aok 34638}#)
+ #{aok 34635}#)
#:allow-other-keys)
- (if (symbol? #{r 34639}#)
+ (if (symbol? #{r 34636}#)
#t
(if (if (vector?
- #{r 34639}#)
+ #{r 34636}#)
(if (= (vector-length
- #{r 34639}#)
+ #{r 34636}#)
4)
(eq? (vector-ref
- #{r 34639}#
+ #{r 34636}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34639}#
+ #{r 34636}#
1))
#f))
#f))
- #{tmp 34634}#)
+ #{tmp 34631}#)
#f)
(@apply
- (lambda (#{aok 34666}# #{r 34667}#)
- (#{rest 33750}#
- #{r 34667}#
- #{req 34258}#
- #{opt 34259}#
+ (lambda (#{aok 34663}# #{r 34664}#)
+ (#{rest 33747}#
+ #{r 34664}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #t
(reverse
- #{rkey 34260}#))))
- #{tmp 34634}#)
- (let ((#{tmp 34670}#
+ #{rkey 34257}#))))
+ #{tmp 34631}#)
+ (let ((#{tmp 34667}#
($sc-dispatch
- #{args 34257}#
+ #{args 34254}#
'(any any))))
- (if (if #{tmp 34670}#
+ (if (if #{tmp 34667}#
(@apply
- (lambda (#{a 34674}#
- #{b 34675}#)
+ (lambda (#{a 34671}#
+ #{b 34672}#)
(eq? (syntax->datum
- #{a 34674}#)
+ #{a 34671}#)
#:rest))
- #{tmp 34670}#)
+ #{tmp 34667}#)
#f)
(@apply
- (lambda (#{a 34676}#
- #{b 34677}#)
- (#{rest 33750}#
- #{b 34677}#
- #{req 34258}#
- #{opt 34259}#
+ (lambda (#{a 34673}#
+ #{b 34674}#)
+ (#{rest 33747}#
+ #{b 34674}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #f
(reverse
- #{rkey 34260}#))))
- #{tmp 34670}#)
- (let ((#{tmp 34680}#
- (list #{args 34257}#)))
+ #{rkey 34257}#))))
+ #{tmp 34667}#)
+ (let ((#{tmp 34677}#
+ (list #{args 34254}#)))
(if (@apply
- (lambda (#{r 34682}#)
+ (lambda (#{r 34679}#)
(if (symbol?
- #{r 34682}#)
+ #{r 34679}#)
#t
(if (if (vector?
- #{r 34682}#)
+ #{r 34679}#)
(if (= (vector-length
- #{r 34682}#)
+ #{r 34679}#)
4)
(eq? (vector-ref
- #{r 34682}#
+ #{r 34679}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34682}#
+ #{r 34679}#
1))
#f)))
- #{tmp 34680}#)
+ #{tmp 34677}#)
(@apply
- (lambda (#{r 34712}#)
- (#{rest 33750}#
- #{r 34712}#
- #{req 34258}#
- #{opt 34259}#
+ (lambda (#{r 34709}#)
+ (#{rest 33747}#
+ #{r 34709}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #f
(reverse
- #{rkey 34260}#))))
- #{tmp 34680}#)
+ #{rkey 34257}#))))
+ #{tmp 34677}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 33746}#
- #{args 34257}#)))))))))))))))))))))
- (#{rest 33750}#
- (lambda (#{args 34740}#
- #{req 34741}#
- #{opt 34742}#
- #{kw 34743}#)
- (let ((#{tmp 34745}# (list #{args 34740}#)))
+ #{orig-args 33743}#
+ #{args 34254}#)))))))))))))))))))))
+ (#{rest 33747}#
+ (lambda (#{args 34737}#
+ #{req 34738}#
+ #{opt 34739}#
+ #{kw 34740}#)
+ (let ((#{tmp 34742}# (list #{args 34737}#)))
(if (@apply
- (lambda (#{r 34747}#)
- (if (symbol? #{r 34747}#)
+ (lambda (#{r 34744}#)
+ (if (symbol? #{r 34744}#)
#t
- (if (if (vector? #{r 34747}#)
- (if (= (vector-length #{r 34747}#) 4)
- (eq? (vector-ref #{r 34747}# 0)
+ (if (if (vector? #{r 34744}#)
+ (if (= (vector-length #{r 34744}#) 4)
+ (eq? (vector-ref #{r 34744}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 34747}# 1))
+ (symbol? (vector-ref #{r 34744}# 1))
#f)))
- #{tmp 34745}#)
+ #{tmp 34742}#)
(@apply
- (lambda (#{r 34777}#)
- (#{check 33751}#
- #{req 34741}#
- #{opt 34742}#
- #{r 34777}#
- #{kw 34743}#))
- #{tmp 34745}#)
+ (lambda (#{r 34774}#)
+ (#{check 33748}#
+ #{req 34738}#
+ #{opt 34739}#
+ #{r 34774}#
+ #{kw 34740}#))
+ #{tmp 34742}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 33746}#
- #{args 34740}#)))))
- (#{check 33751}#
- (lambda (#{req 34905}#
- #{opt 34906}#
- #{rest 34907}#
- #{kw 34908}#)
- (if (#{distinct-bound-ids? 4366}#
+ #{orig-args 33743}#
+ #{args 34737}#)))))
+ (#{check 33748}#
+ (lambda (#{req 34902}#
+ #{opt 34903}#
+ #{rest 34904}#
+ #{kw 34905}#)
+ (if (#{distinct-bound-ids? 4364}#
(append
- #{req 34905}#
- (map car #{opt 34906}#)
- (if #{rest 34907}# (list #{rest 34907}#) '())
- (if (pair? #{kw 34908}#)
- (map cadr (cdr #{kw 34908}#))
+ #{req 34902}#
+ (map car #{opt 34903}#)
+ (if #{rest 34904}# (list #{rest 34904}#) '())
+ (if (pair? #{kw 34905}#)
+ (map cadr (cdr #{kw 34905}#))
'())))
(values
- #{req 34905}#
- #{opt 34906}#
- #{rest 34907}#
- #{kw 34908}#)
+ #{req 34902}#
+ #{opt 34903}#
+ #{rest 34904}#
+ #{kw 34905}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 33746}#)))))
- (#{req 33747}# #{orig-args 33746}# '()))))
- (#{chi-lambda-case 4387}#
- (lambda (#{e 35017}#
- #{r 35018}#
- #{w 35019}#
- #{s 35020}#
- #{mod 35021}#
- #{get-formals 35022}#
- #{clauses 35023}#)
+ #{orig-args 33743}#)))))
+ (#{req 33744}# #{orig-args 33743}# '()))))
+ (#{chi-lambda-case 4385}#
+ (lambda (#{e 35014}#
+ #{r 35015}#
+ #{w 35016}#
+ #{s 35017}#
+ #{mod 35018}#
+ #{get-formals 35019}#
+ #{clauses 35020}#)
(letrec*
- ((#{expand-req 35024}#
- (lambda (#{req 35160}#
- #{opt 35161}#
- #{rest 35162}#
- #{kw 35163}#
- #{body 35164}#)
- (let ((#{vars 35165}#
- (map #{gen-var 4389}# #{req 35160}#))
- (#{labels 35166}#
- (#{gen-labels 4346}# #{req 35160}#)))
- (let ((#{r* 35167}#
- (#{extend-var-env 4338}#
- #{labels 35166}#
- #{vars 35165}#
- #{r 35018}#))
- (#{w* 35168}#
- (#{make-binding-wrap 4357}#
- #{req 35160}#
- #{labels 35166}#
- #{w 35019}#)))
- (#{expand-opt 35025}#
- (map syntax->datum #{req 35160}#)
- #{opt 35161}#
- #{rest 35162}#
- #{kw 35163}#
- #{body 35164}#
- (reverse #{vars 35165}#)
- #{r* 35167}#
- #{w* 35168}#
+ ((#{expand-req 35021}#
+ (lambda (#{req 35157}#
+ #{opt 35158}#
+ #{rest 35159}#
+ #{kw 35160}#
+ #{body 35161}#)
+ (let ((#{vars 35162}#
+ (map #{gen-var 4387}# #{req 35157}#))
+ (#{labels 35163}#
+ (#{gen-labels 4344}# #{req 35157}#)))
+ (let ((#{r* 35164}#
+ (#{extend-var-env 4336}#
+ #{labels 35163}#
+ #{vars 35162}#
+ #{r 35015}#))
+ (#{w* 35165}#
+ (#{make-binding-wrap 4355}#
+ #{req 35157}#
+ #{labels 35163}#
+ #{w 35016}#)))
+ (#{expand-opt 35022}#
+ (map syntax->datum #{req 35157}#)
+ #{opt 35158}#
+ #{rest 35159}#
+ #{kw 35160}#
+ #{body 35161}#
+ (reverse #{vars 35162}#)
+ #{r* 35164}#
+ #{w* 35165}#
'()
'())))))
- (#{expand-opt 35025}#
- (lambda (#{req 35404}#
- #{opt 35405}#
- #{rest 35406}#
- #{kw 35407}#
- #{body 35408}#
- #{vars 35409}#
- #{r* 35410}#
- #{w* 35411}#
- #{out 35412}#
- #{inits 35413}#)
- (if (pair? #{opt 35405}#)
- (let ((#{tmp 35414}# (car #{opt 35405}#)))
- (let ((#{tmp 35415}#
- ($sc-dispatch #{tmp 35414}# '(any any))))
- (if #{tmp 35415}#
+ (#{expand-opt 35022}#
+ (lambda (#{req 35401}#
+ #{opt 35402}#
+ #{rest 35403}#
+ #{kw 35404}#
+ #{body 35405}#
+ #{vars 35406}#
+ #{r* 35407}#
+ #{w* 35408}#
+ #{out 35409}#
+ #{inits 35410}#)
+ (if (pair? #{opt 35402}#)
+ (let ((#{tmp 35411}# (car #{opt 35402}#)))
+ (let ((#{tmp 35412}#
+ ($sc-dispatch #{tmp 35411}# '(any any))))
+ (if #{tmp 35412}#
(@apply
- (lambda (#{id 35417}# #{i 35418}#)
- (let ((#{v 35419}#
- (let ((#{id 35427}#
- (if (if (vector? #{id 35417}#)
+ (lambda (#{id 35414}# #{i 35415}#)
+ (let ((#{v 35416}#
+ (let ((#{id 35424}#
+ (if (if (vector? #{id 35414}#)
(if (= (vector-length
- #{id 35417}#)
+ #{id 35414}#)
4)
(eq? (vector-ref
- #{id 35417}#
+ #{id 35414}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35417}# 1)
- #{id 35417}#)))
+ (vector-ref #{id 35414}# 1)
+ #{id 35414}#)))
(gensym
(string-append
- (symbol->string #{id 35427}#)
+ (symbol->string #{id 35424}#)
" ")))))
- (let ((#{l 35420}#
- (#{gen-labels 4346}# (list #{v 35419}#))))
- (let ((#{r** 35421}#
- (#{extend-var-env 4338}#
- #{l 35420}#
- (list #{v 35419}#)
- #{r* 35410}#)))
- (let ((#{w** 35422}#
- (#{make-binding-wrap 4357}#
- (list #{id 35417}#)
- #{l 35420}#
- #{w* 35411}#)))
- (#{expand-opt 35025}#
- #{req 35404}#
- (cdr #{opt 35405}#)
- #{rest 35406}#
- #{kw 35407}#
- #{body 35408}#
- (cons #{v 35419}# #{vars 35409}#)
- #{r** 35421}#
- #{w** 35422}#
- (cons (syntax->datum #{id 35417}#)
- #{out 35412}#)
- (cons (#{chi 4375}#
- #{i 35418}#
- #{r* 35410}#
- #{w* 35411}#
- #{mod 35021}#)
- #{inits 35413}#)))))))
- #{tmp 35415}#)
+ (let ((#{l 35417}#
+ (#{gen-labels 4344}# (list #{v 35416}#))))
+ (let ((#{r** 35418}#
+ (#{extend-var-env 4336}#
+ #{l 35417}#
+ (list #{v 35416}#)
+ #{r* 35407}#)))
+ (let ((#{w** 35419}#
+ (#{make-binding-wrap 4355}#
+ (list #{id 35414}#)
+ #{l 35417}#
+ #{w* 35408}#)))
+ (#{expand-opt 35022}#
+ #{req 35401}#
+ (cdr #{opt 35402}#)
+ #{rest 35403}#
+ #{kw 35404}#
+ #{body 35405}#
+ (cons #{v 35416}# #{vars 35406}#)
+ #{r** 35418}#
+ #{w** 35419}#
+ (cons (syntax->datum #{id 35414}#)
+ #{out 35409}#)
+ (cons (#{chi 4373}#
+ #{i 35415}#
+ #{r* 35407}#
+ #{w* 35408}#
+ #{mod 35018}#)
+ #{inits 35410}#)))))))
+ #{tmp 35412}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 35414}#))))
- (if #{rest 35406}#
- (let ((#{v 35728}#
- (let ((#{id 35738}#
- (if (if (vector? #{rest 35406}#)
- (if (= (vector-length #{rest 35406}#)
+ #{tmp 35411}#))))
+ (if #{rest 35403}#
+ (let ((#{v 35725}#
+ (let ((#{id 35735}#
+ (if (if (vector? #{rest 35403}#)
+ (if (= (vector-length #{rest 35403}#)
4)
- (eq? (vector-ref #{rest 35406}# 0)
+ (eq? (vector-ref #{rest 35403}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 35406}# 1)
- #{rest 35406}#)))
+ (vector-ref #{rest 35403}# 1)
+ #{rest 35403}#)))
(gensym
(string-append
- (symbol->string #{id 35738}#)
+ (symbol->string #{id 35735}#)
" ")))))
- (let ((#{l 35729}#
- (#{gen-labels 4346}# (list #{v 35728}#))))
- (let ((#{r* 35730}#
- (#{extend-var-env 4338}#
- #{l 35729}#
- (list #{v 35728}#)
- #{r* 35410}#)))
- (let ((#{w* 35731}#
- (#{make-binding-wrap 4357}#
- (list #{rest 35406}#)
- #{l 35729}#
- #{w* 35411}#)))
- (#{expand-kw 35026}#
- #{req 35404}#
- (if (pair? #{out 35412}#)
- (reverse #{out 35412}#)
+ (let ((#{l 35726}#
+ (#{gen-labels 4344}# (list #{v 35725}#))))
+ (let ((#{r* 35727}#
+ (#{extend-var-env 4336}#
+ #{l 35726}#
+ (list #{v 35725}#)
+ #{r* 35407}#)))
+ (let ((#{w* 35728}#
+ (#{make-binding-wrap 4355}#
+ (list #{rest 35403}#)
+ #{l 35726}#
+ #{w* 35408}#)))
+ (#{expand-kw 35023}#
+ #{req 35401}#
+ (if (pair? #{out 35409}#)
+ (reverse #{out 35409}#)
#f)
- (syntax->datum #{rest 35406}#)
- (if (pair? #{kw 35407}#)
- (cdr #{kw 35407}#)
- #{kw 35407}#)
- #{body 35408}#
- (cons #{v 35728}# #{vars 35409}#)
- #{r* 35730}#
- #{w* 35731}#
- (if (pair? #{kw 35407}#) (car #{kw 35407}#) #f)
+ (syntax->datum #{rest 35403}#)
+ (if (pair? #{kw 35404}#)
+ (cdr #{kw 35404}#)
+ #{kw 35404}#)
+ #{body 35405}#
+ (cons #{v 35725}# #{vars 35406}#)
+ #{r* 35727}#
+ #{w* 35728}#
+ (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
'()
- #{inits 35413}#)))))
- (#{expand-kw 35026}#
- #{req 35404}#
- (if (pair? #{out 35412}#)
- (reverse #{out 35412}#)
+ #{inits 35410}#)))))
+ (#{expand-kw 35023}#
+ #{req 35401}#
+ (if (pair? #{out 35409}#)
+ (reverse #{out 35409}#)
#f)
#f
- (if (pair? #{kw 35407}#)
- (cdr #{kw 35407}#)
- #{kw 35407}#)
- #{body 35408}#
- #{vars 35409}#
- #{r* 35410}#
- #{w* 35411}#
- (if (pair? #{kw 35407}#) (car #{kw 35407}#) #f)
+ (if (pair? #{kw 35404}#)
+ (cdr #{kw 35404}#)
+ #{kw 35404}#)
+ #{body 35405}#
+ #{vars 35406}#
+ #{r* 35407}#
+ #{w* 35408}#
+ (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
'()
- #{inits 35413}#)))))
- (#{expand-kw 35026}#
- (lambda (#{req 35960}#
- #{opt 35961}#
- #{rest 35962}#
- #{kw 35963}#
- #{body 35964}#
- #{vars 35965}#
- #{r* 35966}#
- #{w* 35967}#
- #{aok 35968}#
- #{out 35969}#
- #{inits 35970}#)
- (if (pair? #{kw 35963}#)
- (let ((#{tmp 35971}# (car #{kw 35963}#)))
- (let ((#{tmp 35972}#
- ($sc-dispatch #{tmp 35971}# '(any any any))))
- (if #{tmp 35972}#
+ #{inits 35410}#)))))
+ (#{expand-kw 35023}#
+ (lambda (#{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ #{kw 35960}#
+ #{body 35961}#
+ #{vars 35962}#
+ #{r* 35963}#
+ #{w* 35964}#
+ #{aok 35965}#
+ #{out 35966}#
+ #{inits 35967}#)
+ (if (pair? #{kw 35960}#)
+ (let ((#{tmp 35968}# (car #{kw 35960}#)))
+ (let ((#{tmp 35969}#
+ ($sc-dispatch #{tmp 35968}# '(any any any))))
+ (if #{tmp 35969}#
(@apply
- (lambda (#{k 35974}# #{id 35975}# #{i 35976}#)
- (let ((#{v 35977}#
- (let ((#{id 35985}#
- (if (if (vector? #{id 35975}#)
+ (lambda (#{k 35971}# #{id 35972}# #{i 35973}#)
+ (let ((#{v 35974}#
+ (let ((#{id 35982}#
+ (if (if (vector? #{id 35972}#)
(if (= (vector-length
- #{id 35975}#)
+ #{id 35972}#)
4)
(eq? (vector-ref
- #{id 35975}#
+ #{id 35972}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35975}# 1)
- #{id 35975}#)))
+ (vector-ref #{id 35972}# 1)
+ #{id 35972}#)))
(gensym
(string-append
- (symbol->string #{id 35985}#)
+ (symbol->string #{id 35982}#)
" ")))))
- (let ((#{l 35978}#
- (#{gen-labels 4346}# (list #{v 35977}#))))
- (let ((#{r** 35979}#
- (#{extend-var-env 4338}#
- #{l 35978}#
- (list #{v 35977}#)
- #{r* 35966}#)))
- (let ((#{w** 35980}#
- (#{make-binding-wrap 4357}#
- (list #{id 35975}#)
- #{l 35978}#
- #{w* 35967}#)))
- (#{expand-kw 35026}#
- #{req 35960}#
- #{opt 35961}#
- #{rest 35962}#
- (cdr #{kw 35963}#)
- #{body 35964}#
- (cons #{v 35977}# #{vars 35965}#)
- #{r** 35979}#
- #{w** 35980}#
- #{aok 35968}#
- (cons (list (syntax->datum #{k 35974}#)
- (syntax->datum #{id 35975}#)
- #{v 35977}#)
- #{out 35969}#)
- (cons (#{chi 4375}#
- #{i 35976}#
- #{r* 35966}#
- #{w* 35967}#
- #{mod 35021}#)
- #{inits 35970}#)))))))
- #{tmp 35972}#)
+ (let ((#{l 35975}#
+ (#{gen-labels 4344}# (list #{v 35974}#))))
+ (let ((#{r** 35976}#
+ (#{extend-var-env 4336}#
+ #{l 35975}#
+ (list #{v 35974}#)
+ #{r* 35963}#)))
+ (let ((#{w** 35977}#
+ (#{make-binding-wrap 4355}#
+ (list #{id 35972}#)
+ #{l 35975}#
+ #{w* 35964}#)))
+ (#{expand-kw 35023}#
+ #{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ (cdr #{kw 35960}#)
+ #{body 35961}#
+ (cons #{v 35974}# #{vars 35962}#)
+ #{r** 35976}#
+ #{w** 35977}#
+ #{aok 35965}#
+ (cons (list (syntax->datum #{k 35971}#)
+ (syntax->datum #{id 35972}#)
+ #{v 35974}#)
+ #{out 35966}#)
+ (cons (#{chi 4373}#
+ #{i 35973}#
+ #{r* 35963}#
+ #{w* 35964}#
+ #{mod 35018}#)
+ #{inits 35967}#)))))))
+ #{tmp 35969}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 35971}#))))
- (#{expand-body 35027}#
- #{req 35960}#
- #{opt 35961}#
- #{rest 35962}#
- (if (if #{aok 35968}#
- #{aok 35968}#
- (pair? #{out 35969}#))
- (cons #{aok 35968}# (reverse #{out 35969}#))
+ #{tmp 35968}#))))
+ (#{expand-body 35024}#
+ #{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ (if (if #{aok 35965}#
+ #{aok 35965}#
+ (pair? #{out 35966}#))
+ (cons #{aok 35965}# (reverse #{out 35966}#))
#f)
- #{body 35964}#
- (reverse #{vars 35965}#)
- #{r* 35966}#
- #{w* 35967}#
- (reverse #{inits 35970}#)
+ #{body 35961}#
+ (reverse #{vars 35962}#)
+ #{r* 35963}#
+ #{w* 35964}#
+ (reverse #{inits 35967}#)
'()))))
- (#{expand-body 35027}#
- (lambda (#{req 36295}#
- #{opt 36296}#
- #{rest 36297}#
- #{kw 36298}#
- #{body 36299}#
- #{vars 36300}#
- #{r* 36301}#
- #{w* 36302}#
- #{inits 36303}#
- #{meta 36304}#)
- (let ((#{tmp 36306}#
+ (#{expand-body 35024}#
+ (lambda (#{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ #{body 36296}#
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
+ #{meta 36301}#)
+ (let ((#{tmp 36303}#
($sc-dispatch
- #{body 36299}#
+ #{body 36296}#
'(any any . each-any))))
- (if (if #{tmp 36306}#
+ (if (if #{tmp 36303}#
(@apply
- (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#)
- (string? (syntax->datum #{docstring 36310}#)))
- #{tmp 36306}#)
+ (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#)
+ (string? (syntax->datum #{docstring 36307}#)))
+ #{tmp 36303}#)
#f)
(@apply
- (lambda (#{docstring 36313}# #{e1 36314}# #{e2 36315}#)
- (#{expand-body 35027}#
- #{req 36295}#
- #{opt 36296}#
- #{rest 36297}#
- #{kw 36298}#
- (cons #{e1 36314}# #{e2 36315}#)
- #{vars 36300}#
- #{r* 36301}#
- #{w* 36302}#
- #{inits 36303}#
+ (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#)
+ (#{expand-body 35024}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ (cons #{e1 36311}# #{e2 36312}#)
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
(append
- #{meta 36304}#
+ #{meta 36301}#
(list (cons 'documentation
- (syntax->datum #{docstring 36313}#))))))
- #{tmp 36306}#)
- (let ((#{tmp 36316}#
+ (syntax->datum #{docstring 36310}#))))))
+ #{tmp 36303}#)
+ (let ((#{tmp 36313}#
($sc-dispatch
- #{body 36299}#
+ #{body 36296}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 36316}#
+ (if #{tmp 36313}#
(@apply
- (lambda (#{k 36320}#
- #{v 36321}#
- #{e1 36322}#
- #{e2 36323}#)
- (#{expand-body 35027}#
- #{req 36295}#
- #{opt 36296}#
- #{rest 36297}#
- #{kw 36298}#
- (cons #{e1 36322}# #{e2 36323}#)
- #{vars 36300}#
- #{r* 36301}#
- #{w* 36302}#
- #{inits 36303}#
+ (lambda (#{k 36317}#
+ #{v 36318}#
+ #{e1 36319}#
+ #{e2 36320}#)
+ (#{expand-body 35024}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ (cons #{e1 36319}# #{e2 36320}#)
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
(append
- #{meta 36304}#
+ #{meta 36301}#
(syntax->datum
- (map cons #{k 36320}# #{v 36321}#)))))
- #{tmp 36316}#)
- (let ((#{tmp 36324}#
- ($sc-dispatch #{body 36299}# '(any . each-any))))
- (if #{tmp 36324}#
+ (map cons #{k 36317}# #{v 36318}#)))))
+ #{tmp 36313}#)
+ (let ((#{tmp 36321}#
+ ($sc-dispatch #{body 36296}# '(any . each-any))))
+ (if #{tmp 36321}#
(@apply
- (lambda (#{e1 36328}# #{e2 36329}#)
+ (lambda (#{e1 36325}# #{e2 36326}#)
(values
- #{meta 36304}#
- #{req 36295}#
- #{opt 36296}#
- #{rest 36297}#
- #{kw 36298}#
- #{inits 36303}#
- #{vars 36300}#
- (#{chi-body 4379}#
- (cons #{e1 36328}# #{e2 36329}#)
- (let ((#{x 36341}#
+ #{meta 36301}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ #{inits 36300}#
+ #{vars 36297}#
+ (#{chi-body 4377}#
+ (cons #{e1 36325}# #{e2 36326}#)
+ (let ((#{x 36338}#
(begin
- (if (if (pair? #{e 35017}#)
- #{s 35020}#
+ (if (if (pair? #{e 35014}#)
+ #{s 35017}#
#f)
(set-source-properties!
- #{e 35017}#
- #{s 35020}#))
- #{e 35017}#)))
- (if (if (null? (car #{w 35019}#))
- (null? (cdr #{w 35019}#))
+ #{e 35014}#
+ #{s 35017}#))
+ #{e 35014}#)))
+ (if (if (null? (car #{w 35016}#))
+ (null? (cdr #{w 35016}#))
#f)
- #{x 36341}#
- (if (if (vector? #{x 36341}#)
- (if (= (vector-length #{x 36341}#)
+ #{x 36338}#
+ (if (if (vector? #{x 36338}#)
+ (if (= (vector-length #{x 36338}#)
4)
- (eq? (vector-ref #{x 36341}# 0)
+ (eq? (vector-ref #{x 36338}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36373}#
- (vector-ref #{x 36341}# 1))
- (#{wrap 36374}#
- (let ((#{w2 36382}#
+ (let ((#{expression 36370}#
+ (vector-ref #{x 36338}# 1))
+ (#{wrap 36371}#
+ (let ((#{w2 36379}#
(vector-ref
- #{x 36341}#
+ #{x 36338}#
2)))
- (let ((#{m1 36383}#
- (car #{w 35019}#))
- (#{s1 36384}#
- (cdr #{w 35019}#)))
- (if (null? #{m1 36383}#)
- (if (null? #{s1 36384}#)
- #{w2 36382}#
- (cons (car #{w2 36382}#)
- (let ((#{m2 36399}#
- (cdr #{w2 36382}#)))
- (if (null? #{m2 36399}#)
- #{s1 36384}#
+ (let ((#{m1 36380}#
+ (car #{w 35016}#))
+ (#{s1 36381}#
+ (cdr #{w 35016}#)))
+ (if (null? #{m1 36380}#)
+ (if (null? #{s1 36381}#)
+ #{w2 36379}#
+ (cons (car #{w2 36379}#)
+ (let ((#{m2 36396}#
+ (cdr #{w2 36379}#)))
+ (if (null? #{m2 36396}#)
+ #{s1 36381}#
(append
- #{s1 36384}#
- #{m2 36399}#)))))
- (cons (let ((#{m2 36407}#
- (car #{w2 36382}#)))
- (if (null? #{m2 36407}#)
- #{m1 36383}#
+ #{s1 36381}#
+ #{m2 36396}#)))))
+ (cons (let ((#{m2 36404}#
+ (car #{w2 36379}#)))
+ (if (null? #{m2 36404}#)
+ #{m1 36380}#
(append
- #{m1 36383}#
- #{m2 36407}#)))
- (let ((#{m2 36415}#
- (cdr #{w2 36382}#)))
- (if (null? #{m2 36415}#)
- #{s1 36384}#
+ #{m1 36380}#
+ #{m2 36404}#)))
+ (let ((#{m2 36412}#
+ (cdr #{w2 36379}#)))
+ (if (null? #{m2 36412}#)
+ #{s1 36381}#
(append
- #{s1 36384}#
- #{m2 36415}#))))))))
- (#{module 36375}#
- (vector-ref #{x 36341}# 3)))
+ #{s1 36381}#
+ #{m2 36412}#))))))))
+ (#{module 36372}#
+ (vector-ref #{x 36338}# 3)))
(vector
'syntax-object
- #{expression 36373}#
- #{wrap 36374}#
- #{module 36375}#))
- (if (null? #{x 36341}#)
- #{x 36341}#
+ #{expression 36370}#
+ #{wrap 36371}#
+ #{module 36372}#))
+ (if (null? #{x 36338}#)
+ #{x 36338}#
(vector
'syntax-object
- #{x 36341}#
- #{w 35019}#
- #{mod 35021}#)))))
- #{r* 36301}#
- #{w* 36302}#
- #{mod 35021}#)))
- #{tmp 36324}#)
+ #{x 36338}#
+ #{w 35016}#
+ #{mod 35018}#)))))
+ #{r* 36298}#
+ #{w* 36299}#
+ #{mod 35018}#)))
+ #{tmp 36321}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 36299}#))))))))))
- (let ((#{tmp 35029}#
- ($sc-dispatch #{clauses 35023}# '())))
- (if #{tmp 35029}#
+ #{body 36296}#))))))))))
+ (let ((#{tmp 35026}#
+ ($sc-dispatch #{clauses 35020}# '())))
+ (if #{tmp 35026}#
(@apply
(lambda () (values '() #f))
- #{tmp 35029}#)
- (let ((#{tmp 35034}#
+ #{tmp 35026}#)
+ (let ((#{tmp 35031}#
($sc-dispatch
- #{clauses 35023}#
+ #{clauses 35020}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 35034}#
+ (if #{tmp 35031}#
(@apply
- (lambda (#{args 35038}#
- #{e1 35039}#
- #{e2 35040}#
- #{args* 35041}#
- #{e1* 35042}#
- #{e2* 35043}#)
+ (lambda (#{args 35035}#
+ #{e1 35036}#
+ #{e2 35037}#
+ #{args* 35038}#
+ #{e1* 35039}#
+ #{e2* 35040}#)
(call-with-values
(lambda ()
- (#{get-formals 35022}# #{args 35038}#))
- (lambda (#{req 35044}#
- #{opt 35045}#
- #{rest 35046}#
- #{kw 35047}#)
+ (#{get-formals 35019}# #{args 35035}#))
+ (lambda (#{req 35041}#
+ #{opt 35042}#
+ #{rest 35043}#
+ #{kw 35044}#)
(call-with-values
(lambda ()
- (#{expand-req 35024}#
- #{req 35044}#
- #{opt 35045}#
- #{rest 35046}#
- #{kw 35047}#
- (cons #{e1 35039}# #{e2 35040}#)))
- (lambda (#{meta 35116}#
- #{req 35117}#
- #{opt 35118}#
- #{rest 35119}#
- #{kw 35120}#
- #{inits 35121}#
- #{vars 35122}#
- #{body 35123}#)
+ (#{expand-req 35021}#
+ #{req 35041}#
+ #{opt 35042}#
+ #{rest 35043}#
+ #{kw 35044}#
+ (cons #{e1 35036}# #{e2 35037}#)))
+ (lambda (#{meta 35113}#
+ #{req 35114}#
+ #{opt 35115}#
+ #{rest 35116}#
+ #{kw 35117}#
+ #{inits 35118}#
+ #{vars 35119}#
+ #{body 35120}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 35017}#
- #{r 35018}#
- #{w 35019}#
- #{s 35020}#
- #{mod 35021}#
- #{get-formals 35022}#
- (map (lambda (#{tmp 2808 35124}#
- #{tmp 2807 35125}#
- #{tmp 2806 35126}#)
- (cons #{tmp 2806 35126}#
- (cons #{tmp 2807 35125}#
- #{tmp 2808 35124}#)))
- #{e2* 35043}#
- #{e1* 35042}#
- #{args* 35041}#)))
- (lambda (#{meta* 35127}# #{else* 35128}#)
+ (#{chi-lambda-case 4385}#
+ #{e 35014}#
+ #{r 35015}#
+ #{w 35016}#
+ #{s 35017}#
+ #{mod 35018}#
+ #{get-formals 35019}#
+ (map (lambda (#{tmp 2806 35121}#
+ #{tmp 2805 35122}#
+ #{tmp 2804 35123}#)
+ (cons #{tmp 2804 35123}#
+ (cons #{tmp 2805 35122}#
+ #{tmp 2806 35121}#)))
+ #{e2* 35040}#
+ #{e1* 35039}#
+ #{args* 35038}#)))
+ (lambda (#{meta* 35124}# #{else* 35125}#)
(values
- (append #{meta 35116}# #{meta* 35127}#)
+ (append #{meta 35113}# #{meta* 35124}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{s 35020}#
- #{req 35117}#
- #{opt 35118}#
- #{rest 35119}#
- #{kw 35120}#
- #{inits 35121}#
- #{vars 35122}#
- #{body 35123}#
- #{else* 35128}#)))))))))
- #{tmp 35034}#)
+ #{s 35017}#
+ #{req 35114}#
+ #{opt 35115}#
+ #{rest 35116}#
+ #{kw 35117}#
+ #{inits 35118}#
+ #{vars 35119}#
+ #{body 35120}#
+ #{else* 35125}#)))))))))
+ #{tmp 35031}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 35023}#))))))))
- (#{strip 4388}#
- (lambda (#{x 36442}# #{w 36443}#)
- (if (memq 'top (car #{w 36443}#))
- #{x 36442}#
+ #{clauses 35020}#))))))))
+ (#{strip 4386}#
+ (lambda (#{x 36439}# #{w 36440}#)
+ (if (memq 'top (car #{w 36440}#))
+ #{x 36439}#
(letrec*
- ((#{f 36444}#
- (lambda (#{x 36447}#)
- (if (if (vector? #{x 36447}#)
- (if (= (vector-length #{x 36447}#) 4)
- (eq? (vector-ref #{x 36447}# 0) 'syntax-object)
+ ((#{f 36441}#
+ (lambda (#{x 36444}#)
+ (if (if (vector? #{x 36444}#)
+ (if (= (vector-length #{x 36444}#) 4)
+ (eq? (vector-ref #{x 36444}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4388}#
- (vector-ref #{x 36447}# 1)
- (vector-ref #{x 36447}# 2))
- (if (pair? #{x 36447}#)
- (let ((#{a 36466}# (#{f 36444}# (car #{x 36447}#)))
- (#{d 36467}# (#{f 36444}# (cdr #{x 36447}#))))
- (if (if (eq? #{a 36466}# (car #{x 36447}#))
- (eq? #{d 36467}# (cdr #{x 36447}#))
+ (#{strip 4386}#
+ (vector-ref #{x 36444}# 1)
+ (vector-ref #{x 36444}# 2))
+ (if (pair? #{x 36444}#)
+ (let ((#{a 36463}# (#{f 36441}# (car #{x 36444}#)))
+ (#{d 36464}# (#{f 36441}# (cdr #{x 36444}#))))
+ (if (if (eq? #{a 36463}# (car #{x 36444}#))
+ (eq? #{d 36464}# (cdr #{x 36444}#))
#f)
- #{x 36447}#
- (cons #{a 36466}# #{d 36467}#)))
- (if (vector? #{x 36447}#)
- (let ((#{old 36470}# (vector->list #{x 36447}#)))
- (let ((#{new 36471}# (map #{f 36444}# #{old 36470}#)))
+ #{x 36444}#
+ (cons #{a 36463}# #{d 36464}#)))
+ (if (vector? #{x 36444}#)
+ (let ((#{old 36467}# (vector->list #{x 36444}#)))
+ (let ((#{new 36468}# (map #{f 36441}# #{old 36467}#)))
(letrec*
- ((#{lp 36472}#
- (lambda (#{l1 36569}# #{l2 36570}#)
- (if (null? #{l1 36569}#)
- #{x 36447}#
- (if (eq? (car #{l1 36569}#)
- (car #{l2 36570}#))
- (#{lp 36472}#
- (cdr #{l1 36569}#)
- (cdr #{l2 36570}#))
- (list->vector #{new 36471}#))))))
- (#{lp 36472}# #{old 36470}# #{new 36471}#))))
- #{x 36447}#))))))
- (#{f 36444}# #{x 36442}#)))))
- (#{gen-var 4389}#
- (lambda (#{id 35172}#)
- (let ((#{id 35173}#
- (if (if (vector? #{id 35172}#)
- (if (= (vector-length #{id 35172}#) 4)
- (eq? (vector-ref #{id 35172}# 0) 'syntax-object)
+ ((#{lp 36469}#
+ (lambda (#{l1 36566}# #{l2 36567}#)
+ (if (null? #{l1 36566}#)
+ #{x 36444}#
+ (if (eq? (car #{l1 36566}#)
+ (car #{l2 36567}#))
+ (#{lp 36469}#
+ (cdr #{l1 36566}#)
+ (cdr #{l2 36567}#))
+ (list->vector #{new 36468}#))))))
+ (#{lp 36469}# #{old 36467}# #{new 36468}#))))
+ #{x 36444}#))))))
+ (#{f 36441}# #{x 36439}#)))))
+ (#{gen-var 4387}#
+ (lambda (#{id 35169}#)
+ (let ((#{id 35170}#
+ (if (if (vector? #{id 35169}#)
+ (if (= (vector-length #{id 35169}#) 4)
+ (eq? (vector-ref #{id 35169}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 35172}# 1)
- #{id 35172}#)))
+ (vector-ref #{id 35169}# 1)
+ #{id 35169}#)))
(gensym
- (string-append (symbol->string #{id 35173}#) " ")))))
- (#{lambda-var-list 4390}#
- (lambda (#{vars 36571}#)
+ (string-append (symbol->string #{id 35170}#) " ")))))
+ (#{lambda-var-list 4388}#
+ (lambda (#{vars 36568}#)
(letrec*
- ((#{lvl 36572}#
- (lambda (#{vars 36575}# #{ls 36576}# #{w 36577}#)
- (if (pair? #{vars 36575}#)
- (#{lvl 36572}#
- (cdr #{vars 36575}#)
- (cons (let ((#{x 36581}# (car #{vars 36575}#)))
- (if (if (null? (car #{w 36577}#))
- (null? (cdr #{w 36577}#))
+ ((#{lvl 36569}#
+ (lambda (#{vars 36572}# #{ls 36573}# #{w 36574}#)
+ (if (pair? #{vars 36572}#)
+ (#{lvl 36569}#
+ (cdr #{vars 36572}#)
+ (cons (let ((#{x 36578}# (car #{vars 36572}#)))
+ (if (if (null? (car #{w 36574}#))
+ (null? (cdr #{w 36574}#))
#f)
- #{x 36581}#
- (if (if (vector? #{x 36581}#)
- (if (= (vector-length #{x 36581}#) 4)
- (eq? (vector-ref #{x 36581}# 0)
+ #{x 36578}#
+ (if (if (vector? #{x 36578}#)
+ (if (= (vector-length #{x 36578}#) 4)
+ (eq? (vector-ref #{x 36578}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36599}#
- (vector-ref #{x 36581}# 1))
- (#{wrap 36600}#
- (let ((#{w2 36608}#
- (vector-ref #{x 36581}# 2)))
- (let ((#{m1 36609}# (car #{w 36577}#))
- (#{s1 36610}# (cdr #{w 36577}#)))
- (if (null? #{m1 36609}#)
- (if (null? #{s1 36610}#)
- #{w2 36608}#
- (cons (car #{w2 36608}#)
- (let ((#{m2 36625}#
- (cdr #{w2 36608}#)))
- (if (null? #{m2 36625}#)
- #{s1 36610}#
+ (let ((#{expression 36596}#
+ (vector-ref #{x 36578}# 1))
+ (#{wrap 36597}#
+ (let ((#{w2 36605}#
+ (vector-ref #{x 36578}# 2)))
+ (let ((#{m1 36606}# (car #{w 36574}#))
+ (#{s1 36607}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36606}#)
+ (if (null? #{s1 36607}#)
+ #{w2 36605}#
+ (cons (car #{w2 36605}#)
+ (let ((#{m2 36622}#
+ (cdr #{w2 36605}#)))
+ (if (null? #{m2 36622}#)
+ #{s1 36607}#
(append
- #{s1 36610}#
- #{m2 36625}#)))))
- (cons (let ((#{m2 36633}#
- (car #{w2 36608}#)))
- (if (null? #{m2 36633}#)
- #{m1 36609}#
+ #{s1 36607}#
+ #{m2 36622}#)))))
+ (cons (let ((#{m2 36630}#
+ (car #{w2 36605}#)))
+ (if (null? #{m2 36630}#)
+ #{m1 36606}#
(append
- #{m1 36609}#
- #{m2 36633}#)))
- (let ((#{m2 36641}#
- (cdr #{w2 36608}#)))
- (if (null? #{m2 36641}#)
- #{s1 36610}#
+ #{m1 36606}#
+ #{m2 36630}#)))
+ (let ((#{m2 36638}#
+ (cdr #{w2 36605}#)))
+ (if (null? #{m2 36638}#)
+ #{s1 36607}#
(append
- #{s1 36610}#
- #{m2 36641}#))))))))
- (#{module 36601}#
- (vector-ref #{x 36581}# 3)))
+ #{s1 36607}#
+ #{m2 36638}#))))))))
+ (#{module 36598}#
+ (vector-ref #{x 36578}# 3)))
(vector
'syntax-object
- #{expression 36599}#
- #{wrap 36600}#
- #{module 36601}#))
- (if (null? #{x 36581}#)
- #{x 36581}#
+ #{expression 36596}#
+ #{wrap 36597}#
+ #{module 36598}#))
+ (if (null? #{x 36578}#)
+ #{x 36578}#
(vector
'syntax-object
- #{x 36581}#
- #{w 36577}#
+ #{x 36578}#
+ #{w 36574}#
#f)))))
- #{ls 36576}#)
- #{w 36577}#)
- (if (if (symbol? #{vars 36575}#)
+ #{ls 36573}#)
+ #{w 36574}#)
+ (if (if (symbol? #{vars 36572}#)
#t
- (if (if (vector? #{vars 36575}#)
- (if (= (vector-length #{vars 36575}#) 4)
- (eq? (vector-ref #{vars 36575}# 0)
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{vars 36575}# 1))
+ (symbol? (vector-ref #{vars 36572}# 1))
#f))
- (cons (if (if (null? (car #{w 36577}#))
- (null? (cdr #{w 36577}#))
+ (cons (if (if (null? (car #{w 36574}#))
+ (null? (cdr #{w 36574}#))
#f)
- #{vars 36575}#
- (if (if (vector? #{vars 36575}#)
- (if (= (vector-length #{vars 36575}#) 4)
- (eq? (vector-ref #{vars 36575}# 0)
+ #{vars 36572}#
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36711}#
- (vector-ref #{vars 36575}# 1))
- (#{wrap 36712}#
- (let ((#{w2 36722}#
- (vector-ref #{vars 36575}# 2)))
- (let ((#{m1 36723}# (car #{w 36577}#))
- (#{s1 36724}# (cdr #{w 36577}#)))
- (if (null? #{m1 36723}#)
- (if (null? #{s1 36724}#)
- #{w2 36722}#
- (cons (car #{w2 36722}#)
- (let ((#{m2 36741}#
- (cdr #{w2 36722}#)))
- (if (null? #{m2 36741}#)
- #{s1 36724}#
+ (let ((#{expression 36708}#
+ (vector-ref #{vars 36572}# 1))
+ (#{wrap 36709}#
+ (let ((#{w2 36719}#
+ (vector-ref #{vars 36572}# 2)))
+ (let ((#{m1 36720}# (car #{w 36574}#))
+ (#{s1 36721}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36720}#)
+ (if (null? #{s1 36721}#)
+ #{w2 36719}#
+ (cons (car #{w2 36719}#)
+ (let ((#{m2 36738}#
+ (cdr #{w2 36719}#)))
+ (if (null? #{m2 36738}#)
+ #{s1 36721}#
(append
- #{s1 36724}#
- #{m2 36741}#)))))
- (cons (let ((#{m2 36749}#
- (car #{w2 36722}#)))
- (if (null? #{m2 36749}#)
- #{m1 36723}#
+ #{s1 36721}#
+ #{m2 36738}#)))))
+ (cons (let ((#{m2 36746}#
+ (car #{w2 36719}#)))
+ (if (null? #{m2 36746}#)
+ #{m1 36720}#
(append
- #{m1 36723}#
- #{m2 36749}#)))
- (let ((#{m2 36757}#
- (cdr #{w2 36722}#)))
- (if (null? #{m2 36757}#)
- #{s1 36724}#
+ #{m1 36720}#
+ #{m2 36746}#)))
+ (let ((#{m2 36754}#
+ (cdr #{w2 36719}#)))
+ (if (null? #{m2 36754}#)
+ #{s1 36721}#
(append
- #{s1 36724}#
- #{m2 36757}#))))))))
- (#{module 36713}#
- (vector-ref #{vars 36575}# 3)))
+ #{s1 36721}#
+ #{m2 36754}#))))))))
+ (#{module 36710}#
+ (vector-ref #{vars 36572}# 3)))
(vector
'syntax-object
- #{expression 36711}#
- #{wrap 36712}#
- #{module 36713}#))
- (if (null? #{vars 36575}#)
- #{vars 36575}#
+ #{expression 36708}#
+ #{wrap 36709}#
+ #{module 36710}#))
+ (if (null? #{vars 36572}#)
+ #{vars 36572}#
(vector
'syntax-object
- #{vars 36575}#
- #{w 36577}#
+ #{vars 36572}#
+ #{w 36574}#
#f))))
- #{ls 36576}#)
- (if (null? #{vars 36575}#)
- #{ls 36576}#
- (if (if (vector? #{vars 36575}#)
- (if (= (vector-length #{vars 36575}#) 4)
- (eq? (vector-ref #{vars 36575}# 0)
+ #{ls 36573}#)
+ (if (null? #{vars 36572}#)
+ #{ls 36573}#
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (#{lvl 36572}#
- (vector-ref #{vars 36575}# 1)
- #{ls 36576}#
- (let ((#{w2 36798}# (vector-ref #{vars 36575}# 2)))
- (let ((#{m1 36799}# (car #{w 36577}#))
- (#{s1 36800}# (cdr #{w 36577}#)))
- (if (null? #{m1 36799}#)
- (if (null? #{s1 36800}#)
- #{w2 36798}#
- (cons (car #{w2 36798}#)
- (let ((#{m2 36811}# (cdr #{w2 36798}#)))
- (if (null? #{m2 36811}#)
- #{s1 36800}#
+ (#{lvl 36569}#
+ (vector-ref #{vars 36572}# 1)
+ #{ls 36573}#
+ (let ((#{w2 36795}# (vector-ref #{vars 36572}# 2)))
+ (let ((#{m1 36796}# (car #{w 36574}#))
+ (#{s1 36797}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36796}#)
+ (if (null? #{s1 36797}#)
+ #{w2 36795}#
+ (cons (car #{w2 36795}#)
+ (let ((#{m2 36808}# (cdr #{w2 36795}#)))
+ (if (null? #{m2 36808}#)
+ #{s1 36797}#
(append
- #{s1 36800}#
- #{m2 36811}#)))))
- (cons (let ((#{m2 36819}# (car #{w2 36798}#)))
- (if (null? #{m2 36819}#)
- #{m1 36799}#
- (append #{m1 36799}# #{m2 36819}#)))
- (let ((#{m2 36827}# (cdr #{w2 36798}#)))
- (if (null? #{m2 36827}#)
- #{s1 36800}#
+ #{s1 36797}#
+ #{m2 36808}#)))))
+ (cons (let ((#{m2 36816}# (car #{w2 36795}#)))
+ (if (null? #{m2 36816}#)
+ #{m1 36796}#
+ (append #{m1 36796}# #{m2 36816}#)))
+ (let ((#{m2 36824}# (cdr #{w2 36795}#)))
+ (if (null? #{m2 36824}#)
+ #{s1 36797}#
(append
- #{s1 36800}#
- #{m2 36827}#))))))))
- (cons #{vars 36575}# #{ls 36576}#))))))))
- (#{lvl 36572}# #{vars 36571}# '() '(()))))))
+ #{s1 36797}#
+ #{m2 36824}#))))))))
+ (cons #{vars 36572}# #{ls 36573}#))))))))
+ (#{lvl 36569}# #{vars 36568}# '() '(()))))))
(begin
(module-define!
(current-module)
@@ -8920,2101 +8903,2101 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4341}#
+ (#{global-extend 4339}#
'core
'fluid-let-syntax
- (lambda (#{e 4517}#
- #{r 4518}#
- #{w 4519}#
- #{s 4520}#
- #{mod 4521}#)
- (let ((#{tmp 4523}#
+ (lambda (#{e 4515}#
+ #{r 4516}#
+ #{w 4517}#
+ #{s 4518}#
+ #{mod 4519}#)
+ (let ((#{tmp 4521}#
($sc-dispatch
- #{e 4517}#
+ #{e 4515}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4523}#
+ (if (if #{tmp 4521}#
(@apply
- (lambda (#{var 4527}#
- #{val 4528}#
- #{e1 4529}#
- #{e2 4530}#)
- (#{valid-bound-ids? 4365}# #{var 4527}#))
- #{tmp 4523}#)
+ (lambda (#{var 4525}#
+ #{val 4526}#
+ #{e1 4527}#
+ #{e2 4528}#)
+ (#{valid-bound-ids? 4363}# #{var 4525}#))
+ #{tmp 4521}#)
#f)
(@apply
- (lambda (#{var 4615}#
- #{val 4616}#
- #{e1 4617}#
- #{e2 4618}#)
- (let ((#{names 4619}#
- (map (lambda (#{x 4885}#)
- (#{id-var-name 4362}# #{x 4885}# #{w 4519}#))
- #{var 4615}#)))
+ (lambda (#{var 4613}#
+ #{val 4614}#
+ #{e1 4615}#
+ #{e2 4616}#)
+ (let ((#{names 4617}#
+ (map (lambda (#{x 4883}#)
+ (#{id-var-name 4360}# #{x 4883}# #{w 4517}#))
+ #{var 4613}#)))
(begin
(for-each
- (lambda (#{id 4620}# #{n 4621}#)
- (let ((#{atom-key 4622}#
- (car (let ((#{t 4822}#
- (assq #{n 4621}# #{r 4518}#)))
- (if #{t 4822}#
- (cdr #{t 4822}#)
- (if (symbol? #{n 4621}#)
- (let ((#{t 4827}#
+ (lambda (#{id 4618}# #{n 4619}#)
+ (let ((#{atom-key 4620}#
+ (car (let ((#{t 4820}#
+ (assq #{n 4619}# #{r 4516}#)))
+ (if #{t 4820}#
+ (cdr #{t 4820}#)
+ (if (symbol? #{n 4619}#)
+ (let ((#{t 4825}#
(begin
- (if (if (not #{mod 4521}#)
+ (if (if (not #{mod 4519}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 4621}#))
- (let ((#{v 4864}#
+ #{n 4619}#))
+ (let ((#{v 4862}#
(module-variable
- (if #{mod 4521}#
+ (if #{mod 4519}#
(resolve-module
- (cdr #{mod 4521}#))
+ (cdr #{mod 4519}#))
(current-module))
- #{n 4621}#)))
- (if #{v 4864}#
+ #{n 4619}#)))
+ (if #{v 4862}#
(if (variable-bound?
- #{v 4864}#)
- (let ((#{val 4873}#
+ #{v 4862}#)
+ (let ((#{val 4871}#
(variable-ref
- #{v 4864}#)))
+ #{v 4862}#)))
(if (macro?
- #{val 4873}#)
+ #{val 4871}#)
(if (macro-type
- #{val 4873}#)
+ #{val 4871}#)
(cons (macro-type
- #{val 4873}#)
+ #{val 4871}#)
(macro-binding
- #{val 4873}#))
+ #{val 4871}#))
#f)
#f))
#f)
#f)))))
- (if #{t 4827}#
- #{t 4827}#
+ (if #{t 4825}#
+ #{t 4825}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 4655}# #{atom-key 4622}#))
- (eqv? #{t 4655}# 'displaced-lexical))
+ (if (let ((#{t 4653}# #{atom-key 4620}#))
+ (eqv? #{t 4653}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 4517}#
- (let ((#{x 4727}#
+ #{e 4515}#
+ (let ((#{x 4725}#
(begin
- (if (if (pair? #{id 4620}#)
- #{s 4520}#
+ (if (if (pair? #{id 4618}#)
+ #{s 4518}#
#f)
(set-source-properties!
- #{id 4620}#
- #{s 4520}#))
- #{id 4620}#)))
- (if (if (null? (car #{w 4519}#))
- (null? (cdr #{w 4519}#))
+ #{id 4618}#
+ #{s 4518}#))
+ #{id 4618}#)))
+ (if (if (null? (car #{w 4517}#))
+ (null? (cdr #{w 4517}#))
#f)
- #{x 4727}#
- (if (if (vector? #{x 4727}#)
- (if (= (vector-length #{x 4727}#) 4)
- (eq? (vector-ref #{x 4727}# 0)
+ #{x 4725}#
+ (if (if (vector? #{x 4725}#)
+ (if (= (vector-length #{x 4725}#) 4)
+ (eq? (vector-ref #{x 4725}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 4759}#
- (vector-ref #{x 4727}# 1))
- (#{wrap 4760}#
- (let ((#{w2 4768}#
- (vector-ref #{x 4727}# 2)))
- (let ((#{m1 4769}#
- (car #{w 4519}#))
- (#{s1 4770}#
- (cdr #{w 4519}#)))
- (if (null? #{m1 4769}#)
- (if (null? #{s1 4770}#)
- #{w2 4768}#
- (cons (car #{w2 4768}#)
- (let ((#{m2 4785}#
- (cdr #{w2 4768}#)))
- (if (null? #{m2 4785}#)
- #{s1 4770}#
+ (let ((#{expression 4757}#
+ (vector-ref #{x 4725}# 1))
+ (#{wrap 4758}#
+ (let ((#{w2 4766}#
+ (vector-ref #{x 4725}# 2)))
+ (let ((#{m1 4767}#
+ (car #{w 4517}#))
+ (#{s1 4768}#
+ (cdr #{w 4517}#)))
+ (if (null? #{m1 4767}#)
+ (if (null? #{s1 4768}#)
+ #{w2 4766}#
+ (cons (car #{w2 4766}#)
+ (let ((#{m2 4783}#
+ (cdr #{w2 4766}#)))
+ (if (null? #{m2 4783}#)
+ #{s1 4768}#
(append
- #{s1 4770}#
- #{m2 4785}#)))))
- (cons (let ((#{m2 4793}#
- (car #{w2 4768}#)))
- (if (null? #{m2 4793}#)
- #{m1 4769}#
+ #{s1 4768}#
+ #{m2 4783}#)))))
+ (cons (let ((#{m2 4791}#
+ (car #{w2 4766}#)))
+ (if (null? #{m2 4791}#)
+ #{m1 4767}#
(append
- #{m1 4769}#
- #{m2 4793}#)))
- (let ((#{m2 4801}#
- (cdr #{w2 4768}#)))
- (if (null? #{m2 4801}#)
- #{s1 4770}#
+ #{m1 4767}#
+ #{m2 4791}#)))
+ (let ((#{m2 4799}#
+ (cdr #{w2 4766}#)))
+ (if (null? #{m2 4799}#)
+ #{s1 4768}#
(append
- #{s1 4770}#
- #{m2 4801}#))))))))
- (#{module 4761}#
- (vector-ref #{x 4727}# 3)))
+ #{s1 4768}#
+ #{m2 4799}#))))))))
+ (#{module 4759}#
+ (vector-ref #{x 4725}# 3)))
(vector
'syntax-object
- #{expression 4759}#
- #{wrap 4760}#
- #{module 4761}#))
- (if (null? #{x 4727}#)
- #{x 4727}#
+ #{expression 4757}#
+ #{wrap 4758}#
+ #{module 4759}#))
+ (if (null? #{x 4725}#)
+ #{x 4725}#
(vector
'syntax-object
- #{x 4727}#
- #{w 4519}#
- #{mod 4521}#)))))))))
- #{var 4615}#
- #{names 4619}#)
- (#{chi-body 4379}#
- (cons #{e1 4617}# #{e2 4618}#)
- (let ((#{x 4898}#
+ #{x 4725}#
+ #{w 4517}#
+ #{mod 4519}#)))))))))
+ #{var 4613}#
+ #{names 4617}#)
+ (#{chi-body 4377}#
+ (cons #{e1 4615}# #{e2 4616}#)
+ (let ((#{x 4896}#
(begin
- (if (if (pair? #{e 4517}#) #{s 4520}# #f)
+ (if (if (pair? #{e 4515}#) #{s 4518}# #f)
(set-source-properties!
- #{e 4517}#
- #{s 4520}#))
- #{e 4517}#)))
- (if (if (null? (car #{w 4519}#))
- (null? (cdr #{w 4519}#))
+ #{e 4515}#
+ #{s 4518}#))
+ #{e 4515}#)))
+ (if (if (null? (car #{w 4517}#))
+ (null? (cdr #{w 4517}#))
#f)
- #{x 4898}#
- (if (if (vector? #{x 4898}#)
- (if (= (vector-length #{x 4898}#) 4)
- (eq? (vector-ref #{x 4898}# 0)
+ #{x 4896}#
+ (if (if (vector? #{x 4896}#)
+ (if (= (vector-length #{x 4896}#) 4)
+ (eq? (vector-ref #{x 4896}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 4930}#
- (vector-ref #{x 4898}# 1))
- (#{wrap 4931}#
- (let ((#{w2 4939}#
- (vector-ref #{x 4898}# 2)))
- (let ((#{m1 4940}# (car #{w 4519}#))
- (#{s1 4941}# (cdr #{w 4519}#)))
- (if (null? #{m1 4940}#)
- (if (null? #{s1 4941}#)
- #{w2 4939}#
- (cons (car #{w2 4939}#)
- (let ((#{m2 4956}#
- (cdr #{w2 4939}#)))
- (if (null? #{m2 4956}#)
- #{s1 4941}#
+ (let ((#{expression 4928}#
+ (vector-ref #{x 4896}# 1))
+ (#{wrap 4929}#
+ (let ((#{w2 4937}#
+ (vector-ref #{x 4896}# 2)))
+ (let ((#{m1 4938}# (car #{w 4517}#))
+ (#{s1 4939}# (cdr #{w 4517}#)))
+ (if (null? #{m1 4938}#)
+ (if (null? #{s1 4939}#)
+ #{w2 4937}#
+ (cons (car #{w2 4937}#)
+ (let ((#{m2 4954}#
+ (cdr #{w2 4937}#)))
+ (if (null? #{m2 4954}#)
+ #{s1 4939}#
(append
- #{s1 4941}#
- #{m2 4956}#)))))
- (cons (let ((#{m2 4964}#
- (car #{w2 4939}#)))
- (if (null? #{m2 4964}#)
- #{m1 4940}#
+ #{s1 4939}#
+ #{m2 4954}#)))))
+ (cons (let ((#{m2 4962}#
+ (car #{w2 4937}#)))
+ (if (null? #{m2 4962}#)
+ #{m1 4938}#
(append
- #{m1 4940}#
- #{m2 4964}#)))
- (let ((#{m2 4972}#
- (cdr #{w2 4939}#)))
- (if (null? #{m2 4972}#)
- #{s1 4941}#
+ #{m1 4938}#
+ #{m2 4962}#)))
+ (let ((#{m2 4970}#
+ (cdr #{w2 4937}#)))
+ (if (null? #{m2 4970}#)
+ #{s1 4939}#
(append
- #{s1 4941}#
- #{m2 4972}#))))))))
- (#{module 4932}# (vector-ref #{x 4898}# 3)))
+ #{s1 4939}#
+ #{m2 4970}#))))))))
+ (#{module 4930}# (vector-ref #{x 4896}# 3)))
(vector
'syntax-object
- #{expression 4930}#
- #{wrap 4931}#
- #{module 4932}#))
- (if (null? #{x 4898}#)
- #{x 4898}#
+ #{expression 4928}#
+ #{wrap 4929}#
+ #{module 4930}#))
+ (if (null? #{x 4896}#)
+ #{x 4896}#
(vector
'syntax-object
- #{x 4898}#
- #{w 4519}#
- #{mod 4521}#)))))
- (#{extend-env 4337}#
- #{names 4619}#
- (let ((#{trans-r 5050}#
- (#{macros-only-env 4339}# #{r 4518}#)))
- (map (lambda (#{x 5051}#)
+ #{x 4896}#
+ #{w 4517}#
+ #{mod 4519}#)))))
+ (#{extend-env 4335}#
+ #{names 4617}#
+ (let ((#{trans-r 5048}#
+ (#{macros-only-env 4337}# #{r 4516}#)))
+ (map (lambda (#{x 5049}#)
(cons 'macro
- (#{eval-local-transformer 4381}#
- (#{chi 4375}#
- #{x 5051}#
- #{trans-r 5050}#
- #{w 4519}#
- #{mod 4521}#)
- #{mod 4521}#)))
- #{val 4616}#))
- #{r 4518}#)
- #{w 4519}#
- #{mod 4521}#))))
- #{tmp 4523}#)
+ (#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ #{x 5049}#
+ #{trans-r 5048}#
+ #{w 4517}#
+ #{mod 4519}#)
+ #{mod 4519}#)))
+ #{val 4614}#))
+ #{r 4516}#)
+ #{w 4517}#
+ #{mod 4519}#))))
+ #{tmp 4521}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (let ((#{x 5267}#
+ (let ((#{x 5265}#
(begin
- (if (if (pair? #{e 4517}#) #{s 4520}# #f)
- (set-source-properties! #{e 4517}# #{s 4520}#))
- #{e 4517}#)))
- (if (if (null? (car #{w 4519}#))
- (null? (cdr #{w 4519}#))
+ (if (if (pair? #{e 4515}#) #{s 4518}# #f)
+ (set-source-properties! #{e 4515}# #{s 4518}#))
+ #{e 4515}#)))
+ (if (if (null? (car #{w 4517}#))
+ (null? (cdr #{w 4517}#))
#f)
- #{x 5267}#
- (if (if (vector? #{x 5267}#)
- (if (= (vector-length #{x 5267}#) 4)
- (eq? (vector-ref #{x 5267}# 0) 'syntax-object)
+ #{x 5265}#
+ (if (if (vector? #{x 5265}#)
+ (if (= (vector-length #{x 5265}#) 4)
+ (eq? (vector-ref #{x 5265}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5299}# (vector-ref #{x 5267}# 1))
- (#{wrap 5300}#
- (let ((#{w2 5308}# (vector-ref #{x 5267}# 2)))
- (let ((#{m1 5309}# (car #{w 4519}#))
- (#{s1 5310}# (cdr #{w 4519}#)))
- (if (null? #{m1 5309}#)
- (if (null? #{s1 5310}#)
- #{w2 5308}#
- (cons (car #{w2 5308}#)
- (let ((#{m2 5325}#
- (cdr #{w2 5308}#)))
- (if (null? #{m2 5325}#)
- #{s1 5310}#
+ (let ((#{expression 5297}# (vector-ref #{x 5265}# 1))
+ (#{wrap 5298}#
+ (let ((#{w2 5306}# (vector-ref #{x 5265}# 2)))
+ (let ((#{m1 5307}# (car #{w 4517}#))
+ (#{s1 5308}# (cdr #{w 4517}#)))
+ (if (null? #{m1 5307}#)
+ (if (null? #{s1 5308}#)
+ #{w2 5306}#
+ (cons (car #{w2 5306}#)
+ (let ((#{m2 5323}#
+ (cdr #{w2 5306}#)))
+ (if (null? #{m2 5323}#)
+ #{s1 5308}#
(append
- #{s1 5310}#
- #{m2 5325}#)))))
- (cons (let ((#{m2 5333}# (car #{w2 5308}#)))
- (if (null? #{m2 5333}#)
- #{m1 5309}#
- (append #{m1 5309}# #{m2 5333}#)))
- (let ((#{m2 5341}# (cdr #{w2 5308}#)))
- (if (null? #{m2 5341}#)
- #{s1 5310}#
+ #{s1 5308}#
+ #{m2 5323}#)))))
+ (cons (let ((#{m2 5331}# (car #{w2 5306}#)))
+ (if (null? #{m2 5331}#)
+ #{m1 5307}#
+ (append #{m1 5307}# #{m2 5331}#)))
+ (let ((#{m2 5339}# (cdr #{w2 5306}#)))
+ (if (null? #{m2 5339}#)
+ #{s1 5308}#
(append
- #{s1 5310}#
- #{m2 5341}#))))))))
- (#{module 5301}# (vector-ref #{x 5267}# 3)))
+ #{s1 5308}#
+ #{m2 5339}#))))))))
+ (#{module 5299}# (vector-ref #{x 5265}# 3)))
(vector
'syntax-object
- #{expression 5299}#
- #{wrap 5300}#
- #{module 5301}#))
- (if (null? #{x 5267}#)
- #{x 5267}#
+ #{expression 5297}#
+ #{wrap 5298}#
+ #{module 5299}#))
+ (if (null? #{x 5265}#)
+ #{x 5265}#
(vector
'syntax-object
- #{x 5267}#
- #{w 4519}#
- #{mod 4521}#))))))))))
+ #{x 5265}#
+ #{w 4517}#
+ #{mod 4519}#))))))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5369}#
- #{r 5370}#
- #{w 5371}#
- #{s 5372}#
- #{mod 5373}#)
- (let ((#{tmp 5375}# ($sc-dispatch #{e 5369}# '(_ any))))
- (if #{tmp 5375}#
+ (lambda (#{e 5367}#
+ #{r 5368}#
+ #{w 5369}#
+ #{s 5370}#
+ #{mod 5371}#)
+ (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any))))
+ (if #{tmp 5373}#
(@apply
- (lambda (#{e 5378}#)
- (let ((#{exp 5382}#
- (#{strip 4388}# #{e 5378}# #{w 5371}#)))
+ (lambda (#{e 5376}#)
+ (let ((#{exp 5380}#
+ (#{strip 4386}# #{e 5376}# #{w 5369}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5372}#
- #{exp 5382}#)))
- #{tmp 5375}#)
+ #{s 5370}#
+ #{exp 5380}#)))
+ #{tmp 5373}#)
(syntax-violation
'quote
"bad syntax"
- (let ((#{x 5396}#
+ (let ((#{x 5394}#
(begin
- (if (if (pair? #{e 5369}#) #{s 5372}# #f)
- (set-source-properties! #{e 5369}# #{s 5372}#))
- #{e 5369}#)))
- (if (if (null? (car #{w 5371}#))
- (null? (cdr #{w 5371}#))
+ (if (if (pair? #{e 5367}#) #{s 5370}# #f)
+ (set-source-properties! #{e 5367}# #{s 5370}#))
+ #{e 5367}#)))
+ (if (if (null? (car #{w 5369}#))
+ (null? (cdr #{w 5369}#))
#f)
- #{x 5396}#
- (if (if (vector? #{x 5396}#)
- (if (= (vector-length #{x 5396}#) 4)
- (eq? (vector-ref #{x 5396}# 0) 'syntax-object)
+ #{x 5394}#
+ (if (if (vector? #{x 5394}#)
+ (if (= (vector-length #{x 5394}#) 4)
+ (eq? (vector-ref #{x 5394}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5428}# (vector-ref #{x 5396}# 1))
- (#{wrap 5429}#
- (let ((#{w2 5437}# (vector-ref #{x 5396}# 2)))
- (let ((#{m1 5438}# (car #{w 5371}#))
- (#{s1 5439}# (cdr #{w 5371}#)))
- (if (null? #{m1 5438}#)
- (if (null? #{s1 5439}#)
- #{w2 5437}#
- (cons (car #{w2 5437}#)
- (let ((#{m2 5454}#
- (cdr #{w2 5437}#)))
- (if (null? #{m2 5454}#)
- #{s1 5439}#
+ (let ((#{expression 5426}# (vector-ref #{x 5394}# 1))
+ (#{wrap 5427}#
+ (let ((#{w2 5435}# (vector-ref #{x 5394}# 2)))
+ (let ((#{m1 5436}# (car #{w 5369}#))
+ (#{s1 5437}# (cdr #{w 5369}#)))
+ (if (null? #{m1 5436}#)
+ (if (null? #{s1 5437}#)
+ #{w2 5435}#
+ (cons (car #{w2 5435}#)
+ (let ((#{m2 5452}#
+ (cdr #{w2 5435}#)))
+ (if (null? #{m2 5452}#)
+ #{s1 5437}#
(append
- #{s1 5439}#
- #{m2 5454}#)))))
- (cons (let ((#{m2 5462}#
- (car #{w2 5437}#)))
- (if (null? #{m2 5462}#)
- #{m1 5438}#
+ #{s1 5437}#
+ #{m2 5452}#)))))
+ (cons (let ((#{m2 5460}#
+ (car #{w2 5435}#)))
+ (if (null? #{m2 5460}#)
+ #{m1 5436}#
(append
- #{m1 5438}#
- #{m2 5462}#)))
- (let ((#{m2 5470}#
- (cdr #{w2 5437}#)))
- (if (null? #{m2 5470}#)
- #{s1 5439}#
+ #{m1 5436}#
+ #{m2 5460}#)))
+ (let ((#{m2 5468}#
+ (cdr #{w2 5435}#)))
+ (if (null? #{m2 5468}#)
+ #{s1 5437}#
(append
- #{s1 5439}#
- #{m2 5470}#))))))))
- (#{module 5430}# (vector-ref #{x 5396}# 3)))
+ #{s1 5437}#
+ #{m2 5468}#))))))))
+ (#{module 5428}# (vector-ref #{x 5394}# 3)))
(vector
'syntax-object
- #{expression 5428}#
- #{wrap 5429}#
- #{module 5430}#))
- (if (null? #{x 5396}#)
- #{x 5396}#
+ #{expression 5426}#
+ #{wrap 5427}#
+ #{module 5428}#))
+ (if (null? #{x 5394}#)
+ #{x 5394}#
(vector
'syntax-object
- #{x 5396}#
- #{w 5371}#
- #{mod 5373}#)))))))))))
- (#{global-extend 4341}#
+ #{x 5394}#
+ #{w 5369}#
+ #{mod 5371}#)))))))))))
+ (#{global-extend 4339}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5710}#
- (lambda (#{src 6173}#
- #{e 6174}#
- #{r 6175}#
- #{maps 6176}#
- #{ellipsis? 6177}#
- #{mod 6178}#)
- (if (if (symbol? #{e 6174}#)
+ ((#{gen-syntax 5708}#
+ (lambda (#{src 6171}#
+ #{e 6172}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#)
+ (if (if (symbol? #{e 6172}#)
#t
- (if (if (vector? #{e 6174}#)
- (if (= (vector-length #{e 6174}#) 4)
- (eq? (vector-ref #{e 6174}# 0) 'syntax-object)
+ (if (if (vector? #{e 6172}#)
+ (if (= (vector-length #{e 6172}#) 4)
+ (eq? (vector-ref #{e 6172}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 6174}# 1))
+ (symbol? (vector-ref #{e 6172}# 1))
#f))
- (let ((#{label 6205}#
- (#{id-var-name 4362}# #{e 6174}# '(()))))
- (let ((#{b 6206}#
- (let ((#{t 6343}# (assq #{label 6205}# #{r 6175}#)))
- (if #{t 6343}#
- (cdr #{t 6343}#)
- (if (symbol? #{label 6205}#)
- (let ((#{t 6348}#
+ (let ((#{label 6203}#
+ (#{id-var-name 4360}# #{e 6172}# '(()))))
+ (let ((#{b 6204}#
+ (let ((#{t 6341}# (assq #{label 6203}# #{r 6173}#)))
+ (if #{t 6341}#
+ (cdr #{t 6341}#)
+ (if (symbol? #{label 6203}#)
+ (let ((#{t 6346}#
(begin
- (if (if (not #{mod 6178}#)
+ (if (if (not #{mod 6176}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{label 6205}#))
- (let ((#{v 6385}#
+ #{label 6203}#))
+ (let ((#{v 6383}#
(module-variable
- (if #{mod 6178}#
+ (if #{mod 6176}#
(resolve-module
- (cdr #{mod 6178}#))
+ (cdr #{mod 6176}#))
(current-module))
- #{label 6205}#)))
- (if #{v 6385}#
- (if (variable-bound? #{v 6385}#)
- (let ((#{val 6394}#
+ #{label 6203}#)))
+ (if #{v 6383}#
+ (if (variable-bound? #{v 6383}#)
+ (let ((#{val 6392}#
(variable-ref
- #{v 6385}#)))
- (if (macro? #{val 6394}#)
+ #{v 6383}#)))
+ (if (macro? #{val 6392}#)
(if (macro-type
- #{val 6394}#)
+ #{val 6392}#)
(cons (macro-type
- #{val 6394}#)
+ #{val 6392}#)
(macro-binding
- #{val 6394}#))
+ #{val 6392}#))
#f)
#f))
#f)
#f)))))
- (if #{t 6348}# #{t 6348}# '(global)))
+ (if #{t 6346}# #{t 6346}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 6206}#) 'syntax)
+ (if (eq? (car #{b 6204}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 6239}# (cdr #{b 6206}#)))
- (#{gen-ref 5711}#
- #{src 6173}#
- (car #{var.lev 6239}#)
- (cdr #{var.lev 6239}#)
- #{maps 6176}#)))
- (lambda (#{var 6335}# #{maps 6336}#)
- (values (list 'ref #{var 6335}#) #{maps 6336}#)))
- (if (#{ellipsis? 6177}# #{e 6174}#)
+ (let ((#{var.lev 6237}# (cdr #{b 6204}#)))
+ (#{gen-ref 5709}#
+ #{src 6171}#
+ (car #{var.lev 6237}#)
+ (cdr #{var.lev 6237}#)
+ #{maps 6174}#)))
+ (lambda (#{var 6333}# #{maps 6334}#)
+ (values (list 'ref #{var 6333}#) #{maps 6334}#)))
+ (if (#{ellipsis? 6175}# #{e 6172}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 6173}#)
- (values (list 'quote #{e 6174}#) #{maps 6176}#)))))
- (let ((#{tmp 6406}#
- ($sc-dispatch #{e 6174}# '(any any))))
- (if (if #{tmp 6406}#
+ #{src 6171}#)
+ (values (list 'quote #{e 6172}#) #{maps 6174}#)))))
+ (let ((#{tmp 6404}#
+ ($sc-dispatch #{e 6172}# '(any any))))
+ (if (if #{tmp 6404}#
(@apply
- (lambda (#{dots 6410}# #{e 6411}#)
- (#{ellipsis? 6177}# #{dots 6410}#))
- #{tmp 6406}#)
+ (lambda (#{dots 6408}# #{e 6409}#)
+ (#{ellipsis? 6175}# #{dots 6408}#))
+ #{tmp 6404}#)
#f)
(@apply
- (lambda (#{dots 6412}# #{e 6413}#)
- (#{gen-syntax 5710}#
- #{src 6173}#
- #{e 6413}#
- #{r 6175}#
- #{maps 6176}#
- (lambda (#{x 6414}#) #f)
- #{mod 6178}#))
- #{tmp 6406}#)
- (let ((#{tmp 6415}#
- ($sc-dispatch #{e 6174}# '(any any . any))))
- (if (if #{tmp 6415}#
+ (lambda (#{dots 6410}# #{e 6411}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{e 6411}#
+ #{r 6173}#
+ #{maps 6174}#
+ (lambda (#{x 6412}#) #f)
+ #{mod 6176}#))
+ #{tmp 6404}#)
+ (let ((#{tmp 6413}#
+ ($sc-dispatch #{e 6172}# '(any any . any))))
+ (if (if #{tmp 6413}#
(@apply
- (lambda (#{x 6419}# #{dots 6420}# #{y 6421}#)
- (#{ellipsis? 6177}# #{dots 6420}#))
- #{tmp 6415}#)
+ (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
+ (#{ellipsis? 6175}# #{dots 6418}#))
+ #{tmp 6413}#)
#f)
(@apply
- (lambda (#{x 6422}# #{dots 6423}# #{y 6424}#)
+ (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
(letrec*
- ((#{f 6425}#
- (lambda (#{y 6433}# #{k 6434}#)
- (let ((#{tmp 6436}#
+ ((#{f 6423}#
+ (lambda (#{y 6431}# #{k 6432}#)
+ (let ((#{tmp 6434}#
($sc-dispatch
- #{y 6433}#
+ #{y 6431}#
'(any . any))))
- (if (if #{tmp 6436}#
+ (if (if #{tmp 6434}#
(@apply
- (lambda (#{dots 6440}# #{y 6441}#)
- (#{ellipsis? 6177}#
- #{dots 6440}#))
- #{tmp 6436}#)
+ (lambda (#{dots 6438}# #{y 6439}#)
+ (#{ellipsis? 6175}#
+ #{dots 6438}#))
+ #{tmp 6434}#)
#f)
(@apply
- (lambda (#{dots 6442}# #{y 6443}#)
- (#{f 6425}#
- #{y 6443}#
- (lambda (#{maps 6444}#)
+ (lambda (#{dots 6440}# #{y 6441}#)
+ (#{f 6423}#
+ #{y 6441}#
+ (lambda (#{maps 6442}#)
(call-with-values
(lambda ()
- (#{k 6434}#
- (cons '() #{maps 6444}#)))
- (lambda (#{x 6445}#
- #{maps 6446}#)
- (if (null? (car #{maps 6446}#))
+ (#{k 6432}#
+ (cons '() #{maps 6442}#)))
+ (lambda (#{x 6443}#
+ #{maps 6444}#)
+ (if (null? (car #{maps 6444}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6173}#)
+ #{src 6171}#)
(values
- (let ((#{map-env 6450}#
- (car #{maps 6446}#)))
+ (let ((#{map-env 6448}#
+ (car #{maps 6444}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5713}#
- #{x 6445}#
- #{map-env 6450}#)))
- (cdr #{maps 6446}#))))))))
- #{tmp 6436}#)
+ (#{gen-map 5711}#
+ #{x 6443}#
+ #{map-env 6448}#)))
+ (cdr #{maps 6444}#))))))))
+ #{tmp 6434}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{src 6173}#
- #{y 6433}#
- #{r 6175}#
- #{maps 6176}#
- #{ellipsis? 6177}#
- #{mod 6178}#))
- (lambda (#{y 6453}# #{maps 6454}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{y 6431}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{y 6451}# #{maps 6452}#)
(call-with-values
(lambda ()
- (#{k 6434}# #{maps 6454}#))
- (lambda (#{x 6455}# #{maps 6456}#)
+ (#{k 6432}# #{maps 6452}#))
+ (lambda (#{x 6453}# #{maps 6454}#)
(values
- (if (equal? #{y 6453}# ''())
- #{x 6455}#
+ (if (equal? #{y 6451}# ''())
+ #{x 6453}#
(list 'append
- #{x 6455}#
- #{y 6453}#))
- #{maps 6456}#))))))))))
- (#{f 6425}#
- #{y 6424}#
- (lambda (#{maps 6428}#)
+ #{x 6453}#
+ #{y 6451}#))
+ #{maps 6454}#))))))))))
+ (#{f 6423}#
+ #{y 6422}#
+ (lambda (#{maps 6426}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{src 6173}#
- #{x 6422}#
- #{r 6175}#
- (cons '() #{maps 6428}#)
- #{ellipsis? 6177}#
- #{mod 6178}#))
- (lambda (#{x 6429}# #{maps 6430}#)
- (if (null? (car #{maps 6430}#))
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{x 6420}#
+ #{r 6173}#
+ (cons '() #{maps 6426}#)
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{x 6427}# #{maps 6428}#)
+ (if (null? (car #{maps 6428}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6173}#)
+ #{src 6171}#)
(values
- (#{gen-map 5713}#
- #{x 6429}#
- (car #{maps 6430}#))
- (cdr #{maps 6430}#)))))))))
- #{tmp 6415}#)
- (let ((#{tmp 6472}#
- ($sc-dispatch #{e 6174}# '(any . any))))
- (if #{tmp 6472}#
+ (#{gen-map 5711}#
+ #{x 6427}#
+ (car #{maps 6428}#))
+ (cdr #{maps 6428}#)))))))))
+ #{tmp 6413}#)
+ (let ((#{tmp 6470}#
+ ($sc-dispatch #{e 6172}# '(any . any))))
+ (if #{tmp 6470}#
(@apply
- (lambda (#{x 6476}# #{y 6477}#)
+ (lambda (#{x 6474}# #{y 6475}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{src 6173}#
- #{x 6476}#
- #{r 6175}#
- #{maps 6176}#
- #{ellipsis? 6177}#
- #{mod 6178}#))
- (lambda (#{x 6478}# #{maps 6479}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{x 6474}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{x 6476}# #{maps 6477}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{src 6173}#
- #{y 6477}#
- #{r 6175}#
- #{maps 6479}#
- #{ellipsis? 6177}#
- #{mod 6178}#))
- (lambda (#{y 6480}# #{maps 6481}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{y 6475}#
+ #{r 6173}#
+ #{maps 6477}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{y 6478}# #{maps 6479}#)
(values
- (let ((#{atom-key 6486}#
- (car #{y 6480}#)))
- (if (eqv? #{atom-key 6486}# 'quote)
- (if (eq? (car #{x 6478}#) 'quote)
+ (let ((#{atom-key 6484}#
+ (car #{y 6478}#)))
+ (if (eqv? #{atom-key 6484}# 'quote)
+ (if (eq? (car #{x 6476}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 6478}#))
- (car (cdr #{y 6480}#))))
- (if (eq? (car (cdr #{y 6480}#))
+ (cons (car (cdr #{x 6476}#))
+ (car (cdr #{y 6478}#))))
+ (if (eq? (car (cdr #{y 6478}#))
'())
- (list 'list #{x 6478}#)
+ (list 'list #{x 6476}#)
(list 'cons
- #{x 6478}#
- #{y 6480}#)))
- (if (eqv? #{atom-key 6486}# 'list)
+ #{x 6476}#
+ #{y 6478}#)))
+ (if (eqv? #{atom-key 6484}# 'list)
(cons 'list
- (cons #{x 6478}#
- (cdr #{y 6480}#)))
+ (cons #{x 6476}#
+ (cdr #{y 6478}#)))
(list 'cons
- #{x 6478}#
- #{y 6480}#))))
- #{maps 6481}#))))))
- #{tmp 6472}#)
- (let ((#{tmp 6515}#
+ #{x 6476}#
+ #{y 6478}#))))
+ #{maps 6479}#))))))
+ #{tmp 6470}#)
+ (let ((#{tmp 6513}#
($sc-dispatch
- #{e 6174}#
+ #{e 6172}#
'#(vector (any . each-any)))))
- (if #{tmp 6515}#
+ (if #{tmp 6513}#
(@apply
- (lambda (#{e1 6519}# #{e2 6520}#)
+ (lambda (#{e1 6517}# #{e2 6518}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{src 6173}#
- (cons #{e1 6519}# #{e2 6520}#)
- #{r 6175}#
- #{maps 6176}#
- #{ellipsis? 6177}#
- #{mod 6178}#))
- (lambda (#{e 6521}# #{maps 6522}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ (cons #{e1 6517}# #{e2 6518}#)
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{e 6519}# #{maps 6520}#)
(values
- (if (eq? (car #{e 6521}#) 'list)
- (cons 'vector (cdr #{e 6521}#))
- (if (eq? (car #{e 6521}#) 'quote)
+ (if (eq? (car #{e 6519}#) 'list)
+ (cons 'vector (cdr #{e 6519}#))
+ (if (eq? (car #{e 6519}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 6521}#))))
- (list 'list->vector #{e 6521}#)))
- #{maps 6522}#))))
- #{tmp 6515}#)
+ (car (cdr #{e 6519}#))))
+ (list 'list->vector #{e 6519}#)))
+ #{maps 6520}#))))
+ #{tmp 6513}#)
(values
- (list 'quote #{e 6174}#)
- #{maps 6176}#))))))))))))
- (#{gen-ref 5711}#
- (lambda (#{src 6549}#
- #{var 6550}#
- #{level 6551}#
- #{maps 6552}#)
- (if (= #{level 6551}# 0)
- (values #{var 6550}# #{maps 6552}#)
- (if (null? #{maps 6552}#)
+ (list 'quote #{e 6172}#)
+ #{maps 6174}#))))))))))))
+ (#{gen-ref 5709}#
+ (lambda (#{src 6547}#
+ #{var 6548}#
+ #{level 6549}#
+ #{maps 6550}#)
+ (if (= #{level 6549}# 0)
+ (values #{var 6548}# #{maps 6550}#)
+ (if (null? #{maps 6550}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 6549}#)
+ #{src 6547}#)
(call-with-values
(lambda ()
- (#{gen-ref 5711}#
- #{src 6549}#
- #{var 6550}#
- (#{1-}# #{level 6551}#)
- (cdr #{maps 6552}#)))
- (lambda (#{outer-var 6553}# #{outer-maps 6554}#)
- (let ((#{b 6555}#
- (assq #{outer-var 6553}# (car #{maps 6552}#))))
- (if #{b 6555}#
- (values (cdr #{b 6555}#) #{maps 6552}#)
- (let ((#{inner-var 6557}#
+ (#{gen-ref 5709}#
+ #{src 6547}#
+ #{var 6548}#
+ (#{1-}# #{level 6549}#)
+ (cdr #{maps 6550}#)))
+ (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
+ (let ((#{b 6553}#
+ (assq #{outer-var 6551}# (car #{maps 6550}#))))
+ (if #{b 6553}#
+ (values (cdr #{b 6553}#) #{maps 6550}#)
+ (let ((#{inner-var 6555}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 6557}#
- (cons (cons (cons #{outer-var 6553}#
- #{inner-var 6557}#)
- (car #{maps 6552}#))
- #{outer-maps 6554}#)))))))))))
- (#{gen-map 5713}#
- (lambda (#{e 6571}# #{map-env 6572}#)
- (let ((#{formals 6573}# (map cdr #{map-env 6572}#))
- (#{actuals 6574}#
- (map (lambda (#{x 6576}#)
- (list 'ref (car #{x 6576}#)))
- #{map-env 6572}#)))
- (if (eq? (car #{e 6571}#) 'ref)
- (car #{actuals 6574}#)
+ #{inner-var 6555}#
+ (cons (cons (cons #{outer-var 6551}#
+ #{inner-var 6555}#)
+ (car #{maps 6550}#))
+ #{outer-maps 6552}#)))))))))))
+ (#{gen-map 5711}#
+ (lambda (#{e 6569}# #{map-env 6570}#)
+ (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
+ (#{actuals 6572}#
+ (map (lambda (#{x 6574}#)
+ (list 'ref (car #{x 6574}#)))
+ #{map-env 6570}#)))
+ (if (eq? (car #{e 6569}#) 'ref)
+ (car #{actuals 6572}#)
(if (and-map
- (lambda (#{x 6577}#)
- (if (eq? (car #{x 6577}#) 'ref)
- (memq (car (cdr #{x 6577}#)) #{formals 6573}#)
+ (lambda (#{x 6575}#)
+ (if (eq? (car #{x 6575}#) 'ref)
+ (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
#f))
- (cdr #{e 6571}#))
+ (cdr #{e 6569}#))
(cons 'map
- (cons (list 'primitive (car #{e 6571}#))
- (map (let ((#{r 6579}#
+ (cons (list 'primitive (car #{e 6569}#))
+ (map (let ((#{r 6577}#
(map cons
- #{formals 6573}#
- #{actuals 6574}#)))
- (lambda (#{x 6580}#)
- (cdr (assq (car (cdr #{x 6580}#))
- #{r 6579}#))))
- (cdr #{e 6571}#))))
+ #{formals 6571}#
+ #{actuals 6572}#)))
+ (lambda (#{x 6578}#)
+ (cdr (assq (car (cdr #{x 6578}#))
+ #{r 6577}#))))
+ (cdr #{e 6569}#))))
(cons 'map
- (cons (list 'lambda #{formals 6573}# #{e 6571}#)
- #{actuals 6574}#)))))))
- (#{regen 5717}#
- (lambda (#{x 6582}#)
- (let ((#{atom-key 6583}# (car #{x 6582}#)))
- (if (eqv? #{atom-key 6583}# 'ref)
- (let ((#{name 6593}# (car (cdr #{x 6582}#)))
- (#{var 6594}# (car (cdr #{x 6582}#))))
+ (cons (list 'lambda #{formals 6571}# #{e 6569}#)
+ #{actuals 6572}#)))))))
+ (#{regen 5715}#
+ (lambda (#{x 6580}#)
+ (let ((#{atom-key 6581}# (car #{x 6580}#)))
+ (if (eqv? #{atom-key 6581}# 'ref)
+ (let ((#{name 6591}# (car (cdr #{x 6580}#)))
+ (#{var 6592}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 6593}#
- #{var 6594}#))
- (if (eqv? #{atom-key 6583}# 'primitive)
- (let ((#{name 6605}# (car (cdr #{x 6582}#))))
+ #{name 6591}#
+ #{var 6592}#))
+ (if (eqv? #{atom-key 6581}# 'primitive)
+ (let ((#{name 6603}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
#f
- #{name 6605}#))
- (if (eqv? #{atom-key 6583}# 'quote)
- (let ((#{exp 6616}# (car (cdr #{x 6582}#))))
+ #{name 6603}#))
+ (if (eqv? #{atom-key 6581}# 'quote)
+ (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 6616}#))
- (if (eqv? #{atom-key 6583}# 'lambda)
- (if (list? (car (cdr #{x 6582}#)))
- (let ((#{req 6627}# (car (cdr #{x 6582}#)))
- (#{vars 6629}# (car (cdr #{x 6582}#)))
- (#{exp 6631}#
- (#{regen 5717}#
- (car (cdr (cdr #{x 6582}#))))))
- (let ((#{body 6636}#
+ #{exp 6614}#))
+ (if (eqv? #{atom-key 6581}# 'lambda)
+ (if (list? (car (cdr #{x 6580}#)))
+ (let ((#{req 6625}# (car (cdr #{x 6580}#)))
+ (#{vars 6627}# (car (cdr #{x 6580}#)))
+ (#{exp 6629}#
+ (#{regen 5715}#
+ (car (cdr (cdr #{x 6580}#))))))
+ (let ((#{body 6634}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 6627}#
+ #{req 6625}#
#f
#f
#f
'()
- #{vars 6629}#
- #{exp 6631}#
+ #{vars 6627}#
+ #{exp 6629}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 6636}#)))
- (error "how did we get here" #{x 6582}#))
- (let ((#{name 6652}# (car #{x 6582}#))
- (#{args 6653}#
- (map #{regen 5717}# (cdr #{x 6582}#))))
+ #{body 6634}#)))
+ (error "how did we get here" #{x 6580}#))
+ (let ((#{name 6650}# (car #{x 6580}#))
+ (#{args 6651}#
+ (map #{regen 5715}# (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
- #{name 6652}#
- #{args 6653}#))))))))))
- (lambda (#{e 5718}#
- #{r 5719}#
- #{w 5720}#
- #{s 5721}#
- #{mod 5722}#)
- (let ((#{e 5723}#
- (let ((#{x 6084}#
+ #{name 6650}#
+ #{args 6651}#))))))))))
+ (lambda (#{e 5716}#
+ #{r 5717}#
+ #{w 5718}#
+ #{s 5719}#
+ #{mod 5720}#)
+ (let ((#{e 5721}#
+ (let ((#{x 6082}#
(begin
- (if (if (pair? #{e 5718}#) #{s 5721}# #f)
- (set-source-properties! #{e 5718}# #{s 5721}#))
- #{e 5718}#)))
- (if (if (null? (car #{w 5720}#))
- (null? (cdr #{w 5720}#))
+ (if (if (pair? #{e 5716}#) #{s 5719}# #f)
+ (set-source-properties! #{e 5716}# #{s 5719}#))
+ #{e 5716}#)))
+ (if (if (null? (car #{w 5718}#))
+ (null? (cdr #{w 5718}#))
#f)
- #{x 6084}#
- (if (if (vector? #{x 6084}#)
- (if (= (vector-length #{x 6084}#) 4)
- (eq? (vector-ref #{x 6084}# 0) 'syntax-object)
+ #{x 6082}#
+ (if (if (vector? #{x 6082}#)
+ (if (= (vector-length #{x 6082}#) 4)
+ (eq? (vector-ref #{x 6082}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 6116}# (vector-ref #{x 6084}# 1))
- (#{wrap 6117}#
- (let ((#{w2 6125}# (vector-ref #{x 6084}# 2)))
- (let ((#{m1 6126}# (car #{w 5720}#))
- (#{s1 6127}# (cdr #{w 5720}#)))
- (if (null? #{m1 6126}#)
- (if (null? #{s1 6127}#)
- #{w2 6125}#
- (cons (car #{w2 6125}#)
- (let ((#{m2 6142}#
- (cdr #{w2 6125}#)))
- (if (null? #{m2 6142}#)
- #{s1 6127}#
+ (let ((#{expression 6114}# (vector-ref #{x 6082}# 1))
+ (#{wrap 6115}#
+ (let ((#{w2 6123}# (vector-ref #{x 6082}# 2)))
+ (let ((#{m1 6124}# (car #{w 5718}#))
+ (#{s1 6125}# (cdr #{w 5718}#)))
+ (if (null? #{m1 6124}#)
+ (if (null? #{s1 6125}#)
+ #{w2 6123}#
+ (cons (car #{w2 6123}#)
+ (let ((#{m2 6140}#
+ (cdr #{w2 6123}#)))
+ (if (null? #{m2 6140}#)
+ #{s1 6125}#
(append
- #{s1 6127}#
- #{m2 6142}#)))))
- (cons (let ((#{m2 6150}#
- (car #{w2 6125}#)))
- (if (null? #{m2 6150}#)
- #{m1 6126}#
+ #{s1 6125}#
+ #{m2 6140}#)))))
+ (cons (let ((#{m2 6148}#
+ (car #{w2 6123}#)))
+ (if (null? #{m2 6148}#)
+ #{m1 6124}#
(append
- #{m1 6126}#
- #{m2 6150}#)))
- (let ((#{m2 6158}#
- (cdr #{w2 6125}#)))
- (if (null? #{m2 6158}#)
- #{s1 6127}#
+ #{m1 6124}#
+ #{m2 6148}#)))
+ (let ((#{m2 6156}#
+ (cdr #{w2 6123}#)))
+ (if (null? #{m2 6156}#)
+ #{s1 6125}#
(append
- #{s1 6127}#
- #{m2 6158}#))))))))
- (#{module 6118}# (vector-ref #{x 6084}# 3)))
+ #{s1 6125}#
+ #{m2 6156}#))))))))
+ (#{module 6116}# (vector-ref #{x 6082}# 3)))
(vector
'syntax-object
- #{expression 6116}#
- #{wrap 6117}#
- #{module 6118}#))
- (if (null? #{x 6084}#)
- #{x 6084}#
+ #{expression 6114}#
+ #{wrap 6115}#
+ #{module 6116}#))
+ (if (null? #{x 6082}#)
+ #{x 6082}#
(vector
'syntax-object
- #{x 6084}#
- #{w 5720}#
- #{mod 5722}#)))))))
- (let ((#{tmp 5724}# #{e 5723}#))
- (let ((#{tmp 5725}#
- ($sc-dispatch #{tmp 5724}# '(_ any))))
- (if #{tmp 5725}#
+ #{x 6082}#
+ #{w 5718}#
+ #{mod 5720}#)))))))
+ (let ((#{tmp 5722}# #{e 5721}#))
+ (let ((#{tmp 5723}#
+ ($sc-dispatch #{tmp 5722}# '(_ any))))
+ (if #{tmp 5723}#
(@apply
- (lambda (#{x 5777}#)
+ (lambda (#{x 5775}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5710}#
- #{e 5723}#
- #{x 5777}#
- #{r 5719}#
+ (#{gen-syntax 5708}#
+ #{e 5721}#
+ #{x 5775}#
+ #{r 5717}#
'()
- #{ellipsis? 4383}#
- #{mod 5722}#))
- (lambda (#{e 5860}# #{maps 5861}#)
- (#{regen 5717}# #{e 5860}#))))
- #{tmp 5725}#)
+ #{ellipsis? 4381}#
+ #{mod 5720}#))
+ (lambda (#{e 5858}# #{maps 5859}#)
+ (#{regen 5715}# #{e 5858}#))))
+ #{tmp 5723}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5723}#))))))))
- (#{global-extend 4341}#
+ #{e 5721}#))))))))
+ (#{global-extend 4339}#
'core
'lambda
- (lambda (#{e 6889}#
- #{r 6890}#
- #{w 6891}#
- #{s 6892}#
- #{mod 6893}#)
- (let ((#{tmp 6895}#
- ($sc-dispatch #{e 6889}# '(_ any any . each-any))))
- (if #{tmp 6895}#
+ (lambda (#{e 6887}#
+ #{r 6888}#
+ #{w 6889}#
+ #{s 6890}#
+ #{mod 6891}#)
+ (let ((#{tmp 6893}#
+ ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
+ (if #{tmp 6893}#
(@apply
- (lambda (#{args 6899}# #{e1 6900}# #{e2 6901}#)
+ (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4384}# #{args 6899}#))
- (lambda (#{req 6904}#
- #{opt 6905}#
- #{rest 6906}#
- #{kw 6907}#)
+ (#{lambda-formals 4382}# #{args 6897}#))
+ (lambda (#{req 6902}#
+ #{opt 6903}#
+ #{rest 6904}#
+ #{kw 6905}#)
(letrec*
- ((#{lp 6908}#
- (lambda (#{body 6911}# #{meta 6912}#)
- (let ((#{tmp 6914}#
+ ((#{lp 6906}#
+ (lambda (#{body 6909}# #{meta 6910}#)
+ (let ((#{tmp 6912}#
($sc-dispatch
- #{body 6911}#
+ #{body 6909}#
'(any any . each-any))))
- (if (if #{tmp 6914}#
+ (if (if #{tmp 6912}#
(@apply
- (lambda (#{docstring 6918}#
- #{e1 6919}#
- #{e2 6920}#)
+ (lambda (#{docstring 6916}#
+ #{e1 6917}#
+ #{e2 6918}#)
(string?
- (syntax->datum #{docstring 6918}#)))
- #{tmp 6914}#)
+ (syntax->datum #{docstring 6916}#)))
+ #{tmp 6912}#)
#f)
(@apply
- (lambda (#{docstring 6921}#
- #{e1 6922}#
- #{e2 6923}#)
- (#{lp 6908}#
- (cons #{e1 6922}# #{e2 6923}#)
+ (lambda (#{docstring 6919}#
+ #{e1 6920}#
+ #{e2 6921}#)
+ (#{lp 6906}#
+ (cons #{e1 6920}# #{e2 6921}#)
(append
- #{meta 6912}#
+ #{meta 6910}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6921}#))))))
- #{tmp 6914}#)
- (let ((#{tmp 6924}#
+ #{docstring 6919}#))))))
+ #{tmp 6912}#)
+ (let ((#{tmp 6922}#
($sc-dispatch
- #{body 6911}#
+ #{body 6909}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6924}#
+ (if #{tmp 6922}#
(@apply
- (lambda (#{k 6928}#
- #{v 6929}#
- #{e1 6930}#
- #{e2 6931}#)
- (#{lp 6908}#
- (cons #{e1 6930}# #{e2 6931}#)
+ (lambda (#{k 6926}#
+ #{v 6927}#
+ #{e1 6928}#
+ #{e2 6929}#)
+ (#{lp 6906}#
+ (cons #{e1 6928}# #{e2 6929}#)
(append
- #{meta 6912}#
+ #{meta 6910}#
(syntax->datum
(map cons
- #{k 6928}#
- #{v 6929}#)))))
- #{tmp 6924}#)
- (#{chi-simple-lambda 4385}#
- #{e 6889}#
- #{r 6890}#
- #{w 6891}#
- #{s 6892}#
- #{mod 6893}#
- #{req 6904}#
- #{rest 6906}#
- #{meta 6912}#
- #{body 6911}#))))))))
- (#{lp 6908}# (cons #{e1 6900}# #{e2 6901}#) '())))))
- #{tmp 6895}#)
+ #{k 6926}#
+ #{v 6927}#)))))
+ #{tmp 6922}#)
+ (#{chi-simple-lambda 4383}#
+ #{e 6887}#
+ #{r 6888}#
+ #{w 6889}#
+ #{s 6890}#
+ #{mod 6891}#
+ #{req 6902}#
+ #{rest 6904}#
+ #{meta 6910}#
+ #{body 6909}#))))))))
+ (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
+ #{tmp 6893}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6889}#)))))
- (#{global-extend 4341}#
+ #{e 6887}#)))))
+ (#{global-extend 4339}#
'core
'lambda*
- (lambda (#{e 7315}#
- #{r 7316}#
- #{w 7317}#
- #{s 7318}#
- #{mod 7319}#)
- (let ((#{tmp 7321}#
- ($sc-dispatch #{e 7315}# '(_ any any . each-any))))
- (if #{tmp 7321}#
+ (lambda (#{e 7313}#
+ #{r 7314}#
+ #{w 7315}#
+ #{s 7316}#
+ #{mod 7317}#)
+ (let ((#{tmp 7319}#
+ ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
+ (if #{tmp 7319}#
(@apply
- (lambda (#{args 7325}# #{e1 7326}# #{e2 7327}#)
+ (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7315}#
- #{r 7316}#
- #{w 7317}#
- #{s 7318}#
- #{mod 7319}#
- #{lambda*-formals 4386}#
- (list (cons #{args 7325}#
- (cons #{e1 7326}# #{e2 7327}#)))))
- (lambda (#{meta 7330}# #{lcase 7331}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7313}#
+ #{r 7314}#
+ #{w 7315}#
+ #{s 7316}#
+ #{mod 7317}#
+ #{lambda*-formals 4384}#
+ (list (cons #{args 7323}#
+ (cons #{e1 7324}# #{e2 7325}#)))))
+ (lambda (#{meta 7328}# #{lcase 7329}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7318}#
- #{meta 7330}#
- #{lcase 7331}#))))
- #{tmp 7321}#)
+ #{s 7316}#
+ #{meta 7328}#
+ #{lcase 7329}#))))
+ #{tmp 7319}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 7315}#)))))
- (#{global-extend 4341}#
+ #{e 7313}#)))))
+ (#{global-extend 4339}#
'core
'case-lambda
- (lambda (#{e 7494}#
- #{r 7495}#
- #{w 7496}#
- #{s 7497}#
- #{mod 7498}#)
- (let ((#{tmp 7500}#
+ (lambda (#{e 7492}#
+ #{r 7493}#
+ #{w 7494}#
+ #{s 7495}#
+ #{mod 7496}#)
+ (let ((#{tmp 7498}#
($sc-dispatch
- #{e 7494}#
+ #{e 7492}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7500}#
+ (if #{tmp 7498}#
(@apply
- (lambda (#{args 7504}#
- #{e1 7505}#
- #{e2 7506}#
- #{args* 7507}#
- #{e1* 7508}#
- #{e2* 7509}#)
+ (lambda (#{args 7502}#
+ #{e1 7503}#
+ #{e2 7504}#
+ #{args* 7505}#
+ #{e1* 7506}#
+ #{e2* 7507}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7494}#
- #{r 7495}#
- #{w 7496}#
- #{s 7497}#
- #{mod 7498}#
- #{lambda-formals 4384}#
- (cons (cons #{args 7504}#
- (cons #{e1 7505}# #{e2 7506}#))
- (map (lambda (#{tmp 3306 7512}#
- #{tmp 3305 7513}#
- #{tmp 3304 7514}#)
- (cons #{tmp 3304 7514}#
- (cons #{tmp 3305 7513}#
- #{tmp 3306 7512}#)))
- #{e2* 7509}#
- #{e1* 7508}#
- #{args* 7507}#))))
- (lambda (#{meta 7515}# #{lcase 7516}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7492}#
+ #{r 7493}#
+ #{w 7494}#
+ #{s 7495}#
+ #{mod 7496}#
+ #{lambda-formals 4382}#
+ (cons (cons #{args 7502}#
+ (cons #{e1 7503}# #{e2 7504}#))
+ (map (lambda (#{tmp 3304 7510}#
+ #{tmp 3303 7511}#
+ #{tmp 3302 7512}#)
+ (cons #{tmp 3302 7512}#
+ (cons #{tmp 3303 7511}#
+ #{tmp 3304 7510}#)))
+ #{e2* 7507}#
+ #{e1* 7506}#
+ #{args* 7505}#))))
+ (lambda (#{meta 7513}# #{lcase 7514}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7497}#
- #{meta 7515}#
- #{lcase 7516}#))))
- #{tmp 7500}#)
+ #{s 7495}#
+ #{meta 7513}#
+ #{lcase 7514}#))))
+ #{tmp 7498}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 7494}#)))))
- (#{global-extend 4341}#
+ #{e 7492}#)))))
+ (#{global-extend 4339}#
'core
'case-lambda*
- (lambda (#{e 7685}#
- #{r 7686}#
- #{w 7687}#
- #{s 7688}#
- #{mod 7689}#)
- (let ((#{tmp 7691}#
+ (lambda (#{e 7683}#
+ #{r 7684}#
+ #{w 7685}#
+ #{s 7686}#
+ #{mod 7687}#)
+ (let ((#{tmp 7689}#
($sc-dispatch
- #{e 7685}#
+ #{e 7683}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7691}#
+ (if #{tmp 7689}#
(@apply
- (lambda (#{args 7695}#
- #{e1 7696}#
- #{e2 7697}#
- #{args* 7698}#
- #{e1* 7699}#
- #{e2* 7700}#)
+ (lambda (#{args 7693}#
+ #{e1 7694}#
+ #{e2 7695}#
+ #{args* 7696}#
+ #{e1* 7697}#
+ #{e2* 7698}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7685}#
- #{r 7686}#
- #{w 7687}#
- #{s 7688}#
- #{mod 7689}#
- #{lambda*-formals 4386}#
- (cons (cons #{args 7695}#
- (cons #{e1 7696}# #{e2 7697}#))
- (map (lambda (#{tmp 3341 7703}#
- #{tmp 3340 7704}#
- #{tmp 3339 7705}#)
- (cons #{tmp 3339 7705}#
- (cons #{tmp 3340 7704}#
- #{tmp 3341 7703}#)))
- #{e2* 7700}#
- #{e1* 7699}#
- #{args* 7698}#))))
- (lambda (#{meta 7706}# #{lcase 7707}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7683}#
+ #{r 7684}#
+ #{w 7685}#
+ #{s 7686}#
+ #{mod 7687}#
+ #{lambda*-formals 4384}#
+ (cons (cons #{args 7693}#
+ (cons #{e1 7694}# #{e2 7695}#))
+ (map (lambda (#{tmp 3339 7701}#
+ #{tmp 3338 7702}#
+ #{tmp 3337 7703}#)
+ (cons #{tmp 3337 7703}#
+ (cons #{tmp 3338 7702}#
+ #{tmp 3339 7701}#)))
+ #{e2* 7698}#
+ #{e1* 7697}#
+ #{args* 7696}#))))
+ (lambda (#{meta 7704}# #{lcase 7705}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7688}#
- #{meta 7706}#
- #{lcase 7707}#))))
- #{tmp 7691}#)
+ #{s 7686}#
+ #{meta 7704}#
+ #{lcase 7705}#))))
+ #{tmp 7689}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 7685}#)))))
- (#{global-extend 4341}#
+ #{e 7683}#)))))
+ (#{global-extend 4339}#
'core
'let
(letrec*
- ((#{chi-let 7916}#
- (lambda (#{e 8126}#
- #{r 8127}#
- #{w 8128}#
- #{s 8129}#
- #{mod 8130}#
- #{constructor 8131}#
- #{ids 8132}#
- #{vals 8133}#
- #{exps 8134}#)
- (if (not (#{valid-bound-ids? 4365}# #{ids 8132}#))
+ ((#{chi-let 7914}#
+ (lambda (#{e 8124}#
+ #{r 8125}#
+ #{w 8126}#
+ #{s 8127}#
+ #{mod 8128}#
+ #{constructor 8129}#
+ #{ids 8130}#
+ #{vals 8131}#
+ #{exps 8132}#)
+ (if (not (#{valid-bound-ids? 4363}# #{ids 8130}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 8126}#)
- (let ((#{labels 8219}#
- (#{gen-labels 4346}# #{ids 8132}#))
- (#{new-vars 8220}#
- (map #{gen-var 4389}# #{ids 8132}#)))
- (let ((#{nw 8221}#
- (#{make-binding-wrap 4357}#
- #{ids 8132}#
- #{labels 8219}#
- #{w 8128}#))
- (#{nr 8222}#
- (#{extend-var-env 4338}#
- #{labels 8219}#
- #{new-vars 8220}#
- #{r 8127}#)))
- (#{constructor 8131}#
- #{s 8129}#
- (map syntax->datum #{ids 8132}#)
- #{new-vars 8220}#
- (map (lambda (#{x 8239}#)
- (#{chi 4375}#
- #{x 8239}#
- #{r 8127}#
- #{w 8128}#
- #{mod 8130}#))
- #{vals 8133}#)
- (#{chi-body 4379}#
- #{exps 8134}#
- (#{source-wrap 4369}#
- #{e 8126}#
- #{nw 8221}#
- #{s 8129}#
- #{mod 8130}#)
- #{nr 8222}#
- #{nw 8221}#
- #{mod 8130}#))))))))
- (lambda (#{e 7917}#
- #{r 7918}#
- #{w 7919}#
- #{s 7920}#
- #{mod 7921}#)
- (let ((#{tmp 7923}#
+ #{e 8124}#)
+ (let ((#{labels 8217}#
+ (#{gen-labels 4344}# #{ids 8130}#))
+ (#{new-vars 8218}#
+ (map #{gen-var 4387}# #{ids 8130}#)))
+ (let ((#{nw 8219}#
+ (#{make-binding-wrap 4355}#
+ #{ids 8130}#
+ #{labels 8217}#
+ #{w 8126}#))
+ (#{nr 8220}#
+ (#{extend-var-env 4336}#
+ #{labels 8217}#
+ #{new-vars 8218}#
+ #{r 8125}#)))
+ (#{constructor 8129}#
+ #{s 8127}#
+ (map syntax->datum #{ids 8130}#)
+ #{new-vars 8218}#
+ (map (lambda (#{x 8237}#)
+ (#{chi 4373}#
+ #{x 8237}#
+ #{r 8125}#
+ #{w 8126}#
+ #{mod 8128}#))
+ #{vals 8131}#)
+ (#{chi-body 4377}#
+ #{exps 8132}#
+ (#{source-wrap 4367}#
+ #{e 8124}#
+ #{nw 8219}#
+ #{s 8127}#
+ #{mod 8128}#)
+ #{nr 8220}#
+ #{nw 8219}#
+ #{mod 8128}#))))))))
+ (lambda (#{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#)
+ (let ((#{tmp 7921}#
($sc-dispatch
- #{e 7917}#
+ #{e 7915}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7923}#
+ (if (if #{tmp 7921}#
(@apply
- (lambda (#{id 7927}#
- #{val 7928}#
- #{e1 7929}#
- #{e2 7930}#)
- (and-map #{id? 4343}# #{id 7927}#))
- #{tmp 7923}#)
+ (lambda (#{id 7925}#
+ #{val 7926}#
+ #{e1 7927}#
+ #{e2 7928}#)
+ (and-map #{id? 4341}# #{id 7925}#))
+ #{tmp 7921}#)
#f)
(@apply
- (lambda (#{id 7946}#
- #{val 7947}#
- #{e1 7948}#
- #{e2 7949}#)
- (#{chi-let 7916}#
- #{e 7917}#
- #{r 7918}#
- #{w 7919}#
- #{s 7920}#
- #{mod 7921}#
- (lambda (#{src 7953}#
- #{ids 7954}#
- #{vars 7955}#
- #{val-exps 7956}#
- #{body-exp 7957}#)
+ (lambda (#{id 7944}#
+ #{val 7945}#
+ #{e1 7946}#
+ #{e2 7947}#)
+ (#{chi-let 7914}#
+ #{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#
+ (lambda (#{src 7951}#
+ #{ids 7952}#
+ #{vars 7953}#
+ #{val-exps 7954}#
+ #{body-exp 7955}#)
(begin
(for-each
- #{maybe-name-value! 4307}#
- #{ids 7954}#
- #{val-exps 7956}#)
- (if (null? #{vars 7955}#)
- #{body-exp 7957}#
+ #{maybe-name-value! 4305}#
+ #{ids 7952}#
+ #{val-exps 7954}#)
+ (if (null? #{vars 7953}#)
+ #{body-exp 7955}#
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 7953}#
- #{ids 7954}#
- #{vars 7955}#
- #{val-exps 7956}#
- #{body-exp 7957}#))))
- #{id 7946}#
- #{val 7947}#
- (cons #{e1 7948}# #{e2 7949}#)))
- #{tmp 7923}#)
- (let ((#{tmp 7964}#
+ #{src 7951}#
+ #{ids 7952}#
+ #{vars 7953}#
+ #{val-exps 7954}#
+ #{body-exp 7955}#))))
+ #{id 7944}#
+ #{val 7945}#
+ (cons #{e1 7946}# #{e2 7947}#)))
+ #{tmp 7921}#)
+ (let ((#{tmp 7962}#
($sc-dispatch
- #{e 7917}#
+ #{e 7915}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7964}#
+ (if (if #{tmp 7962}#
(@apply
- (lambda (#{f 7968}#
- #{id 7969}#
- #{val 7970}#
- #{e1 7971}#
- #{e2 7972}#)
- (if (if (symbol? #{f 7968}#)
+ (lambda (#{f 7966}#
+ #{id 7967}#
+ #{val 7968}#
+ #{e1 7969}#
+ #{e2 7970}#)
+ (if (if (symbol? #{f 7966}#)
#t
- (if (if (vector? #{f 7968}#)
- (if (= (vector-length #{f 7968}#) 4)
- (eq? (vector-ref #{f 7968}# 0)
+ (if (if (vector? #{f 7966}#)
+ (if (= (vector-length #{f 7966}#) 4)
+ (eq? (vector-ref #{f 7966}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7968}# 1))
+ (symbol? (vector-ref #{f 7966}# 1))
#f))
- (and-map #{id? 4343}# #{id 7969}#)
+ (and-map #{id? 4341}# #{id 7967}#)
#f))
- #{tmp 7964}#)
+ #{tmp 7962}#)
#f)
(@apply
- (lambda (#{f 8014}#
- #{id 8015}#
- #{val 8016}#
- #{e1 8017}#
- #{e2 8018}#)
- (#{chi-let 7916}#
- #{e 7917}#
- #{r 7918}#
- #{w 7919}#
- #{s 7920}#
- #{mod 7921}#
- #{build-named-let 4326}#
- (cons #{f 8014}# #{id 8015}#)
- #{val 8016}#
- (cons #{e1 8017}# #{e2 8018}#)))
- #{tmp 7964}#)
+ (lambda (#{f 8012}#
+ #{id 8013}#
+ #{val 8014}#
+ #{e1 8015}#
+ #{e2 8016}#)
+ (#{chi-let 7914}#
+ #{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#
+ #{build-named-let 4324}#
+ (cons #{f 8012}# #{id 8013}#)
+ #{val 8014}#
+ (cons #{e1 8015}# #{e2 8016}#)))
+ #{tmp 7962}#)
(syntax-violation
'let
"bad let"
- (let ((#{x 8031}#
+ (let ((#{x 8029}#
(begin
- (if (if (pair? #{e 7917}#) #{s 7920}# #f)
- (set-source-properties! #{e 7917}# #{s 7920}#))
- #{e 7917}#)))
- (if (if (null? (car #{w 7919}#))
- (null? (cdr #{w 7919}#))
+ (if (if (pair? #{e 7915}#) #{s 7918}# #f)
+ (set-source-properties! #{e 7915}# #{s 7918}#))
+ #{e 7915}#)))
+ (if (if (null? (car #{w 7917}#))
+ (null? (cdr #{w 7917}#))
#f)
- #{x 8031}#
- (if (if (vector? #{x 8031}#)
- (if (= (vector-length #{x 8031}#) 4)
- (eq? (vector-ref #{x 8031}# 0) 'syntax-object)
+ #{x 8029}#
+ (if (if (vector? #{x 8029}#)
+ (if (= (vector-length #{x 8029}#) 4)
+ (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 8063}# (vector-ref #{x 8031}# 1))
- (#{wrap 8064}#
- (let ((#{w2 8072}#
- (vector-ref #{x 8031}# 2)))
- (let ((#{m1 8073}# (car #{w 7919}#))
- (#{s1 8074}# (cdr #{w 7919}#)))
- (if (null? #{m1 8073}#)
- (if (null? #{s1 8074}#)
- #{w2 8072}#
- (cons (car #{w2 8072}#)
- (let ((#{m2 8089}#
- (cdr #{w2 8072}#)))
- (if (null? #{m2 8089}#)
- #{s1 8074}#
+ (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
+ (#{wrap 8062}#
+ (let ((#{w2 8070}#
+ (vector-ref #{x 8029}# 2)))
+ (let ((#{m1 8071}# (car #{w 7917}#))
+ (#{s1 8072}# (cdr #{w 7917}#)))
+ (if (null? #{m1 8071}#)
+ (if (null? #{s1 8072}#)
+ #{w2 8070}#
+ (cons (car #{w2 8070}#)
+ (let ((#{m2 8087}#
+ (cdr #{w2 8070}#)))
+ (if (null? #{m2 8087}#)
+ #{s1 8072}#
(append
- #{s1 8074}#
- #{m2 8089}#)))))
- (cons (let ((#{m2 8097}#
- (car #{w2 8072}#)))
- (if (null? #{m2 8097}#)
- #{m1 8073}#
+ #{s1 8072}#
+ #{m2 8087}#)))))
+ (cons (let ((#{m2 8095}#
+ (car #{w2 8070}#)))
+ (if (null? #{m2 8095}#)
+ #{m1 8071}#
(append
- #{m1 8073}#
- #{m2 8097}#)))
- (let ((#{m2 8105}#
- (cdr #{w2 8072}#)))
- (if (null? #{m2 8105}#)
- #{s1 8074}#
+ #{m1 8071}#
+ #{m2 8095}#)))
+ (let ((#{m2 8103}#
+ (cdr #{w2 8070}#)))
+ (if (null? #{m2 8103}#)
+ #{s1 8072}#
(append
- #{s1 8074}#
- #{m2 8105}#))))))))
- (#{module 8065}# (vector-ref #{x 8031}# 3)))
+ #{s1 8072}#
+ #{m2 8103}#))))))))
+ (#{module 8063}# (vector-ref #{x 8029}# 3)))
(vector
'syntax-object
- #{expression 8063}#
- #{wrap 8064}#
- #{module 8065}#))
- (if (null? #{x 8031}#)
- #{x 8031}#
+ #{expression 8061}#
+ #{wrap 8062}#
+ #{module 8063}#))
+ (if (null? #{x 8029}#)
+ #{x 8029}#
(vector
'syntax-object
- #{x 8031}#
- #{w 7919}#
- #{mod 7921}#)))))))))))))
- (#{global-extend 4341}#
+ #{x 8029}#
+ #{w 7917}#
+ #{mod 7919}#)))))))))))))
+ (#{global-extend 4339}#
'core
'letrec
- (lambda (#{e 8716}#
- #{r 8717}#
- #{w 8718}#
- #{s 8719}#
- #{mod 8720}#)
- (let ((#{tmp 8722}#
+ (lambda (#{e 8714}#
+ #{r 8715}#
+ #{w 8716}#
+ #{s 8717}#
+ #{mod 8718}#)
+ (let ((#{tmp 8720}#
($sc-dispatch
- #{e 8716}#
+ #{e 8714}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8722}#
+ (if (if #{tmp 8720}#
(@apply
- (lambda (#{id 8726}#
- #{val 8727}#
- #{e1 8728}#
- #{e2 8729}#)
- (and-map #{id? 4343}# #{id 8726}#))
- #{tmp 8722}#)
+ (lambda (#{id 8724}#
+ #{val 8725}#
+ #{e1 8726}#
+ #{e2 8727}#)
+ (and-map #{id? 4341}# #{id 8724}#))
+ #{tmp 8720}#)
#f)
(@apply
- (lambda (#{id 8745}#
- #{val 8746}#
- #{e1 8747}#
- #{e2 8748}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 8745}#))
+ (lambda (#{id 8743}#
+ #{val 8744}#
+ #{e1 8745}#
+ #{e2 8746}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 8743}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 8716}#)
- (let ((#{labels 8845}#
- (#{gen-labels 4346}# #{id 8745}#))
- (#{new-vars 8846}#
- (map #{gen-var 4389}# #{id 8745}#)))
- (let ((#{w 8847}#
- (#{make-binding-wrap 4357}#
- #{id 8745}#
- #{labels 8845}#
- #{w 8718}#))
- (#{r 8848}#
- (#{extend-var-env 4338}#
- #{labels 8845}#
- #{new-vars 8846}#
- #{r 8717}#)))
- (#{build-letrec 4327}#
- #{s 8719}#
+ #{e 8714}#)
+ (let ((#{labels 8843}#
+ (#{gen-labels 4344}# #{id 8743}#))
+ (#{new-vars 8844}#
+ (map #{gen-var 4387}# #{id 8743}#)))
+ (let ((#{w 8845}#
+ (#{make-binding-wrap 4355}#
+ #{id 8743}#
+ #{labels 8843}#
+ #{w 8716}#))
+ (#{r 8846}#
+ (#{extend-var-env 4336}#
+ #{labels 8843}#
+ #{new-vars 8844}#
+ #{r 8715}#)))
+ (#{build-letrec 4325}#
+ #{s 8717}#
#f
- (map syntax->datum #{id 8745}#)
- #{new-vars 8846}#
- (map (lambda (#{x 8927}#)
- (#{chi 4375}#
- #{x 8927}#
- #{r 8848}#
- #{w 8847}#
- #{mod 8720}#))
- #{val 8746}#)
- (#{chi-body 4379}#
- (cons #{e1 8747}# #{e2 8748}#)
- (let ((#{x 8989}#
+ (map syntax->datum #{id 8743}#)
+ #{new-vars 8844}#
+ (map (lambda (#{x 8925}#)
+ (#{chi 4373}#
+ #{x 8925}#
+ #{r 8846}#
+ #{w 8845}#
+ #{mod 8718}#))
+ #{val 8744}#)
+ (#{chi-body 4377}#
+ (cons #{e1 8745}# #{e2 8746}#)
+ (let ((#{x 8987}#
(begin
- (if (if (pair? #{e 8716}#) #{s 8719}# #f)
+ (if (if (pair? #{e 8714}#) #{s 8717}# #f)
(set-source-properties!
- #{e 8716}#
- #{s 8719}#))
- #{e 8716}#)))
- (if (if (null? (car #{w 8847}#))
- (null? (cdr #{w 8847}#))
+ #{e 8714}#
+ #{s 8717}#))
+ #{e 8714}#)))
+ (if (if (null? (car #{w 8845}#))
+ (null? (cdr #{w 8845}#))
#f)
- #{x 8989}#
- (if (if (vector? #{x 8989}#)
- (if (= (vector-length #{x 8989}#) 4)
- (eq? (vector-ref #{x 8989}# 0)
+ #{x 8987}#
+ (if (if (vector? #{x 8987}#)
+ (if (= (vector-length #{x 8987}#) 4)
+ (eq? (vector-ref #{x 8987}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9021}#
- (vector-ref #{x 8989}# 1))
- (#{wrap 9022}#
- (let ((#{w2 9030}#
- (vector-ref #{x 8989}# 2)))
- (let ((#{m1 9031}# (car #{w 8847}#))
- (#{s1 9032}# (cdr #{w 8847}#)))
- (if (null? #{m1 9031}#)
- (if (null? #{s1 9032}#)
- #{w2 9030}#
- (cons (car #{w2 9030}#)
- (let ((#{m2 9047}#
- (cdr #{w2 9030}#)))
- (if (null? #{m2 9047}#)
- #{s1 9032}#
+ (let ((#{expression 9019}#
+ (vector-ref #{x 8987}# 1))
+ (#{wrap 9020}#
+ (let ((#{w2 9028}#
+ (vector-ref #{x 8987}# 2)))
+ (let ((#{m1 9029}# (car #{w 8845}#))
+ (#{s1 9030}# (cdr #{w 8845}#)))
+ (if (null? #{m1 9029}#)
+ (if (null? #{s1 9030}#)
+ #{w2 9028}#
+ (cons (car #{w2 9028}#)
+ (let ((#{m2 9045}#
+ (cdr #{w2 9028}#)))
+ (if (null? #{m2 9045}#)
+ #{s1 9030}#
(append
- #{s1 9032}#
- #{m2 9047}#)))))
- (cons (let ((#{m2 9055}#
- (car #{w2 9030}#)))
- (if (null? #{m2 9055}#)
- #{m1 9031}#
+ #{s1 9030}#
+ #{m2 9045}#)))))
+ (cons (let ((#{m2 9053}#
+ (car #{w2 9028}#)))
+ (if (null? #{m2 9053}#)
+ #{m1 9029}#
(append
- #{m1 9031}#
- #{m2 9055}#)))
- (let ((#{m2 9063}#
- (cdr #{w2 9030}#)))
- (if (null? #{m2 9063}#)
- #{s1 9032}#
+ #{m1 9029}#
+ #{m2 9053}#)))
+ (let ((#{m2 9061}#
+ (cdr #{w2 9028}#)))
+ (if (null? #{m2 9061}#)
+ #{s1 9030}#
(append
- #{s1 9032}#
- #{m2 9063}#))))))))
- (#{module 9023}#
- (vector-ref #{x 8989}# 3)))
+ #{s1 9030}#
+ #{m2 9061}#))))))))
+ (#{module 9021}#
+ (vector-ref #{x 8987}# 3)))
(vector
'syntax-object
- #{expression 9021}#
- #{wrap 9022}#
- #{module 9023}#))
- (if (null? #{x 8989}#)
- #{x 8989}#
+ #{expression 9019}#
+ #{wrap 9020}#
+ #{module 9021}#))
+ (if (null? #{x 8987}#)
+ #{x 8987}#
(vector
'syntax-object
- #{x 8989}#
- #{w 8847}#
- #{mod 8720}#)))))
- #{r 8848}#
- #{w 8847}#
- #{mod 8720}#))))))
- #{tmp 8722}#)
+ #{x 8987}#
+ #{w 8845}#
+ #{mod 8718}#)))))
+ #{r 8846}#
+ #{w 8845}#
+ #{mod 8718}#))))))
+ #{tmp 8720}#)
(syntax-violation
'letrec
"bad letrec"
- (let ((#{x 9303}#
+ (let ((#{x 9301}#
(begin
- (if (if (pair? #{e 8716}#) #{s 8719}# #f)
- (set-source-properties! #{e 8716}# #{s 8719}#))
- #{e 8716}#)))
- (if (if (null? (car #{w 8718}#))
- (null? (cdr #{w 8718}#))
+ (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+ (set-source-properties! #{e 8714}# #{s 8717}#))
+ #{e 8714}#)))
+ (if (if (null? (car #{w 8716}#))
+ (null? (cdr #{w 8716}#))
#f)
- #{x 9303}#
- (if (if (vector? #{x 9303}#)
- (if (= (vector-length #{x 9303}#) 4)
- (eq? (vector-ref #{x 9303}# 0) 'syntax-object)
+ #{x 9301}#
+ (if (if (vector? #{x 9301}#)
+ (if (= (vector-length #{x 9301}#) 4)
+ (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 9335}# (vector-ref #{x 9303}# 1))
- (#{wrap 9336}#
- (let ((#{w2 9344}# (vector-ref #{x 9303}# 2)))
- (let ((#{m1 9345}# (car #{w 8718}#))
- (#{s1 9346}# (cdr #{w 8718}#)))
- (if (null? #{m1 9345}#)
- (if (null? #{s1 9346}#)
- #{w2 9344}#
- (cons (car #{w2 9344}#)
- (let ((#{m2 9361}#
- (cdr #{w2 9344}#)))
- (if (null? #{m2 9361}#)
- #{s1 9346}#
+ (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
+ (#{wrap 9334}#
+ (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
+ (let ((#{m1 9343}# (car #{w 8716}#))
+ (#{s1 9344}# (cdr #{w 8716}#)))
+ (if (null? #{m1 9343}#)
+ (if (null? #{s1 9344}#)
+ #{w2 9342}#
+ (cons (car #{w2 9342}#)
+ (let ((#{m2 9359}#
+ (cdr #{w2 9342}#)))
+ (if (null? #{m2 9359}#)
+ #{s1 9344}#
(append
- #{s1 9346}#
- #{m2 9361}#)))))
- (cons (let ((#{m2 9369}# (car #{w2 9344}#)))
- (if (null? #{m2 9369}#)
- #{m1 9345}#
- (append #{m1 9345}# #{m2 9369}#)))
- (let ((#{m2 9377}# (cdr #{w2 9344}#)))
- (if (null? #{m2 9377}#)
- #{s1 9346}#
+ #{s1 9344}#
+ #{m2 9359}#)))))
+ (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
+ (if (null? #{m2 9367}#)
+ #{m1 9343}#
+ (append #{m1 9343}# #{m2 9367}#)))
+ (let ((#{m2 9375}# (cdr #{w2 9342}#)))
+ (if (null? #{m2 9375}#)
+ #{s1 9344}#
(append
- #{s1 9346}#
- #{m2 9377}#))))))))
- (#{module 9337}# (vector-ref #{x 9303}# 3)))
+ #{s1 9344}#
+ #{m2 9375}#))))))))
+ (#{module 9335}# (vector-ref #{x 9301}# 3)))
(vector
'syntax-object
- #{expression 9335}#
- #{wrap 9336}#
- #{module 9337}#))
- (if (null? #{x 9303}#)
- #{x 9303}#
+ #{expression 9333}#
+ #{wrap 9334}#
+ #{module 9335}#))
+ (if (null? #{x 9301}#)
+ #{x 9301}#
(vector
'syntax-object
- #{x 9303}#
- #{w 8718}#
- #{mod 8720}#))))))))))
- (#{global-extend 4341}#
+ #{x 9301}#
+ #{w 8716}#
+ #{mod 8718}#))))))))))
+ (#{global-extend 4339}#
'core
'letrec*
- (lambda (#{e 9528}#
- #{r 9529}#
- #{w 9530}#
- #{s 9531}#
- #{mod 9532}#)
- (let ((#{tmp 9534}#
+ (lambda (#{e 9526}#
+ #{r 9527}#
+ #{w 9528}#
+ #{s 9529}#
+ #{mod 9530}#)
+ (let ((#{tmp 9532}#
($sc-dispatch
- #{e 9528}#
+ #{e 9526}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 9534}#
+ (if (if #{tmp 9532}#
(@apply
- (lambda (#{id 9538}#
- #{val 9539}#
- #{e1 9540}#
- #{e2 9541}#)
- (and-map #{id? 4343}# #{id 9538}#))
- #{tmp 9534}#)
+ (lambda (#{id 9536}#
+ #{val 9537}#
+ #{e1 9538}#
+ #{e2 9539}#)
+ (and-map #{id? 4341}# #{id 9536}#))
+ #{tmp 9532}#)
#f)
(@apply
- (lambda (#{id 9557}#
- #{val 9558}#
- #{e1 9559}#
- #{e2 9560}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 9557}#))
+ (lambda (#{id 9555}#
+ #{val 9556}#
+ #{e1 9557}#
+ #{e2 9558}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 9555}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 9528}#)
- (let ((#{labels 9657}#
- (#{gen-labels 4346}# #{id 9557}#))
- (#{new-vars 9658}#
- (map #{gen-var 4389}# #{id 9557}#)))
- (let ((#{w 9659}#
- (#{make-binding-wrap 4357}#
- #{id 9557}#
- #{labels 9657}#
- #{w 9530}#))
- (#{r 9660}#
- (#{extend-var-env 4338}#
- #{labels 9657}#
- #{new-vars 9658}#
- #{r 9529}#)))
- (#{build-letrec 4327}#
- #{s 9531}#
+ #{e 9526}#)
+ (let ((#{labels 9655}#
+ (#{gen-labels 4344}# #{id 9555}#))
+ (#{new-vars 9656}#
+ (map #{gen-var 4387}# #{id 9555}#)))
+ (let ((#{w 9657}#
+ (#{make-binding-wrap 4355}#
+ #{id 9555}#
+ #{labels 9655}#
+ #{w 9528}#))
+ (#{r 9658}#
+ (#{extend-var-env 4336}#
+ #{labels 9655}#
+ #{new-vars 9656}#
+ #{r 9527}#)))
+ (#{build-letrec 4325}#
+ #{s 9529}#
#t
- (map syntax->datum #{id 9557}#)
- #{new-vars 9658}#
- (map (lambda (#{x 9739}#)
- (#{chi 4375}#
- #{x 9739}#
- #{r 9660}#
- #{w 9659}#
- #{mod 9532}#))
- #{val 9558}#)
- (#{chi-body 4379}#
- (cons #{e1 9559}# #{e2 9560}#)
- (let ((#{x 9801}#
+ (map syntax->datum #{id 9555}#)
+ #{new-vars 9656}#
+ (map (lambda (#{x 9737}#)
+ (#{chi 4373}#
+ #{x 9737}#
+ #{r 9658}#
+ #{w 9657}#
+ #{mod 9530}#))
+ #{val 9556}#)
+ (#{chi-body 4377}#
+ (cons #{e1 9557}# #{e2 9558}#)
+ (let ((#{x 9799}#
(begin
- (if (if (pair? #{e 9528}#) #{s 9531}# #f)
+ (if (if (pair? #{e 9526}#) #{s 9529}# #f)
(set-source-properties!
- #{e 9528}#
- #{s 9531}#))
- #{e 9528}#)))
- (if (if (null? (car #{w 9659}#))
- (null? (cdr #{w 9659}#))
+ #{e 9526}#
+ #{s 9529}#))
+ #{e 9526}#)))
+ (if (if (null? (car #{w 9657}#))
+ (null? (cdr #{w 9657}#))
#f)
- #{x 9801}#
- (if (if (vector? #{x 9801}#)
- (if (= (vector-length #{x 9801}#) 4)
- (eq? (vector-ref #{x 9801}# 0)
+ #{x 9799}#
+ (if (if (vector? #{x 9799}#)
+ (if (= (vector-length #{x 9799}#) 4)
+ (eq? (vector-ref #{x 9799}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9833}#
- (vector-ref #{x 9801}# 1))
- (#{wrap 9834}#
- (let ((#{w2 9842}#
- (vector-ref #{x 9801}# 2)))
- (let ((#{m1 9843}# (car #{w 9659}#))
- (#{s1 9844}# (cdr #{w 9659}#)))
- (if (null? #{m1 9843}#)
- (if (null? #{s1 9844}#)
- #{w2 9842}#
- (cons (car #{w2 9842}#)
- (let ((#{m2 9859}#
- (cdr #{w2 9842}#)))
- (if (null? #{m2 9859}#)
- #{s1 9844}#
+ (let ((#{expression 9831}#
+ (vector-ref #{x 9799}# 1))
+ (#{wrap 9832}#
+ (let ((#{w2 9840}#
+ (vector-ref #{x 9799}# 2)))
+ (let ((#{m1 9841}# (car #{w 9657}#))
+ (#{s1 9842}# (cdr #{w 9657}#)))
+ (if (null? #{m1 9841}#)
+ (if (null? #{s1 9842}#)
+ #{w2 9840}#
+ (cons (car #{w2 9840}#)
+ (let ((#{m2 9857}#
+ (cdr #{w2 9840}#)))
+ (if (null? #{m2 9857}#)
+ #{s1 9842}#
(append
- #{s1 9844}#
- #{m2 9859}#)))))
- (cons (let ((#{m2 9867}#
- (car #{w2 9842}#)))
- (if (null? #{m2 9867}#)
- #{m1 9843}#
+ #{s1 9842}#
+ #{m2 9857}#)))))
+ (cons (let ((#{m2 9865}#
+ (car #{w2 9840}#)))
+ (if (null? #{m2 9865}#)
+ #{m1 9841}#
(append
- #{m1 9843}#
- #{m2 9867}#)))
- (let ((#{m2 9875}#
- (cdr #{w2 9842}#)))
- (if (null? #{m2 9875}#)
- #{s1 9844}#
+ #{m1 9841}#
+ #{m2 9865}#)))
+ (let ((#{m2 9873}#
+ (cdr #{w2 9840}#)))
+ (if (null? #{m2 9873}#)
+ #{s1 9842}#
(append
- #{s1 9844}#
- #{m2 9875}#))))))))
- (#{module 9835}#
- (vector-ref #{x 9801}# 3)))
+ #{s1 9842}#
+ #{m2 9873}#))))))))
+ (#{module 9833}#
+ (vector-ref #{x 9799}# 3)))
(vector
'syntax-object
- #{expression 9833}#
- #{wrap 9834}#
- #{module 9835}#))
- (if (null? #{x 9801}#)
- #{x 9801}#
+ #{expression 9831}#
+ #{wrap 9832}#
+ #{module 9833}#))
+ (if (null? #{x 9799}#)
+ #{x 9799}#
(vector
'syntax-object
- #{x 9801}#
- #{w 9659}#
- #{mod 9532}#)))))
- #{r 9660}#
- #{w 9659}#
- #{mod 9532}#))))))
- #{tmp 9534}#)
+ #{x 9799}#
+ #{w 9657}#
+ #{mod 9530}#)))))
+ #{r 9658}#
+ #{w 9657}#
+ #{mod 9530}#))))))
+ #{tmp 9532}#)
(syntax-violation
'letrec*
"bad letrec*"
- (let ((#{x 10115}#
+ (let ((#{x 10113}#
(begin
- (if (if (pair? #{e 9528}#) #{s 9531}# #f)
- (set-source-properties! #{e 9528}# #{s 9531}#))
- #{e 9528}#)))
- (if (if (null? (car #{w 9530}#))
- (null? (cdr #{w 9530}#))
+ (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+ (set-source-properties! #{e 9526}# #{s 9529}#))
+ #{e 9526}#)))
+ (if (if (null? (car #{w 9528}#))
+ (null? (cdr #{w 9528}#))
#f)
- #{x 10115}#
- (if (if (vector? #{x 10115}#)
- (if (= (vector-length #{x 10115}#) 4)
- (eq? (vector-ref #{x 10115}# 0) 'syntax-object)
+ #{x 10113}#
+ (if (if (vector? #{x 10113}#)
+ (if (= (vector-length #{x 10113}#) 4)
+ (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10147}# (vector-ref #{x 10115}# 1))
- (#{wrap 10148}#
- (let ((#{w2 10156}# (vector-ref #{x 10115}# 2)))
- (let ((#{m1 10157}# (car #{w 9530}#))
- (#{s1 10158}# (cdr #{w 9530}#)))
- (if (null? #{m1 10157}#)
- (if (null? #{s1 10158}#)
- #{w2 10156}#
- (cons (car #{w2 10156}#)
- (let ((#{m2 10173}#
- (cdr #{w2 10156}#)))
- (if (null? #{m2 10173}#)
- #{s1 10158}#
+ (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
+ (#{wrap 10146}#
+ (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
+ (let ((#{m1 10155}# (car #{w 9528}#))
+ (#{s1 10156}# (cdr #{w 9528}#)))
+ (if (null? #{m1 10155}#)
+ (if (null? #{s1 10156}#)
+ #{w2 10154}#
+ (cons (car #{w2 10154}#)
+ (let ((#{m2 10171}#
+ (cdr #{w2 10154}#)))
+ (if (null? #{m2 10171}#)
+ #{s1 10156}#
(append
- #{s1 10158}#
- #{m2 10173}#)))))
- (cons (let ((#{m2 10181}#
- (car #{w2 10156}#)))
- (if (null? #{m2 10181}#)
- #{m1 10157}#
+ #{s1 10156}#
+ #{m2 10171}#)))))
+ (cons (let ((#{m2 10179}#
+ (car #{w2 10154}#)))
+ (if (null? #{m2 10179}#)
+ #{m1 10155}#
(append
- #{m1 10157}#
- #{m2 10181}#)))
- (let ((#{m2 10189}#
- (cdr #{w2 10156}#)))
- (if (null? #{m2 10189}#)
- #{s1 10158}#
+ #{m1 10155}#
+ #{m2 10179}#)))
+ (let ((#{m2 10187}#
+ (cdr #{w2 10154}#)))
+ (if (null? #{m2 10187}#)
+ #{s1 10156}#
(append
- #{s1 10158}#
- #{m2 10189}#))))))))
- (#{module 10149}# (vector-ref #{x 10115}# 3)))
+ #{s1 10156}#
+ #{m2 10187}#))))))))
+ (#{module 10147}# (vector-ref #{x 10113}# 3)))
(vector
'syntax-object
- #{expression 10147}#
- #{wrap 10148}#
- #{module 10149}#))
- (if (null? #{x 10115}#)
- #{x 10115}#
+ #{expression 10145}#
+ #{wrap 10146}#
+ #{module 10147}#))
+ (if (null? #{x 10113}#)
+ #{x 10113}#
(vector
'syntax-object
- #{x 10115}#
- #{w 9530}#
- #{mod 9532}#))))))))))
- (#{global-extend 4341}#
+ #{x 10113}#
+ #{w 9528}#
+ #{mod 9530}#))))))))))
+ (#{global-extend 4339}#
'core
'set!
- (lambda (#{e 10408}#
- #{r 10409}#
- #{w 10410}#
- #{s 10411}#
- #{mod 10412}#)
- (let ((#{tmp 10414}#
- ($sc-dispatch #{e 10408}# '(_ any any))))
- (if (if #{tmp 10414}#
+ (lambda (#{e 10406}#
+ #{r 10407}#
+ #{w 10408}#
+ #{s 10409}#
+ #{mod 10410}#)
+ (let ((#{tmp 10412}#
+ ($sc-dispatch #{e 10406}# '(_ any any))))
+ (if (if #{tmp 10412}#
(@apply
- (lambda (#{id 10418}# #{val 10419}#)
- (if (symbol? #{id 10418}#)
+ (lambda (#{id 10416}# #{val 10417}#)
+ (if (symbol? #{id 10416}#)
#t
- (if (if (vector? #{id 10418}#)
- (if (= (vector-length #{id 10418}#) 4)
- (eq? (vector-ref #{id 10418}# 0) 'syntax-object)
+ (if (if (vector? #{id 10416}#)
+ (if (= (vector-length #{id 10416}#) 4)
+ (eq? (vector-ref #{id 10416}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10418}# 1))
+ (symbol? (vector-ref #{id 10416}# 1))
#f)))
- #{tmp 10414}#)
+ #{tmp 10412}#)
#f)
(@apply
- (lambda (#{id 10446}# #{val 10447}#)
- (let ((#{n 10448}#
- (#{id-var-name 4362}# #{id 10446}# #{w 10410}#))
- (#{id-mod 10449}#
- (if (if (vector? #{id 10446}#)
- (if (= (vector-length #{id 10446}#) 4)
- (eq? (vector-ref #{id 10446}# 0)
+ (lambda (#{id 10444}# #{val 10445}#)
+ (let ((#{n 10446}#
+ (#{id-var-name 4360}# #{id 10444}# #{w 10408}#))
+ (#{id-mod 10447}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#) 4)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 10446}# 3)
- #{mod 10412}#)))
- (let ((#{b 10450}#
- (let ((#{t 11167}# (assq #{n 10448}# #{r 10409}#)))
- (if #{t 11167}#
- (cdr #{t 11167}#)
- (if (symbol? #{n 10448}#)
- (let ((#{t 11172}#
+ (vector-ref #{id 10444}# 3)
+ #{mod 10410}#)))
+ (let ((#{b 10448}#
+ (let ((#{t 11165}# (assq #{n 10446}# #{r 10407}#)))
+ (if #{t 11165}#
+ (cdr #{t 11165}#)
+ (if (symbol? #{n 10446}#)
+ (let ((#{t 11170}#
(begin
- (if (if (not #{id-mod 10449}#)
+ (if (if (not #{id-mod 10447}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 10448}#))
- (let ((#{v 11209}#
+ #{n 10446}#))
+ (let ((#{v 11207}#
(module-variable
- (if #{id-mod 10449}#
+ (if #{id-mod 10447}#
(resolve-module
- (cdr #{id-mod 10449}#))
+ (cdr #{id-mod 10447}#))
(current-module))
- #{n 10448}#)))
- (if #{v 11209}#
- (if (variable-bound? #{v 11209}#)
- (let ((#{val 11218}#
+ #{n 10446}#)))
+ (if #{v 11207}#
+ (if (variable-bound? #{v 11207}#)
+ (let ((#{val 11216}#
(variable-ref
- #{v 11209}#)))
- (if (macro? #{val 11218}#)
+ #{v 11207}#)))
+ (if (macro? #{val 11216}#)
(if (macro-type
- #{val 11218}#)
+ #{val 11216}#)
(cons (macro-type
- #{val 11218}#)
+ #{val 11216}#)
(macro-binding
- #{val 11218}#))
+ #{val 11216}#))
#f)
#f))
#f)
#f)))))
- (if #{t 11172}# #{t 11172}# '(global)))
+ (if #{t 11170}# #{t 11170}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 10451}# (car #{b 10450}#)))
- (if (let ((#{t 10490}# #{atom-key 10451}#))
- (eqv? #{t 10490}# 'lexical))
- (#{build-lexical-assignment 4313}#
- #{s 10411}#
- (syntax->datum #{id 10446}#)
- (cdr #{b 10450}#)
- (#{chi 4375}#
- #{val 10447}#
- #{r 10409}#
- #{w 10410}#
- #{mod 10412}#))
- (if (let ((#{t 10789}# #{atom-key 10451}#))
- (eqv? #{t 10789}# 'global))
- (#{build-global-assignment 4316}#
- #{s 10411}#
- #{n 10448}#
- (#{chi 4375}#
- #{val 10447}#
- #{r 10409}#
- #{w 10410}#
- #{mod 10412}#)
- #{id-mod 10449}#)
- (if (let ((#{t 11058}# #{atom-key 10451}#))
- (eqv? #{t 11058}# 'macro))
- (let ((#{p 11121}# (cdr #{b 10450}#)))
+ (let ((#{atom-key 10449}# (car #{b 10448}#)))
+ (if (let ((#{t 10488}# #{atom-key 10449}#))
+ (eqv? #{t 10488}# 'lexical))
+ (#{build-lexical-assignment 4311}#
+ #{s 10409}#
+ (syntax->datum #{id 10444}#)
+ (cdr #{b 10448}#)
+ (#{chi 4373}#
+ #{val 10445}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#))
+ (if (let ((#{t 10787}# #{atom-key 10449}#))
+ (eqv? #{t 10787}# 'global))
+ (#{build-global-assignment 4314}#
+ #{s 10409}#
+ #{n 10446}#
+ (#{chi 4373}#
+ #{val 10445}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)
+ #{id-mod 10447}#)
+ (if (let ((#{t 11056}# #{atom-key 10449}#))
+ (eqv? #{t 11056}# 'macro))
+ (let ((#{p 11119}# (cdr #{b 10448}#)))
(if (procedure-property
- #{p 11121}#
+ #{p 11119}#
'variable-transformer)
- (#{chi 4375}#
- (#{chi-macro 4378}#
- #{p 11121}#
- #{e 10408}#
- #{r 10409}#
- #{w 10410}#
- #{s 10411}#
+ (#{chi 4373}#
+ (#{chi-macro 4376}#
+ #{p 11119}#
+ #{e 10406}#
+ #{r 10407}#
+ #{w 10408}#
+ #{s 10409}#
#f
- #{mod 10412}#)
- #{r 10409}#
+ #{mod 10410}#)
+ #{r 10407}#
'(())
- #{mod 10412}#)
+ #{mod 10410}#)
(syntax-violation
'set!
"not a variable transformer"
- (if (if (null? (car #{w 10410}#))
- (null? (cdr #{w 10410}#))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{e 10408}#
- (if (if (vector? #{e 10408}#)
- (if (= (vector-length #{e 10408}#) 4)
- (eq? (vector-ref #{e 10408}# 0)
+ #{e 10406}#
+ (if (if (vector? #{e 10406}#)
+ (if (= (vector-length #{e 10406}#) 4)
+ (eq? (vector-ref #{e 10406}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11323}#
- (vector-ref #{e 10408}# 1))
- (#{wrap 11324}#
- (let ((#{w2 11334}#
+ (let ((#{expression 11321}#
+ (vector-ref #{e 10406}# 1))
+ (#{wrap 11322}#
+ (let ((#{w2 11332}#
(vector-ref
- #{e 10408}#
+ #{e 10406}#
2)))
- (let ((#{m1 11335}#
- (car #{w 10410}#))
- (#{s1 11336}#
- (cdr #{w 10410}#)))
- (if (null? #{m1 11335}#)
- (if (null? #{s1 11336}#)
- #{w2 11334}#
- (cons (car #{w2 11334}#)
- (let ((#{m2 11353}#
- (cdr #{w2 11334}#)))
- (if (null? #{m2 11353}#)
- #{s1 11336}#
+ (let ((#{m1 11333}#
+ (car #{w 10408}#))
+ (#{s1 11334}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11333}#)
+ (if (null? #{s1 11334}#)
+ #{w2 11332}#
+ (cons (car #{w2 11332}#)
+ (let ((#{m2 11351}#
+ (cdr #{w2 11332}#)))
+ (if (null? #{m2 11351}#)
+ #{s1 11334}#
(append
- #{s1 11336}#
- #{m2 11353}#)))))
- (cons (let ((#{m2 11361}#
- (car #{w2 11334}#)))
- (if (null? #{m2 11361}#)
- #{m1 11335}#
+ #{s1 11334}#
+ #{m2 11351}#)))))
+ (cons (let ((#{m2 11359}#
+ (car #{w2 11332}#)))
+ (if (null? #{m2 11359}#)
+ #{m1 11333}#
(append
- #{m1 11335}#
- #{m2 11361}#)))
- (let ((#{m2 11369}#
- (cdr #{w2 11334}#)))
- (if (null? #{m2 11369}#)
- #{s1 11336}#
+ #{m1 11333}#
+ #{m2 11359}#)))
+ (let ((#{m2 11367}#
+ (cdr #{w2 11332}#)))
+ (if (null? #{m2 11367}#)
+ #{s1 11334}#
(append
- #{s1 11336}#
- #{m2 11369}#))))))))
- (#{module 11325}#
- (vector-ref #{e 10408}# 3)))
+ #{s1 11334}#
+ #{m2 11367}#))))))))
+ (#{module 11323}#
+ (vector-ref #{e 10406}# 3)))
(vector
'syntax-object
- #{expression 11323}#
- #{wrap 11324}#
- #{module 11325}#))
- (if (null? #{e 10408}#)
- #{e 10408}#
+ #{expression 11321}#
+ #{wrap 11322}#
+ #{module 11323}#))
+ (if (null? #{e 10406}#)
+ #{e 10406}#
(vector
'syntax-object
- #{e 10408}#
- #{w 10410}#
- #{mod 10412}#))))
- (if (if (null? (car #{w 10410}#))
- (null? (cdr #{w 10410}#))
+ #{e 10406}#
+ #{w 10408}#
+ #{mod 10410}#))))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{id 10446}#
- (if (if (vector? #{id 10446}#)
- (if (= (vector-length #{id 10446}#)
+ #{id 10444}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#)
4)
- (eq? (vector-ref #{id 10446}# 0)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11421}#
- (vector-ref #{id 10446}# 1))
- (#{wrap 11422}#
- (let ((#{w2 11432}#
+ (let ((#{expression 11419}#
+ (vector-ref #{id 10444}# 1))
+ (#{wrap 11420}#
+ (let ((#{w2 11430}#
(vector-ref
- #{id 10446}#
+ #{id 10444}#
2)))
- (let ((#{m1 11433}#
- (car #{w 10410}#))
- (#{s1 11434}#
- (cdr #{w 10410}#)))
- (if (null? #{m1 11433}#)
- (if (null? #{s1 11434}#)
- #{w2 11432}#
- (cons (car #{w2 11432}#)
- (let ((#{m2 11451}#
- (cdr #{w2 11432}#)))
- (if (null? #{m2 11451}#)
- #{s1 11434}#
+ (let ((#{m1 11431}#
+ (car #{w 10408}#))
+ (#{s1 11432}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11431}#)
+ (if (null? #{s1 11432}#)
+ #{w2 11430}#
+ (cons (car #{w2 11430}#)
+ (let ((#{m2 11449}#
+ (cdr #{w2 11430}#)))
+ (if (null? #{m2 11449}#)
+ #{s1 11432}#
(append
- #{s1 11434}#
- #{m2 11451}#)))))
- (cons (let ((#{m2 11459}#
- (car #{w2 11432}#)))
- (if (null? #{m2 11459}#)
- #{m1 11433}#
+ #{s1 11432}#
+ #{m2 11449}#)))))
+ (cons (let ((#{m2 11457}#
+ (car #{w2 11430}#)))
+ (if (null? #{m2 11457}#)
+ #{m1 11431}#
(append
- #{m1 11433}#
- #{m2 11459}#)))
- (let ((#{m2 11467}#
- (cdr #{w2 11432}#)))
- (if (null? #{m2 11467}#)
- #{s1 11434}#
+ #{m1 11431}#
+ #{m2 11457}#)))
+ (let ((#{m2 11465}#
+ (cdr #{w2 11430}#)))
+ (if (null? #{m2 11465}#)
+ #{s1 11432}#
(append
- #{s1 11434}#
- #{m2 11467}#))))))))
- (#{module 11423}#
- (vector-ref #{id 10446}# 3)))
+ #{s1 11432}#
+ #{m2 11465}#))))))))
+ (#{module 11421}#
+ (vector-ref #{id 10444}# 3)))
(vector
'syntax-object
- #{expression 11421}#
- #{wrap 11422}#
- #{module 11423}#))
- (if (null? #{id 10446}#)
- #{id 10446}#
+ #{expression 11419}#
+ #{wrap 11420}#
+ #{module 11421}#))
+ (if (null? #{id 10444}#)
+ #{id 10444}#
(vector
'syntax-object
- #{id 10446}#
- #{w 10410}#
- #{id-mod 10449}#)))))))
- (if (eqv? #{atom-key 10451}# 'displaced-lexical)
+ #{id 10444}#
+ #{w 10408}#
+ #{id-mod 10447}#)))))))
+ (if (eqv? #{atom-key 10449}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (if (if (null? (car #{w 10410}#))
- (null? (cdr #{w 10410}#))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{id 10446}#
- (if (if (vector? #{id 10446}#)
- (if (= (vector-length #{id 10446}#) 4)
- (eq? (vector-ref #{id 10446}# 0)
+ #{id 10444}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#) 4)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11523}#
- (vector-ref #{id 10446}# 1))
- (#{wrap 11524}#
- (let ((#{w2 11534}#
+ (let ((#{expression 11521}#
+ (vector-ref #{id 10444}# 1))
+ (#{wrap 11522}#
+ (let ((#{w2 11532}#
(vector-ref
- #{id 10446}#
+ #{id 10444}#
2)))
- (let ((#{m1 11535}#
- (car #{w 10410}#))
- (#{s1 11536}#
- (cdr #{w 10410}#)))
- (if (null? #{m1 11535}#)
- (if (null? #{s1 11536}#)
- #{w2 11534}#
- (cons (car #{w2 11534}#)
- (let ((#{m2 11553}#
- (cdr #{w2 11534}#)))
- (if (null? #{m2 11553}#)
- #{s1 11536}#
+ (let ((#{m1 11533}#
+ (car #{w 10408}#))
+ (#{s1 11534}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11533}#)
+ (if (null? #{s1 11534}#)
+ #{w2 11532}#
+ (cons (car #{w2 11532}#)
+ (let ((#{m2 11551}#
+ (cdr #{w2 11532}#)))
+ (if (null? #{m2 11551}#)
+ #{s1 11534}#
(append
- #{s1 11536}#
- #{m2 11553}#)))))
- (cons (let ((#{m2 11561}#
- (car #{w2 11534}#)))
- (if (null? #{m2 11561}#)
- #{m1 11535}#
+ #{s1 11534}#
+ #{m2 11551}#)))))
+ (cons (let ((#{m2 11559}#
+ (car #{w2 11532}#)))
+ (if (null? #{m2 11559}#)
+ #{m1 11533}#
(append
- #{m1 11535}#
- #{m2 11561}#)))
- (let ((#{m2 11569}#
- (cdr #{w2 11534}#)))
- (if (null? #{m2 11569}#)
- #{s1 11536}#
+ #{m1 11533}#
+ #{m2 11559}#)))
+ (let ((#{m2 11567}#
+ (cdr #{w2 11532}#)))
+ (if (null? #{m2 11567}#)
+ #{s1 11534}#
(append
- #{s1 11536}#
- #{m2 11569}#))))))))
- (#{module 11525}#
- (vector-ref #{id 10446}# 3)))
+ #{s1 11534}#
+ #{m2 11567}#))))))))
+ (#{module 11523}#
+ (vector-ref #{id 10444}# 3)))
(vector
'syntax-object
- #{expression 11523}#
- #{wrap 11524}#
- #{module 11525}#))
- (if (null? #{id 10446}#)
- #{id 10446}#
+ #{expression 11521}#
+ #{wrap 11522}#
+ #{module 11523}#))
+ (if (null? #{id 10444}#)
+ #{id 10444}#
(vector
'syntax-object
- #{id 10446}#
- #{w 10410}#
- #{mod 10412}#)))))
+ #{id 10444}#
+ #{w 10408}#
+ #{mod 10410}#)))))
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11601}#
+ (let ((#{x 11599}#
(begin
- (if (if (pair? #{e 10408}#)
- #{s 10411}#
+ (if (if (pair? #{e 10406}#)
+ #{s 10409}#
#f)
(set-source-properties!
- #{e 10408}#
- #{s 10411}#))
- #{e 10408}#)))
- (if (if (null? (car #{w 10410}#))
- (null? (cdr #{w 10410}#))
+ #{e 10406}#
+ #{s 10409}#))
+ #{e 10406}#)))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{x 11601}#
- (if (if (vector? #{x 11601}#)
- (if (= (vector-length #{x 11601}#) 4)
- (eq? (vector-ref #{x 11601}# 0)
+ #{x 11599}#
+ (if (if (vector? #{x 11599}#)
+ (if (= (vector-length #{x 11599}#) 4)
+ (eq? (vector-ref #{x 11599}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11633}#
- (vector-ref #{x 11601}# 1))
- (#{wrap 11634}#
- (let ((#{w2 11642}#
+ (let ((#{expression 11631}#
+ (vector-ref #{x 11599}# 1))
+ (#{wrap 11632}#
+ (let ((#{w2 11640}#
(vector-ref
- #{x 11601}#
+ #{x 11599}#
2)))
- (let ((#{m1 11643}#
- (car #{w 10410}#))
- (#{s1 11644}#
- (cdr #{w 10410}#)))
- (if (null? #{m1 11643}#)
- (if (null? #{s1 11644}#)
- #{w2 11642}#
- (cons (car #{w2 11642}#)
- (let ((#{m2 11659}#
- (cdr #{w2 11642}#)))
- (if (null? #{m2 11659}#)
- #{s1 11644}#
+ (let ((#{m1 11641}#
+ (car #{w 10408}#))
+ (#{s1 11642}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11641}#)
+ (if (null? #{s1 11642}#)
+ #{w2 11640}#
+ (cons (car #{w2 11640}#)
+ (let ((#{m2 11657}#
+ (cdr #{w2 11640}#)))
+ (if (null? #{m2 11657}#)
+ #{s1 11642}#
(append
- #{s1 11644}#
- #{m2 11659}#)))))
- (cons (let ((#{m2 11667}#
- (car #{w2 11642}#)))
- (if (null? #{m2 11667}#)
- #{m1 11643}#
+ #{s1 11642}#
+ #{m2 11657}#)))))
+ (cons (let ((#{m2 11665}#
+ (car #{w2 11640}#)))
+ (if (null? #{m2 11665}#)
+ #{m1 11641}#
(append
- #{m1 11643}#
- #{m2 11667}#)))
- (let ((#{m2 11675}#
- (cdr #{w2 11642}#)))
- (if (null? #{m2 11675}#)
- #{s1 11644}#
+ #{m1 11641}#
+ #{m2 11665}#)))
+ (let ((#{m2 11673}#
+ (cdr #{w2 11640}#)))
+ (if (null? #{m2 11673}#)
+ #{s1 11642}#
(append
- #{s1 11644}#
- #{m2 11675}#))))))))
- (#{module 11635}#
- (vector-ref #{x 11601}# 3)))
+ #{s1 11642}#
+ #{m2 11673}#))))))))
+ (#{module 11633}#
+ (vector-ref #{x 11599}# 3)))
(vector
'syntax-object
- #{expression 11633}#
- #{wrap 11634}#
- #{module 11635}#))
- (if (null? #{x 11601}#)
- #{x 11601}#
+ #{expression 11631}#
+ #{wrap 11632}#
+ #{module 11633}#))
+ (if (null? #{x 11599}#)
+ #{x 11599}#
(vector
'syntax-object
- #{x 11601}#
- #{w 10410}#
- #{mod 10412}#))))))))))))))
- #{tmp 10414}#)
- (let ((#{tmp 11690}#
+ #{x 11599}#
+ #{w 10408}#
+ #{mod 10410}#))))))))))))))
+ #{tmp 10412}#)
+ (let ((#{tmp 11688}#
($sc-dispatch
- #{e 10408}#
+ #{e 10406}#
'(_ (any . each-any) any))))
- (if #{tmp 11690}#
+ (if #{tmp 11688}#
(@apply
- (lambda (#{head 11694}# #{tail 11695}# #{val 11696}#)
+ (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#)
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{head 11694}#
- #{r 10409}#
+ (#{syntax-type 4372}#
+ #{head 11692}#
+ #{r 10407}#
'(())
#f
#f
- #{mod 10412}#
+ #{mod 10410}#
#t))
- (lambda (#{type 11699}#
- #{value 11700}#
- #{ee 11701}#
- #{ww 11702}#
- #{ss 11703}#
- #{modmod 11704}#)
- (if (eqv? #{type 11699}# 'module-ref)
- (let ((#{val 11708}#
- (#{chi 4375}#
- #{val 11696}#
- #{r 10409}#
- #{w 10410}#
- #{mod 10412}#)))
+ (lambda (#{type 11697}#
+ #{value 11698}#
+ #{ee 11699}#
+ #{ww 11700}#
+ #{ss 11701}#
+ #{modmod 11702}#)
+ (if (eqv? #{type 11697}# 'module-ref)
+ (let ((#{val 11706}#
+ (#{chi 4373}#
+ #{val 11694}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)))
(call-with-values
(lambda ()
- (#{value 11700}#
- (cons #{head 11694}# #{tail 11695}#)
- #{r 10409}#
- #{w 10410}#))
- (lambda (#{e 11709}#
- #{r 11710}#
- #{w 11711}#
- #{s* 11712}#
- #{mod 11713}#)
- (let ((#{tmp 11715}# (list #{e 11709}#)))
+ (#{value 11698}#
+ (cons #{head 11692}# #{tail 11693}#)
+ #{r 10407}#
+ #{w 10408}#))
+ (lambda (#{e 11707}#
+ #{r 11708}#
+ #{w 11709}#
+ #{s* 11710}#
+ #{mod 11711}#)
+ (let ((#{tmp 11713}# (list #{e 11707}#)))
(if (@apply
- (lambda (#{e 11717}#)
- (if (symbol? #{e 11717}#)
+ (lambda (#{e 11715}#)
+ (if (symbol? #{e 11715}#)
#t
- (if (if (vector? #{e 11717}#)
+ (if (if (vector? #{e 11715}#)
(if (= (vector-length
- #{e 11717}#)
+ #{e 11715}#)
4)
(eq? (vector-ref
- #{e 11717}#
+ #{e 11715}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 11717}# 1))
+ (vector-ref #{e 11715}# 1))
#f)))
- #{tmp 11715}#)
+ #{tmp 11713}#)
(@apply
- (lambda (#{e 11747}#)
- (#{build-global-assignment 4316}#
- #{s 10411}#
- (syntax->datum #{e 11747}#)
- #{val 11708}#
- #{mod 11713}#))
- #{tmp 11715}#)
+ (lambda (#{e 11745}#)
+ (#{build-global-assignment 4314}#
+ #{s 10409}#
+ (syntax->datum #{e 11745}#)
+ #{val 11706}#
+ #{mod 11711}#))
+ #{tmp 11713}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11709}#))))))
- (#{build-call 4309}#
- #{s 10411}#
- (#{chi 4375}#
+ #{e 11707}#))))))
+ (#{build-call 4307}#
+ #{s 10409}#
+ (#{chi 4373}#
(list '#(syntax-object
setter
((top)
@@ -11028,25 +11011,25 @@
(top)
(top)
(top))
- #("i3587"
+ #("i3585"
+ "i3586"
+ "i3587"
"i3588"
"i3589"
- "i3590"
- "i3591"
- "i3592"))
+ "i3590"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3573" "i3574" "i3575"))
+ #("i3571" "i3572" "i3573"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3537"
+ #("i3535"
+ "i3536"
+ "i3537"
"i3538"
- "i3539"
- "i3540"
- "i3541"))
+ "i3539"))
#(ribcage
(lambda-var-list
gen-var
@@ -11469,113 +11452,113 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{head 11694}#)
- #{r 10409}#
- #{w 10410}#
- #{mod 10412}#)
- (map (lambda (#{e 12076}#)
- (#{chi 4375}#
- #{e 12076}#
- #{r 10409}#
- #{w 10410}#
- #{mod 10412}#))
+ #{head 11692}#)
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)
+ (map (lambda (#{e 12074}#)
+ (#{chi 4373}#
+ #{e 12074}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#))
(append
- #{tail 11695}#
- (list #{val 11696}#))))))))
- #{tmp 11690}#)
+ #{tail 11693}#
+ (list #{val 11694}#))))))))
+ #{tmp 11688}#)
(syntax-violation
'set!
"bad set!"
- (let ((#{x 12168}#
+ (let ((#{x 12166}#
(begin
- (if (if (pair? #{e 10408}#) #{s 10411}# #f)
- (set-source-properties! #{e 10408}# #{s 10411}#))
- #{e 10408}#)))
- (if (if (null? (car #{w 10410}#))
- (null? (cdr #{w 10410}#))
+ (if (if (pair? #{e 10406}#) #{s 10409}# #f)
+ (set-source-properties! #{e 10406}# #{s 10409}#))
+ #{e 10406}#)))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{x 12168}#
- (if (if (vector? #{x 12168}#)
- (if (= (vector-length #{x 12168}#) 4)
- (eq? (vector-ref #{x 12168}# 0) 'syntax-object)
+ #{x 12166}#
+ (if (if (vector? #{x 12166}#)
+ (if (= (vector-length #{x 12166}#) 4)
+ (eq? (vector-ref #{x 12166}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12200}# (vector-ref #{x 12168}# 1))
- (#{wrap 12201}#
- (let ((#{w2 12209}#
- (vector-ref #{x 12168}# 2)))
- (let ((#{m1 12210}# (car #{w 10410}#))
- (#{s1 12211}# (cdr #{w 10410}#)))
- (if (null? #{m1 12210}#)
- (if (null? #{s1 12211}#)
- #{w2 12209}#
- (cons (car #{w2 12209}#)
- (let ((#{m2 12226}#
- (cdr #{w2 12209}#)))
- (if (null? #{m2 12226}#)
- #{s1 12211}#
+ (let ((#{expression 12198}# (vector-ref #{x 12166}# 1))
+ (#{wrap 12199}#
+ (let ((#{w2 12207}#
+ (vector-ref #{x 12166}# 2)))
+ (let ((#{m1 12208}# (car #{w 10408}#))
+ (#{s1 12209}# (cdr #{w 10408}#)))
+ (if (null? #{m1 12208}#)
+ (if (null? #{s1 12209}#)
+ #{w2 12207}#
+ (cons (car #{w2 12207}#)
+ (let ((#{m2 12224}#
+ (cdr #{w2 12207}#)))
+ (if (null? #{m2 12224}#)
+ #{s1 12209}#
(append
- #{s1 12211}#
- #{m2 12226}#)))))
- (cons (let ((#{m2 12234}#
- (car #{w2 12209}#)))
- (if (null? #{m2 12234}#)
- #{m1 12210}#
+ #{s1 12209}#
+ #{m2 12224}#)))))
+ (cons (let ((#{m2 12232}#
+ (car #{w2 12207}#)))
+ (if (null? #{m2 12232}#)
+ #{m1 12208}#
(append
- #{m1 12210}#
- #{m2 12234}#)))
- (let ((#{m2 12242}#
- (cdr #{w2 12209}#)))
- (if (null? #{m2 12242}#)
- #{s1 12211}#
+ #{m1 12208}#
+ #{m2 12232}#)))
+ (let ((#{m2 12240}#
+ (cdr #{w2 12207}#)))
+ (if (null? #{m2 12240}#)
+ #{s1 12209}#
(append
- #{s1 12211}#
- #{m2 12242}#))))))))
- (#{module 12202}# (vector-ref #{x 12168}# 3)))
+ #{s1 12209}#
+ #{m2 12240}#))))))))
+ (#{module 12200}# (vector-ref #{x 12166}# 3)))
(vector
'syntax-object
- #{expression 12200}#
- #{wrap 12201}#
- #{module 12202}#))
- (if (null? #{x 12168}#)
- #{x 12168}#
+ #{expression 12198}#
+ #{wrap 12199}#
+ #{module 12200}#))
+ (if (null? #{x 12166}#)
+ #{x 12166}#
(vector
'syntax-object
- #{x 12168}#
- #{w 10410}#
- #{mod 10412}#))))))))))))
+ #{x 12166}#
+ #{w 10408}#
+ #{mod 10410}#))))))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 12273}# #{r 12274}# #{w 12275}#)
- (let ((#{tmp 12277}#
- ($sc-dispatch #{e 12273}# '(_ each-any any))))
- (if (if #{tmp 12277}#
+ (lambda (#{e 12271}# #{r 12272}# #{w 12273}#)
+ (let ((#{tmp 12275}#
+ ($sc-dispatch #{e 12271}# '(_ each-any any))))
+ (if (if #{tmp 12275}#
(@apply
- (lambda (#{mod 12280}# #{id 12281}#)
- (if (and-map #{id? 4343}# #{mod 12280}#)
- (if (symbol? #{id 12281}#)
+ (lambda (#{mod 12278}# #{id 12279}#)
+ (if (and-map #{id? 4341}# #{mod 12278}#)
+ (if (symbol? #{id 12279}#)
#t
- (if (if (vector? #{id 12281}#)
- (if (= (vector-length #{id 12281}#) 4)
- (eq? (vector-ref #{id 12281}# 0)
+ (if (if (vector? #{id 12279}#)
+ (if (= (vector-length #{id 12279}#) 4)
+ (eq? (vector-ref #{id 12279}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 12281}# 1))
+ (symbol? (vector-ref #{id 12279}# 1))
#f))
#f))
- #{tmp 12277}#)
+ #{tmp 12275}#)
#f)
(@apply
- (lambda (#{mod 12321}# #{id 12322}#)
+ (lambda (#{mod 12319}# #{id 12320}#)
(values
- (syntax->datum #{id 12322}#)
- #{r 12274}#
- #{w 12275}#
+ (syntax->datum #{id 12320}#)
+ #{r 12272}#
+ #{w 12273}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11584,12 +11567,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3634" "i3635"))
+ #("i3632" "i3633"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3622" "i3623" "i3624"))
+ #("i3620" "i3621" "i3622"))
#(ribcage
(lambda-var-list
gen-var
@@ -12012,70 +11995,70 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 12321}#))))
- #{tmp 12277}#)
+ #{mod 12319}#))))
+ #{tmp 12275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12273}#))))))
- (#{global-extend 4341}#
+ #{e 12271}#))))))
+ (#{global-extend 4339}#
'module-ref
'@@
- (lambda (#{e 12426}# #{r 12427}# #{w 12428}#)
+ (lambda (#{e 12424}# #{r 12425}# #{w 12426}#)
(letrec*
- ((#{remodulate 12429}#
- (lambda (#{x 12665}# #{mod 12666}#)
- (if (pair? #{x 12665}#)
- (cons (#{remodulate 12429}#
- (car #{x 12665}#)
- #{mod 12666}#)
- (#{remodulate 12429}#
- (cdr #{x 12665}#)
- #{mod 12666}#))
- (if (if (vector? #{x 12665}#)
- (if (= (vector-length #{x 12665}#) 4)
- (eq? (vector-ref #{x 12665}# 0) 'syntax-object)
+ ((#{remodulate 12427}#
+ (lambda (#{x 12663}# #{mod 12664}#)
+ (if (pair? #{x 12663}#)
+ (cons (#{remodulate 12427}#
+ (car #{x 12663}#)
+ #{mod 12664}#)
+ (#{remodulate 12427}#
+ (cdr #{x 12663}#)
+ #{mod 12664}#))
+ (if (if (vector? #{x 12663}#)
+ (if (= (vector-length #{x 12663}#) 4)
+ (eq? (vector-ref #{x 12663}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12680}#
- (#{remodulate 12429}#
- (vector-ref #{x 12665}# 1)
- #{mod 12666}#))
- (#{wrap 12681}# (vector-ref #{x 12665}# 2)))
+ (let ((#{expression 12678}#
+ (#{remodulate 12427}#
+ (vector-ref #{x 12663}# 1)
+ #{mod 12664}#))
+ (#{wrap 12679}# (vector-ref #{x 12663}# 2)))
(vector
'syntax-object
- #{expression 12680}#
- #{wrap 12681}#
- #{mod 12666}#))
- (if (vector? #{x 12665}#)
- (let ((#{n 12689}# (vector-length #{x 12665}#)))
- (let ((#{v 12690}# (make-vector #{n 12689}#)))
+ #{expression 12678}#
+ #{wrap 12679}#
+ #{mod 12664}#))
+ (if (vector? #{x 12663}#)
+ (let ((#{n 12687}# (vector-length #{x 12663}#)))
+ (let ((#{v 12688}# (make-vector #{n 12687}#)))
(letrec*
- ((#{loop 12691}#
- (lambda (#{i 12746}#)
- (if (= #{i 12746}# #{n 12689}#)
- #{v 12690}#
+ ((#{loop 12689}#
+ (lambda (#{i 12744}#)
+ (if (= #{i 12744}# #{n 12687}#)
+ #{v 12688}#
(begin
(vector-set!
- #{v 12690}#
- #{i 12746}#
- (#{remodulate 12429}#
- (vector-ref #{x 12665}# #{i 12746}#)
- #{mod 12666}#))
- (#{loop 12691}# (#{1+}# #{i 12746}#)))))))
- (#{loop 12691}# 0))))
- #{x 12665}#))))))
- (let ((#{tmp 12431}#
- ($sc-dispatch #{e 12426}# '(_ each-any any))))
- (if (if #{tmp 12431}#
+ #{v 12688}#
+ #{i 12744}#
+ (#{remodulate 12427}#
+ (vector-ref #{x 12663}# #{i 12744}#)
+ #{mod 12664}#))
+ (#{loop 12689}# (#{1+}# #{i 12744}#)))))))
+ (#{loop 12689}# 0))))
+ #{x 12663}#))))))
+ (let ((#{tmp 12429}#
+ ($sc-dispatch #{e 12424}# '(_ each-any any))))
+ (if (if #{tmp 12429}#
(@apply
- (lambda (#{mod 12435}# #{exp 12436}#)
- (and-map #{id? 4343}# #{mod 12435}#))
- #{tmp 12431}#)
+ (lambda (#{mod 12433}# #{exp 12434}#)
+ (and-map #{id? 4341}# #{mod 12433}#))
+ #{tmp 12429}#)
#f)
(@apply
- (lambda (#{mod 12452}# #{exp 12453}#)
- (let ((#{mod 12454}#
+ (lambda (#{mod 12450}# #{exp 12451}#)
+ (let ((#{mod 12452}#
(syntax->datum
(cons '#(syntax-object
private
@@ -12083,12 +12066,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3678" "i3679"))
- #(ribcage (remodulate) ((top)) ("i3645"))
+ #("i3676" "i3677"))
+ #(ribcage (remodulate) ((top)) ("i3643"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3642" "i3643" "i3644"))
+ #("i3640" "i3641" "i3642"))
#(ribcage
(lambda-var-list
gen-var
@@ -12511,181 +12494,181 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 12452}#))))
+ #{mod 12450}#))))
(values
- (#{remodulate 12429}#
- #{exp 12453}#
- #{mod 12454}#)
- #{r 12427}#
- #{w 12428}#
- (#{source-annotation 4336}# #{exp 12453}#)
- #{mod 12454}#)))
- #{tmp 12431}#)
+ (#{remodulate 12427}#
+ #{exp 12451}#
+ #{mod 12452}#)
+ #{r 12425}#
+ #{w 12426}#
+ (#{source-annotation 4334}# #{exp 12451}#)
+ #{mod 12452}#)))
+ #{tmp 12429}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12426}#))))))
- (#{global-extend 4341}#
+ #{e 12424}#))))))
+ (#{global-extend 4339}#
'core
'if
- (lambda (#{e 12859}#
- #{r 12860}#
- #{w 12861}#
- #{s 12862}#
- #{mod 12863}#)
- (let ((#{tmp 12865}#
- ($sc-dispatch #{e 12859}# '(_ any any))))
- (if #{tmp 12865}#
+ (lambda (#{e 12857}#
+ #{r 12858}#
+ #{w 12859}#
+ #{s 12860}#
+ #{mod 12861}#)
+ (let ((#{tmp 12863}#
+ ($sc-dispatch #{e 12857}# '(_ any any))))
+ (if #{tmp 12863}#
(@apply
- (lambda (#{test 12869}# #{then 12870}#)
- (#{build-conditional 4310}#
- #{s 12862}#
- (#{chi 4375}#
- #{test 12869}#
- #{r 12860}#
- #{w 12861}#
- #{mod 12863}#)
- (#{chi 4375}#
- #{then 12870}#
- #{r 12860}#
- #{w 12861}#
- #{mod 12863}#)
+ (lambda (#{test 12867}# #{then 12868}#)
+ (#{build-conditional 4308}#
+ #{s 12860}#
+ (#{chi 4373}#
+ #{test 12867}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{then 12868}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 12865}#)
- (let ((#{tmp 13131}#
- ($sc-dispatch #{e 12859}# '(_ any any any))))
- (if #{tmp 13131}#
+ #{tmp 12863}#)
+ (let ((#{tmp 13129}#
+ ($sc-dispatch #{e 12857}# '(_ any any any))))
+ (if #{tmp 13129}#
(@apply
- (lambda (#{test 13135}# #{then 13136}# #{else 13137}#)
- (#{build-conditional 4310}#
- #{s 12862}#
- (#{chi 4375}#
- #{test 13135}#
- #{r 12860}#
- #{w 12861}#
- #{mod 12863}#)
- (#{chi 4375}#
- #{then 13136}#
- #{r 12860}#
- #{w 12861}#
- #{mod 12863}#)
- (#{chi 4375}#
- #{else 13137}#
- #{r 12860}#
- #{w 12861}#
- #{mod 12863}#)))
- #{tmp 13131}#)
+ (lambda (#{test 13133}# #{then 13134}# #{else 13135}#)
+ (#{build-conditional 4308}#
+ #{s 12860}#
+ (#{chi 4373}#
+ #{test 13133}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{then 13134}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{else 13135}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)))
+ #{tmp 13129}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12859}#)))))))
- (#{global-extend 4341}#
+ #{e 12857}#)))))))
+ (#{global-extend 4339}#
'core
'with-fluids
- (lambda (#{e 13596}#
- #{r 13597}#
- #{w 13598}#
- #{s 13599}#
- #{mod 13600}#)
- (let ((#{tmp 13602}#
+ (lambda (#{e 13594}#
+ #{r 13595}#
+ #{w 13596}#
+ #{s 13597}#
+ #{mod 13598}#)
+ (let ((#{tmp 13600}#
($sc-dispatch
- #{e 13596}#
+ #{e 13594}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 13602}#
+ (if #{tmp 13600}#
(@apply
- (lambda (#{fluid 13606}#
- #{val 13607}#
- #{b 13608}#
- #{b* 13609}#)
- (#{build-dynlet 4311}#
- #{s 13599}#
- (map (lambda (#{x 13702}#)
- (#{chi 4375}#
- #{x 13702}#
- #{r 13597}#
- #{w 13598}#
- #{mod 13600}#))
- #{fluid 13606}#)
- (map (lambda (#{x 13784}#)
- (#{chi 4375}#
- #{x 13784}#
- #{r 13597}#
- #{w 13598}#
- #{mod 13600}#))
- #{val 13607}#)
- (#{chi-body 4379}#
- (cons #{b 13608}# #{b* 13609}#)
- (let ((#{x 13877}#
+ (lambda (#{fluid 13604}#
+ #{val 13605}#
+ #{b 13606}#
+ #{b* 13607}#)
+ (#{build-dynlet 4309}#
+ #{s 13597}#
+ (map (lambda (#{x 13700}#)
+ (#{chi 4373}#
+ #{x 13700}#
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#))
+ #{fluid 13604}#)
+ (map (lambda (#{x 13782}#)
+ (#{chi 4373}#
+ #{x 13782}#
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#))
+ #{val 13605}#)
+ (#{chi-body 4377}#
+ (cons #{b 13606}# #{b* 13607}#)
+ (let ((#{x 13875}#
(begin
- (if (if (pair? #{e 13596}#) #{s 13599}# #f)
+ (if (if (pair? #{e 13594}#) #{s 13597}# #f)
(set-source-properties!
- #{e 13596}#
- #{s 13599}#))
- #{e 13596}#)))
- (if (if (null? (car #{w 13598}#))
- (null? (cdr #{w 13598}#))
+ #{e 13594}#
+ #{s 13597}#))
+ #{e 13594}#)))
+ (if (if (null? (car #{w 13596}#))
+ (null? (cdr #{w 13596}#))
#f)
- #{x 13877}#
- (if (if (vector? #{x 13877}#)
- (if (= (vector-length #{x 13877}#) 4)
- (eq? (vector-ref #{x 13877}# 0) 'syntax-object)
+ #{x 13875}#
+ (if (if (vector? #{x 13875}#)
+ (if (= (vector-length #{x 13875}#) 4)
+ (eq? (vector-ref #{x 13875}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 13909}#
- (vector-ref #{x 13877}# 1))
- (#{wrap 13910}#
- (let ((#{w2 13918}#
- (vector-ref #{x 13877}# 2)))
- (let ((#{m1 13919}# (car #{w 13598}#))
- (#{s1 13920}# (cdr #{w 13598}#)))
- (if (null? #{m1 13919}#)
- (if (null? #{s1 13920}#)
- #{w2 13918}#
- (cons (car #{w2 13918}#)
- (let ((#{m2 13935}#
- (cdr #{w2 13918}#)))
- (if (null? #{m2 13935}#)
- #{s1 13920}#
+ (let ((#{expression 13907}#
+ (vector-ref #{x 13875}# 1))
+ (#{wrap 13908}#
+ (let ((#{w2 13916}#
+ (vector-ref #{x 13875}# 2)))
+ (let ((#{m1 13917}# (car #{w 13596}#))
+ (#{s1 13918}# (cdr #{w 13596}#)))
+ (if (null? #{m1 13917}#)
+ (if (null? #{s1 13918}#)
+ #{w2 13916}#
+ (cons (car #{w2 13916}#)
+ (let ((#{m2 13933}#
+ (cdr #{w2 13916}#)))
+ (if (null? #{m2 13933}#)
+ #{s1 13918}#
(append
- #{s1 13920}#
- #{m2 13935}#)))))
- (cons (let ((#{m2 13943}#
- (car #{w2 13918}#)))
- (if (null? #{m2 13943}#)
- #{m1 13919}#
+ #{s1 13918}#
+ #{m2 13933}#)))))
+ (cons (let ((#{m2 13941}#
+ (car #{w2 13916}#)))
+ (if (null? #{m2 13941}#)
+ #{m1 13917}#
(append
- #{m1 13919}#
- #{m2 13943}#)))
- (let ((#{m2 13951}#
- (cdr #{w2 13918}#)))
- (if (null? #{m2 13951}#)
- #{s1 13920}#
+ #{m1 13917}#
+ #{m2 13941}#)))
+ (let ((#{m2 13949}#
+ (cdr #{w2 13916}#)))
+ (if (null? #{m2 13949}#)
+ #{s1 13918}#
(append
- #{s1 13920}#
- #{m2 13951}#))))))))
- (#{module 13911}# (vector-ref #{x 13877}# 3)))
+ #{s1 13918}#
+ #{m2 13949}#))))))))
+ (#{module 13909}# (vector-ref #{x 13875}# 3)))
(vector
'syntax-object
- #{expression 13909}#
- #{wrap 13910}#
- #{module 13911}#))
- (if (null? #{x 13877}#)
- #{x 13877}#
+ #{expression 13907}#
+ #{wrap 13908}#
+ #{module 13909}#))
+ (if (null? #{x 13875}#)
+ #{x 13875}#
(vector
'syntax-object
- #{x 13877}#
- #{w 13598}#
- #{mod 13600}#)))))
- #{r 13597}#
- #{w 13598}#
- #{mod 13600}#)))
- #{tmp 13602}#)
+ #{x 13875}#
+ #{w 13596}#
+ #{mod 13598}#)))))
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#)))
+ #{tmp 13600}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 13596}#)))))
+ #{e 13594}#)))))
(module-define!
(current-module)
'begin
@@ -12708,68 +12691,68 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4341}#
+ (#{global-extend 4339}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 14245}#
- (lambda (#{pattern 15901}# #{keys 15902}#)
+ ((#{convert-pattern 14243}#
+ (lambda (#{pattern 15899}# #{keys 15900}#)
(letrec*
- ((#{cvt* 15903}#
- (lambda (#{p* 16702}# #{n 16703}# #{ids 16704}#)
- (if (not (pair? #{p* 16702}#))
- (#{cvt 15905}#
- #{p* 16702}#
- #{n 16703}#
- #{ids 16704}#)
+ ((#{cvt* 15901}#
+ (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#)
+ (if (not (pair? #{p* 16700}#))
+ (#{cvt 15903}#
+ #{p* 16700}#
+ #{n 16701}#
+ #{ids 16702}#)
(call-with-values
(lambda ()
- (#{cvt* 15903}#
- (cdr #{p* 16702}#)
- #{n 16703}#
- #{ids 16704}#))
- (lambda (#{y 16707}# #{ids 16708}#)
+ (#{cvt* 15901}#
+ (cdr #{p* 16700}#)
+ #{n 16701}#
+ #{ids 16702}#))
+ (lambda (#{y 16705}# #{ids 16706}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- (car #{p* 16702}#)
- #{n 16703}#
- #{ids 16708}#))
- (lambda (#{x 16711}# #{ids 16712}#)
+ (#{cvt 15903}#
+ (car #{p* 16700}#)
+ #{n 16701}#
+ #{ids 16706}#))
+ (lambda (#{x 16709}# #{ids 16710}#)
(values
- (cons #{x 16711}# #{y 16707}#)
- #{ids 16712}#))))))))
- (#{v-reverse 15904}#
- (lambda (#{x 16713}#)
+ (cons #{x 16709}# #{y 16705}#)
+ #{ids 16710}#))))))))
+ (#{v-reverse 15902}#
+ (lambda (#{x 16711}#)
(letrec*
- ((#{loop 16714}#
- (lambda (#{r 16815}# #{x 16816}#)
- (if (not (pair? #{x 16816}#))
- (values #{r 16815}# #{x 16816}#)
- (#{loop 16714}#
- (cons (car #{x 16816}#) #{r 16815}#)
- (cdr #{x 16816}#))))))
- (#{loop 16714}# '() #{x 16713}#))))
- (#{cvt 15905}#
- (lambda (#{p 15908}# #{n 15909}# #{ids 15910}#)
- (if (if (symbol? #{p 15908}#)
+ ((#{loop 16712}#
+ (lambda (#{r 16813}# #{x 16814}#)
+ (if (not (pair? #{x 16814}#))
+ (values #{r 16813}# #{x 16814}#)
+ (#{loop 16712}#
+ (cons (car #{x 16814}#) #{r 16813}#)
+ (cdr #{x 16814}#))))))
+ (#{loop 16712}# '() #{x 16711}#))))
+ (#{cvt 15903}#
+ (lambda (#{p 15906}# #{n 15907}# #{ids 15908}#)
+ (if (if (symbol? #{p 15906}#)
#t
- (if (if (vector? #{p 15908}#)
- (if (= (vector-length #{p 15908}#) 4)
- (eq? (vector-ref #{p 15908}# 0)
+ (if (if (vector? #{p 15906}#)
+ (if (= (vector-length #{p 15906}#) 4)
+ (eq? (vector-ref #{p 15906}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 15908}# 1))
+ (symbol? (vector-ref #{p 15906}# 1))
#f))
- (if (#{bound-id-member? 4367}#
- #{p 15908}#
- #{keys 15902}#)
+ (if (#{bound-id-member? 4365}#
+ #{p 15906}#
+ #{keys 15900}#)
(values
- (vector 'free-id #{p 15908}#)
- #{ids 15910}#)
- (if (#{free-id=? 4363}#
- #{p 15908}#
+ (vector 'free-id #{p 15906}#)
+ #{ids 15908}#)
+ (if (#{free-id=? 4361}#
+ #{p 15906}#
'#(syntax-object
_
((top)
@@ -12777,22 +12760,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3779" "i3780" "i3781"))
+ #("i3777" "i3778" "i3779"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3752" "i3750" "i3748"))
+ ("i3750" "i3748" "i3746"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3746" "i3747"))
+ #("i3744" "i3745"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -13215,36 +13198,36 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))
- (values '_ #{ids 15910}#)
+ (values '_ #{ids 15908}#)
(values
'any
- (cons (cons #{p 15908}# #{n 15909}#)
- #{ids 15910}#))))
- (let ((#{tmp 16042}#
- ($sc-dispatch #{p 15908}# '(any any))))
- (if (if #{tmp 16042}#
+ (cons (cons #{p 15906}# #{n 15907}#)
+ #{ids 15908}#))))
+ (let ((#{tmp 16040}#
+ ($sc-dispatch #{p 15906}# '(any any))))
+ (if (if #{tmp 16040}#
(@apply
- (lambda (#{x 16046}# #{dots 16047}#)
- (if (if (if (vector? #{dots 16047}#)
+ (lambda (#{x 16044}# #{dots 16045}#)
+ (if (if (if (vector? #{dots 16045}#)
(if (= (vector-length
- #{dots 16047}#)
+ #{dots 16045}#)
4)
(eq? (vector-ref
- #{dots 16047}#
+ #{dots 16045}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 16047}# 1))
+ (symbol? (vector-ref #{dots 16045}# 1))
#f)
- (#{free-id=? 4363}#
- #{dots 16047}#
+ (#{free-id=? 4361}#
+ #{dots 16045}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2263"))
+ #(ribcage #(x) #((top)) #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -13668,45 +13651,45 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))
- #{tmp 16042}#)
+ #{tmp 16040}#)
#f)
(@apply
- (lambda (#{x 16086}# #{dots 16087}#)
+ (lambda (#{x 16084}# #{dots 16085}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- #{x 16086}#
- (#{1+}# #{n 15909}#)
- #{ids 15910}#))
- (lambda (#{p 16088}# #{ids 16089}#)
+ (#{cvt 15903}#
+ #{x 16084}#
+ (#{1+}# #{n 15907}#)
+ #{ids 15908}#))
+ (lambda (#{p 16086}# #{ids 16087}#)
(values
- (if (eq? #{p 16088}# 'any)
+ (if (eq? #{p 16086}# 'any)
'each-any
- (vector 'each #{p 16088}#))
- #{ids 16089}#))))
- #{tmp 16042}#)
- (let ((#{tmp 16090}#
- ($sc-dispatch #{p 15908}# '(any any . any))))
- (if (if #{tmp 16090}#
+ (vector 'each #{p 16086}#))
+ #{ids 16087}#))))
+ #{tmp 16040}#)
+ (let ((#{tmp 16088}#
+ ($sc-dispatch #{p 15906}# '(any any . any))))
+ (if (if #{tmp 16088}#
(@apply
- (lambda (#{x 16094}#
- #{dots 16095}#
- #{ys 16096}#)
- (if (if (if (vector? #{dots 16095}#)
+ (lambda (#{x 16092}#
+ #{dots 16093}#
+ #{ys 16094}#)
+ (if (if (if (vector? #{dots 16093}#)
(if (= (vector-length
- #{dots 16095}#)
+ #{dots 16093}#)
4)
(eq? (vector-ref
- #{dots 16095}#
+ #{dots 16093}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 16095}# 1))
+ (vector-ref #{dots 16093}# 1))
#f)
- (#{free-id=? 4363}#
- #{dots 16095}#
+ (#{free-id=? 4361}#
+ #{dots 16093}#
'#(syntax-object
...
((top)
@@ -13715,7 +13698,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -14139,175 +14122,175 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))
- #{tmp 16090}#)
+ #{tmp 16088}#)
#f)
(@apply
- (lambda (#{x 16135}#
- #{dots 16136}#
- #{ys 16137}#)
+ (lambda (#{x 16133}#
+ #{dots 16134}#
+ #{ys 16135}#)
(call-with-values
(lambda ()
- (#{cvt* 15903}#
- #{ys 16137}#
- #{n 15909}#
- #{ids 15910}#))
- (lambda (#{ys 16622}# #{ids 16623}#)
+ (#{cvt* 15901}#
+ #{ys 16135}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{ys 16620}# #{ids 16621}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- #{x 16135}#
- (#{1+}# #{n 15909}#)
- #{ids 16623}#))
- (lambda (#{x 16624}# #{ids 16625}#)
+ (#{cvt 15903}#
+ #{x 16133}#
+ (#{1+}# #{n 15907}#)
+ #{ids 16621}#))
+ (lambda (#{x 16622}# #{ids 16623}#)
(call-with-values
(lambda ()
- (#{v-reverse 15904}#
- #{ys 16622}#))
- (lambda (#{ys 16661}# #{e 16662}#)
+ (#{v-reverse 15902}#
+ #{ys 16620}#))
+ (lambda (#{ys 16659}# #{e 16660}#)
(values
(vector
'each+
- #{x 16624}#
- #{ys 16661}#
- #{e 16662}#)
- #{ids 16625}#))))))))
- #{tmp 16090}#)
- (let ((#{tmp 16663}#
- ($sc-dispatch #{p 15908}# '(any . any))))
- (if #{tmp 16663}#
+ #{x 16622}#
+ #{ys 16659}#
+ #{e 16660}#)
+ #{ids 16623}#))))))))
+ #{tmp 16088}#)
+ (let ((#{tmp 16661}#
+ ($sc-dispatch #{p 15906}# '(any . any))))
+ (if #{tmp 16661}#
(@apply
- (lambda (#{x 16667}# #{y 16668}#)
+ (lambda (#{x 16665}# #{y 16666}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- #{y 16668}#
- #{n 15909}#
- #{ids 15910}#))
- (lambda (#{y 16669}# #{ids 16670}#)
+ (#{cvt 15903}#
+ #{y 16666}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{y 16667}# #{ids 16668}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- #{x 16667}#
- #{n 15909}#
- #{ids 16670}#))
- (lambda (#{x 16671}# #{ids 16672}#)
+ (#{cvt 15903}#
+ #{x 16665}#
+ #{n 15907}#
+ #{ids 16668}#))
+ (lambda (#{x 16669}# #{ids 16670}#)
(values
- (cons #{x 16671}# #{y 16669}#)
- #{ids 16672}#))))))
- #{tmp 16663}#)
- (let ((#{tmp 16673}#
- ($sc-dispatch #{p 15908}# '())))
- (if #{tmp 16673}#
+ (cons #{x 16669}# #{y 16667}#)
+ #{ids 16670}#))))))
+ #{tmp 16661}#)
+ (let ((#{tmp 16671}#
+ ($sc-dispatch #{p 15906}# '())))
+ (if #{tmp 16671}#
(@apply
- (lambda () (values '() #{ids 15910}#))
- #{tmp 16673}#)
- (let ((#{tmp 16677}#
+ (lambda () (values '() #{ids 15908}#))
+ #{tmp 16671}#)
+ (let ((#{tmp 16675}#
($sc-dispatch
- #{p 15908}#
+ #{p 15906}#
'#(vector each-any))))
- (if #{tmp 16677}#
+ (if #{tmp 16675}#
(@apply
- (lambda (#{x 16681}#)
+ (lambda (#{x 16679}#)
(call-with-values
(lambda ()
- (#{cvt 15905}#
- #{x 16681}#
- #{n 15909}#
- #{ids 15910}#))
- (lambda (#{p 16682}#
- #{ids 16683}#)
+ (#{cvt 15903}#
+ #{x 16679}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{p 16680}#
+ #{ids 16681}#)
(values
(vector
'vector
- #{p 16682}#)
- #{ids 16683}#))))
- #{tmp 16677}#)
+ #{p 16680}#)
+ #{ids 16681}#))))
+ #{tmp 16675}#)
(values
(vector
'atom
- (#{strip 4388}#
- #{p 15908}#
+ (#{strip 4386}#
+ #{p 15906}#
'(())))
- #{ids 15910}#)))))))))))))))
- (#{cvt 15905}# #{pattern 15901}# 0 '()))))
- (#{build-dispatch-call 14246}#
- (lambda (#{pvars 16817}#
- #{exp 16818}#
- #{y 16819}#
- #{r 16820}#
- #{mod 16821}#)
- (let ((#{ids 16822}# (map car #{pvars 16817}#)))
+ #{ids 15908}#)))))))))))))))
+ (#{cvt 15903}# #{pattern 15899}# 0 '()))))
+ (#{build-dispatch-call 14244}#
+ (lambda (#{pvars 16815}#
+ #{exp 16816}#
+ #{y 16817}#
+ #{r 16818}#
+ #{mod 16819}#)
+ (let ((#{ids 16820}# (map car #{pvars 16815}#)))
(begin
- (map cdr #{pvars 16817}#)
- (let ((#{labels 16824}#
- (#{gen-labels 4346}# #{ids 16822}#))
- (#{new-vars 16825}#
- (map #{gen-var 4389}# #{ids 16822}#)))
- (#{build-primcall 4321}#
+ (map cdr #{pvars 16815}#)
+ (let ((#{labels 16822}#
+ (#{gen-labels 4344}# #{ids 16820}#))
+ (#{new-vars 16823}#
+ (map #{gen-var 4387}# #{ids 16820}#)))
+ (#{build-primcall 4319}#
#f
'apply
- (list (#{build-simple-lambda 4318}#
+ (list (#{build-simple-lambda 4316}#
#f
- (map syntax->datum #{ids 16822}#)
+ (map syntax->datum #{ids 16820}#)
#f
- #{new-vars 16825}#
+ #{new-vars 16823}#
'()
- (#{chi 4375}#
- #{exp 16818}#
- (#{extend-env 4337}#
- #{labels 16824}#
- (map (lambda (#{var 17157}# #{level 17158}#)
+ (#{chi 4373}#
+ #{exp 16816}#
+ (#{extend-env 4335}#
+ #{labels 16822}#
+ (map (lambda (#{var 17155}# #{level 17156}#)
(cons 'syntax
- (cons #{var 17157}#
- #{level 17158}#)))
- #{new-vars 16825}#
- (map cdr #{pvars 16817}#))
- #{r 16820}#)
- (#{make-binding-wrap 4357}#
- #{ids 16822}#
- #{labels 16824}#
+ (cons #{var 17155}#
+ #{level 17156}#)))
+ #{new-vars 16823}#
+ (map cdr #{pvars 16815}#))
+ #{r 16818}#)
+ (#{make-binding-wrap 4355}#
+ #{ids 16820}#
+ #{labels 16822}#
'(()))
- #{mod 16821}#))
- #{y 16819}#)))))))
- (#{gen-clause 14247}#
- (lambda (#{x 15495}#
- #{keys 15496}#
- #{clauses 15497}#
- #{r 15498}#
- #{pat 15499}#
- #{fender 15500}#
- #{exp 15501}#
- #{mod 15502}#)
+ #{mod 16819}#))
+ #{y 16817}#)))))))
+ (#{gen-clause 14245}#
+ (lambda (#{x 15493}#
+ #{keys 15494}#
+ #{clauses 15495}#
+ #{r 15496}#
+ #{pat 15497}#
+ #{fender 15498}#
+ #{exp 15499}#
+ #{mod 15500}#)
(call-with-values
(lambda ()
- (#{convert-pattern 14245}#
- #{pat 15499}#
- #{keys 15496}#))
- (lambda (#{p 15640}# #{pvars 15641}#)
- (if (not (#{distinct-bound-ids? 4366}#
- (map car #{pvars 15641}#)))
+ (#{convert-pattern 14243}#
+ #{pat 15497}#
+ #{keys 15494}#))
+ (lambda (#{p 15638}# #{pvars 15639}#)
+ (if (not (#{distinct-bound-ids? 4364}#
+ (map car #{pvars 15639}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 15499}#)
+ #{pat 15497}#)
(if (not (and-map
- (lambda (#{x 15750}#)
- (not (let ((#{x 15754}# (car #{x 15750}#)))
- (if (if (if (vector? #{x 15754}#)
+ (lambda (#{x 15748}#)
+ (not (let ((#{x 15752}# (car #{x 15748}#)))
+ (if (if (if (vector? #{x 15752}#)
(if (= (vector-length
- #{x 15754}#)
+ #{x 15752}#)
4)
(eq? (vector-ref
- #{x 15754}#
+ #{x 15752}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 15754}# 1))
+ (vector-ref #{x 15752}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 15754}#
+ (#{free-id=? 4361}#
+ #{x 15752}#
'#(syntax-object
...
((top)
@@ -14316,7 +14299,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -14740,43 +14723,43 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))))
- #{pvars 15641}#))
+ #{pvars 15639}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 15499}#)
- (let ((#{y 15779}#
+ #{pat 15497}#)
+ (let ((#{y 15777}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 15784}#
- (let ((#{req 15793}# (list 'tmp))
- (#{vars 15795}# (list #{y 15779}#))
- (#{exp 15797}#
- (let ((#{y 15826}#
+ (let ((#{fun-exp 15782}#
+ (let ((#{req 15791}# (list 'tmp))
+ (#{vars 15793}# (list #{y 15777}#))
+ (#{exp 15795}#
+ (let ((#{y 15824}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
3)
#f
'tmp
- #{y 15779}#)))
- (let ((#{test-exp 15830}#
- (let ((#{tmp 15839}#
+ #{y 15777}#)))
+ (let ((#{test-exp 15828}#
+ (let ((#{tmp 15837}#
($sc-dispatch
- #{fender 15500}#
+ #{fender 15498}#
'#(atom #t))))
- (if #{tmp 15839}#
+ (if #{tmp 15837}#
(@apply
- (lambda () #{y 15826}#)
- #{tmp 15839}#)
- (let ((#{then-exp 15857}#
- (#{build-dispatch-call 14246}#
- #{pvars 15641}#
- #{fender 15500}#
- #{y 15826}#
- #{r 15498}#
- #{mod 15502}#))
- (#{else-exp 15858}#
+ (lambda () #{y 15824}#)
+ #{tmp 15837}#)
+ (let ((#{then-exp 15855}#
+ (#{build-dispatch-call 14244}#
+ #{pvars 15639}#
+ #{fender 15498}#
+ #{y 15824}#
+ #{r 15496}#
+ #{mod 15500}#))
+ (#{else-exp 15856}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -14788,81 +14771,81 @@
%expanded-vtables
10)
#f
- #{y 15826}#
- #{then-exp 15857}#
- #{else-exp 15858}#)))))
- (#{then-exp 15831}#
- (#{build-dispatch-call 14246}#
- #{pvars 15641}#
- #{exp 15501}#
- #{y 15826}#
- #{r 15498}#
- #{mod 15502}#))
- (#{else-exp 15832}#
- (#{gen-syntax-case 14248}#
- #{x 15495}#
- #{keys 15496}#
- #{clauses 15497}#
- #{r 15498}#
- #{mod 15502}#)))
+ #{y 15824}#
+ #{then-exp 15855}#
+ #{else-exp 15856}#)))))
+ (#{then-exp 15829}#
+ (#{build-dispatch-call 14244}#
+ #{pvars 15639}#
+ #{exp 15499}#
+ #{y 15824}#
+ #{r 15496}#
+ #{mod 15500}#))
+ (#{else-exp 15830}#
+ (#{gen-syntax-case 14246}#
+ #{x 15493}#
+ #{keys 15494}#
+ #{clauses 15495}#
+ #{r 15496}#
+ #{mod 15500}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 15830}#
- #{then-exp 15831}#
- #{else-exp 15832}#)))))
- (let ((#{body 15802}#
+ #{test-exp 15828}#
+ #{then-exp 15829}#
+ #{else-exp 15830}#)))))
+ (let ((#{body 15800}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 15793}#
+ #{req 15791}#
#f
#f
#f
'()
- #{vars 15795}#
- #{exp 15797}#
+ #{vars 15793}#
+ #{exp 15795}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 15802}#))))
- (#{arg-exps 15785}#
- (list (if (eq? #{p 15640}# 'any)
- (let ((#{args 15880}#
- (list #{x 15495}#)))
+ #{body 15800}#))))
+ (#{arg-exps 15783}#
+ (list (if (eq? #{p 15638}# 'any)
+ (let ((#{args 15878}#
+ (list #{x 15493}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 15880}#))
- (let ((#{args 15889}#
- (list #{x 15495}#
+ #{args 15878}#))
+ (let ((#{args 15887}#
+ (list #{x 15493}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 15640}#))))
+ #{p 15638}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'$sc-dispatch
- #{args 15889}#))))))
+ #{args 15887}#))))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 15784}#
- #{arg-exps 15785}#)))))))))
- (#{gen-syntax-case 14248}#
- (lambda (#{x 14992}#
- #{keys 14993}#
- #{clauses 14994}#
- #{r 14995}#
- #{mod 14996}#)
- (if (null? #{clauses 14994}#)
- (let ((#{args 15002}#
+ #{fun-exp 15782}#
+ #{arg-exps 15783}#)))))))))
+ (#{gen-syntax-case 14246}#
+ (lambda (#{x 14990}#
+ #{keys 14991}#
+ #{clauses 14992}#
+ #{r 14993}#
+ #{mod 14994}#)
+ (if (null? #{clauses 14992}#)
+ (let ((#{args 15000}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -14871,57 +14854,57 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 14992}#)))
+ #{x 14990}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'syntax-violation
- #{args 15002}#))
- (let ((#{tmp 15021}# (car #{clauses 14994}#)))
- (let ((#{tmp 15022}#
- ($sc-dispatch #{tmp 15021}# '(any any))))
- (if #{tmp 15022}#
+ #{args 15000}#))
+ (let ((#{tmp 15019}# (car #{clauses 14992}#)))
+ (let ((#{tmp 15020}#
+ ($sc-dispatch #{tmp 15019}# '(any any))))
+ (if #{tmp 15020}#
(@apply
- (lambda (#{pat 15024}# #{exp 15025}#)
- (if (if (if (symbol? #{pat 15024}#)
+ (lambda (#{pat 15022}# #{exp 15023}#)
+ (if (if (if (symbol? #{pat 15022}#)
#t
- (if (if (vector? #{pat 15024}#)
- (if (= (vector-length #{pat 15024}#)
+ (if (if (vector? #{pat 15022}#)
+ (if (= (vector-length #{pat 15022}#)
4)
- (eq? (vector-ref #{pat 15024}# 0)
+ (eq? (vector-ref #{pat 15022}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 15024}# 1))
+ (symbol? (vector-ref #{pat 15022}# 1))
#f))
(and-map
- (lambda (#{x 15052}#)
- (not (#{free-id=? 4363}#
- #{pat 15024}#
- #{x 15052}#)))
+ (lambda (#{x 15050}#)
+ (not (#{free-id=? 4361}#
+ #{pat 15022}#
+ #{x 15050}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -15344,32 +15327,32 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{keys 14993}#))
+ #{keys 14991}#))
#f)
- (if (#{free-id=? 4363}#
+ (if (#{free-id=? 4361}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -15798,23 +15781,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -16237,181 +16220,181 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))
- (#{chi 4375}#
- #{exp 15025}#
- #{r 14995}#
+ (#{chi 4373}#
+ #{exp 15023}#
+ #{r 14993}#
'(())
- #{mod 14996}#)
- (let ((#{labels 15138}#
+ #{mod 14994}#)
+ (let ((#{labels 15136}#
(list (symbol->string (gensym "i"))))
- (#{var 15139}#
- (let ((#{id 15177}#
- (if (if (vector? #{pat 15024}#)
+ (#{var 15137}#
+ (let ((#{id 15175}#
+ (if (if (vector? #{pat 15022}#)
(if (= (vector-length
- #{pat 15024}#)
+ #{pat 15022}#)
4)
(eq? (vector-ref
- #{pat 15024}#
+ #{pat 15022}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 15024}# 1)
- #{pat 15024}#)))
+ (vector-ref #{pat 15022}# 1)
+ #{pat 15022}#)))
(gensym
(string-append
- (symbol->string #{id 15177}#)
+ (symbol->string #{id 15175}#)
" ")))))
- (#{build-call 4309}#
+ (#{build-call 4307}#
#f
- (#{build-simple-lambda 4318}#
+ (#{build-simple-lambda 4316}#
#f
- (list (syntax->datum #{pat 15024}#))
+ (list (syntax->datum #{pat 15022}#))
#f
- (list #{var 15139}#)
+ (list #{var 15137}#)
'()
- (#{chi 4375}#
- #{exp 15025}#
- (#{extend-env 4337}#
- #{labels 15138}#
+ (#{chi 4373}#
+ #{exp 15023}#
+ (#{extend-env 4335}#
+ #{labels 15136}#
(list (cons 'syntax
- (cons #{var 15139}# 0)))
- #{r 14995}#)
- (#{make-binding-wrap 4357}#
- (list #{pat 15024}#)
- #{labels 15138}#
+ (cons #{var 15137}# 0)))
+ #{r 14993}#)
+ (#{make-binding-wrap 4355}#
+ (list #{pat 15022}#)
+ #{labels 15136}#
'(()))
- #{mod 14996}#))
- (list #{x 14992}#))))
- (#{gen-clause 14247}#
- #{x 14992}#
- #{keys 14993}#
- (cdr #{clauses 14994}#)
- #{r 14995}#
- #{pat 15024}#
+ #{mod 14994}#))
+ (list #{x 14990}#))))
+ (#{gen-clause 14245}#
+ #{x 14990}#
+ #{keys 14991}#
+ (cdr #{clauses 14992}#)
+ #{r 14993}#
+ #{pat 15022}#
#t
- #{exp 15025}#
- #{mod 14996}#)))
- #{tmp 15022}#)
- (let ((#{tmp 15487}#
- ($sc-dispatch #{tmp 15021}# '(any any any))))
- (if #{tmp 15487}#
+ #{exp 15023}#
+ #{mod 14994}#)))
+ #{tmp 15020}#)
+ (let ((#{tmp 15485}#
+ ($sc-dispatch #{tmp 15019}# '(any any any))))
+ (if #{tmp 15485}#
(@apply
- (lambda (#{pat 15489}#
- #{fender 15490}#
- #{exp 15491}#)
- (#{gen-clause 14247}#
- #{x 14992}#
- #{keys 14993}#
- (cdr #{clauses 14994}#)
- #{r 14995}#
- #{pat 15489}#
- #{fender 15490}#
- #{exp 15491}#
- #{mod 14996}#))
- #{tmp 15487}#)
+ (lambda (#{pat 15487}#
+ #{fender 15488}#
+ #{exp 15489}#)
+ (#{gen-clause 14245}#
+ #{x 14990}#
+ #{keys 14991}#
+ (cdr #{clauses 14992}#)
+ #{r 14993}#
+ #{pat 15487}#
+ #{fender 15488}#
+ #{exp 15489}#
+ #{mod 14994}#))
+ #{tmp 15485}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 14994}#)))))))))))
- (lambda (#{e 14249}#
- #{r 14250}#
- #{w 14251}#
- #{s 14252}#
- #{mod 14253}#)
- (let ((#{e 14254}#
- (let ((#{x 14903}#
+ (car #{clauses 14992}#)))))))))))
+ (lambda (#{e 14247}#
+ #{r 14248}#
+ #{w 14249}#
+ #{s 14250}#
+ #{mod 14251}#)
+ (let ((#{e 14252}#
+ (let ((#{x 14901}#
(begin
- (if (if (pair? #{e 14249}#) #{s 14252}# #f)
- (set-source-properties! #{e 14249}# #{s 14252}#))
- #{e 14249}#)))
- (if (if (null? (car #{w 14251}#))
- (null? (cdr #{w 14251}#))
+ (if (if (pair? #{e 14247}#) #{s 14250}# #f)
+ (set-source-properties! #{e 14247}# #{s 14250}#))
+ #{e 14247}#)))
+ (if (if (null? (car #{w 14249}#))
+ (null? (cdr #{w 14249}#))
#f)
- #{x 14903}#
- (if (if (vector? #{x 14903}#)
- (if (= (vector-length #{x 14903}#) 4)
- (eq? (vector-ref #{x 14903}# 0) 'syntax-object)
+ #{x 14901}#
+ (if (if (vector? #{x 14901}#)
+ (if (= (vector-length #{x 14901}#) 4)
+ (eq? (vector-ref #{x 14901}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 14935}# (vector-ref #{x 14903}# 1))
- (#{wrap 14936}#
- (let ((#{w2 14944}#
- (vector-ref #{x 14903}# 2)))
- (let ((#{m1 14945}# (car #{w 14251}#))
- (#{s1 14946}# (cdr #{w 14251}#)))
- (if (null? #{m1 14945}#)
- (if (null? #{s1 14946}#)
- #{w2 14944}#
- (cons (car #{w2 14944}#)
- (let ((#{m2 14961}#
- (cdr #{w2 14944}#)))
- (if (null? #{m2 14961}#)
- #{s1 14946}#
+ (let ((#{expression 14933}# (vector-ref #{x 14901}# 1))
+ (#{wrap 14934}#
+ (let ((#{w2 14942}#
+ (vector-ref #{x 14901}# 2)))
+ (let ((#{m1 14943}# (car #{w 14249}#))
+ (#{s1 14944}# (cdr #{w 14249}#)))
+ (if (null? #{m1 14943}#)
+ (if (null? #{s1 14944}#)
+ #{w2 14942}#
+ (cons (car #{w2 14942}#)
+ (let ((#{m2 14959}#
+ (cdr #{w2 14942}#)))
+ (if (null? #{m2 14959}#)
+ #{s1 14944}#
(append
- #{s1 14946}#
- #{m2 14961}#)))))
- (cons (let ((#{m2 14969}#
- (car #{w2 14944}#)))
- (if (null? #{m2 14969}#)
- #{m1 14945}#
+ #{s1 14944}#
+ #{m2 14959}#)))))
+ (cons (let ((#{m2 14967}#
+ (car #{w2 14942}#)))
+ (if (null? #{m2 14967}#)
+ #{m1 14943}#
(append
- #{m1 14945}#
- #{m2 14969}#)))
- (let ((#{m2 14977}#
- (cdr #{w2 14944}#)))
- (if (null? #{m2 14977}#)
- #{s1 14946}#
+ #{m1 14943}#
+ #{m2 14967}#)))
+ (let ((#{m2 14975}#
+ (cdr #{w2 14942}#)))
+ (if (null? #{m2 14975}#)
+ #{s1 14944}#
(append
- #{s1 14946}#
- #{m2 14977}#))))))))
- (#{module 14937}# (vector-ref #{x 14903}# 3)))
+ #{s1 14944}#
+ #{m2 14975}#))))))))
+ (#{module 14935}# (vector-ref #{x 14901}# 3)))
(vector
'syntax-object
- #{expression 14935}#
- #{wrap 14936}#
- #{module 14937}#))
- (if (null? #{x 14903}#)
- #{x 14903}#
+ #{expression 14933}#
+ #{wrap 14934}#
+ #{module 14935}#))
+ (if (null? #{x 14901}#)
+ #{x 14901}#
(vector
'syntax-object
- #{x 14903}#
- #{w 14251}#
- #{mod 14253}#)))))))
- (let ((#{tmp 14255}# #{e 14254}#))
- (let ((#{tmp 14256}#
+ #{x 14901}#
+ #{w 14249}#
+ #{mod 14251}#)))))))
+ (let ((#{tmp 14253}# #{e 14252}#))
+ (let ((#{tmp 14254}#
($sc-dispatch
- #{tmp 14255}#
+ #{tmp 14253}#
'(_ any each-any . each-any))))
- (if #{tmp 14256}#
+ (if #{tmp 14254}#
(@apply
- (lambda (#{val 14308}# #{key 14309}# #{m 14310}#)
+ (lambda (#{val 14306}# #{key 14307}# #{m 14308}#)
(if (and-map
- (lambda (#{x 14311}#)
- (if (if (symbol? #{x 14311}#)
+ (lambda (#{x 14309}#)
+ (if (if (symbol? #{x 14309}#)
#t
- (if (if (vector? #{x 14311}#)
- (if (= (vector-length #{x 14311}#) 4)
- (eq? (vector-ref #{x 14311}# 0)
+ (if (if (vector? #{x 14309}#)
+ (if (= (vector-length #{x 14309}#) 4)
+ (eq? (vector-ref #{x 14309}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14311}# 1))
+ (symbol? (vector-ref #{x 14309}# 1))
#f))
- (not (if (if (if (vector? #{x 14311}#)
+ (not (if (if (if (vector? #{x 14309}#)
(if (= (vector-length
- #{x 14311}#)
+ #{x 14309}#)
4)
(eq? (vector-ref
- #{x 14311}#
+ #{x 14309}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14311}# 1))
+ (symbol? (vector-ref #{x 14309}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 14311}#
+ (#{free-id=? 4361}#
+ #{x 14309}#
'#(syntax-object
...
((top)
@@ -16420,7 +16403,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -16845,790 +16828,790 @@
(hygiene guile)))
#f))
#f))
- #{key 14309}#)
- (let ((#{x 14376}#
+ #{key 14307}#)
+ (let ((#{x 14374}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-call 4309}#
- #{s 14252}#
- (let ((#{req 14518}# (list 'tmp))
- (#{vars 14520}# (list #{x 14376}#))
- (#{exp 14522}#
- (#{gen-syntax-case 14248}#
+ (#{build-call 4307}#
+ #{s 14250}#
+ (let ((#{req 14516}# (list 'tmp))
+ (#{vars 14518}# (list #{x 14374}#))
+ (#{exp 14520}#
+ (#{gen-syntax-case 14246}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 14376}#)
- #{key 14309}#
- #{m 14310}#
- #{r 14250}#
- #{mod 14253}#)))
- (let ((#{body 14527}#
+ #{x 14374}#)
+ #{key 14307}#
+ #{m 14308}#
+ #{r 14248}#
+ #{mod 14251}#)))
+ (let ((#{body 14525}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 14518}#
+ #{req 14516}#
#f
#f
#f
'()
- #{vars 14520}#
- #{exp 14522}#
+ #{vars 14518}#
+ #{exp 14520}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 14527}#)))
- (list (#{chi 4375}#
- #{val 14308}#
- #{r 14250}#
+ #{body 14525}#)))
+ (list (#{chi 4373}#
+ #{val 14306}#
+ #{r 14248}#
'(())
- #{mod 14253}#))))
+ #{mod 14251}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 14254}#)))
- #{tmp 14256}#)
+ #{e 14252}#)))
+ #{tmp 14254}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 14255}#))))))))
+ #{tmp 14253}#))))))))
(set! macroexpand
(lambda*
- (#{x 17259}#
+ (#{x 17257}#
#:optional
- (#{m 17260}# 'e)
- (#{esew 17261}# '(eval)))
- (#{chi-top-sequence 4371}#
- (list #{x 17259}#)
+ (#{m 17258}# 'e)
+ (#{esew 17259}# '(eval)))
+ (#{chi-top-sequence 4369}#
+ (list #{x 17257}#)
'()
'((top))
#f
- #{m 17260}#
- #{esew 17261}#
+ #{m 17258}#
+ #{esew 17259}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 17264}#)
- (if (if (vector? #{x 17264}#)
- (if (= (vector-length #{x 17264}#) 4)
- (eq? (vector-ref #{x 17264}# 0) 'syntax-object)
+ (lambda (#{x 17262}#)
+ (if (if (vector? #{x 17262}#)
+ (if (= (vector-length #{x 17262}#) 4)
+ (eq? (vector-ref #{x 17262}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17264}# 1))
+ (symbol? (vector-ref #{x 17262}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 17289}# #{datum 17290}#)
- (let ((#{wrap 17295}# (vector-ref #{id 17289}# 2))
- (#{module 17296}# (vector-ref #{id 17289}# 3)))
+ (lambda (#{id 17287}# #{datum 17288}#)
+ (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2))
+ (#{module 17294}# (vector-ref #{id 17287}# 3)))
(vector
'syntax-object
- #{datum 17290}#
- #{wrap 17295}#
- #{module 17296}#))))
+ #{datum 17288}#
+ #{wrap 17293}#
+ #{module 17294}#))))
(set! syntax->datum
- (lambda (#{x 17303}#)
- (#{strip 4388}# #{x 17303}# '(()))))
+ (lambda (#{x 17301}#)
+ (#{strip 4386}# #{x 17301}# '(()))))
(set! syntax-source
- (lambda (#{x 17306}#)
- (#{source-annotation 4336}# #{x 17306}#)))
+ (lambda (#{x 17304}#)
+ (#{source-annotation 4334}# #{x 17304}#)))
(set! generate-temporaries
- (lambda (#{ls 17508}#)
+ (lambda (#{ls 17506}#)
(begin
- (if (not (list? #{ls 17508}#))
+ (if (not (list? #{ls 17506}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 17508}#))
- (let ((#{mod 17516}#
+ #{ls 17506}#))
+ (let ((#{mod 17514}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 17517}#)
- (let ((#{x 17521}# (gensym)))
- (if (if (vector? #{x 17521}#)
- (if (= (vector-length #{x 17521}#) 4)
- (eq? (vector-ref #{x 17521}# 0) 'syntax-object)
+ (map (lambda (#{x 17515}#)
+ (let ((#{x 17519}# (gensym)))
+ (if (if (vector? #{x 17519}#)
+ (if (= (vector-length #{x 17519}#) 4)
+ (eq? (vector-ref #{x 17519}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17536}# (vector-ref #{x 17521}# 1))
- (#{wrap 17537}#
- (let ((#{w2 17545}# (vector-ref #{x 17521}# 2)))
- (cons (let ((#{m2 17552}# (car #{w2 17545}#)))
- (if (null? #{m2 17552}#)
+ (let ((#{expression 17534}# (vector-ref #{x 17519}# 1))
+ (#{wrap 17535}#
+ (let ((#{w2 17543}# (vector-ref #{x 17519}# 2)))
+ (cons (let ((#{m2 17550}# (car #{w2 17543}#)))
+ (if (null? #{m2 17550}#)
'(top)
- (append '(top) #{m2 17552}#)))
- (let ((#{m2 17559}# (cdr #{w2 17545}#)))
- (if (null? #{m2 17559}#)
+ (append '(top) #{m2 17550}#)))
+ (let ((#{m2 17557}# (cdr #{w2 17543}#)))
+ (if (null? #{m2 17557}#)
'()
- (append '() #{m2 17559}#))))))
- (#{module 17538}# (vector-ref #{x 17521}# 3)))
+ (append '() #{m2 17557}#))))))
+ (#{module 17536}# (vector-ref #{x 17519}# 3)))
(vector
'syntax-object
- #{expression 17536}#
- #{wrap 17537}#
- #{module 17538}#))
- (if (null? #{x 17521}#)
- #{x 17521}#
+ #{expression 17534}#
+ #{wrap 17535}#
+ #{module 17536}#))
+ (if (null? #{x 17519}#)
+ #{x 17519}#
(vector
'syntax-object
- #{x 17521}#
+ #{x 17519}#
'((top))
- #{mod 17516}#)))))
- #{ls 17508}#)))))
+ #{mod 17514}#)))))
+ #{ls 17506}#)))))
(set! free-identifier=?
- (lambda (#{x 17568}# #{y 17569}#)
+ (lambda (#{x 17566}# #{y 17567}#)
(begin
- (if (not (if (if (vector? #{x 17568}#)
- (if (= (vector-length #{x 17568}#) 4)
- (eq? (vector-ref #{x 17568}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17566}#)
+ (if (= (vector-length #{x 17566}#) 4)
+ (eq? (vector-ref #{x 17566}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17568}# 1))
+ (symbol? (vector-ref #{x 17566}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 17568}#))
- (if (not (if (if (vector? #{y 17569}#)
- (if (= (vector-length #{y 17569}#) 4)
- (eq? (vector-ref #{y 17569}# 0) 'syntax-object)
+ #{x 17566}#))
+ (if (not (if (if (vector? #{y 17567}#)
+ (if (= (vector-length #{y 17567}#) 4)
+ (eq? (vector-ref #{y 17567}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17569}# 1))
+ (symbol? (vector-ref #{y 17567}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 17569}#))
- (#{free-id=? 4363}# #{x 17568}# #{y 17569}#))))
+ #{y 17567}#))
+ (#{free-id=? 4361}# #{x 17566}# #{y 17567}#))))
(set! bound-identifier=?
- (lambda (#{x 17644}# #{y 17645}#)
+ (lambda (#{x 17642}# #{y 17643}#)
(begin
- (if (not (if (if (vector? #{x 17644}#)
- (if (= (vector-length #{x 17644}#) 4)
- (eq? (vector-ref #{x 17644}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17642}#)
+ (if (= (vector-length #{x 17642}#) 4)
+ (eq? (vector-ref #{x 17642}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17644}# 1))
+ (symbol? (vector-ref #{x 17642}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 17644}#))
- (if (not (if (if (vector? #{y 17645}#)
- (if (= (vector-length #{y 17645}#) 4)
- (eq? (vector-ref #{y 17645}# 0) 'syntax-object)
+ #{x 17642}#))
+ (if (not (if (if (vector? #{y 17643}#)
+ (if (= (vector-length #{y 17643}#) 4)
+ (eq? (vector-ref #{y 17643}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17645}# 1))
+ (symbol? (vector-ref #{y 17643}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 17645}#))
- (#{bound-id=? 4364}# #{x 17644}# #{y 17645}#))))
+ #{y 17643}#))
+ (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#))))
(set! syntax-violation
(lambda*
- (#{who 17811}#
- #{message 17812}#
- #{form 17813}#
+ (#{who 17809}#
+ #{message 17810}#
+ #{form 17811}#
#:optional
- (#{subform 17814}# #f))
+ (#{subform 17812}# #f))
(begin
- (if (not (if (not #{who 17811}#)
- (not #{who 17811}#)
- (let ((#{t 17832}# (string? #{who 17811}#)))
- (if #{t 17832}#
- #{t 17832}#
- (symbol? #{who 17811}#)))))
+ (if (not (if (not #{who 17809}#)
+ (not #{who 17809}#)
+ (let ((#{t 17830}# (string? #{who 17809}#)))
+ (if #{t 17830}#
+ #{t 17830}#
+ (symbol? #{who 17809}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 17811}#))
- (if (not (string? #{message 17812}#))
+ #{who 17809}#))
+ (if (not (string? #{message 17810}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 17812}#))
+ #{message 17810}#))
(throw 'syntax-error
- #{who 17811}#
- #{message 17812}#
- (#{source-annotation 4336}#
- (if #{form 17813}#
- #{form 17813}#
- #{subform 17814}#))
- (#{strip 4388}# #{form 17813}# '(()))
- (if #{subform 17814}#
- (#{strip 4388}# #{subform 17814}# '(()))
+ #{who 17809}#
+ #{message 17810}#
+ (#{source-annotation 4334}#
+ (if #{form 17811}#
+ #{form 17811}#
+ #{subform 17812}#))
+ (#{strip 4386}# #{form 17811}# '(()))
+ (if #{subform 17812}#
+ (#{strip 4386}# #{subform 17812}# '(()))
#f)))))
(letrec*
- ((#{match-each 18083}#
- (lambda (#{e 18971}#
- #{p 18972}#
- #{w 18973}#
- #{mod 18974}#)
- (if (pair? #{e 18971}#)
- (let ((#{first 18975}#
- (#{match 18089}#
- (car #{e 18971}#)
- #{p 18972}#
- #{w 18973}#
+ ((#{match-each 18081}#
+ (lambda (#{e 18969}#
+ #{p 18970}#
+ #{w 18971}#
+ #{mod 18972}#)
+ (if (pair? #{e 18969}#)
+ (let ((#{first 18973}#
+ (#{match 18087}#
+ (car #{e 18969}#)
+ #{p 18970}#
+ #{w 18971}#
'()
- #{mod 18974}#)))
- (if #{first 18975}#
- (let ((#{rest 18978}#
- (#{match-each 18083}#
- (cdr #{e 18971}#)
- #{p 18972}#
- #{w 18973}#
- #{mod 18974}#)))
- (if #{rest 18978}#
- (cons #{first 18975}# #{rest 18978}#)
+ #{mod 18972}#)))
+ (if #{first 18973}#
+ (let ((#{rest 18976}#
+ (#{match-each 18081}#
+ (cdr #{e 18969}#)
+ #{p 18970}#
+ #{w 18971}#
+ #{mod 18972}#)))
+ (if #{rest 18976}#
+ (cons #{first 18973}# #{rest 18976}#)
#f))
#f))
- (if (null? #{e 18971}#)
+ (if (null? #{e 18969}#)
'()
- (if (if (vector? #{e 18971}#)
- (if (= (vector-length #{e 18971}#) 4)
- (eq? (vector-ref #{e 18971}# 0) 'syntax-object)
+ (if (if (vector? #{e 18969}#)
+ (if (= (vector-length #{e 18969}#) 4)
+ (eq? (vector-ref #{e 18969}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 18083}#
- (vector-ref #{e 18971}# 1)
- #{p 18972}#
- (let ((#{w2 19000}# (vector-ref #{e 18971}# 2)))
- (let ((#{m1 19001}# (car #{w 18973}#))
- (#{s1 19002}# (cdr #{w 18973}#)))
- (if (null? #{m1 19001}#)
- (if (null? #{s1 19002}#)
- #{w2 19000}#
- (cons (car #{w2 19000}#)
- (let ((#{m2 19013}# (cdr #{w2 19000}#)))
- (if (null? #{m2 19013}#)
- #{s1 19002}#
- (append #{s1 19002}# #{m2 19013}#)))))
- (cons (let ((#{m2 19021}# (car #{w2 19000}#)))
- (if (null? #{m2 19021}#)
- #{m1 19001}#
- (append #{m1 19001}# #{m2 19021}#)))
- (let ((#{m2 19029}# (cdr #{w2 19000}#)))
- (if (null? #{m2 19029}#)
- #{s1 19002}#
- (append #{s1 19002}# #{m2 19029}#)))))))
- (vector-ref #{e 18971}# 3))
+ (#{match-each 18081}#
+ (vector-ref #{e 18969}# 1)
+ #{p 18970}#
+ (let ((#{w2 18998}# (vector-ref #{e 18969}# 2)))
+ (let ((#{m1 18999}# (car #{w 18971}#))
+ (#{s1 19000}# (cdr #{w 18971}#)))
+ (if (null? #{m1 18999}#)
+ (if (null? #{s1 19000}#)
+ #{w2 18998}#
+ (cons (car #{w2 18998}#)
+ (let ((#{m2 19011}# (cdr #{w2 18998}#)))
+ (if (null? #{m2 19011}#)
+ #{s1 19000}#
+ (append #{s1 19000}# #{m2 19011}#)))))
+ (cons (let ((#{m2 19019}# (car #{w2 18998}#)))
+ (if (null? #{m2 19019}#)
+ #{m1 18999}#
+ (append #{m1 18999}# #{m2 19019}#)))
+ (let ((#{m2 19027}# (cdr #{w2 18998}#)))
+ (if (null? #{m2 19027}#)
+ #{s1 19000}#
+ (append #{s1 19000}# #{m2 19027}#)))))))
+ (vector-ref #{e 18969}# 3))
#f)))))
- (#{match-each-any 18085}#
- (lambda (#{e 19038}# #{w 19039}# #{mod 19040}#)
- (if (pair? #{e 19038}#)
- (let ((#{l 19041}#
- (#{match-each-any 18085}#
- (cdr #{e 19038}#)
- #{w 19039}#
- #{mod 19040}#)))
- (if #{l 19041}#
- (cons (let ((#{x 19046}# (car #{e 19038}#)))
- (if (if (null? (car #{w 19039}#))
- (null? (cdr #{w 19039}#))
+ (#{match-each-any 18083}#
+ (lambda (#{e 19036}# #{w 19037}# #{mod 19038}#)
+ (if (pair? #{e 19036}#)
+ (let ((#{l 19039}#
+ (#{match-each-any 18083}#
+ (cdr #{e 19036}#)
+ #{w 19037}#
+ #{mod 19038}#)))
+ (if #{l 19039}#
+ (cons (let ((#{x 19044}# (car #{e 19036}#)))
+ (if (if (null? (car #{w 19037}#))
+ (null? (cdr #{w 19037}#))
#f)
- #{x 19046}#
- (if (if (vector? #{x 19046}#)
- (if (= (vector-length #{x 19046}#) 4)
- (eq? (vector-ref #{x 19046}# 0)
+ #{x 19044}#
+ (if (if (vector? #{x 19044}#)
+ (if (= (vector-length #{x 19044}#) 4)
+ (eq? (vector-ref #{x 19044}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 19064}#
- (vector-ref #{x 19046}# 1))
- (#{wrap 19065}#
- (let ((#{w2 19073}#
- (vector-ref #{x 19046}# 2)))
- (let ((#{m1 19074}# (car #{w 19039}#))
- (#{s1 19075}# (cdr #{w 19039}#)))
- (if (null? #{m1 19074}#)
- (if (null? #{s1 19075}#)
- #{w2 19073}#
- (cons (car #{w2 19073}#)
- (let ((#{m2 19090}#
- (cdr #{w2 19073}#)))
- (if (null? #{m2 19090}#)
- #{s1 19075}#
+ (let ((#{expression 19062}#
+ (vector-ref #{x 19044}# 1))
+ (#{wrap 19063}#
+ (let ((#{w2 19071}#
+ (vector-ref #{x 19044}# 2)))
+ (let ((#{m1 19072}# (car #{w 19037}#))
+ (#{s1 19073}# (cdr #{w 19037}#)))
+ (if (null? #{m1 19072}#)
+ (if (null? #{s1 19073}#)
+ #{w2 19071}#
+ (cons (car #{w2 19071}#)
+ (let ((#{m2 19088}#
+ (cdr #{w2 19071}#)))
+ (if (null? #{m2 19088}#)
+ #{s1 19073}#
(append
- #{s1 19075}#
- #{m2 19090}#)))))
- (cons (let ((#{m2 19098}#
- (car #{w2 19073}#)))
- (if (null? #{m2 19098}#)
- #{m1 19074}#
+ #{s1 19073}#
+ #{m2 19088}#)))))
+ (cons (let ((#{m2 19096}#
+ (car #{w2 19071}#)))
+ (if (null? #{m2 19096}#)
+ #{m1 19072}#
(append
- #{m1 19074}#
- #{m2 19098}#)))
- (let ((#{m2 19106}#
- (cdr #{w2 19073}#)))
- (if (null? #{m2 19106}#)
- #{s1 19075}#
+ #{m1 19072}#
+ #{m2 19096}#)))
+ (let ((#{m2 19104}#
+ (cdr #{w2 19071}#)))
+ (if (null? #{m2 19104}#)
+ #{s1 19073}#
(append
- #{s1 19075}#
- #{m2 19106}#))))))))
- (#{module 19066}#
- (vector-ref #{x 19046}# 3)))
+ #{s1 19073}#
+ #{m2 19104}#))))))))
+ (#{module 19064}#
+ (vector-ref #{x 19044}# 3)))
(vector
'syntax-object
- #{expression 19064}#
- #{wrap 19065}#
- #{module 19066}#))
- (if (null? #{x 19046}#)
- #{x 19046}#
+ #{expression 19062}#
+ #{wrap 19063}#
+ #{module 19064}#))
+ (if (null? #{x 19044}#)
+ #{x 19044}#
(vector
'syntax-object
- #{x 19046}#
- #{w 19039}#
- #{mod 19040}#)))))
- #{l 19041}#)
+ #{x 19044}#
+ #{w 19037}#
+ #{mod 19038}#)))))
+ #{l 19039}#)
#f))
- (if (null? #{e 19038}#)
+ (if (null? #{e 19036}#)
'()
- (if (if (vector? #{e 19038}#)
- (if (= (vector-length #{e 19038}#) 4)
- (eq? (vector-ref #{e 19038}# 0) 'syntax-object)
+ (if (if (vector? #{e 19036}#)
+ (if (= (vector-length #{e 19036}#) 4)
+ (eq? (vector-ref #{e 19036}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 18085}#
- (vector-ref #{e 19038}# 1)
- (let ((#{w2 19139}# (vector-ref #{e 19038}# 2)))
- (let ((#{m1 19140}# (car #{w 19039}#))
- (#{s1 19141}# (cdr #{w 19039}#)))
- (if (null? #{m1 19140}#)
- (if (null? #{s1 19141}#)
- #{w2 19139}#
- (cons (car #{w2 19139}#)
- (let ((#{m2 19152}# (cdr #{w2 19139}#)))
- (if (null? #{m2 19152}#)
- #{s1 19141}#
- (append #{s1 19141}# #{m2 19152}#)))))
- (cons (let ((#{m2 19160}# (car #{w2 19139}#)))
- (if (null? #{m2 19160}#)
- #{m1 19140}#
- (append #{m1 19140}# #{m2 19160}#)))
- (let ((#{m2 19168}# (cdr #{w2 19139}#)))
- (if (null? #{m2 19168}#)
- #{s1 19141}#
- (append #{s1 19141}# #{m2 19168}#)))))))
- #{mod 19040}#)
+ (#{match-each-any 18083}#
+ (vector-ref #{e 19036}# 1)
+ (let ((#{w2 19137}# (vector-ref #{e 19036}# 2)))
+ (let ((#{m1 19138}# (car #{w 19037}#))
+ (#{s1 19139}# (cdr #{w 19037}#)))
+ (if (null? #{m1 19138}#)
+ (if (null? #{s1 19139}#)
+ #{w2 19137}#
+ (cons (car #{w2 19137}#)
+ (let ((#{m2 19150}# (cdr #{w2 19137}#)))
+ (if (null? #{m2 19150}#)
+ #{s1 19139}#
+ (append #{s1 19139}# #{m2 19150}#)))))
+ (cons (let ((#{m2 19158}# (car #{w2 19137}#)))
+ (if (null? #{m2 19158}#)
+ #{m1 19138}#
+ (append #{m1 19138}# #{m2 19158}#)))
+ (let ((#{m2 19166}# (cdr #{w2 19137}#)))
+ (if (null? #{m2 19166}#)
+ #{s1 19139}#
+ (append #{s1 19139}# #{m2 19166}#)))))))
+ #{mod 19038}#)
#f)))))
- (#{match-empty 18086}#
- (lambda (#{p 19173}# #{r 19174}#)
- (if (null? #{p 19173}#)
- #{r 19174}#
- (if (eq? #{p 19173}# '_)
- #{r 19174}#
- (if (eq? #{p 19173}# 'any)
- (cons '() #{r 19174}#)
- (if (pair? #{p 19173}#)
- (#{match-empty 18086}#
- (car #{p 19173}#)
- (#{match-empty 18086}#
- (cdr #{p 19173}#)
- #{r 19174}#))
- (if (eq? #{p 19173}# 'each-any)
- (cons '() #{r 19174}#)
- (let ((#{atom-key 19175}# (vector-ref #{p 19173}# 0)))
- (if (eqv? #{atom-key 19175}# 'each)
- (#{match-empty 18086}#
- (vector-ref #{p 19173}# 1)
- #{r 19174}#)
- (if (eqv? #{atom-key 19175}# 'each+)
- (#{match-empty 18086}#
- (vector-ref #{p 19173}# 1)
- (#{match-empty 18086}#
- (reverse (vector-ref #{p 19173}# 2))
- (#{match-empty 18086}#
- (vector-ref #{p 19173}# 3)
- #{r 19174}#)))
- (if (if (eqv? #{atom-key 19175}# 'free-id)
+ (#{match-empty 18084}#
+ (lambda (#{p 19171}# #{r 19172}#)
+ (if (null? #{p 19171}#)
+ #{r 19172}#
+ (if (eq? #{p 19171}# '_)
+ #{r 19172}#
+ (if (eq? #{p 19171}# 'any)
+ (cons '() #{r 19172}#)
+ (if (pair? #{p 19171}#)
+ (#{match-empty 18084}#
+ (car #{p 19171}#)
+ (#{match-empty 18084}#
+ (cdr #{p 19171}#)
+ #{r 19172}#))
+ (if (eq? #{p 19171}# 'each-any)
+ (cons '() #{r 19172}#)
+ (let ((#{atom-key 19173}# (vector-ref #{p 19171}# 0)))
+ (if (eqv? #{atom-key 19173}# 'each)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ #{r 19172}#)
+ (if (eqv? #{atom-key 19173}# 'each+)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ (#{match-empty 18084}#
+ (reverse (vector-ref #{p 19171}# 2))
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 3)
+ #{r 19172}#)))
+ (if (if (eqv? #{atom-key 19173}# 'free-id)
#t
- (eqv? #{atom-key 19175}# 'atom))
- #{r 19174}#
- (if (eqv? #{atom-key 19175}# 'vector)
- (#{match-empty 18086}#
- (vector-ref #{p 19173}# 1)
- #{r 19174}#)))))))))))))
- (#{combine 18087}#
- (lambda (#{r* 19194}# #{r 19195}#)
- (if (null? (car #{r* 19194}#))
- #{r 19195}#
- (cons (map car #{r* 19194}#)
- (#{combine 18087}#
- (map cdr #{r* 19194}#)
- #{r 19195}#)))))
- (#{match* 18088}#
- (lambda (#{e 18118}#
- #{p 18119}#
- #{w 18120}#
- #{r 18121}#
- #{mod 18122}#)
- (if (null? #{p 18119}#)
- (if (null? #{e 18118}#) #{r 18121}# #f)
- (if (pair? #{p 18119}#)
- (if (pair? #{e 18118}#)
- (#{match 18089}#
- (car #{e 18118}#)
- (car #{p 18119}#)
- #{w 18120}#
- (#{match 18089}#
- (cdr #{e 18118}#)
- (cdr #{p 18119}#)
- #{w 18120}#
- #{r 18121}#
- #{mod 18122}#)
- #{mod 18122}#)
+ (eqv? #{atom-key 19173}# 'atom))
+ #{r 19172}#
+ (if (eqv? #{atom-key 19173}# 'vector)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ #{r 19172}#)))))))))))))
+ (#{combine 18085}#
+ (lambda (#{r* 19192}# #{r 19193}#)
+ (if (null? (car #{r* 19192}#))
+ #{r 19193}#
+ (cons (map car #{r* 19192}#)
+ (#{combine 18085}#
+ (map cdr #{r* 19192}#)
+ #{r 19193}#)))))
+ (#{match* 18086}#
+ (lambda (#{e 18116}#
+ #{p 18117}#
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
+ (if (null? #{p 18117}#)
+ (if (null? #{e 18116}#) #{r 18119}# #f)
+ (if (pair? #{p 18117}#)
+ (if (pair? #{e 18116}#)
+ (#{match 18087}#
+ (car #{e 18116}#)
+ (car #{p 18117}#)
+ #{w 18118}#
+ (#{match 18087}#
+ (cdr #{e 18116}#)
+ (cdr #{p 18117}#)
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
+ #{mod 18120}#)
#f)
- (if (eq? #{p 18119}# 'each-any)
- (let ((#{l 18127}#
- (#{match-each-any 18085}#
- #{e 18118}#
- #{w 18120}#
- #{mod 18122}#)))
- (if #{l 18127}#
- (cons #{l 18127}# #{r 18121}#)
+ (if (eq? #{p 18117}# 'each-any)
+ (let ((#{l 18125}#
+ (#{match-each-any 18083}#
+ #{e 18116}#
+ #{w 18118}#
+ #{mod 18120}#)))
+ (if #{l 18125}#
+ (cons #{l 18125}# #{r 18119}#)
#f))
- (let ((#{atom-key 18132}# (vector-ref #{p 18119}# 0)))
- (if (eqv? #{atom-key 18132}# 'each)
- (if (null? #{e 18118}#)
- (#{match-empty 18086}#
- (vector-ref #{p 18119}# 1)
- #{r 18121}#)
- (let ((#{l 18139}#
- (#{match-each 18083}#
- #{e 18118}#
- (vector-ref #{p 18119}# 1)
- #{w 18120}#
- #{mod 18122}#)))
- (if #{l 18139}#
+ (let ((#{atom-key 18130}# (vector-ref #{p 18117}# 0)))
+ (if (eqv? #{atom-key 18130}# 'each)
+ (if (null? #{e 18116}#)
+ (#{match-empty 18084}#
+ (vector-ref #{p 18117}# 1)
+ #{r 18119}#)
+ (let ((#{l 18137}#
+ (#{match-each 18081}#
+ #{e 18116}#
+ (vector-ref #{p 18117}# 1)
+ #{w 18118}#
+ #{mod 18120}#)))
+ (if #{l 18137}#
(letrec*
- ((#{collect 18142}#
- (lambda (#{l 18203}#)
- (if (null? (car #{l 18203}#))
- #{r 18121}#
- (cons (map car #{l 18203}#)
- (#{collect 18142}#
- (map cdr #{l 18203}#)))))))
- (#{collect 18142}# #{l 18139}#))
+ ((#{collect 18140}#
+ (lambda (#{l 18201}#)
+ (if (null? (car #{l 18201}#))
+ #{r 18119}#
+ (cons (map car #{l 18201}#)
+ (#{collect 18140}#
+ (map cdr #{l 18201}#)))))))
+ (#{collect 18140}# #{l 18137}#))
#f)))
- (if (eqv? #{atom-key 18132}# 'each+)
+ (if (eqv? #{atom-key 18130}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 18212}# (vector-ref #{p 18119}# 1))
- (#{y-pat 18213}# (vector-ref #{p 18119}# 2))
- (#{z-pat 18214}# (vector-ref #{p 18119}# 3)))
+ (let ((#{x-pat 18210}# (vector-ref #{p 18117}# 1))
+ (#{y-pat 18211}# (vector-ref #{p 18117}# 2))
+ (#{z-pat 18212}# (vector-ref #{p 18117}# 3)))
(letrec*
- ((#{f 18218}#
- (lambda (#{e 18220}# #{w 18221}#)
- (if (pair? #{e 18220}#)
+ ((#{f 18216}#
+ (lambda (#{e 18218}# #{w 18219}#)
+ (if (pair? #{e 18218}#)
(call-with-values
(lambda ()
- (#{f 18218}#
- (cdr #{e 18220}#)
- #{w 18221}#))
- (lambda (#{xr* 18222}#
- #{y-pat 18223}#
- #{r 18224}#)
- (if #{r 18224}#
- (if (null? #{y-pat 18223}#)
- (let ((#{xr 18225}#
- (#{match 18089}#
- (car #{e 18220}#)
- #{x-pat 18212}#
- #{w 18221}#
+ (#{f 18216}#
+ (cdr #{e 18218}#)
+ #{w 18219}#))
+ (lambda (#{xr* 18220}#
+ #{y-pat 18221}#
+ #{r 18222}#)
+ (if #{r 18222}#
+ (if (null? #{y-pat 18221}#)
+ (let ((#{xr 18223}#
+ (#{match 18087}#
+ (car #{e 18218}#)
+ #{x-pat 18210}#
+ #{w 18219}#
'()
- #{mod 18122}#)))
- (if #{xr 18225}#
+ #{mod 18120}#)))
+ (if #{xr 18223}#
(values
- (cons #{xr 18225}#
- #{xr* 18222}#)
- #{y-pat 18223}#
- #{r 18224}#)
+ (cons #{xr 18223}#
+ #{xr* 18220}#)
+ #{y-pat 18221}#
+ #{r 18222}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 18223}#)
- (#{match 18089}#
- (car #{e 18220}#)
- (car #{y-pat 18223}#)
- #{w 18221}#
- #{r 18224}#
- #{mod 18122}#)))
+ (cdr #{y-pat 18221}#)
+ (#{match 18087}#
+ (car #{e 18218}#)
+ (car #{y-pat 18221}#)
+ #{w 18219}#
+ #{r 18222}#
+ #{mod 18120}#)))
(values #f #f #f))))
- (if (if (vector? #{e 18220}#)
- (if (= (vector-length #{e 18220}#)
+ (if (if (vector? #{e 18218}#)
+ (if (= (vector-length #{e 18218}#)
4)
- (eq? (vector-ref #{e 18220}# 0)
+ (eq? (vector-ref #{e 18218}# 0)
'syntax-object)
#f)
#f)
- (#{f 18218}#
- (vector-ref #{e 18220}# 1)
- (let ((#{m1 18253}#
- (car #{w 18221}#))
- (#{s1 18254}#
- (cdr #{w 18221}#)))
- (if (null? #{m1 18253}#)
- (if (null? #{s1 18254}#)
- #{e 18220}#
- (cons (car #{e 18220}#)
- (let ((#{m2 18266}#
- (cdr #{e 18220}#)))
- (if (null? #{m2 18266}#)
- #{s1 18254}#
+ (#{f 18216}#
+ (vector-ref #{e 18218}# 1)
+ (let ((#{m1 18251}#
+ (car #{w 18219}#))
+ (#{s1 18252}#
+ (cdr #{w 18219}#)))
+ (if (null? #{m1 18251}#)
+ (if (null? #{s1 18252}#)
+ #{e 18218}#
+ (cons (car #{e 18218}#)
+ (let ((#{m2 18264}#
+ (cdr #{e 18218}#)))
+ (if (null? #{m2 18264}#)
+ #{s1 18252}#
(append
- #{s1 18254}#
- #{m2 18266}#)))))
- (cons (let ((#{m2 18276}#
- (car #{e 18220}#)))
- (if (null? #{m2 18276}#)
- #{m1 18253}#
+ #{s1 18252}#
+ #{m2 18264}#)))))
+ (cons (let ((#{m2 18274}#
+ (car #{e 18218}#)))
+ (if (null? #{m2 18274}#)
+ #{m1 18251}#
(append
- #{m1 18253}#
- #{m2 18276}#)))
- (let ((#{m2 18286}#
- (cdr #{e 18220}#)))
- (if (null? #{m2 18286}#)
- #{s1 18254}#
+ #{m1 18251}#
+ #{m2 18274}#)))
+ (let ((#{m2 18284}#
+ (cdr #{e 18218}#)))
+ (if (null? #{m2 18284}#)
+ #{s1 18252}#
(append
- #{s1 18254}#
- #{m2 18286}#)))))))
+ #{s1 18252}#
+ #{m2 18284}#)))))))
(values
'()
- #{y-pat 18213}#
- (#{match 18089}#
- #{e 18220}#
- #{z-pat 18214}#
- #{w 18221}#
- #{r 18121}#
- #{mod 18122}#)))))))
- (#{f 18218}# #{e 18118}# #{w 18120}#))))
- (lambda (#{xr* 18296}# #{y-pat 18297}# #{r 18298}#)
- (if #{r 18298}#
- (if (null? #{y-pat 18297}#)
- (if (null? #{xr* 18296}#)
- (#{match-empty 18086}#
- (vector-ref #{p 18119}# 1)
- #{r 18298}#)
- (#{combine 18087}# #{xr* 18296}# #{r 18298}#))
+ #{y-pat 18211}#
+ (#{match 18087}#
+ #{e 18218}#
+ #{z-pat 18212}#
+ #{w 18219}#
+ #{r 18119}#
+ #{mod 18120}#)))))))
+ (#{f 18216}# #{e 18116}# #{w 18118}#))))
+ (lambda (#{xr* 18294}# #{y-pat 18295}# #{r 18296}#)
+ (if #{r 18296}#
+ (if (null? #{y-pat 18295}#)
+ (if (null? #{xr* 18294}#)
+ (#{match-empty 18084}#
+ (vector-ref #{p 18117}# 1)
+ #{r 18296}#)
+ (#{combine 18085}# #{xr* 18294}# #{r 18296}#))
#f)
#f)))
- (if (eqv? #{atom-key 18132}# 'free-id)
- (if (if (symbol? #{e 18118}#)
+ (if (eqv? #{atom-key 18130}# 'free-id)
+ (if (if (symbol? #{e 18116}#)
#t
- (if (if (vector? #{e 18118}#)
- (if (= (vector-length #{e 18118}#) 4)
- (eq? (vector-ref #{e 18118}# 0)
+ (if (if (vector? #{e 18116}#)
+ (if (= (vector-length #{e 18116}#) 4)
+ (eq? (vector-ref #{e 18116}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 18118}# 1))
+ (symbol? (vector-ref #{e 18116}# 1))
#f))
- (if (#{free-id=? 4363}#
- (if (if (null? (car #{w 18120}#))
- (null? (cdr #{w 18120}#))
+ (if (#{free-id=? 4361}#
+ (if (if (null? (car #{w 18118}#))
+ (null? (cdr #{w 18118}#))
#f)
- #{e 18118}#
- (if (if (vector? #{e 18118}#)
- (if (= (vector-length #{e 18118}#) 4)
- (eq? (vector-ref #{e 18118}# 0)
+ #{e 18116}#
+ (if (if (vector? #{e 18116}#)
+ (if (= (vector-length #{e 18116}#) 4)
+ (eq? (vector-ref #{e 18116}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18729}#
- (vector-ref #{e 18118}# 1))
- (#{wrap 18730}#
- (let ((#{w2 18740}#
+ (let ((#{expression 18727}#
+ (vector-ref #{e 18116}# 1))
+ (#{wrap 18728}#
+ (let ((#{w2 18738}#
(vector-ref
- #{e 18118}#
+ #{e 18116}#
2)))
- (let ((#{m1 18741}#
- (car #{w 18120}#))
- (#{s1 18742}#
- (cdr #{w 18120}#)))
- (if (null? #{m1 18741}#)
- (if (null? #{s1 18742}#)
- #{w2 18740}#
- (cons (car #{w2 18740}#)
- (let ((#{m2 18759}#
- (cdr #{w2 18740}#)))
- (if (null? #{m2 18759}#)
- #{s1 18742}#
+ (let ((#{m1 18739}#
+ (car #{w 18118}#))
+ (#{s1 18740}#
+ (cdr #{w 18118}#)))
+ (if (null? #{m1 18739}#)
+ (if (null? #{s1 18740}#)
+ #{w2 18738}#
+ (cons (car #{w2 18738}#)
+ (let ((#{m2 18757}#
+ (cdr #{w2 18738}#)))
+ (if (null? #{m2 18757}#)
+ #{s1 18740}#
(append
- #{s1 18742}#
- #{m2 18759}#)))))
- (cons (let ((#{m2 18767}#
- (car #{w2 18740}#)))
- (if (null? #{m2 18767}#)
- #{m1 18741}#
+ #{s1 18740}#
+ #{m2 18757}#)))))
+ (cons (let ((#{m2 18765}#
+ (car #{w2 18738}#)))
+ (if (null? #{m2 18765}#)
+ #{m1 18739}#
(append
- #{m1 18741}#
- #{m2 18767}#)))
- (let ((#{m2 18775}#
- (cdr #{w2 18740}#)))
- (if (null? #{m2 18775}#)
- #{s1 18742}#
+ #{m1 18739}#
+ #{m2 18765}#)))
+ (let ((#{m2 18773}#
+ (cdr #{w2 18738}#)))
+ (if (null? #{m2 18773}#)
+ #{s1 18740}#
(append
- #{s1 18742}#
- #{m2 18775}#))))))))
- (#{module 18731}#
- (vector-ref #{e 18118}# 3)))
+ #{s1 18740}#
+ #{m2 18773}#))))))))
+ (#{module 18729}#
+ (vector-ref #{e 18116}# 3)))
(vector
'syntax-object
- #{expression 18729}#
- #{wrap 18730}#
- #{module 18731}#))
- (if (null? #{e 18118}#)
- #{e 18118}#
+ #{expression 18727}#
+ #{wrap 18728}#
+ #{module 18729}#))
+ (if (null? #{e 18116}#)
+ #{e 18116}#
(vector
'syntax-object
- #{e 18118}#
- #{w 18120}#
- #{mod 18122}#))))
- (vector-ref #{p 18119}# 1))
- #{r 18121}#
+ #{e 18116}#
+ #{w 18118}#
+ #{mod 18120}#))))
+ (vector-ref #{p 18117}# 1))
+ #{r 18119}#
#f)
#f)
- (if (eqv? #{atom-key 18132}# 'atom)
+ (if (eqv? #{atom-key 18130}# 'atom)
(if (equal?
- (vector-ref #{p 18119}# 1)
- (#{strip 4388}# #{e 18118}# #{w 18120}#))
- #{r 18121}#
+ (vector-ref #{p 18117}# 1)
+ (#{strip 4386}# #{e 18116}# #{w 18118}#))
+ #{r 18119}#
#f)
- (if (eqv? #{atom-key 18132}# 'vector)
- (if (vector? #{e 18118}#)
- (#{match 18089}#
- (vector->list #{e 18118}#)
- (vector-ref #{p 18119}# 1)
- #{w 18120}#
- #{r 18121}#
- #{mod 18122}#)
+ (if (eqv? #{atom-key 18130}# 'vector)
+ (if (vector? #{e 18116}#)
+ (#{match 18087}#
+ (vector->list #{e 18116}#)
+ (vector-ref #{p 18117}# 1)
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
#f))))))))))))
- (#{match 18089}#
- (lambda (#{e 18808}#
- #{p 18809}#
- #{w 18810}#
- #{r 18811}#
- #{mod 18812}#)
- (if (not #{r 18811}#)
+ (#{match 18087}#
+ (lambda (#{e 18806}#
+ #{p 18807}#
+ #{w 18808}#
+ #{r 18809}#
+ #{mod 18810}#)
+ (if (not #{r 18809}#)
#f
- (if (eq? #{p 18809}# '_)
- #{r 18811}#
- (if (eq? #{p 18809}# 'any)
- (cons (if (if (null? (car #{w 18810}#))
- (null? (cdr #{w 18810}#))
+ (if (eq? #{p 18807}# '_)
+ #{r 18809}#
+ (if (eq? #{p 18807}# 'any)
+ (cons (if (if (null? (car #{w 18808}#))
+ (null? (cdr #{w 18808}#))
#f)
- #{e 18808}#
- (if (if (vector? #{e 18808}#)
- (if (= (vector-length #{e 18808}#) 4)
- (eq? (vector-ref #{e 18808}# 0)
+ #{e 18806}#
+ (if (if (vector? #{e 18806}#)
+ (if (= (vector-length #{e 18806}#) 4)
+ (eq? (vector-ref #{e 18806}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18842}#
- (vector-ref #{e 18808}# 1))
- (#{wrap 18843}#
- (let ((#{w2 18853}#
- (vector-ref #{e 18808}# 2)))
- (let ((#{m1 18854}# (car #{w 18810}#))
- (#{s1 18855}# (cdr #{w 18810}#)))
- (if (null? #{m1 18854}#)
- (if (null? #{s1 18855}#)
- #{w2 18853}#
- (cons (car #{w2 18853}#)
- (let ((#{m2 18872}#
- (cdr #{w2 18853}#)))
- (if (null? #{m2 18872}#)
- #{s1 18855}#
+ (let ((#{expression 18840}#
+ (vector-ref #{e 18806}# 1))
+ (#{wrap 18841}#
+ (let ((#{w2 18851}#
+ (vector-ref #{e 18806}# 2)))
+ (let ((#{m1 18852}# (car #{w 18808}#))
+ (#{s1 18853}# (cdr #{w 18808}#)))
+ (if (null? #{m1 18852}#)
+ (if (null? #{s1 18853}#)
+ #{w2 18851}#
+ (cons (car #{w2 18851}#)
+ (let ((#{m2 18870}#
+ (cdr #{w2 18851}#)))
+ (if (null? #{m2 18870}#)
+ #{s1 18853}#
(append
- #{s1 18855}#
- #{m2 18872}#)))))
- (cons (let ((#{m2 18880}#
- (car #{w2 18853}#)))
- (if (null? #{m2 18880}#)
- #{m1 18854}#
+ #{s1 18853}#
+ #{m2 18870}#)))))
+ (cons (let ((#{m2 18878}#
+ (car #{w2 18851}#)))
+ (if (null? #{m2 18878}#)
+ #{m1 18852}#
(append
- #{m1 18854}#
- #{m2 18880}#)))
- (let ((#{m2 18888}#
- (cdr #{w2 18853}#)))
- (if (null? #{m2 18888}#)
- #{s1 18855}#
+ #{m1 18852}#
+ #{m2 18878}#)))
+ (let ((#{m2 18886}#
+ (cdr #{w2 18851}#)))
+ (if (null? #{m2 18886}#)
+ #{s1 18853}#
(append
- #{s1 18855}#
- #{m2 18888}#))))))))
- (#{module 18844}# (vector-ref #{e 18808}# 3)))
+ #{s1 18853}#
+ #{m2 18886}#))))))))
+ (#{module 18842}# (vector-ref #{e 18806}# 3)))
(vector
'syntax-object
- #{expression 18842}#
- #{wrap 18843}#
- #{module 18844}#))
- (if (null? #{e 18808}#)
- #{e 18808}#
+ #{expression 18840}#
+ #{wrap 18841}#
+ #{module 18842}#))
+ (if (null? #{e 18806}#)
+ #{e 18806}#
(vector
'syntax-object
- #{e 18808}#
- #{w 18810}#
- #{mod 18812}#))))
- #{r 18811}#)
- (if (if (vector? #{e 18808}#)
- (if (= (vector-length #{e 18808}#) 4)
- (eq? (vector-ref #{e 18808}# 0) 'syntax-object)
+ #{e 18806}#
+ #{w 18808}#
+ #{mod 18810}#))))
+ #{r 18809}#)
+ (if (if (vector? #{e 18806}#)
+ (if (= (vector-length #{e 18806}#) 4)
+ (eq? (vector-ref #{e 18806}# 0) 'syntax-object)
#f)
#f)
- (#{match* 18088}#
- (vector-ref #{e 18808}# 1)
- #{p 18809}#
- (let ((#{w2 18931}# (vector-ref #{e 18808}# 2)))
- (let ((#{m1 18932}# (car #{w 18810}#))
- (#{s1 18933}# (cdr #{w 18810}#)))
- (if (null? #{m1 18932}#)
- (if (null? #{s1 18933}#)
- #{w2 18931}#
- (cons (car #{w2 18931}#)
- (let ((#{m2 18944}# (cdr #{w2 18931}#)))
- (if (null? #{m2 18944}#)
- #{s1 18933}#
- (append #{s1 18933}# #{m2 18944}#)))))
- (cons (let ((#{m2 18952}# (car #{w2 18931}#)))
- (if (null? #{m2 18952}#)
- #{m1 18932}#
- (append #{m1 18932}# #{m2 18952}#)))
- (let ((#{m2 18960}# (cdr #{w2 18931}#)))
- (if (null? #{m2 18960}#)
- #{s1 18933}#
- (append #{s1 18933}# #{m2 18960}#)))))))
- #{r 18811}#
- (vector-ref #{e 18808}# 3))
- (#{match* 18088}#
- #{e 18808}#
- #{p 18809}#
- #{w 18810}#
- #{r 18811}#
- #{mod 18812}#))))))))
+ (#{match* 18086}#
+ (vector-ref #{e 18806}# 1)
+ #{p 18807}#
+ (let ((#{w2 18929}# (vector-ref #{e 18806}# 2)))
+ (let ((#{m1 18930}# (car #{w 18808}#))
+ (#{s1 18931}# (cdr #{w 18808}#)))
+ (if (null? #{m1 18930}#)
+ (if (null? #{s1 18931}#)
+ #{w2 18929}#
+ (cons (car #{w2 18929}#)
+ (let ((#{m2 18942}# (cdr #{w2 18929}#)))
+ (if (null? #{m2 18942}#)
+ #{s1 18931}#
+ (append #{s1 18931}# #{m2 18942}#)))))
+ (cons (let ((#{m2 18950}# (car #{w2 18929}#)))
+ (if (null? #{m2 18950}#)
+ #{m1 18930}#
+ (append #{m1 18930}# #{m2 18950}#)))
+ (let ((#{m2 18958}# (cdr #{w2 18929}#)))
+ (if (null? #{m2 18958}#)
+ #{s1 18931}#
+ (append #{s1 18931}# #{m2 18958}#)))))))
+ #{r 18809}#
+ (vector-ref #{e 18806}# 3))
+ (#{match* 18086}#
+ #{e 18806}#
+ #{p 18807}#
+ #{w 18808}#
+ #{r 18809}#
+ #{mod 18810}#))))))))
(set! $sc-dispatch
- (lambda (#{e 18090}# #{p 18091}#)
- (if (eq? #{p 18091}# 'any)
- (list #{e 18090}#)
- (if (eq? #{p 18091}# '_)
+ (lambda (#{e 18088}# #{p 18089}#)
+ (if (eq? #{p 18089}# 'any)
+ (list #{e 18088}#)
+ (if (eq? #{p 18089}# '_)
'()
- (if (if (vector? #{e 18090}#)
- (if (= (vector-length #{e 18090}#) 4)
- (eq? (vector-ref #{e 18090}# 0) 'syntax-object)
+ (if (if (vector? #{e 18088}#)
+ (if (= (vector-length #{e 18088}#) 4)
+ (eq? (vector-ref #{e 18088}# 0) 'syntax-object)
#f)
#f)
- (#{match* 18088}#
- (vector-ref #{e 18090}# 1)
- #{p 18091}#
- (vector-ref #{e 18090}# 2)
+ (#{match* 18086}#
+ (vector-ref #{e 18088}# 1)
+ #{p 18089}#
+ (vector-ref #{e 18088}# 2)
'()
- (vector-ref #{e 18090}# 3))
- (#{match* 18088}#
- #{e 18090}#
- #{p 18091}#
+ (vector-ref #{e 18088}# 3))
+ (#{match* 18086}#
+ #{e 18088}#
+ #{p 18089}#
'(())
'()
#f)))))))))
@@ -17637,82 +17620,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 37271}#)
- (let ((#{tmp 37273}#
- ($sc-dispatch #{x 37271}# '(_ () any . each-any))))
- (if #{tmp 37273}#
+ (lambda (#{x 37268}#)
+ (let ((#{tmp 37270}#
+ ($sc-dispatch #{x 37268}# '(_ () any . each-any))))
+ (if #{tmp 37270}#
(@apply
- (lambda (#{e1 37277}# #{e2 37278}#)
+ (lambda (#{e1 37274}# #{e2 37275}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37244" "i37245"))
+ #("i37241" "i37242"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37241")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- (cons '() (cons #{e1 37277}# #{e2 37278}#))))
- #{tmp 37273}#)
- (let ((#{tmp 37279}#
+ (cons '() (cons #{e1 37274}# #{e2 37275}#))))
+ #{tmp 37270}#)
+ (let ((#{tmp 37276}#
($sc-dispatch
- #{x 37271}#
+ #{x 37268}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 37279}#
+ (if #{tmp 37276}#
(@apply
- (lambda (#{out 37283}#
- #{in 37284}#
- #{e1 37285}#
- #{e2 37286}#)
+ (lambda (#{out 37280}#
+ #{in 37281}#
+ #{e1 37282}#
+ #{e2 37283}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37250" "i37251" "i37252" "i37253"))
+ #("i37247" "i37248" "i37249" "i37250"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37241")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- #{in 37284}#
+ #{in 37281}#
'()
- (list #{out 37283}#
+ (list #{out 37280}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37250"
- "i37251"
- "i37252"
- "i37253"))
+ #("i37247"
+ "i37248"
+ "i37249"
+ "i37250"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37241")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
(cons '()
- (cons #{e1 37285}# #{e2 37286}#))))))
- #{tmp 37279}#)
- (let ((#{tmp 37287}#
+ (cons #{e1 37282}# #{e2 37283}#))))))
+ #{tmp 37276}#)
+ (let ((#{tmp 37284}#
($sc-dispatch
- #{x 37271}#
+ #{x 37268}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 37287}#
+ (if #{tmp 37284}#
(@apply
- (lambda (#{out 37291}#
- #{in 37292}#
- #{e1 37293}#
- #{e2 37294}#)
+ (lambda (#{out 37288}#
+ #{in 37289}#
+ #{e1 37290}#
+ #{e2 37291}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37260" "i37261" "i37262" "i37263"))
+ #("i37257" "i37258" "i37259" "i37260"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37241")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -17720,62 +17703,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37260" "i37261" "i37262" "i37263"))
+ #("i37257" "i37258" "i37259" "i37260"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37241")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- #{in 37292}#)
+ #{in 37289}#)
'()
- (list #{out 37291}#
+ (list #{out 37288}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37260"
- "i37261"
- "i37262"
- "i37263"))
+ #("i37257"
+ "i37258"
+ "i37259"
+ "i37260"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37241")))
+ #("i37238")))
(hygiene guile))
(cons '()
- (cons #{e1 37293}#
- #{e2 37294}#))))))
- #{tmp 37287}#)
+ (cons #{e1 37290}#
+ #{e2 37291}#))))))
+ #{tmp 37284}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37271}#))))))))))
+ #{x 37268}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 37348}#)
- (let ((#{tmp 37350}#
+ (lambda (#{x 37345}#)
+ (let ((#{tmp 37347}#
($sc-dispatch
- #{x 37348}#
+ #{x 37345}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 37350}#
+ (if #{tmp 37347}#
(@apply
- (lambda (#{k 37354}#
- #{keyword 37355}#
- #{pattern 37356}#
- #{template 37357}#)
+ (lambda (#{k 37351}#
+ #{keyword 37352}#
+ #{pattern 37353}#
+ #{template 37354}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
'(#(syntax-object
x
@@ -17783,9 +17766,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -17794,9 +17777,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
.
#(syntax-object
@@ -17805,9 +17788,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17815,20 +17798,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- #{pattern 37356}#))
+ #{pattern 37353}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -17836,13 +17819,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37311" "i37312" "i37313" "i37314"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- (cons #{k 37354}#
- (map (lambda (#{tmp 37322 37358}#
- #{tmp 37321 37359}#)
+ (cons #{k 37351}#
+ (map (lambda (#{tmp 37319 37355}#
+ #{tmp 37318 37356}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -17855,10 +17838,10 @@
(top)
(top)
(top))
- #("i37311"
- "i37312"
- "i37313"
- "i37314"))
+ #("i37308"
+ "i37309"
+ "i37310"
+ "i37311"))
#(ribcage
()
()
@@ -17866,9 +17849,9 @@
#(ribcage
#(x)
#((top))
- #("i37308")))
+ #("i37305")))
(hygiene guile))
- #{tmp 37321 37359}#)
+ #{tmp 37318 37356}#)
(list '#(syntax-object
syntax
((top)
@@ -17881,10 +17864,10 @@
(top)
(top)
(top))
- #("i37311"
- "i37312"
- "i37313"
- "i37314"))
+ #("i37308"
+ "i37309"
+ "i37310"
+ "i37311"))
#(ribcage
()
()
@@ -17892,41 +17875,41 @@
#(ribcage
#(x)
#((top))
- #("i37308")))
+ #("i37305")))
(hygiene guile))
- #{tmp 37322 37358}#)))
- #{template 37357}#
- #{pattern 37356}#))))))
- #{tmp 37350}#)
- (let ((#{tmp 37360}#
+ #{tmp 37319 37355}#)))
+ #{template 37354}#
+ #{pattern 37353}#))))))
+ #{tmp 37347}#)
+ (let ((#{tmp 37357}#
($sc-dispatch
- #{x 37348}#
+ #{x 37345}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 37360}#
+ (if (if #{tmp 37357}#
(@apply
- (lambda (#{k 37364}#
- #{docstring 37365}#
- #{keyword 37366}#
- #{pattern 37367}#
- #{template 37368}#)
- (string? (syntax->datum #{docstring 37365}#)))
- #{tmp 37360}#)
+ (lambda (#{k 37361}#
+ #{docstring 37362}#
+ #{keyword 37363}#
+ #{pattern 37364}#
+ #{template 37365}#)
+ (string? (syntax->datum #{docstring 37362}#)))
+ #{tmp 37357}#)
#f)
(@apply
- (lambda (#{k 37369}#
- #{docstring 37370}#
- #{keyword 37371}#
- #{pattern 37372}#
- #{template 37373}#)
+ (lambda (#{k 37366}#
+ #{docstring 37367}#
+ #{keyword 37368}#
+ #{pattern 37369}#
+ #{template 37370}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334" "i37335" "i37336" "i37337" "i37338"))
+ #("i37331" "i37332" "i37333" "i37334" "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
'(#(syntax-object
x
@@ -17934,11 +17917,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334" "i37335" "i37336" "i37337" "i37338"))
+ #("i37331" "i37332" "i37333" "i37334" "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
- #{docstring 37370}#
+ #{docstring 37367}#
(vector
'(#(syntax-object
macro-type
@@ -17946,13 +17929,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
.
#(syntax-object
@@ -17961,13 +17944,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17975,28 +17958,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- #{pattern 37372}#))
+ #{pattern 37369}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -18008,17 +17991,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37308")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- (cons #{k 37369}#
- (map (lambda (#{tmp 37347 37374}#
- #{tmp 37346 37375}#)
+ (cons #{k 37366}#
+ (map (lambda (#{tmp 37344 37371}#
+ #{tmp 37343 37372}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -18033,11 +18016,11 @@
(top)
(top)
(top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage
()
()
@@ -18045,10 +18028,10 @@
#(ribcage
#(x)
#((top))
- #("i37308")))
+ #("i37305")))
(hygiene
guile))
- #{tmp 37346 37375}#)
+ #{tmp 37343 37372}#)
(list '#(syntax-object
syntax
((top)
@@ -18063,11 +18046,11 @@
(top)
(top)
(top))
- #("i37334"
- "i37335"
- "i37336"
- "i37337"
- "i37338"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage
()
()
@@ -18075,50 +18058,50 @@
#(ribcage
#(x)
#((top))
- #("i37308")))
+ #("i37305")))
(hygiene
guile))
- #{tmp 37347 37374}#)))
- #{template 37373}#
- #{pattern 37372}#))))))
- #{tmp 37360}#)
+ #{tmp 37344 37371}#)))
+ #{template 37370}#
+ #{pattern 37369}#))))))
+ #{tmp 37357}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37348}#))))))))
+ #{x 37345}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 37412}#)
- (let ((#{tmp 37414}#
- ($sc-dispatch #{x 37412}# '(_ (any . any) any))))
- (if #{tmp 37414}#
+ (lambda (#{x 37409}#)
+ (let ((#{tmp 37411}#
+ ($sc-dispatch #{x 37409}# '(_ (any . any) any))))
+ (if #{tmp 37411}#
(@apply
- (lambda (#{name 37418}#
- #{pattern 37419}#
- #{template 37420}#)
+ (lambda (#{name 37415}#
+ #{pattern 37416}#
+ #{template 37417}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37389" "i37390" "i37391"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37386")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{name 37418}#
+ #{name 37415}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37389" "i37390" "i37391"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37386")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -18127,54 +18110,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37389" "i37390" "i37391"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37386")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{pattern 37419}#)
- #{template 37420}#))))
- #{tmp 37414}#)
- (let ((#{tmp 37421}#
+ #{pattern 37416}#)
+ #{template 37417}#))))
+ #{tmp 37411}#)
+ (let ((#{tmp 37418}#
($sc-dispatch
- #{x 37412}#
+ #{x 37409}#
'(_ (any . any) any any))))
- (if (if #{tmp 37421}#
+ (if (if #{tmp 37418}#
(@apply
- (lambda (#{name 37425}#
- #{pattern 37426}#
- #{docstring 37427}#
- #{template 37428}#)
- (string? (syntax->datum #{docstring 37427}#)))
- #{tmp 37421}#)
+ (lambda (#{name 37422}#
+ #{pattern 37423}#
+ #{docstring 37424}#
+ #{template 37425}#)
+ (string? (syntax->datum #{docstring 37424}#)))
+ #{tmp 37418}#)
#f)
(@apply
- (lambda (#{name 37429}#
- #{pattern 37430}#
- #{docstring 37431}#
- #{template 37432}#)
+ (lambda (#{name 37426}#
+ #{pattern 37427}#
+ #{docstring 37428}#
+ #{template 37429}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37404" "i37405" "i37406" "i37407"))
+ #("i37401" "i37402" "i37403" "i37404"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37386")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{name 37429}#
+ #{name 37426}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37404" "i37405" "i37406" "i37407"))
+ #("i37401" "i37402" "i37403" "i37404"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37386")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
'()
- #{docstring 37431}#
+ #{docstring 37428}#
(list (cons '#(syntax-object
_
((top)
@@ -18184,53 +18167,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i37404"
- "i37405"
- "i37406"
- "i37407"))
+ #("i37401"
+ "i37402"
+ "i37403"
+ "i37404"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37386")))
+ #("i37383")))
(hygiene guile))
- #{pattern 37430}#)
- #{template 37432}#))))
- #{tmp 37421}#)
+ #{pattern 37427}#)
+ #{template 37429}#))))
+ #{tmp 37418}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37412}#))))))))
+ #{x 37409}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 37481}#)
- (let ((#{tmp 37483}#
+ (lambda (#{x 37478}#)
+ (let ((#{tmp 37480}#
($sc-dispatch
- #{x 37481}#
+ #{x 37478}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 37483}#
+ (if (if #{tmp 37480}#
(@apply
- (lambda (#{let* 37487}#
- #{x 37488}#
- #{v 37489}#
- #{e1 37490}#
- #{e2 37491}#)
- (and-map identifier? #{x 37488}#))
- #{tmp 37483}#)
+ (lambda (#{let* 37484}#
+ #{x 37485}#
+ #{v 37486}#
+ #{e1 37487}#
+ #{e2 37488}#)
+ (and-map identifier? #{x 37485}#))
+ #{tmp 37480}#)
#f)
(@apply
- (lambda (#{let* 37492}#
- #{x 37493}#
- #{v 37494}#
- #{e1 37495}#
- #{e2 37496}#)
+ (lambda (#{let* 37489}#
+ #{x 37490}#
+ #{v 37491}#
+ #{e1 37492}#
+ #{e2 37493}#)
(letrec*
- ((#{f 37497}#
- (lambda (#{bindings 37500}#)
- (if (null? #{bindings 37500}#)
+ ((#{f 37494}#
+ (lambda (#{bindings 37497}#)
+ (if (null? #{bindings 37497}#)
(cons '#(syntax-object
let
((top)
@@ -18238,27 +18221,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i37467" "i37468"))
+ #("i37464" "i37465"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37457"
- "i37458"
- "i37459"
- "i37460"
- "i37461"))
+ #("i37454"
+ "i37455"
+ "i37456"
+ "i37457"
+ "i37458"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37443")))
+ #(ribcage #(x) #((top)) #("i37440")))
(hygiene guile))
- (cons '() (cons #{e1 37495}# #{e2 37496}#)))
- (let ((#{tmp 37501}#
- (list (#{f 37497}# (cdr #{bindings 37500}#))
- (car #{bindings 37500}#))))
- (let ((#{tmp 37502}#
- ($sc-dispatch #{tmp 37501}# '(any any))))
- (if #{tmp 37502}#
+ (cons '() (cons #{e1 37492}# #{e2 37493}#)))
+ (let ((#{tmp 37498}#
+ (list (#{f 37494}# (cdr #{bindings 37497}#))
+ (car #{bindings 37497}#))))
+ (let ((#{tmp 37499}#
+ ($sc-dispatch #{tmp 37498}# '(any any))))
+ (if #{tmp 37499}#
(@apply
- (lambda (#{body 37504}# #{binding 37505}#)
+ (lambda (#{body 37501}# #{binding 37502}#)
(list '#(syntax-object
let
((top)
@@ -18266,86 +18249,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i37477" "i37478"))
+ #("i37474" "i37475"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i37467" "i37468"))
+ #("i37464" "i37465"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37457"
- "i37458"
- "i37459"
- "i37460"
- "i37461"))
+ #("i37454"
+ "i37455"
+ "i37456"
+ "i37457"
+ "i37458"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37443")))
+ #("i37440")))
(hygiene guile))
- (list #{binding 37505}#)
- #{body 37504}#))
- #{tmp 37502}#)
+ (list #{binding 37502}#)
+ #{body 37501}#))
+ #{tmp 37499}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37501}#))))))))
- (#{f 37497}# (map list #{x 37493}# #{v 37494}#))))
- #{tmp 37483}#)
+ #{tmp 37498}#))))))))
+ (#{f 37494}# (map list #{x 37490}# #{v 37491}#))))
+ #{tmp 37480}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37481}#))))))
+ #{x 37478}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 37563}#)
- (let ((#{tmp 37565}#
+ (lambda (#{orig-x 37560}#)
+ (let ((#{tmp 37562}#
($sc-dispatch
- #{orig-x 37563}#
+ #{orig-x 37560}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 37565}#
+ (if #{tmp 37562}#
(@apply
- (lambda (#{var 37569}#
- #{init 37570}#
- #{step 37571}#
- #{e0 37572}#
- #{e1 37573}#
- #{c 37574}#)
- (let ((#{tmp 37575}#
- (map (lambda (#{v 37578}# #{s 37579}#)
- (let ((#{tmp 37581}#
- ($sc-dispatch #{s 37579}# '())))
- (if #{tmp 37581}#
- (@apply (lambda () #{v 37578}#) #{tmp 37581}#)
- (let ((#{tmp 37584}#
- ($sc-dispatch #{s 37579}# '(any))))
- (if #{tmp 37584}#
+ (lambda (#{var 37566}#
+ #{init 37567}#
+ #{step 37568}#
+ #{e0 37569}#
+ #{e1 37570}#
+ #{c 37571}#)
+ (let ((#{tmp 37572}#
+ (map (lambda (#{v 37575}# #{s 37576}#)
+ (let ((#{tmp 37578}#
+ ($sc-dispatch #{s 37576}# '())))
+ (if #{tmp 37578}#
+ (@apply (lambda () #{v 37575}#) #{tmp 37578}#)
+ (let ((#{tmp 37581}#
+ ($sc-dispatch #{s 37576}# '(any))))
+ (if #{tmp 37581}#
(@apply
- (lambda (#{e 37587}#) #{e 37587}#)
- #{tmp 37584}#)
+ (lambda (#{e 37584}#) #{e 37584}#)
+ #{tmp 37581}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 37563}#
- #{s 37579}#))))))
- #{var 37569}#
- #{step 37571}#)))
- (let ((#{tmp 37576}#
- ($sc-dispatch #{tmp 37575}# 'each-any)))
- (if #{tmp 37576}#
+ #{orig-x 37560}#
+ #{s 37576}#))))))
+ #{var 37566}#
+ #{step 37568}#)))
+ (let ((#{tmp 37573}#
+ ($sc-dispatch #{tmp 37572}# 'each-any)))
+ (if #{tmp 37573}#
(@apply
- (lambda (#{step 37593}#)
- (let ((#{tmp 37595}# ($sc-dispatch #{e1 37573}# '())))
- (if #{tmp 37595}#
+ (lambda (#{step 37590}#)
+ (let ((#{tmp 37592}# ($sc-dispatch #{e1 37570}# '())))
+ (if #{tmp 37592}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -18355,7 +18338,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18364,17 +18347,17 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
'#(syntax-object
doloop
@@ -18383,7 +18366,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18392,19 +18375,19 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
- (map list #{var 37569}# #{init 37570}#)
+ (map list #{var 37566}# #{init 37567}#)
(list '#(syntax-object
if
((top)
@@ -18412,7 +18395,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18421,17 +18404,17 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
(list '#(syntax-object
not
@@ -18440,7 +18423,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18454,19 +18437,19 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
- #{e0 37572}#)
+ #{e0 37569}#)
(cons '#(syntax-object
begin
((top)
@@ -18474,7 +18457,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18488,20 +18471,20 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
(append
- #{c 37574}#
+ #{c 37571}#
(list (cons '#(syntax-object
doloop
((top)
@@ -18512,7 +18495,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18526,12 +18509,12 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage
()
()
@@ -18539,30 +18522,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene
guile))
- #{step 37593}#)))))))
- #{tmp 37595}#)
- (let ((#{tmp 37599}#
+ #{step 37590}#)))))))
+ #{tmp 37592}#)
+ (let ((#{tmp 37596}#
($sc-dispatch
- #{e1 37573}#
+ #{e1 37570}#
'(any . each-any))))
- (if #{tmp 37599}#
+ (if #{tmp 37596}#
(@apply
- (lambda (#{e1 37603}# #{e2 37604}#)
+ (lambda (#{e1 37600}# #{e2 37601}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37540" "i37541"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18571,17 +18554,17 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
'#(syntax-object
doloop
@@ -18589,12 +18572,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37540" "i37541"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18603,33 +18586,33 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
(map list
- #{var 37569}#
- #{init 37570}#)
+ #{var 37566}#
+ #{init 37567}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37540" "i37541"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18638,32 +18621,32 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
- #{e0 37572}#
+ #{e0 37569}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37540"
- "i37541"))
+ #("i37537"
+ "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18677,33 +18660,33 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
- (cons #{e1 37603}#
- #{e2 37604}#))
+ (cons #{e1 37600}#
+ #{e2 37601}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37540"
- "i37541"))
+ #("i37537"
+ "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18717,20 +18700,20 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene guile))
(append
- #{c 37574}#
+ #{c 37571}#
(list (cons '#(syntax-object
doloop
((top)
@@ -18739,8 +18722,8 @@
e2)
#((top)
(top))
- #("i37540"
- "i37541"))
+ #("i37537"
+ "i37538"))
#(ribcage
()
()
@@ -18748,7 +18731,7 @@
#(ribcage
#(step)
#((top))
- #("i37531"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18762,12 +18745,12 @@
(top)
(top)
(top))
- #("i37516"
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
"i37517"
- "i37518"
- "i37519"
- "i37520"
- "i37521"))
+ "i37518"))
#(ribcage
()
()
@@ -18775,36 +18758,36 @@
#(ribcage
#(orig-x)
#((top))
- #("i37513")))
+ #("i37510")))
(hygiene
guile))
- #{step 37593}#)))))))
- #{tmp 37599}#)
+ #{step 37590}#)))))))
+ #{tmp 37596}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 37573}#))))))
- #{tmp 37576}#)
+ #{e1 37570}#))))))
+ #{tmp 37573}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37575}#)))))
- #{tmp 37565}#)
+ #{tmp 37572}#)))))
+ #{tmp 37562}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 37563}#))))))
+ #{orig-x 37560}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 37890}#
- (lambda (#{p 37914}# #{lev 37915}#)
- (let ((#{tmp 37917}#
+ ((#{quasi 37887}#
+ (lambda (#{p 37911}# #{lev 37912}#)
+ (let ((#{tmp 37914}#
($sc-dispatch
- #{p 37914}#
+ #{p 37911}#
'(#(free-id
#(syntax-object
unquote
@@ -18813,7 +18796,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18822,28 +18805,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
any))))
- (if #{tmp 37917}#
+ (if #{tmp 37914}#
(@apply
- (lambda (#{p 37921}#)
- (if (= #{lev 37915}# 0)
+ (lambda (#{p 37918}#)
+ (if (= #{lev 37912}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i37640"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18852,25 +18835,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 37921}#)
- (#{quasicons 37892}#
+ #{p 37918}#)
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37640"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18879,23 +18862,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37640"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18904,21 +18887,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- (list #{p 37921}#)
- (#{1-}# #{lev 37915}#)))))
- #{tmp 37917}#)
- (let ((#{tmp 37924}#
+ (#{quasi 37887}#
+ (list #{p 37918}#)
+ (#{1-}# #{lev 37912}#)))))
+ #{tmp 37914}#)
+ (let ((#{tmp 37921}#
($sc-dispatch
- #{p 37914}#
+ #{p 37911}#
'(#(free-id
#(syntax-object
quasiquote
@@ -18927,7 +18910,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18936,28 +18919,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
any))))
- (if #{tmp 37924}#
+ (if #{tmp 37921}#
(@apply
- (lambda (#{p 37928}#)
- (#{quasicons 37892}#
+ (lambda (#{p 37925}#)
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37643"))
+ #(ribcage #(p) #((top)) #("i37640"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18966,23 +18949,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i37643"))
+ #(ribcage #(p) #((top)) #("i37640"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18991,26 +18974,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- (list #{p 37928}#)
- (#{1+}# #{lev 37915}#))))
- #{tmp 37924}#)
- (let ((#{tmp 37931}#
- ($sc-dispatch #{p 37914}# '(any . any))))
- (if #{tmp 37931}#
+ (#{quasi 37887}#
+ (list #{p 37925}#)
+ (#{1+}# #{lev 37912}#))))
+ #{tmp 37921}#)
+ (let ((#{tmp 37928}#
+ ($sc-dispatch #{p 37911}# '(any . any))))
+ (if #{tmp 37928}#
(@apply
- (lambda (#{p 37935}# #{q 37936}#)
- (let ((#{tmp 37938}#
+ (lambda (#{p 37932}# #{q 37933}#)
+ (let ((#{tmp 37935}#
($sc-dispatch
- #{p 37935}#
+ #{p 37932}#
'(#(free-id
#(syntax-object
unquote
@@ -19018,12 +19001,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19038,38 +19021,38 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37938}#
+ (if #{tmp 37935}#
(@apply
- (lambda (#{p 37942}#)
- (if (= #{lev 37915}# 0)
- (#{quasilist* 37894}#
- (map (lambda (#{tmp 37654 37981}#)
+ (lambda (#{p 37939}#)
+ (if (= #{lev 37912}# 0)
+ (#{quasilist* 37891}#
+ (map (lambda (#{tmp 37651 37978}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37652"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19084,37 +19067,37 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37654 37981}#))
- #{p 37942}#)
- (#{quasi 37890}#
- #{q 37936}#
- #{lev 37915}#))
- (#{quasicons 37892}#
- (#{quasicons 37892}#
+ #{tmp 37651 37978}#))
+ #{p 37939}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37652"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19129,13 +19112,13 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
@@ -19143,16 +19126,16 @@
#(ribcage
#(p)
#((top))
- #("i37652"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19167,24 +19150,24 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- #{p 37942}#
- (#{1-}# #{lev 37915}#)))
- (#{quasi 37890}#
- #{q 37936}#
- #{lev 37915}#))))
- #{tmp 37938}#)
- (let ((#{tmp 37986}#
+ (#{quasi 37887}#
+ #{p 37939}#
+ (#{1-}# #{lev 37912}#)))
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))))
+ #{tmp 37935}#)
+ (let ((#{tmp 37983}#
($sc-dispatch
- #{p 37935}#
+ #{p 37932}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19192,12 +19175,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19212,40 +19195,40 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37986}#
+ (if #{tmp 37983}#
(@apply
- (lambda (#{p 37990}#)
- (if (= #{lev 37915}# 0)
- (#{quasiappend 37893}#
- (map (lambda (#{tmp 37659 37993}#)
+ (lambda (#{p 37987}#)
+ (if (= #{lev 37912}# 0)
+ (#{quasiappend 37890}#
+ (map (lambda (#{tmp 37656 37990}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37657"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646"
- "i37647"))
+ #("i37643"
+ "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636"
- "i37637"))
+ #("i37633"
+ "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19260,37 +19243,37 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37659 37993}#))
- #{p 37990}#)
- (#{quasi 37890}#
- #{q 37936}#
- #{lev 37915}#))
- (#{quasicons 37892}#
- (#{quasicons 37892}#
+ #{tmp 37656 37990}#))
+ #{p 37987}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37657"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19305,13 +19288,13 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -19319,16 +19302,16 @@
#(ribcage
#(p)
#((top))
- #("i37657"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37646" "i37647"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19343,57 +19326,57 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- #{p 37990}#
- (#{1-}# #{lev 37915}#)))
- (#{quasi 37890}#
- #{q 37936}#
- #{lev 37915}#))))
- #{tmp 37986}#)
- (#{quasicons 37892}#
- (#{quasi 37890}#
- #{p 37935}#
- #{lev 37915}#)
- (#{quasi 37890}#
- #{q 37936}#
- #{lev 37915}#)))))))
- #{tmp 37931}#)
- (let ((#{tmp 38007}#
- ($sc-dispatch #{p 37914}# '#(vector each-any))))
- (if #{tmp 38007}#
+ (#{quasi 37887}#
+ #{p 37987}#
+ (#{1-}# #{lev 37912}#)))
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))))
+ #{tmp 37983}#)
+ (#{quasicons 37889}#
+ (#{quasi 37887}#
+ #{p 37932}#
+ #{lev 37912}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#)))))))
+ #{tmp 37928}#)
+ (let ((#{tmp 38004}#
+ ($sc-dispatch #{p 37911}# '#(vector each-any))))
+ (if #{tmp 38004}#
(@apply
- (lambda (#{x 38011}#)
- (let ((#{x 38014}#
- (#{vquasi 37891}#
- #{x 38011}#
- #{lev 37915}#)))
- (let ((#{tmp 38016}#
+ (lambda (#{x 38008}#)
+ (let ((#{x 38011}#
+ (#{vquasi 37888}#
+ #{x 38008}#
+ #{lev 37912}#)))
+ (let ((#{tmp 38013}#
($sc-dispatch
- #{x 38014}#
+ #{x 38011}#
'(#(atom "quote") each-any))))
- (if #{tmp 38016}#
+ (if #{tmp 38013}#
(@apply
- (lambda (#{x 38020}#)
+ (lambda (#{x 38017}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i37764"))
+ #("i37761"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37761"))
+ #("i37758"))
#(ribcage
(emit quasivector
quasilist*
@@ -19408,36 +19391,36 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (list->vector #{x 38020}#)))
- #{tmp 38016}#)
+ (list->vector #{x 38017}#)))
+ #{tmp 38013}#)
(letrec*
- ((#{f 38022}#
- (lambda (#{y 38034}# #{k 38035}#)
- (let ((#{tmp 38037}#
+ ((#{f 38019}#
+ (lambda (#{y 38031}# #{k 38032}#)
+ (let ((#{tmp 38034}#
($sc-dispatch
- #{y 38034}#
+ #{y 38031}#
'(#(atom "quote")
each-any))))
- (if #{tmp 38037}#
+ (if #{tmp 38034}#
(@apply
- (lambda (#{y 38040}#)
- (#{k 38035}#
- (map (lambda (#{tmp 37789 38041}#)
+ (lambda (#{y 38037}#)
+ (#{k 38032}#
+ (map (lambda (#{tmp 37786 38038}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i37787"))
+ #("i37784"))
#(ribcage
()
()
@@ -19449,13 +19432,13 @@
#((top)
(top)
(top))
- #("i37769"
- "i37770"
- "i37771"))
+ #("i37766"
+ "i37767"
+ "i37768"))
#(ribcage
#(_)
#((top))
- #("i37767"))
+ #("i37764"))
#(ribcage
()
()
@@ -19463,7 +19446,7 @@
#(ribcage
#(x)
#((top))
- #("i37761"))
+ #("i37758"))
#(ribcage
(emit quasivector
quasilist*
@@ -19478,51 +19461,51 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene
guile))
- #{tmp 37789 38041}#))
- #{y 38040}#)))
- #{tmp 38037}#)
- (let ((#{tmp 38042}#
+ #{tmp 37786 38038}#))
+ #{y 38037}#)))
+ #{tmp 38034}#)
+ (let ((#{tmp 38039}#
($sc-dispatch
- #{y 38034}#
+ #{y 38031}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 38042}#
+ (if #{tmp 38039}#
(@apply
- (lambda (#{y 38045}#)
- (#{k 38035}#
- #{y 38045}#))
- #{tmp 38042}#)
- (let ((#{tmp 38046}#
+ (lambda (#{y 38042}#)
+ (#{k 38032}#
+ #{y 38042}#))
+ #{tmp 38039}#)
+ (let ((#{tmp 38043}#
($sc-dispatch
- #{y 38034}#
+ #{y 38031}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 38046}#
+ (if #{tmp 38043}#
(@apply
- (lambda (#{y 38049}#
- #{z 38050}#)
- (#{f 38022}#
- #{z 38050}#
- (lambda (#{ls 38051}#)
- (#{k 38035}#
+ (lambda (#{y 38046}#
+ #{z 38047}#)
+ (#{f 38019}#
+ #{z 38047}#
+ (lambda (#{ls 38048}#)
+ (#{k 38032}#
(append
- #{y 38049}#
- #{ls 38051}#)))))
- #{tmp 38046}#)
+ #{y 38046}#
+ #{ls 38048}#)))))
+ #{tmp 38043}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -19531,14 +19514,14 @@
()
())
#(ribcage
- #(#{ g37804}#)
- #((m37805
+ #(#{ g37801}#)
+ #((m37802
top))
- #("i37808"))
+ #("i37805"))
#(ribcage
#(else)
#((top))
- #("i37802"))
+ #("i37799"))
#(ribcage
()
()
@@ -19548,13 +19531,13 @@
#((top)
(top)
(top))
- #("i37769"
- "i37770"
- "i37771"))
+ #("i37766"
+ "i37767"
+ "i37768"))
#(ribcage
#(_)
#((top))
- #("i37767"))
+ #("i37764"))
#(ribcage
()
()
@@ -19562,7 +19545,7 @@
#(ribcage
#(x)
#((top))
- #("i37761"))
+ #("i37758"))
#(ribcage
(emit quasivector
quasilist*
@@ -19577,26 +19560,26 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene
guile))
- #{x 38014}#))))))))))
- (#{f 38022}#
- #{x 38014}#
- (lambda (#{ls 38024}#)
- (let ((#{tmp 38026}#
+ #{x 38011}#))))))))))
+ (#{f 38019}#
+ #{x 38011}#
+ (lambda (#{ls 38021}#)
+ (let ((#{tmp 38023}#
($sc-dispatch
- #{ls 38024}#
+ #{ls 38021}#
'each-any)))
- (if #{tmp 38026}#
+ (if #{tmp 38023}#
(@apply
- (lambda (#{ g37777 38029}#)
+ (lambda (#{ g37774 38026}#)
(cons '#(syntax-object
"vector"
((top)
@@ -19605,9 +19588,9 @@
()
())
#(ribcage
- #(#{ g37777}#)
- #((m37778 top))
- #("i37782"))
+ #(#{ g37774}#)
+ #((m37775 top))
+ #("i37779"))
#(ribcage
()
()
@@ -19623,11 +19606,11 @@
#(ribcage
#(ls)
#((top))
- #("i37776"))
+ #("i37773"))
#(ribcage
#(_)
#((top))
- #("i37767"))
+ #("i37764"))
#(ribcage
()
()
@@ -19635,7 +19618,7 @@
#(ribcage
#(x)
#((top))
- #("i37761"))
+ #("i37758"))
#(ribcage
(emit quasivector
quasilist*
@@ -19650,30 +19633,30 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37777 38029}#))
- #{tmp 38026}#)
+ #{ g37774 38026}#))
+ #{tmp 38023}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls 38024}#))))))))))
- #{tmp 38007}#)
+ #{ls 38021}#))))))))))
+ #{tmp 38004}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37667"))
+ #(ribcage #(p) #((top)) #("i37664"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37636" "i37637"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19688,25 +19671,25 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 37914}#)))))))))))
- (#{vquasi 37891}#
- (lambda (#{p 38079}# #{lev 38080}#)
- (let ((#{tmp 38082}#
- ($sc-dispatch #{p 38079}# '(any . any))))
- (if #{tmp 38082}#
+ #{p 37911}#)))))))))))
+ (#{vquasi 37888}#
+ (lambda (#{p 38076}# #{lev 38077}#)
+ (let ((#{tmp 38079}#
+ ($sc-dispatch #{p 38076}# '(any . any))))
+ (if #{tmp 38079}#
(@apply
- (lambda (#{p 38086}# #{q 38087}#)
- (let ((#{tmp 38089}#
+ (lambda (#{p 38083}# #{q 38084}#)
+ (let ((#{tmp 38086}#
($sc-dispatch
- #{p 38086}#
+ #{p 38083}#
'(#(free-id
#(syntax-object
unquote
@@ -19714,12 +19697,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19734,38 +19717,38 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 38089}#
+ (if #{tmp 38086}#
(@apply
- (lambda (#{p 38093}#)
- (if (= #{lev 38080}# 0)
- (#{quasilist* 37894}#
- (map (lambda (#{tmp 37683 38132}#)
+ (lambda (#{p 38090}#)
+ (if (= #{lev 38077}# 0)
+ (#{quasilist* 37891}#
+ (map (lambda (#{tmp 37680 38129}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37681"))
+ #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19780,32 +19763,32 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37683 38132}#))
- #{p 38093}#)
- (#{vquasi 37891}# #{q 38087}# #{lev 38080}#))
- (#{quasicons 37892}#
- (#{quasicons 37892}#
+ #{tmp 37680 38129}#))
+ #{p 38090}#)
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37681"))
+ #(ribcage #(p) #((top)) #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19820,27 +19803,27 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37681"))
+ #(ribcage #(p) #((top)) #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19855,22 +19838,22 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- #{p 38093}#
- (#{1-}# #{lev 38080}#)))
- (#{vquasi 37891}# #{q 38087}# #{lev 38080}#))))
- #{tmp 38089}#)
- (let ((#{tmp 38139}#
+ (#{quasi 37887}#
+ #{p 38090}#
+ (#{1-}# #{lev 38077}#)))
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))))
+ #{tmp 38086}#)
+ (let ((#{tmp 38136}#
($sc-dispatch
- #{p 38086}#
+ #{p 38083}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19878,12 +19861,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19898,38 +19881,38 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 38139}#
+ (if #{tmp 38136}#
(@apply
- (lambda (#{p 38143}#)
- (if (= #{lev 38080}# 0)
- (#{quasiappend 37893}#
- (map (lambda (#{tmp 37688 38146}#)
+ (lambda (#{p 38140}#)
+ (if (= #{lev 38077}# 0)
+ (#{quasiappend 37890}#
+ (map (lambda (#{tmp 37685 38143}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37686"))
+ #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19944,34 +19927,34 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37688 38146}#))
- #{p 38143}#)
- (#{vquasi 37891}#
- #{q 38087}#
- #{lev 38080}#))
- (#{quasicons 37892}#
- (#{quasicons 37892}#
+ #{tmp 37685 38143}#))
+ #{p 38140}#)
+ (#{vquasi 37888}#
+ #{q 38084}#
+ #{lev 38077}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37686"))
+ #(ribcage #(p) #((top)) #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19986,27 +19969,27 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i37686"))
+ #(ribcage #(p) #((top)) #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37675" "i37676"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -20021,27 +20004,27 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37890}#
- #{p 38143}#
- (#{1-}# #{lev 38080}#)))
- (#{vquasi 37891}#
- #{q 38087}#
- #{lev 38080}#))))
- #{tmp 38139}#)
- (#{quasicons 37892}#
- (#{quasi 37890}# #{p 38086}# #{lev 38080}#)
- (#{vquasi 37891}# #{q 38087}# #{lev 38080}#)))))))
- #{tmp 38082}#)
- (let ((#{tmp 38164}# ($sc-dispatch #{p 38079}# '())))
- (if #{tmp 38164}#
+ (#{quasi 37887}#
+ #{p 38140}#
+ (#{1-}# #{lev 38077}#)))
+ (#{vquasi 37888}#
+ #{q 38084}#
+ #{lev 38077}#))))
+ #{tmp 38136}#)
+ (#{quasicons 37889}#
+ (#{quasi 37887}# #{p 38083}# #{lev 38077}#)
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#)))))))
+ #{tmp 38079}#)
+ (let ((#{tmp 38161}# ($sc-dispatch #{p 38076}# '())))
+ (if #{tmp 38161}#
(@apply
(lambda ()
'(#(syntax-object
@@ -20051,7 +20034,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37671" "i37672"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -20060,64 +20043,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
()))
- #{tmp 38164}#)
+ #{tmp 38161}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 38079}#)))))))
- (#{quasicons 37892}#
- (lambda (#{x 38177}# #{y 38178}#)
- (let ((#{tmp 38179}# (list #{x 38177}# #{y 38178}#)))
- (let ((#{tmp 38180}#
- ($sc-dispatch #{tmp 38179}# '(any any))))
- (if #{tmp 38180}#
+ #{p 38076}#)))))))
+ (#{quasicons 37889}#
+ (lambda (#{x 38174}# #{y 38175}#)
+ (let ((#{tmp 38176}# (list #{x 38174}# #{y 38175}#)))
+ (let ((#{tmp 38177}#
+ ($sc-dispatch #{tmp 38176}# '(any any))))
+ (if #{tmp 38177}#
(@apply
- (lambda (#{x 38182}# #{y 38183}#)
- (let ((#{tmp 38185}#
+ (lambda (#{x 38179}# #{y 38180}#)
+ (let ((#{tmp 38182}#
($sc-dispatch
- #{y 38183}#
+ #{y 38180}#
'(#(atom "quote") any))))
- (if #{tmp 38185}#
+ (if #{tmp 38182}#
(@apply
- (lambda (#{dy 38189}#)
- (let ((#{tmp 38191}#
+ (lambda (#{dy 38186}#)
+ (let ((#{tmp 38188}#
($sc-dispatch
- #{x 38182}#
+ #{x 38179}#
'(#(atom "quote") any))))
- (if #{tmp 38191}#
+ (if #{tmp 38188}#
(@apply
- (lambda (#{dx 38195}#)
+ (lambda (#{dx 38192}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i37710"))
+ #("i37707"))
#(ribcage
#(dy)
#((top))
- #("i37706"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20132,39 +20115,39 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{dx 38195}# #{dy 38189}#)))
- #{tmp 38191}#)
- (if (null? #{dy 38189}#)
+ (cons #{dx 38192}# #{dy 38186}#)))
+ #{tmp 38188}#)
+ (if (null? #{dy 38186}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i37712"))
+ #("i37709"))
#(ribcage
#(dy)
#((top))
- #("i37706"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20179,37 +20162,37 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 38182}#)
+ #{x 38179}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i37712"))
+ #("i37709"))
#(ribcage
#(dy)
#((top))
- #("i37706"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20224,42 +20207,42 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 38182}#
- #{y 38183}#)))))
- #{tmp 38185}#)
- (let ((#{tmp 38200}#
+ #{x 38179}#
+ #{y 38180}#)))))
+ #{tmp 38182}#)
+ (let ((#{tmp 38197}#
($sc-dispatch
- #{y 38183}#
+ #{y 38180}#
'(#(atom "list") . any))))
- (if #{tmp 38200}#
+ (if #{tmp 38197}#
(@apply
- (lambda (#{stuff 38204}#)
+ (lambda (#{stuff 38201}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37715"))
+ #("i37712"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20274,41 +20257,41 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{x 38182}# #{stuff 38204}#)))
- #{tmp 38200}#)
- (let ((#{tmp 38205}#
+ (cons #{x 38179}# #{stuff 38201}#)))
+ #{tmp 38197}#)
+ (let ((#{tmp 38202}#
($sc-dispatch
- #{y 38183}#
+ #{y 38180}#
'(#(atom "list*") . any))))
- (if #{tmp 38205}#
+ (if #{tmp 38202}#
(@apply
- (lambda (#{stuff 38209}#)
+ (lambda (#{stuff 38206}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37718"))
+ #("i37715"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20323,31 +20306,31 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{x 38182}# #{stuff 38209}#)))
- #{tmp 38205}#)
+ (cons #{x 38179}# #{stuff 38206}#)))
+ #{tmp 38202}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i37720"))
+ #(ribcage #(_) #((top)) #("i37717"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37700" "i37701"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37695" "i37696"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20362,29 +20345,29 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 38182}#
- #{y 38183}#))))))))
- #{tmp 38180}#)
+ #{x 38179}#
+ #{y 38180}#))))))))
+ #{tmp 38177}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38179}#))))))
- (#{quasiappend 37893}#
- (lambda (#{x 38220}# #{y 38221}#)
- (let ((#{tmp 38223}#
- ($sc-dispatch #{y 38221}# '(#(atom "quote") ()))))
- (if #{tmp 38223}#
+ #{tmp 38176}#))))))
+ (#{quasiappend 37890}#
+ (lambda (#{x 38217}# #{y 38218}#)
+ (let ((#{tmp 38220}#
+ ($sc-dispatch #{y 38218}# '(#(atom "quote") ()))))
+ (if #{tmp 38220}#
(@apply
(lambda ()
- (if (null? #{x 38220}#)
+ (if (null? #{x 38217}#)
'(#(syntax-object
"quote"
((top)
@@ -20392,7 +20375,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i37724" "i37725"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20401,32 +20384,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
())
- (if (null? (cdr #{x 38220}#))
- (car #{x 38220}#)
- (let ((#{tmp 38228}#
- ($sc-dispatch #{x 38220}# 'each-any)))
- (if #{tmp 38228}#
+ (if (null? (cdr #{x 38217}#))
+ (car #{x 38217}#)
+ (let ((#{tmp 38225}#
+ ($sc-dispatch #{x 38217}# 'each-any)))
+ (if #{tmp 38225}#
(@apply
- (lambda (#{p 38232}#)
+ (lambda (#{p 38229}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i37736"))
+ #(ribcage #(p) #((top)) #("i37733"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37724" "i37725"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20441,29 +20424,29 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 38232}#))
- #{tmp 38228}#)
+ #{p 38229}#))
+ #{tmp 38225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38220}#))))))
- #{tmp 38223}#)
- (if (null? #{x 38220}#)
- #{y 38221}#
- (let ((#{tmp 38240}# (list #{x 38220}# #{y 38221}#)))
- (let ((#{tmp 38241}#
- ($sc-dispatch #{tmp 38240}# '(each-any any))))
- (if #{tmp 38241}#
+ #{x 38217}#))))))
+ #{tmp 38220}#)
+ (if (null? #{x 38217}#)
+ #{y 38218}#
+ (let ((#{tmp 38237}# (list #{x 38217}# #{y 38218}#)))
+ (let ((#{tmp 38238}#
+ ($sc-dispatch #{tmp 38237}# '(each-any any))))
+ (if #{tmp 38238}#
(@apply
- (lambda (#{p 38243}# #{y 38244}#)
+ (lambda (#{p 38240}# #{y 38241}#)
(cons '#(syntax-object
"append"
((top)
@@ -20471,13 +20454,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i37747" "i37748"))
- #(ribcage #(_) #((top)) #("i37739"))
+ #("i37744" "i37745"))
+ #(ribcage #(_) #((top)) #("i37736"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37724" "i37725"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20492,44 +20475,44 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (append #{p 38243}# (list #{y 38244}#))))
- #{tmp 38241}#)
+ (append #{p 38240}# (list #{y 38241}#))))
+ #{tmp 38238}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38240}#)))))))))
- (#{quasilist* 37894}#
- (lambda (#{x 38248}# #{y 38249}#)
+ #{tmp 38237}#)))))))))
+ (#{quasilist* 37891}#
+ (lambda (#{x 38245}# #{y 38246}#)
(letrec*
- ((#{f 38250}#
- (lambda (#{x 38354}#)
- (if (null? #{x 38354}#)
- #{y 38249}#
- (#{quasicons 37892}#
- (car #{x 38354}#)
- (#{f 38250}# (cdr #{x 38354}#)))))))
- (#{f 38250}# #{x 38248}#))))
- (#{emit 37896}#
- (lambda (#{x 38357}#)
- (let ((#{tmp 38359}#
- ($sc-dispatch #{x 38357}# '(#(atom "quote") any))))
- (if #{tmp 38359}#
+ ((#{f 38247}#
+ (lambda (#{x 38351}#)
+ (if (null? #{x 38351}#)
+ #{y 38246}#
+ (#{quasicons 37889}#
+ (car #{x 38351}#)
+ (#{f 38247}# (cdr #{x 38351}#)))))))
+ (#{f 38247}# #{x 38245}#))))
+ (#{emit 37893}#
+ (lambda (#{x 38354}#)
+ (let ((#{tmp 38356}#
+ ($sc-dispatch #{x 38354}# '(#(atom "quote") any))))
+ (if #{tmp 38356}#
(@apply
- (lambda (#{x 38363}#)
+ (lambda (#{x 38360}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i37814"))
- #(ribcage () () ())
#(ribcage #(x) #((top)) #("i37811"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20538,40 +20521,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 38363}#))
- #{tmp 38359}#)
- (let ((#{tmp 38364}#
+ #{x 38360}#))
+ #{tmp 38356}#)
+ (let ((#{tmp 38361}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "list") . each-any))))
- (if #{tmp 38364}#
+ (if #{tmp 38361}#
(@apply
- (lambda (#{x 38368}#)
- (let ((#{tmp 38369}# (map #{emit 37896}# #{x 38368}#)))
- (let ((#{tmp 38370}#
- ($sc-dispatch #{tmp 38369}# 'each-any)))
- (if #{tmp 38370}#
+ (lambda (#{x 38365}#)
+ (let ((#{tmp 38366}# (map #{emit 37893}# #{x 38365}#)))
+ (let ((#{tmp 38367}#
+ ($sc-dispatch #{tmp 38366}# 'each-any)))
+ (if #{tmp 38367}#
(@apply
- (lambda (#{ g37819 38372}#)
+ (lambda (#{ g37816 38369}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37819}#)
- #((m37820 top))
- #("i37824"))
- #(ribcage #(x) #((top)) #("i37817"))
+ #(#{ g37816}#)
+ #((m37817 top))
+ #("i37821"))
+ #(ribcage #(x) #((top)) #("i37814"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37811"))
+ #(ribcage #(x) #((top)) #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20586,70 +20569,70 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37819 38372}#))
- #{tmp 38370}#)
+ #{ g37816 38369}#))
+ #{tmp 38367}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38369}#)))))
- #{tmp 38364}#)
- (let ((#{tmp 38373}#
+ #{tmp 38366}#)))))
+ #{tmp 38361}#)
+ (let ((#{tmp 38370}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 38373}#
+ (if #{tmp 38370}#
(@apply
- (lambda (#{x 38377}# #{y 38378}#)
+ (lambda (#{x 38374}# #{y 38375}#)
(letrec*
- ((#{f 38379}#
- (lambda (#{x* 38382}#)
- (if (null? #{x* 38382}#)
- (#{emit 37896}# #{y 38378}#)
- (let ((#{tmp 38383}#
- (list (#{emit 37896}#
- (car #{x* 38382}#))
- (#{f 38379}#
- (cdr #{x* 38382}#)))))
- (let ((#{tmp 38384}#
+ ((#{f 38376}#
+ (lambda (#{x* 38379}#)
+ (if (null? #{x* 38379}#)
+ (#{emit 37893}# #{y 38375}#)
+ (let ((#{tmp 38380}#
+ (list (#{emit 37893}#
+ (car #{x* 38379}#))
+ (#{f 38376}#
+ (cdr #{x* 38379}#)))))
+ (let ((#{tmp 38381}#
($sc-dispatch
- #{tmp 38383}#
+ #{tmp 38380}#
'(any any))))
- (if #{tmp 38384}#
+ (if #{tmp 38381}#
(@apply
- (lambda (#{ g37839 38386}#
- #{ g37838 38387}#)
+ (lambda (#{ g37836 38383}#
+ #{ g37835 38384}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37839}#
- #{ g37838}#)
- #((m37840 top)
- (m37840 top))
- #("i37844" "i37845"))
+ #(#{ g37836}#
+ #{ g37835}#)
+ #((m37837 top)
+ (m37837 top))
+ #("i37841" "i37842"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i37833" "i37834"))
+ #("i37830" "i37831"))
#(ribcage
#(x y)
#((top) (top))
- #("i37829" "i37830"))
+ #("i37826" "i37827"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37811"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20664,56 +20647,56 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37839 38386}#
- #{ g37838 38387}#))
- #{tmp 38384}#)
+ #{ g37836 38383}#
+ #{ g37835 38384}#))
+ #{tmp 38381}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38383}#))))))))
- (#{f 38379}# #{x 38377}#)))
- #{tmp 38373}#)
- (let ((#{tmp 38388}#
+ #{tmp 38380}#))))))))
+ (#{f 38376}# #{x 38374}#)))
+ #{tmp 38370}#)
+ (let ((#{tmp 38385}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "append") . each-any))))
- (if #{tmp 38388}#
+ (if #{tmp 38385}#
(@apply
- (lambda (#{x 38392}#)
- (let ((#{tmp 38393}#
- (map #{emit 37896}# #{x 38392}#)))
- (let ((#{tmp 38394}#
+ (lambda (#{x 38389}#)
+ (let ((#{tmp 38390}#
+ (map #{emit 37893}# #{x 38389}#)))
+ (let ((#{tmp 38391}#
($sc-dispatch
- #{tmp 38393}#
+ #{tmp 38390}#
'each-any)))
- (if #{tmp 38394}#
+ (if #{tmp 38391}#
(@apply
- (lambda (#{ g37851 38396}#)
+ (lambda (#{ g37848 38393}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37851}#)
- #((m37852 top))
- #("i37856"))
+ #(#{ g37848}#)
+ #((m37849 top))
+ #("i37853"))
#(ribcage
#(x)
#((top))
- #("i37849"))
+ #("i37846"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37811"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20728,54 +20711,54 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37851 38396}#))
- #{tmp 38394}#)
+ #{ g37848 38393}#))
+ #{tmp 38391}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38393}#)))))
- #{tmp 38388}#)
- (let ((#{tmp 38397}#
+ #{tmp 38390}#)))))
+ #{tmp 38385}#)
+ (let ((#{tmp 38394}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "vector") . each-any))))
- (if #{tmp 38397}#
+ (if #{tmp 38394}#
(@apply
- (lambda (#{x 38401}#)
- (let ((#{tmp 38402}#
- (map #{emit 37896}# #{x 38401}#)))
- (let ((#{tmp 38403}#
+ (lambda (#{x 38398}#)
+ (let ((#{tmp 38399}#
+ (map #{emit 37893}# #{x 38398}#)))
+ (let ((#{tmp 38400}#
($sc-dispatch
- #{tmp 38402}#
+ #{tmp 38399}#
'each-any)))
- (if #{tmp 38403}#
+ (if #{tmp 38400}#
(@apply
- (lambda (#{ g37863 38405}#)
+ (lambda (#{ g37860 38402}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37863}#)
- #((m37864 top))
- #("i37868"))
+ #(#{ g37860}#)
+ #((m37861 top))
+ #("i37865"))
#(ribcage
#(x)
#((top))
- #("i37861"))
+ #("i37858"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37811"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20790,47 +20773,47 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37863 38405}#))
- #{tmp 38403}#)
+ #{ g37860 38402}#))
+ #{tmp 38400}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38402}#)))))
- #{tmp 38397}#)
- (let ((#{tmp 38406}#
+ #{tmp 38399}#)))))
+ #{tmp 38394}#)
+ (let ((#{tmp 38403}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "list->vector") any))))
- (if #{tmp 38406}#
+ (if #{tmp 38403}#
(@apply
- (lambda (#{x 38410}#)
- (let ((#{tmp 38411}#
- (#{emit 37896}# #{x 38410}#)))
+ (lambda (#{x 38407}#)
+ (let ((#{tmp 38408}#
+ (#{emit 37893}# #{x 38407}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37875}#)
- #((m37876 top))
- #("i37879"))
+ #(#{ g37872}#)
+ #((m37873 top))
+ #("i37876"))
#(ribcage
#(x)
#((top))
- #("i37873"))
+ #("i37870"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37811"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20845,188 +20828,188 @@
(top)
(top)
(top))
- ("i37632"
- "i37630"
- "i37628"
- "i37626"
- "i37624"
- "i37622"
- "i37620")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 38411}#)))
- #{tmp 38406}#)
- (let ((#{tmp 38414}#
+ #{tmp 38408}#)))
+ #{tmp 38403}#)
+ (let ((#{tmp 38411}#
($sc-dispatch
- #{x 38357}#
+ #{x 38354}#
'(#(atom "value") any))))
- (if #{tmp 38414}#
+ (if #{tmp 38411}#
(@apply
- (lambda (#{x 38418}#) #{x 38418}#)
- #{tmp 38414}#)
+ (lambda (#{x 38415}#) #{x 38415}#)
+ #{tmp 38411}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38357}#))))))))))))))))))
- (lambda (#{x 37897}#)
- (let ((#{tmp 37899}#
- ($sc-dispatch #{x 37897}# '(_ any))))
- (if #{tmp 37899}#
+ #{x 38354}#))))))))))))))))))
+ (lambda (#{x 37894}#)
+ (let ((#{tmp 37896}#
+ ($sc-dispatch #{x 37894}# '(_ any))))
+ (if #{tmp 37896}#
(@apply
- (lambda (#{e 37903}#)
- (#{emit 37896}# (#{quasi 37890}# #{e 37903}# 0)))
- #{tmp 37899}#)
+ (lambda (#{e 37900}#)
+ (#{emit 37893}# (#{quasi 37887}# #{e 37900}# 0)))
+ #{tmp 37896}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37897}#)))))))
+ #{x 37894}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 38473}#)
+ (lambda (#{x 38470}#)
(letrec*
- ((#{read-file 38474}#
- (lambda (#{fn 38590}# #{k 38591}#)
- (let ((#{p 38592}# (open-input-file #{fn 38590}#)))
+ ((#{read-file 38471}#
+ (lambda (#{fn 38587}# #{k 38588}#)
+ (let ((#{p 38589}# (open-input-file #{fn 38587}#)))
(letrec*
- ((#{f 38593}#
- (lambda (#{x 38650}# #{result 38651}#)
- (if (eof-object? #{x 38650}#)
+ ((#{f 38590}#
+ (lambda (#{x 38647}# #{result 38648}#)
+ (if (eof-object? #{x 38647}#)
(begin
- (close-input-port #{p 38592}#)
- (reverse #{result 38651}#))
- (#{f 38593}#
- (read #{p 38592}#)
- (cons (datum->syntax #{k 38591}# #{x 38650}#)
- #{result 38651}#))))))
- (#{f 38593}# (read #{p 38592}#) '()))))))
- (let ((#{tmp 38476}#
- ($sc-dispatch #{x 38473}# '(any any))))
- (if #{tmp 38476}#
+ (close-input-port #{p 38589}#)
+ (reverse #{result 38648}#))
+ (#{f 38590}#
+ (read #{p 38589}#)
+ (cons (datum->syntax #{k 38588}# #{x 38647}#)
+ #{result 38648}#))))))
+ (#{f 38590}# (read #{p 38589}#) '()))))))
+ (let ((#{tmp 38473}#
+ ($sc-dispatch #{x 38470}# '(any any))))
+ (if #{tmp 38473}#
(@apply
- (lambda (#{k 38480}# #{filename 38481}#)
- (let ((#{fn 38482}# (syntax->datum #{filename 38481}#)))
- (let ((#{tmp 38483}#
- (#{read-file 38474}#
- #{fn 38482}#
- #{filename 38481}#)))
- (let ((#{tmp 38484}#
- ($sc-dispatch #{tmp 38483}# 'each-any)))
- (if #{tmp 38484}#
+ (lambda (#{k 38477}# #{filename 38478}#)
+ (let ((#{fn 38479}# (syntax->datum #{filename 38478}#)))
+ (let ((#{tmp 38480}#
+ (#{read-file 38471}#
+ #{fn 38479}#
+ #{filename 38478}#)))
+ (let ((#{tmp 38481}#
+ ($sc-dispatch #{tmp 38480}# 'each-any)))
+ (if #{tmp 38481}#
(@apply
- (lambda (#{exp 38502}#)
+ (lambda (#{exp 38499}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i38470"))
+ #(ribcage #(exp) #((top)) #("i38467"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38465"))
+ #(ribcage #(fn) #((top)) #("i38462"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38461" "i38462"))
- #(ribcage (read-file) ((top)) ("i38445"))
- #(ribcage #(x) #((top)) #("i38444")))
+ #("i38458" "i38459"))
+ #(ribcage (read-file) ((top)) ("i38442"))
+ #(ribcage #(x) #((top)) #("i38441")))
(hygiene guile))
- #{exp 38502}#))
- #{tmp 38484}#)
+ #{exp 38499}#))
+ #{tmp 38481}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38483}#))))))
- #{tmp 38476}#)
+ #{tmp 38480}#))))))
+ #{tmp 38473}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38473}#)))))))
+ #{x 38470}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 38670}#)
- (let ((#{tmp 38672}#
- ($sc-dispatch #{x 38670}# '(any any))))
- (if #{tmp 38672}#
+ (lambda (#{x 38667}#)
+ (let ((#{tmp 38669}#
+ ($sc-dispatch #{x 38667}# '(any any))))
+ (if #{tmp 38669}#
(@apply
- (lambda (#{k 38676}# #{filename 38677}#)
- (let ((#{fn 38678}# (syntax->datum #{filename 38677}#)))
- (let ((#{tmp 38679}#
+ (lambda (#{k 38673}# #{filename 38674}#)
+ (let ((#{fn 38675}# (syntax->datum #{filename 38674}#)))
+ (let ((#{tmp 38676}#
(datum->syntax
- #{filename 38677}#
- (let ((#{t 38682}# (%search-load-path #{fn 38678}#)))
- (if #{t 38682}#
- #{t 38682}#
+ #{filename 38674}#
+ (let ((#{t 38679}# (%search-load-path #{fn 38675}#)))
+ (if #{t 38679}#
+ #{t 38679}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 38670}#
- #{filename 38677}#))))))
+ #{x 38667}#
+ #{filename 38674}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38664"))
+ #(ribcage #(fn) #((top)) #("i38661"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38660"))
+ #(ribcage #(fn) #((top)) #("i38657"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38656" "i38657"))
+ #("i38653" "i38654"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38653")))
+ #(ribcage #(x) #((top)) #("i38650")))
(hygiene guile))
- #{tmp 38679}#))))
- #{tmp 38672}#)
+ #{tmp 38676}#))))
+ #{tmp 38669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38670}#))))))
+ #{x 38667}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 38691}#)
+ (lambda (#{x 38688}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 38691}#))))
+ #{x 38688}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 38694}#)
+ (lambda (#{x 38691}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 38694}#))))
+ #{x 38691}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 38750}#)
- (let ((#{tmp 38752}#
+ (lambda (#{x 38747}#)
+ (let ((#{tmp 38749}#
($sc-dispatch
- #{x 38750}#
+ #{x 38747}#
'(_ any any . each-any))))
- (if #{tmp 38752}#
+ (if #{tmp 38749}#
(@apply
- (lambda (#{e 38756}# #{m1 38757}# #{m2 38758}#)
- (let ((#{tmp 38759}#
+ (lambda (#{e 38753}# #{m1 38754}# #{m2 38755}#)
+ (let ((#{tmp 38756}#
(letrec*
- ((#{f 38820}#
- (lambda (#{clause 38823}# #{clauses 38824}#)
- (if (null? #{clauses 38824}#)
- (let ((#{tmp 38826}#
+ ((#{f 38817}#
+ (lambda (#{clause 38820}# #{clauses 38821}#)
+ (if (null? #{clauses 38821}#)
+ (let ((#{tmp 38823}#
($sc-dispatch
- #{clause 38823}#
+ #{clause 38820}#
'(#(free-id
#(syntax-object
else
@@ -21035,91 +21018,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 38826}#
+ (if #{tmp 38823}#
(@apply
- (lambda (#{e1 38830}# #{e2 38831}#)
+ (lambda (#{e1 38827}# #{e2 38828}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i38718" "i38719"))
+ #("i38715" "i38716"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38830}# #{e2 38831}#)))
- #{tmp 38826}#)
- (let ((#{tmp 38832}#
+ (cons #{e1 38827}# #{e2 38828}#)))
+ #{tmp 38823}#)
+ (let ((#{tmp 38829}#
($sc-dispatch
- #{clause 38823}#
+ #{clause 38820}#
'(each-any any . each-any))))
- (if #{tmp 38832}#
+ (if #{tmp 38829}#
(@apply
- (lambda (#{k 38836}#
- #{e1 38837}#
- #{e2 38838}#)
+ (lambda (#{k 38833}#
+ #{e1 38834}#
+ #{e2 38835}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38724"
- "i38725"
- "i38726"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21129,9 +21112,9 @@
#((top)
(top)
(top))
- #("i38724"
- "i38725"
- "i38726"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21140,22 +21123,22 @@
#((top)
(top)
(top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
'#(syntax-object
t
@@ -21165,9 +21148,9 @@
#((top)
(top)
(top))
- #("i38724"
- "i38725"
- "i38726"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21176,22 +21159,22 @@
#((top)
(top)
(top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21201,9 +21184,9 @@
#((top)
(top)
(top))
- #("i38724"
- "i38725"
- "i38726"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage
()
()
@@ -21215,17 +21198,17 @@
#((top)
(top)
(top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage
()
()
@@ -21233,10 +21216,10 @@
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene
guile))
- #{k 38836}#))
+ #{k 38833}#))
(cons '#(syntax-object
begin
((top)
@@ -21245,9 +21228,9 @@
#((top)
(top)
(top))
- #("i38724"
- "i38725"
- "i38726"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21256,76 +21239,76 @@
#((top)
(top)
(top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38837}#
- #{e2 38838}#))))
- #{tmp 38832}#)
+ (cons #{e1 38834}#
+ #{e2 38835}#))))
+ #{tmp 38829}#)
(syntax-violation
'case
"bad clause"
- #{x 38750}#
- #{clause 38823}#)))))
- (let ((#{tmp 38846}#
- (#{f 38820}#
- (car #{clauses 38824}#)
- (cdr #{clauses 38824}#))))
- (let ((#{tmp 38849}#
+ #{x 38747}#
+ #{clause 38820}#)))))
+ (let ((#{tmp 38843}#
+ (#{f 38817}#
+ (car #{clauses 38821}#)
+ (cdr #{clauses 38821}#))))
+ (let ((#{tmp 38846}#
($sc-dispatch
- #{clause 38823}#
+ #{clause 38820}#
'(each-any any . each-any))))
- (if #{tmp 38849}#
+ (if #{tmp 38846}#
(@apply
- (lambda (#{k 38853}#
- #{e1 38854}#
- #{e2 38855}#)
+ (lambda (#{k 38850}#
+ #{e1 38851}#
+ #{e2 38852}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38740"
- "i38741"
- "i38742"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38736"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21333,32 +21316,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38740"
- "i38741"
- "i38742"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38736"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
'#(syntax-object
t
@@ -21366,32 +21349,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38740"
- "i38741"
- "i38742"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38736"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21401,9 +21384,9 @@
#((top)
(top)
(top))
- #("i38740"
- "i38741"
- "i38742"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage
()
()
@@ -21411,7 +21394,7 @@
#(ribcage
#(rest)
#((top))
- #("i38736"))
+ #("i38733"))
#(ribcage
()
()
@@ -21423,17 +21406,17 @@
#((top)
(top)
(top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage
()
()
@@ -21441,232 +21424,232 @@
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
- #{k 38853}#))
+ #{k 38850}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38740"
- "i38741"
- "i38742"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38736"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38709"
- "i38710"
- "i38711"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699"
- "i38700"
- "i38701"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38696")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38854}#
- #{e2 38855}#))
- #{tmp 38846}#))
- #{tmp 38849}#)
+ (cons #{e1 38851}#
+ #{e2 38852}#))
+ #{tmp 38843}#))
+ #{tmp 38846}#)
(syntax-violation
'case
"bad clause"
- #{x 38750}#
- #{clause 38823}#))))))))
- (#{f 38820}# #{m1 38757}# #{m2 38758}#))))
- (let ((#{body 38760}# #{tmp 38759}#))
+ #{x 38747}#
+ #{clause 38820}#))))))))
+ (#{f 38817}# #{m1 38754}# #{m2 38755}#))))
+ (let ((#{body 38757}# #{tmp 38756}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38707"))
+ #(ribcage #(body) #((top)) #("i38704"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699" "i38700" "i38701"))
+ #("i38696" "i38697" "i38698"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38696")))
+ #(ribcage #(x) #((top)) #("i38693")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38707"))
+ #(ribcage #(body) #((top)) #("i38704"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38699" "i38700" "i38701"))
+ #("i38696" "i38697" "i38698"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38696")))
+ #(ribcage #(x) #((top)) #("i38693")))
(hygiene guile))
- #{e 38756}#))
- #{body 38760}#))))
- #{tmp 38752}#)
+ #{e 38753}#))
+ #{body 38757}#))))
+ #{tmp 38749}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38750}#))))))
+ #{x 38747}#))))))
(define make-variable-transformer
- (lambda (#{proc 38873}#)
- (if (procedure? #{proc 38873}#)
+ (lambda (#{proc 38870}#)
+ (if (procedure? #{proc 38870}#)
(letrec*
- ((#{trans 38874}#
- (lambda (#{x 38880}#)
- (#{proc 38873}# #{x 38880}#))))
+ ((#{trans 38871}#
+ (lambda (#{x 38877}#)
+ (#{proc 38870}# #{x 38877}#))))
(begin
(set-procedure-property!
- #{trans 38874}#
+ #{trans 38871}#
'variable-transformer
#t)
- #{trans 38874}#))
+ #{trans 38871}#))
(error "variable transformer not a procedure"
- #{proc 38873}#))))
+ #{proc 38870}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 38912}#)
- (let ((#{tmp 38914}#
- ($sc-dispatch #{x 38912}# '(_ any))))
- (if #{tmp 38914}#
+ (lambda (#{x 38909}#)
+ (let ((#{tmp 38911}#
+ ($sc-dispatch #{x 38909}# '(_ any))))
+ (if #{tmp 38911}#
(@apply
- (lambda (#{e 38918}#)
+ (lambda (#{e 38915}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
- #{e 38918}#))
+ #{e 38915}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38887"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
- (cons #{e 38918}#
+ (cons #{e 38915}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i38887"))
+ #("i38884"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21674,55 +21657,55 @@
#(ribcage
#(e)
#((top))
- #("i38887"))
+ #("i38884"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile)))))))))
- #{tmp 38914}#)
- (let ((#{tmp 38919}#
+ #{tmp 38911}#)
+ (let ((#{tmp 38916}#
($sc-dispatch
- #{x 38912}#
+ #{x 38909}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 38919}#
+ (if (if #{tmp 38916}#
(@apply
- (lambda (#{id 38923}#
- #{exp1 38924}#
- #{var 38925}#
- #{val 38926}#
- #{exp2 38927}#)
- (if (identifier? #{id 38923}#)
- (identifier? #{var 38925}#)
+ (lambda (#{id 38920}#
+ #{exp1 38921}#
+ #{var 38922}#
+ #{val 38923}#
+ #{exp2 38924}#)
+ (if (identifier? #{id 38920}#)
+ (identifier? #{var 38922}#)
#f))
- #{tmp 38919}#)
+ #{tmp 38916}#)
#f)
(@apply
- (lambda (#{id 38928}#
- #{exp1 38929}#
- #{var 38930}#
- #{val 38931}#
- #{exp2 38932}#)
+ (lambda (#{id 38925}#
+ #{exp1 38926}#
+ #{var 38927}#
+ #{val 38928}#
+ #{exp2 38929}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902" "i38903" "i38904" "i38905" "i38906"))
+ #("i38899" "i38900" "i38901" "i38902" "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -21730,13 +21713,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
x
@@ -21744,13 +21727,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -21758,13 +21741,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
.
#(syntax-object
@@ -21773,13 +21756,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -21787,13 +21770,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'#(syntax-object
x
@@ -21801,13 +21784,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
set!
@@ -21815,13 +21798,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38884")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -21833,19 +21816,19 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
- #{var 38930}#
- #{val 38931}#)
+ #{var 38927}#
+ #{val 38928}#)
(list '#(syntax-object
syntax
((top)
@@ -21856,19 +21839,19 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
- #{exp2 38932}#))
- (list (cons #{id 38928}#
+ #{exp2 38929}#))
+ (list (cons #{id 38925}#
'(#(syntax-object
x
((top)
@@ -21879,16 +21862,16 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21900,16 +21883,16 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -21921,18 +21904,18 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
- (cons #{exp1 38929}#
+ (cons #{exp1 38926}#
'(#(syntax-object
x
((top)
@@ -21947,16 +21930,16 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21972,18 +21955,18 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))))))
- (list #{id 38928}#
+ (list #{id 38925}#
(list '#(syntax-object
identifier?
((top)
@@ -21994,16 +21977,16 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -22019,18 +22002,18 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
- #{id 38928}#))
+ #{id 38925}#))
(list '#(syntax-object
syntax
((top)
@@ -22041,68 +22024,68 @@
(top)
(top)
(top))
- #("i38902"
- "i38903"
- "i38904"
- "i38905"
- "i38906"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38884")))
+ #("i38881")))
(hygiene guile))
- #{exp1 38929}#))))))
- #{tmp 38919}#)
+ #{exp1 38926}#))))))
+ #{tmp 38916}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38912}#))))))))
+ #{x 38909}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 38964}#)
- (let ((#{tmp 38966}#
+ (lambda (#{x 38961}#)
+ (let ((#{tmp 38963}#
($sc-dispatch
- #{x 38964}#
+ #{x 38961}#
'(_ (any . any) any . each-any))))
- (if #{tmp 38966}#
+ (if #{tmp 38963}#
(@apply
- (lambda (#{id 38970}#
- #{args 38971}#
- #{b0 38972}#
- #{b1 38973}#)
+ (lambda (#{id 38967}#
+ #{args 38968}#
+ #{b0 38969}#
+ #{b1 38970}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38946" "i38947" "i38948" "i38949"))
+ #("i38943" "i38944" "i38945" "i38946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38943")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- #{id 38970}#
+ #{id 38967}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38946" "i38947" "i38948" "i38949"))
+ #("i38943" "i38944" "i38945" "i38946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38943")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- (cons #{args 38971}#
- (cons #{b0 38972}# #{b1 38973}#)))))
- #{tmp 38966}#)
- (let ((#{tmp 38974}#
- ($sc-dispatch #{x 38964}# '(_ any any))))
- (if (if #{tmp 38974}#
+ (cons #{args 38968}#
+ (cons #{b0 38969}# #{b1 38970}#)))))
+ #{tmp 38963}#)
+ (let ((#{tmp 38971}#
+ ($sc-dispatch #{x 38961}# '(_ any any))))
+ (if (if #{tmp 38971}#
(@apply
- (lambda (#{id 38978}# #{val 38979}#)
+ (lambda (#{id 38975}# #{val 38976}#)
(identifier?
'#(syntax-object
x
@@ -22110,29 +22093,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i38956" "i38957"))
+ #("i38953" "i38954"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38943")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))))
- #{tmp 38974}#)
+ #{tmp 38971}#)
#f)
(@apply
- (lambda (#{id 38980}# #{val 38981}#)
+ (lambda (#{id 38977}# #{val 38978}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i38960" "i38961"))
+ #("i38957" "i38958"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38943")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- #{id 38980}#
- #{val 38981}#))
- #{tmp 38974}#)
+ #{id 38977}#
+ #{val 38978}#))
+ #{tmp 38971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38964}#))))))))
+ #{x 38961}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 1717ba506..07bb0e4ed 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -916,137 +916,129 @@
;; in reversed order
exps)
(else
- (call-with-values
- (lambda ()
- (call-with-values
- (lambda ()
- (let ((e (car body)))
- (syntax-type e r w (or (source-annotation e) s) #f mod #f)))
- (lambda (type value e w s mod)
+ (scan
+ (cdr body) r w s m esew mod
+ (call-with-values
+ (lambda ()
+ (let ((e (car body)))
+ (syntax-type e r w (or (source-annotation e) s) #f mod #f)))
+ (lambda (type value e w s mod)
+ (case type
+ ((begin-form)
+ (syntax-case e ()
+ ((_) exps)
+ ((_ e1 e2 ...)
+ (scan #'(e1 e2 ...) r w s m esew mod exps))))
+ ((local-syntax-form)
+ (chi-local-syntax value e r w s mod
+ (lambda (body r w s mod)
+ (scan body r w s m esew mod exps))))
+ ((eval-when-form)
+ (syntax-case e ()
+ ((_ (x ...) e1 e2 ...)
+ (let ((when-list (chi-when-list e #'(x ...) w))
+ (body #'(e1 e2 ...)))
+ (cond
+ ((eq? m 'e)
+ (if (memq 'eval when-list)
+ (scan body r w s
+ (if (memq 'expand when-list) 'c&e 'e)
+ '(eval)
+ mod exps)
+ (begin
+ (if (memq 'expand when-list)
+ (top-level-eval-hook
+ (chi-top-sequence body r w s 'e '(eval) mod)
+ mod))
+ exps)))
+ ((memq 'load when-list)
+ (if (or (memq 'compile when-list)
+ (memq 'expand when-list)
+ (and (eq? m 'c&e) (memq 'eval when-list)))
+ (scan body r w s 'c&e '(compile load) mod exps)
+ (if (memq m '(c c&e))
+ (scan body r w s 'c '(load) mod exps)
+ exps)))
+ ((or (memq 'compile when-list)
+ (memq 'expand when-list)
+ (and (eq? m 'c&e) (memq 'eval when-list)))
+ (top-level-eval-hook
+ (chi-top-sequence body r w s 'e '(eval) mod)
+ mod)
+ exps)
+ (else
+ exps))))))
+ ((define-syntax-form)
+ (let ((n (id-var-name value w)) (r (macros-only-env r)))
+ (case m
+ ((c)
+ (if (memq 'compile esew)
+ (let ((e (chi-install-global n (chi e r w mod))))
+ (top-level-eval-hook e mod)
+ (if (memq 'load esew)
+ (cons e exps)
+ exps))
+ (if (memq 'load esew)
+ (cons (chi-install-global n (chi e r w mod))
+ exps)
+ exps)))
+ ((c&e)
+ (let ((e (chi-install-global n (chi e r w mod))))
+ (top-level-eval-hook e mod)
+ (cons e exps)))
+ (else
+ (if (memq 'eval esew)
+ (top-level-eval-hook
+ (chi-install-global n (chi e r w mod))
+ mod))
+ exps))))
+ ((define-form)
+ (let* ((n (id-var-name value w))
+ ;; Lookup the name in the module of the define form.
+ (type (binding-type (lookup n r mod))))
(case type
- ((begin-form)
- (syntax-case e ()
- ((_) exps)
- ((_ e1 e2 ...)
- (scan #'(e1 e2 ...) r w s m esew mod exps))))
- ((local-syntax-form)
- (chi-local-syntax value e r w s mod
- (lambda (body r w s mod)
- (scan body r w s m esew mod exps))))
- ((eval-when-form)
- (syntax-case e ()
- ((_ (x ...) e1 e2 ...)
- (let ((when-list (chi-when-list e #'(x ...) w))
- (body #'(e1 e2 ...)))
- (cond
- ((eq? m 'e)
- (if (memq 'eval when-list)
- (scan body r w s
- (if (memq 'expand when-list) 'c&e 'e)
- '(eval)
- mod exps)
- (begin
- (if (memq 'expand when-list)
- (top-level-eval-hook
- (chi-top-sequence body r w s 'e '(eval) mod)
- mod))
- (values exps))))
- ((memq 'load when-list)
- (if (or (memq 'compile when-list)
- (memq 'expand when-list)
- (and (eq? m 'c&e) (memq 'eval when-list)))
- (scan body r w s 'c&e '(compile load) mod exps)
- (if (memq m '(c c&e))
- (scan body r w s 'c '(load) mod exps)
- (values exps))))
- ((or (memq 'compile when-list)
- (memq 'expand when-list)
- (and (eq? m 'c&e) (memq 'eval when-list)))
- (top-level-eval-hook
- (chi-top-sequence body r w s 'e '(eval) mod)
- mod)
- (values exps))
- (else
- (values exps)))))))
- ((define-syntax-form)
- (let ((n (id-var-name value w)) (r (macros-only-env r)))
- (case m
- ((c)
- (if (memq 'compile esew)
- (let ((e (chi-install-global n (chi e r w mod))))
- (top-level-eval-hook e mod)
- (if (memq 'load esew)
- (values (cons e exps))
- (values exps)))
- (if (memq 'load esew)
- (values (cons (chi-install-global n (chi e r w mod))
- exps))
- (values exps))))
- ((c&e)
- (let ((e (chi-install-global n (chi e r w mod))))
- (top-level-eval-hook e mod)
- (values (cons e exps))))
- (else
- (if (memq 'eval esew)
- (top-level-eval-hook
- (chi-install-global n (chi e r w mod))
- mod))
- (values exps)))))
- ((define-form)
- (let* ((n (id-var-name value w))
- ;; Lookup the name in the module of the define form.
- (type (binding-type (lookup n r mod))))
- (case type
- ((global core macro module-ref)
- ;; affect compile-time environment (once we have booted)
- (if (and (memq m '(c c&e))
- (not (module-local-variable (current-module) n))
- (current-module))
- (let ((old (module-variable (current-module) n)))
- ;; use value of the same-named imported variable, if
- ;; any
- (if (and (variable? old) (variable-bound? old))
- (module-define! (current-module) n (variable-ref old))
- (module-add! (current-module) n (make-undefined-variable)))))
- (values
- (cons
- (if (eq? m 'c&e)
- (let ((x (build-global-definition s n (chi e r w mod))))
- (top-level-eval-hook x mod)
- x)
- (lambda ()
- (build-global-definition s n (chi e r w mod))))
- exps)))
- ((displaced-lexical)
- (syntax-violation #f "identifier out of context"
- e (wrap value w mod)))
- (else
- (syntax-violation #f "cannot define keyword at top level"
- e (wrap value w mod))))))
+ ((global core macro module-ref)
+ ;; affect compile-time environment (once we have booted)
+ (if (and (memq m '(c c&e))
+ (not (module-local-variable (current-module) n))
+ (current-module))
+ (let ((old (module-variable (current-module) n)))
+ ;; use value of the same-named imported variable, if
+ ;; any
+ (if (and (variable? old) (variable-bound? old))
+ (module-define! (current-module) n (variable-ref old))
+ (module-add! (current-module) n (make-undefined-variable)))))
+ (cons (if (eq? m 'c&e)
+ (let ((x (build-global-definition s n (chi e r w mod))))
+ (top-level-eval-hook x mod)
+ x)
+ (lambda ()
+ (build-global-definition s n (chi e r w mod))))
+ exps))
+ ((displaced-lexical)
+ (syntax-violation #f "identifier out of context"
+ e (wrap value w mod)))
(else
- (values (cons
- (if (eq? m 'c&e)
- (let ((x (chi-expr type value e r w s mod)))
- (top-level-eval-hook x mod)
- x)
- (lambda ()
- (chi-expr type value e r w s mod)))
- exps)))))))
- (lambda (exps)
- (scan (cdr body) r w s m esew mod exps))))))
-
- (call-with-values (lambda ()
- (scan body r w s m esew mod '()))
- (lambda (exps)
- (if (null? exps)
- (build-void s)
- (build-sequence
- s
- (let lp ((in exps) (out '()))
- (if (null? in) out
- (let ((e (car in)))
- (lp (cdr in)
- (cons (if (procedure? e) (e) e) out)))))))))))
+ (syntax-violation #f "cannot define keyword at top level"
+ e (wrap value w mod))))))
+ (else
+ (cons (if (eq? m 'c&e)
+ (let ((x (chi-expr type value e r w s mod)))
+ (top-level-eval-hook x mod)
+ x)
+ (lambda ()
+ (chi-expr type value e r w s mod)))
+ exps)))))))))
+ (let ((exps (scan body r w s m esew mod '())))
+ (if (null? exps)
+ (build-void s)
+ (build-sequence
+ s
+ (let lp ((in exps) (out '()))
+ (if (null? in) out
+ (let ((e (car in)))
+ (lp (cdr in)
+ (cons (if (procedure? e) (e) e) out))))))))))
(define chi-install-global
(lambda (name e)