summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-01-19 13:08:19 +0100
committerAndy Wingo <wingo@pobox.com>2012-01-19 13:08:19 +0100
commit7d02e256610e37c0ab0e8c55623d6f6c6eacab82 (patch)
tree03b270e60eac64c73a317184d9e1b55cb7f54382
parent9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a (diff)
downloadguile-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.scm23155
-rw-r--r--module/ice-9/psyntax.scm7
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)