diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-19 13:08:19 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-19 13:08:19 +0100 |
commit | 7d02e256610e37c0ab0e8c55623d6f6c6eacab82 (patch) | |
tree | 03b270e60eac64c73a317184d9e1b55cb7f54382 | |
parent | 9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a (diff) | |
download | guile-7d02e256610e37c0ab0e8c55623d6f6c6eacab82.tar.gz |
avoid gensym when making labels in psyntax
* module/ice-9/psyntax.scm (gen-label): Avoid gensym, as we don't need
to make symbols.
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 23155 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 7 |
2 files changed, 11461 insertions, 11701 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 3e17e62b4..b1f1d129d 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1245 +1,1246 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{transformer-environment 4436}# (if #f #f))) +(let ((#{gen-label 2745}# (if #f #f)) + (#{transformer-environment 2764}# (if #f #f))) (letrec* - ((#{top-level-eval-hook 4375}# - (lambda (#{x 26114}# #{mod 26115}#) - (primitive-eval #{x 26114}#))) - (#{get-global-definition-hook 4378}# - (lambda (#{symbol 15434}# #{module 15435}#) + ((#{top-level-eval-hook 2703}# + (lambda (#{x 24076}# #{mod 24077}#) + (primitive-eval #{x 24076}#))) + (#{get-global-definition-hook 2706}# + (lambda (#{symbol 13606}# #{module 13607}#) (begin - (if (if (not #{module 15435}#) (current-module) #f) + (if (if (not #{module 13607}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 15434}#)) - (let ((#{v 15436}# + #{symbol 13606}#)) + (let ((#{v 13608}# (module-variable - (if #{module 15435}# - (resolve-module (cdr #{module 15435}#)) + (if #{module 13607}# + (resolve-module (cdr #{module 13607}#)) (current-module)) - #{symbol 15434}#))) - (if #{v 15436}# - (if (variable-bound? #{v 15436}#) - (let ((#{val 15438}# (variable-ref #{v 15436}#))) - (if (macro? #{val 15438}#) - (if (macro-type #{val 15438}#) - (cons (macro-type #{val 15438}#) - (macro-binding #{val 15438}#)) + #{symbol 13606}#))) + (if #{v 13608}# + (if (variable-bound? #{v 13608}#) + (let ((#{val 13610}# (variable-ref #{v 13608}#))) + (if (macro? #{val 13610}#) + (if (macro-type #{val 13610}#) + (cons (macro-type #{val 13610}#) + (macro-binding #{val 13610}#)) #f) #f)) #f) #f))))) - (#{maybe-name-value! 4380}# - (lambda (#{name 15715}# #{val 15716}#) - (if (if (struct? #{val 15716}#) - (eq? (struct-vtable #{val 15716}#) + (#{maybe-name-value! 2708}# + (lambda (#{name 13887}# #{val 13888}#) + (if (if (struct? #{val 13888}#) + (eq? (struct-vtable #{val 13888}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15723}# (struct-ref #{val 15716}# 1))) - (if (not (assq 'name #{meta 15723}#)) - (let ((#{v 15728}# - (cons (cons 'name #{name 15715}#) #{meta 15723}#))) - (struct-set! #{val 15716}# 1 #{v 15728}#))))))) - (#{build-application 4382}# - (lambda (#{source 15440}# - #{fun-exp 15441}# - #{arg-exps 15442}#) + (let ((#{meta 13895}# (struct-ref #{val 13888}# 1))) + (if (not (assq 'name #{meta 13895}#)) + (let ((#{v 13900}# + (cons (cons 'name #{name 13887}#) #{meta 13895}#))) + (struct-set! #{val 13888}# 1 #{v 13900}#))))))) + (#{build-application 2710}# + (lambda (#{source 13612}# + #{fun-exp 13613}# + #{arg-exps 13614}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 15440}# - #{fun-exp 15441}# - #{arg-exps 15442}#))) - (#{build-conditional 4383}# - (lambda (#{source 15448}# - #{test-exp 15449}# - #{then-exp 15450}# - #{else-exp 15451}#) + #{source 13612}# + #{fun-exp 13613}# + #{arg-exps 13614}#))) + (#{build-conditional 2711}# + (lambda (#{source 13620}# + #{test-exp 13621}# + #{then-exp 13622}# + #{else-exp 13623}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 15448}# - #{test-exp 15449}# - #{then-exp 15450}# - #{else-exp 15451}#))) - (#{build-dynlet 4384}# - (lambda (#{source 15458}# - #{fluids 15459}# - #{vals 15460}# - #{body 15461}#) + #{source 13620}# + #{test-exp 13621}# + #{then-exp 13622}# + #{else-exp 13623}#))) + (#{build-dynlet 2712}# + (lambda (#{source 13630}# + #{fluids 13631}# + #{vals 13632}# + #{body 13633}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 15458}# - #{fluids 15459}# - #{vals 15460}# - #{body 15461}#))) - (#{build-lexical-reference 4385}# - (lambda (#{type 26116}# - #{source 26117}# - #{name 26118}# - #{var 26119}#) + #{source 13630}# + #{fluids 13631}# + #{vals 13632}# + #{body 13633}#))) + (#{build-lexical-reference 2713}# + (lambda (#{type 24078}# + #{source 24079}# + #{name 24080}# + #{var 24081}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 26117}# - #{name 26118}# - #{var 26119}#))) - (#{build-lexical-assignment 4386}# - (lambda (#{source 15468}# - #{name 15469}# - #{var 15470}# - #{exp 15471}#) + #{source 24079}# + #{name 24080}# + #{var 24081}#))) + (#{build-lexical-assignment 2714}# + (lambda (#{source 13640}# + #{name 13641}# + #{var 13642}# + #{exp 13643}#) (begin - (if (if (struct? #{exp 15471}#) - (eq? (struct-vtable #{exp 15471}#) + (if (if (struct? #{exp 13643}#) + (eq? (struct-vtable #{exp 13643}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15487}# (struct-ref #{exp 15471}# 1))) - (if (not (assq 'name #{meta 15487}#)) - (let ((#{v 15494}# - (cons (cons 'name #{name 15469}#) #{meta 15487}#))) - (struct-set! #{exp 15471}# 1 #{v 15494}#))))) + (let ((#{meta 13659}# (struct-ref #{exp 13643}# 1))) + (if (not (assq 'name #{meta 13659}#)) + (let ((#{v 13666}# + (cons (cons 'name #{name 13641}#) #{meta 13659}#))) + (struct-set! #{exp 13643}# 1 #{v 13666}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 15468}# - #{name 15469}# - #{var 15470}# - #{exp 15471}#)))) - (#{analyze-variable 4387}# - (lambda (#{mod 26125}# - #{var 26126}# - #{modref-cont 26127}# - #{bare-cont 26128}#) - (if (not #{mod 26125}#) - (#{bare-cont 26128}# #{var 26126}#) - (let ((#{kind 26129}# (car #{mod 26125}#)) - (#{mod 26130}# (cdr #{mod 26125}#))) - (if (eqv? #{kind 26129}# 'public) - (#{modref-cont 26127}# - #{mod 26130}# - #{var 26126}# + #{source 13640}# + #{name 13641}# + #{var 13642}# + #{exp 13643}#)))) + (#{analyze-variable 2715}# + (lambda (#{mod 24087}# + #{var 24088}# + #{modref-cont 24089}# + #{bare-cont 24090}#) + (if (not #{mod 24087}#) + (#{bare-cont 24090}# #{var 24088}#) + (let ((#{kind 24091}# (car #{mod 24087}#)) + (#{mod 24092}# (cdr #{mod 24087}#))) + (if (eqv? #{kind 24091}# 'public) + (#{modref-cont 24089}# + #{mod 24092}# + #{var 24088}# #t) - (if (eqv? #{kind 26129}# 'private) + (if (eqv? #{kind 24091}# 'private) (if (not (equal? - #{mod 26130}# + #{mod 24092}# (module-name (current-module)))) - (#{modref-cont 26127}# - #{mod 26130}# - #{var 26126}# + (#{modref-cont 24089}# + #{mod 24092}# + #{var 24088}# #f) - (#{bare-cont 26128}# #{var 26126}#)) - (if (eqv? #{kind 26129}# 'bare) - (#{bare-cont 26128}# #{var 26126}#) - (if (eqv? #{kind 26129}# 'hygiene) + (#{bare-cont 24090}# #{var 24088}#)) + (if (eqv? #{kind 24091}# 'bare) + (#{bare-cont 24090}# #{var 24088}#) + (if (eqv? #{kind 24091}# 'hygiene) (if (if (not (equal? - #{mod 26130}# + #{mod 24092}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 26130}#) - #{var 26126}#) + (resolve-module #{mod 24092}#) + #{var 24088}#) #f) - (#{modref-cont 26127}# - #{mod 26130}# - #{var 26126}# + (#{modref-cont 24089}# + #{mod 24092}# + #{var 24088}# #f) - (#{bare-cont 26128}# #{var 26126}#)) + (#{bare-cont 24090}# #{var 24088}#)) (syntax-violation #f "bad module kind" - #{var 26126}# - #{mod 26130}#))))))))) - (#{build-global-reference 4388}# - (lambda (#{source 26145}# #{var 26146}# #{mod 26147}#) - (#{analyze-variable 4387}# - #{mod 26147}# - #{var 26146}# - (lambda (#{mod 26150}# #{var 26151}# #{public? 26152}#) + #{var 24088}# + #{mod 24092}#))))))))) + (#{build-global-reference 2716}# + (lambda (#{source 24107}# #{var 24108}# #{mod 24109}#) + (#{analyze-variable 2715}# + #{mod 24109}# + #{var 24108}# + (lambda (#{mod 24112}# #{var 24113}# #{public? 24114}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 26145}# - #{mod 26150}# - #{var 26151}# - #{public? 26152}#)) - (lambda (#{var 26160}#) + #{source 24107}# + #{mod 24112}# + #{var 24113}# + #{public? 24114}#)) + (lambda (#{var 24122}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 26145}# - #{var 26160}#))))) - (#{build-global-assignment 4389}# - (lambda (#{source 15503}# - #{var 15504}# - #{exp 15505}# - #{mod 15506}#) + #{source 24107}# + #{var 24122}#))))) + (#{build-global-assignment 2717}# + (lambda (#{source 13675}# + #{var 13676}# + #{exp 13677}# + #{mod 13678}#) (begin - (if (if (struct? #{exp 15505}#) - (eq? (struct-vtable #{exp 15505}#) + (if (if (struct? #{exp 13677}#) + (eq? (struct-vtable #{exp 13677}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15522}# (struct-ref #{exp 15505}# 1))) - (if (not (assq 'name #{meta 15522}#)) - (let ((#{v 15529}# - (cons (cons 'name #{var 15504}#) #{meta 15522}#))) - (struct-set! #{exp 15505}# 1 #{v 15529}#))))) - (#{analyze-variable 4387}# - #{mod 15506}# - #{var 15504}# - (lambda (#{mod 15534}# #{var 15535}# #{public? 15536}#) + (let ((#{meta 13694}# (struct-ref #{exp 13677}# 1))) + (if (not (assq 'name #{meta 13694}#)) + (let ((#{v 13701}# + (cons (cons 'name #{var 13676}#) #{meta 13694}#))) + (struct-set! #{exp 13677}# 1 #{v 13701}#))))) + (#{analyze-variable 2715}# + #{mod 13678}# + #{var 13676}# + (lambda (#{mod 13706}# #{var 13707}# #{public? 13708}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 15503}# - #{mod 15534}# - #{var 15535}# - #{public? 15536}# - #{exp 15505}#)) - (lambda (#{var 15544}#) + #{source 13675}# + #{mod 13706}# + #{var 13707}# + #{public? 13708}# + #{exp 13677}#)) + (lambda (#{var 13716}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 15503}# - #{var 15544}# - #{exp 15505}#)))))) - (#{build-global-definition 4390}# - (lambda (#{source 26166}# #{var 26167}# #{exp 26168}#) + #{source 13675}# + #{var 13716}# + #{exp 13677}#)))))) + (#{build-global-definition 2718}# + (lambda (#{source 24128}# #{var 24129}# #{exp 24130}#) (begin - (if (if (struct? #{exp 26168}#) - (eq? (struct-vtable #{exp 26168}#) + (if (if (struct? #{exp 24130}#) + (eq? (struct-vtable #{exp 24130}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 26184}# (struct-ref #{exp 26168}# 1))) - (if (not (assq 'name #{meta 26184}#)) - (let ((#{v 26191}# - (cons (cons 'name #{var 26167}#) #{meta 26184}#))) - (struct-set! #{exp 26168}# 1 #{v 26191}#))))) + (let ((#{meta 24146}# (struct-ref #{exp 24130}# 1))) + (if (not (assq 'name #{meta 24146}#)) + (let ((#{v 24153}# + (cons (cons 'name #{var 24129}#) #{meta 24146}#))) + (struct-set! #{exp 24130}# 1 #{v 24153}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 26166}# - #{var 26167}# - #{exp 26168}#)))) - (#{build-simple-lambda 4391}# - (lambda (#{src 15550}# - #{req 15551}# - #{rest 15552}# - #{vars 15553}# - #{meta 15554}# - #{exp 15555}#) - (let ((#{body 15561}# + #{source 24128}# + #{var 24129}# + #{exp 24130}#)))) + (#{build-simple-lambda 2719}# + (lambda (#{src 13722}# + #{req 13723}# + #{rest 13724}# + #{vars 13725}# + #{meta 13726}# + #{exp 13727}#) + (let ((#{body 13733}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 15550}# - #{req 15551}# + #{src 13722}# + #{req 13723}# #f - #{rest 15552}# + #{rest 13724}# #f '() - #{vars 15553}# - #{exp 15555}# + #{vars 13725}# + #{exp 13727}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 15550}# - #{meta 15554}# - #{body 15561}#)))) - (#{build-sequence 4396}# - (lambda (#{src 26199}# #{exps 26200}#) - (if (null? (cdr #{exps 26200}#)) - (car #{exps 26200}#) + #{src 13722}# + #{meta 13726}# + #{body 13733}#)))) + (#{build-sequence 2724}# + (lambda (#{src 24161}# #{exps 24162}#) + (if (null? (cdr #{exps 24162}#)) + (car #{exps 24162}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 26199}# - #{exps 26200}#)))) - (#{build-let 4397}# - (lambda (#{src 15573}# - #{ids 15574}# - #{vars 15575}# - #{val-exps 15576}# - #{body-exp 15577}#) + #{src 24161}# + #{exps 24162}#)))) + (#{build-let 2725}# + (lambda (#{src 13745}# + #{ids 13746}# + #{vars 13747}# + #{val-exps 13748}# + #{body-exp 13749}#) (begin (for-each - #{maybe-name-value! 4380}# - #{ids 15574}# - #{val-exps 15576}#) - (if (null? #{vars 15575}#) - #{body-exp 15577}# + #{maybe-name-value! 2708}# + #{ids 13746}# + #{val-exps 13748}#) + (if (null? #{vars 13747}#) + #{body-exp 13749}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 15573}# - #{ids 15574}# - #{vars 15575}# - #{val-exps 15576}# - #{body-exp 15577}#))))) - (#{build-named-let 4398}# - (lambda (#{src 15601}# - #{ids 15602}# - #{vars 15603}# - #{val-exps 15604}# - #{body-exp 15605}#) - (let ((#{f 15606}# (car #{vars 15603}#)) - (#{f-name 15607}# (car #{ids 15602}#)) - (#{vars 15608}# (cdr #{vars 15603}#)) - (#{ids 15609}# (cdr #{ids 15602}#))) - (let ((#{proc 15610}# - (let ((#{body 15630}# + #{src 13745}# + #{ids 13746}# + #{vars 13747}# + #{val-exps 13748}# + #{body-exp 13749}#))))) + (#{build-named-let 2726}# + (lambda (#{src 13773}# + #{ids 13774}# + #{vars 13775}# + #{val-exps 13776}# + #{body-exp 13777}#) + (let ((#{f 13778}# (car #{vars 13775}#)) + (#{f-name 13779}# (car #{ids 13774}#)) + (#{vars 13780}# (cdr #{vars 13775}#)) + (#{ids 13781}# (cdr #{ids 13774}#))) + (let ((#{proc 13782}# + (let ((#{body 13802}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 15601}# - #{ids 15609}# + #{src 13773}# + #{ids 13781}# #f #f #f '() - #{vars 15608}# - #{body-exp 15605}# + #{vars 13780}# + #{body-exp 13777}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 15601}# + #{src 13773}# '() - #{body 15630}#)))) + #{body 13802}#)))) (begin - (if (if (struct? #{proc 15610}#) - (eq? (struct-vtable #{proc 15610}#) + (if (if (struct? #{proc 13782}#) + (eq? (struct-vtable #{proc 13782}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15654}# (struct-ref #{proc 15610}# 1))) - (if (not (assq 'name #{meta 15654}#)) - (let ((#{v 15661}# - (cons (cons 'name #{f-name 15607}#) - #{meta 15654}#))) - (struct-set! #{proc 15610}# 1 #{v 15661}#))))) + (let ((#{meta 13826}# (struct-ref #{proc 13782}# 1))) + (if (not (assq 'name #{meta 13826}#)) + (let ((#{v 13833}# + (cons (cons 'name #{f-name 13779}#) + #{meta 13826}#))) + (struct-set! #{proc 13782}# 1 #{v 13833}#))))) (for-each - #{maybe-name-value! 4380}# - #{ids 15609}# - #{val-exps 15604}#) - (let ((#{names 15685}# (list #{f-name 15607}#)) - (#{gensyms 15686}# (list #{f 15606}#)) - (#{vals 15687}# (list #{proc 15610}#)) - (#{body 15688}# - (let ((#{fun-exp 15692}# + #{maybe-name-value! 2708}# + #{ids 13781}# + #{val-exps 13776}#) + (let ((#{names 13857}# (list #{f-name 13779}#)) + (#{gensyms 13858}# (list #{f 13778}#)) + (#{vals 13859}# (list #{proc 13782}#)) + (#{body 13860}# + (let ((#{fun-exp 13864}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 15601}# - #{f-name 15607}# - #{f 15606}#))) + #{src 13773}# + #{f-name 13779}# + #{f 13778}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 15601}# - #{fun-exp 15692}# - #{val-exps 15604}#)))) + #{src 13773}# + #{fun-exp 13864}# + #{val-exps 13776}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 15601}# + #{src 13773}# #f - #{names 15685}# - #{gensyms 15686}# - #{vals 15687}# - #{body 15688}#))))))) - (#{build-letrec 4399}# - (lambda (#{src 15708}# - #{in-order? 15709}# - #{ids 15710}# - #{vars 15711}# - #{val-exps 15712}# - #{body-exp 15713}#) - (if (null? #{vars 15711}#) - #{body-exp 15713}# + #{names 13857}# + #{gensyms 13858}# + #{vals 13859}# + #{body 13860}#))))))) + (#{build-letrec 2727}# + (lambda (#{src 13880}# + #{in-order? 13881}# + #{ids 13882}# + #{vars 13883}# + #{val-exps 13884}# + #{body-exp 13885}#) + (if (null? #{vars 13883}#) + #{body-exp 13885}# (begin (for-each - #{maybe-name-value! 4380}# - #{ids 15710}# - #{val-exps 15712}#) + #{maybe-name-value! 2708}# + #{ids 13882}# + #{val-exps 13884}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 15708}# - #{in-order? 15709}# - #{ids 15710}# - #{vars 15711}# - #{val-exps 15712}# - #{body-exp 15713}#))))) - (#{source-annotation 4408}# - (lambda (#{x 15739}#) - (if (if (vector? #{x 15739}#) - (if (= (vector-length #{x 15739}#) 4) - (eq? (vector-ref #{x 15739}# 0) 'syntax-object) + #{src 13880}# + #{in-order? 13881}# + #{ids 13882}# + #{vars 13883}# + #{val-exps 13884}# + #{body-exp 13885}#))))) + (#{source-annotation 2736}# + (lambda (#{x 13911}#) + (if (if (vector? #{x 13911}#) + (if (= (vector-length #{x 13911}#) 4) + (eq? (vector-ref #{x 13911}# 0) 'syntax-object) #f) #f) - (#{source-annotation 4408}# - (vector-ref #{x 15739}# 1)) - (if (pair? #{x 15739}#) - (let ((#{props 15754}# (source-properties #{x 15739}#))) - (if (pair? #{props 15754}#) #{props 15754}# #f)) + (#{source-annotation 2736}# + (vector-ref #{x 13911}# 1)) + (if (pair? #{x 13911}#) + (let ((#{props 13926}# (source-properties #{x 13911}#))) + (if (pair? #{props 13926}#) #{props 13926}# #f)) #f)))) - (#{extend-env 4409}# - (lambda (#{labels 15756}# #{bindings 15757}# #{r 15758}#) - (if (null? #{labels 15756}#) - #{r 15758}# - (#{extend-env 4409}# - (cdr #{labels 15756}#) - (cdr #{bindings 15757}#) - (cons (cons (car #{labels 15756}#) - (car #{bindings 15757}#)) - #{r 15758}#))))) - (#{extend-var-env 4410}# - (lambda (#{labels 15759}# #{vars 15760}# #{r 15761}#) - (if (null? #{labels 15759}#) - #{r 15761}# - (#{extend-var-env 4410}# - (cdr #{labels 15759}#) - (cdr #{vars 15760}#) - (cons (cons (car #{labels 15759}#) - (cons 'lexical (car #{vars 15760}#))) - #{r 15761}#))))) - (#{macros-only-env 4411}# - (lambda (#{r 15762}#) - (if (null? #{r 15762}#) + (#{extend-env 2737}# + (lambda (#{labels 13928}# #{bindings 13929}# #{r 13930}#) + (if (null? #{labels 13928}#) + #{r 13930}# + (#{extend-env 2737}# + (cdr #{labels 13928}#) + (cdr #{bindings 13929}#) + (cons (cons (car #{labels 13928}#) + (car #{bindings 13929}#)) + #{r 13930}#))))) + (#{extend-var-env 2738}# + (lambda (#{labels 13931}# #{vars 13932}# #{r 13933}#) + (if (null? #{labels 13931}#) + #{r 13933}# + (#{extend-var-env 2738}# + (cdr #{labels 13931}#) + (cdr #{vars 13932}#) + (cons (cons (car #{labels 13931}#) + (cons 'lexical (car #{vars 13932}#))) + #{r 13933}#))))) + (#{macros-only-env 2739}# + (lambda (#{r 13934}#) + (if (null? #{r 13934}#) '() - (let ((#{a 15763}# (car #{r 15762}#))) - (if (eq? (car (cdr #{a 15763}#)) 'macro) - (cons #{a 15763}# - (#{macros-only-env 4411}# (cdr #{r 15762}#))) - (#{macros-only-env 4411}# (cdr #{r 15762}#))))))) - (#{global-extend 4413}# - (lambda (#{type 15765}# #{sym 15766}# #{val 15767}#) + (let ((#{a 13935}# (car #{r 13934}#))) + (if (eq? (car (cdr #{a 13935}#)) 'macro) + (cons #{a 13935}# + (#{macros-only-env 2739}# (cdr #{r 13934}#))) + (#{macros-only-env 2739}# (cdr #{r 13934}#))))))) + (#{global-extend 2741}# + (lambda (#{type 13937}# #{sym 13938}# #{val 13939}#) (module-define! (current-module) - #{sym 15766}# + #{sym 13938}# (make-syntax-transformer - #{sym 15766}# - #{type 15765}# - #{val 15767}#)))) - (#{id? 4415}# - (lambda (#{x 9800}#) - (if (symbol? #{x 9800}#) + #{sym 13938}# + #{type 13937}# + #{val 13939}#)))) + (#{id? 2743}# + (lambda (#{x 8002}#) + (if (symbol? #{x 8002}#) #t - (if (if (vector? #{x 9800}#) - (if (= (vector-length #{x 9800}#) 4) - (eq? (vector-ref #{x 9800}# 0) 'syntax-object) + (if (if (vector? #{x 8002}#) + (if (= (vector-length #{x 8002}#) 4) + (eq? (vector-ref #{x 8002}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 9800}# 1)) + (symbol? (vector-ref #{x 8002}# 1)) #f)))) - (#{gen-labels 4418}# - (lambda (#{ls 15777}#) - (if (null? #{ls 15777}#) + (#{gen-labels 2746}# + (lambda (#{ls 13952}#) + (if (null? #{ls 13952}#) '() - (cons (symbol->string (gensym "i")) - (#{gen-labels 4418}# (cdr #{ls 15777}#)))))) - (#{make-binding-wrap 4429}# - (lambda (#{ids 15781}# #{labels 15782}# #{w 15783}#) - (if (null? #{ids 15781}#) - #{w 15783}# - (cons (car #{w 15783}#) - (cons (let ((#{labelvec 15784}# - (list->vector #{labels 15782}#))) - (let ((#{n 15785}# - (vector-length #{labelvec 15784}#))) - (let ((#{symnamevec 15786}# - (make-vector #{n 15785}#)) - (#{marksvec 15787}# - (make-vector #{n 15785}#))) + (cons (#{gen-label 2745}#) + (#{gen-labels 2746}# (cdr #{ls 13952}#)))))) + (#{make-binding-wrap 2757}# + (lambda (#{ids 13953}# #{labels 13954}# #{w 13955}#) + (if (null? #{ids 13953}#) + #{w 13955}# + (cons (car #{w 13955}#) + (cons (let ((#{labelvec 13956}# + (list->vector #{labels 13954}#))) + (let ((#{n 13957}# + (vector-length #{labelvec 13956}#))) + (let ((#{symnamevec 13958}# + (make-vector #{n 13957}#)) + (#{marksvec 13959}# + (make-vector #{n 13957}#))) (begin (letrec* - ((#{f 15788}# - (lambda (#{ids 15791}# #{i 15792}#) - (if (not (null? #{ids 15791}#)) + ((#{f 13960}# + (lambda (#{ids 13963}# #{i 13964}#) + (if (not (null? #{ids 13963}#)) (call-with-values (lambda () - (let ((#{x 15795}# - (car #{ids 15791}#))) - (if (if (vector? #{x 15795}#) + (let ((#{x 13967}# + (car #{ids 13963}#))) + (if (if (vector? #{x 13967}#) (if (= (vector-length - #{x 15795}#) + #{x 13967}#) 4) (eq? (vector-ref - #{x 15795}# + #{x 13967}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 15795}# 1) - (let ((#{m1 15811}# - (car #{w 15783}#)) - (#{m2 15812}# + (vector-ref #{x 13967}# 1) + (let ((#{m1 13983}# + (car #{w 13955}#)) + (#{m2 13984}# (car (vector-ref - #{x 15795}# + #{x 13967}# 2)))) - (if (null? #{m2 15812}#) - #{m1 15811}# + (if (null? #{m2 13984}#) + #{m1 13983}# (append - #{m1 15811}# - #{m2 15812}#)))) + #{m1 13983}# + #{m2 13984}#)))) (values - #{x 15795}# - (car #{w 15783}#))))) - (lambda (#{symname 15832}# - #{marks 15833}#) + #{x 13967}# + (car #{w 13955}#))))) + (lambda (#{symname 14004}# + #{marks 14005}#) (begin (vector-set! - #{symnamevec 15786}# - #{i 15792}# - #{symname 15832}#) + #{symnamevec 13958}# + #{i 13964}# + #{symname 14004}#) (vector-set! - #{marksvec 15787}# - #{i 15792}# - #{marks 15833}#) - (#{f 15788}# - (cdr #{ids 15791}#) - (#{1+}# #{i 15792}#))))))))) - (#{f 15788}# #{ids 15781}# 0)) + #{marksvec 13959}# + #{i 13964}# + #{marks 14005}#) + (#{f 13960}# + (cdr #{ids 13963}#) + (#{1+}# #{i 13964}#))))))))) + (#{f 13960}# #{ids 13953}# 0)) (vector 'ribcage - #{symnamevec 15786}# - #{marksvec 15787}# - #{labelvec 15784}#))))) - (cdr #{w 15783}#)))))) - (#{join-wraps 4431}# - (lambda (#{w1 15842}# #{w2 15843}#) - (let ((#{m1 15844}# (car #{w1 15842}#)) - (#{s1 15845}# (cdr #{w1 15842}#))) - (if (null? #{m1 15844}#) - (if (null? #{s1 15845}#) - #{w2 15843}# - (cons (car #{w2 15843}#) - (let ((#{m2 15852}# (cdr #{w2 15843}#))) - (if (null? #{m2 15852}#) - #{s1 15845}# - (append #{s1 15845}# #{m2 15852}#))))) - (cons (let ((#{m2 15861}# (car #{w2 15843}#))) - (if (null? #{m2 15861}#) - #{m1 15844}# - (append #{m1 15844}# #{m2 15861}#))) - (let ((#{m2 15870}# (cdr #{w2 15843}#))) - (if (null? #{m2 15870}#) - #{s1 15845}# - (append #{s1 15845}# #{m2 15870}#)))))))) - (#{same-marks? 4433}# - (lambda (#{x 15875}# #{y 15876}#) - (if (eq? #{x 15875}# #{y 15876}#) - (eq? #{x 15875}# #{y 15876}#) - (if (not (null? #{x 15875}#)) - (if (not (null? #{y 15876}#)) - (if (eq? (car #{x 15875}#) (car #{y 15876}#)) - (#{same-marks? 4433}# - (cdr #{x 15875}#) - (cdr #{y 15876}#)) + #{symnamevec 13958}# + #{marksvec 13959}# + #{labelvec 13956}#))))) + (cdr #{w 13955}#)))))) + (#{join-wraps 2759}# + (lambda (#{w1 14014}# #{w2 14015}#) + (let ((#{m1 14016}# (car #{w1 14014}#)) + (#{s1 14017}# (cdr #{w1 14014}#))) + (if (null? #{m1 14016}#) + (if (null? #{s1 14017}#) + #{w2 14015}# + (cons (car #{w2 14015}#) + (let ((#{m2 14024}# (cdr #{w2 14015}#))) + (if (null? #{m2 14024}#) + #{s1 14017}# + (append #{s1 14017}# #{m2 14024}#))))) + (cons (let ((#{m2 14033}# (car #{w2 14015}#))) + (if (null? #{m2 14033}#) + #{m1 14016}# + (append #{m1 14016}# #{m2 14033}#))) + (let ((#{m2 14042}# (cdr #{w2 14015}#))) + (if (null? #{m2 14042}#) + #{s1 14017}# + (append #{s1 14017}# #{m2 14042}#)))))))) + (#{same-marks? 2761}# + (lambda (#{x 14047}# #{y 14048}#) + (if (eq? #{x 14047}# #{y 14048}#) + (eq? #{x 14047}# #{y 14048}#) + (if (not (null? #{x 14047}#)) + (if (not (null? #{y 14048}#)) + (if (eq? (car #{x 14047}#) (car #{y 14048}#)) + (#{same-marks? 2761}# + (cdr #{x 14047}#) + (cdr #{y 14048}#)) #f) #f) #f)))) - (#{id-var-name 4434}# - (lambda (#{id 15884}# #{w 15885}#) + (#{id-var-name 2762}# + (lambda (#{id 14056}# #{w 14057}#) (letrec* - ((#{search 15886}# - (lambda (#{sym 15947}# #{subst 15948}# #{marks 15949}#) - (if (null? #{subst 15948}#) - (values #f #{marks 15949}#) - (let ((#{fst 15950}# (car #{subst 15948}#))) - (if (eq? #{fst 15950}# 'shift) - (#{search 15886}# - #{sym 15947}# - (cdr #{subst 15948}#) - (cdr #{marks 15949}#)) - (let ((#{symnames 15952}# (vector-ref #{fst 15950}# 1))) - (if (vector? #{symnames 15952}#) - (let ((#{n 15964}# - (vector-length #{symnames 15952}#))) + ((#{search 14058}# + (lambda (#{sym 14119}# #{subst 14120}# #{marks 14121}#) + (if (null? #{subst 14120}#) + (values #f #{marks 14121}#) + (let ((#{fst 14122}# (car #{subst 14120}#))) + (if (eq? #{fst 14122}# 'shift) + (#{search 14058}# + #{sym 14119}# + (cdr #{subst 14120}#) + (cdr #{marks 14121}#)) + (let ((#{symnames 14124}# (vector-ref #{fst 14122}# 1))) + (if (vector? #{symnames 14124}#) + (let ((#{n 14136}# + (vector-length #{symnames 14124}#))) (letrec* - ((#{f 15965}# - (lambda (#{i 15967}#) - (if (= #{i 15967}# #{n 15964}#) - (#{search 15886}# - #{sym 15947}# - (cdr #{subst 15948}#) - #{marks 15949}#) + ((#{f 14137}# + (lambda (#{i 14139}#) + (if (= #{i 14139}# #{n 14136}#) + (#{search 14058}# + #{sym 14119}# + (cdr #{subst 14120}#) + #{marks 14121}#) (if (if (eq? (vector-ref - #{symnames 15952}# - #{i 15967}#) - #{sym 15947}#) - (#{same-marks? 4433}# - #{marks 15949}# + #{symnames 14124}# + #{i 14139}#) + #{sym 14119}#) + (#{same-marks? 2761}# + #{marks 14121}# (vector-ref - (vector-ref #{fst 15950}# 2) - #{i 15967}#)) + (vector-ref #{fst 14122}# 2) + #{i 14139}#)) #f) (values (vector-ref - (vector-ref #{fst 15950}# 3) - #{i 15967}#) - #{marks 15949}#) - (#{f 15965}# (#{1+}# #{i 15967}#))))))) - (#{f 15965}# 0))) + (vector-ref #{fst 14122}# 3) + #{i 14139}#) + #{marks 14121}#) + (#{f 14137}# (#{1+}# #{i 14139}#))))))) + (#{f 14137}# 0))) (letrec* - ((#{f 16000}# - (lambda (#{symnames 16002}# #{i 16003}#) - (if (null? #{symnames 16002}#) - (#{search 15886}# - #{sym 15947}# - (cdr #{subst 15948}#) - #{marks 15949}#) - (if (if (eq? (car #{symnames 16002}#) - #{sym 15947}#) - (#{same-marks? 4433}# - #{marks 15949}# + ((#{f 14172}# + (lambda (#{symnames 14174}# #{i 14175}#) + (if (null? #{symnames 14174}#) + (#{search 14058}# + #{sym 14119}# + (cdr #{subst 14120}#) + #{marks 14121}#) + (if (if (eq? (car #{symnames 14174}#) + #{sym 14119}#) + (#{same-marks? 2761}# + #{marks 14121}# (list-ref - (vector-ref #{fst 15950}# 2) - #{i 16003}#)) + (vector-ref #{fst 14122}# 2) + #{i 14175}#)) #f) (values (list-ref - (vector-ref #{fst 15950}# 3) - #{i 16003}#) - #{marks 15949}#) - (#{f 16000}# - (cdr #{symnames 16002}#) - (#{1+}# #{i 16003}#))))))) - (#{f 16000}# #{symnames 15952}# 0)))))))))) - (if (symbol? #{id 15884}#) - (let ((#{t 15889}# - (#{search 15886}# - #{id 15884}# - (cdr #{w 15885}#) - (car #{w 15885}#)))) - (if #{t 15889}# #{t 15889}# #{id 15884}#)) - (if (if (vector? #{id 15884}#) - (if (= (vector-length #{id 15884}#) 4) - (eq? (vector-ref #{id 15884}# 0) 'syntax-object) + (vector-ref #{fst 14122}# 3) + #{i 14175}#) + #{marks 14121}#) + (#{f 14172}# + (cdr #{symnames 14174}#) + (#{1+}# #{i 14175}#))))))) + (#{f 14172}# #{symnames 14124}# 0)))))))))) + (if (symbol? #{id 14056}#) + (let ((#{t 14061}# + (#{search 14058}# + #{id 14056}# + (cdr #{w 14057}#) + (car #{w 14057}#)))) + (if #{t 14061}# #{t 14061}# #{id 14056}#)) + (if (if (vector? #{id 14056}#) + (if (= (vector-length #{id 14056}#) 4) + (eq? (vector-ref #{id 14056}# 0) 'syntax-object) #f) #f) - (let ((#{id 15904}# (vector-ref #{id 15884}# 1)) - (#{w1 15905}# (vector-ref #{id 15884}# 2))) - (let ((#{marks 15906}# - (let ((#{m1 15916}# (car #{w 15885}#)) - (#{m2 15917}# (car #{w1 15905}#))) - (if (null? #{m2 15917}#) - #{m1 15916}# - (append #{m1 15916}# #{m2 15917}#))))) + (let ((#{id 14076}# (vector-ref #{id 14056}# 1)) + (#{w1 14077}# (vector-ref #{id 14056}# 2))) + (let ((#{marks 14078}# + (let ((#{m1 14088}# (car #{w 14057}#)) + (#{m2 14089}# (car #{w1 14077}#))) + (if (null? #{m2 14089}#) + #{m1 14088}# + (append #{m1 14088}# #{m2 14089}#))))) (call-with-values (lambda () - (#{search 15886}# - #{id 15904}# - (cdr #{w 15885}#) - #{marks 15906}#)) - (lambda (#{new-id 15933}# #{marks 15934}#) - (if #{new-id 15933}# - #{new-id 15933}# - (let ((#{t 15942}# - (#{search 15886}# - #{id 15904}# - (cdr #{w1 15905}#) - #{marks 15934}#))) - (if #{t 15942}# #{t 15942}# #{id 15904}#))))))) + (#{search 14058}# + #{id 14076}# + (cdr #{w 14057}#) + #{marks 14078}#)) + (lambda (#{new-id 14105}# #{marks 14106}#) + (if #{new-id 14105}# + #{new-id 14105}# + (let ((#{t 14114}# + (#{search 14058}# + #{id 14076}# + (cdr #{w1 14077}#) + #{marks 14106}#))) + (if #{t 14114}# #{t 14114}# #{id 14076}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 15884}#)))))) - (#{valid-bound-ids? 4440}# - (lambda (#{ids 16025}#) + #{id 14056}#)))))) + (#{valid-bound-ids? 2768}# + (lambda (#{ids 14197}#) (if (letrec* - ((#{all-ids? 16026}# - (lambda (#{ids 16188}#) - (if (null? #{ids 16188}#) - (null? #{ids 16188}#) - (if (let ((#{x 16199}# (car #{ids 16188}#))) - (if (symbol? #{x 16199}#) + ((#{all-ids? 14198}# + (lambda (#{ids 14360}#) + (if (null? #{ids 14360}#) + (null? #{ids 14360}#) + (if (let ((#{x 14371}# (car #{ids 14360}#))) + (if (symbol? #{x 14371}#) #t - (if (if (vector? #{x 16199}#) - (if (= (vector-length #{x 16199}#) 4) - (eq? (vector-ref #{x 16199}# 0) + (if (if (vector? #{x 14371}#) + (if (= (vector-length #{x 14371}#) 4) + (eq? (vector-ref #{x 14371}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16199}# 1)) + (symbol? (vector-ref #{x 14371}# 1)) #f))) - (#{all-ids? 16026}# (cdr #{ids 16188}#)) + (#{all-ids? 14198}# (cdr #{ids 14360}#)) #f))))) - (#{all-ids? 16026}# #{ids 16025}#)) - (#{distinct-bound-ids? 4441}# #{ids 16025}#) + (#{all-ids? 14198}# #{ids 14197}#)) + (#{distinct-bound-ids? 2769}# #{ids 14197}#) #f))) - (#{distinct-bound-ids? 4441}# - (lambda (#{ids 16327}#) + (#{distinct-bound-ids? 2769}# + (lambda (#{ids 14499}#) (letrec* - ((#{distinct? 16328}# - (lambda (#{ids 16440}#) - (if (null? #{ids 16440}#) - (null? #{ids 16440}#) - (if (not (#{bound-id-member? 4442}# - (car #{ids 16440}#) - (cdr #{ids 16440}#))) - (#{distinct? 16328}# (cdr #{ids 16440}#)) + ((#{distinct? 14500}# + (lambda (#{ids 14612}#) + (if (null? #{ids 14612}#) + (null? #{ids 14612}#) + (if (not (#{bound-id-member? 2770}# + (car #{ids 14612}#) + (cdr #{ids 14612}#))) + (#{distinct? 14500}# (cdr #{ids 14612}#)) #f))))) - (#{distinct? 16328}# #{ids 16327}#)))) - (#{bound-id-member? 4442}# - (lambda (#{x 16650}# #{list 16651}#) - (if (not (null? #{list 16651}#)) - (let ((#{t 16652}# - (let ((#{j 16733}# (car #{list 16651}#))) - (if (if (if (vector? #{x 16650}#) - (if (= (vector-length #{x 16650}#) 4) - (eq? (vector-ref #{x 16650}# 0) + (#{distinct? 14500}# #{ids 14499}#)))) + (#{bound-id-member? 2770}# + (lambda (#{x 14822}# #{list 14823}#) + (if (not (null? #{list 14823}#)) + (let ((#{t 14824}# + (let ((#{j 14905}# (car #{list 14823}#))) + (if (if (if (vector? #{x 14822}#) + (if (= (vector-length #{x 14822}#) 4) + (eq? (vector-ref #{x 14822}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 16733}#) - (if (= (vector-length #{j 16733}#) 4) - (eq? (vector-ref #{j 16733}# 0) 'syntax-object) + (if (vector? #{j 14905}#) + (if (= (vector-length #{j 14905}#) 4) + (eq? (vector-ref #{j 14905}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 16650}# 1) - (vector-ref #{j 16733}# 1)) - (#{same-marks? 4433}# - (car (vector-ref #{x 16650}# 2)) - (car (vector-ref #{j 16733}# 2))) + (if (eq? (vector-ref #{x 14822}# 1) + (vector-ref #{j 14905}# 1)) + (#{same-marks? 2761}# + (car (vector-ref #{x 14822}# 2)) + (car (vector-ref #{j 14905}# 2))) #f) - (eq? #{x 16650}# #{j 16733}#))))) - (if #{t 16652}# - #{t 16652}# - (#{bound-id-member? 4442}# - #{x 16650}# - (cdr #{list 16651}#)))) + (eq? #{x 14822}# #{j 14905}#))))) + (if #{t 14824}# + #{t 14824}# + (#{bound-id-member? 2770}# + #{x 14822}# + (cdr #{list 14823}#)))) #f))) - (#{wrap 4443}# - (lambda (#{x 16777}# #{w 16778}# #{defmod 16779}#) - (if (if (null? (car #{w 16778}#)) - (null? (cdr #{w 16778}#)) + (#{wrap 2771}# + (lambda (#{x 14949}# #{w 14950}# #{defmod 14951}#) + (if (if (null? (car #{w 14950}#)) + (null? (cdr #{w 14950}#)) #f) - #{x 16777}# - (if (if (vector? #{x 16777}#) - (if (= (vector-length #{x 16777}#) 4) - (eq? (vector-ref #{x 16777}# 0) 'syntax-object) + #{x 14949}# + (if (if (vector? #{x 14949}#) + (if (= (vector-length #{x 14949}#) 4) + (eq? (vector-ref #{x 14949}# 0) 'syntax-object) #f) #f) - (let ((#{expression 16793}# (vector-ref #{x 16777}# 1)) - (#{wrap 16794}# - (#{join-wraps 4431}# - #{w 16778}# - (vector-ref #{x 16777}# 2))) - (#{module 16795}# (vector-ref #{x 16777}# 3))) + (let ((#{expression 14965}# (vector-ref #{x 14949}# 1)) + (#{wrap 14966}# + (#{join-wraps 2759}# + #{w 14950}# + (vector-ref #{x 14949}# 2))) + (#{module 14967}# (vector-ref #{x 14949}# 3))) (vector 'syntax-object - #{expression 16793}# - #{wrap 16794}# - #{module 16795}#)) - (if (null? #{x 16777}#) - #{x 16777}# + #{expression 14965}# + #{wrap 14966}# + #{module 14967}#)) + (if (null? #{x 14949}#) + #{x 14949}# (vector 'syntax-object - #{x 16777}# - #{w 16778}# - #{defmod 16779}#)))))) - (#{source-wrap 4444}# - (lambda (#{x 16812}# - #{w 16813}# - #{s 16814}# - #{defmod 16815}#) - (#{wrap 4443}# + #{x 14949}# + #{w 14950}# + #{defmod 14951}#)))))) + (#{source-wrap 2772}# + (lambda (#{x 14984}# + #{w 14985}# + #{s 14986}# + #{defmod 14987}#) + (#{wrap 2771}# (begin - (if (if (pair? #{x 16812}#) #{s 16814}# #f) - (set-source-properties! #{x 16812}# #{s 16814}#)) - #{x 16812}#) - #{w 16813}# - #{defmod 16815}#))) - (#{expand-sequence 4445}# - (lambda (#{body 26205}# - #{r 26206}# - #{w 26207}# - #{s 26208}# - #{mod 26209}#) - (#{build-sequence 4396}# - #{s 26208}# + (if (if (pair? #{x 14984}#) #{s 14986}# #f) + (set-source-properties! #{x 14984}# #{s 14986}#)) + #{x 14984}#) + #{w 14985}# + #{defmod 14987}#))) + (#{expand-sequence 2773}# + (lambda (#{body 24167}# + #{r 24168}# + #{w 24169}# + #{s 24170}# + #{mod 24171}#) + (#{build-sequence 2724}# + #{s 24170}# (letrec* - ((#{dobody 26289}# - (lambda (#{body 26639}# - #{r 26640}# - #{w 26641}# - #{mod 26642}#) - (if (null? #{body 26639}#) + ((#{dobody 24251}# + (lambda (#{body 24601}# + #{r 24602}# + #{w 24603}# + #{mod 24604}#) + (if (null? #{body 24601}#) '() - (let ((#{first 26643}# - (let ((#{e 26647}# (car #{body 26639}#))) + (let ((#{first 24605}# + (let ((#{e 24609}# (car #{body 24601}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 26647}# - #{r 26640}# - #{w 26641}# - (#{source-annotation 4408}# #{e 26647}#) + (#{syntax-type 2777}# + #{e 24609}# + #{r 24602}# + #{w 24603}# + (#{source-annotation 2736}# #{e 24609}#) #f - #{mod 26642}# + #{mod 24604}# #f)) - (lambda (#{type 26654}# - #{value 26655}# - #{e 26656}# - #{w 26657}# - #{s 26658}# - #{mod 26659}#) - (#{expand-expr 4451}# - #{type 26654}# - #{value 26655}# - #{e 26656}# - #{r 26640}# - #{w 26657}# - #{s 26658}# - #{mod 26659}#)))))) - (cons #{first 26643}# - (#{dobody 26289}# - (cdr #{body 26639}#) - #{r 26640}# - #{w 26641}# - #{mod 26642}#))))))) - (#{dobody 26289}# - #{body 26205}# - #{r 26206}# - #{w 26207}# - #{mod 26209}#))))) - (#{expand-top-sequence 4446}# - (lambda (#{body 16833}# - #{r 16834}# - #{w 16835}# - #{s 16836}# - #{m 16837}# - #{esew 16838}# - #{mod 16839}#) + (lambda (#{type 24616}# + #{value 24617}# + #{e 24618}# + #{w 24619}# + #{s 24620}# + #{mod 24621}#) + (#{expand-expr 2779}# + #{type 24616}# + #{value 24617}# + #{e 24618}# + #{r 24602}# + #{w 24619}# + #{s 24620}# + #{mod 24621}#)))))) + (cons #{first 24605}# + (#{dobody 24251}# + (cdr #{body 24601}#) + #{r 24602}# + #{w 24603}# + #{mod 24604}#))))))) + (#{dobody 24251}# + #{body 24167}# + #{r 24168}# + #{w 24169}# + #{mod 24171}#))))) + (#{expand-top-sequence 2774}# + (lambda (#{body 15005}# + #{r 15006}# + #{w 15007}# + #{s 15008}# + #{m 15009}# + #{esew 15010}# + #{mod 15011}#) (letrec* - ((#{scan 16840}# - (lambda (#{body 16971}# - #{r 16972}# - #{w 16973}# - #{s 16974}# - #{m 16975}# - #{esew 16976}# - #{mod 16977}# - #{exps 16978}#) - (if (null? #{body 16971}#) - #{exps 16978}# + ((#{scan 15012}# + (lambda (#{body 15143}# + #{r 15144}# + #{w 15145}# + #{s 15146}# + #{m 15147}# + #{esew 15148}# + #{mod 15149}# + #{exps 15150}#) + (if (null? #{body 15143}#) + #{exps 15150}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 16979}# (car #{body 16971}#))) - (#{syntax-type 4449}# - #{e 16979}# - #{r 16972}# - #{w 16973}# - (let ((#{t 16983}# - (#{source-annotation 4408}# - #{e 16979}#))) - (if #{t 16983}# #{t 16983}# #{s 16974}#)) + (let ((#{e 15151}# (car #{body 15143}#))) + (#{syntax-type 2777}# + #{e 15151}# + #{r 15144}# + #{w 15145}# + (let ((#{t 15155}# + (#{source-annotation 2736}# + #{e 15151}#))) + (if #{t 15155}# #{t 15155}# #{s 15146}#)) #f - #{mod 16977}# + #{mod 15149}# #f))) - (lambda (#{type 17218}# - #{value 17219}# - #{e 17220}# - #{w 17221}# - #{s 17222}# - #{mod 17223}#) - (if (eqv? #{type 17218}# 'begin-form) - (let ((#{tmp 17228}# - ($sc-dispatch #{e 17220}# '(_)))) - (if #{tmp 17228}# + (lambda (#{type 15390}# + #{value 15391}# + #{e 15392}# + #{w 15393}# + #{s 15394}# + #{mod 15395}#) + (if (eqv? #{type 15390}# 'begin-form) + (let ((#{tmp 15400}# + ($sc-dispatch #{e 15392}# '(_)))) + (if #{tmp 15400}# (@apply - (lambda () #{exps 16978}#) - #{tmp 17228}#) - (let ((#{tmp 17232}# + (lambda () #{exps 15150}#) + #{tmp 15400}#) + (let ((#{tmp 15404}# ($sc-dispatch - #{e 17220}# + #{e 15392}# '(_ any . each-any)))) - (if #{tmp 17232}# + (if #{tmp 15404}# (@apply - (lambda (#{e1 17236}# #{e2 17237}#) - (#{scan 16840}# - (cons #{e1 17236}# #{e2 17237}#) - #{r 16972}# - #{w 17221}# - #{s 17222}# - #{m 16975}# - #{esew 16976}# - #{mod 17223}# - #{exps 16978}#)) - #{tmp 17232}#) + (lambda (#{e1 15408}# #{e2 15409}#) + (#{scan 15012}# + (cons #{e1 15408}# #{e2 15409}#) + #{r 15144}# + #{w 15393}# + #{s 15394}# + #{m 15147}# + #{esew 15148}# + #{mod 15395}# + #{exps 15150}#)) + #{tmp 15404}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 17220}#))))) - (if (eqv? #{type 17218}# 'local-syntax-form) - (#{expand-local-syntax 4455}# - #{value 17219}# - #{e 17220}# - #{r 16972}# - #{w 17221}# - #{s 17222}# - #{mod 17223}# - (lambda (#{body 17252}# - #{r 17253}# - #{w 17254}# - #{s 17255}# - #{mod 17256}#) - (#{scan 16840}# - #{body 17252}# - #{r 17253}# - #{w 17254}# - #{s 17255}# - #{m 16975}# - #{esew 16976}# - #{mod 17256}# - #{exps 16978}#))) - (if (eqv? #{type 17218}# 'eval-when-form) - (let ((#{tmp 17261}# + #{e 15392}#))))) + (if (eqv? #{type 15390}# 'local-syntax-form) + (#{expand-local-syntax 2783}# + #{value 15391}# + #{e 15392}# + #{r 15144}# + #{w 15393}# + #{s 15394}# + #{mod 15395}# + (lambda (#{body 15424}# + #{r 15425}# + #{w 15426}# + #{s 15427}# + #{mod 15428}#) + (#{scan 15012}# + #{body 15424}# + #{r 15425}# + #{w 15426}# + #{s 15427}# + #{m 15147}# + #{esew 15148}# + #{mod 15428}# + #{exps 15150}#))) + (if (eqv? #{type 15390}# 'eval-when-form) + (let ((#{tmp 15433}# ($sc-dispatch - #{e 17220}# + #{e 15392}# '(_ each-any any . each-any)))) - (if #{tmp 17261}# + (if #{tmp 15433}# (@apply - (lambda (#{x 17265}# - #{e1 17266}# - #{e2 17267}#) - (let ((#{when-list 17268}# - (#{parse-when-list 4448}# - #{e 17220}# - #{x 17265}#)) - (#{body 17269}# - (cons #{e1 17266}# - #{e2 17267}#))) - (if (eq? #{m 16975}# 'e) + (lambda (#{x 15437}# + #{e1 15438}# + #{e2 15439}#) + (let ((#{when-list 15440}# + (#{parse-when-list 2776}# + #{e 15392}# + #{x 15437}#)) + (#{body 15441}# + (cons #{e1 15438}# + #{e2 15439}#))) + (if (eq? #{m 15147}# 'e) (if (memq 'eval - #{when-list 17268}#) - (#{scan 16840}# - #{body 17269}# - #{r 16972}# - #{w 17221}# - #{s 17222}# + #{when-list 15440}#) + (#{scan 15012}# + #{body 15441}# + #{r 15144}# + #{w 15393}# + #{s 15394}# (if (memq 'expand - #{when-list 17268}#) + #{when-list 15440}#) 'c&e 'e) '(eval) - #{mod 17223}# - #{exps 16978}#) + #{mod 15395}# + #{exps 15150}#) (begin (if (memq 'expand - #{when-list 17268}#) - (let ((#{x 17346}# - (#{expand-top-sequence 4446}# - #{body 17269}# - #{r 16972}# - #{w 17221}# - #{s 17222}# + #{when-list 15440}#) + (let ((#{x 15518}# + (#{expand-top-sequence 2774}# + #{body 15441}# + #{r 15144}# + #{w 15393}# + #{s 15394}# 'e '(eval) - #{mod 17223}#))) + #{mod 15395}#))) (primitive-eval - #{x 17346}#))) - (values #{exps 16978}#))) + #{x 15518}#))) + (values #{exps 15150}#))) (if (memq 'load - #{when-list 17268}#) - (if (let ((#{t 17372}# + #{when-list 15440}#) + (if (let ((#{t 15544}# (memq 'compile - #{when-list 17268}#))) - (if #{t 17372}# - #{t 17372}# - (let ((#{t 17421}# + #{when-list 15440}#))) + (if #{t 15544}# + #{t 15544}# + (let ((#{t 15593}# (memq 'expand - #{when-list 17268}#))) - (if #{t 17421}# - #{t 17421}# - (if (eq? #{m 16975}# + #{when-list 15440}#))) + (if #{t 15593}# + #{t 15593}# + (if (eq? #{m 15147}# 'c&e) (memq 'eval - #{when-list 17268}#) + #{when-list 15440}#) #f))))) - (#{scan 16840}# - #{body 17269}# - #{r 16972}# - #{w 17221}# - #{s 17222}# + (#{scan 15012}# + #{body 15441}# + #{r 15144}# + #{w 15393}# + #{s 15394}# 'c&e '(compile load) - #{mod 17223}# - #{exps 16978}#) - (if (if (eq? #{m 16975}# 'c) + #{mod 15395}# + #{exps 15150}#) + (if (if (eq? #{m 15147}# 'c) #t - (eq? #{m 16975}# 'c&e)) - (#{scan 16840}# - #{body 17269}# - #{r 16972}# - #{w 17221}# - #{s 17222}# + (eq? #{m 15147}# 'c&e)) + (#{scan 15012}# + #{body 15441}# + #{r 15144}# + #{w 15393}# + #{s 15394}# 'c '(load) - #{mod 17223}# - #{exps 16978}#) - (values #{exps 16978}#))) - (if (let ((#{t 17550}# + #{mod 15395}# + #{exps 15150}#) + (values #{exps 15150}#))) + (if (let ((#{t 15722}# (memq 'compile - #{when-list 17268}#))) - (if #{t 17550}# - #{t 17550}# - (let ((#{t 17599}# + #{when-list 15440}#))) + (if #{t 15722}# + #{t 15722}# + (let ((#{t 15771}# (memq 'expand - #{when-list 17268}#))) - (if #{t 17599}# - #{t 17599}# - (if (eq? #{m 16975}# + #{when-list 15440}#))) + (if #{t 15771}# + #{t 15771}# + (if (eq? #{m 15147}# 'c&e) (memq 'eval - #{when-list 17268}#) + #{when-list 15440}#) #f))))) (begin - (let ((#{x 17723}# - (#{expand-top-sequence 4446}# - #{body 17269}# - #{r 16972}# - #{w 17221}# - #{s 17222}# + (let ((#{x 15895}# + (#{expand-top-sequence 2774}# + #{body 15441}# + #{r 15144}# + #{w 15393}# + #{s 15394}# 'e '(eval) - #{mod 17223}#))) + #{mod 15395}#))) (primitive-eval - #{x 17723}#)) - (values #{exps 16978}#)) - (values #{exps 16978}#)))))) - #{tmp 17261}#) + #{x 15895}#)) + (values #{exps 15150}#)) + (values #{exps 15150}#)))))) + #{tmp 15433}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 17220}#))) - (if (if (eqv? #{type 17218}# + #{e 15392}#))) + (if (if (eqv? #{type 15390}# 'define-syntax-form) #t - (eqv? #{type 17218}# + (eqv? #{type 15390}# 'define-syntax-parameter-form)) - (let ((#{n 17769}# - (#{id-var-name 4434}# - #{value 17219}# - #{w 17221}#)) - (#{r 17770}# - (#{macros-only-env 4411}# - #{r 16972}#))) - (if (eqv? #{m 16975}# 'c) - (if (memq 'compile #{esew 16976}#) - (let ((#{e 17774}# - (#{expand-install-global 4447}# - #{n 17769}# - (#{expand 4450}# - #{e 17220}# - #{r 17770}# - #{w 17221}# - #{mod 17223}#)))) + (let ((#{n 15941}# + (#{id-var-name 2762}# + #{value 15391}# + #{w 15393}#)) + (#{r 15942}# + (#{macros-only-env 2739}# + #{r 15144}#))) + (if (eqv? #{m 15147}# 'c) + (if (memq 'compile #{esew 15148}#) + (let ((#{e 15946}# + (#{expand-install-global 2775}# + #{n 15941}# + (#{expand 2778}# + #{e 15392}# + #{r 15942}# + #{w 15393}# + #{mod 15395}#)))) (begin - (#{top-level-eval-hook 4375}# - #{e 17774}# - #{mod 17223}#) - (if (memq 'load #{esew 16976}#) + (#{top-level-eval-hook 2703}# + #{e 15946}# + #{mod 15395}#) + (if (memq 'load #{esew 15148}#) (values - (cons #{e 17774}# - #{exps 16978}#)) - (values #{exps 16978}#)))) - (if (memq 'load #{esew 16976}#) + (cons #{e 15946}# + #{exps 15150}#)) + (values #{exps 15150}#)))) + (if (memq 'load #{esew 15148}#) (values - (cons (#{expand-install-global 4447}# - #{n 17769}# - (#{expand 4450}# - #{e 17220}# - #{r 17770}# - #{w 17221}# - #{mod 17223}#)) - #{exps 16978}#)) - (values #{exps 16978}#))) - (if (eqv? #{m 16975}# 'c&e) - (let ((#{e 18221}# - (#{expand-install-global 4447}# - #{n 17769}# - (#{expand 4450}# - #{e 17220}# - #{r 17770}# - #{w 17221}# - #{mod 17223}#)))) + (cons (#{expand-install-global 2775}# + #{n 15941}# + (#{expand 2778}# + #{e 15392}# + #{r 15942}# + #{w 15393}# + #{mod 15395}#)) + #{exps 15150}#)) + (values #{exps 15150}#))) + (if (eqv? #{m 15147}# 'c&e) + (let ((#{e 16393}# + (#{expand-install-global 2775}# + #{n 15941}# + (#{expand 2778}# + #{e 15392}# + #{r 15942}# + #{w 15393}# + #{mod 15395}#)))) (begin - (#{top-level-eval-hook 4375}# - #{e 18221}# - #{mod 17223}#) + (#{top-level-eval-hook 2703}# + #{e 16393}# + #{mod 15395}#) (values - (cons #{e 18221}# - #{exps 16978}#)))) + (cons #{e 16393}# + #{exps 15150}#)))) (begin - (if (memq 'eval #{esew 16976}#) - (#{top-level-eval-hook 4375}# - (#{expand-install-global 4447}# - #{n 17769}# - (#{expand 4450}# - #{e 17220}# - #{r 17770}# - #{w 17221}# - #{mod 17223}#)) - #{mod 17223}#)) - (values #{exps 16978}#))))) - (if (eqv? #{type 17218}# 'define-form) - (let ((#{n 18856}# - (#{id-var-name 4434}# - #{value 17219}# - #{w 17221}#))) - (let ((#{type 18857}# - (car (let ((#{t 18864}# - (assq #{n 18856}# - #{r 16972}#))) - (if #{t 18864}# - (cdr #{t 18864}#) + (if (memq 'eval #{esew 15148}#) + (#{top-level-eval-hook 2703}# + (#{expand-install-global 2775}# + #{n 15941}# + (#{expand 2778}# + #{e 15392}# + #{r 15942}# + #{w 15393}# + #{mod 15395}#)) + #{mod 15395}#)) + (values #{exps 15150}#))))) + (if (eqv? #{type 15390}# 'define-form) + (let ((#{n 17028}# + (#{id-var-name 2762}# + #{value 15391}# + #{w 15393}#))) + (let ((#{type 17029}# + (car (let ((#{t 17036}# + (assq #{n 17028}# + #{r 15144}#))) + (if #{t 17036}# + (cdr #{t 17036}#) (if (symbol? - #{n 18856}#) - (let ((#{t 18870}# - (#{get-global-definition-hook 4378}# - #{n 18856}# - #{mod 17223}#))) - (if #{t 18870}# - #{t 18870}# + #{n 17028}#) + (let ((#{t 17042}# + (#{get-global-definition-hook 2706}# + #{n 17028}# + #{mod 15395}#))) + (if #{t 17042}# + #{t 17042}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type 18857}# 'global) + (if (if (eqv? #{type 17029}# 'global) #t - (if (eqv? #{type 18857}# 'core) + (if (eqv? #{type 17029}# 'core) #t - (if (eqv? #{type 18857}# + (if (eqv? #{type 17029}# 'macro) #t - (eqv? #{type 18857}# + (eqv? #{type 17029}# 'module-ref)))) (begin - (if (if (if (eq? #{m 16975}# 'c) + (if (if (if (eq? #{m 15147}# 'c) #t - (eq? #{m 16975}# 'c&e)) + (eq? #{m 15147}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 18856}#)) + #{n 17028}#)) (current-module) #f) #f) - (let ((#{old 18901}# + (let ((#{old 17073}# (module-variable (current-module) - #{n 18856}#))) + #{n 17028}#))) (if (if (variable? - #{old 18901}#) + #{old 17073}#) (variable-bound? - #{old 18901}#) + #{old 17073}#) #f) (module-define! (current-module) - #{n 18856}# + #{n 17028}# (variable-ref - #{old 18901}#)) + #{old 17073}#)) (module-add! (current-module) - #{n 18856}# + #{n 17028}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 16975}# 'c&e) - (let ((#{x 18903}# - (#{build-global-definition 4390}# - #{s 17222}# - #{n 18856}# - (#{expand 4450}# - #{e 17220}# - #{r 16972}# - #{w 17221}# - #{mod 17223}#)))) + (cons (if (eq? #{m 15147}# 'c&e) + (let ((#{x 17075}# + (#{build-global-definition 2718}# + #{s 15394}# + #{n 17028}# + (#{expand 2778}# + #{e 15392}# + #{r 15144}# + #{w 15393}# + #{mod 15395}#)))) (begin - (#{top-level-eval-hook 4375}# - #{x 18903}# - #{mod 17223}#) - #{x 18903}#)) + (#{top-level-eval-hook 2703}# + #{x 17075}# + #{mod 15395}#) + #{x 17075}#)) (lambda () - (#{build-global-definition 4390}# - #{s 17222}# - #{n 18856}# - (#{expand 4450}# - #{e 17220}# - #{r 16972}# - #{w 17221}# - #{mod 17223}#)))) - #{exps 16978}#))) - (if (eqv? #{type 18857}# + (#{build-global-definition 2718}# + #{s 15394}# + #{n 17028}# + (#{expand 2778}# + #{e 15392}# + #{r 15144}# + #{w 15393}# + #{mod 15395}#)))) + #{exps 15150}#))) + (if (eqv? #{type 17029}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 17220}# - (#{wrap 4443}# - #{value 17219}# - #{w 17221}# - #{mod 17223}#)) + #{e 15392}# + (#{wrap 2771}# + #{value 15391}# + #{w 15393}# + #{mod 15395}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 17220}# - (#{wrap 4443}# - #{value 17219}# - #{w 17221}# - #{mod 17223}#)))))) + #{e 15392}# + (#{wrap 2771}# + #{value 15391}# + #{w 15393}# + #{mod 15395}#)))))) (values - (cons (if (eq? #{m 16975}# 'c&e) - (let ((#{x 19349}# - (#{expand-expr 4451}# - #{type 17218}# - #{value 17219}# - #{e 17220}# - #{r 16972}# - #{w 17221}# - #{s 17222}# - #{mod 17223}#))) + (cons (if (eq? #{m 15147}# 'c&e) + (let ((#{x 17521}# + (#{expand-expr 2779}# + #{type 15390}# + #{value 15391}# + #{e 15392}# + #{r 15144}# + #{w 15393}# + #{s 15394}# + #{mod 15395}#))) (begin - (primitive-eval #{x 19349}#) - #{x 19349}#)) + (primitive-eval #{x 17521}#) + #{x 17521}#)) (lambda () - (#{expand-expr 4451}# - #{type 17218}# - #{value 17219}# - #{e 17220}# - #{r 16972}# - #{w 17221}# - #{s 17222}# - #{mod 17223}#))) - #{exps 16978}#)))))))))) - (lambda (#{exps 19358}#) - (#{scan 16840}# - (cdr #{body 16971}#) - #{r 16972}# - #{w 16973}# - #{s 16974}# - #{m 16975}# - #{esew 16976}# - #{mod 16977}# - #{exps 19358}#))))))) + (#{expand-expr 2779}# + #{type 15390}# + #{value 15391}# + #{e 15392}# + #{r 15144}# + #{w 15393}# + #{s 15394}# + #{mod 15395}#))) + #{exps 15150}#)))))))))) + (lambda (#{exps 17530}#) + (#{scan 15012}# + (cdr #{body 15143}#) + #{r 15144}# + #{w 15145}# + #{s 15146}# + #{m 15147}# + #{esew 15148}# + #{mod 15149}# + #{exps 17530}#))))))) (call-with-values (lambda () - (#{scan 16840}# - #{body 16833}# - #{r 16834}# - #{w 16835}# - #{s 16836}# - #{m 16837}# - #{esew 16838}# - #{mod 16839}# + (#{scan 15012}# + #{body 15005}# + #{r 15006}# + #{w 15007}# + #{s 15008}# + #{m 15009}# + #{esew 15010}# + #{mod 15011}# '())) - (lambda (#{exps 16843}#) - (if (null? #{exps 16843}#) + (lambda (#{exps 15015}#) + (if (null? #{exps 15015}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 16836}#) - (#{build-sequence 4396}# - #{s 16836}# + #{s 15008}#) + (#{build-sequence 2724}# + #{s 15008}# (letrec* - ((#{lp 16883}# - (lambda (#{in 16967}# #{out 16968}#) - (if (null? #{in 16967}#) - #{out 16968}# - (let ((#{e 16969}# (car #{in 16967}#))) - (#{lp 16883}# - (cdr #{in 16967}#) - (cons (if (procedure? #{e 16969}#) - (#{e 16969}#) - #{e 16969}#) - #{out 16968}#))))))) - (#{lp 16883}# #{exps 16843}# '()))))))))) - (#{expand-install-global 4447}# - (lambda (#{name 19359}# #{e 19360}#) - (let ((#{exp 19366}# - (let ((#{fun-exp 19376}# + ((#{lp 15055}# + (lambda (#{in 15139}# #{out 15140}#) + (if (null? #{in 15139}#) + #{out 15140}# + (let ((#{e 15141}# (car #{in 15139}#))) + (#{lp 15055}# + (cdr #{in 15139}#) + (cons (if (procedure? #{e 15141}#) + (#{e 15141}#) + #{e 15141}#) + #{out 15140}#))))))) + (#{lp 15055}# #{exps 15015}# '()))))))))) + (#{expand-install-global 2775}# + (lambda (#{name 17531}# #{e 17532}#) + (let ((#{exp 17538}# + (let ((#{fun-exp 17548}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1251,391 +1252,391 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 19377}# + (#{arg-exps 17549}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 19359}#) + #{name 17531}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 19360}#))) + #{e 17532}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 19376}# - #{arg-exps 19377}#)))) + #{fun-exp 17548}# + #{arg-exps 17549}#)))) (begin - (if (if (struct? #{exp 19366}#) - (eq? (struct-vtable #{exp 19366}#) + (if (if (struct? #{exp 17538}#) + (eq? (struct-vtable #{exp 17538}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 19418}# (struct-ref #{exp 19366}# 1))) - (if (not (assq 'name #{meta 19418}#)) - (let ((#{v 19425}# - (cons (cons 'name #{name 19359}#) #{meta 19418}#))) - (struct-set! #{exp 19366}# 1 #{v 19425}#))))) + (let ((#{meta 17590}# (struct-ref #{exp 17538}# 1))) + (if (not (assq 'name #{meta 17590}#)) + (let ((#{v 17597}# + (cons (cons 'name #{name 17531}#) #{meta 17590}#))) + (struct-set! #{exp 17538}# 1 #{v 17597}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 19359}# - #{exp 19366}#))))) - (#{parse-when-list 4448}# - (lambda (#{e 19436}# #{when-list 19437}#) - (let ((#{result 19438}# - (#{strip 4463}# #{when-list 19437}# '(())))) + #{name 17531}# + #{exp 17538}#))))) + (#{parse-when-list 2776}# + (lambda (#{e 17608}# #{when-list 17609}#) + (let ((#{result 17610}# + (#{strip 2791}# #{when-list 17609}# '(())))) (letrec* - ((#{lp 19439}# - (lambda (#{l 19493}#) - (if (null? #{l 19493}#) - #{result 19438}# - (if (let ((#{t 19495}# (car #{l 19493}#))) - (if (eq? #{t 19495}# 'compile) + ((#{lp 17611}# + (lambda (#{l 17665}#) + (if (null? #{l 17665}#) + #{result 17610}# + (if (let ((#{t 17667}# (car #{l 17665}#))) + (if (eq? #{t 17667}# 'compile) #t - (if (eq? #{t 19495}# 'load) + (if (eq? #{t 17667}# 'load) #t - (if (eq? #{t 19495}# 'eval) + (if (eq? #{t 17667}# 'eval) #t - (eq? #{t 19495}# 'expand))))) - (#{lp 19439}# (cdr #{l 19493}#)) + (eq? #{t 17667}# 'expand))))) + (#{lp 17611}# (cdr #{l 17665}#)) (syntax-violation 'eval-when "invalid situation" - #{e 19436}# - (car #{l 19493}#))))))) - (#{lp 19439}# #{result 19438}#))))) - (#{syntax-type 4449}# - (lambda (#{e 19497}# - #{r 19498}# - #{w 19499}# - #{s 19500}# - #{rib 19501}# - #{mod 19502}# - #{for-car? 19503}#) - (if (symbol? #{e 19497}#) - (let ((#{n 19504}# - (#{id-var-name 4434}# #{e 19497}# #{w 19499}#))) - (let ((#{b 19505}# - (let ((#{t 19513}# (assq #{n 19504}# #{r 19498}#))) - (if #{t 19513}# - (cdr #{t 19513}#) - (if (symbol? #{n 19504}#) - (let ((#{t 19519}# - (#{get-global-definition-hook 4378}# - #{n 19504}# - #{mod 19502}#))) - (if #{t 19519}# #{t 19519}# '(global))) + #{e 17608}# + (car #{l 17665}#))))))) + (#{lp 17611}# #{result 17610}#))))) + (#{syntax-type 2777}# + (lambda (#{e 17669}# + #{r 17670}# + #{w 17671}# + #{s 17672}# + #{rib 17673}# + #{mod 17674}# + #{for-car? 17675}#) + (if (symbol? #{e 17669}#) + (let ((#{n 17676}# + (#{id-var-name 2762}# #{e 17669}# #{w 17671}#))) + (let ((#{b 17677}# + (let ((#{t 17685}# (assq #{n 17676}# #{r 17670}#))) + (if #{t 17685}# + (cdr #{t 17685}#) + (if (symbol? #{n 17676}#) + (let ((#{t 17691}# + (#{get-global-definition-hook 2706}# + #{n 17676}# + #{mod 17674}#))) + (if #{t 17691}# #{t 17691}# '(global))) '(displaced-lexical)))))) - (let ((#{type 19506}# (car #{b 19505}#))) - (if (eqv? #{type 19506}# 'lexical) + (let ((#{type 17678}# (car #{b 17677}#))) + (if (eqv? #{type 17678}# 'lexical) (values - #{type 19506}# - (cdr #{b 19505}#) - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{type 19506}# 'global) + #{type 17678}# + (cdr #{b 17677}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{type 17678}# 'global) (values - #{type 19506}# - #{n 19504}# - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{type 19506}# 'macro) - (if #{for-car? 19503}# + #{type 17678}# + #{n 17676}# + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{type 17678}# 'macro) + (if #{for-car? 17675}# (values - #{type 19506}# - (cdr #{b 19505}#) - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (#{syntax-type 4449}# - (#{expand-macro 4453}# - (cdr #{b 19505}#) - #{e 19497}# - #{r 19498}# - #{w 19499}# - #{s 19500}# - #{rib 19501}# - #{mod 19502}#) - #{r 19498}# + #{type 17678}# + (cdr #{b 17677}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (#{syntax-type 2777}# + (#{expand-macro 2781}# + (cdr #{b 17677}#) + #{e 17669}# + #{r 17670}# + #{w 17671}# + #{s 17672}# + #{rib 17673}# + #{mod 17674}#) + #{r 17670}# '(()) - #{s 19500}# - #{rib 19501}# - #{mod 19502}# + #{s 17672}# + #{rib 17673}# + #{mod 17674}# #f)) (values - #{type 19506}# - (cdr #{b 19505}#) - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#))))))) - (if (pair? #{e 19497}#) - (let ((#{first 19539}# (car #{e 19497}#))) + #{type 17678}# + (cdr #{b 17677}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#))))))) + (if (pair? #{e 17669}#) + (let ((#{first 17711}# (car #{e 17669}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{first 19539}# - #{r 19498}# - #{w 19499}# - #{s 19500}# - #{rib 19501}# - #{mod 19502}# + (#{syntax-type 2777}# + #{first 17711}# + #{r 17670}# + #{w 17671}# + #{s 17672}# + #{rib 17673}# + #{mod 17674}# #t)) - (lambda (#{ftype 19541}# - #{fval 19542}# - #{fe 19543}# - #{fw 19544}# - #{fs 19545}# - #{fmod 19546}#) - (if (eqv? #{ftype 19541}# 'lexical) + (lambda (#{ftype 17713}# + #{fval 17714}# + #{fe 17715}# + #{fw 17716}# + #{fs 17717}# + #{fmod 17718}#) + (if (eqv? #{ftype 17713}# 'lexical) (values 'lexical-call - #{fval 19542}# - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'global) + #{fval 17714}# + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'global) (values 'global-call (vector 'syntax-object - #{fval 19542}# - #{w 19499}# - #{fmod 19546}#) - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'macro) - (#{syntax-type 4449}# - (#{expand-macro 4453}# - #{fval 19542}# - #{e 19497}# - #{r 19498}# - #{w 19499}# - #{s 19500}# - #{rib 19501}# - #{mod 19502}#) - #{r 19498}# + #{fval 17714}# + #{w 17671}# + #{fmod 17718}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'macro) + (#{syntax-type 2777}# + (#{expand-macro 2781}# + #{fval 17714}# + #{e 17669}# + #{r 17670}# + #{w 17671}# + #{s 17672}# + #{rib 17673}# + #{mod 17674}#) + #{r 17670}# '(()) - #{s 19500}# - #{rib 19501}# - #{mod 19502}# - #{for-car? 19503}#) - (if (eqv? #{ftype 19541}# 'module-ref) + #{s 17672}# + #{rib 17673}# + #{mod 17674}# + #{for-car? 17675}#) + (if (eqv? #{ftype 17713}# 'module-ref) (call-with-values (lambda () - (#{fval 19542}# - #{e 19497}# - #{r 19498}# - #{w 19499}#)) - (lambda (#{e 19567}# - #{r 19568}# - #{w 19569}# - #{s 19570}# - #{mod 19571}#) - (#{syntax-type 4449}# - #{e 19567}# - #{r 19568}# - #{w 19569}# - #{s 19570}# - #{rib 19501}# - #{mod 19571}# - #{for-car? 19503}#))) - (if (eqv? #{ftype 19541}# 'core) + (#{fval 17714}# + #{e 17669}# + #{r 17670}# + #{w 17671}#)) + (lambda (#{e 17739}# + #{r 17740}# + #{w 17741}# + #{s 17742}# + #{mod 17743}#) + (#{syntax-type 2777}# + #{e 17739}# + #{r 17740}# + #{w 17741}# + #{s 17742}# + #{rib 17673}# + #{mod 17743}# + #{for-car? 17675}#))) + (if (eqv? #{ftype 17713}# 'core) (values 'core-form - #{fval 19542}# - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'local-syntax) + #{fval 17714}# + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'local-syntax) (values 'local-syntax-form - #{fval 19542}# - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'begin) + #{fval 17714}# + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'begin) (values 'begin-form #f - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'eval-when) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'eval-when) (values 'eval-when-form #f - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) - (if (eqv? #{ftype 19541}# 'define) - (let ((#{tmp 19588}# + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) + (if (eqv? #{ftype 17713}# 'define) + (let ((#{tmp 17760}# ($sc-dispatch - #{e 19497}# + #{e 17669}# '(_ any any)))) - (if (if #{tmp 19588}# + (if (if #{tmp 17760}# (@apply - (lambda (#{name 19592}# - #{val 19593}#) - (if (symbol? #{name 19592}#) + (lambda (#{name 17764}# + #{val 17765}#) + (if (symbol? #{name 17764}#) #t (if (if (vector? - #{name 19592}#) + #{name 17764}#) (if (= (vector-length - #{name 19592}#) + #{name 17764}#) 4) (eq? (vector-ref - #{name 19592}# + #{name 17764}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 19592}# + #{name 17764}# 1)) #f))) - #{tmp 19588}#) + #{tmp 17760}#) #f) (@apply - (lambda (#{name 19620}# - #{val 19621}#) + (lambda (#{name 17792}# + #{val 17793}#) (values 'define-form - #{name 19620}# - #{val 19621}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#)) - #{tmp 19588}#) - (let ((#{tmp 19622}# + #{name 17792}# + #{val 17793}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#)) + #{tmp 17760}#) + (let ((#{tmp 17794}# ($sc-dispatch - #{e 19497}# + #{e 17669}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 19622}# + (if (if #{tmp 17794}# (@apply - (lambda (#{name 19626}# - #{args 19627}# - #{e1 19628}# - #{e2 19629}#) + (lambda (#{name 17798}# + #{args 17799}# + #{e1 17800}# + #{e2 17801}#) (if (if (symbol? - #{name 19626}#) + #{name 17798}#) #t (if (if (vector? - #{name 19626}#) + #{name 17798}#) (if (= (vector-length - #{name 19626}#) + #{name 17798}#) 4) (eq? (vector-ref - #{name 19626}# + #{name 17798}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 19626}# + #{name 17798}# 1)) #f)) - (#{valid-bound-ids? 4440}# + (#{valid-bound-ids? 2768}# (letrec* - ((#{lvl 19778}# - (lambda (#{vars 19780}# - #{ls 19781}# - #{w 19782}#) - (if (pair? #{vars 19780}#) - (#{lvl 19778}# - (cdr #{vars 19780}#) - (cons (#{wrap 4443}# - (car #{vars 19780}#) - #{w 19782}# + ((#{lvl 17950}# + (lambda (#{vars 17952}# + #{ls 17953}# + #{w 17954}#) + (if (pair? #{vars 17952}#) + (#{lvl 17950}# + (cdr #{vars 17952}#) + (cons (#{wrap 2771}# + (car #{vars 17952}#) + #{w 17954}# #f) - #{ls 19781}#) - #{w 19782}#) + #{ls 17953}#) + #{w 17954}#) (if (if (symbol? - #{vars 19780}#) + #{vars 17952}#) #t (if (if (vector? - #{vars 19780}#) + #{vars 17952}#) (if (= (vector-length - #{vars 19780}#) + #{vars 17952}#) 4) (eq? (vector-ref - #{vars 19780}# + #{vars 17952}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 19780}# + #{vars 17952}# 1)) #f)) - (cons (#{wrap 4443}# - #{vars 19780}# - #{w 19782}# + (cons (#{wrap 2771}# + #{vars 17952}# + #{w 17954}# #f) - #{ls 19781}#) - (if (null? #{vars 19780}#) - #{ls 19781}# + #{ls 17953}#) + (if (null? #{vars 17952}#) + #{ls 17953}# (if (if (vector? - #{vars 19780}#) + #{vars 17952}#) (if (= (vector-length - #{vars 19780}#) + #{vars 17952}#) 4) (eq? (vector-ref - #{vars 19780}# + #{vars 17952}# 0) 'syntax-object) #f) #f) - (#{lvl 19778}# + (#{lvl 17950}# (vector-ref - #{vars 19780}# + #{vars 17952}# 1) - #{ls 19781}# - (#{join-wraps 4431}# - #{w 19782}# + #{ls 17953}# + (#{join-wraps 2759}# + #{w 17954}# (vector-ref - #{vars 19780}# + #{vars 17952}# 2))) - (cons #{vars 19780}# - #{ls 19781}#)))))))) - (#{lvl 19778}# - #{args 19627}# + (cons #{vars 17952}# + #{ls 17953}#)))))))) + (#{lvl 17950}# + #{args 17799}# '() '(())))) #f)) - #{tmp 19622}#) + #{tmp 17794}#) #f) (@apply - (lambda (#{name 19826}# - #{args 19827}# - #{e1 19828}# - #{e2 19829}#) + (lambda (#{name 17998}# + #{args 17999}# + #{e1 18000}# + #{e2 18001}#) (values 'define-form - (#{wrap 4443}# - #{name 19826}# - #{w 19499}# - #{mod 19502}#) - (let ((#{e 19835}# + (#{wrap 2771}# + #{name 17998}# + #{w 17671}# + #{mod 17674}#) + (let ((#{e 18007}# (cons '#(syntax-object lambda ((top) @@ -1648,10 +1649,10 @@ (top) (top) (top)) - #("i1899" - "i1900" - "i1901" - "i1902")) + #("kg" + "kh" + "ki" + "kj")) #(ribcage () () @@ -1673,12 +1674,12 @@ (top) (top) (top)) - #("i1852" - "i1853" - "i1854" - "i1855" - "i1856" - "i1857")) + #("jx" + "jy" + "jz" + "k0" + "k1" + "k2")) #(ribcage () () @@ -1686,7 +1687,7 @@ #(ribcage #(first) #((top)) - #("i1844")) + #("jw")) #(ribcage () () @@ -1714,13 +1715,13 @@ (top) (top) (top)) - #("i1816" - "i1817" - "i1818" - "i1819" - "i1820" - "i1821" - "i1822")) + #("jm" + "jn" + "jo" + "jp" + "jq" + "jr" + "js")) #(ribcage (lambda-var-list gen-var @@ -2000,145 +2001,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -2146,72 +2147,72 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" + "7" + "6"))) (hygiene guile)) - (#{wrap 4443}# - (cons #{args 19827}# - (cons #{e1 19828}# - #{e2 19829}#)) - #{w 19499}# - #{mod 19502}#)))) + (#{wrap 2771}# + (cons #{args 17999}# + (cons #{e1 18000}# + #{e2 18001}#)) + #{w 17671}# + #{mod 17674}#)))) (begin - (if (if (pair? #{e 19835}#) - #{s 19500}# + (if (if (pair? #{e 18007}#) + #{s 17672}# #f) (set-source-properties! - #{e 19835}# - #{s 19500}#)) - #{e 19835}#)) + #{e 18007}# + #{s 17672}#)) + #{e 18007}#)) '(()) - #{s 19500}# - #{mod 19502}#)) - #{tmp 19622}#) - (let ((#{tmp 19842}# + #{s 17672}# + #{mod 17674}#)) + #{tmp 17794}#) + (let ((#{tmp 18014}# ($sc-dispatch - #{e 19497}# + #{e 17669}# '(_ any)))) - (if (if #{tmp 19842}# + (if (if #{tmp 18014}# (@apply - (lambda (#{name 19846}#) + (lambda (#{name 18018}#) (if (symbol? - #{name 19846}#) + #{name 18018}#) #t (if (if (vector? - #{name 19846}#) + #{name 18018}#) (if (= (vector-length - #{name 19846}#) + #{name 18018}#) 4) (eq? (vector-ref - #{name 19846}# + #{name 18018}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 19846}# + #{name 18018}# 1)) #f))) - #{tmp 19842}#) + #{tmp 18014}#) #f) (@apply - (lambda (#{name 19873}#) + (lambda (#{name 18045}#) (values 'define-form - (#{wrap 4443}# - #{name 19873}# - #{w 19499}# - #{mod 19502}#) + (#{wrap 2771}# + #{name 18045}# + #{w 17671}# + #{mod 17674}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1912")) + #("kl")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2227,17 +2228,17 @@ (top) (top) (top)) - #("i1852" - "i1853" - "i1854" - "i1855" - "i1856" - "i1857")) + #("jx" + "jy" + "jz" + "k0" + "k1" + "k2")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1844")) + #("jw")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2256,13 +2257,13 @@ (top) (top) (top)) - #("i1816" - "i1817" - "i1818" - "i1819" - "i1820" - "i1821" - "i1822")) + #("jm" + "jn" + "jo" + "jp" + "jq" + "jr" + "js")) #(ribcage (lambda-var-list gen-var @@ -2542,145 +2543,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -2688,9 +2689,7 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -2698,7 +2697,7 @@ #(ribcage #(name) #((top)) - #("i1912")) + #("kl")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2714,17 +2713,17 @@ (top) (top) (top)) - #("i1852" - "i1853" - "i1854" - "i1855" - "i1856" - "i1857")) + #("jx" + "jy" + "jz" + "k0" + "k1" + "k2")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1844")) + #("jw")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2743,13 +2742,13 @@ (top) (top) (top)) - #("i1816" - "i1817" - "i1818" - "i1819" - "i1820" - "i1821" - "i1822")) + #("jm" + "jn" + "jo" + "jp" + "jq" + "jr" + "js")) #(ribcage (lambda-var-list gen-var @@ -3029,145 +3028,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3175,9 +3174,7 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -3185,7 +3182,7 @@ #(ribcage #(name) #((top)) - #("i1912")) + #("kl")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3201,17 +3198,17 @@ (top) (top) (top)) - #("i1852" - "i1853" - "i1854" - "i1855" - "i1856" - "i1857")) + #("jx" + "jy" + "jz" + "k0" + "k1" + "k2")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1844")) + #("jw")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3230,13 +3227,13 @@ (top) (top) (top)) - #("i1816" - "i1817" - "i1818" - "i1819" - "i1820" - "i1821" - "i1822")) + #("jm" + "jn" + "jo" + "jp" + "jq" + "jr" + "js")) #(ribcage (lambda-var-list gen-var @@ -3516,145 +3513,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3662,326 +3659,324 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile))) '(()) - #{s 19500}# - #{mod 19502}#)) - #{tmp 19842}#) + #{s 17672}# + #{mod 17674}#)) + #{tmp 18014}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 19497}#))))))) - (if (eqv? #{ftype 19541}# 'define-syntax) - (let ((#{tmp 19892}# + #{e 17669}#))))))) + (if (eqv? #{ftype 17713}# 'define-syntax) + (let ((#{tmp 18064}# ($sc-dispatch - #{e 19497}# + #{e 17669}# '(_ any any)))) - (if (if #{tmp 19892}# + (if (if #{tmp 18064}# (@apply - (lambda (#{name 19896}# - #{val 19897}#) - (if (symbol? #{name 19896}#) + (lambda (#{name 18068}# + #{val 18069}#) + (if (symbol? #{name 18068}#) #t (if (if (vector? - #{name 19896}#) + #{name 18068}#) (if (= (vector-length - #{name 19896}#) + #{name 18068}#) 4) (eq? (vector-ref - #{name 19896}# + #{name 18068}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 19896}# + #{name 18068}# 1)) #f))) - #{tmp 19892}#) + #{tmp 18064}#) #f) (@apply - (lambda (#{name 19924}# - #{val 19925}#) + (lambda (#{name 18096}# + #{val 18097}#) (values 'define-syntax-form - #{name 19924}# - #{val 19925}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#)) - #{tmp 19892}#) + #{name 18096}# + #{val 18097}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#)) + #{tmp 18064}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 19497}#))) - (if (eqv? #{ftype 19541}# + #{e 17669}#))) + (if (eqv? #{ftype 17713}# 'define-syntax-parameter) - (let ((#{tmp 19936}# + (let ((#{tmp 18108}# ($sc-dispatch - #{e 19497}# + #{e 17669}# '(_ any any)))) - (if (if #{tmp 19936}# + (if (if #{tmp 18108}# (@apply - (lambda (#{name 19940}# - #{val 19941}#) + (lambda (#{name 18112}# + #{val 18113}#) (if (symbol? - #{name 19940}#) + #{name 18112}#) #t (if (if (vector? - #{name 19940}#) + #{name 18112}#) (if (= (vector-length - #{name 19940}#) + #{name 18112}#) 4) (eq? (vector-ref - #{name 19940}# + #{name 18112}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 19940}# + #{name 18112}# 1)) #f))) - #{tmp 19936}#) + #{tmp 18108}#) #f) (@apply - (lambda (#{name 19968}# - #{val 19969}#) + (lambda (#{name 18140}# + #{val 18141}#) (values 'define-syntax-parameter-form - #{name 19968}# - #{val 19969}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#)) - #{tmp 19936}#) + #{name 18140}# + #{val 18141}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#)) + #{tmp 18108}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 19497}#))) + #{e 17669}#))) (values 'call #f - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#))))))))))))))) - (if (if (vector? #{e 19497}#) - (if (= (vector-length #{e 19497}#) 4) - (eq? (vector-ref #{e 19497}# 0) 'syntax-object) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#))))))))))))))) + (if (if (vector? #{e 17669}#) + (if (= (vector-length #{e 17669}#) 4) + (eq? (vector-ref #{e 17669}# 0) 'syntax-object) #f) #f) - (#{syntax-type 4449}# - (vector-ref #{e 19497}# 1) - #{r 19498}# - (#{join-wraps 4431}# - #{w 19499}# - (vector-ref #{e 19497}# 2)) - (let ((#{t 19996}# - (#{source-annotation 4408}# #{e 19497}#))) - (if #{t 19996}# #{t 19996}# #{s 19500}#)) - #{rib 19501}# - (let ((#{t 20231}# (vector-ref #{e 19497}# 3))) - (if #{t 20231}# #{t 20231}# #{mod 19502}#)) - #{for-car? 19503}#) - (if (self-evaluating? #{e 19497}#) + (#{syntax-type 2777}# + (vector-ref #{e 17669}# 1) + #{r 17670}# + (#{join-wraps 2759}# + #{w 17671}# + (vector-ref #{e 17669}# 2)) + (let ((#{t 18168}# + (#{source-annotation 2736}# #{e 17669}#))) + (if #{t 18168}# #{t 18168}# #{s 17672}#)) + #{rib 17673}# + (let ((#{t 18403}# (vector-ref #{e 17669}# 3))) + (if #{t 18403}# #{t 18403}# #{mod 17674}#)) + #{for-car? 17675}#) + (if (self-evaluating? #{e 17669}#) (values 'constant #f - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#) (values 'other #f - #{e 19497}# - #{w 19499}# - #{s 19500}# - #{mod 19502}#))))))) - (#{expand 4450}# - (lambda (#{e 20240}# - #{r 20241}# - #{w 20242}# - #{mod 20243}#) + #{e 17669}# + #{w 17671}# + #{s 17672}# + #{mod 17674}#))))))) + (#{expand 2778}# + (lambda (#{e 18412}# + #{r 18413}# + #{w 18414}# + #{mod 18415}#) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 20240}# - #{r 20241}# - #{w 20242}# - (#{source-annotation 4408}# #{e 20240}#) + (#{syntax-type 2777}# + #{e 18412}# + #{r 18413}# + #{w 18414}# + (#{source-annotation 2736}# #{e 18412}#) #f - #{mod 20243}# + #{mod 18415}# #f)) - (lambda (#{type 20398}# - #{value 20399}# - #{e 20400}# - #{w 20401}# - #{s 20402}# - #{mod 20403}#) - (#{expand-expr 4451}# - #{type 20398}# - #{value 20399}# - #{e 20400}# - #{r 20241}# - #{w 20401}# - #{s 20402}# - #{mod 20403}#))))) - (#{expand-expr 4451}# - (lambda (#{type 20406}# - #{value 20407}# - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) - (if (eqv? #{type 20406}# 'lexical) + (lambda (#{type 18570}# + #{value 18571}# + #{e 18572}# + #{w 18573}# + #{s 18574}# + #{mod 18575}#) + (#{expand-expr 2779}# + #{type 18570}# + #{value 18571}# + #{e 18572}# + #{r 18413}# + #{w 18573}# + #{s 18574}# + #{mod 18575}#))))) + (#{expand-expr 2779}# + (lambda (#{type 18578}# + #{value 18579}# + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) + (if (eqv? #{type 18578}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 20411}# - #{e 20408}# - #{value 20407}#) - (if (if (eqv? #{type 20406}# 'core) + #{s 18583}# + #{e 18580}# + #{value 18579}#) + (if (if (eqv? #{type 18578}# 'core) #t - (eqv? #{type 20406}# 'core-form)) - (#{value 20407}# - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) - (if (eqv? #{type 20406}# 'module-ref) + (eqv? #{type 18578}# 'core-form)) + (#{value 18579}# + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) + (if (eqv? #{type 18578}# 'module-ref) (call-with-values (lambda () - (#{value 20407}# - #{e 20408}# - #{r 20409}# - #{w 20410}#)) - (lambda (#{e 20438}# - #{r 20439}# - #{w 20440}# - #{s 20441}# - #{mod 20442}#) - (#{expand 4450}# - #{e 20438}# - #{r 20439}# - #{w 20440}# - #{mod 20442}#))) - (if (eqv? #{type 20406}# 'lexical-call) - (#{expand-application 4452}# - (let ((#{id 20517}# (car #{e 20408}#))) - (#{build-lexical-reference 4385}# + (#{value 18579}# + #{e 18580}# + #{r 18581}# + #{w 18582}#)) + (lambda (#{e 18610}# + #{r 18611}# + #{w 18612}# + #{s 18613}# + #{mod 18614}#) + (#{expand 2778}# + #{e 18610}# + #{r 18611}# + #{w 18612}# + #{mod 18614}#))) + (if (eqv? #{type 18578}# 'lexical-call) + (#{expand-application 2780}# + (let ((#{id 18689}# (car #{e 18580}#))) + (#{build-lexical-reference 2713}# 'fun - (#{source-annotation 4408}# #{id 20517}#) - (if (if (vector? #{id 20517}#) - (if (= (vector-length #{id 20517}#) 4) - (eq? (vector-ref #{id 20517}# 0) 'syntax-object) + (#{source-annotation 2736}# #{id 18689}#) + (if (if (vector? #{id 18689}#) + (if (= (vector-length #{id 18689}#) 4) + (eq? (vector-ref #{id 18689}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 20517}#) - #{id 20517}#) - #{value 20407}#)) - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) - (if (eqv? #{type 20406}# 'global-call) - (#{expand-application 4452}# - (#{build-global-reference 4388}# - (#{source-annotation 4408}# (car #{e 20408}#)) - (if (if (vector? #{value 20407}#) - (if (= (vector-length #{value 20407}#) 4) - (eq? (vector-ref #{value 20407}# 0) + (syntax->datum #{id 18689}#) + #{id 18689}#) + #{value 18579}#)) + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) + (if (eqv? #{type 18578}# 'global-call) + (#{expand-application 2780}# + (#{build-global-reference 2716}# + (#{source-annotation 2736}# (car #{e 18580}#)) + (if (if (vector? #{value 18579}#) + (if (= (vector-length #{value 18579}#) 4) + (eq? (vector-ref #{value 18579}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 20407}# 1) - #{value 20407}#) - (if (if (vector? #{value 20407}#) - (if (= (vector-length #{value 20407}#) 4) - (eq? (vector-ref #{value 20407}# 0) + (vector-ref #{value 18579}# 1) + #{value 18579}#) + (if (if (vector? #{value 18579}#) + (if (= (vector-length #{value 18579}#) 4) + (eq? (vector-ref #{value 18579}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 20407}# 3) - #{mod 20412}#)) - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) - (if (eqv? #{type 20406}# 'constant) - (let ((#{exp 20854}# - (#{strip 4463}# - (#{wrap 4443}# + (vector-ref #{value 18579}# 3) + #{mod 18584}#)) + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) + (if (eqv? #{type 18578}# 'constant) + (let ((#{exp 19026}# + (#{strip 2791}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 20408}#) #{s 20411}# #f) + (if (if (pair? #{e 18580}#) #{s 18583}# #f) (set-source-properties! - #{e 20408}# - #{s 20411}#)) - #{e 20408}#) - #{w 20410}# - #{mod 20412}#) + #{e 18580}# + #{s 18583}#)) + #{e 18580}#) + #{w 18582}# + #{mod 18584}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 20411}# - #{exp 20854}#)) - (if (eqv? #{type 20406}# 'global) - (#{analyze-variable 4387}# - #{mod 20412}# - #{value 20407}# - (lambda (#{mod 20890}# - #{var 20891}# - #{public? 20892}#) + #{s 18583}# + #{exp 19026}#)) + (if (eqv? #{type 18578}# 'global) + (#{analyze-variable 2715}# + #{mod 18584}# + #{value 18579}# + (lambda (#{mod 19062}# + #{var 19063}# + #{public? 19064}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 20411}# - #{mod 20890}# - #{var 20891}# - #{public? 20892}#)) - (lambda (#{var 20901}#) + #{s 18583}# + #{mod 19062}# + #{var 19063}# + #{public? 19064}#)) + (lambda (#{var 19073}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 20411}# - #{var 20901}#))) - (if (eqv? #{type 20406}# 'call) - (#{expand-application 4452}# - (#{expand 4450}# - (car #{e 20408}#) - #{r 20409}# - #{w 20410}# - #{mod 20412}#) - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) - (if (eqv? #{type 20406}# 'begin-form) - (let ((#{tmp 20976}# + #{s 18583}# + #{var 19073}#))) + (if (eqv? #{type 18578}# 'call) + (#{expand-application 2780}# + (#{expand 2778}# + (car #{e 18580}#) + #{r 18581}# + #{w 18582}# + #{mod 18584}#) + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) + (if (eqv? #{type 18578}# 'begin-form) + (let ((#{tmp 19148}# ($sc-dispatch - #{e 20408}# + #{e 18580}# '(_ any . each-any)))) - (if #{tmp 20976}# + (if #{tmp 19148}# (@apply - (lambda (#{e1 20980}# #{e2 20981}#) - (#{expand-sequence 4445}# - (cons #{e1 20980}# #{e2 20981}#) - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#)) - #{tmp 20976}#) - (let ((#{tmp 21068}# - ($sc-dispatch #{e 20408}# '(_)))) - (if #{tmp 21068}# + (lambda (#{e1 19152}# #{e2 19153}#) + (#{expand-sequence 2773}# + (cons #{e1 19152}# #{e2 19153}#) + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#)) + #{tmp 19148}#) + (let ((#{tmp 19240}# + ($sc-dispatch #{e 18580}# '(_)))) + (if #{tmp 19240}# (@apply (lambda () (if (include-deprecated-features) @@ -3994,822 +3989,820 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 20408}#) - #{s 20411}# + (if (if (pair? #{e 18580}#) + #{s 18583}# #f) (set-source-properties! - #{e 20408}# - #{s 20411}#)) - #{e 20408}#) - #{w 20410}# - #{mod 20412}#)))) - #{tmp 21068}#) + #{e 18580}# + #{s 18583}#)) + #{e 18580}#) + #{w 18582}# + #{mod 18584}#)))) + #{tmp 19240}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20408}#))))) - (if (eqv? #{type 20406}# 'local-syntax-form) - (#{expand-local-syntax 4455}# - #{value 20407}# - #{e 20408}# - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}# - #{expand-sequence 4445}#) - (if (eqv? #{type 20406}# 'eval-when-form) - (let ((#{tmp 21179}# + #{e 18580}#))))) + (if (eqv? #{type 18578}# 'local-syntax-form) + (#{expand-local-syntax 2783}# + #{value 18579}# + #{e 18580}# + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}# + #{expand-sequence 2773}#) + (if (eqv? #{type 18578}# 'eval-when-form) + (let ((#{tmp 19351}# ($sc-dispatch - #{e 20408}# + #{e 18580}# '(_ each-any any . each-any)))) - (if #{tmp 21179}# + (if #{tmp 19351}# (@apply - (lambda (#{x 21183}# - #{e1 21184}# - #{e2 21185}#) - (let ((#{when-list 21186}# - (#{parse-when-list 4448}# - #{e 20408}# - #{x 21183}#))) - (if (memq 'eval #{when-list 21186}#) - (#{expand-sequence 4445}# - (cons #{e1 21184}# #{e2 21185}#) - #{r 20409}# - #{w 20410}# - #{s 20411}# - #{mod 20412}#) + (lambda (#{x 19355}# + #{e1 19356}# + #{e2 19357}#) + (let ((#{when-list 19358}# + (#{parse-when-list 2776}# + #{e 18580}# + #{x 19355}#))) + (if (memq 'eval #{when-list 19358}#) + (#{expand-sequence 2773}# + (cons #{e1 19356}# #{e2 19357}#) + #{r 18581}# + #{w 18582}# + #{s 18583}# + #{mod 18584}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 21179}#) + #{tmp 19351}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20408}#))) - (if (if (eqv? #{type 20406}# 'define-form) + #{e 18580}#))) + (if (if (eqv? #{type 18578}# 'define-form) #t - (if (eqv? #{type 20406}# + (if (eqv? #{type 18578}# 'define-syntax-form) #t - (eqv? #{type 20406}# + (eqv? #{type 18578}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e 20408}# - (#{wrap 4443}# - #{value 20407}# - #{w 20410}# - #{mod 20412}#)) - (if (eqv? #{type 20406}# 'syntax) + #{e 18580}# + (#{wrap 2771}# + #{value 18579}# + #{w 18582}# + #{mod 18584}#)) + (if (eqv? #{type 18578}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 20408}#) - #{s 20411}# + (if (if (pair? #{e 18580}#) + #{s 18583}# #f) (set-source-properties! - #{e 20408}# - #{s 20411}#)) - #{e 20408}#) - #{w 20410}# - #{mod 20412}#)) - (if (eqv? #{type 20406}# 'displaced-lexical) + #{e 18580}# + #{s 18583}#)) + #{e 18580}#) + #{w 18582}# + #{mod 18584}#)) + (if (eqv? #{type 18578}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 20408}#) - #{s 20411}# + (if (if (pair? #{e 18580}#) + #{s 18583}# #f) (set-source-properties! - #{e 20408}# - #{s 20411}#)) - #{e 20408}#) - #{w 20410}# - #{mod 20412}#)) + #{e 18580}# + #{s 18583}#)) + #{e 18580}#) + #{w 18582}# + #{mod 18584}#)) (syntax-violation #f "unexpected syntax" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 20408}#) - #{s 20411}# + (if (if (pair? #{e 18580}#) + #{s 18583}# #f) (set-source-properties! - #{e 20408}# - #{s 20411}#)) - #{e 20408}#) - #{w 20410}# - #{mod 20412}#)))))))))))))))))) - (#{expand-application 4452}# - (lambda (#{x 21426}# - #{e 21427}# - #{r 21428}# - #{w 21429}# - #{s 21430}# - #{mod 21431}#) - (let ((#{tmp 21433}# - ($sc-dispatch #{e 21427}# '(any . each-any)))) - (if #{tmp 21433}# + #{e 18580}# + #{s 18583}#)) + #{e 18580}#) + #{w 18582}# + #{mod 18584}#)))))))))))))))))) + (#{expand-application 2780}# + (lambda (#{x 19598}# + #{e 19599}# + #{r 19600}# + #{w 19601}# + #{s 19602}# + #{mod 19603}#) + (let ((#{tmp 19605}# + ($sc-dispatch #{e 19599}# '(any . each-any)))) + (if #{tmp 19605}# (@apply - (lambda (#{e0 21437}# #{e1 21438}#) - (#{build-application 4382}# - #{s 21430}# - #{x 21426}# - (map (lambda (#{e 21518}#) - (#{expand 4450}# - #{e 21518}# - #{r 21428}# - #{w 21429}# - #{mod 21431}#)) - #{e1 21438}#))) - #{tmp 21433}#) + (lambda (#{e0 19609}# #{e1 19610}#) + (#{build-application 2710}# + #{s 19602}# + #{x 19598}# + (map (lambda (#{e 19690}#) + (#{expand 2778}# + #{e 19690}# + #{r 19600}# + #{w 19601}# + #{mod 19603}#)) + #{e1 19610}#))) + #{tmp 19605}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 21427}#))))) - (#{expand-macro 4453}# - (lambda (#{p 21594}# - #{e 21595}# - #{r 21596}# - #{w 21597}# - #{s 21598}# - #{rib 21599}# - #{mod 21600}#) + #{e 19599}#))))) + (#{expand-macro 2781}# + (lambda (#{p 19766}# + #{e 19767}# + #{r 19768}# + #{w 19769}# + #{s 19770}# + #{rib 19771}# + #{mod 19772}#) (letrec* - ((#{rebuild-macro-output 21601}# - (lambda (#{x 21633}# #{m 21634}#) - (if (pair? #{x 21633}#) - (let ((#{e 21638}# - (cons (#{rebuild-macro-output 21601}# - (car #{x 21633}#) - #{m 21634}#) - (#{rebuild-macro-output 21601}# - (cdr #{x 21633}#) - #{m 21634}#)))) + ((#{rebuild-macro-output 19773}# + (lambda (#{x 19805}# #{m 19806}#) + (if (pair? #{x 19805}#) + (let ((#{e 19810}# + (cons (#{rebuild-macro-output 19773}# + (car #{x 19805}#) + #{m 19806}#) + (#{rebuild-macro-output 19773}# + (cdr #{x 19805}#) + #{m 19806}#)))) (begin - (if (if (pair? #{e 21638}#) #{s 21598}# #f) - (set-source-properties! #{e 21638}# #{s 21598}#)) - #{e 21638}#)) - (if (if (vector? #{x 21633}#) - (if (= (vector-length #{x 21633}#) 4) - (eq? (vector-ref #{x 21633}# 0) 'syntax-object) + (if (if (pair? #{e 19810}#) #{s 19770}# #f) + (set-source-properties! #{e 19810}# #{s 19770}#)) + #{e 19810}#)) + (if (if (vector? #{x 19805}#) + (if (= (vector-length #{x 19805}#) 4) + (eq? (vector-ref #{x 19805}# 0) 'syntax-object) #f) #f) - (let ((#{w 21654}# (vector-ref #{x 21633}# 2))) - (let ((#{ms 21655}# (car #{w 21654}#)) - (#{s 21656}# (cdr #{w 21654}#))) - (if (if (pair? #{ms 21655}#) - (eq? (car #{ms 21655}#) #f) + (let ((#{w 19826}# (vector-ref #{x 19805}# 2))) + (let ((#{ms 19827}# (car #{w 19826}#)) + (#{s 19828}# (cdr #{w 19826}#))) + (if (if (pair? #{ms 19827}#) + (eq? (car #{ms 19827}#) #f) #f) - (let ((#{expression 21664}# - (vector-ref #{x 21633}# 1)) - (#{wrap 21665}# - (cons (cdr #{ms 21655}#) - (if #{rib 21599}# - (cons #{rib 21599}# - (cdr #{s 21656}#)) - (cdr #{s 21656}#)))) - (#{module 21666}# (vector-ref #{x 21633}# 3))) + (let ((#{expression 19836}# + (vector-ref #{x 19805}# 1)) + (#{wrap 19837}# + (cons (cdr #{ms 19827}#) + (if #{rib 19771}# + (cons #{rib 19771}# + (cdr #{s 19828}#)) + (cdr #{s 19828}#)))) + (#{module 19838}# (vector-ref #{x 19805}# 3))) (vector 'syntax-object - #{expression 21664}# - #{wrap 21665}# - #{module 21666}#)) - (let ((#{expression 21676}# - (let ((#{e 21681}# - (vector-ref #{x 21633}# 1))) + #{expression 19836}# + #{wrap 19837}# + #{module 19838}#)) + (let ((#{expression 19848}# + (let ((#{e 19853}# + (vector-ref #{x 19805}# 1))) (begin - (if (if (pair? #{e 21681}#) - #{s 21656}# + (if (if (pair? #{e 19853}#) + #{s 19828}# #f) (set-source-properties! - #{e 21681}# - #{s 21656}#)) - #{e 21681}#))) - (#{wrap 21677}# - (cons (cons #{m 21634}# #{ms 21655}#) - (if #{rib 21599}# - (cons #{rib 21599}# - (cons 'shift #{s 21656}#)) - (cons 'shift #{s 21656}#)))) - (#{module 21678}# (vector-ref #{x 21633}# 3))) + #{e 19853}# + #{s 19828}#)) + #{e 19853}#))) + (#{wrap 19849}# + (cons (cons #{m 19806}# #{ms 19827}#) + (if #{rib 19771}# + (cons #{rib 19771}# + (cons 'shift #{s 19828}#)) + (cons 'shift #{s 19828}#)))) + (#{module 19850}# (vector-ref #{x 19805}# 3))) (vector 'syntax-object - #{expression 21676}# - #{wrap 21677}# - #{module 21678}#))))) - (if (vector? #{x 21633}#) - (let ((#{n 21693}# (vector-length #{x 21633}#))) - (let ((#{v 21694}# - (let ((#{e 21702}# (make-vector #{n 21693}#))) + #{expression 19848}# + #{wrap 19849}# + #{module 19850}#))))) + (if (vector? #{x 19805}#) + (let ((#{n 19865}# (vector-length #{x 19805}#))) + (let ((#{v 19866}# + (let ((#{e 19874}# (make-vector #{n 19865}#))) (begin - (if (if (pair? #{e 21702}#) #{x 21633}# #f) + (if (if (pair? #{e 19874}#) #{x 19805}# #f) (set-source-properties! - #{e 21702}# - #{x 21633}#)) - #{e 21702}#)))) + #{e 19874}# + #{x 19805}#)) + #{e 19874}#)))) (letrec* - ((#{loop 21695}# - (lambda (#{i 21747}#) - (if (= #{i 21747}# #{n 21693}#) - #{v 21694}# + ((#{loop 19867}# + (lambda (#{i 19919}#) + (if (= #{i 19919}# #{n 19865}#) + #{v 19866}# (begin (vector-set! - #{v 21694}# - #{i 21747}# - (#{rebuild-macro-output 21601}# - (vector-ref #{x 21633}# #{i 21747}#) - #{m 21634}#)) - (#{loop 21695}# (#{1+}# #{i 21747}#))))))) - (#{loop 21695}# 0)))) - (if (symbol? #{x 21633}#) + #{v 19866}# + #{i 19919}# + (#{rebuild-macro-output 19773}# + (vector-ref #{x 19805}# #{i 19919}#) + #{m 19806}#)) + (#{loop 19867}# (#{1+}# #{i 19919}#))))))) + (#{loop 19867}# 0)))) + (if (symbol? #{x 19805}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 21753}# (cdr #{w 21597}#))) - (#{wrap 4443}# + (let ((#{s 19925}# (cdr #{w 19769}#))) + (#{wrap 2771}# (begin - (if (if (pair? #{e 21595}#) #{s 21753}# #f) + (if (if (pair? #{e 19767}#) #{s 19925}# #f) (set-source-properties! - #{e 21595}# - #{s 21753}#)) - #{e 21595}#) - #{w 21597}# - #{mod 21600}#)) - #{x 21633}#) + #{e 19767}# + #{s 19925}#)) + #{e 19767}#) + #{w 19769}# + #{mod 19772}#)) + #{x 19805}#) (begin - (if (if (pair? #{x 21633}#) #{s 21598}# #f) - (set-source-properties! #{x 21633}# #{s 21598}#)) - #{x 21633}#)))))))) + (if (if (pair? #{x 19805}#) #{s 19770}# #f) + (set-source-properties! #{x 19805}# #{s 19770}#)) + #{x 19805}#)))))))) (with-fluids - ((#{transformer-environment 4436}# - (lambda (#{k 21602}#) - (#{k 21602}# - #{e 21595}# - #{r 21596}# - #{w 21597}# - #{s 21598}# - #{rib 21599}# - #{mod 21600}#)))) - (#{rebuild-macro-output 21601}# - (#{p 21594}# - (let ((#{w 21609}# - (cons (cons #f (car #{w 21597}#)) - (cons 'shift (cdr #{w 21597}#))))) - (#{wrap 4443}# + ((#{transformer-environment 2764}# + (lambda (#{k 19774}#) + (#{k 19774}# + #{e 19767}# + #{r 19768}# + #{w 19769}# + #{s 19770}# + #{rib 19771}# + #{mod 19772}#)))) + (#{rebuild-macro-output 19773}# + (#{p 19766}# + (let ((#{w 19781}# + (cons (cons #f (car #{w 19769}#)) + (cons 'shift (cdr #{w 19769}#))))) + (#{wrap 2771}# (begin - (if (if (pair? #{e 21595}#) #{s 21598}# #f) - (set-source-properties! #{e 21595}# #{s 21598}#)) - #{e 21595}#) - #{w 21609}# - #{mod 21600}#))) + (if (if (pair? #{e 19767}#) #{s 19770}# #f) + (set-source-properties! #{e 19767}# #{s 19770}#)) + #{e 19767}#) + #{w 19781}# + #{mod 19772}#))) (gensym "m")))))) - (#{expand-body 4454}# - (lambda (#{body 21785}# - #{outer-form 21786}# - #{r 21787}# - #{w 21788}# - #{mod 21789}#) - (let ((#{r 21790}# - (cons '("placeholder" placeholder) #{r 21787}#))) - (let ((#{ribcage 21791}# (vector 'ribcage '() '() '()))) - (let ((#{w 21792}# - (cons (car #{w 21788}#) - (cons #{ribcage 21791}# (cdr #{w 21788}#))))) + (#{expand-body 2782}# + (lambda (#{body 19957}# + #{outer-form 19958}# + #{r 19959}# + #{w 19960}# + #{mod 19961}#) + (let ((#{r 19962}# + (cons '("placeholder" placeholder) #{r 19959}#))) + (let ((#{ribcage 19963}# (vector 'ribcage '() '() '()))) + (let ((#{w 19964}# + (cons (car #{w 19960}#) + (cons #{ribcage 19963}# (cdr #{w 19960}#))))) (letrec* - ((#{parse 21793}# - (lambda (#{body 21806}# - #{ids 21807}# - #{labels 21808}# - #{var-ids 21809}# - #{vars 21810}# - #{vals 21811}# - #{bindings 21812}#) - (if (null? #{body 21806}#) + ((#{parse 19965}# + (lambda (#{body 19978}# + #{ids 19979}# + #{labels 19980}# + #{var-ids 19981}# + #{vars 19982}# + #{vals 19983}# + #{bindings 19984}#) + (if (null? #{body 19978}#) (syntax-violation #f "no expressions in body" - #{outer-form 21786}#) - (let ((#{e 21813}# (cdr (car #{body 21806}#))) - (#{er 21814}# (car (car #{body 21806}#)))) + #{outer-form 19958}#) + (let ((#{e 19985}# (cdr (car #{body 19978}#))) + (#{er 19986}# (car (car #{body 19978}#)))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 21813}# - #{er 21814}# + (#{syntax-type 2777}# + #{e 19985}# + #{er 19986}# '(()) - (#{source-annotation 4408}# #{er 21814}#) - #{ribcage 21791}# - #{mod 21789}# + (#{source-annotation 2736}# #{er 19986}#) + #{ribcage 19963}# + #{mod 19961}# #f)) - (lambda (#{type 21971}# - #{value 21972}# - #{e 21973}# - #{w 21974}# - #{s 21975}# - #{mod 21976}#) - (if (eqv? #{type 21971}# 'define-form) - (let ((#{id 21980}# - (#{wrap 4443}# - #{value 21972}# - #{w 21974}# - #{mod 21976}#)) - (#{label 21981}# - (symbol->string (gensym "i")))) - (let ((#{var 21982}# - (let ((#{id 22042}# + (lambda (#{type 20143}# + #{value 20144}# + #{e 20145}# + #{w 20146}# + #{s 20147}# + #{mod 20148}#) + (if (eqv? #{type 20143}# 'define-form) + (let ((#{id 20152}# + (#{wrap 2771}# + #{value 20144}# + #{w 20146}# + #{mod 20148}#)) + (#{label 20153}# (#{gen-label 2745}#))) + (let ((#{var 20154}# + (let ((#{id 20212}# (if (if (vector? - #{id 21980}#) + #{id 20152}#) (if (= (vector-length - #{id 21980}#) + #{id 20152}#) 4) (eq? (vector-ref - #{id 21980}# + #{id 20152}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 21980}# 1) - #{id 21980}#))) + (vector-ref #{id 20152}# 1) + #{id 20152}#))) (gensym (string-append - (symbol->string #{id 22042}#) + (symbol->string #{id 20212}#) " "))))) (begin - (let ((#{update 22032}# - (cons (vector-ref #{id 21980}# 1) + (let ((#{update 20202}# + (cons (vector-ref #{id 20152}# 1) (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 1)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 1 - #{update 22032}#)) - (let ((#{update 22034}# + #{update 20202}#)) + (let ((#{update 20204}# (cons (car (vector-ref - #{id 21980}# + #{id 20152}# 2)) (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 2)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 2 - #{update 22034}#)) - (let ((#{update 22036}# - (cons #{label 21981}# + #{update 20204}#)) + (let ((#{update 20206}# + (cons #{label 20153}# (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 3)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 3 - #{update 22036}#)) - (#{parse 21793}# - (cdr #{body 21806}#) - (cons #{id 21980}# #{ids 21807}#) - (cons #{label 21981}# #{labels 21808}#) - (cons #{id 21980}# #{var-ids 21809}#) - (cons #{var 21982}# #{vars 21810}#) - (cons (cons #{er 21814}# - (#{wrap 4443}# - #{e 21973}# - #{w 21974}# - #{mod 21976}#)) - #{vals 21811}#) - (cons (cons 'lexical #{var 21982}#) - #{bindings 21812}#))))) - (if (if (eqv? #{type 21971}# + #{update 20206}#)) + (#{parse 19965}# + (cdr #{body 19978}#) + (cons #{id 20152}# #{ids 19979}#) + (cons #{label 20153}# #{labels 19980}#) + (cons #{id 20152}# #{var-ids 19981}#) + (cons #{var 20154}# #{vars 19982}#) + (cons (cons #{er 19986}# + (#{wrap 2771}# + #{e 20145}# + #{w 20146}# + #{mod 20148}#)) + #{vals 19983}#) + (cons (cons 'lexical #{var 20154}#) + #{bindings 19984}#))))) + (if (if (eqv? #{type 20143}# 'define-syntax-form) #t - (eqv? #{type 21971}# + (eqv? #{type 20143}# 'define-syntax-parameter-form)) - (let ((#{id 22075}# - (#{wrap 4443}# - #{value 21972}# - #{w 21974}# - #{mod 21976}#)) - (#{label 22076}# - (symbol->string (gensym "i")))) + (let ((#{id 20245}# + (#{wrap 2771}# + #{value 20144}# + #{w 20146}# + #{mod 20148}#)) + (#{label 20246}# (#{gen-label 2745}#))) (begin - (let ((#{update 22126}# - (cons (vector-ref #{id 22075}# 1) + (let ((#{update 20294}# + (cons (vector-ref #{id 20245}# 1) (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 1)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 1 - #{update 22126}#)) - (let ((#{update 22128}# + #{update 20294}#)) + (let ((#{update 20296}# (cons (car (vector-ref - #{id 22075}# + #{id 20245}# 2)) (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 2)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 2 - #{update 22128}#)) - (let ((#{update 22130}# - (cons #{label 22076}# + #{update 20296}#)) + (let ((#{update 20298}# + (cons #{label 20246}# (vector-ref - #{ribcage 21791}# + #{ribcage 19963}# 3)))) (vector-set! - #{ribcage 21791}# + #{ribcage 19963}# 3 - #{update 22130}#)) - (#{parse 21793}# - (cdr #{body 21806}#) - (cons #{id 22075}# #{ids 21807}#) - (cons #{label 22076}# #{labels 21808}#) - #{var-ids 21809}# - #{vars 21810}# - #{vals 21811}# + #{update 20298}#)) + (#{parse 19965}# + (cdr #{body 19978}#) + (cons #{id 20245}# #{ids 19979}#) + (cons #{label 20246}# #{labels 19980}#) + #{var-ids 19981}# + #{vars 19982}# + #{vals 19983}# (cons (cons 'macro - (cons #{er 21814}# - (#{wrap 4443}# - #{e 21973}# - #{w 21974}# - #{mod 21976}#))) - #{bindings 21812}#)))) - (if (eqv? #{type 21971}# 'begin-form) - (let ((#{tmp 22138}# + (cons #{er 19986}# + (#{wrap 2771}# + #{e 20145}# + #{w 20146}# + #{mod 20148}#))) + #{bindings 19984}#)))) + (if (eqv? #{type 20143}# 'begin-form) + (let ((#{tmp 20306}# ($sc-dispatch - #{e 21973}# + #{e 20145}# '(_ . each-any)))) - (if #{tmp 22138}# + (if #{tmp 20306}# (@apply - (lambda (#{e1 22142}#) - (#{parse 21793}# + (lambda (#{e1 20310}#) + (#{parse 19965}# (letrec* - ((#{f 22143}# - (lambda (#{forms 22206}#) - (if (null? #{forms 22206}#) - (cdr #{body 21806}#) - (cons (cons #{er 21814}# - (#{wrap 4443}# - (car #{forms 22206}#) - #{w 21974}# - #{mod 21976}#)) - (#{f 22143}# - (cdr #{forms 22206}#))))))) - (#{f 22143}# #{e1 22142}#)) - #{ids 21807}# - #{labels 21808}# - #{var-ids 21809}# - #{vars 21810}# - #{vals 21811}# - #{bindings 21812}#)) - #{tmp 22138}#) + ((#{f 20311}# + (lambda (#{forms 20374}#) + (if (null? #{forms 20374}#) + (cdr #{body 19978}#) + (cons (cons #{er 19986}# + (#{wrap 2771}# + (car #{forms 20374}#) + #{w 20146}# + #{mod 20148}#)) + (#{f 20311}# + (cdr #{forms 20374}#))))))) + (#{f 20311}# #{e1 20310}#)) + #{ids 19979}# + #{labels 19980}# + #{var-ids 19981}# + #{vars 19982}# + #{vals 19983}# + #{bindings 19984}#)) + #{tmp 20306}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 21973}#))) - (if (eqv? #{type 21971}# + #{e 20145}#))) + (if (eqv? #{type 20143}# 'local-syntax-form) - (#{expand-local-syntax 4455}# - #{value 21972}# - #{e 21973}# - #{er 21814}# - #{w 21974}# - #{s 21975}# - #{mod 21976}# - (lambda (#{forms 22220}# - #{er 22221}# - #{w 22222}# - #{s 22223}# - #{mod 22224}#) - (#{parse 21793}# + (#{expand-local-syntax 2783}# + #{value 20144}# + #{e 20145}# + #{er 19986}# + #{w 20146}# + #{s 20147}# + #{mod 20148}# + (lambda (#{forms 20388}# + #{er 20389}# + #{w 20390}# + #{s 20391}# + #{mod 20392}#) + (#{parse 19965}# (letrec* - ((#{f 22225}# - (lambda (#{forms 22288}#) - (if (null? #{forms 22288}#) - (cdr #{body 21806}#) - (cons (cons #{er 22221}# - (#{wrap 4443}# - (car #{forms 22288}#) - #{w 22222}# - #{mod 22224}#)) - (#{f 22225}# - (cdr #{forms 22288}#))))))) - (#{f 22225}# #{forms 22220}#)) - #{ids 21807}# - #{labels 21808}# - #{var-ids 21809}# - #{vars 21810}# - #{vals 21811}# - #{bindings 21812}#))) - (if (null? #{ids 21807}#) - (#{build-sequence 4396}# + ((#{f 20393}# + (lambda (#{forms 20456}#) + (if (null? #{forms 20456}#) + (cdr #{body 19978}#) + (cons (cons #{er 20389}# + (#{wrap 2771}# + (car #{forms 20456}#) + #{w 20390}# + #{mod 20392}#)) + (#{f 20393}# + (cdr #{forms 20456}#))))))) + (#{f 20393}# #{forms 20388}#)) + #{ids 19979}# + #{labels 19980}# + #{var-ids 19981}# + #{vars 19982}# + #{vals 19983}# + #{bindings 19984}#))) + (if (null? #{ids 19979}#) + (#{build-sequence 2724}# #f - (map (lambda (#{x 22353}#) - (let ((#{e 22357}# - (cdr #{x 22353}#)) - (#{r 22358}# - (car #{x 22353}#))) + (map (lambda (#{x 20521}#) + (let ((#{e 20525}# + (cdr #{x 20521}#)) + (#{r 20526}# + (car #{x 20521}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 22357}# - #{r 22358}# + (#{syntax-type 2777}# + #{e 20525}# + #{r 20526}# '(()) - (#{source-annotation 4408}# - #{e 22357}#) + (#{source-annotation 2736}# + #{e 20525}#) #f - #{mod 21976}# + #{mod 20148}# #f)) - (lambda (#{type 22362}# - #{value 22363}# - #{e 22364}# - #{w 22365}# - #{s 22366}# - #{mod 22367}#) - (#{expand-expr 4451}# - #{type 22362}# - #{value 22363}# - #{e 22364}# - #{r 22358}# - #{w 22365}# - #{s 22366}# - #{mod 22367}#))))) - (cons (cons #{er 21814}# - (#{wrap 4443}# + (lambda (#{type 20530}# + #{value 20531}# + #{e 20532}# + #{w 20533}# + #{s 20534}# + #{mod 20535}#) + (#{expand-expr 2779}# + #{type 20530}# + #{value 20531}# + #{e 20532}# + #{r 20526}# + #{w 20533}# + #{s 20534}# + #{mod 20535}#))))) + (cons (cons #{er 19986}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 21973}#) - #{s 21975}# + (if (if (pair? #{e 20145}#) + #{s 20147}# #f) (set-source-properties! - #{e 21973}# - #{s 21975}#)) - #{e 21973}#) - #{w 21974}# - #{mod 21976}#)) - (cdr #{body 21806}#)))) + #{e 20145}# + #{s 20147}#)) + #{e 20145}#) + #{w 20146}# + #{mod 20148}#)) + (cdr #{body 19978}#)))) (begin - (if (not (#{valid-bound-ids? 4440}# - #{ids 21807}#)) + (if (not (#{valid-bound-ids? 2768}# + #{ids 19979}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 21786}#)) + #{outer-form 19958}#)) (letrec* - ((#{loop 22468}# - (lambda (#{bs 22471}# - #{er-cache 22472}# - #{r-cache 22473}#) - (if (not (null? #{bs 22471}#)) - (let ((#{b 22474}# - (car #{bs 22471}#))) - (if (eq? (car #{b 22474}#) + ((#{loop 20636}# + (lambda (#{bs 20639}# + #{er-cache 20640}# + #{r-cache 20641}#) + (if (not (null? #{bs 20639}#)) + (let ((#{b 20642}# + (car #{bs 20639}#))) + (if (eq? (car #{b 20642}#) 'macro) - (let ((#{er 22476}# - (car (cdr #{b 22474}#)))) - (let ((#{r-cache 22477}# - (if (eq? #{er 22476}# - #{er-cache 22472}#) - #{r-cache 22473}# - (#{macros-only-env 4411}# - #{er 22476}#)))) + (let ((#{er 20644}# + (car (cdr #{b 20642}#)))) + (let ((#{r-cache 20645}# + (if (eq? #{er 20644}# + #{er-cache 20640}#) + #{r-cache 20641}# + (#{macros-only-env 2739}# + #{er 20644}#)))) (begin (set-cdr! - #{b 22474}# - (#{eval-local-transformer 4456}# - (#{expand 4450}# - (cdr (cdr #{b 22474}#)) - #{r-cache 22477}# + #{b 20642}# + (#{eval-local-transformer 2784}# + (#{expand 2778}# + (cdr (cdr #{b 20642}#)) + #{r-cache 20645}# '(()) - #{mod 21976}#) - #{mod 21976}#)) - (#{loop 22468}# - (cdr #{bs 22471}#) - #{er 22476}# - #{r-cache 22477}#)))) - (#{loop 22468}# - (cdr #{bs 22471}#) - #{er-cache 22472}# - #{r-cache 22473}#))))))) - (#{loop 22468}# - #{bindings 21812}# + #{mod 20148}#) + #{mod 20148}#)) + (#{loop 20636}# + (cdr #{bs 20639}#) + #{er 20644}# + #{r-cache 20645}#)))) + (#{loop 20636}# + (cdr #{bs 20639}#) + #{er-cache 20640}# + #{r-cache 20641}#))))))) + (#{loop 20636}# + #{bindings 19984}# #f #f)) (set-cdr! - #{r 21790}# - (#{extend-env 4409}# - #{labels 21808}# - #{bindings 21812}# - (cdr #{r 21790}#))) - (#{build-letrec 4399}# + #{r 19962}# + (#{extend-env 2737}# + #{labels 19980}# + #{bindings 19984}# + (cdr #{r 19962}#))) + (#{build-letrec 2727}# #f #t (reverse (map syntax->datum - #{var-ids 21809}#)) - (reverse #{vars 21810}#) - (map (lambda (#{x 22820}#) - (let ((#{e 22824}# - (cdr #{x 22820}#)) - (#{r 22825}# - (car #{x 22820}#))) + #{var-ids 19981}#)) + (reverse #{vars 19982}#) + (map (lambda (#{x 20988}#) + (let ((#{e 20992}# + (cdr #{x 20988}#)) + (#{r 20993}# + (car #{x 20988}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 22824}# - #{r 22825}# + (#{syntax-type 2777}# + #{e 20992}# + #{r 20993}# '(()) - (#{source-annotation 4408}# - #{e 22824}#) + (#{source-annotation 2736}# + #{e 20992}#) #f - #{mod 21976}# + #{mod 20148}# #f)) - (lambda (#{type 22829}# - #{value 22830}# - #{e 22831}# - #{w 22832}# - #{s 22833}# - #{mod 22834}#) - (#{expand-expr 4451}# - #{type 22829}# - #{value 22830}# - #{e 22831}# - #{r 22825}# - #{w 22832}# - #{s 22833}# - #{mod 22834}#))))) - (reverse #{vals 21811}#)) - (let ((#{exps 22840}# - (map (lambda (#{x 22841}#) - (let ((#{e 22844}# - (cdr #{x 22841}#)) - (#{r 22845}# - (car #{x 22841}#))) + (lambda (#{type 20997}# + #{value 20998}# + #{e 20999}# + #{w 21000}# + #{s 21001}# + #{mod 21002}#) + (#{expand-expr 2779}# + #{type 20997}# + #{value 20998}# + #{e 20999}# + #{r 20993}# + #{w 21000}# + #{s 21001}# + #{mod 21002}#))))) + (reverse #{vals 19983}#)) + (let ((#{exps 21008}# + (map (lambda (#{x 21009}#) + (let ((#{e 21012}# + (cdr #{x 21009}#)) + (#{r 21013}# + (car #{x 21009}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 22844}# - #{r 22845}# + (#{syntax-type 2777}# + #{e 21012}# + #{r 21013}# '(()) - (#{source-annotation 4408}# - #{e 22844}#) + (#{source-annotation 2736}# + #{e 21012}#) #f - #{mod 21976}# + #{mod 20148}# #f)) - (lambda (#{type 22849}# - #{value 22850}# - #{e 22851}# - #{w 22852}# - #{s 22853}# - #{mod 22854}#) - (#{expand-expr 4451}# - #{type 22849}# - #{value 22850}# - #{e 22851}# - #{r 22845}# - #{w 22852}# - #{s 22853}# - #{mod 22854}#))))) - (cons (cons #{er 21814}# - (#{wrap 4443}# + (lambda (#{type 21017}# + #{value 21018}# + #{e 21019}# + #{w 21020}# + #{s 21021}# + #{mod 21022}#) + (#{expand-expr 2779}# + #{type 21017}# + #{value 21018}# + #{e 21019}# + #{r 21013}# + #{w 21020}# + #{s 21021}# + #{mod 21022}#))))) + (cons (cons #{er 19986}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 21973}#) - #{s 21975}# + (if (if (pair? #{e 20145}#) + #{s 20147}# #f) (set-source-properties! - #{e 21973}# - #{s 21975}#)) - #{e 21973}#) - #{w 21974}# - #{mod 21976}#)) - (cdr #{body 21806}#))))) - (if (null? (cdr #{exps 22840}#)) - (car #{exps 22840}#) + #{e 20145}# + #{s 20147}#)) + #{e 20145}#) + #{w 20146}# + #{mod 20148}#)) + (cdr #{body 19978}#))))) + (if (null? (cdr #{exps 21008}#)) + (car #{exps 21008}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps 22840}#))))))))))))))))) - (#{parse 21793}# - (map (lambda (#{x 21796}#) - (cons #{r 21790}# - (#{wrap 4443}# - #{x 21796}# - #{w 21792}# - #{mod 21789}#))) - #{body 21785}#) + #{exps 21008}#))))))))))))))))) + (#{parse 19965}# + (map (lambda (#{x 19968}#) + (cons #{r 19962}# + (#{wrap 2771}# + #{x 19968}# + #{w 19964}# + #{mod 19961}#))) + #{body 19957}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax 4455}# - (lambda (#{rec? 22880}# - #{e 22881}# - #{r 22882}# - #{w 22883}# - #{s 22884}# - #{mod 22885}# - #{k 22886}#) - (let ((#{tmp 22888}# + (#{expand-local-syntax 2783}# + (lambda (#{rec? 21048}# + #{e 21049}# + #{r 21050}# + #{w 21051}# + #{s 21052}# + #{mod 21053}# + #{k 21054}#) + (let ((#{tmp 21056}# ($sc-dispatch - #{e 22881}# + #{e 21049}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 22888}# + (if #{tmp 21056}# (@apply - (lambda (#{id 22892}# - #{val 22893}# - #{e1 22894}# - #{e2 22895}#) - (if (not (#{valid-bound-ids? 4440}# #{id 22892}#)) + (lambda (#{id 21060}# + #{val 21061}# + #{e1 21062}# + #{e2 21063}#) + (if (not (#{valid-bound-ids? 2768}# #{id 21060}#)) (syntax-violation #f "duplicate bound keyword" - #{e 22881}#) - (let ((#{labels 22985}# - (#{gen-labels 4418}# #{id 22892}#))) - (let ((#{new-w 22986}# - (#{make-binding-wrap 4429}# - #{id 22892}# - #{labels 22985}# - #{w 22883}#))) - (#{k 22886}# - (cons #{e1 22894}# #{e2 22895}#) - (#{extend-env 4409}# - #{labels 22985}# - (let ((#{trans-r 23024}# - (#{macros-only-env 4411}# #{r 22882}#))) + #{e 21049}#) + (let ((#{labels 21153}# + (#{gen-labels 2746}# #{id 21060}#))) + (let ((#{new-w 21154}# + (#{make-binding-wrap 2757}# + #{id 21060}# + #{labels 21153}# + #{w 21051}#))) + (#{k 21054}# + (cons #{e1 21062}# #{e2 21063}#) + (#{extend-env 2737}# + #{labels 21153}# + (let ((#{trans-r 21186}# + (#{macros-only-env 2739}# #{r 21050}#))) (begin - (if #{rec? 22880}# #{new-w 22986}# #{w 22883}#) - (map (lambda (#{x 23025}#) + (if #{rec? 21048}# #{new-w 21154}# #{w 21051}#) + (map (lambda (#{x 21187}#) (cons 'macro - (#{eval-local-transformer 4456}# - (#{expand 4450}# - #{x 23025}# - #{trans-r 23024}# + (#{eval-local-transformer 2784}# + (#{expand 2778}# + #{x 21187}# + #{trans-r 21186}# (values - (if #{rec? 22880}# - #{new-w 22986}# - #{w 22883}#)) - #{mod 22885}#) - #{mod 22885}#))) - #{val 22893}#))) - #{r 22882}#) - #{new-w 22986}# - #{s 22884}# - #{mod 22885}#))))) - #{tmp 22888}#) + (if #{rec? 21048}# + #{new-w 21154}# + #{w 21051}#)) + #{mod 21053}#) + #{mod 21053}#))) + #{val 21061}#))) + #{r 21050}#) + #{new-w 21154}# + #{s 21052}# + #{mod 21053}#))))) + #{tmp 21056}#) (syntax-violation #f "bad local syntax definition" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 22881}#) #{s 22884}# #f) - (set-source-properties! #{e 22881}# #{s 22884}#)) - #{e 22881}#) - #{w 22883}# - #{mod 22885}#)))))) - (#{eval-local-transformer 4456}# - (lambda (#{expanded 23321}# #{mod 23322}#) - (let ((#{p 23323}# (primitive-eval #{expanded 23321}#))) - (if (procedure? #{p 23323}#) - #{p 23323}# + (if (if (pair? #{e 21049}#) #{s 21052}# #f) + (set-source-properties! #{e 21049}# #{s 21052}#)) + #{e 21049}#) + #{w 21051}# + #{mod 21053}#)))))) + (#{eval-local-transformer 2784}# + (lambda (#{expanded 21463}# #{mod 21464}#) + (let ((#{p 21465}# (primitive-eval #{expanded 21463}#))) + (if (procedure? #{p 21465}#) + #{p 21465}# (syntax-violation #f "nonprocedure transformer" - #{p 23323}#))))) - (#{ellipsis? 4458}# - (lambda (#{x 5119}#) - (if (if (if (vector? #{x 5119}#) - (if (= (vector-length #{x 5119}#) 4) - (eq? (vector-ref #{x 5119}# 0) 'syntax-object) + #{p 21465}#))))) + (#{ellipsis? 2786}# + (lambda (#{x 3447}#) + (if (if (if (vector? #{x 3447}#) + (if (= (vector-length #{x 3447}#) 4) + (eq? (vector-ref #{x 3447}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5119}# 1)) + (symbol? (vector-ref #{x 3447}# 1)) #f) - (if (eq? (if (if (vector? #{x 5119}#) - (if (= (vector-length #{x 5119}#) 4) - (eq? (vector-ref #{x 5119}# 0) 'syntax-object) + (if (eq? (if (if (vector? #{x 3447}#) + (if (= (vector-length #{x 3447}#) 4) + (eq? (vector-ref #{x 3447}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 5119}# 1) - #{x 5119}#) + (vector-ref #{x 3447}# 1) + #{x 3447}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2288")) + #(ribcage #(x) #((top)) #("of")) #(ribcage (lambda-var-list gen-var @@ -5089,151 +5082,151 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -5244,7 +5237,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2288")) + #(ribcage #(x) #((top)) #("of")) #(ribcage (lambda-var-list gen-var @@ -5524,160 +5517,160 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# #{x 5119}# '(())) - (#{id-var-name 4434}# + (eq? (#{id-var-name 2762}# #{x 3447}# '(())) + (#{id-var-name 2762}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2288")) + #(ribcage #(x) #((top)) #("of")) #(ribcage (lambda-var-list gen-var @@ -5957,442 +5950,442 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals 4459}# - (lambda (#{orig-args 23328}#) + (#{lambda-formals 2787}# + (lambda (#{orig-args 21470}#) (letrec* - ((#{req 23329}# - (lambda (#{args 23333}# #{rreq 23334}#) - (let ((#{tmp 23336}# ($sc-dispatch #{args 23333}# '()))) - (if #{tmp 23336}# + ((#{req 21471}# + (lambda (#{args 21475}# #{rreq 21476}#) + (let ((#{tmp 21478}# ($sc-dispatch #{args 21475}# '()))) + (if #{tmp 21478}# (@apply (lambda () - (#{check 23330}# (reverse #{rreq 23334}#) #f)) - #{tmp 23336}#) - (let ((#{tmp 23459}# - ($sc-dispatch #{args 23333}# '(any . any)))) - (if (if #{tmp 23459}# + (#{check 21472}# (reverse #{rreq 21476}#) #f)) + #{tmp 21478}#) + (let ((#{tmp 21601}# + ($sc-dispatch #{args 21475}# '(any . any)))) + (if (if #{tmp 21601}# (@apply - (lambda (#{a 23463}# #{b 23464}#) - (if (symbol? #{a 23463}#) + (lambda (#{a 21605}# #{b 21606}#) + (if (symbol? #{a 21605}#) #t - (if (if (vector? #{a 23463}#) - (if (= (vector-length #{a 23463}#) 4) - (eq? (vector-ref #{a 23463}# 0) + (if (if (vector? #{a 21605}#) + (if (= (vector-length #{a 21605}#) 4) + (eq? (vector-ref #{a 21605}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 23463}# 1)) + (symbol? (vector-ref #{a 21605}# 1)) #f))) - #{tmp 23459}#) + #{tmp 21601}#) #f) (@apply - (lambda (#{a 23491}# #{b 23492}#) - (#{req 23329}# - #{b 23492}# - (cons #{a 23491}# #{rreq 23334}#))) - #{tmp 23459}#) - (let ((#{tmp 23493}# (list #{args 23333}#))) + (lambda (#{a 21633}# #{b 21634}#) + (#{req 21471}# + #{b 21634}# + (cons #{a 21633}# #{rreq 21476}#))) + #{tmp 21601}#) + (let ((#{tmp 21635}# (list #{args 21475}#))) (if (@apply - (lambda (#{r 23495}#) - (if (symbol? #{r 23495}#) + (lambda (#{r 21637}#) + (if (symbol? #{r 21637}#) #t - (if (if (vector? #{r 23495}#) - (if (= (vector-length #{r 23495}#) 4) - (eq? (vector-ref #{r 23495}# 0) + (if (if (vector? #{r 21637}#) + (if (= (vector-length #{r 21637}#) 4) + (eq? (vector-ref #{r 21637}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 23495}# 1)) + (symbol? (vector-ref #{r 21637}# 1)) #f))) - #{tmp 23493}#) + #{tmp 21635}#) (@apply - (lambda (#{r 23525}#) - (#{check 23330}# - (reverse #{rreq 23334}#) - #{r 23525}#)) - #{tmp 23493}#) + (lambda (#{r 21667}#) + (#{check 21472}# + (reverse #{rreq 21476}#) + #{r 21667}#)) + #{tmp 21635}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 23328}# - #{args 23333}#))))))))) - (#{check 23330}# - (lambda (#{req 23656}# #{rest 23657}#) - (if (#{distinct-bound-ids? 4441}# - (if #{rest 23657}# - (cons #{rest 23657}# #{req 23656}#) - #{req 23656}#)) - (values #{req 23656}# #f #{rest 23657}# #f) + #{orig-args 21470}# + #{args 21475}#))))))))) + (#{check 21472}# + (lambda (#{req 21798}# #{rest 21799}#) + (if (#{distinct-bound-ids? 2769}# + (if #{rest 21799}# + (cons #{rest 21799}# #{req 21798}#) + #{req 21798}#)) + (values #{req 21798}# #f #{rest 21799}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 23328}#))))) - (#{req 23329}# #{orig-args 23328}# '())))) - (#{expand-simple-lambda 4460}# - (lambda (#{e 23773}# - #{r 23774}# - #{w 23775}# - #{s 23776}# - #{mod 23777}# - #{req 23778}# - #{rest 23779}# - #{meta 23780}# - #{body 23781}#) - (let ((#{ids 23782}# - (if #{rest 23779}# - (append #{req 23778}# (list #{rest 23779}#)) - #{req 23778}#))) - (let ((#{vars 23783}# - (map #{gen-var 4464}# #{ids 23782}#))) - (let ((#{labels 23784}# - (#{gen-labels 4418}# #{ids 23782}#))) - (#{build-simple-lambda 4391}# - #{s 23776}# - (map syntax->datum #{req 23778}#) - (if #{rest 23779}# - (syntax->datum #{rest 23779}#) + #{orig-args 21470}#))))) + (#{req 21471}# #{orig-args 21470}# '())))) + (#{expand-simple-lambda 2788}# + (lambda (#{e 21915}# + #{r 21916}# + #{w 21917}# + #{s 21918}# + #{mod 21919}# + #{req 21920}# + #{rest 21921}# + #{meta 21922}# + #{body 21923}#) + (let ((#{ids 21924}# + (if #{rest 21921}# + (append #{req 21920}# (list #{rest 21921}#)) + #{req 21920}#))) + (let ((#{vars 21925}# + (map #{gen-var 2792}# #{ids 21924}#))) + (let ((#{labels 21926}# + (#{gen-labels 2746}# #{ids 21924}#))) + (#{build-simple-lambda 2719}# + #{s 21918}# + (map syntax->datum #{req 21920}#) + (if #{rest 21921}# + (syntax->datum #{rest 21921}#) #f) - #{vars 23783}# - #{meta 23780}# - (#{expand-body 4454}# - #{body 23781}# - (#{wrap 4443}# + #{vars 21925}# + #{meta 21922}# + (#{expand-body 2782}# + #{body 21923}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 23773}#) #{s 23776}# #f) - (set-source-properties! #{e 23773}# #{s 23776}#)) - #{e 23773}#) - #{w 23775}# - #{mod 23777}#) - (#{extend-var-env 4410}# - #{labels 23784}# - #{vars 23783}# - #{r 23774}#) - (#{make-binding-wrap 4429}# - #{ids 23782}# - #{labels 23784}# - #{w 23775}#) - #{mod 23777}#))))))) - (#{lambda*-formals 4461}# - (lambda (#{orig-args 24084}#) + (if (if (pair? #{e 21915}#) #{s 21918}# #f) + (set-source-properties! #{e 21915}# #{s 21918}#)) + #{e 21915}#) + #{w 21917}# + #{mod 21919}#) + (#{extend-var-env 2738}# + #{labels 21926}# + #{vars 21925}# + #{r 21916}#) + (#{make-binding-wrap 2757}# + #{ids 21924}# + #{labels 21926}# + #{w 21917}#) + #{mod 21919}#))))))) + (#{lambda*-formals 2789}# + (lambda (#{orig-args 22198}#) (letrec* - ((#{req 24085}# - (lambda (#{args 24092}# #{rreq 24093}#) - (let ((#{tmp 24095}# ($sc-dispatch #{args 24092}# '()))) - (if #{tmp 24095}# + ((#{req 22199}# + (lambda (#{args 22206}# #{rreq 22207}#) + (let ((#{tmp 22209}# ($sc-dispatch #{args 22206}# '()))) + (if #{tmp 22209}# (@apply (lambda () - (#{check 24089}# - (reverse #{rreq 24093}#) + (#{check 22203}# + (reverse #{rreq 22207}#) '() #f '())) - #{tmp 24095}#) - (let ((#{tmp 24101}# - ($sc-dispatch #{args 24092}# '(any . any)))) - (if (if #{tmp 24101}# + #{tmp 22209}#) + (let ((#{tmp 22215}# + ($sc-dispatch #{args 22206}# '(any . any)))) + (if (if #{tmp 22215}# (@apply - (lambda (#{a 24105}# #{b 24106}#) - (if (symbol? #{a 24105}#) + (lambda (#{a 22219}# #{b 22220}#) + (if (symbol? #{a 22219}#) #t - (if (if (vector? #{a 24105}#) - (if (= (vector-length #{a 24105}#) 4) - (eq? (vector-ref #{a 24105}# 0) + (if (if (vector? #{a 22219}#) + (if (= (vector-length #{a 22219}#) 4) + (eq? (vector-ref #{a 22219}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24105}# 1)) + (symbol? (vector-ref #{a 22219}# 1)) #f))) - #{tmp 24101}#) + #{tmp 22215}#) #f) (@apply - (lambda (#{a 24133}# #{b 24134}#) - (#{req 24085}# - #{b 24134}# - (cons #{a 24133}# #{rreq 24093}#))) - #{tmp 24101}#) - (let ((#{tmp 24135}# - ($sc-dispatch #{args 24092}# '(any . any)))) - (if (if #{tmp 24135}# + (lambda (#{a 22247}# #{b 22248}#) + (#{req 22199}# + #{b 22248}# + (cons #{a 22247}# #{rreq 22207}#))) + #{tmp 22215}#) + (let ((#{tmp 22249}# + ($sc-dispatch #{args 22206}# '(any . any)))) + (if (if #{tmp 22249}# (@apply - (lambda (#{a 24139}# #{b 24140}#) - (eq? (syntax->datum #{a 24139}#) + (lambda (#{a 22253}# #{b 22254}#) + (eq? (syntax->datum #{a 22253}#) #:optional)) - #{tmp 24135}#) + #{tmp 22249}#) #f) (@apply - (lambda (#{a 24141}# #{b 24142}#) - (#{opt 24086}# - #{b 24142}# - (reverse #{rreq 24093}#) + (lambda (#{a 22255}# #{b 22256}#) + (#{opt 22200}# + #{b 22256}# + (reverse #{rreq 22207}#) '())) - #{tmp 24135}#) - (let ((#{tmp 24145}# + #{tmp 22249}#) + (let ((#{tmp 22259}# ($sc-dispatch - #{args 24092}# + #{args 22206}# '(any . any)))) - (if (if #{tmp 24145}# + (if (if #{tmp 22259}# (@apply - (lambda (#{a 24149}# #{b 24150}#) - (eq? (syntax->datum #{a 24149}#) + (lambda (#{a 22263}# #{b 22264}#) + (eq? (syntax->datum #{a 22263}#) #:key)) - #{tmp 24145}#) + #{tmp 22259}#) #f) (@apply - (lambda (#{a 24151}# #{b 24152}#) - (#{key 24087}# - #{b 24152}# - (reverse #{rreq 24093}#) + (lambda (#{a 22265}# #{b 22266}#) + (#{key 22201}# + #{b 22266}# + (reverse #{rreq 22207}#) '() '())) - #{tmp 24145}#) - (let ((#{tmp 24155}# + #{tmp 22259}#) + (let ((#{tmp 22269}# ($sc-dispatch - #{args 24092}# + #{args 22206}# '(any any)))) - (if (if #{tmp 24155}# + (if (if #{tmp 22269}# (@apply - (lambda (#{a 24159}# #{b 24160}#) - (eq? (syntax->datum #{a 24159}#) + (lambda (#{a 22273}# #{b 22274}#) + (eq? (syntax->datum #{a 22273}#) #:rest)) - #{tmp 24155}#) + #{tmp 22269}#) #f) (@apply - (lambda (#{a 24161}# #{b 24162}#) - (#{rest 24088}# - #{b 24162}# - (reverse #{rreq 24093}#) + (lambda (#{a 22275}# #{b 22276}#) + (#{rest 22202}# + #{b 22276}# + (reverse #{rreq 22207}#) '() '())) - #{tmp 24155}#) - (let ((#{tmp 24165}# - (list #{args 24092}#))) + #{tmp 22269}#) + (let ((#{tmp 22279}# + (list #{args 22206}#))) (if (@apply - (lambda (#{r 24167}#) - (if (symbol? #{r 24167}#) + (lambda (#{r 22281}#) + (if (symbol? #{r 22281}#) #t - (if (if (vector? #{r 24167}#) + (if (if (vector? #{r 22281}#) (if (= (vector-length - #{r 24167}#) + #{r 22281}#) 4) (eq? (vector-ref - #{r 24167}# + #{r 22281}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 24167}# 1)) + (vector-ref #{r 22281}# 1)) #f))) - #{tmp 24165}#) + #{tmp 22279}#) (@apply - (lambda (#{r 24197}#) - (#{rest 24088}# - #{r 24197}# - (reverse #{rreq 24093}#) + (lambda (#{r 22311}#) + (#{rest 22202}# + #{r 22311}# + (reverse #{rreq 22207}#) '() '())) - #{tmp 24165}#) + #{tmp 22279}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 24084}# - #{args 24092}#))))))))))))))) - (#{opt 24086}# - (lambda (#{args 24216}# #{req 24217}# #{ropt 24218}#) - (let ((#{tmp 24220}# ($sc-dispatch #{args 24216}# '()))) - (if #{tmp 24220}# + #{orig-args 22198}# + #{args 22206}#))))))))))))))) + (#{opt 22200}# + (lambda (#{args 22330}# #{req 22331}# #{ropt 22332}#) + (let ((#{tmp 22334}# ($sc-dispatch #{args 22330}# '()))) + (if #{tmp 22334}# (@apply (lambda () - (#{check 24089}# - #{req 24217}# - (reverse #{ropt 24218}#) + (#{check 22203}# + #{req 22331}# + (reverse #{ropt 22332}#) #f '())) - #{tmp 24220}#) - (let ((#{tmp 24226}# - ($sc-dispatch #{args 24216}# '(any . any)))) - (if (if #{tmp 24226}# + #{tmp 22334}#) + (let ((#{tmp 22340}# + ($sc-dispatch #{args 22330}# '(any . any)))) + (if (if #{tmp 22340}# (@apply - (lambda (#{a 24230}# #{b 24231}#) - (if (symbol? #{a 24230}#) + (lambda (#{a 22344}# #{b 22345}#) + (if (symbol? #{a 22344}#) #t - (if (if (vector? #{a 24230}#) - (if (= (vector-length #{a 24230}#) 4) - (eq? (vector-ref #{a 24230}# 0) + (if (if (vector? #{a 22344}#) + (if (= (vector-length #{a 22344}#) 4) + (eq? (vector-ref #{a 22344}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24230}# 1)) + (symbol? (vector-ref #{a 22344}# 1)) #f))) - #{tmp 24226}#) + #{tmp 22340}#) #f) (@apply - (lambda (#{a 24258}# #{b 24259}#) - (#{opt 24086}# - #{b 24259}# - #{req 24217}# - (cons (cons #{a 24258}# + (lambda (#{a 22372}# #{b 22373}#) + (#{opt 22200}# + #{b 22373}# + #{req 22331}# + (cons (cons #{a 22372}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2427" "i2428")) + #("q2" "q3")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2417" "i2418" "i2419")) + #("px" "py" "pz")) #(ribcage (check rest key opt req) ((top) @@ -6400,15 +6393,11 @@ (top) (top) (top)) - ("i2363" - "i2361" - "i2359" - "i2357" - "i2355")) + ("pb" "pa" "p9" "p8" "p7")) #(ribcage #(orig-args) #((top)) - #("i2354")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -6688,298 +6677,298 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - #{ropt 24218}#))) - #{tmp 24226}#) - (let ((#{tmp 24260}# + #{ropt 22332}#))) + #{tmp 22340}#) + (let ((#{tmp 22374}# ($sc-dispatch - #{args 24216}# + #{args 22330}# '((any any) . any)))) - (if (if #{tmp 24260}# + (if (if #{tmp 22374}# (@apply - (lambda (#{a 24264}# - #{init 24265}# - #{b 24266}#) - (if (symbol? #{a 24264}#) + (lambda (#{a 22378}# + #{init 22379}# + #{b 22380}#) + (if (symbol? #{a 22378}#) #t - (if (if (vector? #{a 24264}#) - (if (= (vector-length #{a 24264}#) + (if (if (vector? #{a 22378}#) + (if (= (vector-length #{a 22378}#) 4) - (eq? (vector-ref #{a 24264}# 0) + (eq? (vector-ref #{a 22378}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24264}# 1)) + (symbol? (vector-ref #{a 22378}# 1)) #f))) - #{tmp 24260}#) + #{tmp 22374}#) #f) (@apply - (lambda (#{a 24293}# #{init 24294}# #{b 24295}#) - (#{opt 24086}# - #{b 24295}# - #{req 24217}# - (cons (list #{a 24293}# #{init 24294}#) - #{ropt 24218}#))) - #{tmp 24260}#) - (let ((#{tmp 24296}# + (lambda (#{a 22407}# #{init 22408}# #{b 22409}#) + (#{opt 22200}# + #{b 22409}# + #{req 22331}# + (cons (list #{a 22407}# #{init 22408}#) + #{ropt 22332}#))) + #{tmp 22374}#) + (let ((#{tmp 22410}# ($sc-dispatch - #{args 24216}# + #{args 22330}# '(any . any)))) - (if (if #{tmp 24296}# + (if (if #{tmp 22410}# (@apply - (lambda (#{a 24300}# #{b 24301}#) - (eq? (syntax->datum #{a 24300}#) + (lambda (#{a 22414}# #{b 22415}#) + (eq? (syntax->datum #{a 22414}#) #:key)) - #{tmp 24296}#) + #{tmp 22410}#) #f) (@apply - (lambda (#{a 24302}# #{b 24303}#) - (#{key 24087}# - #{b 24303}# - #{req 24217}# - (reverse #{ropt 24218}#) + (lambda (#{a 22416}# #{b 22417}#) + (#{key 22201}# + #{b 22417}# + #{req 22331}# + (reverse #{ropt 22332}#) '())) - #{tmp 24296}#) - (let ((#{tmp 24306}# + #{tmp 22410}#) + (let ((#{tmp 22420}# ($sc-dispatch - #{args 24216}# + #{args 22330}# '(any any)))) - (if (if #{tmp 24306}# + (if (if #{tmp 22420}# (@apply - (lambda (#{a 24310}# #{b 24311}#) - (eq? (syntax->datum #{a 24310}#) + (lambda (#{a 22424}# #{b 22425}#) + (eq? (syntax->datum #{a 22424}#) #:rest)) - #{tmp 24306}#) + #{tmp 22420}#) #f) (@apply - (lambda (#{a 24312}# #{b 24313}#) - (#{rest 24088}# - #{b 24313}# - #{req 24217}# - (reverse #{ropt 24218}#) + (lambda (#{a 22426}# #{b 22427}#) + (#{rest 22202}# + #{b 22427}# + #{req 22331}# + (reverse #{ropt 22332}#) '())) - #{tmp 24306}#) - (let ((#{tmp 24316}# - (list #{args 24216}#))) + #{tmp 22420}#) + (let ((#{tmp 22430}# + (list #{args 22330}#))) (if (@apply - (lambda (#{r 24318}#) - (if (symbol? #{r 24318}#) + (lambda (#{r 22432}#) + (if (symbol? #{r 22432}#) #t - (if (if (vector? #{r 24318}#) + (if (if (vector? #{r 22432}#) (if (= (vector-length - #{r 24318}#) + #{r 22432}#) 4) (eq? (vector-ref - #{r 24318}# + #{r 22432}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 24318}# 1)) + (vector-ref #{r 22432}# 1)) #f))) - #{tmp 24316}#) + #{tmp 22430}#) (@apply - (lambda (#{r 24348}#) - (#{rest 24088}# - #{r 24348}# - #{req 24217}# - (reverse #{ropt 24218}#) + (lambda (#{r 22462}#) + (#{rest 22202}# + #{r 22462}# + #{req 22331}# + (reverse #{ropt 22332}#) '())) - #{tmp 24316}#) + #{tmp 22430}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 24084}# - #{args 24216}#))))))))))))))) - (#{key 24087}# - (lambda (#{args 24367}# - #{req 24368}# - #{opt 24369}# - #{rkey 24370}#) - (let ((#{tmp 24372}# ($sc-dispatch #{args 24367}# '()))) - (if #{tmp 24372}# + #{orig-args 22198}# + #{args 22330}#))))))))))))))) + (#{key 22201}# + (lambda (#{args 22481}# + #{req 22482}# + #{opt 22483}# + #{rkey 22484}#) + (let ((#{tmp 22486}# ($sc-dispatch #{args 22481}# '()))) + (if #{tmp 22486}# (@apply (lambda () - (#{check 24089}# - #{req 24368}# - #{opt 24369}# + (#{check 22203}# + #{req 22482}# + #{opt 22483}# #f - (cons #f (reverse #{rkey 24370}#)))) - #{tmp 24372}#) - (let ((#{tmp 24378}# - ($sc-dispatch #{args 24367}# '(any . any)))) - (if (if #{tmp 24378}# + (cons #f (reverse #{rkey 22484}#)))) + #{tmp 22486}#) + (let ((#{tmp 22492}# + ($sc-dispatch #{args 22481}# '(any . any)))) + (if (if #{tmp 22492}# (@apply - (lambda (#{a 24382}# #{b 24383}#) - (if (symbol? #{a 24382}#) + (lambda (#{a 22496}# #{b 22497}#) + (if (symbol? #{a 22496}#) #t - (if (if (vector? #{a 24382}#) - (if (= (vector-length #{a 24382}#) 4) - (eq? (vector-ref #{a 24382}# 0) + (if (if (vector? #{a 22496}#) + (if (= (vector-length #{a 22496}#) 4) + (eq? (vector-ref #{a 22496}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24382}# 1)) + (symbol? (vector-ref #{a 22496}# 1)) #f))) - #{tmp 24378}#) + #{tmp 22492}#) #f) (@apply - (lambda (#{a 24410}# #{b 24411}#) - (let ((#{tmp 24412}# + (lambda (#{a 22524}# #{b 22525}#) + (let ((#{tmp 22526}# (symbol->keyword - (syntax->datum #{a 24410}#)))) - (#{key 24087}# - #{b 24411}# - #{req 24368}# - #{opt 24369}# - (cons (cons #{tmp 24412}# - (cons #{a 24410}# + (syntax->datum #{a 22524}#)))) + (#{key 22201}# + #{b 22525}# + #{req 22482}# + #{opt 22483}# + (cons (cons #{tmp 22526}# + (cons #{a 22524}# '(#(syntax-object #f ((top) @@ -6987,11 +6976,11 @@ #(ribcage #(k) #((top)) - #("i2490")) + #("qt")) #(ribcage #(a b) #((top) (top)) - #("i2484" "i2485")) + #("qr" "qs")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6999,10 +6988,10 @@ (top) (top) (top)) - #("i2473" - "i2474" - "i2475" - "i2476")) + #("ql" + "qm" + "qn" + "qo")) #(ribcage (check rest key @@ -7013,15 +7002,15 @@ (top) (top) (top)) - ("i2363" - "i2361" - "i2359" - "i2357" - "i2355")) + ("pb" + "pa" + "p9" + "p8" + "p7")) #(ribcage #(orig-args) #((top)) - #("i2354")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -7301,944 +7290,951 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile))))) - #{rkey 24370}#)))) - #{tmp 24378}#) - (let ((#{tmp 24415}# + #{rkey 22484}#)))) + #{tmp 22492}#) + (let ((#{tmp 22529}# ($sc-dispatch - #{args 24367}# + #{args 22481}# '((any any) . any)))) - (if (if #{tmp 24415}# + (if (if #{tmp 22529}# (@apply - (lambda (#{a 24419}# - #{init 24420}# - #{b 24421}#) - (if (symbol? #{a 24419}#) + (lambda (#{a 22533}# + #{init 22534}# + #{b 22535}#) + (if (symbol? #{a 22533}#) #t - (if (if (vector? #{a 24419}#) - (if (= (vector-length #{a 24419}#) + (if (if (vector? #{a 22533}#) + (if (= (vector-length #{a 22533}#) 4) - (eq? (vector-ref #{a 24419}# 0) + (eq? (vector-ref #{a 22533}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24419}# 1)) + (symbol? (vector-ref #{a 22533}# 1)) #f))) - #{tmp 24415}#) + #{tmp 22529}#) #f) (@apply - (lambda (#{a 24448}# #{init 24449}# #{b 24450}#) - (let ((#{tmp 24451}# + (lambda (#{a 22562}# #{init 22563}# #{b 22564}#) + (let ((#{tmp 22565}# (symbol->keyword - (syntax->datum #{a 24448}#)))) - (#{key 24087}# - #{b 24450}# - #{req 24368}# - #{opt 24369}# - (cons (list #{tmp 24451}# - #{a 24448}# - #{init 24449}#) - #{rkey 24370}#)))) - #{tmp 24415}#) - (let ((#{tmp 24454}# + (syntax->datum #{a 22562}#)))) + (#{key 22201}# + #{b 22564}# + #{req 22482}# + #{opt 22483}# + (cons (list #{tmp 22565}# + #{a 22562}# + #{init 22563}#) + #{rkey 22484}#)))) + #{tmp 22529}#) + (let ((#{tmp 22568}# ($sc-dispatch - #{args 24367}# + #{args 22481}# '((any any any) . any)))) - (if (if #{tmp 24454}# + (if (if #{tmp 22568}# (@apply - (lambda (#{a 24458}# - #{init 24459}# - #{k 24460}# - #{b 24461}#) - (if (if (symbol? #{a 24458}#) + (lambda (#{a 22572}# + #{init 22573}# + #{k 22574}# + #{b 22575}#) + (if (if (symbol? #{a 22572}#) #t - (if (if (vector? #{a 24458}#) + (if (if (vector? #{a 22572}#) (if (= (vector-length - #{a 24458}#) + #{a 22572}#) 4) (eq? (vector-ref - #{a 24458}# + #{a 22572}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 24458}# 1)) + (vector-ref #{a 22572}# 1)) #f)) (keyword? - (syntax->datum #{k 24460}#)) + (syntax->datum #{k 22574}#)) #f)) - #{tmp 24454}#) + #{tmp 22568}#) #f) (@apply - (lambda (#{a 24488}# - #{init 24489}# - #{k 24490}# - #{b 24491}#) - (#{key 24087}# - #{b 24491}# - #{req 24368}# - #{opt 24369}# - (cons (list #{k 24490}# - #{a 24488}# - #{init 24489}#) - #{rkey 24370}#))) - #{tmp 24454}#) - (let ((#{tmp 24492}# - ($sc-dispatch #{args 24367}# '(any)))) - (if (if #{tmp 24492}# + (lambda (#{a 22602}# + #{init 22603}# + #{k 22604}# + #{b 22605}#) + (#{key 22201}# + #{b 22605}# + #{req 22482}# + #{opt 22483}# + (cons (list #{k 22604}# + #{a 22602}# + #{init 22603}#) + #{rkey 22484}#))) + #{tmp 22568}#) + (let ((#{tmp 22606}# + ($sc-dispatch #{args 22481}# '(any)))) + (if (if #{tmp 22606}# (@apply - (lambda (#{aok 24496}#) - (eq? (syntax->datum #{aok 24496}#) + (lambda (#{aok 22610}#) + (eq? (syntax->datum #{aok 22610}#) #:allow-other-keys)) - #{tmp 24492}#) + #{tmp 22606}#) #f) (@apply - (lambda (#{aok 24497}#) - (#{check 24089}# - #{req 24368}# - #{opt 24369}# + (lambda (#{aok 22611}#) + (#{check 22203}# + #{req 22482}# + #{opt 22483}# #f - (cons #t (reverse #{rkey 24370}#)))) - #{tmp 24492}#) - (let ((#{tmp 24500}# + (cons #t (reverse #{rkey 22484}#)))) + #{tmp 22606}#) + (let ((#{tmp 22614}# ($sc-dispatch - #{args 24367}# + #{args 22481}# '(any any any)))) - (if (if #{tmp 24500}# + (if (if #{tmp 22614}# (@apply - (lambda (#{aok 24504}# - #{a 24505}# - #{b 24506}#) + (lambda (#{aok 22618}# + #{a 22619}# + #{b 22620}#) (if (eq? (syntax->datum - #{aok 24504}#) + #{aok 22618}#) #:allow-other-keys) (eq? (syntax->datum - #{a 24505}#) + #{a 22619}#) #:rest) #f)) - #{tmp 24500}#) + #{tmp 22614}#) #f) (@apply - (lambda (#{aok 24507}# - #{a 24508}# - #{b 24509}#) - (#{rest 24088}# - #{b 24509}# - #{req 24368}# - #{opt 24369}# + (lambda (#{aok 22621}# + #{a 22622}# + #{b 22623}#) + (#{rest 22202}# + #{b 22623}# + #{req 22482}# + #{opt 22483}# (cons #t - (reverse #{rkey 24370}#)))) - #{tmp 24500}#) - (let ((#{tmp 24512}# + (reverse #{rkey 22484}#)))) + #{tmp 22614}#) + (let ((#{tmp 22626}# ($sc-dispatch - #{args 24367}# + #{args 22481}# '(any . any)))) - (if (if #{tmp 24512}# + (if (if #{tmp 22626}# (@apply - (lambda (#{aok 24516}# - #{r 24517}#) + (lambda (#{aok 22630}# + #{r 22631}#) (if (eq? (syntax->datum - #{aok 24516}#) + #{aok 22630}#) #:allow-other-keys) - (if (symbol? #{r 24517}#) + (if (symbol? #{r 22631}#) #t (if (if (vector? - #{r 24517}#) + #{r 22631}#) (if (= (vector-length - #{r 24517}#) + #{r 22631}#) 4) (eq? (vector-ref - #{r 24517}# + #{r 22631}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 24517}# + #{r 22631}# 1)) #f)) #f)) - #{tmp 24512}#) + #{tmp 22626}#) #f) (@apply - (lambda (#{aok 24544}# - #{r 24545}#) - (#{rest 24088}# - #{r 24545}# - #{req 24368}# - #{opt 24369}# + (lambda (#{aok 22658}# + #{r 22659}#) + (#{rest 22202}# + #{r 22659}# + #{req 22482}# + #{opt 22483}# (cons #t (reverse - #{rkey 24370}#)))) - #{tmp 24512}#) - (let ((#{tmp 24548}# + #{rkey 22484}#)))) + #{tmp 22626}#) + (let ((#{tmp 22662}# ($sc-dispatch - #{args 24367}# + #{args 22481}# '(any any)))) - (if (if #{tmp 24548}# + (if (if #{tmp 22662}# (@apply - (lambda (#{a 24552}# - #{b 24553}#) + (lambda (#{a 22666}# + #{b 22667}#) (eq? (syntax->datum - #{a 24552}#) + #{a 22666}#) #:rest)) - #{tmp 24548}#) + #{tmp 22662}#) #f) (@apply - (lambda (#{a 24554}# - #{b 24555}#) - (#{rest 24088}# - #{b 24555}# - #{req 24368}# - #{opt 24369}# + (lambda (#{a 22668}# + #{b 22669}#) + (#{rest 22202}# + #{b 22669}# + #{req 22482}# + #{opt 22483}# (cons #f (reverse - #{rkey 24370}#)))) - #{tmp 24548}#) - (let ((#{tmp 24558}# - (list #{args 24367}#))) + #{rkey 22484}#)))) + #{tmp 22662}#) + (let ((#{tmp 22672}# + (list #{args 22481}#))) (if (@apply - (lambda (#{r 24560}#) + (lambda (#{r 22674}#) (if (symbol? - #{r 24560}#) + #{r 22674}#) #t (if (if (vector? - #{r 24560}#) + #{r 22674}#) (if (= (vector-length - #{r 24560}#) + #{r 22674}#) 4) (eq? (vector-ref - #{r 24560}# + #{r 22674}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 24560}# + #{r 22674}# 1)) #f))) - #{tmp 24558}#) + #{tmp 22672}#) (@apply - (lambda (#{r 24590}#) - (#{rest 24088}# - #{r 24590}# - #{req 24368}# - #{opt 24369}# + (lambda (#{r 22704}#) + (#{rest 22202}# + #{r 22704}# + #{req 22482}# + #{opt 22483}# (cons #f (reverse - #{rkey 24370}#)))) - #{tmp 24558}#) + #{rkey 22484}#)))) + #{tmp 22672}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 24084}# - #{args 24367}#))))))))))))))))))))) - (#{rest 24088}# - (lambda (#{args 24618}# - #{req 24619}# - #{opt 24620}# - #{kw 24621}#) - (let ((#{tmp 24623}# (list #{args 24618}#))) + #{orig-args 22198}# + #{args 22481}#))))))))))))))))))))) + (#{rest 22202}# + (lambda (#{args 22732}# + #{req 22733}# + #{opt 22734}# + #{kw 22735}#) + (let ((#{tmp 22737}# (list #{args 22732}#))) (if (@apply - (lambda (#{r 24625}#) - (if (symbol? #{r 24625}#) + (lambda (#{r 22739}#) + (if (symbol? #{r 22739}#) #t - (if (if (vector? #{r 24625}#) - (if (= (vector-length #{r 24625}#) 4) - (eq? (vector-ref #{r 24625}# 0) + (if (if (vector? #{r 22739}#) + (if (= (vector-length #{r 22739}#) 4) + (eq? (vector-ref #{r 22739}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 24625}# 1)) + (symbol? (vector-ref #{r 22739}# 1)) #f))) - #{tmp 24623}#) + #{tmp 22737}#) (@apply - (lambda (#{r 24655}#) - (#{check 24089}# - #{req 24619}# - #{opt 24620}# - #{r 24655}# - #{kw 24621}#)) - #{tmp 24623}#) + (lambda (#{r 22769}#) + (#{check 22203}# + #{req 22733}# + #{opt 22734}# + #{r 22769}# + #{kw 22735}#)) + #{tmp 22737}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 24084}# - #{args 24618}#))))) - (#{check 24089}# - (lambda (#{req 24659}# - #{opt 24660}# - #{rest 24661}# - #{kw 24662}#) - (if (#{distinct-bound-ids? 4441}# + #{orig-args 22198}# + #{args 22732}#))))) + (#{check 22203}# + (lambda (#{req 22773}# + #{opt 22774}# + #{rest 22775}# + #{kw 22776}#) + (if (#{distinct-bound-ids? 2769}# (append - #{req 24659}# - (map car #{opt 24660}#) - (if #{rest 24661}# (list #{rest 24661}#) '()) - (if (pair? #{kw 24662}#) - (map cadr (cdr #{kw 24662}#)) + #{req 22773}# + (map car #{opt 22774}#) + (if #{rest 22775}# (list #{rest 22775}#) '()) + (if (pair? #{kw 22776}#) + (map cadr (cdr #{kw 22776}#)) '()))) (values - #{req 24659}# - #{opt 24660}# - #{rest 24661}# - #{kw 24662}#) + #{req 22773}# + #{opt 22774}# + #{rest 22775}# + #{kw 22776}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 24084}#))))) - (#{req 24085}# #{orig-args 24084}# '())))) - (#{expand-lambda-case 4462}# - (lambda (#{e 24778}# - #{r 24779}# - #{w 24780}# - #{s 24781}# - #{mod 24782}# - #{get-formals 24783}# - #{clauses 24784}#) + #{orig-args 22198}#))))) + (#{req 22199}# #{orig-args 22198}# '())))) + (#{expand-lambda-case 2790}# + (lambda (#{e 22892}# + #{r 22893}# + #{w 22894}# + #{s 22895}# + #{mod 22896}# + #{get-formals 22897}# + #{clauses 22898}#) (letrec* - ((#{parse-req 24785}# - (lambda (#{req 24918}# - #{opt 24919}# - #{rest 24920}# - #{kw 24921}# - #{body 24922}#) - (let ((#{vars 24923}# - (map #{gen-var 4464}# #{req 24918}#)) - (#{labels 24924}# - (#{gen-labels 4418}# #{req 24918}#))) - (let ((#{r* 24925}# - (#{extend-var-env 4410}# - #{labels 24924}# - #{vars 24923}# - #{r 24779}#)) - (#{w* 24926}# - (#{make-binding-wrap 4429}# - #{req 24918}# - #{labels 24924}# - #{w 24780}#))) - (#{parse-opt 24786}# - (map syntax->datum #{req 24918}#) - #{opt 24919}# - #{rest 24920}# - #{kw 24921}# - #{body 24922}# - (reverse #{vars 24923}#) - #{r* 24925}# - #{w* 24926}# + ((#{parse-req 22899}# + (lambda (#{req 23026}# + #{opt 23027}# + #{rest 23028}# + #{kw 23029}# + #{body 23030}#) + (let ((#{vars 23031}# + (map #{gen-var 2792}# #{req 23026}#)) + (#{labels 23032}# + (#{gen-labels 2746}# #{req 23026}#))) + (let ((#{r* 23033}# + (#{extend-var-env 2738}# + #{labels 23032}# + #{vars 23031}# + #{r 22893}#)) + (#{w* 23034}# + (#{make-binding-wrap 2757}# + #{req 23026}# + #{labels 23032}# + #{w 22894}#))) + (#{parse-opt 22900}# + (map syntax->datum #{req 23026}#) + #{opt 23027}# + #{rest 23028}# + #{kw 23029}# + #{body 23030}# + (reverse #{vars 23031}#) + #{r* 23033}# + #{w* 23034}# '() '()))))) - (#{parse-opt 24786}# - (lambda (#{req 25140}# - #{opt 25141}# - #{rest 25142}# - #{kw 25143}# - #{body 25144}# - #{vars 25145}# - #{r* 25146}# - #{w* 25147}# - #{out 25148}# - #{inits 25149}#) - (if (pair? #{opt 25141}#) - (let ((#{tmp 25150}# (car #{opt 25141}#))) - (let ((#{tmp 25151}# - ($sc-dispatch #{tmp 25150}# '(any any)))) - (if #{tmp 25151}# + (#{parse-opt 22900}# + (lambda (#{req 23210}# + #{opt 23211}# + #{rest 23212}# + #{kw 23213}# + #{body 23214}# + #{vars 23215}# + #{r* 23216}# + #{w* 23217}# + #{out 23218}# + #{inits 23219}#) + (if (pair? #{opt 23211}#) + (let ((#{tmp 23220}# (car #{opt 23211}#))) + (let ((#{tmp 23221}# + ($sc-dispatch #{tmp 23220}# '(any any)))) + (if #{tmp 23221}# (@apply - (lambda (#{id 25153}# #{i 25154}#) - (let ((#{v 25155}# - (let ((#{id 25163}# - (if (if (vector? #{id 25153}#) + (lambda (#{id 23223}# #{i 23224}#) + (let ((#{v 23225}# + (let ((#{id 23233}# + (if (if (vector? #{id 23223}#) (if (= (vector-length - #{id 25153}#) + #{id 23223}#) 4) (eq? (vector-ref - #{id 25153}# + #{id 23223}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 25153}# 1) - #{id 25153}#))) + (vector-ref #{id 23223}# 1) + #{id 23223}#))) (gensym (string-append - (symbol->string #{id 25163}#) + (symbol->string #{id 23233}#) " "))))) - (let ((#{l 25156}# - (#{gen-labels 4418}# - (list #{v 25155}#)))) - (let ((#{r** 25157}# - (#{extend-var-env 4410}# - #{l 25156}# - (list #{v 25155}#) - #{r* 25146}#))) - (let ((#{w** 25158}# - (#{make-binding-wrap 4429}# - (list #{id 25153}#) - #{l 25156}# - #{w* 25147}#))) - (#{parse-opt 24786}# - #{req 25140}# - (cdr #{opt 25141}#) - #{rest 25142}# - #{kw 25143}# - #{body 25144}# - (cons #{v 25155}# #{vars 25145}#) - #{r** 25157}# - #{w** 25158}# - (cons (syntax->datum #{id 25153}#) - #{out 25148}#) - (cons (#{expand 4450}# - #{i 25154}# - #{r* 25146}# - #{w* 25147}# - #{mod 24782}#) - #{inits 25149}#))))))) - #{tmp 25151}#) + (let ((#{l 23226}# + (#{gen-labels 2746}# + (list #{v 23225}#)))) + (let ((#{r** 23227}# + (#{extend-var-env 2738}# + #{l 23226}# + (list #{v 23225}#) + #{r* 23216}#))) + (let ((#{w** 23228}# + (#{make-binding-wrap 2757}# + (list #{id 23223}#) + #{l 23226}# + #{w* 23217}#))) + (#{parse-opt 22900}# + #{req 23210}# + (cdr #{opt 23211}#) + #{rest 23212}# + #{kw 23213}# + #{body 23214}# + (cons #{v 23225}# #{vars 23215}#) + #{r** 23227}# + #{w** 23228}# + (cons (syntax->datum #{id 23223}#) + #{out 23218}#) + (cons (#{expand 2778}# + #{i 23224}# + #{r* 23216}# + #{w* 23217}# + #{mod 22896}#) + #{inits 23219}#))))))) + #{tmp 23221}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 25150}#)))) - (if #{rest 25142}# - (let ((#{v 25428}# - (let ((#{id 25438}# - (if (if (vector? #{rest 25142}#) - (if (= (vector-length #{rest 25142}#) + #{tmp 23220}#)))) + (if #{rest 23212}# + (let ((#{v 23462}# + (let ((#{id 23472}# + (if (if (vector? #{rest 23212}#) + (if (= (vector-length #{rest 23212}#) 4) - (eq? (vector-ref #{rest 25142}# 0) + (eq? (vector-ref #{rest 23212}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 25142}# 1) - #{rest 25142}#))) + (vector-ref #{rest 23212}# 1) + #{rest 23212}#))) (gensym (string-append - (symbol->string #{id 25438}#) + (symbol->string #{id 23472}#) " "))))) - (let ((#{l 25429}# - (#{gen-labels 4418}# (list #{v 25428}#)))) - (let ((#{r* 25430}# - (#{extend-var-env 4410}# - #{l 25429}# - (list #{v 25428}#) - #{r* 25146}#))) - (let ((#{w* 25431}# - (#{make-binding-wrap 4429}# - (list #{rest 25142}#) - #{l 25429}# - #{w* 25147}#))) - (#{parse-kw 24787}# - #{req 25140}# - (if (pair? #{out 25148}#) - (reverse #{out 25148}#) + (let ((#{l 23463}# + (#{gen-labels 2746}# (list #{v 23462}#)))) + (let ((#{r* 23464}# + (#{extend-var-env 2738}# + #{l 23463}# + (list #{v 23462}#) + #{r* 23216}#))) + (let ((#{w* 23465}# + (#{make-binding-wrap 2757}# + (list #{rest 23212}#) + #{l 23463}# + #{w* 23217}#))) + (#{parse-kw 22901}# + #{req 23210}# + (if (pair? #{out 23218}#) + (reverse #{out 23218}#) #f) - (syntax->datum #{rest 25142}#) - (if (pair? #{kw 25143}#) - (cdr #{kw 25143}#) - #{kw 25143}#) - #{body 25144}# - (cons #{v 25428}# #{vars 25145}#) - #{r* 25430}# - #{w* 25431}# - (if (pair? #{kw 25143}#) (car #{kw 25143}#) #f) + (syntax->datum #{rest 23212}#) + (if (pair? #{kw 23213}#) + (cdr #{kw 23213}#) + #{kw 23213}#) + #{body 23214}# + (cons #{v 23462}# #{vars 23215}#) + #{r* 23464}# + #{w* 23465}# + (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f) '() - #{inits 25149}#))))) - (#{parse-kw 24787}# - #{req 25140}# - (if (pair? #{out 25148}#) - (reverse #{out 25148}#) + #{inits 23219}#))))) + (#{parse-kw 22901}# + #{req 23210}# + (if (pair? #{out 23218}#) + (reverse #{out 23218}#) #f) #f - (if (pair? #{kw 25143}#) - (cdr #{kw 25143}#) - #{kw 25143}#) - #{body 25144}# - #{vars 25145}# - #{r* 25146}# - #{w* 25147}# - (if (pair? #{kw 25143}#) (car #{kw 25143}#) #f) + (if (pair? #{kw 23213}#) + (cdr #{kw 23213}#) + #{kw 23213}#) + #{body 23214}# + #{vars 23215}# + #{r* 23216}# + #{w* 23217}# + (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f) '() - #{inits 25149}#))))) - (#{parse-kw 24787}# - (lambda (#{req 25636}# - #{opt 25637}# - #{rest 25638}# - #{kw 25639}# - #{body 25640}# - #{vars 25641}# - #{r* 25642}# - #{w* 25643}# - #{aok 25644}# - #{out 25645}# - #{inits 25646}#) - (if (pair? #{kw 25639}#) - (let ((#{tmp 25647}# (car #{kw 25639}#))) - (let ((#{tmp 25648}# - ($sc-dispatch #{tmp 25647}# '(any any any)))) - (if #{tmp 25648}# + #{inits 23219}#))))) + (#{parse-kw 22901}# + (lambda (#{req 23634}# + #{opt 23635}# + #{rest 23636}# + #{kw 23637}# + #{body 23638}# + #{vars 23639}# + #{r* 23640}# + #{w* 23641}# + #{aok 23642}# + #{out 23643}# + #{inits 23644}#) + (if (pair? #{kw 23637}#) + (let ((#{tmp 23645}# (car #{kw 23637}#))) + (let ((#{tmp 23646}# + ($sc-dispatch #{tmp 23645}# '(any any any)))) + (if #{tmp 23646}# (@apply - (lambda (#{k 25650}# #{id 25651}# #{i 25652}#) - (let ((#{v 25653}# - (let ((#{id 25661}# - (if (if (vector? #{id 25651}#) + (lambda (#{k 23648}# #{id 23649}# #{i 23650}#) + (let ((#{v 23651}# + (let ((#{id 23659}# + (if (if (vector? #{id 23649}#) (if (= (vector-length - #{id 25651}#) + #{id 23649}#) 4) (eq? (vector-ref - #{id 25651}# + #{id 23649}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 25651}# 1) - #{id 25651}#))) + (vector-ref #{id 23649}# 1) + #{id 23649}#))) (gensym (string-append - (symbol->string #{id 25661}#) + (symbol->string #{id 23659}#) " "))))) - (let ((#{l 25654}# - (#{gen-labels 4418}# - (list #{v 25653}#)))) - (let ((#{r** 25655}# - (#{extend-var-env 4410}# - #{l 25654}# - (list #{v 25653}#) - #{r* 25642}#))) - (let ((#{w** 25656}# - (#{make-binding-wrap 4429}# - (list #{id 25651}#) - #{l 25654}# - #{w* 25643}#))) - (#{parse-kw 24787}# - #{req 25636}# - #{opt 25637}# - #{rest 25638}# - (cdr #{kw 25639}#) - #{body 25640}# - (cons #{v 25653}# #{vars 25641}#) - #{r** 25655}# - #{w** 25656}# - #{aok 25644}# - (cons (list (syntax->datum #{k 25650}#) - (syntax->datum #{id 25651}#) - #{v 25653}#) - #{out 25645}#) - (cons (#{expand 4450}# - #{i 25652}# - #{r* 25642}# - #{w* 25643}# - #{mod 24782}#) - #{inits 25646}#))))))) - #{tmp 25648}#) + (let ((#{l 23652}# + (#{gen-labels 2746}# + (list #{v 23651}#)))) + (let ((#{r** 23653}# + (#{extend-var-env 2738}# + #{l 23652}# + (list #{v 23651}#) + #{r* 23640}#))) + (let ((#{w** 23654}# + (#{make-binding-wrap 2757}# + (list #{id 23649}#) + #{l 23652}# + #{w* 23641}#))) + (#{parse-kw 22901}# + #{req 23634}# + #{opt 23635}# + #{rest 23636}# + (cdr #{kw 23637}#) + #{body 23638}# + (cons #{v 23651}# #{vars 23639}#) + #{r** 23653}# + #{w** 23654}# + #{aok 23642}# + (cons (list (syntax->datum #{k 23648}#) + (syntax->datum #{id 23649}#) + #{v 23651}#) + #{out 23643}#) + (cons (#{expand 2778}# + #{i 23650}# + #{r* 23640}# + #{w* 23641}# + #{mod 22896}#) + #{inits 23644}#))))))) + #{tmp 23646}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 25647}#)))) - (#{parse-body 24788}# - #{req 25636}# - #{opt 25637}# - #{rest 25638}# - (if (if #{aok 25644}# - #{aok 25644}# - (pair? #{out 25645}#)) - (cons #{aok 25644}# (reverse #{out 25645}#)) + #{tmp 23645}#)))) + (#{parse-body 22902}# + #{req 23634}# + #{opt 23635}# + #{rest 23636}# + (if (if #{aok 23642}# + #{aok 23642}# + (pair? #{out 23643}#)) + (cons #{aok 23642}# (reverse #{out 23643}#)) #f) - #{body 25640}# - (reverse #{vars 25641}#) - #{r* 25642}# - #{w* 25643}# - (reverse #{inits 25646}#) + #{body 23638}# + (reverse #{vars 23639}#) + #{r* 23640}# + #{w* 23641}# + (reverse #{inits 23644}#) '())))) - (#{parse-body 24788}# - (lambda (#{req 25935}# - #{opt 25936}# - #{rest 25937}# - #{kw 25938}# - #{body 25939}# - #{vars 25940}# - #{r* 25941}# - #{w* 25942}# - #{inits 25943}# - #{meta 25944}#) - (let ((#{tmp 25946}# + (#{parse-body 22902}# + (lambda (#{req 23897}# + #{opt 23898}# + #{rest 23899}# + #{kw 23900}# + #{body 23901}# + #{vars 23902}# + #{r* 23903}# + #{w* 23904}# + #{inits 23905}# + #{meta 23906}#) + (let ((#{tmp 23908}# ($sc-dispatch - #{body 25939}# + #{body 23901}# '(any any . each-any)))) - (if (if #{tmp 25946}# + (if (if #{tmp 23908}# (@apply - (lambda (#{docstring 25950}# - #{e1 25951}# - #{e2 25952}#) - (string? (syntax->datum #{docstring 25950}#))) - #{tmp 25946}#) + (lambda (#{docstring 23912}# + #{e1 23913}# + #{e2 23914}#) + (string? (syntax->datum #{docstring 23912}#))) + #{tmp 23908}#) #f) (@apply - (lambda (#{docstring 25953}# #{e1 25954}# #{e2 25955}#) - (#{parse-body 24788}# - #{req 25935}# - #{opt 25936}# - #{rest 25937}# - #{kw 25938}# - (cons #{e1 25954}# #{e2 25955}#) - #{vars 25940}# - #{r* 25941}# - #{w* 25942}# - #{inits 25943}# + (lambda (#{docstring 23915}# #{e1 23916}# #{e2 23917}#) + (#{parse-body 22902}# + #{req 23897}# + #{opt 23898}# + #{rest 23899}# + #{kw 23900}# + (cons #{e1 23916}# #{e2 23917}#) + #{vars 23902}# + #{r* 23903}# + #{w* 23904}# + #{inits 23905}# (append - #{meta 25944}# + #{meta 23906}# (list (cons 'documentation (syntax->datum - #{docstring 25953}#)))))) - #{tmp 25946}#) - (let ((#{tmp 25956}# + #{docstring 23915}#)))))) + #{tmp 23908}#) + (let ((#{tmp 23918}# ($sc-dispatch - #{body 25939}# + #{body 23901}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 25956}# + (if #{tmp 23918}# (@apply - (lambda (#{k 25960}# - #{v 25961}# - #{e1 25962}# - #{e2 25963}#) - (#{parse-body 24788}# - #{req 25935}# - #{opt 25936}# - #{rest 25937}# - #{kw 25938}# - (cons #{e1 25962}# #{e2 25963}#) - #{vars 25940}# - #{r* 25941}# - #{w* 25942}# - #{inits 25943}# + (lambda (#{k 23922}# + #{v 23923}# + #{e1 23924}# + #{e2 23925}#) + (#{parse-body 22902}# + #{req 23897}# + #{opt 23898}# + #{rest 23899}# + #{kw 23900}# + (cons #{e1 23924}# #{e2 23925}#) + #{vars 23902}# + #{r* 23903}# + #{w* 23904}# + #{inits 23905}# (append - #{meta 25944}# + #{meta 23906}# (syntax->datum - (map cons #{k 25960}# #{v 25961}#))))) - #{tmp 25956}#) - (let ((#{tmp 25964}# + (map cons #{k 23922}# #{v 23923}#))))) + #{tmp 23918}#) + (let ((#{tmp 23926}# ($sc-dispatch - #{body 25939}# + #{body 23901}# '(any . each-any)))) - (if #{tmp 25964}# + (if #{tmp 23926}# (@apply - (lambda (#{e1 25968}# #{e2 25969}#) + (lambda (#{e1 23930}# #{e2 23931}#) (values - #{meta 25944}# - #{req 25935}# - #{opt 25936}# - #{rest 25937}# - #{kw 25938}# - #{inits 25943}# - #{vars 25940}# - (#{expand-body 4454}# - (cons #{e1 25968}# #{e2 25969}#) - (#{wrap 4443}# + #{meta 23906}# + #{req 23897}# + #{opt 23898}# + #{rest 23899}# + #{kw 23900}# + #{inits 23905}# + #{vars 23902}# + (#{expand-body 2782}# + (cons #{e1 23930}# #{e2 23931}#) + (#{wrap 2771}# (begin - (if (if (pair? #{e 24778}#) - #{s 24781}# + (if (if (pair? #{e 22892}#) + #{s 22895}# #f) (set-source-properties! - #{e 24778}# - #{s 24781}#)) - #{e 24778}#) - #{w 24780}# - #{mod 24782}#) - #{r* 25941}# - #{w* 25942}# - #{mod 24782}#))) - #{tmp 25964}#) + #{e 22892}# + #{s 22895}#)) + #{e 22892}#) + #{w 22894}# + #{mod 22896}#) + #{r* 23903}# + #{w* 23904}# + #{mod 22896}#))) + #{tmp 23926}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 25939}#)))))))))) - (let ((#{tmp 24790}# - ($sc-dispatch #{clauses 24784}# '()))) - (if #{tmp 24790}# + #{body 23901}#)))))))))) + (let ((#{tmp 22904}# + ($sc-dispatch #{clauses 22898}# '()))) + (if #{tmp 22904}# (@apply (lambda () (values '() #f)) - #{tmp 24790}#) - (let ((#{tmp 24794}# + #{tmp 22904}#) + (let ((#{tmp 22908}# ($sc-dispatch - #{clauses 24784}# + #{clauses 22898}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 24794}# + (if #{tmp 22908}# (@apply - (lambda (#{args 24798}# - #{e1 24799}# - #{e2 24800}# - #{args* 24801}# - #{e1* 24802}# - #{e2* 24803}#) + (lambda (#{args 22912}# + #{e1 22913}# + #{e2 22914}# + #{args* 22915}# + #{e1* 22916}# + #{e2* 22917}#) (call-with-values (lambda () - (#{get-formals 24783}# #{args 24798}#)) - (lambda (#{req 24804}# - #{opt 24805}# - #{rest 24806}# - #{kw 24807}#) + (#{get-formals 22897}# #{args 22912}#)) + (lambda (#{req 22918}# + #{opt 22919}# + #{rest 22920}# + #{kw 22921}#) (call-with-values (lambda () - (#{parse-req 24785}# - #{req 24804}# - #{opt 24805}# - #{rest 24806}# - #{kw 24807}# - (cons #{e1 24799}# #{e2 24800}#))) - (lambda (#{meta 24874}# - #{req 24875}# - #{opt 24876}# - #{rest 24877}# - #{kw 24878}# - #{inits 24879}# - #{vars 24880}# - #{body 24881}#) + (#{parse-req 22899}# + #{req 22918}# + #{opt 22919}# + #{rest 22920}# + #{kw 22921}# + (cons #{e1 22913}# #{e2 22914}#))) + (lambda (#{meta 22982}# + #{req 22983}# + #{opt 22984}# + #{rest 22985}# + #{kw 22986}# + #{inits 22987}# + #{vars 22988}# + #{body 22989}#) (call-with-values (lambda () - (#{expand-lambda-case 4462}# - #{e 24778}# - #{r 24779}# - #{w 24780}# - #{s 24781}# - #{mod 24782}# - #{get-formals 24783}# - (map (lambda (#{tmp 2833 24882}# - #{tmp 2832 24883}# - #{tmp 2831 24884}#) - (cons #{tmp 2831 24884}# - (cons #{tmp 2832 24883}# - #{tmp 2833 24882}#))) - #{e2* 24803}# - #{e1* 24802}# - #{args* 24801}#))) - (lambda (#{meta* 24885}# #{else* 24886}#) + (#{expand-lambda-case 2790}# + #{e 22892}# + #{r 22893}# + #{w 22894}# + #{s 22895}# + #{mod 22896}# + #{get-formals 22897}# + (map (lambda (#{tmp 1727 22990}# + #{tmp 1726 22991}# + #{tmp 1725 22992}#) + (cons #{tmp 1725 22992}# + (cons #{tmp 1726 22991}# + #{tmp 1727 22990}#))) + #{e2* 22917}# + #{e1* 22916}# + #{args* 22915}#))) + (lambda (#{meta* 22993}# #{else* 22994}#) (values - (append #{meta 24874}# #{meta* 24885}#) + (append #{meta 22982}# #{meta* 22993}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 24781}# - #{req 24875}# - #{opt 24876}# - #{rest 24877}# - #{kw 24878}# - #{inits 24879}# - #{vars 24880}# - #{body 24881}# - #{else* 24886}#))))))))) - #{tmp 24794}#) + #{s 22895}# + #{req 22983}# + #{opt 22984}# + #{rest 22985}# + #{kw 22986}# + #{inits 22987}# + #{vars 22988}# + #{body 22989}# + #{else* 22994}#))))))))) + #{tmp 22908}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 24784}#)))))))) - (#{strip 4463}# - (lambda (#{x 26006}# #{w 26007}#) - (if (memq 'top (car #{w 26007}#)) - #{x 26006}# + #{clauses 22898}#)))))))) + (#{strip 2791}# + (lambda (#{x 23968}# #{w 23969}#) + (if (memq 'top (car #{w 23969}#)) + #{x 23968}# (letrec* - ((#{f 26008}# - (lambda (#{x 26011}#) - (if (if (vector? #{x 26011}#) - (if (= (vector-length #{x 26011}#) 4) - (eq? (vector-ref #{x 26011}# 0) 'syntax-object) + ((#{f 23970}# + (lambda (#{x 23973}#) + (if (if (vector? #{x 23973}#) + (if (= (vector-length #{x 23973}#) 4) + (eq? (vector-ref #{x 23973}# 0) 'syntax-object) #f) #f) - (#{strip 4463}# - (vector-ref #{x 26011}# 1) - (vector-ref #{x 26011}# 2)) - (if (pair? #{x 26011}#) - (let ((#{a 26030}# (#{f 26008}# (car #{x 26011}#))) - (#{d 26031}# (#{f 26008}# (cdr #{x 26011}#)))) - (if (if (eq? #{a 26030}# (car #{x 26011}#)) - (eq? #{d 26031}# (cdr #{x 26011}#)) + (#{strip 2791}# + (vector-ref #{x 23973}# 1) + (vector-ref #{x 23973}# 2)) + (if (pair? #{x 23973}#) + (let ((#{a 23992}# (#{f 23970}# (car #{x 23973}#))) + (#{d 23993}# (#{f 23970}# (cdr #{x 23973}#)))) + (if (if (eq? #{a 23992}# (car #{x 23973}#)) + (eq? #{d 23993}# (cdr #{x 23973}#)) #f) - #{x 26011}# - (cons #{a 26030}# #{d 26031}#))) - (if (vector? #{x 26011}#) - (let ((#{old 26034}# (vector->list #{x 26011}#))) - (let ((#{new 26035}# - (map #{f 26008}# #{old 26034}#))) + #{x 23973}# + (cons #{a 23992}# #{d 23993}#))) + (if (vector? #{x 23973}#) + (let ((#{old 23996}# (vector->list #{x 23973}#))) + (let ((#{new 23997}# + (map #{f 23970}# #{old 23996}#))) (letrec* - ((#{lp 26036}# - (lambda (#{l1 26112}# #{l2 26113}#) - (if (null? #{l1 26112}#) - #{x 26011}# - (if (eq? (car #{l1 26112}#) - (car #{l2 26113}#)) - (#{lp 26036}# - (cdr #{l1 26112}#) - (cdr #{l2 26113}#)) - (list->vector #{new 26035}#)))))) - (#{lp 26036}# #{old 26034}# #{new 26035}#)))) - #{x 26011}#)))))) - (#{f 26008}# #{x 26006}#))))) - (#{gen-var 4464}# - (lambda (#{id 24930}#) - (let ((#{id 24931}# - (if (if (vector? #{id 24930}#) - (if (= (vector-length #{id 24930}#) 4) - (eq? (vector-ref #{id 24930}# 0) 'syntax-object) + ((#{lp 23998}# + (lambda (#{l1 24074}# #{l2 24075}#) + (if (null? #{l1 24074}#) + #{x 23973}# + (if (eq? (car #{l1 24074}#) + (car #{l2 24075}#)) + (#{lp 23998}# + (cdr #{l1 24074}#) + (cdr #{l2 24075}#)) + (list->vector #{new 23997}#)))))) + (#{lp 23998}# #{old 23996}# #{new 23997}#)))) + #{x 23973}#)))))) + (#{f 23970}# #{x 23968}#))))) + (#{gen-var 2792}# + (lambda (#{id 23038}#) + (let ((#{id 23039}# + (if (if (vector? #{id 23038}#) + (if (= (vector-length #{id 23038}#) 4) + (eq? (vector-ref #{id 23038}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 24930}# 1) - #{id 24930}#))) + (vector-ref #{id 23038}# 1) + #{id 23038}#))) (gensym - (string-append (symbol->string #{id 24931}#) " ")))))) + (string-append (symbol->string #{id 23039}#) " ")))))) (begin - (set! #{transformer-environment 4436}# + (set! #{gen-label 2745}# + (let ((#{i 13949}# 0)) + (lambda () + (let ((#{n 13950}# #{i 13949}#)) + (begin + (set! #{i 13949}# (#{1+}# #{n 13950}#)) + (number->string #{n 13950}# 36)))))) + (set! #{transformer-environment 2764}# (make-fluid - (lambda (#{k 14155}#) + (lambda (#{k 12327}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8254,1284 +8250,1284 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 4413}# + (#{global-extend 2741}# 'core 'syntax-parameterize - (lambda (#{e 4585}# - #{r 4586}# - #{w 4587}# - #{s 4588}# - #{mod 4589}#) - (let ((#{tmp 4591}# + (lambda (#{e 2913}# + #{r 2914}# + #{w 2915}# + #{s 2916}# + #{mod 2917}#) + (let ((#{tmp 2919}# ($sc-dispatch - #{e 4585}# + #{e 2913}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4591}# + (if (if #{tmp 2919}# (@apply - (lambda (#{var 4595}# - #{val 4596}# - #{e1 4597}# - #{e2 4598}#) - (#{valid-bound-ids? 4440}# #{var 4595}#)) - #{tmp 4591}#) + (lambda (#{var 2923}# + #{val 2924}# + #{e1 2925}# + #{e2 2926}#) + (#{valid-bound-ids? 2768}# #{var 2923}#)) + #{tmp 2919}#) #f) (@apply - (lambda (#{var 4676}# - #{val 4677}# - #{e1 4678}# - #{e2 4679}#) - (let ((#{names 4680}# - (map (lambda (#{x 4730}#) - (#{id-var-name 4434}# #{x 4730}# #{w 4587}#)) - #{var 4676}#))) + (lambda (#{var 3004}# + #{val 3005}# + #{e1 3006}# + #{e2 3007}#) + (let ((#{names 3008}# + (map (lambda (#{x 3058}#) + (#{id-var-name 2762}# #{x 3058}# #{w 2915}#)) + #{var 3004}#))) (begin (for-each - (lambda (#{id 4681}# #{n 4682}#) - (let ((#{atom-key 4683}# - (car (let ((#{t 4690}# - (assq #{n 4682}# #{r 4586}#))) - (if #{t 4690}# - (cdr #{t 4690}#) - (if (symbol? #{n 4682}#) - (let ((#{t 4695}# - (#{get-global-definition-hook 4378}# - #{n 4682}# - #{mod 4589}#))) - (if #{t 4695}# - #{t 4695}# + (lambda (#{id 3009}# #{n 3010}#) + (let ((#{atom-key 3011}# + (car (let ((#{t 3018}# + (assq #{n 3010}# #{r 2914}#))) + (if #{t 3018}# + (cdr #{t 3018}#) + (if (symbol? #{n 3010}#) + (let ((#{t 3023}# + (#{get-global-definition-hook 2706}# + #{n 3010}# + #{mod 2917}#))) + (if #{t 3023}# + #{t 3023}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key 4683}# 'displaced-lexical) + (if (eqv? #{atom-key 3011}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e 4585}# - (#{wrap 4443}# + #{e 2913}# + (#{wrap 2771}# (begin - (if (if (pair? #{id 4681}#) #{s 4588}# #f) + (if (if (pair? #{id 3009}#) #{s 2916}# #f) (set-source-properties! - #{id 4681}# - #{s 4588}#)) - #{id 4681}#) - #{w 4587}# - #{mod 4589}#))))) - #{var 4676}# - #{names 4680}#) - (#{expand-body 4454}# - (cons #{e1 4678}# #{e2 4679}#) - (#{wrap 4443}# + #{id 3009}# + #{s 2916}#)) + #{id 3009}#) + #{w 2915}# + #{mod 2917}#))))) + #{var 3004}# + #{names 3008}#) + (#{expand-body 2782}# + (cons #{e1 3006}# #{e2 3007}#) + (#{wrap 2771}# (begin - (if (if (pair? #{e 4585}#) #{s 4588}# #f) - (set-source-properties! #{e 4585}# #{s 4588}#)) - #{e 4585}#) - #{w 4587}# - #{mod 4589}#) - (#{extend-env 4409}# - #{names 4680}# - (let ((#{trans-r 4816}# - (#{macros-only-env 4411}# #{r 4586}#))) - (map (lambda (#{x 4817}#) + (if (if (pair? #{e 2913}#) #{s 2916}# #f) + (set-source-properties! #{e 2913}# #{s 2916}#)) + #{e 2913}#) + #{w 2915}# + #{mod 2917}#) + (#{extend-env 2737}# + #{names 3008}# + (let ((#{trans-r 3144}# + (#{macros-only-env 2739}# #{r 2914}#))) + (map (lambda (#{x 3145}#) (cons 'macro - (#{eval-local-transformer 4456}# - (#{expand 4450}# - #{x 4817}# - #{trans-r 4816}# - #{w 4587}# - #{mod 4589}#) - #{mod 4589}#))) - #{val 4677}#)) - #{r 4586}#) - #{w 4587}# - #{mod 4589}#)))) - #{tmp 4591}#) + (#{eval-local-transformer 2784}# + (#{expand 2778}# + #{x 3145}# + #{trans-r 3144}# + #{w 2915}# + #{mod 2917}#) + #{mod 2917}#))) + #{val 3005}#)) + #{r 2914}#) + #{w 2915}# + #{mod 2917}#)))) + #{tmp 2919}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 4585}#) #{s 4588}# #f) - (set-source-properties! #{e 4585}# #{s 4588}#)) - #{e 4585}#) - #{w 4587}# - #{mod 4589}#)))))) + (if (if (pair? #{e 2913}#) #{s 2916}# #f) + (set-source-properties! #{e 2913}# #{s 2916}#)) + #{e 2913}#) + #{w 2915}# + #{mod 2917}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5026}# - #{r 5027}# - #{w 5028}# - #{s 5029}# - #{mod 5030}#) - (let ((#{tmp 5032}# ($sc-dispatch #{e 5026}# '(_ any)))) - (if #{tmp 5032}# + (lambda (#{e 3354}# + #{r 3355}# + #{w 3356}# + #{s 3357}# + #{mod 3358}#) + (let ((#{tmp 3360}# ($sc-dispatch #{e 3354}# '(_ any)))) + (if #{tmp 3360}# (@apply - (lambda (#{e 5035}#) - (let ((#{exp 5039}# - (#{strip 4463}# #{e 5035}# #{w 5028}#))) + (lambda (#{e 3363}#) + (let ((#{exp 3367}# + (#{strip 2791}# #{e 3363}# #{w 3356}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5029}# - #{exp 5039}#))) - #{tmp 5032}#) + #{s 3357}# + #{exp 3367}#))) + #{tmp 3360}#) (syntax-violation 'quote "bad syntax" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 5026}#) #{s 5029}# #f) - (set-source-properties! #{e 5026}# #{s 5029}#)) - #{e 5026}#) - #{w 5028}# - #{mod 5030}#))))))) - (#{global-extend 4413}# + (if (if (pair? #{e 3354}#) #{s 3357}# #f) + (set-source-properties! #{e 3354}# #{s 3357}#)) + #{e 3354}#) + #{w 3356}# + #{mod 3358}#))))))) + (#{global-extend 2741}# 'core 'syntax (letrec* - ((#{gen-syntax 5259}# - (lambda (#{src 5361}# - #{e 5362}# - #{r 5363}# - #{maps 5364}# - #{ellipsis? 5365}# - #{mod 5366}#) - (if (if (symbol? #{e 5362}#) + ((#{gen-syntax 3587}# + (lambda (#{src 3689}# + #{e 3690}# + #{r 3691}# + #{maps 3692}# + #{ellipsis? 3693}# + #{mod 3694}#) + (if (if (symbol? #{e 3690}#) #t - (if (if (vector? #{e 5362}#) - (if (= (vector-length #{e 5362}#) 4) - (eq? (vector-ref #{e 5362}# 0) 'syntax-object) + (if (if (vector? #{e 3690}#) + (if (= (vector-length #{e 3690}#) 4) + (eq? (vector-ref #{e 3690}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 5362}# 1)) + (symbol? (vector-ref #{e 3690}# 1)) #f)) - (let ((#{label 5393}# - (#{id-var-name 4434}# #{e 5362}# '(())))) - (let ((#{b 5394}# - (let ((#{t 5401}# (assq #{label 5393}# #{r 5363}#))) - (if #{t 5401}# - (cdr #{t 5401}#) - (if (symbol? #{label 5393}#) - (let ((#{t 5407}# - (#{get-global-definition-hook 4378}# - #{label 5393}# - #{mod 5366}#))) - (if #{t 5407}# #{t 5407}# '(global))) + (let ((#{label 3721}# + (#{id-var-name 2762}# #{e 3690}# '(())))) + (let ((#{b 3722}# + (let ((#{t 3729}# (assq #{label 3721}# #{r 3691}#))) + (if #{t 3729}# + (cdr #{t 3729}#) + (if (symbol? #{label 3721}#) + (let ((#{t 3735}# + (#{get-global-definition-hook 2706}# + #{label 3721}# + #{mod 3694}#))) + (if #{t 3735}# #{t 3735}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 5394}#) 'syntax) + (if (eq? (car #{b 3722}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 5416}# (cdr #{b 5394}#))) - (#{gen-ref 5260}# - #{src 5361}# - (car #{var.lev 5416}#) - (cdr #{var.lev 5416}#) - #{maps 5364}#))) - (lambda (#{var 5420}# #{maps 5421}#) - (values (list 'ref #{var 5420}#) #{maps 5421}#))) - (if (#{ellipsis? 5365}# #{e 5362}#) + (let ((#{var.lev 3744}# (cdr #{b 3722}#))) + (#{gen-ref 3588}# + #{src 3689}# + (car #{var.lev 3744}#) + (cdr #{var.lev 3744}#) + #{maps 3692}#))) + (lambda (#{var 3748}# #{maps 3749}#) + (values (list 'ref #{var 3748}#) #{maps 3749}#))) + (if (#{ellipsis? 3693}# #{e 3690}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 5361}#) - (values (list 'quote #{e 5362}#) #{maps 5364}#))))) - (let ((#{tmp 5423}# - ($sc-dispatch #{e 5362}# '(any any)))) - (if (if #{tmp 5423}# + #{src 3689}#) + (values (list 'quote #{e 3690}#) #{maps 3692}#))))) + (let ((#{tmp 3751}# + ($sc-dispatch #{e 3690}# '(any any)))) + (if (if #{tmp 3751}# (@apply - (lambda (#{dots 5427}# #{e 5428}#) - (#{ellipsis? 5365}# #{dots 5427}#)) - #{tmp 5423}#) + (lambda (#{dots 3755}# #{e 3756}#) + (#{ellipsis? 3693}# #{dots 3755}#)) + #{tmp 3751}#) #f) (@apply - (lambda (#{dots 5429}# #{e 5430}#) - (#{gen-syntax 5259}# - #{src 5361}# - #{e 5430}# - #{r 5363}# - #{maps 5364}# - (lambda (#{x 5431}#) #f) - #{mod 5366}#)) - #{tmp 5423}#) - (let ((#{tmp 5432}# - ($sc-dispatch #{e 5362}# '(any any . any)))) - (if (if #{tmp 5432}# + (lambda (#{dots 3757}# #{e 3758}#) + (#{gen-syntax 3587}# + #{src 3689}# + #{e 3758}# + #{r 3691}# + #{maps 3692}# + (lambda (#{x 3759}#) #f) + #{mod 3694}#)) + #{tmp 3751}#) + (let ((#{tmp 3760}# + ($sc-dispatch #{e 3690}# '(any any . any)))) + (if (if #{tmp 3760}# (@apply - (lambda (#{x 5436}# #{dots 5437}# #{y 5438}#) - (#{ellipsis? 5365}# #{dots 5437}#)) - #{tmp 5432}#) + (lambda (#{x 3764}# #{dots 3765}# #{y 3766}#) + (#{ellipsis? 3693}# #{dots 3765}#)) + #{tmp 3760}#) #f) (@apply - (lambda (#{x 5439}# #{dots 5440}# #{y 5441}#) + (lambda (#{x 3767}# #{dots 3768}# #{y 3769}#) (letrec* - ((#{f 5442}# - (lambda (#{y 5450}# #{k 5451}#) - (let ((#{tmp 5453}# + ((#{f 3770}# + (lambda (#{y 3778}# #{k 3779}#) + (let ((#{tmp 3781}# ($sc-dispatch - #{y 5450}# + #{y 3778}# '(any . any)))) - (if (if #{tmp 5453}# + (if (if #{tmp 3781}# (@apply - (lambda (#{dots 5457}# - #{y 5458}#) - (#{ellipsis? 5365}# - #{dots 5457}#)) - #{tmp 5453}#) + (lambda (#{dots 3785}# + #{y 3786}#) + (#{ellipsis? 3693}# + #{dots 3785}#)) + #{tmp 3781}#) #f) (@apply - (lambda (#{dots 5459}# #{y 5460}#) - (#{f 5442}# - #{y 5460}# - (lambda (#{maps 5461}#) + (lambda (#{dots 3787}# #{y 3788}#) + (#{f 3770}# + #{y 3788}# + (lambda (#{maps 3789}#) (call-with-values (lambda () - (#{k 5451}# + (#{k 3779}# (cons '() - #{maps 5461}#))) - (lambda (#{x 5462}# - #{maps 5463}#) - (if (null? (car #{maps 5463}#)) + #{maps 3789}#))) + (lambda (#{x 3790}# + #{maps 3791}#) + (if (null? (car #{maps 3791}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5361}#) + #{src 3689}#) (values - (let ((#{map-env 5467}# - (car #{maps 5463}#))) + (let ((#{map-env 3795}# + (car #{maps 3791}#))) (list 'apply '(primitive append) - (#{gen-map 5262}# - #{x 5462}# - #{map-env 5467}#))) - (cdr #{maps 5463}#)))))))) - #{tmp 5453}#) + (#{gen-map 3590}# + #{x 3790}# + #{map-env 3795}#))) + (cdr #{maps 3791}#)))))))) + #{tmp 3781}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{src 5361}# - #{y 5450}# - #{r 5363}# - #{maps 5364}# - #{ellipsis? 5365}# - #{mod 5366}#)) - (lambda (#{y 5470}# #{maps 5471}#) + (#{gen-syntax 3587}# + #{src 3689}# + #{y 3778}# + #{r 3691}# + #{maps 3692}# + #{ellipsis? 3693}# + #{mod 3694}#)) + (lambda (#{y 3798}# #{maps 3799}#) (call-with-values (lambda () - (#{k 5451}# #{maps 5471}#)) - (lambda (#{x 5472}# - #{maps 5473}#) + (#{k 3779}# #{maps 3799}#)) + (lambda (#{x 3800}# + #{maps 3801}#) (values - (if (equal? #{y 5470}# ''()) - #{x 5472}# + (if (equal? #{y 3798}# ''()) + #{x 3800}# (list 'append - #{x 5472}# - #{y 5470}#)) - #{maps 5473}#)))))))))) - (#{f 5442}# - #{y 5441}# - (lambda (#{maps 5445}#) + #{x 3800}# + #{y 3798}#)) + #{maps 3801}#)))))))))) + (#{f 3770}# + #{y 3769}# + (lambda (#{maps 3773}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{src 5361}# - #{x 5439}# - #{r 5363}# - (cons '() #{maps 5445}#) - #{ellipsis? 5365}# - #{mod 5366}#)) - (lambda (#{x 5446}# #{maps 5447}#) - (if (null? (car #{maps 5447}#)) + (#{gen-syntax 3587}# + #{src 3689}# + #{x 3767}# + #{r 3691}# + (cons '() #{maps 3773}#) + #{ellipsis? 3693}# + #{mod 3694}#)) + (lambda (#{x 3774}# #{maps 3775}#) + (if (null? (car #{maps 3775}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5361}#) + #{src 3689}#) (values - (#{gen-map 5262}# - #{x 5446}# - (car #{maps 5447}#)) - (cdr #{maps 5447}#))))))))) - #{tmp 5432}#) - (let ((#{tmp 5489}# - ($sc-dispatch #{e 5362}# '(any . any)))) - (if #{tmp 5489}# + (#{gen-map 3590}# + #{x 3774}# + (car #{maps 3775}#)) + (cdr #{maps 3775}#))))))))) + #{tmp 3760}#) + (let ((#{tmp 3817}# + ($sc-dispatch #{e 3690}# '(any . any)))) + (if #{tmp 3817}# (@apply - (lambda (#{x 5493}# #{y 5494}#) + (lambda (#{x 3821}# #{y 3822}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{src 5361}# - #{x 5493}# - #{r 5363}# - #{maps 5364}# - #{ellipsis? 5365}# - #{mod 5366}#)) - (lambda (#{x 5495}# #{maps 5496}#) + (#{gen-syntax 3587}# + #{src 3689}# + #{x 3821}# + #{r 3691}# + #{maps 3692}# + #{ellipsis? 3693}# + #{mod 3694}#)) + (lambda (#{x 3823}# #{maps 3824}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{src 5361}# - #{y 5494}# - #{r 5363}# - #{maps 5496}# - #{ellipsis? 5365}# - #{mod 5366}#)) - (lambda (#{y 5497}# #{maps 5498}#) + (#{gen-syntax 3587}# + #{src 3689}# + #{y 3822}# + #{r 3691}# + #{maps 3824}# + #{ellipsis? 3693}# + #{mod 3694}#)) + (lambda (#{y 3825}# #{maps 3826}#) (values - (let ((#{atom-key 5503}# - (car #{y 5497}#))) - (if (eqv? #{atom-key 5503}# + (let ((#{atom-key 3831}# + (car #{y 3825}#))) + (if (eqv? #{atom-key 3831}# 'quote) - (if (eq? (car #{x 5495}#) + (if (eq? (car #{x 3823}#) 'quote) (list 'quote - (cons (car (cdr #{x 5495}#)) - (car (cdr #{y 5497}#)))) - (if (eq? (car (cdr #{y 5497}#)) + (cons (car (cdr #{x 3823}#)) + (car (cdr #{y 3825}#)))) + (if (eq? (car (cdr #{y 3825}#)) '()) - (list 'list #{x 5495}#) + (list 'list #{x 3823}#) (list 'cons - #{x 5495}# - #{y 5497}#))) - (if (eqv? #{atom-key 5503}# + #{x 3823}# + #{y 3825}#))) + (if (eqv? #{atom-key 3831}# 'list) (cons 'list - (cons #{x 5495}# - (cdr #{y 5497}#))) + (cons #{x 3823}# + (cdr #{y 3825}#))) (list 'cons - #{x 5495}# - #{y 5497}#)))) - #{maps 5498}#)))))) - #{tmp 5489}#) - (let ((#{tmp 5532}# + #{x 3823}# + #{y 3825}#)))) + #{maps 3826}#)))))) + #{tmp 3817}#) + (let ((#{tmp 3860}# ($sc-dispatch - #{e 5362}# + #{e 3690}# '#(vector (any . each-any))))) - (if #{tmp 5532}# + (if #{tmp 3860}# (@apply - (lambda (#{e1 5536}# #{e2 5537}#) + (lambda (#{e1 3864}# #{e2 3865}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{src 5361}# - (cons #{e1 5536}# #{e2 5537}#) - #{r 5363}# - #{maps 5364}# - #{ellipsis? 5365}# - #{mod 5366}#)) - (lambda (#{e 5538}# #{maps 5539}#) + (#{gen-syntax 3587}# + #{src 3689}# + (cons #{e1 3864}# #{e2 3865}#) + #{r 3691}# + #{maps 3692}# + #{ellipsis? 3693}# + #{mod 3694}#)) + (lambda (#{e 3866}# #{maps 3867}#) (values - (if (eq? (car #{e 5538}#) 'list) - (cons 'vector (cdr #{e 5538}#)) - (if (eq? (car #{e 5538}#) 'quote) + (if (eq? (car #{e 3866}#) 'list) + (cons 'vector (cdr #{e 3866}#)) + (if (eq? (car #{e 3866}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 5538}#)))) + (car (cdr #{e 3866}#)))) (list 'list->vector - #{e 5538}#))) - #{maps 5539}#)))) - #{tmp 5532}#) + #{e 3866}#))) + #{maps 3867}#)))) + #{tmp 3860}#) (values - (list 'quote #{e 5362}#) - #{maps 5364}#)))))))))))) - (#{gen-ref 5260}# - (lambda (#{src 5566}# - #{var 5567}# - #{level 5568}# - #{maps 5569}#) - (if (= #{level 5568}# 0) - (values #{var 5567}# #{maps 5569}#) - (if (null? #{maps 5569}#) + (list 'quote #{e 3690}#) + #{maps 3692}#)))))))))))) + (#{gen-ref 3588}# + (lambda (#{src 3894}# + #{var 3895}# + #{level 3896}# + #{maps 3897}#) + (if (= #{level 3896}# 0) + (values #{var 3895}# #{maps 3897}#) + (if (null? #{maps 3897}#) (syntax-violation 'syntax "missing ellipsis" - #{src 5566}#) + #{src 3894}#) (call-with-values (lambda () - (#{gen-ref 5260}# - #{src 5566}# - #{var 5567}# - (#{1-}# #{level 5568}#) - (cdr #{maps 5569}#))) - (lambda (#{outer-var 5570}# #{outer-maps 5571}#) - (let ((#{b 5572}# - (assq #{outer-var 5570}# (car #{maps 5569}#)))) - (if #{b 5572}# - (values (cdr #{b 5572}#) #{maps 5569}#) - (let ((#{inner-var 5574}# + (#{gen-ref 3588}# + #{src 3894}# + #{var 3895}# + (#{1-}# #{level 3896}#) + (cdr #{maps 3897}#))) + (lambda (#{outer-var 3898}# #{outer-maps 3899}#) + (let ((#{b 3900}# + (assq #{outer-var 3898}# (car #{maps 3897}#)))) + (if #{b 3900}# + (values (cdr #{b 3900}#) #{maps 3897}#) + (let ((#{inner-var 3902}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 5574}# - (cons (cons (cons #{outer-var 5570}# - #{inner-var 5574}#) - (car #{maps 5569}#)) - #{outer-maps 5571}#))))))))))) - (#{gen-map 5262}# - (lambda (#{e 5588}# #{map-env 5589}#) - (let ((#{formals 5590}# (map cdr #{map-env 5589}#)) - (#{actuals 5591}# - (map (lambda (#{x 5593}#) - (list 'ref (car #{x 5593}#))) - #{map-env 5589}#))) - (if (eq? (car #{e 5588}#) 'ref) - (car #{actuals 5591}#) + #{inner-var 3902}# + (cons (cons (cons #{outer-var 3898}# + #{inner-var 3902}#) + (car #{maps 3897}#)) + #{outer-maps 3899}#))))))))))) + (#{gen-map 3590}# + (lambda (#{e 3916}# #{map-env 3917}#) + (let ((#{formals 3918}# (map cdr #{map-env 3917}#)) + (#{actuals 3919}# + (map (lambda (#{x 3921}#) + (list 'ref (car #{x 3921}#))) + #{map-env 3917}#))) + (if (eq? (car #{e 3916}#) 'ref) + (car #{actuals 3919}#) (if (and-map - (lambda (#{x 5594}#) - (if (eq? (car #{x 5594}#) 'ref) - (memq (car (cdr #{x 5594}#)) #{formals 5590}#) + (lambda (#{x 3922}#) + (if (eq? (car #{x 3922}#) 'ref) + (memq (car (cdr #{x 3922}#)) #{formals 3918}#) #f)) - (cdr #{e 5588}#)) + (cdr #{e 3916}#)) (cons 'map - (cons (list 'primitive (car #{e 5588}#)) - (map (let ((#{r 5596}# + (cons (list 'primitive (car #{e 3916}#)) + (map (let ((#{r 3924}# (map cons - #{formals 5590}# - #{actuals 5591}#))) - (lambda (#{x 5597}#) - (cdr (assq (car (cdr #{x 5597}#)) - #{r 5596}#)))) - (cdr #{e 5588}#)))) + #{formals 3918}# + #{actuals 3919}#))) + (lambda (#{x 3925}#) + (cdr (assq (car (cdr #{x 3925}#)) + #{r 3924}#)))) + (cdr #{e 3916}#)))) (cons 'map - (cons (list 'lambda #{formals 5590}# #{e 5588}#) - #{actuals 5591}#))))))) - (#{regen 5266}# - (lambda (#{x 5599}#) - (let ((#{atom-key 5600}# (car #{x 5599}#))) - (if (eqv? #{atom-key 5600}# 'ref) - (let ((#{name 5610}# (car (cdr #{x 5599}#))) - (#{var 5611}# (car (cdr #{x 5599}#)))) + (cons (list 'lambda #{formals 3918}# #{e 3916}#) + #{actuals 3919}#))))))) + (#{regen 3594}# + (lambda (#{x 3927}#) + (let ((#{atom-key 3928}# (car #{x 3927}#))) + (if (eqv? #{atom-key 3928}# 'ref) + (let ((#{name 3938}# (car (cdr #{x 3927}#))) + (#{var 3939}# (car (cdr #{x 3927}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 5610}# - #{var 5611}#)) - (if (eqv? #{atom-key 5600}# 'primitive) - (let ((#{name 5623}# (car (cdr #{x 5599}#)))) + #{name 3938}# + #{var 3939}#)) + (if (eqv? #{atom-key 3928}# 'primitive) + (let ((#{name 3951}# (car (cdr #{x 3927}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5623}#) + #{name 3951}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5623}# + #{name 3951}# #f))) - (if (eqv? #{atom-key 5600}# 'quote) - (let ((#{exp 5641}# (car (cdr #{x 5599}#)))) + (if (eqv? #{atom-key 3928}# 'quote) + (let ((#{exp 3969}# (car (cdr #{x 3927}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 5641}#)) - (if (eqv? #{atom-key 5600}# 'lambda) - (if (list? (car (cdr #{x 5599}#))) - (let ((#{req 5652}# (car (cdr #{x 5599}#))) - (#{vars 5654}# (car (cdr #{x 5599}#))) - (#{exp 5656}# - (#{regen 5266}# - (car (cdr (cdr #{x 5599}#)))))) - (let ((#{body 5661}# + #{exp 3969}#)) + (if (eqv? #{atom-key 3928}# 'lambda) + (if (list? (car (cdr #{x 3927}#))) + (let ((#{req 3980}# (car (cdr #{x 3927}#))) + (#{vars 3982}# (car (cdr #{x 3927}#))) + (#{exp 3984}# + (#{regen 3594}# + (car (cdr (cdr #{x 3927}#)))))) + (let ((#{body 3989}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 5652}# + #{req 3980}# #f #f #f '() - #{vars 5654}# - #{exp 5656}# + #{vars 3982}# + #{exp 3984}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 5661}#))) - (error "how did we get here" #{x 5599}#)) - (let ((#{fun-exp 5677}# - (let ((#{name 5686}# (car #{x 5599}#))) + #{body 3989}#))) + (error "how did we get here" #{x 3927}#)) + (let ((#{fun-exp 4005}# + (let ((#{name 4014}# (car #{x 3927}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5686}#) + #{name 4014}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5686}# + #{name 4014}# #f)))) - (#{arg-exps 5678}# - (map #{regen 5266}# (cdr #{x 5599}#)))) + (#{arg-exps 4006}# + (map #{regen 3594}# (cdr #{x 3927}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 5677}# - #{arg-exps 5678}#)))))))))) - (lambda (#{e 5267}# - #{r 5268}# - #{w 5269}# - #{s 5270}# - #{mod 5271}#) - (let ((#{e 5272}# - (#{wrap 4443}# + #{fun-exp 4005}# + #{arg-exps 4006}#)))))))))) + (lambda (#{e 3595}# + #{r 3596}# + #{w 3597}# + #{s 3598}# + #{mod 3599}#) + (let ((#{e 3600}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 5267}#) #{s 5270}# #f) - (set-source-properties! #{e 5267}# #{s 5270}#)) - #{e 5267}#) - #{w 5269}# - #{mod 5271}#))) - (let ((#{tmp 5274}# ($sc-dispatch #{e 5272}# '(_ any)))) - (if #{tmp 5274}# + (if (if (pair? #{e 3595}#) #{s 3598}# #f) + (set-source-properties! #{e 3595}# #{s 3598}#)) + #{e 3595}#) + #{w 3597}# + #{mod 3599}#))) + (let ((#{tmp 3602}# ($sc-dispatch #{e 3600}# '(_ any)))) + (if #{tmp 3602}# (@apply - (lambda (#{x 5299}#) + (lambda (#{x 3627}#) (call-with-values (lambda () - (#{gen-syntax 5259}# - #{e 5272}# - #{x 5299}# - #{r 5268}# + (#{gen-syntax 3587}# + #{e 3600}# + #{x 3627}# + #{r 3596}# '() - #{ellipsis? 4458}# - #{mod 5271}#)) - (lambda (#{e 5353}# #{maps 5354}#) - (#{regen 5266}# #{e 5353}#)))) - #{tmp 5274}#) + #{ellipsis? 2786}# + #{mod 3599}#)) + (lambda (#{e 3681}# #{maps 3682}#) + (#{regen 3594}# #{e 3681}#)))) + #{tmp 3602}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5272}#))))))) - (#{global-extend 4413}# + #{e 3600}#))))))) + (#{global-extend 2741}# 'core 'lambda - (lambda (#{e 5879}# - #{r 5880}# - #{w 5881}# - #{s 5882}# - #{mod 5883}#) - (let ((#{tmp 5885}# - ($sc-dispatch #{e 5879}# '(_ any any . each-any)))) - (if #{tmp 5885}# + (lambda (#{e 4203}# + #{r 4204}# + #{w 4205}# + #{s 4206}# + #{mod 4207}#) + (let ((#{tmp 4209}# + ($sc-dispatch #{e 4203}# '(_ any any . each-any)))) + (if #{tmp 4209}# (@apply - (lambda (#{args 5889}# #{e1 5890}# #{e2 5891}#) + (lambda (#{args 4213}# #{e1 4214}# #{e2 4215}#) (call-with-values (lambda () - (#{lambda-formals 4459}# #{args 5889}#)) - (lambda (#{req 5894}# - #{opt 5895}# - #{rest 5896}# - #{kw 5897}#) + (#{lambda-formals 2787}# #{args 4213}#)) + (lambda (#{req 4218}# + #{opt 4219}# + #{rest 4220}# + #{kw 4221}#) (letrec* - ((#{lp 5898}# - (lambda (#{body 5901}# #{meta 5902}#) - (let ((#{tmp 5904}# + ((#{lp 4222}# + (lambda (#{body 4225}# #{meta 4226}#) + (let ((#{tmp 4228}# ($sc-dispatch - #{body 5901}# + #{body 4225}# '(any any . each-any)))) - (if (if #{tmp 5904}# + (if (if #{tmp 4228}# (@apply - (lambda (#{docstring 5908}# - #{e1 5909}# - #{e2 5910}#) + (lambda (#{docstring 4232}# + #{e1 4233}# + #{e2 4234}#) (string? - (syntax->datum #{docstring 5908}#))) - #{tmp 5904}#) + (syntax->datum #{docstring 4232}#))) + #{tmp 4228}#) #f) (@apply - (lambda (#{docstring 5911}# - #{e1 5912}# - #{e2 5913}#) - (#{lp 5898}# - (cons #{e1 5912}# #{e2 5913}#) + (lambda (#{docstring 4235}# + #{e1 4236}# + #{e2 4237}#) + (#{lp 4222}# + (cons #{e1 4236}# #{e2 4237}#) (append - #{meta 5902}# + #{meta 4226}# (list (cons 'documentation (syntax->datum - #{docstring 5911}#)))))) - #{tmp 5904}#) - (let ((#{tmp 5914}# + #{docstring 4235}#)))))) + #{tmp 4228}#) + (let ((#{tmp 4238}# ($sc-dispatch - #{body 5901}# + #{body 4225}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 5914}# + (if #{tmp 4238}# (@apply - (lambda (#{k 5918}# - #{v 5919}# - #{e1 5920}# - #{e2 5921}#) - (#{lp 5898}# - (cons #{e1 5920}# #{e2 5921}#) + (lambda (#{k 4242}# + #{v 4243}# + #{e1 4244}# + #{e2 4245}#) + (#{lp 4222}# + (cons #{e1 4244}# #{e2 4245}#) (append - #{meta 5902}# + #{meta 4226}# (syntax->datum (map cons - #{k 5918}# - #{v 5919}#))))) - #{tmp 5914}#) - (#{expand-simple-lambda 4460}# - #{e 5879}# - #{r 5880}# - #{w 5881}# - #{s 5882}# - #{mod 5883}# - #{req 5894}# - #{rest 5896}# - #{meta 5902}# - #{body 5901}#)))))))) - (#{lp 5898}# (cons #{e1 5890}# #{e2 5891}#) '()))))) - #{tmp 5885}#) + #{k 4242}# + #{v 4243}#))))) + #{tmp 4238}#) + (#{expand-simple-lambda 2788}# + #{e 4203}# + #{r 4204}# + #{w 4205}# + #{s 4206}# + #{mod 4207}# + #{req 4218}# + #{rest 4220}# + #{meta 4226}# + #{body 4225}#)))))))) + (#{lp 4222}# (cons #{e1 4214}# #{e2 4215}#) '()))))) + #{tmp 4209}#) (syntax-violation 'lambda "bad lambda" - #{e 5879}#))))) - (#{global-extend 4413}# + #{e 4203}#))))) + (#{global-extend 2741}# 'core 'lambda* - (lambda (#{e 6212}# - #{r 6213}# - #{w 6214}# - #{s 6215}# - #{mod 6216}#) - (let ((#{tmp 6218}# - ($sc-dispatch #{e 6212}# '(_ any any . each-any)))) - (if #{tmp 6218}# + (lambda (#{e 4530}# + #{r 4531}# + #{w 4532}# + #{s 4533}# + #{mod 4534}#) + (let ((#{tmp 4536}# + ($sc-dispatch #{e 4530}# '(_ any any . each-any)))) + (if #{tmp 4536}# (@apply - (lambda (#{args 6222}# #{e1 6223}# #{e2 6224}#) + (lambda (#{args 4540}# #{e1 4541}# #{e2 4542}#) (call-with-values (lambda () - (#{expand-lambda-case 4462}# - #{e 6212}# - #{r 6213}# - #{w 6214}# - #{s 6215}# - #{mod 6216}# - #{lambda*-formals 4461}# - (list (cons #{args 6222}# - (cons #{e1 6223}# #{e2 6224}#))))) - (lambda (#{meta 6227}# #{lcase 6228}#) + (#{expand-lambda-case 2790}# + #{e 4530}# + #{r 4531}# + #{w 4532}# + #{s 4533}# + #{mod 4534}# + #{lambda*-formals 2789}# + (list (cons #{args 4540}# + (cons #{e1 4541}# #{e2 4542}#))))) + (lambda (#{meta 4545}# #{lcase 4546}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6215}# - #{meta 6227}# - #{lcase 6228}#)))) - #{tmp 6218}#) + #{s 4533}# + #{meta 4545}# + #{lcase 4546}#)))) + #{tmp 4536}#) (syntax-violation 'lambda "bad lambda*" - #{e 6212}#))))) - (#{global-extend 4413}# + #{e 4530}#))))) + (#{global-extend 2741}# 'core 'case-lambda - (lambda (#{e 6398}# - #{r 6399}# - #{w 6400}# - #{s 6401}# - #{mod 6402}#) - (let ((#{tmp 6404}# + (lambda (#{e 4716}# + #{r 4717}# + #{w 4718}# + #{s 4719}# + #{mod 4720}#) + (let ((#{tmp 4722}# ($sc-dispatch - #{e 6398}# + #{e 4716}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6404}# + (if #{tmp 4722}# (@apply - (lambda (#{args 6408}# - #{e1 6409}# - #{e2 6410}# - #{args* 6411}# - #{e1* 6412}# - #{e2* 6413}#) + (lambda (#{args 4726}# + #{e1 4727}# + #{e2 4728}# + #{args* 4729}# + #{e1* 4730}# + #{e2* 4731}#) (call-with-values (lambda () - (#{expand-lambda-case 4462}# - #{e 6398}# - #{r 6399}# - #{w 6400}# - #{s 6401}# - #{mod 6402}# - #{lambda-formals 4459}# - (cons (cons #{args 6408}# - (cons #{e1 6409}# #{e2 6410}#)) - (map (lambda (#{tmp 3332 6416}# - #{tmp 3331 6417}# - #{tmp 3330 6418}#) - (cons #{tmp 3330 6418}# - (cons #{tmp 3331 6417}# - #{tmp 3332 6416}#))) - #{e2* 6413}# - #{e1* 6412}# - #{args* 6411}#)))) - (lambda (#{meta 6419}# #{lcase 6420}#) + (#{expand-lambda-case 2790}# + #{e 4716}# + #{r 4717}# + #{w 4718}# + #{s 4719}# + #{mod 4720}# + #{lambda-formals 2787}# + (cons (cons #{args 4726}# + (cons #{e1 4727}# #{e2 4728}#)) + (map (lambda (#{tmp 2034 4734}# + #{tmp 2033 4735}# + #{tmp 2032 4736}#) + (cons #{tmp 2032 4736}# + (cons #{tmp 2033 4735}# + #{tmp 2034 4734}#))) + #{e2* 4731}# + #{e1* 4730}# + #{args* 4729}#)))) + (lambda (#{meta 4737}# #{lcase 4738}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6401}# - #{meta 6419}# - #{lcase 6420}#)))) - #{tmp 6404}#) + #{s 4719}# + #{meta 4737}# + #{lcase 4738}#)))) + #{tmp 4722}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 6398}#))))) - (#{global-extend 4413}# + #{e 4716}#))))) + (#{global-extend 2741}# 'core 'case-lambda* - (lambda (#{e 6582}# - #{r 6583}# - #{w 6584}# - #{s 6585}# - #{mod 6586}#) - (let ((#{tmp 6588}# + (lambda (#{e 4900}# + #{r 4901}# + #{w 4902}# + #{s 4903}# + #{mod 4904}#) + (let ((#{tmp 4906}# ($sc-dispatch - #{e 6582}# + #{e 4900}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6588}# + (if #{tmp 4906}# (@apply - (lambda (#{args 6592}# - #{e1 6593}# - #{e2 6594}# - #{args* 6595}# - #{e1* 6596}# - #{e2* 6597}#) + (lambda (#{args 4910}# + #{e1 4911}# + #{e2 4912}# + #{args* 4913}# + #{e1* 4914}# + #{e2* 4915}#) (call-with-values (lambda () - (#{expand-lambda-case 4462}# - #{e 6582}# - #{r 6583}# - #{w 6584}# - #{s 6585}# - #{mod 6586}# - #{lambda*-formals 4461}# - (cons (cons #{args 6592}# - (cons #{e1 6593}# #{e2 6594}#)) - (map (lambda (#{tmp 3367 6600}# - #{tmp 3366 6601}# - #{tmp 3365 6602}#) - (cons #{tmp 3365 6602}# - (cons #{tmp 3366 6601}# - #{tmp 3367 6600}#))) - #{e2* 6597}# - #{e1* 6596}# - #{args* 6595}#)))) - (lambda (#{meta 6603}# #{lcase 6604}#) + (#{expand-lambda-case 2790}# + #{e 4900}# + #{r 4901}# + #{w 4902}# + #{s 4903}# + #{mod 4904}# + #{lambda*-formals 2789}# + (cons (cons #{args 4910}# + (cons #{e1 4911}# #{e2 4912}#)) + (map (lambda (#{tmp 2055 4918}# + #{tmp 2054 4919}# + #{tmp 2053 4920}#) + (cons #{tmp 2053 4920}# + (cons #{tmp 2054 4919}# + #{tmp 2055 4918}#))) + #{e2* 4915}# + #{e1* 4914}# + #{args* 4913}#)))) + (lambda (#{meta 4921}# #{lcase 4922}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6585}# - #{meta 6603}# - #{lcase 6604}#)))) - #{tmp 6588}#) + #{s 4903}# + #{meta 4921}# + #{lcase 4922}#)))) + #{tmp 4906}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 6582}#))))) - (#{global-extend 4413}# + #{e 4900}#))))) + (#{global-extend 2741}# 'core 'let (letrec* - ((#{expand-let 6795}# - (lambda (#{e 6944}# - #{r 6945}# - #{w 6946}# - #{s 6947}# - #{mod 6948}# - #{constructor 6949}# - #{ids 6950}# - #{vals 6951}# - #{exps 6952}#) - (if (not (#{valid-bound-ids? 4440}# #{ids 6950}#)) + ((#{expand-let 5113}# + (lambda (#{e 5262}# + #{r 5263}# + #{w 5264}# + #{s 5265}# + #{mod 5266}# + #{constructor 5267}# + #{ids 5268}# + #{vals 5269}# + #{exps 5270}#) + (if (not (#{valid-bound-ids? 2768}# #{ids 5268}#)) (syntax-violation 'let "duplicate bound variable" - #{e 6944}#) - (let ((#{labels 7030}# - (#{gen-labels 4418}# #{ids 6950}#)) - (#{new-vars 7031}# - (map #{gen-var 4464}# #{ids 6950}#))) - (let ((#{nw 7032}# - (#{make-binding-wrap 4429}# - #{ids 6950}# - #{labels 7030}# - #{w 6946}#)) - (#{nr 7033}# - (#{extend-var-env 4410}# - #{labels 7030}# - #{new-vars 7031}# - #{r 6945}#))) - (#{constructor 6949}# - #{s 6947}# - (map syntax->datum #{ids 6950}#) - #{new-vars 7031}# - (map (lambda (#{x 7050}#) - (#{expand 4450}# - #{x 7050}# - #{r 6945}# - #{w 6946}# - #{mod 6948}#)) - #{vals 6951}#) - (#{expand-body 4454}# - #{exps 6952}# - (#{source-wrap 4444}# - #{e 6944}# - #{nw 7032}# - #{s 6947}# - #{mod 6948}#) - #{nr 7033}# - #{nw 7032}# - #{mod 6948}#)))))))) - (lambda (#{e 6796}# - #{r 6797}# - #{w 6798}# - #{s 6799}# - #{mod 6800}#) - (let ((#{tmp 6802}# + #{e 5262}#) + (let ((#{labels 5348}# + (#{gen-labels 2746}# #{ids 5268}#)) + (#{new-vars 5349}# + (map #{gen-var 2792}# #{ids 5268}#))) + (let ((#{nw 5350}# + (#{make-binding-wrap 2757}# + #{ids 5268}# + #{labels 5348}# + #{w 5264}#)) + (#{nr 5351}# + (#{extend-var-env 2738}# + #{labels 5348}# + #{new-vars 5349}# + #{r 5263}#))) + (#{constructor 5267}# + #{s 5265}# + (map syntax->datum #{ids 5268}#) + #{new-vars 5349}# + (map (lambda (#{x 5368}#) + (#{expand 2778}# + #{x 5368}# + #{r 5263}# + #{w 5264}# + #{mod 5266}#)) + #{vals 5269}#) + (#{expand-body 2782}# + #{exps 5270}# + (#{source-wrap 2772}# + #{e 5262}# + #{nw 5350}# + #{s 5265}# + #{mod 5266}#) + #{nr 5351}# + #{nw 5350}# + #{mod 5266}#)))))))) + (lambda (#{e 5114}# + #{r 5115}# + #{w 5116}# + #{s 5117}# + #{mod 5118}#) + (let ((#{tmp 5120}# ($sc-dispatch - #{e 6796}# + #{e 5114}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 6802}# + (if (if #{tmp 5120}# (@apply - (lambda (#{id 6806}# - #{val 6807}# - #{e1 6808}# - #{e2 6809}#) - (and-map #{id? 4415}# #{id 6806}#)) - #{tmp 6802}#) + (lambda (#{id 5124}# + #{val 5125}# + #{e1 5126}# + #{e2 5127}#) + (and-map #{id? 2743}# #{id 5124}#)) + #{tmp 5120}#) #f) (@apply - (lambda (#{id 6825}# - #{val 6826}# - #{e1 6827}# - #{e2 6828}#) - (#{expand-let 6795}# - #{e 6796}# - #{r 6797}# - #{w 6798}# - #{s 6799}# - #{mod 6800}# - #{build-let 4397}# - #{id 6825}# - #{val 6826}# - (cons #{e1 6827}# #{e2 6828}#))) - #{tmp 6802}#) - (let ((#{tmp 6858}# + (lambda (#{id 5143}# + #{val 5144}# + #{e1 5145}# + #{e2 5146}#) + (#{expand-let 5113}# + #{e 5114}# + #{r 5115}# + #{w 5116}# + #{s 5117}# + #{mod 5118}# + #{build-let 2725}# + #{id 5143}# + #{val 5144}# + (cons #{e1 5145}# #{e2 5146}#))) + #{tmp 5120}#) + (let ((#{tmp 5176}# ($sc-dispatch - #{e 6796}# + #{e 5114}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 6858}# + (if (if #{tmp 5176}# (@apply - (lambda (#{f 6862}# - #{id 6863}# - #{val 6864}# - #{e1 6865}# - #{e2 6866}#) - (if (if (symbol? #{f 6862}#) + (lambda (#{f 5180}# + #{id 5181}# + #{val 5182}# + #{e1 5183}# + #{e2 5184}#) + (if (if (symbol? #{f 5180}#) #t - (if (if (vector? #{f 6862}#) - (if (= (vector-length #{f 6862}#) 4) - (eq? (vector-ref #{f 6862}# 0) + (if (if (vector? #{f 5180}#) + (if (= (vector-length #{f 5180}#) 4) + (eq? (vector-ref #{f 5180}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 6862}# 1)) + (symbol? (vector-ref #{f 5180}# 1)) #f)) - (and-map #{id? 4415}# #{id 6863}#) + (and-map #{id? 2743}# #{id 5181}#) #f)) - #{tmp 6858}#) + #{tmp 5176}#) #f) (@apply - (lambda (#{f 6908}# - #{id 6909}# - #{val 6910}# - #{e1 6911}# - #{e2 6912}#) - (#{expand-let 6795}# - #{e 6796}# - #{r 6797}# - #{w 6798}# - #{s 6799}# - #{mod 6800}# - #{build-named-let 4398}# - (cons #{f 6908}# #{id 6909}#) - #{val 6910}# - (cons #{e1 6911}# #{e2 6912}#))) - #{tmp 6858}#) + (lambda (#{f 5226}# + #{id 5227}# + #{val 5228}# + #{e1 5229}# + #{e2 5230}#) + (#{expand-let 5113}# + #{e 5114}# + #{r 5115}# + #{w 5116}# + #{s 5117}# + #{mod 5118}# + #{build-named-let 2726}# + (cons #{f 5226}# #{id 5227}#) + #{val 5228}# + (cons #{e1 5229}# #{e2 5230}#))) + #{tmp 5176}#) (syntax-violation 'let "bad let" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 6796}#) #{s 6799}# #f) - (set-source-properties! #{e 6796}# #{s 6799}#)) - #{e 6796}#) - #{w 6798}# - #{mod 6800}#))))))))) - (#{global-extend 4413}# + (if (if (pair? #{e 5114}#) #{s 5117}# #f) + (set-source-properties! #{e 5114}# #{s 5117}#)) + #{e 5114}#) + #{w 5116}# + #{mod 5118}#))))))))) + (#{global-extend 2741}# 'core 'letrec - (lambda (#{e 7492}# - #{r 7493}# - #{w 7494}# - #{s 7495}# - #{mod 7496}#) - (let ((#{tmp 7498}# + (lambda (#{e 5766}# + #{r 5767}# + #{w 5768}# + #{s 5769}# + #{mod 5770}#) + (let ((#{tmp 5772}# ($sc-dispatch - #{e 7492}# + #{e 5766}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7498}# + (if (if #{tmp 5772}# (@apply - (lambda (#{id 7502}# - #{val 7503}# - #{e1 7504}# - #{e2 7505}#) - (and-map #{id? 4415}# #{id 7502}#)) - #{tmp 7498}#) + (lambda (#{id 5776}# + #{val 5777}# + #{e1 5778}# + #{e2 5779}#) + (and-map #{id? 2743}# #{id 5776}#)) + #{tmp 5772}#) #f) (@apply - (lambda (#{id 7521}# - #{val 7522}# - #{e1 7523}# - #{e2 7524}#) - (if (not (#{valid-bound-ids? 4440}# #{id 7521}#)) + (lambda (#{id 5795}# + #{val 5796}# + #{e1 5797}# + #{e2 5798}#) + (if (not (#{valid-bound-ids? 2768}# #{id 5795}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 7492}#) - (let ((#{labels 7614}# - (#{gen-labels 4418}# #{id 7521}#)) - (#{new-vars 7615}# - (map #{gen-var 4464}# #{id 7521}#))) - (let ((#{w 7616}# - (#{make-binding-wrap 4429}# - #{id 7521}# - #{labels 7614}# - #{w 7494}#)) - (#{r 7617}# - (#{extend-var-env 4410}# - #{labels 7614}# - #{new-vars 7615}# - #{r 7493}#))) - (#{build-letrec 4399}# - #{s 7495}# + #{e 5766}#) + (let ((#{labels 5888}# + (#{gen-labels 2746}# #{id 5795}#)) + (#{new-vars 5889}# + (map #{gen-var 2792}# #{id 5795}#))) + (let ((#{w 5890}# + (#{make-binding-wrap 2757}# + #{id 5795}# + #{labels 5888}# + #{w 5768}#)) + (#{r 5891}# + (#{extend-var-env 2738}# + #{labels 5888}# + #{new-vars 5889}# + #{r 5767}#))) + (#{build-letrec 2727}# + #{s 5769}# #f - (map syntax->datum #{id 7521}#) - #{new-vars 7615}# - (map (lambda (#{x 7704}#) - (#{expand 4450}# - #{x 7704}# - #{r 7617}# - #{w 7616}# - #{mod 7496}#)) - #{val 7522}#) - (#{expand-body 4454}# - (cons #{e1 7523}# #{e2 7524}#) - (#{wrap 4443}# + (map syntax->datum #{id 5795}#) + #{new-vars 5889}# + (map (lambda (#{x 5972}#) + (#{expand 2778}# + #{x 5972}# + #{r 5891}# + #{w 5890}# + #{mod 5770}#)) + #{val 5796}#) + (#{expand-body 2782}# + (cons #{e1 5797}# #{e2 5798}#) + (#{wrap 2771}# (begin - (if (if (pair? #{e 7492}#) #{s 7495}# #f) + (if (if (pair? #{e 5766}#) #{s 5769}# #f) (set-source-properties! - #{e 7492}# - #{s 7495}#)) - #{e 7492}#) - #{w 7616}# - #{mod 7496}#) - #{r 7617}# - #{w 7616}# - #{mod 7496}#)))))) - #{tmp 7498}#) + #{e 5766}# + #{s 5769}#)) + #{e 5766}#) + #{w 5890}# + #{mod 5770}#) + #{r 5891}# + #{w 5890}# + #{mod 5770}#)))))) + #{tmp 5772}#) (syntax-violation 'letrec "bad letrec" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 7492}#) #{s 7495}# #f) - (set-source-properties! #{e 7492}# #{s 7495}#)) - #{e 7492}#) - #{w 7494}# - #{mod 7496}#)))))) - (#{global-extend 4413}# + (if (if (pair? #{e 5766}#) #{s 5769}# #f) + (set-source-properties! #{e 5766}# #{s 5769}#)) + #{e 5766}#) + #{w 5768}# + #{mod 5770}#)))))) + (#{global-extend 2741}# 'core 'letrec* - (lambda (#{e 8121}# - #{r 8122}# - #{w 8123}# - #{s 8124}# - #{mod 8125}#) - (let ((#{tmp 8127}# + (lambda (#{e 6359}# + #{r 6360}# + #{w 6361}# + #{s 6362}# + #{mod 6363}#) + (let ((#{tmp 6365}# ($sc-dispatch - #{e 8121}# + #{e 6359}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8127}# + (if (if #{tmp 6365}# (@apply - (lambda (#{id 8131}# - #{val 8132}# - #{e1 8133}# - #{e2 8134}#) - (and-map #{id? 4415}# #{id 8131}#)) - #{tmp 8127}#) + (lambda (#{id 6369}# + #{val 6370}# + #{e1 6371}# + #{e2 6372}#) + (and-map #{id? 2743}# #{id 6369}#)) + #{tmp 6365}#) #f) (@apply - (lambda (#{id 8150}# - #{val 8151}# - #{e1 8152}# - #{e2 8153}#) - (if (not (#{valid-bound-ids? 4440}# #{id 8150}#)) + (lambda (#{id 6388}# + #{val 6389}# + #{e1 6390}# + #{e2 6391}#) + (if (not (#{valid-bound-ids? 2768}# #{id 6388}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 8121}#) - (let ((#{labels 8243}# - (#{gen-labels 4418}# #{id 8150}#)) - (#{new-vars 8244}# - (map #{gen-var 4464}# #{id 8150}#))) - (let ((#{w 8245}# - (#{make-binding-wrap 4429}# - #{id 8150}# - #{labels 8243}# - #{w 8123}#)) - (#{r 8246}# - (#{extend-var-env 4410}# - #{labels 8243}# - #{new-vars 8244}# - #{r 8122}#))) - (#{build-letrec 4399}# - #{s 8124}# + #{e 6359}#) + (let ((#{labels 6481}# + (#{gen-labels 2746}# #{id 6388}#)) + (#{new-vars 6482}# + (map #{gen-var 2792}# #{id 6388}#))) + (let ((#{w 6483}# + (#{make-binding-wrap 2757}# + #{id 6388}# + #{labels 6481}# + #{w 6361}#)) + (#{r 6484}# + (#{extend-var-env 2738}# + #{labels 6481}# + #{new-vars 6482}# + #{r 6360}#))) + (#{build-letrec 2727}# + #{s 6362}# #t - (map syntax->datum #{id 8150}#) - #{new-vars 8244}# - (map (lambda (#{x 8333}#) - (#{expand 4450}# - #{x 8333}# - #{r 8246}# - #{w 8245}# - #{mod 8125}#)) - #{val 8151}#) - (#{expand-body 4454}# - (cons #{e1 8152}# #{e2 8153}#) - (#{wrap 4443}# + (map syntax->datum #{id 6388}#) + #{new-vars 6482}# + (map (lambda (#{x 6565}#) + (#{expand 2778}# + #{x 6565}# + #{r 6484}# + #{w 6483}# + #{mod 6363}#)) + #{val 6389}#) + (#{expand-body 2782}# + (cons #{e1 6390}# #{e2 6391}#) + (#{wrap 2771}# (begin - (if (if (pair? #{e 8121}#) #{s 8124}# #f) + (if (if (pair? #{e 6359}#) #{s 6362}# #f) (set-source-properties! - #{e 8121}# - #{s 8124}#)) - #{e 8121}#) - #{w 8245}# - #{mod 8125}#) - #{r 8246}# - #{w 8245}# - #{mod 8125}#)))))) - #{tmp 8127}#) + #{e 6359}# + #{s 6362}#)) + #{e 6359}#) + #{w 6483}# + #{mod 6363}#) + #{r 6484}# + #{w 6483}# + #{mod 6363}#)))))) + #{tmp 6365}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 8121}#) #{s 8124}# #f) - (set-source-properties! #{e 8121}# #{s 8124}#)) - #{e 8121}#) - #{w 8123}# - #{mod 8125}#)))))) - (#{global-extend 4413}# + (if (if (pair? #{e 6359}#) #{s 6362}# #f) + (set-source-properties! #{e 6359}# #{s 6362}#)) + #{e 6359}#) + #{w 6361}# + #{mod 6363}#)))))) + (#{global-extend 2741}# 'core 'set! - (lambda (#{e 8789}# - #{r 8790}# - #{w 8791}# - #{s 8792}# - #{mod 8793}#) - (let ((#{tmp 8795}# - ($sc-dispatch #{e 8789}# '(_ any any)))) - (if (if #{tmp 8795}# + (lambda (#{e 6991}# + #{r 6992}# + #{w 6993}# + #{s 6994}# + #{mod 6995}#) + (let ((#{tmp 6997}# + ($sc-dispatch #{e 6991}# '(_ any any)))) + (if (if #{tmp 6997}# (@apply - (lambda (#{id 8799}# #{val 8800}#) - (if (symbol? #{id 8799}#) + (lambda (#{id 7001}# #{val 7002}#) + (if (symbol? #{id 7001}#) #t - (if (if (vector? #{id 8799}#) - (if (= (vector-length #{id 8799}#) 4) - (eq? (vector-ref #{id 8799}# 0) 'syntax-object) + (if (if (vector? #{id 7001}#) + (if (= (vector-length #{id 7001}#) 4) + (eq? (vector-ref #{id 7001}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 8799}# 1)) + (symbol? (vector-ref #{id 7001}# 1)) #f))) - #{tmp 8795}#) + #{tmp 6997}#) #f) (@apply - (lambda (#{id 8827}# #{val 8828}#) - (let ((#{n 8829}# - (#{id-var-name 4434}# #{id 8827}# #{w 8791}#)) - (#{id-mod 8830}# - (if (if (vector? #{id 8827}#) - (if (= (vector-length #{id 8827}#) 4) - (eq? (vector-ref #{id 8827}# 0) + (lambda (#{id 7029}# #{val 7030}#) + (let ((#{n 7031}# + (#{id-var-name 2762}# #{id 7029}# #{w 6993}#)) + (#{id-mod 7032}# + (if (if (vector? #{id 7029}#) + (if (= (vector-length #{id 7029}#) 4) + (eq? (vector-ref #{id 7029}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 8827}# 3) - #{mod 8793}#))) - (let ((#{b 8831}# - (let ((#{t 8872}# (assq #{n 8829}# #{r 8790}#))) - (if #{t 8872}# - (cdr #{t 8872}#) - (if (symbol? #{n 8829}#) - (let ((#{t 8877}# - (#{get-global-definition-hook 4378}# - #{n 8829}# - #{id-mod 8830}#))) - (if #{t 8877}# #{t 8877}# '(global))) + (vector-ref #{id 7029}# 3) + #{mod 6995}#))) + (let ((#{b 7033}# + (let ((#{t 7074}# (assq #{n 7031}# #{r 6992}#))) + (if #{t 7074}# + (cdr #{t 7074}#) + (if (symbol? #{n 7031}#) + (let ((#{t 7079}# + (#{get-global-definition-hook 2706}# + #{n 7031}# + #{id-mod 7032}#))) + (if #{t 7079}# #{t 7079}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 8832}# (car #{b 8831}#))) - (if (eqv? #{atom-key 8832}# 'lexical) - (#{build-lexical-assignment 4386}# - #{s 8792}# - (syntax->datum #{id 8827}#) - (cdr #{b 8831}#) - (#{expand 4450}# - #{val 8828}# - #{r 8790}# - #{w 8791}# - #{mod 8793}#)) - (if (eqv? #{atom-key 8832}# 'global) - (#{build-global-assignment 4389}# - #{s 8792}# - #{n 8829}# - (#{expand 4450}# - #{val 8828}# - #{r 8790}# - #{w 8791}# - #{mod 8793}#) - #{id-mod 8830}#) - (if (eqv? #{atom-key 8832}# 'macro) - (let ((#{p 9191}# (cdr #{b 8831}#))) + (let ((#{atom-key 7034}# (car #{b 7033}#))) + (if (eqv? #{atom-key 7034}# 'lexical) + (#{build-lexical-assignment 2714}# + #{s 6994}# + (syntax->datum #{id 7029}#) + (cdr #{b 7033}#) + (#{expand 2778}# + #{val 7030}# + #{r 6992}# + #{w 6993}# + #{mod 6995}#)) + (if (eqv? #{atom-key 7034}# 'global) + (#{build-global-assignment 2717}# + #{s 6994}# + #{n 7031}# + (#{expand 2778}# + #{val 7030}# + #{r 6992}# + #{w 6993}# + #{mod 6995}#) + #{id-mod 7032}#) + (if (eqv? #{atom-key 7034}# 'macro) + (let ((#{p 7393}# (cdr #{b 7033}#))) (if (procedure-property - #{p 9191}# + #{p 7393}# 'variable-transformer) - (#{expand 4450}# - (#{expand-macro 4453}# - #{p 9191}# - #{e 8789}# - #{r 8790}# - #{w 8791}# - #{s 8792}# + (#{expand 2778}# + (#{expand-macro 2781}# + #{p 7393}# + #{e 6991}# + #{r 6992}# + #{w 6993}# + #{s 6994}# #f - #{mod 8793}#) - #{r 8790}# + #{mod 6995}#) + #{r 6992}# '(()) - #{mod 8793}#) + #{mod 6995}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 4443}# - #{e 8789}# - #{w 8791}# - #{mod 8793}#) - (#{wrap 4443}# - #{id 8827}# - #{w 8791}# - #{id-mod 8830}#)))) - (if (eqv? #{atom-key 8832}# 'displaced-lexical) + (#{wrap 2771}# + #{e 6991}# + #{w 6993}# + #{mod 6995}#) + (#{wrap 2771}# + #{id 7029}# + #{w 6993}# + #{id-mod 7032}#)))) + (if (eqv? #{atom-key 7034}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 4443}# - #{id 8827}# - #{w 8791}# - #{mod 8793}#)) + (#{wrap 2771}# + #{id 7029}# + #{w 6993}# + #{mod 6995}#)) (syntax-violation 'set! "bad set!" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 8789}#) #{s 8792}# #f) + (if (if (pair? #{e 6991}#) #{s 6994}# #f) (set-source-properties! - #{e 8789}# - #{s 8792}#)) - #{e 8789}#) - #{w 8791}# - #{mod 8793}#)))))))))) - #{tmp 8795}#) - (let ((#{tmp 9286}# + #{e 6991}# + #{s 6994}#)) + #{e 6991}#) + #{w 6993}# + #{mod 6995}#)))))))))) + #{tmp 6997}#) + (let ((#{tmp 7488}# ($sc-dispatch - #{e 8789}# + #{e 6991}# '(_ (any . each-any) any)))) - (if #{tmp 9286}# + (if #{tmp 7488}# (@apply - (lambda (#{head 9290}# #{tail 9291}# #{val 9292}#) + (lambda (#{head 7492}# #{tail 7493}# #{val 7494}#) (call-with-values (lambda () - (#{syntax-type 4449}# - #{head 9290}# - #{r 8790}# + (#{syntax-type 2777}# + #{head 7492}# + #{r 6992}# '(()) #f #f - #{mod 8793}# + #{mod 6995}# #t)) - (lambda (#{type 9295}# - #{value 9296}# - #{ee 9297}# - #{ww 9298}# - #{ss 9299}# - #{modmod 9300}#) - (if (eqv? #{type 9295}# 'module-ref) - (let ((#{val 9304}# - (#{expand 4450}# - #{val 9292}# - #{r 8790}# - #{w 8791}# - #{mod 8793}#))) + (lambda (#{type 7497}# + #{value 7498}# + #{ee 7499}# + #{ww 7500}# + #{ss 7501}# + #{modmod 7502}#) + (if (eqv? #{type 7497}# 'module-ref) + (let ((#{val 7506}# + (#{expand 2778}# + #{val 7494}# + #{r 6992}# + #{w 6993}# + #{mod 6995}#))) (call-with-values (lambda () - (#{value 9296}# - (cons #{head 9290}# #{tail 9291}#) - #{r 8790}# - #{w 8791}#)) - (lambda (#{e 9305}# - #{r 9306}# - #{w 9307}# - #{s* 9308}# - #{mod 9309}#) - (let ((#{tmp 9311}# (list #{e 9305}#))) + (#{value 7498}# + (cons #{head 7492}# #{tail 7493}#) + #{r 6992}# + #{w 6993}#)) + (lambda (#{e 7507}# + #{r 7508}# + #{w 7509}# + #{s* 7510}# + #{mod 7511}#) + (let ((#{tmp 7513}# (list #{e 7507}#))) (if (@apply - (lambda (#{e 9313}#) - (if (symbol? #{e 9313}#) + (lambda (#{e 7515}#) + (if (symbol? #{e 7515}#) #t - (if (if (vector? #{e 9313}#) + (if (if (vector? #{e 7515}#) (if (= (vector-length - #{e 9313}#) + #{e 7515}#) 4) (eq? (vector-ref - #{e 9313}# + #{e 7515}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 9313}# 1)) + (vector-ref #{e 7515}# 1)) #f))) - #{tmp 9311}#) + #{tmp 7513}#) (@apply - (lambda (#{e 9343}#) - (#{build-global-assignment 4389}# - #{s 8792}# - (syntax->datum #{e 9343}#) - #{val 9304}# - #{mod 9309}#)) - #{tmp 9311}#) + (lambda (#{e 7545}#) + (#{build-global-assignment 2717}# + #{s 6994}# + (syntax->datum #{e 7545}#) + #{val 7506}# + #{mod 7511}#)) + #{tmp 7513}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9305}#)))))) - (#{build-application 4382}# - #{s 8792}# - (let ((#{e 9568}# + #{e 7507}#)))))) + (#{build-application 2710}# + #{s 6994}# + (let ((#{e 7770}# (list '#(syntax-object setter ((top) @@ -9545,16 +9541,16 @@ (top) (top) (top)) - #("i3613" - "i3614" - "i3615" - "i3616" - "i3617" - "i3618")) + #("13b" + "13c" + "13d" + "13e" + "13f" + "13g")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3599" "i3600" "i3601")) + #("138" "139" "13a")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9563,11 +9559,11 @@ (top) (top) (top)) - #("i3563" - "i3564" - "i3565" - "i3566" - "i3567")) + #("12u" + "12v" + "12w" + "12x" + "12y")) #(ribcage (lambda-var-list gen-var @@ -9847,249 +9843,249 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) - #{head 9290}#))) + #{head 7492}#))) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 9568}# - #{r 8790}# - #{w 8791}# - (#{source-annotation 4408}# #{e 9568}#) + (#{syntax-type 2777}# + #{e 7770}# + #{r 6992}# + #{w 6993}# + (#{source-annotation 2736}# #{e 7770}#) #f - #{mod 8793}# + #{mod 6995}# #f)) - (lambda (#{type 9575}# - #{value 9576}# - #{e 9577}# - #{w 9578}# - #{s 9579}# - #{mod 9580}#) - (#{expand-expr 4451}# - #{type 9575}# - #{value 9576}# - #{e 9577}# - #{r 8790}# - #{w 9578}# - #{s 9579}# - #{mod 9580}#)))) - (map (lambda (#{e 9584}#) + (lambda (#{type 7777}# + #{value 7778}# + #{e 7779}# + #{w 7780}# + #{s 7781}# + #{mod 7782}#) + (#{expand-expr 2779}# + #{type 7777}# + #{value 7778}# + #{e 7779}# + #{r 6992}# + #{w 7780}# + #{s 7781}# + #{mod 7782}#)))) + (map (lambda (#{e 7786}#) (call-with-values (lambda () - (#{syntax-type 4449}# - #{e 9584}# - #{r 8790}# - #{w 8791}# - (#{source-annotation 4408}# - #{e 9584}#) + (#{syntax-type 2777}# + #{e 7786}# + #{r 6992}# + #{w 6993}# + (#{source-annotation 2736}# + #{e 7786}#) #f - #{mod 8793}# + #{mod 6995}# #f)) - (lambda (#{type 9599}# - #{value 9600}# - #{e 9601}# - #{w 9602}# - #{s 9603}# - #{mod 9604}#) - (#{expand-expr 4451}# - #{type 9599}# - #{value 9600}# - #{e 9601}# - #{r 8790}# - #{w 9602}# - #{s 9603}# - #{mod 9604}#)))) + (lambda (#{type 7801}# + #{value 7802}# + #{e 7803}# + #{w 7804}# + #{s 7805}# + #{mod 7806}#) + (#{expand-expr 2779}# + #{type 7801}# + #{value 7802}# + #{e 7803}# + #{r 6992}# + #{w 7804}# + #{s 7805}# + #{mod 7806}#)))) (append - #{tail 9291}# - (list #{val 9292}#)))))))) - #{tmp 9286}#) + #{tail 7493}# + (list #{val 7494}#)))))))) + #{tmp 7488}#) (syntax-violation 'set! "bad set!" - (#{wrap 4443}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 8789}#) #{s 8792}# #f) - (set-source-properties! #{e 8789}# #{s 8792}#)) - #{e 8789}#) - #{w 8791}# - #{mod 8793}#)))))))) + (if (if (pair? #{e 6991}#) #{s 6994}# #f) + (set-source-properties! #{e 6991}# #{s 6994}#)) + #{e 6991}#) + #{w 6993}# + #{mod 6995}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 9647}# #{r 9648}# #{w 9649}#) - (let ((#{tmp 9651}# - ($sc-dispatch #{e 9647}# '(_ each-any any)))) - (if (if #{tmp 9651}# + (lambda (#{e 7849}# #{r 7850}# #{w 7851}#) + (let ((#{tmp 7853}# + ($sc-dispatch #{e 7849}# '(_ each-any any)))) + (if (if #{tmp 7853}# (@apply - (lambda (#{mod 9654}# #{id 9655}#) - (if (and-map #{id? 4415}# #{mod 9654}#) - (if (symbol? #{id 9655}#) + (lambda (#{mod 7856}# #{id 7857}#) + (if (and-map #{id? 2743}# #{mod 7856}#) + (if (symbol? #{id 7857}#) #t - (if (if (vector? #{id 9655}#) - (if (= (vector-length #{id 9655}#) 4) - (eq? (vector-ref #{id 9655}# 0) + (if (if (vector? #{id 7857}#) + (if (= (vector-length #{id 7857}#) 4) + (eq? (vector-ref #{id 7857}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 9655}# 1)) + (symbol? (vector-ref #{id 7857}# 1)) #f)) #f)) - #{tmp 9651}#) + #{tmp 7853}#) #f) (@apply - (lambda (#{mod 9695}# #{id 9696}#) + (lambda (#{mod 7897}# #{id 7898}#) (values - (syntax->datum #{id 9696}#) - #{r 9648}# - #{w 9649}# + (syntax->datum #{id 7898}#) + #{r 7850}# + #{w 7851}# #f (syntax->datum (cons '#(syntax-object @@ -10098,12 +10094,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3660" "i3661")) + #("13w" "13x")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3648" "i3649" "i3650")) + #("13r" "13s" "13t")) #(ribcage (lambda-var-list gen-var @@ -10383,216 +10379,216 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod 9695}#)))) - #{tmp 9651}#) + #{mod 7897}#)))) + #{tmp 7853}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9647}#)))))) - (#{global-extend 4413}# + #{e 7849}#)))))) + (#{global-extend 2741}# 'module-ref '@@ - (lambda (#{e 9788}# #{r 9789}# #{w 9790}#) + (lambda (#{e 7990}# #{r 7991}# #{w 7992}#) (letrec* - ((#{remodulate 9791}# - (lambda (#{x 9826}# #{mod 9827}#) - (if (pair? #{x 9826}#) - (cons (#{remodulate 9791}# - (car #{x 9826}#) - #{mod 9827}#) - (#{remodulate 9791}# - (cdr #{x 9826}#) - #{mod 9827}#)) - (if (if (vector? #{x 9826}#) - (if (= (vector-length #{x 9826}#) 4) - (eq? (vector-ref #{x 9826}# 0) 'syntax-object) + ((#{remodulate 7993}# + (lambda (#{x 8028}# #{mod 8029}#) + (if (pair? #{x 8028}#) + (cons (#{remodulate 7993}# + (car #{x 8028}#) + #{mod 8029}#) + (#{remodulate 7993}# + (cdr #{x 8028}#) + #{mod 8029}#)) + (if (if (vector? #{x 8028}#) + (if (= (vector-length #{x 8028}#) 4) + (eq? (vector-ref #{x 8028}# 0) 'syntax-object) #f) #f) - (let ((#{expression 9841}# - (#{remodulate 9791}# - (vector-ref #{x 9826}# 1) - #{mod 9827}#)) - (#{wrap 9842}# (vector-ref #{x 9826}# 2))) + (let ((#{expression 8043}# + (#{remodulate 7993}# + (vector-ref #{x 8028}# 1) + #{mod 8029}#)) + (#{wrap 8044}# (vector-ref #{x 8028}# 2))) (vector 'syntax-object - #{expression 9841}# - #{wrap 9842}# - #{mod 9827}#)) - (if (vector? #{x 9826}#) - (let ((#{n 9850}# (vector-length #{x 9826}#))) - (let ((#{v 9851}# (make-vector #{n 9850}#))) + #{expression 8043}# + #{wrap 8044}# + #{mod 8029}#)) + (if (vector? #{x 8028}#) + (let ((#{n 8052}# (vector-length #{x 8028}#))) + (let ((#{v 8053}# (make-vector #{n 8052}#))) (letrec* - ((#{loop 9852}# - (lambda (#{i 9899}#) - (if (= #{i 9899}# #{n 9850}#) - #{v 9851}# + ((#{loop 8054}# + (lambda (#{i 8101}#) + (if (= #{i 8101}# #{n 8052}#) + #{v 8053}# (begin (vector-set! - #{v 9851}# - #{i 9899}# - (#{remodulate 9791}# - (vector-ref #{x 9826}# #{i 9899}#) - #{mod 9827}#)) - (#{loop 9852}# (#{1+}# #{i 9899}#))))))) - (#{loop 9852}# 0)))) - #{x 9826}#)))))) - (let ((#{tmp 9793}# - ($sc-dispatch #{e 9788}# '(_ each-any any)))) - (if (if #{tmp 9793}# + #{v 8053}# + #{i 8101}# + (#{remodulate 7993}# + (vector-ref #{x 8028}# #{i 8101}#) + #{mod 8029}#)) + (#{loop 8054}# (#{1+}# #{i 8101}#))))))) + (#{loop 8054}# 0)))) + #{x 8028}#)))))) + (let ((#{tmp 7995}# + ($sc-dispatch #{e 7990}# '(_ each-any any)))) + (if (if #{tmp 7995}# (@apply - (lambda (#{mod 9797}# #{exp 9798}#) - (and-map #{id? 4415}# #{mod 9797}#)) - #{tmp 9793}#) + (lambda (#{mod 7999}# #{exp 8000}#) + (and-map #{id? 2743}# #{mod 7999}#)) + #{tmp 7995}#) #f) (@apply - (lambda (#{mod 9814}# #{exp 9815}#) - (let ((#{mod 9816}# + (lambda (#{mod 8016}# #{exp 8017}#) + (let ((#{mod 8018}# (syntax->datum (cons '#(syntax-object private @@ -10600,15 +10596,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3704" "i3705")) - #(ribcage - (remodulate) - ((top)) - ("i3671")) + #("14a" "14b")) + #(ribcage (remodulate) ((top)) ("141")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3668" "i3669" "i3670")) + #("13y" "13z" "140")) #(ribcage (lambda-var-list gen-var @@ -10888,271 +10881,271 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod 9814}#)))) + #{mod 8016}#)))) (values - (#{remodulate 9791}# #{exp 9815}# #{mod 9816}#) - #{r 9789}# - #{w 9790}# - (#{source-annotation 4408}# #{exp 9815}#) - #{mod 9816}#))) - #{tmp 9793}#) + (#{remodulate 7993}# #{exp 8017}# #{mod 8018}#) + #{r 7991}# + #{w 7992}# + (#{source-annotation 2736}# #{exp 8017}#) + #{mod 8018}#))) + #{tmp 7995}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9788}#)))))) - (#{global-extend 4413}# + #{e 7990}#)))))) + (#{global-extend 2741}# 'core 'if - (lambda (#{e 10000}# - #{r 10001}# - #{w 10002}# - #{s 10003}# - #{mod 10004}#) - (let ((#{tmp 10006}# - ($sc-dispatch #{e 10000}# '(_ any any)))) - (if #{tmp 10006}# + (lambda (#{e 8202}# + #{r 8203}# + #{w 8204}# + #{s 8205}# + #{mod 8206}#) + (let ((#{tmp 8208}# + ($sc-dispatch #{e 8202}# '(_ any any)))) + (if #{tmp 8208}# (@apply - (lambda (#{test 10010}# #{then 10011}#) - (#{build-conditional 4383}# - #{s 10003}# - (#{expand 4450}# - #{test 10010}# - #{r 10001}# - #{w 10002}# - #{mod 10004}#) - (#{expand 4450}# - #{then 10011}# - #{r 10001}# - #{w 10002}# - #{mod 10004}#) + (lambda (#{test 8212}# #{then 8213}#) + (#{build-conditional 2711}# + #{s 8205}# + (#{expand 2778}# + #{test 8212}# + #{r 8203}# + #{w 8204}# + #{mod 8206}#) + (#{expand 2778}# + #{then 8213}# + #{r 8203}# + #{w 8204}# + #{mod 8206}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 10006}#) - (let ((#{tmp 10236}# - ($sc-dispatch #{e 10000}# '(_ any any any)))) - (if #{tmp 10236}# + #{tmp 8208}#) + (let ((#{tmp 8438}# + ($sc-dispatch #{e 8202}# '(_ any any any)))) + (if #{tmp 8438}# (@apply - (lambda (#{test 10240}# #{then 10241}# #{else 10242}#) - (#{build-conditional 4383}# - #{s 10003}# - (#{expand 4450}# - #{test 10240}# - #{r 10001}# - #{w 10002}# - #{mod 10004}#) - (#{expand 4450}# - #{then 10241}# - #{r 10001}# - #{w 10002}# - #{mod 10004}#) - (#{expand 4450}# - #{else 10242}# - #{r 10001}# - #{w 10002}# - #{mod 10004}#))) - #{tmp 10236}#) + (lambda (#{test 8442}# #{then 8443}# #{else 8444}#) + (#{build-conditional 2711}# + #{s 8205}# + (#{expand 2778}# + #{test 8442}# + #{r 8203}# + #{w 8204}# + #{mod 8206}#) + (#{expand 2778}# + #{then 8443}# + #{r 8203}# + #{w 8204}# + #{mod 8206}#) + (#{expand 2778}# + #{else 8444}# + #{r 8203}# + #{w 8204}# + #{mod 8206}#))) + #{tmp 8438}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10000}#))))))) - (#{global-extend 4413}# + #{e 8202}#))))))) + (#{global-extend 2741}# 'core 'with-fluids - (lambda (#{e 10641}# - #{r 10642}# - #{w 10643}# - #{s 10644}# - #{mod 10645}#) - (let ((#{tmp 10647}# + (lambda (#{e 8843}# + #{r 8844}# + #{w 8845}# + #{s 8846}# + #{mod 8847}#) + (let ((#{tmp 8849}# ($sc-dispatch - #{e 10641}# + #{e 8843}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 10647}# + (if #{tmp 8849}# (@apply - (lambda (#{fluid 10651}# - #{val 10652}# - #{b 10653}# - #{b* 10654}#) - (#{build-dynlet 4384}# - #{s 10644}# - (map (lambda (#{x 10735}#) - (#{expand 4450}# - #{x 10735}# - #{r 10642}# - #{w 10643}# - #{mod 10645}#)) - #{fluid 10651}#) - (map (lambda (#{x 10805}#) - (#{expand 4450}# - #{x 10805}# - #{r 10642}# - #{w 10643}# - #{mod 10645}#)) - #{val 10652}#) - (#{expand-body 4454}# - (cons #{b 10653}# #{b* 10654}#) - (#{wrap 4443}# + (lambda (#{fluid 8853}# + #{val 8854}# + #{b 8855}# + #{b* 8856}#) + (#{build-dynlet 2712}# + #{s 8846}# + (map (lambda (#{x 8937}#) + (#{expand 2778}# + #{x 8937}# + #{r 8844}# + #{w 8845}# + #{mod 8847}#)) + #{fluid 8853}#) + (map (lambda (#{x 9007}#) + (#{expand 2778}# + #{x 9007}# + #{r 8844}# + #{w 8845}# + #{mod 8847}#)) + #{val 8854}#) + (#{expand-body 2782}# + (cons #{b 8855}# #{b* 8856}#) + (#{wrap 2771}# (begin - (if (if (pair? #{e 10641}#) #{s 10644}# #f) - (set-source-properties! #{e 10641}# #{s 10644}#)) - #{e 10641}#) - #{w 10643}# - #{mod 10645}#) - #{r 10642}# - #{w 10643}# - #{mod 10645}#))) - #{tmp 10647}#) + (if (if (pair? #{e 8843}#) #{s 8846}# #f) + (set-source-properties! #{e 8843}# #{s 8846}#)) + #{e 8843}#) + #{w 8845}# + #{mod 8847}#) + #{r 8844}# + #{w 8845}# + #{mod 8847}#))) + #{tmp 8849}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10641}#))))) + #{e 8843}#))))) (module-define! (current-module) 'begin @@ -11182,75 +11175,75 @@ 'eval-when 'eval-when '())) - (#{global-extend 4413}# + (#{global-extend 2741}# 'core 'syntax-case (letrec* - ((#{convert-pattern 11173}# - (lambda (#{pattern 12770}# #{keys 12771}#) + ((#{convert-pattern 9375}# + (lambda (#{pattern 10970}# #{keys 10971}#) (letrec* - ((#{cvt* 12772}# - (lambda (#{p* 13396}# #{n 13397}# #{ids 13398}#) - (if (not (pair? #{p* 13396}#)) - (#{cvt 12774}# - #{p* 13396}# - #{n 13397}# - #{ids 13398}#) + ((#{cvt* 10972}# + (lambda (#{p* 11596}# #{n 11597}# #{ids 11598}#) + (if (not (pair? #{p* 11596}#)) + (#{cvt 10974}# + #{p* 11596}# + #{n 11597}# + #{ids 11598}#) (call-with-values (lambda () - (#{cvt* 12772}# - (cdr #{p* 13396}#) - #{n 13397}# - #{ids 13398}#)) - (lambda (#{y 13401}# #{ids 13402}#) + (#{cvt* 10972}# + (cdr #{p* 11596}#) + #{n 11597}# + #{ids 11598}#)) + (lambda (#{y 11601}# #{ids 11602}#) (call-with-values (lambda () - (#{cvt 12774}# - (car #{p* 13396}#) - #{n 13397}# - #{ids 13402}#)) - (lambda (#{x 13405}# #{ids 13406}#) + (#{cvt 10974}# + (car #{p* 11596}#) + #{n 11597}# + #{ids 11602}#)) + (lambda (#{x 11605}# #{ids 11606}#) (values - (cons #{x 13405}# #{y 13401}#) - #{ids 13406}#)))))))) - (#{v-reverse 12773}# - (lambda (#{x 13407}#) + (cons #{x 11605}# #{y 11601}#) + #{ids 11606}#)))))))) + (#{v-reverse 10973}# + (lambda (#{x 11607}#) (letrec* - ((#{loop 13408}# - (lambda (#{r 13488}# #{x 13489}#) - (if (not (pair? #{x 13489}#)) - (values #{r 13488}# #{x 13489}#) - (#{loop 13408}# - (cons (car #{x 13489}#) #{r 13488}#) - (cdr #{x 13489}#)))))) - (#{loop 13408}# '() #{x 13407}#)))) - (#{cvt 12774}# - (lambda (#{p 12777}# #{n 12778}# #{ids 12779}#) - (if (if (symbol? #{p 12777}#) + ((#{loop 11608}# + (lambda (#{r 11688}# #{x 11689}#) + (if (not (pair? #{x 11689}#)) + (values #{r 11688}# #{x 11689}#) + (#{loop 11608}# + (cons (car #{x 11689}#) #{r 11688}#) + (cdr #{x 11689}#)))))) + (#{loop 11608}# '() #{x 11607}#)))) + (#{cvt 10974}# + (lambda (#{p 10977}# #{n 10978}# #{ids 10979}#) + (if (if (symbol? #{p 10977}#) #t - (if (if (vector? #{p 12777}#) - (if (= (vector-length #{p 12777}#) 4) - (eq? (vector-ref #{p 12777}# 0) + (if (if (vector? #{p 10977}#) + (if (= (vector-length #{p 10977}#) 4) + (eq? (vector-ref #{p 10977}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 12777}# 1)) + (symbol? (vector-ref #{p 10977}# 1)) #f)) - (if (#{bound-id-member? 4442}# - #{p 12777}# - #{keys 12771}#) + (if (#{bound-id-member? 2770}# + #{p 10977}# + #{keys 10971}#) (values - (vector 'free-id #{p 12777}#) - #{ids 12779}#) - (if (if (eq? (if (if (vector? #{p 12777}#) - (if (= (vector-length #{p 12777}#) + (vector 'free-id #{p 10977}#) + #{ids 10979}#) + (if (if (eq? (if (if (vector? #{p 10977}#) + (if (= (vector-length #{p 10977}#) 4) - (eq? (vector-ref #{p 12777}# 0) + (eq? (vector-ref #{p 10977}# 0) 'syntax-object) #f) #f) - (vector-ref #{p 12777}# 1) - #{p 12777}#) + (vector-ref #{p 10977}# 1) + #{p 10977}#) (if (if (= (vector-length '#(syntax-object _ @@ -11259,19 +11252,15 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3805" - "i3806" - "i3807")) + #("15i" "15j" "15k")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3778" - "i3776" - "i3774")) + ("156" "155" "154")) #(ribcage #(pattern keys) #((top) (top)) - #("i3772" "i3773")) + #("152" "153")) #(ribcage (gen-syntax-case gen-clause @@ -11281,10 +11270,10 @@ (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" + "150" + "14z" + "14y")) #(ribcage (lambda-var-list gen-var @@ -11564,151 +11553,151 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -11721,25 +11710,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3805" "i3806" "i3807")) + #("15i" "15j" "15k")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3778" "i3776" "i3774")) + ("156" "155" "154")) #(ribcage #(pattern keys) #((top) (top)) - #("i3772" "i3773")) + #("152" "153")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -12019,154 +12005,154 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# #{p 12777}# '(())) - (#{id-var-name 4434}# + (eq? (#{id-var-name 2762}# #{p 10977}# '(())) + (#{id-var-name 2762}# '#(syntax-object _ ((top) @@ -12174,22 +12160,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3805" "i3806" "i3807")) + #("15i" "15j" "15k")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3778" "i3776" "i3774")) + ("156" "155" "154")) #(ribcage #(pattern keys) #((top) (top)) - #("i3772" "i3773")) + #("152" "153")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" "i3766" "i3764" "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -12469,189 +12455,189 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids 12779}#) + (values '_ #{ids 10979}#) (values 'any - (cons (cons #{p 12777}# #{n 12778}#) - #{ids 12779}#)))) - (let ((#{tmp 13099}# - ($sc-dispatch #{p 12777}# '(any any)))) - (if (if #{tmp 13099}# + (cons (cons #{p 10977}# #{n 10978}#) + #{ids 10979}#)))) + (let ((#{tmp 11299}# + ($sc-dispatch #{p 10977}# '(any any)))) + (if (if #{tmp 11299}# (@apply - (lambda (#{x 13103}# #{dots 13104}#) - (if (if (if (vector? #{dots 13104}#) + (lambda (#{x 11303}# #{dots 11304}#) + (if (if (if (vector? #{dots 11304}#) (if (= (vector-length - #{dots 13104}#) + #{dots 11304}#) 4) (eq? (vector-ref - #{dots 13104}# + #{dots 11304}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 13104}# 1)) + (vector-ref #{dots 11304}# 1)) #f) - (if (eq? (if (if (vector? #{dots 13104}#) + (if (eq? (if (if (vector? #{dots 11304}#) (if (= (vector-length - #{dots 13104}#) + #{dots 11304}#) 4) (eq? (vector-ref - #{dots 13104}# + #{dots 11304}# 0) 'syntax-object) #f) #f) - (vector-ref #{dots 13104}# 1) - #{dots 13104}#) + (vector-ref #{dots 11304}# 1) + #{dots 11304}#) (if (if (= (vector-length '#(syntax-object ... @@ -12667,7 +12653,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -12947,145 +12933,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -13093,9 +13079,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -13110,7 +13096,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -13390,156 +13376,156 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# - #{dots 13104}# + (eq? (#{id-var-name 2762}# + #{dots 11304}# '(())) - (#{id-var-name 4434}# + (#{id-var-name 2762}# '#(syntax-object ... ((top) @@ -13548,7 +13534,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -13828,209 +13814,209 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 13099}#) + #{tmp 11299}#) #f) (@apply - (lambda (#{x 13204}# #{dots 13205}#) + (lambda (#{x 11404}# #{dots 11405}#) (call-with-values (lambda () - (#{cvt 12774}# - #{x 13204}# - (#{1+}# #{n 12778}#) - #{ids 12779}#)) - (lambda (#{p 13206}# #{ids 13207}#) + (#{cvt 10974}# + #{x 11404}# + (#{1+}# #{n 10978}#) + #{ids 10979}#)) + (lambda (#{p 11406}# #{ids 11407}#) (values - (if (eq? #{p 13206}# 'any) + (if (eq? #{p 11406}# 'any) 'each-any - (vector 'each #{p 13206}#)) - #{ids 13207}#)))) - #{tmp 13099}#) - (let ((#{tmp 13208}# + (vector 'each #{p 11406}#)) + #{ids 11407}#)))) + #{tmp 11299}#) + (let ((#{tmp 11408}# ($sc-dispatch - #{p 12777}# + #{p 10977}# '(any any . any)))) - (if (if #{tmp 13208}# + (if (if #{tmp 11408}# (@apply - (lambda (#{x 13212}# - #{dots 13213}# - #{ys 13214}#) - (if (if (if (vector? #{dots 13213}#) + (lambda (#{x 11412}# + #{dots 11413}# + #{ys 11414}#) + (if (if (if (vector? #{dots 11413}#) (if (= (vector-length - #{dots 13213}#) + #{dots 11413}#) 4) (eq? (vector-ref - #{dots 13213}# + #{dots 11413}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 13213}# 1)) + (vector-ref #{dots 11413}# 1)) #f) (if (eq? (if (if (vector? - #{dots 13213}#) + #{dots 11413}#) (if (= (vector-length - #{dots 13213}#) + #{dots 11413}#) 4) (eq? (vector-ref - #{dots 13213}# + #{dots 11413}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots 13213}# + #{dots 11413}# 1) - #{dots 13213}#) + #{dots 11413}#) (if (if (= (vector-length '#(syntax-object ... @@ -14046,7 +14032,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -14326,145 +14312,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -14472,9 +14458,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -14489,7 +14475,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -14769,158 +14755,156 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# - #{dots 13213}# + (eq? (#{id-var-name 2762}# + #{dots 11413}# '(())) - (#{id-var-name 4434}# + (#{id-var-name 2762}# '#(syntax-object ... ((top) @@ -14929,7 +14913,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -15209,266 +15193,266 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 13208}#) + #{tmp 11408}#) #f) (@apply - (lambda (#{x 13314}# - #{dots 13315}# - #{ys 13316}#) + (lambda (#{x 11514}# + #{dots 11515}# + #{ys 11516}#) (call-with-values (lambda () - (#{cvt* 12772}# - #{ys 13316}# - #{n 12778}# - #{ids 12779}#)) - (lambda (#{ys 13319}# #{ids 13320}#) + (#{cvt* 10972}# + #{ys 11516}# + #{n 10978}# + #{ids 10979}#)) + (lambda (#{ys 11519}# #{ids 11520}#) (call-with-values (lambda () - (#{cvt 12774}# - #{x 13314}# - (#{1+}# #{n 12778}#) - #{ids 13320}#)) - (lambda (#{x 13321}# #{ids 13322}#) + (#{cvt 10974}# + #{x 11514}# + (#{1+}# #{n 10978}#) + #{ids 11520}#)) + (lambda (#{x 11521}# #{ids 11522}#) (call-with-values (lambda () - (#{v-reverse 12773}# - #{ys 13319}#)) - (lambda (#{ys 13355}# - #{e 13356}#) + (#{v-reverse 10973}# + #{ys 11519}#)) + (lambda (#{ys 11555}# + #{e 11556}#) (values (vector 'each+ - #{x 13321}# - #{ys 13355}# - #{e 13356}#) - #{ids 13322}#)))))))) - #{tmp 13208}#) - (let ((#{tmp 13357}# + #{x 11521}# + #{ys 11555}# + #{e 11556}#) + #{ids 11522}#)))))))) + #{tmp 11408}#) + (let ((#{tmp 11557}# ($sc-dispatch - #{p 12777}# + #{p 10977}# '(any . any)))) - (if #{tmp 13357}# + (if #{tmp 11557}# (@apply - (lambda (#{x 13361}# #{y 13362}#) + (lambda (#{x 11561}# #{y 11562}#) (call-with-values (lambda () - (#{cvt 12774}# - #{y 13362}# - #{n 12778}# - #{ids 12779}#)) - (lambda (#{y 13363}# #{ids 13364}#) + (#{cvt 10974}# + #{y 11562}# + #{n 10978}# + #{ids 10979}#)) + (lambda (#{y 11563}# #{ids 11564}#) (call-with-values (lambda () - (#{cvt 12774}# - #{x 13361}# - #{n 12778}# - #{ids 13364}#)) - (lambda (#{x 13365}# - #{ids 13366}#) + (#{cvt 10974}# + #{x 11561}# + #{n 10978}# + #{ids 11564}#)) + (lambda (#{x 11565}# + #{ids 11566}#) (values - (cons #{x 13365}# - #{y 13363}#) - #{ids 13366}#)))))) - #{tmp 13357}#) - (let ((#{tmp 13367}# - ($sc-dispatch #{p 12777}# '()))) - (if #{tmp 13367}# + (cons #{x 11565}# + #{y 11563}#) + #{ids 11566}#)))))) + #{tmp 11557}#) + (let ((#{tmp 11567}# + ($sc-dispatch #{p 10977}# '()))) + (if #{tmp 11567}# (@apply (lambda () - (values '() #{ids 12779}#)) - #{tmp 13367}#) - (let ((#{tmp 13371}# + (values '() #{ids 10979}#)) + #{tmp 11567}#) + (let ((#{tmp 11571}# ($sc-dispatch - #{p 12777}# + #{p 10977}# '#(vector each-any)))) - (if #{tmp 13371}# + (if #{tmp 11571}# (@apply - (lambda (#{x 13375}#) + (lambda (#{x 11575}#) (call-with-values (lambda () - (#{cvt 12774}# - #{x 13375}# - #{n 12778}# - #{ids 12779}#)) - (lambda (#{p 13376}# - #{ids 13377}#) + (#{cvt 10974}# + #{x 11575}# + #{n 10978}# + #{ids 10979}#)) + (lambda (#{p 11576}# + #{ids 11577}#) (values (vector 'vector - #{p 13376}#) - #{ids 13377}#)))) - #{tmp 13371}#) + #{p 11576}#) + #{ids 11577}#)))) + #{tmp 11571}#) (values (vector 'atom - (#{strip 4463}# - #{p 12777}# + (#{strip 2791}# + #{p 10977}# '(()))) - #{ids 12779}#))))))))))))))) - (#{cvt 12774}# #{pattern 12770}# 0 '())))) - (#{build-dispatch-call 11174}# - (lambda (#{pvars 13490}# - #{exp 13491}# - #{y 13492}# - #{r 13493}# - #{mod 13494}#) - (let ((#{ids 13495}# (map car #{pvars 13490}#))) + #{ids 10979}#))))))))))))))) + (#{cvt 10974}# #{pattern 10970}# 0 '())))) + (#{build-dispatch-call 9376}# + (lambda (#{pvars 11690}# + #{exp 11691}# + #{y 11692}# + #{r 11693}# + #{mod 11694}#) + (let ((#{ids 11695}# (map car #{pvars 11690}#))) (begin - (map cdr #{pvars 13490}#) - (let ((#{labels 13497}# - (#{gen-labels 4418}# #{ids 13495}#)) - (#{new-vars 13498}# - (map #{gen-var 4464}# #{ids 13495}#))) - (#{build-application 4382}# + (map cdr #{pvars 11690}#) + (let ((#{labels 11697}# + (#{gen-labels 2746}# #{ids 11695}#)) + (#{new-vars 11698}# + (map #{gen-var 2792}# #{ids 11695}#))) + (#{build-application 2710}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15481,81 +15465,81 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda 4391}# + (list (#{build-simple-lambda 2719}# #f - (map syntax->datum #{ids 13495}#) + (map syntax->datum #{ids 11695}#) #f - #{new-vars 13498}# + #{new-vars 11698}# '() - (#{expand 4450}# - #{exp 13491}# - (#{extend-env 4409}# - #{labels 13497}# - (map (lambda (#{var 13823}# #{level 13824}#) + (#{expand 2778}# + #{exp 11691}# + (#{extend-env 2737}# + #{labels 11697}# + (map (lambda (#{var 12017}# #{level 12018}#) (cons 'syntax - (cons #{var 13823}# - #{level 13824}#))) - #{new-vars 13498}# - (map cdr #{pvars 13490}#)) - #{r 13493}#) - (#{make-binding-wrap 4429}# - #{ids 13495}# - #{labels 13497}# + (cons #{var 12017}# + #{level 12018}#))) + #{new-vars 11698}# + (map cdr #{pvars 11690}#)) + #{r 11693}#) + (#{make-binding-wrap 2757}# + #{ids 11695}# + #{labels 11697}# '(())) - #{mod 13494}#)) - #{y 13492}#))))))) - (#{gen-clause 11175}# - (lambda (#{x 12142}# - #{keys 12143}# - #{clauses 12144}# - #{r 12145}# - #{pat 12146}# - #{fender 12147}# - #{exp 12148}# - #{mod 12149}#) + #{mod 11694}#)) + #{y 11692}#))))))) + (#{gen-clause 9377}# + (lambda (#{x 10342}# + #{keys 10343}# + #{clauses 10344}# + #{r 10345}# + #{pat 10346}# + #{fender 10347}# + #{exp 10348}# + #{mod 10349}#) (call-with-values (lambda () - (#{convert-pattern 11173}# - #{pat 12146}# - #{keys 12143}#)) - (lambda (#{p 12304}# #{pvars 12305}#) - (if (not (#{distinct-bound-ids? 4441}# - (map car #{pvars 12305}#))) + (#{convert-pattern 9375}# + #{pat 10346}# + #{keys 10343}#)) + (lambda (#{p 10504}# #{pvars 10505}#) + (if (not (#{distinct-bound-ids? 2769}# + (map car #{pvars 10505}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 12146}#) + #{pat 10346}#) (if (not (and-map - (lambda (#{x 12421}#) - (not (let ((#{x 12425}# (car #{x 12421}#))) - (if (if (if (vector? #{x 12425}#) + (lambda (#{x 10621}#) + (not (let ((#{x 10625}# (car #{x 10621}#))) + (if (if (if (vector? #{x 10625}#) (if (= (vector-length - #{x 12425}#) + #{x 10625}#) 4) (eq? (vector-ref - #{x 12425}# + #{x 10625}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 12425}# 1)) + (vector-ref #{x 10625}# 1)) #f) (if (eq? (if (if (vector? - #{x 12425}#) + #{x 10625}#) (if (= (vector-length - #{x 12425}#) + #{x 10625}#) 4) (eq? (vector-ref - #{x 12425}# + #{x 10625}# 0) 'syntax-object) #f) #f) (vector-ref - #{x 12425}# + #{x 10625}# 1) - #{x 12425}#) + #{x 10625}#) (if (if (= (vector-length '#(syntax-object ... @@ -15571,7 +15555,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -15851,145 +15835,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -15997,9 +15981,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -16014,7 +15998,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -16294,158 +16278,156 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# - #{x 12425}# + (eq? (#{id-var-name 2762}# + #{x 10625}# '(())) - (#{id-var-name 4434}# + (#{id-var-name 2762}# '#(syntax-object ... ((top) @@ -16454,7 +16436,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -16734,191 +16716,191 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars 12305}#)) + #{pvars 10505}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 12146}#) - (let ((#{y 12501}# + #{pat 10346}#) + (let ((#{y 10701}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4382}# + (#{build-application 2710}# #f - (let ((#{req 12644}# (list 'tmp)) - (#{vars 12646}# (list #{y 12501}#)) - (#{exp 12648}# - (let ((#{y 12665}# + (let ((#{req 10844}# (list 'tmp)) + (#{vars 10846}# (list #{y 10701}#)) + (#{exp 10848}# + (let ((#{y 10865}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 12501}#))) - (let ((#{test-exp 12669}# - (let ((#{tmp 12678}# + #{y 10701}#))) + (let ((#{test-exp 10869}# + (let ((#{tmp 10878}# ($sc-dispatch - #{fender 12147}# + #{fender 10347}# '#(atom #t)))) - (if #{tmp 12678}# + (if #{tmp 10878}# (@apply - (lambda () #{y 12665}#) - #{tmp 12678}#) - (let ((#{then-exp 12696}# - (#{build-dispatch-call 11174}# - #{pvars 12305}# - #{fender 12147}# - #{y 12665}# - #{r 12145}# - #{mod 12149}#)) - (#{else-exp 12697}# + (lambda () #{y 10865}#) + #{tmp 10878}#) + (let ((#{then-exp 10896}# + (#{build-dispatch-call 9376}# + #{pvars 10505}# + #{fender 10347}# + #{y 10865}# + #{r 10345}# + #{mod 10349}#)) + (#{else-exp 10897}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -16930,48 +16912,48 @@ %expanded-vtables 10) #f - #{y 12665}# - #{then-exp 12696}# - #{else-exp 12697}#))))) - (#{then-exp 12670}# - (#{build-dispatch-call 11174}# - #{pvars 12305}# - #{exp 12148}# - #{y 12665}# - #{r 12145}# - #{mod 12149}#)) - (#{else-exp 12671}# - (#{gen-syntax-case 11176}# - #{x 12142}# - #{keys 12143}# - #{clauses 12144}# - #{r 12145}# - #{mod 12149}#))) + #{y 10865}# + #{then-exp 10896}# + #{else-exp 10897}#))))) + (#{then-exp 10870}# + (#{build-dispatch-call 9376}# + #{pvars 10505}# + #{exp 10348}# + #{y 10865}# + #{r 10345}# + #{mod 10349}#)) + (#{else-exp 10871}# + (#{gen-syntax-case 9378}# + #{x 10342}# + #{keys 10343}# + #{clauses 10344}# + #{r 10345}# + #{mod 10349}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 12669}# - #{then-exp 12670}# - #{else-exp 12671}#))))) - (let ((#{body 12653}# + #{test-exp 10869}# + #{then-exp 10870}# + #{else-exp 10871}#))))) + (let ((#{body 10853}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 12644}# + #{req 10844}# #f #f #f '() - #{vars 12646}# - #{exp 12648}# + #{vars 10846}# + #{exp 10848}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 12653}#))) - (list (if (eq? #{p 12304}# 'any) - (let ((#{fun-exp 12719}# + #{body 10853}#))) + (list (if (eq? #{p 10504}# 'any) + (let ((#{fun-exp 10919}# (if (equal? (module-name (current-module)) '(guile)) @@ -16985,14 +16967,14 @@ '(guile) 'list #f))) - (#{arg-exps 12720}# - (list #{x 12142}#))) + (#{arg-exps 10920}# + (list #{x 10342}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12719}# - #{arg-exps 12720}#)) - (let ((#{fun-exp 12743}# + #{fun-exp 10919}# + #{arg-exps 10920}#)) + (let ((#{fun-exp 10943}# (if (equal? (module-name (current-module)) '(guile)) @@ -17006,27 +16988,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 12744}# - (list #{x 12142}# + (#{arg-exps 10944}# + (list #{x 10342}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 12304}#)))) + #{p 10504}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12743}# - #{arg-exps 12744}#)))))))))))) - (#{gen-syntax-case 11176}# - (lambda (#{x 11575}# - #{keys 11576}# - #{clauses 11577}# - #{r 11578}# - #{mod 11579}#) - (if (null? #{clauses 11577}#) - (let ((#{fun-exp 11584}# + #{fun-exp 10943}# + #{arg-exps 10944}#)))))))))))) + (#{gen-syntax-case 9378}# + (lambda (#{x 9777}# + #{keys 9778}# + #{clauses 9779}# + #{r 9780}# + #{mod 9781}#) + (if (null? #{clauses 9779}#) + (let ((#{fun-exp 9786}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -17038,7 +17020,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 11585}# + (#{arg-exps 9787}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -17047,64 +17029,63 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 11575}#))) + #{x 9777}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 11584}# - #{arg-exps 11585}#)) - (let ((#{tmp 11618}# (car #{clauses 11577}#))) - (let ((#{tmp 11619}# - ($sc-dispatch #{tmp 11618}# '(any any)))) - (if #{tmp 11619}# + #{fun-exp 9786}# + #{arg-exps 9787}#)) + (let ((#{tmp 9820}# (car #{clauses 9779}#))) + (let ((#{tmp 9821}# + ($sc-dispatch #{tmp 9820}# '(any any)))) + (if #{tmp 9821}# (@apply - (lambda (#{pat 11621}# #{exp 11622}#) - (if (if (if (symbol? #{pat 11621}#) + (lambda (#{pat 9823}# #{exp 9824}#) + (if (if (if (symbol? #{pat 9823}#) #t - (if (if (vector? #{pat 11621}#) - (if (= (vector-length #{pat 11621}#) + (if (if (vector? #{pat 9823}#) + (if (= (vector-length #{pat 9823}#) 4) - (eq? (vector-ref #{pat 11621}# 0) + (eq? (vector-ref #{pat 9823}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 11621}# 1)) + (symbol? (vector-ref #{pat 9823}# 1)) #f)) (and-map - (lambda (#{x 11649}#) + (lambda (#{x 9851}#) (not (if (eq? (if (if (vector? - #{pat 11621}#) + #{pat 9823}#) (if (= (vector-length - #{pat 11621}#) + #{pat 9823}#) 4) (eq? (vector-ref - #{pat 11621}# + #{pat 9823}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat 11621}# + #{pat 9823}# 1) - #{pat 11621}#) - (if (if (vector? - #{x 11649}#) + #{pat 9823}#) + (if (if (vector? #{x 9851}#) (if (= (vector-length - #{x 11649}#) + #{x 9851}#) 4) (eq? (vector-ref - #{x 11649}# + #{x 9851}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 11649}# 1) - #{x 11649}#)) - (eq? (#{id-var-name 4434}# - #{pat 11621}# + (vector-ref #{x 9851}# 1) + #{x 9851}#)) + (eq? (#{id-var-name 2762}# + #{pat 9823}# '(())) - (#{id-var-name 4434}# - #{x 11649}# + (#{id-var-name 2762}# + #{x 9851}# '(()))) #f))) (cons '#(syntax-object @@ -17113,26 +17094,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3969" "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -17412,153 +17390,153 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) - #{keys 11576}#)) + #{keys 9778}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17567,8 +17545,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3969" - "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x @@ -17581,11 +17558,11 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause @@ -17595,10 +17572,10 @@ (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" + "150" + "14z" + "14y")) #(ribcage (lambda-var-list gen-var @@ -17878,145 +17855,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -18024,9 +18001,7 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -18038,7 +18013,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3969" "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18047,21 +18022,18 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -18341,151 +18313,151 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18494,8 +18466,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3969" - "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x @@ -18508,11 +18479,11 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause @@ -18522,10 +18493,10 @@ (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" + "150" + "14z" + "14y")) #(ribcage (lambda-var-list gen-var @@ -18805,145 +18776,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -18951,9 +18922,7 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -18965,7 +18934,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3969" "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18974,21 +18943,18 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -19268,160 +19234,160 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# + (eq? (#{id-var-name 2762}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3969" "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19430,21 +19396,18 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -19724,161 +19687,161 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(())) - (#{id-var-name 4434}# + (#{id-var-name 2762}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3969" "i3970")) + #("177" "178")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19887,21 +19850,18 @@ (top) (top) (top)) - #("i3958" - "i3959" - "i3960" - "i3961" - "i3962")) + #("172" + "173" + "174" + "175" + "176")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3768" - "i3766" - "i3764" - "i3762")) + ("151" "150" "14z" "14y")) #(ribcage (lambda-var-list gen-var @@ -20181,287 +20141,285 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (#{expand 4450}# - #{exp 11622}# - #{r 11578}# + (#{expand 2778}# + #{exp 9824}# + #{r 9780}# '(()) - #{mod 11579}#) - (let ((#{labels 11825}# - (list (symbol->string (gensym "i")))) - (#{var 11826}# - (let ((#{id 11864}# - (if (if (vector? #{pat 11621}#) + #{mod 9781}#) + (let ((#{labels 10027}# + (list (#{gen-label 2745}#))) + (#{var 10028}# + (let ((#{id 10066}# + (if (if (vector? #{pat 9823}#) (if (= (vector-length - #{pat 11621}#) + #{pat 9823}#) 4) (eq? (vector-ref - #{pat 11621}# + #{pat 9823}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 11621}# 1) - #{pat 11621}#))) + (vector-ref #{pat 9823}# 1) + #{pat 9823}#))) (gensym (string-append - (symbol->string #{id 11864}#) + (symbol->string #{id 10066}#) " "))))) - (#{build-application 4382}# + (#{build-application 2710}# #f - (#{build-simple-lambda 4391}# + (#{build-simple-lambda 2719}# #f - (list (syntax->datum #{pat 11621}#)) + (list (syntax->datum #{pat 9823}#)) #f - (list #{var 11826}#) + (list #{var 10028}#) '() - (#{expand 4450}# - #{exp 11622}# - (#{extend-env 4409}# - #{labels 11825}# + (#{expand 2778}# + #{exp 9824}# + (#{extend-env 2737}# + #{labels 10027}# (list (cons 'syntax - (cons #{var 11826}# 0))) - #{r 11578}#) - (#{make-binding-wrap 4429}# - (list #{pat 11621}#) - #{labels 11825}# + (cons #{var 10028}# 0))) + #{r 9780}#) + (#{make-binding-wrap 2757}# + (list #{pat 9823}#) + #{labels 10027}# '(())) - #{mod 11579}#)) - (list #{x 11575}#)))) - (#{gen-clause 11175}# - #{x 11575}# - #{keys 11576}# - (cdr #{clauses 11577}#) - #{r 11578}# - #{pat 11621}# + #{mod 9781}#)) + (list #{x 9777}#)))) + (#{gen-clause 9377}# + #{x 9777}# + #{keys 9778}# + (cdr #{clauses 9779}#) + #{r 9780}# + #{pat 9823}# #t - #{exp 11622}# - #{mod 11579}#))) - #{tmp 11619}#) - (let ((#{tmp 12134}# - ($sc-dispatch #{tmp 11618}# '(any any any)))) - (if #{tmp 12134}# + #{exp 9824}# + #{mod 9781}#))) + #{tmp 9821}#) + (let ((#{tmp 10334}# + ($sc-dispatch #{tmp 9820}# '(any any any)))) + (if #{tmp 10334}# (@apply - (lambda (#{pat 12136}# - #{fender 12137}# - #{exp 12138}#) - (#{gen-clause 11175}# - #{x 11575}# - #{keys 11576}# - (cdr #{clauses 11577}#) - #{r 11578}# - #{pat 12136}# - #{fender 12137}# - #{exp 12138}# - #{mod 11579}#)) - #{tmp 12134}#) + (lambda (#{pat 10336}# + #{fender 10337}# + #{exp 10338}#) + (#{gen-clause 9377}# + #{x 9777}# + #{keys 9778}# + (cdr #{clauses 9779}#) + #{r 9780}# + #{pat 10336}# + #{fender 10337}# + #{exp 10338}# + #{mod 9781}#)) + #{tmp 10334}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 11577}#))))))))))) - (lambda (#{e 11177}# - #{r 11178}# - #{w 11179}# - #{s 11180}# - #{mod 11181}#) - (let ((#{e 11182}# - (#{wrap 4443}# + (car #{clauses 9779}#))))))))))) + (lambda (#{e 9379}# + #{r 9380}# + #{w 9381}# + #{s 9382}# + #{mod 9383}#) + (let ((#{e 9384}# + (#{wrap 2771}# (begin - (if (if (pair? #{e 11177}#) #{s 11180}# #f) - (set-source-properties! #{e 11177}# #{s 11180}#)) - #{e 11177}#) - #{w 11179}# - #{mod 11181}#))) - (let ((#{tmp 11184}# + (if (if (pair? #{e 9379}#) #{s 9382}# #f) + (set-source-properties! #{e 9379}# #{s 9382}#)) + #{e 9379}#) + #{w 9381}# + #{mod 9383}#))) + (let ((#{tmp 9386}# ($sc-dispatch - #{e 11182}# + #{e 9384}# '(_ any each-any . each-any)))) - (if #{tmp 11184}# + (if #{tmp 9386}# (@apply - (lambda (#{val 11209}# #{key 11210}# #{m 11211}#) + (lambda (#{val 9411}# #{key 9412}# #{m 9413}#) (if (and-map - (lambda (#{x 11212}#) - (if (if (symbol? #{x 11212}#) + (lambda (#{x 9414}#) + (if (if (symbol? #{x 9414}#) #t - (if (if (vector? #{x 11212}#) - (if (= (vector-length #{x 11212}#) 4) - (eq? (vector-ref #{x 11212}# 0) + (if (if (vector? #{x 9414}#) + (if (= (vector-length #{x 9414}#) 4) + (eq? (vector-ref #{x 9414}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11212}# 1)) + (symbol? (vector-ref #{x 9414}# 1)) #f)) - (not (if (if (if (vector? #{x 11212}#) + (not (if (if (if (vector? #{x 9414}#) (if (= (vector-length - #{x 11212}#) + #{x 9414}#) 4) - (eq? (vector-ref - #{x 11212}# - 0) + (eq? (vector-ref #{x 9414}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11212}# 1)) + (symbol? (vector-ref #{x 9414}# 1)) #f) - (if (eq? (if (if (vector? #{x 11212}#) + (if (eq? (if (if (vector? #{x 9414}#) (if (= (vector-length - #{x 11212}#) + #{x 9414}#) 4) (eq? (vector-ref - #{x 11212}# + #{x 9414}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 11212}# 1) - #{x 11212}#) + (vector-ref #{x 9414}# 1) + #{x 9414}#) (if (if (= (vector-length '#(syntax-object ... @@ -20477,7 +20435,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -20757,145 +20715,145 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -20903,9 +20861,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -20920,7 +20878,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -21200,156 +21158,156 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name 4434}# - #{x 11212}# + (eq? (#{id-var-name 2762}# + #{x 9414}# '(())) - (#{id-var-name 4434}# + (#{id-var-name 2762}# '#(syntax-object ... ((top) @@ -21358,7 +21316,7 @@ #(ribcage #(x) #((top)) - #("i2288")) + #("of")) #(ribcage (lambda-var-list gen-var @@ -21638,850 +21596,850 @@ (top) (top) (top)) - ("i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key 11210}#) - (let ((#{x 11338}# + #{key 9412}#) + (let ((#{x 9540}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4382}# - #{s 11180}# - (let ((#{req 11468}# (list 'tmp)) - (#{vars 11470}# (list #{x 11338}#)) - (#{exp 11472}# - (#{gen-syntax-case 11176}# + (#{build-application 2710}# + #{s 9382}# + (let ((#{req 9670}# (list 'tmp)) + (#{vars 9672}# (list #{x 9540}#)) + (#{exp 9674}# + (#{gen-syntax-case 9378}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 11338}#) - #{key 11210}# - #{m 11211}# - #{r 11178}# - #{mod 11181}#))) - (let ((#{body 11477}# + #{x 9540}#) + #{key 9412}# + #{m 9413}# + #{r 9380}# + #{mod 9383}#))) + (let ((#{body 9679}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 11468}# + #{req 9670}# #f #f #f '() - #{vars 11470}# - #{exp 11472}# + #{vars 9672}# + #{exp 9674}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 11477}#))) - (list (#{expand 4450}# - #{val 11209}# - #{r 11178}# + #{body 9679}#))) + (list (#{expand 2778}# + #{val 9411}# + #{r 9380}# '(()) - #{mod 11181}#)))) + #{mod 9383}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 11182}#))) - #{tmp 11184}#) + #{e 9384}#))) + #{tmp 9386}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11182}#))))))) + #{e 9384}#))))))) (set! macroexpand (lambda* - (#{x 13915}# + (#{x 12087}# #:optional - (#{m 13916}# 'e) - (#{esew 13917}# '(eval))) - (#{expand-top-sequence 4446}# - (list #{x 13915}#) + (#{m 12088}# 'e) + (#{esew 12089}# '(eval))) + (#{expand-top-sequence 2774}# + (list #{x 12087}#) '() '((top)) #f - #{m 13916}# - #{esew 13917}# + #{m 12088}# + #{esew 12089}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 13920}#) - (if (if (vector? #{x 13920}#) - (if (= (vector-length #{x 13920}#) 4) - (eq? (vector-ref #{x 13920}# 0) 'syntax-object) + (lambda (#{x 12092}#) + (if (if (vector? #{x 12092}#) + (if (= (vector-length #{x 12092}#) 4) + (eq? (vector-ref #{x 12092}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 13920}# 1)) + (symbol? (vector-ref #{x 12092}# 1)) #f))) (set! datum->syntax - (lambda (#{id 13945}# #{datum 13946}#) - (let ((#{wrap 13951}# (vector-ref #{id 13945}# 2)) - (#{module 13952}# (vector-ref #{id 13945}# 3))) + (lambda (#{id 12117}# #{datum 12118}#) + (let ((#{wrap 12123}# (vector-ref #{id 12117}# 2)) + (#{module 12124}# (vector-ref #{id 12117}# 3))) (vector 'syntax-object - #{datum 13946}# - #{wrap 13951}# - #{module 13952}#)))) + #{datum 12118}# + #{wrap 12123}# + #{module 12124}#)))) (set! syntax->datum - (lambda (#{x 13959}#) - (#{strip 4463}# #{x 13959}# '(())))) + (lambda (#{x 12131}#) + (#{strip 2791}# #{x 12131}# '(())))) (set! syntax-source - (lambda (#{x 13962}#) - (#{source-annotation 4408}# #{x 13962}#))) + (lambda (#{x 12134}#) + (#{source-annotation 2736}# #{x 12134}#))) (set! syntax-local-binding - (lambda (#{id 14115}#) + (lambda (#{id 12287}#) (begin - (if (not (if (if (vector? #{id 14115}#) - (if (= (vector-length #{id 14115}#) 4) - (eq? (vector-ref #{id 14115}# 0) 'syntax-object) + (if (not (if (if (vector? #{id 12287}#) + (if (= (vector-length #{id 12287}#) 4) + (eq? (vector-ref #{id 12287}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 14115}# 1)) + (symbol? (vector-ref #{id 12287}# 1)) #f)) (syntax-violation 'syntax-local-value "invalid argument" - #{id 14115}#)) - ((fluid-ref #{transformer-environment 4436}#) - (lambda (#{e 14156}# - #{r 14157}# - #{w 14158}# - #{s 14159}# - #{rib 14160}# - #{mod 14161}#) + #{id 12287}#)) + ((fluid-ref #{transformer-environment 2764}#) + (lambda (#{e 12328}# + #{r 12329}# + #{w 12330}# + #{s 12331}# + #{rib 12332}# + #{mod 12333}#) (call-with-values (lambda () - (let ((#{id 14164}# (vector-ref #{id 14115}# 1)) - (#{w 14165}# - (let ((#{w 14176}# (vector-ref #{id 14115}# 2))) - (let ((#{ms 14177}# (car #{w 14176}#)) - (#{s 14178}# (cdr #{w 14176}#))) - (if (if (pair? #{ms 14177}#) - (eq? (car #{ms 14177}#) #f) + (let ((#{id 12336}# (vector-ref #{id 12287}# 1)) + (#{w 12337}# + (let ((#{w 12348}# (vector-ref #{id 12287}# 2))) + (let ((#{ms 12349}# (car #{w 12348}#)) + (#{s 12350}# (cdr #{w 12348}#))) + (if (if (pair? #{ms 12349}#) + (eq? (car #{ms 12349}#) #f) #f) - (cons (cdr #{ms 14177}#) - (if #{rib 14160}# - (cons #{rib 14160}# (cdr #{s 14178}#)) - (cdr #{s 14178}#))) - (cons #{ms 14177}# - (if #{rib 14160}# - (cons #{rib 14160}# #{s 14178}#) - #{s 14178}#)))))) - (#{mod 14167}# (vector-ref #{id 14115}# 3))) - (let ((#{n 14170}# - (#{id-var-name 4434}# #{id 14164}# #{w 14165}#))) - (if (symbol? #{n 14170}#) - (let ((#{mod 14184}# - (if (if (vector? #{id 14164}#) - (if (= (vector-length #{id 14164}#) 4) - (eq? (vector-ref #{id 14164}# 0) + (cons (cdr #{ms 12349}#) + (if #{rib 12332}# + (cons #{rib 12332}# (cdr #{s 12350}#)) + (cdr #{s 12350}#))) + (cons #{ms 12349}# + (if #{rib 12332}# + (cons #{rib 12332}# #{s 12350}#) + #{s 12350}#)))))) + (#{mod 12339}# (vector-ref #{id 12287}# 3))) + (let ((#{n 12342}# + (#{id-var-name 2762}# #{id 12336}# #{w 12337}#))) + (if (symbol? #{n 12342}#) + (let ((#{mod 12356}# + (if (if (vector? #{id 12336}#) + (if (= (vector-length #{id 12336}#) 4) + (eq? (vector-ref #{id 12336}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 14164}# 3) - #{mod 14167}#))) - (let ((#{b 14185}# - (let ((#{t 14186}# - (#{get-global-definition-hook 4378}# - #{n 14170}# - #{mod 14184}#))) - (if #{t 14186}# #{t 14186}# '(global))))) - (if (eq? (car #{b 14185}#) 'global) - (values 'global #{n 14170}# #{mod 14184}#) + (vector-ref #{id 12336}# 3) + #{mod 12339}#))) + (let ((#{b 12357}# + (let ((#{t 12358}# + (#{get-global-definition-hook 2706}# + #{n 12342}# + #{mod 12356}#))) + (if #{t 12358}# #{t 12358}# '(global))))) + (if (eq? (car #{b 12357}#) 'global) + (values 'global #{n 12342}# #{mod 12356}#) (values - (car #{b 14185}#) - (cdr #{b 14185}#) - #{mod 14184}#)))) - (if (string? #{n 14170}#) - (let ((#{mod 14212}# - (if (if (vector? #{id 14164}#) - (if (= (vector-length #{id 14164}#) 4) - (eq? (vector-ref #{id 14164}# 0) + (car #{b 12357}#) + (cdr #{b 12357}#) + #{mod 12356}#)))) + (if (string? #{n 12342}#) + (let ((#{mod 12384}# + (if (if (vector? #{id 12336}#) + (if (= (vector-length #{id 12336}#) 4) + (eq? (vector-ref #{id 12336}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 14164}# 3) - #{mod 14167}#))) - (let ((#{b 14213}# - (let ((#{t 14214}# + (vector-ref #{id 12336}# 3) + #{mod 12339}#))) + (let ((#{b 12385}# + (let ((#{t 12386}# (assq-ref - #{r 14157}# - #{n 14170}#))) - (if #{t 14214}# - #{t 14214}# + #{r 12329}# + #{n 12342}#))) + (if #{t 12386}# + #{t 12386}# '(displaced-lexical))))) (values - (car #{b 14213}#) - (cdr #{b 14213}#) - #{mod 14212}#))) + (car #{b 12385}#) + (cdr #{b 12385}#) + #{mod 12384}#))) (error "unexpected id-var-name" - #{id 14164}# - #{w 14165}# - #{n 14170}#)))))) - (lambda (#{type 14227}# #{value 14228}# #{mod 14229}#) - (if (eqv? #{type 14227}# 'lexical) - (values 'lexical #{value 14228}#) - (if (eqv? #{type 14227}# 'macro) - (values 'macro #{value 14228}#) - (if (eqv? #{type 14227}# 'syntax) - (values 'pattern-variable #{value 14228}#) - (if (eqv? #{type 14227}# 'displaced-lexical) + #{id 12336}# + #{w 12337}# + #{n 12342}#)))))) + (lambda (#{type 12399}# #{value 12400}# #{mod 12401}#) + (if (eqv? #{type 12399}# 'lexical) + (values 'lexical #{value 12400}#) + (if (eqv? #{type 12399}# 'macro) + (values 'macro #{value 12400}#) + (if (eqv? #{type 12399}# 'syntax) + (values 'pattern-variable #{value 12400}#) + (if (eqv? #{type 12399}# 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? #{type 14227}# 'global) + (if (eqv? #{type 12399}# 'global) (values 'global - (cons #{value 14228}# #{mod 14229}#)) + (cons #{value 12400}# #{mod 12401}#)) (values 'other #f))))))))))))) (set! generate-temporaries - (lambda (#{ls 14240}#) + (lambda (#{ls 12412}#) (begin - (if (not (list? #{ls 14240}#)) + (if (not (list? #{ls 12412}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 14240}#)) - (let ((#{mod 14248}# + #{ls 12412}#)) + (let ((#{mod 12420}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 14249}#) - (#{wrap 4443}# (gensym) '((top)) #{mod 14248}#)) - #{ls 14240}#))))) + (map (lambda (#{x 12421}#) + (#{wrap 2771}# (gensym) '((top)) #{mod 12420}#)) + #{ls 12412}#))))) (set! free-identifier=? - (lambda (#{x 14253}# #{y 14254}#) + (lambda (#{x 12425}# #{y 12426}#) (begin - (if (not (if (if (vector? #{x 14253}#) - (if (= (vector-length #{x 14253}#) 4) - (eq? (vector-ref #{x 14253}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 12425}#) + (if (= (vector-length #{x 12425}#) 4) + (eq? (vector-ref #{x 12425}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14253}# 1)) + (symbol? (vector-ref #{x 12425}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 14253}#)) - (if (not (if (if (vector? #{y 14254}#) - (if (= (vector-length #{y 14254}#) 4) - (eq? (vector-ref #{y 14254}# 0) 'syntax-object) + #{x 12425}#)) + (if (not (if (if (vector? #{y 12426}#) + (if (= (vector-length #{y 12426}#) 4) + (eq? (vector-ref #{y 12426}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14254}# 1)) + (symbol? (vector-ref #{y 12426}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 14254}#)) - (if (eq? (if (if (vector? #{x 14253}#) - (if (= (vector-length #{x 14253}#) 4) - (eq? (vector-ref #{x 14253}# 0) 'syntax-object) + #{y 12426}#)) + (if (eq? (if (if (vector? #{x 12425}#) + (if (= (vector-length #{x 12425}#) 4) + (eq? (vector-ref #{x 12425}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 14253}# 1) - #{x 14253}#) - (if (if (vector? #{y 14254}#) - (if (= (vector-length #{y 14254}#) 4) - (eq? (vector-ref #{y 14254}# 0) 'syntax-object) + (vector-ref #{x 12425}# 1) + #{x 12425}#) + (if (if (vector? #{y 12426}#) + (if (= (vector-length #{y 12426}#) 4) + (eq? (vector-ref #{y 12426}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 14254}# 1) - #{y 14254}#)) - (eq? (#{id-var-name 4434}# #{x 14253}# '(())) - (#{id-var-name 4434}# #{y 14254}# '(()))) + (vector-ref #{y 12426}# 1) + #{y 12426}#)) + (eq? (#{id-var-name 2762}# #{x 12425}# '(())) + (#{id-var-name 2762}# #{y 12426}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 14404}# #{y 14405}#) + (lambda (#{x 12576}# #{y 12577}#) (begin - (if (not (if (if (vector? #{x 14404}#) - (if (= (vector-length #{x 14404}#) 4) - (eq? (vector-ref #{x 14404}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 12576}#) + (if (= (vector-length #{x 12576}#) 4) + (eq? (vector-ref #{x 12576}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14404}# 1)) + (symbol? (vector-ref #{x 12576}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 14404}#)) - (if (not (if (if (vector? #{y 14405}#) - (if (= (vector-length #{y 14405}#) 4) - (eq? (vector-ref #{y 14405}# 0) 'syntax-object) + #{x 12576}#)) + (if (not (if (if (vector? #{y 12577}#) + (if (= (vector-length #{y 12577}#) 4) + (eq? (vector-ref #{y 12577}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14405}# 1)) + (symbol? (vector-ref #{y 12577}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 14405}#)) - (if (if (if (vector? #{x 14404}#) - (if (= (vector-length #{x 14404}#) 4) - (eq? (vector-ref #{x 14404}# 0) 'syntax-object) + #{y 12577}#)) + (if (if (if (vector? #{x 12576}#) + (if (= (vector-length #{x 12576}#) 4) + (eq? (vector-ref #{x 12576}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 14405}#) - (if (= (vector-length #{y 14405}#) 4) - (eq? (vector-ref #{y 14405}# 0) 'syntax-object) + (if (vector? #{y 12577}#) + (if (= (vector-length #{y 12577}#) 4) + (eq? (vector-ref #{y 12577}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 14404}# 1) - (vector-ref #{y 14405}# 1)) - (#{same-marks? 4433}# - (car (vector-ref #{x 14404}# 2)) - (car (vector-ref #{y 14405}# 2))) + (if (eq? (vector-ref #{x 12576}# 1) + (vector-ref #{y 12577}# 1)) + (#{same-marks? 2761}# + (car (vector-ref #{x 12576}# 2)) + (car (vector-ref #{y 12577}# 2))) #f) - (eq? #{x 14404}# #{y 14405}#))))) + (eq? #{x 12576}# #{y 12577}#))))) (set! syntax-violation (lambda* - (#{who 14538}# - #{message 14539}# - #{form 14540}# + (#{who 12710}# + #{message 12711}# + #{form 12712}# #:optional - (#{subform 14541}# #f)) + (#{subform 12713}# #f)) (begin - (if (not (if (not #{who 14538}#) - (not #{who 14538}#) - (let ((#{t 14559}# (string? #{who 14538}#))) - (if #{t 14559}# - #{t 14559}# - (symbol? #{who 14538}#))))) + (if (not (if (not #{who 12710}#) + (not #{who 12710}#) + (let ((#{t 12731}# (string? #{who 12710}#))) + (if #{t 12731}# + #{t 12731}# + (symbol? #{who 12710}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 14538}#)) - (if (not (string? #{message 14539}#)) + #{who 12710}#)) + (if (not (string? #{message 12711}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 14539}#)) + #{message 12711}#)) (throw 'syntax-error - #{who 14538}# - #{message 14539}# - (#{source-annotation 4408}# - (if #{form 14540}# - #{form 14540}# - #{subform 14541}#)) - (#{strip 4463}# #{form 14540}# '(())) - (if #{subform 14541}# - (#{strip 4463}# #{subform 14541}# '(())) + #{who 12710}# + #{message 12711}# + (#{source-annotation 2736}# + (if #{form 12712}# + #{form 12712}# + #{subform 12713}#)) + (#{strip 2791}# #{form 12712}# '(())) + (if #{subform 12713}# + (#{strip 2791}# #{subform 12713}# '(())) #f))))) (letrec* - ((#{match-each 14762}# - (lambda (#{e 15349}# - #{p 15350}# - #{w 15351}# - #{mod 15352}#) - (if (pair? #{e 15349}#) - (let ((#{first 15353}# - (#{match 14768}# - (car #{e 15349}#) - #{p 15350}# - #{w 15351}# + ((#{match-each 12934}# + (lambda (#{e 13521}# + #{p 13522}# + #{w 13523}# + #{mod 13524}#) + (if (pair? #{e 13521}#) + (let ((#{first 13525}# + (#{match 12940}# + (car #{e 13521}#) + #{p 13522}# + #{w 13523}# '() - #{mod 15352}#))) - (if #{first 15353}# - (let ((#{rest 15356}# - (#{match-each 14762}# - (cdr #{e 15349}#) - #{p 15350}# - #{w 15351}# - #{mod 15352}#))) - (if #{rest 15356}# - (cons #{first 15353}# #{rest 15356}#) + #{mod 13524}#))) + (if #{first 13525}# + (let ((#{rest 13528}# + (#{match-each 12934}# + (cdr #{e 13521}#) + #{p 13522}# + #{w 13523}# + #{mod 13524}#))) + (if #{rest 13528}# + (cons #{first 13525}# #{rest 13528}#) #f)) #f)) - (if (null? #{e 15349}#) + (if (null? #{e 13521}#) '() - (if (if (vector? #{e 15349}#) - (if (= (vector-length #{e 15349}#) 4) - (eq? (vector-ref #{e 15349}# 0) 'syntax-object) + (if (if (vector? #{e 13521}#) + (if (= (vector-length #{e 13521}#) 4) + (eq? (vector-ref #{e 13521}# 0) 'syntax-object) #f) #f) - (#{match-each 14762}# - (vector-ref #{e 15349}# 1) - #{p 15350}# - (#{join-wraps 4431}# - #{w 15351}# - (vector-ref #{e 15349}# 2)) - (vector-ref #{e 15349}# 3)) + (#{match-each 12934}# + (vector-ref #{e 13521}# 1) + #{p 13522}# + (#{join-wraps 2759}# + #{w 13523}# + (vector-ref #{e 13521}# 2)) + (vector-ref #{e 13521}# 3)) #f))))) - (#{match-each-any 14764}# - (lambda (#{e 15384}# #{w 15385}# #{mod 15386}#) - (if (pair? #{e 15384}#) - (let ((#{l 15387}# - (#{match-each-any 14764}# - (cdr #{e 15384}#) - #{w 15385}# - #{mod 15386}#))) - (if #{l 15387}# - (cons (#{wrap 4443}# - (car #{e 15384}#) - #{w 15385}# - #{mod 15386}#) - #{l 15387}#) + (#{match-each-any 12936}# + (lambda (#{e 13556}# #{w 13557}# #{mod 13558}#) + (if (pair? #{e 13556}#) + (let ((#{l 13559}# + (#{match-each-any 12936}# + (cdr #{e 13556}#) + #{w 13557}# + #{mod 13558}#))) + (if #{l 13559}# + (cons (#{wrap 2771}# + (car #{e 13556}#) + #{w 13557}# + #{mod 13558}#) + #{l 13559}#) #f)) - (if (null? #{e 15384}#) + (if (null? #{e 13556}#) '() - (if (if (vector? #{e 15384}#) - (if (= (vector-length #{e 15384}#) 4) - (eq? (vector-ref #{e 15384}# 0) 'syntax-object) + (if (if (vector? #{e 13556}#) + (if (= (vector-length #{e 13556}#) 4) + (eq? (vector-ref #{e 13556}# 0) 'syntax-object) #f) #f) - (#{match-each-any 14764}# - (vector-ref #{e 15384}# 1) - (#{join-wraps 4431}# - #{w 15385}# - (vector-ref #{e 15384}# 2)) - #{mod 15386}#) + (#{match-each-any 12936}# + (vector-ref #{e 13556}# 1) + (#{join-wraps 2759}# + #{w 13557}# + (vector-ref #{e 13556}# 2)) + #{mod 13558}#) #f))))) - (#{match-empty 14765}# - (lambda (#{p 15411}# #{r 15412}#) - (if (null? #{p 15411}#) - #{r 15412}# - (if (eq? #{p 15411}# '_) - #{r 15412}# - (if (eq? #{p 15411}# 'any) - (cons '() #{r 15412}#) - (if (pair? #{p 15411}#) - (#{match-empty 14765}# - (car #{p 15411}#) - (#{match-empty 14765}# - (cdr #{p 15411}#) - #{r 15412}#)) - (if (eq? #{p 15411}# 'each-any) - (cons '() #{r 15412}#) - (let ((#{atom-key 15413}# (vector-ref #{p 15411}# 0))) - (if (eqv? #{atom-key 15413}# 'each) - (#{match-empty 14765}# - (vector-ref #{p 15411}# 1) - #{r 15412}#) - (if (eqv? #{atom-key 15413}# 'each+) - (#{match-empty 14765}# - (vector-ref #{p 15411}# 1) - (#{match-empty 14765}# - (reverse (vector-ref #{p 15411}# 2)) - (#{match-empty 14765}# - (vector-ref #{p 15411}# 3) - #{r 15412}#))) - (if (if (eqv? #{atom-key 15413}# 'free-id) + (#{match-empty 12937}# + (lambda (#{p 13583}# #{r 13584}#) + (if (null? #{p 13583}#) + #{r 13584}# + (if (eq? #{p 13583}# '_) + #{r 13584}# + (if (eq? #{p 13583}# 'any) + (cons '() #{r 13584}#) + (if (pair? #{p 13583}#) + (#{match-empty 12937}# + (car #{p 13583}#) + (#{match-empty 12937}# + (cdr #{p 13583}#) + #{r 13584}#)) + (if (eq? #{p 13583}# 'each-any) + (cons '() #{r 13584}#) + (let ((#{atom-key 13585}# (vector-ref #{p 13583}# 0))) + (if (eqv? #{atom-key 13585}# 'each) + (#{match-empty 12937}# + (vector-ref #{p 13583}# 1) + #{r 13584}#) + (if (eqv? #{atom-key 13585}# 'each+) + (#{match-empty 12937}# + (vector-ref #{p 13583}# 1) + (#{match-empty 12937}# + (reverse (vector-ref #{p 13583}# 2)) + (#{match-empty 12937}# + (vector-ref #{p 13583}# 3) + #{r 13584}#))) + (if (if (eqv? #{atom-key 13585}# 'free-id) #t - (eqv? #{atom-key 15413}# 'atom)) - #{r 15412}# - (if (eqv? #{atom-key 15413}# 'vector) - (#{match-empty 14765}# - (vector-ref #{p 15411}# 1) - #{r 15412}#))))))))))))) - (#{combine 14766}# - (lambda (#{r* 15432}# #{r 15433}#) - (if (null? (car #{r* 15432}#)) - #{r 15433}# - (cons (map car #{r* 15432}#) - (#{combine 14766}# - (map cdr #{r* 15432}#) - #{r 15433}#))))) - (#{match* 14767}# - (lambda (#{e 14797}# - #{p 14798}# - #{w 14799}# - #{r 14800}# - #{mod 14801}#) - (if (null? #{p 14798}#) - (if (null? #{e 14797}#) #{r 14800}# #f) - (if (pair? #{p 14798}#) - (if (pair? #{e 14797}#) - (#{match 14768}# - (car #{e 14797}#) - (car #{p 14798}#) - #{w 14799}# - (#{match 14768}# - (cdr #{e 14797}#) - (cdr #{p 14798}#) - #{w 14799}# - #{r 14800}# - #{mod 14801}#) - #{mod 14801}#) + (eqv? #{atom-key 13585}# 'atom)) + #{r 13584}# + (if (eqv? #{atom-key 13585}# 'vector) + (#{match-empty 12937}# + (vector-ref #{p 13583}# 1) + #{r 13584}#))))))))))))) + (#{combine 12938}# + (lambda (#{r* 13604}# #{r 13605}#) + (if (null? (car #{r* 13604}#)) + #{r 13605}# + (cons (map car #{r* 13604}#) + (#{combine 12938}# + (map cdr #{r* 13604}#) + #{r 13605}#))))) + (#{match* 12939}# + (lambda (#{e 12969}# + #{p 12970}# + #{w 12971}# + #{r 12972}# + #{mod 12973}#) + (if (null? #{p 12970}#) + (if (null? #{e 12969}#) #{r 12972}# #f) + (if (pair? #{p 12970}#) + (if (pair? #{e 12969}#) + (#{match 12940}# + (car #{e 12969}#) + (car #{p 12970}#) + #{w 12971}# + (#{match 12940}# + (cdr #{e 12969}#) + (cdr #{p 12970}#) + #{w 12971}# + #{r 12972}# + #{mod 12973}#) + #{mod 12973}#) #f) - (if (eq? #{p 14798}# 'each-any) - (let ((#{l 14806}# - (#{match-each-any 14764}# - #{e 14797}# - #{w 14799}# - #{mod 14801}#))) - (if #{l 14806}# - (cons #{l 14806}# #{r 14800}#) + (if (eq? #{p 12970}# 'each-any) + (let ((#{l 12978}# + (#{match-each-any 12936}# + #{e 12969}# + #{w 12971}# + #{mod 12973}#))) + (if #{l 12978}# + (cons #{l 12978}# #{r 12972}#) #f)) - (let ((#{atom-key 14811}# (vector-ref #{p 14798}# 0))) - (if (eqv? #{atom-key 14811}# 'each) - (if (null? #{e 14797}#) - (#{match-empty 14765}# - (vector-ref #{p 14798}# 1) - #{r 14800}#) - (let ((#{l 14818}# - (#{match-each 14762}# - #{e 14797}# - (vector-ref #{p 14798}# 1) - #{w 14799}# - #{mod 14801}#))) - (if #{l 14818}# + (let ((#{atom-key 12983}# (vector-ref #{p 12970}# 0))) + (if (eqv? #{atom-key 12983}# 'each) + (if (null? #{e 12969}#) + (#{match-empty 12937}# + (vector-ref #{p 12970}# 1) + #{r 12972}#) + (let ((#{l 12990}# + (#{match-each 12934}# + #{e 12969}# + (vector-ref #{p 12970}# 1) + #{w 12971}# + #{mod 12973}#))) + (if #{l 12990}# (letrec* - ((#{collect 14821}# - (lambda (#{l 14872}#) - (if (null? (car #{l 14872}#)) - #{r 14800}# - (cons (map car #{l 14872}#) - (#{collect 14821}# - (map cdr #{l 14872}#))))))) - (#{collect 14821}# #{l 14818}#)) + ((#{collect 12993}# + (lambda (#{l 13044}#) + (if (null? (car #{l 13044}#)) + #{r 12972}# + (cons (map car #{l 13044}#) + (#{collect 12993}# + (map cdr #{l 13044}#))))))) + (#{collect 12993}# #{l 12990}#)) #f))) - (if (eqv? #{atom-key 14811}# 'each+) + (if (eqv? #{atom-key 12983}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 14881}# (vector-ref #{p 14798}# 1)) - (#{y-pat 14882}# (vector-ref #{p 14798}# 2)) - (#{z-pat 14883}# - (vector-ref #{p 14798}# 3))) + (let ((#{x-pat 13053}# (vector-ref #{p 12970}# 1)) + (#{y-pat 13054}# (vector-ref #{p 12970}# 2)) + (#{z-pat 13055}# + (vector-ref #{p 12970}# 3))) (letrec* - ((#{f 14887}# - (lambda (#{e 14889}# #{w 14890}#) - (if (pair? #{e 14889}#) + ((#{f 13059}# + (lambda (#{e 13061}# #{w 13062}#) + (if (pair? #{e 13061}#) (call-with-values (lambda () - (#{f 14887}# - (cdr #{e 14889}#) - #{w 14890}#)) - (lambda (#{xr* 14891}# - #{y-pat 14892}# - #{r 14893}#) - (if #{r 14893}# - (if (null? #{y-pat 14892}#) - (let ((#{xr 14894}# - (#{match 14768}# - (car #{e 14889}#) - #{x-pat 14881}# - #{w 14890}# + (#{f 13059}# + (cdr #{e 13061}#) + #{w 13062}#)) + (lambda (#{xr* 13063}# + #{y-pat 13064}# + #{r 13065}#) + (if #{r 13065}# + (if (null? #{y-pat 13064}#) + (let ((#{xr 13066}# + (#{match 12940}# + (car #{e 13061}#) + #{x-pat 13053}# + #{w 13062}# '() - #{mod 14801}#))) - (if #{xr 14894}# + #{mod 12973}#))) + (if #{xr 13066}# (values - (cons #{xr 14894}# - #{xr* 14891}#) - #{y-pat 14892}# - #{r 14893}#) + (cons #{xr 13066}# + #{xr* 13063}#) + #{y-pat 13064}# + #{r 13065}#) (values #f #f #f))) (values '() - (cdr #{y-pat 14892}#) - (#{match 14768}# - (car #{e 14889}#) - (car #{y-pat 14892}#) - #{w 14890}# - #{r 14893}# - #{mod 14801}#))) + (cdr #{y-pat 13064}#) + (#{match 12940}# + (car #{e 13061}#) + (car #{y-pat 13064}#) + #{w 13062}# + #{r 13065}# + #{mod 12973}#))) (values #f #f #f)))) - (if (if (vector? #{e 14889}#) + (if (if (vector? #{e 13061}#) (if (= (vector-length - #{e 14889}#) + #{e 13061}#) 4) - (eq? (vector-ref #{e 14889}# 0) + (eq? (vector-ref #{e 13061}# 0) 'syntax-object) #f) #f) - (#{f 14887}# - (vector-ref #{e 14889}# 1) - (#{join-wraps 4431}# - #{w 14890}# - #{e 14889}#)) + (#{f 13059}# + (vector-ref #{e 13061}# 1) + (#{join-wraps 2759}# + #{w 13062}# + #{e 13061}#)) (values '() - #{y-pat 14882}# - (#{match 14768}# - #{e 14889}# - #{z-pat 14883}# - #{w 14890}# - #{r 14800}# - #{mod 14801}#))))))) - (#{f 14887}# #{e 14797}# #{w 14799}#)))) - (lambda (#{xr* 14920}# #{y-pat 14921}# #{r 14922}#) - (if #{r 14922}# - (if (null? #{y-pat 14921}#) - (if (null? #{xr* 14920}#) - (#{match-empty 14765}# - (vector-ref #{p 14798}# 1) - #{r 14922}#) - (#{combine 14766}# - #{xr* 14920}# - #{r 14922}#)) + #{y-pat 13054}# + (#{match 12940}# + #{e 13061}# + #{z-pat 13055}# + #{w 13062}# + #{r 12972}# + #{mod 12973}#))))))) + (#{f 13059}# #{e 12969}# #{w 12971}#)))) + (lambda (#{xr* 13092}# #{y-pat 13093}# #{r 13094}#) + (if #{r 13094}# + (if (null? #{y-pat 13093}#) + (if (null? #{xr* 13092}#) + (#{match-empty 12937}# + (vector-ref #{p 12970}# 1) + #{r 13094}#) + (#{combine 12938}# + #{xr* 13092}# + #{r 13094}#)) #f) #f))) - (if (eqv? #{atom-key 14811}# 'free-id) - (if (if (symbol? #{e 14797}#) + (if (eqv? #{atom-key 12983}# 'free-id) + (if (if (symbol? #{e 12969}#) #t - (if (if (vector? #{e 14797}#) - (if (= (vector-length #{e 14797}#) 4) - (eq? (vector-ref #{e 14797}# 0) + (if (if (vector? #{e 12969}#) + (if (= (vector-length #{e 12969}#) 4) + (eq? (vector-ref #{e 12969}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 14797}# 1)) + (symbol? (vector-ref #{e 12969}# 1)) #f)) - (if (let ((#{i 15253}# - (#{wrap 4443}# - #{e 14797}# - #{w 14799}# - #{mod 14801}#)) - (#{j 15254}# - (vector-ref #{p 14798}# 1))) - (if (eq? (if (if (vector? #{i 15253}#) + (if (let ((#{i 13425}# + (#{wrap 2771}# + #{e 12969}# + #{w 12971}# + #{mod 12973}#)) + (#{j 13426}# + (vector-ref #{p 12970}# 1))) + (if (eq? (if (if (vector? #{i 13425}#) (if (= (vector-length - #{i 15253}#) + #{i 13425}#) 4) (eq? (vector-ref - #{i 15253}# + #{i 13425}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 15253}# 1) - #{i 15253}#) - (if (if (vector? #{j 15254}#) + (vector-ref #{i 13425}# 1) + #{i 13425}#) + (if (if (vector? #{j 13426}#) (if (= (vector-length - #{j 15254}#) + #{j 13426}#) 4) (eq? (vector-ref - #{j 15254}# + #{j 13426}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 15254}# 1) - #{j 15254}#)) - (eq? (#{id-var-name 4434}# - #{i 15253}# + (vector-ref #{j 13426}# 1) + #{j 13426}#)) + (eq? (#{id-var-name 2762}# + #{i 13425}# '(())) - (#{id-var-name 4434}# - #{j 15254}# + (#{id-var-name 2762}# + #{j 13426}# '(()))) #f)) - #{r 14800}# + #{r 12972}# #f) #f) - (if (eqv? #{atom-key 14811}# 'atom) + (if (eqv? #{atom-key 12983}# 'atom) (if (equal? - (vector-ref #{p 14798}# 1) - (#{strip 4463}# #{e 14797}# #{w 14799}#)) - #{r 14800}# + (vector-ref #{p 12970}# 1) + (#{strip 2791}# #{e 12969}# #{w 12971}#)) + #{r 12972}# #f) - (if (eqv? #{atom-key 14811}# 'vector) - (if (vector? #{e 14797}#) - (#{match 14768}# - (vector->list #{e 14797}#) - (vector-ref #{p 14798}# 1) - #{w 14799}# - #{r 14800}# - #{mod 14801}#) + (if (eqv? #{atom-key 12983}# 'vector) + (if (vector? #{e 12969}#) + (#{match 12940}# + (vector->list #{e 12969}#) + (vector-ref #{p 12970}# 1) + #{w 12971}# + #{r 12972}# + #{mod 12973}#) #f)))))))))))) - (#{match 14768}# - (lambda (#{e 15314}# - #{p 15315}# - #{w 15316}# - #{r 15317}# - #{mod 15318}#) - (if (not #{r 15317}#) + (#{match 12940}# + (lambda (#{e 13486}# + #{p 13487}# + #{w 13488}# + #{r 13489}# + #{mod 13490}#) + (if (not #{r 13489}#) #f - (if (eq? #{p 15315}# '_) - #{r 15317}# - (if (eq? #{p 15315}# 'any) - (cons (#{wrap 4443}# - #{e 15314}# - #{w 15316}# - #{mod 15318}#) - #{r 15317}#) - (if (if (vector? #{e 15314}#) - (if (= (vector-length #{e 15314}#) 4) - (eq? (vector-ref #{e 15314}# 0) 'syntax-object) + (if (eq? #{p 13487}# '_) + #{r 13489}# + (if (eq? #{p 13487}# 'any) + (cons (#{wrap 2771}# + #{e 13486}# + #{w 13488}# + #{mod 13490}#) + #{r 13489}#) + (if (if (vector? #{e 13486}#) + (if (= (vector-length #{e 13486}#) 4) + (eq? (vector-ref #{e 13486}# 0) 'syntax-object) #f) #f) - (#{match* 14767}# - (vector-ref #{e 15314}# 1) - #{p 15315}# - (#{join-wraps 4431}# - #{w 15316}# - (vector-ref #{e 15314}# 2)) - #{r 15317}# - (vector-ref #{e 15314}# 3)) - (#{match* 14767}# - #{e 15314}# - #{p 15315}# - #{w 15316}# - #{r 15317}# - #{mod 15318}#)))))))) + (#{match* 12939}# + (vector-ref #{e 13486}# 1) + #{p 13487}# + (#{join-wraps 2759}# + #{w 13488}# + (vector-ref #{e 13486}# 2)) + #{r 13489}# + (vector-ref #{e 13486}# 3)) + (#{match* 12939}# + #{e 13486}# + #{p 13487}# + #{w 13488}# + #{r 13489}# + #{mod 13490}#)))))))) (set! $sc-dispatch - (lambda (#{e 14769}# #{p 14770}#) - (if (eq? #{p 14770}# 'any) - (list #{e 14769}#) - (if (eq? #{p 14770}# '_) + (lambda (#{e 12941}# #{p 12942}#) + (if (eq? #{p 12942}# 'any) + (list #{e 12941}#) + (if (eq? #{p 12942}# '_) '() - (if (if (vector? #{e 14769}#) - (if (= (vector-length #{e 14769}#) 4) - (eq? (vector-ref #{e 14769}# 0) 'syntax-object) + (if (if (vector? #{e 12941}#) + (if (= (vector-length #{e 12941}#) 4) + (eq? (vector-ref #{e 12941}# 0) 'syntax-object) #f) #f) - (#{match* 14767}# - (vector-ref #{e 14769}# 1) - #{p 14770}# - (vector-ref #{e 14769}# 2) + (#{match* 12939}# + (vector-ref #{e 12941}# 1) + #{p 12942}# + (vector-ref #{e 12941}# 2) '() - (vector-ref #{e 14769}# 3)) - (#{match* 14767}# - #{e 14769}# - #{p 14770}# + (vector-ref #{e 12941}# 3)) + (#{match* 12939}# + #{e 12941}# + #{p 12942}# '(()) '() #f)))))))))) @@ -22490,82 +22448,76 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 26694}#) - (let ((#{tmp 26696}# - ($sc-dispatch #{x 26694}# '(_ () any . each-any)))) - (if #{tmp 26696}# + (lambda (#{x 24645}#) + (let ((#{tmp 24647}# + ($sc-dispatch #{x 24645}# '(_ () any . each-any)))) + (if #{tmp 24647}# (@apply - (lambda (#{e1 26700}# #{e2 26701}#) + (lambda (#{e1 24651}# #{e2 24652}#) (cons '#(syntax-object let ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i26667" "i26668")) + #(ribcage #(e1 e2) #((top) (top)) #("1al" "1am")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) - (cons '() (cons #{e1 26700}# #{e2 26701}#)))) - #{tmp 26696}#) - (let ((#{tmp 26702}# + (cons '() (cons #{e1 24651}# #{e2 24652}#)))) + #{tmp 24647}#) + (let ((#{tmp 24653}# ($sc-dispatch - #{x 26694}# + #{x 24645}# '(_ ((any any)) any . each-any)))) - (if #{tmp 26702}# + (if #{tmp 24653}# (@apply - (lambda (#{out 26706}# - #{in 26707}# - #{e1 26708}# - #{e2 26709}#) + (lambda (#{out 24657}# + #{in 24658}# + #{e1 24659}# + #{e2 24660}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i26673" "i26674" "i26675" "i26676")) + #("1an" "1ao" "1ap" "1aq")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) - #{in 26707}# + #{in 24658}# '() - (list #{out 26706}# + (list #{out 24657}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i26673" - "i26674" - "i26675" - "i26676")) + #("1an" "1ao" "1ap" "1aq")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) (cons '() - (cons #{e1 26708}# #{e2 26709}#)))))) - #{tmp 26702}#) - (let ((#{tmp 26710}# + (cons #{e1 24659}# #{e2 24660}#)))))) + #{tmp 24653}#) + (let ((#{tmp 24661}# ($sc-dispatch - #{x 26694}# + #{x 24645}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 26710}# + (if #{tmp 24661}# (@apply - (lambda (#{out 26714}# - #{in 26715}# - #{e1 26716}# - #{e2 26717}#) + (lambda (#{out 24665}# + #{in 24666}# + #{e1 24667}# + #{e2 24668}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i26683" "i26684" "i26685" "i26686")) + #("1ar" "1as" "1at" "1au")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) (cons '#(syntax-object list @@ -22573,62 +22525,56 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i26683" "i26684" "i26685" "i26686")) + #("1ar" "1as" "1at" "1au")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) - #{in 26715}#) + #{in 24666}#) '() - (list #{out 26714}# + (list #{out 24665}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i26683" - "i26684" - "i26685" - "i26686")) + #("1ar" "1as" "1at" "1au")) #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i26664"))) + #(ribcage #(x) #((top)) #("1ak"))) (hygiene guile)) (cons '() - (cons #{e1 26716}# - #{e2 26717}#)))))) - #{tmp 26710}#) + (cons #{e1 24667}# + #{e2 24668}#)))))) + #{tmp 24661}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 26694}#)))))))))) + #{x 24645}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 26771}#) - (let ((#{tmp 26773}# + (lambda (#{x 24707}#) + (let ((#{tmp 24709}# ($sc-dispatch - #{x 26771}# + #{x 24707}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 26773}# + (if #{tmp 24709}# (@apply - (lambda (#{k 26777}# - #{keyword 26778}# - #{pattern 26779}# - #{template 26780}#) + (lambda (#{k 24713}# + #{keyword 24714}# + #{pattern 24715}# + #{template 24716}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) '(#(syntax-object x @@ -22636,9 +22582,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile))) (vector '(#(syntax-object @@ -22647,9 +22593,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) . #(syntax-object @@ -22658,9 +22604,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22668,20 +22614,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) - #{pattern 26779}#)) + #{pattern 24715}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) (cons '#(syntax-object x @@ -22689,13 +22635,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i26734" "i26735" "i26736" "i26737")) + #("1aw" "1ax" "1ay" "1az")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) - (cons #{k 26777}# - (map (lambda (#{tmp 26745 26781}# - #{tmp 26744 26782}#) + (cons #{k 24713}# + (map (lambda (#{tmp 24691 24717}# + #{tmp 24690 24718}#) (list (cons '#(syntax-object dummy ((top) @@ -22708,10 +22654,10 @@ (top) (top) (top)) - #("i26734" - "i26735" - "i26736" - "i26737")) + #("1aw" + "1ax" + "1ay" + "1az")) #(ribcage () () @@ -22719,9 +22665,9 @@ #(ribcage #(x) #((top)) - #("i26731"))) + #("1av"))) (hygiene guile)) - #{tmp 26744 26782}#) + #{tmp 24690 24718}#) (list '#(syntax-object syntax ((top) @@ -22734,10 +22680,10 @@ (top) (top) (top)) - #("i26734" - "i26735" - "i26736" - "i26737")) + #("1aw" + "1ax" + "1ay" + "1az")) #(ribcage () () @@ -22745,41 +22691,41 @@ #(ribcage #(x) #((top)) - #("i26731"))) + #("1av"))) (hygiene guile)) - #{tmp 26745 26781}#))) - #{template 26780}# - #{pattern 26779}#)))))) - #{tmp 26773}#) - (let ((#{tmp 26783}# + #{tmp 24691 24717}#))) + #{template 24716}# + #{pattern 24715}#)))))) + #{tmp 24709}#) + (let ((#{tmp 24719}# ($sc-dispatch - #{x 26771}# + #{x 24707}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 26783}# + (if (if #{tmp 24719}# (@apply - (lambda (#{k 26787}# - #{docstring 26788}# - #{keyword 26789}# - #{pattern 26790}# - #{template 26791}#) - (string? (syntax->datum #{docstring 26788}#))) - #{tmp 26783}#) + (lambda (#{k 24723}# + #{docstring 24724}# + #{keyword 24725}# + #{pattern 24726}# + #{template 24727}#) + (string? (syntax->datum #{docstring 24724}#))) + #{tmp 24719}#) #f) (@apply - (lambda (#{k 26792}# - #{docstring 26793}# - #{keyword 26794}# - #{pattern 26795}# - #{template 26796}#) + (lambda (#{k 24728}# + #{docstring 24729}# + #{keyword 24730}# + #{pattern 24731}# + #{template 24732}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" "i26758" "i26759" "i26760" "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) '(#(syntax-object x @@ -22787,11 +22733,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" "i26758" "i26759" "i26760" "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile))) - #{docstring 26793}# + #{docstring 24729}# (vector '(#(syntax-object macro-type @@ -22799,13 +22745,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) . #(syntax-object @@ -22814,13 +22756,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22828,28 +22766,20 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) - #{pattern 26795}#)) + #{pattern 24731}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) (cons '#(syntax-object x @@ -22861,17 +22791,13 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" "1b6" "1b7" "1b8" "1b9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26731"))) + #(ribcage #(x) #((top)) #("1av"))) (hygiene guile)) - (cons #{k 26792}# - (map (lambda (#{tmp 26770 26797}# - #{tmp 26769 26798}#) + (cons #{k 24728}# + (map (lambda (#{tmp 24706 24733}# + #{tmp 24705 24734}#) (list (cons '#(syntax-object dummy ((top) @@ -22886,11 +22812,11 @@ (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" + "1b6" + "1b7" + "1b8" + "1b9")) #(ribcage () () @@ -22898,10 +22824,10 @@ #(ribcage #(x) #((top)) - #("i26731"))) + #("1av"))) (hygiene guile)) - #{tmp 26769 26798}#) + #{tmp 24705 24734}#) (list '#(syntax-object syntax ((top) @@ -22916,11 +22842,11 @@ (top) (top) (top)) - #("i26757" - "i26758" - "i26759" - "i26760" - "i26761")) + #("1b5" + "1b6" + "1b7" + "1b8" + "1b9")) #(ribcage () () @@ -22928,50 +22854,50 @@ #(ribcage #(x) #((top)) - #("i26731"))) + #("1av"))) (hygiene guile)) - #{tmp 26770 26797}#))) - #{template 26796}# - #{pattern 26795}#)))))) - #{tmp 26783}#) + #{tmp 24706 24733}#))) + #{template 24732}# + #{pattern 24731}#)))))) + #{tmp 24719}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 26771}#)))))))) + #{x 24707}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 26835}#) - (let ((#{tmp 26837}# - ($sc-dispatch #{x 26835}# '(_ (any . any) any)))) - (if #{tmp 26837}# + (lambda (#{x 24759}#) + (let ((#{tmp 24761}# + ($sc-dispatch #{x 24759}# '(_ (any . any) any)))) + (if #{tmp 24761}# (@apply - (lambda (#{name 26841}# - #{pattern 26842}# - #{template 26843}#) + (lambda (#{name 24765}# + #{pattern 24766}# + #{template 24767}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i26812" "i26813" "i26814")) + #("1bb" "1bc" "1bd")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26809"))) + #(ribcage #(x) #((top)) #("1ba"))) (hygiene guile)) - #{name 26841}# + #{name 24765}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i26812" "i26813" "i26814")) + #("1bb" "1bc" "1bd")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26809"))) + #(ribcage #(x) #((top)) #("1ba"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22980,54 +22906,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i26812" "i26813" "i26814")) + #("1bb" "1bc" "1bd")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26809"))) + #(ribcage #(x) #((top)) #("1ba"))) (hygiene guile)) - #{pattern 26842}#) - #{template 26843}#)))) - #{tmp 26837}#) - (let ((#{tmp 26844}# + #{pattern 24766}#) + #{template 24767}#)))) + #{tmp 24761}#) + (let ((#{tmp 24768}# ($sc-dispatch - #{x 26835}# + #{x 24759}# '(_ (any . any) any any)))) - (if (if #{tmp 26844}# + (if (if #{tmp 24768}# (@apply - (lambda (#{name 26848}# - #{pattern 26849}# - #{docstring 26850}# - #{template 26851}#) - (string? (syntax->datum #{docstring 26850}#))) - #{tmp 26844}#) + (lambda (#{name 24772}# + #{pattern 24773}# + #{docstring 24774}# + #{template 24775}#) + (string? (syntax->datum #{docstring 24774}#))) + #{tmp 24768}#) #f) (@apply - (lambda (#{name 26852}# - #{pattern 26853}# - #{docstring 26854}# - #{template 26855}#) + (lambda (#{name 24776}# + #{pattern 24777}# + #{docstring 24778}# + #{template 24779}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i26827" "i26828" "i26829" "i26830")) + #("1bi" "1bj" "1bk" "1bl")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26809"))) + #(ribcage #(x) #((top)) #("1ba"))) (hygiene guile)) - #{name 26852}# + #{name 24776}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i26827" "i26828" "i26829" "i26830")) + #("1bi" "1bj" "1bk" "1bl")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26809"))) + #(ribcage #(x) #((top)) #("1ba"))) (hygiene guile)) '() - #{docstring 26854}# + #{docstring 24778}# (list (cons '#(syntax-object _ ((top) @@ -23037,53 +22963,50 @@ docstring template) #((top) (top) (top) (top)) - #("i26827" - "i26828" - "i26829" - "i26830")) + #("1bi" "1bj" "1bk" "1bl")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i26809"))) + #("1ba"))) (hygiene guile)) - #{pattern 26853}#) - #{template 26855}#)))) - #{tmp 26844}#) + #{pattern 24777}#) + #{template 24779}#)))) + #{tmp 24768}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 26835}#)))))))) + #{x 24759}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 26904}#) - (let ((#{tmp 26906}# + (lambda (#{x 24813}#) + (let ((#{tmp 24815}# ($sc-dispatch - #{x 26904}# + #{x 24813}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 26906}# + (if (if #{tmp 24815}# (@apply - (lambda (#{let* 26910}# - #{x 26911}# - #{v 26912}# - #{e1 26913}# - #{e2 26914}#) - (and-map identifier? #{x 26911}#)) - #{tmp 26906}#) + (lambda (#{let* 24819}# + #{x 24820}# + #{v 24821}# + #{e1 24822}# + #{e2 24823}#) + (and-map identifier? #{x 24820}#)) + #{tmp 24815}#) #f) (@apply - (lambda (#{let* 26915}# - #{x 26916}# - #{v 26917}# - #{e1 26918}# - #{e2 26919}#) + (lambda (#{let* 24824}# + #{x 24825}# + #{v 24826}# + #{e1 24827}# + #{e2 24828}#) (letrec* - ((#{f 26920}# - (lambda (#{bindings 26923}#) - (if (null? #{bindings 26923}#) + ((#{f 24829}# + (lambda (#{bindings 24832}#) + (if (null? #{bindings 24832}#) (cons '#(syntax-object let ((top) @@ -23091,27 +23014,23 @@ #(ribcage #(f bindings) #((top) (top)) - #("i26890" "i26891")) + #("1bx" "1by")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i26880" - "i26881" - "i26882" - "i26883" - "i26884")) + #("1bs" "1bt" "1bu" "1bv" "1bw")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i26866"))) + #(ribcage #(x) #((top)) #("1bm"))) (hygiene guile)) - (cons '() (cons #{e1 26918}# #{e2 26919}#))) - (let ((#{tmp 26924}# - (list (#{f 26920}# (cdr #{bindings 26923}#)) - (car #{bindings 26923}#)))) - (let ((#{tmp 26925}# - ($sc-dispatch #{tmp 26924}# '(any any)))) - (if #{tmp 26925}# + (cons '() (cons #{e1 24827}# #{e2 24828}#))) + (let ((#{tmp 24833}# + (list (#{f 24829}# (cdr #{bindings 24832}#)) + (car #{bindings 24832}#)))) + (let ((#{tmp 24834}# + ($sc-dispatch #{tmp 24833}# '(any any)))) + (if #{tmp 24834}# (@apply - (lambda (#{body 26927}# #{binding 26928}#) + (lambda (#{body 24836}# #{binding 24837}#) (list '#(syntax-object let ((top) @@ -23119,96 +23038,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i26900" "i26901")) + #("1bz" "1c0")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i26890" "i26891")) + #("1bx" "1by")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i26880" - "i26881" - "i26882" - "i26883" - "i26884")) + #("1bs" "1bt" "1bu" "1bv" "1bw")) #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i26866"))) + #(ribcage #(x) #((top)) #("1bm"))) (hygiene guile)) - (list #{binding 26928}#) - #{body 26927}#)) - #{tmp 26925}#) + (list #{binding 24837}#) + #{body 24836}#)) + #{tmp 24834}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26924}#)))))))) - (#{f 26920}# (map list #{x 26916}# #{v 26917}#)))) - #{tmp 26906}#) + #{tmp 24833}#)))))))) + (#{f 24829}# (map list #{x 24825}# #{v 24826}#)))) + #{tmp 24815}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 26904}#)))))) + #{x 24813}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 26986}#) - (let ((#{tmp 26988}# + (lambda (#{orig-x 24881}#) + (let ((#{tmp 24883}# ($sc-dispatch - #{orig-x 26986}# + #{orig-x 24881}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 26988}# + (if #{tmp 24883}# (@apply - (lambda (#{var 26992}# - #{init 26993}# - #{step 26994}# - #{e0 26995}# - #{e1 26996}# - #{c 26997}#) - (let ((#{tmp 26998}# - (map (lambda (#{v 27001}# #{s 27002}#) - (let ((#{tmp 27004}# - ($sc-dispatch #{s 27002}# '()))) - (if #{tmp 27004}# - (@apply (lambda () #{v 27001}#) #{tmp 27004}#) - (let ((#{tmp 27007}# - ($sc-dispatch #{s 27002}# '(any)))) - (if #{tmp 27007}# + (lambda (#{var 24887}# + #{init 24888}# + #{step 24889}# + #{e0 24890}# + #{e1 24891}# + #{c 24892}#) + (let ((#{tmp 24893}# + (map (lambda (#{v 24896}# #{s 24897}#) + (let ((#{tmp 24899}# + ($sc-dispatch #{s 24897}# '()))) + (if #{tmp 24899}# + (@apply (lambda () #{v 24896}#) #{tmp 24899}#) + (let ((#{tmp 24902}# + ($sc-dispatch #{s 24897}# '(any)))) + (if #{tmp 24902}# (@apply - (lambda (#{e 27010}#) #{e 27010}#) - #{tmp 27007}#) + (lambda (#{e 24905}#) #{e 24905}#) + #{tmp 24902}#) (syntax-violation 'do "bad step expression" - #{orig-x 26986}# - #{s 27002}#)))))) - #{var 26992}# - #{step 26994}#))) - (let ((#{tmp 26999}# - ($sc-dispatch #{tmp 26998}# 'each-any))) - (if #{tmp 26999}# + #{orig-x 24881}# + #{s 24897}#)))))) + #{var 24887}# + #{step 24889}#))) + (let ((#{tmp 24894}# + ($sc-dispatch #{tmp 24893}# 'each-any))) + (if #{tmp 24894}# (@apply - (lambda (#{step 27016}#) - (let ((#{tmp 27018}# ($sc-dispatch #{e1 26996}# '()))) - (if #{tmp 27018}# + (lambda (#{step 24911}#) + (let ((#{tmp 24913}# ($sc-dispatch #{e1 24891}# '()))) + (if #{tmp 24913}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i26954")) + #(ribcage #(step) #((top)) #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23217,26 +23126,23 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i26954")) + #(ribcage #(step) #((top)) #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23245,19 +23151,19 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - (map list #{var 26992}# #{init 26993}#) + (map list #{var 24887}# #{init 24888}#) (list '#(syntax-object if ((top) @@ -23265,7 +23171,7 @@ #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23274,17 +23180,17 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) (list '#(syntax-object not @@ -23293,7 +23199,7 @@ #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23307,19 +23213,19 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - #{e0 26995}#) + #{e0 24890}#) (cons '#(syntax-object begin ((top) @@ -23327,7 +23233,7 @@ #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23341,20 +23247,20 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) (append - #{c 26997}# + #{c 24892}# (list (cons '#(syntax-object doloop ((top) @@ -23365,7 +23271,7 @@ #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23379,12 +23285,12 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -23392,30 +23298,30 @@ #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - #{step 27016}#))))))) - #{tmp 27018}#) - (let ((#{tmp 27022}# + #{step 24911}#))))))) + #{tmp 24913}#) + (let ((#{tmp 24917}# ($sc-dispatch - #{e1 26996}# + #{e1 24891}# '(any . each-any)))) - (if #{tmp 27022}# + (if #{tmp 24917}# (@apply - (lambda (#{e1 27026}# #{e2 27027}#) + (lambda (#{e1 24921}# #{e2 24922}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i26963" "i26964")) + #("1c9" "1ca")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23424,17 +23330,17 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) '#(syntax-object doloop @@ -23442,12 +23348,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i26963" "i26964")) + #("1c9" "1ca")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23456,33 +23362,33 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) (map list - #{var 26992}# - #{init 26993}#) + #{var 24887}# + #{init 24888}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i26963" "i26964")) + #("1c9" "1ca")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23491,32 +23397,31 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - #{e0 26995}# + #{e0 24890}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i26963" - "i26964")) + #("1c9" "1ca")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23530,33 +23435,32 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - (cons #{e1 27026}# - #{e2 27027}#)) + (cons #{e1 24921}# + #{e2 24922}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i26963" - "i26964")) + #("1c9" "1ca")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23570,20 +23474,20 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) (append - #{c 26997}# + #{c 24892}# (list (cons '#(syntax-object doloop ((top) @@ -23592,8 +23496,8 @@ e2) #((top) (top)) - #("i26963" - "i26964")) + #("1c9" + "1ca")) #(ribcage () () @@ -23601,7 +23505,7 @@ #(ribcage #(step) #((top)) - #("i26954")) + #("1c8")) #(ribcage #(var init @@ -23615,12 +23519,12 @@ (top) (top) (top)) - #("i26939" - "i26940" - "i26941" - "i26942" - "i26943" - "i26944")) + #("1c2" + "1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -23628,45 +23532,42 @@ #(ribcage #(orig-x) #((top)) - #("i26936"))) + #("1c1"))) (hygiene guile)) - #{step 27016}#))))))) - #{tmp 27022}#) + #{step 24911}#))))))) + #{tmp 24917}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 26996}#)))))) - #{tmp 26999}#) + #{e1 24891}#)))))) + #{tmp 24894}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26998}#))))) - #{tmp 26988}#) + #{tmp 24893}#))))) + #{tmp 24883}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 26986}#)))))) + #{orig-x 24881}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 27313}# - (lambda (#{p 27337}# #{lev 27338}#) - (let ((#{tmp 27340}# + ((#{quasi 25129}# + (lambda (#{p 25153}# #{lev 25154}#) + (let ((#{tmp 25156}# ($sc-dispatch - #{p 27337}# + #{p 25153}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27059" "i27060")) + #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23675,28 +23576,22 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile))) any)))) - (if #{tmp 27340}# + (if #{tmp 25156}# (@apply - (lambda (#{p 27344}#) - (if (= #{lev 27338}# 0) + (lambda (#{p 25160}#) + (if (= #{lev 25154}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i27063")) + #(ribcage #(p) #((top)) #("1co")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23705,25 +23600,16 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) - #{p 27344}#) - (#{quasicons 27315}# + #{p 25160}#) + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i27063")) + #(ribcage #(p) #((top)) #("1co")) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27059" "i27060")) + #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23732,23 +23618,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i27063")) + #(ribcage #(p) #((top)) #("1co")) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27059" "i27060")) + #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23757,21 +23634,15 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile))) - (#{quasi 27313}# - (list #{p 27344}#) - (#{1-}# #{lev 27338}#))))) - #{tmp 27340}#) - (let ((#{tmp 27347}# + (#{quasi 25129}# + (list #{p 25160}#) + (#{1-}# #{lev 25154}#))))) + #{tmp 25156}#) + (let ((#{tmp 25163}# ($sc-dispatch - #{p 27337}# + #{p 25153}# '(#(free-id #(syntax-object quasiquote @@ -23780,7 +23651,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23789,28 +23660,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile))) any)))) - (if #{tmp 27347}# + (if #{tmp 25163}# (@apply - (lambda (#{p 27351}#) - (#{quasicons 27315}# + (lambda (#{p 25167}#) + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i27066")) + #(ribcage #(p) #((top)) #("1cp")) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27059" "i27060")) + #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23819,23 +23681,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i27066")) + #(ribcage #(p) #((top)) #("1cp")) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27059" "i27060")) + #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23844,26 +23697,20 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile))) - (#{quasi 27313}# - (list #{p 27351}#) - (#{1+}# #{lev 27338}#)))) - #{tmp 27347}#) - (let ((#{tmp 27354}# - ($sc-dispatch #{p 27337}# '(any . any)))) - (if #{tmp 27354}# + (#{quasi 25129}# + (list #{p 25167}#) + (#{1+}# #{lev 25154}#)))) + #{tmp 25163}#) + (let ((#{tmp 25170}# + ($sc-dispatch #{p 25153}# '(any . any)))) + (if #{tmp 25170}# (@apply - (lambda (#{p 27358}# #{q 27359}#) - (let ((#{tmp 27361}# + (lambda (#{p 25174}# #{q 25175}#) + (let ((#{tmp 25177}# ($sc-dispatch - #{p 27358}# + #{p 25174}# '(#(free-id #(syntax-object unquote @@ -23871,12 +23718,12 @@ #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23891,38 +23738,38 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) . each-any)))) - (if #{tmp 27361}# + (if #{tmp 25177}# (@apply - (lambda (#{p 27365}#) - (if (= #{lev 27338}# 0) - (#{quasilist* 27317}# - (map (lambda (#{tmp 27077 27401}#) + (lambda (#{p 25181}#) + (if (= #{lev 25154}# 0) + (#{quasilist* 25133}# + (map (lambda (#{tmp 24958 25217}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i27075")) + #("1cs")) #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23937,37 +23784,34 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27077 27401}#)) - #{p 27365}#) - (#{quasi 27313}# - #{q 27359}# - #{lev 27338}#)) - (#{quasicons 27315}# - (#{quasicons 27315}# + #{tmp 24958 25217}#)) + #{p 25181}#) + (#{quasi 25129}# + #{q 25175}# + #{lev 25154}#)) + (#{quasicons 25131}# + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) - #(ribcage - #(p) - #((top)) - #("i27075")) + #(ribcage #(p) #((top)) #("1cs")) #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -23982,30 +23826,27 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage - #(p) - #((top)) - #("i27075")) + #(ribcage #(p) #((top)) #("1cs")) #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24020,24 +23861,24 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) - (#{quasi 27313}# - #{p 27365}# - (#{1-}# #{lev 27338}#))) - (#{quasi 27313}# - #{q 27359}# - #{lev 27338}#)))) - #{tmp 27361}#) - (let ((#{tmp 27406}# + (#{quasi 25129}# + #{p 25181}# + (#{1-}# #{lev 25154}#))) + (#{quasi 25129}# + #{q 25175}# + #{lev 25154}#)))) + #{tmp 25177}#) + (let ((#{tmp 25222}# ($sc-dispatch - #{p 27358}# + #{p 25174}# '(#(free-id #(syntax-object unquote-splicing @@ -24045,12 +23886,12 @@ #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24065,40 +23906,38 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) . each-any)))) - (if #{tmp 27406}# + (if #{tmp 25222}# (@apply - (lambda (#{p 27410}#) - (if (= #{lev 27338}# 0) - (#{quasiappend 27316}# - (map (lambda (#{tmp 27082 27413}#) + (lambda (#{p 25226}#) + (if (= #{lev 25154}# 0) + (#{quasiappend 25132}# + (map (lambda (#{tmp 24962 25229}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i27080")) + #("1ct")) #(ribcage #(p q) #((top) (top)) - #("i27069" - "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" - "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24113,37 +23952,37 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27082 27413}#)) - #{p 27410}#) - (#{quasi 27313}# - #{q 27359}# - #{lev 27338}#)) - (#{quasicons 27315}# - (#{quasicons 27315}# + #{tmp 24962 25229}#)) + #{p 25226}#) + (#{quasi 25129}# + #{q 25175}# + #{lev 25154}#)) + (#{quasicons 25131}# + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i27080")) + #("1ct")) #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24158,13 +23997,13 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -24172,16 +24011,16 @@ #(ribcage #(p) #((top)) - #("i27080")) + #("1ct")) #(ribcage #(p q) #((top) (top)) - #("i27069" "i27070")) + #("1cq" "1cr")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24196,57 +24035,57 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) - (#{quasi 27313}# - #{p 27410}# - (#{1-}# #{lev 27338}#))) - (#{quasi 27313}# - #{q 27359}# - #{lev 27338}#)))) - #{tmp 27406}#) - (#{quasicons 27315}# - (#{quasi 27313}# - #{p 27358}# - #{lev 27338}#) - (#{quasi 27313}# - #{q 27359}# - #{lev 27338}#))))))) - #{tmp 27354}#) - (let ((#{tmp 27427}# - ($sc-dispatch #{p 27337}# '#(vector each-any)))) - (if #{tmp 27427}# + (#{quasi 25129}# + #{p 25226}# + (#{1-}# #{lev 25154}#))) + (#{quasi 25129}# + #{q 25175}# + #{lev 25154}#)))) + #{tmp 25222}#) + (#{quasicons 25131}# + (#{quasi 25129}# + #{p 25174}# + #{lev 25154}#) + (#{quasi 25129}# + #{q 25175}# + #{lev 25154}#))))))) + #{tmp 25170}#) + (let ((#{tmp 25243}# + ($sc-dispatch #{p 25153}# '#(vector each-any)))) + (if #{tmp 25243}# (@apply - (lambda (#{x 27431}#) - (let ((#{x 27434}# - (#{vquasi 27314}# - #{x 27431}# - #{lev 27338}#))) - (let ((#{tmp 27436}# + (lambda (#{x 25247}#) + (let ((#{x 25250}# + (#{vquasi 25130}# + #{x 25247}# + #{lev 25154}#))) + (let ((#{tmp 25252}# ($sc-dispatch - #{x 27434}# + #{x 25250}# '(#(atom "quote") each-any)))) - (if #{tmp 27436}# + (if #{tmp 25252}# (@apply - (lambda (#{x 27440}#) + (lambda (#{x 25256}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i27187")) + #("1dp")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27184")) + #("1do")) #(ribcage (emit quasivector quasilist* @@ -24261,36 +24100,36 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - (list->vector #{x 27440}#))) - #{tmp 27436}#) + (list->vector #{x 25256}#))) + #{tmp 25252}#) (letrec* - ((#{f 27442}# - (lambda (#{y 27454}# #{k 27455}#) - (let ((#{tmp 27457}# + ((#{f 25258}# + (lambda (#{y 25270}# #{k 25271}#) + (let ((#{tmp 25273}# ($sc-dispatch - #{y 27454}# + #{y 25270}# '(#(atom "quote") each-any)))) - (if #{tmp 27457}# + (if #{tmp 25273}# (@apply - (lambda (#{y 27460}#) - (#{k 27455}# - (map (lambda (#{tmp 27212 27461}#) + (lambda (#{y 25276}#) + (#{k 25271}# + (map (lambda (#{tmp 25053 25277}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i27210")) + #("1dw")) #(ribcage () () @@ -24302,13 +24141,13 @@ #((top) (top) (top)) - #("i27192" - "i27193" - "i27194")) + #("1dr" + "1ds" + "1dt")) #(ribcage #(_) #((top)) - #("i27190")) + #("1dq")) #(ribcage () () @@ -24316,7 +24155,7 @@ #(ribcage #(x) #((top)) - #("i27184")) + #("1do")) #(ribcage (emit quasivector quasilist* @@ -24331,51 +24170,51 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27212 27461}#)) - #{y 27460}#))) - #{tmp 27457}#) - (let ((#{tmp 27462}# + #{tmp 25053 25277}#)) + #{y 25276}#))) + #{tmp 25273}#) + (let ((#{tmp 25278}# ($sc-dispatch - #{y 27454}# + #{y 25270}# '(#(atom "list") . each-any)))) - (if #{tmp 27462}# + (if #{tmp 25278}# (@apply - (lambda (#{y 27465}#) - (#{k 27455}# - #{y 27465}#)) - #{tmp 27462}#) - (let ((#{tmp 27466}# + (lambda (#{y 25281}#) + (#{k 25271}# + #{y 25281}#)) + #{tmp 25278}#) + (let ((#{tmp 25282}# ($sc-dispatch - #{y 27454}# + #{y 25270}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 27466}# + (if #{tmp 25282}# (@apply - (lambda (#{y 27469}# - #{z 27470}#) - (#{f 27442}# - #{z 27470}# - (lambda (#{ls 27471}#) - (#{k 27455}# + (lambda (#{y 25285}# + #{z 25286}#) + (#{f 25258}# + #{z 25286}# + (lambda (#{ls 25287}#) + (#{k 25271}# (append - #{y 27469}# - #{ls 27471}#))))) - #{tmp 27466}#) + #{y 25285}# + #{ls 25287}#))))) + #{tmp 25282}#) (list '#(syntax-object "list->vector" ((top) @@ -24384,14 +24223,14 @@ () ()) #(ribcage - #(#{ g27227}#) - #((m27228 + #(#{ g25063}#) + #((m25064 top)) - #("i27231")) + #("1e2")) #(ribcage #(else) #((top)) - #("i27225")) + #("1e1")) #(ribcage () () @@ -24401,13 +24240,13 @@ #((top) (top) (top)) - #("i27192" - "i27193" - "i27194")) + #("1dr" + "1ds" + "1dt")) #(ribcage #(_) #((top)) - #("i27190")) + #("1dq")) #(ribcage () () @@ -24415,7 +24254,7 @@ #(ribcage #(x) #((top)) - #("i27184")) + #("1do")) #(ribcage (emit quasivector quasilist* @@ -24430,26 +24269,26 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{x 27434}#)))))))))) - (#{f 27442}# - #{x 27434}# - (lambda (#{ls 27444}#) - (let ((#{tmp 27446}# + #{x 25250}#)))))))))) + (#{f 25258}# + #{x 25250}# + (lambda (#{ls 25260}#) + (let ((#{tmp 25262}# ($sc-dispatch - #{ls 27444}# + #{ls 25260}# 'each-any))) - (if #{tmp 27446}# + (if #{tmp 25262}# (@apply - (lambda (#{ g27200 27449}#) + (lambda (#{ g25043 25265}#) (cons '#(syntax-object "vector" ((top) @@ -24458,9 +24297,9 @@ () ()) #(ribcage - #(#{ g27200}#) - #((m27201 top)) - #("i27205")) + #(#{ g25043}#) + #((m25044 top)) + #("1dv")) #(ribcage () () @@ -24476,11 +24315,11 @@ #(ribcage #(ls) #((top)) - #("i27199")) + #("1du")) #(ribcage #(_) #((top)) - #("i27190")) + #("1dq")) #(ribcage () () @@ -24488,7 +24327,7 @@ #(ribcage #(x) #((top)) - #("i27184")) + #("1do")) #(ribcage (emit quasivector quasilist* @@ -24503,30 +24342,30 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{ g27200 27449}#)) - #{tmp 27446}#) + #{ g25043 25265}#)) + #{tmp 25262}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 27444}#)))))))))) - #{tmp 27427}#) + #{ls 25260}#)))))))))) + #{tmp 25243}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i27090")) + #(ribcage #(p) #((top)) #("1cw")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27059" "i27060")) + #("1cm" "1cn")) #(ribcage (emit quasivector quasilist* @@ -24541,25 +24380,25 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{p 27337}#))))))))))) - (#{vquasi 27314}# - (lambda (#{p 27499}# #{lev 27500}#) - (let ((#{tmp 27502}# - ($sc-dispatch #{p 27499}# '(any . any)))) - (if #{tmp 27502}# + #{p 25153}#))))))))))) + (#{vquasi 25130}# + (lambda (#{p 25315}# #{lev 25316}#) + (let ((#{tmp 25318}# + ($sc-dispatch #{p 25315}# '(any . any)))) + (if #{tmp 25318}# (@apply - (lambda (#{p 27506}# #{q 27507}#) - (let ((#{tmp 27509}# + (lambda (#{p 25322}# #{q 25323}#) + (let ((#{tmp 25325}# ($sc-dispatch - #{p 27506}# + #{p 25322}# '(#(free-id #(syntax-object unquote @@ -24567,12 +24406,12 @@ #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24587,38 +24426,38 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) . each-any)))) - (if #{tmp 27509}# + (if #{tmp 25325}# (@apply - (lambda (#{p 27513}#) - (if (= #{lev 27500}# 0) - (#{quasilist* 27317}# - (map (lambda (#{tmp 27106 27549}#) + (lambda (#{p 25329}#) + (if (= #{lev 25316}# 0) + (#{quasilist* 25133}# + (map (lambda (#{tmp 24978 25365}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i27104")) + #("1d1")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24633,32 +24472,32 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27106 27549}#)) - #{p 27513}#) - (#{vquasi 27314}# #{q 27507}# #{lev 27500}#)) - (#{quasicons 27315}# - (#{quasicons 27315}# + #{tmp 24978 25365}#)) + #{p 25329}#) + (#{vquasi 25130}# #{q 25323}# #{lev 25316}#)) + (#{quasicons 25131}# + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i27104")) + #(ribcage #(p) #((top)) #("1d1")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24673,27 +24512,27 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i27104")) + #(ribcage #(p) #((top)) #("1d1")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24708,22 +24547,22 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) - (#{quasi 27313}# - #{p 27513}# - (#{1-}# #{lev 27500}#))) - (#{vquasi 27314}# #{q 27507}# #{lev 27500}#)))) - #{tmp 27509}#) - (let ((#{tmp 27556}# + (#{quasi 25129}# + #{p 25329}# + (#{1-}# #{lev 25316}#))) + (#{vquasi 25130}# #{q 25323}# #{lev 25316}#)))) + #{tmp 25325}#) + (let ((#{tmp 25372}# ($sc-dispatch - #{p 27506}# + #{p 25322}# '(#(free-id #(syntax-object unquote-splicing @@ -24731,12 +24570,12 @@ #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24751,38 +24590,38 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) . each-any)))) - (if #{tmp 27556}# + (if #{tmp 25372}# (@apply - (lambda (#{p 27560}#) - (if (= #{lev 27500}# 0) - (#{quasiappend 27316}# - (map (lambda (#{tmp 27111 27563}#) + (lambda (#{p 25376}#) + (if (= #{lev 25316}# 0) + (#{quasiappend 25132}# + (map (lambda (#{tmp 24982 25379}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i27109")) + #("1d2")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24797,34 +24636,34 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27111 27563}#)) - #{p 27560}#) - (#{vquasi 27314}# - #{q 27507}# - #{lev 27500}#)) - (#{quasicons 27315}# - (#{quasicons 27315}# + #{tmp 24982 25379}#)) + #{p 25376}#) + (#{vquasi 25130}# + #{q 25323}# + #{lev 25316}#)) + (#{quasicons 25131}# + (#{quasicons 25131}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i27109")) + #(ribcage #(p) #((top)) #("1d2")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24839,27 +24678,27 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i27109")) + #(ribcage #(p) #((top)) #("1d2")) #(ribcage #(p q) #((top) (top)) - #("i27098" "i27099")) + #("1cz" "1d0")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i27094" "i27095")) + #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24874,37 +24713,34 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile))) - (#{quasi 27313}# - #{p 27560}# - (#{1-}# #{lev 27500}#))) - (#{vquasi 27314}# - #{q 27507}# - #{lev 27500}#)))) - #{tmp 27556}#) - (#{quasicons 27315}# - (#{quasi 27313}# #{p 27506}# #{lev 27500}#) - (#{vquasi 27314}# #{q 27507}# #{lev 27500}#))))))) - #{tmp 27502}#) - (let ((#{tmp 27581}# ($sc-dispatch #{p 27499}# '()))) - (if #{tmp 27581}# + (#{quasi 25129}# + #{p 25376}# + (#{1-}# #{lev 25316}#))) + (#{vquasi 25130}# + #{q 25323}# + #{lev 25316}#)))) + #{tmp 25372}#) + (#{quasicons 25131}# + (#{quasi 25129}# #{p 25322}# #{lev 25316}#) + (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))))))) + #{tmp 25318}#) + (let ((#{tmp 25397}# ($sc-dispatch #{p 25315}# '()))) + (if #{tmp 25397}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i27094" "i27095")) + #(ribcage #(p lev) #((top) (top)) #("1cx" "1cy")) #(ribcage (emit quasivector quasilist* @@ -24913,64 +24749,58 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) ())) - #{tmp 27581}#) + #{tmp 25397}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 27499}#))))))) - (#{quasicons 27315}# - (lambda (#{x 27594}# #{y 27595}#) - (let ((#{tmp 27596}# (list #{x 27594}# #{y 27595}#))) - (let ((#{tmp 27597}# - ($sc-dispatch #{tmp 27596}# '(any any)))) - (if #{tmp 27597}# + #{p 25315}#))))))) + (#{quasicons 25131}# + (lambda (#{x 25410}# #{y 25411}#) + (let ((#{tmp 25412}# (list #{x 25410}# #{y 25411}#))) + (let ((#{tmp 25413}# + ($sc-dispatch #{tmp 25412}# '(any any)))) + (if #{tmp 25413}# (@apply - (lambda (#{x 27599}# #{y 27600}#) - (let ((#{tmp 27602}# + (lambda (#{x 25415}# #{y 25416}#) + (let ((#{tmp 25418}# ($sc-dispatch - #{y 27600}# + #{y 25416}# '(#(atom "quote") any)))) - (if #{tmp 27602}# + (if #{tmp 25418}# (@apply - (lambda (#{dy 27606}#) - (let ((#{tmp 27608}# + (lambda (#{dy 25422}#) + (let ((#{tmp 25424}# ($sc-dispatch - #{x 27599}# + #{x 25415}# '(#(atom "quote") any)))) - (if #{tmp 27608}# + (if #{tmp 25424}# (@apply - (lambda (#{dx 27612}#) + (lambda (#{dx 25428}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i27133")) + #("1d9")) #(ribcage #(dy) #((top)) - #("i27129")) + #("1d8")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -24985,39 +24815,33 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - (cons #{dx 27612}# #{dy 27606}#))) - #{tmp 27608}#) - (if (null? #{dy 27606}#) + (cons #{dx 25428}# #{dy 25422}#))) + #{tmp 25424}#) + (if (null? #{dy 25422}#) (list '#(syntax-object "list" ((top) - #(ribcage - #(_) - #((top)) - #("i27135")) - #(ribcage - #(dy) - #((top)) - #("i27129")) + #(ribcage #(_) #((top)) #("1da")) + #(ribcage #(dy) #((top)) #("1d8")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -25032,37 +24856,31 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{x 27599}#) + #{x 25415}#) (list '#(syntax-object "list*" ((top) - #(ribcage - #(_) - #((top)) - #("i27135")) - #(ribcage - #(dy) - #((top)) - #("i27129")) + #(ribcage #(_) #((top)) #("1da")) + #(ribcage #(dy) #((top)) #("1d8")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -25077,42 +24895,42 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{x 27599}# - #{y 27600}#))))) - #{tmp 27602}#) - (let ((#{tmp 27617}# + #{x 25415}# + #{y 25416}#))))) + #{tmp 25418}#) + (let ((#{tmp 25433}# ($sc-dispatch - #{y 27600}# + #{y 25416}# '(#(atom "list") . any)))) - (if #{tmp 27617}# + (if #{tmp 25433}# (@apply - (lambda (#{stuff 27621}#) + (lambda (#{stuff 25437}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i27138")) + #("1db")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -25127,41 +24945,41 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - (cons #{x 27599}# #{stuff 27621}#))) - #{tmp 27617}#) - (let ((#{tmp 27622}# + (cons #{x 25415}# #{stuff 25437}#))) + #{tmp 25433}#) + (let ((#{tmp 25438}# ($sc-dispatch - #{y 27600}# + #{y 25416}# '(#(atom "list*") . any)))) - (if #{tmp 27622}# + (if #{tmp 25438}# (@apply - (lambda (#{stuff 27626}#) + (lambda (#{stuff 25442}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i27141")) + #("1dc")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -25176,31 +24994,31 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - (cons #{x 27599}# #{stuff 27626}#))) - #{tmp 27622}#) + (cons #{x 25415}# #{stuff 25442}#))) + #{tmp 25438}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i27143")) + #(ribcage #(_) #((top)) #("1dd")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27123" "i27124")) + #("1d6" "1d7")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27118" "i27119")) + #("1d4" "1d5")) #(ribcage (emit quasivector quasilist* @@ -25215,37 +25033,34 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{x 27599}# - #{y 27600}#)))))))) - #{tmp 27597}#) + #{x 25415}# + #{y 25416}#)))))))) + #{tmp 25413}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27596}#)))))) - (#{quasiappend 27316}# - (lambda (#{x 27637}# #{y 27638}#) - (let ((#{tmp 27640}# - ($sc-dispatch #{y 27638}# '(#(atom "quote") ())))) - (if #{tmp 27640}# + #{tmp 25412}#)))))) + (#{quasiappend 25132}# + (lambda (#{x 25453}# #{y 25454}#) + (let ((#{tmp 25456}# + ($sc-dispatch #{y 25454}# '(#(atom "quote") ())))) + (if #{tmp 25456}# (@apply (lambda () - (if (null? #{x 27637}#) + (if (null? #{x 25453}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i27147" "i27148")) + #(ribcage #(x y) #((top) (top)) #("1de" "1df")) #(ribcage (emit quasivector quasilist* @@ -25254,32 +25069,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) ()) - (if (null? (cdr #{x 27637}#)) - (car #{x 27637}#) - (let ((#{tmp 27645}# - ($sc-dispatch #{x 27637}# 'each-any))) - (if #{tmp 27645}# + (if (null? (cdr #{x 25453}#)) + (car #{x 25453}#) + (let ((#{tmp 25461}# + ($sc-dispatch #{x 25453}# 'each-any))) + (if #{tmp 25461}# (@apply - (lambda (#{p 27649}#) + (lambda (#{p 25465}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i27159")) + #(ribcage #(p) #((top)) #("1dg")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27147" "i27148")) + #("1de" "1df")) #(ribcage (emit quasivector quasilist* @@ -25294,29 +25103,29 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{p 27649}#)) - #{tmp 27645}#) + #{p 25465}#)) + #{tmp 25461}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 27637}#)))))) - #{tmp 27640}#) - (if (null? #{x 27637}#) - #{y 27638}# - (let ((#{tmp 27657}# (list #{x 27637}# #{y 27638}#))) - (let ((#{tmp 27658}# - ($sc-dispatch #{tmp 27657}# '(each-any any)))) - (if #{tmp 27658}# + #{x 25453}#)))))) + #{tmp 25456}#) + (if (null? #{x 25453}#) + #{y 25454}# + (let ((#{tmp 25473}# (list #{x 25453}# #{y 25454}#))) + (let ((#{tmp 25474}# + ($sc-dispatch #{tmp 25473}# '(each-any any)))) + (if #{tmp 25474}# (@apply - (lambda (#{p 27660}# #{y 27661}#) + (lambda (#{p 25476}# #{y 25477}#) (cons '#(syntax-object "append" ((top) @@ -25324,13 +25133,13 @@ #(ribcage #(p y) #((top) (top)) - #("i27170" "i27171")) - #(ribcage #(_) #((top)) #("i27162")) + #("1di" "1dj")) + #(ribcage #(_) #((top)) #("1dh")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i27147" "i27148")) + #("1de" "1df")) #(ribcage (emit quasivector quasilist* @@ -25345,44 +25154,44 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - (append #{p 27660}# (list #{y 27661}#)))) - #{tmp 27658}#) + (append #{p 25476}# (list #{y 25477}#)))) + #{tmp 25474}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27657}#))))))))) - (#{quasilist* 27317}# - (lambda (#{x 27665}# #{y 27666}#) + #{tmp 25473}#))))))))) + (#{quasilist* 25133}# + (lambda (#{x 25481}# #{y 25482}#) (letrec* - ((#{f 27667}# - (lambda (#{x 27756}#) - (if (null? #{x 27756}#) - #{y 27666}# - (#{quasicons 27315}# - (car #{x 27756}#) - (#{f 27667}# (cdr #{x 27756}#))))))) - (#{f 27667}# #{x 27665}#)))) - (#{emit 27319}# - (lambda (#{x 27759}#) - (let ((#{tmp 27761}# - ($sc-dispatch #{x 27759}# '(#(atom "quote") any)))) - (if #{tmp 27761}# + ((#{f 25483}# + (lambda (#{x 25572}#) + (if (null? #{x 25572}#) + #{y 25482}# + (#{quasicons 25131}# + (car #{x 25572}#) + (#{f 25483}# (cdr #{x 25572}#))))))) + (#{f 25483}# #{x 25481}#)))) + (#{emit 25135}# + (lambda (#{x 25575}#) + (let ((#{tmp 25577}# + ($sc-dispatch #{x 25575}# '(#(atom "quote") any)))) + (if #{tmp 25577}# (@apply - (lambda (#{x 27765}#) + (lambda (#{x 25581}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i27237")) + #(ribcage #(x) #((top)) #("1e4")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27234")) + #(ribcage #(x) #((top)) #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25391,40 +25200,34 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf"))) (hygiene guile)) - #{x 27765}#)) - #{tmp 27761}#) - (let ((#{tmp 27766}# + #{x 25581}#)) + #{tmp 25577}#) + (let ((#{tmp 25582}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "list") . each-any)))) - (if #{tmp 27766}# + (if #{tmp 25582}# (@apply - (lambda (#{x 27770}#) - (let ((#{tmp 27771}# (map #{emit 27319}# #{x 27770}#))) - (let ((#{tmp 27772}# - ($sc-dispatch #{tmp 27771}# 'each-any))) - (if #{tmp 27772}# + (lambda (#{x 25586}#) + (let ((#{tmp 25587}# (map #{emit 25135}# #{x 25586}#))) + (let ((#{tmp 25588}# + ($sc-dispatch #{tmp 25587}# 'each-any))) + (if #{tmp 25588}# (@apply - (lambda (#{ g27242 27774}#) + (lambda (#{ g25074 25590}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g27242}#) - #((m27243 top)) - #("i27247")) - #(ribcage #(x) #((top)) #("i27240")) + #(#{ g25074}#) + #((m25075 top)) + #("1e6")) + #(ribcage #(x) #((top)) #("1e5")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27234")) + #(ribcage #(x) #((top)) #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25439,70 +25242,70 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{ g27242 27774}#)) - #{tmp 27772}#) + #{ g25074 25590}#)) + #{tmp 25588}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27771}#))))) - #{tmp 27766}#) - (let ((#{tmp 27775}# + #{tmp 25587}#))))) + #{tmp 25582}#) + (let ((#{tmp 25591}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 27775}# + (if #{tmp 25591}# (@apply - (lambda (#{x 27779}# #{y 27780}#) + (lambda (#{x 25595}# #{y 25596}#) (letrec* - ((#{f 27781}# - (lambda (#{x* 27784}#) - (if (null? #{x* 27784}#) - (#{emit 27319}# #{y 27780}#) - (let ((#{tmp 27785}# - (list (#{emit 27319}# - (car #{x* 27784}#)) - (#{f 27781}# - (cdr #{x* 27784}#))))) - (let ((#{tmp 27786}# + ((#{f 25597}# + (lambda (#{x* 25600}#) + (if (null? #{x* 25600}#) + (#{emit 25135}# #{y 25596}#) + (let ((#{tmp 25601}# + (list (#{emit 25135}# + (car #{x* 25600}#)) + (#{f 25597}# + (cdr #{x* 25600}#))))) + (let ((#{tmp 25602}# ($sc-dispatch - #{tmp 27785}# + #{tmp 25601}# '(any any)))) - (if #{tmp 27786}# + (if #{tmp 25602}# (@apply - (lambda (#{ g27262 27788}# - #{ g27261 27789}#) + (lambda (#{ g25089 25604}# + #{ g25088 25605}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g27262}# - #{ g27261}#) - #((m27263 top) - (m27263 top)) - #("i27267" "i27268")) + #(#{ g25089}# + #{ g25088}#) + #((m25090 top) + (m25090 top)) + #("1eb" "1ec")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i27256" "i27257")) + #("1e9" "1ea")) #(ribcage #(x y) #((top) (top)) - #("i27252" "i27253")) + #("1e7" "1e8")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27234")) + #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25517,56 +25320,56 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{ g27262 27788}# - #{ g27261 27789}#)) - #{tmp 27786}#) + #{ g25089 25604}# + #{ g25088 25605}#)) + #{tmp 25602}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27785}#)))))))) - (#{f 27781}# #{x 27779}#))) - #{tmp 27775}#) - (let ((#{tmp 27790}# + #{tmp 25601}#)))))))) + (#{f 25597}# #{x 25595}#))) + #{tmp 25591}#) + (let ((#{tmp 25606}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "append") . each-any)))) - (if #{tmp 27790}# + (if #{tmp 25606}# (@apply - (lambda (#{x 27794}#) - (let ((#{tmp 27795}# - (map #{emit 27319}# #{x 27794}#))) - (let ((#{tmp 27796}# + (lambda (#{x 25610}#) + (let ((#{tmp 25611}# + (map #{emit 25135}# #{x 25610}#))) + (let ((#{tmp 25612}# ($sc-dispatch - #{tmp 27795}# + #{tmp 25611}# 'each-any))) - (if #{tmp 27796}# + (if #{tmp 25612}# (@apply - (lambda (#{ g27274 27798}#) + (lambda (#{ g25098 25614}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g27274}#) - #((m27275 top)) - #("i27279")) + #(#{ g25098}#) + #((m25099 top)) + #("1ee")) #(ribcage #(x) #((top)) - #("i27272")) + #("1ed")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27234")) + #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25581,54 +25384,54 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{ g27274 27798}#)) - #{tmp 27796}#) + #{ g25098 25614}#)) + #{tmp 25612}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27795}#))))) - #{tmp 27790}#) - (let ((#{tmp 27799}# + #{tmp 25611}#))))) + #{tmp 25606}#) + (let ((#{tmp 25615}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "vector") . each-any)))) - (if #{tmp 27799}# + (if #{tmp 25615}# (@apply - (lambda (#{x 27803}#) - (let ((#{tmp 27804}# - (map #{emit 27319}# #{x 27803}#))) - (let ((#{tmp 27805}# + (lambda (#{x 25619}#) + (let ((#{tmp 25620}# + (map #{emit 25135}# #{x 25619}#))) + (let ((#{tmp 25621}# ($sc-dispatch - #{tmp 27804}# + #{tmp 25620}# 'each-any))) - (if #{tmp 27805}# + (if #{tmp 25621}# (@apply - (lambda (#{ g27286 27807}#) + (lambda (#{ g25108 25623}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g27286}#) - #((m27287 top)) - #("i27291")) + #(#{ g25108}#) + #((m25109 top)) + #("1eg")) #(ribcage #(x) #((top)) - #("i27284")) + #("1ef")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27234")) + #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25643,47 +25446,47 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{ g27286 27807}#)) - #{tmp 27805}#) + #{ g25108 25623}#)) + #{tmp 25621}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27804}#))))) - #{tmp 27799}#) - (let ((#{tmp 27808}# + #{tmp 25620}#))))) + #{tmp 25615}#) + (let ((#{tmp 25624}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "list->vector") any)))) - (if #{tmp 27808}# + (if #{tmp 25624}# (@apply - (lambda (#{x 27812}#) - (let ((#{tmp 27813}# - (#{emit 27319}# #{x 27812}#))) + (lambda (#{x 25628}#) + (let ((#{tmp 25629}# + (#{emit 25135}# #{x 25628}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g27298}#) - #((m27299 top)) - #("i27302")) + #(#{ g25118}#) + #((m25119 top)) + #("1ei")) #(ribcage #(x) #((top)) - #("i27296")) + #("1eh")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27234")) + #("1e3")) #(ribcage (emit quasivector quasilist* @@ -25698,188 +25501,188 @@ (top) (top) (top)) - ("i27055" - "i27053" - "i27051" - "i27049" - "i27047" - "i27045" - "i27043"))) + ("1cl" + "1ck" + "1cj" + "1ci" + "1ch" + "1cg" + "1cf"))) (hygiene guile)) - #{tmp 27813}#))) - #{tmp 27808}#) - (let ((#{tmp 27816}# + #{tmp 25629}#))) + #{tmp 25624}#) + (let ((#{tmp 25632}# ($sc-dispatch - #{x 27759}# + #{x 25575}# '(#(atom "value") any)))) - (if #{tmp 27816}# + (if #{tmp 25632}# (@apply - (lambda (#{x 27820}#) #{x 27820}#) - #{tmp 27816}#) + (lambda (#{x 25636}#) #{x 25636}#) + #{tmp 25632}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 27759}#)))))))))))))))))) - (lambda (#{x 27320}#) - (let ((#{tmp 27322}# - ($sc-dispatch #{x 27320}# '(_ any)))) - (if #{tmp 27322}# + #{x 25575}#)))))))))))))))))) + (lambda (#{x 25136}#) + (let ((#{tmp 25138}# + ($sc-dispatch #{x 25136}# '(_ any)))) + (if #{tmp 25138}# (@apply - (lambda (#{e 27326}#) - (#{emit 27319}# (#{quasi 27313}# #{e 27326}# 0))) - #{tmp 27322}#) + (lambda (#{e 25142}#) + (#{emit 25135}# (#{quasi 25129}# #{e 25142}# 0))) + #{tmp 25138}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 27320}#))))))) + #{x 25136}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 27875}#) + (lambda (#{x 25679}#) (letrec* - ((#{read-file 27876}# - (lambda (#{fn 27985}# #{k 27986}#) - (let ((#{p 27987}# (open-input-file #{fn 27985}#))) + ((#{read-file 25680}# + (lambda (#{fn 25789}# #{k 25790}#) + (let ((#{p 25791}# (open-input-file #{fn 25789}#))) (letrec* - ((#{f 27988}# - (lambda (#{x 28042}# #{result 28043}#) - (if (eof-object? #{x 28042}#) + ((#{f 25792}# + (lambda (#{x 25846}# #{result 25847}#) + (if (eof-object? #{x 25846}#) (begin - (close-input-port #{p 27987}#) - (reverse #{result 28043}#)) - (#{f 27988}# - (read #{p 27987}#) - (cons (datum->syntax #{k 27986}# #{x 28042}#) - #{result 28043}#)))))) - (#{f 27988}# (read #{p 27987}#) '())))))) - (let ((#{tmp 27878}# - ($sc-dispatch #{x 27875}# '(any any)))) - (if #{tmp 27878}# + (close-input-port #{p 25791}#) + (reverse #{result 25847}#)) + (#{f 25792}# + (read #{p 25791}#) + (cons (datum->syntax #{k 25790}# #{x 25846}#) + #{result 25847}#)))))) + (#{f 25792}# (read #{p 25791}#) '())))))) + (let ((#{tmp 25682}# + ($sc-dispatch #{x 25679}# '(any any)))) + (if #{tmp 25682}# (@apply - (lambda (#{k 27882}# #{filename 27883}#) - (let ((#{fn 27884}# (syntax->datum #{filename 27883}#))) - (let ((#{tmp 27885}# - (#{read-file 27876}# - #{fn 27884}# - #{filename 27883}#))) - (let ((#{tmp 27886}# - ($sc-dispatch #{tmp 27885}# 'each-any))) - (if #{tmp 27886}# + (lambda (#{k 25686}# #{filename 25687}#) + (let ((#{fn 25688}# (syntax->datum #{filename 25687}#))) + (let ((#{tmp 25689}# + (#{read-file 25680}# + #{fn 25688}# + #{filename 25687}#))) + (let ((#{tmp 25690}# + ($sc-dispatch #{tmp 25689}# 'each-any))) + (if #{tmp 25690}# (@apply - (lambda (#{exp 27904}#) + (lambda (#{exp 25708}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i27872")) + #(ribcage #(exp) #((top)) #("1ex")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i27867")) + #(ribcage #(fn) #((top)) #("1ew")) #(ribcage #(k filename) #((top) (top)) - #("i27863" "i27864")) - #(ribcage (read-file) ((top)) ("i27847")) - #(ribcage #(x) #((top)) #("i27846"))) + #("1eu" "1ev")) + #(ribcage (read-file) ((top)) ("1en")) + #(ribcage #(x) #((top)) #("1em"))) (hygiene guile)) - #{exp 27904}#)) - #{tmp 27886}#) + #{exp 25708}#)) + #{tmp 25690}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27885}#)))))) - #{tmp 27878}#) + #{tmp 25689}#)))))) + #{tmp 25682}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 27875}#))))))) + #{x 25679}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 28062}#) - (let ((#{tmp 28064}# - ($sc-dispatch #{x 28062}# '(any any)))) - (if #{tmp 28064}# + (lambda (#{x 25860}#) + (let ((#{tmp 25862}# + ($sc-dispatch #{x 25860}# '(any any)))) + (if #{tmp 25862}# (@apply - (lambda (#{k 28068}# #{filename 28069}#) - (let ((#{fn 28070}# (syntax->datum #{filename 28069}#))) - (let ((#{tmp 28071}# + (lambda (#{k 25866}# #{filename 25867}#) + (let ((#{fn 25868}# (syntax->datum #{filename 25867}#))) + (let ((#{tmp 25869}# (datum->syntax - #{filename 28069}# - (let ((#{t 28074}# (%search-load-path #{fn 28070}#))) - (if #{t 28074}# - #{t 28074}# + #{filename 25867}# + (let ((#{t 25872}# (%search-load-path #{fn 25868}#))) + (if #{t 25872}# + #{t 25872}# (syntax-violation 'include-from-path "file not found in path" - #{x 28062}# - #{filename 28069}#)))))) + #{x 25860}# + #{filename 25867}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i28056")) + #(ribcage #(fn) #((top)) #("1f2")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i28052")) + #(ribcage #(fn) #((top)) #("1f1")) #(ribcage #(k filename) #((top) (top)) - #("i28048" "i28049")) + #("1ez" "1f0")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28045"))) + #(ribcage #(x) #((top)) #("1ey"))) (hygiene guile)) - #{tmp 28071}#)))) - #{tmp 28064}#) + #{tmp 25869}#)))) + #{tmp 25862}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28062}#)))))) + #{x 25860}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 28083}#) + (lambda (#{x 25880}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 28083}#)))) + #{x 25880}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 28086}#) + (lambda (#{x 25882}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 28086}#)))) + #{x 25882}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 28142}#) - (let ((#{tmp 28144}# + (lambda (#{x 25919}#) + (let ((#{tmp 25921}# ($sc-dispatch - #{x 28142}# + #{x 25919}# '(_ any any . each-any)))) - (if #{tmp 28144}# + (if #{tmp 25921}# (@apply - (lambda (#{e 28148}# #{m1 28149}# #{m2 28150}#) - (let ((#{tmp 28151}# + (lambda (#{e 25925}# #{m1 25926}# #{m2 25927}#) + (let ((#{tmp 25928}# (letrec* - ((#{f 28193}# - (lambda (#{clause 28196}# #{clauses 28197}#) - (if (null? #{clauses 28197}#) - (let ((#{tmp 28199}# + ((#{f 25970}# + (lambda (#{clause 25973}# #{clauses 25974}#) + (if (null? #{clauses 25974}#) + (let ((#{tmp 25976}# ($sc-dispatch - #{clause 28196}# + #{clause 25973}# '(#(free-id #(syntax-object else @@ -25888,91 +25691,77 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" "1fc" "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile))) any . each-any)))) - (if #{tmp 28199}# + (if #{tmp 25976}# (@apply - (lambda (#{e1 28203}# #{e2 28204}#) + (lambda (#{e1 25980}# #{e2 25981}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28110" "i28111")) + #("1fe" "1ff")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" "1fc" "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) - (cons #{e1 28203}# #{e2 28204}#))) - #{tmp 28199}#) - (let ((#{tmp 28205}# + (cons #{e1 25980}# #{e2 25981}#))) + #{tmp 25976}#) + (let ((#{tmp 25982}# ($sc-dispatch - #{clause 28196}# + #{clause 25973}# '(each-any any . each-any)))) - (if #{tmp 28205}# + (if #{tmp 25982}# (@apply - (lambda (#{k 28209}# - #{e1 28210}# - #{e2 28211}#) + (lambda (#{k 25986}# + #{e1 25987}# + #{e2 25988}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i28116" - "i28117" - "i28118")) + #("1fg" "1fh" "1fi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" "1fc" "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) (list '#(syntax-object memv @@ -25982,9 +25771,9 @@ #((top) (top) (top)) - #("i28116" - "i28117" - "i28118")) + #("1fg" + "1fh" + "1fi")) #(ribcage () () ()) #(ribcage #(f @@ -25993,22 +25782,22 @@ #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) '#(syntax-object t @@ -26018,9 +25807,9 @@ #((top) (top) (top)) - #("i28116" - "i28117" - "i28118")) + #("1fg" + "1fh" + "1fi")) #(ribcage () () ()) #(ribcage #(f @@ -26029,22 +25818,22 @@ #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) (list '#(syntax-object quote @@ -26054,9 +25843,9 @@ #((top) (top) (top)) - #("i28116" - "i28117" - "i28118")) + #("1fg" + "1fh" + "1fi")) #(ribcage () () @@ -26068,17 +25857,17 @@ #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () @@ -26086,10 +25875,10 @@ #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) - #{k 28209}#)) + #{k 25986}#)) (cons '#(syntax-object begin ((top) @@ -26098,9 +25887,9 @@ #((top) (top) (top)) - #("i28116" - "i28117" - "i28118")) + #("1fg" + "1fh" + "1fi")) #(ribcage () () ()) #(ribcage #(f @@ -26109,76 +25898,70 @@ #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) - (cons #{e1 28210}# - #{e2 28211}#)))) - #{tmp 28205}#) + (cons #{e1 25987}# + #{e2 25988}#)))) + #{tmp 25982}#) (syntax-violation 'case "bad clause" - #{x 28142}# - #{clause 28196}#))))) - (let ((#{tmp 28219}# - (#{f 28193}# - (car #{clauses 28197}#) - (cdr #{clauses 28197}#)))) - (let ((#{tmp 28222}# + #{x 25919}# + #{clause 25973}#))))) + (let ((#{tmp 25996}# + (#{f 25970}# + (car #{clauses 25974}#) + (cdr #{clauses 25974}#)))) + (let ((#{tmp 25999}# ($sc-dispatch - #{clause 28196}# + #{clause 25973}# '(each-any any . each-any)))) - (if #{tmp 28222}# + (if #{tmp 25999}# (@apply - (lambda (#{k 28226}# - #{e1 28227}# - #{e2 28228}#) + (lambda (#{k 26003}# + #{e1 26004}# + #{e2 26005}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i28132" - "i28133" - "i28134")) + #("1fl" "1fm" "1fn")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i28128")) + #("1fk")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" "1fc" "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) (list '#(syntax-object memv @@ -26186,32 +25969,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i28132" - "i28133" - "i28134")) + #("1fl" + "1fm" + "1fn")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i28128")) + #("1fk")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) '#(syntax-object t @@ -26219,32 +26002,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i28132" - "i28133" - "i28134")) + #("1fl" + "1fm" + "1fn")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i28128")) + #("1fk")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) (list '#(syntax-object quote @@ -26254,9 +26037,9 @@ #((top) (top) (top)) - #("i28132" - "i28133" - "i28134")) + #("1fl" + "1fm" + "1fn")) #(ribcage () () @@ -26264,7 +26047,7 @@ #(ribcage #(rest) #((top)) - #("i28128")) + #("1fk")) #(ribcage () () @@ -26276,17 +26059,17 @@ #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () @@ -26294,232 +26077,232 @@ #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) - #{k 28226}#)) + #{k 26003}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i28132" - "i28133" - "i28134")) + #("1fl" + "1fm" + "1fn")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i28128")) + #("1fk")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i28101" - "i28102" - "i28103")) + #("1fb" + "1fc" + "1fd")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" - "i28092" - "i28093")) + #("1f7" + "1f8" + "1f9")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28088"))) + #("1f6"))) (hygiene guile)) - (cons #{e1 28227}# - #{e2 28228}#)) - #{tmp 28219}#)) - #{tmp 28222}#) + (cons #{e1 26004}# + #{e2 26005}#)) + #{tmp 25996}#)) + #{tmp 25999}#) (syntax-violation 'case "bad clause" - #{x 28142}# - #{clause 28196}#)))))))) - (#{f 28193}# #{m1 28149}# #{m2 28150}#)))) - (let ((#{body 28152}# #{tmp 28151}#)) + #{x 25919}# + #{clause 25973}#)))))))) + (#{f 25970}# #{m1 25926}# #{m2 25927}#)))) + (let ((#{body 25929}# #{tmp 25928}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i28099")) + #(ribcage #(body) #((top)) #("1fa")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" "i28092" "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28088"))) + #(ribcage #(x) #((top)) #("1f6"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i28099")) + #(ribcage #(body) #((top)) #("1fa")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i28091" "i28092" "i28093")) + #("1f7" "1f8" "1f9")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28088"))) + #(ribcage #(x) #((top)) #("1f6"))) (hygiene guile)) - #{e 28148}#)) - #{body 28152}#)))) - #{tmp 28144}#) + #{e 25925}#)) + #{body 25929}#)))) + #{tmp 25921}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28142}#)))))) + #{x 25919}#)))))) (define make-variable-transformer - (lambda (#{proc 28246}#) - (if (procedure? #{proc 28246}#) + (lambda (#{proc 26020}#) + (if (procedure? #{proc 26020}#) (letrec* - ((#{trans 28247}# - (lambda (#{x 28253}#) - (#{proc 28246}# #{x 28253}#)))) + ((#{trans 26021}# + (lambda (#{x 26027}#) + (#{proc 26020}# #{x 26027}#)))) (begin (set-procedure-property! - #{trans 28247}# + #{trans 26021}# 'variable-transformer #t) - #{trans 28247}#)) + #{trans 26021}#)) (error "variable transformer not a procedure" - #{proc 28246}#)))) + #{proc 26020}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 28285}#) - (let ((#{tmp 28287}# - ($sc-dispatch #{x 28285}# '(_ any)))) - (if #{tmp 28287}# + (lambda (#{x 26047}#) + (let ((#{tmp 26049}# + ($sc-dispatch #{x 26047}# '(_ any)))) + (if #{tmp 26049}# (@apply - (lambda (#{e 28291}#) + (lambda (#{e 26053}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) - #{e 28291}#)) + #{e 26053}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i28260")) + #(ribcage #(e) #((top)) #("1ft")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) - (cons #{e 28291}# + (cons #{e 26053}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i28260")) + #("1ft")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) #(syntax-object ... @@ -26527,55 +26310,55 @@ #(ribcage #(e) #((top)) - #("i28260")) + #("1ft")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile))))))))) - #{tmp 28287}#) - (let ((#{tmp 28292}# + #{tmp 26049}#) + (let ((#{tmp 26054}# ($sc-dispatch - #{x 28285}# + #{x 26047}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 28292}# + (if (if #{tmp 26054}# (@apply - (lambda (#{id 28296}# - #{exp1 28297}# - #{var 28298}# - #{val 28299}# - #{exp2 28300}#) - (if (identifier? #{id 28296}#) - (identifier? #{var 28298}#) + (lambda (#{id 26058}# + #{exp1 26059}# + #{var 26060}# + #{val 26061}# + #{exp2 26062}#) + (if (identifier? #{id 26058}#) + (identifier? #{var 26060}#) #f)) - #{tmp 28292}#) + #{tmp 26054}#) #f) (@apply - (lambda (#{id 28301}# - #{exp1 28302}# - #{var 28303}# - #{val 28304}# - #{exp2 28305}#) + (lambda (#{id 26063}# + #{exp1 26064}# + #{var 26065}# + #{val 26066}# + #{exp2 26067}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" "i28276" "i28277" "i28278" "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26583,13 +26366,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '(#(syntax-object x @@ -26597,13 +26376,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26611,13 +26386,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) . #(syntax-object @@ -26626,13 +26397,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26640,13 +26407,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '#(syntax-object x @@ -26654,13 +26417,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile)) '(#(syntax-object set! @@ -26668,13 +26427,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" "1g0" "1g1" "1g2" "1g3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28257"))) + #(ribcage #(x) #((top)) #("1fs"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26686,19 +26441,19 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) - #{var 28303}# - #{val 28304}#) + #{var 26065}# + #{val 26066}#) (list '#(syntax-object syntax ((top) @@ -26709,19 +26464,19 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) - #{exp2 28305}#)) - (list (cons #{id 28301}# + #{exp2 26067}#)) + (list (cons #{id 26063}# '(#(syntax-object x ((top) @@ -26732,16 +26487,16 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) #(syntax-object ... @@ -26753,16 +26508,16 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26774,18 +26529,18 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) - (cons #{exp1 28302}# + (cons #{exp1 26064}# '(#(syntax-object x ((top) @@ -26800,16 +26555,16 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) #(syntax-object ... @@ -26825,18 +26580,18 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)))))) - (list #{id 28301}# + (list #{id 26063}# (list '#(syntax-object identifier? ((top) @@ -26847,16 +26602,16 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26872,18 +26627,18 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) - #{id 28301}#)) + #{id 26063}#)) (list '#(syntax-object syntax ((top) @@ -26894,68 +26649,68 @@ (top) (top) (top)) - #("i28275" - "i28276" - "i28277" - "i28278" - "i28279")) + #("1fz" + "1g0" + "1g1" + "1g2" + "1g3")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28257"))) + #("1fs"))) (hygiene guile)) - #{exp1 28302}#)))))) - #{tmp 28292}#) + #{exp1 26064}#)))))) + #{tmp 26054}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28285}#)))))))) + #{x 26047}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 28337}#) - (let ((#{tmp 28339}# + (lambda (#{x 26090}#) + (let ((#{tmp 26092}# ($sc-dispatch - #{x 28337}# + #{x 26090}# '(_ (any . any) any . each-any)))) - (if #{tmp 28339}# + (if #{tmp 26092}# (@apply - (lambda (#{id 28343}# - #{args 28344}# - #{b0 28345}# - #{b1 28346}#) + (lambda (#{id 26096}# + #{args 26097}# + #{b0 26098}# + #{b1 26099}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i28319" "i28320" "i28321" "i28322")) + #("1g5" "1g6" "1g7" "1g8")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28316"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) - #{id 28343}# + #{id 26096}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i28319" "i28320" "i28321" "i28322")) + #("1g5" "1g6" "1g7" "1g8")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28316"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) - (cons #{args 28344}# - (cons #{b0 28345}# #{b1 28346}#))))) - #{tmp 28339}#) - (let ((#{tmp 28347}# - ($sc-dispatch #{x 28337}# '(_ any any)))) - (if (if #{tmp 28347}# + (cons #{args 26097}# + (cons #{b0 26098}# #{b1 26099}#))))) + #{tmp 26092}#) + (let ((#{tmp 26100}# + ($sc-dispatch #{x 26090}# '(_ any any)))) + (if (if #{tmp 26100}# (@apply - (lambda (#{id 28351}# #{val 28352}#) + (lambda (#{id 26104}# #{val 26105}#) (identifier? '#(syntax-object x @@ -26963,29 +26718,29 @@ #(ribcage #(id val) #((top) (top)) - #("i28329" "i28330")) + #("1g9" "1ga")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28316"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)))) - #{tmp 28347}#) + #{tmp 26100}#) #f) (@apply - (lambda (#{id 28353}# #{val 28354}#) + (lambda (#{id 26106}# #{val 26107}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i28333" "i28334")) + #("1gb" "1gc")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28316"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) - #{id 28353}# - #{val 28354}#)) - #{tmp 28347}#) + #{id 26106}# + #{val 26107}#)) + #{tmp 26100}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28337}#)))))))) + #{x 26090}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index be6b2b614..fd33e9825 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -636,7 +636,12 @@ ;; labels must be comparable with "eq?", have read-write invariance, ;; and distinct from symbols. (define gen-label - (lambda () (symbol->string (gensym "i")))) + (let ((i 0)) + (lambda () + (let ((n i)) + ;; FIXME: Use atomic ops. + (set! i (1+ n)) + (number->string n 36))))) (define gen-labels (lambda (ls) |