From 0f9f51a153db3e669a12c416c4958d71bd3c2a8b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 7 Nov 2011 11:48:30 +0100 Subject: [PATCH] regenerate psyntax-pp * module/ice-9/psyntax-pp.scm: Regenerate. --- module/ice-9/psyntax-pp.scm | 20059 ++++++++++++++++++---------------- 1 file changed, 10783 insertions(+), 9276 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))))) + (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 + #{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 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 - (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) + (#{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) - (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}# - (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}# - (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}#))) + #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) - #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}# - (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}#) + (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 4379}# - (#{chi 4373}# - #{x 5049}# - #{trans-r 5048}# - #{w 4517}# - #{mod 4519}#) - #{mod 4519}#))) - #{val 4614}#)) - #{r 4516}#) - #{w 4517}# - #{mod 4519}#)))) - #{tmp 4521}#) + (#{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) + #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 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) - #{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 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) + #f) + (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 @@ -12684,6 +12844,13 @@ 'define-syntax 'define-syntax '())) + (module-define! + (current-module) + 'define-syntax-parameter + (make-syntax-transformer + 'define-syntax-parameter + 'define-syntax-parameter + '())) (module-define! (current-module) 'eval-when @@ -12691,68 +12858,68 @@ '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}#))))))))