summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-07 11:48:30 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-07 11:48:30 +0100
commit0f9f51a153db3e669a12c416c4958d71bd3c2a8b (patch)
treec397167b0cd0800dbe1e1d78dd380091c48d742a
parentadf91e1cc5587a62fa77b07d512a5d673492446f (diff)
downloadguile-0f9f51a153db3e669a12c416c4958d71bd3c2a8b.tar.gz
regenerate psyntax-pp
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--module/ice-9/psyntax-pp.scm20055
1 files changed, 10781 insertions, 9274 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index b6f826933..d563bbffa 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1947 +2,2060 @@
(if #f #f)
(letrec*
- ((#{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}#)
+ ((#{top-level-eval-hook 4373}#
+ (lambda (#{x 35449}# #{mod 35450}#)
+ (primitive-eval #{x 35449}#)))
+ (#{maybe-name-value! 4378}#
+ (lambda (#{name 18994}# #{val 18995}#)
+ (if (if (struct? #{val 18995}#)
+ (eq? (struct-vtable #{val 18995}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)
+ (let ((#{meta 19002}# (struct-ref #{val 18995}# 1)))
+ (if (not (assq 'name #{meta 19002}#))
+ (let ((#{v 19007}#
+ (cons (cons 'name #{name 18994}#) #{meta 19002}#)))
+ (struct-set! #{val 18995}# 1 #{v 19007}#)))))))
+ (#{build-call 4380}#
+ (lambda (#{source 18739}#
+ #{fun-exp 18740}#
+ #{arg-exps 18741}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 19194}#
- #{fun-exp 19195}#
- #{arg-exps 19196}#)))
- (#{build-conditional 4308}#
- (lambda (#{source 19202}#
- #{test-exp 19203}#
- #{then-exp 19204}#
- #{else-exp 19205}#)
+ #{source 18739}#
+ #{fun-exp 18740}#
+ #{arg-exps 18741}#)))
+ (#{build-conditional 4381}#
+ (lambda (#{source 18747}#
+ #{test-exp 18748}#
+ #{then-exp 18749}#
+ #{else-exp 18750}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 19202}#
- #{test-exp 19203}#
- #{then-exp 19204}#
- #{else-exp 19205}#)))
- (#{build-dynlet 4309}#
- (lambda (#{source 19212}#
- #{fluids 19213}#
- #{vals 19214}#
- #{body 19215}#)
+ #{source 18747}#
+ #{test-exp 18748}#
+ #{then-exp 18749}#
+ #{else-exp 18750}#)))
+ (#{build-dynlet 4382}#
+ (lambda (#{source 18757}#
+ #{fluids 18758}#
+ #{vals 18759}#
+ #{body 18760}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 18)
- #{source 19212}#
- #{fluids 19213}#
- #{vals 19214}#
- #{body 19215}#)))
- (#{build-lexical-reference 4310}#
- (lambda (#{type 36831}#
- #{source 36832}#
- #{name 36833}#
- #{var 36834}#)
+ #{source 18757}#
+ #{fluids 18758}#
+ #{vals 18759}#
+ #{body 18760}#)))
+ (#{build-lexical-reference 4383}#
+ (lambda (#{type 35451}#
+ #{source 35452}#
+ #{name 35453}#
+ #{var 35454}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 36832}#
- #{name 36833}#
- #{var 36834}#)))
- (#{build-lexical-assignment 4311}#
- (lambda (#{source 19222}#
- #{name 19223}#
- #{var 19224}#
- #{exp 19225}#)
+ #{source 35452}#
+ #{name 35453}#
+ #{var 35454}#)))
+ (#{build-lexical-assignment 4384}#
+ (lambda (#{source 18767}#
+ #{name 18768}#
+ #{var 18769}#
+ #{exp 18770}#)
(begin
- (if (if (struct? #{exp 19225}#)
- (eq? (struct-vtable #{exp 19225}#)
+ (if (if (struct? #{exp 18770}#)
+ (eq? (struct-vtable #{exp 18770}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)))))
+ (let ((#{meta 18786}# (struct-ref #{exp 18770}# 1)))
+ (if (not (assq 'name #{meta 18786}#))
+ (let ((#{v 18793}#
+ (cons (cons 'name #{name 18768}#) #{meta 18786}#)))
+ (struct-set! #{exp 18770}# 1 #{v 18793}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{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}#
+ #{source 18767}#
+ #{name 18768}#
+ #{var 18769}#
+ #{exp 18770}#))))
+ (#{analyze-variable 4385}#
+ (lambda (#{mod 35460}#
+ #{var 35461}#
+ #{modref-cont 35462}#
+ #{bare-cont 35463}#)
+ (if (not #{mod 35460}#)
+ (#{bare-cont 35463}# #{var 35461}#)
+ (let ((#{kind 35464}# (car #{mod 35460}#))
+ (#{mod 35465}# (cdr #{mod 35460}#)))
+ (if (eqv? #{kind 35464}# 'public)
+ (#{modref-cont 35462}#
+ #{mod 35465}#
+ #{var 35461}#
#t)
- (if (eqv? #{kind 36844}# 'private)
+ (if (eqv? #{kind 35464}# 'private)
(if (not (equal?
- #{mod 36845}#
+ #{mod 35465}#
(module-name (current-module))))
- (#{modref-cont 36842}#
- #{mod 36845}#
- #{var 36841}#
+ (#{modref-cont 35462}#
+ #{mod 35465}#
+ #{var 35461}#
#f)
- (#{bare-cont 36843}# #{var 36841}#))
- (if (eqv? #{kind 36844}# 'bare)
- (#{bare-cont 36843}# #{var 36841}#)
- (if (eqv? #{kind 36844}# 'hygiene)
+ (#{bare-cont 35463}# #{var 35461}#))
+ (if (eqv? #{kind 35464}# 'bare)
+ (#{bare-cont 35463}# #{var 35461}#)
+ (if (eqv? #{kind 35464}# 'hygiene)
(if (if (not (equal?
- #{mod 36845}#
+ #{mod 35465}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 36845}#)
- #{var 36841}#)
+ (resolve-module #{mod 35465}#)
+ #{var 35461}#)
#f)
- (#{modref-cont 36842}#
- #{mod 36845}#
- #{var 36841}#
+ (#{modref-cont 35462}#
+ #{mod 35465}#
+ #{var 35461}#
#f)
- (#{bare-cont 36843}# #{var 36841}#))
+ (#{bare-cont 35463}# #{var 35461}#))
(syntax-violation
#f
"bad module kind"
- #{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}#)
+ #{var 35461}#
+ #{mod 35465}#)))))))))
+ (#{build-global-reference 4386}#
+ (lambda (#{source 35480}# #{var 35481}# #{mod 35482}#)
+ (#{analyze-variable 4385}#
+ #{mod 35482}#
+ #{var 35481}#
+ (lambda (#{mod 35485}# #{var 35486}# #{public? 35487}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 36860}#
- #{mod 36865}#
- #{var 36866}#
- #{public? 36867}#))
- (lambda (#{var 36874}#)
+ #{source 35480}#
+ #{mod 35485}#
+ #{var 35486}#
+ #{public? 35487}#))
+ (lambda (#{var 35494}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 36860}#
- #{var 36874}#)))))
- (#{build-global-assignment 4314}#
- (lambda (#{source 19257}#
- #{var 19258}#
- #{exp 19259}#
- #{mod 19260}#)
+ #{source 35480}#
+ #{var 35494}#)))))
+ (#{build-global-assignment 4387}#
+ (lambda (#{source 18802}#
+ #{var 18803}#
+ #{exp 18804}#
+ #{mod 18805}#)
(begin
- (if (if (struct? #{exp 19259}#)
- (eq? (struct-vtable #{exp 19259}#)
+ (if (if (struct? #{exp 18804}#)
+ (eq? (struct-vtable #{exp 18804}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)
+ (let ((#{meta 18821}# (struct-ref #{exp 18804}# 1)))
+ (if (not (assq 'name #{meta 18821}#))
+ (let ((#{v 18828}#
+ (cons (cons 'name #{var 18803}#) #{meta 18821}#)))
+ (struct-set! #{exp 18804}# 1 #{v 18828}#)))))
+ (#{analyze-variable 4385}#
+ #{mod 18805}#
+ #{var 18803}#
+ (lambda (#{mod 18833}# #{var 18834}# #{public? 18835}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 19257}#
- #{mod 19288}#
- #{var 19289}#
- #{public? 19290}#
- #{exp 19259}#))
- (lambda (#{var 19298}#)
+ #{source 18802}#
+ #{mod 18833}#
+ #{var 18834}#
+ #{public? 18835}#
+ #{exp 18804}#))
+ (lambda (#{var 18843}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 19257}#
- #{var 19298}#
- #{exp 19259}#))))))
- (#{build-global-definition 4315}#
- (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#)
+ #{source 18802}#
+ #{var 18843}#
+ #{exp 18804}#))))))
+ (#{build-global-definition 4388}#
+ (lambda (#{source 35499}# #{var 35500}# #{exp 35501}#)
(begin
- (if (if (struct? #{exp 36881}#)
- (eq? (struct-vtable #{exp 36881}#)
+ (if (if (struct? #{exp 35501}#)
+ (eq? (struct-vtable #{exp 35501}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)))))
+ (let ((#{meta 35517}# (struct-ref #{exp 35501}# 1)))
+ (if (not (assq 'name #{meta 35517}#))
+ (let ((#{v 35524}#
+ (cons (cons 'name #{var 35500}#) #{meta 35517}#)))
+ (struct-set! #{exp 35501}# 1 #{v 35524}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{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}#
+ #{source 35499}#
+ #{var 35500}#
+ #{exp 35501}#))))
+ (#{build-simple-lambda 4389}#
+ (lambda (#{src 18849}#
+ #{req 18850}#
+ #{rest 18851}#
+ #{vars 18852}#
+ #{meta 18853}#
+ #{exp 18854}#)
+ (let ((#{body 18860}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19304}#
- #{req 19305}#
+ #{src 18849}#
+ #{req 18850}#
#f
- #{rest 19306}#
+ #{rest 18851}#
#f
'()
- #{vars 19307}#
- #{exp 19309}#
+ #{vars 18852}#
+ #{exp 18854}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19304}#
- #{meta 19308}#
- #{body 19315}#))))
- (#{build-primcall 4319}#
- (lambda (#{src 19327}# #{name 19328}# #{args 19329}#)
+ #{src 18849}#
+ #{meta 18853}#
+ #{body 18860}#))))
+ (#{build-primcall 4392}#
+ (lambda (#{src 18872}# #{name 18873}# #{args 18874}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{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}#))))
+ #{src 18872}#
+ #{name 18873}#
+ #{args 18874}#)))
+ (#{build-sequence 4395}#
+ (lambda (#{src 35532}# #{exps 35533}#)
+ (if (null? (cdr #{exps 35533}#))
+ (car #{exps 35533}#)
+ (let ((#{head 35537}# (car #{exps 35533}#))
+ (#{tail 35538}#
+ (#{build-sequence 4395}# #f (cdr #{exps 35533}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{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}#
+ #{src 35532}#
+ #{head 35537}#
+ #{tail 35538}#)))))
+ (#{build-named-let 4397}#
+ (lambda (#{src 18880}#
+ #{ids 18881}#
+ #{vars 18882}#
+ #{val-exps 18883}#
+ #{body-exp 18884}#)
+ (let ((#{f 18885}# (car #{vars 18882}#))
+ (#{f-name 18886}# (car #{ids 18881}#))
+ (#{vars 18887}# (cdr #{vars 18882}#))
+ (#{ids 18888}# (cdr #{ids 18881}#)))
+ (let ((#{proc 18889}#
+ (let ((#{body 18909}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19335}#
- #{ids 19343}#
+ #{src 18880}#
+ #{ids 18888}#
#f
#f
#f
'()
- #{vars 19342}#
- #{body-exp 19339}#
+ #{vars 18887}#
+ #{body-exp 18884}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19335}#
+ #{src 18880}#
'()
- #{body 19364}#))))
+ #{body 18909}#))))
(begin
- (if (if (struct? #{proc 19344}#)
- (eq? (struct-vtable #{proc 19344}#)
+ (if (if (struct? #{proc 18889}#)
+ (eq? (struct-vtable #{proc 18889}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)))))
+ (let ((#{meta 18933}# (struct-ref #{proc 18889}# 1)))
+ (if (not (assq 'name #{meta 18933}#))
+ (let ((#{v 18940}#
+ (cons (cons 'name #{f-name 18886}#)
+ #{meta 18933}#)))
+ (struct-set! #{proc 18889}# 1 #{v 18940}#)))))
(for-each
- #{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}#
+ #{maybe-name-value! 4378}#
+ #{ids 18888}#
+ #{val-exps 18883}#)
+ (let ((#{names 18964}# (list #{f-name 18886}#))
+ (#{gensyms 18965}# (list #{f 18885}#))
+ (#{vals 18966}# (list #{proc 18889}#))
+ (#{body 18967}#
+ (let ((#{fun-exp 18971}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 19335}#
- #{f-name 19341}#
- #{f 19340}#)))
+ #{src 18880}#
+ #{f-name 18886}#
+ #{f 18885}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 19335}#
- #{fun-exp 19426}#
- #{val-exps 19338}#))))
+ #{src 18880}#
+ #{fun-exp 18971}#
+ #{val-exps 18883}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 19335}#
+ #{src 18880}#
#f
- #{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}#
+ #{names 18964}#
+ #{gensyms 18965}#
+ #{vals 18966}#
+ #{body 18967}#)))))))
+ (#{build-letrec 4398}#
+ (lambda (#{src 18987}#
+ #{in-order? 18988}#
+ #{ids 18989}#
+ #{vars 18990}#
+ #{val-exps 18991}#
+ #{body-exp 18992}#)
+ (if (null? #{vars 18990}#)
+ #{body-exp 18992}#
(begin
(for-each
- #{maybe-name-value! 4305}#
- #{ids 19444}#
- #{val-exps 19446}#)
+ #{maybe-name-value! 4378}#
+ #{ids 18989}#
+ #{val-exps 18991}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{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)
+ #{src 18987}#
+ #{in-order? 18988}#
+ #{ids 18989}#
+ #{vars 18990}#
+ #{val-exps 18991}#
+ #{body-exp 18992}#)))))
+ (#{source-annotation 4407}#
+ (lambda (#{x 19018}#)
+ (if (if (vector? #{x 19018}#)
+ (if (= (vector-length #{x 19018}#) 4)
+ (eq? (vector-ref #{x 19018}# 0) 'syntax-object)
#f)
#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))
+ (#{source-annotation 4407}#
+ (vector-ref #{x 19018}# 1))
+ (if (pair? #{x 19018}#)
+ (let ((#{props 19033}# (source-properties #{x 19018}#)))
+ (if (pair? #{props 19033}#) #{props 19033}# #f))
#f))))
- (#{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}#)
+ (#{extend-env 4408}#
+ (lambda (#{labels 19035}# #{bindings 19036}# #{r 19037}#)
+ (if (null? #{labels 19035}#)
+ #{r 19037}#
+ (#{extend-env 4408}#
+ (cdr #{labels 19035}#)
+ (cdr #{bindings 19036}#)
+ (cons (cons (car #{labels 19035}#)
+ (car #{bindings 19036}#))
+ #{r 19037}#)))))
+ (#{extend-var-env 4409}#
+ (lambda (#{labels 19038}# #{vars 19039}# #{r 19040}#)
+ (if (null? #{labels 19038}#)
+ #{r 19040}#
+ (#{extend-var-env 4409}#
+ (cdr #{labels 19038}#)
+ (cdr #{vars 19039}#)
+ (cons (cons (car #{labels 19038}#)
+ (cons 'lexical (car #{vars 19039}#)))
+ #{r 19040}#)))))
+ (#{macros-only-env 4410}#
+ (lambda (#{r 19041}#)
+ (if (null? #{r 19041}#)
'()
- (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}#)
+ (let ((#{a 19042}# (car #{r 19041}#)))
+ (if (let ((#{t 19045}# (car (cdr #{a 19042}#))))
+ (if (eq? #{t 19045}# 'macro)
+ #t
+ (eq? #{t 19045}# 'syntax-parameter)))
+ (cons #{a 19042}#
+ (#{macros-only-env 4410}# (cdr #{r 19041}#)))
+ (#{macros-only-env 4410}# (cdr #{r 19041}#)))))))
+ (#{global-extend 4411}#
+ (lambda (#{type 19047}# #{sym 19048}# #{val 19049}#)
(module-define!
(current-module)
- #{sym 19500}#
+ #{sym 19048}#
(make-syntax-transformer
- #{sym 19500}#
- #{type 19499}#
- #{val 19501}#))))
- (#{id? 4341}#
- (lambda (#{x 12436}#)
- (if (symbol? #{x 12436}#)
+ #{sym 19048}#
+ #{type 19047}#
+ #{val 19049}#))))
+ (#{id? 4413}#
+ (lambda (#{x 11971}#)
+ (if (symbol? #{x 11971}#)
#t
- (if (if (vector? #{x 12436}#)
- (if (= (vector-length #{x 12436}#) 4)
- (eq? (vector-ref #{x 12436}# 0) 'syntax-object)
+ (if (if (vector? #{x 11971}#)
+ (if (= (vector-length #{x 11971}#) 4)
+ (eq? (vector-ref #{x 11971}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12436}# 1))
+ (symbol? (vector-ref #{x 11971}# 1))
#f))))
- (#{gen-labels 4344}#
- (lambda (#{ls 19511}#)
- (if (null? #{ls 19511}#)
+ (#{gen-labels 4416}#
+ (lambda (#{ls 19059}#)
+ (if (null? #{ls 19059}#)
'()
(cons (symbol->string (gensym "i"))
- (#{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}#)))
+ (#{gen-labels 4416}# (cdr #{ls 19059}#))))))
+ (#{make-binding-wrap 4427}#
+ (lambda (#{ids 19063}# #{labels 19064}# #{w 19065}#)
+ (if (null? #{ids 19063}#)
+ #{w 19065}#
+ (cons (car #{w 19065}#)
+ (cons (let ((#{labelvec 19066}#
+ (list->vector #{labels 19064}#)))
+ (let ((#{n 19067}# (vector-length #{labelvec 19066}#)))
+ (let ((#{symnamevec 19068}# (make-vector #{n 19067}#))
+ (#{marksvec 19069}# (make-vector #{n 19067}#)))
(begin
(letrec*
- ((#{f 19522}#
- (lambda (#{ids 19721}# #{i 19722}#)
- (if (not (null? #{ids 19721}#))
+ ((#{f 19070}#
+ (lambda (#{ids 19269}# #{i 19270}#)
+ (if (not (null? #{ids 19269}#))
(call-with-values
(lambda ()
- (let ((#{x 19725}#
- (car #{ids 19721}#)))
- (if (if (vector? #{x 19725}#)
+ (let ((#{x 19273}#
+ (car #{ids 19269}#)))
+ (if (if (vector? #{x 19273}#)
(if (= (vector-length
- #{x 19725}#)
+ #{x 19273}#)
4)
(eq? (vector-ref
- #{x 19725}#
+ #{x 19273}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 19725}# 1)
- (let ((#{m1 19741}#
- (car #{w 19517}#))
- (#{m2 19742}#
+ (vector-ref #{x 19273}# 1)
+ (let ((#{m1 19289}#
+ (car #{w 19065}#))
+ (#{m2 19290}#
(car (vector-ref
- #{x 19725}#
+ #{x 19273}#
2))))
- (if (null? #{m2 19742}#)
- #{m1 19741}#
+ (if (null? #{m2 19290}#)
+ #{m1 19289}#
(append
- #{m1 19741}#
- #{m2 19742}#))))
+ #{m1 19289}#
+ #{m2 19290}#))))
(values
- #{x 19725}#
- (car #{w 19517}#)))))
- (lambda (#{symname 19762}#
- #{marks 19763}#)
+ #{x 19273}#
+ (car #{w 19065}#)))))
+ (lambda (#{symname 19310}#
+ #{marks 19311}#)
(begin
(vector-set!
- #{symnamevec 19520}#
- #{i 19722}#
- #{symname 19762}#)
+ #{symnamevec 19068}#
+ #{i 19270}#
+ #{symname 19310}#)
(vector-set!
- #{marksvec 19521}#
- #{i 19722}#
- #{marks 19763}#)
- (#{f 19522}#
- (cdr #{ids 19721}#)
- (#{1+}# #{i 19722}#)))))))))
- (#{f 19522}# #{ids 19515}# 0))
+ #{marksvec 19069}#
+ #{i 19270}#
+ #{marks 19311}#)
+ (#{f 19070}#
+ (cdr #{ids 19269}#)
+ (#{1+}# #{i 19270}#)))))))))
+ (#{f 19070}# #{ids 19063}# 0))
(vector
'ribcage
- #{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}#))
+ #{symnamevec 19068}#
+ #{marksvec 19069}#
+ #{labelvec 19066}#)))))
+ (cdr #{w 19065}#))))))
+ (#{same-marks? 4431}#
+ (lambda (#{x 35539}# #{y 35540}#)
+ (if (eq? #{x 35539}# #{y 35540}#)
+ (eq? #{x 35539}# #{y 35540}#)
+ (if (not (null? #{x 35539}#))
+ (if (not (null? #{y 35540}#))
+ (if (eq? (car #{x 35539}#) (car #{y 35540}#))
+ (#{same-marks? 4431}#
+ (cdr #{x 35539}#)
+ (cdr #{y 35540}#))
#f)
#f)
#f))))
- (#{id-var-name 4360}#
- (lambda (#{id 19770}# #{w 19771}#)
+ (#{id-var-name 4432}#
+ (lambda (#{id 35548}# #{w 35549}# #{mod 35550}#)
(letrec*
- ((#{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}#)
+ ((#{search 35551}#
+ (lambda (#{sym 35617}#
+ #{subst 35618}#
+ #{marks 35619}#
+ #{mod 35620}#)
+ (if (null? #{subst 35618}#)
+ (values #f #{marks 35619}#)
+ (let ((#{fst 35621}# (car #{subst 35618}#)))
+ (if (eq? #{fst 35621}# 'shift)
+ (#{search 35551}#
+ #{sym 35617}#
+ (cdr #{subst 35618}#)
+ (cdr #{marks 35619}#)
+ #{mod 35620}#)
+ (let ((#{symnames 35623}# (vector-ref #{fst 35621}# 1)))
+ (if (vector? #{symnames 35623}#)
+ (#{search-vector-rib 35553}#
+ #{sym 35617}#
+ #{subst 35618}#
+ #{marks 35619}#
+ #{symnames 35623}#
+ #{fst 35621}#
+ #{mod 35620}#)
+ (#{search-list-rib 35552}#
+ #{sym 35617}#
+ #{subst 35618}#
+ #{marks 35619}#
+ #{symnames 35623}#
+ #{fst 35621}#
+ #{mod 35620}#))))))))
+ (#{search-list-rib 35552}#
+ (lambda (#{sym 35798}#
+ #{subst 35799}#
+ #{marks 35800}#
+ #{symnames 35801}#
+ #{ribcage 35802}#
+ #{mod 35803}#)
(letrec*
- ((#{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}#
+ ((#{f 35804}#
+ (lambda (#{symnames 35807}# #{i 35808}#)
+ (if (null? #{symnames 35807}#)
+ (#{search 35551}#
+ #{sym 35798}#
+ (cdr #{subst 35799}#)
+ #{marks 35800}#
+ #{mod 35803}#)
+ (if (if (eq? (car #{symnames 35807}#) #{sym 35798}#)
+ (#{same-marks? 4431}#
+ #{marks 35800}#
(list-ref
- (vector-ref #{ribcage 20012}# 2)
- #{i 20017}#))
+ (vector-ref #{ribcage 35802}# 2)
+ #{i 35808}#))
#f)
- (values
- (list-ref
- (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}#)))
+ (let ((#{n 35954}#
+ (list-ref
+ (vector-ref #{ribcage 35802}# 3)
+ #{i 35808}#)))
+ (if (pair? #{n 35954}#)
+ (if (equal? #{mod 35803}# (car #{n 35954}#))
+ (values (cdr #{n 35954}#) #{marks 35800}#)
+ (#{f 35804}#
+ (cdr #{symnames 35807}#)
+ (#{1+}# #{i 35808}#)))
+ (values #{n 35954}# #{marks 35800}#)))
+ (#{f 35804}#
+ (cdr #{symnames 35807}#)
+ (#{1+}# #{i 35808}#)))))))
+ (#{f 35804}# #{symnames 35801}# 0))))
+ (#{search-vector-rib 35553}#
+ (lambda (#{sym 35959}#
+ #{subst 35960}#
+ #{marks 35961}#
+ #{symnames 35962}#
+ #{ribcage 35963}#
+ #{mod 35964}#)
+ (let ((#{n 35965}# (vector-length #{symnames 35962}#)))
(letrec*
- ((#{f 20173}#
- (lambda (#{i 20230}#)
- (if (= #{i 20230}# #{n 20172}#)
- (#{search 19772}#
- #{sym 20167}#
- (cdr #{subst 20168}#)
- #{marks 20169}#)
+ ((#{f 35966}#
+ (lambda (#{i 35969}#)
+ (if (= #{i 35969}# #{n 35965}#)
+ (#{search 35551}#
+ #{sym 35959}#
+ (cdr #{subst 35960}#)
+ #{marks 35961}#
+ #{mod 35964}#)
(if (if (eq? (vector-ref
- #{symnames 20170}#
- #{i 20230}#)
- #{sym 20167}#)
- (#{same-marks? 4359}#
- #{marks 20169}#
+ #{symnames 35962}#
+ #{i 35969}#)
+ #{sym 35959}#)
+ (#{same-marks? 4431}#
+ #{marks 35961}#
(vector-ref
- (vector-ref #{ribcage 20171}# 2)
- #{i 20230}#))
+ (vector-ref #{ribcage 35963}# 2)
+ #{i 35969}#))
#f)
- (values
- (vector-ref
- (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)
+ (let ((#{n 36116}#
+ (vector-ref
+ (vector-ref #{ribcage 35963}# 3)
+ #{i 35969}#)))
+ (if (pair? #{n 36116}#)
+ (if (equal? #{mod 35964}# (car #{n 36116}#))
+ (values (cdr #{n 36116}#) #{marks 35961}#)
+ (#{f 35966}# (#{1+}# #{i 35969}#)))
+ (values #{n 36116}# #{marks 35961}#)))
+ (#{f 35966}# (#{1+}# #{i 35969}#)))))))
+ (#{f 35966}# 0))))))
+ (if (symbol? #{id 35548}#)
+ (let ((#{t 35554}#
+ (#{search 35551}#
+ #{id 35548}#
+ (cdr #{w 35549}#)
+ (car #{w 35549}#)
+ #{mod 35550}#)))
+ (if #{t 35554}# #{t 35554}# #{id 35548}#))
+ (if (if (vector? #{id 35548}#)
+ (if (= (vector-length #{id 35548}#) 4)
+ (eq? (vector-ref #{id 35548}# 0) 'syntax-object)
#f)
#f)
- (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}#)))))
+ (let ((#{id 35569}# (vector-ref #{id 35548}# 1))
+ (#{w1 35570}# (vector-ref #{id 35548}# 2))
+ (#{mod 35571}# (vector-ref #{id 35548}# 3)))
+ (let ((#{marks 35572}#
+ (let ((#{m1 35582}# (car #{w 35549}#))
+ (#{m2 35583}# (car #{w1 35570}#)))
+ (if (null? #{m2 35583}#)
+ #{m1 35582}#
+ (append #{m1 35582}# #{m2 35583}#)))))
(call-with-values
(lambda ()
- (#{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}#)))))))
+ (#{search 35551}#
+ #{id 35569}#
+ (cdr #{w 35549}#)
+ #{marks 35572}#
+ #{mod 35571}#))
+ (lambda (#{new-id 35603}# #{marks 35604}#)
+ (if #{new-id 35603}#
+ #{new-id 35603}#
+ (let ((#{t 35612}#
+ (#{search 35551}#
+ #{id 35569}#
+ (cdr #{w1 35570}#)
+ #{marks 35604}#
+ #{mod 35571}#)))
+ (if #{t 35612}# #{t 35612}# #{id 35569}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{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 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 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 20380}# 3)
- #f)))
- (module-variable
- (if #{mod 20710}#
- (resolve-module (cdr #{mod 20710}#))
- (current-module))
- (if (if (vector? #{i 20380}#)
- (if (= (vector-length #{i 20380}#) 4)
- (eq? (vector-ref #{i 20380}# 0)
- 'syntax-object)
- #f)
- #f)
- (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 20381}# 3)
- #f)))
- (module-variable
- (if #{mod 20554}#
- (resolve-module (cdr #{mod 20554}#))
- (current-module))
- (if (if (vector? #{j 20381}#)
- (if (= (vector-length #{j 20381}#) 4)
- (eq? (vector-ref #{j 20381}# 0)
+ #{id 35548}#))))))
+ (#{resolve-identifier 4433}#
+ (lambda (#{id 19318}#
+ #{w 19319}#
+ #{r 19320}#
+ #{mod 19321}#
+ #{resolve-syntax-parameters? 19322}#)
+ (let ((#{n 19326}#
+ (#{id-var-name 4432}#
+ #{id 19318}#
+ #{w 19319}#
+ #{mod 19321}#)))
+ (if (if (vector? #{n 19326}#)
+ (if (= (vector-length #{n 19326}#) 4)
+ (eq? (vector-ref #{n 19326}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{resolve-identifier 4433}#
+ #{n 19326}#
+ #{w 19319}#
+ #{r 19320}#
+ #{mod 19321}#
+ #{resolve-syntax-parameters? 19322}#)
+ (if (symbol? #{n 19326}#)
+ (let ((#{mod 19341}#
+ (if (if (vector? #{id 19318}#)
+ (if (= (vector-length #{id 19318}#) 4)
+ (eq? (vector-ref #{id 19318}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 19318}# 3)
+ #{mod 19321}#)))
+ (let ((#{b 19342}#
+ (let ((#{b 19345}#
+ (let ((#{t 19346}#
+ (begin
+ (if (if (not #{mod 19341}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 19326}#))
+ (let ((#{v 19395}#
+ (module-variable
+ (if #{mod 19341}#
+ (resolve-module
+ (cdr #{mod 19341}#))
+ (current-module))
+ #{n 19326}#)))
+ (if #{v 19395}#
+ (if (variable-bound? #{v 19395}#)
+ (let ((#{val 19404}#
+ (variable-ref
+ #{v 19395}#)))
+ (if (macro? #{val 19404}#)
+ (if (macro-type
+ #{val 19404}#)
+ (cons (macro-type
+ #{val 19404}#)
+ (macro-binding
+ #{val 19404}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 19346}# #{t 19346}# '(global)))))
+ (if (if #{resolve-syntax-parameters? 19322}#
+ (eq? (car #{b 19345}#) 'syntax-parameter)
+ #f)
+ (let ((#{t 19413}#
+ (assq-ref #{r 19320}# (cdr #{b 19345}#))))
+ (if #{t 19413}#
+ #{t 19413}#
+ (cons 'macro (car (cdr #{b 19345}#)))))
+ #{b 19345}#))))
+ (if (eq? (car #{b 19342}#) 'global)
+ (values 'global #{n 19326}# #{mod 19341}#)
+ (values
+ (car #{b 19342}#)
+ (cdr #{b 19342}#)
+ #{mod 19341}#))))
+ (if (string? #{n 19326}#)
+ (let ((#{mod 19419}#
+ (if (if (vector? #{id 19318}#)
+ (if (= (vector-length #{id 19318}#) 4)
+ (eq? (vector-ref #{id 19318}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 19318}# 3)
+ #{mod 19321}#)))
+ (let ((#{b 19420}#
+ (let ((#{b 19423}#
+ (let ((#{t 19424}#
+ (assq-ref #{r 19320}# #{n 19326}#)))
+ (if #{t 19424}#
+ #{t 19424}#
+ '(displaced-lexical)))))
+ (if (if #{resolve-syntax-parameters? 19322}#
+ (eq? (car #{b 19423}#) 'syntax-parameter)
+ #f)
+ (let ((#{t 19425}#
+ (assq-ref #{r 19320}# (cdr #{b 19423}#))))
+ (if #{t 19425}#
+ #{t 19425}#
+ (cons 'macro (car (cdr #{b 19423}#)))))
+ #{b 19423}#))))
+ (values
+ (car #{b 19420}#)
+ (cdr #{b 19420}#)
+ #{mod 19419}#)))
+ (error "unexpected id-var-name"
+ #{id 19318}#
+ #{w 19319}#
+ #{n 19326}#)))))))
+ (#{free-id=? 4434}#
+ (lambda (#{i 19438}# #{j 19439}#)
+ (let ((#{mi 19440}#
+ (if (if (vector? #{i 19438}#)
+ (if (= (vector-length #{i 19438}#) 4)
+ (eq? (vector-ref #{i 19438}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{i 19438}# 3)
+ #f)))
+ (let ((#{mj 19441}#
+ (if (if (vector? #{j 19439}#)
+ (if (= (vector-length #{j 19439}#) 4)
+ (eq? (vector-ref #{j 19439}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{j 19439}# 3)
+ #f)))
+ (let ((#{ni 19442}#
+ (#{id-var-name 4432}#
+ #{i 19438}#
+ '(())
+ #{mi 19440}#)))
+ (let ((#{nj 19443}#
+ (#{id-var-name 4432}#
+ #{j 19439}#
+ '(())
+ #{mj 19441}#)))
+ (if (if (vector? #{ni 19442}#)
+ (if (= (vector-length #{ni 19442}#) 4)
+ (eq? (vector-ref #{ni 19442}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{free-id=? 4434}# #{ni 19442}# #{j 19439}#)
+ (if (if (vector? #{nj 19443}#)
+ (if (= (vector-length #{nj 19443}#) 4)
+ (eq? (vector-ref #{nj 19443}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{free-id=? 4434}# #{i 19438}# #{nj 19443}#)
+ (if (symbol? #{ni 19442}#)
+ (if (eq? #{nj 19443}#
+ (if (if (vector? #{j 19439}#)
+ (if (= (vector-length #{j 19439}#) 4)
+ (eq? (vector-ref #{j 19439}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20381}# 1)
- #{j 20381}#))))
- (if (not (let ((#{mod 20632}#
- (if (if (vector? #{j 20381}#)
- (if (= (vector-length #{j 20381}#)
+ (vector-ref #{j 19439}# 1)
+ #{j 19439}#))
+ (if (let ((#{bi 19515}#
+ (module-variable
+ (if #{mi 19440}#
+ (resolve-module (cdr #{mi 19440}#))
+ (current-module))
+ (if (if (vector? #{i 19438}#)
+ (if (= (vector-length #{i 19438}#)
+ 4)
+ (eq? (vector-ref #{i 19438}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{i 19438}# 1)
+ #{i 19438}#))))
+ (if #{bi 19515}#
+ (eq? #{bi 19515}#
+ (module-variable
+ (if #{mj 19441}#
+ (resolve-module (cdr #{mj 19441}#))
+ (current-module))
+ (if (if (vector? #{j 19439}#)
+ (if (= (vector-length #{j 19439}#)
4)
- (eq? (vector-ref #{j 20381}# 0)
+ (eq? (vector-ref #{j 19439}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20381}# 3)
- #f)))
- (module-variable
- (if #{mod 20632}#
- (resolve-module (cdr #{mod 20632}#))
- (current-module))
- (if (if (vector? #{j 20381}#)
- (if (= (vector-length #{j 20381}#) 4)
- (eq? (vector-ref #{j 20381}# 0)
- 'syntax-object)
- #f)
+ (vector-ref #{j 19439}# 1)
+ #{j 19439}#)))
+ (if (not (module-variable
+ (if #{mj 19441}#
+ (resolve-module (cdr #{mj 19441}#))
+ (current-module))
+ (if (if (vector? #{j 19439}#)
+ (if (= (vector-length
+ #{j 19439}#)
+ 4)
+ (eq? (vector-ref
+ #{j 19439}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{j 19439}# 1)
+ #{j 19439}#)))
+ (eq? #{ni 19442}# #{nj 19443}#)
+ #f)))
+ (eq? (module-variable
+ (if #{mi 19440}#
+ (resolve-module (cdr #{mi 19440}#))
+ (current-module))
+ (if (if (vector? #{i 19438}#)
+ (if (= (vector-length #{i 19438}#) 4)
+ (eq? (vector-ref #{i 19438}# 0)
+ 'syntax-object)
#f)
- (vector-ref #{j 20381}# 1)
- #{j 20381}#))))
- (eq? #{ni 20382}# #{nj 20383}#)
- #f)))
- (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 20380}# 3)
- #f)))
- (module-variable
- (if #{mod 20788}#
- (resolve-module (cdr #{mod 20788}#))
- (current-module))
- (if (if (vector? #{i 20380}#)
- (if (= (vector-length #{i 20380}#) 4)
- (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
- #f)
- #f)
- (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 20381}# 3)
- #f)))
- (module-variable
- (if #{mod 20866}#
- (resolve-module (cdr #{mod 20866}#))
- (current-module))
- (if (if (vector? #{j 20381}#)
- (if (= (vector-length #{j 20381}#) 4)
- (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
- #f)
- #f)
- (vector-ref #{j 20381}# 1)
- #{j 20381}#))))
- #f)
- #f)
- (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 20381}# 1)
- #{j 20381}#)))
- #f)))))
- (#{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)
+ (vector-ref #{i 19438}# 1)
+ #{i 19438}#))
+ (module-variable
+ (if #{mj 19441}#
+ (resolve-module (cdr #{mj 19441}#))
+ (current-module))
+ (if (if (vector? #{j 19439}#)
+ (if (= (vector-length #{j 19439}#) 4)
+ (eq? (vector-ref #{j 19439}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{j 19439}# 1)
+ #{j 19439}#)))
+ #f)
+ #f)
+ (equal? #{ni 19442}# #{nj 19443}#))))))))))
+ (#{bound-id=? 4435}#
+ (lambda (#{i 19708}# #{j 19709}#)
+ (if (if (if (vector? #{i 19708}#)
+ (if (= (vector-length #{i 19708}#) 4)
+ (eq? (vector-ref #{i 19708}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 20967}#)
- (if (= (vector-length #{j 20967}#) 4)
- (eq? (vector-ref #{j 20967}# 0) 'syntax-object)
+ (if (vector? #{j 19709}#)
+ (if (= (vector-length #{j 19709}#) 4)
+ (eq? (vector-ref #{j 19709}# 0) 'syntax-object)
#f)
#f)
#f)
- (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)))
+ (if (eq? (vector-ref #{i 19708}# 1)
+ (vector-ref #{j 19709}# 1))
+ (#{same-marks? 4431}#
+ (car (vector-ref #{i 19708}# 2))
+ (car (vector-ref #{j 19709}# 2)))
#f)
- (eq? #{i 20966}# #{j 20967}#))))
- (#{valid-bound-ids? 4363}#
- (lambda (#{ids 21136}#)
+ (eq? #{i 19708}# #{j 19709}#))))
+ (#{valid-bound-ids? 4436}#
+ (lambda (#{ids 19878}#)
(if (letrec*
- ((#{all-ids? 21137}#
- (lambda (#{ids 21334}#)
- (if (null? #{ids 21334}#)
- (null? #{ids 21334}#)
- (if (let ((#{x 21345}# (car #{ids 21334}#)))
- (if (symbol? #{x 21345}#)
+ ((#{all-ids? 19879}#
+ (lambda (#{ids 20076}#)
+ (if (null? #{ids 20076}#)
+ (null? #{ids 20076}#)
+ (if (let ((#{x 20087}# (car #{ids 20076}#)))
+ (if (symbol? #{x 20087}#)
#t
- (if (if (vector? #{x 21345}#)
- (if (= (vector-length #{x 21345}#) 4)
- (eq? (vector-ref #{x 21345}# 0)
+ (if (if (vector? #{x 20087}#)
+ (if (= (vector-length #{x 20087}#) 4)
+ (eq? (vector-ref #{x 20087}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 21345}# 1))
+ (symbol? (vector-ref #{x 20087}# 1))
#f)))
- (#{all-ids? 21137}# (cdr #{ids 21334}#))
+ (#{all-ids? 19879}# (cdr #{ids 20076}#))
#f)))))
- (#{all-ids? 21137}# #{ids 21136}#))
- (#{distinct-bound-ids? 4364}# #{ids 21136}#)
+ (#{all-ids? 19879}# #{ids 19878}#))
+ (#{distinct-bound-ids? 4437}# #{ids 19878}#)
#f)))
- (#{distinct-bound-ids? 4364}#
- (lambda (#{ids 21466}#)
+ (#{distinct-bound-ids? 4437}#
+ (lambda (#{ids 20208}#)
(letrec*
- ((#{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}#))
+ ((#{distinct? 20209}#
+ (lambda (#{ids 20314}#)
+ (if (null? #{ids 20314}#)
+ (null? #{ids 20314}#)
+ (if (not (#{bound-id-member? 4438}#
+ (car #{ids 20314}#)
+ (cdr #{ids 20314}#)))
+ (#{distinct? 20209}# (cdr #{ids 20314}#))
#f)))))
- (#{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}#))))
+ (#{distinct? 20209}# #{ids 20208}#))))
+ (#{bound-id-member? 4438}#
+ (lambda (#{x 20410}# #{list 20411}#)
+ (if (not (null? #{list 20411}#))
+ (let ((#{t 20412}#
+ (#{bound-id=? 4435}#
+ #{x 20410}#
+ (car #{list 20411}#))))
+ (if #{t 20412}#
+ #{t 20412}#
+ (#{bound-id-member? 4438}#
+ #{x 20410}#
+ (cdr #{list 20411}#))))
#f)))
- (#{source-wrap 4367}#
- (lambda (#{x 21848}#
- #{w 21849}#
- #{s 21850}#
- #{defmod 21851}#)
- (let ((#{x 21855}#
+ (#{source-wrap 4440}#
+ (lambda (#{x 20590}#
+ #{w 20591}#
+ #{s 20592}#
+ #{defmod 20593}#)
+ (let ((#{x 20597}#
(begin
- (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}#))
+ (if (if (pair? #{x 20590}#) #{s 20592}# #f)
+ (set-source-properties! #{x 20590}# #{s 20592}#))
+ #{x 20590}#)))
+ (if (if (null? (car #{w 20591}#))
+ (null? (cdr #{w 20591}#))
#f)
- #{x 21855}#
- (if (if (vector? #{x 21855}#)
- (if (= (vector-length #{x 21855}#) 4)
- (eq? (vector-ref #{x 21855}# 0) 'syntax-object)
+ #{x 20597}#
+ (if (if (vector? #{x 20597}#)
+ (if (= (vector-length #{x 20597}#) 4)
+ (eq? (vector-ref #{x 20597}# 0) 'syntax-object)
#f)
#f)
- (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)))
+ (let ((#{expression 20629}# (vector-ref #{x 20597}# 1))
+ (#{wrap 20630}#
+ (let ((#{w2 20638}# (vector-ref #{x 20597}# 2)))
+ (let ((#{m1 20639}# (car #{w 20591}#))
+ (#{s1 20640}# (cdr #{w 20591}#)))
+ (if (null? #{m1 20639}#)
+ (if (null? #{s1 20640}#)
+ #{w2 20638}#
+ (cons (car #{w2 20638}#)
+ (let ((#{m2 20655}# (cdr #{w2 20638}#)))
+ (if (null? #{m2 20655}#)
+ #{s1 20640}#
+ (append #{s1 20640}# #{m2 20655}#)))))
+ (cons (let ((#{m2 20663}# (car #{w2 20638}#)))
+ (if (null? #{m2 20663}#)
+ #{m1 20639}#
+ (append #{m1 20639}# #{m2 20663}#)))
+ (let ((#{m2 20671}# (cdr #{w2 20638}#)))
+ (if (null? #{m2 20671}#)
+ #{s1 20640}#
+ (append #{s1 20640}# #{m2 20671}#))))))))
+ (#{module 20631}# (vector-ref #{x 20597}# 3)))
(vector
'syntax-object
- #{expression 21887}#
- #{wrap 21888}#
- #{module 21889}#))
- (if (null? #{x 21855}#)
- #{x 21855}#
+ #{expression 20629}#
+ #{wrap 20630}#
+ #{module 20631}#))
+ (if (null? #{x 20597}#)
+ #{x 20597}#
(vector
'syntax-object
- #{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}#
+ #{x 20597}#
+ #{w 20591}#
+ #{defmod 20593}#)))))))
+ (#{chi-sequence 4441}#
+ (lambda (#{body 36121}#
+ #{r 36122}#
+ #{w 36123}#
+ #{s 36124}#
+ #{mod 36125}#)
+ (#{build-sequence 4395}#
+ #{s 36124}#
(letrec*
- ((#{dobody 37024}#
- (lambda (#{body 37111}#
- #{r 37112}#
- #{w 37113}#
- #{mod 37114}#)
- (if (null? #{body 37111}#)
+ ((#{dobody 36217}#
+ (lambda (#{body 36304}#
+ #{r 36305}#
+ #{w 36306}#
+ #{mod 36307}#)
+ (if (null? #{body 36304}#)
'()
- (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 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
- (let ((#{x 22487}#
- (#{chi-top-sequence 4369}#
- #{body 22459}#
- #{r 22099}#
- #{w 22411}#
- #{s 22412}#
- 'e
- '(eval)
- #{mod 22413}#)))
- (primitive-eval #{x 22487}#))
- #{exps 22105}#)
- #{exps 22105}#)))))
- #{tmp 22451}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22410}#)))
- (if (eqv? #{type 22408}# 'define-syntax-form)
- (let ((#{n 22498}#
- (#{id-var-name 4360}#
- #{value 22409}#
- #{w 22411}#))
- (#{r 22499}#
- (#{macros-only-env 4337}# #{r 22099}#)))
- (if (eqv? #{m 22102}# 'c)
- (if (memq 'compile #{esew 22103}#)
- (let ((#{e 22503}#
- (#{chi-install-global 4370}#
- #{n 22498}#
- (#{chi 4373}#
- #{e 22410}#
- #{r 22499}#
- #{w 22411}#
- #{mod 22413}#))))
- (begin
- (#{top-level-eval-hook 4300}#
- #{e 22503}#
- #{mod 22413}#)
- (if (memq 'load #{esew 22103}#)
- (cons #{e 22503}# #{exps 22105}#)
- #{exps 22105}#)))
- (if (memq 'load #{esew 22103}#)
- (cons (#{chi-install-global 4370}#
- #{n 22498}#
- (#{chi 4373}#
- #{e 22410}#
- #{r 22499}#
- #{w 22411}#
- #{mod 22413}#))
- #{exps 22105}#)
- #{exps 22105}#))
- (if (eqv? #{m 22102}# 'c&e)
- (let ((#{e 22949}#
- (#{chi-install-global 4370}#
- #{n 22498}#
- (#{chi 4373}#
- #{e 22410}#
- #{r 22499}#
- #{w 22411}#
- #{mod 22413}#))))
- (begin
- (#{top-level-eval-hook 4300}#
- #{e 22949}#
- #{mod 22413}#)
- (cons #{e 22949}# #{exps 22105}#)))
- (begin
- (if (memq 'eval #{esew 22103}#)
- (#{top-level-eval-hook 4300}#
- (#{chi-install-global 4370}#
- #{n 22498}#
- (#{chi 4373}#
- #{e 22410}#
- #{r 22499}#
- #{w 22411}#
- #{mod 22413}#))
- #{mod 22413}#))
- #{exps 22105}#))))
- (if (eqv? #{type 22408}# 'define-form)
- (let ((#{n 23599}#
- (#{id-var-name 4360}#
- #{value 22409}#
- #{w 22411}#)))
- (let ((#{type 23600}#
- (car (let ((#{t 24602}#
- (assq #{n 23599}#
- #{r 22099}#)))
- (if #{t 24602}#
- (cdr #{t 24602}#)
- (if (symbol? #{n 23599}#)
- (let ((#{t 24607}#
- (begin
- (if (if (not #{mod 22413}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{n 23599}#))
- (let ((#{v 24644}#
- (module-variable
- (if #{mod 22413}#
- (resolve-module
- (cdr #{mod 22413}#))
- (current-module))
- #{n 23599}#)))
- (if #{v 24644}#
- (if (variable-bound?
- #{v 24644}#)
- (let ((#{val 24653}#
- (variable-ref
- #{v 24644}#)))
- (if (macro?
- #{val 24653}#)
- (if (macro-type
- #{val 24653}#)
- (cons (macro-type
- #{val 24653}#)
- (macro-binding
- #{val 24653}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 24607}#
- #{t 24607}#
- '(global)))
- '(displaced-lexical)))))))
- (if (let ((#{t 23634}# #{type 23600}#))
- (if (eqv? #{t 23634}# 'global)
- #t
- (if (eqv? #{t 23634}# 'core)
- #t
- (if (eqv? #{t 23634}# 'macro)
- #t
- (eqv? #{t 23634}#
- 'module-ref)))))
- (begin
- (if (if (if (eq? #{m 22102}# 'c)
- #t
- (eq? #{m 22102}# 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n 23599}#))
- (current-module)
- #f)
- #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)
- #{value 22409}#
- (if (if (vector? #{value 22409}#)
- (if (= (vector-length
- #{value 22409}#)
- 4)
- (eq? (vector-ref
- #{value 22409}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (let ((#{expression 24429}#
- (vector-ref
- #{value 22409}#
- 1))
- (#{wrap 24430}#
- (let ((#{w2 24440}#
- (vector-ref
- #{value 22409}#
- 2)))
- (let ((#{m1 24441}#
- (car #{w 22411}#))
- (#{s1 24442}#
- (cdr #{w 22411}#)))
- (if (null? #{m1 24441}#)
- (if (null? #{s1 24442}#)
- #{w2 24440}#
- (cons (car #{w2 24440}#)
- (let ((#{m2 24459}#
- (cdr #{w2 24440}#)))
- (if (null? #{m2 24459}#)
- #{s1 24442}#
- (append
- #{s1 24442}#
- #{m2 24459}#)))))
- (cons (let ((#{m2 24467}#
- (car #{w2 24440}#)))
- (if (null? #{m2 24467}#)
- #{m1 24441}#
- (append
- #{m1 24441}#
- #{m2 24467}#)))
- (let ((#{m2 24475}#
- (cdr #{w2 24440}#)))
- (if (null? #{m2 24475}#)
- #{s1 24442}#
- (append
- #{s1 24442}#
- #{m2 24475}#))))))))
- (#{module 24431}#
- (vector-ref
- #{value 22409}#
- 3)))
- (vector
- 'syntax-object
- #{expression 24429}#
- #{wrap 24430}#
- #{module 24431}#))
- (if (null? #{value 22409}#)
- #{value 22409}#
- (vector
- 'syntax-object
- #{value 22409}#
- #{w 22411}#
- #{mod 22413}#)))))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e 22410}#
- (if (if (null? (car #{w 22411}#))
- (null? (cdr #{w 22411}#))
- #f)
- #{value 22409}#
- (if (if (vector? #{value 22409}#)
- (if (= (vector-length
- #{value 22409}#)
- 4)
- (eq? (vector-ref
- #{value 22409}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (let ((#{expression 24527}#
+ (let ((#{first 36308}#
+ (#{chi 4446}#
+ (car #{body 36304}#)
+ #{r 36305}#
+ #{w 36306}#
+ #{mod 36307}#)))
+ (cons #{first 36308}#
+ (#{dobody 36217}#
+ (cdr #{body 36304}#)
+ #{r 36305}#
+ #{w 36306}#
+ #{mod 36307}#)))))))
+ (#{dobody 36217}#
+ #{body 36121}#
+ #{r 36122}#
+ #{w 36123}#
+ #{mod 36125}#)))))
+ (#{chi-top-sequence 4442}#
+ (lambda (#{body 20686}#
+ #{r 20687}#
+ #{w 20688}#
+ #{s 20689}#
+ #{m 20690}#
+ #{esew 20691}#
+ #{mod 20692}#)
+ (let ((#{r 20693}#
+ (cons '("placeholder" placeholder) #{r 20687}#)))
+ (let ((#{ribcage 20694}# (vector 'ribcage '() '() '())))
+ (let ((#{w 20695}#
+ (cons (car #{w 20688}#)
+ (cons #{ribcage 20694}# (cdr #{w 20688}#)))))
+ (letrec*
+ ((#{record-definition! 20696}#
+ (lambda (#{id 23703}# #{var 23704}#)
+ (let ((#{mod 23705}#
+ (cons 'hygiene (module-name (current-module)))))
+ (let ((#{label 23711}#
+ (cons (vector-ref #{id 23703}# 3)
+ (if (if (vector? #{var 23704}#)
+ (if (= (vector-length #{var 23704}#)
+ 4)
+ (eq? (vector-ref #{var 23704}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 23773}#
+ (vector-ref #{var 23704}# 1))
+ (#{wrap 23774}#
+ (let ((#{w2 23784}#
(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 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}#
+ #{var 23704}#
+ 2)))
+ (cons (let ((#{m2 23791}#
+ (car #{w2 23784}#)))
+ (if (null? #{m2 23791}#)
+ '(top)
+ (append
+ '(top)
+ #{m2 23791}#)))
+ (let ((#{m2 23800}#
+ (cdr #{w2 23784}#)))
+ (if (null? #{m2 23800}#)
+ '()
+ (append
+ '()
+ #{m2 23800}#))))))
+ (#{module 23775}#
+ (vector-ref #{var 23704}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23773}#
+ #{wrap 23774}#
+ #{module 23775}#))
+ (if (null? #{var 23704}#)
+ #{var 23704}#
+ (vector
+ 'syntax-object
+ #{var 23704}#
+ '((top))
+ #{mod 23705}#))))))
+ (begin
+ (let ((#{update 23714}#
+ (cons (vector-ref #{id 23703}# 1)
+ (vector-ref #{ribcage 20694}# 1))))
+ (vector-set!
+ #{ribcage 20694}#
+ 1
+ #{update 23714}#))
+ (let ((#{update 23729}#
+ (cons (car (vector-ref #{id 23703}# 2))
+ (vector-ref #{ribcage 20694}# 2))))
+ (vector-set!
+ #{ribcage 20694}#
+ 2
+ #{update 23729}#))
+ (let ((#{update 23744}#
+ (cons #{label 23711}#
+ (vector-ref #{ribcage 20694}# 3))))
+ (vector-set!
+ #{ribcage 20694}#
+ 3
+ #{update 23744}#)))))))
+ (#{parse 20699}#
+ (lambda (#{body 20904}#
+ #{r 20905}#
+ #{w 20906}#
+ #{s 20907}#
+ #{m 20908}#
+ #{esew 20909}#
+ #{mod 20910}#)
+ (letrec*
+ ((#{lp 20911}#
+ (lambda (#{body 20998}# #{exps 20999}#)
+ (if (null? #{body 20998}#)
+ #{exps 20999}#
+ (#{lp 20911}#
+ (cdr #{body 20998}#)
+ (append
+ (#{parse1 20700}#
+ (car #{body 20998}#)
+ #{r 20905}#
+ #{w 20906}#
+ #{s 20907}#
+ #{m 20908}#
+ #{esew 20909}#
+ #{mod 20910}#)
+ #{exps 20999}#))))))
+ (#{lp 20911}# #{body 20904}# '()))))
+ (#{parse1 20700}#
+ (lambda (#{x 21073}#
+ #{r 21074}#
+ #{w 21075}#
+ #{s 21076}#
+ #{m 21077}#
+ #{esew 21078}#
+ #{mod 21079}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4445}#
+ #{x 21073}#
+ #{r 21074}#
+ #{w 21075}#
+ (#{source-annotation 4407}# #{x 21073}#)
+ #{ribcage 20694}#
+ #{mod 21079}#
+ #f))
+ (lambda (#{type 21283}#
+ #{value 21284}#
+ #{e 21285}#
+ #{w 21286}#
+ #{s 21287}#
+ #{mod 21288}#)
+ (if (eqv? #{type 21283}# 'define-form)
+ (let ((#{id 21292}#
+ (if (if (null? (car #{w 21286}#))
+ (null? (cdr #{w 21286}#))
+ #f)
+ #{value 21284}#
+ (if (if (vector? #{value 21284}#)
+ (if (= (vector-length
+ #{value 21284}#)
+ 4)
+ (eq? (vector-ref #{value 21284}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 21342}#
+ (vector-ref #{value 21284}# 1))
+ (#{wrap 21343}#
+ (let ((#{w2 21353}#
(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}#)))
+ #{value 21284}#
+ 2)))
+ (let ((#{m1 21354}#
+ (car #{w 21286}#))
+ (#{s1 21355}#
+ (cdr #{w 21286}#)))
+ (if (null? #{m1 21354}#)
+ (if (null? #{s1 21355}#)
+ #{w2 21353}#
+ (cons (car #{w2 21353}#)
+ (let ((#{m2 21372}#
+ (cdr #{w2 21353}#)))
+ (if (null? #{m2 21372}#)
+ #{s1 21355}#
+ (append
+ #{s1 21355}#
+ #{m2 21372}#)))))
+ (cons (let ((#{m2 21380}#
+ (car #{w2 21353}#)))
+ (if (null? #{m2 21380}#)
+ #{m1 21354}#
+ (append
+ #{m1 21354}#
+ #{m2 21380}#)))
+ (let ((#{m2 21388}#
+ (cdr #{w2 21353}#)))
+ (if (null? #{m2 21388}#)
+ #{s1 21355}#
+ (append
+ #{s1 21355}#
+ #{m2 21388}#))))))))
+ (#{module 21344}#
+ (vector-ref #{value 21284}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 21342}#
+ #{wrap 21343}#
+ #{module 21344}#))
+ (if (null? #{value 21284}#)
+ #{value 21284}#
+ (vector
+ 'syntax-object
+ #{value 21284}#
+ #{w 21286}#
+ #{mod 21288}#))))))
+ (begin
+ (symbol->string (gensym "i"))
+ (let ((#{var 21294}#
+ (if (not (equal?
+ (car (vector-ref
+ #{id 21292}#
+ 2))
+ '(top)))
+ (symbol-append
+ (vector-ref #{id 21292}# 1)
+ '-
+ (string->symbol
+ (number->string
+ (hash (syntax->datum #{x 21073}#)
+ most-positive-fixnum)
+ 16)))
+ (vector-ref #{id 21292}# 1))))
+ (begin
+ (#{record-definition! 20696}#
+ #{id 21292}#
+ #{var 21294}#)
+ (list (if (eq? #{m 21077}# 'c&e)
+ (let ((#{x 21519}#
+ (#{build-global-definition 4388}#
+ #{s 21287}#
+ #{var 21294}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#))))
+ (begin
+ (#{top-level-eval-hook 4373}#
+ #{x 21519}#
+ #{mod 21288}#)
+ (lambda () #{x 21519}#)))
+ (lambda ()
+ (#{build-global-definition 4388}#
+ #{s 21287}#
+ #{var 21294}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#)))))))))
+ (if (if (eqv? #{type 21283}# 'define-syntax-form)
+ #t
+ (eqv? #{type 21283}#
+ 'define-syntax-parameter-form))
+ (let ((#{id 22035}#
+ (if (if (null? (car #{w 21286}#))
+ (null? (cdr #{w 21286}#))
+ #f)
+ #{value 21284}#
+ (if (if (vector? #{value 21284}#)
+ (if (= (vector-length
+ #{value 21284}#)
+ 4)
+ (eq? (vector-ref
+ #{value 21284}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 22085}#
+ (vector-ref #{value 21284}# 1))
+ (#{wrap 22086}#
+ (let ((#{w2 22096}#
+ (vector-ref
+ #{value 21284}#
+ 2)))
+ (let ((#{m1 22097}#
+ (car #{w 21286}#))
+ (#{s1 22098}#
+ (cdr #{w 21286}#)))
+ (if (null? #{m1 22097}#)
+ (if (null? #{s1 22098}#)
+ #{w2 22096}#
+ (cons (car #{w2 22096}#)
+ (let ((#{m2 22115}#
+ (cdr #{w2 22096}#)))
+ (if (null? #{m2 22115}#)
+ #{s1 22098}#
+ (append
+ #{s1 22098}#
+ #{m2 22115}#)))))
+ (cons (let ((#{m2 22123}#
+ (car #{w2 22096}#)))
+ (if (null? #{m2 22123}#)
+ #{m1 22097}#
+ (append
+ #{m1 22097}#
+ #{m2 22123}#)))
+ (let ((#{m2 22131}#
+ (cdr #{w2 22096}#)))
+ (if (null? #{m2 22131}#)
+ #{s1 22098}#
+ (append
+ #{s1 22098}#
+ #{m2 22131}#))))))))
+ (#{module 22087}#
+ (vector-ref
+ #{value 21284}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 22085}#
+ #{wrap 22086}#
+ #{module 22087}#))
+ (if (null? #{value 21284}#)
+ #{value 21284}#
+ (vector
+ 'syntax-object
+ #{value 21284}#
+ #{w 21286}#
+ #{mod 21288}#))))))
+ (begin
+ (symbol->string (gensym "i"))
+ (let ((#{var 22037}#
+ (if (not (equal?
+ (car (vector-ref
+ #{id 22035}#
+ 2))
+ '(top)))
+ (symbol-append
+ (vector-ref #{id 22035}# 1)
+ '-
+ (string->symbol
+ (number->string
+ (hash (syntax->datum
+ #{x 21073}#)
+ most-positive-fixnum)
+ 16)))
+ (vector-ref #{id 22035}# 1))))
+ (begin
+ (#{record-definition! 20696}#
+ #{id 22035}#
+ #{var 22037}#)
+ (if (eqv? #{m 21077}# 'c)
+ (if (memq 'compile #{esew 21078}#)
+ (let ((#{e 22265}#
+ (#{chi-install-global 4443}#
+ #{var 22037}#
+ #{type 21283}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#))))
(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 24673}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #f
- 'macro)
- #{e 24674}#)))
+ (#{top-level-eval-hook 4373}#
+ #{e 22265}#
+ #{mod 21288}#)
+ (if (memq 'load #{esew 21078}#)
+ (list (lambda () #{e 22265}#))
+ '())))
+ (if (memq 'load #{esew 21078}#)
+ (list (lambda ()
+ (#{chi-install-global 4443}#
+ #{var 22037}#
+ #{type 21283}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#))))
+ '()))
+ (if (eqv? #{m 21077}# 'c&e)
+ (let ((#{e 22785}#
+ (#{chi-install-global 4443}#
+ #{var 22037}#
+ #{type 21283}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#))))
+ (begin
+ (#{top-level-eval-hook 4373}#
+ #{e 22785}#
+ #{mod 21288}#)
+ (list (lambda () #{e 22785}#))))
+ (begin
+ (if (memq 'eval #{esew 21078}#)
+ (#{top-level-eval-hook 4373}#
+ (#{chi-install-global 4443}#
+ #{var 22037}#
+ #{type 21283}#
+ (#{chi 4446}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{mod 21288}#))
+ #{mod 21288}#))
+ '())))))))
+ (if (eqv? #{type 21283}# 'begin-form)
+ (let ((#{tmp 23414}#
+ ($sc-dispatch
+ #{e 21285}#
+ '(_ . each-any))))
+ (if #{tmp 23414}#
+ (@apply
+ (lambda (#{e1 23418}#)
+ (#{parse 20699}#
+ #{e1 23418}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ #{m 21077}#
+ #{esew 21078}#
+ #{mod 21288}#))
+ #{tmp 23414}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 21285}#)))
+ (if (eqv? #{type 21283}# 'local-syntax-form)
+ (#{chi-local-syntax 4451}#
+ #{value 21284}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ #{mod 21288}#
+ (lambda (#{forms 23464}#
+ #{r 23465}#
+ #{w 23466}#
+ #{s 23467}#
+ #{mod 23468}#)
+ (#{parse 20699}#
+ #{forms 23464}#
+ #{r 23465}#
+ #{w 23466}#
+ #{s 23467}#
+ #{m 21077}#
+ #{esew 21078}#
+ #{mod 23468}#)))
+ (if (eqv? #{type 21283}# 'eval-when-form)
+ (let ((#{tmp 23507}#
+ ($sc-dispatch
+ #{e 21285}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 23507}#
+ (@apply
+ (lambda (#{x 23511}#
+ #{e1 23512}#
+ #{e2 23513}#)
+ (let ((#{when-list 23514}#
+ (#{chi-when-list 4444}#
+ #{e 21285}#
+ #{x 23511}#
+ #{w 21286}#))
+ (#{body 23515}#
+ (cons #{e1 23512}#
+ #{e2 23513}#)))
+ (letrec*
+ ((#{recurse 23516}#
+ (lambda (#{m 23652}#
+ #{esew 23653}#)
+ (#{parse 20699}#
+ #{body 23515}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ #{m 23652}#
+ #{esew 23653}#
+ #{mod 21288}#))))
+ (if (eq? #{m 21077}# 'e)
+ (if (memq 'eval
+ #{when-list 23514}#)
+ (#{recurse 23516}#
+ (if (memq 'expand
+ #{when-list 23514}#)
+ 'c&e
+ 'e)
+ '(eval))
+ (begin
+ (if (memq 'expand
+ #{when-list 23514}#)
+ (let ((#{x 23557}#
+ (#{chi-top-sequence 4442}#
+ #{body 23515}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ 'e
+ '(eval)
+ #{mod 21288}#)))
+ (primitive-eval
+ #{x 23557}#)))
+ '()))
+ (if (memq 'load
+ #{when-list 23514}#)
+ (if (let ((#{t 23559}#
+ (memq 'compile
+ #{when-list 23514}#)))
+ (if #{t 23559}#
+ #{t 23559}#
+ (let ((#{t 23561}#
+ (memq 'expand
+ #{when-list 23514}#)))
+ (if #{t 23561}#
+ #{t 23561}#
+ (if (eq? #{m 21077}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 23514}#)
+ #f)))))
+ (#{recurse 23516}#
+ 'c&e
+ '(compile load))
+ (if (if (eq? #{m 21077}#
+ 'c)
+ #t
+ (eq? #{m 21077}#
+ 'c&e))
+ (#{recurse 23516}#
+ 'c
+ '(load))
+ '()))
+ (if (let ((#{t 23643}#
+ (memq 'compile
+ #{when-list 23514}#)))
+ (if #{t 23643}#
+ #{t 23643}#
+ (let ((#{t 23645}#
+ (memq 'expand
+ #{when-list 23514}#)))
+ (if #{t 23645}#
+ #{t 23645}#
+ (if (eq? #{m 21077}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 23514}#)
+ #f)))))
+ (begin
+ (let ((#{x 23650}#
+ (#{chi-top-sequence 4442}#
+ #{body 23515}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ 'e
+ '(eval)
+ #{mod 21288}#)))
+ (primitive-eval
+ #{x 23650}#))
+ '())
+ '()))))))
+ #{tmp 23507}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 21285}#)))
+ (list (if (eq? #{m 21077}# 'c&e)
+ (let ((#{x 23694}#
+ (#{chi-expr 4447}#
+ #{type 21283}#
+ #{value 21284}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ #{mod 21288}#)))
+ (begin
+ (primitive-eval #{x 23694}#)
+ (lambda () #{x 23694}#)))
+ (lambda ()
+ (#{chi-expr 4447}#
+ #{type 21283}#
+ #{value 21284}#
+ #{e 21285}#
+ #{r 21074}#
+ #{w 21286}#
+ #{s 21287}#
+ #{mod 21288}#))))))))))))))
+ (let ((#{exps 20701}#
+ (map (lambda (#{x 20832}#) (#{x 20832}#))
+ (reverse
+ (#{parse 20699}#
+ #{body 20686}#
+ #{r 20693}#
+ #{w 20695}#
+ #{s 20689}#
+ #{m 20690}#
+ #{esew 20691}#
+ #{mod 20692}#)))))
+ (if (null? #{exps 20701}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{s 20689}#)
+ (#{build-sequence 4395}#
+ #{s 20689}#
+ #{exps 20701}#)))))))))
+ (#{chi-install-global 4443}#
+ (lambda (#{name 23822}# #{type 23823}# #{e 23824}#)
+ (let ((#{exp 23830}#
+ (let ((#{args 23841}#
+ (if (eq? #{type 23823}#
+ 'define-syntax-parameter-form)
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{name 23822}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'syntax-parameter)
+ (let ((#{args 23864}# (list #{e 23824}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #f
+ 'list
+ #{args 23864}#)))
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{name 23822}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'macro)
+ #{e 23824}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'make-syntax-transformer
- #{args 24691}#))))
+ #{args 23841}#))))
(begin
- (if (if (struct? #{exp 24680}#)
- (eq? (struct-vtable #{exp 24680}#)
+ (if (if (struct? #{exp 23830}#)
+ (eq? (struct-vtable #{exp 23830}#)
(vector-ref %expanded-vtables 14))
#f)
- (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}#)))))
+ (let ((#{meta 23891}# (struct-ref #{exp 23830}# 1)))
+ (if (not (assq 'name #{meta 23891}#))
+ (let ((#{v 23898}#
+ (cons (cons 'name #{name 23822}#) #{meta 23891}#)))
+ (struct-set! #{exp 23830}# 1 #{v 23898}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 24673}#
- #{exp 24680}#)))))
- (#{chi-when-list 4371}#
- (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#)
+ #{name 23822}#
+ #{exp 23830}#)))))
+ (#{chi-when-list 4444}#
+ (lambda (#{e 23909}# #{when-list 23910}# #{w 23911}#)
(letrec*
- ((#{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)
+ ((#{f 23912}#
+ (lambda (#{when-list 24114}# #{situations 24115}#)
+ (if (null? #{when-list 24114}#)
+ #{situations 24115}#
+ (#{f 23912}#
+ (cdr #{when-list 24114}#)
+ (cons (let ((#{x 24116}#
+ (syntax->datum (car #{when-list 24114}#))))
+ (if (if (eq? #{x 24116}# 'compile)
#t
- (if (eq? #{x 24943}# 'load)
+ (if (eq? #{x 24116}# 'load)
#t
- (if (eq? #{x 24943}# 'eval)
+ (if (eq? #{x 24116}# 'eval)
#t
- (eq? #{x 24943}# 'expand))))
- #{x 24943}#
+ (eq? #{x 24116}# 'expand))))
+ #{x 24116}#
(syntax-violation
'eval-when
"invalid situation"
- #{e 24736}#
- (let ((#{x 24962}# (car #{when-list 24941}#)))
- (if (if (null? (car #{w 24738}#))
- (null? (cdr #{w 24738}#))
+ #{e 23909}#
+ (let ((#{x 24135}# (car #{when-list 24114}#)))
+ (if (if (null? (car #{w 23911}#))
+ (null? (cdr #{w 23911}#))
#f)
- #{x 24962}#
- (if (if (vector? #{x 24962}#)
- (if (= (vector-length #{x 24962}#) 4)
- (eq? (vector-ref #{x 24962}# 0)
+ #{x 24135}#
+ (if (if (vector? #{x 24135}#)
+ (if (= (vector-length #{x 24135}#) 4)
+ (eq? (vector-ref #{x 24135}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 24980}#
- (vector-ref #{x 24962}# 1))
- (#{wrap 24981}#
- (let ((#{w2 24989}#
+ (let ((#{expression 24153}#
+ (vector-ref #{x 24135}# 1))
+ (#{wrap 24154}#
+ (let ((#{w2 24162}#
(vector-ref
- #{x 24962}#
+ #{x 24135}#
2)))
- (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}#
+ (let ((#{m1 24163}#
+ (car #{w 23911}#))
+ (#{s1 24164}#
+ (cdr #{w 23911}#)))
+ (if (null? #{m1 24163}#)
+ (if (null? #{s1 24164}#)
+ #{w2 24162}#
+ (cons (car #{w2 24162}#)
+ (let ((#{m2 24179}#
+ (cdr #{w2 24162}#)))
+ (if (null? #{m2 24179}#)
+ #{s1 24164}#
(append
- #{s1 24991}#
- #{m2 25006}#)))))
- (cons (let ((#{m2 25014}#
- (car #{w2 24989}#)))
- (if (null? #{m2 25014}#)
- #{m1 24990}#
+ #{s1 24164}#
+ #{m2 24179}#)))))
+ (cons (let ((#{m2 24187}#
+ (car #{w2 24162}#)))
+ (if (null? #{m2 24187}#)
+ #{m1 24163}#
(append
- #{m1 24990}#
- #{m2 25014}#)))
- (let ((#{m2 25022}#
- (cdr #{w2 24989}#)))
- (if (null? #{m2 25022}#)
- #{s1 24991}#
+ #{m1 24163}#
+ #{m2 24187}#)))
+ (let ((#{m2 24195}#
+ (cdr #{w2 24162}#)))
+ (if (null? #{m2 24195}#)
+ #{s1 24164}#
(append
- #{s1 24991}#
- #{m2 25022}#))))))))
- (#{module 24982}#
- (vector-ref #{x 24962}# 3)))
+ #{s1 24164}#
+ #{m2 24195}#))))))))
+ (#{module 24155}#
+ (vector-ref #{x 24135}# 3)))
(vector
'syntax-object
- #{expression 24980}#
- #{wrap 24981}#
- #{module 24982}#))
- (if (null? #{x 24962}#)
- #{x 24962}#
+ #{expression 24153}#
+ #{wrap 24154}#
+ #{module 24155}#))
+ (if (null? #{x 24135}#)
+ #{x 24135}#
(vector
'syntax-object
- #{x 24962}#
- #{w 24738}#
+ #{x 24135}#
+ #{w 23911}#
#f))))))))
- #{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 25042}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{n 25044}#))
- (let ((#{v 25662}#
- (module-variable
- (if #{mod 25042}#
- (resolve-module
- (cdr #{mod 25042}#))
- (current-module))
- #{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 25671}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 25625}# #{t 25625}# '(global)))
- '(displaced-lexical))))))
- (let ((#{type 25046}# (car #{b 25045}#)))
- (if (let ((#{t 25080}# #{type 25046}#))
- (eqv? #{t 25080}# 'lexical))
+ #{situations 24115}#))))))
+ (#{f 23912}# #{when-list 23910}# '()))))
+ (#{syntax-type 4445}#
+ (lambda (#{e 24210}#
+ #{r 24211}#
+ #{w 24212}#
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#
+ #{for-car? 24216}#)
+ (if (symbol? #{e 24210}#)
+ (call-with-values
+ (lambda ()
+ (#{resolve-identifier 4433}#
+ #{e 24210}#
+ #{w 24212}#
+ #{r 24211}#
+ #{mod 24215}#
+ #t))
+ (lambda (#{type 24219}# #{value 24220}# #{mod* 24221}#)
+ (if (eqv? #{type 24219}# 'macro)
+ (if #{for-car? 24216}#
(values
- #{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 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 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 25040}#
- #{rib 25041}#
- #{mod 25042}#
- #f))
- (values
- #{type 25046}#
- (cdr #{b 25045}#)
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)))))))
- (if (pair? #{e 25037}#)
- (let ((#{first 25682}# (car #{e 25037}#)))
+ #{type 24219}#
+ #{value 24220}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (#{syntax-type 4445}#
+ (#{chi-macro 4449}#
+ #{value 24220}#
+ #{e 24210}#
+ #{r 24211}#
+ #{w 24212}#
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#)
+ #{r 24211}#
+ '(())
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#
+ #f))
+ (if (eqv? #{type 24219}# 'global)
+ (values
+ #{type 24219}#
+ #{value 24220}#
+ #{value 24220}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod* 24221}#)
+ (values
+ #{type 24219}#
+ #{value 24220}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)))))
+ (if (pair? #{e 24210}#)
+ (let ((#{first 24230}# (car #{e 24210}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4372}#
- #{first 25682}#
- #{r 25038}#
- #{w 25039}#
- #{s 25040}#
- #{rib 25041}#
- #{mod 25042}#
+ (#{syntax-type 4445}#
+ #{first 24230}#
+ #{r 24211}#
+ #{w 24212}#
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#
#t))
- (lambda (#{ftype 25684}#
- #{fval 25685}#
- #{fe 25686}#
- #{fw 25687}#
- #{fs 25688}#
- #{fmod 25689}#)
- (if (eqv? #{ftype 25684}# 'lexical)
+ (lambda (#{ftype 24232}#
+ #{fval 24233}#
+ #{fe 24234}#
+ #{fw 24235}#
+ #{fs 24236}#
+ #{fmod 24237}#)
+ (if (eqv? #{ftype 24232}# 'lexical)
(values
'lexical-call
- #{fval 25685}#
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
- (if (eqv? #{ftype 25684}# 'global)
+ #{fval 24233}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'global)
(values
'global-call
(vector
'syntax-object
- #{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}#
+ #{fval 24233}#
+ #{w 24212}#
+ #{fmod 24237}#)
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'macro)
+ (#{syntax-type 4445}#
+ (#{chi-macro 4449}#
+ #{fval 24233}#
+ #{e 24210}#
+ #{r 24211}#
+ #{w 24212}#
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#)
+ #{r 24211}#
'(())
- #{s 25040}#
- #{rib 25041}#
- #{mod 25042}#
- #{for-car? 25043}#)
- (if (eqv? #{ftype 25684}# 'module-ref)
+ #{s 24213}#
+ #{rib 24214}#
+ #{mod 24215}#
+ #{for-car? 24216}#)
+ (if (eqv? #{ftype 24232}# 'module-ref)
(call-with-values
(lambda ()
- (#{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)
+ (#{fval 24233}#
+ #{e 24210}#
+ #{r 24211}#
+ #{w 24212}#))
+ (lambda (#{e 24258}#
+ #{r 24259}#
+ #{w 24260}#
+ #{s 24261}#
+ #{mod 24262}#)
+ (#{syntax-type 4445}#
+ #{e 24258}#
+ #{r 24259}#
+ #{w 24260}#
+ #{s 24261}#
+ #{rib 24214}#
+ #{mod 24262}#
+ #{for-car? 24216}#)))
+ (if (eqv? #{ftype 24232}# 'core)
(values
'core-form
- #{fval 25685}#
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
- (if (eqv? #{ftype 25684}# 'local-syntax)
+ #{fval 24233}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'local-syntax)
(values
'local-syntax-form
- #{fval 25685}#
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
- (if (eqv? #{ftype 25684}# 'begin)
+ #{fval 24233}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'begin)
(values
'begin-form
#f
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
- (if (eqv? #{ftype 25684}# 'eval-when)
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'eval-when)
(values
'eval-when-form
#f
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
- (if (eqv? #{ftype 25684}# 'define)
- (let ((#{tmp 25731}#
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
+ (if (eqv? #{ftype 24232}# 'define)
+ (let ((#{tmp 24279}#
($sc-dispatch
- #{e 25037}#
+ #{e 24210}#
'(_ any any))))
- (if (if #{tmp 25731}#
+ (if (if #{tmp 24279}#
(@apply
- (lambda (#{name 25735}#
- #{val 25736}#)
- (if (symbol? #{name 25735}#)
+ (lambda (#{name 24283}#
+ #{val 24284}#)
+ (if (symbol? #{name 24283}#)
#t
(if (if (vector?
- #{name 25735}#)
+ #{name 24283}#)
(if (= (vector-length
- #{name 25735}#)
+ #{name 24283}#)
4)
(eq? (vector-ref
- #{name 25735}#
+ #{name 24283}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25735}#
+ #{name 24283}#
1))
#f)))
- #{tmp 25731}#)
+ #{tmp 24279}#)
#f)
(@apply
- (lambda (#{name 25763}# #{val 25764}#)
+ (lambda (#{name 24311}# #{val 24312}#)
(values
'define-form
- #{name 25763}#
- #{val 25764}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#))
- #{tmp 25731}#)
- (let ((#{tmp 25765}#
+ #{name 24311}#
+ #{val 24312}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#))
+ #{tmp 24279}#)
+ (let ((#{tmp 24313}#
($sc-dispatch
- #{e 25037}#
+ #{e 24210}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 25765}#
+ (if (if #{tmp 24313}#
(@apply
- (lambda (#{name 25769}#
- #{args 25770}#
- #{e1 25771}#
- #{e2 25772}#)
+ (lambda (#{name 24317}#
+ #{args 24318}#
+ #{e1 24319}#
+ #{e2 24320}#)
(if (if (symbol?
- #{name 25769}#)
+ #{name 24317}#)
#t
(if (if (vector?
- #{name 25769}#)
+ #{name 24317}#)
(if (= (vector-length
- #{name 25769}#)
+ #{name 24317}#)
4)
(eq? (vector-ref
- #{name 25769}#
+ #{name 24317}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25769}#
+ #{name 24317}#
1))
#f))
- (#{valid-bound-ids? 4363}#
- (#{lambda-var-list 4388}#
- #{args 25770}#))
+ (#{valid-bound-ids? 4436}#
+ (#{lambda-var-list 4461}#
+ #{args 24318}#))
#f))
- #{tmp 25765}#)
+ #{tmp 24313}#)
#f)
(@apply
- (lambda (#{name 26253}#
- #{args 26254}#
- #{e1 26255}#
- #{e2 26256}#)
+ (lambda (#{name 24801}#
+ #{args 24802}#
+ #{e1 24803}#
+ #{e2 24804}#)
(values
'define-form
- (if (if (null? (car #{w 25039}#))
- (null? (cdr #{w 25039}#))
+ (if (if (null? (car #{w 24212}#))
+ (null? (cdr #{w 24212}#))
#f)
- #{name 26253}#
+ #{name 24801}#
(if (if (vector?
- #{name 26253}#)
+ #{name 24801}#)
(if (= (vector-length
- #{name 26253}#)
+ #{name 24801}#)
4)
(eq? (vector-ref
- #{name 26253}#
+ #{name 24801}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26286}#
+ (let ((#{expression 24834}#
(vector-ref
- #{name 26253}#
+ #{name 24801}#
1))
- (#{wrap 26287}#
- (let ((#{w2 26297}#
+ (#{wrap 24835}#
+ (let ((#{w2 24845}#
(vector-ref
- #{name 26253}#
+ #{name 24801}#
2)))
- (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}#
+ (let ((#{m1 24846}#
+ (car #{w 24212}#))
+ (#{s1 24847}#
+ (cdr #{w 24212}#)))
+ (if (null? #{m1 24846}#)
+ (if (null? #{s1 24847}#)
+ #{w2 24845}#
+ (cons (car #{w2 24845}#)
+ (let ((#{m2 24864}#
+ (cdr #{w2 24845}#)))
+ (if (null? #{m2 24864}#)
+ #{s1 24847}#
(append
- #{s1 26299}#
- #{m2 26316}#)))))
- (cons (let ((#{m2 26324}#
- (car #{w2 26297}#)))
- (if (null? #{m2 26324}#)
- #{m1 26298}#
+ #{s1 24847}#
+ #{m2 24864}#)))))
+ (cons (let ((#{m2 24872}#
+ (car #{w2 24845}#)))
+ (if (null? #{m2 24872}#)
+ #{m1 24846}#
(append
- #{m1 26298}#
- #{m2 26324}#)))
- (let ((#{m2 26332}#
- (cdr #{w2 26297}#)))
- (if (null? #{m2 26332}#)
- #{s1 26299}#
+ #{m1 24846}#
+ #{m2 24872}#)))
+ (let ((#{m2 24880}#
+ (cdr #{w2 24845}#)))
+ (if (null? #{m2 24880}#)
+ #{s1 24847}#
(append
- #{s1 26299}#
- #{m2 26332}#))))))))
- (#{module 26288}#
+ #{s1 24847}#
+ #{m2 24880}#))))))))
+ (#{module 24836}#
(vector-ref
- #{name 26253}#
+ #{name 24801}#
3)))
(vector
'syntax-object
- #{expression 26286}#
- #{wrap 26287}#
- #{module 26288}#))
- (if (null? #{name 26253}#)
- #{name 26253}#
+ #{expression 24834}#
+ #{wrap 24835}#
+ #{module 24836}#))
+ (if (null? #{name 24801}#)
+ #{name 24801}#
(vector
'syntax-object
- #{name 26253}#
- #{w 25039}#
- #{mod 25042}#))))
- (let ((#{e 26358}#
+ #{name 24801}#
+ #{w 24212}#
+ #{mod 24215}#))))
+ (let ((#{e 24906}#
(cons '#(syntax-object
lambda
((top)
@@ -1955,10 +2068,10 @@
(top)
(top)
(top))
- #("i1886"
- "i1887"
- "i1888"
- "i1889"))
+ #("i1955"
+ "i1956"
+ "i1957"
+ "i1958"))
#(ribcage
()
()
@@ -1980,12 +2093,12 @@
(top)
(top)
(top))
- #("i1839"
- "i1840"
- "i1841"
- "i1842"
- "i1843"
- "i1844"))
+ #("i1908"
+ "i1909"
+ "i1910"
+ "i1911"
+ "i1912"
+ "i1913"))
#(ribcage
()
()
@@ -1993,7 +2106,7 @@
#(ribcage
#(first)
#((top))
- #("i1831"))
+ #("i1900"))
#(ribcage
()
()
@@ -2021,13 +2134,13 @@
(top)
(top)
(top))
- #("i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"))
+ #("i1879"
+ "i1880"
+ "i1881"
+ "i1882"
+ "i1883"
+ "i1884"
+ "i1885"))
#(ribcage
(lambda-var-list
gen-var
@@ -2057,6 +2170,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -2094,7 +2208,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -2340,13 +2453,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -2355,19 +2468,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -2452,202 +2565,206 @@
(top))
("i46"
"i45"
- "i44")))
+ "i44"))
+ #(ribcage
+ ()
+ ()
+ ()))
(hygiene
guile))
- (let ((#{x 26362}#
- (cons #{args 26254}#
- (cons #{e1 26255}#
- #{e2 26256}#))))
- (if (if (null? (car #{w 25039}#))
- (null? (cdr #{w 25039}#))
+ (let ((#{x 24910}#
+ (cons #{args 24802}#
+ (cons #{e1 24803}#
+ #{e2 24804}#))))
+ (if (if (null? (car #{w 24212}#))
+ (null? (cdr #{w 24212}#))
#f)
- #{x 26362}#
+ #{x 24910}#
(if (if (vector?
- #{x 26362}#)
+ #{x 24910}#)
(if (= (vector-length
- #{x 26362}#)
+ #{x 24910}#)
4)
(eq? (vector-ref
- #{x 26362}#
+ #{x 24910}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26380}#
+ (let ((#{expression 24928}#
(vector-ref
- #{x 26362}#
+ #{x 24910}#
1))
- (#{wrap 26381}#
- (let ((#{w2 26389}#
+ (#{wrap 24929}#
+ (let ((#{w2 24937}#
(vector-ref
- #{x 26362}#
+ #{x 24910}#
2)))
- (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}#
+ (let ((#{m1 24938}#
+ (car #{w 24212}#))
+ (#{s1 24939}#
+ (cdr #{w 24212}#)))
+ (if (null? #{m1 24938}#)
+ (if (null? #{s1 24939}#)
+ #{w2 24937}#
+ (cons (car #{w2 24937}#)
+ (let ((#{m2 24954}#
+ (cdr #{w2 24937}#)))
+ (if (null? #{m2 24954}#)
+ #{s1 24939}#
(append
- #{s1 26391}#
- #{m2 26406}#)))))
- (cons (let ((#{m2 26414}#
- (car #{w2 26389}#)))
- (if (null? #{m2 26414}#)
- #{m1 26390}#
+ #{s1 24939}#
+ #{m2 24954}#)))))
+ (cons (let ((#{m2 24962}#
+ (car #{w2 24937}#)))
+ (if (null? #{m2 24962}#)
+ #{m1 24938}#
(append
- #{m1 26390}#
- #{m2 26414}#)))
- (let ((#{m2 26422}#
- (cdr #{w2 26389}#)))
- (if (null? #{m2 26422}#)
- #{s1 26391}#
+ #{m1 24938}#
+ #{m2 24962}#)))
+ (let ((#{m2 24970}#
+ (cdr #{w2 24937}#)))
+ (if (null? #{m2 24970}#)
+ #{s1 24939}#
(append
- #{s1 26391}#
- #{m2 26422}#))))))))
- (#{module 26382}#
+ #{s1 24939}#
+ #{m2 24970}#))))))))
+ (#{module 24930}#
(vector-ref
- #{x 26362}#
+ #{x 24910}#
3)))
(vector
'syntax-object
- #{expression 26380}#
- #{wrap 26381}#
- #{module 26382}#))
- (if (null? #{x 26362}#)
- #{x 26362}#
+ #{expression 24928}#
+ #{wrap 24929}#
+ #{module 24930}#))
+ (if (null? #{x 24910}#)
+ #{x 24910}#
(vector
'syntax-object
- #{x 26362}#
- #{w 25039}#
- #{mod 25042}#))))))))
+ #{x 24910}#
+ #{w 24212}#
+ #{mod 24215}#))))))))
(begin
- (if (if (pair? #{e 26358}#)
- #{s 25040}#
+ (if (if (pair? #{e 24906}#)
+ #{s 24213}#
#f)
(set-source-properties!
- #{e 26358}#
- #{s 25040}#))
- #{e 26358}#))
+ #{e 24906}#
+ #{s 24213}#))
+ #{e 24906}#))
'(())
- #{s 25040}#
- #{mod 25042}#))
- #{tmp 25765}#)
- (let ((#{tmp 26441}#
+ #{s 24213}#
+ #{mod 24215}#))
+ #{tmp 24313}#)
+ (let ((#{tmp 24989}#
($sc-dispatch
- #{e 25037}#
+ #{e 24210}#
'(_ any))))
- (if (if #{tmp 26441}#
+ (if (if #{tmp 24989}#
(@apply
- (lambda (#{name 26445}#)
+ (lambda (#{name 24993}#)
(if (symbol?
- #{name 26445}#)
+ #{name 24993}#)
#t
(if (if (vector?
- #{name 26445}#)
+ #{name 24993}#)
(if (= (vector-length
- #{name 26445}#)
+ #{name 24993}#)
4)
(eq? (vector-ref
- #{name 26445}#
+ #{name 24993}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26445}#
+ #{name 24993}#
1))
#f)))
- #{tmp 26441}#)
+ #{tmp 24989}#)
#f)
(@apply
- (lambda (#{name 26472}#)
+ (lambda (#{name 25020}#)
(values
'define-form
- (if (if (null? (car #{w 25039}#))
- (null? (cdr #{w 25039}#))
+ (if (if (null? (car #{w 24212}#))
+ (null? (cdr #{w 24212}#))
#f)
- #{name 26472}#
+ #{name 25020}#
(if (if (vector?
- #{name 26472}#)
+ #{name 25020}#)
(if (= (vector-length
- #{name 26472}#)
+ #{name 25020}#)
4)
(eq? (vector-ref
- #{name 26472}#
+ #{name 25020}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 26502}#
+ (let ((#{expression 25050}#
(vector-ref
- #{name 26472}#
+ #{name 25020}#
1))
- (#{wrap 26503}#
- (let ((#{w2 26513}#
+ (#{wrap 25051}#
+ (let ((#{w2 25061}#
(vector-ref
- #{name 26472}#
+ #{name 25020}#
2)))
- (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}#
+ (let ((#{m1 25062}#
+ (car #{w 24212}#))
+ (#{s1 25063}#
+ (cdr #{w 24212}#)))
+ (if (null? #{m1 25062}#)
+ (if (null? #{s1 25063}#)
+ #{w2 25061}#
+ (cons (car #{w2 25061}#)
+ (let ((#{m2 25080}#
+ (cdr #{w2 25061}#)))
+ (if (null? #{m2 25080}#)
+ #{s1 25063}#
(append
- #{s1 26515}#
- #{m2 26532}#)))))
- (cons (let ((#{m2 26540}#
- (car #{w2 26513}#)))
- (if (null? #{m2 26540}#)
- #{m1 26514}#
+ #{s1 25063}#
+ #{m2 25080}#)))))
+ (cons (let ((#{m2 25088}#
+ (car #{w2 25061}#)))
+ (if (null? #{m2 25088}#)
+ #{m1 25062}#
(append
- #{m1 26514}#
- #{m2 26540}#)))
- (let ((#{m2 26548}#
- (cdr #{w2 26513}#)))
- (if (null? #{m2 26548}#)
- #{s1 26515}#
+ #{m1 25062}#
+ #{m2 25088}#)))
+ (let ((#{m2 25096}#
+ (cdr #{w2 25061}#)))
+ (if (null? #{m2 25096}#)
+ #{s1 25063}#
(append
- #{s1 26515}#
- #{m2 26548}#))))))))
- (#{module 26504}#
+ #{s1 25063}#
+ #{m2 25096}#))))))))
+ (#{module 25052}#
(vector-ref
- #{name 26472}#
+ #{name 25020}#
3)))
(vector
'syntax-object
- #{expression 26502}#
- #{wrap 26503}#
- #{module 26504}#))
- (if (null? #{name 26472}#)
- #{name 26472}#
+ #{expression 25050}#
+ #{wrap 25051}#
+ #{module 25052}#))
+ (if (null? #{name 25020}#)
+ #{name 25020}#
(vector
'syntax-object
- #{name 26472}#
- #{w 25039}#
- #{mod 25042}#))))
+ #{name 25020}#
+ #{w 24212}#
+ #{mod 24215}#))))
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1899"))
+ #("i1968"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2663,17 +2780,17 @@
(top)
(top)
(top))
- #("i1839"
- "i1840"
- "i1841"
- "i1842"
- "i1843"
- "i1844"))
+ #("i1908"
+ "i1909"
+ "i1910"
+ "i1911"
+ "i1912"
+ "i1913"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1831"))
+ #("i1900"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2692,13 +2809,13 @@
(top)
(top)
(top))
- #("i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"))
+ #("i1879"
+ "i1880"
+ "i1881"
+ "i1882"
+ "i1883"
+ "i1884"
+ "i1885"))
#(ribcage
(lambda-var-list
gen-var
@@ -2728,6 +2845,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -2765,7 +2883,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -3011,13 +3128,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -3026,19 +3143,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -3121,7 +3238,8 @@
((top) (top) (top))
("i46"
"i45"
- "i44")))
+ "i44"))
+ #(ribcage () () ()))
(hygiene guile))
#(syntax-object
#f
@@ -3129,7 +3247,7 @@
#(ribcage
#(name)
#((top))
- #("i1899"))
+ #("i1968"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3145,17 +3263,17 @@
(top)
(top)
(top))
- #("i1839"
- "i1840"
- "i1841"
- "i1842"
- "i1843"
- "i1844"))
+ #("i1908"
+ "i1909"
+ "i1910"
+ "i1911"
+ "i1912"
+ "i1913"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1831"))
+ #("i1900"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3174,13 +3292,13 @@
(top)
(top)
(top))
- #("i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"))
+ #("i1879"
+ "i1880"
+ "i1881"
+ "i1882"
+ "i1883"
+ "i1884"
+ "i1885"))
#(ribcage
(lambda-var-list
gen-var
@@ -3210,6 +3328,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -3247,7 +3366,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -3493,13 +3611,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -3508,19 +3626,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -3603,7 +3721,8 @@
((top) (top) (top))
("i46"
"i45"
- "i44")))
+ "i44"))
+ #(ribcage () () ()))
(hygiene guile))
#(syntax-object
#f
@@ -3611,7 +3730,7 @@
#(ribcage
#(name)
#((top))
- #("i1899"))
+ #("i1968"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3627,17 +3746,17 @@
(top)
(top)
(top))
- #("i1839"
- "i1840"
- "i1841"
- "i1842"
- "i1843"
- "i1844"))
+ #("i1908"
+ "i1909"
+ "i1910"
+ "i1911"
+ "i1912"
+ "i1913"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1831"))
+ #("i1900"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3656,13 +3775,13 @@
(top)
(top)
(top))
- #("i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"
- "i1808"
- "i1809"))
+ #("i1879"
+ "i1880"
+ "i1881"
+ "i1882"
+ "i1883"
+ "i1884"
+ "i1885"))
#(ribcage
(lambda-var-list
gen-var
@@ -3692,6 +3811,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -3729,7 +3849,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -3975,13 +4094,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -3990,19 +4109,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -4085,2015 +4204,2081 @@
((top) (top) (top))
("i46"
"i45"
- "i44")))
+ "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
'(())
- #{s 25040}#
- #{mod 25042}#))
- #{tmp 26441}#)
+ #{s 24213}#
+ #{mod 24215}#))
+ #{tmp 24989}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 25037}#)))))))
- (if (eqv? #{ftype 25684}# 'define-syntax)
- (let ((#{tmp 26587}#
+ #{e 24210}#)))))))
+ (if (eqv? #{ftype 24232}# 'define-syntax)
+ (let ((#{tmp 25135}#
($sc-dispatch
- #{e 25037}#
+ #{e 24210}#
'(_ any any))))
- (if (if #{tmp 26587}#
+ (if (if #{tmp 25135}#
(@apply
- (lambda (#{name 26591}#
- #{val 26592}#)
- (if (symbol? #{name 26591}#)
+ (lambda (#{name 25139}#
+ #{val 25140}#)
+ (if (symbol? #{name 25139}#)
#t
(if (if (vector?
- #{name 26591}#)
+ #{name 25139}#)
(if (= (vector-length
- #{name 26591}#)
+ #{name 25139}#)
4)
(eq? (vector-ref
- #{name 26591}#
+ #{name 25139}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26591}#
+ #{name 25139}#
1))
#f)))
- #{tmp 26587}#)
+ #{tmp 25135}#)
#f)
(@apply
- (lambda (#{name 26619}#
- #{val 26620}#)
+ (lambda (#{name 25167}#
+ #{val 25168}#)
(values
'define-syntax-form
- #{name 26619}#
- #{val 26620}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#))
- #{tmp 26587}#)
+ #{name 25167}#
+ #{val 25168}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#))
+ #{tmp 25135}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 25037}#)))
- (values
- 'call
- #f
- #{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)
+ #{e 24210}#)))
+ (if (eqv? #{ftype 24232}#
+ 'define-syntax-parameter)
+ (let ((#{tmp 25179}#
+ ($sc-dispatch
+ #{e 24210}#
+ '(_ any any))))
+ (if (if #{tmp 25179}#
+ (@apply
+ (lambda (#{name 25183}#
+ #{val 25184}#)
+ (if (symbol? #{name 25183}#)
+ #t
+ (if (if (vector?
+ #{name 25183}#)
+ (if (= (vector-length
+ #{name 25183}#)
+ 4)
+ (eq? (vector-ref
+ #{name 25183}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 25183}#
+ 1))
+ #f)))
+ #{tmp 25179}#)
+ #f)
+ (@apply
+ (lambda (#{name 25211}#
+ #{val 25212}#)
+ (values
+ 'define-syntax-parameter-form
+ #{name 25211}#
+ #{val 25212}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#))
+ #{tmp 25179}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 24210}#)))
+ (values
+ 'call
+ #f
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)))))))))))))))
+ (if (if (vector? #{e 24210}#)
+ (if (= (vector-length #{e 24210}#) 4)
+ (eq? (vector-ref #{e 24210}# 0) 'syntax-object)
#f)
#f)
- (#{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}#)
+ (#{syntax-type 4445}#
+ (vector-ref #{e 24210}# 1)
+ #{r 24211}#
+ (let ((#{w2 25237}# (vector-ref #{e 24210}# 2)))
+ (let ((#{m1 25238}# (car #{w 24212}#))
+ (#{s1 25239}# (cdr #{w 24212}#)))
+ (if (null? #{m1 25238}#)
+ (if (null? #{s1 25239}#)
+ #{w2 25237}#
+ (cons (car #{w2 25237}#)
+ (let ((#{m2 25250}# (cdr #{w2 25237}#)))
+ (if (null? #{m2 25250}#)
+ #{s1 25239}#
+ (append #{s1 25239}# #{m2 25250}#)))))
+ (cons (let ((#{m2 25258}# (car #{w2 25237}#)))
+ (if (null? #{m2 25258}#)
+ #{m1 25238}#
+ (append #{m1 25238}# #{m2 25258}#)))
+ (let ((#{m2 25266}# (cdr #{w2 25237}#)))
+ (if (null? #{m2 25266}#)
+ #{s1 25239}#
+ (append #{s1 25239}# #{m2 25266}#)))))))
+ (let ((#{t 25271}#
+ (#{source-annotation 4407}# #{e 24210}#)))
+ (if #{t 25271}# #{t 25271}# #{s 24213}#))
+ #{rib 24214}#
+ (let ((#{t 25569}# (vector-ref #{e 24210}# 3)))
+ (if #{t 25569}# #{t 25569}# #{mod 24215}#))
+ #{for-car? 24216}#)
+ (if (self-evaluating? #{e 24210}#)
(values
'constant
#f
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)
(values
'other
#f
- #{e 25037}#
- #{w 25039}#
- #{s 25040}#
- #{mod 25042}#)))))))
- (#{chi 4373}#
- (lambda (#{e 26986}#
- #{r 26987}#
- #{w 26988}#
- #{mod 26989}#)
+ #{e 24210}#
+ #{w 24212}#
+ #{s 24213}#
+ #{mod 24215}#)))))))
+ (#{chi 4446}#
+ (lambda (#{e 25578}#
+ #{r 25579}#
+ #{w 25580}#
+ #{mod 25581}#)
(call-with-values
(lambda ()
- (#{syntax-type 4372}#
- #{e 26986}#
- #{r 26987}#
- #{w 26988}#
- (#{source-annotation 4334}# #{e 26986}#)
+ (#{syntax-type 4445}#
+ #{e 25578}#
+ #{r 25579}#
+ #{w 25580}#
+ (#{source-annotation 4407}# #{e 25578}#)
#f
- #{mod 26989}#
+ #{mod 25581}#
#f))
- (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)
+ (lambda (#{type 25785}#
+ #{value 25786}#
+ #{e 25787}#
+ #{w 25788}#
+ #{s 25789}#
+ #{mod 25790}#)
+ (#{chi-expr 4447}#
+ #{type 25785}#
+ #{value 25786}#
+ #{e 25787}#
+ #{r 25579}#
+ #{w 25788}#
+ #{s 25789}#
+ #{mod 25790}#)))))
+ (#{chi-expr 4447}#
+ (lambda (#{type 25793}#
+ #{value 25794}#
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
+ (if (eqv? #{type 25793}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 27206}#
- #{e 27203}#
- #{value 27202}#)
- (if (if (eqv? #{type 27201}# 'core)
+ #{s 25798}#
+ #{e 25795}#
+ #{value 25794}#)
+ (if (if (eqv? #{type 25793}# 'core)
#t
- (eqv? #{type 27201}# 'core-form))
- (#{value 27202}#
- #{e 27203}#
- #{r 27204}#
- #{w 27205}#
- #{s 27206}#
- #{mod 27207}#)
- (if (eqv? #{type 27201}# 'module-ref)
+ (eqv? #{type 25793}# 'core-form))
+ (#{value 25794}#
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
+ (if (eqv? #{type 25793}# 'module-ref)
(call-with-values
(lambda ()
- (#{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}#
+ (#{value 25794}#
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#))
+ (lambda (#{e 25825}#
+ #{r 25826}#
+ #{w 25827}#
+ #{s 25828}#
+ #{mod 25829}#)
+ (#{chi 4446}#
+ #{e 25825}#
+ #{r 25826}#
+ #{w 25827}#
+ #{mod 25829}#)))
+ (if (eqv? #{type 25793}# 'lexical-call)
+ (#{chi-call 4448}#
+ (let ((#{id 26010}# (car #{e 25795}#)))
+ (#{build-lexical-reference 4383}#
'fun
- (#{source-annotation 4334}# #{id 27418}#)
- (if (if (vector? #{id 27418}#)
- (if (= (vector-length #{id 27418}#) 4)
- (eq? (vector-ref #{id 27418}# 0) 'syntax-object)
+ (#{source-annotation 4407}# #{id 26010}#)
+ (if (if (vector? #{id 26010}#)
+ (if (= (vector-length #{id 26010}#) 4)
+ (eq? (vector-ref #{id 26010}# 0) 'syntax-object)
#f)
#f)
- (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->datum #{id 26010}#)
+ #{id 26010}#)
+ #{value 25794}#))
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
+ (if (eqv? #{type 25793}# 'global-call)
+ (#{chi-call 4448}#
+ (#{build-global-reference 4386}#
+ (#{source-annotation 4407}# (car #{e 25795}#))
+ (if (if (vector? #{value 25794}#)
+ (if (= (vector-length #{value 25794}#) 4)
+ (eq? (vector-ref #{value 25794}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 27202}# 1)
- #{value 27202}#)
- (if (if (vector? #{value 27202}#)
- (if (= (vector-length #{value 27202}#) 4)
- (eq? (vector-ref #{value 27202}# 0)
+ (vector-ref #{value 25794}# 1)
+ #{value 25794}#)
+ (if (if (vector? #{value 25794}#)
+ (if (= (vector-length #{value 25794}#) 4)
+ (eq? (vector-ref #{value 25794}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (vector-ref #{value 25794}# 3)
+ #{mod 25799}#))
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
+ (if (eqv? #{type 25793}# 'constant)
+ (let ((#{exp 26732}#
+ (#{strip 4459}#
+ (let ((#{x 26745}#
(begin
- (if (if (pair? #{e 27203}#)
- #{s 27206}#
+ (if (if (pair? #{e 25795}#)
+ #{s 25798}#
#f)
(set-source-properties!
- #{e 27203}#
- #{s 27206}#))
- #{e 27203}#)))
- (if (if (null? (car #{w 27205}#))
- (null? (cdr #{w 27205}#))
+ #{e 25795}#
+ #{s 25798}#))
+ #{e 25795}#)))
+ (if (if (null? (car #{w 25797}#))
+ (null? (cdr #{w 25797}#))
#f)
- #{x 28153}#
- (if (if (vector? #{x 28153}#)
- (if (= (vector-length #{x 28153}#) 4)
- (eq? (vector-ref #{x 28153}# 0)
+ #{x 26745}#
+ (if (if (vector? #{x 26745}#)
+ (if (= (vector-length #{x 26745}#) 4)
+ (eq? (vector-ref #{x 26745}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 26777}#
+ (vector-ref #{x 26745}# 1))
+ (#{wrap 26778}#
+ (let ((#{w2 26786}#
+ (vector-ref #{x 26745}# 2)))
+ (let ((#{m1 26787}#
+ (car #{w 25797}#))
+ (#{s1 26788}#
+ (cdr #{w 25797}#)))
+ (if (null? #{m1 26787}#)
+ (if (null? #{s1 26788}#)
+ #{w2 26786}#
+ (cons (car #{w2 26786}#)
+ (let ((#{m2 26803}#
+ (cdr #{w2 26786}#)))
+ (if (null? #{m2 26803}#)
+ #{s1 26788}#
(append
- #{s1 28196}#
- #{m2 28211}#)))))
- (cons (let ((#{m2 28219}#
- (car #{w2 28194}#)))
- (if (null? #{m2 28219}#)
- #{m1 28195}#
+ #{s1 26788}#
+ #{m2 26803}#)))))
+ (cons (let ((#{m2 26811}#
+ (car #{w2 26786}#)))
+ (if (null? #{m2 26811}#)
+ #{m1 26787}#
(append
- #{m1 28195}#
- #{m2 28219}#)))
- (let ((#{m2 28227}#
- (cdr #{w2 28194}#)))
- (if (null? #{m2 28227}#)
- #{s1 28196}#
+ #{m1 26787}#
+ #{m2 26811}#)))
+ (let ((#{m2 26819}#
+ (cdr #{w2 26786}#)))
+ (if (null? #{m2 26819}#)
+ #{s1 26788}#
(append
- #{s1 28196}#
- #{m2 28227}#))))))))
- (#{module 28187}#
- (vector-ref #{x 28153}# 3)))
+ #{s1 26788}#
+ #{m2 26819}#))))))))
+ (#{module 26779}#
+ (vector-ref #{x 26745}# 3)))
(vector
'syntax-object
- #{expression 28185}#
- #{wrap 28186}#
- #{module 28187}#))
- (if (null? #{x 28153}#)
- #{x 28153}#
+ #{expression 26777}#
+ #{wrap 26778}#
+ #{module 26779}#))
+ (if (null? #{x 26745}#)
+ #{x 26745}#
(vector
'syntax-object
- #{x 28153}#
- #{w 27205}#
- #{mod 27207}#)))))
+ #{x 26745}#
+ #{w 25797}#
+ #{mod 25799}#)))))
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 27206}#
- #{exp 28140}#))
- (if (eqv? #{type 27201}# 'global)
- (#{analyze-variable 4312}#
- #{mod 27207}#
- #{value 27202}#
- (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#)
+ #{s 25798}#
+ #{exp 26732}#))
+ (if (eqv? #{type 25793}# 'global)
+ (#{analyze-variable 4385}#
+ #{mod 25799}#
+ #{value 25794}#
+ (lambda (#{mod 26844}# #{var 26845}# #{public? 26846}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 27206}#
- #{mod 28252}#
- #{var 28253}#
- #{public? 28254}#))
- (lambda (#{var 28262}#)
+ #{s 25798}#
+ #{mod 26844}#
+ #{var 26845}#
+ #{public? 26846}#))
+ (lambda (#{var 26854}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{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}#
+ #{s 25798}#
+ #{var 26854}#)))
+ (if (eqv? #{type 25793}# 'call)
+ (#{chi-call 4448}#
+ (#{chi 4446}#
+ (car #{e 25795}#)
+ #{r 25796}#
+ #{w 25797}#
+ #{mod 25799}#)
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
+ (if (eqv? #{type 25793}# 'begin-form)
+ (let ((#{tmp 27032}#
($sc-dispatch
- #{e 27203}#
+ #{e 25795}#
'(_ any . each-any))))
- (if #{tmp 28440}#
+ (if #{tmp 27032}#
(@apply
- (lambda (#{e1 28444}# #{e2 28445}#)
- (#{chi-sequence 4368}#
- (cons #{e1 28444}# #{e2 28445}#)
- #{r 27204}#
- #{w 27205}#
- #{s 27206}#
- #{mod 27207}#))
- #{tmp 28440}#)
+ (lambda (#{e1 27036}# #{e2 27037}#)
+ (#{chi-sequence 4441}#
+ (cons #{e1 27036}# #{e2 27037}#)
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#))
+ #{tmp 27032}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{e 25795}#)))
+ (if (eqv? #{type 25793}# 'local-syntax-form)
+ (#{chi-local-syntax 4451}#
+ #{value 25794}#
+ #{e 25795}#
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#
+ #{chi-sequence 4441}#)
+ (if (eqv? #{type 25793}# 'eval-when-form)
+ (let ((#{tmp 27217}#
($sc-dispatch
- #{e 27203}#
+ #{e 25795}#
'(_ each-any any . each-any))))
- (if #{tmp 28625}#
+ (if #{tmp 27217}#
(@apply
- (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}#)
+ (lambda (#{x 27221}#
+ #{e1 27222}#
+ #{e2 27223}#)
+ (let ((#{when-list 27224}#
+ (#{chi-when-list 4444}#
+ #{e 25795}#
+ #{x 27221}#
+ #{w 25797}#)))
+ (if (memq 'eval #{when-list 27224}#)
+ (#{chi-sequence 4441}#
+ (cons #{e1 27222}# #{e2 27223}#)
+ #{r 25796}#
+ #{w 25797}#
+ #{s 25798}#
+ #{mod 25799}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 28625}#)
+ #{tmp 27217}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 27203}#)))
- (if (if (eqv? #{type 27201}# 'define-form)
+ #{e 25795}#)))
+ (if (if (eqv? #{type 25793}# 'define-form)
#t
- (eqv? #{type 27201}# 'define-syntax-form))
+ (if (eqv? #{type 25793}#
+ 'define-syntax-form)
+ #t
+ (eqv? #{type 25793}#
+ 'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e 27203}#
- (if (if (null? (car #{w 27205}#))
- (null? (cdr #{w 27205}#))
+ #{e 25795}#
+ (if (if (null? (car #{w 25797}#))
+ (null? (cdr #{w 25797}#))
#f)
- #{value 27202}#
- (if (if (vector? #{value 27202}#)
- (if (= (vector-length #{value 27202}#)
+ #{value 25794}#
+ (if (if (vector? #{value 25794}#)
+ (if (= (vector-length #{value 25794}#)
4)
- (eq? (vector-ref #{value 27202}# 0)
+ (eq? (vector-ref #{value 25794}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28783}#
- (vector-ref #{value 27202}# 1))
- (#{wrap 28784}#
- (let ((#{w2 28794}#
+ (let ((#{expression 27378}#
+ (vector-ref #{value 25794}# 1))
+ (#{wrap 27379}#
+ (let ((#{w2 27389}#
(vector-ref
- #{value 27202}#
+ #{value 25794}#
2)))
- (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}#
+ (let ((#{m1 27390}#
+ (car #{w 25797}#))
+ (#{s1 27391}#
+ (cdr #{w 25797}#)))
+ (if (null? #{m1 27390}#)
+ (if (null? #{s1 27391}#)
+ #{w2 27389}#
+ (cons (car #{w2 27389}#)
+ (let ((#{m2 27408}#
+ (cdr #{w2 27389}#)))
+ (if (null? #{m2 27408}#)
+ #{s1 27391}#
(append
- #{s1 28796}#
- #{m2 28813}#)))))
- (cons (let ((#{m2 28821}#
- (car #{w2 28794}#)))
- (if (null? #{m2 28821}#)
- #{m1 28795}#
+ #{s1 27391}#
+ #{m2 27408}#)))))
+ (cons (let ((#{m2 27416}#
+ (car #{w2 27389}#)))
+ (if (null? #{m2 27416}#)
+ #{m1 27390}#
(append
- #{m1 28795}#
- #{m2 28821}#)))
- (let ((#{m2 28829}#
- (cdr #{w2 28794}#)))
- (if (null? #{m2 28829}#)
- #{s1 28796}#
+ #{m1 27390}#
+ #{m2 27416}#)))
+ (let ((#{m2 27424}#
+ (cdr #{w2 27389}#)))
+ (if (null? #{m2 27424}#)
+ #{s1 27391}#
(append
- #{s1 28796}#
- #{m2 28829}#))))))))
- (#{module 28785}#
- (vector-ref #{value 27202}# 3)))
+ #{s1 27391}#
+ #{m2 27424}#))))))))
+ (#{module 27380}#
+ (vector-ref #{value 25794}# 3)))
(vector
'syntax-object
- #{expression 28783}#
- #{wrap 28784}#
- #{module 28785}#))
- (if (null? #{value 27202}#)
- #{value 27202}#
+ #{expression 27378}#
+ #{wrap 27379}#
+ #{module 27380}#))
+ (if (null? #{value 25794}#)
+ #{value 25794}#
(vector
'syntax-object
- #{value 27202}#
- #{w 27205}#
- #{mod 27207}#)))))
- (if (eqv? #{type 27201}# 'syntax)
+ #{value 25794}#
+ #{w 25797}#
+ #{mod 25799}#)))))
+ (if (eqv? #{type 25793}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (let ((#{x 28864}#
+ (let ((#{x 27459}#
(begin
- (if (if (pair? #{e 27203}#)
- #{s 27206}#
+ (if (if (pair? #{e 25795}#)
+ #{s 25798}#
#f)
(set-source-properties!
- #{e 27203}#
- #{s 27206}#))
- #{e 27203}#)))
- (if (if (null? (car #{w 27205}#))
- (null? (cdr #{w 27205}#))
+ #{e 25795}#
+ #{s 25798}#))
+ #{e 25795}#)))
+ (if (if (null? (car #{w 25797}#))
+ (null? (cdr #{w 25797}#))
#f)
- #{x 28864}#
- (if (if (vector? #{x 28864}#)
- (if (= (vector-length #{x 28864}#)
+ #{x 27459}#
+ (if (if (vector? #{x 27459}#)
+ (if (= (vector-length #{x 27459}#)
4)
- (eq? (vector-ref #{x 28864}# 0)
+ (eq? (vector-ref #{x 27459}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28896}#
- (vector-ref #{x 28864}# 1))
- (#{wrap 28897}#
- (let ((#{w2 28905}#
+ (let ((#{expression 27491}#
+ (vector-ref #{x 27459}# 1))
+ (#{wrap 27492}#
+ (let ((#{w2 27500}#
(vector-ref
- #{x 28864}#
+ #{x 27459}#
2)))
- (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}#
+ (let ((#{m1 27501}#
+ (car #{w 25797}#))
+ (#{s1 27502}#
+ (cdr #{w 25797}#)))
+ (if (null? #{m1 27501}#)
+ (if (null? #{s1 27502}#)
+ #{w2 27500}#
+ (cons (car #{w2 27500}#)
+ (let ((#{m2 27517}#
+ (cdr #{w2 27500}#)))
+ (if (null? #{m2 27517}#)
+ #{s1 27502}#
(append
- #{s1 28907}#
- #{m2 28922}#)))))
- (cons (let ((#{m2 28930}#
- (car #{w2 28905}#)))
- (if (null? #{m2 28930}#)
- #{m1 28906}#
+ #{s1 27502}#
+ #{m2 27517}#)))))
+ (cons (let ((#{m2 27525}#
+ (car #{w2 27500}#)))
+ (if (null? #{m2 27525}#)
+ #{m1 27501}#
(append
- #{m1 28906}#
- #{m2 28930}#)))
- (let ((#{m2 28938}#
- (cdr #{w2 28905}#)))
- (if (null? #{m2 28938}#)
- #{s1 28907}#
+ #{m1 27501}#
+ #{m2 27525}#)))
+ (let ((#{m2 27533}#
+ (cdr #{w2 27500}#)))
+ (if (null? #{m2 27533}#)
+ #{s1 27502}#
(append
- #{s1 28907}#
- #{m2 28938}#))))))))
- (#{module 28898}#
- (vector-ref #{x 28864}# 3)))
+ #{s1 27502}#
+ #{m2 27533}#))))))))
+ (#{module 27493}#
+ (vector-ref #{x 27459}# 3)))
(vector
'syntax-object
- #{expression 28896}#
- #{wrap 28897}#
- #{module 28898}#))
- (if (null? #{x 28864}#)
- #{x 28864}#
+ #{expression 27491}#
+ #{wrap 27492}#
+ #{module 27493}#))
+ (if (null? #{x 27459}#)
+ #{x 27459}#
(vector
'syntax-object
- #{x 28864}#
- #{w 27205}#
- #{mod 27207}#))))))
- (if (eqv? #{type 27201}# 'displaced-lexical)
+ #{x 27459}#
+ #{w 25797}#
+ #{mod 25799}#))))))
+ (if (eqv? #{type 25793}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (let ((#{x 28965}#
+ (let ((#{x 27560}#
(begin
- (if (if (pair? #{e 27203}#)
- #{s 27206}#
+ (if (if (pair? #{e 25795}#)
+ #{s 25798}#
#f)
(set-source-properties!
- #{e 27203}#
- #{s 27206}#))
- #{e 27203}#)))
- (if (if (null? (car #{w 27205}#))
- (null? (cdr #{w 27205}#))
+ #{e 25795}#
+ #{s 25798}#))
+ #{e 25795}#)))
+ (if (if (null? (car #{w 25797}#))
+ (null? (cdr #{w 25797}#))
#f)
- #{x 28965}#
- (if (if (vector? #{x 28965}#)
+ #{x 27560}#
+ (if (if (vector? #{x 27560}#)
(if (= (vector-length
- #{x 28965}#)
+ #{x 27560}#)
4)
(eq? (vector-ref
- #{x 28965}#
+ #{x 27560}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28997}#
- (vector-ref #{x 28965}# 1))
- (#{wrap 28998}#
- (let ((#{w2 29006}#
+ (let ((#{expression 27592}#
+ (vector-ref #{x 27560}# 1))
+ (#{wrap 27593}#
+ (let ((#{w2 27601}#
(vector-ref
- #{x 28965}#
+ #{x 27560}#
2)))
- (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}#
+ (let ((#{m1 27602}#
+ (car #{w 25797}#))
+ (#{s1 27603}#
+ (cdr #{w 25797}#)))
+ (if (null? #{m1 27602}#)
+ (if (null? #{s1 27603}#)
+ #{w2 27601}#
+ (cons (car #{w2 27601}#)
+ (let ((#{m2 27618}#
+ (cdr #{w2 27601}#)))
+ (if (null? #{m2 27618}#)
+ #{s1 27603}#
(append
- #{s1 29008}#
- #{m2 29023}#)))))
- (cons (let ((#{m2 29031}#
- (car #{w2 29006}#)))
- (if (null? #{m2 29031}#)
- #{m1 29007}#
+ #{s1 27603}#
+ #{m2 27618}#)))))
+ (cons (let ((#{m2 27626}#
+ (car #{w2 27601}#)))
+ (if (null? #{m2 27626}#)
+ #{m1 27602}#
(append
- #{m1 29007}#
- #{m2 29031}#)))
- (let ((#{m2 29039}#
- (cdr #{w2 29006}#)))
- (if (null? #{m2 29039}#)
- #{s1 29008}#
+ #{m1 27602}#
+ #{m2 27626}#)))
+ (let ((#{m2 27634}#
+ (cdr #{w2 27601}#)))
+ (if (null? #{m2 27634}#)
+ #{s1 27603}#
(append
- #{s1 29008}#
- #{m2 29039}#))))))))
- (#{module 28999}#
- (vector-ref #{x 28965}# 3)))
+ #{s1 27603}#
+ #{m2 27634}#))))))))
+ (#{module 27594}#
+ (vector-ref #{x 27560}# 3)))
(vector
'syntax-object
- #{expression 28997}#
- #{wrap 28998}#
- #{module 28999}#))
- (if (null? #{x 28965}#)
- #{x 28965}#
+ #{expression 27592}#
+ #{wrap 27593}#
+ #{module 27594}#))
+ (if (null? #{x 27560}#)
+ #{x 27560}#
(vector
'syntax-object
- #{x 28965}#
- #{w 27205}#
- #{mod 27207}#))))))
+ #{x 27560}#
+ #{w 25797}#
+ #{mod 25799}#))))))
(syntax-violation
#f
"unexpected syntax"
- (let ((#{x 29063}#
+ (let ((#{x 27658}#
(begin
- (if (if (pair? #{e 27203}#)
- #{s 27206}#
+ (if (if (pair? #{e 25795}#)
+ #{s 25798}#
#f)
(set-source-properties!
- #{e 27203}#
- #{s 27206}#))
- #{e 27203}#)))
- (if (if (null? (car #{w 27205}#))
- (null? (cdr #{w 27205}#))
+ #{e 25795}#
+ #{s 25798}#))
+ #{e 25795}#)))
+ (if (if (null? (car #{w 25797}#))
+ (null? (cdr #{w 25797}#))
#f)
- #{x 29063}#
- (if (if (vector? #{x 29063}#)
+ #{x 27658}#
+ (if (if (vector? #{x 27658}#)
(if (= (vector-length
- #{x 29063}#)
+ #{x 27658}#)
4)
(eq? (vector-ref
- #{x 29063}#
+ #{x 27658}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29095}#
- (vector-ref #{x 29063}# 1))
- (#{wrap 29096}#
- (let ((#{w2 29104}#
+ (let ((#{expression 27690}#
+ (vector-ref #{x 27658}# 1))
+ (#{wrap 27691}#
+ (let ((#{w2 27699}#
(vector-ref
- #{x 29063}#
+ #{x 27658}#
2)))
- (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}#
+ (let ((#{m1 27700}#
+ (car #{w 25797}#))
+ (#{s1 27701}#
+ (cdr #{w 25797}#)))
+ (if (null? #{m1 27700}#)
+ (if (null? #{s1 27701}#)
+ #{w2 27699}#
+ (cons (car #{w2 27699}#)
+ (let ((#{m2 27716}#
+ (cdr #{w2 27699}#)))
+ (if (null? #{m2 27716}#)
+ #{s1 27701}#
(append
- #{s1 29106}#
- #{m2 29121}#)))))
- (cons (let ((#{m2 29129}#
- (car #{w2 29104}#)))
- (if (null? #{m2 29129}#)
- #{m1 29105}#
+ #{s1 27701}#
+ #{m2 27716}#)))))
+ (cons (let ((#{m2 27724}#
+ (car #{w2 27699}#)))
+ (if (null? #{m2 27724}#)
+ #{m1 27700}#
(append
- #{m1 29105}#
- #{m2 29129}#)))
- (let ((#{m2 29137}#
- (cdr #{w2 29104}#)))
- (if (null? #{m2 29137}#)
- #{s1 29106}#
+ #{m1 27700}#
+ #{m2 27724}#)))
+ (let ((#{m2 27732}#
+ (cdr #{w2 27699}#)))
+ (if (null? #{m2 27732}#)
+ #{s1 27701}#
(append
- #{s1 29106}#
- #{m2 29137}#))))))))
- (#{module 29097}#
- (vector-ref #{x 29063}# 3)))
+ #{s1 27701}#
+ #{m2 27732}#))))))))
+ (#{module 27692}#
+ (vector-ref #{x 27658}# 3)))
(vector
'syntax-object
- #{expression 29095}#
- #{wrap 29096}#
- #{module 29097}#))
- (if (null? #{x 29063}#)
- #{x 29063}#
+ #{expression 27690}#
+ #{wrap 27691}#
+ #{module 27692}#))
+ (if (null? #{x 27658}#)
+ #{x 27658}#
(vector
'syntax-object
- #{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}#
+ #{x 27658}#
+ #{w 25797}#
+ #{mod 25799}#))))))))))))))))))))))
+ (#{chi-call 4448}#
+ (lambda (#{x 27747}#
+ #{e 27748}#
+ #{r 27749}#
+ #{w 27750}#
+ #{s 27751}#
+ #{mod 27752}#)
+ (let ((#{tmp 27754}#
+ ($sc-dispatch #{e 27748}# '(any . each-any))))
+ (if #{tmp 27754}#
(@apply
- (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}#)
+ (lambda (#{e0 27758}# #{e1 27759}#)
+ (#{build-call 4380}#
+ #{s 27751}#
+ #{x 27747}#
+ (map (lambda (#{e 27851}#)
+ (#{chi 4446}#
+ #{e 27851}#
+ #{r 27749}#
+ #{w 27750}#
+ #{mod 27752}#))
+ #{e1 27759}#)))
+ #{tmp 27754}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 29153}#)))))
- (#{chi-macro 4376}#
- (lambda (#{p 29344}#
- #{e 29345}#
- #{r 29346}#
- #{w 29347}#
- #{s 29348}#
- #{rib 29349}#
- #{mod 29350}#)
+ #{e 27748}#)))))
+ (#{chi-macro 4449}#
+ (lambda (#{p 27939}#
+ #{e 27940}#
+ #{r 27941}#
+ #{w 27942}#
+ #{s 27943}#
+ #{rib 27944}#
+ #{mod 27945}#)
(letrec*
- ((#{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}#))))
+ ((#{rebuild-macro-output 27946}#
+ (lambda (#{x 28053}# #{m 28054}#)
+ (if (pair? #{x 28053}#)
+ (let ((#{e 28058}#
+ (cons (#{rebuild-macro-output 27946}#
+ (car #{x 28053}#)
+ #{m 28054}#)
+ (#{rebuild-macro-output 27946}#
+ (cdr #{x 28053}#)
+ #{m 28054}#))))
(begin
- (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)
+ (if (if (pair? #{e 28058}#) #{s 27943}# #f)
+ (set-source-properties! #{e 28058}# #{s 27943}#))
+ #{e 28058}#))
+ (if (if (vector? #{x 28053}#)
+ (if (= (vector-length #{x 28053}#) 4)
+ (eq? (vector-ref #{x 28053}# 0) 'syntax-object)
#f)
#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)
+ (let ((#{w 28074}# (vector-ref #{x 28053}# 2)))
+ (let ((#{ms 28075}# (car #{w 28074}#))
+ (#{s 28076}# (cdr #{w 28074}#)))
+ (if (if (pair? #{ms 28075}#)
+ (eq? (car #{ms 28075}#) #f)
#f)
- (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)))
+ (let ((#{expression 28084}# (vector-ref #{x 28053}# 1))
+ (#{wrap 28085}#
+ (cons (cdr #{ms 28075}#)
+ (if #{rib 27944}#
+ (cons #{rib 27944}# (cdr #{s 28076}#))
+ (cdr #{s 28076}#))))
+ (#{module 28086}# (vector-ref #{x 28053}# 3)))
(vector
'syntax-object
- #{expression 29489}#
- #{wrap 29490}#
- #{module 29491}#))
- (let ((#{expression 29501}#
- (let ((#{e 29506}# (vector-ref #{x 29458}# 1)))
+ #{expression 28084}#
+ #{wrap 28085}#
+ #{module 28086}#))
+ (let ((#{expression 28096}#
+ (let ((#{e 28101}# (vector-ref #{x 28053}# 1)))
(begin
- (if (if (pair? #{e 29506}#) #{s 29481}# #f)
+ (if (if (pair? #{e 28101}#) #{s 28076}# #f)
(set-source-properties!
- #{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)))
+ #{e 28101}#
+ #{s 28076}#))
+ #{e 28101}#)))
+ (#{wrap 28097}#
+ (cons (cons #{m 28054}# #{ms 28075}#)
+ (if #{rib 27944}#
+ (cons #{rib 27944}#
+ (cons 'shift #{s 28076}#))
+ (cons 'shift #{s 28076}#))))
+ (#{module 28098}# (vector-ref #{x 28053}# 3)))
(vector
'syntax-object
- #{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}#)))
+ #{expression 28096}#
+ #{wrap 28097}#
+ #{module 28098}#)))))
+ (if (vector? #{x 28053}#)
+ (let ((#{n 28113}# (vector-length #{x 28053}#)))
+ (let ((#{v 28114}#
+ (let ((#{e 28122}# (make-vector #{n 28113}#)))
(begin
- (if (if (pair? #{e 29527}#) #{x 29458}# #f)
+ (if (if (pair? #{e 28122}#) #{x 28053}# #f)
(set-source-properties!
- #{e 29527}#
- #{x 29458}#))
- #{e 29527}#))))
+ #{e 28122}#
+ #{x 28053}#))
+ #{e 28122}#))))
(letrec*
- ((#{loop 29520}#
- (lambda (#{i 29581}#)
- (if (= #{i 29581}# #{n 29518}#)
- #{v 29519}#
+ ((#{loop 28115}#
+ (lambda (#{i 28176}#)
+ (if (= #{i 28176}# #{n 28113}#)
+ #{v 28114}#
(begin
(vector-set!
- #{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}#)
+ #{v 28114}#
+ #{i 28176}#
+ (#{rebuild-macro-output 27946}#
+ (vector-ref #{x 28053}# #{i 28176}#)
+ #{m 28054}#))
+ (#{loop 28115}# (#{1+}# #{i 28176}#)))))))
+ (#{loop 28115}# 0))))
+ (if (symbol? #{x 28053}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 29587}# (cdr #{w 29347}#)))
- (let ((#{x 29591}#
+ (let ((#{s 28182}# (cdr #{w 27942}#)))
+ (let ((#{x 28186}#
(begin
- (if (if (pair? #{e 29345}#) #{s 29587}# #f)
+ (if (if (pair? #{e 27940}#) #{s 28182}# #f)
(set-source-properties!
- #{e 29345}#
- #{s 29587}#))
- #{e 29345}#)))
- (if (if (null? (car #{w 29347}#))
- (null? (cdr #{w 29347}#))
+ #{e 27940}#
+ #{s 28182}#))
+ #{e 27940}#)))
+ (if (if (null? (car #{w 27942}#))
+ (null? (cdr #{w 27942}#))
#f)
- #{x 29591}#
- (if (if (vector? #{x 29591}#)
- (if (= (vector-length #{x 29591}#) 4)
- (eq? (vector-ref #{x 29591}# 0)
+ #{x 28186}#
+ (if (if (vector? #{x 28186}#)
+ (if (= (vector-length #{x 28186}#) 4)
+ (eq? (vector-ref #{x 28186}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 28218}#
+ (vector-ref #{x 28186}# 1))
+ (#{wrap 28219}#
+ (let ((#{w2 28227}#
+ (vector-ref #{x 28186}# 2)))
+ (let ((#{m1 28228}#
+ (car #{w 27942}#))
+ (#{s1 28229}#
+ (cdr #{w 27942}#)))
+ (if (null? #{m1 28228}#)
+ (if (null? #{s1 28229}#)
+ #{w2 28227}#
+ (cons (car #{w2 28227}#)
+ (let ((#{m2 28244}#
+ (cdr #{w2 28227}#)))
+ (if (null? #{m2 28244}#)
+ #{s1 28229}#
(append
- #{s1 29634}#
- #{m2 29649}#)))))
- (cons (let ((#{m2 29657}#
- (car #{w2 29632}#)))
- (if (null? #{m2 29657}#)
- #{m1 29633}#
+ #{s1 28229}#
+ #{m2 28244}#)))))
+ (cons (let ((#{m2 28252}#
+ (car #{w2 28227}#)))
+ (if (null? #{m2 28252}#)
+ #{m1 28228}#
(append
- #{m1 29633}#
- #{m2 29657}#)))
- (let ((#{m2 29665}#
- (cdr #{w2 29632}#)))
- (if (null? #{m2 29665}#)
- #{s1 29634}#
+ #{m1 28228}#
+ #{m2 28252}#)))
+ (let ((#{m2 28260}#
+ (cdr #{w2 28227}#)))
+ (if (null? #{m2 28260}#)
+ #{s1 28229}#
(append
- #{s1 29634}#
- #{m2 29665}#))))))))
- (#{module 29625}#
- (vector-ref #{x 29591}# 3)))
+ #{s1 28229}#
+ #{m2 28260}#))))))))
+ (#{module 28220}#
+ (vector-ref #{x 28186}# 3)))
(vector
'syntax-object
- #{expression 29623}#
- #{wrap 29624}#
- #{module 29625}#))
- (if (null? #{x 29591}#)
- #{x 29591}#
+ #{expression 28218}#
+ #{wrap 28219}#
+ #{module 28220}#))
+ (if (null? #{x 28186}#)
+ #{x 28186}#
(vector
'syntax-object
- #{x 29591}#
- #{w 29347}#
- #{mod 29350}#))))))
- #{x 29458}#)
+ #{x 28186}#
+ #{w 27942}#
+ #{mod 27945}#))))))
+ #{x 28053}#)
(begin
- (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}#
+ (if (if (pair? #{x 28053}#) #{s 27943}# #f)
+ (set-source-properties! #{x 28053}# #{s 27943}#))
+ #{x 28053}#))))))))
+ (#{rebuild-macro-output 27946}#
+ (#{p 27939}#
+ (let ((#{w 27953}#
+ (cons (cons #f (car #{w 27942}#))
+ (cons 'shift (cdr #{w 27942}#)))))
+ (let ((#{x 27958}#
(begin
- (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}#))
+ (if (if (pair? #{e 27940}#) #{s 27943}# #f)
+ (set-source-properties! #{e 27940}# #{s 27943}#))
+ #{e 27940}#)))
+ (if (if (null? (car #{w 27953}#))
+ (null? (cdr #{w 27953}#))
#f)
- #{x 29363}#
- (if (if (vector? #{x 29363}#)
- (if (= (vector-length #{x 29363}#) 4)
- (eq? (vector-ref #{x 29363}# 0) 'syntax-object)
+ #{x 27958}#
+ (if (if (vector? #{x 27958}#)
+ (if (= (vector-length #{x 27958}#) 4)
+ (eq? (vector-ref #{x 27958}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 27996}# (vector-ref #{x 27958}# 1))
+ (#{wrap 27997}#
+ (let ((#{w2 28005}# (vector-ref #{x 27958}# 2)))
+ (let ((#{m1 28006}# (car #{w 27953}#))
+ (#{s1 28007}# (cdr #{w 27953}#)))
+ (if (null? #{m1 28006}#)
+ (if (null? #{s1 28007}#)
+ #{w2 28005}#
+ (cons (car #{w2 28005}#)
+ (let ((#{m2 28022}#
+ (cdr #{w2 28005}#)))
+ (if (null? #{m2 28022}#)
+ #{s1 28007}#
(append
- #{s1 29412}#
- #{m2 29427}#)))))
- (cons (let ((#{m2 29435}#
- (car #{w2 29410}#)))
- (if (null? #{m2 29435}#)
- #{m1 29411}#
+ #{s1 28007}#
+ #{m2 28022}#)))))
+ (cons (let ((#{m2 28030}#
+ (car #{w2 28005}#)))
+ (if (null? #{m2 28030}#)
+ #{m1 28006}#
(append
- #{m1 29411}#
- #{m2 29435}#)))
- (let ((#{m2 29443}#
- (cdr #{w2 29410}#)))
- (if (null? #{m2 29443}#)
- #{s1 29412}#
+ #{m1 28006}#
+ #{m2 28030}#)))
+ (let ((#{m2 28038}#
+ (cdr #{w2 28005}#)))
+ (if (null? #{m2 28038}#)
+ #{s1 28007}#
(append
- #{s1 29412}#
- #{m2 29443}#))))))))
- (#{module 29403}# (vector-ref #{x 29363}# 3)))
+ #{s1 28007}#
+ #{m2 28038}#))))))))
+ (#{module 27998}# (vector-ref #{x 27958}# 3)))
(vector
'syntax-object
- #{expression 29401}#
- #{wrap 29402}#
- #{module 29403}#))
- (if (null? #{x 29363}#)
- #{x 29363}#
+ #{expression 27996}#
+ #{wrap 27997}#
+ #{module 27998}#))
+ (if (null? #{x 27958}#)
+ #{x 27958}#
(vector
'syntax-object
- #{x 29363}#
- #{w 29358}#
- #{mod 29350}#)))))))
+ #{x 27958}#
+ #{w 27953}#
+ #{mod 27945}#)))))))
(gensym "m")))))
- (#{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}#)))))
+ (#{chi-body 4450}#
+ (lambda (#{body 28290}#
+ #{outer-form 28291}#
+ #{r 28292}#
+ #{w 28293}#
+ #{mod 28294}#)
+ (let ((#{r 28295}#
+ (cons '("placeholder" placeholder) #{r 28292}#)))
+ (let ((#{ribcage 28296}# (vector 'ribcage '() '() '())))
+ (let ((#{w 28297}#
+ (cons (car #{w 28293}#)
+ (cons #{ribcage 28296}# (cdr #{w 28293}#)))))
(letrec*
- ((#{parse 29703}#
- (lambda (#{body 29811}#
- #{ids 29812}#
- #{labels 29813}#
- #{var-ids 29814}#
- #{vars 29815}#
- #{vals 29816}#
- #{bindings 29817}#)
- (if (null? #{body 29811}#)
+ ((#{parse 28298}#
+ (lambda (#{body 28406}#
+ #{ids 28407}#
+ #{labels 28408}#
+ #{var-ids 28409}#
+ #{vars 28410}#
+ #{vals 28411}#
+ #{bindings 28412}#)
+ (if (null? #{body 28406}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 29696}#)
- (let ((#{e 29818}# (cdr (car #{body 29811}#)))
- (#{er 29819}# (car (car #{body 29811}#))))
+ #{outer-form 28291}#)
+ (let ((#{e 28413}# (cdr (car #{body 28406}#)))
+ (#{er 28414}# (car (car #{body 28406}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4372}#
- #{e 29818}#
- #{er 29819}#
+ (#{syntax-type 4445}#
+ #{e 28413}#
+ #{er 28414}#
'(())
- (#{source-annotation 4334}# #{er 29819}#)
- #{ribcage 29701}#
- #{mod 29699}#
+ (#{source-annotation 4407}# #{er 28414}#)
+ #{ribcage 28296}#
+ #{mod 28294}#
#f))
- (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}#))
+ (lambda (#{type 28620}#
+ #{value 28621}#
+ #{e 28622}#
+ #{w 28623}#
+ #{s 28624}#
+ #{mod 28625}#)
+ (if (eqv? #{type 28620}# 'define-form)
+ (let ((#{id 28629}#
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{value 30026}#
- (if (if (vector? #{value 30026}#)
+ #{value 28621}#
+ (if (if (vector? #{value 28621}#)
(if (= (vector-length
- #{value 30026}#)
+ #{value 28621}#)
4)
(eq? (vector-ref
- #{value 30026}#
+ #{value 28621}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30079}#
+ (let ((#{expression 28674}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
1))
- (#{wrap 30080}#
- (let ((#{w2 30090}#
+ (#{wrap 28675}#
+ (let ((#{w2 28685}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
2)))
- (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}#
+ (let ((#{m1 28686}#
+ (car #{w 28623}#))
+ (#{s1 28687}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 28686}#)
+ (if (null? #{s1 28687}#)
+ #{w2 28685}#
+ (cons (car #{w2 28685}#)
+ (let ((#{m2 28704}#
+ (cdr #{w2 28685}#)))
+ (if (null? #{m2 28704}#)
+ #{s1 28687}#
(append
- #{s1 30092}#
- #{m2 30109}#)))))
- (cons (let ((#{m2 30117}#
- (car #{w2 30090}#)))
- (if (null? #{m2 30117}#)
- #{m1 30091}#
+ #{s1 28687}#
+ #{m2 28704}#)))))
+ (cons (let ((#{m2 28712}#
+ (car #{w2 28685}#)))
+ (if (null? #{m2 28712}#)
+ #{m1 28686}#
(append
- #{m1 30091}#
- #{m2 30117}#)))
- (let ((#{m2 30125}#
- (cdr #{w2 30090}#)))
- (if (null? #{m2 30125}#)
- #{s1 30092}#
+ #{m1 28686}#
+ #{m2 28712}#)))
+ (let ((#{m2 28720}#
+ (cdr #{w2 28685}#)))
+ (if (null? #{m2 28720}#)
+ #{s1 28687}#
(append
- #{s1 30092}#
- #{m2 30125}#))))))))
- (#{module 30081}#
+ #{s1 28687}#
+ #{m2 28720}#))))))))
+ (#{module 28676}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
3)))
(vector
'syntax-object
- #{expression 30079}#
- #{wrap 30080}#
- #{module 30081}#))
- (if (null? #{value 30026}#)
- #{value 30026}#
+ #{expression 28674}#
+ #{wrap 28675}#
+ #{module 28676}#))
+ (if (null? #{value 28621}#)
+ #{value 28621}#
(vector
'syntax-object
- #{value 30026}#
- #{w 30028}#
- #{mod 30030}#)))))
- (#{label 30035}#
+ #{value 28621}#
+ #{w 28623}#
+ #{mod 28625}#)))))
+ (#{label 28630}#
(symbol->string (gensym "i"))))
- (let ((#{var 30036}#
- (let ((#{id 30186}#
- (if (if (vector? #{id 30034}#)
+ (let ((#{var 28631}#
+ (let ((#{id 28781}#
+ (if (if (vector? #{id 28629}#)
(if (= (vector-length
- #{id 30034}#)
+ #{id 28629}#)
4)
(eq? (vector-ref
- #{id 30034}#
+ #{id 28629}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 30034}# 1)
- #{id 30034}#)))
+ (vector-ref #{id 28629}# 1)
+ #{id 28629}#)))
(gensym
(string-append
- (symbol->string #{id 30186}#)
+ (symbol->string #{id 28781}#)
" ")))))
(begin
(begin
- (let ((#{update 30045}#
- (cons (vector-ref #{id 30034}# 1)
+ (let ((#{update 28640}#
+ (cons (vector-ref #{id 28629}# 1)
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
1))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
1
- #{update 30045}#))
- (let ((#{update 30157}#
+ #{update 28640}#))
+ (let ((#{update 28752}#
(cons (car (vector-ref
- #{id 30034}#
+ #{id 28629}#
2))
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
2))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
2
- #{update 30157}#))
- (let ((#{update 30172}#
- (cons #{label 30035}#
+ #{update 28752}#))
+ (let ((#{update 28767}#
+ (cons #{label 28630}#
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
3))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
3
- #{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}#))
+ #{update 28767}#)))
+ (#{parse 28298}#
+ (cdr #{body 28406}#)
+ (cons #{id 28629}# #{ids 28407}#)
+ (cons #{label 28630}# #{labels 28408}#)
+ (cons #{id 28629}# #{var-ids 28409}#)
+ (cons #{var 28631}# #{vars 28410}#)
+ (cons (cons #{er 28414}#
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{e 30027}#
+ #{e 28622}#
(if (if (vector?
- #{e 30027}#)
+ #{e 28622}#)
(if (= (vector-length
- #{e 30027}#)
+ #{e 28622}#)
4)
(eq? (vector-ref
- #{e 30027}#
+ #{e 28622}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30238}#
+ (let ((#{expression 28833}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
1))
- (#{wrap 30239}#
- (let ((#{w2 30249}#
+ (#{wrap 28834}#
+ (let ((#{w2 28844}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
2)))
- (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}#
+ (let ((#{m1 28845}#
+ (car #{w 28623}#))
+ (#{s1 28846}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 28845}#)
+ (if (null? #{s1 28846}#)
+ #{w2 28844}#
+ (cons (car #{w2 28844}#)
+ (let ((#{m2 28863}#
+ (cdr #{w2 28844}#)))
+ (if (null? #{m2 28863}#)
+ #{s1 28846}#
(append
- #{s1 30251}#
- #{m2 30268}#)))))
- (cons (let ((#{m2 30276}#
- (car #{w2 30249}#)))
- (if (null? #{m2 30276}#)
- #{m1 30250}#
+ #{s1 28846}#
+ #{m2 28863}#)))))
+ (cons (let ((#{m2 28871}#
+ (car #{w2 28844}#)))
+ (if (null? #{m2 28871}#)
+ #{m1 28845}#
(append
- #{m1 30250}#
- #{m2 30276}#)))
- (let ((#{m2 30284}#
- (cdr #{w2 30249}#)))
- (if (null? #{m2 30284}#)
- #{s1 30251}#
+ #{m1 28845}#
+ #{m2 28871}#)))
+ (let ((#{m2 28879}#
+ (cdr #{w2 28844}#)))
+ (if (null? #{m2 28879}#)
+ #{s1 28846}#
(append
- #{s1 30251}#
- #{m2 30284}#))))))))
- (#{module 30240}#
+ #{s1 28846}#
+ #{m2 28879}#))))))))
+ (#{module 28835}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
3)))
(vector
'syntax-object
- #{expression 30238}#
- #{wrap 30239}#
- #{module 30240}#))
- (if (null? #{e 30027}#)
- #{e 30027}#
+ #{expression 28833}#
+ #{wrap 28834}#
+ #{module 28835}#))
+ (if (null? #{e 28622}#)
+ #{e 28622}#
(vector
'syntax-object
- #{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}#))
+ #{e 28622}#
+ #{w 28623}#
+ #{mod 28625}#)))))
+ #{vals 28411}#)
+ (cons (cons 'lexical #{var 28631}#)
+ #{bindings 28412}#)))))
+ (if (if (eqv? #{type 28620}# 'define-syntax-form)
+ #t
+ (eqv? #{type 28620}#
+ 'define-syntax-parameter-form))
+ (let ((#{id 28910}#
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{value 30026}#
- (if (if (vector? #{value 30026}#)
+ #{value 28621}#
+ (if (if (vector? #{value 28621}#)
(if (= (vector-length
- #{value 30026}#)
+ #{value 28621}#)
4)
(eq? (vector-ref
- #{value 30026}#
+ #{value 28621}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30354}#
+ (let ((#{expression 28954}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
1))
- (#{wrap 30355}#
- (let ((#{w2 30365}#
+ (#{wrap 28955}#
+ (let ((#{w2 28965}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
2)))
- (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}#
+ (let ((#{m1 28966}#
+ (car #{w 28623}#))
+ (#{s1 28967}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 28966}#)
+ (if (null? #{s1 28967}#)
+ #{w2 28965}#
+ (cons (car #{w2 28965}#)
+ (let ((#{m2 28984}#
+ (cdr #{w2 28965}#)))
+ (if (null? #{m2 28984}#)
+ #{s1 28967}#
(append
- #{s1 30367}#
- #{m2 30384}#)))))
- (cons (let ((#{m2 30392}#
- (car #{w2 30365}#)))
- (if (null? #{m2 30392}#)
- #{m1 30366}#
+ #{s1 28967}#
+ #{m2 28984}#)))))
+ (cons (let ((#{m2 28992}#
+ (car #{w2 28965}#)))
+ (if (null? #{m2 28992}#)
+ #{m1 28966}#
(append
- #{m1 30366}#
- #{m2 30392}#)))
- (let ((#{m2 30400}#
- (cdr #{w2 30365}#)))
- (if (null? #{m2 30400}#)
- #{s1 30367}#
+ #{m1 28966}#
+ #{m2 28992}#)))
+ (let ((#{m2 29000}#
+ (cdr #{w2 28965}#)))
+ (if (null? #{m2 29000}#)
+ #{s1 28967}#
(append
- #{s1 30367}#
- #{m2 30400}#))))))))
- (#{module 30356}#
+ #{s1 28967}#
+ #{m2 29000}#))))))))
+ (#{module 28956}#
(vector-ref
- #{value 30026}#
+ #{value 28621}#
3)))
(vector
'syntax-object
- #{expression 30354}#
- #{wrap 30355}#
- #{module 30356}#))
- (if (null? #{value 30026}#)
- #{value 30026}#
+ #{expression 28954}#
+ #{wrap 28955}#
+ #{module 28956}#))
+ (if (null? #{value 28621}#)
+ #{value 28621}#
(vector
'syntax-object
- #{value 30026}#
- #{w 30028}#
- #{mod 30030}#)))))
- (#{label 30311}#
+ #{value 28621}#
+ #{w 28623}#
+ #{mod 28625}#)))))
+ (#{label 28911}#
(symbol->string (gensym "i"))))
(begin
(begin
- (let ((#{update 30320}#
- (cons (vector-ref #{id 30310}# 1)
+ (let ((#{update 28920}#
+ (cons (vector-ref #{id 28910}# 1)
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
1))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
1
- #{update 30320}#))
- (let ((#{update 30432}#
+ #{update 28920}#))
+ (let ((#{update 29032}#
(cons (car (vector-ref
- #{id 30310}#
+ #{id 28910}#
2))
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
2))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
2
- #{update 30432}#))
- (let ((#{update 30447}#
- (cons #{label 30311}#
+ #{update 29032}#))
+ (let ((#{update 29047}#
+ (cons #{label 28911}#
(vector-ref
- #{ribcage 29701}#
+ #{ribcage 28296}#
3))))
(vector-set!
- #{ribcage 29701}#
+ #{ribcage 28296}#
3
- #{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 29819}#
- (if (if (null? (car #{w 30028}#))
- (null? (cdr #{w 30028}#))
+ #{update 29047}#)))
+ (#{parse 28298}#
+ (cdr #{body 28406}#)
+ (cons #{id 28910}# #{ids 28407}#)
+ (cons #{label 28911}# #{labels 28408}#)
+ #{var-ids 28409}#
+ #{vars 28410}#
+ #{vals 28411}#
+ (cons (cons (if (eq? #{type 28620}#
+ 'define-syntax-parameter-form)
+ 'syntax-parameter
+ 'macro)
+ (cons #{er 28414}#
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{e 30027}#
+ #{e 28622}#
(if (if (vector?
- #{e 30027}#)
+ #{e 28622}#)
(if (= (vector-length
- #{e 30027}#)
+ #{e 28622}#)
4)
(eq? (vector-ref
- #{e 30027}#
+ #{e 28622}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30486}#
+ (let ((#{expression 29086}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
1))
- (#{wrap 30487}#
- (let ((#{w2 30497}#
+ (#{wrap 29087}#
+ (let ((#{w2 29097}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
2)))
- (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}#
+ (let ((#{m1 29098}#
+ (car #{w 28623}#))
+ (#{s1 29099}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 29098}#)
+ (if (null? #{s1 29099}#)
+ #{w2 29097}#
+ (cons (car #{w2 29097}#)
+ (let ((#{m2 29116}#
+ (cdr #{w2 29097}#)))
+ (if (null? #{m2 29116}#)
+ #{s1 29099}#
(append
- #{s1 30499}#
- #{m2 30516}#)))))
- (cons (let ((#{m2 30524}#
- (car #{w2 30497}#)))
- (if (null? #{m2 30524}#)
- #{m1 30498}#
+ #{s1 29099}#
+ #{m2 29116}#)))))
+ (cons (let ((#{m2 29124}#
+ (car #{w2 29097}#)))
+ (if (null? #{m2 29124}#)
+ #{m1 29098}#
(append
- #{m1 30498}#
- #{m2 30524}#)))
- (let ((#{m2 30532}#
- (cdr #{w2 30497}#)))
- (if (null? #{m2 30532}#)
- #{s1 30499}#
+ #{m1 29098}#
+ #{m2 29124}#)))
+ (let ((#{m2 29132}#
+ (cdr #{w2 29097}#)))
+ (if (null? #{m2 29132}#)
+ #{s1 29099}#
(append
- #{s1 30499}#
- #{m2 30532}#))))))))
- (#{module 30488}#
+ #{s1 29099}#
+ #{m2 29132}#))))))))
+ (#{module 29088}#
(vector-ref
- #{e 30027}#
+ #{e 28622}#
3)))
(vector
'syntax-object
- #{expression 30486}#
- #{wrap 30487}#
- #{module 30488}#))
- (if (null? #{e 30027}#)
- #{e 30027}#
+ #{expression 29086}#
+ #{wrap 29087}#
+ #{module 29088}#))
+ (if (null? #{e 28622}#)
+ #{e 28622}#
(vector
'syntax-object
- #{e 30027}#
- #{w 30028}#
- #{mod 30030}#))))))
- #{bindings 29817}#))))
- (if (eqv? #{type 30025}# 'begin-form)
- (let ((#{tmp 30559}#
+ #{e 28622}#
+ #{w 28623}#
+ #{mod 28625}#))))))
+ #{bindings 28412}#))))
+ (if (eqv? #{type 28620}# 'begin-form)
+ (let ((#{tmp 29159}#
($sc-dispatch
- #{e 30027}#
+ #{e 28622}#
'(_ . each-any))))
- (if #{tmp 30559}#
+ (if #{tmp 29159}#
(@apply
- (lambda (#{e1 30563}#)
- (#{parse 29703}#
+ (lambda (#{e1 29163}#)
+ (#{parse 28298}#
(letrec*
- ((#{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 29164}#
+ (lambda (#{forms 29380}#)
+ (if (null? #{forms 29380}#)
+ (cdr #{body 28406}#)
+ (cons (cons #{er 28414}#
+ (let ((#{x 29384}#
+ (car #{forms 29380}#)))
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{x 30784}#
+ #{x 29384}#
(if (if (vector?
- #{x 30784}#)
+ #{x 29384}#)
(if (= (vector-length
- #{x 30784}#)
+ #{x 29384}#)
4)
(eq? (vector-ref
- #{x 30784}#
+ #{x 29384}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30802}#
+ (let ((#{expression 29402}#
(vector-ref
- #{x 30784}#
+ #{x 29384}#
1))
- (#{wrap 30803}#
- (let ((#{w2 30811}#
+ (#{wrap 29403}#
+ (let ((#{w2 29411}#
(vector-ref
- #{x 30784}#
+ #{x 29384}#
2)))
- (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}#
+ (let ((#{m1 29412}#
+ (car #{w 28623}#))
+ (#{s1 29413}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 29412}#)
+ (if (null? #{s1 29413}#)
+ #{w2 29411}#
+ (cons (car #{w2 29411}#)
+ (let ((#{m2 29428}#
+ (cdr #{w2 29411}#)))
+ (if (null? #{m2 29428}#)
+ #{s1 29413}#
(append
- #{s1 30813}#
- #{m2 30828}#)))))
- (cons (let ((#{m2 30836}#
- (car #{w2 30811}#)))
- (if (null? #{m2 30836}#)
- #{m1 30812}#
+ #{s1 29413}#
+ #{m2 29428}#)))))
+ (cons (let ((#{m2 29436}#
+ (car #{w2 29411}#)))
+ (if (null? #{m2 29436}#)
+ #{m1 29412}#
(append
- #{m1 30812}#
- #{m2 30836}#)))
- (let ((#{m2 30844}#
- (cdr #{w2 30811}#)))
- (if (null? #{m2 30844}#)
- #{s1 30813}#
+ #{m1 29412}#
+ #{m2 29436}#)))
+ (let ((#{m2 29444}#
+ (cdr #{w2 29411}#)))
+ (if (null? #{m2 29444}#)
+ #{s1 29413}#
(append
- #{s1 30813}#
- #{m2 30844}#))))))))
- (#{module 30804}#
+ #{s1 29413}#
+ #{m2 29444}#))))))))
+ (#{module 29404}#
(vector-ref
- #{x 30784}#
+ #{x 29384}#
3)))
(vector
'syntax-object
- #{expression 30802}#
- #{wrap 30803}#
- #{module 30804}#))
- (if (null? #{x 30784}#)
- #{x 30784}#
+ #{expression 29402}#
+ #{wrap 29403}#
+ #{module 29404}#))
+ (if (null? #{x 29384}#)
+ #{x 29384}#
(vector
'syntax-object
- #{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}#)
+ #{x 29384}#
+ #{w 28623}#
+ #{mod 28625}#))))))
+ (#{f 29164}#
+ (cdr #{forms 29380}#)))))))
+ (#{f 29164}# #{e1 29163}#))
+ #{ids 28407}#
+ #{labels 28408}#
+ #{var-ids 28409}#
+ #{vars 28410}#
+ #{vals 28411}#
+ #{bindings 28412}#))
+ #{tmp 29159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{e 28622}#)))
+ (if (eqv? #{type 28620}# 'local-syntax-form)
+ (#{chi-local-syntax 4451}#
+ #{value 28621}#
+ #{e 28622}#
+ #{er 28414}#
+ #{w 28623}#
+ #{s 28624}#
+ #{mod 28625}#
+ (lambda (#{forms 29470}#
+ #{er 29471}#
+ #{w 29472}#
+ #{s 29473}#
+ #{mod 29474}#)
+ (#{parse 28298}#
(letrec*
- ((#{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 29475}#
+ (lambda (#{forms 29691}#)
+ (if (null? #{forms 29691}#)
+ (cdr #{body 28406}#)
+ (cons (cons #{er 29471}#
+ (let ((#{x 29695}#
+ (car #{forms 29691}#)))
+ (if (if (null? (car #{w 29472}#))
+ (null? (cdr #{w 29472}#))
#f)
- #{x 31095}#
+ #{x 29695}#
(if (if (vector?
- #{x 31095}#)
+ #{x 29695}#)
(if (= (vector-length
- #{x 31095}#)
+ #{x 29695}#)
4)
(eq? (vector-ref
- #{x 31095}#
+ #{x 29695}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 31113}#
+ (let ((#{expression 29713}#
(vector-ref
- #{x 31095}#
+ #{x 29695}#
1))
- (#{wrap 31114}#
- (let ((#{w2 31122}#
+ (#{wrap 29714}#
+ (let ((#{w2 29722}#
(vector-ref
- #{x 31095}#
+ #{x 29695}#
2)))
- (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}#
+ (let ((#{m1 29723}#
+ (car #{w 29472}#))
+ (#{s1 29724}#
+ (cdr #{w 29472}#)))
+ (if (null? #{m1 29723}#)
+ (if (null? #{s1 29724}#)
+ #{w2 29722}#
+ (cons (car #{w2 29722}#)
+ (let ((#{m2 29739}#
+ (cdr #{w2 29722}#)))
+ (if (null? #{m2 29739}#)
+ #{s1 29724}#
(append
- #{s1 31124}#
- #{m2 31139}#)))))
- (cons (let ((#{m2 31147}#
- (car #{w2 31122}#)))
- (if (null? #{m2 31147}#)
- #{m1 31123}#
+ #{s1 29724}#
+ #{m2 29739}#)))))
+ (cons (let ((#{m2 29747}#
+ (car #{w2 29722}#)))
+ (if (null? #{m2 29747}#)
+ #{m1 29723}#
(append
- #{m1 31123}#
- #{m2 31147}#)))
- (let ((#{m2 31155}#
- (cdr #{w2 31122}#)))
- (if (null? #{m2 31155}#)
- #{s1 31124}#
+ #{m1 29723}#
+ #{m2 29747}#)))
+ (let ((#{m2 29755}#
+ (cdr #{w2 29722}#)))
+ (if (null? #{m2 29755}#)
+ #{s1 29724}#
(append
- #{s1 31124}#
- #{m2 31155}#))))))))
- (#{module 31115}#
+ #{s1 29724}#
+ #{m2 29755}#))))))))
+ (#{module 29715}#
(vector-ref
- #{x 31095}#
+ #{x 29695}#
3)))
(vector
'syntax-object
- #{expression 31113}#
- #{wrap 31114}#
- #{module 31115}#))
- (if (null? #{x 31095}#)
- #{x 31095}#
+ #{expression 29713}#
+ #{wrap 29714}#
+ #{module 29715}#))
+ (if (null? #{x 29695}#)
+ #{x 29695}#
(vector
'syntax-object
- #{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}#
+ #{x 29695}#
+ #{w 29472}#
+ #{mod 29474}#))))))
+ (#{f 29475}#
+ (cdr #{forms 29691}#)))))))
+ (#{f 29475}# #{forms 29470}#))
+ #{ids 28407}#
+ #{labels 28408}#
+ #{var-ids 28409}#
+ #{vars 28410}#
+ #{vals 28411}#
+ #{bindings 28412}#)))
+ (if (null? #{ids 28407}#)
+ (#{build-sequence 4395}#
#f
- (map (lambda (#{x 31244}#)
- (#{chi 4373}#
- (cdr #{x 31244}#)
- (car #{x 31244}#)
+ (map (lambda (#{x 29844}#)
+ (#{chi 4446}#
+ (cdr #{x 29844}#)
+ (car #{x 29844}#)
'(())
- #{mod 30030}#))
- (cons (cons #{er 29819}#
- (let ((#{x 31323}#
+ #{mod 28625}#))
+ (cons (cons #{er 28414}#
+ (let ((#{x 29923}#
(begin
- (if (if (pair? #{e 30027}#)
- #{s 30029}#
+ (if (if (pair? #{e 28622}#)
+ #{s 28624}#
#f)
(set-source-properties!
- #{e 30027}#
- #{s 30029}#))
- #{e 30027}#)))
- (if (if (null? (car #{w 30028}#))
- (null? (cdr #{w 30028}#))
+ #{e 28622}#
+ #{s 28624}#))
+ #{e 28622}#)))
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{x 31323}#
+ #{x 29923}#
(if (if (vector?
- #{x 31323}#)
+ #{x 29923}#)
(if (= (vector-length
- #{x 31323}#)
+ #{x 29923}#)
4)
(eq? (vector-ref
- #{x 31323}#
+ #{x 29923}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 31355}#
+ (let ((#{expression 29955}#
(vector-ref
- #{x 31323}#
+ #{x 29923}#
1))
- (#{wrap 31356}#
- (let ((#{w2 31364}#
+ (#{wrap 29956}#
+ (let ((#{w2 29964}#
(vector-ref
- #{x 31323}#
+ #{x 29923}#
2)))
- (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}#
+ (let ((#{m1 29965}#
+ (car #{w 28623}#))
+ (#{s1 29966}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 29965}#)
+ (if (null? #{s1 29966}#)
+ #{w2 29964}#
+ (cons (car #{w2 29964}#)
+ (let ((#{m2 29981}#
+ (cdr #{w2 29964}#)))
+ (if (null? #{m2 29981}#)
+ #{s1 29966}#
(append
- #{s1 31366}#
- #{m2 31381}#)))))
- (cons (let ((#{m2 31389}#
- (car #{w2 31364}#)))
- (if (null? #{m2 31389}#)
- #{m1 31365}#
+ #{s1 29966}#
+ #{m2 29981}#)))))
+ (cons (let ((#{m2 29989}#
+ (car #{w2 29964}#)))
+ (if (null? #{m2 29989}#)
+ #{m1 29965}#
(append
- #{m1 31365}#
- #{m2 31389}#)))
- (let ((#{m2 31397}#
- (cdr #{w2 31364}#)))
- (if (null? #{m2 31397}#)
- #{s1 31366}#
+ #{m1 29965}#
+ #{m2 29989}#)))
+ (let ((#{m2 29997}#
+ (cdr #{w2 29964}#)))
+ (if (null? #{m2 29997}#)
+ #{s1 29966}#
(append
- #{s1 31366}#
- #{m2 31397}#))))))))
- (#{module 31357}#
+ #{s1 29966}#
+ #{m2 29997}#))))))))
+ (#{module 29957}#
(vector-ref
- #{x 31323}#
+ #{x 29923}#
3)))
(vector
'syntax-object
- #{expression 31355}#
- #{wrap 31356}#
- #{module 31357}#))
- (if (null? #{x 31323}#)
- #{x 31323}#
+ #{expression 29955}#
+ #{wrap 29956}#
+ #{module 29957}#))
+ (if (null? #{x 29923}#)
+ #{x 29923}#
(vector
'syntax-object
- #{x 31323}#
- #{w 30028}#
- #{mod 30030}#))))))
- (cdr #{body 29811}#))))
+ #{x 29923}#
+ #{w 28623}#
+ #{mod 28625}#))))))
+ (cdr #{body 28406}#))))
(begin
- (if (not (#{valid-bound-ids? 4363}#
- #{ids 29812}#))
+ (if (not (#{valid-bound-ids? 4436}#
+ #{ids 28407}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 29696}#))
+ #{outer-form 28291}#))
(letrec*
- ((#{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 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}#))))
+ ((#{loop 30096}#
+ (lambda (#{bs 30099}#
+ #{er-cache 30100}#
+ #{r-cache 30101}#)
+ (if (not (null? #{bs 30099}#))
+ (let ((#{b 30102}#
+ (car #{bs 30099}#)))
+ (if (let ((#{t 30105}#
+ (car #{b 30102}#)))
+ (if (eq? #{t 30105}#
+ 'macro)
+ #t
+ (eq? #{t 30105}#
+ 'syntax-parameter)))
+ (let ((#{er 30107}#
+ (car (cdr #{b 30102}#))))
+ (let ((#{r-cache 30108}#
+ (if (eq? #{er 30107}#
+ #{er-cache 30100}#)
+ #{r-cache 30101}#
+ (#{macros-only-env 4410}#
+ #{er 30107}#))))
(begin
(set-cdr!
- #{b 31502}#
- (#{eval-local-transformer 4379}#
- (#{chi 4373}#
- (cdr (cdr #{b 31502}#))
- #{r-cache 31505}#
+ #{b 30102}#
+ (#{eval-local-transformer 4452}#
+ (#{chi 4446}#
+ (cdr (cdr #{b 30102}#))
+ #{r-cache 30108}#
'(())
- #{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}#
+ #{mod 28625}#)
+ #{mod 28625}#))
+ (if (eq? (car #{b 30102}#)
+ 'syntax-parameter)
+ (set-cdr!
+ #{b 30102}#
+ (list (cdr #{b 30102}#))))
+ (#{loop 30096}#
+ (cdr #{bs 30099}#)
+ #{er 30107}#
+ #{r-cache 30108}#))))
+ (#{loop 30096}#
+ (cdr #{bs 30099}#)
+ #{er-cache 30100}#
+ #{r-cache 30101}#)))))))
+ (#{loop 30096}#
+ #{bindings 28412}#
#f
#f))
(set-cdr!
- #{r 29700}#
- (#{extend-env 4335}#
- #{labels 29813}#
- #{bindings 29817}#
- (cdr #{r 29700}#)))
- (#{build-letrec 4325}#
+ #{r 28295}#
+ (#{extend-env 4408}#
+ #{labels 28408}#
+ #{bindings 28412}#
+ (cdr #{r 28295}#)))
+ (#{build-letrec 4398}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 29814}#))
- (reverse #{vars 29815}#)
- (map (lambda (#{x 31924}#)
- (#{chi 4373}#
- (cdr #{x 31924}#)
- (car #{x 31924}#)
+ #{var-ids 28409}#))
+ (reverse #{vars 28410}#)
+ (map (lambda (#{x 30536}#)
+ (#{chi 4446}#
+ (cdr #{x 30536}#)
+ (car #{x 30536}#)
'(())
- #{mod 30030}#))
- (reverse #{vals 29816}#))
- (#{build-sequence 4322}#
+ #{mod 28625}#))
+ (reverse #{vals 28411}#))
+ (#{build-sequence 4395}#
#f
- (map (lambda (#{x 32068}#)
- (#{chi 4373}#
- (cdr #{x 32068}#)
- (car #{x 32068}#)
+ (map (lambda (#{x 30680}#)
+ (#{chi 4446}#
+ (cdr #{x 30680}#)
+ (car #{x 30680}#)
'(())
- #{mod 30030}#))
- (cons (cons #{er 29819}#
- (let ((#{x 32147}#
+ #{mod 28625}#))
+ (cons (cons #{er 28414}#
+ (let ((#{x 30759}#
(begin
- (if (if (pair? #{e 30027}#)
- #{s 30029}#
+ (if (if (pair? #{e 28622}#)
+ #{s 28624}#
#f)
(set-source-properties!
- #{e 30027}#
- #{s 30029}#))
- #{e 30027}#)))
- (if (if (null? (car #{w 30028}#))
- (null? (cdr #{w 30028}#))
+ #{e 28622}#
+ #{s 28624}#))
+ #{e 28622}#)))
+ (if (if (null? (car #{w 28623}#))
+ (null? (cdr #{w 28623}#))
#f)
- #{x 32147}#
+ #{x 30759}#
(if (if (vector?
- #{x 32147}#)
+ #{x 30759}#)
(if (= (vector-length
- #{x 32147}#)
+ #{x 30759}#)
4)
(eq? (vector-ref
- #{x 32147}#
+ #{x 30759}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 32179}#
+ (let ((#{expression 30791}#
(vector-ref
- #{x 32147}#
+ #{x 30759}#
1))
- (#{wrap 32180}#
- (let ((#{w2 32188}#
+ (#{wrap 30792}#
+ (let ((#{w2 30800}#
(vector-ref
- #{x 32147}#
+ #{x 30759}#
2)))
- (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}#
+ (let ((#{m1 30801}#
+ (car #{w 28623}#))
+ (#{s1 30802}#
+ (cdr #{w 28623}#)))
+ (if (null? #{m1 30801}#)
+ (if (null? #{s1 30802}#)
+ #{w2 30800}#
+ (cons (car #{w2 30800}#)
+ (let ((#{m2 30817}#
+ (cdr #{w2 30800}#)))
+ (if (null? #{m2 30817}#)
+ #{s1 30802}#
(append
- #{s1 32190}#
- #{m2 32205}#)))))
- (cons (let ((#{m2 32213}#
- (car #{w2 32188}#)))
- (if (null? #{m2 32213}#)
- #{m1 32189}#
+ #{s1 30802}#
+ #{m2 30817}#)))))
+ (cons (let ((#{m2 30825}#
+ (car #{w2 30800}#)))
+ (if (null? #{m2 30825}#)
+ #{m1 30801}#
(append
- #{m1 32189}#
- #{m2 32213}#)))
- (let ((#{m2 32221}#
- (cdr #{w2 32188}#)))
- (if (null? #{m2 32221}#)
- #{s1 32190}#
+ #{m1 30801}#
+ #{m2 30825}#)))
+ (let ((#{m2 30833}#
+ (cdr #{w2 30800}#)))
+ (if (null? #{m2 30833}#)
+ #{s1 30802}#
(append
- #{s1 32190}#
- #{m2 32221}#))))))))
- (#{module 32181}#
+ #{s1 30802}#
+ #{m2 30833}#))))))))
+ (#{module 30793}#
(vector-ref
- #{x 32147}#
+ #{x 30759}#
3)))
(vector
'syntax-object
- #{expression 32179}#
- #{wrap 32180}#
- #{module 32181}#))
- (if (null? #{x 32147}#)
- #{x 32147}#
+ #{expression 30791}#
+ #{wrap 30792}#
+ #{module 30793}#))
+ (if (null? #{x 30759}#)
+ #{x 30759}#
(vector
'syntax-object
- #{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}#))
+ #{x 30759}#
+ #{w 28623}#
+ #{mod 28625}#))))))
+ (cdr #{body 28406}#))))))))))))))))))
+ (#{parse 28298}#
+ (map (lambda (#{x 28301}#)
+ (cons #{r 28295}#
+ (if (if (null? (car #{w 28297}#))
+ (null? (cdr #{w 28297}#))
#f)
- #{x 29706}#
- (if (if (vector? #{x 29706}#)
- (if (= (vector-length #{x 29706}#) 4)
- (eq? (vector-ref #{x 29706}# 0)
+ #{x 28301}#
+ (if (if (vector? #{x 28301}#)
+ (if (= (vector-length #{x 28301}#) 4)
+ (eq? (vector-ref #{x 28301}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 28337}#
+ (vector-ref #{x 28301}# 1))
+ (#{wrap 28338}#
+ (let ((#{w2 28348}#
+ (vector-ref #{x 28301}# 2)))
+ (let ((#{m1 28349}#
+ (car #{w 28297}#))
+ (#{s1 28350}#
+ (cdr #{w 28297}#)))
+ (if (null? #{m1 28349}#)
+ (if (null? #{s1 28350}#)
+ #{w2 28348}#
+ (cons (car #{w2 28348}#)
+ (let ((#{m2 28367}#
+ (cdr #{w2 28348}#)))
+ (if (null? #{m2 28367}#)
+ #{s1 28350}#
(append
- #{s1 29755}#
- #{m2 29772}#)))))
- (cons (let ((#{m2 29780}#
- (car #{w2 29753}#)))
- (if (null? #{m2 29780}#)
- #{m1 29754}#
+ #{s1 28350}#
+ #{m2 28367}#)))))
+ (cons (let ((#{m2 28375}#
+ (car #{w2 28348}#)))
+ (if (null? #{m2 28375}#)
+ #{m1 28349}#
(append
- #{m1 29754}#
- #{m2 29780}#)))
- (let ((#{m2 29788}#
- (cdr #{w2 29753}#)))
- (if (null? #{m2 29788}#)
- #{s1 29755}#
+ #{m1 28349}#
+ #{m2 28375}#)))
+ (let ((#{m2 28383}#
+ (cdr #{w2 28348}#)))
+ (if (null? #{m2 28383}#)
+ #{s1 28350}#
(append
- #{s1 29755}#
- #{m2 29788}#))))))))
- (#{module 29744}#
- (vector-ref #{x 29706}# 3)))
+ #{s1 28350}#
+ #{m2 28383}#))))))))
+ (#{module 28339}#
+ (vector-ref #{x 28301}# 3)))
(vector
'syntax-object
- #{expression 29742}#
- #{wrap 29743}#
- #{module 29744}#))
- (if (null? #{x 29706}#)
- #{x 29706}#
+ #{expression 28337}#
+ #{wrap 28338}#
+ #{module 28339}#))
+ (if (null? #{x 28301}#)
+ #{x 28301}#
(vector
'syntax-object
- #{x 29706}#
- #{w 29702}#
- #{mod 29699}#))))))
- #{body 29695}#)
+ #{x 28301}#
+ #{w 28297}#
+ #{mod 28294}#))))))
+ #{body 28290}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-local-syntax 4378}#
- (lambda (#{rec? 32236}#
- #{e 32237}#
- #{r 32238}#
- #{w 32239}#
- #{s 32240}#
- #{mod 32241}#
- #{k 32242}#)
- (let ((#{tmp 32244}#
+ (#{chi-local-syntax 4451}#
+ (lambda (#{rec? 30848}#
+ #{e 30849}#
+ #{r 30850}#
+ #{w 30851}#
+ #{s 30852}#
+ #{mod 30853}#
+ #{k 30854}#)
+ (let ((#{tmp 30856}#
($sc-dispatch
- #{e 32237}#
+ #{e 30849}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 32244}#
+ (if #{tmp 30856}#
(@apply
- (lambda (#{id 32248}#
- #{val 32249}#
- #{e1 32250}#
- #{e2 32251}#)
- (if (not (#{valid-bound-ids? 4363}# #{id 32248}#))
+ (lambda (#{id 30860}#
+ #{val 30861}#
+ #{e1 30862}#
+ #{e2 30863}#)
+ (if (not (#{valid-bound-ids? 4436}# #{id 30860}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{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}#)))
+ #{e 30849}#)
+ (let ((#{labels 30960}#
+ (#{gen-labels 4416}# #{id 30860}#)))
+ (let ((#{new-w 30961}#
+ (#{make-binding-wrap 4427}#
+ #{id 30860}#
+ #{labels 30960}#
+ #{w 30851}#)))
+ (#{k 30854}#
+ (cons #{e1 30862}# #{e2 30863}#)
+ (#{extend-env 4408}#
+ #{labels 30960}#
+ (let ((#{trans-r 31001}#
+ (#{macros-only-env 4410}# #{r 30850}#)))
(begin
- (if #{rec? 32236}# (if #f #f))
- (map (lambda (#{x 32390}#)
+ (if #{rec? 30848}# (if #f #f))
+ (map (lambda (#{x 31002}#)
(cons 'macro
- (#{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}#)
+ (#{eval-local-transformer 4452}#
+ (#{chi 4446}#
+ #{x 31002}#
+ #{trans-r 31001}#
+ (if #{rec? 30848}#
+ #{new-w 30961}#
+ #{w 30851}#)
+ #{mod 30853}#)
+ #{mod 30853}#)))
+ #{val 30861}#)))
+ #{r 30850}#)
+ #{new-w 30961}#
+ #{s 30852}#
+ #{mod 30853}#)))))
+ #{tmp 30856}#)
(syntax-violation
#f
"bad local syntax definition"
- (let ((#{x 32715}#
+ (let ((#{x 31335}#
(begin
- (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}#))
+ (if (if (pair? #{e 30849}#) #{s 30852}# #f)
+ (set-source-properties! #{e 30849}# #{s 30852}#))
+ #{e 30849}#)))
+ (if (if (null? (car #{w 30851}#))
+ (null? (cdr #{w 30851}#))
#f)
- #{x 32715}#
- (if (if (vector? #{x 32715}#)
- (if (= (vector-length #{x 32715}#) 4)
- (eq? (vector-ref #{x 32715}# 0) 'syntax-object)
+ #{x 31335}#
+ (if (if (vector? #{x 31335}#)
+ (if (= (vector-length #{x 31335}#) 4)
+ (eq? (vector-ref #{x 31335}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 31367}# (vector-ref #{x 31335}# 1))
+ (#{wrap 31368}#
+ (let ((#{w2 31376}# (vector-ref #{x 31335}# 2)))
+ (let ((#{m1 31377}# (car #{w 30851}#))
+ (#{s1 31378}# (cdr #{w 30851}#)))
+ (if (null? #{m1 31377}#)
+ (if (null? #{s1 31378}#)
+ #{w2 31376}#
+ (cons (car #{w2 31376}#)
+ (let ((#{m2 31393}#
+ (cdr #{w2 31376}#)))
+ (if (null? #{m2 31393}#)
+ #{s1 31378}#
(append
- #{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}#
+ #{s1 31378}#
+ #{m2 31393}#)))))
+ (cons (let ((#{m2 31401}# (car #{w2 31376}#)))
+ (if (null? #{m2 31401}#)
+ #{m1 31377}#
+ (append #{m1 31377}# #{m2 31401}#)))
+ (let ((#{m2 31409}# (cdr #{w2 31376}#)))
+ (if (null? #{m2 31409}#)
+ #{s1 31378}#
(append
- #{s1 32758}#
- #{m2 32789}#))))))))
- (#{module 32749}# (vector-ref #{x 32715}# 3)))
+ #{s1 31378}#
+ #{m2 31409}#))))))))
+ (#{module 31369}# (vector-ref #{x 31335}# 3)))
(vector
'syntax-object
- #{expression 32747}#
- #{wrap 32748}#
- #{module 32749}#))
- (if (null? #{x 32715}#)
- #{x 32715}#
+ #{expression 31367}#
+ #{wrap 31368}#
+ #{module 31369}#))
+ (if (null? #{x 31335}#)
+ #{x 31335}#
(vector
'syntax-object
- #{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}#
+ #{x 31335}#
+ #{w 30851}#
+ #{mod 30853}#))))))))))
+ (#{eval-local-transformer 4452}#
+ (lambda (#{expanded 31427}# #{mod 31428}#)
+ (let ((#{p 31429}# (primitive-eval #{expanded 31427}#)))
+ (if (procedure? #{p 31429}#)
+ #{p 31429}#
(syntax-violation
#f
"nonprocedure transformer"
- #{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)
+ #{p 31429}#)))))
+ (#{ellipsis? 4454}#
+ (lambda (#{x 6023}#)
+ (if (if (if (vector? #{x 6023}#)
+ (if (= (vector-length #{x 6023}#) 4)
+ (eq? (vector-ref #{x 6023}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5832}# 1))
+ (symbol? (vector-ref #{x 6023}# 1))
#f)
- (#{free-id=? 4361}#
- #{x 5832}#
+ (#{free-id=? 4434}#
+ #{x 6023}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2261"))
+ #(ribcage #(x) #((top)) #("i2341"))
#(ribcage
(lambda-var-list
gen-var
@@ -6123,6 +6308,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -6160,7 +6346,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -6406,13 +6591,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -6421,19 +6606,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -6514,353 +6699,354 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
#f)))
- (#{lambda-formals 4382}#
- (lambda (#{orig-args 32814}#)
+ (#{lambda-formals 4455}#
+ (lambda (#{orig-args 31434}#)
(letrec*
- ((#{req 32815}#
- (lambda (#{args 32819}# #{rreq 32820}#)
- (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '())))
- (if #{tmp 32822}#
+ ((#{req 31435}#
+ (lambda (#{args 31439}# #{rreq 31440}#)
+ (let ((#{tmp 31442}# ($sc-dispatch #{args 31439}# '())))
+ (if #{tmp 31442}#
(@apply
(lambda ()
- (#{check 32816}# (reverse #{rreq 32820}#) #f))
- #{tmp 32822}#)
- (let ((#{tmp 32938}#
- ($sc-dispatch #{args 32819}# '(any . any))))
- (if (if #{tmp 32938}#
+ (#{check 31436}# (reverse #{rreq 31440}#) #f))
+ #{tmp 31442}#)
+ (let ((#{tmp 31558}#
+ ($sc-dispatch #{args 31439}# '(any . any))))
+ (if (if #{tmp 31558}#
(@apply
- (lambda (#{a 32942}# #{b 32943}#)
- (if (symbol? #{a 32942}#)
+ (lambda (#{a 31562}# #{b 31563}#)
+ (if (symbol? #{a 31562}#)
#t
- (if (if (vector? #{a 32942}#)
- (if (= (vector-length #{a 32942}#) 4)
- (eq? (vector-ref #{a 32942}# 0)
+ (if (if (vector? #{a 31562}#)
+ (if (= (vector-length #{a 31562}#) 4)
+ (eq? (vector-ref #{a 31562}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 32942}# 1))
+ (symbol? (vector-ref #{a 31562}# 1))
#f)))
- #{tmp 32938}#)
+ #{tmp 31558}#)
#f)
(@apply
- (lambda (#{a 32970}# #{b 32971}#)
- (#{req 32815}#
- #{b 32971}#
- (cons #{a 32970}# #{rreq 32820}#)))
- #{tmp 32938}#)
- (let ((#{tmp 32972}# (list #{args 32819}#)))
+ (lambda (#{a 31590}# #{b 31591}#)
+ (#{req 31435}#
+ #{b 31591}#
+ (cons #{a 31590}# #{rreq 31440}#)))
+ #{tmp 31558}#)
+ (let ((#{tmp 31592}# (list #{args 31439}#)))
(if (@apply
- (lambda (#{r 32974}#)
- (if (symbol? #{r 32974}#)
+ (lambda (#{r 31594}#)
+ (if (symbol? #{r 31594}#)
#t
- (if (if (vector? #{r 32974}#)
- (if (= (vector-length #{r 32974}#) 4)
- (eq? (vector-ref #{r 32974}# 0)
+ (if (if (vector? #{r 31594}#)
+ (if (= (vector-length #{r 31594}#) 4)
+ (eq? (vector-ref #{r 31594}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 32974}# 1))
+ (symbol? (vector-ref #{r 31594}# 1))
#f)))
- #{tmp 32972}#)
+ #{tmp 31592}#)
(@apply
- (lambda (#{r 33004}#)
- (#{check 32816}#
- (reverse #{rreq 32820}#)
- #{r 33004}#))
- #{tmp 32972}#)
+ (lambda (#{r 31624}#)
+ (#{check 31436}#
+ (reverse #{rreq 31440}#)
+ #{r 31624}#))
+ #{tmp 31592}#)
(syntax-violation
'lambda
"invalid argument list"
- #{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)
+ #{orig-args 31434}#
+ #{args 31439}#)))))))))
+ (#{check 31436}#
+ (lambda (#{req 31748}# #{rest 31749}#)
+ (if (#{distinct-bound-ids? 4437}#
+ (if #{rest 31749}#
+ (cons #{rest 31749}# #{req 31748}#)
+ #{req 31748}#))
+ (values #{req 31748}# #f #{rest 31749}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{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}#)
+ #{orig-args 31434}#)))))
+ (#{req 31435}# #{orig-args 31434}# '()))))
+ (#{chi-simple-lambda 4456}#
+ (lambda (#{e 31858}#
+ #{r 31859}#
+ #{w 31860}#
+ #{s 31861}#
+ #{mod 31862}#
+ #{req 31863}#
+ #{rest 31864}#
+ #{meta 31865}#
+ #{body 31866}#)
+ (let ((#{ids 31867}#
+ (if #{rest 31864}#
+ (append #{req 31863}# (list #{rest 31864}#))
+ #{req 31863}#)))
+ (let ((#{vars 31868}#
+ (map #{gen-var 4460}# #{ids 31867}#)))
+ (let ((#{labels 31869}#
+ (#{gen-labels 4416}# #{ids 31867}#)))
+ (#{build-simple-lambda 4389}#
+ #{s 31861}#
+ (map syntax->datum #{req 31863}#)
+ (if #{rest 31864}#
+ (syntax->datum #{rest 31864}#)
#f)
- #{vars 33248}#
- #{meta 33245}#
- (#{chi-body 4377}#
- #{body 33246}#
- (let ((#{x 33438}#
+ #{vars 31868}#
+ #{meta 31865}#
+ (#{chi-body 4450}#
+ #{body 31866}#
+ (let ((#{x 32058}#
(begin
- (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}#))
+ (if (if (pair? #{e 31858}#) #{s 31861}# #f)
+ (set-source-properties! #{e 31858}# #{s 31861}#))
+ #{e 31858}#)))
+ (if (if (null? (car #{w 31860}#))
+ (null? (cdr #{w 31860}#))
#f)
- #{x 33438}#
- (if (if (vector? #{x 33438}#)
- (if (= (vector-length #{x 33438}#) 4)
- (eq? (vector-ref #{x 33438}# 0) 'syntax-object)
+ #{x 32058}#
+ (if (if (vector? #{x 32058}#)
+ (if (= (vector-length #{x 32058}#) 4)
+ (eq? (vector-ref #{x 32058}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 32090}# (vector-ref #{x 32058}# 1))
+ (#{wrap 32091}#
+ (let ((#{w2 32099}# (vector-ref #{x 32058}# 2)))
+ (let ((#{m1 32100}# (car #{w 31860}#))
+ (#{s1 32101}# (cdr #{w 31860}#)))
+ (if (null? #{m1 32100}#)
+ (if (null? #{s1 32101}#)
+ #{w2 32099}#
+ (cons (car #{w2 32099}#)
+ (let ((#{m2 32116}#
+ (cdr #{w2 32099}#)))
+ (if (null? #{m2 32116}#)
+ #{s1 32101}#
(append
- #{s1 33481}#
- #{m2 33496}#)))))
- (cons (let ((#{m2 33504}#
- (car #{w2 33479}#)))
- (if (null? #{m2 33504}#)
- #{m1 33480}#
+ #{s1 32101}#
+ #{m2 32116}#)))))
+ (cons (let ((#{m2 32124}#
+ (car #{w2 32099}#)))
+ (if (null? #{m2 32124}#)
+ #{m1 32100}#
(append
- #{m1 33480}#
- #{m2 33504}#)))
- (let ((#{m2 33512}#
- (cdr #{w2 33479}#)))
- (if (null? #{m2 33512}#)
- #{s1 33481}#
+ #{m1 32100}#
+ #{m2 32124}#)))
+ (let ((#{m2 32132}#
+ (cdr #{w2 32099}#)))
+ (if (null? #{m2 32132}#)
+ #{s1 32101}#
(append
- #{s1 33481}#
- #{m2 33512}#))))))))
- (#{module 33472}# (vector-ref #{x 33438}# 3)))
+ #{s1 32101}#
+ #{m2 32132}#))))))))
+ (#{module 32092}# (vector-ref #{x 32058}# 3)))
(vector
'syntax-object
- #{expression 33470}#
- #{wrap 33471}#
- #{module 33472}#))
- (if (null? #{x 33438}#)
- #{x 33438}#
+ #{expression 32090}#
+ #{wrap 32091}#
+ #{module 32092}#))
+ (if (null? #{x 32058}#)
+ #{x 32058}#
(vector
'syntax-object
- #{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}#)
+ #{x 32058}#
+ #{w 31860}#
+ #{mod 31862}#)))))
+ (#{extend-var-env 4409}#
+ #{labels 31869}#
+ #{vars 31868}#
+ #{r 31859}#)
+ (#{make-binding-wrap 4427}#
+ #{ids 31867}#
+ #{labels 31869}#
+ #{w 31860}#)
+ #{mod 31862}#)))))))
+ (#{lambda*-formals 4457}#
+ (lambda (#{orig-args 32363}#)
(letrec*
- ((#{req 33744}#
- (lambda (#{args 33751}# #{rreq 33752}#)
- (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '())))
- (if #{tmp 33754}#
+ ((#{req 32364}#
+ (lambda (#{args 32371}# #{rreq 32372}#)
+ (let ((#{tmp 32374}# ($sc-dispatch #{args 32371}# '())))
+ (if #{tmp 32374}#
(@apply
(lambda ()
- (#{check 33748}#
- (reverse #{rreq 33752}#)
+ (#{check 32368}#
+ (reverse #{rreq 32372}#)
'()
#f
'()))
- #{tmp 33754}#)
- (let ((#{tmp 33873}#
- ($sc-dispatch #{args 33751}# '(any . any))))
- (if (if #{tmp 33873}#
+ #{tmp 32374}#)
+ (let ((#{tmp 32493}#
+ ($sc-dispatch #{args 32371}# '(any . any))))
+ (if (if #{tmp 32493}#
(@apply
- (lambda (#{a 33877}# #{b 33878}#)
- (if (symbol? #{a 33877}#)
+ (lambda (#{a 32497}# #{b 32498}#)
+ (if (symbol? #{a 32497}#)
#t
- (if (if (vector? #{a 33877}#)
- (if (= (vector-length #{a 33877}#) 4)
- (eq? (vector-ref #{a 33877}# 0)
+ (if (if (vector? #{a 32497}#)
+ (if (= (vector-length #{a 32497}#) 4)
+ (eq? (vector-ref #{a 32497}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33877}# 1))
+ (symbol? (vector-ref #{a 32497}# 1))
#f)))
- #{tmp 33873}#)
+ #{tmp 32493}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 32525}# #{b 32526}#)
+ (#{req 32364}#
+ #{b 32526}#
+ (cons #{a 32525}# #{rreq 32372}#)))
+ #{tmp 32493}#)
+ (let ((#{tmp 32527}#
+ ($sc-dispatch #{args 32371}# '(any . any))))
+ (if (if #{tmp 32527}#
(@apply
- (lambda (#{a 33911}# #{b 33912}#)
- (eq? (syntax->datum #{a 33911}#) #:optional))
- #{tmp 33907}#)
+ (lambda (#{a 32531}# #{b 32532}#)
+ (eq? (syntax->datum #{a 32531}#) #:optional))
+ #{tmp 32527}#)
#f)
(@apply
- (lambda (#{a 33913}# #{b 33914}#)
- (#{opt 33745}#
- #{b 33914}#
- (reverse #{rreq 33752}#)
+ (lambda (#{a 32533}# #{b 32534}#)
+ (#{opt 32365}#
+ #{b 32534}#
+ (reverse #{rreq 32372}#)
'()))
- #{tmp 33907}#)
- (let ((#{tmp 33917}#
- ($sc-dispatch #{args 33751}# '(any . any))))
- (if (if #{tmp 33917}#
+ #{tmp 32527}#)
+ (let ((#{tmp 32537}#
+ ($sc-dispatch #{args 32371}# '(any . any))))
+ (if (if #{tmp 32537}#
(@apply
- (lambda (#{a 33921}# #{b 33922}#)
- (eq? (syntax->datum #{a 33921}#) #:key))
- #{tmp 33917}#)
+ (lambda (#{a 32541}# #{b 32542}#)
+ (eq? (syntax->datum #{a 32541}#) #:key))
+ #{tmp 32537}#)
#f)
(@apply
- (lambda (#{a 33923}# #{b 33924}#)
- (#{key 33746}#
- #{b 33924}#
- (reverse #{rreq 33752}#)
+ (lambda (#{a 32543}# #{b 32544}#)
+ (#{key 32366}#
+ #{b 32544}#
+ (reverse #{rreq 32372}#)
'()
'()))
- #{tmp 33917}#)
- (let ((#{tmp 33927}#
+ #{tmp 32537}#)
+ (let ((#{tmp 32547}#
($sc-dispatch
- #{args 33751}#
+ #{args 32371}#
'(any any))))
- (if (if #{tmp 33927}#
+ (if (if #{tmp 32547}#
(@apply
- (lambda (#{a 33931}# #{b 33932}#)
- (eq? (syntax->datum #{a 33931}#)
+ (lambda (#{a 32551}# #{b 32552}#)
+ (eq? (syntax->datum #{a 32551}#)
#:rest))
- #{tmp 33927}#)
+ #{tmp 32547}#)
#f)
(@apply
- (lambda (#{a 33933}# #{b 33934}#)
- (#{rest 33747}#
- #{b 33934}#
- (reverse #{rreq 33752}#)
+ (lambda (#{a 32553}# #{b 32554}#)
+ (#{rest 32367}#
+ #{b 32554}#
+ (reverse #{rreq 32372}#)
'()
'()))
- #{tmp 33927}#)
- (let ((#{tmp 33937}# (list #{args 33751}#)))
+ #{tmp 32547}#)
+ (let ((#{tmp 32557}# (list #{args 32371}#)))
(if (@apply
- (lambda (#{r 33939}#)
- (if (symbol? #{r 33939}#)
+ (lambda (#{r 32559}#)
+ (if (symbol? #{r 32559}#)
#t
- (if (if (vector? #{r 33939}#)
+ (if (if (vector? #{r 32559}#)
(if (= (vector-length
- #{r 33939}#)
+ #{r 32559}#)
4)
(eq? (vector-ref
- #{r 33939}#
+ #{r 32559}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33939}# 1))
+ (vector-ref #{r 32559}# 1))
#f)))
- #{tmp 33937}#)
+ #{tmp 32557}#)
(@apply
- (lambda (#{r 33969}#)
- (#{rest 33747}#
- #{r 33969}#
- (reverse #{rreq 33752}#)
+ (lambda (#{r 32589}#)
+ (#{rest 32367}#
+ #{r 32589}#
+ (reverse #{rreq 32372}#)
'()
'()))
- #{tmp 33937}#)
+ #{tmp 32557}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 33743}#
- #{args 33751}#)))))))))))))))
- (#{opt 33745}#
- (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#)
- (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '())))
- (if #{tmp 33992}#
+ #{orig-args 32363}#
+ #{args 32371}#)))))))))))))))
+ (#{opt 32365}#
+ (lambda (#{args 32608}# #{req 32609}# #{ropt 32610}#)
+ (let ((#{tmp 32612}# ($sc-dispatch #{args 32608}# '())))
+ (if #{tmp 32612}#
(@apply
(lambda ()
- (#{check 33748}#
- #{req 33989}#
- (reverse #{ropt 33990}#)
+ (#{check 32368}#
+ #{req 32609}#
+ (reverse #{ropt 32610}#)
#f
'()))
- #{tmp 33992}#)
- (let ((#{tmp 34113}#
- ($sc-dispatch #{args 33988}# '(any . any))))
- (if (if #{tmp 34113}#
+ #{tmp 32612}#)
+ (let ((#{tmp 32733}#
+ ($sc-dispatch #{args 32608}# '(any . any))))
+ (if (if #{tmp 32733}#
(@apply
- (lambda (#{a 34117}# #{b 34118}#)
- (if (symbol? #{a 34117}#)
+ (lambda (#{a 32737}# #{b 32738}#)
+ (if (symbol? #{a 32737}#)
#t
- (if (if (vector? #{a 34117}#)
- (if (= (vector-length #{a 34117}#) 4)
- (eq? (vector-ref #{a 34117}# 0)
+ (if (if (vector? #{a 32737}#)
+ (if (= (vector-length #{a 32737}#) 4)
+ (eq? (vector-ref #{a 32737}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34117}# 1))
+ (symbol? (vector-ref #{a 32737}# 1))
#f)))
- #{tmp 34113}#)
+ #{tmp 32733}#)
#f)
(@apply
- (lambda (#{a 34145}# #{b 34146}#)
- (#{opt 33745}#
- #{b 34146}#
- #{req 33989}#
- (cons (cons #{a 34145}#
+ (lambda (#{a 32765}# #{b 32766}#)
+ (#{opt 32365}#
+ #{b 32766}#
+ #{req 32609}#
+ (cons (cons #{a 32765}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2400" "i2401"))
+ #("i2480" "i2481"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2390" "i2391" "i2392"))
+ #("i2470" "i2471" "i2472"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2336"
- "i2334"
- "i2332"
- "i2330"
- "i2328"))
+ ("i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"))
#(ribcage
#(orig-args)
#((top))
- #("i2327"))
+ #("i2407"))
#(ribcage
(lambda-var-list
gen-var
@@ -6890,6 +7076,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -6927,7 +7114,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -7173,13 +7359,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -7188,19 +7374,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -7281,149 +7467,150 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))))
- #{ropt 33990}#)))
- #{tmp 34113}#)
- (let ((#{tmp 34147}#
+ #{ropt 32610}#)))
+ #{tmp 32733}#)
+ (let ((#{tmp 32767}#
($sc-dispatch
- #{args 33988}#
+ #{args 32608}#
'((any any) . any))))
- (if (if #{tmp 34147}#
+ (if (if #{tmp 32767}#
(@apply
- (lambda (#{a 34151}#
- #{init 34152}#
- #{b 34153}#)
- (if (symbol? #{a 34151}#)
+ (lambda (#{a 32771}#
+ #{init 32772}#
+ #{b 32773}#)
+ (if (symbol? #{a 32771}#)
#t
- (if (if (vector? #{a 34151}#)
- (if (= (vector-length #{a 34151}#) 4)
- (eq? (vector-ref #{a 34151}# 0)
+ (if (if (vector? #{a 32771}#)
+ (if (= (vector-length #{a 32771}#) 4)
+ (eq? (vector-ref #{a 32771}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34151}# 1))
+ (symbol? (vector-ref #{a 32771}# 1))
#f)))
- #{tmp 34147}#)
+ #{tmp 32767}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 32800}# #{init 32801}# #{b 32802}#)
+ (#{opt 32365}#
+ #{b 32802}#
+ #{req 32609}#
+ (cons (list #{a 32800}# #{init 32801}#)
+ #{ropt 32610}#)))
+ #{tmp 32767}#)
+ (let ((#{tmp 32803}#
+ ($sc-dispatch #{args 32608}# '(any . any))))
+ (if (if #{tmp 32803}#
(@apply
- (lambda (#{a 34187}# #{b 34188}#)
- (eq? (syntax->datum #{a 34187}#) #:key))
- #{tmp 34183}#)
+ (lambda (#{a 32807}# #{b 32808}#)
+ (eq? (syntax->datum #{a 32807}#) #:key))
+ #{tmp 32803}#)
#f)
(@apply
- (lambda (#{a 34189}# #{b 34190}#)
- (#{key 33746}#
- #{b 34190}#
- #{req 33989}#
- (reverse #{ropt 33990}#)
+ (lambda (#{a 32809}# #{b 32810}#)
+ (#{key 32366}#
+ #{b 32810}#
+ #{req 32609}#
+ (reverse #{ropt 32610}#)
'()))
- #{tmp 34183}#)
- (let ((#{tmp 34193}#
+ #{tmp 32803}#)
+ (let ((#{tmp 32813}#
($sc-dispatch
- #{args 33988}#
+ #{args 32608}#
'(any any))))
- (if (if #{tmp 34193}#
+ (if (if #{tmp 32813}#
(@apply
- (lambda (#{a 34197}# #{b 34198}#)
- (eq? (syntax->datum #{a 34197}#)
+ (lambda (#{a 32817}# #{b 32818}#)
+ (eq? (syntax->datum #{a 32817}#)
#:rest))
- #{tmp 34193}#)
+ #{tmp 32813}#)
#f)
(@apply
- (lambda (#{a 34199}# #{b 34200}#)
- (#{rest 33747}#
- #{b 34200}#
- #{req 33989}#
- (reverse #{ropt 33990}#)
+ (lambda (#{a 32819}# #{b 32820}#)
+ (#{rest 32367}#
+ #{b 32820}#
+ #{req 32609}#
+ (reverse #{ropt 32610}#)
'()))
- #{tmp 34193}#)
- (let ((#{tmp 34203}# (list #{args 33988}#)))
+ #{tmp 32813}#)
+ (let ((#{tmp 32823}# (list #{args 32608}#)))
(if (@apply
- (lambda (#{r 34205}#)
- (if (symbol? #{r 34205}#)
+ (lambda (#{r 32825}#)
+ (if (symbol? #{r 32825}#)
#t
- (if (if (vector? #{r 34205}#)
+ (if (if (vector? #{r 32825}#)
(if (= (vector-length
- #{r 34205}#)
+ #{r 32825}#)
4)
(eq? (vector-ref
- #{r 34205}#
+ #{r 32825}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 34205}# 1))
+ (vector-ref #{r 32825}# 1))
#f)))
- #{tmp 34203}#)
+ #{tmp 32823}#)
(@apply
- (lambda (#{r 34235}#)
- (#{rest 33747}#
- #{r 34235}#
- #{req 33989}#
- (reverse #{ropt 33990}#)
+ (lambda (#{r 32855}#)
+ (#{rest 32367}#
+ #{r 32855}#
+ #{req 32609}#
+ (reverse #{ropt 32610}#)
'()))
- #{tmp 34203}#)
+ #{tmp 32823}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{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}#
+ #{orig-args 32363}#
+ #{args 32608}#)))))))))))))))
+ (#{key 32366}#
+ (lambda (#{args 32874}#
+ #{req 32875}#
+ #{opt 32876}#
+ #{rkey 32877}#)
+ (let ((#{tmp 32879}# ($sc-dispatch #{args 32874}# '())))
+ (if #{tmp 32879}#
(@apply
(lambda ()
- (#{check 33748}#
- #{req 34255}#
- #{opt 34256}#
+ (#{check 32368}#
+ #{req 32875}#
+ #{opt 32876}#
#f
- (cons #f (reverse #{rkey 34257}#))))
- #{tmp 34259}#)
- (let ((#{tmp 34381}#
- ($sc-dispatch #{args 34254}# '(any . any))))
- (if (if #{tmp 34381}#
+ (cons #f (reverse #{rkey 32877}#))))
+ #{tmp 32879}#)
+ (let ((#{tmp 33001}#
+ ($sc-dispatch #{args 32874}# '(any . any))))
+ (if (if #{tmp 33001}#
(@apply
- (lambda (#{a 34385}# #{b 34386}#)
- (if (symbol? #{a 34385}#)
+ (lambda (#{a 33005}# #{b 33006}#)
+ (if (symbol? #{a 33005}#)
#t
- (if (if (vector? #{a 34385}#)
- (if (= (vector-length #{a 34385}#) 4)
- (eq? (vector-ref #{a 34385}# 0)
+ (if (if (vector? #{a 33005}#)
+ (if (= (vector-length #{a 33005}#) 4)
+ (eq? (vector-ref #{a 33005}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34385}# 1))
+ (symbol? (vector-ref #{a 33005}# 1))
#f)))
- #{tmp 34381}#)
+ #{tmp 33001}#)
#f)
(@apply
- (lambda (#{a 34413}# #{b 34414}#)
- (let ((#{tmp 34415}#
+ (lambda (#{a 33033}# #{b 33034}#)
+ (let ((#{tmp 33035}#
(symbol->keyword
- (syntax->datum #{a 34413}#))))
- (#{key 33746}#
- #{b 34414}#
- #{req 34255}#
- #{opt 34256}#
- (cons (cons #{tmp 34415}#
- (cons #{a 34413}#
+ (syntax->datum #{a 33033}#))))
+ (#{key 32366}#
+ #{b 33034}#
+ #{req 32875}#
+ #{opt 32876}#
+ (cons (cons #{tmp 33035}#
+ (cons #{a 33033}#
'(#(syntax-object
#f
((top)
@@ -7431,11 +7618,11 @@
#(ribcage
#(k)
#((top))
- #("i2463"))
+ #("i2543"))
#(ribcage
#(a b)
#((top) (top))
- #("i2457" "i2458"))
+ #("i2537" "i2538"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7443,10 +7630,10 @@
(top)
(top)
(top))
- #("i2446"
- "i2447"
- "i2448"
- "i2449"))
+ #("i2526"
+ "i2527"
+ "i2528"
+ "i2529"))
#(ribcage
(check rest key opt req)
((top)
@@ -7454,15 +7641,15 @@
(top)
(top)
(top))
- ("i2336"
- "i2334"
- "i2332"
- "i2330"
- "i2328"))
+ ("i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"))
#(ribcage
#(orig-args)
#((top))
- #("i2327"))
+ #("i2407"))
#(ribcage
(lambda-var-list
gen-var
@@ -7492,6 +7679,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -7529,7 +7717,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -7775,13 +7962,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -7790,19 +7977,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -7883,1011 +8070,1012 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))))
- #{rkey 34257}#))))
- #{tmp 34381}#)
- (let ((#{tmp 34418}#
+ #{rkey 32877}#))))
+ #{tmp 33001}#)
+ (let ((#{tmp 33038}#
($sc-dispatch
- #{args 34254}#
+ #{args 32874}#
'((any any) . any))))
- (if (if #{tmp 34418}#
+ (if (if #{tmp 33038}#
(@apply
- (lambda (#{a 34422}#
- #{init 34423}#
- #{b 34424}#)
- (if (symbol? #{a 34422}#)
+ (lambda (#{a 33042}#
+ #{init 33043}#
+ #{b 33044}#)
+ (if (symbol? #{a 33042}#)
#t
- (if (if (vector? #{a 34422}#)
- (if (= (vector-length #{a 34422}#) 4)
- (eq? (vector-ref #{a 34422}# 0)
+ (if (if (vector? #{a 33042}#)
+ (if (= (vector-length #{a 33042}#) 4)
+ (eq? (vector-ref #{a 33042}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34422}# 1))
+ (symbol? (vector-ref #{a 33042}# 1))
#f)))
- #{tmp 34418}#)
+ #{tmp 33038}#)
#f)
(@apply
- (lambda (#{a 34451}# #{init 34452}# #{b 34453}#)
- (let ((#{tmp 34454}#
+ (lambda (#{a 33071}# #{init 33072}# #{b 33073}#)
+ (let ((#{tmp 33074}#
(symbol->keyword
- (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}#
+ (syntax->datum #{a 33071}#))))
+ (#{key 32366}#
+ #{b 33073}#
+ #{req 32875}#
+ #{opt 32876}#
+ (cons (list #{tmp 33074}#
+ #{a 33071}#
+ #{init 33072}#)
+ #{rkey 32877}#))))
+ #{tmp 33038}#)
+ (let ((#{tmp 33077}#
($sc-dispatch
- #{args 34254}#
+ #{args 32874}#
'((any any any) . any))))
- (if (if #{tmp 34457}#
+ (if (if #{tmp 33077}#
(@apply
- (lambda (#{a 34461}#
- #{init 34462}#
- #{k 34463}#
- #{b 34464}#)
- (if (if (symbol? #{a 34461}#)
+ (lambda (#{a 33081}#
+ #{init 33082}#
+ #{k 33083}#
+ #{b 33084}#)
+ (if (if (symbol? #{a 33081}#)
#t
- (if (if (vector? #{a 34461}#)
+ (if (if (vector? #{a 33081}#)
(if (= (vector-length
- #{a 34461}#)
+ #{a 33081}#)
4)
(eq? (vector-ref
- #{a 34461}#
+ #{a 33081}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 34461}# 1))
+ (vector-ref #{a 33081}# 1))
#f))
- (keyword? (syntax->datum #{k 34463}#))
+ (keyword? (syntax->datum #{k 33083}#))
#f))
- #{tmp 34457}#)
+ #{tmp 33077}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 33111}#
+ #{init 33112}#
+ #{k 33113}#
+ #{b 33114}#)
+ (#{key 32366}#
+ #{b 33114}#
+ #{req 32875}#
+ #{opt 32876}#
+ (cons (list #{k 33113}#
+ #{a 33111}#
+ #{init 33112}#)
+ #{rkey 32877}#)))
+ #{tmp 33077}#)
+ (let ((#{tmp 33115}#
+ ($sc-dispatch #{args 32874}# '(any))))
+ (if (if #{tmp 33115}#
(@apply
- (lambda (#{aok 34499}#)
- (eq? (syntax->datum #{aok 34499}#)
+ (lambda (#{aok 33119}#)
+ (eq? (syntax->datum #{aok 33119}#)
#:allow-other-keys))
- #{tmp 34495}#)
+ #{tmp 33115}#)
#f)
(@apply
- (lambda (#{aok 34500}#)
- (#{check 33748}#
- #{req 34255}#
- #{opt 34256}#
+ (lambda (#{aok 33120}#)
+ (#{check 32368}#
+ #{req 32875}#
+ #{opt 32876}#
#f
- (cons #t (reverse #{rkey 34257}#))))
- #{tmp 34495}#)
- (let ((#{tmp 34619}#
+ (cons #t (reverse #{rkey 32877}#))))
+ #{tmp 33115}#)
+ (let ((#{tmp 33239}#
($sc-dispatch
- #{args 34254}#
+ #{args 32874}#
'(any any any))))
- (if (if #{tmp 34619}#
+ (if (if #{tmp 33239}#
(@apply
- (lambda (#{aok 34623}#
- #{a 34624}#
- #{b 34625}#)
+ (lambda (#{aok 33243}#
+ #{a 33244}#
+ #{b 33245}#)
(if (eq? (syntax->datum
- #{aok 34623}#)
+ #{aok 33243}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 34624}#)
+ #{a 33244}#)
#:rest)
#f))
- #{tmp 34619}#)
+ #{tmp 33239}#)
#f)
(@apply
- (lambda (#{aok 34626}#
- #{a 34627}#
- #{b 34628}#)
- (#{rest 33747}#
- #{b 34628}#
- #{req 34255}#
- #{opt 34256}#
+ (lambda (#{aok 33246}#
+ #{a 33247}#
+ #{b 33248}#)
+ (#{rest 32367}#
+ #{b 33248}#
+ #{req 32875}#
+ #{opt 32876}#
(cons #t
- (reverse #{rkey 34257}#))))
- #{tmp 34619}#)
- (let ((#{tmp 34631}#
+ (reverse #{rkey 32877}#))))
+ #{tmp 33239}#)
+ (let ((#{tmp 33251}#
($sc-dispatch
- #{args 34254}#
+ #{args 32874}#
'(any . any))))
- (if (if #{tmp 34631}#
+ (if (if #{tmp 33251}#
(@apply
- (lambda (#{aok 34635}#
- #{r 34636}#)
+ (lambda (#{aok 33255}#
+ #{r 33256}#)
(if (eq? (syntax->datum
- #{aok 34635}#)
+ #{aok 33255}#)
#:allow-other-keys)
- (if (symbol? #{r 34636}#)
+ (if (symbol? #{r 33256}#)
#t
(if (if (vector?
- #{r 34636}#)
+ #{r 33256}#)
(if (= (vector-length
- #{r 34636}#)
+ #{r 33256}#)
4)
(eq? (vector-ref
- #{r 34636}#
+ #{r 33256}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34636}#
+ #{r 33256}#
1))
#f))
#f))
- #{tmp 34631}#)
+ #{tmp 33251}#)
#f)
(@apply
- (lambda (#{aok 34663}# #{r 34664}#)
- (#{rest 33747}#
- #{r 34664}#
- #{req 34255}#
- #{opt 34256}#
+ (lambda (#{aok 33283}# #{r 33284}#)
+ (#{rest 32367}#
+ #{r 33284}#
+ #{req 32875}#
+ #{opt 32876}#
(cons #t
(reverse
- #{rkey 34257}#))))
- #{tmp 34631}#)
- (let ((#{tmp 34667}#
+ #{rkey 32877}#))))
+ #{tmp 33251}#)
+ (let ((#{tmp 33287}#
($sc-dispatch
- #{args 34254}#
+ #{args 32874}#
'(any any))))
- (if (if #{tmp 34667}#
+ (if (if #{tmp 33287}#
(@apply
- (lambda (#{a 34671}#
- #{b 34672}#)
+ (lambda (#{a 33291}#
+ #{b 33292}#)
(eq? (syntax->datum
- #{a 34671}#)
+ #{a 33291}#)
#:rest))
- #{tmp 34667}#)
+ #{tmp 33287}#)
#f)
(@apply
- (lambda (#{a 34673}#
- #{b 34674}#)
- (#{rest 33747}#
- #{b 34674}#
- #{req 34255}#
- #{opt 34256}#
+ (lambda (#{a 33293}#
+ #{b 33294}#)
+ (#{rest 32367}#
+ #{b 33294}#
+ #{req 32875}#
+ #{opt 32876}#
(cons #f
(reverse
- #{rkey 34257}#))))
- #{tmp 34667}#)
- (let ((#{tmp 34677}#
- (list #{args 34254}#)))
+ #{rkey 32877}#))))
+ #{tmp 33287}#)
+ (let ((#{tmp 33297}#
+ (list #{args 32874}#)))
(if (@apply
- (lambda (#{r 34679}#)
+ (lambda (#{r 33299}#)
(if (symbol?
- #{r 34679}#)
+ #{r 33299}#)
#t
(if (if (vector?
- #{r 34679}#)
+ #{r 33299}#)
(if (= (vector-length
- #{r 34679}#)
+ #{r 33299}#)
4)
(eq? (vector-ref
- #{r 34679}#
+ #{r 33299}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34679}#
+ #{r 33299}#
1))
#f)))
- #{tmp 34677}#)
+ #{tmp 33297}#)
(@apply
- (lambda (#{r 34709}#)
- (#{rest 33747}#
- #{r 34709}#
- #{req 34255}#
- #{opt 34256}#
+ (lambda (#{r 33329}#)
+ (#{rest 32367}#
+ #{r 33329}#
+ #{req 32875}#
+ #{opt 32876}#
(cons #f
(reverse
- #{rkey 34257}#))))
- #{tmp 34677}#)
+ #{rkey 32877}#))))
+ #{tmp 33297}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 33743}#
- #{args 34254}#)))))))))))))))))))))
- (#{rest 33747}#
- (lambda (#{args 34737}#
- #{req 34738}#
- #{opt 34739}#
- #{kw 34740}#)
- (let ((#{tmp 34742}# (list #{args 34737}#)))
+ #{orig-args 32363}#
+ #{args 32874}#)))))))))))))))))))))
+ (#{rest 32367}#
+ (lambda (#{args 33357}#
+ #{req 33358}#
+ #{opt 33359}#
+ #{kw 33360}#)
+ (let ((#{tmp 33362}# (list #{args 33357}#)))
(if (@apply
- (lambda (#{r 34744}#)
- (if (symbol? #{r 34744}#)
+ (lambda (#{r 33364}#)
+ (if (symbol? #{r 33364}#)
#t
- (if (if (vector? #{r 34744}#)
- (if (= (vector-length #{r 34744}#) 4)
- (eq? (vector-ref #{r 34744}# 0)
+ (if (if (vector? #{r 33364}#)
+ (if (= (vector-length #{r 33364}#) 4)
+ (eq? (vector-ref #{r 33364}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 34744}# 1))
+ (symbol? (vector-ref #{r 33364}# 1))
#f)))
- #{tmp 34742}#)
+ #{tmp 33362}#)
(@apply
- (lambda (#{r 34774}#)
- (#{check 33748}#
- #{req 34738}#
- #{opt 34739}#
- #{r 34774}#
- #{kw 34740}#))
- #{tmp 34742}#)
+ (lambda (#{r 33394}#)
+ (#{check 32368}#
+ #{req 33358}#
+ #{opt 33359}#
+ #{r 33394}#
+ #{kw 33360}#))
+ #{tmp 33362}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 33743}#
- #{args 34737}#)))))
- (#{check 33748}#
- (lambda (#{req 34902}#
- #{opt 34903}#
- #{rest 34904}#
- #{kw 34905}#)
- (if (#{distinct-bound-ids? 4364}#
+ #{orig-args 32363}#
+ #{args 33357}#)))))
+ (#{check 32368}#
+ (lambda (#{req 33522}#
+ #{opt 33523}#
+ #{rest 33524}#
+ #{kw 33525}#)
+ (if (#{distinct-bound-ids? 4437}#
(append
- #{req 34902}#
- (map car #{opt 34903}#)
- (if #{rest 34904}# (list #{rest 34904}#) '())
- (if (pair? #{kw 34905}#)
- (map cadr (cdr #{kw 34905}#))
+ #{req 33522}#
+ (map car #{opt 33523}#)
+ (if #{rest 33524}# (list #{rest 33524}#) '())
+ (if (pair? #{kw 33525}#)
+ (map cadr (cdr #{kw 33525}#))
'())))
(values
- #{req 34902}#
- #{opt 34903}#
- #{rest 34904}#
- #{kw 34905}#)
+ #{req 33522}#
+ #{opt 33523}#
+ #{rest 33524}#
+ #{kw 33525}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{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}#)
+ #{orig-args 32363}#)))))
+ (#{req 32364}# #{orig-args 32363}# '()))))
+ (#{chi-lambda-case 4458}#
+ (lambda (#{e 33634}#
+ #{r 33635}#
+ #{w 33636}#
+ #{s 33637}#
+ #{mod 33638}#
+ #{get-formals 33639}#
+ #{clauses 33640}#)
(letrec*
- ((#{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-req 33641}#
+ (lambda (#{req 33777}#
+ #{opt 33778}#
+ #{rest 33779}#
+ #{kw 33780}#
+ #{body 33781}#)
+ (let ((#{vars 33782}#
+ (map #{gen-var 4460}# #{req 33777}#))
+ (#{labels 33783}#
+ (#{gen-labels 4416}# #{req 33777}#)))
+ (let ((#{r* 33784}#
+ (#{extend-var-env 4409}#
+ #{labels 33783}#
+ #{vars 33782}#
+ #{r 33635}#))
+ (#{w* 33785}#
+ (#{make-binding-wrap 4427}#
+ #{req 33777}#
+ #{labels 33783}#
+ #{w 33636}#)))
+ (#{expand-opt 33642}#
+ (map syntax->datum #{req 33777}#)
+ #{opt 33778}#
+ #{rest 33779}#
+ #{kw 33780}#
+ #{body 33781}#
+ (reverse #{vars 33782}#)
+ #{r* 33784}#
+ #{w* 33785}#
'()
'())))))
- (#{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}#
+ (#{expand-opt 33642}#
+ (lambda (#{req 34021}#
+ #{opt 34022}#
+ #{rest 34023}#
+ #{kw 34024}#
+ #{body 34025}#
+ #{vars 34026}#
+ #{r* 34027}#
+ #{w* 34028}#
+ #{out 34029}#
+ #{inits 34030}#)
+ (if (pair? #{opt 34022}#)
+ (let ((#{tmp 34031}# (car #{opt 34022}#)))
+ (let ((#{tmp 34032}#
+ ($sc-dispatch #{tmp 34031}# '(any any))))
+ (if #{tmp 34032}#
(@apply
- (lambda (#{id 35414}# #{i 35415}#)
- (let ((#{v 35416}#
- (let ((#{id 35424}#
- (if (if (vector? #{id 35414}#)
+ (lambda (#{id 34034}# #{i 34035}#)
+ (let ((#{v 34036}#
+ (let ((#{id 34044}#
+ (if (if (vector? #{id 34034}#)
(if (= (vector-length
- #{id 35414}#)
+ #{id 34034}#)
4)
(eq? (vector-ref
- #{id 35414}#
+ #{id 34034}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35414}# 1)
- #{id 35414}#)))
+ (vector-ref #{id 34034}# 1)
+ #{id 34034}#)))
(gensym
(string-append
- (symbol->string #{id 35424}#)
+ (symbol->string #{id 34044}#)
" ")))))
- (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}#)
+ (let ((#{l 34037}#
+ (#{gen-labels 4416}# (list #{v 34036}#))))
+ (let ((#{r** 34038}#
+ (#{extend-var-env 4409}#
+ #{l 34037}#
+ (list #{v 34036}#)
+ #{r* 34027}#)))
+ (let ((#{w** 34039}#
+ (#{make-binding-wrap 4427}#
+ (list #{id 34034}#)
+ #{l 34037}#
+ #{w* 34028}#)))
+ (#{expand-opt 33642}#
+ #{req 34021}#
+ (cdr #{opt 34022}#)
+ #{rest 34023}#
+ #{kw 34024}#
+ #{body 34025}#
+ (cons #{v 34036}# #{vars 34026}#)
+ #{r** 34038}#
+ #{w** 34039}#
+ (cons (syntax->datum #{id 34034}#)
+ #{out 34029}#)
+ (cons (#{chi 4446}#
+ #{i 34035}#
+ #{r* 34027}#
+ #{w* 34028}#
+ #{mod 33638}#)
+ #{inits 34030}#)))))))
+ #{tmp 34032}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 35411}#))))
- (if #{rest 35403}#
- (let ((#{v 35725}#
- (let ((#{id 35735}#
- (if (if (vector? #{rest 35403}#)
- (if (= (vector-length #{rest 35403}#)
+ #{tmp 34031}#))))
+ (if #{rest 34023}#
+ (let ((#{v 34345}#
+ (let ((#{id 34355}#
+ (if (if (vector? #{rest 34023}#)
+ (if (= (vector-length #{rest 34023}#)
4)
- (eq? (vector-ref #{rest 35403}# 0)
+ (eq? (vector-ref #{rest 34023}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 35403}# 1)
- #{rest 35403}#)))
+ (vector-ref #{rest 34023}# 1)
+ #{rest 34023}#)))
(gensym
(string-append
- (symbol->string #{id 35735}#)
+ (symbol->string #{id 34355}#)
" ")))))
- (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}#)
+ (let ((#{l 34346}#
+ (#{gen-labels 4416}# (list #{v 34345}#))))
+ (let ((#{r* 34347}#
+ (#{extend-var-env 4409}#
+ #{l 34346}#
+ (list #{v 34345}#)
+ #{r* 34027}#)))
+ (let ((#{w* 34348}#
+ (#{make-binding-wrap 4427}#
+ (list #{rest 34023}#)
+ #{l 34346}#
+ #{w* 34028}#)))
+ (#{expand-kw 33643}#
+ #{req 34021}#
+ (if (pair? #{out 34029}#)
+ (reverse #{out 34029}#)
#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)
+ (syntax->datum #{rest 34023}#)
+ (if (pair? #{kw 34024}#)
+ (cdr #{kw 34024}#)
+ #{kw 34024}#)
+ #{body 34025}#
+ (cons #{v 34345}# #{vars 34026}#)
+ #{r* 34347}#
+ #{w* 34348}#
+ (if (pair? #{kw 34024}#) (car #{kw 34024}#) #f)
'()
- #{inits 35410}#)))))
- (#{expand-kw 35023}#
- #{req 35401}#
- (if (pair? #{out 35409}#)
- (reverse #{out 35409}#)
+ #{inits 34030}#)))))
+ (#{expand-kw 33643}#
+ #{req 34021}#
+ (if (pair? #{out 34029}#)
+ (reverse #{out 34029}#)
#f)
#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)
+ (if (pair? #{kw 34024}#)
+ (cdr #{kw 34024}#)
+ #{kw 34024}#)
+ #{body 34025}#
+ #{vars 34026}#
+ #{r* 34027}#
+ #{w* 34028}#
+ (if (pair? #{kw 34024}#) (car #{kw 34024}#) #f)
'()
- #{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}#
+ #{inits 34030}#)))))
+ (#{expand-kw 33643}#
+ (lambda (#{req 34577}#
+ #{opt 34578}#
+ #{rest 34579}#
+ #{kw 34580}#
+ #{body 34581}#
+ #{vars 34582}#
+ #{r* 34583}#
+ #{w* 34584}#
+ #{aok 34585}#
+ #{out 34586}#
+ #{inits 34587}#)
+ (if (pair? #{kw 34580}#)
+ (let ((#{tmp 34588}# (car #{kw 34580}#)))
+ (let ((#{tmp 34589}#
+ ($sc-dispatch #{tmp 34588}# '(any any any))))
+ (if #{tmp 34589}#
(@apply
- (lambda (#{k 35971}# #{id 35972}# #{i 35973}#)
- (let ((#{v 35974}#
- (let ((#{id 35982}#
- (if (if (vector? #{id 35972}#)
+ (lambda (#{k 34591}# #{id 34592}# #{i 34593}#)
+ (let ((#{v 34594}#
+ (let ((#{id 34602}#
+ (if (if (vector? #{id 34592}#)
(if (= (vector-length
- #{id 35972}#)
+ #{id 34592}#)
4)
(eq? (vector-ref
- #{id 35972}#
+ #{id 34592}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35972}# 1)
- #{id 35972}#)))
+ (vector-ref #{id 34592}# 1)
+ #{id 34592}#)))
(gensym
(string-append
- (symbol->string #{id 35982}#)
+ (symbol->string #{id 34602}#)
" ")))))
- (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}#)
+ (let ((#{l 34595}#
+ (#{gen-labels 4416}# (list #{v 34594}#))))
+ (let ((#{r** 34596}#
+ (#{extend-var-env 4409}#
+ #{l 34595}#
+ (list #{v 34594}#)
+ #{r* 34583}#)))
+ (let ((#{w** 34597}#
+ (#{make-binding-wrap 4427}#
+ (list #{id 34592}#)
+ #{l 34595}#
+ #{w* 34584}#)))
+ (#{expand-kw 33643}#
+ #{req 34577}#
+ #{opt 34578}#
+ #{rest 34579}#
+ (cdr #{kw 34580}#)
+ #{body 34581}#
+ (cons #{v 34594}# #{vars 34582}#)
+ #{r** 34596}#
+ #{w** 34597}#
+ #{aok 34585}#
+ (cons (list (syntax->datum #{k 34591}#)
+ (syntax->datum #{id 34592}#)
+ #{v 34594}#)
+ #{out 34586}#)
+ (cons (#{chi 4446}#
+ #{i 34593}#
+ #{r* 34583}#
+ #{w* 34584}#
+ #{mod 33638}#)
+ #{inits 34587}#)))))))
+ #{tmp 34589}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#))
+ #{tmp 34588}#))))
+ (#{expand-body 33644}#
+ #{req 34577}#
+ #{opt 34578}#
+ #{rest 34579}#
+ (if (if #{aok 34585}#
+ #{aok 34585}#
+ (pair? #{out 34586}#))
+ (cons #{aok 34585}# (reverse #{out 34586}#))
#f)
- #{body 35961}#
- (reverse #{vars 35962}#)
- #{r* 35963}#
- #{w* 35964}#
- (reverse #{inits 35967}#)
+ #{body 34581}#
+ (reverse #{vars 34582}#)
+ #{r* 34583}#
+ #{w* 34584}#
+ (reverse #{inits 34587}#)
'()))))
- (#{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}#
+ (#{expand-body 33644}#
+ (lambda (#{req 34912}#
+ #{opt 34913}#
+ #{rest 34914}#
+ #{kw 34915}#
+ #{body 34916}#
+ #{vars 34917}#
+ #{r* 34918}#
+ #{w* 34919}#
+ #{inits 34920}#
+ #{meta 34921}#)
+ (let ((#{tmp 34923}#
($sc-dispatch
- #{body 36296}#
+ #{body 34916}#
'(any any . each-any))))
- (if (if #{tmp 36303}#
+ (if (if #{tmp 34923}#
(@apply
- (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#)
- (string? (syntax->datum #{docstring 36307}#)))
- #{tmp 36303}#)
+ (lambda (#{docstring 34927}# #{e1 34928}# #{e2 34929}#)
+ (string? (syntax->datum #{docstring 34927}#)))
+ #{tmp 34923}#)
#f)
(@apply
- (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}#
+ (lambda (#{docstring 34930}# #{e1 34931}# #{e2 34932}#)
+ (#{expand-body 33644}#
+ #{req 34912}#
+ #{opt 34913}#
+ #{rest 34914}#
+ #{kw 34915}#
+ (cons #{e1 34931}# #{e2 34932}#)
+ #{vars 34917}#
+ #{r* 34918}#
+ #{w* 34919}#
+ #{inits 34920}#
(append
- #{meta 36301}#
+ #{meta 34921}#
(list (cons 'documentation
- (syntax->datum #{docstring 36310}#))))))
- #{tmp 36303}#)
- (let ((#{tmp 36313}#
+ (syntax->datum #{docstring 34930}#))))))
+ #{tmp 34923}#)
+ (let ((#{tmp 34933}#
($sc-dispatch
- #{body 36296}#
+ #{body 34916}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 36313}#
+ (if #{tmp 34933}#
(@apply
- (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}#
+ (lambda (#{k 34937}#
+ #{v 34938}#
+ #{e1 34939}#
+ #{e2 34940}#)
+ (#{expand-body 33644}#
+ #{req 34912}#
+ #{opt 34913}#
+ #{rest 34914}#
+ #{kw 34915}#
+ (cons #{e1 34939}# #{e2 34940}#)
+ #{vars 34917}#
+ #{r* 34918}#
+ #{w* 34919}#
+ #{inits 34920}#
(append
- #{meta 36301}#
+ #{meta 34921}#
(syntax->datum
- (map cons #{k 36317}# #{v 36318}#)))))
- #{tmp 36313}#)
- (let ((#{tmp 36321}#
- ($sc-dispatch #{body 36296}# '(any . each-any))))
- (if #{tmp 36321}#
+ (map cons #{k 34937}# #{v 34938}#)))))
+ #{tmp 34933}#)
+ (let ((#{tmp 34941}#
+ ($sc-dispatch #{body 34916}# '(any . each-any))))
+ (if #{tmp 34941}#
(@apply
- (lambda (#{e1 36325}# #{e2 36326}#)
+ (lambda (#{e1 34945}# #{e2 34946}#)
(values
- #{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}#
+ #{meta 34921}#
+ #{req 34912}#
+ #{opt 34913}#
+ #{rest 34914}#
+ #{kw 34915}#
+ #{inits 34920}#
+ #{vars 34917}#
+ (#{chi-body 4450}#
+ (cons #{e1 34945}# #{e2 34946}#)
+ (let ((#{x 34958}#
(begin
- (if (if (pair? #{e 35014}#)
- #{s 35017}#
+ (if (if (pair? #{e 33634}#)
+ #{s 33637}#
#f)
(set-source-properties!
- #{e 35014}#
- #{s 35017}#))
- #{e 35014}#)))
- (if (if (null? (car #{w 35016}#))
- (null? (cdr #{w 35016}#))
+ #{e 33634}#
+ #{s 33637}#))
+ #{e 33634}#)))
+ (if (if (null? (car #{w 33636}#))
+ (null? (cdr #{w 33636}#))
#f)
- #{x 36338}#
- (if (if (vector? #{x 36338}#)
- (if (= (vector-length #{x 36338}#)
+ #{x 34958}#
+ (if (if (vector? #{x 34958}#)
+ (if (= (vector-length #{x 34958}#)
4)
- (eq? (vector-ref #{x 36338}# 0)
+ (eq? (vector-ref #{x 34958}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36370}#
- (vector-ref #{x 36338}# 1))
- (#{wrap 36371}#
- (let ((#{w2 36379}#
+ (let ((#{expression 34990}#
+ (vector-ref #{x 34958}# 1))
+ (#{wrap 34991}#
+ (let ((#{w2 34999}#
(vector-ref
- #{x 36338}#
+ #{x 34958}#
2)))
- (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}#
+ (let ((#{m1 35000}#
+ (car #{w 33636}#))
+ (#{s1 35001}#
+ (cdr #{w 33636}#)))
+ (if (null? #{m1 35000}#)
+ (if (null? #{s1 35001}#)
+ #{w2 34999}#
+ (cons (car #{w2 34999}#)
+ (let ((#{m2 35016}#
+ (cdr #{w2 34999}#)))
+ (if (null? #{m2 35016}#)
+ #{s1 35001}#
(append
- #{s1 36381}#
- #{m2 36396}#)))))
- (cons (let ((#{m2 36404}#
- (car #{w2 36379}#)))
- (if (null? #{m2 36404}#)
- #{m1 36380}#
+ #{s1 35001}#
+ #{m2 35016}#)))))
+ (cons (let ((#{m2 35024}#
+ (car #{w2 34999}#)))
+ (if (null? #{m2 35024}#)
+ #{m1 35000}#
(append
- #{m1 36380}#
- #{m2 36404}#)))
- (let ((#{m2 36412}#
- (cdr #{w2 36379}#)))
- (if (null? #{m2 36412}#)
- #{s1 36381}#
+ #{m1 35000}#
+ #{m2 35024}#)))
+ (let ((#{m2 35032}#
+ (cdr #{w2 34999}#)))
+ (if (null? #{m2 35032}#)
+ #{s1 35001}#
(append
- #{s1 36381}#
- #{m2 36412}#))))))))
- (#{module 36372}#
- (vector-ref #{x 36338}# 3)))
+ #{s1 35001}#
+ #{m2 35032}#))))))))
+ (#{module 34992}#
+ (vector-ref #{x 34958}# 3)))
(vector
'syntax-object
- #{expression 36370}#
- #{wrap 36371}#
- #{module 36372}#))
- (if (null? #{x 36338}#)
- #{x 36338}#
+ #{expression 34990}#
+ #{wrap 34991}#
+ #{module 34992}#))
+ (if (null? #{x 34958}#)
+ #{x 34958}#
(vector
'syntax-object
- #{x 36338}#
- #{w 35016}#
- #{mod 35018}#)))))
- #{r* 36298}#
- #{w* 36299}#
- #{mod 35018}#)))
- #{tmp 36321}#)
+ #{x 34958}#
+ #{w 33636}#
+ #{mod 33638}#)))))
+ #{r* 34918}#
+ #{w* 34919}#
+ #{mod 33638}#)))
+ #{tmp 34941}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 36296}#))))))))))
- (let ((#{tmp 35026}#
- ($sc-dispatch #{clauses 35020}# '())))
- (if #{tmp 35026}#
+ #{body 34916}#))))))))))
+ (let ((#{tmp 33646}#
+ ($sc-dispatch #{clauses 33640}# '())))
+ (if #{tmp 33646}#
(@apply
(lambda () (values '() #f))
- #{tmp 35026}#)
- (let ((#{tmp 35031}#
+ #{tmp 33646}#)
+ (let ((#{tmp 33651}#
($sc-dispatch
- #{clauses 35020}#
+ #{clauses 33640}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 35031}#
+ (if #{tmp 33651}#
(@apply
- (lambda (#{args 35035}#
- #{e1 35036}#
- #{e2 35037}#
- #{args* 35038}#
- #{e1* 35039}#
- #{e2* 35040}#)
+ (lambda (#{args 33655}#
+ #{e1 33656}#
+ #{e2 33657}#
+ #{args* 33658}#
+ #{e1* 33659}#
+ #{e2* 33660}#)
(call-with-values
(lambda ()
- (#{get-formals 35019}# #{args 35035}#))
- (lambda (#{req 35041}#
- #{opt 35042}#
- #{rest 35043}#
- #{kw 35044}#)
+ (#{get-formals 33639}# #{args 33655}#))
+ (lambda (#{req 33661}#
+ #{opt 33662}#
+ #{rest 33663}#
+ #{kw 33664}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{expand-req 33641}#
+ #{req 33661}#
+ #{opt 33662}#
+ #{rest 33663}#
+ #{kw 33664}#
+ (cons #{e1 33656}# #{e2 33657}#)))
+ (lambda (#{meta 33733}#
+ #{req 33734}#
+ #{opt 33735}#
+ #{rest 33736}#
+ #{kw 33737}#
+ #{inits 33738}#
+ #{vars 33739}#
+ #{body 33740}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case 4458}#
+ #{e 33634}#
+ #{r 33635}#
+ #{w 33636}#
+ #{s 33637}#
+ #{mod 33638}#
+ #{get-formals 33639}#
+ (map (lambda (#{tmp 2886 33741}#
+ #{tmp 2885 33742}#
+ #{tmp 2884 33743}#)
+ (cons #{tmp 2884 33743}#
+ (cons #{tmp 2885 33742}#
+ #{tmp 2886 33741}#)))
+ #{e2* 33660}#
+ #{e1* 33659}#
+ #{args* 33658}#)))
+ (lambda (#{meta* 33744}# #{else* 33745}#)
(values
- (append #{meta 35113}# #{meta* 35124}#)
+ (append #{meta 33733}# #{meta* 33744}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{s 35017}#
- #{req 35114}#
- #{opt 35115}#
- #{rest 35116}#
- #{kw 35117}#
- #{inits 35118}#
- #{vars 35119}#
- #{body 35120}#
- #{else* 35125}#)))))))))
- #{tmp 35031}#)
+ #{s 33637}#
+ #{req 33734}#
+ #{opt 33735}#
+ #{rest 33736}#
+ #{kw 33737}#
+ #{inits 33738}#
+ #{vars 33739}#
+ #{body 33740}#
+ #{else* 33745}#)))))))))
+ #{tmp 33651}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 35020}#))))))))
- (#{strip 4386}#
- (lambda (#{x 36439}# #{w 36440}#)
- (if (memq 'top (car #{w 36440}#))
- #{x 36439}#
+ #{clauses 33640}#))))))))
+ (#{strip 4459}#
+ (lambda (#{x 35059}# #{w 35060}#)
+ (if (memq 'top (car #{w 35060}#))
+ #{x 35059}#
(letrec*
- ((#{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 35061}#
+ (lambda (#{x 35064}#)
+ (if (if (vector? #{x 35064}#)
+ (if (= (vector-length #{x 35064}#) 4)
+ (eq? (vector-ref #{x 35064}# 0) 'syntax-object)
#f)
#f)
- (#{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}#))
+ (#{strip 4459}#
+ (vector-ref #{x 35064}# 1)
+ (vector-ref #{x 35064}# 2))
+ (if (pair? #{x 35064}#)
+ (let ((#{a 35083}# (#{f 35061}# (car #{x 35064}#)))
+ (#{d 35084}# (#{f 35061}# (cdr #{x 35064}#))))
+ (if (if (eq? #{a 35083}# (car #{x 35064}#))
+ (eq? #{d 35084}# (cdr #{x 35064}#))
#f)
- #{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}#)))
+ #{x 35064}#
+ (cons #{a 35083}# #{d 35084}#)))
+ (if (vector? #{x 35064}#)
+ (let ((#{old 35087}# (vector->list #{x 35064}#)))
+ (let ((#{new 35088}# (map #{f 35061}# #{old 35087}#)))
(letrec*
- ((#{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)
+ ((#{lp 35089}#
+ (lambda (#{l1 35186}# #{l2 35187}#)
+ (if (null? #{l1 35186}#)
+ #{x 35064}#
+ (if (eq? (car #{l1 35186}#)
+ (car #{l2 35187}#))
+ (#{lp 35089}#
+ (cdr #{l1 35186}#)
+ (cdr #{l2 35187}#))
+ (list->vector #{new 35088}#))))))
+ (#{lp 35089}# #{old 35087}# #{new 35088}#))))
+ #{x 35064}#))))))
+ (#{f 35061}# #{x 35059}#)))))
+ (#{gen-var 4460}#
+ (lambda (#{id 33789}#)
+ (let ((#{id 33790}#
+ (if (if (vector? #{id 33789}#)
+ (if (= (vector-length #{id 33789}#) 4)
+ (eq? (vector-ref #{id 33789}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 35169}# 1)
- #{id 35169}#)))
+ (vector-ref #{id 33789}# 1)
+ #{id 33789}#)))
(gensym
- (string-append (symbol->string #{id 35170}#) " ")))))
- (#{lambda-var-list 4388}#
- (lambda (#{vars 36568}#)
+ (string-append (symbol->string #{id 33790}#) " ")))))
+ (#{lambda-var-list 4461}#
+ (lambda (#{vars 35188}#)
(letrec*
- ((#{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}#))
+ ((#{lvl 35189}#
+ (lambda (#{vars 35192}# #{ls 35193}# #{w 35194}#)
+ (if (pair? #{vars 35192}#)
+ (#{lvl 35189}#
+ (cdr #{vars 35192}#)
+ (cons (let ((#{x 35198}# (car #{vars 35192}#)))
+ (if (if (null? (car #{w 35194}#))
+ (null? (cdr #{w 35194}#))
#f)
- #{x 36578}#
- (if (if (vector? #{x 36578}#)
- (if (= (vector-length #{x 36578}#) 4)
- (eq? (vector-ref #{x 36578}# 0)
+ #{x 35198}#
+ (if (if (vector? #{x 35198}#)
+ (if (= (vector-length #{x 35198}#) 4)
+ (eq? (vector-ref #{x 35198}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 35216}#
+ (vector-ref #{x 35198}# 1))
+ (#{wrap 35217}#
+ (let ((#{w2 35225}#
+ (vector-ref #{x 35198}# 2)))
+ (let ((#{m1 35226}# (car #{w 35194}#))
+ (#{s1 35227}# (cdr #{w 35194}#)))
+ (if (null? #{m1 35226}#)
+ (if (null? #{s1 35227}#)
+ #{w2 35225}#
+ (cons (car #{w2 35225}#)
+ (let ((#{m2 35242}#
+ (cdr #{w2 35225}#)))
+ (if (null? #{m2 35242}#)
+ #{s1 35227}#
(append
- #{s1 36607}#
- #{m2 36622}#)))))
- (cons (let ((#{m2 36630}#
- (car #{w2 36605}#)))
- (if (null? #{m2 36630}#)
- #{m1 36606}#
+ #{s1 35227}#
+ #{m2 35242}#)))))
+ (cons (let ((#{m2 35250}#
+ (car #{w2 35225}#)))
+ (if (null? #{m2 35250}#)
+ #{m1 35226}#
(append
- #{m1 36606}#
- #{m2 36630}#)))
- (let ((#{m2 36638}#
- (cdr #{w2 36605}#)))
- (if (null? #{m2 36638}#)
- #{s1 36607}#
+ #{m1 35226}#
+ #{m2 35250}#)))
+ (let ((#{m2 35258}#
+ (cdr #{w2 35225}#)))
+ (if (null? #{m2 35258}#)
+ #{s1 35227}#
(append
- #{s1 36607}#
- #{m2 36638}#))))))))
- (#{module 36598}#
- (vector-ref #{x 36578}# 3)))
+ #{s1 35227}#
+ #{m2 35258}#))))))))
+ (#{module 35218}#
+ (vector-ref #{x 35198}# 3)))
(vector
'syntax-object
- #{expression 36596}#
- #{wrap 36597}#
- #{module 36598}#))
- (if (null? #{x 36578}#)
- #{x 36578}#
+ #{expression 35216}#
+ #{wrap 35217}#
+ #{module 35218}#))
+ (if (null? #{x 35198}#)
+ #{x 35198}#
(vector
'syntax-object
- #{x 36578}#
- #{w 36574}#
+ #{x 35198}#
+ #{w 35194}#
#f)))))
- #{ls 36573}#)
- #{w 36574}#)
- (if (if (symbol? #{vars 36572}#)
+ #{ls 35193}#)
+ #{w 35194}#)
+ (if (if (symbol? #{vars 35192}#)
#t
- (if (if (vector? #{vars 36572}#)
- (if (= (vector-length #{vars 36572}#) 4)
- (eq? (vector-ref #{vars 36572}# 0)
+ (if (if (vector? #{vars 35192}#)
+ (if (= (vector-length #{vars 35192}#) 4)
+ (eq? (vector-ref #{vars 35192}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{vars 36572}# 1))
+ (symbol? (vector-ref #{vars 35192}# 1))
#f))
- (cons (if (if (null? (car #{w 36574}#))
- (null? (cdr #{w 36574}#))
+ (cons (if (if (null? (car #{w 35194}#))
+ (null? (cdr #{w 35194}#))
#f)
- #{vars 36572}#
- (if (if (vector? #{vars 36572}#)
- (if (= (vector-length #{vars 36572}#) 4)
- (eq? (vector-ref #{vars 36572}# 0)
+ #{vars 35192}#
+ (if (if (vector? #{vars 35192}#)
+ (if (= (vector-length #{vars 35192}#) 4)
+ (eq? (vector-ref #{vars 35192}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 35328}#
+ (vector-ref #{vars 35192}# 1))
+ (#{wrap 35329}#
+ (let ((#{w2 35339}#
+ (vector-ref #{vars 35192}# 2)))
+ (let ((#{m1 35340}# (car #{w 35194}#))
+ (#{s1 35341}# (cdr #{w 35194}#)))
+ (if (null? #{m1 35340}#)
+ (if (null? #{s1 35341}#)
+ #{w2 35339}#
+ (cons (car #{w2 35339}#)
+ (let ((#{m2 35358}#
+ (cdr #{w2 35339}#)))
+ (if (null? #{m2 35358}#)
+ #{s1 35341}#
(append
- #{s1 36721}#
- #{m2 36738}#)))))
- (cons (let ((#{m2 36746}#
- (car #{w2 36719}#)))
- (if (null? #{m2 36746}#)
- #{m1 36720}#
+ #{s1 35341}#
+ #{m2 35358}#)))))
+ (cons (let ((#{m2 35366}#
+ (car #{w2 35339}#)))
+ (if (null? #{m2 35366}#)
+ #{m1 35340}#
(append
- #{m1 36720}#
- #{m2 36746}#)))
- (let ((#{m2 36754}#
- (cdr #{w2 36719}#)))
- (if (null? #{m2 36754}#)
- #{s1 36721}#
+ #{m1 35340}#
+ #{m2 35366}#)))
+ (let ((#{m2 35374}#
+ (cdr #{w2 35339}#)))
+ (if (null? #{m2 35374}#)
+ #{s1 35341}#
(append
- #{s1 36721}#
- #{m2 36754}#))))))))
- (#{module 36710}#
- (vector-ref #{vars 36572}# 3)))
+ #{s1 35341}#
+ #{m2 35374}#))))))))
+ (#{module 35330}#
+ (vector-ref #{vars 35192}# 3)))
(vector
'syntax-object
- #{expression 36708}#
- #{wrap 36709}#
- #{module 36710}#))
- (if (null? #{vars 36572}#)
- #{vars 36572}#
+ #{expression 35328}#
+ #{wrap 35329}#
+ #{module 35330}#))
+ (if (null? #{vars 35192}#)
+ #{vars 35192}#
(vector
'syntax-object
- #{vars 36572}#
- #{w 36574}#
+ #{vars 35192}#
+ #{w 35194}#
#f))))
- #{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)
+ #{ls 35193}#)
+ (if (null? #{vars 35192}#)
+ #{ls 35193}#
+ (if (if (vector? #{vars 35192}#)
+ (if (= (vector-length #{vars 35192}#) 4)
+ (eq? (vector-ref #{vars 35192}# 0)
'syntax-object)
#f)
#f)
- (#{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}#
+ (#{lvl 35189}#
+ (vector-ref #{vars 35192}# 1)
+ #{ls 35193}#
+ (let ((#{w2 35415}# (vector-ref #{vars 35192}# 2)))
+ (let ((#{m1 35416}# (car #{w 35194}#))
+ (#{s1 35417}# (cdr #{w 35194}#)))
+ (if (null? #{m1 35416}#)
+ (if (null? #{s1 35417}#)
+ #{w2 35415}#
+ (cons (car #{w2 35415}#)
+ (let ((#{m2 35428}# (cdr #{w2 35415}#)))
+ (if (null? #{m2 35428}#)
+ #{s1 35417}#
(append
- #{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}#
+ #{s1 35417}#
+ #{m2 35428}#)))))
+ (cons (let ((#{m2 35436}# (car #{w2 35415}#)))
+ (if (null? #{m2 35436}#)
+ #{m1 35416}#
+ (append #{m1 35416}# #{m2 35436}#)))
+ (let ((#{m2 35444}# (cdr #{w2 35415}#)))
+ (if (null? #{m2 35444}#)
+ #{s1 35417}#
(append
- #{s1 36797}#
- #{m2 36824}#))))))))
- (cons #{vars 36572}# #{ls 36573}#))))))))
- (#{lvl 36569}# #{vars 36568}# '() '(()))))))
+ #{s1 35417}#
+ #{m2 35444}#))))))))
+ (cons #{vars 35192}# #{ls 35193}#))))))))
+ (#{lvl 35189}# #{vars 35188}# '() '(()))))))
(begin
(module-define!
(current-module)
@@ -8903,2101 +9091,2070 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4339}#
+ (#{global-extend 4411}#
'core
- 'fluid-let-syntax
- (lambda (#{e 4515}#
- #{r 4516}#
- #{w 4517}#
- #{s 4518}#
- #{mod 4519}#)
- (let ((#{tmp 4521}#
+ 'syntax-parameterize
+ (lambda (#{e 4588}#
+ #{r 4589}#
+ #{w 4590}#
+ #{s 4591}#
+ #{mod 4592}#)
+ (let ((#{tmp 4594}#
($sc-dispatch
- #{e 4515}#
+ #{e 4588}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4521}#
+ (if (if #{tmp 4594}#
(@apply
- (lambda (#{var 4525}#
- #{val 4526}#
- #{e1 4527}#
- #{e2 4528}#)
- (#{valid-bound-ids? 4363}# #{var 4525}#))
- #{tmp 4521}#)
+ (lambda (#{var 4598}#
+ #{val 4599}#
+ #{e1 4600}#
+ #{e2 4601}#)
+ (#{valid-bound-ids? 4436}# #{var 4598}#))
+ #{tmp 4594}#)
#f)
(@apply
- (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 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 4519}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{n 4619}#))
- (let ((#{v 4862}#
- (module-variable
- (if #{mod 4519}#
- (resolve-module
- (cdr #{mod 4519}#))
- (current-module))
- #{n 4619}#)))
- (if #{v 4862}#
- (if (variable-bound?
- #{v 4862}#)
- (let ((#{val 4871}#
- (variable-ref
- #{v 4862}#)))
- (if (macro?
- #{val 4871}#)
- (if (macro-type
- #{val 4871}#)
- (cons (macro-type
- #{val 4871}#)
- (macro-binding
- #{val 4871}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 4825}#
- #{t 4825}#
- '(global)))
- '(displaced-lexical)))))))
- (if (let ((#{t 4653}# #{atom-key 4620}#))
- (eqv? #{t 4653}# 'displaced-lexical))
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e 4515}#
- (let ((#{x 4725}#
- (begin
- (if (if (pair? #{id 4618}#)
- #{s 4518}#
- #f)
- (set-source-properties!
- #{id 4618}#
- #{s 4518}#))
- #{id 4618}#)))
- (if (if (null? (car #{w 4517}#))
- (null? (cdr #{w 4517}#))
- #f)
- #{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 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 4768}#
- #{m2 4783}#)))))
- (cons (let ((#{m2 4791}#
- (car #{w2 4766}#)))
- (if (null? #{m2 4791}#)
- #{m1 4767}#
- (append
- #{m1 4767}#
- #{m2 4791}#)))
- (let ((#{m2 4799}#
- (cdr #{w2 4766}#)))
- (if (null? #{m2 4799}#)
- #{s1 4768}#
- (append
- #{s1 4768}#
- #{m2 4799}#))))))))
- (#{module 4759}#
- (vector-ref #{x 4725}# 3)))
- (vector
- 'syntax-object
- #{expression 4757}#
- #{wrap 4758}#
- #{module 4759}#))
- (if (null? #{x 4725}#)
- #{x 4725}#
- (vector
- 'syntax-object
- #{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 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 4896}#
- (if (if (vector? #{x 4896}#)
- (if (= (vector-length #{x 4896}#) 4)
- (eq? (vector-ref #{x 4896}# 0)
- 'syntax-object)
- #f)
+ (lambda (#{var 4686}#
+ #{val 4687}#
+ #{e1 4688}#
+ #{e2 4689}#)
+ (let ((#{names 4690}#
+ (map (lambda (#{x 5039}#)
+ (call-with-values
+ (lambda ()
+ (#{resolve-identifier 4433}#
+ #{x 5039}#
+ #{w 4590}#
+ #{r 4589}#
+ #{mod 4592}#
+ #f))
+ (lambda (#{type 5042}#
+ #{value 5043}#
+ #{mod 5044}#)
+ (if (eqv? #{type 5042}# 'displaced-lexical)
+ (syntax-violation
+ 'syntax-parameterize
+ "identifier out of context"
+ #{e 4588}#
+ (let ((#{x 5057}#
+ (begin
+ (if (if (pair? #{x 5039}#)
+ #{s 4591}#
+ #f)
+ (set-source-properties!
+ #{x 5039}#
+ #{s 4591}#))
+ #{x 5039}#)))
+ (if (if (null? (car #{w 4590}#))
+ (null? (cdr #{w 4590}#))
+ #f)
+ #{x 5057}#
+ (if (if (vector? #{x 5057}#)
+ (if (= (vector-length
+ #{x 5057}#)
+ 4)
+ (eq? (vector-ref
+ #{x 5057}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 5089}#
+ (vector-ref #{x 5057}# 1))
+ (#{wrap 5090}#
+ (let ((#{w2 5098}#
+ (vector-ref
+ #{x 5057}#
+ 2)))
+ (let ((#{m1 5099}#
+ (car #{w 4590}#))
+ (#{s1 5100}#
+ (cdr #{w 4590}#)))
+ (if (null? #{m1 5099}#)
+ (if (null? #{s1 5100}#)
+ #{w2 5098}#
+ (cons (car #{w2 5098}#)
+ (let ((#{m2 5115}#
+ (cdr #{w2 5098}#)))
+ (if (null? #{m2 5115}#)
+ #{s1 5100}#
+ (append
+ #{s1 5100}#
+ #{m2 5115}#)))))
+ (cons (let ((#{m2 5123}#
+ (car #{w2 5098}#)))
+ (if (null? #{m2 5123}#)
+ #{m1 5099}#
+ (append
+ #{m1 5099}#
+ #{m2 5123}#)))
+ (let ((#{m2 5131}#
+ (cdr #{w2 5098}#)))
+ (if (null? #{m2 5131}#)
+ #{s1 5100}#
+ (append
+ #{s1 5100}#
+ #{m2 5131}#))))))))
+ (#{module 5091}#
+ (vector-ref
+ #{x 5057}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 5089}#
+ #{wrap 5090}#
+ #{module 5091}#))
+ (if (null? #{x 5057}#)
+ #{x 5057}#
+ (vector
+ 'syntax-object
+ #{x 5057}#
+ #{w 4590}#
+ #{mod 5044}#))))))
+ (if (eqv? #{type 5042}# 'syntax-parameter)
+ #{value 5043}#
+ (syntax-violation
+ 'syntax-parameterize
+ "invalid syntax parameter"
+ #{e 4588}#
+ (let ((#{x 5158}#
+ (begin
+ (if (if (pair? #{x 5039}#)
+ #{s 4591}#
+ #f)
+ (set-source-properties!
+ #{x 5039}#
+ #{s 4591}#))
+ #{x 5039}#)))
+ (if (if (null? (car #{w 4590}#))
+ (null? (cdr #{w 4590}#))
+ #f)
+ #{x 5158}#
+ (if (if (vector? #{x 5158}#)
+ (if (= (vector-length
+ #{x 5158}#)
+ 4)
+ (eq? (vector-ref
+ #{x 5158}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 5190}#
+ (vector-ref
+ #{x 5158}#
+ 1))
+ (#{wrap 5191}#
+ (let ((#{w2 5199}#
+ (vector-ref
+ #{x 5158}#
+ 2)))
+ (let ((#{m1 5200}#
+ (car #{w 4590}#))
+ (#{s1 5201}#
+ (cdr #{w 4590}#)))
+ (if (null? #{m1 5200}#)
+ (if (null? #{s1 5201}#)
+ #{w2 5199}#
+ (cons (car #{w2 5199}#)
+ (let ((#{m2 5216}#
+ (cdr #{w2 5199}#)))
+ (if (null? #{m2 5216}#)
+ #{s1 5201}#
+ (append
+ #{s1 5201}#
+ #{m2 5216}#)))))
+ (cons (let ((#{m2 5224}#
+ (car #{w2 5199}#)))
+ (if (null? #{m2 5224}#)
+ #{m1 5200}#
+ (append
+ #{m1 5200}#
+ #{m2 5224}#)))
+ (let ((#{m2 5232}#
+ (cdr #{w2 5199}#)))
+ (if (null? #{m2 5232}#)
+ #{s1 5201}#
+ (append
+ #{s1 5201}#
+ #{m2 5232}#))))))))
+ (#{module 5192}#
+ (vector-ref
+ #{x 5158}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 5190}#
+ #{wrap 5191}#
+ #{module 5192}#))
+ (if (null? #{x 5158}#)
+ #{x 5158}#
+ (vector
+ 'syntax-object
+ #{x 5158}#
+ #{w 4590}#
+ #{mod 5044}#)))))))))))
+ #{var 4686}#))
+ (#{bindings 4691}#
+ (let ((#{trans-r 5247}#
+ (#{macros-only-env 4410}# #{r 4589}#)))
+ (map (lambda (#{x 5248}#)
+ (cons 'macro
+ (#{eval-local-transformer 4452}#
+ (#{chi 4446}#
+ #{x 5248}#
+ #{trans-r 5247}#
+ #{w 4590}#
+ #{mod 4592}#)
+ #{mod 4592}#)))
+ #{val 4687}#))))
+ (#{chi-body 4450}#
+ (cons #{e1 4688}# #{e2 4689}#)
+ (let ((#{x 4703}#
+ (begin
+ (if (if (pair? #{e 4588}#) #{s 4591}# #f)
+ (set-source-properties! #{e 4588}# #{s 4591}#))
+ #{e 4588}#)))
+ (if (if (null? (car #{w 4590}#))
+ (null? (cdr #{w 4590}#))
+ #f)
+ #{x 4703}#
+ (if (if (vector? #{x 4703}#)
+ (if (= (vector-length #{x 4703}#) 4)
+ (eq? (vector-ref #{x 4703}# 0) 'syntax-object)
#f)
- (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 4939}#
- #{m2 4954}#)))))
- (cons (let ((#{m2 4962}#
- (car #{w2 4937}#)))
- (if (null? #{m2 4962}#)
- #{m1 4938}#
- (append
- #{m1 4938}#
- #{m2 4962}#)))
- (let ((#{m2 4970}#
- (cdr #{w2 4937}#)))
- (if (null? #{m2 4970}#)
- #{s1 4939}#
+ #f)
+ (let ((#{expression 4735}# (vector-ref #{x 4703}# 1))
+ (#{wrap 4736}#
+ (let ((#{w2 4744}#
+ (vector-ref #{x 4703}# 2)))
+ (let ((#{m1 4745}# (car #{w 4590}#))
+ (#{s1 4746}# (cdr #{w 4590}#)))
+ (if (null? #{m1 4745}#)
+ (if (null? #{s1 4746}#)
+ #{w2 4744}#
+ (cons (car #{w2 4744}#)
+ (let ((#{m2 4761}#
+ (cdr #{w2 4744}#)))
+ (if (null? #{m2 4761}#)
+ #{s1 4746}#
(append
- #{s1 4939}#
- #{m2 4970}#))))))))
- (#{module 4930}# (vector-ref #{x 4896}# 3)))
- (vector
- 'syntax-object
- #{expression 4928}#
- #{wrap 4929}#
- #{module 4930}#))
- (if (null? #{x 4896}#)
- #{x 4896}#
- (vector
- 'syntax-object
- #{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 4379}#
- (#{chi 4373}#
- #{x 5049}#
- #{trans-r 5048}#
- #{w 4517}#
- #{mod 4519}#)
- #{mod 4519}#)))
- #{val 4614}#))
- #{r 4516}#)
- #{w 4517}#
- #{mod 4519}#))))
- #{tmp 4521}#)
+ #{s1 4746}#
+ #{m2 4761}#)))))
+ (cons (let ((#{m2 4769}#
+ (car #{w2 4744}#)))
+ (if (null? #{m2 4769}#)
+ #{m1 4745}#
+ (append
+ #{m1 4745}#
+ #{m2 4769}#)))
+ (let ((#{m2 4777}#
+ (cdr #{w2 4744}#)))
+ (if (null? #{m2 4777}#)
+ #{s1 4746}#
+ (append
+ #{s1 4746}#
+ #{m2 4777}#))))))))
+ (#{module 4737}# (vector-ref #{x 4703}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 4735}#
+ #{wrap 4736}#
+ #{module 4737}#))
+ (if (null? #{x 4703}#)
+ #{x 4703}#
+ (vector
+ 'syntax-object
+ #{x 4703}#
+ #{w 4590}#
+ #{mod 4592}#)))))
+ (#{extend-env 4408}#
+ #{names 4690}#
+ #{bindings 4691}#
+ #{r 4589}#)
+ #{w 4590}#
+ #{mod 4592}#)))
+ #{tmp 4594}#)
(syntax-violation
- 'fluid-let-syntax
+ 'syntax-parameterize
"bad syntax"
- (let ((#{x 5265}#
+ (let ((#{x 5472}#
(begin
- (if (if (pair? #{e 4515}#) #{s 4518}# #f)
- (set-source-properties! #{e 4515}# #{s 4518}#))
- #{e 4515}#)))
- (if (if (null? (car #{w 4517}#))
- (null? (cdr #{w 4517}#))
+ (if (if (pair? #{e 4588}#) #{s 4591}# #f)
+ (set-source-properties! #{e 4588}# #{s 4591}#))
+ #{e 4588}#)))
+ (if (if (null? (car #{w 4590}#))
+ (null? (cdr #{w 4590}#))
#f)
- #{x 5265}#
- (if (if (vector? #{x 5265}#)
- (if (= (vector-length #{x 5265}#) 4)
- (eq? (vector-ref #{x 5265}# 0) 'syntax-object)
+ #{x 5472}#
+ (if (if (vector? #{x 5472}#)
+ (if (= (vector-length #{x 5472}#) 4)
+ (eq? (vector-ref #{x 5472}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 5504}# (vector-ref #{x 5472}# 1))
+ (#{wrap 5505}#
+ (let ((#{w2 5513}# (vector-ref #{x 5472}# 2)))
+ (let ((#{m1 5514}# (car #{w 4590}#))
+ (#{s1 5515}# (cdr #{w 4590}#)))
+ (if (null? #{m1 5514}#)
+ (if (null? #{s1 5515}#)
+ #{w2 5513}#
+ (cons (car #{w2 5513}#)
+ (let ((#{m2 5530}#
+ (cdr #{w2 5513}#)))
+ (if (null? #{m2 5530}#)
+ #{s1 5515}#
(append
- #{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}#
+ #{s1 5515}#
+ #{m2 5530}#)))))
+ (cons (let ((#{m2 5538}# (car #{w2 5513}#)))
+ (if (null? #{m2 5538}#)
+ #{m1 5514}#
+ (append #{m1 5514}# #{m2 5538}#)))
+ (let ((#{m2 5546}# (cdr #{w2 5513}#)))
+ (if (null? #{m2 5546}#)
+ #{s1 5515}#
(append
- #{s1 5308}#
- #{m2 5339}#))))))))
- (#{module 5299}# (vector-ref #{x 5265}# 3)))
+ #{s1 5515}#
+ #{m2 5546}#))))))))
+ (#{module 5506}# (vector-ref #{x 5472}# 3)))
(vector
'syntax-object
- #{expression 5297}#
- #{wrap 5298}#
- #{module 5299}#))
- (if (null? #{x 5265}#)
- #{x 5265}#
+ #{expression 5504}#
+ #{wrap 5505}#
+ #{module 5506}#))
+ (if (null? #{x 5472}#)
+ #{x 5472}#
(vector
'syntax-object
- #{x 5265}#
- #{w 4517}#
- #{mod 4519}#))))))))))
+ #{x 5472}#
+ #{w 4590}#
+ #{mod 4592}#))))))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5367}#
- #{r 5368}#
- #{w 5369}#
- #{s 5370}#
- #{mod 5371}#)
- (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any))))
- (if #{tmp 5373}#
+ (lambda (#{e 5574}#
+ #{r 5575}#
+ #{w 5576}#
+ #{s 5577}#
+ #{mod 5578}#)
+ (let ((#{tmp 5580}# ($sc-dispatch #{e 5574}# '(_ any))))
+ (if #{tmp 5580}#
(@apply
- (lambda (#{e 5376}#)
- (let ((#{exp 5380}#
- (#{strip 4386}# #{e 5376}# #{w 5369}#)))
+ (lambda (#{e 5583}#)
+ (let ((#{exp 5587}#
+ (#{strip 4459}# #{e 5583}# #{w 5576}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5370}#
- #{exp 5380}#)))
- #{tmp 5373}#)
+ #{s 5577}#
+ #{exp 5587}#)))
+ #{tmp 5580}#)
(syntax-violation
'quote
"bad syntax"
- (let ((#{x 5394}#
+ (let ((#{x 5601}#
(begin
- (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}#))
+ (if (if (pair? #{e 5574}#) #{s 5577}# #f)
+ (set-source-properties! #{e 5574}# #{s 5577}#))
+ #{e 5574}#)))
+ (if (if (null? (car #{w 5576}#))
+ (null? (cdr #{w 5576}#))
#f)
- #{x 5394}#
- (if (if (vector? #{x 5394}#)
- (if (= (vector-length #{x 5394}#) 4)
- (eq? (vector-ref #{x 5394}# 0) 'syntax-object)
+ #{x 5601}#
+ (if (if (vector? #{x 5601}#)
+ (if (= (vector-length #{x 5601}#) 4)
+ (eq? (vector-ref #{x 5601}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 5633}# (vector-ref #{x 5601}# 1))
+ (#{wrap 5634}#
+ (let ((#{w2 5642}# (vector-ref #{x 5601}# 2)))
+ (let ((#{m1 5643}# (car #{w 5576}#))
+ (#{s1 5644}# (cdr #{w 5576}#)))
+ (if (null? #{m1 5643}#)
+ (if (null? #{s1 5644}#)
+ #{w2 5642}#
+ (cons (car #{w2 5642}#)
+ (let ((#{m2 5659}#
+ (cdr #{w2 5642}#)))
+ (if (null? #{m2 5659}#)
+ #{s1 5644}#
(append
- #{s1 5437}#
- #{m2 5452}#)))))
- (cons (let ((#{m2 5460}#
- (car #{w2 5435}#)))
- (if (null? #{m2 5460}#)
- #{m1 5436}#
+ #{s1 5644}#
+ #{m2 5659}#)))))
+ (cons (let ((#{m2 5667}#
+ (car #{w2 5642}#)))
+ (if (null? #{m2 5667}#)
+ #{m1 5643}#
(append
- #{m1 5436}#
- #{m2 5460}#)))
- (let ((#{m2 5468}#
- (cdr #{w2 5435}#)))
- (if (null? #{m2 5468}#)
- #{s1 5437}#
+ #{m1 5643}#
+ #{m2 5667}#)))
+ (let ((#{m2 5675}#
+ (cdr #{w2 5642}#)))
+ (if (null? #{m2 5675}#)
+ #{s1 5644}#
(append
- #{s1 5437}#
- #{m2 5468}#))))))))
- (#{module 5428}# (vector-ref #{x 5394}# 3)))
+ #{s1 5644}#
+ #{m2 5675}#))))))))
+ (#{module 5635}# (vector-ref #{x 5601}# 3)))
(vector
'syntax-object
- #{expression 5426}#
- #{wrap 5427}#
- #{module 5428}#))
- (if (null? #{x 5394}#)
- #{x 5394}#
+ #{expression 5633}#
+ #{wrap 5634}#
+ #{module 5635}#))
+ (if (null? #{x 5601}#)
+ #{x 5601}#
(vector
'syntax-object
- #{x 5394}#
- #{w 5369}#
- #{mod 5371}#)))))))))))
- (#{global-extend 4339}#
+ #{x 5601}#
+ #{w 5576}#
+ #{mod 5578}#)))))))))))
+ (#{global-extend 4411}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5708}#
- (lambda (#{src 6171}#
- #{e 6172}#
- #{r 6173}#
- #{maps 6174}#
- #{ellipsis? 6175}#
- #{mod 6176}#)
- (if (if (symbol? #{e 6172}#)
+ ((#{gen-syntax 5899}#
+ (lambda (#{src 6362}#
+ #{e 6363}#
+ #{r 6364}#
+ #{maps 6365}#
+ #{ellipsis? 6366}#
+ #{mod 6367}#)
+ (if (if (symbol? #{e 6363}#)
#t
- (if (if (vector? #{e 6172}#)
- (if (= (vector-length #{e 6172}#) 4)
- (eq? (vector-ref #{e 6172}# 0) 'syntax-object)
+ (if (if (vector? #{e 6363}#)
+ (if (= (vector-length #{e 6363}#) 4)
+ (eq? (vector-ref #{e 6363}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 6172}# 1))
+ (symbol? (vector-ref #{e 6363}# 1))
#f))
- (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 6176}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{label 6203}#))
- (let ((#{v 6383}#
- (module-variable
- (if #{mod 6176}#
- (resolve-module
- (cdr #{mod 6176}#))
- (current-module))
- #{label 6203}#)))
- (if #{v 6383}#
- (if (variable-bound? #{v 6383}#)
- (let ((#{val 6392}#
- (variable-ref
- #{v 6383}#)))
- (if (macro? #{val 6392}#)
- (if (macro-type
- #{val 6392}#)
- (cons (macro-type
- #{val 6392}#)
- (macro-binding
- #{val 6392}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 6346}# #{t 6346}# '(global)))
- '(displaced-lexical))))))
- (if (eq? (car #{b 6204}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (#{resolve-identifier 4433}#
+ #{e 6363}#
+ '(())
+ #{r 6364}#
+ #{mod 6367}#
+ #f))
+ (lambda (#{type 6396}# #{value 6397}# #{mod 6398}#)
+ (if (eqv? #{type 6396}# 'syntax)
(call-with-values
(lambda ()
- (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}#)
+ (#{gen-ref 5900}#
+ #{src 6362}#
+ (car #{value 6397}#)
+ (cdr #{value 6397}#)
+ #{maps 6365}#))
+ (lambda (#{var 6404}# #{maps 6405}#)
+ (values (list 'ref #{var 6404}#) #{maps 6405}#)))
+ (if (#{ellipsis? 6366}# #{e 6363}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 6171}#)
- (values (list 'quote #{e 6172}#) #{maps 6174}#)))))
- (let ((#{tmp 6404}#
- ($sc-dispatch #{e 6172}# '(any any))))
- (if (if #{tmp 6404}#
+ #{src 6362}#)
+ (values (list 'quote #{e 6363}#) #{maps 6365}#)))))
+ (let ((#{tmp 6407}#
+ ($sc-dispatch #{e 6363}# '(any any))))
+ (if (if #{tmp 6407}#
(@apply
- (lambda (#{dots 6408}# #{e 6409}#)
- (#{ellipsis? 6175}# #{dots 6408}#))
- #{tmp 6404}#)
+ (lambda (#{dots 6411}# #{e 6412}#)
+ (#{ellipsis? 6366}# #{dots 6411}#))
+ #{tmp 6407}#)
#f)
(@apply
- (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}#
+ (lambda (#{dots 6413}# #{e 6414}#)
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ #{e 6414}#
+ #{r 6364}#
+ #{maps 6365}#
+ (lambda (#{x 6415}#) #f)
+ #{mod 6367}#))
+ #{tmp 6407}#)
+ (let ((#{tmp 6416}#
+ ($sc-dispatch #{e 6363}# '(any any . any))))
+ (if (if #{tmp 6416}#
(@apply
- (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
- (#{ellipsis? 6175}# #{dots 6418}#))
- #{tmp 6413}#)
+ (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
+ (#{ellipsis? 6366}# #{dots 6421}#))
+ #{tmp 6416}#)
#f)
(@apply
- (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
+ (lambda (#{x 6423}# #{dots 6424}# #{y 6425}#)
(letrec*
- ((#{f 6423}#
- (lambda (#{y 6431}# #{k 6432}#)
- (let ((#{tmp 6434}#
+ ((#{f 6426}#
+ (lambda (#{y 6434}# #{k 6435}#)
+ (let ((#{tmp 6437}#
($sc-dispatch
- #{y 6431}#
+ #{y 6434}#
'(any . any))))
- (if (if #{tmp 6434}#
+ (if (if #{tmp 6437}#
(@apply
- (lambda (#{dots 6438}# #{y 6439}#)
- (#{ellipsis? 6175}#
- #{dots 6438}#))
- #{tmp 6434}#)
+ (lambda (#{dots 6441}# #{y 6442}#)
+ (#{ellipsis? 6366}#
+ #{dots 6441}#))
+ #{tmp 6437}#)
#f)
(@apply
- (lambda (#{dots 6440}# #{y 6441}#)
- (#{f 6423}#
- #{y 6441}#
- (lambda (#{maps 6442}#)
+ (lambda (#{dots 6443}# #{y 6444}#)
+ (#{f 6426}#
+ #{y 6444}#
+ (lambda (#{maps 6445}#)
(call-with-values
(lambda ()
- (#{k 6432}#
- (cons '() #{maps 6442}#)))
- (lambda (#{x 6443}#
- #{maps 6444}#)
- (if (null? (car #{maps 6444}#))
+ (#{k 6435}#
+ (cons '() #{maps 6445}#)))
+ (lambda (#{x 6446}#
+ #{maps 6447}#)
+ (if (null? (car #{maps 6447}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6171}#)
+ #{src 6362}#)
(values
- (let ((#{map-env 6448}#
- (car #{maps 6444}#)))
+ (let ((#{map-env 6451}#
+ (car #{maps 6447}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5711}#
- #{x 6443}#
- #{map-env 6448}#)))
- (cdr #{maps 6444}#))))))))
- #{tmp 6434}#)
+ (#{gen-map 5902}#
+ #{x 6446}#
+ #{map-env 6451}#)))
+ (cdr #{maps 6447}#))))))))
+ #{tmp 6437}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5708}#
- #{src 6171}#
- #{y 6431}#
- #{r 6173}#
- #{maps 6174}#
- #{ellipsis? 6175}#
- #{mod 6176}#))
- (lambda (#{y 6451}# #{maps 6452}#)
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ #{y 6434}#
+ #{r 6364}#
+ #{maps 6365}#
+ #{ellipsis? 6366}#
+ #{mod 6367}#))
+ (lambda (#{y 6454}# #{maps 6455}#)
(call-with-values
(lambda ()
- (#{k 6432}# #{maps 6452}#))
- (lambda (#{x 6453}# #{maps 6454}#)
+ (#{k 6435}# #{maps 6455}#))
+ (lambda (#{x 6456}# #{maps 6457}#)
(values
- (if (equal? #{y 6451}# ''())
- #{x 6453}#
+ (if (equal? #{y 6454}# ''())
+ #{x 6456}#
(list 'append
- #{x 6453}#
- #{y 6451}#))
- #{maps 6454}#))))))))))
- (#{f 6423}#
- #{y 6422}#
- (lambda (#{maps 6426}#)
+ #{x 6456}#
+ #{y 6454}#))
+ #{maps 6457}#))))))))))
+ (#{f 6426}#
+ #{y 6425}#
+ (lambda (#{maps 6429}#)
(call-with-values
(lambda ()
- (#{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}#))
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ #{x 6423}#
+ #{r 6364}#
+ (cons '() #{maps 6429}#)
+ #{ellipsis? 6366}#
+ #{mod 6367}#))
+ (lambda (#{x 6430}# #{maps 6431}#)
+ (if (null? (car #{maps 6431}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6171}#)
+ #{src 6362}#)
(values
- (#{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}#
+ (#{gen-map 5902}#
+ #{x 6430}#
+ (car #{maps 6431}#))
+ (cdr #{maps 6431}#)))))))))
+ #{tmp 6416}#)
+ (let ((#{tmp 6473}#
+ ($sc-dispatch #{e 6363}# '(any . any))))
+ (if #{tmp 6473}#
(@apply
- (lambda (#{x 6474}# #{y 6475}#)
+ (lambda (#{x 6477}# #{y 6478}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5708}#
- #{src 6171}#
- #{x 6474}#
- #{r 6173}#
- #{maps 6174}#
- #{ellipsis? 6175}#
- #{mod 6176}#))
- (lambda (#{x 6476}# #{maps 6477}#)
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ #{x 6477}#
+ #{r 6364}#
+ #{maps 6365}#
+ #{ellipsis? 6366}#
+ #{mod 6367}#))
+ (lambda (#{x 6479}# #{maps 6480}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5708}#
- #{src 6171}#
- #{y 6475}#
- #{r 6173}#
- #{maps 6477}#
- #{ellipsis? 6175}#
- #{mod 6176}#))
- (lambda (#{y 6478}# #{maps 6479}#)
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ #{y 6478}#
+ #{r 6364}#
+ #{maps 6480}#
+ #{ellipsis? 6366}#
+ #{mod 6367}#))
+ (lambda (#{y 6481}# #{maps 6482}#)
(values
- (let ((#{atom-key 6484}#
- (car #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'quote)
- (if (eq? (car #{x 6476}#) 'quote)
+ (let ((#{atom-key 6487}#
+ (car #{y 6481}#)))
+ (if (eqv? #{atom-key 6487}# 'quote)
+ (if (eq? (car #{x 6479}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 6476}#))
- (car (cdr #{y 6478}#))))
- (if (eq? (car (cdr #{y 6478}#))
+ (cons (car (cdr #{x 6479}#))
+ (car (cdr #{y 6481}#))))
+ (if (eq? (car (cdr #{y 6481}#))
'())
- (list 'list #{x 6476}#)
+ (list 'list #{x 6479}#)
(list 'cons
- #{x 6476}#
- #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'list)
+ #{x 6479}#
+ #{y 6481}#)))
+ (if (eqv? #{atom-key 6487}# 'list)
(cons 'list
- (cons #{x 6476}#
- (cdr #{y 6478}#)))
+ (cons #{x 6479}#
+ (cdr #{y 6481}#)))
(list 'cons
- #{x 6476}#
- #{y 6478}#))))
- #{maps 6479}#))))))
- #{tmp 6470}#)
- (let ((#{tmp 6513}#
+ #{x 6479}#
+ #{y 6481}#))))
+ #{maps 6482}#))))))
+ #{tmp 6473}#)
+ (let ((#{tmp 6516}#
($sc-dispatch
- #{e 6172}#
+ #{e 6363}#
'#(vector (any . each-any)))))
- (if #{tmp 6513}#
+ (if #{tmp 6516}#
(@apply
- (lambda (#{e1 6517}# #{e2 6518}#)
+ (lambda (#{e1 6520}# #{e2 6521}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5708}#
- #{src 6171}#
- (cons #{e1 6517}# #{e2 6518}#)
- #{r 6173}#
- #{maps 6174}#
- #{ellipsis? 6175}#
- #{mod 6176}#))
- (lambda (#{e 6519}# #{maps 6520}#)
+ (#{gen-syntax 5899}#
+ #{src 6362}#
+ (cons #{e1 6520}# #{e2 6521}#)
+ #{r 6364}#
+ #{maps 6365}#
+ #{ellipsis? 6366}#
+ #{mod 6367}#))
+ (lambda (#{e 6522}# #{maps 6523}#)
(values
- (if (eq? (car #{e 6519}#) 'list)
- (cons 'vector (cdr #{e 6519}#))
- (if (eq? (car #{e 6519}#) 'quote)
+ (if (eq? (car #{e 6522}#) 'list)
+ (cons 'vector (cdr #{e 6522}#))
+ (if (eq? (car #{e 6522}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 6519}#))))
- (list 'list->vector #{e 6519}#)))
- #{maps 6520}#))))
- #{tmp 6513}#)
+ (car (cdr #{e 6522}#))))
+ (list 'list->vector #{e 6522}#)))
+ #{maps 6523}#))))
+ #{tmp 6516}#)
(values
- (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}#)
+ (list 'quote #{e 6363}#)
+ #{maps 6365}#))))))))))))
+ (#{gen-ref 5900}#
+ (lambda (#{src 6550}#
+ #{var 6551}#
+ #{level 6552}#
+ #{maps 6553}#)
+ (if (= #{level 6552}# 0)
+ (values #{var 6551}# #{maps 6553}#)
+ (if (null? #{maps 6553}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 6547}#)
+ #{src 6550}#)
(call-with-values
(lambda ()
- (#{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}#
+ (#{gen-ref 5900}#
+ #{src 6550}#
+ #{var 6551}#
+ (#{1-}# #{level 6552}#)
+ (cdr #{maps 6553}#)))
+ (lambda (#{outer-var 6554}# #{outer-maps 6555}#)
+ (let ((#{b 6556}#
+ (assq #{outer-var 6554}# (car #{maps 6553}#))))
+ (if #{b 6556}#
+ (values (cdr #{b 6556}#) #{maps 6553}#)
+ (let ((#{inner-var 6558}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{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}#)
+ #{inner-var 6558}#
+ (cons (cons (cons #{outer-var 6554}#
+ #{inner-var 6558}#)
+ (car #{maps 6553}#))
+ #{outer-maps 6555}#)))))))))))
+ (#{gen-map 5902}#
+ (lambda (#{e 6572}# #{map-env 6573}#)
+ (let ((#{formals 6574}# (map cdr #{map-env 6573}#))
+ (#{actuals 6575}#
+ (map (lambda (#{x 6577}#)
+ (list 'ref (car #{x 6577}#)))
+ #{map-env 6573}#)))
+ (if (eq? (car #{e 6572}#) 'ref)
+ (car #{actuals 6575}#)
(if (and-map
- (lambda (#{x 6575}#)
- (if (eq? (car #{x 6575}#) 'ref)
- (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
+ (lambda (#{x 6578}#)
+ (if (eq? (car #{x 6578}#) 'ref)
+ (memq (car (cdr #{x 6578}#)) #{formals 6574}#)
#f))
- (cdr #{e 6569}#))
+ (cdr #{e 6572}#))
(cons 'map
- (cons (list 'primitive (car #{e 6569}#))
- (map (let ((#{r 6577}#
+ (cons (list 'primitive (car #{e 6572}#))
+ (map (let ((#{r 6580}#
(map cons
- #{formals 6571}#
- #{actuals 6572}#)))
- (lambda (#{x 6578}#)
- (cdr (assq (car (cdr #{x 6578}#))
- #{r 6577}#))))
- (cdr #{e 6569}#))))
+ #{formals 6574}#
+ #{actuals 6575}#)))
+ (lambda (#{x 6581}#)
+ (cdr (assq (car (cdr #{x 6581}#))
+ #{r 6580}#))))
+ (cdr #{e 6572}#))))
(cons 'map
- (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}#))))
+ (cons (list 'lambda #{formals 6574}# #{e 6572}#)
+ #{actuals 6575}#)))))))
+ (#{regen 5906}#
+ (lambda (#{x 6583}#)
+ (let ((#{atom-key 6584}# (car #{x 6583}#)))
+ (if (eqv? #{atom-key 6584}# 'ref)
+ (let ((#{name 6594}# (car (cdr #{x 6583}#)))
+ (#{var 6595}# (car (cdr #{x 6583}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 6591}#
- #{var 6592}#))
- (if (eqv? #{atom-key 6581}# 'primitive)
- (let ((#{name 6603}# (car (cdr #{x 6580}#))))
+ #{name 6594}#
+ #{var 6595}#))
+ (if (eqv? #{atom-key 6584}# 'primitive)
+ (let ((#{name 6606}# (car (cdr #{x 6583}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
#f
- #{name 6603}#))
- (if (eqv? #{atom-key 6581}# 'quote)
- (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
+ #{name 6606}#))
+ (if (eqv? #{atom-key 6584}# 'quote)
+ (let ((#{exp 6617}# (car (cdr #{x 6583}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{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}#
+ #{exp 6617}#))
+ (if (eqv? #{atom-key 6584}# 'lambda)
+ (if (list? (car (cdr #{x 6583}#)))
+ (let ((#{req 6628}# (car (cdr #{x 6583}#)))
+ (#{vars 6630}# (car (cdr #{x 6583}#)))
+ (#{exp 6632}#
+ (#{regen 5906}#
+ (car (cdr (cdr #{x 6583}#))))))
+ (let ((#{body 6637}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 6625}#
+ #{req 6628}#
#f
#f
#f
'()
- #{vars 6627}#
- #{exp 6629}#
+ #{vars 6630}#
+ #{exp 6632}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 6634}#)))
- (error "how did we get here" #{x 6580}#))
- (let ((#{name 6650}# (car #{x 6580}#))
- (#{args 6651}#
- (map #{regen 5715}# (cdr #{x 6580}#))))
+ #{body 6637}#)))
+ (error "how did we get here" #{x 6583}#))
+ (let ((#{name 6653}# (car #{x 6583}#))
+ (#{args 6654}#
+ (map #{regen 5906}# (cdr #{x 6583}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
- #{name 6650}#
- #{args 6651}#))))))))))
- (lambda (#{e 5716}#
- #{r 5717}#
- #{w 5718}#
- #{s 5719}#
- #{mod 5720}#)
- (let ((#{e 5721}#
- (let ((#{x 6082}#
+ #{name 6653}#
+ #{args 6654}#))))))))))
+ (lambda (#{e 5907}#
+ #{r 5908}#
+ #{w 5909}#
+ #{s 5910}#
+ #{mod 5911}#)
+ (let ((#{e 5912}#
+ (let ((#{x 6273}#
(begin
- (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}#))
+ (if (if (pair? #{e 5907}#) #{s 5910}# #f)
+ (set-source-properties! #{e 5907}# #{s 5910}#))
+ #{e 5907}#)))
+ (if (if (null? (car #{w 5909}#))
+ (null? (cdr #{w 5909}#))
#f)
- #{x 6082}#
- (if (if (vector? #{x 6082}#)
- (if (= (vector-length #{x 6082}#) 4)
- (eq? (vector-ref #{x 6082}# 0) 'syntax-object)
+ #{x 6273}#
+ (if (if (vector? #{x 6273}#)
+ (if (= (vector-length #{x 6273}#) 4)
+ (eq? (vector-ref #{x 6273}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 6305}# (vector-ref #{x 6273}# 1))
+ (#{wrap 6306}#
+ (let ((#{w2 6314}# (vector-ref #{x 6273}# 2)))
+ (let ((#{m1 6315}# (car #{w 5909}#))
+ (#{s1 6316}# (cdr #{w 5909}#)))
+ (if (null? #{m1 6315}#)
+ (if (null? #{s1 6316}#)
+ #{w2 6314}#
+ (cons (car #{w2 6314}#)
+ (let ((#{m2 6331}#
+ (cdr #{w2 6314}#)))
+ (if (null? #{m2 6331}#)
+ #{s1 6316}#
(append
- #{s1 6125}#
- #{m2 6140}#)))))
- (cons (let ((#{m2 6148}#
- (car #{w2 6123}#)))
- (if (null? #{m2 6148}#)
- #{m1 6124}#
+ #{s1 6316}#
+ #{m2 6331}#)))))
+ (cons (let ((#{m2 6339}#
+ (car #{w2 6314}#)))
+ (if (null? #{m2 6339}#)
+ #{m1 6315}#
(append
- #{m1 6124}#
- #{m2 6148}#)))
- (let ((#{m2 6156}#
- (cdr #{w2 6123}#)))
- (if (null? #{m2 6156}#)
- #{s1 6125}#
+ #{m1 6315}#
+ #{m2 6339}#)))
+ (let ((#{m2 6347}#
+ (cdr #{w2 6314}#)))
+ (if (null? #{m2 6347}#)
+ #{s1 6316}#
(append
- #{s1 6125}#
- #{m2 6156}#))))))))
- (#{module 6116}# (vector-ref #{x 6082}# 3)))
+ #{s1 6316}#
+ #{m2 6347}#))))))))
+ (#{module 6307}# (vector-ref #{x 6273}# 3)))
(vector
'syntax-object
- #{expression 6114}#
- #{wrap 6115}#
- #{module 6116}#))
- (if (null? #{x 6082}#)
- #{x 6082}#
+ #{expression 6305}#
+ #{wrap 6306}#
+ #{module 6307}#))
+ (if (null? #{x 6273}#)
+ #{x 6273}#
(vector
'syntax-object
- #{x 6082}#
- #{w 5718}#
- #{mod 5720}#)))))))
- (let ((#{tmp 5722}# #{e 5721}#))
- (let ((#{tmp 5723}#
- ($sc-dispatch #{tmp 5722}# '(_ any))))
- (if #{tmp 5723}#
+ #{x 6273}#
+ #{w 5909}#
+ #{mod 5911}#)))))))
+ (let ((#{tmp 5913}# #{e 5912}#))
+ (let ((#{tmp 5914}#
+ ($sc-dispatch #{tmp 5913}# '(_ any))))
+ (if #{tmp 5914}#
(@apply
- (lambda (#{x 5775}#)
+ (lambda (#{x 5966}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5708}#
- #{e 5721}#
- #{x 5775}#
- #{r 5717}#
+ (#{gen-syntax 5899}#
+ #{e 5912}#
+ #{x 5966}#
+ #{r 5908}#
'()
- #{ellipsis? 4381}#
- #{mod 5720}#))
- (lambda (#{e 5858}# #{maps 5859}#)
- (#{regen 5715}# #{e 5858}#))))
- #{tmp 5723}#)
+ #{ellipsis? 4454}#
+ #{mod 5911}#))
+ (lambda (#{e 6049}# #{maps 6050}#)
+ (#{regen 5906}# #{e 6049}#))))
+ #{tmp 5914}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5721}#))))))))
- (#{global-extend 4339}#
+ #{e 5912}#))))))))
+ (#{global-extend 4411}#
'core
'lambda
- (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}#
+ (lambda (#{e 6890}#
+ #{r 6891}#
+ #{w 6892}#
+ #{s 6893}#
+ #{mod 6894}#)
+ (let ((#{tmp 6896}#
+ ($sc-dispatch #{e 6890}# '(_ any any . each-any))))
+ (if #{tmp 6896}#
(@apply
- (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
+ (lambda (#{args 6900}# #{e1 6901}# #{e2 6902}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4382}# #{args 6897}#))
- (lambda (#{req 6902}#
- #{opt 6903}#
- #{rest 6904}#
- #{kw 6905}#)
+ (#{lambda-formals 4455}# #{args 6900}#))
+ (lambda (#{req 6905}#
+ #{opt 6906}#
+ #{rest 6907}#
+ #{kw 6908}#)
(letrec*
- ((#{lp 6906}#
- (lambda (#{body 6909}# #{meta 6910}#)
- (let ((#{tmp 6912}#
+ ((#{lp 6909}#
+ (lambda (#{body 6912}# #{meta 6913}#)
+ (let ((#{tmp 6915}#
($sc-dispatch
- #{body 6909}#
+ #{body 6912}#
'(any any . each-any))))
- (if (if #{tmp 6912}#
+ (if (if #{tmp 6915}#
(@apply
- (lambda (#{docstring 6916}#
- #{e1 6917}#
- #{e2 6918}#)
+ (lambda (#{docstring 6919}#
+ #{e1 6920}#
+ #{e2 6921}#)
(string?
- (syntax->datum #{docstring 6916}#)))
- #{tmp 6912}#)
+ (syntax->datum #{docstring 6919}#)))
+ #{tmp 6915}#)
#f)
(@apply
- (lambda (#{docstring 6919}#
- #{e1 6920}#
- #{e2 6921}#)
- (#{lp 6906}#
- (cons #{e1 6920}# #{e2 6921}#)
+ (lambda (#{docstring 6922}#
+ #{e1 6923}#
+ #{e2 6924}#)
+ (#{lp 6909}#
+ (cons #{e1 6923}# #{e2 6924}#)
(append
- #{meta 6910}#
+ #{meta 6913}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6919}#))))))
- #{tmp 6912}#)
- (let ((#{tmp 6922}#
+ #{docstring 6922}#))))))
+ #{tmp 6915}#)
+ (let ((#{tmp 6925}#
($sc-dispatch
- #{body 6909}#
+ #{body 6912}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6922}#
+ (if #{tmp 6925}#
(@apply
- (lambda (#{k 6926}#
- #{v 6927}#
- #{e1 6928}#
- #{e2 6929}#)
- (#{lp 6906}#
- (cons #{e1 6928}# #{e2 6929}#)
+ (lambda (#{k 6929}#
+ #{v 6930}#
+ #{e1 6931}#
+ #{e2 6932}#)
+ (#{lp 6909}#
+ (cons #{e1 6931}# #{e2 6932}#)
(append
- #{meta 6910}#
+ #{meta 6913}#
(syntax->datum
(map cons
- #{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}#)
+ #{k 6929}#
+ #{v 6930}#)))))
+ #{tmp 6925}#)
+ (#{chi-simple-lambda 4456}#
+ #{e 6890}#
+ #{r 6891}#
+ #{w 6892}#
+ #{s 6893}#
+ #{mod 6894}#
+ #{req 6905}#
+ #{rest 6907}#
+ #{meta 6913}#
+ #{body 6912}#))))))))
+ (#{lp 6909}# (cons #{e1 6901}# #{e2 6902}#) '())))))
+ #{tmp 6896}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6887}#)))))
- (#{global-extend 4339}#
+ #{e 6890}#)))))
+ (#{global-extend 4411}#
'core
'lambda*
- (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}#
+ (lambda (#{e 7316}#
+ #{r 7317}#
+ #{w 7318}#
+ #{s 7319}#
+ #{mod 7320}#)
+ (let ((#{tmp 7322}#
+ ($sc-dispatch #{e 7316}# '(_ any any . each-any))))
+ (if #{tmp 7322}#
(@apply
- (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
+ (lambda (#{args 7326}# #{e1 7327}# #{e2 7328}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case 4458}#
+ #{e 7316}#
+ #{r 7317}#
+ #{w 7318}#
+ #{s 7319}#
+ #{mod 7320}#
+ #{lambda*-formals 4457}#
+ (list (cons #{args 7326}#
+ (cons #{e1 7327}# #{e2 7328}#)))))
+ (lambda (#{meta 7331}# #{lcase 7332}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7316}#
- #{meta 7328}#
- #{lcase 7329}#))))
- #{tmp 7319}#)
+ #{s 7319}#
+ #{meta 7331}#
+ #{lcase 7332}#))))
+ #{tmp 7322}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 7313}#)))))
- (#{global-extend 4339}#
+ #{e 7316}#)))))
+ (#{global-extend 4411}#
'core
'case-lambda
- (lambda (#{e 7492}#
- #{r 7493}#
- #{w 7494}#
- #{s 7495}#
- #{mod 7496}#)
- (let ((#{tmp 7498}#
+ (lambda (#{e 7495}#
+ #{r 7496}#
+ #{w 7497}#
+ #{s 7498}#
+ #{mod 7499}#)
+ (let ((#{tmp 7501}#
($sc-dispatch
- #{e 7492}#
+ #{e 7495}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7498}#
+ (if #{tmp 7501}#
(@apply
- (lambda (#{args 7502}#
- #{e1 7503}#
- #{e2 7504}#
- #{args* 7505}#
- #{e1* 7506}#
- #{e2* 7507}#)
+ (lambda (#{args 7505}#
+ #{e1 7506}#
+ #{e2 7507}#
+ #{args* 7508}#
+ #{e1* 7509}#
+ #{e2* 7510}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case 4458}#
+ #{e 7495}#
+ #{r 7496}#
+ #{w 7497}#
+ #{s 7498}#
+ #{mod 7499}#
+ #{lambda-formals 4455}#
+ (cons (cons #{args 7505}#
+ (cons #{e1 7506}# #{e2 7507}#))
+ (map (lambda (#{tmp 3385 7513}#
+ #{tmp 3384 7514}#
+ #{tmp 3383 7515}#)
+ (cons #{tmp 3383 7515}#
+ (cons #{tmp 3384 7514}#
+ #{tmp 3385 7513}#)))
+ #{e2* 7510}#
+ #{e1* 7509}#
+ #{args* 7508}#))))
+ (lambda (#{meta 7516}# #{lcase 7517}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7495}#
- #{meta 7513}#
- #{lcase 7514}#))))
- #{tmp 7498}#)
+ #{s 7498}#
+ #{meta 7516}#
+ #{lcase 7517}#))))
+ #{tmp 7501}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 7492}#)))))
- (#{global-extend 4339}#
+ #{e 7495}#)))))
+ (#{global-extend 4411}#
'core
'case-lambda*
- (lambda (#{e 7683}#
- #{r 7684}#
- #{w 7685}#
- #{s 7686}#
- #{mod 7687}#)
- (let ((#{tmp 7689}#
+ (lambda (#{e 7686}#
+ #{r 7687}#
+ #{w 7688}#
+ #{s 7689}#
+ #{mod 7690}#)
+ (let ((#{tmp 7692}#
($sc-dispatch
- #{e 7683}#
+ #{e 7686}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7689}#
+ (if #{tmp 7692}#
(@apply
- (lambda (#{args 7693}#
- #{e1 7694}#
- #{e2 7695}#
- #{args* 7696}#
- #{e1* 7697}#
- #{e2* 7698}#)
+ (lambda (#{args 7696}#
+ #{e1 7697}#
+ #{e2 7698}#
+ #{args* 7699}#
+ #{e1* 7700}#
+ #{e2* 7701}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case 4458}#
+ #{e 7686}#
+ #{r 7687}#
+ #{w 7688}#
+ #{s 7689}#
+ #{mod 7690}#
+ #{lambda*-formals 4457}#
+ (cons (cons #{args 7696}#
+ (cons #{e1 7697}# #{e2 7698}#))
+ (map (lambda (#{tmp 3420 7704}#
+ #{tmp 3419 7705}#
+ #{tmp 3418 7706}#)
+ (cons #{tmp 3418 7706}#
+ (cons #{tmp 3419 7705}#
+ #{tmp 3420 7704}#)))
+ #{e2* 7701}#
+ #{e1* 7700}#
+ #{args* 7699}#))))
+ (lambda (#{meta 7707}# #{lcase 7708}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7686}#
- #{meta 7704}#
- #{lcase 7705}#))))
- #{tmp 7689}#)
+ #{s 7689}#
+ #{meta 7707}#
+ #{lcase 7708}#))))
+ #{tmp 7692}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 7683}#)))))
- (#{global-extend 4339}#
+ #{e 7686}#)))))
+ (#{global-extend 4411}#
'core
'let
(letrec*
- ((#{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}#))
+ ((#{chi-let 7917}#
+ (lambda (#{e 8127}#
+ #{r 8128}#
+ #{w 8129}#
+ #{s 8130}#
+ #{mod 8131}#
+ #{constructor 8132}#
+ #{ids 8133}#
+ #{vals 8134}#
+ #{exps 8135}#)
+ (if (not (#{valid-bound-ids? 4436}# #{ids 8133}#))
(syntax-violation
'let
"duplicate bound variable"
- #{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}#
+ #{e 8127}#)
+ (let ((#{labels 8220}#
+ (#{gen-labels 4416}# #{ids 8133}#))
+ (#{new-vars 8221}#
+ (map #{gen-var 4460}# #{ids 8133}#)))
+ (let ((#{nw 8222}#
+ (#{make-binding-wrap 4427}#
+ #{ids 8133}#
+ #{labels 8220}#
+ #{w 8129}#))
+ (#{nr 8223}#
+ (#{extend-var-env 4409}#
+ #{labels 8220}#
+ #{new-vars 8221}#
+ #{r 8128}#)))
+ (#{constructor 8132}#
+ #{s 8130}#
+ (map syntax->datum #{ids 8133}#)
+ #{new-vars 8221}#
+ (map (lambda (#{x 8240}#)
+ (#{chi 4446}#
+ #{x 8240}#
+ #{r 8128}#
+ #{w 8129}#
+ #{mod 8131}#))
+ #{vals 8134}#)
+ (#{chi-body 4450}#
+ #{exps 8135}#
+ (#{source-wrap 4440}#
+ #{e 8127}#
+ #{nw 8222}#
+ #{s 8130}#
+ #{mod 8131}#)
+ #{nr 8223}#
+ #{nw 8222}#
+ #{mod 8131}#))))))))
+ (lambda (#{e 7918}#
+ #{r 7919}#
+ #{w 7920}#
+ #{s 7921}#
+ #{mod 7922}#)
+ (let ((#{tmp 7924}#
($sc-dispatch
- #{e 7915}#
+ #{e 7918}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7921}#
+ (if (if #{tmp 7924}#
(@apply
- (lambda (#{id 7925}#
- #{val 7926}#
- #{e1 7927}#
- #{e2 7928}#)
- (and-map #{id? 4341}# #{id 7925}#))
- #{tmp 7921}#)
+ (lambda (#{id 7928}#
+ #{val 7929}#
+ #{e1 7930}#
+ #{e2 7931}#)
+ (and-map #{id? 4413}# #{id 7928}#))
+ #{tmp 7924}#)
#f)
(@apply
- (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}#)
+ (lambda (#{id 7947}#
+ #{val 7948}#
+ #{e1 7949}#
+ #{e2 7950}#)
+ (#{chi-let 7917}#
+ #{e 7918}#
+ #{r 7919}#
+ #{w 7920}#
+ #{s 7921}#
+ #{mod 7922}#
+ (lambda (#{src 7954}#
+ #{ids 7955}#
+ #{vars 7956}#
+ #{val-exps 7957}#
+ #{body-exp 7958}#)
(begin
(for-each
- #{maybe-name-value! 4305}#
- #{ids 7952}#
- #{val-exps 7954}#)
- (if (null? #{vars 7953}#)
- #{body-exp 7955}#
+ #{maybe-name-value! 4378}#
+ #{ids 7955}#
+ #{val-exps 7957}#)
+ (if (null? #{vars 7956}#)
+ #{body-exp 7958}#
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{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}#
+ #{src 7954}#
+ #{ids 7955}#
+ #{vars 7956}#
+ #{val-exps 7957}#
+ #{body-exp 7958}#))))
+ #{id 7947}#
+ #{val 7948}#
+ (cons #{e1 7949}# #{e2 7950}#)))
+ #{tmp 7924}#)
+ (let ((#{tmp 7965}#
($sc-dispatch
- #{e 7915}#
+ #{e 7918}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7962}#
+ (if (if #{tmp 7965}#
(@apply
- (lambda (#{f 7966}#
- #{id 7967}#
- #{val 7968}#
- #{e1 7969}#
- #{e2 7970}#)
- (if (if (symbol? #{f 7966}#)
+ (lambda (#{f 7969}#
+ #{id 7970}#
+ #{val 7971}#
+ #{e1 7972}#
+ #{e2 7973}#)
+ (if (if (symbol? #{f 7969}#)
#t
- (if (if (vector? #{f 7966}#)
- (if (= (vector-length #{f 7966}#) 4)
- (eq? (vector-ref #{f 7966}# 0)
+ (if (if (vector? #{f 7969}#)
+ (if (= (vector-length #{f 7969}#) 4)
+ (eq? (vector-ref #{f 7969}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7966}# 1))
+ (symbol? (vector-ref #{f 7969}# 1))
#f))
- (and-map #{id? 4341}# #{id 7967}#)
+ (and-map #{id? 4413}# #{id 7970}#)
#f))
- #{tmp 7962}#)
+ #{tmp 7965}#)
#f)
(@apply
- (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}#)
+ (lambda (#{f 8015}#
+ #{id 8016}#
+ #{val 8017}#
+ #{e1 8018}#
+ #{e2 8019}#)
+ (#{chi-let 7917}#
+ #{e 7918}#
+ #{r 7919}#
+ #{w 7920}#
+ #{s 7921}#
+ #{mod 7922}#
+ #{build-named-let 4397}#
+ (cons #{f 8015}# #{id 8016}#)
+ #{val 8017}#
+ (cons #{e1 8018}# #{e2 8019}#)))
+ #{tmp 7965}#)
(syntax-violation
'let
"bad let"
- (let ((#{x 8029}#
+ (let ((#{x 8032}#
(begin
- (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}#))
+ (if (if (pair? #{e 7918}#) #{s 7921}# #f)
+ (set-source-properties! #{e 7918}# #{s 7921}#))
+ #{e 7918}#)))
+ (if (if (null? (car #{w 7920}#))
+ (null? (cdr #{w 7920}#))
#f)
- #{x 8029}#
- (if (if (vector? #{x 8029}#)
- (if (= (vector-length #{x 8029}#) 4)
- (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
+ #{x 8032}#
+ (if (if (vector? #{x 8032}#)
+ (if (= (vector-length #{x 8032}#) 4)
+ (eq? (vector-ref #{x 8032}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 8064}# (vector-ref #{x 8032}# 1))
+ (#{wrap 8065}#
+ (let ((#{w2 8073}#
+ (vector-ref #{x 8032}# 2)))
+ (let ((#{m1 8074}# (car #{w 7920}#))
+ (#{s1 8075}# (cdr #{w 7920}#)))
+ (if (null? #{m1 8074}#)
+ (if (null? #{s1 8075}#)
+ #{w2 8073}#
+ (cons (car #{w2 8073}#)
+ (let ((#{m2 8090}#
+ (cdr #{w2 8073}#)))
+ (if (null? #{m2 8090}#)
+ #{s1 8075}#
(append
- #{s1 8072}#
- #{m2 8087}#)))))
- (cons (let ((#{m2 8095}#
- (car #{w2 8070}#)))
- (if (null? #{m2 8095}#)
- #{m1 8071}#
+ #{s1 8075}#
+ #{m2 8090}#)))))
+ (cons (let ((#{m2 8098}#
+ (car #{w2 8073}#)))
+ (if (null? #{m2 8098}#)
+ #{m1 8074}#
(append
- #{m1 8071}#
- #{m2 8095}#)))
- (let ((#{m2 8103}#
- (cdr #{w2 8070}#)))
- (if (null? #{m2 8103}#)
- #{s1 8072}#
+ #{m1 8074}#
+ #{m2 8098}#)))
+ (let ((#{m2 8106}#
+ (cdr #{w2 8073}#)))
+ (if (null? #{m2 8106}#)
+ #{s1 8075}#
(append
- #{s1 8072}#
- #{m2 8103}#))))))))
- (#{module 8063}# (vector-ref #{x 8029}# 3)))
+ #{s1 8075}#
+ #{m2 8106}#))))))))
+ (#{module 8066}# (vector-ref #{x 8032}# 3)))
(vector
'syntax-object
- #{expression 8061}#
- #{wrap 8062}#
- #{module 8063}#))
- (if (null? #{x 8029}#)
- #{x 8029}#
+ #{expression 8064}#
+ #{wrap 8065}#
+ #{module 8066}#))
+ (if (null? #{x 8032}#)
+ #{x 8032}#
(vector
'syntax-object
- #{x 8029}#
- #{w 7917}#
- #{mod 7919}#)))))))))))))
- (#{global-extend 4339}#
+ #{x 8032}#
+ #{w 7920}#
+ #{mod 7922}#)))))))))))))
+ (#{global-extend 4411}#
'core
'letrec
- (lambda (#{e 8714}#
- #{r 8715}#
- #{w 8716}#
- #{s 8717}#
- #{mod 8718}#)
- (let ((#{tmp 8720}#
+ (lambda (#{e 8717}#
+ #{r 8718}#
+ #{w 8719}#
+ #{s 8720}#
+ #{mod 8721}#)
+ (let ((#{tmp 8723}#
($sc-dispatch
- #{e 8714}#
+ #{e 8717}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8720}#
+ (if (if #{tmp 8723}#
(@apply
- (lambda (#{id 8724}#
- #{val 8725}#
- #{e1 8726}#
- #{e2 8727}#)
- (and-map #{id? 4341}# #{id 8724}#))
- #{tmp 8720}#)
+ (lambda (#{id 8727}#
+ #{val 8728}#
+ #{e1 8729}#
+ #{e2 8730}#)
+ (and-map #{id? 4413}# #{id 8727}#))
+ #{tmp 8723}#)
#f)
(@apply
- (lambda (#{id 8743}#
- #{val 8744}#
- #{e1 8745}#
- #{e2 8746}#)
- (if (not (#{valid-bound-ids? 4363}# #{id 8743}#))
+ (lambda (#{id 8746}#
+ #{val 8747}#
+ #{e1 8748}#
+ #{e2 8749}#)
+ (if (not (#{valid-bound-ids? 4436}# #{id 8746}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{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}#
+ #{e 8717}#)
+ (let ((#{labels 8846}#
+ (#{gen-labels 4416}# #{id 8746}#))
+ (#{new-vars 8847}#
+ (map #{gen-var 4460}# #{id 8746}#)))
+ (let ((#{w 8848}#
+ (#{make-binding-wrap 4427}#
+ #{id 8746}#
+ #{labels 8846}#
+ #{w 8719}#))
+ (#{r 8849}#
+ (#{extend-var-env 4409}#
+ #{labels 8846}#
+ #{new-vars 8847}#
+ #{r 8718}#)))
+ (#{build-letrec 4398}#
+ #{s 8720}#
#f
- (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}#
+ (map syntax->datum #{id 8746}#)
+ #{new-vars 8847}#
+ (map (lambda (#{x 8928}#)
+ (#{chi 4446}#
+ #{x 8928}#
+ #{r 8849}#
+ #{w 8848}#
+ #{mod 8721}#))
+ #{val 8747}#)
+ (#{chi-body 4450}#
+ (cons #{e1 8748}# #{e2 8749}#)
+ (let ((#{x 8990}#
(begin
- (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+ (if (if (pair? #{e 8717}#) #{s 8720}# #f)
(set-source-properties!
- #{e 8714}#
- #{s 8717}#))
- #{e 8714}#)))
- (if (if (null? (car #{w 8845}#))
- (null? (cdr #{w 8845}#))
+ #{e 8717}#
+ #{s 8720}#))
+ #{e 8717}#)))
+ (if (if (null? (car #{w 8848}#))
+ (null? (cdr #{w 8848}#))
#f)
- #{x 8987}#
- (if (if (vector? #{x 8987}#)
- (if (= (vector-length #{x 8987}#) 4)
- (eq? (vector-ref #{x 8987}# 0)
+ #{x 8990}#
+ (if (if (vector? #{x 8990}#)
+ (if (= (vector-length #{x 8990}#) 4)
+ (eq? (vector-ref #{x 8990}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 9022}#
+ (vector-ref #{x 8990}# 1))
+ (#{wrap 9023}#
+ (let ((#{w2 9031}#
+ (vector-ref #{x 8990}# 2)))
+ (let ((#{m1 9032}# (car #{w 8848}#))
+ (#{s1 9033}# (cdr #{w 8848}#)))
+ (if (null? #{m1 9032}#)
+ (if (null? #{s1 9033}#)
+ #{w2 9031}#
+ (cons (car #{w2 9031}#)
+ (let ((#{m2 9048}#
+ (cdr #{w2 9031}#)))
+ (if (null? #{m2 9048}#)
+ #{s1 9033}#
(append
- #{s1 9030}#
- #{m2 9045}#)))))
- (cons (let ((#{m2 9053}#
- (car #{w2 9028}#)))
- (if (null? #{m2 9053}#)
- #{m1 9029}#
+ #{s1 9033}#
+ #{m2 9048}#)))))
+ (cons (let ((#{m2 9056}#
+ (car #{w2 9031}#)))
+ (if (null? #{m2 9056}#)
+ #{m1 9032}#
(append
- #{m1 9029}#
- #{m2 9053}#)))
- (let ((#{m2 9061}#
- (cdr #{w2 9028}#)))
- (if (null? #{m2 9061}#)
- #{s1 9030}#
+ #{m1 9032}#
+ #{m2 9056}#)))
+ (let ((#{m2 9064}#
+ (cdr #{w2 9031}#)))
+ (if (null? #{m2 9064}#)
+ #{s1 9033}#
(append
- #{s1 9030}#
- #{m2 9061}#))))))))
- (#{module 9021}#
- (vector-ref #{x 8987}# 3)))
+ #{s1 9033}#
+ #{m2 9064}#))))))))
+ (#{module 9024}#
+ (vector-ref #{x 8990}# 3)))
(vector
'syntax-object
- #{expression 9019}#
- #{wrap 9020}#
- #{module 9021}#))
- (if (null? #{x 8987}#)
- #{x 8987}#
+ #{expression 9022}#
+ #{wrap 9023}#
+ #{module 9024}#))
+ (if (null? #{x 8990}#)
+ #{x 8990}#
(vector
'syntax-object
- #{x 8987}#
- #{w 8845}#
- #{mod 8718}#)))))
- #{r 8846}#
- #{w 8845}#
- #{mod 8718}#))))))
- #{tmp 8720}#)
+ #{x 8990}#
+ #{w 8848}#
+ #{mod 8721}#)))))
+ #{r 8849}#
+ #{w 8848}#
+ #{mod 8721}#))))))
+ #{tmp 8723}#)
(syntax-violation
'letrec
"bad letrec"
- (let ((#{x 9301}#
+ (let ((#{x 9304}#
(begin
- (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}#))
+ (if (if (pair? #{e 8717}#) #{s 8720}# #f)
+ (set-source-properties! #{e 8717}# #{s 8720}#))
+ #{e 8717}#)))
+ (if (if (null? (car #{w 8719}#))
+ (null? (cdr #{w 8719}#))
#f)
- #{x 9301}#
- (if (if (vector? #{x 9301}#)
- (if (= (vector-length #{x 9301}#) 4)
- (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
+ #{x 9304}#
+ (if (if (vector? #{x 9304}#)
+ (if (= (vector-length #{x 9304}#) 4)
+ (eq? (vector-ref #{x 9304}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 9336}# (vector-ref #{x 9304}# 1))
+ (#{wrap 9337}#
+ (let ((#{w2 9345}# (vector-ref #{x 9304}# 2)))
+ (let ((#{m1 9346}# (car #{w 8719}#))
+ (#{s1 9347}# (cdr #{w 8719}#)))
+ (if (null? #{m1 9346}#)
+ (if (null? #{s1 9347}#)
+ #{w2 9345}#
+ (cons (car #{w2 9345}#)
+ (let ((#{m2 9362}#
+ (cdr #{w2 9345}#)))
+ (if (null? #{m2 9362}#)
+ #{s1 9347}#
(append
- #{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}#
+ #{s1 9347}#
+ #{m2 9362}#)))))
+ (cons (let ((#{m2 9370}# (car #{w2 9345}#)))
+ (if (null? #{m2 9370}#)
+ #{m1 9346}#
+ (append #{m1 9346}# #{m2 9370}#)))
+ (let ((#{m2 9378}# (cdr #{w2 9345}#)))
+ (if (null? #{m2 9378}#)
+ #{s1 9347}#
(append
- #{s1 9344}#
- #{m2 9375}#))))))))
- (#{module 9335}# (vector-ref #{x 9301}# 3)))
+ #{s1 9347}#
+ #{m2 9378}#))))))))
+ (#{module 9338}# (vector-ref #{x 9304}# 3)))
(vector
'syntax-object
- #{expression 9333}#
- #{wrap 9334}#
- #{module 9335}#))
- (if (null? #{x 9301}#)
- #{x 9301}#
+ #{expression 9336}#
+ #{wrap 9337}#
+ #{module 9338}#))
+ (if (null? #{x 9304}#)
+ #{x 9304}#
(vector
'syntax-object
- #{x 9301}#
- #{w 8716}#
- #{mod 8718}#))))))))))
- (#{global-extend 4339}#
+ #{x 9304}#
+ #{w 8719}#
+ #{mod 8721}#))))))))))
+ (#{global-extend 4411}#
'core
'letrec*
- (lambda (#{e 9526}#
- #{r 9527}#
- #{w 9528}#
- #{s 9529}#
- #{mod 9530}#)
- (let ((#{tmp 9532}#
+ (lambda (#{e 9529}#
+ #{r 9530}#
+ #{w 9531}#
+ #{s 9532}#
+ #{mod 9533}#)
+ (let ((#{tmp 9535}#
($sc-dispatch
- #{e 9526}#
+ #{e 9529}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 9532}#
+ (if (if #{tmp 9535}#
(@apply
- (lambda (#{id 9536}#
- #{val 9537}#
- #{e1 9538}#
- #{e2 9539}#)
- (and-map #{id? 4341}# #{id 9536}#))
- #{tmp 9532}#)
+ (lambda (#{id 9539}#
+ #{val 9540}#
+ #{e1 9541}#
+ #{e2 9542}#)
+ (and-map #{id? 4413}# #{id 9539}#))
+ #{tmp 9535}#)
#f)
(@apply
- (lambda (#{id 9555}#
- #{val 9556}#
- #{e1 9557}#
- #{e2 9558}#)
- (if (not (#{valid-bound-ids? 4363}# #{id 9555}#))
+ (lambda (#{id 9558}#
+ #{val 9559}#
+ #{e1 9560}#
+ #{e2 9561}#)
+ (if (not (#{valid-bound-ids? 4436}# #{id 9558}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{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}#
+ #{e 9529}#)
+ (let ((#{labels 9658}#
+ (#{gen-labels 4416}# #{id 9558}#))
+ (#{new-vars 9659}#
+ (map #{gen-var 4460}# #{id 9558}#)))
+ (let ((#{w 9660}#
+ (#{make-binding-wrap 4427}#
+ #{id 9558}#
+ #{labels 9658}#
+ #{w 9531}#))
+ (#{r 9661}#
+ (#{extend-var-env 4409}#
+ #{labels 9658}#
+ #{new-vars 9659}#
+ #{r 9530}#)))
+ (#{build-letrec 4398}#
+ #{s 9532}#
#t
- (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}#
+ (map syntax->datum #{id 9558}#)
+ #{new-vars 9659}#
+ (map (lambda (#{x 9740}#)
+ (#{chi 4446}#
+ #{x 9740}#
+ #{r 9661}#
+ #{w 9660}#
+ #{mod 9533}#))
+ #{val 9559}#)
+ (#{chi-body 4450}#
+ (cons #{e1 9560}# #{e2 9561}#)
+ (let ((#{x 9802}#
(begin
- (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+ (if (if (pair? #{e 9529}#) #{s 9532}# #f)
(set-source-properties!
- #{e 9526}#
- #{s 9529}#))
- #{e 9526}#)))
- (if (if (null? (car #{w 9657}#))
- (null? (cdr #{w 9657}#))
+ #{e 9529}#
+ #{s 9532}#))
+ #{e 9529}#)))
+ (if (if (null? (car #{w 9660}#))
+ (null? (cdr #{w 9660}#))
#f)
- #{x 9799}#
- (if (if (vector? #{x 9799}#)
- (if (= (vector-length #{x 9799}#) 4)
- (eq? (vector-ref #{x 9799}# 0)
+ #{x 9802}#
+ (if (if (vector? #{x 9802}#)
+ (if (= (vector-length #{x 9802}#) 4)
+ (eq? (vector-ref #{x 9802}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 9834}#
+ (vector-ref #{x 9802}# 1))
+ (#{wrap 9835}#
+ (let ((#{w2 9843}#
+ (vector-ref #{x 9802}# 2)))
+ (let ((#{m1 9844}# (car #{w 9660}#))
+ (#{s1 9845}# (cdr #{w 9660}#)))
+ (if (null? #{m1 9844}#)
+ (if (null? #{s1 9845}#)
+ #{w2 9843}#
+ (cons (car #{w2 9843}#)
+ (let ((#{m2 9860}#
+ (cdr #{w2 9843}#)))
+ (if (null? #{m2 9860}#)
+ #{s1 9845}#
(append
- #{s1 9842}#
- #{m2 9857}#)))))
- (cons (let ((#{m2 9865}#
- (car #{w2 9840}#)))
- (if (null? #{m2 9865}#)
- #{m1 9841}#
+ #{s1 9845}#
+ #{m2 9860}#)))))
+ (cons (let ((#{m2 9868}#
+ (car #{w2 9843}#)))
+ (if (null? #{m2 9868}#)
+ #{m1 9844}#
(append
- #{m1 9841}#
- #{m2 9865}#)))
- (let ((#{m2 9873}#
- (cdr #{w2 9840}#)))
- (if (null? #{m2 9873}#)
- #{s1 9842}#
+ #{m1 9844}#
+ #{m2 9868}#)))
+ (let ((#{m2 9876}#
+ (cdr #{w2 9843}#)))
+ (if (null? #{m2 9876}#)
+ #{s1 9845}#
(append
- #{s1 9842}#
- #{m2 9873}#))))))))
- (#{module 9833}#
- (vector-ref #{x 9799}# 3)))
+ #{s1 9845}#
+ #{m2 9876}#))))))))
+ (#{module 9836}#
+ (vector-ref #{x 9802}# 3)))
(vector
'syntax-object
- #{expression 9831}#
- #{wrap 9832}#
- #{module 9833}#))
- (if (null? #{x 9799}#)
- #{x 9799}#
+ #{expression 9834}#
+ #{wrap 9835}#
+ #{module 9836}#))
+ (if (null? #{x 9802}#)
+ #{x 9802}#
(vector
'syntax-object
- #{x 9799}#
- #{w 9657}#
- #{mod 9530}#)))))
- #{r 9658}#
- #{w 9657}#
- #{mod 9530}#))))))
- #{tmp 9532}#)
+ #{x 9802}#
+ #{w 9660}#
+ #{mod 9533}#)))))
+ #{r 9661}#
+ #{w 9660}#
+ #{mod 9533}#))))))
+ #{tmp 9535}#)
(syntax-violation
'letrec*
"bad letrec*"
- (let ((#{x 10113}#
+ (let ((#{x 10116}#
(begin
- (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}#))
+ (if (if (pair? #{e 9529}#) #{s 9532}# #f)
+ (set-source-properties! #{e 9529}# #{s 9532}#))
+ #{e 9529}#)))
+ (if (if (null? (car #{w 9531}#))
+ (null? (cdr #{w 9531}#))
#f)
- #{x 10113}#
- (if (if (vector? #{x 10113}#)
- (if (= (vector-length #{x 10113}#) 4)
- (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
+ #{x 10116}#
+ (if (if (vector? #{x 10116}#)
+ (if (= (vector-length #{x 10116}#) 4)
+ (eq? (vector-ref #{x 10116}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 10148}# (vector-ref #{x 10116}# 1))
+ (#{wrap 10149}#
+ (let ((#{w2 10157}# (vector-ref #{x 10116}# 2)))
+ (let ((#{m1 10158}# (car #{w 9531}#))
+ (#{s1 10159}# (cdr #{w 9531}#)))
+ (if (null? #{m1 10158}#)
+ (if (null? #{s1 10159}#)
+ #{w2 10157}#
+ (cons (car #{w2 10157}#)
+ (let ((#{m2 10174}#
+ (cdr #{w2 10157}#)))
+ (if (null? #{m2 10174}#)
+ #{s1 10159}#
(append
- #{s1 10156}#
- #{m2 10171}#)))))
- (cons (let ((#{m2 10179}#
- (car #{w2 10154}#)))
- (if (null? #{m2 10179}#)
- #{m1 10155}#
+ #{s1 10159}#
+ #{m2 10174}#)))))
+ (cons (let ((#{m2 10182}#
+ (car #{w2 10157}#)))
+ (if (null? #{m2 10182}#)
+ #{m1 10158}#
(append
- #{m1 10155}#
- #{m2 10179}#)))
- (let ((#{m2 10187}#
- (cdr #{w2 10154}#)))
- (if (null? #{m2 10187}#)
- #{s1 10156}#
+ #{m1 10158}#
+ #{m2 10182}#)))
+ (let ((#{m2 10190}#
+ (cdr #{w2 10157}#)))
+ (if (null? #{m2 10190}#)
+ #{s1 10159}#
(append
- #{s1 10156}#
- #{m2 10187}#))))))))
- (#{module 10147}# (vector-ref #{x 10113}# 3)))
+ #{s1 10159}#
+ #{m2 10190}#))))))))
+ (#{module 10150}# (vector-ref #{x 10116}# 3)))
(vector
'syntax-object
- #{expression 10145}#
- #{wrap 10146}#
- #{module 10147}#))
- (if (null? #{x 10113}#)
- #{x 10113}#
+ #{expression 10148}#
+ #{wrap 10149}#
+ #{module 10150}#))
+ (if (null? #{x 10116}#)
+ #{x 10116}#
(vector
'syntax-object
- #{x 10113}#
- #{w 9528}#
- #{mod 9530}#))))))))))
- (#{global-extend 4339}#
+ #{x 10116}#
+ #{w 9531}#
+ #{mod 9533}#))))))))))
+ (#{global-extend 4411}#
'core
'set!
- (lambda (#{e 10406}#
- #{r 10407}#
- #{w 10408}#
- #{s 10409}#
- #{mod 10410}#)
- (let ((#{tmp 10412}#
- ($sc-dispatch #{e 10406}# '(_ any any))))
- (if (if #{tmp 10412}#
+ (lambda (#{e 10353}#
+ #{r 10354}#
+ #{w 10355}#
+ #{s 10356}#
+ #{mod 10357}#)
+ (let ((#{tmp 10359}#
+ ($sc-dispatch #{e 10353}# '(_ any any))))
+ (if (if #{tmp 10359}#
(@apply
- (lambda (#{id 10416}# #{val 10417}#)
- (if (symbol? #{id 10416}#)
+ (lambda (#{id 10363}# #{val 10364}#)
+ (if (symbol? #{id 10363}#)
#t
- (if (if (vector? #{id 10416}#)
- (if (= (vector-length #{id 10416}#) 4)
- (eq? (vector-ref #{id 10416}# 0) 'syntax-object)
+ (if (if (vector? #{id 10363}#)
+ (if (= (vector-length #{id 10363}#) 4)
+ (eq? (vector-ref #{id 10363}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10416}# 1))
+ (symbol? (vector-ref #{id 10363}# 1))
#f)))
- #{tmp 10412}#)
+ #{tmp 10359}#)
#f)
(@apply
- (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 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 10447}#)
- (current-module)
- #f)
- (warn "module system is booted, we should have a module"
- #{n 10446}#))
- (let ((#{v 11207}#
- (module-variable
- (if #{id-mod 10447}#
- (resolve-module
- (cdr #{id-mod 10447}#))
- (current-module))
- #{n 10446}#)))
- (if #{v 11207}#
- (if (variable-bound? #{v 11207}#)
- (let ((#{val 11216}#
- (variable-ref
- #{v 11207}#)))
- (if (macro? #{val 11216}#)
- (if (macro-type
- #{val 11216}#)
- (cons (macro-type
- #{val 11216}#)
- (macro-binding
- #{val 11216}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 11170}# #{t 11170}# '(global)))
- '(displaced-lexical))))))
- (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 11119}#
- 'variable-transformer)
- (#{chi 4373}#
- (#{chi-macro 4376}#
- #{p 11119}#
- #{e 10406}#
- #{r 10407}#
- #{w 10408}#
- #{s 10409}#
- #f
- #{mod 10410}#)
- #{r 10407}#
- '(())
- #{mod 10410}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (if (if (null? (car #{w 10408}#))
- (null? (cdr #{w 10408}#))
+ (lambda (#{id 10391}# #{val 10392}#)
+ (call-with-values
+ (lambda ()
+ (#{resolve-identifier 4433}#
+ #{id 10391}#
+ #{w 10355}#
+ #{r 10354}#
+ #{mod 10357}#
+ #t))
+ (lambda (#{type 10395}# #{value 10396}# #{id-mod 10397}#)
+ (if (eqv? #{type 10395}# 'lexical)
+ (#{build-lexical-assignment 4384}#
+ #{s 10356}#
+ (syntax->datum #{id 10391}#)
+ #{value 10396}#
+ (#{chi 4446}#
+ #{val 10392}#
+ #{r 10354}#
+ #{w 10355}#
+ #{mod 10357}#))
+ (if (eqv? #{type 10395}# 'global)
+ (#{build-global-assignment 4387}#
+ #{s 10356}#
+ #{value 10396}#
+ (#{chi 4446}#
+ #{val 10392}#
+ #{r 10354}#
+ #{w 10355}#
+ #{mod 10357}#)
+ #{id-mod 10397}#)
+ (if (eqv? #{type 10395}# 'macro)
+ (if (procedure-property
+ #{value 10396}#
+ 'variable-transformer)
+ (#{chi 4446}#
+ (#{chi-macro 4449}#
+ #{value 10396}#
+ #{e 10353}#
+ #{r 10354}#
+ #{w 10355}#
+ #{s 10356}#
+ #f
+ #{mod 10357}#)
+ #{r 10354}#
+ '(())
+ #{mod 10357}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (if (if (null? (car #{w 10355}#))
+ (null? (cdr #{w 10355}#))
+ #f)
+ #{e 10353}#
+ (if (if (vector? #{e 10353}#)
+ (if (= (vector-length #{e 10353}#) 4)
+ (eq? (vector-ref #{e 10353}# 0)
+ 'syntax-object)
#f)
- #{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 11321}#
- (vector-ref #{e 10406}# 1))
- (#{wrap 11322}#
- (let ((#{w2 11332}#
- (vector-ref
- #{e 10406}#
- 2)))
- (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 11334}#
- #{m2 11351}#)))))
- (cons (let ((#{m2 11359}#
- (car #{w2 11332}#)))
- (if (null? #{m2 11359}#)
- #{m1 11333}#
- (append
- #{m1 11333}#
- #{m2 11359}#)))
- (let ((#{m2 11367}#
- (cdr #{w2 11332}#)))
- (if (null? #{m2 11367}#)
- #{s1 11334}#
- (append
- #{s1 11334}#
- #{m2 11367}#))))))))
- (#{module 11323}#
- (vector-ref #{e 10406}# 3)))
- (vector
- 'syntax-object
- #{expression 11321}#
- #{wrap 11322}#
- #{module 11323}#))
- (if (null? #{e 10406}#)
- #{e 10406}#
- (vector
- 'syntax-object
- #{e 10406}#
- #{w 10408}#
- #{mod 10410}#))))
- (if (if (null? (car #{w 10408}#))
- (null? (cdr #{w 10408}#))
+ #f)
+ (let ((#{expression 10857}#
+ (vector-ref #{e 10353}# 1))
+ (#{wrap 10858}#
+ (let ((#{w2 10868}#
+ (vector-ref #{e 10353}# 2)))
+ (let ((#{m1 10869}#
+ (car #{w 10355}#))
+ (#{s1 10870}#
+ (cdr #{w 10355}#)))
+ (if (null? #{m1 10869}#)
+ (if (null? #{s1 10870}#)
+ #{w2 10868}#
+ (cons (car #{w2 10868}#)
+ (let ((#{m2 10887}#
+ (cdr #{w2 10868}#)))
+ (if (null? #{m2 10887}#)
+ #{s1 10870}#
+ (append
+ #{s1 10870}#
+ #{m2 10887}#)))))
+ (cons (let ((#{m2 10895}#
+ (car #{w2 10868}#)))
+ (if (null? #{m2 10895}#)
+ #{m1 10869}#
+ (append
+ #{m1 10869}#
+ #{m2 10895}#)))
+ (let ((#{m2 10903}#
+ (cdr #{w2 10868}#)))
+ (if (null? #{m2 10903}#)
+ #{s1 10870}#
+ (append
+ #{s1 10870}#
+ #{m2 10903}#))))))))
+ (#{module 10859}#
+ (vector-ref #{e 10353}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 10857}#
+ #{wrap 10858}#
+ #{module 10859}#))
+ (if (null? #{e 10353}#)
+ #{e 10353}#
+ (vector
+ 'syntax-object
+ #{e 10353}#
+ #{w 10355}#
+ #{mod 10357}#))))
+ (if (if (null? (car #{w 10355}#))
+ (null? (cdr #{w 10355}#))
+ #f)
+ #{id 10391}#
+ (if (if (vector? #{id 10391}#)
+ (if (= (vector-length #{id 10391}#) 4)
+ (eq? (vector-ref #{id 10391}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 10955}#
+ (vector-ref #{id 10391}# 1))
+ (#{wrap 10956}#
+ (let ((#{w2 10966}#
+ (vector-ref #{id 10391}# 2)))
+ (let ((#{m1 10967}#
+ (car #{w 10355}#))
+ (#{s1 10968}#
+ (cdr #{w 10355}#)))
+ (if (null? #{m1 10967}#)
+ (if (null? #{s1 10968}#)
+ #{w2 10966}#
+ (cons (car #{w2 10966}#)
+ (let ((#{m2 10985}#
+ (cdr #{w2 10966}#)))
+ (if (null? #{m2 10985}#)
+ #{s1 10968}#
+ (append
+ #{s1 10968}#
+ #{m2 10985}#)))))
+ (cons (let ((#{m2 10993}#
+ (car #{w2 10966}#)))
+ (if (null? #{m2 10993}#)
+ #{m1 10967}#
+ (append
+ #{m1 10967}#
+ #{m2 10993}#)))
+ (let ((#{m2 11001}#
+ (cdr #{w2 10966}#)))
+ (if (null? #{m2 11001}#)
+ #{s1 10968}#
+ (append
+ #{s1 10968}#
+ #{m2 11001}#))))))))
+ (#{module 10957}#
+ (vector-ref #{id 10391}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 10955}#
+ #{wrap 10956}#
+ #{module 10957}#))
+ (if (null? #{id 10391}#)
+ #{id 10391}#
+ (vector
+ 'syntax-object
+ #{id 10391}#
+ #{w 10355}#
+ #{id-mod 10397}#))))))
+ (if (eqv? #{type 10395}# 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (if (if (null? (car #{w 10355}#))
+ (null? (cdr #{w 10355}#))
+ #f)
+ #{id 10391}#
+ (if (if (vector? #{id 10391}#)
+ (if (= (vector-length #{id 10391}#) 4)
+ (eq? (vector-ref #{id 10391}# 0)
+ 'syntax-object)
#f)
- #{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 11419}#
- (vector-ref #{id 10444}# 1))
- (#{wrap 11420}#
- (let ((#{w2 11430}#
- (vector-ref
- #{id 10444}#
- 2)))
- (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 11432}#
- #{m2 11449}#)))))
- (cons (let ((#{m2 11457}#
- (car #{w2 11430}#)))
- (if (null? #{m2 11457}#)
- #{m1 11431}#
- (append
- #{m1 11431}#
- #{m2 11457}#)))
- (let ((#{m2 11465}#
- (cdr #{w2 11430}#)))
- (if (null? #{m2 11465}#)
- #{s1 11432}#
- (append
- #{s1 11432}#
- #{m2 11465}#))))))))
- (#{module 11421}#
- (vector-ref #{id 10444}# 3)))
- (vector
- 'syntax-object
- #{expression 11419}#
- #{wrap 11420}#
- #{module 11421}#))
- (if (null? #{id 10444}#)
- #{id 10444}#
- (vector
- 'syntax-object
- #{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 10408}#))
- (null? (cdr #{w 10408}#))
#f)
- #{id 10444}#
- (if (if (vector? #{id 10444}#)
- (if (= (vector-length #{id 10444}#) 4)
- (eq? (vector-ref #{id 10444}# 0)
+ (let ((#{expression 11056}#
+ (vector-ref #{id 10391}# 1))
+ (#{wrap 11057}#
+ (let ((#{w2 11067}#
+ (vector-ref #{id 10391}# 2)))
+ (let ((#{m1 11068}#
+ (car #{w 10355}#))
+ (#{s1 11069}#
+ (cdr #{w 10355}#)))
+ (if (null? #{m1 11068}#)
+ (if (null? #{s1 11069}#)
+ #{w2 11067}#
+ (cons (car #{w2 11067}#)
+ (let ((#{m2 11086}#
+ (cdr #{w2 11067}#)))
+ (if (null? #{m2 11086}#)
+ #{s1 11069}#
+ (append
+ #{s1 11069}#
+ #{m2 11086}#)))))
+ (cons (let ((#{m2 11094}#
+ (car #{w2 11067}#)))
+ (if (null? #{m2 11094}#)
+ #{m1 11068}#
+ (append
+ #{m1 11068}#
+ #{m2 11094}#)))
+ (let ((#{m2 11102}#
+ (cdr #{w2 11067}#)))
+ (if (null? #{m2 11102}#)
+ #{s1 11069}#
+ (append
+ #{s1 11069}#
+ #{m2 11102}#))))))))
+ (#{module 11058}#
+ (vector-ref #{id 10391}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 11056}#
+ #{wrap 11057}#
+ #{module 11058}#))
+ (if (null? #{id 10391}#)
+ #{id 10391}#
+ (vector
+ 'syntax-object
+ #{id 10391}#
+ #{w 10355}#
+ #{mod 10357}#)))))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (let ((#{x 11134}#
+ (begin
+ (if (if (pair? #{e 10353}#)
+ #{s 10356}#
+ #f)
+ (set-source-properties!
+ #{e 10353}#
+ #{s 10356}#))
+ #{e 10353}#)))
+ (if (if (null? (car #{w 10355}#))
+ (null? (cdr #{w 10355}#))
+ #f)
+ #{x 11134}#
+ (if (if (vector? #{x 11134}#)
+ (if (= (vector-length #{x 11134}#) 4)
+ (eq? (vector-ref #{x 11134}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11521}#
- (vector-ref #{id 10444}# 1))
- (#{wrap 11522}#
- (let ((#{w2 11532}#
+ (let ((#{expression 11166}#
+ (vector-ref #{x 11134}# 1))
+ (#{wrap 11167}#
+ (let ((#{w2 11175}#
(vector-ref
- #{id 10444}#
+ #{x 11134}#
2)))
- (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}#
+ (let ((#{m1 11176}#
+ (car #{w 10355}#))
+ (#{s1 11177}#
+ (cdr #{w 10355}#)))
+ (if (null? #{m1 11176}#)
+ (if (null? #{s1 11177}#)
+ #{w2 11175}#
+ (cons (car #{w2 11175}#)
+ (let ((#{m2 11192}#
+ (cdr #{w2 11175}#)))
+ (if (null? #{m2 11192}#)
+ #{s1 11177}#
(append
- #{s1 11534}#
- #{m2 11551}#)))))
- (cons (let ((#{m2 11559}#
- (car #{w2 11532}#)))
- (if (null? #{m2 11559}#)
- #{m1 11533}#
+ #{s1 11177}#
+ #{m2 11192}#)))))
+ (cons (let ((#{m2 11200}#
+ (car #{w2 11175}#)))
+ (if (null? #{m2 11200}#)
+ #{m1 11176}#
(append
- #{m1 11533}#
- #{m2 11559}#)))
- (let ((#{m2 11567}#
- (cdr #{w2 11532}#)))
- (if (null? #{m2 11567}#)
- #{s1 11534}#
+ #{m1 11176}#
+ #{m2 11200}#)))
+ (let ((#{m2 11208}#
+ (cdr #{w2 11175}#)))
+ (if (null? #{m2 11208}#)
+ #{s1 11177}#
(append
- #{s1 11534}#
- #{m2 11567}#))))))))
- (#{module 11523}#
- (vector-ref #{id 10444}# 3)))
+ #{s1 11177}#
+ #{m2 11208}#))))))))
+ (#{module 11168}#
+ (vector-ref #{x 11134}# 3)))
(vector
'syntax-object
- #{expression 11521}#
- #{wrap 11522}#
- #{module 11523}#))
- (if (null? #{id 10444}#)
- #{id 10444}#
+ #{expression 11166}#
+ #{wrap 11167}#
+ #{module 11168}#))
+ (if (null? #{x 11134}#)
+ #{x 11134}#
(vector
'syntax-object
- #{id 10444}#
- #{w 10408}#
- #{mod 10410}#)))))
- (syntax-violation
- 'set!
- "bad set!"
- (let ((#{x 11599}#
- (begin
- (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 11599}#
- (if (if (vector? #{x 11599}#)
- (if (= (vector-length #{x 11599}#) 4)
- (eq? (vector-ref #{x 11599}# 0)
- 'syntax-object)
- #f)
- #f)
- (let ((#{expression 11631}#
- (vector-ref #{x 11599}# 1))
- (#{wrap 11632}#
- (let ((#{w2 11640}#
- (vector-ref
- #{x 11599}#
- 2)))
- (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 11642}#
- #{m2 11657}#)))))
- (cons (let ((#{m2 11665}#
- (car #{w2 11640}#)))
- (if (null? #{m2 11665}#)
- #{m1 11641}#
- (append
- #{m1 11641}#
- #{m2 11665}#)))
- (let ((#{m2 11673}#
- (cdr #{w2 11640}#)))
- (if (null? #{m2 11673}#)
- #{s1 11642}#
- (append
- #{s1 11642}#
- #{m2 11673}#))))))))
- (#{module 11633}#
- (vector-ref #{x 11599}# 3)))
- (vector
- 'syntax-object
- #{expression 11631}#
- #{wrap 11632}#
- #{module 11633}#))
- (if (null? #{x 11599}#)
- #{x 11599}#
- (vector
- 'syntax-object
- #{x 11599}#
- #{w 10408}#
- #{mod 10410}#))))))))))))))
- #{tmp 10412}#)
- (let ((#{tmp 11688}#
+ #{x 11134}#
+ #{w 10355}#
+ #{mod 10357}#)))))))))))))
+ #{tmp 10359}#)
+ (let ((#{tmp 11223}#
($sc-dispatch
- #{e 10406}#
+ #{e 10353}#
'(_ (any . each-any) any))))
- (if #{tmp 11688}#
+ (if #{tmp 11223}#
(@apply
- (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#)
+ (lambda (#{head 11227}# #{tail 11228}# #{val 11229}#)
(call-with-values
(lambda ()
- (#{syntax-type 4372}#
- #{head 11692}#
- #{r 10407}#
+ (#{syntax-type 4445}#
+ #{head 11227}#
+ #{r 10354}#
'(())
#f
#f
- #{mod 10410}#
+ #{mod 10357}#
#t))
- (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}#)))
+ (lambda (#{type 11232}#
+ #{value 11233}#
+ #{ee 11234}#
+ #{ww 11235}#
+ #{ss 11236}#
+ #{modmod 11237}#)
+ (if (eqv? #{type 11232}# 'module-ref)
+ (let ((#{val 11241}#
+ (#{chi 4446}#
+ #{val 11229}#
+ #{r 10354}#
+ #{w 10355}#
+ #{mod 10357}#)))
(call-with-values
(lambda ()
- (#{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}#)))
+ (#{value 11233}#
+ (cons #{head 11227}# #{tail 11228}#)
+ #{r 10354}#
+ #{w 10355}#))
+ (lambda (#{e 11242}#
+ #{r 11243}#
+ #{w 11244}#
+ #{s* 11245}#
+ #{mod 11246}#)
+ (let ((#{tmp 11248}# (list #{e 11242}#)))
(if (@apply
- (lambda (#{e 11715}#)
- (if (symbol? #{e 11715}#)
+ (lambda (#{e 11250}#)
+ (if (symbol? #{e 11250}#)
#t
- (if (if (vector? #{e 11715}#)
+ (if (if (vector? #{e 11250}#)
(if (= (vector-length
- #{e 11715}#)
+ #{e 11250}#)
4)
(eq? (vector-ref
- #{e 11715}#
+ #{e 11250}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 11715}# 1))
+ (vector-ref #{e 11250}# 1))
#f)))
- #{tmp 11713}#)
+ #{tmp 11248}#)
(@apply
- (lambda (#{e 11745}#)
- (#{build-global-assignment 4314}#
- #{s 10409}#
- (syntax->datum #{e 11745}#)
- #{val 11706}#
- #{mod 11711}#))
- #{tmp 11713}#)
+ (lambda (#{e 11280}#)
+ (#{build-global-assignment 4387}#
+ #{s 10356}#
+ (syntax->datum #{e 11280}#)
+ #{val 11241}#
+ #{mod 11246}#))
+ #{tmp 11248}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11707}#))))))
- (#{build-call 4307}#
- #{s 10409}#
- (#{chi 4373}#
+ #{e 11242}#))))))
+ (#{build-call 4380}#
+ #{s 10356}#
+ (#{chi 4446}#
(list '#(syntax-object
setter
((top)
@@ -11011,25 +11168,25 @@
(top)
(top)
(top))
- #("i3585"
- "i3586"
- "i3587"
- "i3588"
- "i3589"
- "i3590"))
+ #("i3658"
+ "i3659"
+ "i3660"
+ "i3661"
+ "i3662"
+ "i3663"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3571" "i3572" "i3573"))
+ #("i3644" "i3645" "i3646"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3535"
- "i3536"
- "i3537"
- "i3538"
- "i3539"))
+ #("i3616"
+ "i3617"
+ "i3618"
+ "i3619"
+ "i3620"))
#(ribcage
(lambda-var-list
gen-var
@@ -11059,6 +11216,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -11096,7 +11254,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -11342,13 +11499,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -11357,19 +11514,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -11450,115 +11607,116 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))
- #{head 11692}#)
- #{r 10407}#
- #{w 10408}#
- #{mod 10410}#)
- (map (lambda (#{e 12074}#)
- (#{chi 4373}#
- #{e 12074}#
- #{r 10407}#
- #{w 10408}#
- #{mod 10410}#))
+ #{head 11227}#)
+ #{r 10354}#
+ #{w 10355}#
+ #{mod 10357}#)
+ (map (lambda (#{e 11609}#)
+ (#{chi 4446}#
+ #{e 11609}#
+ #{r 10354}#
+ #{w 10355}#
+ #{mod 10357}#))
(append
- #{tail 11693}#
- (list #{val 11694}#))))))))
- #{tmp 11688}#)
+ #{tail 11228}#
+ (list #{val 11229}#))))))))
+ #{tmp 11223}#)
(syntax-violation
'set!
"bad set!"
- (let ((#{x 12166}#
+ (let ((#{x 11701}#
(begin
- (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}#))
+ (if (if (pair? #{e 10353}#) #{s 10356}# #f)
+ (set-source-properties! #{e 10353}# #{s 10356}#))
+ #{e 10353}#)))
+ (if (if (null? (car #{w 10355}#))
+ (null? (cdr #{w 10355}#))
#f)
- #{x 12166}#
- (if (if (vector? #{x 12166}#)
- (if (= (vector-length #{x 12166}#) 4)
- (eq? (vector-ref #{x 12166}# 0) 'syntax-object)
+ #{x 11701}#
+ (if (if (vector? #{x 11701}#)
+ (if (= (vector-length #{x 11701}#) 4)
+ (eq? (vector-ref #{x 11701}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 11733}# (vector-ref #{x 11701}# 1))
+ (#{wrap 11734}#
+ (let ((#{w2 11742}#
+ (vector-ref #{x 11701}# 2)))
+ (let ((#{m1 11743}# (car #{w 10355}#))
+ (#{s1 11744}# (cdr #{w 10355}#)))
+ (if (null? #{m1 11743}#)
+ (if (null? #{s1 11744}#)
+ #{w2 11742}#
+ (cons (car #{w2 11742}#)
+ (let ((#{m2 11759}#
+ (cdr #{w2 11742}#)))
+ (if (null? #{m2 11759}#)
+ #{s1 11744}#
(append
- #{s1 12209}#
- #{m2 12224}#)))))
- (cons (let ((#{m2 12232}#
- (car #{w2 12207}#)))
- (if (null? #{m2 12232}#)
- #{m1 12208}#
+ #{s1 11744}#
+ #{m2 11759}#)))))
+ (cons (let ((#{m2 11767}#
+ (car #{w2 11742}#)))
+ (if (null? #{m2 11767}#)
+ #{m1 11743}#
(append
- #{m1 12208}#
- #{m2 12232}#)))
- (let ((#{m2 12240}#
- (cdr #{w2 12207}#)))
- (if (null? #{m2 12240}#)
- #{s1 12209}#
+ #{m1 11743}#
+ #{m2 11767}#)))
+ (let ((#{m2 11775}#
+ (cdr #{w2 11742}#)))
+ (if (null? #{m2 11775}#)
+ #{s1 11744}#
(append
- #{s1 12209}#
- #{m2 12240}#))))))))
- (#{module 12200}# (vector-ref #{x 12166}# 3)))
+ #{s1 11744}#
+ #{m2 11775}#))))))))
+ (#{module 11735}# (vector-ref #{x 11701}# 3)))
(vector
'syntax-object
- #{expression 12198}#
- #{wrap 12199}#
- #{module 12200}#))
- (if (null? #{x 12166}#)
- #{x 12166}#
+ #{expression 11733}#
+ #{wrap 11734}#
+ #{module 11735}#))
+ (if (null? #{x 11701}#)
+ #{x 11701}#
(vector
'syntax-object
- #{x 12166}#
- #{w 10408}#
- #{mod 10410}#))))))))))))
+ #{x 11701}#
+ #{w 10355}#
+ #{mod 10357}#))))))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 12271}# #{r 12272}# #{w 12273}#)
- (let ((#{tmp 12275}#
- ($sc-dispatch #{e 12271}# '(_ each-any any))))
- (if (if #{tmp 12275}#
+ (lambda (#{e 11806}# #{r 11807}# #{w 11808}#)
+ (let ((#{tmp 11810}#
+ ($sc-dispatch #{e 11806}# '(_ each-any any))))
+ (if (if #{tmp 11810}#
(@apply
- (lambda (#{mod 12278}# #{id 12279}#)
- (if (and-map #{id? 4341}# #{mod 12278}#)
- (if (symbol? #{id 12279}#)
+ (lambda (#{mod 11813}# #{id 11814}#)
+ (if (and-map #{id? 4413}# #{mod 11813}#)
+ (if (symbol? #{id 11814}#)
#t
- (if (if (vector? #{id 12279}#)
- (if (= (vector-length #{id 12279}#) 4)
- (eq? (vector-ref #{id 12279}# 0)
+ (if (if (vector? #{id 11814}#)
+ (if (= (vector-length #{id 11814}#) 4)
+ (eq? (vector-ref #{id 11814}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 12279}# 1))
+ (symbol? (vector-ref #{id 11814}# 1))
#f))
#f))
- #{tmp 12275}#)
+ #{tmp 11810}#)
#f)
(@apply
- (lambda (#{mod 12319}# #{id 12320}#)
+ (lambda (#{mod 11854}# #{id 11855}#)
(values
- (syntax->datum #{id 12320}#)
- #{r 12272}#
- #{w 12273}#
+ (syntax->datum #{id 11855}#)
+ #{r 11807}#
+ #{w 11808}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11567,12 +11725,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3632" "i3633"))
+ #("i3705" "i3706"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3620" "i3621" "i3622"))
+ #("i3693" "i3694" "i3695"))
#(ribcage
(lambda-var-list
gen-var
@@ -11602,6 +11760,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -11639,7 +11798,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -11885,13 +12043,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -11900,19 +12058,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -11993,72 +12151,73 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))
- #{mod 12319}#))))
- #{tmp 12275}#)
+ #{mod 11854}#))))
+ #{tmp 11810}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12271}#))))))
- (#{global-extend 4339}#
+ #{e 11806}#))))))
+ (#{global-extend 4411}#
'module-ref
'@@
- (lambda (#{e 12424}# #{r 12425}# #{w 12426}#)
+ (lambda (#{e 11959}# #{r 11960}# #{w 11961}#)
(letrec*
- ((#{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)
+ ((#{remodulate 11962}#
+ (lambda (#{x 12198}# #{mod 12199}#)
+ (if (pair? #{x 12198}#)
+ (cons (#{remodulate 11962}#
+ (car #{x 12198}#)
+ #{mod 12199}#)
+ (#{remodulate 11962}#
+ (cdr #{x 12198}#)
+ #{mod 12199}#))
+ (if (if (vector? #{x 12198}#)
+ (if (= (vector-length #{x 12198}#) 4)
+ (eq? (vector-ref #{x 12198}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12678}#
- (#{remodulate 12427}#
- (vector-ref #{x 12663}# 1)
- #{mod 12664}#))
- (#{wrap 12679}# (vector-ref #{x 12663}# 2)))
+ (let ((#{expression 12213}#
+ (#{remodulate 11962}#
+ (vector-ref #{x 12198}# 1)
+ #{mod 12199}#))
+ (#{wrap 12214}# (vector-ref #{x 12198}# 2)))
(vector
'syntax-object
- #{expression 12678}#
- #{wrap 12679}#
- #{mod 12664}#))
- (if (vector? #{x 12663}#)
- (let ((#{n 12687}# (vector-length #{x 12663}#)))
- (let ((#{v 12688}# (make-vector #{n 12687}#)))
+ #{expression 12213}#
+ #{wrap 12214}#
+ #{mod 12199}#))
+ (if (vector? #{x 12198}#)
+ (let ((#{n 12222}# (vector-length #{x 12198}#)))
+ (let ((#{v 12223}# (make-vector #{n 12222}#)))
(letrec*
- ((#{loop 12689}#
- (lambda (#{i 12744}#)
- (if (= #{i 12744}# #{n 12687}#)
- #{v 12688}#
+ ((#{loop 12224}#
+ (lambda (#{i 12279}#)
+ (if (= #{i 12279}# #{n 12222}#)
+ #{v 12223}#
(begin
(vector-set!
- #{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}#
+ #{v 12223}#
+ #{i 12279}#
+ (#{remodulate 11962}#
+ (vector-ref #{x 12198}# #{i 12279}#)
+ #{mod 12199}#))
+ (#{loop 12224}# (#{1+}# #{i 12279}#)))))))
+ (#{loop 12224}# 0))))
+ #{x 12198}#))))))
+ (let ((#{tmp 11964}#
+ ($sc-dispatch #{e 11959}# '(_ each-any any))))
+ (if (if #{tmp 11964}#
(@apply
- (lambda (#{mod 12433}# #{exp 12434}#)
- (and-map #{id? 4341}# #{mod 12433}#))
- #{tmp 12429}#)
+ (lambda (#{mod 11968}# #{exp 11969}#)
+ (and-map #{id? 4413}# #{mod 11968}#))
+ #{tmp 11964}#)
#f)
(@apply
- (lambda (#{mod 12450}# #{exp 12451}#)
- (let ((#{mod 12452}#
+ (lambda (#{mod 11985}# #{exp 11986}#)
+ (let ((#{mod 11987}#
(syntax->datum
(cons '#(syntax-object
private
@@ -12066,12 +12225,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3676" "i3677"))
- #(ribcage (remodulate) ((top)) ("i3643"))
+ #("i3749" "i3750"))
+ #(ribcage (remodulate) ((top)) ("i3716"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i3713" "i3714" "i3715"))
#(ribcage
(lambda-var-list
gen-var
@@ -12101,6 +12260,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -12138,7 +12298,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -12384,13 +12543,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -12399,19 +12558,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -12492,183 +12651,184 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))
- #{mod 12450}#))))
+ #{mod 11985}#))))
(values
- (#{remodulate 12427}#
- #{exp 12451}#
- #{mod 12452}#)
- #{r 12425}#
- #{w 12426}#
- (#{source-annotation 4334}# #{exp 12451}#)
- #{mod 12452}#)))
- #{tmp 12429}#)
+ (#{remodulate 11962}#
+ #{exp 11986}#
+ #{mod 11987}#)
+ #{r 11960}#
+ #{w 11961}#
+ (#{source-annotation 4407}# #{exp 11986}#)
+ #{mod 11987}#)))
+ #{tmp 11964}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12424}#))))))
- (#{global-extend 4339}#
+ #{e 11959}#))))))
+ (#{global-extend 4411}#
'core
'if
- (lambda (#{e 12857}#
- #{r 12858}#
- #{w 12859}#
- #{s 12860}#
- #{mod 12861}#)
- (let ((#{tmp 12863}#
- ($sc-dispatch #{e 12857}# '(_ any any))))
- (if #{tmp 12863}#
+ (lambda (#{e 12392}#
+ #{r 12393}#
+ #{w 12394}#
+ #{s 12395}#
+ #{mod 12396}#)
+ (let ((#{tmp 12398}#
+ ($sc-dispatch #{e 12392}# '(_ any any))))
+ (if #{tmp 12398}#
(@apply
- (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}#)
+ (lambda (#{test 12402}# #{then 12403}#)
+ (#{build-conditional 4381}#
+ #{s 12395}#
+ (#{chi 4446}#
+ #{test 12402}#
+ #{r 12393}#
+ #{w 12394}#
+ #{mod 12396}#)
+ (#{chi 4446}#
+ #{then 12403}#
+ #{r 12393}#
+ #{w 12394}#
+ #{mod 12396}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 12863}#)
- (let ((#{tmp 13129}#
- ($sc-dispatch #{e 12857}# '(_ any any any))))
- (if #{tmp 13129}#
+ #{tmp 12398}#)
+ (let ((#{tmp 12664}#
+ ($sc-dispatch #{e 12392}# '(_ any any any))))
+ (if #{tmp 12664}#
(@apply
- (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}#)
+ (lambda (#{test 12668}# #{then 12669}# #{else 12670}#)
+ (#{build-conditional 4381}#
+ #{s 12395}#
+ (#{chi 4446}#
+ #{test 12668}#
+ #{r 12393}#
+ #{w 12394}#
+ #{mod 12396}#)
+ (#{chi 4446}#
+ #{then 12669}#
+ #{r 12393}#
+ #{w 12394}#
+ #{mod 12396}#)
+ (#{chi 4446}#
+ #{else 12670}#
+ #{r 12393}#
+ #{w 12394}#
+ #{mod 12396}#)))
+ #{tmp 12664}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12857}#)))))))
- (#{global-extend 4339}#
+ #{e 12392}#)))))))
+ (#{global-extend 4411}#
'core
'with-fluids
- (lambda (#{e 13594}#
- #{r 13595}#
- #{w 13596}#
- #{s 13597}#
- #{mod 13598}#)
- (let ((#{tmp 13600}#
+ (lambda (#{e 13129}#
+ #{r 13130}#
+ #{w 13131}#
+ #{s 13132}#
+ #{mod 13133}#)
+ (let ((#{tmp 13135}#
($sc-dispatch
- #{e 13594}#
+ #{e 13129}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 13600}#
+ (if #{tmp 13135}#
(@apply
- (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}#
+ (lambda (#{fluid 13139}#
+ #{val 13140}#
+ #{b 13141}#
+ #{b* 13142}#)
+ (#{build-dynlet 4382}#
+ #{s 13132}#
+ (map (lambda (#{x 13235}#)
+ (#{chi 4446}#
+ #{x 13235}#
+ #{r 13130}#
+ #{w 13131}#
+ #{mod 13133}#))
+ #{fluid 13139}#)
+ (map (lambda (#{x 13317}#)
+ (#{chi 4446}#
+ #{x 13317}#
+ #{r 13130}#
+ #{w 13131}#
+ #{mod 13133}#))
+ #{val 13140}#)
+ (#{chi-body 4450}#
+ (cons #{b 13141}# #{b* 13142}#)
+ (let ((#{x 13410}#
(begin
- (if (if (pair? #{e 13594}#) #{s 13597}# #f)
+ (if (if (pair? #{e 13129}#) #{s 13132}# #f)
(set-source-properties!
- #{e 13594}#
- #{s 13597}#))
- #{e 13594}#)))
- (if (if (null? (car #{w 13596}#))
- (null? (cdr #{w 13596}#))
+ #{e 13129}#
+ #{s 13132}#))
+ #{e 13129}#)))
+ (if (if (null? (car #{w 13131}#))
+ (null? (cdr #{w 13131}#))
#f)
- #{x 13875}#
- (if (if (vector? #{x 13875}#)
- (if (= (vector-length #{x 13875}#) 4)
- (eq? (vector-ref #{x 13875}# 0) 'syntax-object)
+ #{x 13410}#
+ (if (if (vector? #{x 13410}#)
+ (if (= (vector-length #{x 13410}#) 4)
+ (eq? (vector-ref #{x 13410}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 13442}#
+ (vector-ref #{x 13410}# 1))
+ (#{wrap 13443}#
+ (let ((#{w2 13451}#
+ (vector-ref #{x 13410}# 2)))
+ (let ((#{m1 13452}# (car #{w 13131}#))
+ (#{s1 13453}# (cdr #{w 13131}#)))
+ (if (null? #{m1 13452}#)
+ (if (null? #{s1 13453}#)
+ #{w2 13451}#
+ (cons (car #{w2 13451}#)
+ (let ((#{m2 13468}#
+ (cdr #{w2 13451}#)))
+ (if (null? #{m2 13468}#)
+ #{s1 13453}#
(append
- #{s1 13918}#
- #{m2 13933}#)))))
- (cons (let ((#{m2 13941}#
- (car #{w2 13916}#)))
- (if (null? #{m2 13941}#)
- #{m1 13917}#
+ #{s1 13453}#
+ #{m2 13468}#)))))
+ (cons (let ((#{m2 13476}#
+ (car #{w2 13451}#)))
+ (if (null? #{m2 13476}#)
+ #{m1 13452}#
(append
- #{m1 13917}#
- #{m2 13941}#)))
- (let ((#{m2 13949}#
- (cdr #{w2 13916}#)))
- (if (null? #{m2 13949}#)
- #{s1 13918}#
+ #{m1 13452}#
+ #{m2 13476}#)))
+ (let ((#{m2 13484}#
+ (cdr #{w2 13451}#)))
+ (if (null? #{m2 13484}#)
+ #{s1 13453}#
(append
- #{s1 13918}#
- #{m2 13949}#))))))))
- (#{module 13909}# (vector-ref #{x 13875}# 3)))
+ #{s1 13453}#
+ #{m2 13484}#))))))))
+ (#{module 13444}# (vector-ref #{x 13410}# 3)))
(vector
'syntax-object
- #{expression 13907}#
- #{wrap 13908}#
- #{module 13909}#))
- (if (null? #{x 13875}#)
- #{x 13875}#
+ #{expression 13442}#
+ #{wrap 13443}#
+ #{module 13444}#))
+ (if (null? #{x 13410}#)
+ #{x 13410}#
(vector
'syntax-object
- #{x 13875}#
- #{w 13596}#
- #{mod 13598}#)))))
- #{r 13595}#
- #{w 13596}#
- #{mod 13598}#)))
- #{tmp 13600}#)
+ #{x 13410}#
+ #{w 13131}#
+ #{mod 13133}#)))))
+ #{r 13130}#
+ #{w 13131}#
+ #{mod 13133}#)))
+ #{tmp 13135}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 13594}#)))))
+ #{e 13129}#)))))
(module-define!
(current-module)
'begin
@@ -12686,73 +12846,80 @@
'()))
(module-define!
(current-module)
+ 'define-syntax-parameter
+ (make-syntax-transformer
+ 'define-syntax-parameter
+ 'define-syntax-parameter
+ '()))
+ (module-define!
+ (current-module)
'eval-when
(make-syntax-transformer
'eval-when
'eval-when
'()))
- (#{global-extend 4339}#
+ (#{global-extend 4411}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 14243}#
- (lambda (#{pattern 15899}# #{keys 15900}#)
+ ((#{convert-pattern 13788}#
+ (lambda (#{pattern 15444}# #{keys 15445}#)
(letrec*
- ((#{cvt* 15901}#
- (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#)
- (if (not (pair? #{p* 16700}#))
- (#{cvt 15903}#
- #{p* 16700}#
- #{n 16701}#
- #{ids 16702}#)
+ ((#{cvt* 15446}#
+ (lambda (#{p* 16245}# #{n 16246}# #{ids 16247}#)
+ (if (not (pair? #{p* 16245}#))
+ (#{cvt 15448}#
+ #{p* 16245}#
+ #{n 16246}#
+ #{ids 16247}#)
(call-with-values
(lambda ()
- (#{cvt* 15901}#
- (cdr #{p* 16700}#)
- #{n 16701}#
- #{ids 16702}#))
- (lambda (#{y 16705}# #{ids 16706}#)
+ (#{cvt* 15446}#
+ (cdr #{p* 16245}#)
+ #{n 16246}#
+ #{ids 16247}#))
+ (lambda (#{y 16250}# #{ids 16251}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- (car #{p* 16700}#)
- #{n 16701}#
- #{ids 16706}#))
- (lambda (#{x 16709}# #{ids 16710}#)
+ (#{cvt 15448}#
+ (car #{p* 16245}#)
+ #{n 16246}#
+ #{ids 16251}#))
+ (lambda (#{x 16254}# #{ids 16255}#)
(values
- (cons #{x 16709}# #{y 16705}#)
- #{ids 16710}#))))))))
- (#{v-reverse 15902}#
- (lambda (#{x 16711}#)
+ (cons #{x 16254}# #{y 16250}#)
+ #{ids 16255}#))))))))
+ (#{v-reverse 15447}#
+ (lambda (#{x 16256}#)
(letrec*
- ((#{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}#)
+ ((#{loop 16257}#
+ (lambda (#{r 16358}# #{x 16359}#)
+ (if (not (pair? #{x 16359}#))
+ (values #{r 16358}# #{x 16359}#)
+ (#{loop 16257}#
+ (cons (car #{x 16359}#) #{r 16358}#)
+ (cdr #{x 16359}#))))))
+ (#{loop 16257}# '() #{x 16256}#))))
+ (#{cvt 15448}#
+ (lambda (#{p 15451}# #{n 15452}# #{ids 15453}#)
+ (if (if (symbol? #{p 15451}#)
#t
- (if (if (vector? #{p 15906}#)
- (if (= (vector-length #{p 15906}#) 4)
- (eq? (vector-ref #{p 15906}# 0)
+ (if (if (vector? #{p 15451}#)
+ (if (= (vector-length #{p 15451}#) 4)
+ (eq? (vector-ref #{p 15451}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 15906}# 1))
+ (symbol? (vector-ref #{p 15451}# 1))
#f))
- (if (#{bound-id-member? 4365}#
- #{p 15906}#
- #{keys 15900}#)
+ (if (#{bound-id-member? 4438}#
+ #{p 15451}#
+ #{keys 15445}#)
(values
- (vector 'free-id #{p 15906}#)
- #{ids 15908}#)
- (if (#{free-id=? 4361}#
- #{p 15906}#
+ (vector 'free-id #{p 15451}#)
+ #{ids 15453}#)
+ (if (#{free-id=? 4434}#
+ #{p 15451}#
'#(syntax-object
_
((top)
@@ -12760,22 +12927,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3777" "i3778" "i3779"))
+ #("i3850" "i3851" "i3852"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3750" "i3748" "i3746"))
+ ("i3823" "i3821" "i3819"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3744" "i3745"))
+ #("i3817" "i3818"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3740" "i3738" "i3736" "i3734"))
+ ("i3813" "i3811" "i3809" "i3807"))
#(ribcage
(lambda-var-list
gen-var
@@ -12805,6 +12972,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -12842,7 +13010,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -13088,13 +13255,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -13103,19 +13270,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -13196,38 +13363,39 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
- (values '_ #{ids 15908}#)
+ (values '_ #{ids 15453}#)
(values
'any
- (cons (cons #{p 15906}# #{n 15907}#)
- #{ids 15908}#))))
- (let ((#{tmp 16040}#
- ($sc-dispatch #{p 15906}# '(any any))))
- (if (if #{tmp 16040}#
+ (cons (cons #{p 15451}# #{n 15452}#)
+ #{ids 15453}#))))
+ (let ((#{tmp 15585}#
+ ($sc-dispatch #{p 15451}# '(any any))))
+ (if (if #{tmp 15585}#
(@apply
- (lambda (#{x 16044}# #{dots 16045}#)
- (if (if (if (vector? #{dots 16045}#)
+ (lambda (#{x 15589}# #{dots 15590}#)
+ (if (if (if (vector? #{dots 15590}#)
(if (= (vector-length
- #{dots 16045}#)
+ #{dots 15590}#)
4)
(eq? (vector-ref
- #{dots 16045}#
+ #{dots 15590}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 16045}# 1))
+ (symbol? (vector-ref #{dots 15590}# 1))
#f)
- (#{free-id=? 4361}#
- #{dots 16045}#
+ (#{free-id=? 4434}#
+ #{dots 15590}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2261"))
+ #(ribcage #(x) #((top)) #("i2341"))
#(ribcage
(lambda-var-list
gen-var
@@ -13257,6 +13425,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -13294,7 +13463,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -13540,13 +13708,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -13555,19 +13723,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -13648,48 +13816,49 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 16040}#)
+ #{tmp 15585}#)
#f)
(@apply
- (lambda (#{x 16084}# #{dots 16085}#)
+ (lambda (#{x 15629}# #{dots 15630}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- #{x 16084}#
- (#{1+}# #{n 15907}#)
- #{ids 15908}#))
- (lambda (#{p 16086}# #{ids 16087}#)
+ (#{cvt 15448}#
+ #{x 15629}#
+ (#{1+}# #{n 15452}#)
+ #{ids 15453}#))
+ (lambda (#{p 15631}# #{ids 15632}#)
(values
- (if (eq? #{p 16086}# 'any)
+ (if (eq? #{p 15631}# 'any)
'each-any
- (vector 'each #{p 16086}#))
- #{ids 16087}#))))
- #{tmp 16040}#)
- (let ((#{tmp 16088}#
- ($sc-dispatch #{p 15906}# '(any any . any))))
- (if (if #{tmp 16088}#
+ (vector 'each #{p 15631}#))
+ #{ids 15632}#))))
+ #{tmp 15585}#)
+ (let ((#{tmp 15633}#
+ ($sc-dispatch #{p 15451}# '(any any . any))))
+ (if (if #{tmp 15633}#
(@apply
- (lambda (#{x 16092}#
- #{dots 16093}#
- #{ys 16094}#)
- (if (if (if (vector? #{dots 16093}#)
+ (lambda (#{x 15637}#
+ #{dots 15638}#
+ #{ys 15639}#)
+ (if (if (if (vector? #{dots 15638}#)
(if (= (vector-length
- #{dots 16093}#)
+ #{dots 15638}#)
4)
(eq? (vector-ref
- #{dots 16093}#
+ #{dots 15638}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 16093}# 1))
+ (vector-ref #{dots 15638}# 1))
#f)
- (#{free-id=? 4361}#
- #{dots 16093}#
+ (#{free-id=? 4434}#
+ #{dots 15638}#
'#(syntax-object
...
((top)
@@ -13698,7 +13867,7 @@
#(ribcage
#(x)
#((top))
- #("i2261"))
+ #("i2341"))
#(ribcage
(lambda-var-list
gen-var
@@ -13728,6 +13897,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -13765,7 +13935,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -14011,13 +14180,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -14026,19 +14195,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -14119,178 +14288,179 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 16088}#)
+ #{tmp 15633}#)
#f)
(@apply
- (lambda (#{x 16133}#
- #{dots 16134}#
- #{ys 16135}#)
+ (lambda (#{x 15678}#
+ #{dots 15679}#
+ #{ys 15680}#)
(call-with-values
(lambda ()
- (#{cvt* 15901}#
- #{ys 16135}#
- #{n 15907}#
- #{ids 15908}#))
- (lambda (#{ys 16620}# #{ids 16621}#)
+ (#{cvt* 15446}#
+ #{ys 15680}#
+ #{n 15452}#
+ #{ids 15453}#))
+ (lambda (#{ys 16165}# #{ids 16166}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- #{x 16133}#
- (#{1+}# #{n 15907}#)
- #{ids 16621}#))
- (lambda (#{x 16622}# #{ids 16623}#)
+ (#{cvt 15448}#
+ #{x 15678}#
+ (#{1+}# #{n 15452}#)
+ #{ids 16166}#))
+ (lambda (#{x 16167}# #{ids 16168}#)
(call-with-values
(lambda ()
- (#{v-reverse 15902}#
- #{ys 16620}#))
- (lambda (#{ys 16659}# #{e 16660}#)
+ (#{v-reverse 15447}#
+ #{ys 16165}#))
+ (lambda (#{ys 16204}# #{e 16205}#)
(values
(vector
'each+
- #{x 16622}#
- #{ys 16659}#
- #{e 16660}#)
- #{ids 16623}#))))))))
- #{tmp 16088}#)
- (let ((#{tmp 16661}#
- ($sc-dispatch #{p 15906}# '(any . any))))
- (if #{tmp 16661}#
+ #{x 16167}#
+ #{ys 16204}#
+ #{e 16205}#)
+ #{ids 16168}#))))))))
+ #{tmp 15633}#)
+ (let ((#{tmp 16206}#
+ ($sc-dispatch #{p 15451}# '(any . any))))
+ (if #{tmp 16206}#
(@apply
- (lambda (#{x 16665}# #{y 16666}#)
+ (lambda (#{x 16210}# #{y 16211}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- #{y 16666}#
- #{n 15907}#
- #{ids 15908}#))
- (lambda (#{y 16667}# #{ids 16668}#)
+ (#{cvt 15448}#
+ #{y 16211}#
+ #{n 15452}#
+ #{ids 15453}#))
+ (lambda (#{y 16212}# #{ids 16213}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- #{x 16665}#
- #{n 15907}#
- #{ids 16668}#))
- (lambda (#{x 16669}# #{ids 16670}#)
+ (#{cvt 15448}#
+ #{x 16210}#
+ #{n 15452}#
+ #{ids 16213}#))
+ (lambda (#{x 16214}# #{ids 16215}#)
(values
- (cons #{x 16669}# #{y 16667}#)
- #{ids 16670}#))))))
- #{tmp 16661}#)
- (let ((#{tmp 16671}#
- ($sc-dispatch #{p 15906}# '())))
- (if #{tmp 16671}#
+ (cons #{x 16214}# #{y 16212}#)
+ #{ids 16215}#))))))
+ #{tmp 16206}#)
+ (let ((#{tmp 16216}#
+ ($sc-dispatch #{p 15451}# '())))
+ (if #{tmp 16216}#
(@apply
- (lambda () (values '() #{ids 15908}#))
- #{tmp 16671}#)
- (let ((#{tmp 16675}#
+ (lambda () (values '() #{ids 15453}#))
+ #{tmp 16216}#)
+ (let ((#{tmp 16220}#
($sc-dispatch
- #{p 15906}#
+ #{p 15451}#
'#(vector each-any))))
- (if #{tmp 16675}#
+ (if #{tmp 16220}#
(@apply
- (lambda (#{x 16679}#)
+ (lambda (#{x 16224}#)
(call-with-values
(lambda ()
- (#{cvt 15903}#
- #{x 16679}#
- #{n 15907}#
- #{ids 15908}#))
- (lambda (#{p 16680}#
- #{ids 16681}#)
+ (#{cvt 15448}#
+ #{x 16224}#
+ #{n 15452}#
+ #{ids 15453}#))
+ (lambda (#{p 16225}#
+ #{ids 16226}#)
(values
(vector
'vector
- #{p 16680}#)
- #{ids 16681}#))))
- #{tmp 16675}#)
+ #{p 16225}#)
+ #{ids 16226}#))))
+ #{tmp 16220}#)
(values
(vector
'atom
- (#{strip 4386}#
- #{p 15906}#
+ (#{strip 4459}#
+ #{p 15451}#
'(())))
- #{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}#)))
+ #{ids 15453}#)))))))))))))))
+ (#{cvt 15448}# #{pattern 15444}# 0 '()))))
+ (#{build-dispatch-call 13789}#
+ (lambda (#{pvars 16360}#
+ #{exp 16361}#
+ #{y 16362}#
+ #{r 16363}#
+ #{mod 16364}#)
+ (let ((#{ids 16365}# (map car #{pvars 16360}#)))
(begin
- (map cdr #{pvars 16815}#)
- (let ((#{labels 16822}#
- (#{gen-labels 4344}# #{ids 16820}#))
- (#{new-vars 16823}#
- (map #{gen-var 4387}# #{ids 16820}#)))
- (#{build-primcall 4319}#
+ (map cdr #{pvars 16360}#)
+ (let ((#{labels 16367}#
+ (#{gen-labels 4416}# #{ids 16365}#))
+ (#{new-vars 16368}#
+ (map #{gen-var 4460}# #{ids 16365}#)))
+ (#{build-primcall 4392}#
#f
'apply
- (list (#{build-simple-lambda 4316}#
+ (list (#{build-simple-lambda 4389}#
#f
- (map syntax->datum #{ids 16820}#)
+ (map syntax->datum #{ids 16365}#)
#f
- #{new-vars 16823}#
+ #{new-vars 16368}#
'()
- (#{chi 4373}#
- #{exp 16816}#
- (#{extend-env 4335}#
- #{labels 16822}#
- (map (lambda (#{var 17155}# #{level 17156}#)
+ (#{chi 4446}#
+ #{exp 16361}#
+ (#{extend-env 4408}#
+ #{labels 16367}#
+ (map (lambda (#{var 16700}# #{level 16701}#)
(cons 'syntax
- (cons #{var 17155}#
- #{level 17156}#)))
- #{new-vars 16823}#
- (map cdr #{pvars 16815}#))
- #{r 16818}#)
- (#{make-binding-wrap 4355}#
- #{ids 16820}#
- #{labels 16822}#
+ (cons #{var 16700}#
+ #{level 16701}#)))
+ #{new-vars 16368}#
+ (map cdr #{pvars 16360}#))
+ #{r 16363}#)
+ (#{make-binding-wrap 4427}#
+ #{ids 16365}#
+ #{labels 16367}#
'(()))
- #{mod 16819}#))
- #{y 16817}#)))))))
- (#{gen-clause 14245}#
- (lambda (#{x 15493}#
- #{keys 15494}#
- #{clauses 15495}#
- #{r 15496}#
- #{pat 15497}#
- #{fender 15498}#
- #{exp 15499}#
- #{mod 15500}#)
+ #{mod 16364}#))
+ #{y 16362}#)))))))
+ (#{gen-clause 13790}#
+ (lambda (#{x 15038}#
+ #{keys 15039}#
+ #{clauses 15040}#
+ #{r 15041}#
+ #{pat 15042}#
+ #{fender 15043}#
+ #{exp 15044}#
+ #{mod 15045}#)
(call-with-values
(lambda ()
- (#{convert-pattern 14243}#
- #{pat 15497}#
- #{keys 15494}#))
- (lambda (#{p 15638}# #{pvars 15639}#)
- (if (not (#{distinct-bound-ids? 4364}#
- (map car #{pvars 15639}#)))
+ (#{convert-pattern 13788}#
+ #{pat 15042}#
+ #{keys 15039}#))
+ (lambda (#{p 15183}# #{pvars 15184}#)
+ (if (not (#{distinct-bound-ids? 4437}#
+ (map car #{pvars 15184}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 15497}#)
+ #{pat 15042}#)
(if (not (and-map
- (lambda (#{x 15748}#)
- (not (let ((#{x 15752}# (car #{x 15748}#)))
- (if (if (if (vector? #{x 15752}#)
+ (lambda (#{x 15293}#)
+ (not (let ((#{x 15297}# (car #{x 15293}#)))
+ (if (if (if (vector? #{x 15297}#)
(if (= (vector-length
- #{x 15752}#)
+ #{x 15297}#)
4)
(eq? (vector-ref
- #{x 15752}#
+ #{x 15297}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 15752}# 1))
+ (vector-ref #{x 15297}# 1))
#f)
- (#{free-id=? 4361}#
- #{x 15752}#
+ (#{free-id=? 4434}#
+ #{x 15297}#
'#(syntax-object
...
((top)
@@ -14299,7 +14469,7 @@
#(ribcage
#(x)
#((top))
- #("i2261"))
+ #("i2341"))
#(ribcage
(lambda-var-list
gen-var
@@ -14329,6 +14499,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -14366,7 +14537,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -14612,13 +14782,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -14627,19 +14797,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -14720,46 +14890,47 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
#f))))
- #{pvars 15639}#))
+ #{pvars 15184}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 15497}#)
- (let ((#{y 15777}#
+ #{pat 15042}#)
+ (let ((#{y 15322}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 15782}#
- (let ((#{req 15791}# (list 'tmp))
- (#{vars 15793}# (list #{y 15777}#))
- (#{exp 15795}#
- (let ((#{y 15824}#
+ (let ((#{fun-exp 15327}#
+ (let ((#{req 15336}# (list 'tmp))
+ (#{vars 15338}# (list #{y 15322}#))
+ (#{exp 15340}#
+ (let ((#{y 15369}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
3)
#f
'tmp
- #{y 15777}#)))
- (let ((#{test-exp 15828}#
- (let ((#{tmp 15837}#
+ #{y 15322}#)))
+ (let ((#{test-exp 15373}#
+ (let ((#{tmp 15382}#
($sc-dispatch
- #{fender 15498}#
+ #{fender 15043}#
'#(atom #t))))
- (if #{tmp 15837}#
+ (if #{tmp 15382}#
(@apply
- (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}#
+ (lambda () #{y 15369}#)
+ #{tmp 15382}#)
+ (let ((#{then-exp 15400}#
+ (#{build-dispatch-call 13789}#
+ #{pvars 15184}#
+ #{fender 15043}#
+ #{y 15369}#
+ #{r 15041}#
+ #{mod 15045}#))
+ (#{else-exp 15401}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -14771,81 +14942,81 @@
%expanded-vtables
10)
#f
- #{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}#)))
+ #{y 15369}#
+ #{then-exp 15400}#
+ #{else-exp 15401}#)))))
+ (#{then-exp 15374}#
+ (#{build-dispatch-call 13789}#
+ #{pvars 15184}#
+ #{exp 15044}#
+ #{y 15369}#
+ #{r 15041}#
+ #{mod 15045}#))
+ (#{else-exp 15375}#
+ (#{gen-syntax-case 13791}#
+ #{x 15038}#
+ #{keys 15039}#
+ #{clauses 15040}#
+ #{r 15041}#
+ #{mod 15045}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 15828}#
- #{then-exp 15829}#
- #{else-exp 15830}#)))))
- (let ((#{body 15800}#
+ #{test-exp 15373}#
+ #{then-exp 15374}#
+ #{else-exp 15375}#)))))
+ (let ((#{body 15345}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 15791}#
+ #{req 15336}#
#f
#f
#f
'()
- #{vars 15793}#
- #{exp 15795}#
+ #{vars 15338}#
+ #{exp 15340}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 15800}#))))
- (#{arg-exps 15783}#
- (list (if (eq? #{p 15638}# 'any)
- (let ((#{args 15878}#
- (list #{x 15493}#)))
+ #{body 15345}#))))
+ (#{arg-exps 15328}#
+ (list (if (eq? #{p 15183}# 'any)
+ (let ((#{args 15423}#
+ (list #{x 15038}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 15878}#))
- (let ((#{args 15887}#
- (list #{x 15493}#
+ #{args 15423}#))
+ (let ((#{args 15432}#
+ (list #{x 15038}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 15638}#))))
+ #{p 15183}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'$sc-dispatch
- #{args 15887}#))))))
+ #{args 15432}#))))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{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}#
+ #{fun-exp 15327}#
+ #{arg-exps 15328}#)))))))))
+ (#{gen-syntax-case 13791}#
+ (lambda (#{x 14535}#
+ #{keys 14536}#
+ #{clauses 14537}#
+ #{r 14538}#
+ #{mod 14539}#)
+ (if (null? #{clauses 14537}#)
+ (let ((#{args 14545}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -14854,57 +15025,57 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 14990}#)))
+ #{x 14535}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'syntax-violation
- #{args 15000}#))
- (let ((#{tmp 15019}# (car #{clauses 14992}#)))
- (let ((#{tmp 15020}#
- ($sc-dispatch #{tmp 15019}# '(any any))))
- (if #{tmp 15020}#
+ #{args 14545}#))
+ (let ((#{tmp 14564}# (car #{clauses 14537}#)))
+ (let ((#{tmp 14565}#
+ ($sc-dispatch #{tmp 14564}# '(any any))))
+ (if #{tmp 14565}#
(@apply
- (lambda (#{pat 15022}# #{exp 15023}#)
- (if (if (if (symbol? #{pat 15022}#)
+ (lambda (#{pat 14567}# #{exp 14568}#)
+ (if (if (if (symbol? #{pat 14567}#)
#t
- (if (if (vector? #{pat 15022}#)
- (if (= (vector-length #{pat 15022}#)
+ (if (if (vector? #{pat 14567}#)
+ (if (= (vector-length #{pat 14567}#)
4)
- (eq? (vector-ref #{pat 15022}# 0)
+ (eq? (vector-ref #{pat 14567}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 15022}# 1))
+ (symbol? (vector-ref #{pat 14567}# 1))
#f))
(and-map
- (lambda (#{x 15050}#)
- (not (#{free-id=? 4361}#
- #{pat 15022}#
- #{x 15050}#)))
+ (lambda (#{x 14595}#)
+ (not (#{free-id=? 4434}#
+ #{pat 14567}#
+ #{x 14595}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3937" "i3938"))
+ #("i4010" "i4011"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3927"
- "i3928"
- "i3929"
- "i3930"
- "i3931"))
+ #("i4000"
+ "i4001"
+ "i4002"
+ "i4003"
+ "i4004"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3740" "i3738" "i3736" "i3734"))
+ ("i3813" "i3811" "i3809" "i3807"))
#(ribcage
(lambda-var-list
gen-var
@@ -14934,6 +15105,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -14971,7 +15143,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -15217,13 +15388,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -15232,19 +15403,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -15325,34 +15496,35 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))
- #{keys 14991}#))
+ #{keys 14536}#))
#f)
- (if (#{free-id=? 4361}#
+ (if (#{free-id=? 4434}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3937" "i3938"))
+ #("i4010" "i4011"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3927"
- "i3928"
- "i3929"
- "i3930"
- "i3931"))
+ #("i4000"
+ "i4001"
+ "i4002"
+ "i4003"
+ "i4004"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3740" "i3738" "i3736" "i3734"))
+ ("i3813" "i3811" "i3809" "i3807"))
#(ribcage
(lambda-var-list
gen-var
@@ -15382,6 +15554,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -15419,7 +15592,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -15665,13 +15837,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -15680,19 +15852,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -15773,7 +15945,8 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile))
'#(syntax-object
_
@@ -15781,23 +15954,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3937" "i3938"))
+ #("i4010" "i4011"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3927"
- "i3928"
- "i3929"
- "i3930"
- "i3931"))
+ #("i4000"
+ "i4001"
+ "i4002"
+ "i4003"
+ "i4004"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3740" "i3738" "i3736" "i3734"))
+ ("i3813" "i3811" "i3809" "i3807"))
#(ribcage
(lambda-var-list
gen-var
@@ -15827,6 +16000,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -15864,7 +16038,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -16110,13 +16283,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -16125,19 +16298,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -16218,183 +16391,184 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
- (#{chi 4373}#
- #{exp 15023}#
- #{r 14993}#
+ (#{chi 4446}#
+ #{exp 14568}#
+ #{r 14538}#
'(())
- #{mod 14994}#)
- (let ((#{labels 15136}#
+ #{mod 14539}#)
+ (let ((#{labels 14681}#
(list (symbol->string (gensym "i"))))
- (#{var 15137}#
- (let ((#{id 15175}#
- (if (if (vector? #{pat 15022}#)
+ (#{var 14682}#
+ (let ((#{id 14720}#
+ (if (if (vector? #{pat 14567}#)
(if (= (vector-length
- #{pat 15022}#)
+ #{pat 14567}#)
4)
(eq? (vector-ref
- #{pat 15022}#
+ #{pat 14567}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 15022}# 1)
- #{pat 15022}#)))
+ (vector-ref #{pat 14567}# 1)
+ #{pat 14567}#)))
(gensym
(string-append
- (symbol->string #{id 15175}#)
+ (symbol->string #{id 14720}#)
" ")))))
- (#{build-call 4307}#
+ (#{build-call 4380}#
#f
- (#{build-simple-lambda 4316}#
+ (#{build-simple-lambda 4389}#
#f
- (list (syntax->datum #{pat 15022}#))
+ (list (syntax->datum #{pat 14567}#))
#f
- (list #{var 15137}#)
+ (list #{var 14682}#)
'()
- (#{chi 4373}#
- #{exp 15023}#
- (#{extend-env 4335}#
- #{labels 15136}#
+ (#{chi 4446}#
+ #{exp 14568}#
+ (#{extend-env 4408}#
+ #{labels 14681}#
(list (cons 'syntax
- (cons #{var 15137}# 0)))
- #{r 14993}#)
- (#{make-binding-wrap 4355}#
- (list #{pat 15022}#)
- #{labels 15136}#
+ (cons #{var 14682}# 0)))
+ #{r 14538}#)
+ (#{make-binding-wrap 4427}#
+ (list #{pat 14567}#)
+ #{labels 14681}#
'(()))
- #{mod 14994}#))
- (list #{x 14990}#))))
- (#{gen-clause 14245}#
- #{x 14990}#
- #{keys 14991}#
- (cdr #{clauses 14992}#)
- #{r 14993}#
- #{pat 15022}#
+ #{mod 14539}#))
+ (list #{x 14535}#))))
+ (#{gen-clause 13790}#
+ #{x 14535}#
+ #{keys 14536}#
+ (cdr #{clauses 14537}#)
+ #{r 14538}#
+ #{pat 14567}#
#t
- #{exp 15023}#
- #{mod 14994}#)))
- #{tmp 15020}#)
- (let ((#{tmp 15485}#
- ($sc-dispatch #{tmp 15019}# '(any any any))))
- (if #{tmp 15485}#
+ #{exp 14568}#
+ #{mod 14539}#)))
+ #{tmp 14565}#)
+ (let ((#{tmp 15030}#
+ ($sc-dispatch #{tmp 14564}# '(any any any))))
+ (if #{tmp 15030}#
(@apply
- (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}#)
+ (lambda (#{pat 15032}#
+ #{fender 15033}#
+ #{exp 15034}#)
+ (#{gen-clause 13790}#
+ #{x 14535}#
+ #{keys 14536}#
+ (cdr #{clauses 14537}#)
+ #{r 14538}#
+ #{pat 15032}#
+ #{fender 15033}#
+ #{exp 15034}#
+ #{mod 14539}#))
+ #{tmp 15030}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 14992}#)))))))))))
- (lambda (#{e 14247}#
- #{r 14248}#
- #{w 14249}#
- #{s 14250}#
- #{mod 14251}#)
- (let ((#{e 14252}#
- (let ((#{x 14901}#
+ (car #{clauses 14537}#)))))))))))
+ (lambda (#{e 13792}#
+ #{r 13793}#
+ #{w 13794}#
+ #{s 13795}#
+ #{mod 13796}#)
+ (let ((#{e 13797}#
+ (let ((#{x 14446}#
(begin
- (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}#))
+ (if (if (pair? #{e 13792}#) #{s 13795}# #f)
+ (set-source-properties! #{e 13792}# #{s 13795}#))
+ #{e 13792}#)))
+ (if (if (null? (car #{w 13794}#))
+ (null? (cdr #{w 13794}#))
#f)
- #{x 14901}#
- (if (if (vector? #{x 14901}#)
- (if (= (vector-length #{x 14901}#) 4)
- (eq? (vector-ref #{x 14901}# 0) 'syntax-object)
+ #{x 14446}#
+ (if (if (vector? #{x 14446}#)
+ (if (= (vector-length #{x 14446}#) 4)
+ (eq? (vector-ref #{x 14446}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 14478}# (vector-ref #{x 14446}# 1))
+ (#{wrap 14479}#
+ (let ((#{w2 14487}#
+ (vector-ref #{x 14446}# 2)))
+ (let ((#{m1 14488}# (car #{w 13794}#))
+ (#{s1 14489}# (cdr #{w 13794}#)))
+ (if (null? #{m1 14488}#)
+ (if (null? #{s1 14489}#)
+ #{w2 14487}#
+ (cons (car #{w2 14487}#)
+ (let ((#{m2 14504}#
+ (cdr #{w2 14487}#)))
+ (if (null? #{m2 14504}#)
+ #{s1 14489}#
(append
- #{s1 14944}#
- #{m2 14959}#)))))
- (cons (let ((#{m2 14967}#
- (car #{w2 14942}#)))
- (if (null? #{m2 14967}#)
- #{m1 14943}#
+ #{s1 14489}#
+ #{m2 14504}#)))))
+ (cons (let ((#{m2 14512}#
+ (car #{w2 14487}#)))
+ (if (null? #{m2 14512}#)
+ #{m1 14488}#
(append
- #{m1 14943}#
- #{m2 14967}#)))
- (let ((#{m2 14975}#
- (cdr #{w2 14942}#)))
- (if (null? #{m2 14975}#)
- #{s1 14944}#
+ #{m1 14488}#
+ #{m2 14512}#)))
+ (let ((#{m2 14520}#
+ (cdr #{w2 14487}#)))
+ (if (null? #{m2 14520}#)
+ #{s1 14489}#
(append
- #{s1 14944}#
- #{m2 14975}#))))))))
- (#{module 14935}# (vector-ref #{x 14901}# 3)))
+ #{s1 14489}#
+ #{m2 14520}#))))))))
+ (#{module 14480}# (vector-ref #{x 14446}# 3)))
(vector
'syntax-object
- #{expression 14933}#
- #{wrap 14934}#
- #{module 14935}#))
- (if (null? #{x 14901}#)
- #{x 14901}#
+ #{expression 14478}#
+ #{wrap 14479}#
+ #{module 14480}#))
+ (if (null? #{x 14446}#)
+ #{x 14446}#
(vector
'syntax-object
- #{x 14901}#
- #{w 14249}#
- #{mod 14251}#)))))))
- (let ((#{tmp 14253}# #{e 14252}#))
- (let ((#{tmp 14254}#
+ #{x 14446}#
+ #{w 13794}#
+ #{mod 13796}#)))))))
+ (let ((#{tmp 13798}# #{e 13797}#))
+ (let ((#{tmp 13799}#
($sc-dispatch
- #{tmp 14253}#
+ #{tmp 13798}#
'(_ any each-any . each-any))))
- (if #{tmp 14254}#
+ (if #{tmp 13799}#
(@apply
- (lambda (#{val 14306}# #{key 14307}# #{m 14308}#)
+ (lambda (#{val 13851}# #{key 13852}# #{m 13853}#)
(if (and-map
- (lambda (#{x 14309}#)
- (if (if (symbol? #{x 14309}#)
+ (lambda (#{x 13854}#)
+ (if (if (symbol? #{x 13854}#)
#t
- (if (if (vector? #{x 14309}#)
- (if (= (vector-length #{x 14309}#) 4)
- (eq? (vector-ref #{x 14309}# 0)
+ (if (if (vector? #{x 13854}#)
+ (if (= (vector-length #{x 13854}#) 4)
+ (eq? (vector-ref #{x 13854}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14309}# 1))
+ (symbol? (vector-ref #{x 13854}# 1))
#f))
- (not (if (if (if (vector? #{x 14309}#)
+ (not (if (if (if (vector? #{x 13854}#)
(if (= (vector-length
- #{x 14309}#)
+ #{x 13854}#)
4)
(eq? (vector-ref
- #{x 14309}#
+ #{x 13854}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14309}# 1))
+ (symbol? (vector-ref #{x 13854}# 1))
#f)
- (#{free-id=? 4361}#
- #{x 14309}#
+ (#{free-id=? 4434}#
+ #{x 13854}#
'#(syntax-object
...
((top)
@@ -16403,7 +16577,7 @@
#(ribcage
#(x)
#((top))
- #("i2261"))
+ #("i2341"))
#(ribcage
(lambda-var-list
gen-var
@@ -16433,6 +16607,7 @@
valid-bound-ids?
bound-id=?
free-id=?
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -16470,7 +16645,6 @@
id?
nonsymbol-id?
global-extend
- lookup
macros-only-env
extend-var-env
extend-env
@@ -16716,13 +16890,13 @@
"i407"
"i405"
"i403"
- "i402"
+ "i401"
"i400"
- "i397"
- "i396"
+ "i398"
"i395"
+ "i394"
"i393"
- "i392"
+ "i391"
"i390"
"i388"
"i386"
@@ -16731,19 +16905,19 @@
"i380"
"i378"
"i376"
- "i373"
+ "i374"
"i371"
- "i370"
+ "i369"
"i368"
"i366"
"i364"
"i362"
- "i361"
"i360"
"i359"
+ "i358"
"i357"
- "i356"
- "i353"
+ "i355"
+ "i354"
"i351"
"i349"
"i347"
@@ -16824,794 +16998,795 @@
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i46" "i45" "i44"))
+ #(ribcage () () ()))
(hygiene guile)))
#f))
#f))
- #{key 14307}#)
- (let ((#{x 14374}#
+ #{key 13852}#)
+ (let ((#{x 13919}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-call 4307}#
- #{s 14250}#
- (let ((#{req 14516}# (list 'tmp))
- (#{vars 14518}# (list #{x 14374}#))
- (#{exp 14520}#
- (#{gen-syntax-case 14246}#
+ (#{build-call 4380}#
+ #{s 13795}#
+ (let ((#{req 14061}# (list 'tmp))
+ (#{vars 14063}# (list #{x 13919}#))
+ (#{exp 14065}#
+ (#{gen-syntax-case 13791}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 14374}#)
- #{key 14307}#
- #{m 14308}#
- #{r 14248}#
- #{mod 14251}#)))
- (let ((#{body 14525}#
+ #{x 13919}#)
+ #{key 13852}#
+ #{m 13853}#
+ #{r 13793}#
+ #{mod 13796}#)))
+ (let ((#{body 14070}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 14516}#
+ #{req 14061}#
#f
#f
#f
'()
- #{vars 14518}#
- #{exp 14520}#
+ #{vars 14063}#
+ #{exp 14065}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 14525}#)))
- (list (#{chi 4373}#
- #{val 14306}#
- #{r 14248}#
+ #{body 14070}#)))
+ (list (#{chi 4446}#
+ #{val 13851}#
+ #{r 13793}#
'(())
- #{mod 14251}#))))
+ #{mod 13796}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 14252}#)))
- #{tmp 14254}#)
+ #{e 13797}#)))
+ #{tmp 13799}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 14253}#))))))))
+ #{tmp 13798}#))))))))
(set! macroexpand
(lambda*
- (#{x 17257}#
+ (#{x 16802}#
#:optional
- (#{m 17258}# 'e)
- (#{esew 17259}# '(eval)))
- (#{chi-top-sequence 4369}#
- (list #{x 17257}#)
+ (#{m 16803}# 'e)
+ (#{esew 16804}# '(eval)))
+ (#{chi-top-sequence 4442}#
+ (list #{x 16802}#)
'()
'((top))
#f
- #{m 17258}#
- #{esew 17259}#
+ #{m 16803}#
+ #{esew 16804}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 17262}#)
- (if (if (vector? #{x 17262}#)
- (if (= (vector-length #{x 17262}#) 4)
- (eq? (vector-ref #{x 17262}# 0) 'syntax-object)
+ (lambda (#{x 16807}#)
+ (if (if (vector? #{x 16807}#)
+ (if (= (vector-length #{x 16807}#) 4)
+ (eq? (vector-ref #{x 16807}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17262}# 1))
+ (symbol? (vector-ref #{x 16807}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 17287}# #{datum 17288}#)
- (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2))
- (#{module 17294}# (vector-ref #{id 17287}# 3)))
+ (lambda (#{id 16832}# #{datum 16833}#)
+ (let ((#{wrap 16838}# (vector-ref #{id 16832}# 2))
+ (#{module 16839}# (vector-ref #{id 16832}# 3)))
(vector
'syntax-object
- #{datum 17288}#
- #{wrap 17293}#
- #{module 17294}#))))
+ #{datum 16833}#
+ #{wrap 16838}#
+ #{module 16839}#))))
(set! syntax->datum
- (lambda (#{x 17301}#)
- (#{strip 4386}# #{x 17301}# '(()))))
+ (lambda (#{x 16846}#)
+ (#{strip 4459}# #{x 16846}# '(()))))
(set! syntax-source
- (lambda (#{x 17304}#)
- (#{source-annotation 4334}# #{x 17304}#)))
+ (lambda (#{x 16849}#)
+ (#{source-annotation 4407}# #{x 16849}#)))
(set! generate-temporaries
- (lambda (#{ls 17506}#)
+ (lambda (#{ls 17051}#)
(begin
- (if (not (list? #{ls 17506}#))
+ (if (not (list? #{ls 17051}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 17506}#))
- (let ((#{mod 17514}#
+ #{ls 17051}#))
+ (let ((#{mod 17059}#
(cons 'hygiene (module-name (current-module)))))
- (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)
+ (map (lambda (#{x 17060}#)
+ (let ((#{x 17064}# (gensym)))
+ (if (if (vector? #{x 17064}#)
+ (if (= (vector-length #{x 17064}#) 4)
+ (eq? (vector-ref #{x 17064}# 0) 'syntax-object)
#f)
#f)
- (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}#)
+ (let ((#{expression 17079}# (vector-ref #{x 17064}# 1))
+ (#{wrap 17080}#
+ (let ((#{w2 17088}# (vector-ref #{x 17064}# 2)))
+ (cons (let ((#{m2 17095}# (car #{w2 17088}#)))
+ (if (null? #{m2 17095}#)
'(top)
- (append '(top) #{m2 17550}#)))
- (let ((#{m2 17557}# (cdr #{w2 17543}#)))
- (if (null? #{m2 17557}#)
+ (append '(top) #{m2 17095}#)))
+ (let ((#{m2 17102}# (cdr #{w2 17088}#)))
+ (if (null? #{m2 17102}#)
'()
- (append '() #{m2 17557}#))))))
- (#{module 17536}# (vector-ref #{x 17519}# 3)))
+ (append '() #{m2 17102}#))))))
+ (#{module 17081}# (vector-ref #{x 17064}# 3)))
(vector
'syntax-object
- #{expression 17534}#
- #{wrap 17535}#
- #{module 17536}#))
- (if (null? #{x 17519}#)
- #{x 17519}#
+ #{expression 17079}#
+ #{wrap 17080}#
+ #{module 17081}#))
+ (if (null? #{x 17064}#)
+ #{x 17064}#
(vector
'syntax-object
- #{x 17519}#
+ #{x 17064}#
'((top))
- #{mod 17514}#)))))
- #{ls 17506}#)))))
+ #{mod 17059}#)))))
+ #{ls 17051}#)))))
(set! free-identifier=?
- (lambda (#{x 17566}# #{y 17567}#)
+ (lambda (#{x 17111}# #{y 17112}#)
(begin
- (if (not (if (if (vector? #{x 17566}#)
- (if (= (vector-length #{x 17566}#) 4)
- (eq? (vector-ref #{x 17566}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17111}#)
+ (if (= (vector-length #{x 17111}#) 4)
+ (eq? (vector-ref #{x 17111}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17566}# 1))
+ (symbol? (vector-ref #{x 17111}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 17566}#))
- (if (not (if (if (vector? #{y 17567}#)
- (if (= (vector-length #{y 17567}#) 4)
- (eq? (vector-ref #{y 17567}# 0) 'syntax-object)
+ #{x 17111}#))
+ (if (not (if (if (vector? #{y 17112}#)
+ (if (= (vector-length #{y 17112}#) 4)
+ (eq? (vector-ref #{y 17112}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17567}# 1))
+ (symbol? (vector-ref #{y 17112}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 17567}#))
- (#{free-id=? 4361}# #{x 17566}# #{y 17567}#))))
+ #{y 17112}#))
+ (#{free-id=? 4434}# #{x 17111}# #{y 17112}#))))
(set! bound-identifier=?
- (lambda (#{x 17642}# #{y 17643}#)
+ (lambda (#{x 17187}# #{y 17188}#)
(begin
- (if (not (if (if (vector? #{x 17642}#)
- (if (= (vector-length #{x 17642}#) 4)
- (eq? (vector-ref #{x 17642}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17187}#)
+ (if (= (vector-length #{x 17187}#) 4)
+ (eq? (vector-ref #{x 17187}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17642}# 1))
+ (symbol? (vector-ref #{x 17187}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 17642}#))
- (if (not (if (if (vector? #{y 17643}#)
- (if (= (vector-length #{y 17643}#) 4)
- (eq? (vector-ref #{y 17643}# 0) 'syntax-object)
+ #{x 17187}#))
+ (if (not (if (if (vector? #{y 17188}#)
+ (if (= (vector-length #{y 17188}#) 4)
+ (eq? (vector-ref #{y 17188}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17643}# 1))
+ (symbol? (vector-ref #{y 17188}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 17643}#))
- (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#))))
+ #{y 17188}#))
+ (#{bound-id=? 4435}# #{x 17187}# #{y 17188}#))))
(set! syntax-violation
(lambda*
- (#{who 17809}#
- #{message 17810}#
- #{form 17811}#
+ (#{who 17354}#
+ #{message 17355}#
+ #{form 17356}#
#:optional
- (#{subform 17812}# #f))
+ (#{subform 17357}# #f))
(begin
- (if (not (if (not #{who 17809}#)
- (not #{who 17809}#)
- (let ((#{t 17830}# (string? #{who 17809}#)))
- (if #{t 17830}#
- #{t 17830}#
- (symbol? #{who 17809}#)))))
+ (if (not (if (not #{who 17354}#)
+ (not #{who 17354}#)
+ (let ((#{t 17375}# (string? #{who 17354}#)))
+ (if #{t 17375}#
+ #{t 17375}#
+ (symbol? #{who 17354}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 17809}#))
- (if (not (string? #{message 17810}#))
+ #{who 17354}#))
+ (if (not (string? #{message 17355}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 17810}#))
+ #{message 17355}#))
(throw 'syntax-error
- #{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}# '(()))
+ #{who 17354}#
+ #{message 17355}#
+ (#{source-annotation 4407}#
+ (if #{form 17356}#
+ #{form 17356}#
+ #{subform 17357}#))
+ (#{strip 4459}# #{form 17356}# '(()))
+ (if #{subform 17357}#
+ (#{strip 4459}# #{subform 17357}# '(()))
#f)))))
(letrec*
- ((#{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}#
+ ((#{match-each 17626}#
+ (lambda (#{e 18514}#
+ #{p 18515}#
+ #{w 18516}#
+ #{mod 18517}#)
+ (if (pair? #{e 18514}#)
+ (let ((#{first 18518}#
+ (#{match 17632}#
+ (car #{e 18514}#)
+ #{p 18515}#
+ #{w 18516}#
'()
- #{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}#)
+ #{mod 18517}#)))
+ (if #{first 18518}#
+ (let ((#{rest 18521}#
+ (#{match-each 17626}#
+ (cdr #{e 18514}#)
+ #{p 18515}#
+ #{w 18516}#
+ #{mod 18517}#)))
+ (if #{rest 18521}#
+ (cons #{first 18518}# #{rest 18521}#)
#f))
#f))
- (if (null? #{e 18969}#)
+ (if (null? #{e 18514}#)
'()
- (if (if (vector? #{e 18969}#)
- (if (= (vector-length #{e 18969}#) 4)
- (eq? (vector-ref #{e 18969}# 0) 'syntax-object)
+ (if (if (vector? #{e 18514}#)
+ (if (= (vector-length #{e 18514}#) 4)
+ (eq? (vector-ref #{e 18514}# 0) 'syntax-object)
#f)
#f)
- (#{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))
+ (#{match-each 17626}#
+ (vector-ref #{e 18514}# 1)
+ #{p 18515}#
+ (let ((#{w2 18543}# (vector-ref #{e 18514}# 2)))
+ (let ((#{m1 18544}# (car #{w 18516}#))
+ (#{s1 18545}# (cdr #{w 18516}#)))
+ (if (null? #{m1 18544}#)
+ (if (null? #{s1 18545}#)
+ #{w2 18543}#
+ (cons (car #{w2 18543}#)
+ (let ((#{m2 18556}# (cdr #{w2 18543}#)))
+ (if (null? #{m2 18556}#)
+ #{s1 18545}#
+ (append #{s1 18545}# #{m2 18556}#)))))
+ (cons (let ((#{m2 18564}# (car #{w2 18543}#)))
+ (if (null? #{m2 18564}#)
+ #{m1 18544}#
+ (append #{m1 18544}# #{m2 18564}#)))
+ (let ((#{m2 18572}# (cdr #{w2 18543}#)))
+ (if (null? #{m2 18572}#)
+ #{s1 18545}#
+ (append #{s1 18545}# #{m2 18572}#)))))))
+ (vector-ref #{e 18514}# 3))
#f)))))
- (#{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}#))
+ (#{match-each-any 17628}#
+ (lambda (#{e 18581}# #{w 18582}# #{mod 18583}#)
+ (if (pair? #{e 18581}#)
+ (let ((#{l 18584}#
+ (#{match-each-any 17628}#
+ (cdr #{e 18581}#)
+ #{w 18582}#
+ #{mod 18583}#)))
+ (if #{l 18584}#
+ (cons (let ((#{x 18589}# (car #{e 18581}#)))
+ (if (if (null? (car #{w 18582}#))
+ (null? (cdr #{w 18582}#))
#f)
- #{x 19044}#
- (if (if (vector? #{x 19044}#)
- (if (= (vector-length #{x 19044}#) 4)
- (eq? (vector-ref #{x 19044}# 0)
+ #{x 18589}#
+ (if (if (vector? #{x 18589}#)
+ (if (= (vector-length #{x 18589}#) 4)
+ (eq? (vector-ref #{x 18589}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 18607}#
+ (vector-ref #{x 18589}# 1))
+ (#{wrap 18608}#
+ (let ((#{w2 18616}#
+ (vector-ref #{x 18589}# 2)))
+ (let ((#{m1 18617}# (car #{w 18582}#))
+ (#{s1 18618}# (cdr #{w 18582}#)))
+ (if (null? #{m1 18617}#)
+ (if (null? #{s1 18618}#)
+ #{w2 18616}#
+ (cons (car #{w2 18616}#)
+ (let ((#{m2 18633}#
+ (cdr #{w2 18616}#)))
+ (if (null? #{m2 18633}#)
+ #{s1 18618}#
(append
- #{s1 19073}#
- #{m2 19088}#)))))
- (cons (let ((#{m2 19096}#
- (car #{w2 19071}#)))
- (if (null? #{m2 19096}#)
- #{m1 19072}#
+ #{s1 18618}#
+ #{m2 18633}#)))))
+ (cons (let ((#{m2 18641}#
+ (car #{w2 18616}#)))
+ (if (null? #{m2 18641}#)
+ #{m1 18617}#
(append
- #{m1 19072}#
- #{m2 19096}#)))
- (let ((#{m2 19104}#
- (cdr #{w2 19071}#)))
- (if (null? #{m2 19104}#)
- #{s1 19073}#
+ #{m1 18617}#
+ #{m2 18641}#)))
+ (let ((#{m2 18649}#
+ (cdr #{w2 18616}#)))
+ (if (null? #{m2 18649}#)
+ #{s1 18618}#
(append
- #{s1 19073}#
- #{m2 19104}#))))))))
- (#{module 19064}#
- (vector-ref #{x 19044}# 3)))
+ #{s1 18618}#
+ #{m2 18649}#))))))))
+ (#{module 18609}#
+ (vector-ref #{x 18589}# 3)))
(vector
'syntax-object
- #{expression 19062}#
- #{wrap 19063}#
- #{module 19064}#))
- (if (null? #{x 19044}#)
- #{x 19044}#
+ #{expression 18607}#
+ #{wrap 18608}#
+ #{module 18609}#))
+ (if (null? #{x 18589}#)
+ #{x 18589}#
(vector
'syntax-object
- #{x 19044}#
- #{w 19037}#
- #{mod 19038}#)))))
- #{l 19039}#)
+ #{x 18589}#
+ #{w 18582}#
+ #{mod 18583}#)))))
+ #{l 18584}#)
#f))
- (if (null? #{e 19036}#)
+ (if (null? #{e 18581}#)
'()
- (if (if (vector? #{e 19036}#)
- (if (= (vector-length #{e 19036}#) 4)
- (eq? (vector-ref #{e 19036}# 0) 'syntax-object)
+ (if (if (vector? #{e 18581}#)
+ (if (= (vector-length #{e 18581}#) 4)
+ (eq? (vector-ref #{e 18581}# 0) 'syntax-object)
#f)
#f)
- (#{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}#)
+ (#{match-each-any 17628}#
+ (vector-ref #{e 18581}# 1)
+ (let ((#{w2 18682}# (vector-ref #{e 18581}# 2)))
+ (let ((#{m1 18683}# (car #{w 18582}#))
+ (#{s1 18684}# (cdr #{w 18582}#)))
+ (if (null? #{m1 18683}#)
+ (if (null? #{s1 18684}#)
+ #{w2 18682}#
+ (cons (car #{w2 18682}#)
+ (let ((#{m2 18695}# (cdr #{w2 18682}#)))
+ (if (null? #{m2 18695}#)
+ #{s1 18684}#
+ (append #{s1 18684}# #{m2 18695}#)))))
+ (cons (let ((#{m2 18703}# (car #{w2 18682}#)))
+ (if (null? #{m2 18703}#)
+ #{m1 18683}#
+ (append #{m1 18683}# #{m2 18703}#)))
+ (let ((#{m2 18711}# (cdr #{w2 18682}#)))
+ (if (null? #{m2 18711}#)
+ #{s1 18684}#
+ (append #{s1 18684}# #{m2 18711}#)))))))
+ #{mod 18583}#)
#f)))))
- (#{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)
+ (#{match-empty 17629}#
+ (lambda (#{p 18716}# #{r 18717}#)
+ (if (null? #{p 18716}#)
+ #{r 18717}#
+ (if (eq? #{p 18716}# '_)
+ #{r 18717}#
+ (if (eq? #{p 18716}# 'any)
+ (cons '() #{r 18717}#)
+ (if (pair? #{p 18716}#)
+ (#{match-empty 17629}#
+ (car #{p 18716}#)
+ (#{match-empty 17629}#
+ (cdr #{p 18716}#)
+ #{r 18717}#))
+ (if (eq? #{p 18716}# 'each-any)
+ (cons '() #{r 18717}#)
+ (let ((#{atom-key 18718}# (vector-ref #{p 18716}# 0)))
+ (if (eqv? #{atom-key 18718}# 'each)
+ (#{match-empty 17629}#
+ (vector-ref #{p 18716}# 1)
+ #{r 18717}#)
+ (if (eqv? #{atom-key 18718}# 'each+)
+ (#{match-empty 17629}#
+ (vector-ref #{p 18716}# 1)
+ (#{match-empty 17629}#
+ (reverse (vector-ref #{p 18716}# 2))
+ (#{match-empty 17629}#
+ (vector-ref #{p 18716}# 3)
+ #{r 18717}#)))
+ (if (if (eqv? #{atom-key 18718}# 'free-id)
#t
- (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}#)
+ (eqv? #{atom-key 18718}# 'atom))
+ #{r 18717}#
+ (if (eqv? #{atom-key 18718}# 'vector)
+ (#{match-empty 17629}#
+ (vector-ref #{p 18716}# 1)
+ #{r 18717}#)))))))))))))
+ (#{combine 17630}#
+ (lambda (#{r* 18737}# #{r 18738}#)
+ (if (null? (car #{r* 18737}#))
+ #{r 18738}#
+ (cons (map car #{r* 18737}#)
+ (#{combine 17630}#
+ (map cdr #{r* 18737}#)
+ #{r 18738}#)))))
+ (#{match* 17631}#
+ (lambda (#{e 17661}#
+ #{p 17662}#
+ #{w 17663}#
+ #{r 17664}#
+ #{mod 17665}#)
+ (if (null? #{p 17662}#)
+ (if (null? #{e 17661}#) #{r 17664}# #f)
+ (if (pair? #{p 17662}#)
+ (if (pair? #{e 17661}#)
+ (#{match 17632}#
+ (car #{e 17661}#)
+ (car #{p 17662}#)
+ #{w 17663}#
+ (#{match 17632}#
+ (cdr #{e 17661}#)
+ (cdr #{p 17662}#)
+ #{w 17663}#
+ #{r 17664}#
+ #{mod 17665}#)
+ #{mod 17665}#)
#f)
- (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}#)
+ (if (eq? #{p 17662}# 'each-any)
+ (let ((#{l 17670}#
+ (#{match-each-any 17628}#
+ #{e 17661}#
+ #{w 17663}#
+ #{mod 17665}#)))
+ (if #{l 17670}#
+ (cons #{l 17670}# #{r 17664}#)
#f))
- (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}#
+ (let ((#{atom-key 17675}# (vector-ref #{p 17662}# 0)))
+ (if (eqv? #{atom-key 17675}# 'each)
+ (if (null? #{e 17661}#)
+ (#{match-empty 17629}#
+ (vector-ref #{p 17662}# 1)
+ #{r 17664}#)
+ (let ((#{l 17682}#
+ (#{match-each 17626}#
+ #{e 17661}#
+ (vector-ref #{p 17662}# 1)
+ #{w 17663}#
+ #{mod 17665}#)))
+ (if #{l 17682}#
(letrec*
- ((#{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}#))
+ ((#{collect 17685}#
+ (lambda (#{l 17746}#)
+ (if (null? (car #{l 17746}#))
+ #{r 17664}#
+ (cons (map car #{l 17746}#)
+ (#{collect 17685}#
+ (map cdr #{l 17746}#)))))))
+ (#{collect 17685}# #{l 17682}#))
#f)))
- (if (eqv? #{atom-key 18130}# 'each+)
+ (if (eqv? #{atom-key 17675}# 'each+)
(call-with-values
(lambda ()
- (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)))
+ (let ((#{x-pat 17755}# (vector-ref #{p 17662}# 1))
+ (#{y-pat 17756}# (vector-ref #{p 17662}# 2))
+ (#{z-pat 17757}# (vector-ref #{p 17662}# 3)))
(letrec*
- ((#{f 18216}#
- (lambda (#{e 18218}# #{w 18219}#)
- (if (pair? #{e 18218}#)
+ ((#{f 17761}#
+ (lambda (#{e 17763}# #{w 17764}#)
+ (if (pair? #{e 17763}#)
(call-with-values
(lambda ()
- (#{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}#
+ (#{f 17761}#
+ (cdr #{e 17763}#)
+ #{w 17764}#))
+ (lambda (#{xr* 17765}#
+ #{y-pat 17766}#
+ #{r 17767}#)
+ (if #{r 17767}#
+ (if (null? #{y-pat 17766}#)
+ (let ((#{xr 17768}#
+ (#{match 17632}#
+ (car #{e 17763}#)
+ #{x-pat 17755}#
+ #{w 17764}#
'()
- #{mod 18120}#)))
- (if #{xr 18223}#
+ #{mod 17665}#)))
+ (if #{xr 17768}#
(values
- (cons #{xr 18223}#
- #{xr* 18220}#)
- #{y-pat 18221}#
- #{r 18222}#)
+ (cons #{xr 17768}#
+ #{xr* 17765}#)
+ #{y-pat 17766}#
+ #{r 17767}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 18221}#)
- (#{match 18087}#
- (car #{e 18218}#)
- (car #{y-pat 18221}#)
- #{w 18219}#
- #{r 18222}#
- #{mod 18120}#)))
+ (cdr #{y-pat 17766}#)
+ (#{match 17632}#
+ (car #{e 17763}#)
+ (car #{y-pat 17766}#)
+ #{w 17764}#
+ #{r 17767}#
+ #{mod 17665}#)))
(values #f #f #f))))
- (if (if (vector? #{e 18218}#)
- (if (= (vector-length #{e 18218}#)
+ (if (if (vector? #{e 17763}#)
+ (if (= (vector-length #{e 17763}#)
4)
- (eq? (vector-ref #{e 18218}# 0)
+ (eq? (vector-ref #{e 17763}# 0)
'syntax-object)
#f)
#f)
- (#{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}#
+ (#{f 17761}#
+ (vector-ref #{e 17763}# 1)
+ (let ((#{m1 17796}#
+ (car #{w 17764}#))
+ (#{s1 17797}#
+ (cdr #{w 17764}#)))
+ (if (null? #{m1 17796}#)
+ (if (null? #{s1 17797}#)
+ #{e 17763}#
+ (cons (car #{e 17763}#)
+ (let ((#{m2 17809}#
+ (cdr #{e 17763}#)))
+ (if (null? #{m2 17809}#)
+ #{s1 17797}#
(append
- #{s1 18252}#
- #{m2 18264}#)))))
- (cons (let ((#{m2 18274}#
- (car #{e 18218}#)))
- (if (null? #{m2 18274}#)
- #{m1 18251}#
+ #{s1 17797}#
+ #{m2 17809}#)))))
+ (cons (let ((#{m2 17819}#
+ (car #{e 17763}#)))
+ (if (null? #{m2 17819}#)
+ #{m1 17796}#
(append
- #{m1 18251}#
- #{m2 18274}#)))
- (let ((#{m2 18284}#
- (cdr #{e 18218}#)))
- (if (null? #{m2 18284}#)
- #{s1 18252}#
+ #{m1 17796}#
+ #{m2 17819}#)))
+ (let ((#{m2 17829}#
+ (cdr #{e 17763}#)))
+ (if (null? #{m2 17829}#)
+ #{s1 17797}#
(append
- #{s1 18252}#
- #{m2 18284}#)))))))
+ #{s1 17797}#
+ #{m2 17829}#)))))))
(values
'()
- #{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}#))
+ #{y-pat 17756}#
+ (#{match 17632}#
+ #{e 17763}#
+ #{z-pat 17757}#
+ #{w 17764}#
+ #{r 17664}#
+ #{mod 17665}#)))))))
+ (#{f 17761}# #{e 17661}# #{w 17663}#))))
+ (lambda (#{xr* 17839}# #{y-pat 17840}# #{r 17841}#)
+ (if #{r 17841}#
+ (if (null? #{y-pat 17840}#)
+ (if (null? #{xr* 17839}#)
+ (#{match-empty 17629}#
+ (vector-ref #{p 17662}# 1)
+ #{r 17841}#)
+ (#{combine 17630}# #{xr* 17839}# #{r 17841}#))
#f)
#f)))
- (if (eqv? #{atom-key 18130}# 'free-id)
- (if (if (symbol? #{e 18116}#)
+ (if (eqv? #{atom-key 17675}# 'free-id)
+ (if (if (symbol? #{e 17661}#)
#t
- (if (if (vector? #{e 18116}#)
- (if (= (vector-length #{e 18116}#) 4)
- (eq? (vector-ref #{e 18116}# 0)
+ (if (if (vector? #{e 17661}#)
+ (if (= (vector-length #{e 17661}#) 4)
+ (eq? (vector-ref #{e 17661}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 18116}# 1))
+ (symbol? (vector-ref #{e 17661}# 1))
#f))
- (if (#{free-id=? 4361}#
- (if (if (null? (car #{w 18118}#))
- (null? (cdr #{w 18118}#))
+ (if (#{free-id=? 4434}#
+ (if (if (null? (car #{w 17663}#))
+ (null? (cdr #{w 17663}#))
#f)
- #{e 18116}#
- (if (if (vector? #{e 18116}#)
- (if (= (vector-length #{e 18116}#) 4)
- (eq? (vector-ref #{e 18116}# 0)
+ #{e 17661}#
+ (if (if (vector? #{e 17661}#)
+ (if (= (vector-length #{e 17661}#) 4)
+ (eq? (vector-ref #{e 17661}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18727}#
- (vector-ref #{e 18116}# 1))
- (#{wrap 18728}#
- (let ((#{w2 18738}#
+ (let ((#{expression 18272}#
+ (vector-ref #{e 17661}# 1))
+ (#{wrap 18273}#
+ (let ((#{w2 18283}#
(vector-ref
- #{e 18116}#
+ #{e 17661}#
2)))
- (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}#
+ (let ((#{m1 18284}#
+ (car #{w 17663}#))
+ (#{s1 18285}#
+ (cdr #{w 17663}#)))
+ (if (null? #{m1 18284}#)
+ (if (null? #{s1 18285}#)
+ #{w2 18283}#
+ (cons (car #{w2 18283}#)
+ (let ((#{m2 18302}#
+ (cdr #{w2 18283}#)))
+ (if (null? #{m2 18302}#)
+ #{s1 18285}#
(append
- #{s1 18740}#
- #{m2 18757}#)))))
- (cons (let ((#{m2 18765}#
- (car #{w2 18738}#)))
- (if (null? #{m2 18765}#)
- #{m1 18739}#
+ #{s1 18285}#
+ #{m2 18302}#)))))
+ (cons (let ((#{m2 18310}#
+ (car #{w2 18283}#)))
+ (if (null? #{m2 18310}#)
+ #{m1 18284}#
(append
- #{m1 18739}#
- #{m2 18765}#)))
- (let ((#{m2 18773}#
- (cdr #{w2 18738}#)))
- (if (null? #{m2 18773}#)
- #{s1 18740}#
+ #{m1 18284}#
+ #{m2 18310}#)))
+ (let ((#{m2 18318}#
+ (cdr #{w2 18283}#)))
+ (if (null? #{m2 18318}#)
+ #{s1 18285}#
(append
- #{s1 18740}#
- #{m2 18773}#))))))))
- (#{module 18729}#
- (vector-ref #{e 18116}# 3)))
+ #{s1 18285}#
+ #{m2 18318}#))))))))
+ (#{module 18274}#
+ (vector-ref #{e 17661}# 3)))
(vector
'syntax-object
- #{expression 18727}#
- #{wrap 18728}#
- #{module 18729}#))
- (if (null? #{e 18116}#)
- #{e 18116}#
+ #{expression 18272}#
+ #{wrap 18273}#
+ #{module 18274}#))
+ (if (null? #{e 17661}#)
+ #{e 17661}#
(vector
'syntax-object
- #{e 18116}#
- #{w 18118}#
- #{mod 18120}#))))
- (vector-ref #{p 18117}# 1))
- #{r 18119}#
+ #{e 17661}#
+ #{w 17663}#
+ #{mod 17665}#))))
+ (vector-ref #{p 17662}# 1))
+ #{r 17664}#
#f)
#f)
- (if (eqv? #{atom-key 18130}# 'atom)
+ (if (eqv? #{atom-key 17675}# 'atom)
(if (equal?
- (vector-ref #{p 18117}# 1)
- (#{strip 4386}# #{e 18116}# #{w 18118}#))
- #{r 18119}#
+ (vector-ref #{p 17662}# 1)
+ (#{strip 4459}# #{e 17661}# #{w 17663}#))
+ #{r 17664}#
#f)
- (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}#)
+ (if (eqv? #{atom-key 17675}# 'vector)
+ (if (vector? #{e 17661}#)
+ (#{match 17632}#
+ (vector->list #{e 17661}#)
+ (vector-ref #{p 17662}# 1)
+ #{w 17663}#
+ #{r 17664}#
+ #{mod 17665}#)
#f))))))))))))
- (#{match 18087}#
- (lambda (#{e 18806}#
- #{p 18807}#
- #{w 18808}#
- #{r 18809}#
- #{mod 18810}#)
- (if (not #{r 18809}#)
+ (#{match 17632}#
+ (lambda (#{e 18351}#
+ #{p 18352}#
+ #{w 18353}#
+ #{r 18354}#
+ #{mod 18355}#)
+ (if (not #{r 18354}#)
#f
- (if (eq? #{p 18807}# '_)
- #{r 18809}#
- (if (eq? #{p 18807}# 'any)
- (cons (if (if (null? (car #{w 18808}#))
- (null? (cdr #{w 18808}#))
+ (if (eq? #{p 18352}# '_)
+ #{r 18354}#
+ (if (eq? #{p 18352}# 'any)
+ (cons (if (if (null? (car #{w 18353}#))
+ (null? (cdr #{w 18353}#))
#f)
- #{e 18806}#
- (if (if (vector? #{e 18806}#)
- (if (= (vector-length #{e 18806}#) 4)
- (eq? (vector-ref #{e 18806}# 0)
+ #{e 18351}#
+ (if (if (vector? #{e 18351}#)
+ (if (= (vector-length #{e 18351}#) 4)
+ (eq? (vector-ref #{e 18351}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (let ((#{expression 18385}#
+ (vector-ref #{e 18351}# 1))
+ (#{wrap 18386}#
+ (let ((#{w2 18396}#
+ (vector-ref #{e 18351}# 2)))
+ (let ((#{m1 18397}# (car #{w 18353}#))
+ (#{s1 18398}# (cdr #{w 18353}#)))
+ (if (null? #{m1 18397}#)
+ (if (null? #{s1 18398}#)
+ #{w2 18396}#
+ (cons (car #{w2 18396}#)
+ (let ((#{m2 18415}#
+ (cdr #{w2 18396}#)))
+ (if (null? #{m2 18415}#)
+ #{s1 18398}#
(append
- #{s1 18853}#
- #{m2 18870}#)))))
- (cons (let ((#{m2 18878}#
- (car #{w2 18851}#)))
- (if (null? #{m2 18878}#)
- #{m1 18852}#
+ #{s1 18398}#
+ #{m2 18415}#)))))
+ (cons (let ((#{m2 18423}#
+ (car #{w2 18396}#)))
+ (if (null? #{m2 18423}#)
+ #{m1 18397}#
(append
- #{m1 18852}#
- #{m2 18878}#)))
- (let ((#{m2 18886}#
- (cdr #{w2 18851}#)))
- (if (null? #{m2 18886}#)
- #{s1 18853}#
+ #{m1 18397}#
+ #{m2 18423}#)))
+ (let ((#{m2 18431}#
+ (cdr #{w2 18396}#)))
+ (if (null? #{m2 18431}#)
+ #{s1 18398}#
(append
- #{s1 18853}#
- #{m2 18886}#))))))))
- (#{module 18842}# (vector-ref #{e 18806}# 3)))
+ #{s1 18398}#
+ #{m2 18431}#))))))))
+ (#{module 18387}# (vector-ref #{e 18351}# 3)))
(vector
'syntax-object
- #{expression 18840}#
- #{wrap 18841}#
- #{module 18842}#))
- (if (null? #{e 18806}#)
- #{e 18806}#
+ #{expression 18385}#
+ #{wrap 18386}#
+ #{module 18387}#))
+ (if (null? #{e 18351}#)
+ #{e 18351}#
(vector
'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)
+ #{e 18351}#
+ #{w 18353}#
+ #{mod 18355}#))))
+ #{r 18354}#)
+ (if (if (vector? #{e 18351}#)
+ (if (= (vector-length #{e 18351}#) 4)
+ (eq? (vector-ref #{e 18351}# 0) 'syntax-object)
#f)
#f)
- (#{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}#))))))))
+ (#{match* 17631}#
+ (vector-ref #{e 18351}# 1)
+ #{p 18352}#
+ (let ((#{w2 18474}# (vector-ref #{e 18351}# 2)))
+ (let ((#{m1 18475}# (car #{w 18353}#))
+ (#{s1 18476}# (cdr #{w 18353}#)))
+ (if (null? #{m1 18475}#)
+ (if (null? #{s1 18476}#)
+ #{w2 18474}#
+ (cons (car #{w2 18474}#)
+ (let ((#{m2 18487}# (cdr #{w2 18474}#)))
+ (if (null? #{m2 18487}#)
+ #{s1 18476}#
+ (append #{s1 18476}# #{m2 18487}#)))))
+ (cons (let ((#{m2 18495}# (car #{w2 18474}#)))
+ (if (null? #{m2 18495}#)
+ #{m1 18475}#
+ (append #{m1 18475}# #{m2 18495}#)))
+ (let ((#{m2 18503}# (cdr #{w2 18474}#)))
+ (if (null? #{m2 18503}#)
+ #{s1 18476}#
+ (append #{s1 18476}# #{m2 18503}#)))))))
+ #{r 18354}#
+ (vector-ref #{e 18351}# 3))
+ (#{match* 17631}#
+ #{e 18351}#
+ #{p 18352}#
+ #{w 18353}#
+ #{r 18354}#
+ #{mod 18355}#))))))))
(set! $sc-dispatch
- (lambda (#{e 18088}# #{p 18089}#)
- (if (eq? #{p 18089}# 'any)
- (list #{e 18088}#)
- (if (eq? #{p 18089}# '_)
+ (lambda (#{e 17633}# #{p 17634}#)
+ (if (eq? #{p 17634}# 'any)
+ (list #{e 17633}#)
+ (if (eq? #{p 17634}# '_)
'()
- (if (if (vector? #{e 18088}#)
- (if (= (vector-length #{e 18088}#) 4)
- (eq? (vector-ref #{e 18088}# 0) 'syntax-object)
+ (if (if (vector? #{e 17633}#)
+ (if (= (vector-length #{e 17633}#) 4)
+ (eq? (vector-ref #{e 17633}# 0) 'syntax-object)
#f)
#f)
- (#{match* 18086}#
- (vector-ref #{e 18088}# 1)
- #{p 18089}#
- (vector-ref #{e 18088}# 2)
+ (#{match* 17631}#
+ (vector-ref #{e 17633}# 1)
+ #{p 17634}#
+ (vector-ref #{e 17633}# 2)
'()
- (vector-ref #{e 18088}# 3))
- (#{match* 18086}#
- #{e 18088}#
- #{p 18089}#
+ (vector-ref #{e 17633}# 3))
+ (#{match* 17631}#
+ #{e 17633}#
+ #{p 17634}#
'(())
'()
#f)))))))))
@@ -17620,82 +17795,118 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 37268}#)
- (let ((#{tmp 37270}#
- ($sc-dispatch #{x 37268}# '(_ () any . each-any))))
- (if #{tmp 37270}#
+ (lambda (#{x 36462}#)
+ (let ((#{tmp 36464}#
+ ($sc-dispatch #{x 36462}# '(_ () any . each-any))))
+ (if #{tmp 36464}#
(@apply
- (lambda (#{e1 37274}# #{e2 37275}#)
+ (lambda (#{e1 36468}# #{e2 36469}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37241" "i37242"))
+ #("i36435" "i36436"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37238")))
+ #(ribcage #(x) #((top)) #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons '() (cons #{e1 37274}# #{e2 37275}#))))
- #{tmp 37270}#)
- (let ((#{tmp 37276}#
+ (cons '() (cons #{e1 36468}# #{e2 36469}#))))
+ #{tmp 36464}#)
+ (let ((#{tmp 36470}#
($sc-dispatch
- #{x 37268}#
+ #{x 36462}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 37276}#
+ (if #{tmp 36470}#
(@apply
- (lambda (#{out 37280}#
- #{in 37281}#
- #{e1 37282}#
- #{e2 37283}#)
+ (lambda (#{out 36474}#
+ #{in 36475}#
+ #{e1 36476}#
+ #{e2 36477}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37247" "i37248" "i37249" "i37250"))
+ #("i36441" "i36442" "i36443" "i36444"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37238")))
+ #(ribcage #(x) #((top)) #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{in 37281}#
+ #{in 36475}#
'()
- (list #{out 37280}#
+ (list #{out 36474}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37247"
- "i37248"
- "i37249"
- "i37250"))
+ #("i36441"
+ "i36442"
+ "i36443"
+ "i36444"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37238")))
+ #(ribcage #(x) #((top)) #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 37282}# #{e2 37283}#))))))
- #{tmp 37276}#)
- (let ((#{tmp 37284}#
+ (cons #{e1 36476}# #{e2 36477}#))))))
+ #{tmp 36470}#)
+ (let ((#{tmp 36478}#
($sc-dispatch
- #{x 37268}#
+ #{x 36462}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 37284}#
+ (if #{tmp 36478}#
(@apply
- (lambda (#{out 37288}#
- #{in 37289}#
- #{e1 37290}#
- #{e2 37291}#)
+ (lambda (#{out 36482}#
+ #{in 36483}#
+ #{e1 36484}#
+ #{e2 36485}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37257" "i37258" "i37259" "i37260"))
+ #("i36451" "i36452" "i36453" "i36454"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37238")))
+ #(ribcage #(x) #((top)) #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(cons '#(syntax-object
list
@@ -17703,62 +17914,89 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37257" "i37258" "i37259" "i37260"))
+ #("i36451" "i36452" "i36453" "i36454"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37238")))
+ #(ribcage #(x) #((top)) #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{in 37289}#)
+ #{in 36483}#)
'()
- (list #{out 37288}#
+ (list #{out 36482}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i37257"
- "i37258"
- "i37259"
- "i37260"))
+ #("i36451"
+ "i36452"
+ "i36453"
+ "i36454"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37238")))
+ #("i36432"))
+ #(ribcage
+ (with-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ with-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 37290}#
- #{e2 37291}#))))))
- #{tmp 37284}#)
+ (cons #{e1 36484}#
+ #{e2 36485}#))))))
+ #{tmp 36478}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37268}#))))))))))
+ #{x 36462}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 37345}#)
- (let ((#{tmp 37347}#
+ (lambda (#{x 36540}#)
+ (let ((#{tmp 36542}#
($sc-dispatch
- #{x 37345}#
+ #{x 36540}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 37347}#
+ (if #{tmp 36542}#
(@apply
- (lambda (#{k 37351}#
- #{keyword 37352}#
- #{pattern 37353}#
- #{template 37354}#)
+ (lambda (#{k 36546}#
+ #{keyword 36547}#
+ #{pattern 36548}#
+ #{template 36549}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
x
@@ -17766,9 +18004,18 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -17777,9 +18024,18 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
.
#(syntax-object
@@ -17788,9 +18044,18 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17798,20 +18063,38 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{pattern 37353}#))
+ #{pattern 36548}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(cons '#(syntax-object
x
@@ -17819,15 +18102,24 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37308" "i37309" "i37310" "i37311"))
+ #("i36503" "i36504" "i36505" "i36506"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{k 37351}#
- (map (lambda (#{tmp 37319 37355}#
- #{tmp 37318 37356}#)
+ (cons #{k 36546}#
+ (map (lambda (#{tmp 36514 36550}#
+ #{tmp 36513 36551}#)
(list (cons '#(syntax-object
- dummy
+ _
((top)
#(ribcage
#(k
@@ -17838,10 +18130,10 @@
(top)
(top)
(top))
- #("i37308"
- "i37309"
- "i37310"
- "i37311"))
+ #("i36503"
+ "i36504"
+ "i36505"
+ "i36506"))
#(ribcage
()
()
@@ -17849,9 +18141,20 @@
#(ribcage
#(x)
#((top))
- #("i37305")))
+ #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{tmp 37318 37356}#)
+ #{tmp 36513 36551}#)
(list '#(syntax-object
syntax
((top)
@@ -17864,10 +18167,10 @@
(top)
(top)
(top))
- #("i37308"
- "i37309"
- "i37310"
- "i37311"))
+ #("i36503"
+ "i36504"
+ "i36505"
+ "i36506"))
#(ribcage
()
()
@@ -17875,41 +18178,61 @@
#(ribcage
#(x)
#((top))
- #("i37305")))
+ #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{tmp 37319 37355}#)))
- #{template 37354}#
- #{pattern 37353}#))))))
- #{tmp 37347}#)
- (let ((#{tmp 37357}#
+ #{tmp 36514 36550}#)))
+ #{template 36549}#
+ #{pattern 36548}#))))))
+ #{tmp 36542}#)
+ (let ((#{tmp 36552}#
($sc-dispatch
- #{x 37345}#
+ #{x 36540}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 37357}#
+ (if (if #{tmp 36552}#
(@apply
- (lambda (#{k 37361}#
- #{docstring 37362}#
- #{keyword 37363}#
- #{pattern 37364}#
- #{template 37365}#)
- (string? (syntax->datum #{docstring 37362}#)))
- #{tmp 37357}#)
+ (lambda (#{k 36556}#
+ #{docstring 36557}#
+ #{keyword 36558}#
+ #{pattern 36559}#
+ #{template 36560}#)
+ (string? (syntax->datum #{docstring 36557}#)))
+ #{tmp 36552}#)
#f)
(@apply
- (lambda (#{k 37366}#
- #{docstring 37367}#
- #{keyword 37368}#
- #{pattern 37369}#
- #{template 37370}#)
+ (lambda (#{k 36561}#
+ #{docstring 36562}#
+ #{keyword 36563}#
+ #{pattern 36564}#
+ #{template 36565}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331" "i37332" "i37333" "i37334" "i37335"))
+ #("i36526" "i36527" "i36528" "i36529" "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
x
@@ -17917,11 +18240,20 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331" "i37332" "i37333" "i37334" "i37335"))
+ #("i36526" "i36527" "i36528" "i36529" "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- #{docstring 37367}#
+ #{docstring 36562}#
(vector
'(#(syntax-object
macro-type
@@ -17929,13 +18261,22 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
.
#(syntax-object
@@ -17944,13 +18285,22 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17958,28 +18308,46 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{pattern 37369}#))
+ #{pattern 36564}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(cons '#(syntax-object
x
@@ -17991,19 +18359,28 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37305")))
+ #(ribcage #(x) #((top)) #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{k 37366}#
- (map (lambda (#{tmp 37344 37371}#
- #{tmp 37343 37372}#)
+ (cons #{k 36561}#
+ (map (lambda (#{tmp 36539 36566}#
+ #{tmp 36538 36567}#)
(list (cons '#(syntax-object
- dummy
+ _
((top)
#(ribcage
#(k
@@ -18016,11 +18393,11 @@
(top)
(top)
(top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage
()
()
@@ -18028,10 +18405,21 @@
#(ribcage
#(x)
#((top))
- #("i37305")))
+ #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{tmp 37343 37372}#)
+ #{tmp 36538 36567}#)
(list '#(syntax-object
syntax
((top)
@@ -18046,11 +18434,11 @@
(top)
(top)
(top))
- #("i37331"
- "i37332"
- "i37333"
- "i37334"
- "i37335"))
+ #("i36526"
+ "i36527"
+ "i36528"
+ "i36529"
+ "i36530"))
#(ribcage
()
()
@@ -18058,50 +18446,79 @@
#(ribcage
#(x)
#((top))
- #("i37305")))
+ #("i36500"))
+ #(ribcage
+ (syntax-rules)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ syntax-rules
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{tmp 37344 37371}#)))
- #{template 37370}#
- #{pattern 37369}#))))))
- #{tmp 37357}#)
+ #{tmp 36539 36566}#)))
+ #{template 36565}#
+ #{pattern 36564}#))))))
+ #{tmp 36552}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37345}#))))))))
+ #{x 36540}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 37409}#)
- (let ((#{tmp 37411}#
- ($sc-dispatch #{x 37409}# '(_ (any . any) any))))
- (if #{tmp 37411}#
+ (lambda (#{x 36605}#)
+ (let ((#{tmp 36607}#
+ ($sc-dispatch #{x 36605}# '(_ (any . any) any))))
+ (if #{tmp 36607}#
(@apply
- (lambda (#{name 37415}#
- #{pattern 37416}#
- #{template 37417}#)
+ (lambda (#{name 36611}#
+ #{pattern 36612}#
+ #{template 36613}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37386" "i37387" "i37388"))
+ #("i36582" "i36583" "i36584"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37383")))
+ #(ribcage #(x) #((top)) #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{name 37415}#
+ #{name 36611}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37386" "i37387" "i37388"))
+ #("i36582" "i36583" "i36584"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37383")))
+ #(ribcage #(x) #((top)) #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -18110,54 +18527,81 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37386" "i37387" "i37388"))
+ #("i36582" "i36583" "i36584"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37383")))
+ #(ribcage #(x) #((top)) #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{pattern 37416}#)
- #{template 37417}#))))
- #{tmp 37411}#)
- (let ((#{tmp 37418}#
+ #{pattern 36612}#)
+ #{template 36613}#))))
+ #{tmp 36607}#)
+ (let ((#{tmp 36614}#
($sc-dispatch
- #{x 37409}#
+ #{x 36605}#
'(_ (any . any) any any))))
- (if (if #{tmp 37418}#
+ (if (if #{tmp 36614}#
(@apply
- (lambda (#{name 37422}#
- #{pattern 37423}#
- #{docstring 37424}#
- #{template 37425}#)
- (string? (syntax->datum #{docstring 37424}#)))
- #{tmp 37418}#)
+ (lambda (#{name 36618}#
+ #{pattern 36619}#
+ #{docstring 36620}#
+ #{template 36621}#)
+ (string? (syntax->datum #{docstring 36620}#)))
+ #{tmp 36614}#)
#f)
(@apply
- (lambda (#{name 37426}#
- #{pattern 37427}#
- #{docstring 37428}#
- #{template 37429}#)
+ (lambda (#{name 36622}#
+ #{pattern 36623}#
+ #{docstring 36624}#
+ #{template 36625}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37401" "i37402" "i37403" "i37404"))
+ #("i36597" "i36598" "i36599" "i36600"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37383")))
+ #(ribcage #(x) #((top)) #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{name 37426}#
+ #{name 36622}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37401" "i37402" "i37403" "i37404"))
+ #("i36597" "i36598" "i36599" "i36600"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37383")))
+ #(ribcage #(x) #((top)) #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'()
- #{docstring 37428}#
+ #{docstring 36624}#
(list (cons '#(syntax-object
_
((top)
@@ -18167,53 +18611,62 @@
docstring
template)
#((top) (top) (top) (top))
- #("i37401"
- "i37402"
- "i37403"
- "i37404"))
+ #("i36597"
+ "i36598"
+ "i36599"
+ "i36600"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37383")))
+ #("i36579"))
+ #(ribcage
+ (define-syntax-rule)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define-syntax-rule
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{pattern 37427}#)
- #{template 37429}#))))
- #{tmp 37418}#)
+ #{pattern 36623}#)
+ #{template 36625}#))))
+ #{tmp 36614}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37409}#))))))))
+ #{x 36605}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 37478}#)
- (let ((#{tmp 37480}#
+ (lambda (#{x 36675}#)
+ (let ((#{tmp 36677}#
($sc-dispatch
- #{x 37478}#
+ #{x 36675}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 37480}#
+ (if (if #{tmp 36677}#
(@apply
- (lambda (#{let* 37484}#
- #{x 37485}#
- #{v 37486}#
- #{e1 37487}#
- #{e2 37488}#)
- (and-map identifier? #{x 37485}#))
- #{tmp 37480}#)
+ (lambda (#{let* 36681}#
+ #{x 36682}#
+ #{v 36683}#
+ #{e1 36684}#
+ #{e2 36685}#)
+ (and-map identifier? #{x 36682}#))
+ #{tmp 36677}#)
#f)
(@apply
- (lambda (#{let* 37489}#
- #{x 37490}#
- #{v 37491}#
- #{e1 37492}#
- #{e2 37493}#)
+ (lambda (#{let* 36686}#
+ #{x 36687}#
+ #{v 36688}#
+ #{e1 36689}#
+ #{e2 36690}#)
(letrec*
- ((#{f 37494}#
- (lambda (#{bindings 37497}#)
- (if (null? #{bindings 37497}#)
+ ((#{f 36691}#
+ (lambda (#{bindings 36694}#)
+ (if (null? #{bindings 36694}#)
(cons '#(syntax-object
let
((top)
@@ -18221,27 +18674,36 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i37464" "i37465"))
+ #("i36661" "i36662"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37454"
- "i37455"
- "i37456"
- "i37457"
- "i37458"))
+ #("i36651"
+ "i36652"
+ "i36653"
+ "i36654"
+ "i36655"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37440")))
+ #(ribcage #(x) #((top)) #("i36637"))
+ #(ribcage
+ (let*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ let*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (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}#
+ (cons '() (cons #{e1 36689}# #{e2 36690}#)))
+ (let ((#{tmp 36695}#
+ (list (#{f 36691}# (cdr #{bindings 36694}#))
+ (car #{bindings 36694}#))))
+ (let ((#{tmp 36696}#
+ ($sc-dispatch #{tmp 36695}# '(any any))))
+ (if #{tmp 36696}#
(@apply
- (lambda (#{body 37501}# #{binding 37502}#)
+ (lambda (#{body 36698}# #{binding 36699}#)
(list '#(syntax-object
let
((top)
@@ -18249,86 +18711,92 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i37474" "i37475"))
+ #("i36671" "i36672"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i37464" "i37465"))
+ #("i36661" "i36662"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37454"
- "i37455"
- "i37456"
- "i37457"
- "i37458"))
+ #("i36651"
+ "i36652"
+ "i36653"
+ "i36654"
+ "i36655"))
#(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i36637"))
#(ribcage
- #(x)
- #((top))
- #("i37440")))
+ (let*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ let*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (list #{binding 37502}#)
- #{body 37501}#))
- #{tmp 37499}#)
+ (list #{binding 36699}#)
+ #{body 36698}#))
+ #{tmp 36696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37498}#))))))))
- (#{f 37494}# (map list #{x 37490}# #{v 37491}#))))
- #{tmp 37480}#)
+ #{tmp 36695}#))))))))
+ (#{f 36691}# (map list #{x 36687}# #{v 36688}#))))
+ #{tmp 36677}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37478}#))))))
+ #{x 36675}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 37560}#)
- (let ((#{tmp 37562}#
+ (lambda (#{orig-x 36758}#)
+ (let ((#{tmp 36760}#
($sc-dispatch
- #{orig-x 37560}#
+ #{orig-x 36758}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 37562}#
+ (if #{tmp 36760}#
(@apply
- (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}#
+ (lambda (#{var 36764}#
+ #{init 36765}#
+ #{step 36766}#
+ #{e0 36767}#
+ #{e1 36768}#
+ #{c 36769}#)
+ (let ((#{tmp 36770}#
+ (map (lambda (#{v 36773}# #{s 36774}#)
+ (let ((#{tmp 36776}#
+ ($sc-dispatch #{s 36774}# '())))
+ (if #{tmp 36776}#
+ (@apply (lambda () #{v 36773}#) #{tmp 36776}#)
+ (let ((#{tmp 36779}#
+ ($sc-dispatch #{s 36774}# '(any))))
+ (if #{tmp 36779}#
(@apply
- (lambda (#{e 37584}#) #{e 37584}#)
- #{tmp 37581}#)
+ (lambda (#{e 36782}#) #{e 36782}#)
+ #{tmp 36779}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 37560}#
- #{s 37576}#))))))
- #{var 37566}#
- #{step 37568}#)))
- (let ((#{tmp 37573}#
- ($sc-dispatch #{tmp 37572}# 'each-any)))
- (if #{tmp 37573}#
+ #{orig-x 36758}#
+ #{s 36774}#))))))
+ #{var 36764}#
+ #{step 36766}#)))
+ (let ((#{tmp 36771}#
+ ($sc-dispatch #{tmp 36770}# 'each-any)))
+ (if #{tmp 36771}#
(@apply
- (lambda (#{step 37590}#)
- (let ((#{tmp 37592}# ($sc-dispatch #{e1 37570}# '())))
- (if #{tmp 37592}#
+ (lambda (#{step 36788}#)
+ (let ((#{tmp 36790}# ($sc-dispatch #{e1 36768}# '())))
+ (if #{tmp 36790}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -18338,7 +18806,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18347,17 +18815,26 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'#(syntax-object
doloop
@@ -18366,7 +18843,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18375,19 +18852,28 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (map list #{var 37566}# #{init 37567}#)
+ (map list #{var 36764}# #{init 36765}#)
(list '#(syntax-object
if
((top)
@@ -18395,7 +18881,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18404,17 +18890,26 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list '#(syntax-object
not
@@ -18423,7 +18918,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18437,19 +18932,29 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{e0 37569}#)
+ #{e0 36767}#)
(cons '#(syntax-object
begin
((top)
@@ -18457,7 +18962,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18471,20 +18976,30 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
(append
- #{c 37571}#
+ #{c 36769}#
(list (cons '#(syntax-object
doloop
((top)
@@ -18495,7 +19010,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18509,12 +19024,12 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage
()
()
@@ -18522,30 +19037,41 @@
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{step 37590}#)))))))
- #{tmp 37592}#)
- (let ((#{tmp 37596}#
+ #{step 36788}#)))))))
+ #{tmp 36790}#)
+ (let ((#{tmp 36794}#
($sc-dispatch
- #{e1 37570}#
+ #{e1 36768}#
'(any . each-any))))
- (if #{tmp 37596}#
+ (if #{tmp 36794}#
(@apply
- (lambda (#{e1 37600}# #{e2 37601}#)
+ (lambda (#{e1 36798}# #{e2 36799}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37537" "i37538"))
+ #("i36735" "i36736"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18554,17 +19080,26 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'#(syntax-object
doloop
@@ -18572,12 +19107,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37537" "i37538"))
+ #("i36735" "i36736"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18586,33 +19121,42 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(map list
- #{var 37566}#
- #{init 37567}#)
+ #{var 36764}#
+ #{init 36765}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37537" "i37538"))
+ #("i36735" "i36736"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18621,32 +19165,41 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{e0 37569}#
+ #{e0 36767}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37537"
- "i37538"))
+ #("i36735"
+ "i36736"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18660,33 +19213,43 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- (cons #{e1 37600}#
- #{e2 37601}#))
+ (cons #{e1 36798}#
+ #{e2 36799}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37537"
- "i37538"))
+ #("i36735"
+ "i36736"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18700,20 +19263,30 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
(append
- #{c 37571}#
+ #{c 36769}#
(list (cons '#(syntax-object
doloop
((top)
@@ -18722,8 +19295,8 @@
e2)
#((top)
(top))
- #("i37537"
- "i37538"))
+ #("i36735"
+ "i36736"))
#(ribcage
()
()
@@ -18731,7 +19304,7 @@
#(ribcage
#(step)
#((top))
- #("i37528"))
+ #("i36726"))
#(ribcage
#(var
init
@@ -18745,12 +19318,12 @@
(top)
(top)
(top))
- #("i37513"
- "i37514"
- "i37515"
- "i37516"
- "i37517"
- "i37518"))
+ #("i36711"
+ "i36712"
+ "i36713"
+ "i36714"
+ "i36715"
+ "i36716"))
#(ribcage
()
()
@@ -18758,36 +19331,47 @@
#(ribcage
#(orig-x)
#((top))
- #("i37510")))
+ #("i36708"))
+ #(ribcage
+ (do)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ do
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{step 37590}#)))))))
- #{tmp 37596}#)
+ #{step 36788}#)))))))
+ #{tmp 36794}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 37570}#))))))
- #{tmp 37573}#)
+ #{e1 36768}#))))))
+ #{tmp 36771}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37572}#)))))
- #{tmp 37562}#)
+ #{tmp 36770}#)))))
+ #{tmp 36760}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 37560}#))))))
+ #{orig-x 36758}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 37887}#
- (lambda (#{p 37911}# #{lev 37912}#)
- (let ((#{tmp 37914}#
+ ((#{quasi 37086}#
+ (lambda (#{p 37110}# #{lev 37111}#)
+ (let ((#{tmp 37113}#
($sc-dispatch
- #{p 37911}#
+ #{p 37110}#
'(#(free-id
#(syntax-object
unquote
@@ -18796,7 +19380,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18805,28 +19389,37 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37914}#
+ (if #{tmp 37113}#
(@apply
- (lambda (#{p 37918}#)
- (if (= #{lev 37912}# 0)
+ (lambda (#{p 37117}#)
+ (if (= #{lev 37111}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i37637"))
+ #(ribcage #(p) #((top)) #("i36836"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18835,25 +19428,34 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{p 37918}#)
- (#{quasicons 37889}#
+ #{p 37117}#)
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37637"))
+ #(ribcage #(p) #((top)) #("i36836"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18862,23 +19464,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37637"))
+ #(ribcage #(p) #((top)) #("i36836"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18887,21 +19498,30 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{quasi 37887}#
- (list #{p 37918}#)
- (#{1-}# #{lev 37912}#)))))
- #{tmp 37914}#)
- (let ((#{tmp 37921}#
+ (#{quasi 37086}#
+ (list #{p 37117}#)
+ (#{1-}# #{lev 37111}#)))))
+ #{tmp 37113}#)
+ (let ((#{tmp 37120}#
($sc-dispatch
- #{p 37911}#
+ #{p 37110}#
'(#(free-id
#(syntax-object
quasiquote
@@ -18910,7 +19530,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18919,28 +19539,37 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37921}#
+ (if #{tmp 37120}#
(@apply
- (lambda (#{p 37925}#)
- (#{quasicons 37889}#
+ (lambda (#{p 37124}#)
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37640"))
+ #(ribcage #(p) #((top)) #("i36839"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18949,23 +19578,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i37640"))
+ #(ribcage #(p) #((top)) #("i36839"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -18974,26 +19612,35 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{quasi 37887}#
- (list #{p 37925}#)
- (#{1+}# #{lev 37912}#))))
- #{tmp 37921}#)
- (let ((#{tmp 37928}#
- ($sc-dispatch #{p 37911}# '(any . any))))
- (if #{tmp 37928}#
+ (#{quasi 37086}#
+ (list #{p 37124}#)
+ (#{1+}# #{lev 37111}#))))
+ #{tmp 37120}#)
+ (let ((#{tmp 37127}#
+ ($sc-dispatch #{p 37110}# '(any . any))))
+ (if #{tmp 37127}#
(@apply
- (lambda (#{p 37932}# #{q 37933}#)
- (let ((#{tmp 37935}#
+ (lambda (#{p 37131}# #{q 37132}#)
+ (let ((#{tmp 37134}#
($sc-dispatch
- #{p 37932}#
+ #{p 37131}#
'(#(free-id
#(syntax-object
unquote
@@ -19001,12 +19648,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19021,38 +19668,47 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37935}#
+ (if #{tmp 37134}#
(@apply
- (lambda (#{p 37939}#)
- (if (= #{lev 37912}# 0)
- (#{quasilist* 37891}#
- (map (lambda (#{tmp 37651 37978}#)
+ (lambda (#{p 37138}#)
+ (if (= #{lev 37111}# 0)
+ (#{quasilist* 37090}#
+ (map (lambda (#{tmp 36850 37177}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37649"))
+ #("i36848"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19067,37 +19723,47 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{tmp 37651 37978}#))
- #{p 37939}#)
- (#{quasi 37887}#
- #{q 37933}#
- #{lev 37912}#))
- (#{quasicons 37889}#
- (#{quasicons 37889}#
+ #{tmp 36850 37177}#))
+ #{p 37138}#)
+ (#{quasi 37086}#
+ #{q 37132}#
+ #{lev 37111}#))
+ (#{quasicons 37088}#
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37649"))
+ #("i36848"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19112,13 +19778,22 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
unquote
@@ -19126,16 +19801,16 @@
#(ribcage
#(p)
#((top))
- #("i37649"))
+ #("i36848"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19150,24 +19825,33 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{quasi 37887}#
- #{p 37939}#
- (#{1-}# #{lev 37912}#)))
- (#{quasi 37887}#
- #{q 37933}#
- #{lev 37912}#))))
- #{tmp 37935}#)
- (let ((#{tmp 37983}#
+ (#{quasi 37086}#
+ #{p 37138}#
+ (#{1-}# #{lev 37111}#)))
+ (#{quasi 37086}#
+ #{q 37132}#
+ #{lev 37111}#))))
+ #{tmp 37134}#)
+ (let ((#{tmp 37182}#
($sc-dispatch
- #{p 37932}#
+ #{p 37131}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19175,12 +19859,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19195,40 +19879,49 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37983}#
+ (if #{tmp 37182}#
(@apply
- (lambda (#{p 37987}#)
- (if (= #{lev 37912}# 0)
- (#{quasiappend 37890}#
- (map (lambda (#{tmp 37656 37990}#)
+ (lambda (#{p 37186}#)
+ (if (= #{lev 37111}# 0)
+ (#{quasiappend 37089}#
+ (map (lambda (#{tmp 36855 37189}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37654"))
+ #("i36853"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643"
- "i37644"))
+ #("i36842"
+ "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633"
- "i37634"))
+ #("i36832"
+ "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19243,37 +19936,47 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{tmp 37656 37990}#))
- #{p 37987}#)
- (#{quasi 37887}#
- #{q 37933}#
- #{lev 37912}#))
- (#{quasicons 37889}#
- (#{quasicons 37889}#
+ #{tmp 36855 37189}#))
+ #{p 37186}#)
+ (#{quasi 37086}#
+ #{q 37132}#
+ #{lev 37111}#))
+ (#{quasicons 37088}#
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37654"))
+ #("i36853"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19288,13 +19991,22 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -19302,16 +20014,16 @@
#(ribcage
#(p)
#((top))
- #("i37654"))
+ #("i36853"))
#(ribcage
#(p q)
#((top) (top))
- #("i37643" "i37644"))
+ #("i36842" "i36843"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19326,57 +20038,66 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{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}#
+ (#{quasi 37086}#
+ #{p 37186}#
+ (#{1-}# #{lev 37111}#)))
+ (#{quasi 37086}#
+ #{q 37132}#
+ #{lev 37111}#))))
+ #{tmp 37182}#)
+ (#{quasicons 37088}#
+ (#{quasi 37086}#
+ #{p 37131}#
+ #{lev 37111}#)
+ (#{quasi 37086}#
+ #{q 37132}#
+ #{lev 37111}#)))))))
+ #{tmp 37127}#)
+ (let ((#{tmp 37203}#
+ ($sc-dispatch #{p 37110}# '#(vector each-any))))
+ (if #{tmp 37203}#
(@apply
- (lambda (#{x 38008}#)
- (let ((#{x 38011}#
- (#{vquasi 37888}#
- #{x 38008}#
- #{lev 37912}#)))
- (let ((#{tmp 38013}#
+ (lambda (#{x 37207}#)
+ (let ((#{x 37210}#
+ (#{vquasi 37087}#
+ #{x 37207}#
+ #{lev 37111}#)))
+ (let ((#{tmp 37212}#
($sc-dispatch
- #{x 38011}#
+ #{x 37210}#
'(#(atom "quote") each-any))))
- (if #{tmp 38013}#
+ (if #{tmp 37212}#
(@apply
- (lambda (#{x 38017}#)
+ (lambda (#{x 37216}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i37761"))
+ #("i36960"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37758"))
+ #("i36957"))
#(ribcage
(emit quasivector
quasilist*
@@ -19391,36 +20112,45 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (list->vector #{x 38017}#)))
- #{tmp 38013}#)
+ (list->vector #{x 37216}#)))
+ #{tmp 37212}#)
(letrec*
- ((#{f 38019}#
- (lambda (#{y 38031}# #{k 38032}#)
- (let ((#{tmp 38034}#
+ ((#{f 37218}#
+ (lambda (#{y 37230}# #{k 37231}#)
+ (let ((#{tmp 37233}#
($sc-dispatch
- #{y 38031}#
+ #{y 37230}#
'(#(atom "quote")
each-any))))
- (if #{tmp 38034}#
+ (if #{tmp 37233}#
(@apply
- (lambda (#{y 38037}#)
- (#{k 38032}#
- (map (lambda (#{tmp 37786 38038}#)
+ (lambda (#{y 37236}#)
+ (#{k 37231}#
+ (map (lambda (#{tmp 36985 37237}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i37784"))
+ #("i36983"))
#(ribcage
()
()
@@ -19432,13 +20162,13 @@
#((top)
(top)
(top))
- #("i37766"
- "i37767"
- "i37768"))
+ #("i36965"
+ "i36966"
+ "i36967"))
#(ribcage
#(_)
#((top))
- #("i37764"))
+ #("i36963"))
#(ribcage
()
()
@@ -19446,7 +20176,7 @@
#(ribcage
#(x)
#((top))
- #("i37758"))
+ #("i36957"))
#(ribcage
(emit quasivector
quasilist*
@@ -19461,51 +20191,62 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{tmp 37786 38038}#))
- #{y 38037}#)))
- #{tmp 38034}#)
- (let ((#{tmp 38039}#
+ #{tmp 36985 37237}#))
+ #{y 37236}#)))
+ #{tmp 37233}#)
+ (let ((#{tmp 37238}#
($sc-dispatch
- #{y 38031}#
+ #{y 37230}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 38039}#
+ (if #{tmp 37238}#
(@apply
- (lambda (#{y 38042}#)
- (#{k 38032}#
- #{y 38042}#))
- #{tmp 38039}#)
- (let ((#{tmp 38043}#
+ (lambda (#{y 37241}#)
+ (#{k 37231}#
+ #{y 37241}#))
+ #{tmp 37238}#)
+ (let ((#{tmp 37242}#
($sc-dispatch
- #{y 38031}#
+ #{y 37230}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 38043}#
+ (if #{tmp 37242}#
(@apply
- (lambda (#{y 38046}#
- #{z 38047}#)
- (#{f 38019}#
- #{z 38047}#
- (lambda (#{ls 38048}#)
- (#{k 38032}#
+ (lambda (#{y 37245}#
+ #{z 37246}#)
+ (#{f 37218}#
+ #{z 37246}#
+ (lambda (#{ls 37247}#)
+ (#{k 37231}#
(append
- #{y 38046}#
- #{ls 38048}#)))))
- #{tmp 38043}#)
+ #{y 37245}#
+ #{ls 37247}#)))))
+ #{tmp 37242}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -19514,14 +20255,14 @@
()
())
#(ribcage
- #(#{ g37801}#)
- #((m37802
+ #(#{ g37000}#)
+ #((m37001
top))
- #("i37805"))
+ #("i37004"))
#(ribcage
#(else)
#((top))
- #("i37799"))
+ #("i36998"))
#(ribcage
()
()
@@ -19531,13 +20272,13 @@
#((top)
(top)
(top))
- #("i37766"
- "i37767"
- "i37768"))
+ #("i36965"
+ "i36966"
+ "i36967"))
#(ribcage
#(_)
#((top))
- #("i37764"))
+ #("i36963"))
#(ribcage
()
()
@@ -19545,7 +20286,7 @@
#(ribcage
#(x)
#((top))
- #("i37758"))
+ #("i36957"))
#(ribcage
(emit quasivector
quasilist*
@@ -19560,26 +20301,37 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{x 38011}#))))))))))
- (#{f 38019}#
- #{x 38011}#
- (lambda (#{ls 38021}#)
- (let ((#{tmp 38023}#
+ #{x 37210}#))))))))))
+ (#{f 37218}#
+ #{x 37210}#
+ (lambda (#{ls 37220}#)
+ (let ((#{tmp 37222}#
($sc-dispatch
- #{ls 38021}#
+ #{ls 37220}#
'each-any)))
- (if #{tmp 38023}#
+ (if #{tmp 37222}#
(@apply
- (lambda (#{ g37774 38026}#)
+ (lambda (#{ g36973 37225}#)
(cons '#(syntax-object
"vector"
((top)
@@ -19588,9 +20340,9 @@
()
())
#(ribcage
- #(#{ g37774}#)
- #((m37775 top))
- #("i37779"))
+ #(#{ g36973}#)
+ #((m36974 top))
+ #("i36978"))
#(ribcage
()
()
@@ -19606,11 +20358,11 @@
#(ribcage
#(ls)
#((top))
- #("i37773"))
+ #("i36972"))
#(ribcage
#(_)
#((top))
- #("i37764"))
+ #("i36963"))
#(ribcage
()
()
@@ -19618,7 +20370,7 @@
#(ribcage
#(x)
#((top))
- #("i37758"))
+ #("i36957"))
#(ribcage
(emit quasivector
quasilist*
@@ -19633,30 +20385,41 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{ g37774 38026}#))
- #{tmp 38023}#)
+ #{ g36973 37225}#))
+ #{tmp 37222}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls 38021}#))))))))))
- #{tmp 38004}#)
+ #{ls 37220}#))))))))))
+ #{tmp 37203}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37664"))
+ #(ribcage #(p) #((top)) #("i36863"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37633" "i37634"))
+ #("i36832" "i36833"))
#(ribcage
(emit quasivector
quasilist*
@@ -19671,25 +20434,34 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{p 37911}#)))))))))))
- (#{vquasi 37888}#
- (lambda (#{p 38076}# #{lev 38077}#)
- (let ((#{tmp 38079}#
- ($sc-dispatch #{p 38076}# '(any . any))))
- (if #{tmp 38079}#
+ #{p 37110}#)))))))))))
+ (#{vquasi 37087}#
+ (lambda (#{p 37275}# #{lev 37276}#)
+ (let ((#{tmp 37278}#
+ ($sc-dispatch #{p 37275}# '(any . any))))
+ (if #{tmp 37278}#
(@apply
- (lambda (#{p 38083}# #{q 38084}#)
- (let ((#{tmp 38086}#
+ (lambda (#{p 37282}# #{q 37283}#)
+ (let ((#{tmp 37285}#
($sc-dispatch
- #{p 38083}#
+ #{p 37282}#
'(#(free-id
#(syntax-object
unquote
@@ -19697,12 +20469,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19717,38 +20489,47 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
.
each-any))))
- (if #{tmp 38086}#
+ (if #{tmp 37285}#
(@apply
- (lambda (#{p 38090}#)
- (if (= #{lev 38077}# 0)
- (#{quasilist* 37891}#
- (map (lambda (#{tmp 37680 38129}#)
+ (lambda (#{p 37289}#)
+ (if (= #{lev 37276}# 0)
+ (#{quasilist* 37090}#
+ (map (lambda (#{tmp 36879 37328}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37678"))
+ #("i36877"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19763,32 +20544,41 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{tmp 37680 38129}#))
- #{p 38090}#)
- (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))
- (#{quasicons 37889}#
- (#{quasicons 37889}#
+ #{tmp 36879 37328}#))
+ #{p 37289}#)
+ (#{vquasi 37087}# #{q 37283}# #{lev 37276}#))
+ (#{quasicons 37088}#
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37678"))
+ #(ribcage #(p) #((top)) #("i36877"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19803,27 +20593,36 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37678"))
+ #(ribcage #(p) #((top)) #("i36877"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19838,22 +20637,31 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{quasi 37887}#
- #{p 38090}#
- (#{1-}# #{lev 38077}#)))
- (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))))
- #{tmp 38086}#)
- (let ((#{tmp 38136}#
+ (#{quasi 37086}#
+ #{p 37289}#
+ (#{1-}# #{lev 37276}#)))
+ (#{vquasi 37087}# #{q 37283}# #{lev 37276}#))))
+ #{tmp 37285}#)
+ (let ((#{tmp 37335}#
($sc-dispatch
- #{p 38083}#
+ #{p 37282}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19861,12 +20669,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19881,38 +20689,47 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
.
each-any))))
- (if #{tmp 38136}#
+ (if #{tmp 37335}#
(@apply
- (lambda (#{p 38140}#)
- (if (= #{lev 38077}# 0)
- (#{quasiappend 37890}#
- (map (lambda (#{tmp 37685 38143}#)
+ (lambda (#{p 37339}#)
+ (if (= #{lev 37276}# 0)
+ (#{quasiappend 37089}#
+ (map (lambda (#{tmp 36884 37342}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37683"))
+ #("i36882"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19927,34 +20744,43 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{tmp 37685 38143}#))
- #{p 38140}#)
- (#{vquasi 37888}#
- #{q 38084}#
- #{lev 38077}#))
- (#{quasicons 37889}#
- (#{quasicons 37889}#
+ #{tmp 36884 37342}#))
+ #{p 37339}#)
+ (#{vquasi 37087}#
+ #{q 37283}#
+ #{lev 37276}#))
+ (#{quasicons 37088}#
+ (#{quasicons 37088}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37683"))
+ #(ribcage #(p) #((top)) #("i36882"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -19969,27 +20795,36 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i37683"))
+ #(ribcage #(p) #((top)) #("i36882"))
#(ribcage
#(p q)
#((top) (top))
- #("i37672" "i37673"))
+ #("i36871" "i36872"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -20004,27 +20839,36 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
- (#{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}#
+ (#{quasi 37086}#
+ #{p 37339}#
+ (#{1-}# #{lev 37276}#)))
+ (#{vquasi 37087}#
+ #{q 37283}#
+ #{lev 37276}#))))
+ #{tmp 37335}#)
+ (#{quasicons 37088}#
+ (#{quasi 37086}# #{p 37282}# #{lev 37276}#)
+ (#{vquasi 37087}# #{q 37283}# #{lev 37276}#)))))))
+ #{tmp 37278}#)
+ (let ((#{tmp 37360}# ($sc-dispatch #{p 37275}# '())))
+ (if #{tmp 37360}#
(@apply
(lambda ()
'(#(syntax-object
@@ -20034,7 +20878,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37668" "i37669"))
+ #("i36867" "i36868"))
#(ribcage
(emit quasivector
quasilist*
@@ -20043,64 +20887,73 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
()))
- #{tmp 38161}#)
+ #{tmp 37360}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{p 37275}#)))))))
+ (#{quasicons 37088}#
+ (lambda (#{x 37373}# #{y 37374}#)
+ (let ((#{tmp 37375}# (list #{x 37373}# #{y 37374}#)))
+ (let ((#{tmp 37376}#
+ ($sc-dispatch #{tmp 37375}# '(any any))))
+ (if #{tmp 37376}#
(@apply
- (lambda (#{x 38179}# #{y 38180}#)
- (let ((#{tmp 38182}#
+ (lambda (#{x 37378}# #{y 37379}#)
+ (let ((#{tmp 37381}#
($sc-dispatch
- #{y 38180}#
+ #{y 37379}#
'(#(atom "quote") any))))
- (if #{tmp 38182}#
+ (if #{tmp 37381}#
(@apply
- (lambda (#{dy 38186}#)
- (let ((#{tmp 38188}#
+ (lambda (#{dy 37385}#)
+ (let ((#{tmp 37387}#
($sc-dispatch
- #{x 38179}#
+ #{x 37378}#
'(#(atom "quote") any))))
- (if #{tmp 38188}#
+ (if #{tmp 37387}#
(@apply
- (lambda (#{dx 38192}#)
+ (lambda (#{dx 37391}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i37707"))
+ #("i36906"))
#(ribcage
#(dy)
#((top))
- #("i37703"))
+ #("i36902"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20115,39 +20968,48 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{dx 38192}# #{dy 38186}#)))
- #{tmp 38188}#)
- (if (null? #{dy 38186}#)
+ (cons #{dx 37391}# #{dy 37385}#)))
+ #{tmp 37387}#)
+ (if (null? #{dy 37385}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i37709"))
+ #("i36908"))
#(ribcage
#(dy)
#((top))
- #("i37703"))
+ #("i36902"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20162,37 +21024,46 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{x 38179}#)
+ #{x 37378}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i37709"))
+ #("i36908"))
#(ribcage
#(dy)
#((top))
- #("i37703"))
+ #("i36902"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20207,42 +21078,51 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{x 38179}#
- #{y 38180}#)))))
- #{tmp 38182}#)
- (let ((#{tmp 38197}#
+ #{x 37378}#
+ #{y 37379}#)))))
+ #{tmp 37381}#)
+ (let ((#{tmp 37396}#
($sc-dispatch
- #{y 38180}#
+ #{y 37379}#
'(#(atom "list") . any))))
- (if #{tmp 38197}#
+ (if #{tmp 37396}#
(@apply
- (lambda (#{stuff 38201}#)
+ (lambda (#{stuff 37400}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37712"))
+ #("i36911"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20257,41 +21137,50 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{x 38179}# #{stuff 38201}#)))
- #{tmp 38197}#)
- (let ((#{tmp 38202}#
+ (cons #{x 37378}# #{stuff 37400}#)))
+ #{tmp 37396}#)
+ (let ((#{tmp 37401}#
($sc-dispatch
- #{y 38180}#
+ #{y 37379}#
'(#(atom "list*") . any))))
- (if #{tmp 38202}#
+ (if #{tmp 37401}#
(@apply
- (lambda (#{stuff 38206}#)
+ (lambda (#{stuff 37405}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37715"))
+ #("i36914"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20306,31 +21195,40 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{x 38179}# #{stuff 38206}#)))
- #{tmp 38202}#)
+ (cons #{x 37378}# #{stuff 37405}#)))
+ #{tmp 37401}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i37717"))
+ #(ribcage #(_) #((top)) #("i36916"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37697" "i37698"))
+ #("i36896" "i36897"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37692" "i37693"))
+ #("i36891" "i36892"))
#(ribcage
(emit quasivector
quasilist*
@@ -20345,29 +21243,38 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{x 38179}#
- #{y 38180}#))))))))
- #{tmp 38177}#)
+ #{x 37378}#
+ #{y 37379}#))))))))
+ #{tmp 37376}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38176}#))))))
- (#{quasiappend 37890}#
- (lambda (#{x 38217}# #{y 38218}#)
- (let ((#{tmp 38220}#
- ($sc-dispatch #{y 38218}# '(#(atom "quote") ()))))
- (if #{tmp 38220}#
+ #{tmp 37375}#))))))
+ (#{quasiappend 37089}#
+ (lambda (#{x 37416}# #{y 37417}#)
+ (let ((#{tmp 37419}#
+ ($sc-dispatch #{y 37417}# '(#(atom "quote") ()))))
+ (if #{tmp 37419}#
(@apply
(lambda ()
- (if (null? #{x 38217}#)
+ (if (null? #{x 37416}#)
'(#(syntax-object
"quote"
((top)
@@ -20375,7 +21282,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i37721" "i37722"))
+ #("i36920" "i36921"))
#(ribcage
(emit quasivector
quasilist*
@@ -20384,32 +21291,41 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
())
- (if (null? (cdr #{x 38217}#))
- (car #{x 38217}#)
- (let ((#{tmp 38225}#
- ($sc-dispatch #{x 38217}# 'each-any)))
- (if #{tmp 38225}#
+ (if (null? (cdr #{x 37416}#))
+ (car #{x 37416}#)
+ (let ((#{tmp 37424}#
+ ($sc-dispatch #{x 37416}# 'each-any)))
+ (if #{tmp 37424}#
(@apply
- (lambda (#{p 38229}#)
+ (lambda (#{p 37428}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i37733"))
+ #(ribcage #(p) #((top)) #("i36932"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37721" "i37722"))
+ #("i36920" "i36921"))
#(ribcage
(emit quasivector
quasilist*
@@ -20424,29 +21340,38 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{p 38229}#))
- #{tmp 38225}#)
+ #{p 37428}#))
+ #{tmp 37424}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{x 37416}#))))))
+ #{tmp 37419}#)
+ (if (null? #{x 37416}#)
+ #{y 37417}#
+ (let ((#{tmp 37436}# (list #{x 37416}# #{y 37417}#)))
+ (let ((#{tmp 37437}#
+ ($sc-dispatch #{tmp 37436}# '(each-any any))))
+ (if #{tmp 37437}#
(@apply
- (lambda (#{p 38240}# #{y 38241}#)
+ (lambda (#{p 37439}# #{y 37440}#)
(cons '#(syntax-object
"append"
((top)
@@ -20454,13 +21379,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i37744" "i37745"))
- #(ribcage #(_) #((top)) #("i37736"))
+ #("i36943" "i36944"))
+ #(ribcage #(_) #((top)) #("i36935"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37721" "i37722"))
+ #("i36920" "i36921"))
#(ribcage
(emit quasivector
quasilist*
@@ -20475,44 +21400,53 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (append #{p 38240}# (list #{y 38241}#))))
- #{tmp 38238}#)
+ (append #{p 37439}# (list #{y 37440}#))))
+ #{tmp 37437}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38237}#)))))))))
- (#{quasilist* 37891}#
- (lambda (#{x 38245}# #{y 38246}#)
+ #{tmp 37436}#)))))))))
+ (#{quasilist* 37090}#
+ (lambda (#{x 37444}# #{y 37445}#)
(letrec*
- ((#{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}#
+ ((#{f 37446}#
+ (lambda (#{x 37550}#)
+ (if (null? #{x 37550}#)
+ #{y 37445}#
+ (#{quasicons 37088}#
+ (car #{x 37550}#)
+ (#{f 37446}# (cdr #{x 37550}#)))))))
+ (#{f 37446}# #{x 37444}#))))
+ (#{emit 37092}#
+ (lambda (#{x 37553}#)
+ (let ((#{tmp 37555}#
+ ($sc-dispatch #{x 37553}# '(#(atom "quote") any))))
+ (if #{tmp 37555}#
(@apply
- (lambda (#{x 38360}#)
+ (lambda (#{x 37559}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i37811"))
+ #(ribcage #(x) #((top)) #("i37010"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37808"))
+ #(ribcage #(x) #((top)) #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20521,40 +21455,49 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{x 38360}#))
- #{tmp 38356}#)
- (let ((#{tmp 38361}#
+ #{x 37559}#))
+ #{tmp 37555}#)
+ (let ((#{tmp 37560}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "list") . each-any))))
- (if #{tmp 38361}#
+ (if #{tmp 37560}#
(@apply
- (lambda (#{x 38365}#)
- (let ((#{tmp 38366}# (map #{emit 37893}# #{x 38365}#)))
- (let ((#{tmp 38367}#
- ($sc-dispatch #{tmp 38366}# 'each-any)))
- (if #{tmp 38367}#
+ (lambda (#{x 37564}#)
+ (let ((#{tmp 37565}# (map #{emit 37092}# #{x 37564}#)))
+ (let ((#{tmp 37566}#
+ ($sc-dispatch #{tmp 37565}# 'each-any)))
+ (if #{tmp 37566}#
(@apply
- (lambda (#{ g37816 38369}#)
+ (lambda (#{ g37015 37568}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37816}#)
- #((m37817 top))
- #("i37821"))
- #(ribcage #(x) #((top)) #("i37814"))
+ #(#{ g37015}#)
+ #((m37016 top))
+ #("i37020"))
+ #(ribcage #(x) #((top)) #("i37013"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37808"))
+ #(ribcage #(x) #((top)) #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20569,70 +21512,79 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{ g37816 38369}#))
- #{tmp 38367}#)
+ #{ g37015 37568}#))
+ #{tmp 37566}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38366}#)))))
- #{tmp 38361}#)
- (let ((#{tmp 38370}#
+ #{tmp 37565}#)))))
+ #{tmp 37560}#)
+ (let ((#{tmp 37569}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 38370}#
+ (if #{tmp 37569}#
(@apply
- (lambda (#{x 38374}# #{y 38375}#)
+ (lambda (#{x 37573}# #{y 37574}#)
(letrec*
- ((#{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}#
+ ((#{f 37575}#
+ (lambda (#{x* 37578}#)
+ (if (null? #{x* 37578}#)
+ (#{emit 37092}# #{y 37574}#)
+ (let ((#{tmp 37579}#
+ (list (#{emit 37092}#
+ (car #{x* 37578}#))
+ (#{f 37575}#
+ (cdr #{x* 37578}#)))))
+ (let ((#{tmp 37580}#
($sc-dispatch
- #{tmp 38380}#
+ #{tmp 37579}#
'(any any))))
- (if #{tmp 38381}#
+ (if #{tmp 37580}#
(@apply
- (lambda (#{ g37836 38383}#
- #{ g37835 38384}#)
+ (lambda (#{ g37035 37582}#
+ #{ g37034 37583}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37836}#
- #{ g37835}#)
- #((m37837 top)
- (m37837 top))
- #("i37841" "i37842"))
+ #(#{ g37035}#
+ #{ g37034}#)
+ #((m37036 top)
+ (m37036 top))
+ #("i37040" "i37041"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i37830" "i37831"))
+ #("i37029" "i37030"))
#(ribcage
#(x y)
#((top) (top))
- #("i37826" "i37827"))
+ #("i37025" "i37026"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37808"))
+ #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20647,56 +21599,66 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{ g37836 38383}#
- #{ g37835 38384}#))
- #{tmp 38381}#)
+ #{ g37035 37582}#
+ #{ g37034 37583}#))
+ #{tmp 37580}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38380}#))))))))
- (#{f 38376}# #{x 38374}#)))
- #{tmp 38370}#)
- (let ((#{tmp 38385}#
+ #{tmp 37579}#))))))))
+ (#{f 37575}# #{x 37573}#)))
+ #{tmp 37569}#)
+ (let ((#{tmp 37584}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "append") . each-any))))
- (if #{tmp 38385}#
+ (if #{tmp 37584}#
(@apply
- (lambda (#{x 38389}#)
- (let ((#{tmp 38390}#
- (map #{emit 37893}# #{x 38389}#)))
- (let ((#{tmp 38391}#
+ (lambda (#{x 37588}#)
+ (let ((#{tmp 37589}#
+ (map #{emit 37092}# #{x 37588}#)))
+ (let ((#{tmp 37590}#
($sc-dispatch
- #{tmp 38390}#
+ #{tmp 37589}#
'each-any)))
- (if #{tmp 38391}#
+ (if #{tmp 37590}#
(@apply
- (lambda (#{ g37848 38393}#)
+ (lambda (#{ g37047 37592}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37848}#)
- #((m37849 top))
- #("i37853"))
+ #(#{ g37047}#)
+ #((m37048 top))
+ #("i37052"))
#(ribcage
#(x)
#((top))
- #("i37846"))
+ #("i37045"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37808"))
+ #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20711,54 +21673,63 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{ g37848 38393}#))
- #{tmp 38391}#)
+ #{ g37047 37592}#))
+ #{tmp 37590}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38390}#)))))
- #{tmp 38385}#)
- (let ((#{tmp 38394}#
+ #{tmp 37589}#)))))
+ #{tmp 37584}#)
+ (let ((#{tmp 37593}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "vector") . each-any))))
- (if #{tmp 38394}#
+ (if #{tmp 37593}#
(@apply
- (lambda (#{x 38398}#)
- (let ((#{tmp 38399}#
- (map #{emit 37893}# #{x 38398}#)))
- (let ((#{tmp 38400}#
+ (lambda (#{x 37597}#)
+ (let ((#{tmp 37598}#
+ (map #{emit 37092}# #{x 37597}#)))
+ (let ((#{tmp 37599}#
($sc-dispatch
- #{tmp 38399}#
+ #{tmp 37598}#
'each-any)))
- (if #{tmp 38400}#
+ (if #{tmp 37599}#
(@apply
- (lambda (#{ g37860 38402}#)
+ (lambda (#{ g37059 37601}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37860}#)
- #((m37861 top))
- #("i37865"))
+ #(#{ g37059}#)
+ #((m37060 top))
+ #("i37064"))
#(ribcage
#(x)
#((top))
- #("i37858"))
+ #("i37057"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37808"))
+ #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20773,47 +21744,57 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{ g37860 38402}#))
- #{tmp 38400}#)
+ #{ g37059 37601}#))
+ #{tmp 37599}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38399}#)))))
- #{tmp 38394}#)
- (let ((#{tmp 38403}#
+ #{tmp 37598}#)))))
+ #{tmp 37593}#)
+ (let ((#{tmp 37602}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "list->vector") any))))
- (if #{tmp 38403}#
+ (if #{tmp 37602}#
(@apply
- (lambda (#{x 38407}#)
- (let ((#{tmp 38408}#
- (#{emit 37893}# #{x 38407}#)))
+ (lambda (#{x 37606}#)
+ (let ((#{tmp 37607}#
+ (#{emit 37092}# #{x 37606}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37872}#)
- #((m37873 top))
- #("i37876"))
+ #(#{ g37071}#)
+ #((m37072 top))
+ #("i37075"))
#(ribcage
#(x)
#((top))
- #("i37870"))
+ #("i37069"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37808"))
+ #("i37007"))
#(ribcage
(emit quasivector
quasilist*
@@ -20828,188 +21809,215 @@
(top)
(top)
(top))
- ("i37629"
- "i37627"
- "i37625"
- "i37623"
- "i37621"
- "i37619"
- "i37617")))
+ ("i36828"
+ "i36826"
+ "i36824"
+ "i36822"
+ "i36820"
+ "i36818"
+ "i36816"))
+ #(ribcage
+ (quasiquote)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ quasiquote
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{tmp 38408}#)))
- #{tmp 38403}#)
- (let ((#{tmp 38411}#
+ #{tmp 37607}#)))
+ #{tmp 37602}#)
+ (let ((#{tmp 37610}#
($sc-dispatch
- #{x 38354}#
+ #{x 37553}#
'(#(atom "value") any))))
- (if #{tmp 38411}#
+ (if #{tmp 37610}#
(@apply
- (lambda (#{x 38415}#) #{x 38415}#)
- #{tmp 38411}#)
+ (lambda (#{x 37614}#) #{x 37614}#)
+ #{tmp 37610}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38354}#))))))))))))))))))
- (lambda (#{x 37894}#)
- (let ((#{tmp 37896}#
- ($sc-dispatch #{x 37894}# '(_ any))))
- (if #{tmp 37896}#
+ #{x 37553}#))))))))))))))))))
+ (lambda (#{x 37093}#)
+ (let ((#{tmp 37095}#
+ ($sc-dispatch #{x 37093}# '(_ any))))
+ (if #{tmp 37095}#
(@apply
- (lambda (#{e 37900}#)
- (#{emit 37893}# (#{quasi 37887}# #{e 37900}# 0)))
- #{tmp 37896}#)
+ (lambda (#{e 37099}#)
+ (#{emit 37092}# (#{quasi 37086}# #{e 37099}# 0)))
+ #{tmp 37095}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37894}#)))))))
+ #{x 37093}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 38470}#)
+ (lambda (#{x 37670}#)
(letrec*
- ((#{read-file 38471}#
- (lambda (#{fn 38587}# #{k 38588}#)
- (let ((#{p 38589}# (open-input-file #{fn 38587}#)))
+ ((#{read-file 37671}#
+ (lambda (#{fn 37787}# #{k 37788}#)
+ (let ((#{p 37789}# (open-input-file #{fn 37787}#)))
(letrec*
- ((#{f 38590}#
- (lambda (#{x 38647}# #{result 38648}#)
- (if (eof-object? #{x 38647}#)
+ ((#{f 37790}#
+ (lambda (#{x 37847}# #{result 37848}#)
+ (if (eof-object? #{x 37847}#)
(begin
- (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}#
+ (close-input-port #{p 37789}#)
+ (reverse #{result 37848}#))
+ (#{f 37790}#
+ (read #{p 37789}#)
+ (cons (datum->syntax #{k 37788}# #{x 37847}#)
+ #{result 37848}#))))))
+ (#{f 37790}# (read #{p 37789}#) '()))))))
+ (let ((#{tmp 37673}#
+ ($sc-dispatch #{x 37670}# '(any any))))
+ (if #{tmp 37673}#
(@apply
- (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}#
+ (lambda (#{k 37677}# #{filename 37678}#)
+ (let ((#{fn 37679}# (syntax->datum #{filename 37678}#)))
+ (let ((#{tmp 37680}#
+ (#{read-file 37671}#
+ #{fn 37679}#
+ #{filename 37678}#)))
+ (let ((#{tmp 37681}#
+ ($sc-dispatch #{tmp 37680}# 'each-any)))
+ (if #{tmp 37681}#
(@apply
- (lambda (#{exp 38499}#)
+ (lambda (#{exp 37699}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i38467"))
+ #(ribcage #(exp) #((top)) #("i37667"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38462"))
+ #(ribcage #(fn) #((top)) #("i37662"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38458" "i38459"))
- #(ribcage (read-file) ((top)) ("i38442"))
- #(ribcage #(x) #((top)) #("i38441")))
+ #("i37658" "i37659"))
+ #(ribcage (read-file) ((top)) ("i37642"))
+ #(ribcage #(x) #((top)) #("i37641"))
+ #(ribcage
+ (include)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ include
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{exp 38499}#))
- #{tmp 38481}#)
+ #{exp 37699}#))
+ #{tmp 37681}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38480}#))))))
- #{tmp 38473}#)
+ #{tmp 37680}#))))))
+ #{tmp 37673}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38470}#)))))))
+ #{x 37670}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 38667}#)
- (let ((#{tmp 38669}#
- ($sc-dispatch #{x 38667}# '(any any))))
- (if #{tmp 38669}#
+ (lambda (#{x 37868}#)
+ (let ((#{tmp 37870}#
+ ($sc-dispatch #{x 37868}# '(any any))))
+ (if #{tmp 37870}#
(@apply
- (lambda (#{k 38673}# #{filename 38674}#)
- (let ((#{fn 38675}# (syntax->datum #{filename 38674}#)))
- (let ((#{tmp 38676}#
+ (lambda (#{k 37874}# #{filename 37875}#)
+ (let ((#{fn 37876}# (syntax->datum #{filename 37875}#)))
+ (let ((#{tmp 37877}#
(datum->syntax
- #{filename 38674}#
- (let ((#{t 38679}# (%search-load-path #{fn 38675}#)))
- (if #{t 38679}#
- #{t 38679}#
+ #{filename 37875}#
+ (let ((#{t 37880}# (%search-load-path #{fn 37876}#)))
+ (if #{t 37880}#
+ #{t 37880}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 38667}#
- #{filename 38674}#))))))
+ #{x 37868}#
+ #{filename 37875}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38661"))
+ #(ribcage #(fn) #((top)) #("i37862"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38657"))
+ #(ribcage #(fn) #((top)) #("i37858"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38653" "i38654"))
+ #("i37854" "i37855"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38650")))
+ #(ribcage #(x) #((top)) #("i37851"))
+ #(ribcage
+ (include-from-path)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ include-from-path
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{tmp 38676}#))))
- #{tmp 38669}#)
+ #{tmp 37877}#))))
+ #{tmp 37870}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38667}#))))))
+ #{x 37868}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 38688}#)
+ (lambda (#{x 37890}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 38688}#))))
+ #{x 37890}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 38691}#)
+ (lambda (#{x 37894}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 38691}#))))
+ #{x 37894}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 38747}#)
- (let ((#{tmp 38749}#
+ (lambda (#{x 37951}#)
+ (let ((#{tmp 37953}#
($sc-dispatch
- #{x 38747}#
+ #{x 37951}#
'(_ any any . each-any))))
- (if #{tmp 38749}#
+ (if #{tmp 37953}#
(@apply
- (lambda (#{e 38753}# #{m1 38754}# #{m2 38755}#)
- (let ((#{tmp 38756}#
+ (lambda (#{e 37957}# #{m1 37958}# #{m2 37959}#)
+ (let ((#{tmp 37960}#
(letrec*
- ((#{f 38817}#
- (lambda (#{clause 38820}# #{clauses 38821}#)
- (if (null? #{clauses 38821}#)
- (let ((#{tmp 38823}#
+ ((#{f 38021}#
+ (lambda (#{clause 38024}# #{clauses 38025}#)
+ (if (null? #{clauses 38025}#)
+ (let ((#{tmp 38027}#
($sc-dispatch
- #{clause 38820}#
+ #{clause 38024}#
'(#(free-id
#(syntax-object
else
@@ -21018,91 +22026,118 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 38823}#
+ (if #{tmp 38027}#
(@apply
- (lambda (#{e1 38827}# #{e2 38828}#)
+ (lambda (#{e1 38031}# #{e2 38032}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i38715" "i38716"))
+ #("i37919" "i37920"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{e1 38827}# #{e2 38828}#)))
- #{tmp 38823}#)
- (let ((#{tmp 38829}#
+ (cons #{e1 38031}# #{e2 38032}#)))
+ #{tmp 38027}#)
+ (let ((#{tmp 38033}#
($sc-dispatch
- #{clause 38820}#
+ #{clause 38024}#
'(each-any any . each-any))))
- (if #{tmp 38829}#
+ (if #{tmp 38033}#
(@apply
- (lambda (#{k 38833}#
- #{e1 38834}#
- #{e2 38835}#)
+ (lambda (#{k 38037}#
+ #{e1 38038}#
+ #{e2 38039}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38721"
- "i38722"
- "i38723"))
+ #("i37925"
+ "i37926"
+ "i37927"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21112,9 +22147,9 @@
#((top)
(top)
(top))
- #("i38721"
- "i38722"
- "i38723"))
+ #("i37925"
+ "i37926"
+ "i37927"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21123,22 +22158,32 @@
#((top)
(top)
(top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
'#(syntax-object
t
@@ -21148,9 +22193,9 @@
#((top)
(top)
(top))
- #("i38721"
- "i38722"
- "i38723"))
+ #("i37925"
+ "i37926"
+ "i37927"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21159,22 +22204,32 @@
#((top)
(top)
(top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21184,9 +22239,9 @@
#((top)
(top)
(top))
- #("i38721"
- "i38722"
- "i38723"))
+ #("i37925"
+ "i37926"
+ "i37927"))
#(ribcage
()
()
@@ -21198,17 +22253,17 @@
#((top)
(top)
(top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage
()
()
@@ -21216,10 +22271,21 @@
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene
guile))
- #{k 38833}#))
+ #{k 38037}#))
(cons '#(syntax-object
begin
((top)
@@ -21228,9 +22294,9 @@
#((top)
(top)
(top))
- #("i38721"
- "i38722"
- "i38723"))
+ #("i37925"
+ "i37926"
+ "i37927"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21239,76 +22305,95 @@
#((top)
(top)
(top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- (cons #{e1 38834}#
- #{e2 38835}#))))
- #{tmp 38829}#)
+ (cons #{e1 38038}#
+ #{e2 38039}#))))
+ #{tmp 38033}#)
(syntax-violation
'case
"bad clause"
- #{x 38747}#
- #{clause 38820}#)))))
- (let ((#{tmp 38843}#
- (#{f 38817}#
- (car #{clauses 38821}#)
- (cdr #{clauses 38821}#))))
- (let ((#{tmp 38846}#
+ #{x 37951}#
+ #{clause 38024}#)))))
+ (let ((#{tmp 38047}#
+ (#{f 38021}#
+ (car #{clauses 38025}#)
+ (cdr #{clauses 38025}#))))
+ (let ((#{tmp 38050}#
($sc-dispatch
- #{clause 38820}#
+ #{clause 38024}#
'(each-any any . each-any))))
- (if #{tmp 38846}#
+ (if #{tmp 38050}#
(@apply
- (lambda (#{k 38850}#
- #{e1 38851}#
- #{e2 38852}#)
+ (lambda (#{k 38054}#
+ #{e1 38055}#
+ #{e2 38056}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38737"
- "i38738"
- "i38739"))
+ #("i37941"
+ "i37942"
+ "i37943"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38733"))
+ #("i37937"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21316,32 +22401,42 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38737"
- "i38738"
- "i38739"))
+ #("i37941"
+ "i37942"
+ "i37943"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38733"))
+ #("i37937"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
'#(syntax-object
t
@@ -21349,32 +22444,42 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38737"
- "i38738"
- "i38739"))
+ #("i37941"
+ "i37942"
+ "i37943"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38733"))
+ #("i37937"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21384,9 +22489,9 @@
#((top)
(top)
(top))
- #("i38737"
- "i38738"
- "i38739"))
+ #("i37941"
+ "i37942"
+ "i37943"))
#(ribcage
()
()
@@ -21394,7 +22499,7 @@
#(ribcage
#(rest)
#((top))
- #("i38733"))
+ #("i37937"))
#(ribcage
()
()
@@ -21406,17 +22511,17 @@
#((top)
(top)
(top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage
()
()
@@ -21424,232 +22529,415 @@
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene
+ guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{k 38850}#))
+ #{k 38054}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38737"
- "i38738"
- "i38739"))
+ #("i37941"
+ "i37942"
+ "i37943"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38733"))
+ #("i37937"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38706"
- "i38707"
- "i38708"))
+ #("i37910"
+ "i37911"
+ "i37912"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696"
- "i38697"
- "i38698"))
+ #("i37900"
+ "i37901"
+ "i37902"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38693")))
+ #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- (cons #{e1 38851}#
- #{e2 38852}#))
- #{tmp 38843}#))
- #{tmp 38846}#)
+ (cons #{e1 38055}#
+ #{e2 38056}#))
+ #{tmp 38047}#))
+ #{tmp 38050}#)
(syntax-violation
'case
"bad clause"
- #{x 38747}#
- #{clause 38820}#))))))))
- (#{f 38817}# #{m1 38754}# #{m2 38755}#))))
- (let ((#{body 38757}# #{tmp 38756}#))
+ #{x 37951}#
+ #{clause 38024}#))))))))
+ (#{f 38021}# #{m1 37958}# #{m2 37959}#))))
+ (let ((#{body 37961}# #{tmp 37960}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38704"))
+ #(ribcage #(body) #((top)) #("i37908"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696" "i38697" "i38698"))
+ #("i37900" "i37901" "i37902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38693")))
+ #(ribcage #(x) #((top)) #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38704"))
+ #(ribcage #(body) #((top)) #("i37908"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38696" "i38697" "i38698"))
+ #("i37900" "i37901" "i37902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38693")))
+ #(ribcage #(x) #((top)) #("i37897"))
+ #(ribcage
+ (case)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ case
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{e 38753}#))
- #{body 38757}#))))
- #{tmp 38749}#)
+ #{e 37957}#))
+ #{body 37961}#))))
+ #{tmp 37953}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38747}#))))))
+ #{x 37951}#))))))
(define make-variable-transformer
- (lambda (#{proc 38870}#)
- (if (procedure? #{proc 38870}#)
+ (lambda (#{proc 38075}#)
+ (if (procedure? #{proc 38075}#)
(letrec*
- ((#{trans 38871}#
- (lambda (#{x 38877}#)
- (#{proc 38870}# #{x 38877}#))))
+ ((#{trans 38076}#
+ (lambda (#{x 38082}#)
+ (#{proc 38075}# #{x 38082}#))))
(begin
(set-procedure-property!
- #{trans 38871}#
+ #{trans 38076}#
'variable-transformer
#t)
- #{trans 38871}#))
+ #{trans 38076}#))
(error "variable transformer not a procedure"
- #{proc 38870}#))))
+ #{proc 38075}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 38909}#)
- (let ((#{tmp 38911}#
- ($sc-dispatch #{x 38909}# '(_ any))))
- (if #{tmp 38911}#
+ (lambda (#{x 38115}#)
+ (let ((#{tmp 38117}#
+ ($sc-dispatch #{x 38115}# '(_ any))))
+ (if #{tmp 38117}#
(@apply
- (lambda (#{e 38915}#)
+ (lambda (#{e 38121}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{e 38915}#))
+ #{e 38121}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38884"))
+ #(ribcage #(e) #((top)) #("i38090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{e 38915}#
+ (cons #{e 38121}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i38884"))
+ #("i38090"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
...
@@ -21657,55 +22945,82 @@
#(ribcage
#(e)
#((top))
- #("i38884"))
+ #("i38090"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))))))))
- #{tmp 38911}#)
- (let ((#{tmp 38916}#
+ #{tmp 38117}#)
+ (let ((#{tmp 38122}#
($sc-dispatch
- #{x 38909}#
+ #{x 38115}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 38916}#
+ (if (if #{tmp 38122}#
(@apply
- (lambda (#{id 38920}#
- #{exp1 38921}#
- #{var 38922}#
- #{val 38923}#
- #{exp2 38924}#)
- (if (identifier? #{id 38920}#)
- (identifier? #{var 38922}#)
+ (lambda (#{id 38126}#
+ #{exp1 38127}#
+ #{var 38128}#
+ #{val 38129}#
+ #{exp2 38130}#)
+ (if (identifier? #{id 38126}#)
+ (identifier? #{var 38128}#)
#f))
- #{tmp 38916}#)
+ #{tmp 38122}#)
#f)
(@apply
- (lambda (#{id 38925}#
- #{exp1 38926}#
- #{var 38927}#
- #{val 38928}#
- #{exp2 38929}#)
+ (lambda (#{id 38131}#
+ #{exp1 38132}#
+ #{var 38133}#
+ #{val 38134}#
+ #{exp2 38135}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899" "i38900" "i38901" "i38902" "i38903"))
+ #("i38105" "i38106" "i38107" "i38108" "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -21713,13 +23028,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
x
@@ -21727,13 +23051,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -21741,13 +23074,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
.
#(syntax-object
@@ -21756,13 +23098,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -21770,13 +23121,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'#(syntax-object
x
@@ -21784,13 +23144,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
'(#(syntax-object
set!
@@ -21798,13 +23167,22 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38881")))
+ #(ribcage #(x) #((top)) #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -21816,19 +23194,28 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{var 38927}#
- #{val 38928}#)
+ #{var 38133}#
+ #{val 38134}#)
(list '#(syntax-object
syntax
((top)
@@ -21839,19 +23226,28 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{exp2 38929}#))
- (list (cons #{id 38925}#
+ #{exp2 38135}#))
+ (list (cons #{id 38131}#
'(#(syntax-object
x
((top)
@@ -21862,16 +23258,25 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
#(syntax-object
...
@@ -21883,16 +23288,25 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -21904,18 +23318,27 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{exp1 38926}#
+ (cons #{exp1 38132}#
'(#(syntax-object
x
((top)
@@ -21930,16 +23353,26 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
#(syntax-object
...
@@ -21955,18 +23388,28 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))))))
- (list #{id 38925}#
+ (list #{id 38131}#
(list '#(syntax-object
identifier?
((top)
@@ -21977,16 +23420,25 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -22002,18 +23454,28 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene
+ guile))))))
(hygiene guile))
- #{id 38925}#))
+ #{id 38131}#))
(list '#(syntax-object
syntax
((top)
@@ -22024,68 +23486,95 @@
(top)
(top)
(top))
- #("i38899"
- "i38900"
- "i38901"
- "i38902"
- "i38903"))
+ #("i38105"
+ "i38106"
+ "i38107"
+ "i38108"
+ "i38109"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38881")))
+ #("i38087"))
+ #(ribcage
+ (identifier-syntax)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{exp1 38926}#))))))
- #{tmp 38916}#)
+ #{exp1 38132}#))))))
+ #{tmp 38122}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38909}#))))))))
+ #{x 38115}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 38961}#)
- (let ((#{tmp 38963}#
+ (lambda (#{x 38168}#)
+ (let ((#{tmp 38170}#
($sc-dispatch
- #{x 38961}#
+ #{x 38168}#
'(_ (any . any) any . each-any))))
- (if #{tmp 38963}#
+ (if #{tmp 38170}#
(@apply
- (lambda (#{id 38967}#
- #{args 38968}#
- #{b0 38969}#
- #{b1 38970}#)
+ (lambda (#{id 38174}#
+ #{args 38175}#
+ #{b0 38176}#
+ #{b1 38177}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38943" "i38944" "i38945" "i38946"))
+ #("i38150" "i38151" "i38152" "i38153"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38940")))
+ #(ribcage #(x) #((top)) #("i38147"))
+ #(ribcage
+ (define*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{id 38967}#
+ #{id 38174}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38943" "i38944" "i38945" "i38946"))
+ #("i38150" "i38151" "i38152" "i38153"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38940")))
+ #(ribcage #(x) #((top)) #("i38147"))
+ #(ribcage
+ (define*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- (cons #{args 38968}#
- (cons #{b0 38969}# #{b1 38970}#)))))
- #{tmp 38963}#)
- (let ((#{tmp 38971}#
- ($sc-dispatch #{x 38961}# '(_ any any))))
- (if (if #{tmp 38971}#
+ (cons #{args 38175}#
+ (cons #{b0 38176}# #{b1 38177}#)))))
+ #{tmp 38170}#)
+ (let ((#{tmp 38178}#
+ ($sc-dispatch #{x 38168}# '(_ any any))))
+ (if (if #{tmp 38178}#
(@apply
- (lambda (#{id 38975}# #{val 38976}#)
+ (lambda (#{id 38182}# #{val 38183}#)
(identifier?
'#(syntax-object
x
@@ -22093,29 +23582,47 @@
#(ribcage
#(id val)
#((top) (top))
- #("i38953" "i38954"))
+ #("i38160" "i38161"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38940")))
+ #(ribcage #(x) #((top)) #("i38147"))
+ #(ribcage
+ (define*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))))
- #{tmp 38971}#)
+ #{tmp 38178}#)
#f)
(@apply
- (lambda (#{id 38977}# #{val 38978}#)
+ (lambda (#{id 38184}# #{val 38185}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i38957" "i38958"))
+ #("i38164" "i38165"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38940")))
+ #(ribcage #(x) #((top)) #("i38147"))
+ #(ribcage
+ (define*)
+ ((top))
+ (((hygiene guile)
+ .
+ #(syntax-object
+ define*
+ ((top))
+ (hygiene guile))))))
(hygiene guile))
- #{id 38977}#
- #{val 38978}#))
- #{tmp 38971}#)
+ #{id 38184}#
+ #{val 38185}#))
+ #{tmp 38178}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38961}#))))))))
+ #{x 38168}#))))))))