summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/psyntax-pp.scm12940
-rw-r--r--module/ice-9/psyntax.scm120
-rw-r--r--test-suite/tests/syncase.test41
3 files changed, 6705 insertions, 6396 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 6b44d0c58..bc1471199 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,604 +1,596 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 3695}#
- (lambda (#{f\ 3733}# #{first\ 3734}# . #{rest\ 3735}#)
- (let ((#{t\ 3736}# (null? #{first\ 3734}#)))
- (if #{t\ 3736}#
- #{t\ 3736}#
- (if (null? #{rest\ 3735}#)
- (letrec ((#{andmap\ 3737}#
- (lambda (#{first\ 3738}#)
- (let ((#{x\ 3739}# (car #{first\ 3738}#))
- (#{first\ 3740}# (cdr #{first\ 3738}#)))
- (if (null? #{first\ 3740}#)
- (#{f\ 3733}# #{x\ 3739}#)
- (if (#{f\ 3733}# #{x\ 3739}#)
- (#{andmap\ 3737}# #{first\ 3740}#)
+(letrec ((#{and-map*\ 31}#
+ (lambda (#{f\ 69}# #{first\ 70}# . #{rest\ 71}#)
+ (let ((#{t\ 72}# (null? #{first\ 70}#)))
+ (if #{t\ 72}#
+ #{t\ 72}#
+ (if (null? #{rest\ 71}#)
+ (letrec ((#{andmap\ 73}#
+ (lambda (#{first\ 74}#)
+ (let ((#{x\ 75}# (car #{first\ 74}#))
+ (#{first\ 76}# (cdr #{first\ 74}#)))
+ (if (null? #{first\ 76}#)
+ (#{f\ 69}# #{x\ 75}#)
+ (if (#{f\ 69}# #{x\ 75}#)
+ (#{andmap\ 73}# #{first\ 76}#)
#f))))))
- (#{andmap\ 3737}# #{first\ 3734}#))
- (letrec ((#{andmap\ 3741}#
- (lambda (#{first\ 3742}# #{rest\ 3743}#)
- (let ((#{x\ 3744}# (car #{first\ 3742}#))
- (#{xr\ 3745}# (map car #{rest\ 3743}#))
- (#{first\ 3746}# (cdr #{first\ 3742}#))
- (#{rest\ 3747}#
- (map cdr #{rest\ 3743}#)))
- (if (null? #{first\ 3746}#)
- (apply #{f\ 3733}#
- (cons #{x\ 3744}# #{xr\ 3745}#))
- (if (apply #{f\ 3733}#
- (cons #{x\ 3744}# #{xr\ 3745}#))
- (#{andmap\ 3741}#
- #{first\ 3746}#
- #{rest\ 3747}#)
+ (#{andmap\ 73}# #{first\ 70}#))
+ (letrec ((#{andmap\ 77}#
+ (lambda (#{first\ 78}# #{rest\ 79}#)
+ (let ((#{x\ 80}# (car #{first\ 78}#))
+ (#{xr\ 81}# (map car #{rest\ 79}#))
+ (#{first\ 82}# (cdr #{first\ 78}#))
+ (#{rest\ 83}# (map cdr #{rest\ 79}#)))
+ (if (null? #{first\ 82}#)
+ (apply #{f\ 69}#
+ (cons #{x\ 80}# #{xr\ 81}#))
+ (if (apply #{f\ 69}#
+ (cons #{x\ 80}# #{xr\ 81}#))
+ (#{andmap\ 77}#
+ #{first\ 82}#
+ #{rest\ 83}#)
#f))))))
- (#{andmap\ 3741}# #{first\ 3734}# #{rest\ 3735}#))))))))
- (letrec ((#{lambda-var-list\ 3846}#
- (lambda (#{vars\ 3970}#)
- (letrec ((#{lvl\ 3971}#
- (lambda (#{vars\ 3972}# #{ls\ 3973}# #{w\ 3974}#)
- (if (pair? #{vars\ 3972}#)
- (#{lvl\ 3971}#
- (cdr #{vars\ 3972}#)
- (cons (#{wrap\ 3823}#
- (car #{vars\ 3972}#)
- #{w\ 3974}#
+ (#{andmap\ 77}# #{first\ 70}# #{rest\ 71}#))))))))
+ (letrec ((#{lambda-var-list\ 182}#
+ (lambda (#{vars\ 306}#)
+ (letrec ((#{lvl\ 307}#
+ (lambda (#{vars\ 308}# #{ls\ 309}# #{w\ 310}#)
+ (if (pair? #{vars\ 308}#)
+ (#{lvl\ 307}#
+ (cdr #{vars\ 308}#)
+ (cons (#{wrap\ 159}#
+ (car #{vars\ 308}#)
+ #{w\ 310}#
#f)
- #{ls\ 3973}#)
- #{w\ 3974}#)
- (if (#{id?\ 3795}# #{vars\ 3972}#)
- (cons (#{wrap\ 3823}#
- #{vars\ 3972}#
- #{w\ 3974}#
+ #{ls\ 309}#)
+ #{w\ 310}#)
+ (if (#{id?\ 131}# #{vars\ 308}#)
+ (cons (#{wrap\ 159}#
+ #{vars\ 308}#
+ #{w\ 310}#
#f)
- #{ls\ 3973}#)
- (if (null? #{vars\ 3972}#)
- #{ls\ 3973}#
- (if (#{syntax-object?\ 3779}# #{vars\ 3972}#)
- (#{lvl\ 3971}#
- (#{syntax-object-expression\ 3780}#
- #{vars\ 3972}#)
- #{ls\ 3973}#
- (#{join-wraps\ 3814}#
- #{w\ 3974}#
- (#{syntax-object-wrap\ 3781}#
- #{vars\ 3972}#)))
- (cons #{vars\ 3972}# #{ls\ 3973}#))))))))
- (#{lvl\ 3971}#
- #{vars\ 3970}#
+ #{ls\ 309}#)
+ (if (null? #{vars\ 308}#)
+ #{ls\ 309}#
+ (if (#{syntax-object?\ 115}# #{vars\ 308}#)
+ (#{lvl\ 307}#
+ (#{syntax-object-expression\ 116}#
+ #{vars\ 308}#)
+ #{ls\ 309}#
+ (#{join-wraps\ 150}#
+ #{w\ 310}#
+ (#{syntax-object-wrap\ 117}#
+ #{vars\ 308}#)))
+ (cons #{vars\ 308}# #{ls\ 309}#))))))))
+ (#{lvl\ 307}#
+ #{vars\ 306}#
'()
'(())))))
- (#{gen-var\ 3845}#
- (lambda (#{id\ 3975}#)
- (let ((#{id\ 3976}#
- (if (#{syntax-object?\ 3779}# #{id\ 3975}#)
- (#{syntax-object-expression\ 3780}# #{id\ 3975}#)
- #{id\ 3975}#)))
+ (#{gen-var\ 181}#
+ (lambda (#{id\ 311}#)
+ (let ((#{id\ 312}#
+ (if (#{syntax-object?\ 115}# #{id\ 311}#)
+ (#{syntax-object-expression\ 116}# #{id\ 311}#)
+ #{id\ 311}#)))
(gensym
- (string-append (symbol->string #{id\ 3976}#) " ")))))
- (#{strip\ 3844}#
- (lambda (#{x\ 3977}# #{w\ 3978}#)
+ (string-append (symbol->string #{id\ 312}#) " ")))))
+ (#{strip\ 180}#
+ (lambda (#{x\ 313}# #{w\ 314}#)
(if (memq 'top
- (#{wrap-marks\ 3798}# #{w\ 3978}#))
- #{x\ 3977}#
- (letrec ((#{f\ 3979}#
- (lambda (#{x\ 3980}#)
- (if (#{syntax-object?\ 3779}# #{x\ 3980}#)
- (#{strip\ 3844}#
- (#{syntax-object-expression\ 3780}#
- #{x\ 3980}#)
- (#{syntax-object-wrap\ 3781}# #{x\ 3980}#))
- (if (pair? #{x\ 3980}#)
- (let ((#{a\ 3981}#
- (#{f\ 3979}# (car #{x\ 3980}#)))
- (#{d\ 3982}#
- (#{f\ 3979}# (cdr #{x\ 3980}#))))
- (if (if (eq? #{a\ 3981}# (car #{x\ 3980}#))
- (eq? #{d\ 3982}# (cdr #{x\ 3980}#))
- #f)
- #{x\ 3980}#
- (cons #{a\ 3981}# #{d\ 3982}#)))
- (if (vector? #{x\ 3980}#)
- (let ((#{old\ 3983}#
- (vector->list #{x\ 3980}#)))
- (let ((#{new\ 3984}#
- (map #{f\ 3979}# #{old\ 3983}#)))
- (if (#{and-map*\ 3695}#
- eq?
- #{old\ 3983}#
- #{new\ 3984}#)
- #{x\ 3980}#
- (list->vector #{new\ 3984}#))))
- #{x\ 3980}#))))))
- (#{f\ 3979}# #{x\ 3977}#)))))
- (#{chi-lambda-case\ 3843}#
- (lambda (#{e\ 3985}#
- #{r\ 3986}#
- #{w\ 3987}#
- #{s\ 3988}#
- #{mod\ 3989}#
- #{get-formals\ 3990}#
- #{clauses\ 3991}#)
- (letrec ((#{expand-body\ 3995}#
- (lambda (#{req\ 3996}#
- #{opt\ 3997}#
- #{rest\ 3998}#
- #{kw\ 3999}#
- #{body\ 4000}#
- #{vars\ 4001}#
- #{r*\ 4002}#
- #{w*\ 4003}#
- #{inits\ 4004}#)
- ((lambda (#{tmp\ 4005}#)
- ((lambda (#{tmp\ 4006}#)
- (if (if #{tmp\ 4006}#
- (apply (lambda (#{docstring\ 4007}#
- #{e1\ 4008}#
- #{e2\ 4009}#)
+ (#{wrap-marks\ 134}# #{w\ 314}#))
+ #{x\ 313}#
+ (letrec ((#{f\ 315}# (lambda (#{x\ 316}#)
+ (if (#{syntax-object?\ 115}#
+ #{x\ 316}#)
+ (#{strip\ 180}#
+ (#{syntax-object-expression\ 116}#
+ #{x\ 316}#)
+ (#{syntax-object-wrap\ 117}#
+ #{x\ 316}#))
+ (if (pair? #{x\ 316}#)
+ (let ((#{a\ 317}# (#{f\ 315}# (car #{x\ 316}#)))
+ (#{d\ 318}# (#{f\ 315}# (cdr #{x\ 316}#))))
+ (if (if (eq? #{a\ 317}#
+ (car #{x\ 316}#))
+ (eq? #{d\ 318}#
+ (cdr #{x\ 316}#))
+ #f)
+ #{x\ 316}#
+ (cons #{a\ 317}# #{d\ 318}#)))
+ (if (vector? #{x\ 316}#)
+ (let ((#{old\ 319}#
+ (vector->list
+ #{x\ 316}#)))
+ (let ((#{new\ 320}#
+ (map #{f\ 315}#
+ #{old\ 319}#)))
+ (if (#{and-map*\ 31}#
+ eq?
+ #{old\ 319}#
+ #{new\ 320}#)
+ #{x\ 316}#
+ (list->vector
+ #{new\ 320}#))))
+ #{x\ 316}#))))))
+ (#{f\ 315}# #{x\ 313}#)))))
+ (#{chi-lambda-case\ 179}#
+ (lambda (#{e\ 321}#
+ #{r\ 322}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#
+ #{get-formals\ 326}#
+ #{clauses\ 327}#)
+ (letrec ((#{expand-body\ 331}#
+ (lambda (#{req\ 332}#
+ #{opt\ 333}#
+ #{rest\ 334}#
+ #{kw\ 335}#
+ #{body\ 336}#
+ #{vars\ 337}#
+ #{r*\ 338}#
+ #{w*\ 339}#
+ #{inits\ 340}#)
+ ((lambda (#{tmp\ 341}#)
+ ((lambda (#{tmp\ 342}#)
+ (if (if #{tmp\ 342}#
+ (apply (lambda (#{docstring\ 343}#
+ #{e1\ 344}#
+ #{e2\ 345}#)
(string?
(syntax->datum
- #{docstring\ 4007}#)))
- #{tmp\ 4006}#)
+ #{docstring\ 343}#)))
+ #{tmp\ 342}#)
#f)
- (apply (lambda (#{docstring\ 4010}#
- #{e1\ 4011}#
- #{e2\ 4012}#)
+ (apply (lambda (#{docstring\ 346}#
+ #{e1\ 347}#
+ #{e2\ 348}#)
(values
(syntax->datum
- #{docstring\ 4010}#)
- #{req\ 3996}#
- #{opt\ 3997}#
- #{rest\ 3998}#
- #{kw\ 3999}#
- #{inits\ 4004}#
- #{vars\ 4001}#
- (#{chi-body\ 3835}#
- (cons #{e1\ 4011}#
- #{e2\ 4012}#)
- (#{source-wrap\ 3824}#
- #{e\ 3985}#
- #{w\ 3987}#
- #{s\ 3988}#
- #{mod\ 3989}#)
- #{r*\ 4002}#
- #{w*\ 4003}#
- #{mod\ 3989}#)))
- #{tmp\ 4006}#)
- ((lambda (#{tmp\ 4014}#)
- (if #{tmp\ 4014}#
- (apply (lambda (#{e1\ 4015}#
- #{e2\ 4016}#)
+ #{docstring\ 346}#)
+ #{req\ 332}#
+ #{opt\ 333}#
+ #{rest\ 334}#
+ #{kw\ 335}#
+ #{inits\ 340}#
+ #{vars\ 337}#
+ (#{chi-body\ 171}#
+ (cons #{e1\ 347}# #{e2\ 348}#)
+ (#{source-wrap\ 160}#
+ #{e\ 321}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#)
+ #{r*\ 338}#
+ #{w*\ 339}#
+ #{mod\ 325}#)))
+ #{tmp\ 342}#)
+ ((lambda (#{tmp\ 350}#)
+ (if #{tmp\ 350}#
+ (apply (lambda (#{e1\ 351}#
+ #{e2\ 352}#)
(values
#f
- #{req\ 3996}#
- #{opt\ 3997}#
- #{rest\ 3998}#
- #{kw\ 3999}#
- #{inits\ 4004}#
- #{vars\ 4001}#
- (#{chi-body\ 3835}#
- (cons #{e1\ 4015}#
- #{e2\ 4016}#)
- (#{source-wrap\ 3824}#
- #{e\ 3985}#
- #{w\ 3987}#
- #{s\ 3988}#
- #{mod\ 3989}#)
- #{r*\ 4002}#
- #{w*\ 4003}#
- #{mod\ 3989}#)))
- #{tmp\ 4014}#)
+ #{req\ 332}#
+ #{opt\ 333}#
+ #{rest\ 334}#
+ #{kw\ 335}#
+ #{inits\ 340}#
+ #{vars\ 337}#
+ (#{chi-body\ 171}#
+ (cons #{e1\ 351}#
+ #{e2\ 352}#)
+ (#{source-wrap\ 160}#
+ #{e\ 321}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#)
+ #{r*\ 338}#
+ #{w*\ 339}#
+ #{mod\ 325}#)))
+ #{tmp\ 350}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4005}#)))
+ #{tmp\ 341}#)))
($sc-dispatch
- #{tmp\ 4005}#
+ #{tmp\ 341}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4005}#
+ #{tmp\ 341}#
'(any any . each-any))))
- #{body\ 4000}#)))
- (#{expand-kw\ 3994}#
- (lambda (#{req\ 4018}#
- #{opt\ 4019}#
- #{rest\ 4020}#
- #{kw\ 4021}#
- #{body\ 4022}#
- #{vars\ 4023}#
- #{r*\ 4024}#
- #{w*\ 4025}#
- #{aok\ 4026}#
- #{out\ 4027}#
- #{inits\ 4028}#)
- (if (pair? #{kw\ 4021}#)
- ((lambda (#{tmp\ 4029}#)
- ((lambda (#{tmp\ 4030}#)
- (if #{tmp\ 4030}#
- (apply (lambda (#{k\ 4031}#
- #{id\ 4032}#
- #{i\ 4033}#)
- (let ((#{v\ 4034}#
- (#{gen-var\ 3845}#
- #{id\ 4032}#)))
- (let ((#{l\ 4035}#
- (#{gen-labels\ 3801}#
- (list #{v\ 4034}#))))
- (let ((#{r**\ 4036}#
- (#{extend-var-env\ 3790}#
- #{l\ 4035}#
- (list #{v\ 4034}#)
- #{r*\ 4024}#)))
- (let ((#{w**\ 4037}#
- (#{make-binding-wrap\ 3812}#
- (list #{id\ 4032}#)
- #{l\ 4035}#
- #{w*\ 4025}#)))
- (#{expand-kw\ 3994}#
- #{req\ 4018}#
- #{opt\ 4019}#
- #{rest\ 4020}#
- (cdr #{kw\ 4021}#)
- #{body\ 4022}#
- (cons #{v\ 4034}#
- #{vars\ 4023}#)
- #{r**\ 4036}#
- #{w**\ 4037}#
- #{aok\ 4026}#
+ #{body\ 336}#)))
+ (#{expand-kw\ 330}#
+ (lambda (#{req\ 354}#
+ #{opt\ 355}#
+ #{rest\ 356}#
+ #{kw\ 357}#
+ #{body\ 358}#
+ #{vars\ 359}#
+ #{r*\ 360}#
+ #{w*\ 361}#
+ #{aok\ 362}#
+ #{out\ 363}#
+ #{inits\ 364}#)
+ (if (pair? #{kw\ 357}#)
+ ((lambda (#{tmp\ 365}#)
+ ((lambda (#{tmp\ 366}#)
+ (if #{tmp\ 366}#
+ (apply (lambda (#{k\ 367}#
+ #{id\ 368}#
+ #{i\ 369}#)
+ (let ((#{v\ 370}# (#{gen-var\ 181}#
+ #{id\ 368}#)))
+ (let ((#{l\ 371}# (#{gen-labels\ 137}#
+ (list #{v\ 370}#))))
+ (let ((#{r**\ 372}#
+ (#{extend-var-env\ 126}#
+ #{l\ 371}#
+ (list #{v\ 370}#)
+ #{r*\ 360}#)))
+ (let ((#{w**\ 373}#
+ (#{make-binding-wrap\ 148}#
+ (list #{id\ 368}#)
+ #{l\ 371}#
+ #{w*\ 361}#)))
+ (#{expand-kw\ 330}#
+ #{req\ 354}#
+ #{opt\ 355}#
+ #{rest\ 356}#
+ (cdr #{kw\ 357}#)
+ #{body\ 358}#
+ (cons #{v\ 370}#
+ #{vars\ 359}#)
+ #{r**\ 372}#
+ #{w**\ 373}#
+ #{aok\ 362}#
(cons (list (syntax->datum
- #{k\ 4031}#)
+ #{k\ 367}#)
(syntax->datum
- #{id\ 4032}#)
- #{v\ 4034}#)
- #{out\ 4027}#)
- (cons (#{chi\ 3831}#
- #{i\ 4033}#
- #{r*\ 4024}#
- #{w*\ 4025}#
- #{mod\ 3989}#)
- #{inits\ 4028}#)))))))
- #{tmp\ 4030}#)
+ #{id\ 368}#)
+ #{v\ 370}#)
+ #{out\ 363}#)
+ (cons (#{chi\ 167}#
+ #{i\ 369}#
+ #{r*\ 360}#
+ #{w*\ 361}#
+ #{mod\ 325}#)
+ #{inits\ 364}#)))))))
+ #{tmp\ 366}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4029}#)))
+ #{tmp\ 365}#)))
($sc-dispatch
- #{tmp\ 4029}#
+ #{tmp\ 365}#
'(any any any))))
- (car #{kw\ 4021}#))
- (#{expand-body\ 3995}#
- #{req\ 4018}#
- #{opt\ 4019}#
- #{rest\ 4020}#
- (if (let ((#{t\ 4038}# #{aok\ 4026}#))
- (if #{t\ 4038}#
- #{t\ 4038}#
- (pair? #{out\ 4027}#)))
- (cons #{aok\ 4026}# (reverse #{out\ 4027}#))
+ (car #{kw\ 357}#))
+ (#{expand-body\ 331}#
+ #{req\ 354}#
+ #{opt\ 355}#
+ #{rest\ 356}#
+ (if (let ((#{t\ 374}# #{aok\ 362}#))
+ (if #{t\ 374}#
+ #{t\ 374}#
+ (pair? #{out\ 363}#)))
+ (cons #{aok\ 362}# (reverse #{out\ 363}#))
#f)
- #{body\ 4022}#
- (reverse #{vars\ 4023}#)
- #{r*\ 4024}#
- #{w*\ 4025}#
- (reverse #{inits\ 4028}#)))))
- (#{expand-opt\ 3993}#
- (lambda (#{req\ 4039}#
- #{opt\ 4040}#
- #{rest\ 4041}#
- #{kw\ 4042}#
- #{body\ 4043}#
- #{vars\ 4044}#
- #{r*\ 4045}#
- #{w*\ 4046}#
- #{out\ 4047}#
- #{inits\ 4048}#)
- (if (pair? #{opt\ 4040}#)
- ((lambda (#{tmp\ 4049}#)
- ((lambda (#{tmp\ 4050}#)
- (if #{tmp\ 4050}#
- (apply (lambda (#{id\ 4051}# #{i\ 4052}#)
- (let ((#{v\ 4053}#
- (#{gen-var\ 3845}#
- #{id\ 4051}#)))
- (let ((#{l\ 4054}#
- (#{gen-labels\ 3801}#
- (list #{v\ 4053}#))))
- (let ((#{r**\ 4055}#
- (#{extend-var-env\ 3790}#
- #{l\ 4054}#
- (list #{v\ 4053}#)
- #{r*\ 4045}#)))
- (let ((#{w**\ 4056}#
- (#{make-binding-wrap\ 3812}#
- (list #{id\ 4051}#)
- #{l\ 4054}#
- #{w*\ 4046}#)))
- (#{expand-opt\ 3993}#
- #{req\ 4039}#
- (cdr #{opt\ 4040}#)
- #{rest\ 4041}#
- #{kw\ 4042}#
- #{body\ 4043}#
- (cons #{v\ 4053}#
- #{vars\ 4044}#)
- #{r**\ 4055}#
- #{w**\ 4056}#
+ #{body\ 358}#
+ (reverse #{vars\ 359}#)
+ #{r*\ 360}#
+ #{w*\ 361}#
+ (reverse #{inits\ 364}#)))))
+ (#{expand-opt\ 329}#
+ (lambda (#{req\ 375}#
+ #{opt\ 376}#
+ #{rest\ 377}#
+ #{kw\ 378}#
+ #{body\ 379}#
+ #{vars\ 380}#
+ #{r*\ 381}#
+ #{w*\ 382}#
+ #{out\ 383}#
+ #{inits\ 384}#)
+ (if (pair? #{opt\ 376}#)
+ ((lambda (#{tmp\ 385}#)
+ ((lambda (#{tmp\ 386}#)
+ (if #{tmp\ 386}#
+ (apply (lambda (#{id\ 387}# #{i\ 388}#)
+ (let ((#{v\ 389}# (#{gen-var\ 181}#
+ #{id\ 387}#)))
+ (let ((#{l\ 390}# (#{gen-labels\ 137}#
+ (list #{v\ 389}#))))
+ (let ((#{r**\ 391}#
+ (#{extend-var-env\ 126}#
+ #{l\ 390}#
+ (list #{v\ 389}#)
+ #{r*\ 381}#)))
+ (let ((#{w**\ 392}#
+ (#{make-binding-wrap\ 148}#
+ (list #{id\ 387}#)
+ #{l\ 390}#
+ #{w*\ 382}#)))
+ (#{expand-opt\ 329}#
+ #{req\ 375}#
+ (cdr #{opt\ 376}#)
+ #{rest\ 377}#
+ #{kw\ 378}#
+ #{body\ 379}#
+ (cons #{v\ 389}#
+ #{vars\ 380}#)
+ #{r**\ 391}#
+ #{w**\ 392}#
(cons (syntax->datum
- #{id\ 4051}#)
- #{out\ 4047}#)
- (cons (#{chi\ 3831}#
- #{i\ 4052}#
- #{r*\ 4045}#
- #{w*\ 4046}#
- #{mod\ 3989}#)
- #{inits\ 4048}#)))))))
- #{tmp\ 4050}#)
+ #{id\ 387}#)
+ #{out\ 383}#)
+ (cons (#{chi\ 167}#
+ #{i\ 388}#
+ #{r*\ 381}#
+ #{w*\ 382}#
+ #{mod\ 325}#)
+ #{inits\ 384}#)))))))
+ #{tmp\ 386}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4049}#)))
+ #{tmp\ 385}#)))
($sc-dispatch
- #{tmp\ 4049}#
+ #{tmp\ 385}#
'(any any))))
- (car #{opt\ 4040}#))
- (if #{rest\ 4041}#
- (let ((#{v\ 4057}#
- (#{gen-var\ 3845}# #{rest\ 4041}#)))
- (let ((#{l\ 4058}#
- (#{gen-labels\ 3801}#
- (list #{v\ 4057}#))))
- (let ((#{r*\ 4059}#
- (#{extend-var-env\ 3790}#
- #{l\ 4058}#
- (list #{v\ 4057}#)
- #{r*\ 4045}#)))
- (let ((#{w*\ 4060}#
- (#{make-binding-wrap\ 3812}#
- (list #{rest\ 4041}#)
- #{l\ 4058}#
- #{w*\ 4046}#)))
- (#{expand-kw\ 3994}#
- #{req\ 4039}#
- (if (pair? #{out\ 4047}#)
- (reverse #{out\ 4047}#)
+ (car #{opt\ 376}#))
+ (if #{rest\ 377}#
+ (let ((#{v\ 393}# (#{gen-var\ 181}#
+ #{rest\ 377}#)))
+ (let ((#{l\ 394}# (#{gen-labels\ 137}#
+ (list #{v\ 393}#))))
+ (let ((#{r*\ 395}#
+ (#{extend-var-env\ 126}#
+ #{l\ 394}#
+ (list #{v\ 393}#)
+ #{r*\ 381}#)))
+ (let ((#{w*\ 396}#
+ (#{make-binding-wrap\ 148}#
+ (list #{rest\ 377}#)
+ #{l\ 394}#
+ #{w*\ 382}#)))
+ (#{expand-kw\ 330}#
+ #{req\ 375}#
+ (if (pair? #{out\ 383}#)
+ (reverse #{out\ 383}#)
#f)
- (syntax->datum #{rest\ 4041}#)
- (if (pair? #{kw\ 4042}#)
- (cdr #{kw\ 4042}#)
- #{kw\ 4042}#)
- #{body\ 4043}#
- (cons #{v\ 4057}# #{vars\ 4044}#)
- #{r*\ 4059}#
- #{w*\ 4060}#
- (if (pair? #{kw\ 4042}#)
- (car #{kw\ 4042}#)
+ (syntax->datum #{rest\ 377}#)
+ (if (pair? #{kw\ 378}#)
+ (cdr #{kw\ 378}#)
+ #{kw\ 378}#)
+ #{body\ 379}#
+ (cons #{v\ 393}# #{vars\ 380}#)
+ #{r*\ 395}#
+ #{w*\ 396}#
+ (if (pair? #{kw\ 378}#)
+ (car #{kw\ 378}#)
#f)
'()
- #{inits\ 4048}#)))))
- (#{expand-kw\ 3994}#
- #{req\ 4039}#
- (if (pair? #{out\ 4047}#)
- (reverse #{out\ 4047}#)
+ #{inits\ 384}#)))))
+ (#{expand-kw\ 330}#
+ #{req\ 375}#
+ (if (pair? #{out\ 383}#)
+ (reverse #{out\ 383}#)
#f)
#f
- (if (pair? #{kw\ 4042}#)
- (cdr #{kw\ 4042}#)
- #{kw\ 4042}#)
- #{body\ 4043}#
- #{vars\ 4044}#
- #{r*\ 4045}#
- #{w*\ 4046}#
- (if (pair? #{kw\ 4042}#)
- (car #{kw\ 4042}#)
- #f)
+ (if (pair? #{kw\ 378}#)
+ (cdr #{kw\ 378}#)
+ #{kw\ 378}#)
+ #{body\ 379}#
+ #{vars\ 380}#
+ #{r*\ 381}#
+ #{w*\ 382}#
+ (if (pair? #{kw\ 378}#) (car #{kw\ 378}#) #f)
'()
- #{inits\ 4048}#)))))
- (#{expand-req\ 3992}#
- (lambda (#{req\ 4061}#
- #{opt\ 4062}#
- #{rest\ 4063}#
- #{kw\ 4064}#
- #{body\ 4065}#)
- (let ((#{vars\ 4066}#
- (map #{gen-var\ 3845}# #{req\ 4061}#))
- (#{labels\ 4067}#
- (#{gen-labels\ 3801}# #{req\ 4061}#)))
- (let ((#{r*\ 4068}#
- (#{extend-var-env\ 3790}#
- #{labels\ 4067}#
- #{vars\ 4066}#
- #{r\ 3986}#))
- (#{w*\ 4069}#
- (#{make-binding-wrap\ 3812}#
- #{req\ 4061}#
- #{labels\ 4067}#
- #{w\ 3987}#)))
- (#{expand-opt\ 3993}#
- (map syntax->datum #{req\ 4061}#)
- #{opt\ 4062}#
- #{rest\ 4063}#
- #{kw\ 4064}#
- #{body\ 4065}#
- (reverse #{vars\ 4066}#)
- #{r*\ 4068}#
- #{w*\ 4069}#
+ #{inits\ 384}#)))))
+ (#{expand-req\ 328}#
+ (lambda (#{req\ 397}#
+ #{opt\ 398}#
+ #{rest\ 399}#
+ #{kw\ 400}#
+ #{body\ 401}#)
+ (let ((#{vars\ 402}#
+ (map #{gen-var\ 181}# #{req\ 397}#))
+ (#{labels\ 403}#
+ (#{gen-labels\ 137}# #{req\ 397}#)))
+ (let ((#{r*\ 404}#
+ (#{extend-var-env\ 126}#
+ #{labels\ 403}#
+ #{vars\ 402}#
+ #{r\ 322}#))
+ (#{w*\ 405}#
+ (#{make-binding-wrap\ 148}#
+ #{req\ 397}#
+ #{labels\ 403}#
+ #{w\ 323}#)))
+ (#{expand-opt\ 329}#
+ (map syntax->datum #{req\ 397}#)
+ #{opt\ 398}#
+ #{rest\ 399}#
+ #{kw\ 400}#
+ #{body\ 401}#
+ (reverse #{vars\ 402}#)
+ #{r*\ 404}#
+ #{w*\ 405}#
'()
'()))))))
- ((lambda (#{tmp\ 4070}#)
- ((lambda (#{tmp\ 4071}#)
- (if #{tmp\ 4071}#
- (apply (lambda () (values #f #f)) #{tmp\ 4071}#)
- ((lambda (#{tmp\ 4072}#)
- (if #{tmp\ 4072}#
- (apply (lambda (#{args\ 4073}#
- #{e1\ 4074}#
- #{e2\ 4075}#
- #{args*\ 4076}#
- #{e1*\ 4077}#
- #{e2*\ 4078}#)
+ ((lambda (#{tmp\ 406}#)
+ ((lambda (#{tmp\ 407}#)
+ (if #{tmp\ 407}#
+ (apply (lambda () (values #f #f)) #{tmp\ 407}#)
+ ((lambda (#{tmp\ 408}#)
+ (if #{tmp\ 408}#
+ (apply (lambda (#{args\ 409}#
+ #{e1\ 410}#
+ #{e2\ 411}#
+ #{args*\ 412}#
+ #{e1*\ 413}#
+ #{e2*\ 414}#)
(call-with-values
(lambda ()
- (#{get-formals\ 3990}#
- #{args\ 4073}#))
- (lambda (#{req\ 4079}#
- #{opt\ 4080}#
- #{rest\ 4081}#
- #{kw\ 4082}#)
+ (#{get-formals\ 326}#
+ #{args\ 409}#))
+ (lambda (#{req\ 415}#
+ #{opt\ 416}#
+ #{rest\ 417}#
+ #{kw\ 418}#)
(call-with-values
(lambda ()
- (#{expand-req\ 3992}#
- #{req\ 4079}#
- #{opt\ 4080}#
- #{rest\ 4081}#
- #{kw\ 4082}#
- (cons #{e1\ 4074}#
- #{e2\ 4075}#)))
- (lambda (#{docstring\ 4084}#
- #{req\ 4085}#
- #{opt\ 4086}#
- #{rest\ 4087}#
- #{kw\ 4088}#
- #{inits\ 4089}#
- #{vars\ 4090}#
- #{body\ 4091}#)
+ (#{expand-req\ 328}#
+ #{req\ 415}#
+ #{opt\ 416}#
+ #{rest\ 417}#
+ #{kw\ 418}#
+ (cons #{e1\ 410}#
+ #{e2\ 411}#)))
+ (lambda (#{docstring\ 420}#
+ #{req\ 421}#
+ #{opt\ 422}#
+ #{rest\ 423}#
+ #{kw\ 424}#
+ #{inits\ 425}#
+ #{vars\ 426}#
+ #{body\ 427}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3843}#
- #{e\ 3985}#
- #{r\ 3986}#
- #{w\ 3987}#
- #{s\ 3988}#
- #{mod\ 3989}#
- #{get-formals\ 3990}#
- (map (lambda (#{tmp\ 4094}#
- #{tmp\ 4093}#
- #{tmp\ 4092}#)
- (cons #{tmp\ 4092}#
- (cons #{tmp\ 4093}#
- #{tmp\ 4094}#)))
- #{e2*\ 4078}#
- #{e1*\ 4077}#
- #{args*\ 4076}#)))
- (lambda (#{docstring*\ 4096}#
- #{else*\ 4097}#)
+ (#{chi-lambda-case\ 179}#
+ #{e\ 321}#
+ #{r\ 322}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#
+ #{get-formals\ 326}#
+ (map (lambda (#{tmp\ 430}#
+ #{tmp\ 429}#
+ #{tmp\ 428}#)
+ (cons #{tmp\ 428}#
+ (cons #{tmp\ 429}#
+ #{tmp\ 430}#)))
+ #{e2*\ 414}#
+ #{e1*\ 413}#
+ #{args*\ 412}#)))
+ (lambda (#{docstring*\ 432}#
+ #{else*\ 433}#)
(values
- (let ((#{t\ 4098}#
- #{docstring\ 4084}#))
- (if #{t\ 4098}#
- #{t\ 4098}#
- #{docstring*\ 4096}#))
- (#{build-lambda-case\ 3771}#
- #{s\ 3988}#
- #{req\ 4085}#
- #{opt\ 4086}#
- #{rest\ 4087}#
- #{kw\ 4088}#
- #{inits\ 4089}#
- #{vars\ 4090}#
- #{body\ 4091}#
- #{else*\ 4097}#)))))))))
- #{tmp\ 4072}#)
+ (let ((#{t\ 434}# #{docstring\ 420}#))
+ (if #{t\ 434}#
+ #{t\ 434}#
+ #{docstring*\ 432}#))
+ (#{build-lambda-case\ 107}#
+ #{s\ 324}#
+ #{req\ 421}#
+ #{opt\ 422}#
+ #{rest\ 423}#
+ #{kw\ 424}#
+ #{inits\ 425}#
+ #{vars\ 426}#
+ #{body\ 427}#
+ #{else*\ 433}#)))))))))
+ #{tmp\ 408}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4070}#)))
+ #{tmp\ 406}#)))
($sc-dispatch
- #{tmp\ 4070}#
+ #{tmp\ 406}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 4070}# (quote ()))))
- #{clauses\ 3991}#))))
- (#{lambda*-formals\ 3842}#
- (lambda (#{orig-args\ 4099}#)
- (letrec ((#{check\ 4104}#
- (lambda (#{req\ 4105}#
- #{opt\ 4106}#
- #{rest\ 4107}#
- #{kw\ 4108}#)
- (if (#{distinct-bound-ids?\ 3821}#
+ ($sc-dispatch #{tmp\ 406}# (quote ()))))
+ #{clauses\ 327}#))))
+ (#{lambda*-formals\ 178}#
+ (lambda (#{orig-args\ 435}#)
+ (letrec ((#{check\ 440}#
+ (lambda (#{req\ 441}#
+ #{opt\ 442}#
+ #{rest\ 443}#
+ #{kw\ 444}#)
+ (if (#{distinct-bound-ids?\ 157}#
(append
- #{req\ 4105}#
- (map car #{opt\ 4106}#)
- (if #{rest\ 4107}#
- (list #{rest\ 4107}#)
+ #{req\ 441}#
+ (map car #{opt\ 442}#)
+ (if #{rest\ 443}#
+ (list #{rest\ 443}#)
'())
- (if (pair? #{kw\ 4108}#)
- (map cadr (cdr #{kw\ 4108}#))
+ (if (pair? #{kw\ 444}#)
+ (map cadr (cdr #{kw\ 444}#))
'())))
(values
- #{req\ 4105}#
- #{opt\ 4106}#
- #{rest\ 4107}#
- #{kw\ 4108}#)
+ #{req\ 441}#
+ #{opt\ 442}#
+ #{rest\ 443}#
+ #{kw\ 444}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 4099}#))))
- (#{rest\ 4103}#
- (lambda (#{args\ 4109}#
- #{req\ 4110}#
- #{opt\ 4111}#
- #{kw\ 4112}#)
- ((lambda (#{tmp\ 4113}#)
- ((lambda (#{tmp\ 4114}#)
- (if (if #{tmp\ 4114}#
- (apply (lambda (#{r\ 4115}#)
- (#{id?\ 3795}# #{r\ 4115}#))
- #{tmp\ 4114}#)
+ #{orig-args\ 435}#))))
+ (#{rest\ 439}#
+ (lambda (#{args\ 445}#
+ #{req\ 446}#
+ #{opt\ 447}#
+ #{kw\ 448}#)
+ ((lambda (#{tmp\ 449}#)
+ ((lambda (#{tmp\ 450}#)
+ (if (if #{tmp\ 450}#
+ (apply (lambda (#{r\ 451}#)
+ (#{id?\ 131}# #{r\ 451}#))
+ #{tmp\ 450}#)
#f)
- (apply (lambda (#{r\ 4116}#)
- (#{check\ 4104}#
- #{req\ 4110}#
- #{opt\ 4111}#
- #{r\ 4116}#
- #{kw\ 4112}#))
- #{tmp\ 4114}#)
- ((lambda (#{else\ 4117}#)
+ (apply (lambda (#{r\ 452}#)
+ (#{check\ 440}#
+ #{req\ 446}#
+ #{opt\ 447}#
+ #{r\ 452}#
+ #{kw\ 448}#))
+ #{tmp\ 450}#)
+ ((lambda (#{else\ 453}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 4099}#
- #{args\ 4109}#))
- #{tmp\ 4113}#)))
- (list #{tmp\ 4113}#)))
- #{args\ 4109}#)))
- (#{key\ 4102}#
- (lambda (#{args\ 4118}#
- #{req\ 4119}#
- #{opt\ 4120}#
- #{rkey\ 4121}#)
- ((lambda (#{tmp\ 4122}#)
- ((lambda (#{tmp\ 4123}#)
- (if #{tmp\ 4123}#
+ #{orig-args\ 435}#
+ #{args\ 445}#))
+ #{tmp\ 449}#)))
+ (list #{tmp\ 449}#)))
+ #{args\ 445}#)))
+ (#{key\ 438}#
+ (lambda (#{args\ 454}#
+ #{req\ 455}#
+ #{opt\ 456}#
+ #{rkey\ 457}#)
+ ((lambda (#{tmp\ 458}#)
+ ((lambda (#{tmp\ 459}#)
+ (if #{tmp\ 459}#
(apply (lambda ()
- (#{check\ 4104}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (#{check\ 440}#
+ #{req\ 455}#
+ #{opt\ 456}#
#f
(cons #f
- (reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4123}#)
- ((lambda (#{tmp\ 4124}#)
- (if (if #{tmp\ 4124}#
- (apply (lambda (#{a\ 4125}#
- #{b\ 4126}#)
- (#{id?\ 3795}#
- #{a\ 4125}#))
- #{tmp\ 4124}#)
+ (reverse #{rkey\ 457}#))))
+ #{tmp\ 459}#)
+ ((lambda (#{tmp\ 460}#)
+ (if (if #{tmp\ 460}#
+ (apply (lambda (#{a\ 461}#
+ #{b\ 462}#)
+ (#{id?\ 131}#
+ #{a\ 461}#))
+ #{tmp\ 460}#)
#f)
- (apply (lambda (#{a\ 4127}#
- #{b\ 4128}#)
- ((lambda (#{tmp\ 4129}#)
- ((lambda (#{k\ 4130}#)
- (#{key\ 4102}#
- #{b\ 4128}#
- #{req\ 4119}#
- #{opt\ 4120}#
- (cons (cons #{k\ 4130}#
- (cons #{a\ 4127}#
+ (apply (lambda (#{a\ 463}# #{b\ 464}#)
+ ((lambda (#{tmp\ 465}#)
+ ((lambda (#{k\ 466}#)
+ (#{key\ 438}#
+ #{b\ 464}#
+ #{req\ 455}#
+ #{opt\ 456}#
+ (cons (cons #{k\ 466}#
+ (cons #{a\ 463}#
'(#(syntax-object
#f
((top)
@@ -1010,223 +1002,222 @@
"i")))
(hygiene
guile)))))
- #{rkey\ 4121}#)))
- #{tmp\ 4129}#))
+ #{rkey\ 457}#)))
+ #{tmp\ 465}#))
(symbol->keyword
(syntax->datum
- #{a\ 4127}#))))
- #{tmp\ 4124}#)
- ((lambda (#{tmp\ 4131}#)
- (if (if #{tmp\ 4131}#
- (apply (lambda (#{a\ 4132}#
- #{init\ 4133}#
- #{b\ 4134}#)
- (#{id?\ 3795}#
- #{a\ 4132}#))
- #{tmp\ 4131}#)
+ #{a\ 463}#))))
+ #{tmp\ 460}#)
+ ((lambda (#{tmp\ 467}#)
+ (if (if #{tmp\ 467}#
+ (apply (lambda (#{a\ 468}#
+ #{init\ 469}#
+ #{b\ 470}#)
+ (#{id?\ 131}#
+ #{a\ 468}#))
+ #{tmp\ 467}#)
#f)
- (apply (lambda (#{a\ 4135}#
- #{init\ 4136}#
- #{b\ 4137}#)
- ((lambda (#{tmp\ 4138}#)
- ((lambda (#{k\ 4139}#)
- (#{key\ 4102}#
- #{b\ 4137}#
- #{req\ 4119}#
- #{opt\ 4120}#
- (cons (list #{k\ 4139}#
- #{a\ 4135}#
- #{init\ 4136}#)
- #{rkey\ 4121}#)))
- #{tmp\ 4138}#))
+ (apply (lambda (#{a\ 471}#
+ #{init\ 472}#
+ #{b\ 473}#)
+ ((lambda (#{tmp\ 474}#)
+ ((lambda (#{k\ 475}#)
+ (#{key\ 438}#
+ #{b\ 473}#
+ #{req\ 455}#
+ #{opt\ 456}#
+ (cons (list #{k\ 475}#
+ #{a\ 471}#
+ #{init\ 472}#)
+ #{rkey\ 457}#)))
+ #{tmp\ 474}#))
(symbol->keyword
(syntax->datum
- #{a\ 4135}#))))
- #{tmp\ 4131}#)
- ((lambda (#{tmp\ 4140}#)
- (if (if #{tmp\ 4140}#
- (apply (lambda (#{a\ 4141}#
- #{init\ 4142}#
- #{k\ 4143}#
- #{b\ 4144}#)
- (if (#{id?\ 3795}#
- #{a\ 4141}#)
+ #{a\ 471}#))))
+ #{tmp\ 467}#)
+ ((lambda (#{tmp\ 476}#)
+ (if (if #{tmp\ 476}#
+ (apply (lambda (#{a\ 477}#
+ #{init\ 478}#
+ #{k\ 479}#
+ #{b\ 480}#)
+ (if (#{id?\ 131}#
+ #{a\ 477}#)
(keyword?
(syntax->datum
- #{k\ 4143}#))
+ #{k\ 479}#))
#f))
- #{tmp\ 4140}#)
+ #{tmp\ 476}#)
#f)
- (apply (lambda (#{a\ 4145}#
- #{init\ 4146}#
- #{k\ 4147}#
- #{b\ 4148}#)
- (#{key\ 4102}#
- #{b\ 4148}#
- #{req\ 4119}#
- #{opt\ 4120}#
- (cons (list #{k\ 4147}#
- #{a\ 4145}#
- #{init\ 4146}#)
- #{rkey\ 4121}#)))
- #{tmp\ 4140}#)
- ((lambda (#{tmp\ 4149}#)
- (if (if #{tmp\ 4149}#
- (apply (lambda (#{aok\ 4150}#)
+ (apply (lambda (#{a\ 481}#
+ #{init\ 482}#
+ #{k\ 483}#
+ #{b\ 484}#)
+ (#{key\ 438}#
+ #{b\ 484}#
+ #{req\ 455}#
+ #{opt\ 456}#
+ (cons (list #{k\ 483}#
+ #{a\ 481}#
+ #{init\ 482}#)
+ #{rkey\ 457}#)))
+ #{tmp\ 476}#)
+ ((lambda (#{tmp\ 485}#)
+ (if (if #{tmp\ 485}#
+ (apply (lambda (#{aok\ 486}#)
(eq? (syntax->datum
- #{aok\ 4150}#)
+ #{aok\ 486}#)
#:allow-other-keys))
- #{tmp\ 4149}#)
+ #{tmp\ 485}#)
#f)
- (apply (lambda (#{aok\ 4151}#)
- (#{check\ 4104}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (apply (lambda (#{aok\ 487}#)
+ (#{check\ 440}#
+ #{req\ 455}#
+ #{opt\ 456}#
#f
(cons #t
(reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4149}#)
- ((lambda (#{tmp\ 4152}#)
- (if (if #{tmp\ 4152}#
- (apply (lambda (#{aok\ 4153}#
- #{a\ 4154}#
- #{b\ 4155}#)
+ #{rkey\ 457}#))))
+ #{tmp\ 485}#)
+ ((lambda (#{tmp\ 488}#)
+ (if (if #{tmp\ 488}#
+ (apply (lambda (#{aok\ 489}#
+ #{a\ 490}#
+ #{b\ 491}#)
(if (eq? (syntax->datum
- #{aok\ 4153}#)
+ #{aok\ 489}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 4154}#)
+ #{a\ 490}#)
#:rest)
#f))
- #{tmp\ 4152}#)
+ #{tmp\ 488}#)
#f)
- (apply (lambda (#{aok\ 4156}#
- #{a\ 4157}#
- #{b\ 4158}#)
- (#{rest\ 4103}#
- #{b\ 4158}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (apply (lambda (#{aok\ 492}#
+ #{a\ 493}#
+ #{b\ 494}#)
+ (#{rest\ 439}#
+ #{b\ 494}#
+ #{req\ 455}#
+ #{opt\ 456}#
(cons #t
(reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4152}#)
- ((lambda (#{tmp\ 4159}#)
- (if (if #{tmp\ 4159}#
- (apply (lambda (#{aok\ 4160}#
- #{r\ 4161}#)
+ #{rkey\ 457}#))))
+ #{tmp\ 488}#)
+ ((lambda (#{tmp\ 495}#)
+ (if (if #{tmp\ 495}#
+ (apply (lambda (#{aok\ 496}#
+ #{r\ 497}#)
(if (eq? (syntax->datum
- #{aok\ 4160}#)
+ #{aok\ 496}#)
#:allow-other-keys)
- (#{id?\ 3795}#
- #{r\ 4161}#)
+ (#{id?\ 131}#
+ #{r\ 497}#)
#f))
- #{tmp\ 4159}#)
+ #{tmp\ 495}#)
#f)
- (apply (lambda (#{aok\ 4162}#
- #{r\ 4163}#)
- (#{rest\ 4103}#
- #{r\ 4163}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (apply (lambda (#{aok\ 498}#
+ #{r\ 499}#)
+ (#{rest\ 439}#
+ #{r\ 499}#
+ #{req\ 455}#
+ #{opt\ 456}#
(cons #t
(reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4159}#)
- ((lambda (#{tmp\ 4164}#)
- (if (if #{tmp\ 4164}#
- (apply (lambda (#{a\ 4165}#
- #{b\ 4166}#)
+ #{rkey\ 457}#))))
+ #{tmp\ 495}#)
+ ((lambda (#{tmp\ 500}#)
+ (if (if #{tmp\ 500}#
+ (apply (lambda (#{a\ 501}#
+ #{b\ 502}#)
(eq? (syntax->datum
- #{a\ 4165}#)
+ #{a\ 501}#)
#:rest))
- #{tmp\ 4164}#)
+ #{tmp\ 500}#)
#f)
- (apply (lambda (#{a\ 4167}#
- #{b\ 4168}#)
- (#{rest\ 4103}#
- #{b\ 4168}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (apply (lambda (#{a\ 503}#
+ #{b\ 504}#)
+ (#{rest\ 439}#
+ #{b\ 504}#
+ #{req\ 455}#
+ #{opt\ 456}#
(cons #f
(reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4164}#)
- ((lambda (#{tmp\ 4169}#)
- (if (if #{tmp\ 4169}#
- (apply (lambda (#{r\ 4170}#)
- (#{id?\ 3795}#
- #{r\ 4170}#))
- #{tmp\ 4169}#)
+ #{rkey\ 457}#))))
+ #{tmp\ 500}#)
+ ((lambda (#{tmp\ 505}#)
+ (if (if #{tmp\ 505}#
+ (apply (lambda (#{r\ 506}#)
+ (#{id?\ 131}#
+ #{r\ 506}#))
+ #{tmp\ 505}#)
#f)
- (apply (lambda (#{r\ 4171}#)
- (#{rest\ 4103}#
- #{r\ 4171}#
- #{req\ 4119}#
- #{opt\ 4120}#
+ (apply (lambda (#{r\ 507}#)
+ (#{rest\ 439}#
+ #{r\ 507}#
+ #{req\ 455}#
+ #{opt\ 456}#
(cons #f
(reverse
- #{rkey\ 4121}#))))
- #{tmp\ 4169}#)
- ((lambda (#{else\ 4172}#)
+ #{rkey\ 457}#))))
+ #{tmp\ 505}#)
+ ((lambda (#{else\ 508}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 4099}#
- #{args\ 4118}#))
- #{tmp\ 4122}#)))
- (list #{tmp\ 4122}#))))
+ #{orig-args\ 435}#
+ #{args\ 454}#))
+ #{tmp\ 458}#)))
+ (list #{tmp\ 458}#))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'(any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 4122}#
+ #{tmp\ 458}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4122}# (quote ()))))
- #{args\ 4118}#)))
- (#{opt\ 4101}#
- (lambda (#{args\ 4173}# #{req\ 4174}# #{ropt\ 4175}#)
- ((lambda (#{tmp\ 4176}#)
- ((lambda (#{tmp\ 4177}#)
- (if #{tmp\ 4177}#
+ ($sc-dispatch #{tmp\ 458}# (quote ()))))
+ #{args\ 454}#)))
+ (#{opt\ 437}#
+ (lambda (#{args\ 509}# #{req\ 510}# #{ropt\ 511}#)
+ ((lambda (#{tmp\ 512}#)
+ ((lambda (#{tmp\ 513}#)
+ (if #{tmp\ 513}#
(apply (lambda ()
- (#{check\ 4104}#
- #{req\ 4174}#
- (reverse #{ropt\ 4175}#)
+ (#{check\ 440}#
+ #{req\ 510}#
+ (reverse #{ropt\ 511}#)
#f
'()))
- #{tmp\ 4177}#)
- ((lambda (#{tmp\ 4178}#)
- (if (if #{tmp\ 4178}#
- (apply (lambda (#{a\ 4179}#
- #{b\ 4180}#)
- (#{id?\ 3795}#
- #{a\ 4179}#))
- #{tmp\ 4178}#)
+ #{tmp\ 513}#)
+ ((lambda (#{tmp\ 514}#)
+ (if (if #{tmp\ 514}#
+ (apply (lambda (#{a\ 515}#
+ #{b\ 516}#)
+ (#{id?\ 131}#
+ #{a\ 515}#))
+ #{tmp\ 514}#)
#f)
- (apply (lambda (#{a\ 4181}#
- #{b\ 4182}#)
- (#{opt\ 4101}#
- #{b\ 4182}#
- #{req\ 4174}#
- (cons (cons #{a\ 4181}#
+ (apply (lambda (#{a\ 517}# #{b\ 518}#)
+ (#{opt\ 437}#
+ #{b\ 518}#
+ #{req\ 510}#
+ (cons (cons #{a\ 517}#
'(#(syntax-object
#f
((top)
@@ -1630,330 +1621,328 @@
"i")))
(hygiene
guile))))
- #{ropt\ 4175}#)))
- #{tmp\ 4178}#)
- ((lambda (#{tmp\ 4183}#)
- (if (if #{tmp\ 4183}#
- (apply (lambda (#{a\ 4184}#
- #{init\ 4185}#
- #{b\ 4186}#)
- (#{id?\ 3795}#
- #{a\ 4184}#))
- #{tmp\ 4183}#)
+ #{ropt\ 511}#)))
+ #{tmp\ 514}#)
+ ((lambda (#{tmp\ 519}#)
+ (if (if #{tmp\ 519}#
+ (apply (lambda (#{a\ 520}#
+ #{init\ 521}#
+ #{b\ 522}#)
+ (#{id?\ 131}#
+ #{a\ 520}#))
+ #{tmp\ 519}#)
#f)
- (apply (lambda (#{a\ 4187}#
- #{init\ 4188}#
- #{b\ 4189}#)
- (#{opt\ 4101}#
- #{b\ 4189}#
- #{req\ 4174}#
- (cons (list #{a\ 4187}#
- #{init\ 4188}#)
- #{ropt\ 4175}#)))
- #{tmp\ 4183}#)
- ((lambda (#{tmp\ 4190}#)
- (if (if #{tmp\ 4190}#
- (apply (lambda (#{a\ 4191}#
- #{b\ 4192}#)
+ (apply (lambda (#{a\ 523}#
+ #{init\ 524}#
+ #{b\ 525}#)
+ (#{opt\ 437}#
+ #{b\ 525}#
+ #{req\ 510}#
+ (cons (list #{a\ 523}#
+ #{init\ 524}#)
+ #{ropt\ 511}#)))
+ #{tmp\ 519}#)
+ ((lambda (#{tmp\ 526}#)
+ (if (if #{tmp\ 526}#
+ (apply (lambda (#{a\ 527}#
+ #{b\ 528}#)
(eq? (syntax->datum
- #{a\ 4191}#)
+ #{a\ 527}#)
#:key))
- #{tmp\ 4190}#)
+ #{tmp\ 526}#)
#f)
- (apply (lambda (#{a\ 4193}#
- #{b\ 4194}#)
- (#{key\ 4102}#
- #{b\ 4194}#
- #{req\ 4174}#
+ (apply (lambda (#{a\ 529}#
+ #{b\ 530}#)
+ (#{key\ 438}#
+ #{b\ 530}#
+ #{req\ 510}#
(reverse
- #{ropt\ 4175}#)
+ #{ropt\ 511}#)
'()))
- #{tmp\ 4190}#)
- ((lambda (#{tmp\ 4195}#)
- (if (if #{tmp\ 4195}#
- (apply (lambda (#{a\ 4196}#
- #{b\ 4197}#)
+ #{tmp\ 526}#)
+ ((lambda (#{tmp\ 531}#)
+ (if (if #{tmp\ 531}#
+ (apply (lambda (#{a\ 532}#
+ #{b\ 533}#)
(eq? (syntax->datum
- #{a\ 4196}#)
+ #{a\ 532}#)
#:rest))
- #{tmp\ 4195}#)
+ #{tmp\ 531}#)
#f)
- (apply (lambda (#{a\ 4198}#
- #{b\ 4199}#)
- (#{rest\ 4103}#
- #{b\ 4199}#
- #{req\ 4174}#
+ (apply (lambda (#{a\ 534}#
+ #{b\ 535}#)
+ (#{rest\ 439}#
+ #{b\ 535}#
+ #{req\ 510}#
(reverse
- #{ropt\ 4175}#)
+ #{ropt\ 511}#)
'()))
- #{tmp\ 4195}#)
- ((lambda (#{tmp\ 4200}#)
- (if (if #{tmp\ 4200}#
- (apply (lambda (#{r\ 4201}#)
- (#{id?\ 3795}#
- #{r\ 4201}#))
- #{tmp\ 4200}#)
+ #{tmp\ 531}#)
+ ((lambda (#{tmp\ 536}#)
+ (if (if #{tmp\ 536}#
+ (apply (lambda (#{r\ 537}#)
+ (#{id?\ 131}#
+ #{r\ 537}#))
+ #{tmp\ 536}#)
#f)
- (apply (lambda (#{r\ 4202}#)
- (#{rest\ 4103}#
- #{r\ 4202}#
- #{req\ 4174}#
+ (apply (lambda (#{r\ 538}#)
+ (#{rest\ 439}#
+ #{r\ 538}#
+ #{req\ 510}#
(reverse
- #{ropt\ 4175}#)
+ #{ropt\ 511}#)
'()))
- #{tmp\ 4200}#)
- ((lambda (#{else\ 4203}#)
+ #{tmp\ 536}#)
+ ((lambda (#{else\ 539}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 4099}#
- #{args\ 4173}#))
- #{tmp\ 4176}#)))
- (list #{tmp\ 4176}#))))
+ #{orig-args\ 435}#
+ #{args\ 509}#))
+ #{tmp\ 512}#)))
+ (list #{tmp\ 512}#))))
($sc-dispatch
- #{tmp\ 4176}#
+ #{tmp\ 512}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4176}#
+ #{tmp\ 512}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4176}#
+ #{tmp\ 512}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 4176}#
+ #{tmp\ 512}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4176}# (quote ()))))
- #{args\ 4173}#)))
- (#{req\ 4100}#
- (lambda (#{args\ 4204}# #{rreq\ 4205}#)
- ((lambda (#{tmp\ 4206}#)
- ((lambda (#{tmp\ 4207}#)
- (if #{tmp\ 4207}#
+ ($sc-dispatch #{tmp\ 512}# (quote ()))))
+ #{args\ 509}#)))
+ (#{req\ 436}#
+ (lambda (#{args\ 540}# #{rreq\ 541}#)
+ ((lambda (#{tmp\ 542}#)
+ ((lambda (#{tmp\ 543}#)
+ (if #{tmp\ 543}#
(apply (lambda ()
- (#{check\ 4104}#
- (reverse #{rreq\ 4205}#)
+ (#{check\ 440}#
+ (reverse #{rreq\ 541}#)
'()
#f
'()))
- #{tmp\ 4207}#)
- ((lambda (#{tmp\ 4208}#)
- (if (if #{tmp\ 4208}#
- (apply (lambda (#{a\ 4209}#
- #{b\ 4210}#)
- (#{id?\ 3795}#
- #{a\ 4209}#))
- #{tmp\ 4208}#)
+ #{tmp\ 543}#)
+ ((lambda (#{tmp\ 544}#)
+ (if (if #{tmp\ 544}#
+ (apply (lambda (#{a\ 545}#
+ #{b\ 546}#)
+ (#{id?\ 131}#
+ #{a\ 545}#))
+ #{tmp\ 544}#)
#f)
- (apply (lambda (#{a\ 4211}#
- #{b\ 4212}#)
- (#{req\ 4100}#
- #{b\ 4212}#
- (cons #{a\ 4211}#
- #{rreq\ 4205}#)))
- #{tmp\ 4208}#)
- ((lambda (#{tmp\ 4213}#)
- (if (if #{tmp\ 4213}#
- (apply (lambda (#{a\ 4214}#
- #{b\ 4215}#)
+ (apply (lambda (#{a\ 547}# #{b\ 548}#)
+ (#{req\ 436}#
+ #{b\ 548}#
+ (cons #{a\ 547}#
+ #{rreq\ 541}#)))
+ #{tmp\ 544}#)
+ ((lambda (#{tmp\ 549}#)
+ (if (if #{tmp\ 549}#
+ (apply (lambda (#{a\ 550}#
+ #{b\ 551}#)
(eq? (syntax->datum
- #{a\ 4214}#)
+ #{a\ 550}#)
#:optional))
- #{tmp\ 4213}#)
+ #{tmp\ 549}#)
#f)
- (apply (lambda (#{a\ 4216}#
- #{b\ 4217}#)
- (#{opt\ 4101}#
- #{b\ 4217}#
+ (apply (lambda (#{a\ 552}#
+ #{b\ 553}#)
+ (#{opt\ 437}#
+ #{b\ 553}#
(reverse
- #{rreq\ 4205}#)
+ #{rreq\ 541}#)
'()))
- #{tmp\ 4213}#)
- ((lambda (#{tmp\ 4218}#)
- (if (if #{tmp\ 4218}#
- (apply (lambda (#{a\ 4219}#
- #{b\ 4220}#)
+ #{tmp\ 549}#)
+ ((lambda (#{tmp\ 554}#)
+ (if (if #{tmp\ 554}#
+ (apply (lambda (#{a\ 555}#
+ #{b\ 556}#)
(eq? (syntax->datum
- #{a\ 4219}#)
+ #{a\ 555}#)
#:key))
- #{tmp\ 4218}#)
+ #{tmp\ 554}#)
#f)
- (apply (lambda (#{a\ 4221}#
- #{b\ 4222}#)
- (#{key\ 4102}#
- #{b\ 4222}#
+ (apply (lambda (#{a\ 557}#
+ #{b\ 558}#)
+ (#{key\ 438}#
+ #{b\ 558}#
(reverse
- #{rreq\ 4205}#)
+ #{rreq\ 541}#)
'()
'()))
- #{tmp\ 4218}#)
- ((lambda (#{tmp\ 4223}#)
- (if (if #{tmp\ 4223}#
- (apply (lambda (#{a\ 4224}#
- #{b\ 4225}#)
+ #{tmp\ 554}#)
+ ((lambda (#{tmp\ 559}#)
+ (if (if #{tmp\ 559}#
+ (apply (lambda (#{a\ 560}#
+ #{b\ 561}#)
(eq? (syntax->datum
- #{a\ 4224}#)
+ #{a\ 560}#)
#:rest))
- #{tmp\ 4223}#)
+ #{tmp\ 559}#)
#f)
- (apply (lambda (#{a\ 4226}#
- #{b\ 4227}#)
- (#{rest\ 4103}#
- #{b\ 4227}#
+ (apply (lambda (#{a\ 562}#
+ #{b\ 563}#)
+ (#{rest\ 439}#
+ #{b\ 563}#
(reverse
- #{rreq\ 4205}#)
+ #{rreq\ 541}#)
'()
'()))
- #{tmp\ 4223}#)
- ((lambda (#{tmp\ 4228}#)
- (if (if #{tmp\ 4228}#
- (apply (lambda (#{r\ 4229}#)
- (#{id?\ 3795}#
- #{r\ 4229}#))
- #{tmp\ 4228}#)
+ #{tmp\ 559}#)
+ ((lambda (#{tmp\ 564}#)
+ (if (if #{tmp\ 564}#
+ (apply (lambda (#{r\ 565}#)
+ (#{id?\ 131}#
+ #{r\ 565}#))
+ #{tmp\ 564}#)
#f)
- (apply (lambda (#{r\ 4230}#)
- (#{rest\ 4103}#
- #{r\ 4230}#
+ (apply (lambda (#{r\ 566}#)
+ (#{rest\ 439}#
+ #{r\ 566}#
(reverse
- #{rreq\ 4205}#)
+ #{rreq\ 541}#)
'()
'()))
- #{tmp\ 4228}#)
- ((lambda (#{else\ 4231}#)
+ #{tmp\ 564}#)
+ ((lambda (#{else\ 567}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 4099}#
- #{args\ 4204}#))
- #{tmp\ 4206}#)))
- (list #{tmp\ 4206}#))))
+ #{orig-args\ 435}#
+ #{args\ 540}#))
+ #{tmp\ 542}#)))
+ (list #{tmp\ 542}#))))
($sc-dispatch
- #{tmp\ 4206}#
+ #{tmp\ 542}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4206}#
+ #{tmp\ 542}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4206}#
+ #{tmp\ 542}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4206}#
+ #{tmp\ 542}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4206}# (quote ()))))
- #{args\ 4204}#))))
- (#{req\ 4100}# #{orig-args\ 4099}# (quote ())))))
- (#{chi-simple-lambda\ 3841}#
- (lambda (#{e\ 4232}#
- #{r\ 4233}#
- #{w\ 4234}#
- #{s\ 4235}#
- #{mod\ 4236}#
- #{req\ 4237}#
- #{rest\ 4238}#
- #{docstring\ 4239}#
- #{body\ 4240}#)
- (let ((#{ids\ 4241}#
- (if #{rest\ 4238}#
- (append #{req\ 4237}# (list #{rest\ 4238}#))
- #{req\ 4237}#)))
- (let ((#{vars\ 4242}#
- (map #{gen-var\ 3845}# #{ids\ 4241}#)))
- (let ((#{labels\ 4243}#
- (#{gen-labels\ 3801}# #{ids\ 4241}#)))
- (#{build-simple-lambda\ 3769}#
- #{s\ 4235}#
- (map syntax->datum #{req\ 4237}#)
- (if #{rest\ 4238}#
- (syntax->datum #{rest\ 4238}#)
+ ($sc-dispatch #{tmp\ 542}# (quote ()))))
+ #{args\ 540}#))))
+ (#{req\ 436}# #{orig-args\ 435}# (quote ())))))
+ (#{chi-simple-lambda\ 177}#
+ (lambda (#{e\ 568}#
+ #{r\ 569}#
+ #{w\ 570}#
+ #{s\ 571}#
+ #{mod\ 572}#
+ #{req\ 573}#
+ #{rest\ 574}#
+ #{docstring\ 575}#
+ #{body\ 576}#)
+ (let ((#{ids\ 577}#
+ (if #{rest\ 574}#
+ (append #{req\ 573}# (list #{rest\ 574}#))
+ #{req\ 573}#)))
+ (let ((#{vars\ 578}#
+ (map #{gen-var\ 181}# #{ids\ 577}#)))
+ (let ((#{labels\ 579}#
+ (#{gen-labels\ 137}# #{ids\ 577}#)))
+ (#{build-simple-lambda\ 105}#
+ #{s\ 571}#
+ (map syntax->datum #{req\ 573}#)
+ (if #{rest\ 574}#
+ (syntax->datum #{rest\ 574}#)
#f)
- #{vars\ 4242}#
- #{docstring\ 4239}#
- (#{chi-body\ 3835}#
- #{body\ 4240}#
- (#{source-wrap\ 3824}#
- #{e\ 4232}#
- #{w\ 4234}#
- #{s\ 4235}#
- #{mod\ 4236}#)
- (#{extend-var-env\ 3790}#
- #{labels\ 4243}#
- #{vars\ 4242}#
- #{r\ 4233}#)
- (#{make-binding-wrap\ 3812}#
- #{ids\ 4241}#
- #{labels\ 4243}#
- #{w\ 4234}#)
- #{mod\ 4236}#)))))))
- (#{lambda-formals\ 3840}#
- (lambda (#{orig-args\ 4244}#)
- (letrec ((#{check\ 4246}#
- (lambda (#{req\ 4247}# #{rest\ 4248}#)
- (if (#{distinct-bound-ids?\ 3821}#
- (if #{rest\ 4248}#
- (cons #{rest\ 4248}# #{req\ 4247}#)
- #{req\ 4247}#))
- (values #{req\ 4247}# #f #{rest\ 4248}# #f)
+ #{vars\ 578}#
+ #{docstring\ 575}#
+ (#{chi-body\ 171}#
+ #{body\ 576}#
+ (#{source-wrap\ 160}#
+ #{e\ 568}#
+ #{w\ 570}#
+ #{s\ 571}#
+ #{mod\ 572}#)
+ (#{extend-var-env\ 126}#
+ #{labels\ 579}#
+ #{vars\ 578}#
+ #{r\ 569}#)
+ (#{make-binding-wrap\ 148}#
+ #{ids\ 577}#
+ #{labels\ 579}#
+ #{w\ 570}#)
+ #{mod\ 572}#)))))))
+ (#{lambda-formals\ 176}#
+ (lambda (#{orig-args\ 580}#)
+ (letrec ((#{check\ 582}#
+ (lambda (#{req\ 583}# #{rest\ 584}#)
+ (if (#{distinct-bound-ids?\ 157}#
+ (if #{rest\ 584}#
+ (cons #{rest\ 584}# #{req\ 583}#)
+ #{req\ 583}#))
+ (values #{req\ 583}# #f #{rest\ 584}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 4244}#))))
- (#{req\ 4245}#
- (lambda (#{args\ 4249}# #{rreq\ 4250}#)
- ((lambda (#{tmp\ 4251}#)
- ((lambda (#{tmp\ 4252}#)
- (if #{tmp\ 4252}#
+ #{orig-args\ 580}#))))
+ (#{req\ 581}#
+ (lambda (#{args\ 585}# #{rreq\ 586}#)
+ ((lambda (#{tmp\ 587}#)
+ ((lambda (#{tmp\ 588}#)
+ (if #{tmp\ 588}#
(apply (lambda ()
- (#{check\ 4246}#
- (reverse #{rreq\ 4250}#)
+ (#{check\ 582}#
+ (reverse #{rreq\ 586}#)
#f))
- #{tmp\ 4252}#)
- ((lambda (#{tmp\ 4253}#)
- (if (if #{tmp\ 4253}#
- (apply (lambda (#{a\ 4254}#
- #{b\ 4255}#)
- (#{id?\ 3795}#
- #{a\ 4254}#))
- #{tmp\ 4253}#)
+ #{tmp\ 588}#)
+ ((lambda (#{tmp\ 589}#)
+ (if (if #{tmp\ 589}#
+ (apply (lambda (#{a\ 590}#
+ #{b\ 591}#)
+ (#{id?\ 131}#
+ #{a\ 590}#))
+ #{tmp\ 589}#)
#f)
- (apply (lambda (#{a\ 4256}#
- #{b\ 4257}#)
- (#{req\ 4245}#
- #{b\ 4257}#
- (cons #{a\ 4256}#
- #{rreq\ 4250}#)))
- #{tmp\ 4253}#)
- ((lambda (#{tmp\ 4258}#)
- (if (if #{tmp\ 4258}#
- (apply (lambda (#{r\ 4259}#)
- (#{id?\ 3795}#
- #{r\ 4259}#))
- #{tmp\ 4258}#)
+ (apply (lambda (#{a\ 592}# #{b\ 593}#)
+ (#{req\ 581}#
+ #{b\ 593}#
+ (cons #{a\ 592}#
+ #{rreq\ 586}#)))
+ #{tmp\ 589}#)
+ ((lambda (#{tmp\ 594}#)
+ (if (if #{tmp\ 594}#
+ (apply (lambda (#{r\ 595}#)
+ (#{id?\ 131}#
+ #{r\ 595}#))
+ #{tmp\ 594}#)
#f)
- (apply (lambda (#{r\ 4260}#)
- (#{check\ 4246}#
+ (apply (lambda (#{r\ 596}#)
+ (#{check\ 582}#
(reverse
- #{rreq\ 4250}#)
- #{r\ 4260}#))
- #{tmp\ 4258}#)
- ((lambda (#{else\ 4261}#)
+ #{rreq\ 586}#)
+ #{r\ 596}#))
+ #{tmp\ 594}#)
+ ((lambda (#{else\ 597}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 4244}#
- #{args\ 4249}#))
- #{tmp\ 4251}#)))
- (list #{tmp\ 4251}#))))
+ #{orig-args\ 580}#
+ #{args\ 585}#))
+ #{tmp\ 587}#)))
+ (list #{tmp\ 587}#))))
($sc-dispatch
- #{tmp\ 4251}#
+ #{tmp\ 587}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4251}# (quote ()))))
- #{args\ 4249}#))))
- (#{req\ 4245}# #{orig-args\ 4244}# (quote ())))))
- (#{ellipsis?\ 3839}#
- (lambda (#{x\ 4262}#)
- (if (#{nonsymbol-id?\ 3794}# #{x\ 4262}#)
- (#{free-id=?\ 3818}#
- #{x\ 4262}#
+ ($sc-dispatch #{tmp\ 587}# (quote ()))))
+ #{args\ 585}#))))
+ (#{req\ 581}# #{orig-args\ 580}# (quote ())))))
+ (#{ellipsis?\ 175}#
+ (lambda (#{x\ 598}#)
+ (if (#{nonsymbol-id?\ 130}# #{x\ 598}#)
+ (#{free-id=?\ 154}#
+ #{x\ 598}#
'#(syntax-object
...
((top)
@@ -2318,1243 +2307,1220 @@
("i" "i")))
(hygiene guile)))
#f)))
- (#{chi-void\ 3838}#
- (lambda () (#{build-void\ 3759}# #f)))
- (#{eval-local-transformer\ 3837}#
- (lambda (#{expanded\ 4263}# #{mod\ 4264}#)
- (let ((#{p\ 4265}#
- (#{local-eval-hook\ 3755}#
- #{expanded\ 4263}#
- #{mod\ 4264}#)))
- (if (procedure? #{p\ 4265}#)
- (cons #{p\ 4265}# (module-name (current-module)))
+ (#{chi-void\ 174}#
+ (lambda () (#{build-void\ 95}# #f)))
+ (#{eval-local-transformer\ 173}#
+ (lambda (#{expanded\ 599}# #{mod\ 600}#)
+ (let ((#{p\ 601}# (#{local-eval-hook\ 91}#
+ #{expanded\ 599}#
+ #{mod\ 600}#)))
+ (if (procedure? #{p\ 601}#)
+ (cons #{p\ 601}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 4265}#)))))
- (#{chi-local-syntax\ 3836}#
- (lambda (#{rec?\ 4266}#
- #{e\ 4267}#
- #{r\ 4268}#
- #{w\ 4269}#
- #{s\ 4270}#
- #{mod\ 4271}#
- #{k\ 4272}#)
- ((lambda (#{tmp\ 4273}#)
- ((lambda (#{tmp\ 4274}#)
- (if #{tmp\ 4274}#
- (apply (lambda (#{_\ 4275}#
- #{id\ 4276}#
- #{val\ 4277}#
- #{e1\ 4278}#
- #{e2\ 4279}#)
- (let ((#{ids\ 4280}# #{id\ 4276}#))
- (if (not (#{valid-bound-ids?\ 3820}#
- #{ids\ 4280}#))
+ #{p\ 601}#)))))
+ (#{chi-local-syntax\ 172}#
+ (lambda (#{rec?\ 602}#
+ #{e\ 603}#
+ #{r\ 604}#
+ #{w\ 605}#
+ #{s\ 606}#
+ #{mod\ 607}#
+ #{k\ 608}#)
+ ((lambda (#{tmp\ 609}#)
+ ((lambda (#{tmp\ 610}#)
+ (if #{tmp\ 610}#
+ (apply (lambda (#{_\ 611}#
+ #{id\ 612}#
+ #{val\ 613}#
+ #{e1\ 614}#
+ #{e2\ 615}#)
+ (let ((#{ids\ 616}# #{id\ 612}#))
+ (if (not (#{valid-bound-ids?\ 156}#
+ #{ids\ 616}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 4267}#)
- (let ((#{labels\ 4282}#
- (#{gen-labels\ 3801}#
- #{ids\ 4280}#)))
- (let ((#{new-w\ 4283}#
- (#{make-binding-wrap\ 3812}#
- #{ids\ 4280}#
- #{labels\ 4282}#
- #{w\ 4269}#)))
- (#{k\ 4272}#
- (cons #{e1\ 4278}# #{e2\ 4279}#)
- (#{extend-env\ 3789}#
- #{labels\ 4282}#
- (let ((#{w\ 4285}#
- (if #{rec?\ 4266}#
- #{new-w\ 4283}#
- #{w\ 4269}#))
- (#{trans-r\ 4286}#
- (#{macros-only-env\ 3791}#
- #{r\ 4268}#)))
- (map (lambda (#{x\ 4287}#)
- (cons 'macro
- (#{eval-local-transformer\ 3837}#
- (#{chi\ 3831}#
- #{x\ 4287}#
- #{trans-r\ 4286}#
- #{w\ 4285}#
- #{mod\ 4271}#)
- #{mod\ 4271}#)))
- #{val\ 4277}#))
- #{r\ 4268}#)
- #{new-w\ 4283}#
- #{s\ 4270}#
- #{mod\ 4271}#))))))
- #{tmp\ 4274}#)
- ((lambda (#{_\ 4289}#)
+ #{e\ 603}#)
+ (let ((#{labels\ 618}#
+ (#{gen-labels\ 137}#
+ #{ids\ 616}#)))
+ (let ((#{new-w\ 619}#
+ (#{make-binding-wrap\ 148}#
+ #{ids\ 616}#
+ #{labels\ 618}#
+ #{w\ 605}#)))
+ (#{k\ 608}# (cons #{e1\ 614}#
+ #{e2\ 615}#)
+ (#{extend-env\ 125}#
+ #{labels\ 618}#
+ (let ((#{w\ 621}# (if #{rec?\ 602}#
+ #{new-w\ 619}#
+ #{w\ 605}#))
+ (#{trans-r\ 622}#
+ (#{macros-only-env\ 127}#
+ #{r\ 604}#)))
+ (map (lambda (#{x\ 623}#)
+ (cons 'macro
+ (#{eval-local-transformer\ 173}#
+ (#{chi\ 167}#
+ #{x\ 623}#
+ #{trans-r\ 622}#
+ #{w\ 621}#
+ #{mod\ 607}#)
+ #{mod\ 607}#)))
+ #{val\ 613}#))
+ #{r\ 604}#)
+ #{new-w\ 619}#
+ #{s\ 606}#
+ #{mod\ 607}#))))))
+ #{tmp\ 610}#)
+ ((lambda (#{_\ 625}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 3824}#
- #{e\ 4267}#
- #{w\ 4269}#
- #{s\ 4270}#
- #{mod\ 4271}#)))
- #{tmp\ 4273}#)))
+ (#{source-wrap\ 160}#
+ #{e\ 603}#
+ #{w\ 605}#
+ #{s\ 606}#
+ #{mod\ 607}#)))
+ #{tmp\ 609}#)))
($sc-dispatch
- #{tmp\ 4273}#
+ #{tmp\ 609}#
'(any #(each (any any)) any . each-any))))
- #{e\ 4267}#)))
- (#{chi-body\ 3835}#
- (lambda (#{body\ 4290}#
- #{outer-form\ 4291}#
- #{r\ 4292}#
- #{w\ 4293}#
- #{mod\ 4294}#)
- (let ((#{r\ 4295}#
- (cons '("placeholder" placeholder)
- #{r\ 4292}#)))
- (let ((#{ribcage\ 4296}#
- (#{make-ribcage\ 3802}#
+ #{e\ 603}#)))
+ (#{chi-body\ 171}#
+ (lambda (#{body\ 626}#
+ #{outer-form\ 627}#
+ #{r\ 628}#
+ #{w\ 629}#
+ #{mod\ 630}#)
+ (let ((#{r\ 631}# (cons '("placeholder" placeholder)
+ #{r\ 628}#)))
+ (let ((#{ribcage\ 632}#
+ (#{make-ribcage\ 138}#
'()
'()
'())))
- (let ((#{w\ 4297}#
- (#{make-wrap\ 3797}#
- (#{wrap-marks\ 3798}# #{w\ 4293}#)
- (cons #{ribcage\ 4296}#
- (#{wrap-subst\ 3799}# #{w\ 4293}#)))))
- (letrec ((#{parse\ 4298}#
- (lambda (#{body\ 4299}#
- #{ids\ 4300}#
- #{labels\ 4301}#
- #{var-ids\ 4302}#
- #{vars\ 4303}#
- #{vals\ 4304}#
- #{bindings\ 4305}#)
- (if (null? #{body\ 4299}#)
+ (let ((#{w\ 633}# (#{make-wrap\ 133}#
+ (#{wrap-marks\ 134}# #{w\ 629}#)
+ (cons #{ribcage\ 632}#
+ (#{wrap-subst\ 135}#
+ #{w\ 629}#)))))
+ (letrec ((#{parse\ 634}#
+ (lambda (#{body\ 635}#
+ #{ids\ 636}#
+ #{labels\ 637}#
+ #{var-ids\ 638}#
+ #{vars\ 639}#
+ #{vals\ 640}#
+ #{bindings\ 641}#)
+ (if (null? #{body\ 635}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 4291}#)
- (let ((#{e\ 4307}# (cdar #{body\ 4299}#))
- (#{er\ 4308}# (caar #{body\ 4299}#)))
+ #{outer-form\ 627}#)
+ (let ((#{e\ 643}# (cdar #{body\ 635}#))
+ (#{er\ 644}# (caar #{body\ 635}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 3829}#
- #{e\ 4307}#
- #{er\ 4308}#
+ (#{syntax-type\ 165}#
+ #{e\ 643}#
+ #{er\ 644}#
'(())
- (#{source-annotation\ 3786}#
- #{er\ 4308}#)
- #{ribcage\ 4296}#
- #{mod\ 4294}#
+ (#{source-annotation\ 122}#
+ #{er\ 644}#)
+ #{ribcage\ 632}#
+ #{mod\ 630}#
#f))
- (lambda (#{type\ 4309}#
- #{value\ 4310}#
- #{e\ 4311}#
- #{w\ 4312}#
- #{s\ 4313}#
- #{mod\ 4314}#)
- (if (memv #{type\ 4309}#
+ (lambda (#{type\ 645}#
+ #{value\ 646}#
+ #{e\ 647}#
+ #{w\ 648}#
+ #{s\ 649}#
+ #{mod\ 650}#)
+ (if (memv #{type\ 645}#
'(define-form))
- (let ((#{id\ 4315}#
- (#{wrap\ 3823}#
- #{value\ 4310}#
- #{w\ 4312}#
- #{mod\ 4314}#))
- (#{label\ 4316}#
- (#{gen-label\ 3800}#)))
- (let ((#{var\ 4317}#
- (#{gen-var\ 3845}#
- #{id\ 4315}#)))
+ (let ((#{id\ 651}#
+ (#{wrap\ 159}#
+ #{value\ 646}#
+ #{w\ 648}#
+ #{mod\ 650}#))
+ (#{label\ 652}#
+ (#{gen-label\ 136}#)))
+ (let ((#{var\ 653}#
+ (#{gen-var\ 181}#
+ #{id\ 651}#)))
(begin
- (#{extend-ribcage!\ 3811}#
- #{ribcage\ 4296}#
- #{id\ 4315}#
- #{label\ 4316}#)
- (#{parse\ 4298}#
- (cdr #{body\ 4299}#)
- (cons #{id\ 4315}#
- #{ids\ 4300}#)
- (cons #{label\ 4316}#
- #{labels\ 4301}#)
- (cons #{id\ 4315}#
- #{var-ids\ 4302}#)
- (cons #{var\ 4317}#
- #{vars\ 4303}#)
- (cons (cons #{er\ 4308}#
- (#{wrap\ 3823}#
- #{e\ 4311}#
- #{w\ 4312}#
- #{mod\ 4314}#))
- #{vals\ 4304}#)
+ (#{extend-ribcage!\ 147}#
+ #{ribcage\ 632}#
+ #{id\ 651}#
+ #{label\ 652}#)
+ (#{parse\ 634}#
+ (cdr #{body\ 635}#)
+ (cons #{id\ 651}#
+ #{ids\ 636}#)
+ (cons #{label\ 652}#
+ #{labels\ 637}#)
+ (cons #{id\ 651}#
+ #{var-ids\ 638}#)
+ (cons #{var\ 653}#
+ #{vars\ 639}#)
+ (cons (cons #{er\ 644}#
+ (#{wrap\ 159}#
+ #{e\ 647}#
+ #{w\ 648}#
+ #{mod\ 650}#))
+ #{vals\ 640}#)
(cons (cons 'lexical
- #{var\ 4317}#)
- #{bindings\ 4305}#)))))
- (if (memv #{type\ 4309}#
+ #{var\ 653}#)
+ #{bindings\ 641}#)))))
+ (if (memv #{type\ 645}#
'(define-syntax-form))
- (let ((#{id\ 4318}#
- (#{wrap\ 3823}#
- #{value\ 4310}#
- #{w\ 4312}#
- #{mod\ 4314}#))
- (#{label\ 4319}#
- (#{gen-label\ 3800}#)))
+ (let ((#{id\ 654}#
+ (#{wrap\ 159}#
+ #{value\ 646}#
+ #{w\ 648}#
+ #{mod\ 650}#))
+ (#{label\ 655}#
+ (#{gen-label\ 136}#)))
(begin
- (#{extend-ribcage!\ 3811}#
- #{ribcage\ 4296}#
- #{id\ 4318}#
- #{label\ 4319}#)
- (#{parse\ 4298}#
- (cdr #{body\ 4299}#)
- (cons #{id\ 4318}#
- #{ids\ 4300}#)
- (cons #{label\ 4319}#
- #{labels\ 4301}#)
- #{var-ids\ 4302}#
- #{vars\ 4303}#
- #{vals\ 4304}#
+ (#{extend-ribcage!\ 147}#
+ #{ribcage\ 632}#
+ #{id\ 654}#
+ #{label\ 655}#)
+ (#{parse\ 634}#
+ (cdr #{body\ 635}#)
+ (cons #{id\ 654}#
+ #{ids\ 636}#)
+ (cons #{label\ 655}#
+ #{labels\ 637}#)
+ #{var-ids\ 638}#
+ #{vars\ 639}#
+ #{vals\ 640}#
(cons (cons 'macro
- (cons #{er\ 4308}#
- (#{wrap\ 3823}#
- #{e\ 4311}#
- #{w\ 4312}#
- #{mod\ 4314}#)))
- #{bindings\ 4305}#))))
- (if (memv #{type\ 4309}#
+ (cons #{er\ 644}#
+ (#{wrap\ 159}#
+ #{e\ 647}#
+ #{w\ 648}#
+ #{mod\ 650}#)))
+ #{bindings\ 641}#))))
+ (if (memv #{type\ 645}#
'(begin-form))
- ((lambda (#{tmp\ 4320}#)
- ((lambda (#{tmp\ 4321}#)
- (if #{tmp\ 4321}#
- (apply (lambda (#{_\ 4322}#
- #{e1\ 4323}#)
- (#{parse\ 4298}#
- (letrec ((#{f\ 4324}#
- (lambda (#{forms\ 4325}#)
- (if (null? #{forms\ 4325}#)
- (cdr #{body\ 4299}#)
- (cons (cons #{er\ 4308}#
- (#{wrap\ 3823}#
- (car #{forms\ 4325}#)
- #{w\ 4312}#
- #{mod\ 4314}#))
- (#{f\ 4324}#
- (cdr #{forms\ 4325}#)))))))
- (#{f\ 4324}#
- #{e1\ 4323}#))
- #{ids\ 4300}#
- #{labels\ 4301}#
- #{var-ids\ 4302}#
- #{vars\ 4303}#
- #{vals\ 4304}#
- #{bindings\ 4305}#))
- #{tmp\ 4321}#)
+ ((lambda (#{tmp\ 656}#)
+ ((lambda (#{tmp\ 657}#)
+ (if #{tmp\ 657}#
+ (apply (lambda (#{_\ 658}#
+ #{e1\ 659}#)
+ (#{parse\ 634}#
+ (letrec ((#{f\ 660}# (lambda (#{forms\ 661}#)
+ (if (null? #{forms\ 661}#)
+ (cdr #{body\ 635}#)
+ (cons (cons #{er\ 644}#
+ (#{wrap\ 159}#
+ (car #{forms\ 661}#)
+ #{w\ 648}#
+ #{mod\ 650}#))
+ (#{f\ 660}# (cdr #{forms\ 661}#)))))))
+ (#{f\ 660}# #{e1\ 659}#))
+ #{ids\ 636}#
+ #{labels\ 637}#
+ #{var-ids\ 638}#
+ #{vars\ 639}#
+ #{vals\ 640}#
+ #{bindings\ 641}#))
+ #{tmp\ 657}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4320}#)))
+ #{tmp\ 656}#)))
($sc-dispatch
- #{tmp\ 4320}#
+ #{tmp\ 656}#
'(any . each-any))))
- #{e\ 4311}#)
- (if (memv #{type\ 4309}#
+ #{e\ 647}#)
+ (if (memv #{type\ 645}#
'(local-syntax-form))
- (#{chi-local-syntax\ 3836}#
- #{value\ 4310}#
- #{e\ 4311}#
- #{er\ 4308}#
- #{w\ 4312}#
- #{s\ 4313}#
- #{mod\ 4314}#
- (lambda (#{forms\ 4327}#
- #{er\ 4328}#
- #{w\ 4329}#
- #{s\ 4330}#
- #{mod\ 4331}#)
- (#{parse\ 4298}#
- (letrec ((#{f\ 4332}#
- (lambda (#{forms\ 4333}#)
- (if (null? #{forms\ 4333}#)
- (cdr #{body\ 4299}#)
- (cons (cons #{er\ 4328}#
- (#{wrap\ 3823}#
- (car #{forms\ 4333}#)
- #{w\ 4329}#
- #{mod\ 4331}#))
- (#{f\ 4332}#
- (cdr #{forms\ 4333}#)))))))
- (#{f\ 4332}#
- #{forms\ 4327}#))
- #{ids\ 4300}#
- #{labels\ 4301}#
- #{var-ids\ 4302}#
- #{vars\ 4303}#
- #{vals\ 4304}#
- #{bindings\ 4305}#)))
- (if (null? #{ids\ 4300}#)
- (#{build-sequence\ 3774}#
+ (#{chi-local-syntax\ 172}#
+ #{value\ 646}#
+ #{e\ 647}#
+ #{er\ 644}#
+ #{w\ 648}#
+ #{s\ 649}#
+ #{mod\ 650}#
+ (lambda (#{forms\ 663}#
+ #{er\ 664}#
+ #{w\ 665}#
+ #{s\ 666}#
+ #{mod\ 667}#)
+ (#{parse\ 634}#
+ (letrec ((#{f\ 668}# (lambda (#{forms\ 669}#)
+ (if (null? #{forms\ 669}#)
+ (cdr #{body\ 635}#)
+ (cons (cons #{er\ 664}#
+ (#{wrap\ 159}#
+ (car #{forms\ 669}#)
+ #{w\ 665}#
+ #{mod\ 667}#))
+ (#{f\ 668}# (cdr #{forms\ 669}#)))))))
+ (#{f\ 668}# #{forms\ 663}#))
+ #{ids\ 636}#
+ #{labels\ 637}#
+ #{var-ids\ 638}#
+ #{vars\ 639}#
+ #{vals\ 640}#
+ #{bindings\ 641}#)))
+ (if (null? #{ids\ 636}#)
+ (#{build-sequence\ 110}#
#f
- (map (lambda (#{x\ 4334}#)
- (#{chi\ 3831}#
- (cdr #{x\ 4334}#)
- (car #{x\ 4334}#)
+ (map (lambda (#{x\ 670}#)
+ (#{chi\ 167}#
+ (cdr #{x\ 670}#)
+ (car #{x\ 670}#)
'(())
- #{mod\ 4314}#))
- (cons (cons #{er\ 4308}#
- (#{source-wrap\ 3824}#
- #{e\ 4311}#
- #{w\ 4312}#
- #{s\ 4313}#
- #{mod\ 4314}#))
- (cdr #{body\ 4299}#))))
+ #{mod\ 650}#))
+ (cons (cons #{er\ 644}#
+ (#{source-wrap\ 160}#
+ #{e\ 647}#
+ #{w\ 648}#
+ #{s\ 649}#
+ #{mod\ 650}#))
+ (cdr #{body\ 635}#))))
(begin
- (if (not (#{valid-bound-ids?\ 3820}#
- #{ids\ 4300}#))
+ (if (not (#{valid-bound-ids?\ 156}#
+ #{ids\ 636}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 4291}#))
- (letrec ((#{loop\ 4335}#
- (lambda (#{bs\ 4336}#
- #{er-cache\ 4337}#
- #{r-cache\ 4338}#)
- (if (not (null? #{bs\ 4336}#))
- (let ((#{b\ 4339}#
- (car #{bs\ 4336}#)))
- (if (eq? (car #{b\ 4339}#)
+ #{outer-form\ 627}#))
+ (letrec ((#{loop\ 671}#
+ (lambda (#{bs\ 672}#
+ #{er-cache\ 673}#
+ #{r-cache\ 674}#)
+ (if (not (null? #{bs\ 672}#))
+ (let ((#{b\ 675}# (car #{bs\ 672}#)))
+ (if (eq? (car #{b\ 675}#)
'macro)
- (let ((#{er\ 4340}#
- (cadr #{b\ 4339}#)))
- (let ((#{r-cache\ 4341}#
- (if (eq? #{er\ 4340}#
- #{er-cache\ 4337}#)
- #{r-cache\ 4338}#
- (#{macros-only-env\ 3791}#
- #{er\ 4340}#))))
+ (let ((#{er\ 676}#
+ (cadr #{b\ 675}#)))
+ (let ((#{r-cache\ 677}#
+ (if (eq? #{er\ 676}#
+ #{er-cache\ 673}#)
+ #{r-cache\ 674}#
+ (#{macros-only-env\ 127}#
+ #{er\ 676}#))))
(begin
(set-cdr!
- #{b\ 4339}#
- (#{eval-local-transformer\ 3837}#
- (#{chi\ 3831}#
- (cddr #{b\ 4339}#)
- #{r-cache\ 4341}#
+ #{b\ 675}#
+ (#{eval-local-transformer\ 173}#
+ (#{chi\ 167}#
+ (cddr #{b\ 675}#)
+ #{r-cache\ 677}#
'(())
- #{mod\ 4314}#)
- #{mod\ 4314}#))
- (#{loop\ 4335}#
- (cdr #{bs\ 4336}#)
- #{er\ 4340}#
- #{r-cache\ 4341}#))))
- (#{loop\ 4335}#
- (cdr #{bs\ 4336}#)
- #{er-cache\ 4337}#
- #{r-cache\ 4338}#)))))))
- (#{loop\ 4335}#
- #{bindings\ 4305}#
+ #{mod\ 650}#)
+ #{mod\ 650}#))
+ (#{loop\ 671}#
+ (cdr #{bs\ 672}#)
+ #{er\ 676}#
+ #{r-cache\ 677}#))))
+ (#{loop\ 671}#
+ (cdr #{bs\ 672}#)
+ #{er-cache\ 673}#
+ #{r-cache\ 674}#)))))))
+ (#{loop\ 671}#
+ #{bindings\ 641}#
#f
#f))
(set-cdr!
- #{r\ 4295}#
- (#{extend-env\ 3789}#
- #{labels\ 4301}#
- #{bindings\ 4305}#
- (cdr #{r\ 4295}#)))
- (#{build-letrec\ 3777}#
+ #{r\ 631}#
+ (#{extend-env\ 125}#
+ #{labels\ 637}#
+ #{bindings\ 641}#
+ (cdr #{r\ 631}#)))
+ (#{build-letrec\ 113}#
#f
(map syntax->datum
- #{var-ids\ 4302}#)
- #{vars\ 4303}#
- (map (lambda (#{x\ 4342}#)
- (#{chi\ 3831}#
- (cdr #{x\ 4342}#)
- (car #{x\ 4342}#)
+ #{var-ids\ 638}#)
+ #{vars\ 639}#
+ (map (lambda (#{x\ 678}#)
+ (#{chi\ 167}#
+ (cdr #{x\ 678}#)
+ (car #{x\ 678}#)
'(())
- #{mod\ 4314}#))
- #{vals\ 4304}#)
- (#{build-sequence\ 3774}#
+ #{mod\ 650}#))
+ #{vals\ 640}#)
+ (#{build-sequence\ 110}#
#f
- (map (lambda (#{x\ 4343}#)
- (#{chi\ 3831}#
- (cdr #{x\ 4343}#)
- (car #{x\ 4343}#)
+ (map (lambda (#{x\ 679}#)
+ (#{chi\ 167}#
+ (cdr #{x\ 679}#)
+ (car #{x\ 679}#)
'(())
- #{mod\ 4314}#))
- (cons (cons #{er\ 4308}#
- (#{source-wrap\ 3824}#
- #{e\ 4311}#
- #{w\ 4312}#
- #{s\ 4313}#
- #{mod\ 4314}#))
- (cdr #{body\ 4299}#))))))))))))))))))
- (#{parse\ 4298}#
- (map (lambda (#{x\ 4306}#)
- (cons #{r\ 4295}#
- (#{wrap\ 3823}#
- #{x\ 4306}#
- #{w\ 4297}#
- #{mod\ 4294}#)))
- #{body\ 4290}#)
+ #{mod\ 650}#))
+ (cons (cons #{er\ 644}#
+ (#{source-wrap\ 160}#
+ #{e\ 647}#
+ #{w\ 648}#
+ #{s\ 649}#
+ #{mod\ 650}#))
+ (cdr #{body\ 635}#))))))))))))))))))
+ (#{parse\ 634}#
+ (map (lambda (#{x\ 642}#)
+ (cons #{r\ 631}#
+ (#{wrap\ 159}#
+ #{x\ 642}#
+ #{w\ 633}#
+ #{mod\ 630}#)))
+ #{body\ 626}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 3834}#
- (lambda (#{p\ 4344}#
- #{e\ 4345}#
- #{r\ 4346}#
- #{w\ 4347}#
- #{rib\ 4348}#
- #{mod\ 4349}#)
- (letrec ((#{rebuild-macro-output\ 4350}#
- (lambda (#{x\ 4351}# #{m\ 4352}#)
- (if (pair? #{x\ 4351}#)
- (cons (#{rebuild-macro-output\ 4350}#
- (car #{x\ 4351}#)
- #{m\ 4352}#)
- (#{rebuild-macro-output\ 4350}#
- (cdr #{x\ 4351}#)
- #{m\ 4352}#))
- (if (#{syntax-object?\ 3779}# #{x\ 4351}#)
- (let ((#{w\ 4353}#
- (#{syntax-object-wrap\ 3781}#
- #{x\ 4351}#)))
- (let ((#{ms\ 4354}#
- (#{wrap-marks\ 3798}# #{w\ 4353}#))
- (#{s\ 4355}#
- (#{wrap-subst\ 3799}# #{w\ 4353}#)))
- (if (if (pair? #{ms\ 4354}#)
- (eq? (car #{ms\ 4354}#) #f)
+ (#{chi-macro\ 170}#
+ (lambda (#{p\ 680}#
+ #{e\ 681}#
+ #{r\ 682}#
+ #{w\ 683}#
+ #{rib\ 684}#
+ #{mod\ 685}#)
+ (letrec ((#{rebuild-macro-output\ 686}#
+ (lambda (#{x\ 687}# #{m\ 688}#)
+ (if (pair? #{x\ 687}#)
+ (cons (#{rebuild-macro-output\ 686}#
+ (car #{x\ 687}#)
+ #{m\ 688}#)
+ (#{rebuild-macro-output\ 686}#
+ (cdr #{x\ 687}#)
+ #{m\ 688}#))
+ (if (#{syntax-object?\ 115}# #{x\ 687}#)
+ (let ((#{w\ 689}# (#{syntax-object-wrap\ 117}#
+ #{x\ 687}#)))
+ (let ((#{ms\ 690}#
+ (#{wrap-marks\ 134}# #{w\ 689}#))
+ (#{s\ 691}# (#{wrap-subst\ 135}#
+ #{w\ 689}#)))
+ (if (if (pair? #{ms\ 690}#)
+ (eq? (car #{ms\ 690}#) #f)
#f)
- (#{make-syntax-object\ 3778}#
- (#{syntax-object-expression\ 3780}#
- #{x\ 4351}#)
- (#{make-wrap\ 3797}#
- (cdr #{ms\ 4354}#)
- (if #{rib\ 4348}#
- (cons #{rib\ 4348}#
- (cdr #{s\ 4355}#))
- (cdr #{s\ 4355}#)))
- (#{syntax-object-module\ 3782}#
- #{x\ 4351}#))
- (#{make-syntax-object\ 3778}#
- (#{syntax-object-expression\ 3780}#
- #{x\ 4351}#)
- (#{make-wrap\ 3797}#
- (cons #{m\ 4352}# #{ms\ 4354}#)
- (if #{rib\ 4348}#
- (cons #{rib\ 4348}#
+ (#{make-syntax-object\ 114}#
+ (#{syntax-object-expression\ 116}#
+ #{x\ 687}#)
+ (#{make-wrap\ 133}#
+ (cdr #{ms\ 690}#)
+ (if #{rib\ 684}#
+ (cons #{rib\ 684}#
+ (cdr #{s\ 691}#))
+ (cdr #{s\ 691}#)))
+ (#{syntax-object-module\ 118}#
+ #{x\ 687}#))
+ (#{make-syntax-object\ 114}#
+ (#{syntax-object-expression\ 116}#
+ #{x\ 687}#)
+ (#{make-wrap\ 133}#
+ (cons #{m\ 688}# #{ms\ 690}#)
+ (if #{rib\ 684}#
+ (cons #{rib\ 684}#
(cons 'shift
- #{s\ 4355}#))
- (cons (quote shift) #{s\ 4355}#)))
+ #{s\ 691}#))
+ (cons (quote shift) #{s\ 691}#)))
(cons 'hygiene
- (cdr #{p\ 4344}#))))))
- (if (vector? #{x\ 4351}#)
- (let ((#{n\ 4356}#
- (vector-length #{x\ 4351}#)))
- (let ((#{v\ 4357}#
- (make-vector #{n\ 4356}#)))
- (letrec ((#{loop\ 4358}#
- (lambda (#{i\ 4359}#)
- (if (#{fx=\ 3752}#
- #{i\ 4359}#
- #{n\ 4356}#)
+ (cdr #{p\ 680}#))))))
+ (if (vector? #{x\ 687}#)
+ (let ((#{n\ 692}# (vector-length
+ #{x\ 687}#)))
+ (let ((#{v\ 693}# (make-vector
+ #{n\ 692}#)))
+ (letrec ((#{loop\ 694}#
+ (lambda (#{i\ 695}#)
+ (if (#{fx=\ 88}#
+ #{i\ 695}#
+ #{n\ 692}#)
(begin
(if #f #f)
- #{v\ 4357}#)
+ #{v\ 693}#)
(begin
(vector-set!
- #{v\ 4357}#
- #{i\ 4359}#
- (#{rebuild-macro-output\ 4350}#
+ #{v\ 693}#
+ #{i\ 695}#
+ (#{rebuild-macro-output\ 686}#
(vector-ref
- #{x\ 4351}#
- #{i\ 4359}#)
- #{m\ 4352}#))
- (#{loop\ 4358}#
- (#{fx+\ 3750}#
- #{i\ 4359}#
+ #{x\ 687}#
+ #{i\ 695}#)
+ #{m\ 688}#))
+ (#{loop\ 694}#
+ (#{fx+\ 86}#
+ #{i\ 695}#
1)))))))
- (#{loop\ 4358}# 0))))
- (if (symbol? #{x\ 4351}#)
+ (#{loop\ 694}# 0))))
+ (if (symbol? #{x\ 687}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 3824}#
- #{e\ 4345}#
- #{w\ 4347}#
- (#{wrap-subst\ 3799}# #{w\ 4347}#)
- #{mod\ 4349}#)
- #{x\ 4351}#)
- #{x\ 4351}#)))))))
- (#{rebuild-macro-output\ 4350}#
- ((car #{p\ 4344}#)
- (#{wrap\ 3823}#
- #{e\ 4345}#
- (#{anti-mark\ 3810}# #{w\ 4347}#)
- #{mod\ 4349}#))
+ (#{source-wrap\ 160}#
+ #{e\ 681}#
+ #{w\ 683}#
+ (#{wrap-subst\ 135}# #{w\ 683}#)
+ #{mod\ 685}#)
+ #{x\ 687}#)
+ #{x\ 687}#)))))))
+ (#{rebuild-macro-output\ 686}#
+ ((car #{p\ 680}#)
+ (#{wrap\ 159}#
+ #{e\ 681}#
+ (#{anti-mark\ 146}# #{w\ 683}#)
+ #{mod\ 685}#))
(string #\m)))))
- (#{chi-application\ 3833}#
- (lambda (#{x\ 4360}#
- #{e\ 4361}#
- #{r\ 4362}#
- #{w\ 4363}#
- #{s\ 4364}#
- #{mod\ 4365}#)
- ((lambda (#{tmp\ 4366}#)
- ((lambda (#{tmp\ 4367}#)
- (if #{tmp\ 4367}#
- (apply (lambda (#{e0\ 4368}# #{e1\ 4369}#)
- (#{build-application\ 3760}#
- #{s\ 4364}#
- #{x\ 4360}#
- (map (lambda (#{e\ 4370}#)
- (#{chi\ 3831}#
- #{e\ 4370}#
- #{r\ 4362}#
- #{w\ 4363}#
- #{mod\ 4365}#))
- #{e1\ 4369}#)))
- #{tmp\ 4367}#)
+ (#{chi-application\ 169}#
+ (lambda (#{x\ 696}#
+ #{e\ 697}#
+ #{r\ 698}#
+ #{w\ 699}#
+ #{s\ 700}#
+ #{mod\ 701}#)
+ ((lambda (#{tmp\ 702}#)
+ ((lambda (#{tmp\ 703}#)
+ (if #{tmp\ 703}#
+ (apply (lambda (#{e0\ 704}# #{e1\ 705}#)
+ (#{build-application\ 96}#
+ #{s\ 700}#
+ #{x\ 696}#
+ (map (lambda (#{e\ 706}#)
+ (#{chi\ 167}#
+ #{e\ 706}#
+ #{r\ 698}#
+ #{w\ 699}#
+ #{mod\ 701}#))
+ #{e1\ 705}#)))
+ #{tmp\ 703}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4366}#)))
+ #{tmp\ 702}#)))
($sc-dispatch
- #{tmp\ 4366}#
+ #{tmp\ 702}#
'(any . each-any))))
- #{e\ 4361}#)))
- (#{chi-expr\ 3832}#
- (lambda (#{type\ 4372}#
- #{value\ 4373}#
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (lexical)))
- (#{build-lexical-reference\ 3762}#
+ #{e\ 697}#)))
+ (#{chi-expr\ 168}#
+ (lambda (#{type\ 708}#
+ #{value\ 709}#
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (lexical)))
+ (#{build-lexical-reference\ 98}#
'value
- #{s\ 4377}#
- #{e\ 4374}#
- #{value\ 4373}#)
- (if (memv #{type\ 4372}# (quote (core core-form)))
- (#{value\ 4373}#
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (module-ref)))
+ #{s\ 713}#
+ #{e\ 710}#
+ #{value\ 709}#)
+ (if (memv #{type\ 708}# (quote (core core-form)))
+ (#{value\ 709}#
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 4373}# #{e\ 4374}#))
- (lambda (#{id\ 4379}# #{mod\ 4380}#)
- (#{build-global-reference\ 3765}#
- #{s\ 4377}#
- #{id\ 4379}#
- #{mod\ 4380}#)))
- (if (memv #{type\ 4372}# (quote (lexical-call)))
- (#{chi-application\ 3833}#
- (#{build-lexical-reference\ 3762}#
+ (lambda () (#{value\ 709}# #{e\ 710}#))
+ (lambda (#{id\ 715}# #{mod\ 716}#)
+ (#{build-global-reference\ 101}#
+ #{s\ 713}#
+ #{id\ 715}#
+ #{mod\ 716}#)))
+ (if (memv #{type\ 708}# (quote (lexical-call)))
+ (#{chi-application\ 169}#
+ (#{build-lexical-reference\ 98}#
'fun
- (#{source-annotation\ 3786}# (car #{e\ 4374}#))
- (car #{e\ 4374}#)
- #{value\ 4373}#)
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (global-call)))
- (#{chi-application\ 3833}#
- (#{build-global-reference\ 3765}#
- (#{source-annotation\ 3786}# (car #{e\ 4374}#))
- (if (#{syntax-object?\ 3779}# #{value\ 4373}#)
- (#{syntax-object-expression\ 3780}#
- #{value\ 4373}#)
- #{value\ 4373}#)
- (if (#{syntax-object?\ 3779}# #{value\ 4373}#)
- (#{syntax-object-module\ 3782}# #{value\ 4373}#)
- #{mod\ 4378}#))
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (constant)))
- (#{build-data\ 3773}#
- #{s\ 4377}#
- (#{strip\ 3844}#
- (#{source-wrap\ 3824}#
- #{e\ 4374}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
+ (#{source-annotation\ 122}# (car #{e\ 710}#))
+ (car #{e\ 710}#)
+ #{value\ 709}#)
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (global-call)))
+ (#{chi-application\ 169}#
+ (#{build-global-reference\ 101}#
+ (#{source-annotation\ 122}# (car #{e\ 710}#))
+ (if (#{syntax-object?\ 115}# #{value\ 709}#)
+ (#{syntax-object-expression\ 116}#
+ #{value\ 709}#)
+ #{value\ 709}#)
+ (if (#{syntax-object?\ 115}# #{value\ 709}#)
+ (#{syntax-object-module\ 118}# #{value\ 709}#)
+ #{mod\ 714}#))
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (constant)))
+ (#{build-data\ 109}#
+ #{s\ 713}#
+ (#{strip\ 180}#
+ (#{source-wrap\ 160}#
+ #{e\ 710}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
'(())))
- (if (memv #{type\ 4372}# (quote (global)))
- (#{build-global-reference\ 3765}#
- #{s\ 4377}#
- #{value\ 4373}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (call)))
- (#{chi-application\ 3833}#
- (#{chi\ 3831}#
- (car #{e\ 4374}#)
- #{r\ 4375}#
- #{w\ 4376}#
- #{mod\ 4378}#)
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (if (memv #{type\ 4372}# (quote (begin-form)))
- ((lambda (#{tmp\ 4381}#)
- ((lambda (#{tmp\ 4382}#)
- (if #{tmp\ 4382}#
- (apply (lambda (#{_\ 4383}#
- #{e1\ 4384}#
- #{e2\ 4385}#)
- (#{chi-sequence\ 3825}#
- (cons #{e1\ 4384}#
- #{e2\ 4385}#)
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#))
- #{tmp\ 4382}#)
+ (if (memv #{type\ 708}# (quote (global)))
+ (#{build-global-reference\ 101}#
+ #{s\ 713}#
+ #{value\ 709}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (call)))
+ (#{chi-application\ 169}#
+ (#{chi\ 167}#
+ (car #{e\ 710}#)
+ #{r\ 711}#
+ #{w\ 712}#
+ #{mod\ 714}#)
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (if (memv #{type\ 708}# (quote (begin-form)))
+ ((lambda (#{tmp\ 717}#)
+ ((lambda (#{tmp\ 718}#)
+ (if #{tmp\ 718}#
+ (apply (lambda (#{_\ 719}#
+ #{e1\ 720}#
+ #{e2\ 721}#)
+ (#{chi-sequence\ 161}#
+ (cons #{e1\ 720}#
+ #{e2\ 721}#)
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#))
+ #{tmp\ 718}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4381}#)))
+ #{tmp\ 717}#)))
($sc-dispatch
- #{tmp\ 4381}#
+ #{tmp\ 717}#
'(any any . each-any))))
- #{e\ 4374}#)
- (if (memv #{type\ 4372}#
+ #{e\ 710}#)
+ (if (memv #{type\ 708}#
'(local-syntax-form))
- (#{chi-local-syntax\ 3836}#
- #{value\ 4373}#
- #{e\ 4374}#
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#
- #{chi-sequence\ 3825}#)
- (if (memv #{type\ 4372}#
+ (#{chi-local-syntax\ 172}#
+ #{value\ 709}#
+ #{e\ 710}#
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#
+ #{chi-sequence\ 161}#)
+ (if (memv #{type\ 708}#
'(eval-when-form))
- ((lambda (#{tmp\ 4387}#)
- ((lambda (#{tmp\ 4388}#)
- (if #{tmp\ 4388}#
- (apply (lambda (#{_\ 4389}#
- #{x\ 4390}#
- #{e1\ 4391}#
- #{e2\ 4392}#)
- (let ((#{when-list\ 4393}#
- (#{chi-when-list\ 3828}#
- #{e\ 4374}#
- #{x\ 4390}#
- #{w\ 4376}#)))
+ ((lambda (#{tmp\ 723}#)
+ ((lambda (#{tmp\ 724}#)
+ (if #{tmp\ 724}#
+ (apply (lambda (#{_\ 725}#
+ #{x\ 726}#
+ #{e1\ 727}#
+ #{e2\ 728}#)
+ (let ((#{when-list\ 729}#
+ (#{chi-when-list\ 164}#
+ #{e\ 710}#
+ #{x\ 726}#
+ #{w\ 712}#)))
(if (memq 'eval
- #{when-list\ 4393}#)
- (#{chi-sequence\ 3825}#
- (cons #{e1\ 4391}#
- #{e2\ 4392}#)
- #{r\ 4375}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#)
- (#{chi-void\ 3838}#))))
- #{tmp\ 4388}#)
+ #{when-list\ 729}#)
+ (#{chi-sequence\ 161}#
+ (cons #{e1\ 727}#
+ #{e2\ 728}#)
+ #{r\ 711}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#)
+ (#{chi-void\ 174}#))))
+ #{tmp\ 724}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4387}#)))
+ #{tmp\ 723}#)))
($sc-dispatch
- #{tmp\ 4387}#
+ #{tmp\ 723}#
'(any each-any any . each-any))))
- #{e\ 4374}#)
- (if (memv #{type\ 4372}#
+ #{e\ 710}#)
+ (if (memv #{type\ 708}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 4374}#
- (#{wrap\ 3823}#
- #{value\ 4373}#
- #{w\ 4376}#
- #{mod\ 4378}#))
- (if (memv #{type\ 4372}#
+ #{e\ 710}#
+ (#{wrap\ 159}#
+ #{value\ 709}#
+ #{w\ 712}#
+ #{mod\ 714}#))
+ (if (memv #{type\ 708}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 3824}#
- #{e\ 4374}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#))
- (if (memv #{type\ 4372}#
+ (#{source-wrap\ 160}#
+ #{e\ 710}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#))
+ (if (memv #{type\ 708}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 3824}#
- #{e\ 4374}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#))
+ (#{source-wrap\ 160}#
+ #{e\ 710}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 3824}#
- #{e\ 4374}#
- #{w\ 4376}#
- #{s\ 4377}#
- #{mod\ 4378}#))))))))))))))))))
- (#{chi\ 3831}#
- (lambda (#{e\ 4396}#
- #{r\ 4397}#
- #{w\ 4398}#
- #{mod\ 4399}#)
+ (#{source-wrap\ 160}#
+ #{e\ 710}#
+ #{w\ 712}#
+ #{s\ 713}#
+ #{mod\ 714}#))))))))))))))))))
+ (#{chi\ 167}#
+ (lambda (#{e\ 732}# #{r\ 733}# #{w\ 734}# #{mod\ 735}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3829}#
- #{e\ 4396}#
- #{r\ 4397}#
- #{w\ 4398}#
- (#{source-annotation\ 3786}# #{e\ 4396}#)
+ (#{syntax-type\ 165}#
+ #{e\ 732}#
+ #{r\ 733}#
+ #{w\ 734}#
+ (#{source-annotation\ 122}# #{e\ 732}#)
#f
- #{mod\ 4399}#
+ #{mod\ 735}#
#f))
- (lambda (#{type\ 4400}#
- #{value\ 4401}#
- #{e\ 4402}#
- #{w\ 4403}#
- #{s\ 4404}#
- #{mod\ 4405}#)
- (#{chi-expr\ 3832}#
- #{type\ 4400}#
- #{value\ 4401}#
- #{e\ 4402}#
- #{r\ 4397}#
- #{w\ 4403}#
- #{s\ 4404}#
- #{mod\ 4405}#)))))
- (#{chi-top\ 3830}#
- (lambda (#{e\ 4406}#
- #{r\ 4407}#
- #{w\ 4408}#
- #{m\ 4409}#
- #{esew\ 4410}#
- #{mod\ 4411}#)
+ (lambda (#{type\ 736}#
+ #{value\ 737}#
+ #{e\ 738}#
+ #{w\ 739}#
+ #{s\ 740}#
+ #{mod\ 741}#)
+ (#{chi-expr\ 168}#
+ #{type\ 736}#
+ #{value\ 737}#
+ #{e\ 738}#
+ #{r\ 733}#
+ #{w\ 739}#
+ #{s\ 740}#
+ #{mod\ 741}#)))))
+ (#{chi-top\ 166}#
+ (lambda (#{e\ 742}#
+ #{r\ 743}#
+ #{w\ 744}#
+ #{m\ 745}#
+ #{esew\ 746}#
+ #{mod\ 747}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3829}#
- #{e\ 4406}#
- #{r\ 4407}#
- #{w\ 4408}#
- (#{source-annotation\ 3786}# #{e\ 4406}#)
+ (#{syntax-type\ 165}#
+ #{e\ 742}#
+ #{r\ 743}#
+ #{w\ 744}#
+ (#{source-annotation\ 122}# #{e\ 742}#)
#f
- #{mod\ 4411}#
+ #{mod\ 747}#
#f))
- (lambda (#{type\ 4419}#
- #{value\ 4420}#
- #{e\ 4421}#
- #{w\ 4422}#
- #{s\ 4423}#
- #{mod\ 4424}#)
- (if (memv #{type\ 4419}# (quote (begin-form)))
- ((lambda (#{tmp\ 4425}#)
- ((lambda (#{tmp\ 4426}#)
- (if #{tmp\ 4426}#
- (apply (lambda (#{_\ 4427}#) (#{chi-void\ 3838}#))
- #{tmp\ 4426}#)
- ((lambda (#{tmp\ 4428}#)
- (if #{tmp\ 4428}#
- (apply (lambda (#{_\ 4429}#
- #{e1\ 4430}#
- #{e2\ 4431}#)
- (#{chi-top-sequence\ 3826}#
- (cons #{e1\ 4430}# #{e2\ 4431}#)
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
- #{m\ 4409}#
- #{esew\ 4410}#
- #{mod\ 4424}#))
- #{tmp\ 4428}#)
+ (lambda (#{type\ 755}#
+ #{value\ 756}#
+ #{e\ 757}#
+ #{w\ 758}#
+ #{s\ 759}#
+ #{mod\ 760}#)
+ (if (memv #{type\ 755}# (quote (begin-form)))
+ ((lambda (#{tmp\ 761}#)
+ ((lambda (#{tmp\ 762}#)
+ (if #{tmp\ 762}#
+ (apply (lambda (#{_\ 763}#) (#{chi-void\ 174}#))
+ #{tmp\ 762}#)
+ ((lambda (#{tmp\ 764}#)
+ (if #{tmp\ 764}#
+ (apply (lambda (#{_\ 765}#
+ #{e1\ 766}#
+ #{e2\ 767}#)
+ (#{chi-top-sequence\ 162}#
+ (cons #{e1\ 766}# #{e2\ 767}#)
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
+ #{m\ 745}#
+ #{esew\ 746}#
+ #{mod\ 760}#))
+ #{tmp\ 764}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4425}#)))
+ #{tmp\ 761}#)))
($sc-dispatch
- #{tmp\ 4425}#
+ #{tmp\ 761}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 4425}# (quote (any)))))
- #{e\ 4421}#)
- (if (memv #{type\ 4419}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 3836}#
- #{value\ 4420}#
- #{e\ 4421}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
- #{mod\ 4424}#
- (lambda (#{body\ 4433}#
- #{r\ 4434}#
- #{w\ 4435}#
- #{s\ 4436}#
- #{mod\ 4437}#)
- (#{chi-top-sequence\ 3826}#
- #{body\ 4433}#
- #{r\ 4434}#
- #{w\ 4435}#
- #{s\ 4436}#
- #{m\ 4409}#
- #{esew\ 4410}#
- #{mod\ 4437}#)))
- (if (memv #{type\ 4419}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 4438}#)
- ((lambda (#{tmp\ 4439}#)
- (if #{tmp\ 4439}#
- (apply (lambda (#{_\ 4440}#
- #{x\ 4441}#
- #{e1\ 4442}#
- #{e2\ 4443}#)
- (let ((#{when-list\ 4444}#
- (#{chi-when-list\ 3828}#
- #{e\ 4421}#
- #{x\ 4441}#
- #{w\ 4422}#))
- (#{body\ 4445}#
- (cons #{e1\ 4442}#
- #{e2\ 4443}#)))
- (if (eq? #{m\ 4409}# (quote e))
+ ($sc-dispatch #{tmp\ 761}# (quote (any)))))
+ #{e\ 757}#)
+ (if (memv #{type\ 755}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 172}#
+ #{value\ 756}#
+ #{e\ 757}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
+ #{mod\ 760}#
+ (lambda (#{body\ 769}#
+ #{r\ 770}#
+ #{w\ 771}#
+ #{s\ 772}#
+ #{mod\ 773}#)
+ (#{chi-top-sequence\ 162}#
+ #{body\ 769}#
+ #{r\ 770}#
+ #{w\ 771}#
+ #{s\ 772}#
+ #{m\ 745}#
+ #{esew\ 746}#
+ #{mod\ 773}#)))
+ (if (memv #{type\ 755}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 774}#)
+ ((lambda (#{tmp\ 775}#)
+ (if #{tmp\ 775}#
+ (apply (lambda (#{_\ 776}#
+ #{x\ 777}#
+ #{e1\ 778}#
+ #{e2\ 779}#)
+ (let ((#{when-list\ 780}#
+ (#{chi-when-list\ 164}#
+ #{e\ 757}#
+ #{x\ 777}#
+ #{w\ 758}#))
+ (#{body\ 781}#
+ (cons #{e1\ 778}#
+ #{e2\ 779}#)))
+ (if (eq? #{m\ 745}# (quote e))
(if (memq 'eval
- #{when-list\ 4444}#)
- (#{chi-top-sequence\ 3826}#
- #{body\ 4445}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
+ #{when-list\ 780}#)
+ (#{chi-top-sequence\ 162}#
+ #{body\ 781}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
'e
'(eval)
- #{mod\ 4424}#)
- (#{chi-void\ 3838}#))
+ #{mod\ 760}#)
+ (#{chi-void\ 174}#))
(if (memq 'load
- #{when-list\ 4444}#)
- (if (let ((#{t\ 4448}#
- (memq 'compile
- #{when-list\ 4444}#)))
- (if #{t\ 4448}#
- #{t\ 4448}#
- (if (eq? #{m\ 4409}#
+ #{when-list\ 780}#)
+ (if (let ((#{t\ 784}# (memq 'compile
+ #{when-list\ 780}#)))
+ (if #{t\ 784}#
+ #{t\ 784}#
+ (if (eq? #{m\ 745}#
'c&e)
(memq 'eval
- #{when-list\ 4444}#)
+ #{when-list\ 780}#)
#f)))
- (#{chi-top-sequence\ 3826}#
- #{body\ 4445}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
+ (#{chi-top-sequence\ 162}#
+ #{body\ 781}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
'c&e
'(compile load)
- #{mod\ 4424}#)
- (if (memq #{m\ 4409}#
+ #{mod\ 760}#)
+ (if (memq #{m\ 745}#
'(c c&e))
- (#{chi-top-sequence\ 3826}#
- #{body\ 4445}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
+ (#{chi-top-sequence\ 162}#
+ #{body\ 781}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
'c
'(load)
- #{mod\ 4424}#)
- (#{chi-void\ 3838}#)))
- (if (let ((#{t\ 4449}#
- (memq 'compile
- #{when-list\ 4444}#)))
- (if #{t\ 4449}#
- #{t\ 4449}#
- (if (eq? #{m\ 4409}#
+ #{mod\ 760}#)
+ (#{chi-void\ 174}#)))
+ (if (let ((#{t\ 785}# (memq 'compile
+ #{when-list\ 780}#)))
+ (if #{t\ 785}#
+ #{t\ 785}#
+ (if (eq? #{m\ 745}#
'c&e)
(memq 'eval
- #{when-list\ 4444}#)
+ #{when-list\ 780}#)
#f)))
(begin
- (#{top-level-eval-hook\ 3754}#
- (#{chi-top-sequence\ 3826}#
- #{body\ 4445}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
+ (#{top-level-eval-hook\ 90}#
+ (#{chi-top-sequence\ 162}#
+ #{body\ 781}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
'e
'(eval)
- #{mod\ 4424}#)
- #{mod\ 4424}#)
- (#{chi-void\ 3838}#))
- (#{chi-void\ 3838}#))))))
- #{tmp\ 4439}#)
+ #{mod\ 760}#)
+ #{mod\ 760}#)
+ (#{chi-void\ 174}#))
+ (#{chi-void\ 174}#))))))
+ #{tmp\ 775}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4438}#)))
+ #{tmp\ 774}#)))
($sc-dispatch
- #{tmp\ 4438}#
+ #{tmp\ 774}#
'(any each-any any . each-any))))
- #{e\ 4421}#)
- (if (memv #{type\ 4419}#
- '(define-syntax-form))
- (let ((#{n\ 4450}#
- (#{id-var-name\ 3817}#
- #{value\ 4420}#
- #{w\ 4422}#))
- (#{r\ 4451}#
- (#{macros-only-env\ 3791}# #{r\ 4407}#)))
- (if (memv #{m\ 4409}# (quote (c)))
- (if (memq (quote compile) #{esew\ 4410}#)
- (let ((#{e\ 4452}#
- (#{chi-install-global\ 3827}#
- #{n\ 4450}#
- (#{chi\ 3831}#
- #{e\ 4421}#
- #{r\ 4451}#
- #{w\ 4422}#
- #{mod\ 4424}#))))
+ #{e\ 757}#)
+ (if (memv #{type\ 755}# (quote (define-syntax-form)))
+ (let ((#{n\ 786}# (#{id-var-name\ 153}#
+ #{value\ 756}#
+ #{w\ 758}#))
+ (#{r\ 787}# (#{macros-only-env\ 127}#
+ #{r\ 743}#)))
+ (if (memv #{m\ 745}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 746}#)
+ (let ((#{e\ 788}# (#{chi-install-global\ 163}#
+ #{n\ 786}#
+ (#{chi\ 167}#
+ #{e\ 757}#
+ #{r\ 787}#
+ #{w\ 758}#
+ #{mod\ 760}#))))
(begin
- (#{top-level-eval-hook\ 3754}#
- #{e\ 4452}#
- #{mod\ 4424}#)
- (if (memq (quote load) #{esew\ 4410}#)
- #{e\ 4452}#
- (#{chi-void\ 3838}#))))
- (if (memq (quote load) #{esew\ 4410}#)
- (#{chi-install-global\ 3827}#
- #{n\ 4450}#
- (#{chi\ 3831}#
- #{e\ 4421}#
- #{r\ 4451}#
- #{w\ 4422}#
- #{mod\ 4424}#))
- (#{chi-void\ 3838}#)))
- (if (memv #{m\ 4409}# (quote (c&e)))
- (let ((#{e\ 4453}#
- (#{chi-install-global\ 3827}#
- #{n\ 4450}#
- (#{chi\ 3831}#
- #{e\ 4421}#
- #{r\ 4451}#
- #{w\ 4422}#
- #{mod\ 4424}#))))
+ (#{top-level-eval-hook\ 90}#
+ #{e\ 788}#
+ #{mod\ 760}#)
+ (if (memq (quote load) #{esew\ 746}#)
+ #{e\ 788}#
+ (#{chi-void\ 174}#))))
+ (if (memq (quote load) #{esew\ 746}#)
+ (#{chi-install-global\ 163}#
+ #{n\ 786}#
+ (#{chi\ 167}#
+ #{e\ 757}#
+ #{r\ 787}#
+ #{w\ 758}#
+ #{mod\ 760}#))
+ (#{chi-void\ 174}#)))
+ (if (memv #{m\ 745}# (quote (c&e)))
+ (let ((#{e\ 789}# (#{chi-install-global\ 163}#
+ #{n\ 786}#
+ (#{chi\ 167}#
+ #{e\ 757}#
+ #{r\ 787}#
+ #{w\ 758}#
+ #{mod\ 760}#))))
(begin
- (#{top-level-eval-hook\ 3754}#
- #{e\ 4453}#
- #{mod\ 4424}#)
- #{e\ 4453}#))
+ (#{top-level-eval-hook\ 90}#
+ #{e\ 789}#
+ #{mod\ 760}#)
+ #{e\ 789}#))
(begin
- (if (memq (quote eval) #{esew\ 4410}#)
- (#{top-level-eval-hook\ 3754}#
- (#{chi-install-global\ 3827}#
- #{n\ 4450}#
- (#{chi\ 3831}#
- #{e\ 4421}#
- #{r\ 4451}#
- #{w\ 4422}#
- #{mod\ 4424}#))
- #{mod\ 4424}#))
- (#{chi-void\ 3838}#)))))
- (if (memv #{type\ 4419}# (quote (define-form)))
- (let ((#{n\ 4454}#
- (#{id-var-name\ 3817}#
- #{value\ 4420}#
- #{w\ 4422}#)))
- (let ((#{type\ 4455}#
- (#{binding-type\ 3787}#
- (#{lookup\ 3792}#
- #{n\ 4454}#
- #{r\ 4407}#
- #{mod\ 4424}#))))
- (if (memv #{type\ 4455}#
+ (if (memq (quote eval) #{esew\ 746}#)
+ (#{top-level-eval-hook\ 90}#
+ (#{chi-install-global\ 163}#
+ #{n\ 786}#
+ (#{chi\ 167}#
+ #{e\ 757}#
+ #{r\ 787}#
+ #{w\ 758}#
+ #{mod\ 760}#))
+ #{mod\ 760}#))
+ (#{chi-void\ 174}#)))))
+ (if (memv #{type\ 755}# (quote (define-form)))
+ (let ((#{n\ 790}# (#{id-var-name\ 153}#
+ #{value\ 756}#
+ #{w\ 758}#)))
+ (let ((#{type\ 791}#
+ (#{binding-type\ 123}#
+ (#{lookup\ 128}#
+ #{n\ 790}#
+ #{r\ 743}#
+ #{mod\ 760}#))))
+ (if (memv #{type\ 791}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 4454}#))
+ #{n\ 790}#))
(current-module)
#f)
- (let ((#{old\ 4456}#
+ (let ((#{old\ 792}#
(module-variable
(current-module)
- #{n\ 4454}#)))
+ #{n\ 790}#)))
(module-define!
(current-module)
- #{n\ 4454}#
- (if (variable? #{old\ 4456}#)
- (variable-ref #{old\ 4456}#)
+ #{n\ 790}#
+ (if (variable? #{old\ 792}#)
+ (variable-ref #{old\ 792}#)
#f))))
- (let ((#{x\ 4457}#
- (#{build-global-definition\ 3768}#
- #{s\ 4423}#
- #{n\ 4454}#
- (#{chi\ 3831}#
- #{e\ 4421}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{mod\ 4424}#))))
+ (let ((#{x\ 793}# (#{build-global-definition\ 104}#
+ #{s\ 759}#
+ #{n\ 790}#
+ (#{chi\ 167}#
+ #{e\ 757}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{mod\ 760}#))))
(begin
- (if (eq? #{m\ 4409}# (quote c&e))
- (#{top-level-eval-hook\ 3754}#
- #{x\ 4457}#
- #{mod\ 4424}#))
- #{x\ 4457}#)))
- (if (memv #{type\ 4455}#
+ (if (eq? #{m\ 745}# (quote c&e))
+ (#{top-level-eval-hook\ 90}#
+ #{x\ 793}#
+ #{mod\ 760}#))
+ #{x\ 793}#)))
+ (if (memv #{type\ 791}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 4421}#
- (#{wrap\ 3823}#
- #{value\ 4420}#
- #{w\ 4422}#
- #{mod\ 4424}#))
+ #{e\ 757}#
+ (#{wrap\ 159}#
+ #{value\ 756}#
+ #{w\ 758}#
+ #{mod\ 760}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 4421}#
- (#{wrap\ 3823}#
- #{value\ 4420}#
- #{w\ 4422}#
- #{mod\ 4424}#))))))
- (let ((#{x\ 4458}#
- (#{chi-expr\ 3832}#
- #{type\ 4419}#
- #{value\ 4420}#
- #{e\ 4421}#
- #{r\ 4407}#
- #{w\ 4422}#
- #{s\ 4423}#
- #{mod\ 4424}#)))
+ #{e\ 757}#
+ (#{wrap\ 159}#
+ #{value\ 756}#
+ #{w\ 758}#
+ #{mod\ 760}#))))))
+ (let ((#{x\ 794}# (#{chi-expr\ 168}#
+ #{type\ 755}#
+ #{value\ 756}#
+ #{e\ 757}#
+ #{r\ 743}#
+ #{w\ 758}#
+ #{s\ 759}#
+ #{mod\ 760}#)))
(begin
- (if (eq? #{m\ 4409}# (quote c&e))
- (#{top-level-eval-hook\ 3754}#
- #{x\ 4458}#
- #{mod\ 4424}#))
- #{x\ 4458}#)))))))))))
- (#{syntax-type\ 3829}#
- (lambda (#{e\ 4459}#
- #{r\ 4460}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{rib\ 4463}#
- #{mod\ 4464}#
- #{for-car?\ 4465}#)
- (if (symbol? #{e\ 4459}#)
- (let ((#{n\ 4466}#
- (#{id-var-name\ 3817}# #{e\ 4459}# #{w\ 4461}#)))
- (let ((#{b\ 4467}#
- (#{lookup\ 3792}#
- #{n\ 4466}#
- #{r\ 4460}#
- #{mod\ 4464}#)))
- (let ((#{type\ 4468}#
- (#{binding-type\ 3787}# #{b\ 4467}#)))
- (if (memv #{type\ 4468}# (quote (lexical)))
+ (if (eq? #{m\ 745}# (quote c&e))
+ (#{top-level-eval-hook\ 90}#
+ #{x\ 794}#
+ #{mod\ 760}#))
+ #{x\ 794}#)))))))))))
+ (#{syntax-type\ 165}#
+ (lambda (#{e\ 795}#
+ #{r\ 796}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{rib\ 799}#
+ #{mod\ 800}#
+ #{for-car?\ 801}#)
+ (if (symbol? #{e\ 795}#)
+ (let ((#{n\ 802}# (#{id-var-name\ 153}#
+ #{e\ 795}#
+ #{w\ 797}#)))
+ (let ((#{b\ 803}# (#{lookup\ 128}#
+ #{n\ 802}#
+ #{r\ 796}#
+ #{mod\ 800}#)))
+ (let ((#{type\ 804}#
+ (#{binding-type\ 123}# #{b\ 803}#)))
+ (if (memv #{type\ 804}# (quote (lexical)))
(values
- #{type\ 4468}#
- (#{binding-value\ 3788}# #{b\ 4467}#)
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{type\ 4468}# (quote (global)))
+ #{type\ 804}#
+ (#{binding-value\ 124}# #{b\ 803}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{type\ 804}# (quote (global)))
(values
- #{type\ 4468}#
- #{n\ 4466}#
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{type\ 4468}# (quote (macro)))
- (if #{for-car?\ 4465}#
+ #{type\ 804}#
+ #{n\ 802}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{type\ 804}# (quote (macro)))
+ (if #{for-car?\ 801}#
(values
- #{type\ 4468}#
- (#{binding-value\ 3788}# #{b\ 4467}#)
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (#{syntax-type\ 3829}#
- (#{chi-macro\ 3834}#
- (#{binding-value\ 3788}# #{b\ 4467}#)
- #{e\ 4459}#
- #{r\ 4460}#
- #{w\ 4461}#
- #{rib\ 4463}#
- #{mod\ 4464}#)
- #{r\ 4460}#
+ #{type\ 804}#
+ (#{binding-value\ 124}# #{b\ 803}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (#{syntax-type\ 165}#
+ (#{chi-macro\ 170}#
+ (#{binding-value\ 124}# #{b\ 803}#)
+ #{e\ 795}#
+ #{r\ 796}#
+ #{w\ 797}#
+ #{rib\ 799}#
+ #{mod\ 800}#)
+ #{r\ 796}#
'(())
- #{s\ 4462}#
- #{rib\ 4463}#
- #{mod\ 4464}#
+ #{s\ 798}#
+ #{rib\ 799}#
+ #{mod\ 800}#
#f))
(values
- #{type\ 4468}#
- (#{binding-value\ 3788}# #{b\ 4467}#)
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)))))))
- (if (pair? #{e\ 4459}#)
- (let ((#{first\ 4469}# (car #{e\ 4459}#)))
+ #{type\ 804}#
+ (#{binding-value\ 124}# #{b\ 803}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)))))))
+ (if (pair? #{e\ 795}#)
+ (let ((#{first\ 805}# (car #{e\ 795}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 3829}#
- #{first\ 4469}#
- #{r\ 4460}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{rib\ 4463}#
- #{mod\ 4464}#
+ (#{syntax-type\ 165}#
+ #{first\ 805}#
+ #{r\ 796}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{rib\ 799}#
+ #{mod\ 800}#
#t))
- (lambda (#{ftype\ 4470}#
- #{fval\ 4471}#
- #{fe\ 4472}#
- #{fw\ 4473}#
- #{fs\ 4474}#
- #{fmod\ 4475}#)
- (if (memv #{ftype\ 4470}# (quote (lexical)))
+ (lambda (#{ftype\ 806}#
+ #{fval\ 807}#
+ #{fe\ 808}#
+ #{fw\ 809}#
+ #{fs\ 810}#
+ #{fmod\ 811}#)
+ (if (memv #{ftype\ 806}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 4471}#
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}# (quote (global)))
+ #{fval\ 807}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 3778}#
- #{fval\ 4471}#
- #{w\ 4461}#
- #{fmod\ 4475}#)
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}# (quote (macro)))
- (#{syntax-type\ 3829}#
- (#{chi-macro\ 3834}#
- #{fval\ 4471}#
- #{e\ 4459}#
- #{r\ 4460}#
- #{w\ 4461}#
- #{rib\ 4463}#
- #{mod\ 4464}#)
- #{r\ 4460}#
+ (#{make-syntax-object\ 114}#
+ #{fval\ 807}#
+ #{w\ 797}#
+ #{fmod\ 811}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}# (quote (macro)))
+ (#{syntax-type\ 165}#
+ (#{chi-macro\ 170}#
+ #{fval\ 807}#
+ #{e\ 795}#
+ #{r\ 796}#
+ #{w\ 797}#
+ #{rib\ 799}#
+ #{mod\ 800}#)
+ #{r\ 796}#
'(())
- #{s\ 4462}#
- #{rib\ 4463}#
- #{mod\ 4464}#
- #{for-car?\ 4465}#)
- (if (memv #{ftype\ 4470}# (quote (module-ref)))
+ #{s\ 798}#
+ #{rib\ 799}#
+ #{mod\ 800}#
+ #{for-car?\ 801}#)
+ (if (memv #{ftype\ 806}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 4471}# #{e\ 4459}#))
- (lambda (#{sym\ 4476}# #{mod\ 4477}#)
- (#{syntax-type\ 3829}#
- #{sym\ 4476}#
- #{r\ 4460}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{rib\ 4463}#
- #{mod\ 4477}#
- #{for-car?\ 4465}#)))
- (if (memv #{ftype\ 4470}# (quote (core)))
+ (lambda () (#{fval\ 807}# #{e\ 795}#))
+ (lambda (#{sym\ 812}# #{mod\ 813}#)
+ (#{syntax-type\ 165}#
+ #{sym\ 812}#
+ #{r\ 796}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{rib\ 799}#
+ #{mod\ 813}#
+ #{for-car?\ 801}#)))
+ (if (memv #{ftype\ 806}# (quote (core)))
(values
'core-form
- #{fval\ 4471}#
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}#
+ #{fval\ 807}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 4471}#
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}# (quote (begin)))
+ #{fval\ 807}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
- (if (memv #{ftype\ 4470}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
+ (if (memv #{ftype\ 806}#
'(define))
- ((lambda (#{tmp\ 4478}#)
- ((lambda (#{tmp\ 4479}#)
- (if (if #{tmp\ 4479}#
- (apply (lambda (#{_\ 4480}#
- #{name\ 4481}#
- #{val\ 4482}#)
- (#{id?\ 3795}#
- #{name\ 4481}#))
- #{tmp\ 4479}#)
+ ((lambda (#{tmp\ 814}#)
+ ((lambda (#{tmp\ 815}#)
+ (if (if #{tmp\ 815}#
+ (apply (lambda (#{_\ 816}#
+ #{name\ 817}#
+ #{val\ 818}#)
+ (#{id?\ 131}#
+ #{name\ 817}#))
+ #{tmp\ 815}#)
#f)
- (apply (lambda (#{_\ 4483}#
- #{name\ 4484}#
- #{val\ 4485}#)
+ (apply (lambda (#{_\ 819}#
+ #{name\ 820}#
+ #{val\ 821}#)
(values
'define-form
- #{name\ 4484}#
- #{val\ 4485}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#))
- #{tmp\ 4479}#)
- ((lambda (#{tmp\ 4486}#)
- (if (if #{tmp\ 4486}#
- (apply (lambda (#{_\ 4487}#
- #{name\ 4488}#
- #{args\ 4489}#
- #{e1\ 4490}#
- #{e2\ 4491}#)
- (if (#{id?\ 3795}#
- #{name\ 4488}#)
- (#{valid-bound-ids?\ 3820}#
- (#{lambda-var-list\ 3846}#
- #{args\ 4489}#))
+ #{name\ 820}#
+ #{val\ 821}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#))
+ #{tmp\ 815}#)
+ ((lambda (#{tmp\ 822}#)
+ (if (if #{tmp\ 822}#
+ (apply (lambda (#{_\ 823}#
+ #{name\ 824}#
+ #{args\ 825}#
+ #{e1\ 826}#
+ #{e2\ 827}#)
+ (if (#{id?\ 131}#
+ #{name\ 824}#)
+ (#{valid-bound-ids?\ 156}#
+ (#{lambda-var-list\ 182}#
+ #{args\ 825}#))
#f))
- #{tmp\ 4486}#)
+ #{tmp\ 822}#)
#f)
- (apply (lambda (#{_\ 4492}#
- #{name\ 4493}#
- #{args\ 4494}#
- #{e1\ 4495}#
- #{e2\ 4496}#)
+ (apply (lambda (#{_\ 828}#
+ #{name\ 829}#
+ #{args\ 830}#
+ #{e1\ 831}#
+ #{e2\ 832}#)
(values
'define-form
- (#{wrap\ 3823}#
- #{name\ 4493}#
- #{w\ 4461}#
- #{mod\ 4464}#)
- (#{decorate-source\ 3758}#
+ (#{wrap\ 159}#
+ #{name\ 829}#
+ #{w\ 797}#
+ #{mod\ 800}#)
+ (#{decorate-source\ 94}#
(cons '#(syntax-object
lambda
((top)
@@ -4004,33 +3970,33 @@
"i")))
(hygiene
guile))
- (#{wrap\ 3823}#
- (cons #{args\ 4494}#
- (cons #{e1\ 4495}#
- #{e2\ 4496}#))
- #{w\ 4461}#
- #{mod\ 4464}#))
- #{s\ 4462}#)
+ (#{wrap\ 159}#
+ (cons #{args\ 830}#
+ (cons #{e1\ 831}#
+ #{e2\ 832}#))
+ #{w\ 797}#
+ #{mod\ 800}#))
+ #{s\ 798}#)
'(())
- #{s\ 4462}#
- #{mod\ 4464}#))
- #{tmp\ 4486}#)
- ((lambda (#{tmp\ 4498}#)
- (if (if #{tmp\ 4498}#
- (apply (lambda (#{_\ 4499}#
- #{name\ 4500}#)
- (#{id?\ 3795}#
- #{name\ 4500}#))
- #{tmp\ 4498}#)
+ #{s\ 798}#
+ #{mod\ 800}#))
+ #{tmp\ 822}#)
+ ((lambda (#{tmp\ 834}#)
+ (if (if #{tmp\ 834}#
+ (apply (lambda (#{_\ 835}#
+ #{name\ 836}#)
+ (#{id?\ 131}#
+ #{name\ 836}#))
+ #{tmp\ 834}#)
#f)
- (apply (lambda (#{_\ 4501}#
- #{name\ 4502}#)
+ (apply (lambda (#{_\ 837}#
+ #{name\ 838}#)
(values
'define-form
- (#{wrap\ 3823}#
- #{name\ 4502}#
- #{w\ 4461}#
- #{mod\ 4464}#)
+ (#{wrap\ 159}#
+ #{name\ 838}#
+ #{w\ 797}#
+ #{mod\ 800}#)
'(#(syntax-object
if
((top)
@@ -5352,3584 +5318,3654 @@
(hygiene
guile)))
'(())
- #{s\ 4462}#
- #{mod\ 4464}#))
- #{tmp\ 4498}#)
+ #{s\ 798}#
+ #{mod\ 800}#))
+ #{tmp\ 834}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4478}#)))
+ #{tmp\ 814}#)))
($sc-dispatch
- #{tmp\ 4478}#
+ #{tmp\ 814}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4478}#
+ #{tmp\ 814}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4478}#
+ #{tmp\ 814}#
'(any any any))))
- #{e\ 4459}#)
- (if (memv #{ftype\ 4470}#
+ #{e\ 795}#)
+ (if (memv #{ftype\ 806}#
'(define-syntax))
- ((lambda (#{tmp\ 4503}#)
- ((lambda (#{tmp\ 4504}#)
- (if (if #{tmp\ 4504}#
- (apply (lambda (#{_\ 4505}#
- #{name\ 4506}#
- #{val\ 4507}#)
- (#{id?\ 3795}#
- #{name\ 4506}#))
- #{tmp\ 4504}#)
+ ((lambda (#{tmp\ 839}#)
+ ((lambda (#{tmp\ 840}#)
+ (if (if #{tmp\ 840}#
+ (apply (lambda (#{_\ 841}#
+ #{name\ 842}#
+ #{val\ 843}#)
+ (#{id?\ 131}#
+ #{name\ 842}#))
+ #{tmp\ 840}#)
#f)
- (apply (lambda (#{_\ 4508}#
- #{name\ 4509}#
- #{val\ 4510}#)
+ (apply (lambda (#{_\ 844}#
+ #{name\ 845}#
+ #{val\ 846}#)
(values
'define-syntax-form
- #{name\ 4509}#
- #{val\ 4510}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#))
- #{tmp\ 4504}#)
+ #{name\ 845}#
+ #{val\ 846}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#))
+ #{tmp\ 840}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4503}#)))
+ #{tmp\ 839}#)))
($sc-dispatch
- #{tmp\ 4503}#
+ #{tmp\ 839}#
'(any any any))))
- #{e\ 4459}#)
+ #{e\ 795}#)
(values
'call
#f
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#))))))))))))))
- (if (#{syntax-object?\ 3779}# #{e\ 4459}#)
- (#{syntax-type\ 3829}#
- (#{syntax-object-expression\ 3780}# #{e\ 4459}#)
- #{r\ 4460}#
- (#{join-wraps\ 3814}#
- #{w\ 4461}#
- (#{syntax-object-wrap\ 3781}# #{e\ 4459}#))
- #{s\ 4462}#
- #{rib\ 4463}#
- (let ((#{t\ 4511}#
- (#{syntax-object-module\ 3782}# #{e\ 4459}#)))
- (if #{t\ 4511}# #{t\ 4511}# #{mod\ 4464}#))
- #{for-car?\ 4465}#)
- (if (self-evaluating? #{e\ 4459}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#))))))))))))))
+ (if (#{syntax-object?\ 115}# #{e\ 795}#)
+ (#{syntax-type\ 165}#
+ (#{syntax-object-expression\ 116}# #{e\ 795}#)
+ #{r\ 796}#
+ (#{join-wraps\ 150}#
+ #{w\ 797}#
+ (#{syntax-object-wrap\ 117}# #{e\ 795}#))
+ #{s\ 798}#
+ #{rib\ 799}#
+ (let ((#{t\ 847}# (#{syntax-object-module\ 118}#
+ #{e\ 795}#)))
+ (if #{t\ 847}# #{t\ 847}# #{mod\ 800}#))
+ #{for-car?\ 801}#)
+ (if (self-evaluating? #{e\ 795}#)
(values
'constant
#f
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)
(values
'other
#f
- #{e\ 4459}#
- #{w\ 4461}#
- #{s\ 4462}#
- #{mod\ 4464}#)))))))
- (#{chi-when-list\ 3828}#
- (lambda (#{e\ 4512}# #{when-list\ 4513}# #{w\ 4514}#)
- (letrec ((#{f\ 4515}#
- (lambda (#{when-list\ 4516}# #{situations\ 4517}#)
- (if (null? #{when-list\ 4516}#)
- #{situations\ 4517}#
- (#{f\ 4515}#
- (cdr #{when-list\ 4516}#)
- (cons (let ((#{x\ 4518}#
- (car #{when-list\ 4516}#)))
- (if (#{free-id=?\ 3818}#
- #{x\ 4518}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'compile
- (if (#{free-id=?\ 3818}#
- #{x\ 4518}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'load
- (if (#{free-id=?\ 3818}#
- #{x\ 4518}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'eval
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e\ 4512}#
- (#{wrap\ 3823}#
- #{x\ 4518}#
- #{w\ 4514}#
- #f))))))
- #{situations\ 4517}#))))))
- (#{f\ 4515}# #{when-list\ 4513}# (quote ())))))
- (#{chi-install-global\ 3827}#
- (lambda (#{name\ 4519}# #{e\ 4520}#)
- (#{build-global-definition\ 3768}#
+ #{e\ 795}#
+ #{w\ 797}#
+ #{s\ 798}#
+ #{mod\ 800}#)))))))
+ (#{chi-when-list\ 164}#
+ (lambda (#{e\ 848}# #{when-list\ 849}# #{w\ 850}#)
+ (letrec ((#{f\ 851}# (lambda (#{when-list\ 852}#
+ #{situations\ 853}#)
+ (if (null? #{when-list\ 852}#)
+ #{situations\ 853}#
+ (#{f\ 851}# (cdr #{when-list\ 852}#)
+ (cons (let ((#{x\ 854}# (car #{when-list\ 852}#)))
+ (if (#{free-id=?\ 154}#
+ #{x\ 854}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top)
+ (top))
+ ("i"
+ "i")))
+ (hygiene
+ guile)))
+ 'compile
+ (if (#{free-id=?\ 154}#
+ #{x\ 854}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top)
+ (top))
+ ("i"
+ "i")))
+ (hygiene
+ guile)))
+ 'load
+ (if (#{free-id=?\ 154}#
+ #{x\ 854}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top)
+ (top))
+ ("i"
+ "i")))
+ (hygiene
+ guile)))
+ 'eval
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e\ 848}#
+ (#{wrap\ 159}#
+ #{x\ 854}#
+ #{w\ 850}#
+ #f))))))
+ #{situations\ 853}#))))))
+ (#{f\ 851}# #{when-list\ 849}# (quote ())))))
+ (#{chi-install-global\ 163}#
+ (lambda (#{name\ 855}# #{e\ 856}#)
+ (#{build-global-definition\ 104}#
#f
- #{name\ 4519}#
- (if (let ((#{v\ 4521}#
- (module-variable
- (current-module)
- #{name\ 4519}#)))
- (if #{v\ 4521}#
- (if (variable-bound? #{v\ 4521}#)
- (if (macro? (variable-ref #{v\ 4521}#))
- (not (eq? (macro-type (variable-ref #{v\ 4521}#))
+ #{name\ 855}#
+ (if (let ((#{v\ 857}# (module-variable
+ (current-module)
+ #{name\ 855}#)))
+ (if #{v\ 857}#
+ (if (variable-bound? #{v\ 857}#)
+ (if (macro? (variable-ref #{v\ 857}#))
+ (not (eq? (macro-type (variable-ref #{v\ 857}#))
'syncase-macro))
#f)
#f)
#f))
- (#{build-application\ 3760}#
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'make-extended-syncase-macro)
- (list (#{build-application\ 3760}#
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}# #f (quote module-ref))
- (list (#{build-application\ 3760}#
+ (#{build-primref\ 108}# #f (quote module-ref))
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'current-module)
'())
- (#{build-data\ 3773}# #f #{name\ 4519}#)))
- (#{build-data\ 3773}# #f (quote macro))
- (#{build-application\ 3760}#
+ (#{build-data\ 109}# #f #{name\ 855}#)))
+ (#{build-data\ 109}# #f (quote macro))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}# #f (quote cons))
- (list #{e\ 4520}#
- (#{build-application\ 3760}#
+ (#{build-primref\ 108}# #f (quote cons))
+ (list #{e\ 856}#
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'module-name)
- (list (#{build-application\ 3760}#
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'current-module)
'())))))))
- (#{build-application\ 3760}#
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'make-syncase-macro)
- (list (#{build-data\ 3773}# #f (quote macro))
- (#{build-application\ 3760}#
+ (list (#{build-data\ 109}# #f (quote macro))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}# #f (quote cons))
- (list #{e\ 4520}#
- (#{build-application\ 3760}#
+ (#{build-primref\ 108}# #f (quote cons))
+ (list #{e\ 856}#
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'module-name)
- (list (#{build-application\ 3760}#
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'current-module)
'())))))))))))
- (#{chi-top-sequence\ 3826}#
- (lambda (#{body\ 4522}#
- #{r\ 4523}#
- #{w\ 4524}#
- #{s\ 4525}#
- #{m\ 4526}#
- #{esew\ 4527}#
- #{mod\ 4528}#)
- (#{build-sequence\ 3774}#
- #{s\ 4525}#
- (letrec ((#{dobody\ 4529}#
- (lambda (#{body\ 4530}#
- #{r\ 4531}#
- #{w\ 4532}#
- #{m\ 4533}#
- #{esew\ 4534}#
- #{mod\ 4535}#)
- (if (null? #{body\ 4530}#)
+ (#{chi-top-sequence\ 162}#
+ (lambda (#{body\ 858}#
+ #{r\ 859}#
+ #{w\ 860}#
+ #{s\ 861}#
+ #{m\ 862}#
+ #{esew\ 863}#
+ #{mod\ 864}#)
+ (#{build-sequence\ 110}#
+ #{s\ 861}#
+ (letrec ((#{dobody\ 865}#
+ (lambda (#{body\ 866}#
+ #{r\ 867}#
+ #{w\ 868}#
+ #{m\ 869}#
+ #{esew\ 870}#
+ #{mod\ 871}#)
+ (if (null? #{body\ 866}#)
'()
- (let ((#{first\ 4536}#
- (#{chi-top\ 3830}#
- (car #{body\ 4530}#)
- #{r\ 4531}#
- #{w\ 4532}#
- #{m\ 4533}#
- #{esew\ 4534}#
- #{mod\ 4535}#)))
- (cons #{first\ 4536}#
- (#{dobody\ 4529}#
- (cdr #{body\ 4530}#)
- #{r\ 4531}#
- #{w\ 4532}#
- #{m\ 4533}#
- #{esew\ 4534}#
- #{mod\ 4535}#)))))))
- (#{dobody\ 4529}#
- #{body\ 4522}#
- #{r\ 4523}#
- #{w\ 4524}#
- #{m\ 4526}#
- #{esew\ 4527}#
- #{mod\ 4528}#)))))
- (#{chi-sequence\ 3825}#
- (lambda (#{body\ 4537}#
- #{r\ 4538}#
- #{w\ 4539}#
- #{s\ 4540}#
- #{mod\ 4541}#)
- (#{build-sequence\ 3774}#
- #{s\ 4540}#
- (letrec ((#{dobody\ 4542}#
- (lambda (#{body\ 4543}#
- #{r\ 4544}#
- #{w\ 4545}#
- #{mod\ 4546}#)
- (if (null? #{body\ 4543}#)
+ (let ((#{first\ 872}#
+ (#{chi-top\ 166}#
+ (car #{body\ 866}#)
+ #{r\ 867}#
+ #{w\ 868}#
+ #{m\ 869}#
+ #{esew\ 870}#
+ #{mod\ 871}#)))
+ (cons #{first\ 872}#
+ (#{dobody\ 865}#
+ (cdr #{body\ 866}#)
+ #{r\ 867}#
+ #{w\ 868}#
+ #{m\ 869}#
+ #{esew\ 870}#
+ #{mod\ 871}#)))))))
+ (#{dobody\ 865}#
+ #{body\ 858}#
+ #{r\ 859}#
+ #{w\ 860}#
+ #{m\ 862}#
+ #{esew\ 863}#
+ #{mod\ 864}#)))))
+ (#{chi-sequence\ 161}#
+ (lambda (#{body\ 873}#
+ #{r\ 874}#
+ #{w\ 875}#
+ #{s\ 876}#
+ #{mod\ 877}#)
+ (#{build-sequence\ 110}#
+ #{s\ 876}#
+ (letrec ((#{dobody\ 878}#
+ (lambda (#{body\ 879}#
+ #{r\ 880}#
+ #{w\ 881}#
+ #{mod\ 882}#)
+ (if (null? #{body\ 879}#)
'()
- (let ((#{first\ 4547}#
- (#{chi\ 3831}#
- (car #{body\ 4543}#)
- #{r\ 4544}#
- #{w\ 4545}#
- #{mod\ 4546}#)))
- (cons #{first\ 4547}#
- (#{dobody\ 4542}#
- (cdr #{body\ 4543}#)
- #{r\ 4544}#
- #{w\ 4545}#
- #{mod\ 4546}#)))))))
- (#{dobody\ 4542}#
- #{body\ 4537}#
- #{r\ 4538}#
- #{w\ 4539}#
- #{mod\ 4541}#)))))
- (#{source-wrap\ 3824}#
- (lambda (#{x\ 4548}#
- #{w\ 4549}#
- #{s\ 4550}#
- #{defmod\ 4551}#)
- (#{wrap\ 3823}#
- (#{decorate-source\ 3758}#
- #{x\ 4548}#
- #{s\ 4550}#)
- #{w\ 4549}#
- #{defmod\ 4551}#)))
- (#{wrap\ 3823}#
- (lambda (#{x\ 4552}# #{w\ 4553}# #{defmod\ 4554}#)
- (if (if (null? (#{wrap-marks\ 3798}# #{w\ 4553}#))
- (null? (#{wrap-subst\ 3799}# #{w\ 4553}#))
+ (let ((#{first\ 883}#
+ (#{chi\ 167}#
+ (car #{body\ 879}#)
+ #{r\ 880}#
+ #{w\ 881}#
+ #{mod\ 882}#)))
+ (cons #{first\ 883}#
+ (#{dobody\ 878}#
+ (cdr #{body\ 879}#)
+ #{r\ 880}#
+ #{w\ 881}#
+ #{mod\ 882}#)))))))
+ (#{dobody\ 878}#
+ #{body\ 873}#
+ #{r\ 874}#
+ #{w\ 875}#
+ #{mod\ 877}#)))))
+ (#{source-wrap\ 160}#
+ (lambda (#{x\ 884}#
+ #{w\ 885}#
+ #{s\ 886}#
+ #{defmod\ 887}#)
+ (#{wrap\ 159}#
+ (#{decorate-source\ 94}# #{x\ 884}# #{s\ 886}#)
+ #{w\ 885}#
+ #{defmod\ 887}#)))
+ (#{wrap\ 159}#
+ (lambda (#{x\ 888}# #{w\ 889}# #{defmod\ 890}#)
+ (if (if (null? (#{wrap-marks\ 134}# #{w\ 889}#))
+ (null? (#{wrap-subst\ 135}# #{w\ 889}#))
#f)
- #{x\ 4552}#
- (if (#{syntax-object?\ 3779}# #{x\ 4552}#)
- (#{make-syntax-object\ 3778}#
- (#{syntax-object-expression\ 3780}# #{x\ 4552}#)
- (#{join-wraps\ 3814}#
- #{w\ 4553}#
- (#{syntax-object-wrap\ 3781}# #{x\ 4552}#))
- (#{syntax-object-module\ 3782}# #{x\ 4552}#))
- (if (null? #{x\ 4552}#)
- #{x\ 4552}#
- (#{make-syntax-object\ 3778}#
- #{x\ 4552}#
- #{w\ 4553}#
- #{defmod\ 4554}#))))))
- (#{bound-id-member?\ 3822}#
- (lambda (#{x\ 4555}# #{list\ 4556}#)
- (if (not (null? #{list\ 4556}#))
- (let ((#{t\ 4557}#
- (#{bound-id=?\ 3819}#
- #{x\ 4555}#
- (car #{list\ 4556}#))))
- (if #{t\ 4557}#
- #{t\ 4557}#
- (#{bound-id-member?\ 3822}#
- #{x\ 4555}#
- (cdr #{list\ 4556}#))))
+ #{x\ 888}#
+ (if (#{syntax-object?\ 115}# #{x\ 888}#)
+ (#{make-syntax-object\ 114}#
+ (#{syntax-object-expression\ 116}# #{x\ 888}#)
+ (#{join-wraps\ 150}#
+ #{w\ 889}#
+ (#{syntax-object-wrap\ 117}# #{x\ 888}#))
+ (#{syntax-object-module\ 118}# #{x\ 888}#))
+ (if (null? #{x\ 888}#)
+ #{x\ 888}#
+ (#{make-syntax-object\ 114}#
+ #{x\ 888}#
+ #{w\ 889}#
+ #{defmod\ 890}#))))))
+ (#{bound-id-member?\ 158}#
+ (lambda (#{x\ 891}# #{list\ 892}#)
+ (if (not (null? #{list\ 892}#))
+ (let ((#{t\ 893}# (#{bound-id=?\ 155}#
+ #{x\ 891}#
+ (car #{list\ 892}#))))
+ (if #{t\ 893}#
+ #{t\ 893}#
+ (#{bound-id-member?\ 158}#
+ #{x\ 891}#
+ (cdr #{list\ 892}#))))
#f)))
- (#{distinct-bound-ids?\ 3821}#
- (lambda (#{ids\ 4558}#)
- (letrec ((#{distinct?\ 4559}#
- (lambda (#{ids\ 4560}#)
- (let ((#{t\ 4561}# (null? #{ids\ 4560}#)))
- (if #{t\ 4561}#
- #{t\ 4561}#
- (if (not (#{bound-id-member?\ 3822}#
- (car #{ids\ 4560}#)
- (cdr #{ids\ 4560}#)))
- (#{distinct?\ 4559}# (cdr #{ids\ 4560}#))
+ (#{distinct-bound-ids?\ 157}#
+ (lambda (#{ids\ 894}#)
+ (letrec ((#{distinct?\ 895}#
+ (lambda (#{ids\ 896}#)
+ (let ((#{t\ 897}# (null? #{ids\ 896}#)))
+ (if #{t\ 897}#
+ #{t\ 897}#
+ (if (not (#{bound-id-member?\ 158}#
+ (car #{ids\ 896}#)
+ (cdr #{ids\ 896}#)))
+ (#{distinct?\ 895}# (cdr #{ids\ 896}#))
#f))))))
- (#{distinct?\ 4559}# #{ids\ 4558}#))))
- (#{valid-bound-ids?\ 3820}#
- (lambda (#{ids\ 4562}#)
- (if (letrec ((#{all-ids?\ 4563}#
- (lambda (#{ids\ 4564}#)
- (let ((#{t\ 4565}# (null? #{ids\ 4564}#)))
- (if #{t\ 4565}#
- #{t\ 4565}#
- (if (#{id?\ 3795}# (car #{ids\ 4564}#))
- (#{all-ids?\ 4563}# (cdr #{ids\ 4564}#))
+ (#{distinct?\ 895}# #{ids\ 894}#))))
+ (#{valid-bound-ids?\ 156}#
+ (lambda (#{ids\ 898}#)
+ (if (letrec ((#{all-ids?\ 899}#
+ (lambda (#{ids\ 900}#)
+ (let ((#{t\ 901}# (null? #{ids\ 900}#)))
+ (if #{t\ 901}#
+ #{t\ 901}#
+ (if (#{id?\ 131}# (car #{ids\ 900}#))
+ (#{all-ids?\ 899}# (cdr #{ids\ 900}#))
#f))))))
- (#{all-ids?\ 4563}# #{ids\ 4562}#))
- (#{distinct-bound-ids?\ 3821}# #{ids\ 4562}#)
+ (#{all-ids?\ 899}# #{ids\ 898}#))
+ (#{distinct-bound-ids?\ 157}# #{ids\ 898}#)
#f)))
- (#{bound-id=?\ 3819}#
- (lambda (#{i\ 4566}# #{j\ 4567}#)
- (if (if (#{syntax-object?\ 3779}# #{i\ 4566}#)
- (#{syntax-object?\ 3779}# #{j\ 4567}#)
+ (#{bound-id=?\ 155}#
+ (lambda (#{i\ 902}# #{j\ 903}#)
+ (if (if (#{syntax-object?\ 115}# #{i\ 902}#)
+ (#{syntax-object?\ 115}# #{j\ 903}#)
#f)
- (if (eq? (#{syntax-object-expression\ 3780}# #{i\ 4566}#)
- (#{syntax-object-expression\ 3780}# #{j\ 4567}#))
- (#{same-marks?\ 3816}#
- (#{wrap-marks\ 3798}#
- (#{syntax-object-wrap\ 3781}# #{i\ 4566}#))
- (#{wrap-marks\ 3798}#
- (#{syntax-object-wrap\ 3781}# #{j\ 4567}#)))
+ (if (eq? (#{syntax-object-expression\ 116}# #{i\ 902}#)
+ (#{syntax-object-expression\ 116}# #{j\ 903}#))
+ (#{same-marks?\ 152}#
+ (#{wrap-marks\ 134}#
+ (#{syntax-object-wrap\ 117}# #{i\ 902}#))
+ (#{wrap-marks\ 134}#
+ (#{syntax-object-wrap\ 117}# #{j\ 903}#)))
#f)
- (eq? #{i\ 4566}# #{j\ 4567}#))))
- (#{free-id=?\ 3818}#
- (lambda (#{i\ 4568}# #{j\ 4569}#)
- (if (eq? (let ((#{x\ 4570}# #{i\ 4568}#))
- (if (#{syntax-object?\ 3779}# #{x\ 4570}#)
- (#{syntax-object-expression\ 3780}# #{x\ 4570}#)
- #{x\ 4570}#))
- (let ((#{x\ 4571}# #{j\ 4569}#))
- (if (#{syntax-object?\ 3779}# #{x\ 4571}#)
- (#{syntax-object-expression\ 3780}# #{x\ 4571}#)
- #{x\ 4571}#)))
- (eq? (#{id-var-name\ 3817}# #{i\ 4568}# (quote (())))
- (#{id-var-name\ 3817}# #{j\ 4569}# (quote (()))))
+ (eq? #{i\ 902}# #{j\ 903}#))))
+ (#{free-id=?\ 154}#
+ (lambda (#{i\ 904}# #{j\ 905}#)
+ (if (eq? (let ((#{x\ 906}# #{i\ 904}#))
+ (if (#{syntax-object?\ 115}# #{x\ 906}#)
+ (#{syntax-object-expression\ 116}# #{x\ 906}#)
+ #{x\ 906}#))
+ (let ((#{x\ 907}# #{j\ 905}#))
+ (if (#{syntax-object?\ 115}# #{x\ 907}#)
+ (#{syntax-object-expression\ 116}# #{x\ 907}#)
+ #{x\ 907}#)))
+ (eq? (#{id-var-name\ 153}# #{i\ 904}# (quote (())))
+ (#{id-var-name\ 153}# #{j\ 905}# (quote (()))))
#f)))
- (#{id-var-name\ 3817}#
- (lambda (#{id\ 4572}# #{w\ 4573}#)
- (letrec ((#{search-vector-rib\ 4576}#
- (lambda (#{sym\ 4582}#
- #{subst\ 4583}#
- #{marks\ 4584}#
- #{symnames\ 4585}#
- #{ribcage\ 4586}#)
- (let ((#{n\ 4587}#
- (vector-length #{symnames\ 4585}#)))
- (letrec ((#{f\ 4588}#
- (lambda (#{i\ 4589}#)
- (if (#{fx=\ 3752}#
- #{i\ 4589}#
- #{n\ 4587}#)
- (#{search\ 4574}#
- #{sym\ 4582}#
- (cdr #{subst\ 4583}#)
- #{marks\ 4584}#)
- (if (if (eq? (vector-ref
- #{symnames\ 4585}#
- #{i\ 4589}#)
- #{sym\ 4582}#)
- (#{same-marks?\ 3816}#
- #{marks\ 4584}#
- (vector-ref
- (#{ribcage-marks\ 3805}#
- #{ribcage\ 4586}#)
- #{i\ 4589}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels\ 3806}#
- #{ribcage\ 4586}#)
- #{i\ 4589}#)
- #{marks\ 4584}#)
- (#{f\ 4588}#
- (#{fx+\ 3750}#
- #{i\ 4589}#
- 1)))))))
- (#{f\ 4588}# 0)))))
- (#{search-list-rib\ 4575}#
- (lambda (#{sym\ 4590}#
- #{subst\ 4591}#
- #{marks\ 4592}#
- #{symnames\ 4593}#
- #{ribcage\ 4594}#)
- (letrec ((#{f\ 4595}#
- (lambda (#{symnames\ 4596}# #{i\ 4597}#)
- (if (null? #{symnames\ 4596}#)
- (#{search\ 4574}#
- #{sym\ 4590}#
- (cdr #{subst\ 4591}#)
- #{marks\ 4592}#)
- (if (if (eq? (car #{symnames\ 4596}#)
- #{sym\ 4590}#)
- (#{same-marks?\ 3816}#
- #{marks\ 4592}#
- (list-ref
- (#{ribcage-marks\ 3805}#
- #{ribcage\ 4594}#)
- #{i\ 4597}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\ 3806}#
- #{ribcage\ 4594}#)
- #{i\ 4597}#)
- #{marks\ 4592}#)
- (#{f\ 4595}#
- (cdr #{symnames\ 4596}#)
- (#{fx+\ 3750}#
- #{i\ 4597}#
- 1)))))))
- (#{f\ 4595}# #{symnames\ 4593}# 0))))
- (#{search\ 4574}#
- (lambda (#{sym\ 4598}#
- #{subst\ 4599}#
- #{marks\ 4600}#)
- (if (null? #{subst\ 4599}#)
- (values #f #{marks\ 4600}#)
- (let ((#{fst\ 4601}# (car #{subst\ 4599}#)))
- (if (eq? #{fst\ 4601}# (quote shift))
- (#{search\ 4574}#
- #{sym\ 4598}#
- (cdr #{subst\ 4599}#)
- (cdr #{marks\ 4600}#))
- (let ((#{symnames\ 4602}#
- (#{ribcage-symnames\ 3804}#
- #{fst\ 4601}#)))
- (if (vector? #{symnames\ 4602}#)
- (#{search-vector-rib\ 4576}#
- #{sym\ 4598}#
- #{subst\ 4599}#
- #{marks\ 4600}#
- #{symnames\ 4602}#
- #{fst\ 4601}#)
- (#{search-list-rib\ 4575}#
- #{sym\ 4598}#
- #{subst\ 4599}#
- #{marks\ 4600}#
- #{symnames\ 4602}#
- #{fst\ 4601}#)))))))))
- (if (symbol? #{id\ 4572}#)
- (let ((#{t\ 4603}#
- (call-with-values
- (lambda ()
- (#{search\ 4574}#
- #{id\ 4572}#
- (#{wrap-subst\ 3799}# #{w\ 4573}#)
- (#{wrap-marks\ 3798}# #{w\ 4573}#)))
- (lambda (#{x\ 4604}# . #{ignore\ 4605}#)
- #{x\ 4604}#))))
- (if #{t\ 4603}# #{t\ 4603}# #{id\ 4572}#))
- (if (#{syntax-object?\ 3779}# #{id\ 4572}#)
- (let ((#{id\ 4606}#
- (#{syntax-object-expression\ 3780}# #{id\ 4572}#))
- (#{w1\ 4607}#
- (#{syntax-object-wrap\ 3781}# #{id\ 4572}#)))
- (let ((#{marks\ 4608}#
- (#{join-marks\ 3815}#
- (#{wrap-marks\ 3798}# #{w\ 4573}#)
- (#{wrap-marks\ 3798}# #{w1\ 4607}#))))
+ (#{id-var-name\ 153}#
+ (lambda (#{id\ 908}# #{w\ 909}#)
+ (letrec ((#{search-vector-rib\ 912}#
+ (lambda (#{sym\ 918}#
+ #{subst\ 919}#
+ #{marks\ 920}#
+ #{symnames\ 921}#
+ #{ribcage\ 922}#)
+ (let ((#{n\ 923}# (vector-length
+ #{symnames\ 921}#)))
+ (letrec ((#{f\ 924}# (lambda (#{i\ 925}#)
+ (if (#{fx=\ 88}#
+ #{i\ 925}#
+ #{n\ 923}#)
+ (#{search\ 910}#
+ #{sym\ 918}#
+ (cdr #{subst\ 919}#)
+ #{marks\ 920}#)
+ (if (if (eq? (vector-ref
+ #{symnames\ 921}#
+ #{i\ 925}#)
+ #{sym\ 918}#)
+ (#{same-marks?\ 152}#
+ #{marks\ 920}#
+ (vector-ref
+ (#{ribcage-marks\ 141}#
+ #{ribcage\ 922}#)
+ #{i\ 925}#))
+ #f)
+ (values
+ (vector-ref
+ (#{ribcage-labels\ 142}#
+ #{ribcage\ 922}#)
+ #{i\ 925}#)
+ #{marks\ 920}#)
+ (#{f\ 924}# (#{fx+\ 86}#
+ #{i\ 925}#
+ 1)))))))
+ (#{f\ 924}# 0)))))
+ (#{search-list-rib\ 911}#
+ (lambda (#{sym\ 926}#
+ #{subst\ 927}#
+ #{marks\ 928}#
+ #{symnames\ 929}#
+ #{ribcage\ 930}#)
+ (letrec ((#{f\ 931}# (lambda (#{symnames\ 932}#
+ #{i\ 933}#)
+ (if (null? #{symnames\ 932}#)
+ (#{search\ 910}#
+ #{sym\ 926}#
+ (cdr #{subst\ 927}#)
+ #{marks\ 928}#)
+ (if (if (eq? (car #{symnames\ 932}#)
+ #{sym\ 926}#)
+ (#{same-marks?\ 152}#
+ #{marks\ 928}#
+ (list-ref
+ (#{ribcage-marks\ 141}#
+ #{ribcage\ 930}#)
+ #{i\ 933}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\ 142}#
+ #{ribcage\ 930}#)
+ #{i\ 933}#)
+ #{marks\ 928}#)
+ (#{f\ 931}# (cdr #{symnames\ 932}#)
+ (#{fx+\ 86}#
+ #{i\ 933}#
+ 1)))))))
+ (#{f\ 931}# #{symnames\ 929}# 0))))
+ (#{search\ 910}#
+ (lambda (#{sym\ 934}# #{subst\ 935}# #{marks\ 936}#)
+ (if (null? #{subst\ 935}#)
+ (values #f #{marks\ 936}#)
+ (let ((#{fst\ 937}# (car #{subst\ 935}#)))
+ (if (eq? #{fst\ 937}# (quote shift))
+ (#{search\ 910}#
+ #{sym\ 934}#
+ (cdr #{subst\ 935}#)
+ (cdr #{marks\ 936}#))
+ (let ((#{symnames\ 938}#
+ (#{ribcage-symnames\ 140}#
+ #{fst\ 937}#)))
+ (if (vector? #{symnames\ 938}#)
+ (#{search-vector-rib\ 912}#
+ #{sym\ 934}#
+ #{subst\ 935}#
+ #{marks\ 936}#
+ #{symnames\ 938}#
+ #{fst\ 937}#)
+ (#{search-list-rib\ 911}#
+ #{sym\ 934}#
+ #{subst\ 935}#
+ #{marks\ 936}#
+ #{symnames\ 938}#
+ #{fst\ 937}#)))))))))
+ (if (symbol? #{id\ 908}#)
+ (let ((#{t\ 939}# (call-with-values
+ (lambda ()
+ (#{search\ 910}#
+ #{id\ 908}#
+ (#{wrap-subst\ 135}# #{w\ 909}#)
+ (#{wrap-marks\ 134}# #{w\ 909}#)))
+ (lambda (#{x\ 940}# . #{ignore\ 941}#)
+ #{x\ 940}#))))
+ (if #{t\ 939}# #{t\ 939}# #{id\ 908}#))
+ (if (#{syntax-object?\ 115}# #{id\ 908}#)
+ (let ((#{id\ 942}#
+ (#{syntax-object-expression\ 116}# #{id\ 908}#))
+ (#{w1\ 943}#
+ (#{syntax-object-wrap\ 117}# #{id\ 908}#)))
+ (let ((#{marks\ 944}#
+ (#{join-marks\ 151}#
+ (#{wrap-marks\ 134}# #{w\ 909}#)
+ (#{wrap-marks\ 134}# #{w1\ 943}#))))
(call-with-values
(lambda ()
- (#{search\ 4574}#
- #{id\ 4606}#
- (#{wrap-subst\ 3799}# #{w\ 4573}#)
- #{marks\ 4608}#))
- (lambda (#{new-id\ 4609}# #{marks\ 4610}#)
- (let ((#{t\ 4611}# #{new-id\ 4609}#))
- (if #{t\ 4611}#
- #{t\ 4611}#
- (let ((#{t\ 4612}#
- (call-with-values
- (lambda ()
- (#{search\ 4574}#
- #{id\ 4606}#
- (#{wrap-subst\ 3799}#
- #{w1\ 4607}#)
- #{marks\ 4610}#))
- (lambda (#{x\ 4613}#
- .
- #{ignore\ 4614}#)
- #{x\ 4613}#))))
- (if #{t\ 4612}#
- #{t\ 4612}#
- #{id\ 4606}#))))))))
+ (#{search\ 910}#
+ #{id\ 942}#
+ (#{wrap-subst\ 135}# #{w\ 909}#)
+ #{marks\ 944}#))
+ (lambda (#{new-id\ 945}# #{marks\ 946}#)
+ (let ((#{t\ 947}# #{new-id\ 945}#))
+ (if #{t\ 947}#
+ #{t\ 947}#
+ (let ((#{t\ 948}# (call-with-values
+ (lambda ()
+ (#{search\ 910}#
+ #{id\ 942}#
+ (#{wrap-subst\ 135}#
+ #{w1\ 943}#)
+ #{marks\ 946}#))
+ (lambda (#{x\ 949}#
+ .
+ #{ignore\ 950}#)
+ #{x\ 949}#))))
+ (if #{t\ 948}#
+ #{t\ 948}#
+ #{id\ 942}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 4572}#))))))
- (#{same-marks?\ 3816}#
- (lambda (#{x\ 4615}# #{y\ 4616}#)
- (let ((#{t\ 4617}# (eq? #{x\ 4615}# #{y\ 4616}#)))
- (if #{t\ 4617}#
- #{t\ 4617}#
- (if (not (null? #{x\ 4615}#))
- (if (not (null? #{y\ 4616}#))
- (if (eq? (car #{x\ 4615}#) (car #{y\ 4616}#))
- (#{same-marks?\ 3816}#
- (cdr #{x\ 4615}#)
- (cdr #{y\ 4616}#))
+ #{id\ 908}#))))))
+ (#{same-marks?\ 152}#
+ (lambda (#{x\ 951}# #{y\ 952}#)
+ (let ((#{t\ 953}# (eq? #{x\ 951}# #{y\ 952}#)))
+ (if #{t\ 953}#
+ #{t\ 953}#
+ (if (not (null? #{x\ 951}#))
+ (if (not (null? #{y\ 952}#))
+ (if (eq? (car #{x\ 951}#) (car #{y\ 952}#))
+ (#{same-marks?\ 152}#
+ (cdr #{x\ 951}#)
+ (cdr #{y\ 952}#))
#f)
#f)
#f)))))
- (#{join-marks\ 3815}#
- (lambda (#{m1\ 4618}# #{m2\ 4619}#)
- (#{smart-append\ 3813}#
- #{m1\ 4618}#
- #{m2\ 4619}#)))
- (#{join-wraps\ 3814}#
- (lambda (#{w1\ 4620}# #{w2\ 4621}#)
- (let ((#{m1\ 4622}#
- (#{wrap-marks\ 3798}# #{w1\ 4620}#))
- (#{s1\ 4623}#
- (#{wrap-subst\ 3799}# #{w1\ 4620}#)))
- (if (null? #{m1\ 4622}#)
- (if (null? #{s1\ 4623}#)
- #{w2\ 4621}#
- (#{make-wrap\ 3797}#
- (#{wrap-marks\ 3798}# #{w2\ 4621}#)
- (#{smart-append\ 3813}#
- #{s1\ 4623}#
- (#{wrap-subst\ 3799}# #{w2\ 4621}#))))
- (#{make-wrap\ 3797}#
- (#{smart-append\ 3813}#
- #{m1\ 4622}#
- (#{wrap-marks\ 3798}# #{w2\ 4621}#))
- (#{smart-append\ 3813}#
- #{s1\ 4623}#
- (#{wrap-subst\ 3799}# #{w2\ 4621}#)))))))
- (#{smart-append\ 3813}#
- (lambda (#{m1\ 4624}# #{m2\ 4625}#)
- (if (null? #{m2\ 4625}#)
- #{m1\ 4624}#
- (append #{m1\ 4624}# #{m2\ 4625}#))))
- (#{make-binding-wrap\ 3812}#
- (lambda (#{ids\ 4626}# #{labels\ 4627}# #{w\ 4628}#)
- (if (null? #{ids\ 4626}#)
- #{w\ 4628}#
- (#{make-wrap\ 3797}#
- (#{wrap-marks\ 3798}# #{w\ 4628}#)
- (cons (let ((#{labelvec\ 4629}#
- (list->vector #{labels\ 4627}#)))
- (let ((#{n\ 4630}#
- (vector-length #{labelvec\ 4629}#)))
- (let ((#{symnamevec\ 4631}#
- (make-vector #{n\ 4630}#))
- (#{marksvec\ 4632}#
- (make-vector #{n\ 4630}#)))
+ (#{join-marks\ 151}#
+ (lambda (#{m1\ 954}# #{m2\ 955}#)
+ (#{smart-append\ 149}# #{m1\ 954}# #{m2\ 955}#)))
+ (#{join-wraps\ 150}#
+ (lambda (#{w1\ 956}# #{w2\ 957}#)
+ (let ((#{m1\ 958}# (#{wrap-marks\ 134}# #{w1\ 956}#))
+ (#{s1\ 959}# (#{wrap-subst\ 135}# #{w1\ 956}#)))
+ (if (null? #{m1\ 958}#)
+ (if (null? #{s1\ 959}#)
+ #{w2\ 957}#
+ (#{make-wrap\ 133}#
+ (#{wrap-marks\ 134}# #{w2\ 957}#)
+ (#{smart-append\ 149}#
+ #{s1\ 959}#
+ (#{wrap-subst\ 135}# #{w2\ 957}#))))
+ (#{make-wrap\ 133}#
+ (#{smart-append\ 149}#
+ #{m1\ 958}#
+ (#{wrap-marks\ 134}# #{w2\ 957}#))
+ (#{smart-append\ 149}#
+ #{s1\ 959}#
+ (#{wrap-subst\ 135}# #{w2\ 957}#)))))))
+ (#{smart-append\ 149}#
+ (lambda (#{m1\ 960}# #{m2\ 961}#)
+ (if (null? #{m2\ 961}#)
+ #{m1\ 960}#
+ (append #{m1\ 960}# #{m2\ 961}#))))
+ (#{make-binding-wrap\ 148}#
+ (lambda (#{ids\ 962}# #{labels\ 963}# #{w\ 964}#)
+ (if (null? #{ids\ 962}#)
+ #{w\ 964}#
+ (#{make-wrap\ 133}#
+ (#{wrap-marks\ 134}# #{w\ 964}#)
+ (cons (let ((#{labelvec\ 965}#
+ (list->vector #{labels\ 963}#)))
+ (let ((#{n\ 966}# (vector-length
+ #{labelvec\ 965}#)))
+ (let ((#{symnamevec\ 967}#
+ (make-vector #{n\ 966}#))
+ (#{marksvec\ 968}#
+ (make-vector #{n\ 966}#)))
(begin
- (letrec ((#{f\ 4633}#
- (lambda (#{ids\ 4634}# #{i\ 4635}#)
- (if (not (null? #{ids\ 4634}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks\ 3796}#
- (car #{ids\ 4634}#)
- #{w\ 4628}#))
- (lambda (#{symname\ 4636}#
- #{marks\ 4637}#)
- (begin
- (vector-set!
- #{symnamevec\ 4631}#
- #{i\ 4635}#
- #{symname\ 4636}#)
- (vector-set!
- #{marksvec\ 4632}#
- #{i\ 4635}#
- #{marks\ 4637}#)
- (#{f\ 4633}#
- (cdr #{ids\ 4634}#)
- (#{fx+\ 3750}#
- #{i\ 4635}#
- 1)))))))))
- (#{f\ 4633}# #{ids\ 4626}# 0))
- (#{make-ribcage\ 3802}#
- #{symnamevec\ 4631}#
- #{marksvec\ 4632}#
- #{labelvec\ 4629}#)))))
- (#{wrap-subst\ 3799}# #{w\ 4628}#))))))
- (#{extend-ribcage!\ 3811}#
- (lambda (#{ribcage\ 4638}# #{id\ 4639}# #{label\ 4640}#)
+ (letrec ((#{f\ 969}# (lambda (#{ids\ 970}#
+ #{i\ 971}#)
+ (if (not (null? #{ids\ 970}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks\ 132}#
+ (car #{ids\ 970}#)
+ #{w\ 964}#))
+ (lambda (#{symname\ 972}#
+ #{marks\ 973}#)
+ (begin
+ (vector-set!
+ #{symnamevec\ 967}#
+ #{i\ 971}#
+ #{symname\ 972}#)
+ (vector-set!
+ #{marksvec\ 968}#
+ #{i\ 971}#
+ #{marks\ 973}#)
+ (#{f\ 969}# (cdr #{ids\ 970}#)
+ (#{fx+\ 86}#
+ #{i\ 971}#
+ 1)))))))))
+ (#{f\ 969}# #{ids\ 962}# 0))
+ (#{make-ribcage\ 138}#
+ #{symnamevec\ 967}#
+ #{marksvec\ 968}#
+ #{labelvec\ 965}#)))))
+ (#{wrap-subst\ 135}# #{w\ 964}#))))))
+ (#{extend-ribcage!\ 147}#
+ (lambda (#{ribcage\ 974}# #{id\ 975}# #{label\ 976}#)
(begin
- (#{set-ribcage-symnames!\ 3807}#
- #{ribcage\ 4638}#
- (cons (#{syntax-object-expression\ 3780}# #{id\ 4639}#)
- (#{ribcage-symnames\ 3804}# #{ribcage\ 4638}#)))
- (#{set-ribcage-marks!\ 3808}#
- #{ribcage\ 4638}#
- (cons (#{wrap-marks\ 3798}#
- (#{syntax-object-wrap\ 3781}# #{id\ 4639}#))
- (#{ribcage-marks\ 3805}# #{ribcage\ 4638}#)))
- (#{set-ribcage-labels!\ 3809}#
- #{ribcage\ 4638}#
- (cons #{label\ 4640}#
- (#{ribcage-labels\ 3806}# #{ribcage\ 4638}#))))))
- (#{anti-mark\ 3810}#
- (lambda (#{w\ 4641}#)
- (#{make-wrap\ 3797}#
- (cons #f (#{wrap-marks\ 3798}# #{w\ 4641}#))
+ (#{set-ribcage-symnames!\ 143}#
+ #{ribcage\ 974}#
+ (cons (#{syntax-object-expression\ 116}# #{id\ 975}#)
+ (#{ribcage-symnames\ 140}# #{ribcage\ 974}#)))
+ (#{set-ribcage-marks!\ 144}#
+ #{ribcage\ 974}#
+ (cons (#{wrap-marks\ 134}#
+ (#{syntax-object-wrap\ 117}# #{id\ 975}#))
+ (#{ribcage-marks\ 141}# #{ribcage\ 974}#)))
+ (#{set-ribcage-labels!\ 145}#
+ #{ribcage\ 974}#
+ (cons #{label\ 976}#
+ (#{ribcage-labels\ 142}# #{ribcage\ 974}#))))))
+ (#{anti-mark\ 146}#
+ (lambda (#{w\ 977}#)
+ (#{make-wrap\ 133}#
+ (cons #f (#{wrap-marks\ 134}# #{w\ 977}#))
(cons 'shift
- (#{wrap-subst\ 3799}# #{w\ 4641}#)))))
- (#{set-ribcage-labels!\ 3809}#
- (lambda (#{x\ 4642}# #{update\ 4643}#)
- (vector-set! #{x\ 4642}# 3 #{update\ 4643}#)))
- (#{set-ribcage-marks!\ 3808}#
- (lambda (#{x\ 4644}# #{update\ 4645}#)
- (vector-set! #{x\ 4644}# 2 #{update\ 4645}#)))
- (#{set-ribcage-symnames!\ 3807}#
- (lambda (#{x\ 4646}# #{update\ 4647}#)
- (vector-set! #{x\ 4646}# 1 #{update\ 4647}#)))
- (#{ribcage-labels\ 3806}#
- (lambda (#{x\ 4648}#) (vector-ref #{x\ 4648}# 3)))
- (#{ribcage-marks\ 3805}#
- (lambda (#{x\ 4649}#) (vector-ref #{x\ 4649}# 2)))
- (#{ribcage-symnames\ 3804}#
- (lambda (#{x\ 4650}#) (vector-ref #{x\ 4650}# 1)))
- (#{ribcage?\ 3803}#
- (lambda (#{x\ 4651}#)
- (if (vector? #{x\ 4651}#)
- (if (= (vector-length #{x\ 4651}#) 4)
- (eq? (vector-ref #{x\ 4651}# 0) (quote ribcage))
+ (#{wrap-subst\ 135}# #{w\ 977}#)))))
+ (#{set-ribcage-labels!\ 145}#
+ (lambda (#{x\ 978}# #{update\ 979}#)
+ (vector-set! #{x\ 978}# 3 #{update\ 979}#)))
+ (#{set-ribcage-marks!\ 144}#
+ (lambda (#{x\ 980}# #{update\ 981}#)
+ (vector-set! #{x\ 980}# 2 #{update\ 981}#)))
+ (#{set-ribcage-symnames!\ 143}#
+ (lambda (#{x\ 982}# #{update\ 983}#)
+ (vector-set! #{x\ 982}# 1 #{update\ 983}#)))
+ (#{ribcage-labels\ 142}#
+ (lambda (#{x\ 984}#) (vector-ref #{x\ 984}# 3)))
+ (#{ribcage-marks\ 141}#
+ (lambda (#{x\ 985}#) (vector-ref #{x\ 985}# 2)))
+ (#{ribcage-symnames\ 140}#
+ (lambda (#{x\ 986}#) (vector-ref #{x\ 986}# 1)))
+ (#{ribcage?\ 139}#
+ (lambda (#{x\ 987}#)
+ (if (vector? #{x\ 987}#)
+ (if (= (vector-length #{x\ 987}#) 4)
+ (eq? (vector-ref #{x\ 987}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 3802}#
- (lambda (#{symnames\ 4652}#
- #{marks\ 4653}#
- #{labels\ 4654}#)
+ (#{make-ribcage\ 138}#
+ (lambda (#{symnames\ 988}#
+ #{marks\ 989}#
+ #{labels\ 990}#)
(vector
'ribcage
- #{symnames\ 4652}#
- #{marks\ 4653}#
- #{labels\ 4654}#)))
- (#{gen-labels\ 3801}#
- (lambda (#{ls\ 4655}#)
- (if (null? #{ls\ 4655}#)
+ #{symnames\ 988}#
+ #{marks\ 989}#
+ #{labels\ 990}#)))
+ (#{gen-labels\ 137}#
+ (lambda (#{ls\ 991}#)
+ (if (null? #{ls\ 991}#)
'()
- (cons (#{gen-label\ 3800}#)
- (#{gen-labels\ 3801}# (cdr #{ls\ 4655}#))))))
- (#{gen-label\ 3800}# (lambda () (string #\i)))
- (#{wrap-subst\ 3799}# cdr)
- (#{wrap-marks\ 3798}# car)
- (#{make-wrap\ 3797}# cons)
- (#{id-sym-name&marks\ 3796}#
- (lambda (#{x\ 4656}# #{w\ 4657}#)
- (if (#{syntax-object?\ 3779}# #{x\ 4656}#)
+ (cons (#{gen-label\ 136}#)
+ (#{gen-labels\ 137}# (cdr #{ls\ 991}#))))))
+ (#{gen-label\ 136}# (lambda () (string #\i)))
+ (#{wrap-subst\ 135}# cdr)
+ (#{wrap-marks\ 134}# car)
+ (#{make-wrap\ 133}# cons)
+ (#{id-sym-name&marks\ 132}#
+ (lambda (#{x\ 992}# #{w\ 993}#)
+ (if (#{syntax-object?\ 115}# #{x\ 992}#)
(values
- (#{syntax-object-expression\ 3780}# #{x\ 4656}#)
- (#{join-marks\ 3815}#
- (#{wrap-marks\ 3798}# #{w\ 4657}#)
- (#{wrap-marks\ 3798}#
- (#{syntax-object-wrap\ 3781}# #{x\ 4656}#))))
+ (#{syntax-object-expression\ 116}# #{x\ 992}#)
+ (#{join-marks\ 151}#
+ (#{wrap-marks\ 134}# #{w\ 993}#)
+ (#{wrap-marks\ 134}#
+ (#{syntax-object-wrap\ 117}# #{x\ 992}#))))
(values
- #{x\ 4656}#
- (#{wrap-marks\ 3798}# #{w\ 4657}#)))))
- (#{id?\ 3795}#
- (lambda (#{x\ 4658}#)
- (if (symbol? #{x\ 4658}#)
+ #{x\ 992}#
+ (#{wrap-marks\ 134}# #{w\ 993}#)))))
+ (#{id?\ 131}#
+ (lambda (#{x\ 994}#)
+ (if (symbol? #{x\ 994}#)
#t
- (if (#{syntax-object?\ 3779}# #{x\ 4658}#)
+ (if (#{syntax-object?\ 115}# #{x\ 994}#)
(symbol?
- (#{syntax-object-expression\ 3780}# #{x\ 4658}#))
+ (#{syntax-object-expression\ 116}# #{x\ 994}#))
#f))))
- (#{nonsymbol-id?\ 3794}#
- (lambda (#{x\ 4659}#)
- (if (#{syntax-object?\ 3779}# #{x\ 4659}#)
+ (#{nonsymbol-id?\ 130}#
+ (lambda (#{x\ 995}#)
+ (if (#{syntax-object?\ 115}# #{x\ 995}#)
(symbol?
- (#{syntax-object-expression\ 3780}# #{x\ 4659}#))
+ (#{syntax-object-expression\ 116}# #{x\ 995}#))
#f)))
- (#{global-extend\ 3793}#
- (lambda (#{type\ 4660}# #{sym\ 4661}# #{val\ 4662}#)
- (#{put-global-definition-hook\ 3756}#
- #{sym\ 4661}#
- #{type\ 4660}#
- #{val\ 4662}#)))
- (#{lookup\ 3792}#
- (lambda (#{x\ 4663}# #{r\ 4664}# #{mod\ 4665}#)
- (let ((#{t\ 4666}# (assq #{x\ 4663}# #{r\ 4664}#)))
- (if #{t\ 4666}#
- (cdr #{t\ 4666}#)
- (if (symbol? #{x\ 4663}#)
- (let ((#{t\ 4667}#
- (#{get-global-definition-hook\ 3757}#
- #{x\ 4663}#
- #{mod\ 4665}#)))
- (if #{t\ 4667}# #{t\ 4667}# (quote (global))))
+ (#{global-extend\ 129}#
+ (lambda (#{type\ 996}# #{sym\ 997}# #{val\ 998}#)
+ (#{put-global-definition-hook\ 92}#
+ #{sym\ 997}#
+ #{type\ 996}#
+ #{val\ 998}#)))
+ (#{lookup\ 128}#
+ (lambda (#{x\ 999}# #{r\ 1000}# #{mod\ 1001}#)
+ (let ((#{t\ 1002}# (assq #{x\ 999}# #{r\ 1000}#)))
+ (if #{t\ 1002}#
+ (cdr #{t\ 1002}#)
+ (if (symbol? #{x\ 999}#)
+ (let ((#{t\ 1003}#
+ (#{get-global-definition-hook\ 93}#
+ #{x\ 999}#
+ #{mod\ 1001}#)))
+ (if #{t\ 1003}# #{t\ 1003}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 3791}#
- (lambda (#{r\ 4668}#)
- (if (null? #{r\ 4668}#)
+ (#{macros-only-env\ 127}#
+ (lambda (#{r\ 1004}#)
+ (if (null? #{r\ 1004}#)
'()
- (let ((#{a\ 4669}# (car #{r\ 4668}#)))
- (if (eq? (cadr #{a\ 4669}#) (quote macro))
- (cons #{a\ 4669}#
- (#{macros-only-env\ 3791}# (cdr #{r\ 4668}#)))
- (#{macros-only-env\ 3791}# (cdr #{r\ 4668}#)))))))
- (#{extend-var-env\ 3790}#
- (lambda (#{labels\ 4670}# #{vars\ 4671}# #{r\ 4672}#)
- (if (null? #{labels\ 4670}#)
- #{r\ 4672}#
- (#{extend-var-env\ 3790}#
- (cdr #{labels\ 4670}#)
- (cdr #{vars\ 4671}#)
- (cons (cons (car #{labels\ 4670}#)
- (cons (quote lexical) (car #{vars\ 4671}#)))
- #{r\ 4672}#)))))
- (#{extend-env\ 3789}#
- (lambda (#{labels\ 4673}# #{bindings\ 4674}# #{r\ 4675}#)
- (if (null? #{labels\ 4673}#)
- #{r\ 4675}#
- (#{extend-env\ 3789}#
- (cdr #{labels\ 4673}#)
- (cdr #{bindings\ 4674}#)
- (cons (cons (car #{labels\ 4673}#)
- (car #{bindings\ 4674}#))
- #{r\ 4675}#)))))
- (#{binding-value\ 3788}# cdr)
- (#{binding-type\ 3787}# car)
- (#{source-annotation\ 3786}#
- (lambda (#{x\ 4676}#)
- (if (#{syntax-object?\ 3779}# #{x\ 4676}#)
- (#{source-annotation\ 3786}#
- (#{syntax-object-expression\ 3780}# #{x\ 4676}#))
- (if (pair? #{x\ 4676}#)
- (let ((#{props\ 4677}# (source-properties #{x\ 4676}#)))
- (if (pair? #{props\ 4677}#) #{props\ 4677}# #f))
+ (let ((#{a\ 1005}# (car #{r\ 1004}#)))
+ (if (eq? (cadr #{a\ 1005}#) (quote macro))
+ (cons #{a\ 1005}#
+ (#{macros-only-env\ 127}# (cdr #{r\ 1004}#)))
+ (#{macros-only-env\ 127}# (cdr #{r\ 1004}#)))))))
+ (#{extend-var-env\ 126}#
+ (lambda (#{labels\ 1006}# #{vars\ 1007}# #{r\ 1008}#)
+ (if (null? #{labels\ 1006}#)
+ #{r\ 1008}#
+ (#{extend-var-env\ 126}#
+ (cdr #{labels\ 1006}#)
+ (cdr #{vars\ 1007}#)
+ (cons (cons (car #{labels\ 1006}#)
+ (cons (quote lexical) (car #{vars\ 1007}#)))
+ #{r\ 1008}#)))))
+ (#{extend-env\ 125}#
+ (lambda (#{labels\ 1009}# #{bindings\ 1010}# #{r\ 1011}#)
+ (if (null? #{labels\ 1009}#)
+ #{r\ 1011}#
+ (#{extend-env\ 125}#
+ (cdr #{labels\ 1009}#)
+ (cdr #{bindings\ 1010}#)
+ (cons (cons (car #{labels\ 1009}#)
+ (car #{bindings\ 1010}#))
+ #{r\ 1011}#)))))
+ (#{binding-value\ 124}# cdr)
+ (#{binding-type\ 123}# car)
+ (#{source-annotation\ 122}#
+ (lambda (#{x\ 1012}#)
+ (if (#{syntax-object?\ 115}# #{x\ 1012}#)
+ (#{source-annotation\ 122}#
+ (#{syntax-object-expression\ 116}# #{x\ 1012}#))
+ (if (pair? #{x\ 1012}#)
+ (let ((#{props\ 1013}# (source-properties #{x\ 1012}#)))
+ (if (pair? #{props\ 1013}#) #{props\ 1013}# #f))
#f))))
- (#{set-syntax-object-module!\ 3785}#
- (lambda (#{x\ 4678}# #{update\ 4679}#)
- (vector-set! #{x\ 4678}# 3 #{update\ 4679}#)))
- (#{set-syntax-object-wrap!\ 3784}#
- (lambda (#{x\ 4680}# #{update\ 4681}#)
- (vector-set! #{x\ 4680}# 2 #{update\ 4681}#)))
- (#{set-syntax-object-expression!\ 3783}#
- (lambda (#{x\ 4682}# #{update\ 4683}#)
- (vector-set! #{x\ 4682}# 1 #{update\ 4683}#)))
- (#{syntax-object-module\ 3782}#
- (lambda (#{x\ 4684}#) (vector-ref #{x\ 4684}# 3)))
- (#{syntax-object-wrap\ 3781}#
- (lambda (#{x\ 4685}#) (vector-ref #{x\ 4685}# 2)))
- (#{syntax-object-expression\ 3780}#
- (lambda (#{x\ 4686}#) (vector-ref #{x\ 4686}# 1)))
- (#{syntax-object?\ 3779}#
- (lambda (#{x\ 4687}#)
- (if (vector? #{x\ 4687}#)
- (if (= (vector-length #{x\ 4687}#) 4)
- (eq? (vector-ref #{x\ 4687}# 0)
+ (#{set-syntax-object-module!\ 121}#
+ (lambda (#{x\ 1014}# #{update\ 1015}#)
+ (vector-set! #{x\ 1014}# 3 #{update\ 1015}#)))
+ (#{set-syntax-object-wrap!\ 120}#
+ (lambda (#{x\ 1016}# #{update\ 1017}#)
+ (vector-set! #{x\ 1016}# 2 #{update\ 1017}#)))
+ (#{set-syntax-object-expression!\ 119}#
+ (lambda (#{x\ 1018}# #{update\ 1019}#)
+ (vector-set! #{x\ 1018}# 1 #{update\ 1019}#)))
+ (#{syntax-object-module\ 118}#
+ (lambda (#{x\ 1020}#) (vector-ref #{x\ 1020}# 3)))
+ (#{syntax-object-wrap\ 117}#
+ (lambda (#{x\ 1021}#) (vector-ref #{x\ 1021}# 2)))
+ (#{syntax-object-expression\ 116}#
+ (lambda (#{x\ 1022}#) (vector-ref #{x\ 1022}# 1)))
+ (#{syntax-object?\ 115}#
+ (lambda (#{x\ 1023}#)
+ (if (vector? #{x\ 1023}#)
+ (if (= (vector-length #{x\ 1023}#) 4)
+ (eq? (vector-ref #{x\ 1023}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 3778}#
- (lambda (#{expression\ 4688}#
- #{wrap\ 4689}#
- #{module\ 4690}#)
+ (#{make-syntax-object\ 114}#
+ (lambda (#{expression\ 1024}#
+ #{wrap\ 1025}#
+ #{module\ 1026}#)
(vector
'syntax-object
- #{expression\ 4688}#
- #{wrap\ 4689}#
- #{module\ 4690}#)))
- (#{build-letrec\ 3777}#
- (lambda (#{src\ 4691}#
- #{ids\ 4692}#
- #{vars\ 4693}#
- #{val-exps\ 4694}#
- #{body-exp\ 4695}#)
- (if (null? #{vars\ 4693}#)
- #{body-exp\ 4695}#
- (let ((#{atom-key\ 4696}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4696}# (quote (c)))
+ #{expression\ 1024}#
+ #{wrap\ 1025}#
+ #{module\ 1026}#)))
+ (#{build-letrec\ 113}#
+ (lambda (#{src\ 1027}#
+ #{ids\ 1028}#
+ #{vars\ 1029}#
+ #{val-exps\ 1030}#
+ #{body-exp\ 1031}#)
+ (if (null? #{vars\ 1029}#)
+ #{body-exp\ 1031}#
+ (let ((#{atom-key\ 1032}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1032}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 3767}#
- #{ids\ 4692}#
- #{val-exps\ 4694}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 1028}#
+ #{val-exps\ 1030}#)
((@ (language tree-il) make-letrec)
- #{src\ 4691}#
- #{ids\ 4692}#
- #{vars\ 4693}#
- #{val-exps\ 4694}#
- #{body-exp\ 4695}#))
- (#{decorate-source\ 3758}#
+ #{src\ 1027}#
+ #{ids\ 1028}#
+ #{vars\ 1029}#
+ #{val-exps\ 1030}#
+ #{body-exp\ 1031}#))
+ (#{decorate-source\ 94}#
(list 'letrec
- (map list #{vars\ 4693}# #{val-exps\ 4694}#)
- #{body-exp\ 4695}#)
- #{src\ 4691}#))))))
- (#{build-named-let\ 3776}#
- (lambda (#{src\ 4697}#
- #{ids\ 4698}#
- #{vars\ 4699}#
- #{val-exps\ 4700}#
- #{body-exp\ 4701}#)
- (let ((#{f\ 4702}# (car #{vars\ 4699}#))
- (#{f-name\ 4703}# (car #{ids\ 4698}#))
- (#{vars\ 4704}# (cdr #{vars\ 4699}#))
- (#{ids\ 4705}# (cdr #{ids\ 4698}#)))
- (let ((#{atom-key\ 4706}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4706}# (quote (c)))
- (let ((#{proc\ 4707}#
- (#{build-simple-lambda\ 3769}#
- #{src\ 4697}#
- #{ids\ 4705}#
+ (map list #{vars\ 1029}# #{val-exps\ 1030}#)
+ #{body-exp\ 1031}#)
+ #{src\ 1027}#))))))
+ (#{build-named-let\ 112}#
+ (lambda (#{src\ 1033}#
+ #{ids\ 1034}#
+ #{vars\ 1035}#
+ #{val-exps\ 1036}#
+ #{body-exp\ 1037}#)
+ (let ((#{f\ 1038}# (car #{vars\ 1035}#))
+ (#{f-name\ 1039}# (car #{ids\ 1034}#))
+ (#{vars\ 1040}# (cdr #{vars\ 1035}#))
+ (#{ids\ 1041}# (cdr #{ids\ 1034}#)))
+ (let ((#{atom-key\ 1042}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1042}# (quote (c)))
+ (let ((#{proc\ 1043}#
+ (#{build-simple-lambda\ 105}#
+ #{src\ 1033}#
+ #{ids\ 1041}#
#f
- #{vars\ 4704}#
+ #{vars\ 1040}#
#f
- #{body-exp\ 4701}#)))
+ #{body-exp\ 1037}#)))
(begin
- (#{maybe-name-value!\ 3767}#
- #{f-name\ 4703}#
- #{proc\ 4707}#)
+ (#{maybe-name-value!\ 103}#
+ #{f-name\ 1039}#
+ #{proc\ 1043}#)
(for-each
- #{maybe-name-value!\ 3767}#
- #{ids\ 4705}#
- #{val-exps\ 4700}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 1041}#
+ #{val-exps\ 1036}#)
((@ (language tree-il) make-letrec)
- #{src\ 4697}#
- (list #{f-name\ 4703}#)
- (list #{f\ 4702}#)
- (list #{proc\ 4707}#)
- (#{build-application\ 3760}#
- #{src\ 4697}#
- (#{build-lexical-reference\ 3762}#
+ #{src\ 1033}#
+ (list #{f-name\ 1039}#)
+ (list #{f\ 1038}#)
+ (list #{proc\ 1043}#)
+ (#{build-application\ 96}#
+ #{src\ 1033}#
+ (#{build-lexical-reference\ 98}#
'fun
- #{src\ 4697}#
- #{f-name\ 4703}#
- #{f\ 4702}#)
- #{val-exps\ 4700}#))))
- (#{decorate-source\ 3758}#
+ #{src\ 1033}#
+ #{f-name\ 1039}#
+ #{f\ 1038}#)
+ #{val-exps\ 1036}#))))
+ (#{decorate-source\ 94}#
(list 'letrec
- (list (list #{f\ 4702}#
+ (list (list #{f\ 1038}#
(list 'lambda
- #{vars\ 4704}#
- #{body-exp\ 4701}#)))
- (cons #{f\ 4702}# #{val-exps\ 4700}#))
- #{src\ 4697}#))))))
- (#{build-let\ 3775}#
- (lambda (#{src\ 4708}#
- #{ids\ 4709}#
- #{vars\ 4710}#
- #{val-exps\ 4711}#
- #{body-exp\ 4712}#)
- (if (null? #{vars\ 4710}#)
- #{body-exp\ 4712}#
- (let ((#{atom-key\ 4713}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4713}# (quote (c)))
+ #{vars\ 1040}#
+ #{body-exp\ 1037}#)))
+ (cons #{f\ 1038}# #{val-exps\ 1036}#))
+ #{src\ 1033}#))))))
+ (#{build-let\ 111}#
+ (lambda (#{src\ 1044}#
+ #{ids\ 1045}#
+ #{vars\ 1046}#
+ #{val-exps\ 1047}#
+ #{body-exp\ 1048}#)
+ (if (null? #{vars\ 1046}#)
+ #{body-exp\ 1048}#
+ (let ((#{atom-key\ 1049}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1049}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 3767}#
- #{ids\ 4709}#
- #{val-exps\ 4711}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 1045}#
+ #{val-exps\ 1047}#)
((@ (language tree-il) make-let)
- #{src\ 4708}#
- #{ids\ 4709}#
- #{vars\ 4710}#
- #{val-exps\ 4711}#
- #{body-exp\ 4712}#))
- (#{decorate-source\ 3758}#
+ #{src\ 1044}#
+ #{ids\ 1045}#
+ #{vars\ 1046}#
+ #{val-exps\ 1047}#
+ #{body-exp\ 1048}#))
+ (#{decorate-source\ 94}#
(list 'let
- (map list #{vars\ 4710}# #{val-exps\ 4711}#)
- #{body-exp\ 4712}#)
- #{src\ 4708}#))))))
- (#{build-sequence\ 3774}#
- (lambda (#{src\ 4714}# #{exps\ 4715}#)
- (if (null? (cdr #{exps\ 4715}#))
- (car #{exps\ 4715}#)
- (let ((#{atom-key\ 4716}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4716}# (quote (c)))
+ (map list #{vars\ 1046}# #{val-exps\ 1047}#)
+ #{body-exp\ 1048}#)
+ #{src\ 1044}#))))))
+ (#{build-sequence\ 110}#
+ (lambda (#{src\ 1050}# #{exps\ 1051}#)
+ (if (null? (cdr #{exps\ 1051}#))
+ (car #{exps\ 1051}#)
+ (let ((#{atom-key\ 1052}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1052}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 4714}#
- #{exps\ 4715}#)
- (#{decorate-source\ 3758}#
- (cons (quote begin) #{exps\ 4715}#)
- #{src\ 4714}#))))))
- (#{build-data\ 3773}#
- (lambda (#{src\ 4717}# #{exp\ 4718}#)
- (let ((#{atom-key\ 4719}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4719}# (quote (c)))
+ #{src\ 1050}#
+ #{exps\ 1051}#)
+ (#{decorate-source\ 94}#
+ (cons (quote begin) #{exps\ 1051}#)
+ #{src\ 1050}#))))))
+ (#{build-data\ 109}#
+ (lambda (#{src\ 1053}# #{exp\ 1054}#)
+ (let ((#{atom-key\ 1055}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1055}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 4717}#
- #{exp\ 4718}#)
- (#{decorate-source\ 3758}#
- (if (if (self-evaluating? #{exp\ 4718}#)
- (not (vector? #{exp\ 4718}#))
+ #{src\ 1053}#
+ #{exp\ 1054}#)
+ (#{decorate-source\ 94}#
+ (if (if (self-evaluating? #{exp\ 1054}#)
+ (not (vector? #{exp\ 1054}#))
#f)
- #{exp\ 4718}#
- (list (quote quote) #{exp\ 4718}#))
- #{src\ 4717}#)))))
- (#{build-primref\ 3772}#
- (lambda (#{src\ 4720}# #{name\ 4721}#)
+ #{exp\ 1054}#
+ (list (quote quote) #{exp\ 1054}#))
+ #{src\ 1053}#)))))
+ (#{build-primref\ 108}#
+ (lambda (#{src\ 1056}# #{name\ 1057}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 4722}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4722}# (quote (c)))
+ (let ((#{atom-key\ 1058}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1058}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 4720}#
- #{name\ 4721}#)
- (#{decorate-source\ 3758}#
- #{name\ 4721}#
- #{src\ 4720}#)))
- (let ((#{atom-key\ 4723}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4723}# (quote (c)))
+ #{src\ 1056}#
+ #{name\ 1057}#)
+ (#{decorate-source\ 94}#
+ #{name\ 1057}#
+ #{src\ 1056}#)))
+ (let ((#{atom-key\ 1059}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1059}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 4720}#
+ #{src\ 1056}#
'(guile)
- #{name\ 4721}#
+ #{name\ 1057}#
#f)
- (#{decorate-source\ 3758}#
- (list (quote @@) (quote (guile)) #{name\ 4721}#)
- #{src\ 4720}#))))))
- (#{build-lambda-case\ 3771}#
- (lambda (#{src\ 4724}#
- #{req\ 4725}#
- #{opt\ 4726}#
- #{rest\ 4727}#
- #{kw\ 4728}#
- #{inits\ 4729}#
- #{vars\ 4730}#
- #{body\ 4731}#
- #{else-case\ 4732}#)
- (let ((#{atom-key\ 4733}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4733}# (quote (c)))
+ (#{decorate-source\ 94}#
+ (list (quote @@) (quote (guile)) #{name\ 1057}#)
+ #{src\ 1056}#))))))
+ (#{build-lambda-case\ 107}#
+ (lambda (#{src\ 1060}#
+ #{req\ 1061}#
+ #{opt\ 1062}#
+ #{rest\ 1063}#
+ #{kw\ 1064}#
+ #{inits\ 1065}#
+ #{vars\ 1066}#
+ #{body\ 1067}#
+ #{else-case\ 1068}#)
+ (let ((#{atom-key\ 1069}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1069}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 4724}#
- #{req\ 4725}#
- #{opt\ 4726}#
- #{rest\ 4727}#
- #{kw\ 4728}#
- #{inits\ 4729}#
- #{vars\ 4730}#
- #{body\ 4731}#
- #{else-case\ 4732}#)
- (let ((#{nreq\ 4734}# (length #{req\ 4725}#)))
- (let ((#{nopt\ 4735}#
- (if #{opt\ 4726}# (length #{opt\ 4726}#) 0)))
- (let ((#{rest-idx\ 4736}#
- (if #{rest\ 4727}#
- (+ #{nreq\ 4734}# #{nopt\ 4735}#)
+ #{src\ 1060}#
+ #{req\ 1061}#
+ #{opt\ 1062}#
+ #{rest\ 1063}#
+ #{kw\ 1064}#
+ #{inits\ 1065}#
+ #{vars\ 1066}#
+ #{body\ 1067}#
+ #{else-case\ 1068}#)
+ (let ((#{nreq\ 1070}# (length #{req\ 1061}#)))
+ (let ((#{nopt\ 1071}#
+ (if #{opt\ 1062}# (length #{opt\ 1062}#) 0)))
+ (let ((#{rest-idx\ 1072}#
+ (if #{rest\ 1063}#
+ (+ #{nreq\ 1070}# #{nopt\ 1071}#)
#f)))
- (let ((#{allow-other-keys?\ 4737}#
- (if #{kw\ 4728}# (car #{kw\ 4728}#) #f)))
- (let ((#{kw-indices\ 4738}#
- (map (lambda (#{x\ 4739}#)
- (cons (car #{x\ 4739}#)
+ (let ((#{allow-other-keys?\ 1073}#
+ (if #{kw\ 1064}# (car #{kw\ 1064}#) #f)))
+ (let ((#{kw-indices\ 1074}#
+ (map (lambda (#{x\ 1075}#)
+ (cons (car #{x\ 1075}#)
(list-index
- #{vars\ 4730}#
- (caddr #{x\ 4739}#))))
- (if #{kw\ 4728}#
- (cdr #{kw\ 4728}#)
+ #{vars\ 1066}#
+ (caddr #{x\ 1075}#))))
+ (if #{kw\ 1064}#
+ (cdr #{kw\ 1064}#)
'()))))
- (let ((#{nargs\ 4740}#
+ (let ((#{nargs\ 1076}#
(apply max
- (+ #{nreq\ 4734}#
- #{nopt\ 4735}#
- (if #{rest\ 4727}# 1 0))
+ (+ #{nreq\ 1070}#
+ #{nopt\ 1071}#
+ (if #{rest\ 1063}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 4738}#)))))
+ #{kw-indices\ 1074}#)))))
(begin
- (let ((#{t\ 4741}#
- (= #{nargs\ 4740}#
- (length #{vars\ 4730}#)
- (+ #{nreq\ 4734}#
- (length #{inits\ 4729}#)
- (if #{rest\ 4727}# 1 0)))))
- (if #{t\ 4741}#
- #{t\ 4741}#
+ (let ((#{t\ 1077}#
+ (= #{nargs\ 1076}#
+ (length #{vars\ 1066}#)
+ (+ #{nreq\ 1070}#
+ (length #{inits\ 1065}#)
+ (if #{rest\ 1063}# 1 0)))))
+ (if #{t\ 1077}#
+ #{t\ 1077}#
(error "something went wrong"
- #{req\ 4725}#
- #{opt\ 4726}#
- #{rest\ 4727}#
- #{kw\ 4728}#
- #{inits\ 4729}#
- #{vars\ 4730}#
- #{nreq\ 4734}#
- #{nopt\ 4735}#
- #{kw-indices\ 4738}#
- #{nargs\ 4740}#)))
- (#{decorate-source\ 3758}#
+ #{req\ 1061}#
+ #{opt\ 1062}#
+ #{rest\ 1063}#
+ #{kw\ 1064}#
+ #{inits\ 1065}#
+ #{vars\ 1066}#
+ #{nreq\ 1070}#
+ #{nopt\ 1071}#
+ #{kw-indices\ 1074}#
+ #{nargs\ 1076}#)))
+ (#{decorate-source\ 94}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\ 4734}#
- #{nopt\ 4735}#
- #{rest-idx\ 4736}#
- #{nargs\ 4740}#
- #{allow-other-keys?\ 4737}#
- #{kw-indices\ 4738}#))
+ (list #{nreq\ 1070}#
+ #{nopt\ 1071}#
+ #{rest-idx\ 1072}#
+ #{nargs\ 1076}#
+ #{allow-other-keys?\ 1073}#
+ #{kw-indices\ 1074}#))
(cons (cons 'list
- (map (lambda (#{i\ 4742}#)
+ (map (lambda (#{i\ 1078}#)
(list 'lambda
- #{vars\ 4730}#
- #{i\ 4742}#))
- #{inits\ 4729}#))
+ #{vars\ 1066}#
+ #{i\ 1078}#))
+ #{inits\ 1065}#))
'(%%args))))
'=>
(list 'lambda
'(%%%args . _)
(cons 'apply
(cons (list 'lambda
- #{vars\ 4730}#
- #{body\ 4731}#)
+ #{vars\ 1066}#
+ #{body\ 1067}#)
'(%%%args)))))
- (let ((#{t\ 4743}#
- #{else-case\ 4732}#))
- (if #{t\ 4743}#
- #{t\ 4743}#
+ (let ((#{t\ 1079}#
+ #{else-case\ 1068}#))
+ (if #{t\ 1079}#
+ #{t\ 1079}#
'((%%args
(error "wrong number of arguments"
%%args))))))
- #{src\ 4724}#))))))))))))
- (#{build-case-lambda\ 3770}#
- (lambda (#{src\ 4744}#
- #{docstring\ 4745}#
- #{body\ 4746}#)
- (let ((#{atom-key\ 4747}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4747}# (quote (c)))
+ #{src\ 1060}#))))))))))))
+ (#{build-case-lambda\ 106}#
+ (lambda (#{src\ 1080}#
+ #{docstring\ 1081}#
+ #{body\ 1082}#)
+ (let ((#{atom-key\ 1083}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1083}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 4744}#
- (if #{docstring\ 4745}#
- (list (cons (quote documentation) #{docstring\ 4745}#))
+ #{src\ 1080}#
+ (if #{docstring\ 1081}#
+ (list (cons (quote documentation) #{docstring\ 1081}#))
'())
- #{body\ 4746}#)
- (#{decorate-source\ 3758}#
+ #{body\ 1082}#)
+ (#{decorate-source\ 94}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 4745}#
- (list #{docstring\ 4745}#)
+ (if #{docstring\ 1081}#
+ (list #{docstring\ 1081}#)
'())
- (list (cons (quote cond) #{body\ 4746}#)))))
- #{src\ 4744}#)))))
- (#{build-simple-lambda\ 3769}#
- (lambda (#{src\ 4748}#
- #{req\ 4749}#
- #{rest\ 4750}#
- #{vars\ 4751}#
- #{docstring\ 4752}#
- #{exp\ 4753}#)
- (let ((#{atom-key\ 4754}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4754}# (quote (c)))
+ (list (cons (quote cond) #{body\ 1082}#)))))
+ #{src\ 1080}#)))))
+ (#{build-simple-lambda\ 105}#
+ (lambda (#{src\ 1084}#
+ #{req\ 1085}#
+ #{rest\ 1086}#
+ #{vars\ 1087}#
+ #{docstring\ 1088}#
+ #{exp\ 1089}#)
+ (let ((#{atom-key\ 1090}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1090}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 4748}#
- (if #{docstring\ 4752}#
- (list (cons (quote documentation) #{docstring\ 4752}#))
+ #{src\ 1084}#
+ (if #{docstring\ 1088}#
+ (list (cons (quote documentation) #{docstring\ 1088}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 4748}#
- #{req\ 4749}#
+ #{src\ 1084}#
+ #{req\ 1085}#
#f
- #{rest\ 4750}#
+ #{rest\ 1086}#
#f
'()
- #{vars\ 4751}#
- #{exp\ 4753}#
+ #{vars\ 1087}#
+ #{exp\ 1089}#
#f))
- (#{decorate-source\ 3758}#
+ (#{decorate-source\ 94}#
(cons 'lambda
- (cons (if #{rest\ 4750}#
- (apply cons* #{vars\ 4751}#)
- #{vars\ 4751}#)
+ (cons (if #{rest\ 1086}#
+ (apply cons* #{vars\ 1087}#)
+ #{vars\ 1087}#)
(append
- (if #{docstring\ 4752}#
- (list #{docstring\ 4752}#)
+ (if #{docstring\ 1088}#
+ (list #{docstring\ 1088}#)
'())
- (list #{exp\ 4753}#))))
- #{src\ 4748}#)))))
- (#{build-global-definition\ 3768}#
- (lambda (#{source\ 4755}# #{var\ 4756}# #{exp\ 4757}#)
- (let ((#{atom-key\ 4758}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4758}# (quote (c)))
+ (list #{exp\ 1089}#))))
+ #{src\ 1084}#)))))
+ (#{build-global-definition\ 104}#
+ (lambda (#{source\ 1091}# #{var\ 1092}# #{exp\ 1093}#)
+ (let ((#{atom-key\ 1094}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1094}# (quote (c)))
(begin
- (#{maybe-name-value!\ 3767}#
- #{var\ 4756}#
- #{exp\ 4757}#)
+ (#{maybe-name-value!\ 103}#
+ #{var\ 1092}#
+ #{exp\ 1093}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 4755}#
- #{var\ 4756}#
- #{exp\ 4757}#))
- (#{decorate-source\ 3758}#
- (list (quote define) #{var\ 4756}# #{exp\ 4757}#)
- #{source\ 4755}#)))))
- (#{maybe-name-value!\ 3767}#
- (lambda (#{name\ 4759}# #{val\ 4760}#)
- (if ((@ (language tree-il) lambda?) #{val\ 4760}#)
- (let ((#{meta\ 4761}#
+ #{source\ 1091}#
+ #{var\ 1092}#
+ #{exp\ 1093}#))
+ (#{decorate-source\ 94}#
+ (list (quote define) #{var\ 1092}# #{exp\ 1093}#)
+ #{source\ 1091}#)))))
+ (#{maybe-name-value!\ 103}#
+ (lambda (#{name\ 1095}# #{val\ 1096}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 1096}#)
+ (let ((#{meta\ 1097}#
((@ (language tree-il) lambda-meta)
- #{val\ 4760}#)))
- (if (not (assq (quote name) #{meta\ 4761}#))
+ #{val\ 1096}#)))
+ (if (not (assq (quote name) #{meta\ 1097}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 4760}#
+ #{val\ 1096}#
(acons 'name
- #{name\ 4759}#
- #{meta\ 4761}#)))))))
- (#{build-global-assignment\ 3766}#
- (lambda (#{source\ 4762}#
- #{var\ 4763}#
- #{exp\ 4764}#
- #{mod\ 4765}#)
- (#{analyze-variable\ 3764}#
- #{mod\ 4765}#
- #{var\ 4763}#
- (lambda (#{mod\ 4766}# #{var\ 4767}# #{public?\ 4768}#)
- (let ((#{atom-key\ 4769}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4769}# (quote (c)))
+ #{name\ 1095}#
+ #{meta\ 1097}#)))))))
+ (#{build-global-assignment\ 102}#
+ (lambda (#{source\ 1098}#
+ #{var\ 1099}#
+ #{exp\ 1100}#
+ #{mod\ 1101}#)
+ (#{analyze-variable\ 100}#
+ #{mod\ 1101}#
+ #{var\ 1099}#
+ (lambda (#{mod\ 1102}# #{var\ 1103}# #{public?\ 1104}#)
+ (let ((#{atom-key\ 1105}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1105}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 4762}#
- #{mod\ 4766}#
- #{var\ 4767}#
- #{public?\ 4768}#
- #{exp\ 4764}#)
- (#{decorate-source\ 3758}#
+ #{source\ 1098}#
+ #{mod\ 1102}#
+ #{var\ 1103}#
+ #{public?\ 1104}#
+ #{exp\ 1100}#)
+ (#{decorate-source\ 94}#
(list 'set!
- (list (if #{public?\ 4768}#
+ (list (if #{public?\ 1104}#
'@
'@@)
- #{mod\ 4766}#
- #{var\ 4767}#)
- #{exp\ 4764}#)
- #{source\ 4762}#))))
- (lambda (#{var\ 4770}#)
- (let ((#{atom-key\ 4771}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4771}# (quote (c)))
+ #{mod\ 1102}#
+ #{var\ 1103}#)
+ #{exp\ 1100}#)
+ #{source\ 1098}#))))
+ (lambda (#{var\ 1106}#)
+ (let ((#{atom-key\ 1107}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1107}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 4762}#
- #{var\ 4770}#
- #{exp\ 4764}#)
- (#{decorate-source\ 3758}#
- (list (quote set!) #{var\ 4770}# #{exp\ 4764}#)
- #{source\ 4762}#)))))))
- (#{build-global-reference\ 3765}#
- (lambda (#{source\ 4772}# #{var\ 4773}# #{mod\ 4774}#)
- (#{analyze-variable\ 3764}#
- #{mod\ 4774}#
- #{var\ 4773}#
- (lambda (#{mod\ 4775}# #{var\ 4776}# #{public?\ 4777}#)
- (let ((#{atom-key\ 4778}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4778}# (quote (c)))
+ #{source\ 1098}#
+ #{var\ 1106}#
+ #{exp\ 1100}#)
+ (#{decorate-source\ 94}#
+ (list (quote set!) #{var\ 1106}# #{exp\ 1100}#)
+ #{source\ 1098}#)))))))
+ (#{build-global-reference\ 101}#
+ (lambda (#{source\ 1108}# #{var\ 1109}# #{mod\ 1110}#)
+ (#{analyze-variable\ 100}#
+ #{mod\ 1110}#
+ #{var\ 1109}#
+ (lambda (#{mod\ 1111}# #{var\ 1112}# #{public?\ 1113}#)
+ (let ((#{atom-key\ 1114}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1114}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 4772}#
- #{mod\ 4775}#
- #{var\ 4776}#
- #{public?\ 4777}#)
- (#{decorate-source\ 3758}#
- (list (if #{public?\ 4777}# (quote @) (quote @@))
- #{mod\ 4775}#
- #{var\ 4776}#)
- #{source\ 4772}#))))
- (lambda (#{var\ 4779}#)
- (let ((#{atom-key\ 4780}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4780}# (quote (c)))
+ #{source\ 1108}#
+ #{mod\ 1111}#
+ #{var\ 1112}#
+ #{public?\ 1113}#)
+ (#{decorate-source\ 94}#
+ (list (if #{public?\ 1113}# (quote @) (quote @@))
+ #{mod\ 1111}#
+ #{var\ 1112}#)
+ #{source\ 1108}#))))
+ (lambda (#{var\ 1115}#)
+ (let ((#{atom-key\ 1116}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1116}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 4772}#
- #{var\ 4779}#)
- (#{decorate-source\ 3758}#
- #{var\ 4779}#
- #{source\ 4772}#)))))))
- (#{analyze-variable\ 3764}#
- (lambda (#{mod\ 4781}#
- #{var\ 4782}#
- #{modref-cont\ 4783}#
- #{bare-cont\ 4784}#)
- (if (not #{mod\ 4781}#)
- (#{bare-cont\ 4784}# #{var\ 4782}#)
- (let ((#{kind\ 4785}# (car #{mod\ 4781}#))
- (#{mod\ 4786}# (cdr #{mod\ 4781}#)))
- (if (memv #{kind\ 4785}# (quote (public)))
- (#{modref-cont\ 4783}#
- #{mod\ 4786}#
- #{var\ 4782}#
+ #{source\ 1108}#
+ #{var\ 1115}#)
+ (#{decorate-source\ 94}#
+ #{var\ 1115}#
+ #{source\ 1108}#)))))))
+ (#{analyze-variable\ 100}#
+ (lambda (#{mod\ 1117}#
+ #{var\ 1118}#
+ #{modref-cont\ 1119}#
+ #{bare-cont\ 1120}#)
+ (if (not #{mod\ 1117}#)
+ (#{bare-cont\ 1120}# #{var\ 1118}#)
+ (let ((#{kind\ 1121}# (car #{mod\ 1117}#))
+ (#{mod\ 1122}# (cdr #{mod\ 1117}#)))
+ (if (memv #{kind\ 1121}# (quote (public)))
+ (#{modref-cont\ 1119}#
+ #{mod\ 1122}#
+ #{var\ 1118}#
#t)
- (if (memv #{kind\ 4785}# (quote (private)))
+ (if (memv #{kind\ 1121}# (quote (private)))
(if (not (equal?
- #{mod\ 4786}#
+ #{mod\ 1122}#
(module-name (current-module))))
- (#{modref-cont\ 4783}#
- #{mod\ 4786}#
- #{var\ 4782}#
+ (#{modref-cont\ 1119}#
+ #{mod\ 1122}#
+ #{var\ 1118}#
#f)
- (#{bare-cont\ 4784}# #{var\ 4782}#))
- (if (memv #{kind\ 4785}# (quote (bare)))
- (#{bare-cont\ 4784}# #{var\ 4782}#)
- (if (memv #{kind\ 4785}# (quote (hygiene)))
+ (#{bare-cont\ 1120}# #{var\ 1118}#))
+ (if (memv #{kind\ 1121}# (quote (bare)))
+ (#{bare-cont\ 1120}# #{var\ 1118}#)
+ (if (memv #{kind\ 1121}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 4786}#
+ #{mod\ 1122}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 4786}#)
- #{var\ 4782}#)
+ (resolve-module #{mod\ 1122}#)
+ #{var\ 1118}#)
#f)
- (#{modref-cont\ 4783}#
- #{mod\ 4786}#
- #{var\ 4782}#
+ (#{modref-cont\ 1119}#
+ #{mod\ 1122}#
+ #{var\ 1118}#
#f)
- (#{bare-cont\ 4784}# #{var\ 4782}#))
+ (#{bare-cont\ 1120}# #{var\ 1118}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 4782}#
- #{mod\ 4786}#)))))))))
- (#{build-lexical-assignment\ 3763}#
- (lambda (#{source\ 4787}#
- #{name\ 4788}#
- #{var\ 4789}#
- #{exp\ 4790}#)
- (let ((#{atom-key\ 4791}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4791}# (quote (c)))
+ #{var\ 1118}#
+ #{mod\ 1122}#)))))))))
+ (#{build-lexical-assignment\ 99}#
+ (lambda (#{source\ 1123}#
+ #{name\ 1124}#
+ #{var\ 1125}#
+ #{exp\ 1126}#)
+ (let ((#{atom-key\ 1127}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1127}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 4787}#
- #{name\ 4788}#
- #{var\ 4789}#
- #{exp\ 4790}#)
- (#{decorate-source\ 3758}#
- (list (quote set!) #{var\ 4789}# #{exp\ 4790}#)
- #{source\ 4787}#)))))
- (#{build-lexical-reference\ 3762}#
- (lambda (#{type\ 4792}#
- #{source\ 4793}#
- #{name\ 4794}#
- #{var\ 4795}#)
- (let ((#{atom-key\ 4796}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4796}# (quote (c)))
+ #{source\ 1123}#
+ #{name\ 1124}#
+ #{var\ 1125}#
+ #{exp\ 1126}#)
+ (#{decorate-source\ 94}#
+ (list (quote set!) #{var\ 1125}# #{exp\ 1126}#)
+ #{source\ 1123}#)))))
+ (#{build-lexical-reference\ 98}#
+ (lambda (#{type\ 1128}#
+ #{source\ 1129}#
+ #{name\ 1130}#
+ #{var\ 1131}#)
+ (let ((#{atom-key\ 1132}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1132}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 4793}#
- #{name\ 4794}#
- #{var\ 4795}#)
- (#{decorate-source\ 3758}#
- #{var\ 4795}#
- #{source\ 4793}#)))))
- (#{build-conditional\ 3761}#
- (lambda (#{source\ 4797}#
- #{test-exp\ 4798}#
- #{then-exp\ 4799}#
- #{else-exp\ 4800}#)
- (let ((#{atom-key\ 4801}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4801}# (quote (c)))
+ #{source\ 1129}#
+ #{name\ 1130}#
+ #{var\ 1131}#)
+ (#{decorate-source\ 94}#
+ #{var\ 1131}#
+ #{source\ 1129}#)))))
+ (#{build-conditional\ 97}#
+ (lambda (#{source\ 1133}#
+ #{test-exp\ 1134}#
+ #{then-exp\ 1135}#
+ #{else-exp\ 1136}#)
+ (let ((#{atom-key\ 1137}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1137}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 4797}#
- #{test-exp\ 4798}#
- #{then-exp\ 4799}#
- #{else-exp\ 4800}#)
- (#{decorate-source\ 3758}#
- (if (equal? #{else-exp\ 4800}# (quote (if #f #f)))
+ #{source\ 1133}#
+ #{test-exp\ 1134}#
+ #{then-exp\ 1135}#
+ #{else-exp\ 1136}#)
+ (#{decorate-source\ 94}#
+ (if (equal? #{else-exp\ 1136}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 4798}#
- #{then-exp\ 4799}#)
+ #{test-exp\ 1134}#
+ #{then-exp\ 1135}#)
(list 'if
- #{test-exp\ 4798}#
- #{then-exp\ 4799}#
- #{else-exp\ 4800}#))
- #{source\ 4797}#)))))
- (#{build-application\ 3760}#
- (lambda (#{source\ 4802}#
- #{fun-exp\ 4803}#
- #{arg-exps\ 4804}#)
- (let ((#{atom-key\ 4805}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4805}# (quote (c)))
+ #{test-exp\ 1134}#
+ #{then-exp\ 1135}#
+ #{else-exp\ 1136}#))
+ #{source\ 1133}#)))))
+ (#{build-application\ 96}#
+ (lambda (#{source\ 1138}#
+ #{fun-exp\ 1139}#
+ #{arg-exps\ 1140}#)
+ (let ((#{atom-key\ 1141}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1141}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 4802}#
- #{fun-exp\ 4803}#
- #{arg-exps\ 4804}#)
- (#{decorate-source\ 3758}#
- (cons #{fun-exp\ 4803}# #{arg-exps\ 4804}#)
- #{source\ 4802}#)))))
- (#{build-void\ 3759}#
- (lambda (#{source\ 4806}#)
- (let ((#{atom-key\ 4807}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4807}# (quote (c)))
+ #{source\ 1138}#
+ #{fun-exp\ 1139}#
+ #{arg-exps\ 1140}#)
+ (#{decorate-source\ 94}#
+ (cons #{fun-exp\ 1139}# #{arg-exps\ 1140}#)
+ #{source\ 1138}#)))))
+ (#{build-void\ 95}#
+ (lambda (#{source\ 1142}#)
+ (let ((#{atom-key\ 1143}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1143}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 4806}#)
- (#{decorate-source\ 3758}#
+ #{source\ 1142}#)
+ (#{decorate-source\ 94}#
'(if #f #f)
- #{source\ 4806}#)))))
- (#{decorate-source\ 3758}#
- (lambda (#{e\ 4808}# #{s\ 4809}#)
+ #{source\ 1142}#)))))
+ (#{decorate-source\ 94}#
+ (lambda (#{e\ 1144}# #{s\ 1145}#)
(begin
- (if (if (pair? #{e\ 4808}#) #{s\ 4809}# #f)
- (set-source-properties! #{e\ 4808}# #{s\ 4809}#))
- #{e\ 4808}#)))
- (#{get-global-definition-hook\ 3757}#
- (lambda (#{symbol\ 4810}# #{module\ 4811}#)
+ (if (if (pair? #{e\ 1144}#) #{s\ 1145}# #f)
+ (set-source-properties! #{e\ 1144}# #{s\ 1145}#))
+ #{e\ 1144}#)))
+ (#{get-global-definition-hook\ 93}#
+ (lambda (#{symbol\ 1146}# #{module\ 1147}#)
(begin
- (if (if (not #{module\ 4811}#) (current-module) #f)
+ (if (if (not #{module\ 1147}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 4810}#))
- (let ((#{v\ 4812}#
+ #{symbol\ 1146}#))
+ (let ((#{v\ 1148}#
(module-variable
- (if #{module\ 4811}#
- (resolve-module (cdr #{module\ 4811}#))
+ (if #{module\ 1147}#
+ (resolve-module (cdr #{module\ 1147}#))
(current-module))
- #{symbol\ 4810}#)))
- (if #{v\ 4812}#
- (if (variable-bound? #{v\ 4812}#)
- (let ((#{val\ 4813}# (variable-ref #{v\ 4812}#)))
- (if (macro? #{val\ 4813}#)
- (if (syncase-macro-type #{val\ 4813}#)
- (cons (syncase-macro-type #{val\ 4813}#)
- (syncase-macro-binding #{val\ 4813}#))
+ #{symbol\ 1146}#)))
+ (if #{v\ 1148}#
+ (if (variable-bound? #{v\ 1148}#)
+ (let ((#{val\ 1149}# (variable-ref #{v\ 1148}#)))
+ (if (macro? #{val\ 1149}#)
+ (if (syncase-macro-type #{val\ 1149}#)
+ (cons (syncase-macro-type #{val\ 1149}#)
+ (syncase-macro-binding #{val\ 1149}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 3756}#
- (lambda (#{symbol\ 4814}# #{type\ 4815}# #{val\ 4816}#)
- (let ((#{existing\ 4817}#
- (let ((#{v\ 4818}#
+ (#{put-global-definition-hook\ 92}#
+ (lambda (#{symbol\ 1150}# #{type\ 1151}# #{val\ 1152}#)
+ (let ((#{existing\ 1153}#
+ (let ((#{v\ 1154}#
(module-variable
(current-module)
- #{symbol\ 4814}#)))
- (if #{v\ 4818}#
- (if (variable-bound? #{v\ 4818}#)
- (let ((#{val\ 4819}# (variable-ref #{v\ 4818}#)))
- (if (macro? #{val\ 4819}#)
- (if (not (syncase-macro-type #{val\ 4819}#))
- #{val\ 4819}#
+ #{symbol\ 1150}#)))
+ (if #{v\ 1154}#
+ (if (variable-bound? #{v\ 1154}#)
+ (let ((#{val\ 1155}# (variable-ref #{v\ 1154}#)))
+ (if (macro? #{val\ 1155}#)
+ (if (not (syncase-macro-type #{val\ 1155}#))
+ #{val\ 1155}#
#f)
#f))
#f)
#f))))
(module-define!
(current-module)
- #{symbol\ 4814}#
- (if #{existing\ 4817}#
+ #{symbol\ 1150}#
+ (if #{existing\ 1153}#
(make-extended-syncase-macro
- #{existing\ 4817}#
- #{type\ 4815}#
- #{val\ 4816}#)
- (make-syncase-macro #{type\ 4815}# #{val\ 4816}#))))))
- (#{local-eval-hook\ 3755}#
- (lambda (#{x\ 4820}# #{mod\ 4821}#)
+ #{existing\ 1153}#
+ #{type\ 1151}#
+ #{val\ 1152}#)
+ (make-syncase-macro #{type\ 1151}# #{val\ 1152}#))))))
+ (#{local-eval-hook\ 91}#
+ (lambda (#{x\ 1156}# #{mod\ 1157}#)
(primitive-eval
- (list #{noexpand\ 3748}#
- (let ((#{atom-key\ 4822}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4822}# (quote (c)))
+ (list #{noexpand\ 84}#
+ (let ((#{atom-key\ 1158}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1158}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 4820}#)
- #{x\ 4820}#))))))
- (#{top-level-eval-hook\ 3754}#
- (lambda (#{x\ 4823}# #{mod\ 4824}#)
+ #{x\ 1156}#)
+ #{x\ 1156}#))))))
+ (#{top-level-eval-hook\ 90}#
+ (lambda (#{x\ 1159}# #{mod\ 1160}#)
(primitive-eval
- (list #{noexpand\ 3748}#
- (let ((#{atom-key\ 4825}# (fluid-ref #{*mode*\ 3749}#)))
- (if (memv #{atom-key\ 4825}# (quote (c)))
+ (list #{noexpand\ 84}#
+ (let ((#{atom-key\ 1161}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 1161}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 4823}#)
- #{x\ 4823}#))))))
- (#{fx<\ 3753}# <)
- (#{fx=\ 3752}# =)
- (#{fx-\ 3751}# -)
- (#{fx+\ 3750}# +)
- (#{*mode*\ 3749}# (make-fluid))
- (#{noexpand\ 3748}# "noexpand"))
+ #{x\ 1159}#)
+ #{x\ 1159}#))))))
+ (#{fx<\ 89}# <)
+ (#{fx=\ 88}# =)
+ (#{fx-\ 87}# -)
+ (#{fx+\ 86}# +)
+ (#{*mode*\ 85}# (make-fluid))
+ (#{noexpand\ 84}# "noexpand"))
(begin
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'core
'fluid-let-syntax
- (lambda (#{e\ 4826}#
- #{r\ 4827}#
- #{w\ 4828}#
- #{s\ 4829}#
- #{mod\ 4830}#)
- ((lambda (#{tmp\ 4831}#)
- ((lambda (#{tmp\ 4832}#)
- (if (if #{tmp\ 4832}#
- (apply (lambda (#{_\ 4833}#
- #{var\ 4834}#
- #{val\ 4835}#
- #{e1\ 4836}#
- #{e2\ 4837}#)
- (#{valid-bound-ids?\ 3820}# #{var\ 4834}#))
- #{tmp\ 4832}#)
+ (lambda (#{e\ 1162}#
+ #{r\ 1163}#
+ #{w\ 1164}#
+ #{s\ 1165}#
+ #{mod\ 1166}#)
+ ((lambda (#{tmp\ 1167}#)
+ ((lambda (#{tmp\ 1168}#)
+ (if (if #{tmp\ 1168}#
+ (apply (lambda (#{_\ 1169}#
+ #{var\ 1170}#
+ #{val\ 1171}#
+ #{e1\ 1172}#
+ #{e2\ 1173}#)
+ (#{valid-bound-ids?\ 156}# #{var\ 1170}#))
+ #{tmp\ 1168}#)
#f)
- (apply (lambda (#{_\ 4839}#
- #{var\ 4840}#
- #{val\ 4841}#
- #{e1\ 4842}#
- #{e2\ 4843}#)
- (let ((#{names\ 4844}#
- (map (lambda (#{x\ 4845}#)
- (#{id-var-name\ 3817}#
- #{x\ 4845}#
- #{w\ 4828}#))
- #{var\ 4840}#)))
+ (apply (lambda (#{_\ 1175}#
+ #{var\ 1176}#
+ #{val\ 1177}#
+ #{e1\ 1178}#
+ #{e2\ 1179}#)
+ (let ((#{names\ 1180}#
+ (map (lambda (#{x\ 1181}#)
+ (#{id-var-name\ 153}#
+ #{x\ 1181}#
+ #{w\ 1164}#))
+ #{var\ 1176}#)))
(begin
(for-each
- (lambda (#{id\ 4847}# #{n\ 4848}#)
- (let ((#{atom-key\ 4849}#
- (#{binding-type\ 3787}#
- (#{lookup\ 3792}#
- #{n\ 4848}#
- #{r\ 4827}#
- #{mod\ 4830}#))))
- (if (memv #{atom-key\ 4849}#
+ (lambda (#{id\ 1183}# #{n\ 1184}#)
+ (let ((#{atom-key\ 1185}#
+ (#{binding-type\ 123}#
+ (#{lookup\ 128}#
+ #{n\ 1184}#
+ #{r\ 1163}#
+ #{mod\ 1166}#))))
+ (if (memv #{atom-key\ 1185}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 4826}#
- (#{source-wrap\ 3824}#
- #{id\ 4847}#
- #{w\ 4828}#
- #{s\ 4829}#
- #{mod\ 4830}#)))))
- #{var\ 4840}#
- #{names\ 4844}#)
- (#{chi-body\ 3835}#
- (cons #{e1\ 4842}# #{e2\ 4843}#)
- (#{source-wrap\ 3824}#
- #{e\ 4826}#
- #{w\ 4828}#
- #{s\ 4829}#
- #{mod\ 4830}#)
- (#{extend-env\ 3789}#
- #{names\ 4844}#
- (let ((#{trans-r\ 4852}#
- (#{macros-only-env\ 3791}#
- #{r\ 4827}#)))
- (map (lambda (#{x\ 4853}#)
+ #{e\ 1162}#
+ (#{source-wrap\ 160}#
+ #{id\ 1183}#
+ #{w\ 1164}#
+ #{s\ 1165}#
+ #{mod\ 1166}#)))))
+ #{var\ 1176}#
+ #{names\ 1180}#)
+ (#{chi-body\ 171}#
+ (cons #{e1\ 1178}# #{e2\ 1179}#)
+ (#{source-wrap\ 160}#
+ #{e\ 1162}#
+ #{w\ 1164}#
+ #{s\ 1165}#
+ #{mod\ 1166}#)
+ (#{extend-env\ 125}#
+ #{names\ 1180}#
+ (let ((#{trans-r\ 1188}#
+ (#{macros-only-env\ 127}#
+ #{r\ 1163}#)))
+ (map (lambda (#{x\ 1189}#)
(cons 'macro
- (#{eval-local-transformer\ 3837}#
- (#{chi\ 3831}#
- #{x\ 4853}#
- #{trans-r\ 4852}#
- #{w\ 4828}#
- #{mod\ 4830}#)
- #{mod\ 4830}#)))
- #{val\ 4841}#))
- #{r\ 4827}#)
- #{w\ 4828}#
- #{mod\ 4830}#))))
- #{tmp\ 4832}#)
- ((lambda (#{_\ 4855}#)
+ (#{eval-local-transformer\ 173}#
+ (#{chi\ 167}#
+ #{x\ 1189}#
+ #{trans-r\ 1188}#
+ #{w\ 1164}#
+ #{mod\ 1166}#)
+ #{mod\ 1166}#)))
+ #{val\ 1177}#))
+ #{r\ 1163}#)
+ #{w\ 1164}#
+ #{mod\ 1166}#))))
+ #{tmp\ 1168}#)
+ ((lambda (#{_\ 1191}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 3824}#
- #{e\ 4826}#
- #{w\ 4828}#
- #{s\ 4829}#
- #{mod\ 4830}#)))
- #{tmp\ 4831}#)))
+ (#{source-wrap\ 160}#
+ #{e\ 1162}#
+ #{w\ 1164}#
+ #{s\ 1165}#
+ #{mod\ 1166}#)))
+ #{tmp\ 1167}#)))
($sc-dispatch
- #{tmp\ 4831}#
+ #{tmp\ 1167}#
'(any #(each (any any)) any . each-any))))
- #{e\ 4826}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1162}#)))
+ (#{global-extend\ 129}#
'core
'quote
- (lambda (#{e\ 4856}#
- #{r\ 4857}#
- #{w\ 4858}#
- #{s\ 4859}#
- #{mod\ 4860}#)
- ((lambda (#{tmp\ 4861}#)
- ((lambda (#{tmp\ 4862}#)
- (if #{tmp\ 4862}#
- (apply (lambda (#{_\ 4863}# #{e\ 4864}#)
- (#{build-data\ 3773}#
- #{s\ 4859}#
- (#{strip\ 3844}# #{e\ 4864}# #{w\ 4858}#)))
- #{tmp\ 4862}#)
- ((lambda (#{_\ 4865}#)
+ (lambda (#{e\ 1192}#
+ #{r\ 1193}#
+ #{w\ 1194}#
+ #{s\ 1195}#
+ #{mod\ 1196}#)
+ ((lambda (#{tmp\ 1197}#)
+ ((lambda (#{tmp\ 1198}#)
+ (if #{tmp\ 1198}#
+ (apply (lambda (#{_\ 1199}# #{e\ 1200}#)
+ (#{build-data\ 109}#
+ #{s\ 1195}#
+ (#{strip\ 180}# #{e\ 1200}# #{w\ 1194}#)))
+ #{tmp\ 1198}#)
+ ((lambda (#{_\ 1201}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 3824}#
- #{e\ 4856}#
- #{w\ 4858}#
- #{s\ 4859}#
- #{mod\ 4860}#)))
- #{tmp\ 4861}#)))
- ($sc-dispatch #{tmp\ 4861}# (quote (any any)))))
- #{e\ 4856}#)))
- (#{global-extend\ 3793}#
+ (#{source-wrap\ 160}#
+ #{e\ 1192}#
+ #{w\ 1194}#
+ #{s\ 1195}#
+ #{mod\ 1196}#)))
+ #{tmp\ 1197}#)))
+ ($sc-dispatch #{tmp\ 1197}# (quote (any any)))))
+ #{e\ 1192}#)))
+ (#{global-extend\ 129}#
'core
'syntax
- (letrec ((#{regen\ 4873}#
- (lambda (#{x\ 4874}#)
- (let ((#{atom-key\ 4875}# (car #{x\ 4874}#)))
- (if (memv #{atom-key\ 4875}# (quote (ref)))
- (#{build-lexical-reference\ 3762}#
+ (letrec ((#{regen\ 1209}#
+ (lambda (#{x\ 1210}#)
+ (let ((#{atom-key\ 1211}# (car #{x\ 1210}#)))
+ (if (memv #{atom-key\ 1211}# (quote (ref)))
+ (#{build-lexical-reference\ 98}#
'value
#f
- (cadr #{x\ 4874}#)
- (cadr #{x\ 4874}#))
- (if (memv #{atom-key\ 4875}# (quote (primitive)))
- (#{build-primref\ 3772}# #f (cadr #{x\ 4874}#))
- (if (memv #{atom-key\ 4875}# (quote (quote)))
- (#{build-data\ 3773}# #f (cadr #{x\ 4874}#))
- (if (memv #{atom-key\ 4875}# (quote (lambda)))
- (if (list? (cadr #{x\ 4874}#))
- (#{build-simple-lambda\ 3769}#
+ (cadr #{x\ 1210}#)
+ (cadr #{x\ 1210}#))
+ (if (memv #{atom-key\ 1211}# (quote (primitive)))
+ (#{build-primref\ 108}# #f (cadr #{x\ 1210}#))
+ (if (memv #{atom-key\ 1211}# (quote (quote)))
+ (#{build-data\ 109}# #f (cadr #{x\ 1210}#))
+ (if (memv #{atom-key\ 1211}# (quote (lambda)))
+ (if (list? (cadr #{x\ 1210}#))
+ (#{build-simple-lambda\ 105}#
#f
- (cadr #{x\ 4874}#)
+ (cadr #{x\ 1210}#)
#f
- (cadr #{x\ 4874}#)
+ (cadr #{x\ 1210}#)
#f
- (#{regen\ 4873}# (caddr #{x\ 4874}#)))
- (error "how did we get here" #{x\ 4874}#))
- (#{build-application\ 3760}#
+ (#{regen\ 1209}# (caddr #{x\ 1210}#)))
+ (error "how did we get here" #{x\ 1210}#))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}# #f (car #{x\ 4874}#))
- (map #{regen\ 4873}#
- (cdr #{x\ 4874}#))))))))))
- (#{gen-vector\ 4872}#
- (lambda (#{x\ 4876}#)
- (if (eq? (car #{x\ 4876}#) (quote list))
- (cons (quote vector) (cdr #{x\ 4876}#))
- (if (eq? (car #{x\ 4876}#) (quote quote))
+ (#{build-primref\ 108}# #f (car #{x\ 1210}#))
+ (map #{regen\ 1209}#
+ (cdr #{x\ 1210}#))))))))))
+ (#{gen-vector\ 1208}#
+ (lambda (#{x\ 1212}#)
+ (if (eq? (car #{x\ 1212}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 1212}#))
+ (if (eq? (car #{x\ 1212}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 4876}#)))
- (list (quote list->vector) #{x\ 4876}#)))))
- (#{gen-append\ 4871}#
- (lambda (#{x\ 4877}# #{y\ 4878}#)
- (if (equal? #{y\ 4878}# (quote (quote ())))
- #{x\ 4877}#
- (list (quote append) #{x\ 4877}# #{y\ 4878}#))))
- (#{gen-cons\ 4870}#
- (lambda (#{x\ 4879}# #{y\ 4880}#)
- (let ((#{atom-key\ 4881}# (car #{y\ 4880}#)))
- (if (memv #{atom-key\ 4881}# (quote (quote)))
- (if (eq? (car #{x\ 4879}#) (quote quote))
+ (list->vector (cadr #{x\ 1212}#)))
+ (list (quote list->vector) #{x\ 1212}#)))))
+ (#{gen-append\ 1207}#
+ (lambda (#{x\ 1213}# #{y\ 1214}#)
+ (if (equal? #{y\ 1214}# (quote (quote ())))
+ #{x\ 1213}#
+ (list (quote append) #{x\ 1213}# #{y\ 1214}#))))
+ (#{gen-cons\ 1206}#
+ (lambda (#{x\ 1215}# #{y\ 1216}#)
+ (let ((#{atom-key\ 1217}# (car #{y\ 1216}#)))
+ (if (memv #{atom-key\ 1217}# (quote (quote)))
+ (if (eq? (car #{x\ 1215}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 4879}#) (cadr #{y\ 4880}#)))
- (if (eq? (cadr #{y\ 4880}#) (quote ()))
- (list (quote list) #{x\ 4879}#)
- (list (quote cons) #{x\ 4879}# #{y\ 4880}#)))
- (if (memv #{atom-key\ 4881}# (quote (list)))
+ (cons (cadr #{x\ 1215}#) (cadr #{y\ 1216}#)))
+ (if (eq? (cadr #{y\ 1216}#) (quote ()))
+ (list (quote list) #{x\ 1215}#)
+ (list (quote cons) #{x\ 1215}# #{y\ 1216}#)))
+ (if (memv #{atom-key\ 1217}# (quote (list)))
(cons 'list
- (cons #{x\ 4879}# (cdr #{y\ 4880}#)))
- (list (quote cons) #{x\ 4879}# #{y\ 4880}#))))))
- (#{gen-map\ 4869}#
- (lambda (#{e\ 4882}# #{map-env\ 4883}#)
- (let ((#{formals\ 4884}# (map cdr #{map-env\ 4883}#))
- (#{actuals\ 4885}#
- (map (lambda (#{x\ 4886}#)
- (list (quote ref) (car #{x\ 4886}#)))
- #{map-env\ 4883}#)))
- (if (eq? (car #{e\ 4882}#) (quote ref))
- (car #{actuals\ 4885}#)
+ (cons #{x\ 1215}# (cdr #{y\ 1216}#)))
+ (list (quote cons) #{x\ 1215}# #{y\ 1216}#))))))
+ (#{gen-map\ 1205}#
+ (lambda (#{e\ 1218}# #{map-env\ 1219}#)
+ (let ((#{formals\ 1220}# (map cdr #{map-env\ 1219}#))
+ (#{actuals\ 1221}#
+ (map (lambda (#{x\ 1222}#)
+ (list (quote ref) (car #{x\ 1222}#)))
+ #{map-env\ 1219}#)))
+ (if (eq? (car #{e\ 1218}#) (quote ref))
+ (car #{actuals\ 1221}#)
(if (and-map
- (lambda (#{x\ 4887}#)
- (if (eq? (car #{x\ 4887}#) (quote ref))
- (memq (cadr #{x\ 4887}#) #{formals\ 4884}#)
+ (lambda (#{x\ 1223}#)
+ (if (eq? (car #{x\ 1223}#) (quote ref))
+ (memq (cadr #{x\ 1223}#) #{formals\ 1220}#)
#f))
- (cdr #{e\ 4882}#))
+ (cdr #{e\ 1218}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 4882}#))
- (map (let ((#{r\ 4888}#
+ (car #{e\ 1218}#))
+ (map (let ((#{r\ 1224}#
(map cons
- #{formals\ 4884}#
- #{actuals\ 4885}#)))
- (lambda (#{x\ 4889}#)
- (cdr (assq (cadr #{x\ 4889}#)
- #{r\ 4888}#))))
- (cdr #{e\ 4882}#))))
+ #{formals\ 1220}#
+ #{actuals\ 1221}#)))
+ (lambda (#{x\ 1225}#)
+ (cdr (assq (cadr #{x\ 1225}#)
+ #{r\ 1224}#))))
+ (cdr #{e\ 1218}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 4884}#
- #{e\ 4882}#)
- #{actuals\ 4885}#)))))))
- (#{gen-mappend\ 4868}#
- (lambda (#{e\ 4890}# #{map-env\ 4891}#)
+ #{formals\ 1220}#
+ #{e\ 1218}#)
+ #{actuals\ 1221}#)))))))
+ (#{gen-mappend\ 1204}#
+ (lambda (#{e\ 1226}# #{map-env\ 1227}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 4869}# #{e\ 4890}# #{map-env\ 4891}#))))
- (#{gen-ref\ 4867}#
- (lambda (#{src\ 4892}#
- #{var\ 4893}#
- #{level\ 4894}#
- #{maps\ 4895}#)
- (if (#{fx=\ 3752}# #{level\ 4894}# 0)
- (values #{var\ 4893}# #{maps\ 4895}#)
- (if (null? #{maps\ 4895}#)
+ (#{gen-map\ 1205}# #{e\ 1226}# #{map-env\ 1227}#))))
+ (#{gen-ref\ 1203}#
+ (lambda (#{src\ 1228}#
+ #{var\ 1229}#
+ #{level\ 1230}#
+ #{maps\ 1231}#)
+ (if (#{fx=\ 88}# #{level\ 1230}# 0)
+ (values #{var\ 1229}# #{maps\ 1231}#)
+ (if (null? #{maps\ 1231}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 4892}#)
+ #{src\ 1228}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 4867}#
- #{src\ 4892}#
- #{var\ 4893}#
- (#{fx-\ 3751}# #{level\ 4894}# 1)
- (cdr #{maps\ 4895}#)))
- (lambda (#{outer-var\ 4896}# #{outer-maps\ 4897}#)
- (let ((#{b\ 4898}#
- (assq #{outer-var\ 4896}#
- (car #{maps\ 4895}#))))
- (if #{b\ 4898}#
- (values (cdr #{b\ 4898}#) #{maps\ 4895}#)
- (let ((#{inner-var\ 4899}#
- (#{gen-var\ 3845}# (quote tmp))))
+ (#{gen-ref\ 1203}#
+ #{src\ 1228}#
+ #{var\ 1229}#
+ (#{fx-\ 87}# #{level\ 1230}# 1)
+ (cdr #{maps\ 1231}#)))
+ (lambda (#{outer-var\ 1232}# #{outer-maps\ 1233}#)
+ (let ((#{b\ 1234}#
+ (assq #{outer-var\ 1232}#
+ (car #{maps\ 1231}#))))
+ (if #{b\ 1234}#
+ (values (cdr #{b\ 1234}#) #{maps\ 1231}#)
+ (let ((#{inner-var\ 1235}#
+ (#{gen-var\ 181}# (quote tmp))))
(values
- #{inner-var\ 4899}#
- (cons (cons (cons #{outer-var\ 4896}#
- #{inner-var\ 4899}#)
- (car #{maps\ 4895}#))
- #{outer-maps\ 4897}#)))))))))))
- (#{gen-syntax\ 4866}#
- (lambda (#{src\ 4900}#
- #{e\ 4901}#
- #{r\ 4902}#
- #{maps\ 4903}#
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#)
- (if (#{id?\ 3795}# #{e\ 4901}#)
- (let ((#{label\ 4906}#
- (#{id-var-name\ 3817}#
- #{e\ 4901}#
+ #{inner-var\ 1235}#
+ (cons (cons (cons #{outer-var\ 1232}#
+ #{inner-var\ 1235}#)
+ (car #{maps\ 1231}#))
+ #{outer-maps\ 1233}#)))))))))))
+ (#{gen-syntax\ 1202}#
+ (lambda (#{src\ 1236}#
+ #{e\ 1237}#
+ #{r\ 1238}#
+ #{maps\ 1239}#
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#)
+ (if (#{id?\ 131}# #{e\ 1237}#)
+ (let ((#{label\ 1242}#
+ (#{id-var-name\ 153}#
+ #{e\ 1237}#
'(()))))
- (let ((#{b\ 4907}#
- (#{lookup\ 3792}#
- #{label\ 4906}#
- #{r\ 4902}#
- #{mod\ 4905}#)))
- (if (eq? (#{binding-type\ 3787}# #{b\ 4907}#)
+ (let ((#{b\ 1243}#
+ (#{lookup\ 128}#
+ #{label\ 1242}#
+ #{r\ 1238}#
+ #{mod\ 1241}#)))
+ (if (eq? (#{binding-type\ 123}# #{b\ 1243}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 4908}#
- (#{binding-value\ 3788}#
- #{b\ 4907}#)))
- (#{gen-ref\ 4867}#
- #{src\ 4900}#
- (car #{var.lev\ 4908}#)
- (cdr #{var.lev\ 4908}#)
- #{maps\ 4903}#)))
- (lambda (#{var\ 4909}# #{maps\ 4910}#)
+ (let ((#{var.lev\ 1244}#
+ (#{binding-value\ 124}# #{b\ 1243}#)))
+ (#{gen-ref\ 1203}#
+ #{src\ 1236}#
+ (car #{var.lev\ 1244}#)
+ (cdr #{var.lev\ 1244}#)
+ #{maps\ 1239}#)))
+ (lambda (#{var\ 1245}# #{maps\ 1246}#)
(values
- (list (quote ref) #{var\ 4909}#)
- #{maps\ 4910}#)))
- (if (#{ellipsis?\ 4904}# #{e\ 4901}#)
+ (list (quote ref) #{var\ 1245}#)
+ #{maps\ 1246}#)))
+ (if (#{ellipsis?\ 1240}# #{e\ 1237}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 4900}#)
+ #{src\ 1236}#)
(values
- (list (quote quote) #{e\ 4901}#)
- #{maps\ 4903}#)))))
- ((lambda (#{tmp\ 4911}#)
- ((lambda (#{tmp\ 4912}#)
- (if (if #{tmp\ 4912}#
- (apply (lambda (#{dots\ 4913}# #{e\ 4914}#)
- (#{ellipsis?\ 4904}#
- #{dots\ 4913}#))
- #{tmp\ 4912}#)
+ (list (quote quote) #{e\ 1237}#)
+ #{maps\ 1239}#)))))
+ ((lambda (#{tmp\ 1247}#)
+ ((lambda (#{tmp\ 1248}#)
+ (if (if #{tmp\ 1248}#
+ (apply (lambda (#{dots\ 1249}# #{e\ 1250}#)
+ (#{ellipsis?\ 1240}#
+ #{dots\ 1249}#))
+ #{tmp\ 1248}#)
#f)
- (apply (lambda (#{dots\ 4915}# #{e\ 4916}#)
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- #{e\ 4916}#
- #{r\ 4902}#
- #{maps\ 4903}#
- (lambda (#{x\ 4917}#) #f)
- #{mod\ 4905}#))
- #{tmp\ 4912}#)
- ((lambda (#{tmp\ 4918}#)
- (if (if #{tmp\ 4918}#
- (apply (lambda (#{x\ 4919}#
- #{dots\ 4920}#
- #{y\ 4921}#)
- (#{ellipsis?\ 4904}#
- #{dots\ 4920}#))
- #{tmp\ 4918}#)
+ (apply (lambda (#{dots\ 1251}# #{e\ 1252}#)
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ #{e\ 1252}#
+ #{r\ 1238}#
+ #{maps\ 1239}#
+ (lambda (#{x\ 1253}#) #f)
+ #{mod\ 1241}#))
+ #{tmp\ 1248}#)
+ ((lambda (#{tmp\ 1254}#)
+ (if (if #{tmp\ 1254}#
+ (apply (lambda (#{x\ 1255}#
+ #{dots\ 1256}#
+ #{y\ 1257}#)
+ (#{ellipsis?\ 1240}#
+ #{dots\ 1256}#))
+ #{tmp\ 1254}#)
#f)
- (apply (lambda (#{x\ 4922}#
- #{dots\ 4923}#
- #{y\ 4924}#)
- (letrec ((#{f\ 4925}#
- (lambda (#{y\ 4926}#
- #{k\ 4927}#)
- ((lambda (#{tmp\ 4931}#)
- ((lambda (#{tmp\ 4932}#)
- (if (if #{tmp\ 4932}#
- (apply (lambda (#{dots\ 4933}#
- #{y\ 4934}#)
- (#{ellipsis?\ 4904}#
- #{dots\ 4933}#))
- #{tmp\ 4932}#)
+ (apply (lambda (#{x\ 1258}#
+ #{dots\ 1259}#
+ #{y\ 1260}#)
+ (letrec ((#{f\ 1261}#
+ (lambda (#{y\ 1262}#
+ #{k\ 1263}#)
+ ((lambda (#{tmp\ 1267}#)
+ ((lambda (#{tmp\ 1268}#)
+ (if (if #{tmp\ 1268}#
+ (apply (lambda (#{dots\ 1269}#
+ #{y\ 1270}#)
+ (#{ellipsis?\ 1240}#
+ #{dots\ 1269}#))
+ #{tmp\ 1268}#)
#f)
- (apply (lambda (#{dots\ 4935}#
- #{y\ 4936}#)
- (#{f\ 4925}#
- #{y\ 4936}#
- (lambda (#{maps\ 4937}#)
+ (apply (lambda (#{dots\ 1271}#
+ #{y\ 1272}#)
+ (#{f\ 1261}#
+ #{y\ 1272}#
+ (lambda (#{maps\ 1273}#)
(call-with-values
(lambda ()
- (#{k\ 4927}#
+ (#{k\ 1263}#
(cons '()
- #{maps\ 4937}#)))
- (lambda (#{x\ 4938}#
- #{maps\ 4939}#)
- (if (null? (car #{maps\ 4939}#))
+ #{maps\ 1273}#)))
+ (lambda (#{x\ 1274}#
+ #{maps\ 1275}#)
+ (if (null? (car #{maps\ 1275}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4900}#)
+ #{src\ 1236}#)
(values
- (#{gen-mappend\ 4868}#
- #{x\ 4938}#
- (car #{maps\ 4939}#))
- (cdr #{maps\ 4939}#))))))))
- #{tmp\ 4932}#)
- ((lambda (#{_\ 4940}#)
+ (#{gen-mappend\ 1204}#
+ #{x\ 1274}#
+ (car #{maps\ 1275}#))
+ (cdr #{maps\ 1275}#))))))))
+ #{tmp\ 1268}#)
+ ((lambda (#{_\ 1276}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- #{y\ 4926}#
- #{r\ 4902}#
- #{maps\ 4903}#
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#))
- (lambda (#{y\ 4941}#
- #{maps\ 4942}#)
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ #{y\ 1262}#
+ #{r\ 1238}#
+ #{maps\ 1239}#
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#))
+ (lambda (#{y\ 1277}#
+ #{maps\ 1278}#)
(call-with-values
(lambda ()
- (#{k\ 4927}#
- #{maps\ 4942}#))
- (lambda (#{x\ 4943}#
- #{maps\ 4944}#)
+ (#{k\ 1263}#
+ #{maps\ 1278}#))
+ (lambda (#{x\ 1279}#
+ #{maps\ 1280}#)
(values
- (#{gen-append\ 4871}#
- #{x\ 4943}#
- #{y\ 4941}#)
- #{maps\ 4944}#))))))
- #{tmp\ 4931}#)))
+ (#{gen-append\ 1207}#
+ #{x\ 1279}#
+ #{y\ 1277}#)
+ #{maps\ 1280}#))))))
+ #{tmp\ 1267}#)))
($sc-dispatch
- #{tmp\ 4931}#
+ #{tmp\ 1267}#
'(any . any))))
- #{y\ 4926}#))))
- (#{f\ 4925}#
- #{y\ 4924}#
- (lambda (#{maps\ 4928}#)
+ #{y\ 1262}#))))
+ (#{f\ 1261}#
+ #{y\ 1260}#
+ (lambda (#{maps\ 1264}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- #{x\ 4922}#
- #{r\ 4902}#
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ #{x\ 1258}#
+ #{r\ 1238}#
(cons '()
- #{maps\ 4928}#)
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#))
- (lambda (#{x\ 4929}#
- #{maps\ 4930}#)
- (if (null? (car #{maps\ 4930}#))
+ #{maps\ 1264}#)
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#))
+ (lambda (#{x\ 1265}#
+ #{maps\ 1266}#)
+ (if (null? (car #{maps\ 1266}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4900}#)
+ #{src\ 1236}#)
(values
- (#{gen-map\ 4869}#
- #{x\ 4929}#
- (car #{maps\ 4930}#))
- (cdr #{maps\ 4930}#)))))))))
- #{tmp\ 4918}#)
- ((lambda (#{tmp\ 4945}#)
- (if #{tmp\ 4945}#
- (apply (lambda (#{x\ 4946}#
- #{y\ 4947}#)
+ (#{gen-map\ 1205}#
+ #{x\ 1265}#
+ (car #{maps\ 1266}#))
+ (cdr #{maps\ 1266}#)))))))))
+ #{tmp\ 1254}#)
+ ((lambda (#{tmp\ 1281}#)
+ (if #{tmp\ 1281}#
+ (apply (lambda (#{x\ 1282}#
+ #{y\ 1283}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- #{x\ 4946}#
- #{r\ 4902}#
- #{maps\ 4903}#
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#))
- (lambda (#{x\ 4948}#
- #{maps\ 4949}#)
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ #{x\ 1282}#
+ #{r\ 1238}#
+ #{maps\ 1239}#
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#))
+ (lambda (#{x\ 1284}#
+ #{maps\ 1285}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- #{y\ 4947}#
- #{r\ 4902}#
- #{maps\ 4949}#
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#))
- (lambda (#{y\ 4950}#
- #{maps\ 4951}#)
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ #{y\ 1283}#
+ #{r\ 1238}#
+ #{maps\ 1285}#
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#))
+ (lambda (#{y\ 1286}#
+ #{maps\ 1287}#)
(values
- (#{gen-cons\ 4870}#
- #{x\ 4948}#
- #{y\ 4950}#)
- #{maps\ 4951}#))))))
- #{tmp\ 4945}#)
- ((lambda (#{tmp\ 4952}#)
- (if #{tmp\ 4952}#
- (apply (lambda (#{e1\ 4953}#
- #{e2\ 4954}#)
+ (#{gen-cons\ 1206}#
+ #{x\ 1284}#
+ #{y\ 1286}#)
+ #{maps\ 1287}#))))))
+ #{tmp\ 1281}#)
+ ((lambda (#{tmp\ 1288}#)
+ (if #{tmp\ 1288}#
+ (apply (lambda (#{e1\ 1289}#
+ #{e2\ 1290}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{src\ 4900}#
- (cons #{e1\ 4953}#
- #{e2\ 4954}#)
- #{r\ 4902}#
- #{maps\ 4903}#
- #{ellipsis?\ 4904}#
- #{mod\ 4905}#))
- (lambda (#{e\ 4956}#
- #{maps\ 4957}#)
+ (#{gen-syntax\ 1202}#
+ #{src\ 1236}#
+ (cons #{e1\ 1289}#
+ #{e2\ 1290}#)
+ #{r\ 1238}#
+ #{maps\ 1239}#
+ #{ellipsis?\ 1240}#
+ #{mod\ 1241}#))
+ (lambda (#{e\ 1292}#
+ #{maps\ 1293}#)
(values
- (#{gen-vector\ 4872}#
- #{e\ 4956}#)
- #{maps\ 4957}#))))
- #{tmp\ 4952}#)
- ((lambda (#{_\ 4958}#)
+ (#{gen-vector\ 1208}#
+ #{e\ 1292}#)
+ #{maps\ 1293}#))))
+ #{tmp\ 1288}#)
+ ((lambda (#{_\ 1294}#)
(values
(list 'quote
- #{e\ 4901}#)
- #{maps\ 4903}#))
- #{tmp\ 4911}#)))
+ #{e\ 1237}#)
+ #{maps\ 1239}#))
+ #{tmp\ 1247}#)))
($sc-dispatch
- #{tmp\ 4911}#
+ #{tmp\ 1247}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 4911}#
+ #{tmp\ 1247}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4911}#
+ #{tmp\ 1247}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 4911}# (quote (any any)))))
- #{e\ 4901}#)))))
- (lambda (#{e\ 4959}#
- #{r\ 4960}#
- #{w\ 4961}#
- #{s\ 4962}#
- #{mod\ 4963}#)
- (let ((#{e\ 4964}#
- (#{source-wrap\ 3824}#
- #{e\ 4959}#
- #{w\ 4961}#
- #{s\ 4962}#
- #{mod\ 4963}#)))
- ((lambda (#{tmp\ 4965}#)
- ((lambda (#{tmp\ 4966}#)
- (if #{tmp\ 4966}#
- (apply (lambda (#{_\ 4967}# #{x\ 4968}#)
+ ($sc-dispatch #{tmp\ 1247}# (quote (any any)))))
+ #{e\ 1237}#)))))
+ (lambda (#{e\ 1295}#
+ #{r\ 1296}#
+ #{w\ 1297}#
+ #{s\ 1298}#
+ #{mod\ 1299}#)
+ (let ((#{e\ 1300}#
+ (#{source-wrap\ 160}#
+ #{e\ 1295}#
+ #{w\ 1297}#
+ #{s\ 1298}#
+ #{mod\ 1299}#)))
+ ((lambda (#{tmp\ 1301}#)
+ ((lambda (#{tmp\ 1302}#)
+ (if #{tmp\ 1302}#
+ (apply (lambda (#{_\ 1303}# #{x\ 1304}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4866}#
- #{e\ 4964}#
- #{x\ 4968}#
- #{r\ 4960}#
+ (#{gen-syntax\ 1202}#
+ #{e\ 1300}#
+ #{x\ 1304}#
+ #{r\ 1296}#
'()
- #{ellipsis?\ 3839}#
- #{mod\ 4963}#))
- (lambda (#{e\ 4969}# #{maps\ 4970}#)
- (#{regen\ 4873}# #{e\ 4969}#))))
- #{tmp\ 4966}#)
- ((lambda (#{_\ 4971}#)
+ #{ellipsis?\ 175}#
+ #{mod\ 1299}#))
+ (lambda (#{e\ 1305}# #{maps\ 1306}#)
+ (#{regen\ 1209}# #{e\ 1305}#))))
+ #{tmp\ 1302}#)
+ ((lambda (#{_\ 1307}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 4964}#))
- #{tmp\ 4965}#)))
- ($sc-dispatch #{tmp\ 4965}# (quote (any any)))))
- #{e\ 4964}#)))))
- (#{global-extend\ 3793}#
+ #{e\ 1300}#))
+ #{tmp\ 1301}#)))
+ ($sc-dispatch #{tmp\ 1301}# (quote (any any)))))
+ #{e\ 1300}#)))))
+ (#{global-extend\ 129}#
'core
'lambda
- (lambda (#{e\ 4972}#
- #{r\ 4973}#
- #{w\ 4974}#
- #{s\ 4975}#
- #{mod\ 4976}#)
- ((lambda (#{tmp\ 4977}#)
- ((lambda (#{tmp\ 4978}#)
- (if (if #{tmp\ 4978}#
- (apply (lambda (#{_\ 4979}#
- #{args\ 4980}#
- #{docstring\ 4981}#
- #{e1\ 4982}#
- #{e2\ 4983}#)
- (string? (syntax->datum #{docstring\ 4981}#)))
- #{tmp\ 4978}#)
+ (lambda (#{e\ 1308}#
+ #{r\ 1309}#
+ #{w\ 1310}#
+ #{s\ 1311}#
+ #{mod\ 1312}#)
+ ((lambda (#{tmp\ 1313}#)
+ ((lambda (#{tmp\ 1314}#)
+ (if (if #{tmp\ 1314}#
+ (apply (lambda (#{_\ 1315}#
+ #{args\ 1316}#
+ #{docstring\ 1317}#
+ #{e1\ 1318}#
+ #{e2\ 1319}#)
+ (string? (syntax->datum #{docstring\ 1317}#)))
+ #{tmp\ 1314}#)
#f)
- (apply (lambda (#{_\ 4984}#
- #{args\ 4985}#
- #{docstring\ 4986}#
- #{e1\ 4987}#
- #{e2\ 4988}#)
+ (apply (lambda (#{_\ 1320}#
+ #{args\ 1321}#
+ #{docstring\ 1322}#
+ #{e1\ 1323}#
+ #{e2\ 1324}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 3840}# #{args\ 4985}#))
- (lambda (#{req\ 4989}#
- #{opt\ 4990}#
- #{rest\ 4991}#
- #{kw\ 4992}#)
- (#{chi-simple-lambda\ 3841}#
- #{e\ 4972}#
- #{r\ 4973}#
- #{w\ 4974}#
- #{s\ 4975}#
- #{mod\ 4976}#
- #{req\ 4989}#
- #{rest\ 4991}#
- (syntax->datum #{docstring\ 4986}#)
- (cons #{e1\ 4987}# #{e2\ 4988}#)))))
- #{tmp\ 4978}#)
- ((lambda (#{tmp\ 4994}#)
- (if #{tmp\ 4994}#
- (apply (lambda (#{_\ 4995}#
- #{args\ 4996}#
- #{e1\ 4997}#
- #{e2\ 4998}#)
+ (#{lambda-formals\ 176}# #{args\ 1321}#))
+ (lambda (#{req\ 1325}#
+ #{opt\ 1326}#
+ #{rest\ 1327}#
+ #{kw\ 1328}#)
+ (#{chi-simple-lambda\ 177}#
+ #{e\ 1308}#
+ #{r\ 1309}#
+ #{w\ 1310}#
+ #{s\ 1311}#
+ #{mod\ 1312}#
+ #{req\ 1325}#
+ #{rest\ 1327}#
+ (syntax->datum #{docstring\ 1322}#)
+ (cons #{e1\ 1323}# #{e2\ 1324}#)))))
+ #{tmp\ 1314}#)
+ ((lambda (#{tmp\ 1330}#)
+ (if #{tmp\ 1330}#
+ (apply (lambda (#{_\ 1331}#
+ #{args\ 1332}#
+ #{e1\ 1333}#
+ #{e2\ 1334}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 3840}# #{args\ 4996}#))
- (lambda (#{req\ 4999}#
- #{opt\ 5000}#
- #{rest\ 5001}#
- #{kw\ 5002}#)
- (#{chi-simple-lambda\ 3841}#
- #{e\ 4972}#
- #{r\ 4973}#
- #{w\ 4974}#
- #{s\ 4975}#
- #{mod\ 4976}#
- #{req\ 4999}#
- #{rest\ 5001}#
+ (#{lambda-formals\ 176}# #{args\ 1332}#))
+ (lambda (#{req\ 1335}#
+ #{opt\ 1336}#
+ #{rest\ 1337}#
+ #{kw\ 1338}#)
+ (#{chi-simple-lambda\ 177}#
+ #{e\ 1308}#
+ #{r\ 1309}#
+ #{w\ 1310}#
+ #{s\ 1311}#
+ #{mod\ 1312}#
+ #{req\ 1335}#
+ #{rest\ 1337}#
#f
- (cons #{e1\ 4997}# #{e2\ 4998}#)))))
- #{tmp\ 4994}#)
- ((lambda (#{_\ 5004}#)
+ (cons #{e1\ 1333}# #{e2\ 1334}#)))))
+ #{tmp\ 1330}#)
+ ((lambda (#{_\ 1340}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 4972}#))
- #{tmp\ 4977}#)))
+ #{e\ 1308}#))
+ #{tmp\ 1313}#)))
($sc-dispatch
- #{tmp\ 4977}#
+ #{tmp\ 1313}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 4977}#
+ #{tmp\ 1313}#
'(any any any any . each-any))))
- #{e\ 4972}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1308}#)))
+ (#{global-extend\ 129}#
'core
'lambda*
- (lambda (#{e\ 5005}#
- #{r\ 5006}#
- #{w\ 5007}#
- #{s\ 5008}#
- #{mod\ 5009}#)
- ((lambda (#{tmp\ 5010}#)
- ((lambda (#{tmp\ 5011}#)
- (if #{tmp\ 5011}#
- (apply (lambda (#{_\ 5012}#
- #{args\ 5013}#
- #{e1\ 5014}#
- #{e2\ 5015}#)
+ (lambda (#{e\ 1341}#
+ #{r\ 1342}#
+ #{w\ 1343}#
+ #{s\ 1344}#
+ #{mod\ 1345}#)
+ ((lambda (#{tmp\ 1346}#)
+ ((lambda (#{tmp\ 1347}#)
+ (if #{tmp\ 1347}#
+ (apply (lambda (#{_\ 1348}#
+ #{args\ 1349}#
+ #{e1\ 1350}#
+ #{e2\ 1351}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3843}#
- #{e\ 5005}#
- #{r\ 5006}#
- #{w\ 5007}#
- #{s\ 5008}#
- #{mod\ 5009}#
- #{lambda*-formals\ 3842}#
- (list (cons #{args\ 5013}#
- (cons #{e1\ 5014}#
- #{e2\ 5015}#)))))
- (lambda (#{docstring\ 5017}# #{lcase\ 5018}#)
- (#{build-case-lambda\ 3770}#
- #{s\ 5008}#
- #{docstring\ 5017}#
- #{lcase\ 5018}#))))
- #{tmp\ 5011}#)
- ((lambda (#{_\ 5019}#)
+ (#{chi-lambda-case\ 179}#
+ #{e\ 1341}#
+ #{r\ 1342}#
+ #{w\ 1343}#
+ #{s\ 1344}#
+ #{mod\ 1345}#
+ #{lambda*-formals\ 178}#
+ (list (cons #{args\ 1349}#
+ (cons #{e1\ 1350}#
+ #{e2\ 1351}#)))))
+ (lambda (#{docstring\ 1353}# #{lcase\ 1354}#)
+ (#{build-case-lambda\ 106}#
+ #{s\ 1344}#
+ #{docstring\ 1353}#
+ #{lcase\ 1354}#))))
+ #{tmp\ 1347}#)
+ ((lambda (#{_\ 1355}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 5005}#))
- #{tmp\ 5010}#)))
+ #{e\ 1341}#))
+ #{tmp\ 1346}#)))
($sc-dispatch
- #{tmp\ 5010}#
+ #{tmp\ 1346}#
'(any any any . each-any))))
- #{e\ 5005}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1341}#)))
+ (#{global-extend\ 129}#
'core
'case-lambda
- (lambda (#{e\ 5020}#
- #{r\ 5021}#
- #{w\ 5022}#
- #{s\ 5023}#
- #{mod\ 5024}#)
- ((lambda (#{tmp\ 5025}#)
- ((lambda (#{tmp\ 5026}#)
- (if #{tmp\ 5026}#
- (apply (lambda (#{_\ 5027}#
- #{args\ 5028}#
- #{e1\ 5029}#
- #{e2\ 5030}#
- #{args*\ 5031}#
- #{e1*\ 5032}#
- #{e2*\ 5033}#)
+ (lambda (#{e\ 1356}#
+ #{r\ 1357}#
+ #{w\ 1358}#
+ #{s\ 1359}#
+ #{mod\ 1360}#)
+ ((lambda (#{tmp\ 1361}#)
+ ((lambda (#{tmp\ 1362}#)
+ (if #{tmp\ 1362}#
+ (apply (lambda (#{_\ 1363}#
+ #{args\ 1364}#
+ #{e1\ 1365}#
+ #{e2\ 1366}#
+ #{args*\ 1367}#
+ #{e1*\ 1368}#
+ #{e2*\ 1369}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3843}#
- #{e\ 5020}#
- #{r\ 5021}#
- #{w\ 5022}#
- #{s\ 5023}#
- #{mod\ 5024}#
- #{lambda-formals\ 3840}#
- (cons (cons #{args\ 5028}#
- (cons #{e1\ 5029}# #{e2\ 5030}#))
- (map (lambda (#{tmp\ 5037}#
- #{tmp\ 5036}#
- #{tmp\ 5035}#)
- (cons #{tmp\ 5035}#
- (cons #{tmp\ 5036}#
- #{tmp\ 5037}#)))
- #{e2*\ 5033}#
- #{e1*\ 5032}#
- #{args*\ 5031}#))))
- (lambda (#{docstring\ 5039}# #{lcase\ 5040}#)
- (#{build-case-lambda\ 3770}#
- #{s\ 5023}#
- #{docstring\ 5039}#
- #{lcase\ 5040}#))))
- #{tmp\ 5026}#)
- ((lambda (#{_\ 5041}#)
+ (#{chi-lambda-case\ 179}#
+ #{e\ 1356}#
+ #{r\ 1357}#
+ #{w\ 1358}#
+ #{s\ 1359}#
+ #{mod\ 1360}#
+ #{lambda-formals\ 176}#
+ (cons (cons #{args\ 1364}#
+ (cons #{e1\ 1365}# #{e2\ 1366}#))
+ (map (lambda (#{tmp\ 1373}#
+ #{tmp\ 1372}#
+ #{tmp\ 1371}#)
+ (cons #{tmp\ 1371}#
+ (cons #{tmp\ 1372}#
+ #{tmp\ 1373}#)))
+ #{e2*\ 1369}#
+ #{e1*\ 1368}#
+ #{args*\ 1367}#))))
+ (lambda (#{docstring\ 1375}# #{lcase\ 1376}#)
+ (#{build-case-lambda\ 106}#
+ #{s\ 1359}#
+ #{docstring\ 1375}#
+ #{lcase\ 1376}#))))
+ #{tmp\ 1362}#)
+ ((lambda (#{_\ 1377}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 5020}#))
- #{tmp\ 5025}#)))
+ #{e\ 1356}#))
+ #{tmp\ 1361}#)))
($sc-dispatch
- #{tmp\ 5025}#
+ #{tmp\ 1361}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 5020}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1356}#)))
+ (#{global-extend\ 129}#
'core
'case-lambda*
- (lambda (#{e\ 5042}#
- #{r\ 5043}#
- #{w\ 5044}#
- #{s\ 5045}#
- #{mod\ 5046}#)
- ((lambda (#{tmp\ 5047}#)
- ((lambda (#{tmp\ 5048}#)
- (if #{tmp\ 5048}#
- (apply (lambda (#{_\ 5049}#
- #{args\ 5050}#
- #{e1\ 5051}#
- #{e2\ 5052}#
- #{args*\ 5053}#
- #{e1*\ 5054}#
- #{e2*\ 5055}#)
+ (lambda (#{e\ 1378}#
+ #{r\ 1379}#
+ #{w\ 1380}#
+ #{s\ 1381}#
+ #{mod\ 1382}#)
+ ((lambda (#{tmp\ 1383}#)
+ ((lambda (#{tmp\ 1384}#)
+ (if #{tmp\ 1384}#
+ (apply (lambda (#{_\ 1385}#
+ #{args\ 1386}#
+ #{e1\ 1387}#
+ #{e2\ 1388}#
+ #{args*\ 1389}#
+ #{e1*\ 1390}#
+ #{e2*\ 1391}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3843}#
- #{e\ 5042}#
- #{r\ 5043}#
- #{w\ 5044}#
- #{s\ 5045}#
- #{mod\ 5046}#
- #{lambda*-formals\ 3842}#
- (cons (cons #{args\ 5050}#
- (cons #{e1\ 5051}# #{e2\ 5052}#))
- (map (lambda (#{tmp\ 5059}#
- #{tmp\ 5058}#
- #{tmp\ 5057}#)
- (cons #{tmp\ 5057}#
- (cons #{tmp\ 5058}#
- #{tmp\ 5059}#)))
- #{e2*\ 5055}#
- #{e1*\ 5054}#
- #{args*\ 5053}#))))
- (lambda (#{docstring\ 5061}# #{lcase\ 5062}#)
- (#{build-case-lambda\ 3770}#
- #{s\ 5045}#
- #{docstring\ 5061}#
- #{lcase\ 5062}#))))
- #{tmp\ 5048}#)
- ((lambda (#{_\ 5063}#)
+ (#{chi-lambda-case\ 179}#
+ #{e\ 1378}#
+ #{r\ 1379}#
+ #{w\ 1380}#
+ #{s\ 1381}#
+ #{mod\ 1382}#
+ #{lambda*-formals\ 178}#
+ (cons (cons #{args\ 1386}#
+ (cons #{e1\ 1387}# #{e2\ 1388}#))
+ (map (lambda (#{tmp\ 1395}#
+ #{tmp\ 1394}#
+ #{tmp\ 1393}#)
+ (cons #{tmp\ 1393}#
+ (cons #{tmp\ 1394}#
+ #{tmp\ 1395}#)))
+ #{e2*\ 1391}#
+ #{e1*\ 1390}#
+ #{args*\ 1389}#))))
+ (lambda (#{docstring\ 1397}# #{lcase\ 1398}#)
+ (#{build-case-lambda\ 106}#
+ #{s\ 1381}#
+ #{docstring\ 1397}#
+ #{lcase\ 1398}#))))
+ #{tmp\ 1384}#)
+ ((lambda (#{_\ 1399}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 5042}#))
- #{tmp\ 5047}#)))
+ #{e\ 1378}#))
+ #{tmp\ 1383}#)))
($sc-dispatch
- #{tmp\ 5047}#
+ #{tmp\ 1383}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 5042}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1378}#)))
+ (#{global-extend\ 129}#
'core
'let
- (letrec ((#{chi-let\ 5064}#
- (lambda (#{e\ 5065}#
- #{r\ 5066}#
- #{w\ 5067}#
- #{s\ 5068}#
- #{mod\ 5069}#
- #{constructor\ 5070}#
- #{ids\ 5071}#
- #{vals\ 5072}#
- #{exps\ 5073}#)
- (if (not (#{valid-bound-ids?\ 3820}# #{ids\ 5071}#))
+ (letrec ((#{chi-let\ 1400}#
+ (lambda (#{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#
+ #{constructor\ 1406}#
+ #{ids\ 1407}#
+ #{vals\ 1408}#
+ #{exps\ 1409}#)
+ (if (not (#{valid-bound-ids?\ 156}# #{ids\ 1407}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 5065}#)
- (let ((#{labels\ 5074}#
- (#{gen-labels\ 3801}# #{ids\ 5071}#))
- (#{new-vars\ 5075}#
- (map #{gen-var\ 3845}# #{ids\ 5071}#)))
- (let ((#{nw\ 5076}#
- (#{make-binding-wrap\ 3812}#
- #{ids\ 5071}#
- #{labels\ 5074}#
- #{w\ 5067}#))
- (#{nr\ 5077}#
- (#{extend-var-env\ 3790}#
- #{labels\ 5074}#
- #{new-vars\ 5075}#
- #{r\ 5066}#)))
- (#{constructor\ 5070}#
- #{s\ 5068}#
- (map syntax->datum #{ids\ 5071}#)
- #{new-vars\ 5075}#
- (map (lambda (#{x\ 5078}#)
- (#{chi\ 3831}#
- #{x\ 5078}#
- #{r\ 5066}#
- #{w\ 5067}#
- #{mod\ 5069}#))
- #{vals\ 5072}#)
- (#{chi-body\ 3835}#
- #{exps\ 5073}#
- (#{source-wrap\ 3824}#
- #{e\ 5065}#
- #{nw\ 5076}#
- #{s\ 5068}#
- #{mod\ 5069}#)
- #{nr\ 5077}#
- #{nw\ 5076}#
- #{mod\ 5069}#))))))))
- (lambda (#{e\ 5079}#
- #{r\ 5080}#
- #{w\ 5081}#
- #{s\ 5082}#
- #{mod\ 5083}#)
- ((lambda (#{tmp\ 5084}#)
- ((lambda (#{tmp\ 5085}#)
- (if (if #{tmp\ 5085}#
- (apply (lambda (#{_\ 5086}#
- #{id\ 5087}#
- #{val\ 5088}#
- #{e1\ 5089}#
- #{e2\ 5090}#)
- (and-map #{id?\ 3795}# #{id\ 5087}#))
- #{tmp\ 5085}#)
+ #{e\ 1401}#)
+ (let ((#{labels\ 1410}#
+ (#{gen-labels\ 137}# #{ids\ 1407}#))
+ (#{new-vars\ 1411}#
+ (map #{gen-var\ 181}# #{ids\ 1407}#)))
+ (let ((#{nw\ 1412}#
+ (#{make-binding-wrap\ 148}#
+ #{ids\ 1407}#
+ #{labels\ 1410}#
+ #{w\ 1403}#))
+ (#{nr\ 1413}#
+ (#{extend-var-env\ 126}#
+ #{labels\ 1410}#
+ #{new-vars\ 1411}#
+ #{r\ 1402}#)))
+ (#{constructor\ 1406}#
+ #{s\ 1404}#
+ (map syntax->datum #{ids\ 1407}#)
+ #{new-vars\ 1411}#
+ (map (lambda (#{x\ 1414}#)
+ (#{chi\ 167}#
+ #{x\ 1414}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{mod\ 1405}#))
+ #{vals\ 1408}#)
+ (#{chi-body\ 171}#
+ #{exps\ 1409}#
+ (#{source-wrap\ 160}#
+ #{e\ 1401}#
+ #{nw\ 1412}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ #{nr\ 1413}#
+ #{nw\ 1412}#
+ #{mod\ 1405}#))))))))
+ (lambda (#{e\ 1415}#
+ #{r\ 1416}#
+ #{w\ 1417}#
+ #{s\ 1418}#
+ #{mod\ 1419}#)
+ ((lambda (#{tmp\ 1420}#)
+ ((lambda (#{tmp\ 1421}#)
+ (if (if #{tmp\ 1421}#
+ (apply (lambda (#{_\ 1422}#
+ #{id\ 1423}#
+ #{val\ 1424}#
+ #{e1\ 1425}#
+ #{e2\ 1426}#)
+ (and-map #{id?\ 131}# #{id\ 1423}#))
+ #{tmp\ 1421}#)
#f)
- (apply (lambda (#{_\ 5092}#
- #{id\ 5093}#
- #{val\ 5094}#
- #{e1\ 5095}#
- #{e2\ 5096}#)
- (#{chi-let\ 5064}#
- #{e\ 5079}#
- #{r\ 5080}#
- #{w\ 5081}#
- #{s\ 5082}#
- #{mod\ 5083}#
- #{build-let\ 3775}#
- #{id\ 5093}#
- #{val\ 5094}#
- (cons #{e1\ 5095}# #{e2\ 5096}#)))
- #{tmp\ 5085}#)
- ((lambda (#{tmp\ 5100}#)
- (if (if #{tmp\ 5100}#
- (apply (lambda (#{_\ 5101}#
- #{f\ 5102}#
- #{id\ 5103}#
- #{val\ 5104}#
- #{e1\ 5105}#
- #{e2\ 5106}#)
- (if (#{id?\ 3795}# #{f\ 5102}#)
- (and-map #{id?\ 3795}# #{id\ 5103}#)
+ (apply (lambda (#{_\ 1428}#
+ #{id\ 1429}#
+ #{val\ 1430}#
+ #{e1\ 1431}#
+ #{e2\ 1432}#)
+ (#{chi-let\ 1400}#
+ #{e\ 1415}#
+ #{r\ 1416}#
+ #{w\ 1417}#
+ #{s\ 1418}#
+ #{mod\ 1419}#
+ #{build-let\ 111}#
+ #{id\ 1429}#
+ #{val\ 1430}#
+ (cons #{e1\ 1431}# #{e2\ 1432}#)))
+ #{tmp\ 1421}#)
+ ((lambda (#{tmp\ 1436}#)
+ (if (if #{tmp\ 1436}#
+ (apply (lambda (#{_\ 1437}#
+ #{f\ 1438}#
+ #{id\ 1439}#
+ #{val\ 1440}#
+ #{e1\ 1441}#
+ #{e2\ 1442}#)
+ (if (#{id?\ 131}# #{f\ 1438}#)
+ (and-map #{id?\ 131}# #{id\ 1439}#)
#f))
- #{tmp\ 5100}#)
+ #{tmp\ 1436}#)
#f)
- (apply (lambda (#{_\ 5108}#
- #{f\ 5109}#
- #{id\ 5110}#
- #{val\ 5111}#
- #{e1\ 5112}#
- #{e2\ 5113}#)
- (#{chi-let\ 5064}#
- #{e\ 5079}#
- #{r\ 5080}#
- #{w\ 5081}#
- #{s\ 5082}#
- #{mod\ 5083}#
- #{build-named-let\ 3776}#
- (cons #{f\ 5109}# #{id\ 5110}#)
- #{val\ 5111}#
- (cons #{e1\ 5112}# #{e2\ 5113}#)))
- #{tmp\ 5100}#)
- ((lambda (#{_\ 5117}#)
+ (apply (lambda (#{_\ 1444}#
+ #{f\ 1445}#
+ #{id\ 1446}#
+ #{val\ 1447}#
+ #{e1\ 1448}#
+ #{e2\ 1449}#)
+ (#{chi-let\ 1400}#
+ #{e\ 1415}#
+ #{r\ 1416}#
+ #{w\ 1417}#
+ #{s\ 1418}#
+ #{mod\ 1419}#
+ #{build-named-let\ 112}#
+ (cons #{f\ 1445}# #{id\ 1446}#)
+ #{val\ 1447}#
+ (cons #{e1\ 1448}# #{e2\ 1449}#)))
+ #{tmp\ 1436}#)
+ ((lambda (#{_\ 1453}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 3824}#
- #{e\ 5079}#
- #{w\ 5081}#
- #{s\ 5082}#
- #{mod\ 5083}#)))
- #{tmp\ 5084}#)))
+ (#{source-wrap\ 160}#
+ #{e\ 1415}#
+ #{w\ 1417}#
+ #{s\ 1418}#
+ #{mod\ 1419}#)))
+ #{tmp\ 1420}#)))
($sc-dispatch
- #{tmp\ 5084}#
+ #{tmp\ 1420}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 5084}#
+ #{tmp\ 1420}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5079}#))))
- (#{global-extend\ 3793}#
+ #{e\ 1415}#))))
+ (#{global-extend\ 129}#
'core
'letrec
- (lambda (#{e\ 5118}#
- #{r\ 5119}#
- #{w\ 5120}#
- #{s\ 5121}#
- #{mod\ 5122}#)
- ((lambda (#{tmp\ 5123}#)
- ((lambda (#{tmp\ 5124}#)
- (if (if #{tmp\ 5124}#
- (apply (lambda (#{_\ 5125}#
- #{id\ 5126}#
- #{val\ 5127}#
- #{e1\ 5128}#
- #{e2\ 5129}#)
- (and-map #{id?\ 3795}# #{id\ 5126}#))
- #{tmp\ 5124}#)
+ (lambda (#{e\ 1454}#
+ #{r\ 1455}#
+ #{w\ 1456}#
+ #{s\ 1457}#
+ #{mod\ 1458}#)
+ ((lambda (#{tmp\ 1459}#)
+ ((lambda (#{tmp\ 1460}#)
+ (if (if #{tmp\ 1460}#
+ (apply (lambda (#{_\ 1461}#
+ #{id\ 1462}#
+ #{val\ 1463}#
+ #{e1\ 1464}#
+ #{e2\ 1465}#)
+ (and-map #{id?\ 131}# #{id\ 1462}#))
+ #{tmp\ 1460}#)
#f)
- (apply (lambda (#{_\ 5131}#
- #{id\ 5132}#
- #{val\ 5133}#
- #{e1\ 5134}#
- #{e2\ 5135}#)
- (let ((#{ids\ 5136}# #{id\ 5132}#))
- (if (not (#{valid-bound-ids?\ 3820}#
- #{ids\ 5136}#))
+ (apply (lambda (#{_\ 1467}#
+ #{id\ 1468}#
+ #{val\ 1469}#
+ #{e1\ 1470}#
+ #{e2\ 1471}#)
+ (let ((#{ids\ 1472}# #{id\ 1468}#))
+ (if (not (#{valid-bound-ids?\ 156}#
+ #{ids\ 1472}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 5118}#)
- (let ((#{labels\ 5138}#
- (#{gen-labels\ 3801}# #{ids\ 5136}#))
- (#{new-vars\ 5139}#
- (map #{gen-var\ 3845}# #{ids\ 5136}#)))
- (let ((#{w\ 5140}#
- (#{make-binding-wrap\ 3812}#
- #{ids\ 5136}#
- #{labels\ 5138}#
- #{w\ 5120}#))
- (#{r\ 5141}#
- (#{extend-var-env\ 3790}#
- #{labels\ 5138}#
- #{new-vars\ 5139}#
- #{r\ 5119}#)))
- (#{build-letrec\ 3777}#
- #{s\ 5121}#
- (map syntax->datum #{ids\ 5136}#)
- #{new-vars\ 5139}#
- (map (lambda (#{x\ 5142}#)
- (#{chi\ 3831}#
- #{x\ 5142}#
- #{r\ 5141}#
- #{w\ 5140}#
- #{mod\ 5122}#))
- #{val\ 5133}#)
- (#{chi-body\ 3835}#
- (cons #{e1\ 5134}# #{e2\ 5135}#)
- (#{source-wrap\ 3824}#
- #{e\ 5118}#
- #{w\ 5140}#
- #{s\ 5121}#
- #{mod\ 5122}#)
- #{r\ 5141}#
- #{w\ 5140}#
- #{mod\ 5122}#)))))))
- #{tmp\ 5124}#)
- ((lambda (#{_\ 5145}#)
+ #{e\ 1454}#)
+ (let ((#{labels\ 1474}#
+ (#{gen-labels\ 137}# #{ids\ 1472}#))
+ (#{new-vars\ 1475}#
+ (map #{gen-var\ 181}# #{ids\ 1472}#)))
+ (let ((#{w\ 1476}#
+ (#{make-binding-wrap\ 148}#
+ #{ids\ 1472}#
+ #{labels\ 1474}#
+ #{w\ 1456}#))
+ (#{r\ 1477}#
+ (#{extend-var-env\ 126}#
+ #{labels\ 1474}#
+ #{new-vars\ 1475}#
+ #{r\ 1455}#)))
+ (#{build-letrec\ 113}#
+ #{s\ 1457}#
+ (map syntax->datum #{ids\ 1472}#)
+ #{new-vars\ 1475}#
+ (map (lambda (#{x\ 1478}#)
+ (#{chi\ 167}#
+ #{x\ 1478}#
+ #{r\ 1477}#
+ #{w\ 1476}#
+ #{mod\ 1458}#))
+ #{val\ 1469}#)
+ (#{chi-body\ 171}#
+ (cons #{e1\ 1470}# #{e2\ 1471}#)
+ (#{source-wrap\ 160}#
+ #{e\ 1454}#
+ #{w\ 1476}#
+ #{s\ 1457}#
+ #{mod\ 1458}#)
+ #{r\ 1477}#
+ #{w\ 1476}#
+ #{mod\ 1458}#)))))))
+ #{tmp\ 1460}#)
+ ((lambda (#{_\ 1481}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 3824}#
- #{e\ 5118}#
- #{w\ 5120}#
- #{s\ 5121}#
- #{mod\ 5122}#)))
- #{tmp\ 5123}#)))
+ (#{source-wrap\ 160}#
+ #{e\ 1454}#
+ #{w\ 1456}#
+ #{s\ 1457}#
+ #{mod\ 1458}#)))
+ #{tmp\ 1459}#)))
($sc-dispatch
- #{tmp\ 5123}#
+ #{tmp\ 1459}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5118}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1454}#)))
+ (#{global-extend\ 129}#
'core
'set!
- (lambda (#{e\ 5146}#
- #{r\ 5147}#
- #{w\ 5148}#
- #{s\ 5149}#
- #{mod\ 5150}#)
- ((lambda (#{tmp\ 5151}#)
- ((lambda (#{tmp\ 5152}#)
- (if (if #{tmp\ 5152}#
- (apply (lambda (#{_\ 5153}# #{id\ 5154}# #{val\ 5155}#)
- (#{id?\ 3795}# #{id\ 5154}#))
- #{tmp\ 5152}#)
+ (lambda (#{e\ 1482}#
+ #{r\ 1483}#
+ #{w\ 1484}#
+ #{s\ 1485}#
+ #{mod\ 1486}#)
+ ((lambda (#{tmp\ 1487}#)
+ ((lambda (#{tmp\ 1488}#)
+ (if (if #{tmp\ 1488}#
+ (apply (lambda (#{_\ 1489}# #{id\ 1490}# #{val\ 1491}#)
+ (#{id?\ 131}# #{id\ 1490}#))
+ #{tmp\ 1488}#)
#f)
- (apply (lambda (#{_\ 5156}# #{id\ 5157}# #{val\ 5158}#)
- (let ((#{val\ 5159}#
- (#{chi\ 3831}#
- #{val\ 5158}#
- #{r\ 5147}#
- #{w\ 5148}#
- #{mod\ 5150}#))
- (#{n\ 5160}#
- (#{id-var-name\ 3817}#
- #{id\ 5157}#
- #{w\ 5148}#)))
- (let ((#{b\ 5161}#
- (#{lookup\ 3792}#
- #{n\ 5160}#
- #{r\ 5147}#
- #{mod\ 5150}#)))
- (let ((#{atom-key\ 5162}#
- (#{binding-type\ 3787}# #{b\ 5161}#)))
- (if (memv #{atom-key\ 5162}#
+ (apply (lambda (#{_\ 1492}# #{id\ 1493}# #{val\ 1494}#)
+ (let ((#{val\ 1495}#
+ (#{chi\ 167}#
+ #{val\ 1494}#
+ #{r\ 1483}#
+ #{w\ 1484}#
+ #{mod\ 1486}#))
+ (#{n\ 1496}#
+ (#{id-var-name\ 153}#
+ #{id\ 1493}#
+ #{w\ 1484}#)))
+ (let ((#{b\ 1497}#
+ (#{lookup\ 128}#
+ #{n\ 1496}#
+ #{r\ 1483}#
+ #{mod\ 1486}#)))
+ (let ((#{atom-key\ 1498}#
+ (#{binding-type\ 123}# #{b\ 1497}#)))
+ (if (memv #{atom-key\ 1498}#
'(lexical))
- (#{build-lexical-assignment\ 3763}#
- #{s\ 5149}#
- (syntax->datum #{id\ 5157}#)
- (#{binding-value\ 3788}# #{b\ 5161}#)
- #{val\ 5159}#)
- (if (memv #{atom-key\ 5162}#
+ (#{build-lexical-assignment\ 99}#
+ #{s\ 1485}#
+ (syntax->datum #{id\ 1493}#)
+ (#{binding-value\ 124}# #{b\ 1497}#)
+ #{val\ 1495}#)
+ (if (memv #{atom-key\ 1498}#
'(global))
- (#{build-global-assignment\ 3766}#
- #{s\ 5149}#
- #{n\ 5160}#
- #{val\ 5159}#
- #{mod\ 5150}#)
- (if (memv #{atom-key\ 5162}#
+ (#{build-global-assignment\ 102}#
+ #{s\ 1485}#
+ #{n\ 1496}#
+ #{val\ 1495}#
+ #{mod\ 1486}#)
+ (if (memv #{atom-key\ 1498}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 3823}#
- #{id\ 5157}#
- #{w\ 5148}#
- #{mod\ 5150}#))
+ (#{wrap\ 159}#
+ #{id\ 1493}#
+ #{w\ 1484}#
+ #{mod\ 1486}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 3824}#
- #{e\ 5146}#
- #{w\ 5148}#
- #{s\ 5149}#
- #{mod\ 5150}#)))))))))
- #{tmp\ 5152}#)
- ((lambda (#{tmp\ 5163}#)
- (if #{tmp\ 5163}#
- (apply (lambda (#{_\ 5164}#
- #{head\ 5165}#
- #{tail\ 5166}#
- #{val\ 5167}#)
+ (#{source-wrap\ 160}#
+ #{e\ 1482}#
+ #{w\ 1484}#
+ #{s\ 1485}#
+ #{mod\ 1486}#)))))))))
+ #{tmp\ 1488}#)
+ ((lambda (#{tmp\ 1499}#)
+ (if #{tmp\ 1499}#
+ (apply (lambda (#{_\ 1500}#
+ #{head\ 1501}#
+ #{tail\ 1502}#
+ #{val\ 1503}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3829}#
- #{head\ 5165}#
- #{r\ 5147}#
+ (#{syntax-type\ 165}#
+ #{head\ 1501}#
+ #{r\ 1483}#
'(())
#f
#f
- #{mod\ 5150}#
+ #{mod\ 1486}#
#t))
- (lambda (#{type\ 5168}#
- #{value\ 5169}#
- #{ee\ 5170}#
- #{ww\ 5171}#
- #{ss\ 5172}#
- #{modmod\ 5173}#)
- (if (memv #{type\ 5168}#
+ (lambda (#{type\ 1504}#
+ #{value\ 1505}#
+ #{ee\ 1506}#
+ #{ww\ 1507}#
+ #{ss\ 1508}#
+ #{modmod\ 1509}#)
+ (if (memv #{type\ 1504}#
'(module-ref))
- (let ((#{val\ 5174}#
- (#{chi\ 3831}#
- #{val\ 5167}#
- #{r\ 5147}#
- #{w\ 5148}#
- #{mod\ 5150}#)))
+ (let ((#{val\ 1510}#
+ (#{chi\ 167}#
+ #{val\ 1503}#
+ #{r\ 1483}#
+ #{w\ 1484}#
+ #{mod\ 1486}#)))
(call-with-values
(lambda ()
- (#{value\ 5169}#
- (cons #{head\ 5165}#
- #{tail\ 5166}#)))
- (lambda (#{id\ 5176}# #{mod\ 5177}#)
- (#{build-global-assignment\ 3766}#
- #{s\ 5149}#
- #{id\ 5176}#
- #{val\ 5174}#
- #{mod\ 5177}#))))
- (#{build-application\ 3760}#
- #{s\ 5149}#
- (#{chi\ 3831}#
+ (#{value\ 1505}#
+ (cons #{head\ 1501}#
+ #{tail\ 1502}#)))
+ (lambda (#{id\ 1512}# #{mod\ 1513}#)
+ (#{build-global-assignment\ 102}#
+ #{s\ 1485}#
+ #{id\ 1512}#
+ #{val\ 1510}#
+ #{mod\ 1513}#))))
+ (#{build-application\ 96}#
+ #{s\ 1485}#
+ (#{chi\ 167}#
(list '#(syntax-object
setter
((top)
@@ -9328,53 +9364,53 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{head\ 5165}#)
- #{r\ 5147}#
- #{w\ 5148}#
- #{mod\ 5150}#)
- (map (lambda (#{e\ 5178}#)
- (#{chi\ 3831}#
- #{e\ 5178}#
- #{r\ 5147}#
- #{w\ 5148}#
- #{mod\ 5150}#))
+ #{head\ 1501}#)
+ #{r\ 1483}#
+ #{w\ 1484}#
+ #{mod\ 1486}#)
+ (map (lambda (#{e\ 1514}#)
+ (#{chi\ 167}#
+ #{e\ 1514}#
+ #{r\ 1483}#
+ #{w\ 1484}#
+ #{mod\ 1486}#))
(append
- #{tail\ 5166}#
- (list #{val\ 5167}#))))))))
- #{tmp\ 5163}#)
- ((lambda (#{_\ 5180}#)
+ #{tail\ 1502}#
+ (list #{val\ 1503}#))))))))
+ #{tmp\ 1499}#)
+ ((lambda (#{_\ 1516}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 3824}#
- #{e\ 5146}#
- #{w\ 5148}#
- #{s\ 5149}#
- #{mod\ 5150}#)))
- #{tmp\ 5151}#)))
+ (#{source-wrap\ 160}#
+ #{e\ 1482}#
+ #{w\ 1484}#
+ #{s\ 1485}#
+ #{mod\ 1486}#)))
+ #{tmp\ 1487}#)))
($sc-dispatch
- #{tmp\ 5151}#
+ #{tmp\ 1487}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 5151}#
+ #{tmp\ 1487}#
'(any any any))))
- #{e\ 5146}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1482}#)))
+ (#{global-extend\ 129}#
'module-ref
'@
- (lambda (#{e\ 5181}#)
- ((lambda (#{tmp\ 5182}#)
- ((lambda (#{tmp\ 5183}#)
- (if (if #{tmp\ 5183}#
- (apply (lambda (#{_\ 5184}# #{mod\ 5185}# #{id\ 5186}#)
- (if (and-map #{id?\ 3795}# #{mod\ 5185}#)
- (#{id?\ 3795}# #{id\ 5186}#)
+ (lambda (#{e\ 1517}#)
+ ((lambda (#{tmp\ 1518}#)
+ ((lambda (#{tmp\ 1519}#)
+ (if (if #{tmp\ 1519}#
+ (apply (lambda (#{_\ 1520}# #{mod\ 1521}# #{id\ 1522}#)
+ (if (and-map #{id?\ 131}# #{mod\ 1521}#)
+ (#{id?\ 131}# #{id\ 1522}#)
#f))
- #{tmp\ 5183}#)
+ #{tmp\ 1519}#)
#f)
- (apply (lambda (#{_\ 5188}# #{mod\ 5189}# #{id\ 5190}#)
+ (apply (lambda (#{_\ 1524}# #{mod\ 1525}# #{id\ 1526}#)
(values
- (syntax->datum #{id\ 5190}#)
+ (syntax->datum #{id\ 1526}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9742,32 +9778,32 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 5189}#))))
- #{tmp\ 5183}#)
+ #{mod\ 1525}#))))
+ #{tmp\ 1519}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5182}#)))
+ #{tmp\ 1518}#)))
($sc-dispatch
- #{tmp\ 5182}#
+ #{tmp\ 1518}#
'(any each-any any))))
- #{e\ 5181}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1517}#)))
+ (#{global-extend\ 129}#
'module-ref
'@@
- (lambda (#{e\ 5192}#)
- ((lambda (#{tmp\ 5193}#)
- ((lambda (#{tmp\ 5194}#)
- (if (if #{tmp\ 5194}#
- (apply (lambda (#{_\ 5195}# #{mod\ 5196}# #{id\ 5197}#)
- (if (and-map #{id?\ 3795}# #{mod\ 5196}#)
- (#{id?\ 3795}# #{id\ 5197}#)
+ (lambda (#{e\ 1528}#)
+ ((lambda (#{tmp\ 1529}#)
+ ((lambda (#{tmp\ 1530}#)
+ (if (if #{tmp\ 1530}#
+ (apply (lambda (#{_\ 1531}# #{mod\ 1532}# #{id\ 1533}#)
+ (if (and-map #{id?\ 131}# #{mod\ 1532}#)
+ (#{id?\ 131}# #{id\ 1533}#)
#f))
- #{tmp\ 5194}#)
+ #{tmp\ 1530}#)
#f)
- (apply (lambda (#{_\ 5199}# #{mod\ 5200}# #{id\ 5201}#)
+ (apply (lambda (#{_\ 1535}# #{mod\ 1536}# #{id\ 1537}#)
(values
- (syntax->datum #{id\ 5201}#)
+ (syntax->datum #{id\ 1537}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -10135,123 +10171,123 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 5200}#))))
- #{tmp\ 5194}#)
+ #{mod\ 1536}#))))
+ #{tmp\ 1530}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5193}#)))
+ #{tmp\ 1529}#)))
($sc-dispatch
- #{tmp\ 5193}#
+ #{tmp\ 1529}#
'(any each-any any))))
- #{e\ 5192}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1528}#)))
+ (#{global-extend\ 129}#
'core
'if
- (lambda (#{e\ 5203}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{s\ 5206}#
- #{mod\ 5207}#)
- ((lambda (#{tmp\ 5208}#)
- ((lambda (#{tmp\ 5209}#)
- (if #{tmp\ 5209}#
- (apply (lambda (#{_\ 5210}# #{test\ 5211}# #{then\ 5212}#)
- (#{build-conditional\ 3761}#
- #{s\ 5206}#
- (#{chi\ 3831}#
- #{test\ 5211}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{mod\ 5207}#)
- (#{chi\ 3831}#
- #{then\ 5212}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{mod\ 5207}#)
- (#{build-void\ 3759}# #f)))
- #{tmp\ 5209}#)
- ((lambda (#{tmp\ 5213}#)
- (if #{tmp\ 5213}#
- (apply (lambda (#{_\ 5214}#
- #{test\ 5215}#
- #{then\ 5216}#
- #{else\ 5217}#)
- (#{build-conditional\ 3761}#
- #{s\ 5206}#
- (#{chi\ 3831}#
- #{test\ 5215}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{mod\ 5207}#)
- (#{chi\ 3831}#
- #{then\ 5216}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{mod\ 5207}#)
- (#{chi\ 3831}#
- #{else\ 5217}#
- #{r\ 5204}#
- #{w\ 5205}#
- #{mod\ 5207}#)))
- #{tmp\ 5213}#)
+ (lambda (#{e\ 1539}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{s\ 1542}#
+ #{mod\ 1543}#)
+ ((lambda (#{tmp\ 1544}#)
+ ((lambda (#{tmp\ 1545}#)
+ (if #{tmp\ 1545}#
+ (apply (lambda (#{_\ 1546}# #{test\ 1547}# #{then\ 1548}#)
+ (#{build-conditional\ 97}#
+ #{s\ 1542}#
+ (#{chi\ 167}#
+ #{test\ 1547}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{mod\ 1543}#)
+ (#{chi\ 167}#
+ #{then\ 1548}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{mod\ 1543}#)
+ (#{build-void\ 95}# #f)))
+ #{tmp\ 1545}#)
+ ((lambda (#{tmp\ 1549}#)
+ (if #{tmp\ 1549}#
+ (apply (lambda (#{_\ 1550}#
+ #{test\ 1551}#
+ #{then\ 1552}#
+ #{else\ 1553}#)
+ (#{build-conditional\ 97}#
+ #{s\ 1542}#
+ (#{chi\ 167}#
+ #{test\ 1551}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{mod\ 1543}#)
+ (#{chi\ 167}#
+ #{then\ 1552}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{mod\ 1543}#)
+ (#{chi\ 167}#
+ #{else\ 1553}#
+ #{r\ 1540}#
+ #{w\ 1541}#
+ #{mod\ 1543}#)))
+ #{tmp\ 1549}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5208}#)))
+ #{tmp\ 1544}#)))
($sc-dispatch
- #{tmp\ 5208}#
+ #{tmp\ 1544}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 5208}#
+ #{tmp\ 1544}#
'(any any any))))
- #{e\ 5203}#)))
- (#{global-extend\ 3793}#
+ #{e\ 1539}#)))
+ (#{global-extend\ 129}#
'begin
'begin
'())
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'define
'define
'())
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'eval-when
'eval-when
'())
- (#{global-extend\ 3793}#
+ (#{global-extend\ 129}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 5221}#
- (lambda (#{x\ 5222}#
- #{keys\ 5223}#
- #{clauses\ 5224}#
- #{r\ 5225}#
- #{mod\ 5226}#)
- (if (null? #{clauses\ 5224}#)
- (#{build-application\ 3760}#
+ (letrec ((#{gen-syntax-case\ 1557}#
+ (lambda (#{x\ 1558}#
+ #{keys\ 1559}#
+ #{clauses\ 1560}#
+ #{r\ 1561}#
+ #{mod\ 1562}#)
+ (if (null? #{clauses\ 1560}#)
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'syntax-violation)
- (list (#{build-data\ 3773}# #f #f)
- (#{build-data\ 3773}#
+ (list (#{build-data\ 109}# #f #f)
+ (#{build-data\ 109}#
#f
"source expression failed to match any pattern")
- #{x\ 5222}#))
- ((lambda (#{tmp\ 5227}#)
- ((lambda (#{tmp\ 5228}#)
- (if #{tmp\ 5228}#
- (apply (lambda (#{pat\ 5229}# #{exp\ 5230}#)
- (if (if (#{id?\ 3795}# #{pat\ 5229}#)
+ #{x\ 1558}#))
+ ((lambda (#{tmp\ 1563}#)
+ ((lambda (#{tmp\ 1564}#)
+ (if #{tmp\ 1564}#
+ (apply (lambda (#{pat\ 1565}# #{exp\ 1566}#)
+ (if (if (#{id?\ 131}# #{pat\ 1565}#)
(and-map
- (lambda (#{x\ 5231}#)
- (not (#{free-id=?\ 3818}#
- #{pat\ 5229}#
- #{x\ 5231}#)))
+ (lambda (#{x\ 1567}#)
+ (not (#{free-id=?\ 154}#
+ #{pat\ 1565}#
+ #{x\ 1567}#)))
(cons '#(syntax-object
...
((top)
@@ -10644,735 +10680,903 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{keys\ 5223}#))
+ #{keys\ 1559}#))
#f)
- (let ((#{labels\ 5232}#
- (list (#{gen-label\ 3800}#)))
- (#{var\ 5233}#
- (#{gen-var\ 3845}#
- #{pat\ 5229}#)))
- (#{build-application\ 3760}#
+ (let ((#{labels\ 1568}#
+ (list (#{gen-label\ 136}#)))
+ (#{var\ 1569}#
+ (#{gen-var\ 181}#
+ #{pat\ 1565}#)))
+ (#{build-application\ 96}#
#f
- (#{build-simple-lambda\ 3769}#
+ (#{build-simple-lambda\ 105}#
#f
(list (syntax->datum
- #{pat\ 5229}#))
+ #{pat\ 1565}#))
#f
- (list #{var\ 5233}#)
+ (list #{var\ 1569}#)
#f
- (#{chi\ 3831}#
- #{exp\ 5230}#
- (#{extend-env\ 3789}#
- #{labels\ 5232}#
+ (#{chi\ 167}#
+ #{exp\ 1566}#
+ (#{extend-env\ 125}#
+ #{labels\ 1568}#
(list (cons 'syntax
- (cons #{var\ 5233}#
+ (cons #{var\ 1569}#
0)))
- #{r\ 5225}#)
- (#{make-binding-wrap\ 3812}#
- (list #{pat\ 5229}#)
- #{labels\ 5232}#
+ #{r\ 1561}#)
+ (#{make-binding-wrap\ 148}#
+ (list #{pat\ 1565}#)
+ #{labels\ 1568}#
'(()))
- #{mod\ 5226}#))
- (list #{x\ 5222}#)))
- (#{gen-clause\ 5220}#
- #{x\ 5222}#
- #{keys\ 5223}#
- (cdr #{clauses\ 5224}#)
- #{r\ 5225}#
- #{pat\ 5229}#
+ #{mod\ 1562}#))
+ (list #{x\ 1558}#)))
+ (#{gen-clause\ 1556}#
+ #{x\ 1558}#
+ #{keys\ 1559}#
+ (cdr #{clauses\ 1560}#)
+ #{r\ 1561}#
+ #{pat\ 1565}#
#t
- #{exp\ 5230}#
- #{mod\ 5226}#)))
- #{tmp\ 5228}#)
- ((lambda (#{tmp\ 5234}#)
- (if #{tmp\ 5234}#
- (apply (lambda (#{pat\ 5235}#
- #{fender\ 5236}#
- #{exp\ 5237}#)
- (#{gen-clause\ 5220}#
- #{x\ 5222}#
- #{keys\ 5223}#
- (cdr #{clauses\ 5224}#)
- #{r\ 5225}#
- #{pat\ 5235}#
- #{fender\ 5236}#
- #{exp\ 5237}#
- #{mod\ 5226}#))
- #{tmp\ 5234}#)
- ((lambda (#{_\ 5238}#)
+ #{exp\ 1566}#
+ #{mod\ 1562}#)))
+ #{tmp\ 1564}#)
+ ((lambda (#{tmp\ 1570}#)
+ (if #{tmp\ 1570}#
+ (apply (lambda (#{pat\ 1571}#
+ #{fender\ 1572}#
+ #{exp\ 1573}#)
+ (#{gen-clause\ 1556}#
+ #{x\ 1558}#
+ #{keys\ 1559}#
+ (cdr #{clauses\ 1560}#)
+ #{r\ 1561}#
+ #{pat\ 1571}#
+ #{fender\ 1572}#
+ #{exp\ 1573}#
+ #{mod\ 1562}#))
+ #{tmp\ 1570}#)
+ ((lambda (#{_\ 1574}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 5224}#)))
- #{tmp\ 5227}#)))
+ (car #{clauses\ 1560}#)))
+ #{tmp\ 1563}#)))
($sc-dispatch
- #{tmp\ 5227}#
+ #{tmp\ 1563}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 5227}# (quote (any any)))))
- (car #{clauses\ 5224}#)))))
- (#{gen-clause\ 5220}#
- (lambda (#{x\ 5239}#
- #{keys\ 5240}#
- #{clauses\ 5241}#
- #{r\ 5242}#
- #{pat\ 5243}#
- #{fender\ 5244}#
- #{exp\ 5245}#
- #{mod\ 5246}#)
+ ($sc-dispatch #{tmp\ 1563}# (quote (any any)))))
+ (car #{clauses\ 1560}#)))))
+ (#{gen-clause\ 1556}#
+ (lambda (#{x\ 1575}#
+ #{keys\ 1576}#
+ #{clauses\ 1577}#
+ #{r\ 1578}#
+ #{pat\ 1579}#
+ #{fender\ 1580}#
+ #{exp\ 1581}#
+ #{mod\ 1582}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 5218}#
- #{pat\ 5243}#
- #{keys\ 5240}#))
- (lambda (#{p\ 5247}# #{pvars\ 5248}#)
- (if (not (#{distinct-bound-ids?\ 3821}#
- (map car #{pvars\ 5248}#)))
+ (#{convert-pattern\ 1554}#
+ #{pat\ 1579}#
+ #{keys\ 1576}#))
+ (lambda (#{p\ 1583}# #{pvars\ 1584}#)
+ (if (not (#{distinct-bound-ids?\ 157}#
+ (map car #{pvars\ 1584}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 5243}#)
+ #{pat\ 1579}#)
(if (not (and-map
- (lambda (#{x\ 5249}#)
- (not (#{ellipsis?\ 3839}#
- (car #{x\ 5249}#))))
- #{pvars\ 5248}#))
+ (lambda (#{x\ 1585}#)
+ (not (#{ellipsis?\ 175}#
+ (car #{x\ 1585}#))))
+ #{pvars\ 1584}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 5243}#)
- (let ((#{y\ 5250}#
- (#{gen-var\ 3845}# (quote tmp))))
- (#{build-application\ 3760}#
+ #{pat\ 1579}#)
+ (let ((#{y\ 1586}#
+ (#{gen-var\ 181}# (quote tmp))))
+ (#{build-application\ 96}#
#f
- (#{build-simple-lambda\ 3769}#
+ (#{build-simple-lambda\ 105}#
#f
(list (quote tmp))
#f
- (list #{y\ 5250}#)
+ (list #{y\ 1586}#)
#f
- (let ((#{y\ 5251}#
- (#{build-lexical-reference\ 3762}#
+ (let ((#{y\ 1587}#
+ (#{build-lexical-reference\ 98}#
'value
#f
'tmp
- #{y\ 5250}#)))
- (#{build-conditional\ 3761}#
+ #{y\ 1586}#)))
+ (#{build-conditional\ 97}#
#f
- ((lambda (#{tmp\ 5252}#)
- ((lambda (#{tmp\ 5253}#)
- (if #{tmp\ 5253}#
- (apply (lambda () #{y\ 5251}#)
- #{tmp\ 5253}#)
- ((lambda (#{_\ 5254}#)
- (#{build-conditional\ 3761}#
+ ((lambda (#{tmp\ 1588}#)
+ ((lambda (#{tmp\ 1589}#)
+ (if #{tmp\ 1589}#
+ (apply (lambda () #{y\ 1587}#)
+ #{tmp\ 1589}#)
+ ((lambda (#{_\ 1590}#)
+ (#{build-conditional\ 97}#
#f
- #{y\ 5251}#
- (#{build-dispatch-call\ 5219}#
- #{pvars\ 5248}#
- #{fender\ 5244}#
- #{y\ 5251}#
- #{r\ 5242}#
- #{mod\ 5246}#)
- (#{build-data\ 3773}#
+ #{y\ 1587}#
+ (#{build-dispatch-call\ 1555}#
+ #{pvars\ 1584}#
+ #{fender\ 1580}#
+ #{y\ 1587}#
+ #{r\ 1578}#
+ #{mod\ 1582}#)
+ (#{build-data\ 109}#
#f
#f)))
- #{tmp\ 5252}#)))
+ #{tmp\ 1588}#)))
($sc-dispatch
- #{tmp\ 5252}#
+ #{tmp\ 1588}#
'#(atom #t))))
- #{fender\ 5244}#)
- (#{build-dispatch-call\ 5219}#
- #{pvars\ 5248}#
- #{exp\ 5245}#
- #{y\ 5251}#
- #{r\ 5242}#
- #{mod\ 5246}#)
- (#{gen-syntax-case\ 5221}#
- #{x\ 5239}#
- #{keys\ 5240}#
- #{clauses\ 5241}#
- #{r\ 5242}#
- #{mod\ 5246}#))))
- (list (if (eq? #{p\ 5247}# (quote any))
- (#{build-application\ 3760}#
+ #{fender\ 1580}#)
+ (#{build-dispatch-call\ 1555}#
+ #{pvars\ 1584}#
+ #{exp\ 1581}#
+ #{y\ 1587}#
+ #{r\ 1578}#
+ #{mod\ 1582}#)
+ (#{gen-syntax-case\ 1557}#
+ #{x\ 1575}#
+ #{keys\ 1576}#
+ #{clauses\ 1577}#
+ #{r\ 1578}#
+ #{mod\ 1582}#))))
+ (list (if (eq? #{p\ 1583}# (quote any))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'list)
- (list #{x\ 5239}#))
- (#{build-application\ 3760}#
+ (list #{x\ 1575}#))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}#
+ (#{build-primref\ 108}#
#f
'$sc-dispatch)
- (list #{x\ 5239}#
- (#{build-data\ 3773}#
+ (list #{x\ 1575}#
+ (#{build-data\ 109}#
#f
- #{p\ 5247}#)))))))))))))
- (#{build-dispatch-call\ 5219}#
- (lambda (#{pvars\ 5255}#
- #{exp\ 5256}#
- #{y\ 5257}#
- #{r\ 5258}#
- #{mod\ 5259}#)
- (let ((#{ids\ 5260}# (map car #{pvars\ 5255}#))
- (#{levels\ 5261}# (map cdr #{pvars\ 5255}#)))
- (let ((#{labels\ 5262}#
- (#{gen-labels\ 3801}# #{ids\ 5260}#))
- (#{new-vars\ 5263}#
- (map #{gen-var\ 3845}# #{ids\ 5260}#)))
- (#{build-application\ 3760}#
+ #{p\ 1583}#)))))))))))))
+ (#{build-dispatch-call\ 1555}#
+ (lambda (#{pvars\ 1591}#
+ #{exp\ 1592}#
+ #{y\ 1593}#
+ #{r\ 1594}#
+ #{mod\ 1595}#)
+ (let ((#{ids\ 1596}# (map car #{pvars\ 1591}#))
+ (#{levels\ 1597}# (map cdr #{pvars\ 1591}#)))
+ (let ((#{labels\ 1598}#
+ (#{gen-labels\ 137}# #{ids\ 1596}#))
+ (#{new-vars\ 1599}#
+ (map #{gen-var\ 181}# #{ids\ 1596}#)))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 3772}# #f (quote apply))
- (list (#{build-simple-lambda\ 3769}#
+ (#{build-primref\ 108}# #f (quote apply))
+ (list (#{build-simple-lambda\ 105}#
#f
- (map syntax->datum #{ids\ 5260}#)
+ (map syntax->datum #{ids\ 1596}#)
#f
- #{new-vars\ 5263}#
+ #{new-vars\ 1599}#
#f
- (#{chi\ 3831}#
- #{exp\ 5256}#
- (#{extend-env\ 3789}#
- #{labels\ 5262}#
- (map (lambda (#{var\ 5264}#
- #{level\ 5265}#)
+ (#{chi\ 167}#
+ #{exp\ 1592}#
+ (#{extend-env\ 125}#
+ #{labels\ 1598}#
+ (map (lambda (#{var\ 1600}#
+ #{level\ 1601}#)
(cons 'syntax
- (cons #{var\ 5264}#
- #{level\ 5265}#)))
- #{new-vars\ 5263}#
- (map cdr #{pvars\ 5255}#))
- #{r\ 5258}#)
- (#{make-binding-wrap\ 3812}#
- #{ids\ 5260}#
- #{labels\ 5262}#
+ (cons #{var\ 1600}#
+ #{level\ 1601}#)))
+ #{new-vars\ 1599}#
+ (map cdr #{pvars\ 1591}#))
+ #{r\ 1594}#)
+ (#{make-binding-wrap\ 148}#
+ #{ids\ 1596}#
+ #{labels\ 1598}#
'(()))
- #{mod\ 5259}#))
- #{y\ 5257}#))))))
- (#{convert-pattern\ 5218}#
- (lambda (#{pattern\ 5266}# #{keys\ 5267}#)
- (letrec ((#{cvt\ 5268}#
- (lambda (#{p\ 5269}# #{n\ 5270}# #{ids\ 5271}#)
- (if (#{id?\ 3795}# #{p\ 5269}#)
- (if (#{bound-id-member?\ 3822}#
- #{p\ 5269}#
- #{keys\ 5267}#)
+ #{mod\ 1595}#))
+ #{y\ 1593}#))))))
+ (#{convert-pattern\ 1554}#
+ (lambda (#{pattern\ 1602}# #{keys\ 1603}#)
+ (letrec ((#{cvt\ 1605}#
+ (lambda (#{p\ 1606}# #{n\ 1607}# #{ids\ 1608}#)
+ (if (#{id?\ 131}# #{p\ 1606}#)
+ (if (#{bound-id-member?\ 158}#
+ #{p\ 1606}#
+ #{keys\ 1603}#)
(values
- (vector (quote free-id) #{p\ 5269}#)
- #{ids\ 5271}#)
+ (vector (quote free-id) #{p\ 1606}#)
+ #{ids\ 1608}#)
(values
'any
- (cons (cons #{p\ 5269}# #{n\ 5270}#)
- #{ids\ 5271}#)))
- ((lambda (#{tmp\ 5272}#)
- ((lambda (#{tmp\ 5273}#)
- (if (if #{tmp\ 5273}#
- (apply (lambda (#{x\ 5274}#
- #{dots\ 5275}#)
- (#{ellipsis?\ 3839}#
- #{dots\ 5275}#))
- #{tmp\ 5273}#)
+ (cons (cons #{p\ 1606}# #{n\ 1607}#)
+ #{ids\ 1608}#)))
+ ((lambda (#{tmp\ 1609}#)
+ ((lambda (#{tmp\ 1610}#)
+ (if (if #{tmp\ 1610}#
+ (apply (lambda (#{x\ 1611}#
+ #{dots\ 1612}#)
+ (#{ellipsis?\ 175}#
+ #{dots\ 1612}#))
+ #{tmp\ 1610}#)
#f)
- (apply (lambda (#{x\ 5276}#
- #{dots\ 5277}#)
+ (apply (lambda (#{x\ 1613}#
+ #{dots\ 1614}#)
(call-with-values
(lambda ()
- (#{cvt\ 5268}#
- #{x\ 5276}#
- (#{fx+\ 3750}#
- #{n\ 5270}#
+ (#{cvt\ 1605}#
+ #{x\ 1613}#
+ (#{fx+\ 86}#
+ #{n\ 1607}#
1)
- #{ids\ 5271}#))
- (lambda (#{p\ 5278}#
- #{ids\ 5279}#)
+ #{ids\ 1608}#))
+ (lambda (#{p\ 1615}#
+ #{ids\ 1616}#)
(values
- (if (eq? #{p\ 5278}#
+ (if (eq? #{p\ 1615}#
'any)
'each-any
(vector
'each
- #{p\ 5278}#))
- #{ids\ 5279}#))))
- #{tmp\ 5273}#)
- ((lambda (#{tmp\ 5280}#)
- (if #{tmp\ 5280}#
- (apply (lambda (#{x\ 5281}#
- #{y\ 5282}#)
+ #{p\ 1615}#))
+ #{ids\ 1616}#))))
+ #{tmp\ 1610}#)
+ ((lambda (#{tmp\ 1617}#)
+ (if (if #{tmp\ 1617}#
+ (apply (lambda (#{x\ 1618}#
+ #{dots\ 1619}#
+ #{ys\ 1620}#)
+ (#{ellipsis?\ 175}#
+ #{dots\ 1619}#))
+ #{tmp\ 1617}#)
+ #f)
+ (apply (lambda (#{x\ 1621}#
+ #{dots\ 1622}#
+ #{ys\ 1623}#)
(call-with-values
(lambda ()
- (#{cvt\ 5268}#
- #{y\ 5282}#
- #{n\ 5270}#
- #{ids\ 5271}#))
- (lambda (#{y\ 5283}#
- #{ids\ 5284}#)
+ (#{cvt*\ 1604}#
+ #{ys\ 1623}#
+ #{n\ 1607}#
+ #{ids\ 1608}#))
+ (lambda (#{ys\ 1625}#
+ #{ids\ 1626}#)
(call-with-values
(lambda ()
- (#{cvt\ 5268}#
- #{x\ 5281}#
- #{n\ 5270}#
- #{ids\ 5284}#))
- (lambda (#{x\ 5285}#
- #{ids\ 5286}#)
+ (#{cvt\ 1605}#
+ #{x\ 1621}#
+ (+ #{n\ 1607}#
+ 1)
+ #{ids\ 1626}#))
+ (lambda (#{x\ 1627}#
+ #{ids\ 1628}#)
(values
- (cons #{x\ 5285}#
- #{y\ 5283}#)
- #{ids\ 5286}#))))))
- #{tmp\ 5280}#)
- ((lambda (#{tmp\ 5287}#)
- (if #{tmp\ 5287}#
- (apply (lambda ()
- (values
- '()
- #{ids\ 5271}#))
- #{tmp\ 5287}#)
- ((lambda (#{tmp\ 5288}#)
- (if #{tmp\ 5288}#
- (apply (lambda (#{x\ 5289}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 5268}#
- #{x\ 5289}#
- #{n\ 5270}#
- #{ids\ 5271}#))
- (lambda (#{p\ 5291}#
- #{ids\ 5292}#)
- (values
- (vector
- 'vector
- #{p\ 5291}#)
- #{ids\ 5292}#))))
- #{tmp\ 5288}#)
- ((lambda (#{x\ 5293}#)
- (values
- (vector
- 'atom
- (#{strip\ 3844}#
- #{p\ 5269}#
- '(())))
- #{ids\ 5271}#))
- #{tmp\ 5272}#)))
+ (list->vector
+ (cons 'each+
+ (cons #{x\ 1627}#
+ (cons (reverse
+ #{ys\ 1625}#)
+ '(())))))
+ #{ids\ 1628}#))))))
+ #{tmp\ 1617}#)
+ ((lambda (#{tmp\ 1629}#)
+ (if #{tmp\ 1629}#
+ (apply (lambda (#{x\ 1630}#
+ #{y\ 1631}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 1605}#
+ #{y\ 1631}#
+ #{n\ 1607}#
+ #{ids\ 1608}#))
+ (lambda (#{y\ 1632}#
+ #{ids\ 1633}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 1605}#
+ #{x\ 1630}#
+ #{n\ 1607}#
+ #{ids\ 1633}#))
+ (lambda (#{x\ 1634}#
+ #{ids\ 1635}#)
+ (values
+ (cons #{x\ 1634}#
+ #{y\ 1632}#)
+ #{ids\ 1635}#))))))
+ #{tmp\ 1629}#)
+ ((lambda (#{tmp\ 1636}#)
+ (if #{tmp\ 1636}#
+ (apply (lambda ()
+ (values
+ '()
+ #{ids\ 1608}#))
+ #{tmp\ 1636}#)
+ ((lambda (#{tmp\ 1637}#)
+ (if #{tmp\ 1637}#
+ (apply (lambda (#{x\ 1638}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 1605}#
+ #{x\ 1638}#
+ #{n\ 1607}#
+ #{ids\ 1608}#))
+ (lambda (#{p\ 1640}#
+ #{ids\ 1641}#)
+ (values
+ (vector
+ 'vector
+ #{p\ 1640}#)
+ #{ids\ 1641}#))))
+ #{tmp\ 1637}#)
+ ((lambda (#{x\ 1642}#)
+ (values
+ (vector
+ 'atom
+ (#{strip\ 180}#
+ #{p\ 1606}#
+ '(())))
+ #{ids\ 1608}#))
+ #{tmp\ 1609}#)))
+ ($sc-dispatch
+ #{tmp\ 1609}#
+ '#(vector
+ each-any)))))
($sc-dispatch
- #{tmp\ 5272}#
- '#(vector
- each-any)))))
+ #{tmp\ 1609}#
+ '()))))
($sc-dispatch
- #{tmp\ 5272}#
- '()))))
+ #{tmp\ 1609}#
+ '(any . any)))))
($sc-dispatch
- #{tmp\ 5272}#
- '(any . any)))))
+ #{tmp\ 1609}#
+ '(any any . each-any)))))
($sc-dispatch
- #{tmp\ 5272}#
+ #{tmp\ 1609}#
'(any any))))
- #{p\ 5269}#)))))
- (#{cvt\ 5268}# #{pattern\ 5266}# 0 (quote ()))))))
- (lambda (#{e\ 5294}#
- #{r\ 5295}#
- #{w\ 5296}#
- #{s\ 5297}#
- #{mod\ 5298}#)
- (let ((#{e\ 5299}#
- (#{source-wrap\ 3824}#
- #{e\ 5294}#
- #{w\ 5296}#
- #{s\ 5297}#
- #{mod\ 5298}#)))
- ((lambda (#{tmp\ 5300}#)
- ((lambda (#{tmp\ 5301}#)
- (if #{tmp\ 5301}#
- (apply (lambda (#{_\ 5302}#
- #{val\ 5303}#
- #{key\ 5304}#
- #{m\ 5305}#)
+ #{p\ 1606}#))))
+ (#{cvt*\ 1604}#
+ (lambda (#{p*\ 1643}#
+ #{n\ 1644}#
+ #{ids\ 1645}#)
+ (if (null? #{p*\ 1643}#)
+ (values (quote ()) #{ids\ 1645}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt*\ 1604}#
+ (cdr #{p*\ 1643}#)
+ #{n\ 1644}#
+ #{ids\ 1645}#))
+ (lambda (#{y\ 1646}# #{ids\ 1647}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 1605}#
+ (car #{p*\ 1643}#)
+ #{n\ 1644}#
+ #{ids\ 1647}#))
+ (lambda (#{x\ 1648}# #{ids\ 1649}#)
+ (values
+ (cons #{x\ 1648}# #{y\ 1646}#)
+ #{ids\ 1649}#)))))))))
+ (#{cvt\ 1605}# #{pattern\ 1602}# 0 (quote ()))))))
+ (lambda (#{e\ 1650}#
+ #{r\ 1651}#
+ #{w\ 1652}#
+ #{s\ 1653}#
+ #{mod\ 1654}#)
+ (let ((#{e\ 1655}#
+ (#{source-wrap\ 160}#
+ #{e\ 1650}#
+ #{w\ 1652}#
+ #{s\ 1653}#
+ #{mod\ 1654}#)))
+ ((lambda (#{tmp\ 1656}#)
+ ((lambda (#{tmp\ 1657}#)
+ (if #{tmp\ 1657}#
+ (apply (lambda (#{_\ 1658}#
+ #{val\ 1659}#
+ #{key\ 1660}#
+ #{m\ 1661}#)
(if (and-map
- (lambda (#{x\ 5306}#)
- (if (#{id?\ 3795}# #{x\ 5306}#)
- (not (#{ellipsis?\ 3839}#
- #{x\ 5306}#))
+ (lambda (#{x\ 1662}#)
+ (if (#{id?\ 131}# #{x\ 1662}#)
+ (not (#{ellipsis?\ 175}# #{x\ 1662}#))
#f))
- #{key\ 5304}#)
- (let ((#{x\ 5308}#
- (#{gen-var\ 3845}# (quote tmp))))
- (#{build-application\ 3760}#
- #{s\ 5297}#
- (#{build-simple-lambda\ 3769}#
+ #{key\ 1660}#)
+ (let ((#{x\ 1664}#
+ (#{gen-var\ 181}# (quote tmp))))
+ (#{build-application\ 96}#
+ #{s\ 1653}#
+ (#{build-simple-lambda\ 105}#
#f
(list (quote tmp))
#f
- (list #{x\ 5308}#)
+ (list #{x\ 1664}#)
#f
- (#{gen-syntax-case\ 5221}#
- (#{build-lexical-reference\ 3762}#
+ (#{gen-syntax-case\ 1557}#
+ (#{build-lexical-reference\ 98}#
'value
#f
'tmp
- #{x\ 5308}#)
- #{key\ 5304}#
- #{m\ 5305}#
- #{r\ 5295}#
- #{mod\ 5298}#))
- (list (#{chi\ 3831}#
- #{val\ 5303}#
- #{r\ 5295}#
+ #{x\ 1664}#)
+ #{key\ 1660}#
+ #{m\ 1661}#
+ #{r\ 1651}#
+ #{mod\ 1654}#))
+ (list (#{chi\ 167}#
+ #{val\ 1659}#
+ #{r\ 1651}#
'(())
- #{mod\ 5298}#))))
+ #{mod\ 1654}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 5299}#)))
- #{tmp\ 5301}#)
+ #{e\ 1655}#)))
+ #{tmp\ 1657}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5300}#)))
+ #{tmp\ 1656}#)))
($sc-dispatch
- #{tmp\ 5300}#
+ #{tmp\ 1656}#
'(any any each-any . each-any))))
- #{e\ 5299}#)))))
+ #{e\ 1655}#)))))
(set! sc-expand
- (lambda (#{x\ 5311}# . #{rest\ 5312}#)
- (if (if (pair? #{x\ 5311}#)
- (equal? (car #{x\ 5311}#) #{noexpand\ 3748}#)
+ (lambda (#{x\ 1667}# . #{rest\ 1668}#)
+ (if (if (pair? #{x\ 1667}#)
+ (equal? (car #{x\ 1667}#) #{noexpand\ 84}#)
#f)
- (cadr #{x\ 5311}#)
- (let ((#{m\ 5313}#
- (if (null? #{rest\ 5312}#)
+ (cadr #{x\ 1667}#)
+ (let ((#{m\ 1669}#
+ (if (null? #{rest\ 1668}#)
'e
- (car #{rest\ 5312}#)))
- (#{esew\ 5314}#
- (if (let ((#{t\ 5315}# (null? #{rest\ 5312}#)))
- (if #{t\ 5315}#
- #{t\ 5315}#
- (null? (cdr #{rest\ 5312}#))))
+ (car #{rest\ 1668}#)))
+ (#{esew\ 1670}#
+ (if (let ((#{t\ 1671}# (null? #{rest\ 1668}#)))
+ (if #{t\ 1671}#
+ #{t\ 1671}#
+ (null? (cdr #{rest\ 1668}#))))
'(eval)
- (cadr #{rest\ 5312}#))))
+ (cadr #{rest\ 1668}#))))
(with-fluid*
- #{*mode*\ 3749}#
- #{m\ 5313}#
+ #{*mode*\ 85}#
+ #{m\ 1669}#
(lambda ()
- (#{chi-top\ 3830}#
- #{x\ 5311}#
+ (#{chi-top\ 166}#
+ #{x\ 1667}#
'()
'((top))
- #{m\ 5313}#
- #{esew\ 5314}#
+ #{m\ 1669}#
+ #{esew\ 1670}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 5316}#)
- (#{nonsymbol-id?\ 3794}# #{x\ 5316}#)))
+ (lambda (#{x\ 1672}#)
+ (#{nonsymbol-id?\ 130}# #{x\ 1672}#)))
(set! datum->syntax
- (lambda (#{id\ 5317}# #{datum\ 5318}#)
- (#{make-syntax-object\ 3778}#
- #{datum\ 5318}#
- (#{syntax-object-wrap\ 3781}# #{id\ 5317}#)
+ (lambda (#{id\ 1673}# #{datum\ 1674}#)
+ (#{make-syntax-object\ 114}#
+ #{datum\ 1674}#
+ (#{syntax-object-wrap\ 117}# #{id\ 1673}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 5319}#)
- (#{strip\ 3844}# #{x\ 5319}# (quote (())))))
+ (lambda (#{x\ 1675}#)
+ (#{strip\ 180}# #{x\ 1675}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 5320}#)
+ (lambda (#{ls\ 1676}#)
(begin
- (let ((#{x\ 5321}# #{ls\ 5320}#))
- (if (not (list? #{x\ 5321}#))
+ (let ((#{x\ 1677}# #{ls\ 1676}#))
+ (if (not (list? #{x\ 1677}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 5321}#)))
- (map (lambda (#{x\ 5322}#)
- (#{wrap\ 3823}# (gensym) (quote ((top))) #f))
- #{ls\ 5320}#))))
+ #{x\ 1677}#)))
+ (map (lambda (#{x\ 1678}#)
+ (#{wrap\ 159}# (gensym) (quote ((top))) #f))
+ #{ls\ 1676}#))))
(set! free-identifier=?
- (lambda (#{x\ 5323}# #{y\ 5324}#)
+ (lambda (#{x\ 1679}# #{y\ 1680}#)
(begin
- (let ((#{x\ 5325}# #{x\ 5323}#))
- (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5325}#))
+ (let ((#{x\ 1681}# #{x\ 1679}#))
+ (if (not (#{nonsymbol-id?\ 130}# #{x\ 1681}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 5325}#)))
- (let ((#{x\ 5326}# #{y\ 5324}#))
- (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5326}#))
+ #{x\ 1681}#)))
+ (let ((#{x\ 1682}# #{y\ 1680}#))
+ (if (not (#{nonsymbol-id?\ 130}# #{x\ 1682}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 5326}#)))
- (#{free-id=?\ 3818}# #{x\ 5323}# #{y\ 5324}#))))
+ #{x\ 1682}#)))
+ (#{free-id=?\ 154}# #{x\ 1679}# #{y\ 1680}#))))
(set! bound-identifier=?
- (lambda (#{x\ 5327}# #{y\ 5328}#)
+ (lambda (#{x\ 1683}# #{y\ 1684}#)
(begin
- (let ((#{x\ 5329}# #{x\ 5327}#))
- (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5329}#))
+ (let ((#{x\ 1685}# #{x\ 1683}#))
+ (if (not (#{nonsymbol-id?\ 130}# #{x\ 1685}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 5329}#)))
- (let ((#{x\ 5330}# #{y\ 5328}#))
- (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5330}#))
+ #{x\ 1685}#)))
+ (let ((#{x\ 1686}# #{y\ 1684}#))
+ (if (not (#{nonsymbol-id?\ 130}# #{x\ 1686}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 5330}#)))
- (#{bound-id=?\ 3819}# #{x\ 5327}# #{y\ 5328}#))))
+ #{x\ 1686}#)))
+ (#{bound-id=?\ 155}# #{x\ 1683}# #{y\ 1684}#))))
(set! syntax-violation
- (lambda (#{who\ 5331}#
- #{message\ 5332}#
- #{form\ 5333}#
+ (lambda (#{who\ 1687}#
+ #{message\ 1688}#
+ #{form\ 1689}#
.
- #{subform\ 5334}#)
+ #{subform\ 1690}#)
(begin
- (let ((#{x\ 5335}# #{who\ 5331}#))
- (if (not ((lambda (#{x\ 5336}#)
- (let ((#{t\ 5337}# (not #{x\ 5336}#)))
- (if #{t\ 5337}#
- #{t\ 5337}#
- (let ((#{t\ 5338}# (string? #{x\ 5336}#)))
- (if #{t\ 5338}#
- #{t\ 5338}#
- (symbol? #{x\ 5336}#))))))
- #{x\ 5335}#))
+ (let ((#{x\ 1691}# #{who\ 1687}#))
+ (if (not ((lambda (#{x\ 1692}#)
+ (let ((#{t\ 1693}# (not #{x\ 1692}#)))
+ (if #{t\ 1693}#
+ #{t\ 1693}#
+ (let ((#{t\ 1694}# (string? #{x\ 1692}#)))
+ (if #{t\ 1694}#
+ #{t\ 1694}#
+ (symbol? #{x\ 1692}#))))))
+ #{x\ 1691}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 5335}#)))
- (let ((#{x\ 5339}# #{message\ 5332}#))
- (if (not (string? #{x\ 5339}#))
+ #{x\ 1691}#)))
+ (let ((#{x\ 1695}# #{message\ 1688}#))
+ (if (not (string? #{x\ 1695}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 5339}#)))
+ #{x\ 1695}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 5331}# "~a: " "")
+ (if #{who\ 1687}# "~a: " "")
"~a "
- (if (null? #{subform\ 5334}#)
+ (if (null? #{subform\ 1690}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 5340}#
- (cons #{message\ 5332}#
- (map (lambda (#{x\ 5341}#)
- (#{strip\ 3844}# #{x\ 5341}# (quote (()))))
+ (let ((#{tail\ 1696}#
+ (cons #{message\ 1688}#
+ (map (lambda (#{x\ 1697}#)
+ (#{strip\ 180}# #{x\ 1697}# (quote (()))))
(append
- #{subform\ 5334}#
- (list #{form\ 5333}#))))))
- (if #{who\ 5331}#
- (cons #{who\ 5331}# #{tail\ 5340}#)
- #{tail\ 5340}#))
+ #{subform\ 1690}#
+ (list #{form\ 1689}#))))))
+ (if #{who\ 1687}#
+ (cons #{who\ 1687}# #{tail\ 1696}#)
+ #{tail\ 1696}#))
#f))))
- (letrec ((#{match\ 5346}#
- (lambda (#{e\ 5347}#
- #{p\ 5348}#
- #{w\ 5349}#
- #{r\ 5350}#
- #{mod\ 5351}#)
- (if (not #{r\ 5350}#)
+ (letrec ((#{match\ 1704}#
+ (lambda (#{e\ 1705}#
+ #{p\ 1706}#
+ #{w\ 1707}#
+ #{r\ 1708}#
+ #{mod\ 1709}#)
+ (if (not #{r\ 1708}#)
#f
- (if (eq? #{p\ 5348}# (quote any))
- (cons (#{wrap\ 3823}#
- #{e\ 5347}#
- #{w\ 5349}#
- #{mod\ 5351}#)
- #{r\ 5350}#)
- (if (#{syntax-object?\ 3779}# #{e\ 5347}#)
- (#{match*\ 5345}#
- (#{syntax-object-expression\ 3780}# #{e\ 5347}#)
- #{p\ 5348}#
- (#{join-wraps\ 3814}#
- #{w\ 5349}#
- (#{syntax-object-wrap\ 3781}# #{e\ 5347}#))
- #{r\ 5350}#
- (#{syntax-object-module\ 3782}# #{e\ 5347}#))
- (#{match*\ 5345}#
- #{e\ 5347}#
- #{p\ 5348}#
- #{w\ 5349}#
- #{r\ 5350}#
- #{mod\ 5351}#))))))
- (#{match*\ 5345}#
- (lambda (#{e\ 5352}#
- #{p\ 5353}#
- #{w\ 5354}#
- #{r\ 5355}#
- #{mod\ 5356}#)
- (if (null? #{p\ 5353}#)
- (if (null? #{e\ 5352}#) #{r\ 5355}# #f)
- (if (pair? #{p\ 5353}#)
- (if (pair? #{e\ 5352}#)
- (#{match\ 5346}#
- (car #{e\ 5352}#)
- (car #{p\ 5353}#)
- #{w\ 5354}#
- (#{match\ 5346}#
- (cdr #{e\ 5352}#)
- (cdr #{p\ 5353}#)
- #{w\ 5354}#
- #{r\ 5355}#
- #{mod\ 5356}#)
- #{mod\ 5356}#)
+ (if (eq? #{p\ 1706}# (quote any))
+ (cons (#{wrap\ 159}#
+ #{e\ 1705}#
+ #{w\ 1707}#
+ #{mod\ 1709}#)
+ #{r\ 1708}#)
+ (if (#{syntax-object?\ 115}# #{e\ 1705}#)
+ (#{match*\ 1703}#
+ (#{syntax-object-expression\ 116}# #{e\ 1705}#)
+ #{p\ 1706}#
+ (#{join-wraps\ 150}#
+ #{w\ 1707}#
+ (#{syntax-object-wrap\ 117}# #{e\ 1705}#))
+ #{r\ 1708}#
+ (#{syntax-object-module\ 118}# #{e\ 1705}#))
+ (#{match*\ 1703}#
+ #{e\ 1705}#
+ #{p\ 1706}#
+ #{w\ 1707}#
+ #{r\ 1708}#
+ #{mod\ 1709}#))))))
+ (#{match*\ 1703}#
+ (lambda (#{e\ 1710}#
+ #{p\ 1711}#
+ #{w\ 1712}#
+ #{r\ 1713}#
+ #{mod\ 1714}#)
+ (if (null? #{p\ 1711}#)
+ (if (null? #{e\ 1710}#) #{r\ 1713}# #f)
+ (if (pair? #{p\ 1711}#)
+ (if (pair? #{e\ 1710}#)
+ (#{match\ 1704}#
+ (car #{e\ 1710}#)
+ (car #{p\ 1711}#)
+ #{w\ 1712}#
+ (#{match\ 1704}#
+ (cdr #{e\ 1710}#)
+ (cdr #{p\ 1711}#)
+ #{w\ 1712}#
+ #{r\ 1713}#
+ #{mod\ 1714}#)
+ #{mod\ 1714}#)
#f)
- (if (eq? #{p\ 5353}# (quote each-any))
- (let ((#{l\ 5357}#
- (#{match-each-any\ 5343}#
- #{e\ 5352}#
- #{w\ 5354}#
- #{mod\ 5356}#)))
- (if #{l\ 5357}#
- (cons #{l\ 5357}# #{r\ 5355}#)
+ (if (eq? #{p\ 1711}# (quote each-any))
+ (let ((#{l\ 1715}#
+ (#{match-each-any\ 1700}#
+ #{e\ 1710}#
+ #{w\ 1712}#
+ #{mod\ 1714}#)))
+ (if #{l\ 1715}#
+ (cons #{l\ 1715}# #{r\ 1713}#)
#f))
- (let ((#{atom-key\ 5358}# (vector-ref #{p\ 5353}# 0)))
- (if (memv #{atom-key\ 5358}# (quote (each)))
- (if (null? #{e\ 5352}#)
- (#{match-empty\ 5344}#
- (vector-ref #{p\ 5353}# 1)
- #{r\ 5355}#)
- (let ((#{l\ 5359}#
- (#{match-each\ 5342}#
- #{e\ 5352}#
- (vector-ref #{p\ 5353}# 1)
- #{w\ 5354}#
- #{mod\ 5356}#)))
- (if #{l\ 5359}#
- (letrec ((#{collect\ 5360}#
- (lambda (#{l\ 5361}#)
- (if (null? (car #{l\ 5361}#))
- #{r\ 5355}#
- (cons (map car #{l\ 5361}#)
- (#{collect\ 5360}#
+ (let ((#{atom-key\ 1716}# (vector-ref #{p\ 1711}# 0)))
+ (if (memv #{atom-key\ 1716}# (quote (each)))
+ (if (null? #{e\ 1710}#)
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1711}# 1)
+ #{r\ 1713}#)
+ (let ((#{l\ 1717}#
+ (#{match-each\ 1698}#
+ #{e\ 1710}#
+ (vector-ref #{p\ 1711}# 1)
+ #{w\ 1712}#
+ #{mod\ 1714}#)))
+ (if #{l\ 1717}#
+ (letrec ((#{collect\ 1718}#
+ (lambda (#{l\ 1719}#)
+ (if (null? (car #{l\ 1719}#))
+ #{r\ 1713}#
+ (cons (map car #{l\ 1719}#)
+ (#{collect\ 1718}#
(map cdr
- #{l\ 5361}#)))))))
- (#{collect\ 5360}# #{l\ 5359}#))
+ #{l\ 1719}#)))))))
+ (#{collect\ 1718}# #{l\ 1717}#))
#f)))
- (if (memv #{atom-key\ 5358}# (quote (free-id)))
- (if (#{id?\ 3795}# #{e\ 5352}#)
- (if (#{free-id=?\ 3818}#
- (#{wrap\ 3823}#
- #{e\ 5352}#
- #{w\ 5354}#
- #{mod\ 5356}#)
- (vector-ref #{p\ 5353}# 1))
- #{r\ 5355}#
- #f)
- #f)
- (if (memv #{atom-key\ 5358}# (quote (atom)))
- (if (equal?
- (vector-ref #{p\ 5353}# 1)
- (#{strip\ 3844}#
- #{e\ 5352}#
- #{w\ 5354}#))
- #{r\ 5355}#
+ (if (memv #{atom-key\ 1716}# (quote (each+)))
+ (call-with-values
+ (lambda ()
+ (#{match-each+\ 1699}#
+ #{e\ 1710}#
+ (vector-ref #{p\ 1711}# 1)
+ (vector-ref #{p\ 1711}# 2)
+ (vector-ref #{p\ 1711}# 3)
+ #{w\ 1712}#
+ #{r\ 1713}#
+ #{mod\ 1714}#))
+ (lambda (#{xr*\ 1720}#
+ #{y-pat\ 1721}#
+ #{r\ 1722}#)
+ (if #{r\ 1722}#
+ (if (null? #{y-pat\ 1721}#)
+ (if (null? #{xr*\ 1720}#)
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1711}# 1)
+ #{r\ 1722}#)
+ (#{combine\ 1702}#
+ #{xr*\ 1720}#
+ #{r\ 1722}#))
+ #f)
+ #f)))
+ (if (memv #{atom-key\ 1716}# (quote (free-id)))
+ (if (#{id?\ 131}# #{e\ 1710}#)
+ (if (#{free-id=?\ 154}#
+ (#{wrap\ 159}#
+ #{e\ 1710}#
+ #{w\ 1712}#
+ #{mod\ 1714}#)
+ (vector-ref #{p\ 1711}# 1))
+ #{r\ 1713}#
+ #f)
#f)
- (if (memv #{atom-key\ 5358}# (quote (vector)))
- (if (vector? #{e\ 5352}#)
- (#{match\ 5346}#
- (vector->list #{e\ 5352}#)
- (vector-ref #{p\ 5353}# 1)
- #{w\ 5354}#
- #{r\ 5355}#
- #{mod\ 5356}#)
- #f)))))))))))
- (#{match-empty\ 5344}#
- (lambda (#{p\ 5362}# #{r\ 5363}#)
- (if (null? #{p\ 5362}#)
- #{r\ 5363}#
- (if (eq? #{p\ 5362}# (quote any))
- (cons (quote ()) #{r\ 5363}#)
- (if (pair? #{p\ 5362}#)
- (#{match-empty\ 5344}#
- (car #{p\ 5362}#)
- (#{match-empty\ 5344}#
- (cdr #{p\ 5362}#)
- #{r\ 5363}#))
- (if (eq? #{p\ 5362}# (quote each-any))
- (cons (quote ()) #{r\ 5363}#)
- (let ((#{atom-key\ 5364}#
- (vector-ref #{p\ 5362}# 0)))
- (if (memv #{atom-key\ 5364}# (quote (each)))
- (#{match-empty\ 5344}#
- (vector-ref #{p\ 5362}# 1)
- #{r\ 5363}#)
- (if (memv #{atom-key\ 5364}#
- '(free-id atom))
- #{r\ 5363}#
- (if (memv #{atom-key\ 5364}# (quote (vector)))
- (#{match-empty\ 5344}#
- (vector-ref #{p\ 5362}# 1)
- #{r\ 5363}#)))))))))))
- (#{match-each-any\ 5343}#
- (lambda (#{e\ 5365}# #{w\ 5366}# #{mod\ 5367}#)
- (if (pair? #{e\ 5365}#)
- (let ((#{l\ 5368}#
- (#{match-each-any\ 5343}#
- (cdr #{e\ 5365}#)
- #{w\ 5366}#
- #{mod\ 5367}#)))
- (if #{l\ 5368}#
- (cons (#{wrap\ 3823}#
- (car #{e\ 5365}#)
- #{w\ 5366}#
- #{mod\ 5367}#)
- #{l\ 5368}#)
+ (if (memv #{atom-key\ 1716}# (quote (atom)))
+ (if (equal?
+ (vector-ref #{p\ 1711}# 1)
+ (#{strip\ 180}#
+ #{e\ 1710}#
+ #{w\ 1712}#))
+ #{r\ 1713}#
+ #f)
+ (if (memv #{atom-key\ 1716}#
+ '(vector))
+ (if (vector? #{e\ 1710}#)
+ (#{match\ 1704}#
+ (vector->list #{e\ 1710}#)
+ (vector-ref #{p\ 1711}# 1)
+ #{w\ 1712}#
+ #{r\ 1713}#
+ #{mod\ 1714}#)
+ #f))))))))))))
+ (#{combine\ 1702}#
+ (lambda (#{r*\ 1723}# #{r\ 1724}#)
+ (if (null? (car #{r*\ 1723}#))
+ #{r\ 1724}#
+ (cons (map car #{r*\ 1723}#)
+ (#{combine\ 1702}#
+ (map cdr #{r*\ 1723}#)
+ #{r\ 1724}#)))))
+ (#{match-empty\ 1701}#
+ (lambda (#{p\ 1725}# #{r\ 1726}#)
+ (if (null? #{p\ 1725}#)
+ #{r\ 1726}#
+ (if (eq? #{p\ 1725}# (quote any))
+ (cons (quote ()) #{r\ 1726}#)
+ (if (pair? #{p\ 1725}#)
+ (#{match-empty\ 1701}#
+ (car #{p\ 1725}#)
+ (#{match-empty\ 1701}#
+ (cdr #{p\ 1725}#)
+ #{r\ 1726}#))
+ (if (eq? #{p\ 1725}# (quote each-any))
+ (cons (quote ()) #{r\ 1726}#)
+ (let ((#{atom-key\ 1727}#
+ (vector-ref #{p\ 1725}# 0)))
+ (if (memv #{atom-key\ 1727}# (quote (each)))
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1725}# 1)
+ #{r\ 1726}#)
+ (if (memv #{atom-key\ 1727}# (quote (each+)))
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1725}# 1)
+ (#{match-empty\ 1701}#
+ (reverse (vector-ref #{p\ 1725}# 2))
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1725}# 3)
+ #{r\ 1726}#)))
+ (if (memv #{atom-key\ 1727}#
+ '(free-id atom))
+ #{r\ 1726}#
+ (if (memv #{atom-key\ 1727}#
+ '(vector))
+ (#{match-empty\ 1701}#
+ (vector-ref #{p\ 1725}# 1)
+ #{r\ 1726}#))))))))))))
+ (#{match-each-any\ 1700}#
+ (lambda (#{e\ 1728}# #{w\ 1729}# #{mod\ 1730}#)
+ (if (pair? #{e\ 1728}#)
+ (let ((#{l\ 1731}#
+ (#{match-each-any\ 1700}#
+ (cdr #{e\ 1728}#)
+ #{w\ 1729}#
+ #{mod\ 1730}#)))
+ (if #{l\ 1731}#
+ (cons (#{wrap\ 159}#
+ (car #{e\ 1728}#)
+ #{w\ 1729}#
+ #{mod\ 1730}#)
+ #{l\ 1731}#)
#f))
- (if (null? #{e\ 5365}#)
+ (if (null? #{e\ 1728}#)
'()
- (if (#{syntax-object?\ 3779}# #{e\ 5365}#)
- (#{match-each-any\ 5343}#
- (#{syntax-object-expression\ 3780}# #{e\ 5365}#)
- (#{join-wraps\ 3814}#
- #{w\ 5366}#
- (#{syntax-object-wrap\ 3781}# #{e\ 5365}#))
- #{mod\ 5367}#)
+ (if (#{syntax-object?\ 115}# #{e\ 1728}#)
+ (#{match-each-any\ 1700}#
+ (#{syntax-object-expression\ 116}# #{e\ 1728}#)
+ (#{join-wraps\ 150}#
+ #{w\ 1729}#
+ (#{syntax-object-wrap\ 117}# #{e\ 1728}#))
+ #{mod\ 1730}#)
#f)))))
- (#{match-each\ 5342}#
- (lambda (#{e\ 5369}#
- #{p\ 5370}#
- #{w\ 5371}#
- #{mod\ 5372}#)
- (if (pair? #{e\ 5369}#)
- (let ((#{first\ 5373}#
- (#{match\ 5346}#
- (car #{e\ 5369}#)
- #{p\ 5370}#
- #{w\ 5371}#
+ (#{match-each+\ 1699}#
+ (lambda (#{e\ 1732}#
+ #{x-pat\ 1733}#
+ #{y-pat\ 1734}#
+ #{z-pat\ 1735}#
+ #{w\ 1736}#
+ #{r\ 1737}#
+ #{mod\ 1738}#)
+ (letrec ((#{f\ 1739}#
+ (lambda (#{e\ 1740}# #{w\ 1741}#)
+ (if (pair? #{e\ 1740}#)
+ (call-with-values
+ (lambda ()
+ (#{f\ 1739}#
+ (cdr #{e\ 1740}#)
+ #{w\ 1741}#))
+ (lambda (#{xr*\ 1742}#
+ #{y-pat\ 1743}#
+ #{r\ 1744}#)
+ (if #{r\ 1744}#
+ (if (null? #{y-pat\ 1743}#)
+ (let ((#{xr\ 1745}#
+ (#{match\ 1704}#
+ (car #{e\ 1740}#)
+ #{x-pat\ 1733}#
+ #{w\ 1741}#
+ '()
+ #{mod\ 1738}#)))
+ (if #{xr\ 1745}#
+ (values
+ (cons #{xr\ 1745}#
+ #{xr*\ 1742}#)
+ #{y-pat\ 1743}#
+ #{r\ 1744}#)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr #{y-pat\ 1743}#)
+ (#{match\ 1704}#
+ (car #{e\ 1740}#)
+ (car #{y-pat\ 1743}#)
+ #{w\ 1741}#
+ #{r\ 1744}#
+ #{mod\ 1738}#)))
+ (values #f #f #f))))
+ (if (#{syntax-object?\ 115}# #{e\ 1740}#)
+ (#{f\ 1739}#
+ (#{syntax-object-expression\ 116}#
+ #{e\ 1740}#)
+ (#{join-wraps\ 150}#
+ #{w\ 1741}#
+ #{e\ 1740}#))
+ (values
+ '()
+ #{y-pat\ 1734}#
+ (#{match\ 1704}#
+ #{e\ 1740}#
+ #{z-pat\ 1735}#
+ #{w\ 1741}#
+ #{r\ 1737}#
+ #{mod\ 1738}#)))))))
+ (#{f\ 1739}# #{e\ 1732}# #{w\ 1736}#))))
+ (#{match-each\ 1698}#
+ (lambda (#{e\ 1746}#
+ #{p\ 1747}#
+ #{w\ 1748}#
+ #{mod\ 1749}#)
+ (if (pair? #{e\ 1746}#)
+ (let ((#{first\ 1750}#
+ (#{match\ 1704}#
+ (car #{e\ 1746}#)
+ #{p\ 1747}#
+ #{w\ 1748}#
'()
- #{mod\ 5372}#)))
- (if #{first\ 5373}#
- (let ((#{rest\ 5374}#
- (#{match-each\ 5342}#
- (cdr #{e\ 5369}#)
- #{p\ 5370}#
- #{w\ 5371}#
- #{mod\ 5372}#)))
- (if #{rest\ 5374}#
- (cons #{first\ 5373}# #{rest\ 5374}#)
+ #{mod\ 1749}#)))
+ (if #{first\ 1750}#
+ (let ((#{rest\ 1751}#
+ (#{match-each\ 1698}#
+ (cdr #{e\ 1746}#)
+ #{p\ 1747}#
+ #{w\ 1748}#
+ #{mod\ 1749}#)))
+ (if #{rest\ 1751}#
+ (cons #{first\ 1750}# #{rest\ 1751}#)
#f))
#f))
- (if (null? #{e\ 5369}#)
+ (if (null? #{e\ 1746}#)
'()
- (if (#{syntax-object?\ 3779}# #{e\ 5369}#)
- (#{match-each\ 5342}#
- (#{syntax-object-expression\ 3780}# #{e\ 5369}#)
- #{p\ 5370}#
- (#{join-wraps\ 3814}#
- #{w\ 5371}#
- (#{syntax-object-wrap\ 3781}# #{e\ 5369}#))
- (#{syntax-object-module\ 3782}# #{e\ 5369}#))
+ (if (#{syntax-object?\ 115}# #{e\ 1746}#)
+ (#{match-each\ 1698}#
+ (#{syntax-object-expression\ 116}# #{e\ 1746}#)
+ #{p\ 1747}#
+ (#{join-wraps\ 150}#
+ #{w\ 1748}#
+ (#{syntax-object-wrap\ 117}# #{e\ 1746}#))
+ (#{syntax-object-module\ 118}# #{e\ 1746}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 5375}# #{p\ 5376}#)
- (if (eq? #{p\ 5376}# (quote any))
- (list #{e\ 5375}#)
- (if (#{syntax-object?\ 3779}# #{e\ 5375}#)
- (#{match*\ 5345}#
- (#{syntax-object-expression\ 3780}# #{e\ 5375}#)
- #{p\ 5376}#
- (#{syntax-object-wrap\ 3781}# #{e\ 5375}#)
+ (lambda (#{e\ 1752}# #{p\ 1753}#)
+ (if (eq? #{p\ 1753}# (quote any))
+ (list #{e\ 1752}#)
+ (if (#{syntax-object?\ 115}# #{e\ 1752}#)
+ (#{match*\ 1703}#
+ (#{syntax-object-expression\ 116}# #{e\ 1752}#)
+ #{p\ 1753}#
+ (#{syntax-object-wrap\ 117}# #{e\ 1752}#)
'()
- (#{syntax-object-module\ 3782}# #{e\ 5375}#))
- (#{match*\ 5345}#
- #{e\ 5375}#
- #{p\ 5376}#
+ (#{syntax-object-module\ 118}# #{e\ 1752}#))
+ (#{match*\ 1703}#
+ #{e\ 1752}#
+ #{p\ 1753}#
'(())
'()
#f)))))))))
@@ -11380,11 +11584,11 @@
(define with-syntax
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5377}#)
- ((lambda (#{tmp\ 5378}#)
- ((lambda (#{tmp\ 5379}#)
- (if #{tmp\ 5379}#
- (apply (lambda (#{_\ 5380}# #{e1\ 5381}# #{e2\ 5382}#)
+ (cons (lambda (#{x\ 1754}#)
+ ((lambda (#{tmp\ 1755}#)
+ ((lambda (#{tmp\ 1756}#)
+ (if #{tmp\ 1756}#
+ (apply (lambda (#{_\ 1757}# #{e1\ 1758}# #{e2\ 1759}#)
(cons '#(syntax-object
begin
((top)
@@ -11395,15 +11599,15 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{e1\ 5381}# #{e2\ 5382}#)))
- #{tmp\ 5379}#)
- ((lambda (#{tmp\ 5384}#)
- (if #{tmp\ 5384}#
- (apply (lambda (#{_\ 5385}#
- #{out\ 5386}#
- #{in\ 5387}#
- #{e1\ 5388}#
- #{e2\ 5389}#)
+ (cons #{e1\ 1758}# #{e2\ 1759}#)))
+ #{tmp\ 1756}#)
+ ((lambda (#{tmp\ 1761}#)
+ (if #{tmp\ 1761}#
+ (apply (lambda (#{_\ 1762}#
+ #{out\ 1763}#
+ #{in\ 1764}#
+ #{e1\ 1765}#
+ #{e2\ 1766}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11414,9 +11618,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{in\ 5387}#
+ #{in\ 1764}#
'()
- (list #{out\ 5386}#
+ (list #{out\ 1763}#
(cons '#(syntax-object
begin
((top)
@@ -11438,16 +11642,16 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 5388}#
- #{e2\ 5389}#)))))
- #{tmp\ 5384}#)
- ((lambda (#{tmp\ 5391}#)
- (if #{tmp\ 5391}#
- (apply (lambda (#{_\ 5392}#
- #{out\ 5393}#
- #{in\ 5394}#
- #{e1\ 5395}#
- #{e2\ 5396}#)
+ (cons #{e1\ 1765}#
+ #{e2\ 1766}#)))))
+ #{tmp\ 1761}#)
+ ((lambda (#{tmp\ 1768}#)
+ (if #{tmp\ 1768}#
+ (apply (lambda (#{_\ 1769}#
+ #{out\ 1770}#
+ #{in\ 1771}#
+ #{e1\ 1772}#
+ #{e2\ 1773}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11486,9 +11690,9 @@
#((top))
#("i")))
(hygiene guile))
- #{in\ 5394}#)
+ #{in\ 1771}#)
'()
- (list #{out\ 5393}#
+ (list #{out\ 1770}#
(cons '#(syntax-object
begin
((top)
@@ -11517,37 +11721,37 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 5395}#
- #{e2\ 5396}#)))))
- #{tmp\ 5391}#)
+ (cons #{e1\ 1772}#
+ #{e2\ 1773}#)))))
+ #{tmp\ 1768}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5378}#)))
+ #{tmp\ 1755}#)))
($sc-dispatch
- #{tmp\ 5378}#
+ #{tmp\ 1755}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 5378}#
+ #{tmp\ 1755}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 5378}#
+ #{tmp\ 1755}#
'(any () any . each-any))))
- #{x\ 5377}#))
+ #{x\ 1754}#))
(module-name (current-module)))))
(define syntax-rules
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5400}#)
- ((lambda (#{tmp\ 5401}#)
- ((lambda (#{tmp\ 5402}#)
- (if #{tmp\ 5402}#
- (apply (lambda (#{_\ 5403}#
- #{k\ 5404}#
- #{keyword\ 5405}#
- #{pattern\ 5406}#
- #{template\ 5407}#)
+ (cons (lambda (#{x\ 1777}#)
+ ((lambda (#{tmp\ 1778}#)
+ ((lambda (#{tmp\ 1779}#)
+ (if #{tmp\ 1779}#
+ (apply (lambda (#{_\ 1780}#
+ #{k\ 1781}#
+ #{keyword\ 1782}#
+ #{pattern\ 1783}#
+ #{template\ 1784}#)
(list '#(syntax-object
lambda
((top)
@@ -11599,9 +11803,9 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{k\ 5404}#
- (map (lambda (#{tmp\ 5410}#
- #{tmp\ 5409}#)
+ (cons #{k\ 1781}#
+ (map (lambda (#{tmp\ 1787}#
+ #{tmp\ 1786}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -11631,7 +11835,7 @@
#("i")))
(hygiene
guile))
- #{tmp\ 5409}#)
+ #{tmp\ 1786}#)
(list '#(syntax-object
syntax
((top)
@@ -11661,44 +11865,44 @@
#("i")))
(hygiene
guile))
- #{tmp\ 5410}#)))
- #{template\ 5407}#
- #{pattern\ 5406}#))))))
- #{tmp\ 5402}#)
+ #{tmp\ 1787}#)))
+ #{template\ 1784}#
+ #{pattern\ 1783}#))))))
+ #{tmp\ 1779}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5401}#)))
+ #{tmp\ 1778}#)))
($sc-dispatch
- #{tmp\ 5401}#
+ #{tmp\ 1778}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 5400}#))
+ #{x\ 1777}#))
(module-name (current-module)))))
(define let*
(make-extended-syncase-macro
(module-ref (current-module) (quote let*))
'macro
- (cons (lambda (#{x\ 5411}#)
- ((lambda (#{tmp\ 5412}#)
- ((lambda (#{tmp\ 5413}#)
- (if (if #{tmp\ 5413}#
- (apply (lambda (#{let*\ 5414}#
- #{x\ 5415}#
- #{v\ 5416}#
- #{e1\ 5417}#
- #{e2\ 5418}#)
- (and-map identifier? #{x\ 5415}#))
- #{tmp\ 5413}#)
+ (cons (lambda (#{x\ 1788}#)
+ ((lambda (#{tmp\ 1789}#)
+ ((lambda (#{tmp\ 1790}#)
+ (if (if #{tmp\ 1790}#
+ (apply (lambda (#{let*\ 1791}#
+ #{x\ 1792}#
+ #{v\ 1793}#
+ #{e1\ 1794}#
+ #{e2\ 1795}#)
+ (and-map identifier? #{x\ 1792}#))
+ #{tmp\ 1790}#)
#f)
- (apply (lambda (#{let*\ 5420}#
- #{x\ 5421}#
- #{v\ 5422}#
- #{e1\ 5423}#
- #{e2\ 5424}#)
- (letrec ((#{f\ 5425}#
- (lambda (#{bindings\ 5426}#)
- (if (null? #{bindings\ 5426}#)
+ (apply (lambda (#{let*\ 1797}#
+ #{x\ 1798}#
+ #{v\ 1799}#
+ #{e1\ 1800}#
+ #{e2\ 1801}#)
+ (letrec ((#{f\ 1802}#
+ (lambda (#{bindings\ 1803}#)
+ (if (null? #{bindings\ 1803}#)
(cons '#(syntax-object
let
((top)
@@ -11722,13 +11926,13 @@
#("i")))
(hygiene guile))
(cons '()
- (cons #{e1\ 5423}#
- #{e2\ 5424}#)))
- ((lambda (#{tmp\ 5430}#)
- ((lambda (#{tmp\ 5431}#)
- (if #{tmp\ 5431}#
- (apply (lambda (#{body\ 5432}#
- #{binding\ 5433}#)
+ (cons #{e1\ 1800}#
+ #{e2\ 1801}#)))
+ ((lambda (#{tmp\ 1807}#)
+ ((lambda (#{tmp\ 1808}#)
+ (if #{tmp\ 1808}#
+ (apply (lambda (#{body\ 1809}#
+ #{binding\ 1810}#)
(list '#(syntax-object
let
((top)
@@ -11776,53 +11980,53 @@
#("i")))
(hygiene
guile))
- (list #{binding\ 5433}#)
- #{body\ 5432}#))
- #{tmp\ 5431}#)
+ (list #{binding\ 1810}#)
+ #{body\ 1809}#))
+ #{tmp\ 1808}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5430}#)))
+ #{tmp\ 1807}#)))
($sc-dispatch
- #{tmp\ 5430}#
+ #{tmp\ 1807}#
'(any any))))
- (list (#{f\ 5425}#
- (cdr #{bindings\ 5426}#))
- (car #{bindings\ 5426}#)))))))
- (#{f\ 5425}#
- (map list #{x\ 5421}# #{v\ 5422}#))))
- #{tmp\ 5413}#)
+ (list (#{f\ 1802}#
+ (cdr #{bindings\ 1803}#))
+ (car #{bindings\ 1803}#)))))))
+ (#{f\ 1802}#
+ (map list #{x\ 1798}# #{v\ 1799}#))))
+ #{tmp\ 1790}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5412}#)))
+ #{tmp\ 1789}#)))
($sc-dispatch
- #{tmp\ 5412}#
+ #{tmp\ 1789}#
'(any #(each (any any)) any . each-any))))
- #{x\ 5411}#))
+ #{x\ 1788}#))
(module-name (current-module)))))
(define do
(make-syncase-macro
'macro
- (cons (lambda (#{orig-x\ 5434}#)
- ((lambda (#{tmp\ 5435}#)
- ((lambda (#{tmp\ 5436}#)
- (if #{tmp\ 5436}#
- (apply (lambda (#{_\ 5437}#
- #{var\ 5438}#
- #{init\ 5439}#
- #{step\ 5440}#
- #{e0\ 5441}#
- #{e1\ 5442}#
- #{c\ 5443}#)
- ((lambda (#{tmp\ 5444}#)
- ((lambda (#{tmp\ 5445}#)
- (if #{tmp\ 5445}#
- (apply (lambda (#{step\ 5446}#)
- ((lambda (#{tmp\ 5447}#)
- ((lambda (#{tmp\ 5448}#)
- (if #{tmp\ 5448}#
+ (cons (lambda (#{orig-x\ 1811}#)
+ ((lambda (#{tmp\ 1812}#)
+ ((lambda (#{tmp\ 1813}#)
+ (if #{tmp\ 1813}#
+ (apply (lambda (#{_\ 1814}#
+ #{var\ 1815}#
+ #{init\ 1816}#
+ #{step\ 1817}#
+ #{e0\ 1818}#
+ #{e1\ 1819}#
+ #{c\ 1820}#)
+ ((lambda (#{tmp\ 1821}#)
+ ((lambda (#{tmp\ 1822}#)
+ (if #{tmp\ 1822}#
+ (apply (lambda (#{step\ 1823}#)
+ ((lambda (#{tmp\ 1824}#)
+ ((lambda (#{tmp\ 1825}#)
+ (if #{tmp\ 1825}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -11903,8 +12107,8 @@
(hygiene
guile))
(map list
- #{var\ 5438}#
- #{init\ 5439}#)
+ #{var\ 1815}#
+ #{init\ 1816}#)
(list '#(syntax-object
if
((top)
@@ -11983,7 +12187,7 @@
#("i")))
(hygiene
guile))
- #{e0\ 5441}#)
+ #{e0\ 1818}#)
(cons '#(syntax-object
begin
((top)
@@ -12024,7 +12228,7 @@
(hygiene
guile))
(append
- #{c\ 5443}#
+ #{c\ 1820}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12064,12 +12268,12 @@
#("i")))
(hygiene
guile))
- #{step\ 5446}#)))))))
- #{tmp\ 5448}#)
- ((lambda (#{tmp\ 5453}#)
- (if #{tmp\ 5453}#
- (apply (lambda (#{e1\ 5454}#
- #{e2\ 5455}#)
+ #{step\ 1823}#)))))))
+ #{tmp\ 1825}#)
+ ((lambda (#{tmp\ 1830}#)
+ (if #{tmp\ 1830}#
+ (apply (lambda (#{e1\ 1831}#
+ #{e2\ 1832}#)
(list '#(syntax-object
let
((top)
@@ -12163,8 +12367,8 @@
(hygiene
guile))
(map list
- #{var\ 5438}#
- #{init\ 5439}#)
+ #{var\ 1815}#
+ #{init\ 1816}#)
(list '#(syntax-object
if
((top)
@@ -12211,7 +12415,7 @@
#("i")))
(hygiene
guile))
- #{e0\ 5441}#
+ #{e0\ 1818}#
(cons '#(syntax-object
begin
((top)
@@ -12258,8 +12462,8 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 5454}#
- #{e2\ 5455}#))
+ (cons #{e1\ 1831}#
+ #{e2\ 1832}#))
(cons '#(syntax-object
begin
((top)
@@ -12307,7 +12511,7 @@
(hygiene
guile))
(append
- #{c\ 5443}#
+ #{c\ 1820}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12354,85 +12558,85 @@
#("i")))
(hygiene
guile))
- #{step\ 5446}#)))))))
- #{tmp\ 5453}#)
+ #{step\ 1823}#)))))))
+ #{tmp\ 1830}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5447}#)))
+ #{tmp\ 1824}#)))
($sc-dispatch
- #{tmp\ 5447}#
+ #{tmp\ 1824}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 5447}#
+ #{tmp\ 1824}#
'())))
- #{e1\ 5442}#))
- #{tmp\ 5445}#)
+ #{e1\ 1819}#))
+ #{tmp\ 1822}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5444}#)))
+ #{tmp\ 1821}#)))
($sc-dispatch
- #{tmp\ 5444}#
+ #{tmp\ 1821}#
'each-any)))
- (map (lambda (#{v\ 5462}# #{s\ 5463}#)
- ((lambda (#{tmp\ 5464}#)
- ((lambda (#{tmp\ 5465}#)
- (if #{tmp\ 5465}#
- (apply (lambda () #{v\ 5462}#)
- #{tmp\ 5465}#)
- ((lambda (#{tmp\ 5466}#)
- (if #{tmp\ 5466}#
- (apply (lambda (#{e\ 5467}#)
- #{e\ 5467}#)
- #{tmp\ 5466}#)
- ((lambda (#{_\ 5468}#)
+ (map (lambda (#{v\ 1839}# #{s\ 1840}#)
+ ((lambda (#{tmp\ 1841}#)
+ ((lambda (#{tmp\ 1842}#)
+ (if #{tmp\ 1842}#
+ (apply (lambda () #{v\ 1839}#)
+ #{tmp\ 1842}#)
+ ((lambda (#{tmp\ 1843}#)
+ (if #{tmp\ 1843}#
+ (apply (lambda (#{e\ 1844}#)
+ #{e\ 1844}#)
+ #{tmp\ 1843}#)
+ ((lambda (#{_\ 1845}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 5434}#
- #{s\ 5463}#))
- #{tmp\ 5464}#)))
+ #{orig-x\ 1811}#
+ #{s\ 1840}#))
+ #{tmp\ 1841}#)))
($sc-dispatch
- #{tmp\ 5464}#
+ #{tmp\ 1841}#
'(any)))))
($sc-dispatch
- #{tmp\ 5464}#
+ #{tmp\ 1841}#
'())))
- #{s\ 5463}#))
- #{var\ 5438}#
- #{step\ 5440}#)))
- #{tmp\ 5436}#)
+ #{s\ 1840}#))
+ #{var\ 1815}#
+ #{step\ 1817}#)))
+ #{tmp\ 1813}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5435}#)))
+ #{tmp\ 1812}#)))
($sc-dispatch
- #{tmp\ 5435}#
+ #{tmp\ 1812}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 5434}#))
+ #{orig-x\ 1811}#))
(module-name (current-module)))))
(define quasiquote
(make-syncase-macro
'macro
- (cons (letrec ((#{quasicons\ 5471}#
- (lambda (#{x\ 5475}# #{y\ 5476}#)
- ((lambda (#{tmp\ 5477}#)
- ((lambda (#{tmp\ 5478}#)
- (if #{tmp\ 5478}#
- (apply (lambda (#{x\ 5479}# #{y\ 5480}#)
- ((lambda (#{tmp\ 5481}#)
- ((lambda (#{tmp\ 5482}#)
- (if #{tmp\ 5482}#
- (apply (lambda (#{dy\ 5483}#)
- ((lambda (#{tmp\ 5484}#)
- ((lambda (#{tmp\ 5485}#)
- (if #{tmp\ 5485}#
- (apply (lambda (#{dx\ 5486}#)
+ (cons (letrec ((#{quasicons\ 1848}#
+ (lambda (#{x\ 1852}# #{y\ 1853}#)
+ ((lambda (#{tmp\ 1854}#)
+ ((lambda (#{tmp\ 1855}#)
+ (if #{tmp\ 1855}#
+ (apply (lambda (#{x\ 1856}# #{y\ 1857}#)
+ ((lambda (#{tmp\ 1858}#)
+ ((lambda (#{tmp\ 1859}#)
+ (if #{tmp\ 1859}#
+ (apply (lambda (#{dy\ 1860}#)
+ ((lambda (#{tmp\ 1861}#)
+ ((lambda (#{tmp\ 1862}#)
+ (if #{tmp\ 1862}#
+ (apply (lambda (#{dx\ 1863}#)
(list '#(syntax-object
quote
((top)
@@ -12481,11 +12685,11 @@
"i")))
(hygiene
guile))
- (cons #{dx\ 5486}#
- #{dy\ 5483}#)))
- #{tmp\ 5485}#)
- ((lambda (#{_\ 5487}#)
- (if (null? #{dy\ 5483}#)
+ (cons #{dx\ 1863}#
+ #{dy\ 1860}#)))
+ #{tmp\ 1862}#)
+ ((lambda (#{_\ 1864}#)
+ (if (null? #{dy\ 1860}#)
(list '#(syntax-object
list
((top)
@@ -12534,7 +12738,7 @@
"i")))
(hygiene
guile))
- #{x\ 5479}#)
+ #{x\ 1856}#)
(list '#(syntax-object
cons
((top)
@@ -12583,11 +12787,11 @@
"i")))
(hygiene
guile))
- #{x\ 5479}#
- #{y\ 5480}#)))
- #{tmp\ 5484}#)))
+ #{x\ 1856}#
+ #{y\ 1857}#)))
+ #{tmp\ 1861}#)))
($sc-dispatch
- #{tmp\ 5484}#
+ #{tmp\ 1861}#
'(#(free-id
#(syntax-object
quote
@@ -12632,11 +12836,11 @@
(hygiene
guile)))
any))))
- #{x\ 5479}#))
- #{tmp\ 5482}#)
- ((lambda (#{tmp\ 5488}#)
- (if #{tmp\ 5488}#
- (apply (lambda (#{stuff\ 5489}#)
+ #{x\ 1856}#))
+ #{tmp\ 1859}#)
+ ((lambda (#{tmp\ 1865}#)
+ (if #{tmp\ 1865}#
+ (apply (lambda (#{stuff\ 1866}#)
(cons '#(syntax-object
list
((top)
@@ -12681,10 +12885,10 @@
"i")))
(hygiene
guile))
- (cons #{x\ 5479}#
- #{stuff\ 5489}#)))
- #{tmp\ 5488}#)
- ((lambda (#{else\ 5490}#)
+ (cons #{x\ 1856}#
+ #{stuff\ 1866}#)))
+ #{tmp\ 1865}#)
+ ((lambda (#{else\ 1867}#)
(list '#(syntax-object
cons
((top)
@@ -12725,11 +12929,11 @@
"i")))
(hygiene
guile))
- #{x\ 5479}#
- #{y\ 5480}#))
- #{tmp\ 5481}#)))
+ #{x\ 1856}#
+ #{y\ 1857}#))
+ #{tmp\ 1858}#)))
($sc-dispatch
- #{tmp\ 5481}#
+ #{tmp\ 1858}#
'(#(free-id
#(syntax-object
list
@@ -12761,7 +12965,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 5481}#
+ #{tmp\ 1858}#
'(#(free-id
#(syntax-object
quote
@@ -12788,26 +12992,26 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{y\ 5480}#))
- #{tmp\ 5478}#)
+ #{y\ 1857}#))
+ #{tmp\ 1855}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5477}#)))
- ($sc-dispatch #{tmp\ 5477}# (quote (any any)))))
- (list #{x\ 5475}# #{y\ 5476}#))))
- (#{quasiappend\ 5472}#
- (lambda (#{x\ 5491}# #{y\ 5492}#)
- ((lambda (#{tmp\ 5493}#)
- ((lambda (#{tmp\ 5494}#)
- (if #{tmp\ 5494}#
- (apply (lambda (#{x\ 5495}# #{y\ 5496}#)
- ((lambda (#{tmp\ 5497}#)
- ((lambda (#{tmp\ 5498}#)
- (if #{tmp\ 5498}#
- (apply (lambda () #{x\ 5495}#)
- #{tmp\ 5498}#)
- ((lambda (#{_\ 5499}#)
+ #{tmp\ 1854}#)))
+ ($sc-dispatch #{tmp\ 1854}# (quote (any any)))))
+ (list #{x\ 1852}# #{y\ 1853}#))))
+ (#{quasiappend\ 1849}#
+ (lambda (#{x\ 1868}# #{y\ 1869}#)
+ ((lambda (#{tmp\ 1870}#)
+ ((lambda (#{tmp\ 1871}#)
+ (if #{tmp\ 1871}#
+ (apply (lambda (#{x\ 1872}# #{y\ 1873}#)
+ ((lambda (#{tmp\ 1874}#)
+ ((lambda (#{tmp\ 1875}#)
+ (if #{tmp\ 1875}#
+ (apply (lambda () #{x\ 1872}#)
+ #{tmp\ 1875}#)
+ ((lambda (#{_\ 1876}#)
(list '#(syntax-object
append
((top)
@@ -12845,11 +13049,11 @@
"i"
"i")))
(hygiene guile))
- #{x\ 5495}#
- #{y\ 5496}#))
- #{tmp\ 5497}#)))
+ #{x\ 1872}#
+ #{y\ 1873}#))
+ #{tmp\ 1874}#)))
($sc-dispatch
- #{tmp\ 5497}#
+ #{tmp\ 1874}#
'(#(free-id
#(syntax-object
quote
@@ -12876,22 +13080,22 @@
#("i" "i" "i" "i")))
(hygiene guile)))
()))))
- #{y\ 5496}#))
- #{tmp\ 5494}#)
+ #{y\ 1873}#))
+ #{tmp\ 1871}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5493}#)))
- ($sc-dispatch #{tmp\ 5493}# (quote (any any)))))
- (list #{x\ 5491}# #{y\ 5492}#))))
- (#{quasivector\ 5473}#
- (lambda (#{x\ 5500}#)
- ((lambda (#{tmp\ 5501}#)
- ((lambda (#{x\ 5502}#)
- ((lambda (#{tmp\ 5503}#)
- ((lambda (#{tmp\ 5504}#)
- (if #{tmp\ 5504}#
- (apply (lambda (#{x\ 5505}#)
+ #{tmp\ 1870}#)))
+ ($sc-dispatch #{tmp\ 1870}# (quote (any any)))))
+ (list #{x\ 1868}# #{y\ 1869}#))))
+ (#{quasivector\ 1850}#
+ (lambda (#{x\ 1877}#)
+ ((lambda (#{tmp\ 1878}#)
+ ((lambda (#{x\ 1879}#)
+ ((lambda (#{tmp\ 1880}#)
+ ((lambda (#{tmp\ 1881}#)
+ (if #{tmp\ 1881}#
+ (apply (lambda (#{x\ 1882}#)
(list '#(syntax-object
quote
((top)
@@ -12921,11 +13125,11 @@
#("i" "i" "i" "i")))
(hygiene guile))
(list->vector
- #{x\ 5505}#)))
- #{tmp\ 5504}#)
- ((lambda (#{tmp\ 5507}#)
- (if #{tmp\ 5507}#
- (apply (lambda (#{x\ 5508}#)
+ #{x\ 1882}#)))
+ #{tmp\ 1881}#)
+ ((lambda (#{tmp\ 1884}#)
+ (if #{tmp\ 1884}#
+ (apply (lambda (#{x\ 1885}#)
(cons '#(syntax-object
vector
((top)
@@ -12963,9 +13167,9 @@
"i"
"i")))
(hygiene guile))
- #{x\ 5508}#))
- #{tmp\ 5507}#)
- ((lambda (#{_\ 5510}#)
+ #{x\ 1885}#))
+ #{tmp\ 1884}#)
+ ((lambda (#{_\ 1887}#)
(list '#(syntax-object
list->vector
((top)
@@ -12994,10 +13198,10 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 5502}#))
- #{tmp\ 5503}#)))
+ #{x\ 1879}#))
+ #{tmp\ 1880}#)))
($sc-dispatch
- #{tmp\ 5503}#
+ #{tmp\ 1880}#
'(#(free-id
#(syntax-object
list
@@ -13017,7 +13221,7 @@
.
each-any)))))
($sc-dispatch
- #{tmp\ 5503}#
+ #{tmp\ 1880}#
'(#(free-id
#(syntax-object
quote
@@ -13035,18 +13239,18 @@
#("i" "i" "i" "i")))
(hygiene guile)))
each-any))))
- #{x\ 5502}#))
- #{tmp\ 5501}#))
- #{x\ 5500}#)))
- (#{quasi\ 5474}#
- (lambda (#{p\ 5511}# #{lev\ 5512}#)
- ((lambda (#{tmp\ 5513}#)
- ((lambda (#{tmp\ 5514}#)
- (if #{tmp\ 5514}#
- (apply (lambda (#{p\ 5515}#)
- (if (= #{lev\ 5512}# 0)
- #{p\ 5515}#
- (#{quasicons\ 5471}#
+ #{x\ 1879}#))
+ #{tmp\ 1878}#))
+ #{x\ 1877}#)))
+ (#{quasi\ 1851}#
+ (lambda (#{p\ 1888}# #{lev\ 1889}#)
+ ((lambda (#{tmp\ 1890}#)
+ ((lambda (#{tmp\ 1891}#)
+ (if #{tmp\ 1891}#
+ (apply (lambda (#{p\ 1892}#)
+ (if (= #{lev\ 1889}# 0)
+ #{p\ 1892}#
+ (#{quasicons\ 1848}#
'(#(syntax-object
quote
((top)
@@ -13087,21 +13291,21 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 5474}#
- (list #{p\ 5515}#)
- (- #{lev\ 5512}# 1)))))
- #{tmp\ 5514}#)
- ((lambda (#{tmp\ 5516}#)
- (if (if #{tmp\ 5516}#
- (apply (lambda (#{args\ 5517}#)
- (= #{lev\ 5512}# 0))
- #{tmp\ 5516}#)
+ (#{quasi\ 1851}#
+ (list #{p\ 1892}#)
+ (- #{lev\ 1889}# 1)))))
+ #{tmp\ 1891}#)
+ ((lambda (#{tmp\ 1893}#)
+ (if (if #{tmp\ 1893}#
+ (apply (lambda (#{args\ 1894}#)
+ (= #{lev\ 1889}# 0))
+ #{tmp\ 1893}#)
#f)
- (apply (lambda (#{args\ 5518}#)
+ (apply (lambda (#{args\ 1895}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 5511}#
+ #{p\ 1888}#
(cons '#(syntax-object
unquote
((top)
@@ -13125,20 +13329,20 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{args\ 5518}#)))
- #{tmp\ 5516}#)
- ((lambda (#{tmp\ 5519}#)
- (if #{tmp\ 5519}#
- (apply (lambda (#{p\ 5520}#
- #{q\ 5521}#)
- (if (= #{lev\ 5512}# 0)
- (#{quasiappend\ 5472}#
- #{p\ 5520}#
- (#{quasi\ 5474}#
- #{q\ 5521}#
- #{lev\ 5512}#))
- (#{quasicons\ 5471}#
- (#{quasicons\ 5471}#
+ #{args\ 1895}#)))
+ #{tmp\ 1893}#)
+ ((lambda (#{tmp\ 1896}#)
+ (if #{tmp\ 1896}#
+ (apply (lambda (#{p\ 1897}#
+ #{q\ 1898}#)
+ (if (= #{lev\ 1889}# 0)
+ (#{quasiappend\ 1849}#
+ #{p\ 1897}#
+ (#{quasi\ 1851}#
+ #{q\ 1898}#
+ #{lev\ 1889}#))
+ (#{quasicons\ 1848}#
+ (#{quasicons\ 1848}#
'(#(syntax-object
quote
((top)
@@ -13197,26 +13401,26 @@
"i"
"i")))
(hygiene guile)))
- (#{quasi\ 5474}#
- (list #{p\ 5520}#)
- (- #{lev\ 5512}# 1)))
- (#{quasi\ 5474}#
- #{q\ 5521}#
- #{lev\ 5512}#))))
- #{tmp\ 5519}#)
- ((lambda (#{tmp\ 5522}#)
- (if (if #{tmp\ 5522}#
- (apply (lambda (#{args\ 5523}#
- #{q\ 5524}#)
- (= #{lev\ 5512}# 0))
- #{tmp\ 5522}#)
+ (#{quasi\ 1851}#
+ (list #{p\ 1897}#)
+ (- #{lev\ 1889}# 1)))
+ (#{quasi\ 1851}#
+ #{q\ 1898}#
+ #{lev\ 1889}#))))
+ #{tmp\ 1896}#)
+ ((lambda (#{tmp\ 1899}#)
+ (if (if #{tmp\ 1899}#
+ (apply (lambda (#{args\ 1900}#
+ #{q\ 1901}#)
+ (= #{lev\ 1889}# 0))
+ #{tmp\ 1899}#)
#f)
- (apply (lambda (#{args\ 5525}#
- #{q\ 5526}#)
+ (apply (lambda (#{args\ 1902}#
+ #{q\ 1903}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 5511}#
+ #{p\ 1888}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13251,12 +13455,12 @@
"i")))
(hygiene
guile))
- #{args\ 5525}#)))
- #{tmp\ 5522}#)
- ((lambda (#{tmp\ 5527}#)
- (if #{tmp\ 5527}#
- (apply (lambda (#{p\ 5528}#)
- (#{quasicons\ 5471}#
+ #{args\ 1902}#)))
+ #{tmp\ 1899}#)
+ ((lambda (#{tmp\ 1904}#)
+ (if #{tmp\ 1904}#
+ (apply (lambda (#{p\ 1905}#)
+ (#{quasicons\ 1848}#
'(#(syntax-object
quote
((top)
@@ -13321,32 +13525,32 @@
"i")))
(hygiene
guile)))
- (#{quasi\ 5474}#
- (list #{p\ 5528}#)
- (+ #{lev\ 5512}#
+ (#{quasi\ 1851}#
+ (list #{p\ 1905}#)
+ (+ #{lev\ 1889}#
1))))
- #{tmp\ 5527}#)
- ((lambda (#{tmp\ 5529}#)
- (if #{tmp\ 5529}#
- (apply (lambda (#{p\ 5530}#
- #{q\ 5531}#)
- (#{quasicons\ 5471}#
- (#{quasi\ 5474}#
- #{p\ 5530}#
- #{lev\ 5512}#)
- (#{quasi\ 5474}#
- #{q\ 5531}#
- #{lev\ 5512}#)))
- #{tmp\ 5529}#)
- ((lambda (#{tmp\ 5532}#)
- (if #{tmp\ 5532}#
- (apply (lambda (#{x\ 5533}#)
- (#{quasivector\ 5473}#
- (#{quasi\ 5474}#
- #{x\ 5533}#
- #{lev\ 5512}#)))
- #{tmp\ 5532}#)
- ((lambda (#{p\ 5535}#)
+ #{tmp\ 1904}#)
+ ((lambda (#{tmp\ 1906}#)
+ (if #{tmp\ 1906}#
+ (apply (lambda (#{p\ 1907}#
+ #{q\ 1908}#)
+ (#{quasicons\ 1848}#
+ (#{quasi\ 1851}#
+ #{p\ 1907}#
+ #{lev\ 1889}#)
+ (#{quasi\ 1851}#
+ #{q\ 1908}#
+ #{lev\ 1889}#)))
+ #{tmp\ 1906}#)
+ ((lambda (#{tmp\ 1909}#)
+ (if #{tmp\ 1909}#
+ (apply (lambda (#{x\ 1910}#)
+ (#{quasivector\ 1850}#
+ (#{quasi\ 1851}#
+ #{x\ 1910}#
+ #{lev\ 1889}#)))
+ #{tmp\ 1909}#)
+ ((lambda (#{p\ 1912}#)
(list '#(syntax-object
quote
((top)
@@ -13380,17 +13584,17 @@
"i")))
(hygiene
guile))
- #{p\ 5535}#))
- #{tmp\ 5513}#)))
+ #{p\ 1912}#))
+ #{tmp\ 1890}#)))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13413,7 +13617,7 @@
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13439,7 +13643,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13461,7 +13665,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'(#(free-id
#(syntax-object
unquote
@@ -13482,7 +13686,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 5513}#
+ #{tmp\ 1890}#
'(#(free-id
#(syntax-object
unquote
@@ -13501,51 +13705,51 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{p\ 5511}#))))
- (lambda (#{x\ 5536}#)
- ((lambda (#{tmp\ 5537}#)
- ((lambda (#{tmp\ 5538}#)
- (if #{tmp\ 5538}#
- (apply (lambda (#{_\ 5539}# #{e\ 5540}#)
- (#{quasi\ 5474}# #{e\ 5540}# 0))
- #{tmp\ 5538}#)
+ #{p\ 1888}#))))
+ (lambda (#{x\ 1913}#)
+ ((lambda (#{tmp\ 1914}#)
+ ((lambda (#{tmp\ 1915}#)
+ (if #{tmp\ 1915}#
+ (apply (lambda (#{_\ 1916}# #{e\ 1917}#)
+ (#{quasi\ 1851}# #{e\ 1917}# 0))
+ #{tmp\ 1915}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5537}#)))
- ($sc-dispatch #{tmp\ 5537}# (quote (any any)))))
- #{x\ 5536}#)))
+ #{tmp\ 1914}#)))
+ ($sc-dispatch #{tmp\ 1914}# (quote (any any)))))
+ #{x\ 1913}#)))
(module-name (current-module)))))
(define include
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5541}#)
- (letrec ((#{read-file\ 5542}#
- (lambda (#{fn\ 5543}# #{k\ 5544}#)
- (let ((#{p\ 5545}# (open-input-file #{fn\ 5543}#)))
- (letrec ((#{f\ 5546}#
- (lambda (#{x\ 5547}#)
- (if (eof-object? #{x\ 5547}#)
+ (cons (lambda (#{x\ 1918}#)
+ (letrec ((#{read-file\ 1919}#
+ (lambda (#{fn\ 1920}# #{k\ 1921}#)
+ (let ((#{p\ 1922}# (open-input-file #{fn\ 1920}#)))
+ (letrec ((#{f\ 1923}#
+ (lambda (#{x\ 1924}#)
+ (if (eof-object? #{x\ 1924}#)
(begin
- (close-input-port #{p\ 5545}#)
+ (close-input-port #{p\ 1922}#)
'())
(cons (datum->syntax
- #{k\ 5544}#
- #{x\ 5547}#)
- (#{f\ 5546}#
- (read #{p\ 5545}#)))))))
- (#{f\ 5546}# (read #{p\ 5545}#)))))))
- ((lambda (#{tmp\ 5548}#)
- ((lambda (#{tmp\ 5549}#)
- (if #{tmp\ 5549}#
- (apply (lambda (#{k\ 5550}# #{filename\ 5551}#)
- (let ((#{fn\ 5552}#
- (syntax->datum #{filename\ 5551}#)))
- ((lambda (#{tmp\ 5553}#)
- ((lambda (#{tmp\ 5554}#)
- (if #{tmp\ 5554}#
- (apply (lambda (#{exp\ 5555}#)
+ #{k\ 1921}#
+ #{x\ 1924}#)
+ (#{f\ 1923}#
+ (read #{p\ 1922}#)))))))
+ (#{f\ 1923}# (read #{p\ 1922}#)))))))
+ ((lambda (#{tmp\ 1925}#)
+ ((lambda (#{tmp\ 1926}#)
+ (if #{tmp\ 1926}#
+ (apply (lambda (#{k\ 1927}# #{filename\ 1928}#)
+ (let ((#{fn\ 1929}#
+ (syntax->datum #{filename\ 1928}#)))
+ ((lambda (#{tmp\ 1930}#)
+ ((lambda (#{tmp\ 1931}#)
+ (if #{tmp\ 1931}#
+ (apply (lambda (#{exp\ 1932}#)
(cons '#(syntax-object
begin
((top)
@@ -13572,39 +13776,39 @@
#((top))
#("i")))
(hygiene guile))
- #{exp\ 5555}#))
- #{tmp\ 5554}#)
+ #{exp\ 1932}#))
+ #{tmp\ 1931}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5553}#)))
+ #{tmp\ 1930}#)))
($sc-dispatch
- #{tmp\ 5553}#
+ #{tmp\ 1930}#
'each-any)))
- (#{read-file\ 5542}#
- #{fn\ 5552}#
- #{k\ 5550}#))))
- #{tmp\ 5549}#)
+ (#{read-file\ 1919}#
+ #{fn\ 1929}#
+ #{k\ 1927}#))))
+ #{tmp\ 1926}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5548}#)))
- ($sc-dispatch #{tmp\ 5548}# (quote (any any)))))
- #{x\ 5541}#)))
+ #{tmp\ 1925}#)))
+ ($sc-dispatch #{tmp\ 1925}# (quote (any any)))))
+ #{x\ 1918}#)))
(module-name (current-module)))))
(define include-from-path
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5557}#)
- ((lambda (#{tmp\ 5558}#)
- ((lambda (#{tmp\ 5559}#)
- (if #{tmp\ 5559}#
- (apply (lambda (#{k\ 5560}# #{filename\ 5561}#)
- (let ((#{fn\ 5562}#
- (syntax->datum #{filename\ 5561}#)))
- ((lambda (#{tmp\ 5563}#)
- ((lambda (#{fn\ 5564}#)
+ (cons (lambda (#{x\ 1934}#)
+ ((lambda (#{tmp\ 1935}#)
+ ((lambda (#{tmp\ 1936}#)
+ (if #{tmp\ 1936}#
+ (apply (lambda (#{k\ 1937}# #{filename\ 1938}#)
+ (let ((#{fn\ 1939}#
+ (syntax->datum #{filename\ 1938}#)))
+ ((lambda (#{tmp\ 1940}#)
+ ((lambda (#{fn\ 1941}#)
(list '#(syntax-object
include
((top)
@@ -13619,81 +13823,81 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{fn\ 5564}#))
- #{tmp\ 5563}#))
- (let ((#{t\ 5565}#
- (%search-load-path #{fn\ 5562}#)))
- (if #{t\ 5565}#
- #{t\ 5565}#
+ #{fn\ 1941}#))
+ #{tmp\ 1940}#))
+ (let ((#{t\ 1942}#
+ (%search-load-path #{fn\ 1939}#)))
+ (if #{t\ 1942}#
+ #{t\ 1942}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 5557}#
- #{filename\ 5561}#))))))
- #{tmp\ 5559}#)
+ #{x\ 1934}#
+ #{filename\ 1938}#))))))
+ #{tmp\ 1936}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5558}#)))
- ($sc-dispatch #{tmp\ 5558}# (quote (any any)))))
- #{x\ 5557}#))
+ #{tmp\ 1935}#)))
+ ($sc-dispatch #{tmp\ 1935}# (quote (any any)))))
+ #{x\ 1934}#))
(module-name (current-module)))))
(define unquote
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5566}#)
- ((lambda (#{tmp\ 5567}#)
- ((lambda (#{tmp\ 5568}#)
- (if #{tmp\ 5568}#
- (apply (lambda (#{_\ 5569}# #{e\ 5570}#)
+ (cons (lambda (#{x\ 1943}#)
+ ((lambda (#{tmp\ 1944}#)
+ ((lambda (#{tmp\ 1945}#)
+ (if #{tmp\ 1945}#
+ (apply (lambda (#{_\ 1946}# #{e\ 1947}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 5566}#))
- #{tmp\ 5568}#)
+ #{x\ 1943}#))
+ #{tmp\ 1945}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5567}#)))
- ($sc-dispatch #{tmp\ 5567}# (quote (any any)))))
- #{x\ 5566}#))
+ #{tmp\ 1944}#)))
+ ($sc-dispatch #{tmp\ 1944}# (quote (any any)))))
+ #{x\ 1943}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5571}#)
- ((lambda (#{tmp\ 5572}#)
- ((lambda (#{tmp\ 5573}#)
- (if #{tmp\ 5573}#
- (apply (lambda (#{_\ 5574}# #{e\ 5575}#)
+ (cons (lambda (#{x\ 1948}#)
+ ((lambda (#{tmp\ 1949}#)
+ ((lambda (#{tmp\ 1950}#)
+ (if #{tmp\ 1950}#
+ (apply (lambda (#{_\ 1951}# #{e\ 1952}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 5571}#))
- #{tmp\ 5573}#)
+ #{x\ 1948}#))
+ #{tmp\ 1950}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5572}#)))
- ($sc-dispatch #{tmp\ 5572}# (quote (any any)))))
- #{x\ 5571}#))
+ #{tmp\ 1949}#)))
+ ($sc-dispatch #{tmp\ 1949}# (quote (any any)))))
+ #{x\ 1948}#))
(module-name (current-module)))))
(define case
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5576}#)
- ((lambda (#{tmp\ 5577}#)
- ((lambda (#{tmp\ 5578}#)
- (if #{tmp\ 5578}#
- (apply (lambda (#{_\ 5579}#
- #{e\ 5580}#
- #{m1\ 5581}#
- #{m2\ 5582}#)
- ((lambda (#{tmp\ 5583}#)
- ((lambda (#{body\ 5584}#)
+ (cons (lambda (#{x\ 1953}#)
+ ((lambda (#{tmp\ 1954}#)
+ ((lambda (#{tmp\ 1955}#)
+ (if #{tmp\ 1955}#
+ (apply (lambda (#{_\ 1956}#
+ #{e\ 1957}#
+ #{m1\ 1958}#
+ #{m2\ 1959}#)
+ ((lambda (#{tmp\ 1960}#)
+ ((lambda (#{body\ 1961}#)
(list '#(syntax-object
let
((top)
@@ -13725,18 +13929,18 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 5580}#))
- #{body\ 5584}#))
- #{tmp\ 5583}#))
- (letrec ((#{f\ 5585}#
- (lambda (#{clause\ 5586}#
- #{clauses\ 5587}#)
- (if (null? #{clauses\ 5587}#)
- ((lambda (#{tmp\ 5589}#)
- ((lambda (#{tmp\ 5590}#)
- (if #{tmp\ 5590}#
- (apply (lambda (#{e1\ 5591}#
- #{e2\ 5592}#)
+ #{e\ 1957}#))
+ #{body\ 1961}#))
+ #{tmp\ 1960}#))
+ (letrec ((#{f\ 1962}#
+ (lambda (#{clause\ 1963}#
+ #{clauses\ 1964}#)
+ (if (null? #{clauses\ 1964}#)
+ ((lambda (#{tmp\ 1966}#)
+ ((lambda (#{tmp\ 1967}#)
+ (if #{tmp\ 1967}#
+ (apply (lambda (#{e1\ 1968}#
+ #{e2\ 1969}#)
(cons '#(syntax-object
begin
((top)
@@ -13784,14 +13988,14 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 5591}#
- #{e2\ 5592}#)))
- #{tmp\ 5590}#)
- ((lambda (#{tmp\ 5594}#)
- (if #{tmp\ 5594}#
- (apply (lambda (#{k\ 5595}#
- #{e1\ 5596}#
- #{e2\ 5597}#)
+ (cons #{e1\ 1968}#
+ #{e2\ 1969}#)))
+ #{tmp\ 1967}#)
+ ((lambda (#{tmp\ 1971}#)
+ (if #{tmp\ 1971}#
+ (apply (lambda (#{k\ 1972}#
+ #{e1\ 1973}#
+ #{e2\ 1974}#)
(list '#(syntax-object
if
((top)
@@ -13992,7 +14196,7 @@
#("i")))
(hygiene
guile))
- #{k\ 5595}#))
+ #{k\ 1972}#))
(cons '#(syntax-object
begin
((top)
@@ -14043,24 +14247,24 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 5596}#
- #{e2\ 5597}#))))
- #{tmp\ 5594}#)
- ((lambda (#{_\ 5600}#)
+ (cons #{e1\ 1973}#
+ #{e2\ 1974}#))))
+ #{tmp\ 1971}#)
+ ((lambda (#{_\ 1977}#)
(syntax-violation
'case
"bad clause"
- #{x\ 5576}#
- #{clause\ 5586}#))
- #{tmp\ 5589}#)))
+ #{x\ 1953}#
+ #{clause\ 1963}#))
+ #{tmp\ 1966}#)))
($sc-dispatch
- #{tmp\ 5589}#
+ #{tmp\ 1966}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 5589}#
+ #{tmp\ 1966}#
'(#(free-id
#(syntax-object
else
@@ -14088,15 +14292,15 @@
any
.
each-any))))
- #{clause\ 5586}#)
- ((lambda (#{tmp\ 5601}#)
- ((lambda (#{rest\ 5602}#)
- ((lambda (#{tmp\ 5603}#)
- ((lambda (#{tmp\ 5604}#)
- (if #{tmp\ 5604}#
- (apply (lambda (#{k\ 5605}#
- #{e1\ 5606}#
- #{e2\ 5607}#)
+ #{clause\ 1963}#)
+ ((lambda (#{tmp\ 1978}#)
+ ((lambda (#{rest\ 1979}#)
+ ((lambda (#{tmp\ 1980}#)
+ ((lambda (#{tmp\ 1981}#)
+ (if #{tmp\ 1981}#
+ (apply (lambda (#{k\ 1982}#
+ #{e1\ 1983}#
+ #{e2\ 1984}#)
(list '#(syntax-object
if
((top)
@@ -14313,7 +14517,7 @@
#("i")))
(hygiene
guile))
- #{k\ 5605}#))
+ #{k\ 1982}#))
(cons '#(syntax-object
begin
((top)
@@ -14368,48 +14572,48 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 5606}#
- #{e2\ 5607}#))
- #{rest\ 5602}#))
- #{tmp\ 5604}#)
- ((lambda (#{_\ 5610}#)
+ (cons #{e1\ 1983}#
+ #{e2\ 1984}#))
+ #{rest\ 1979}#))
+ #{tmp\ 1981}#)
+ ((lambda (#{_\ 1987}#)
(syntax-violation
'case
"bad clause"
- #{x\ 5576}#
- #{clause\ 5586}#))
- #{tmp\ 5603}#)))
+ #{x\ 1953}#
+ #{clause\ 1963}#))
+ #{tmp\ 1980}#)))
($sc-dispatch
- #{tmp\ 5603}#
+ #{tmp\ 1980}#
'(each-any
any
.
each-any))))
- #{clause\ 5586}#))
- #{tmp\ 5601}#))
- (#{f\ 5585}#
- (car #{clauses\ 5587}#)
- (cdr #{clauses\ 5587}#)))))))
- (#{f\ 5585}# #{m1\ 5581}# #{m2\ 5582}#))))
- #{tmp\ 5578}#)
+ #{clause\ 1963}#))
+ #{tmp\ 1978}#))
+ (#{f\ 1962}#
+ (car #{clauses\ 1964}#)
+ (cdr #{clauses\ 1964}#)))))))
+ (#{f\ 1962}# #{m1\ 1958}# #{m2\ 1959}#))))
+ #{tmp\ 1955}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5577}#)))
+ #{tmp\ 1954}#)))
($sc-dispatch
- #{tmp\ 5577}#
+ #{tmp\ 1954}#
'(any any any . each-any))))
- #{x\ 5576}#))
+ #{x\ 1953}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5611}#)
- ((lambda (#{tmp\ 5612}#)
- ((lambda (#{tmp\ 5613}#)
- (if #{tmp\ 5613}#
- (apply (lambda (#{_\ 5614}# #{e\ 5615}#)
+ (cons (lambda (#{x\ 1988}#)
+ ((lambda (#{tmp\ 1989}#)
+ ((lambda (#{tmp\ 1990}#)
+ (if #{tmp\ 1990}#
+ (apply (lambda (#{_\ 1991}# #{e\ 1992}#)
(list '#(syntax-object
lambda
((top)
@@ -14516,8 +14720,8 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 5615}#))
- (list (cons #{_\ 5614}#
+ #{e\ 1992}#))
+ (list (cons #{_\ 1991}#
'(#(syntax-object
x
((top)
@@ -14557,7 +14761,7 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e\ 5615}#
+ (cons #{e\ 1992}#
'(#(syntax-object
x
((top)
@@ -14593,27 +14797,27 @@
#("i")))
(hygiene
guile)))))))))
- #{tmp\ 5613}#)
+ #{tmp\ 1990}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5612}#)))
- ($sc-dispatch #{tmp\ 5612}# (quote (any any)))))
- #{x\ 5611}#))
+ #{tmp\ 1989}#)))
+ ($sc-dispatch #{tmp\ 1989}# (quote (any any)))))
+ #{x\ 1988}#))
(module-name (current-module)))))
(define define*
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 5616}#)
- ((lambda (#{tmp\ 5617}#)
- ((lambda (#{tmp\ 5618}#)
- (if #{tmp\ 5618}#
- (apply (lambda (#{dummy\ 5619}#
- #{id\ 5620}#
- #{args\ 5621}#
- #{b0\ 5622}#
- #{b1\ 5623}#)
+ (cons (lambda (#{x\ 1993}#)
+ ((lambda (#{tmp\ 1994}#)
+ ((lambda (#{tmp\ 1995}#)
+ (if #{tmp\ 1995}#
+ (apply (lambda (#{dummy\ 1996}#
+ #{id\ 1997}#
+ #{args\ 1998}#
+ #{b0\ 1999}#
+ #{b1\ 2000}#)
(list '#(syntax-object
define
((top)
@@ -14624,7 +14828,7 @@
#(ribcage () () ())
#(ribcage #(x) #(("m" top)) #("i")))
(hygiene guile))
- #{id\ 5620}#
+ #{id\ 1997}#
(cons '#(syntax-object
lambda*
((top)
@@ -14642,17 +14846,17 @@
#(("m" top))
#("i")))
(hygiene guile))
- (cons #{args\ 5621}#
- (cons #{b0\ 5622}#
- #{b1\ 5623}#)))))
- #{tmp\ 5618}#)
+ (cons #{args\ 1998}#
+ (cons #{b0\ 1999}#
+ #{b1\ 2000}#)))))
+ #{tmp\ 1995}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5617}#)))
+ #{tmp\ 1994}#)))
($sc-dispatch
- #{tmp\ 5617}#
+ #{tmp\ 1994}#
'(any (any . any) any . each-any))))
- #{x\ 5616}#))
+ #{x\ 1993}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 3c1c9b020..623b82a26 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2235,33 +2235,55 @@
; accepts pattern & keys
; returns $sc-dispatch pattern & ids
(lambda (pattern keys)
- (let cvt ((p pattern) (n 0) (ids '()))
- (if (id? p)
- (if (bound-id-member? p keys)
- (values (vector 'free-id p) ids)
- (values 'any (cons (cons p n) ids)))
- (syntax-case p ()
- ((x dots)
- (ellipsis? #'dots)
- (call-with-values
- (lambda () (cvt #'x (fx+ n 1) ids))
- (lambda (p ids)
- (values (if (eq? p 'any) 'each-any (vector 'each p))
- ids))))
- ((x . y)
- (call-with-values
- (lambda () (cvt #'y n ids))
- (lambda (y ids)
- (call-with-values
- (lambda () (cvt #'x n ids))
- (lambda (x ids)
- (values (cons x y) ids))))))
- (() (values '() ids))
- (#(x ...)
- (call-with-values
- (lambda () (cvt #'(x ...) n ids))
- (lambda (p ids) (values (vector 'vector p) ids))))
- (x (values (vector 'atom (strip p empty-wrap)) ids)))))))
+ (define cvt*
+ (lambda (p* n ids)
+ (if (null? p*)
+ (values '() ids)
+ (call-with-values
+ (lambda () (cvt* (cdr p*) n ids))
+ (lambda (y ids)
+ (call-with-values
+ (lambda () (cvt (car p*) n ids))
+ (lambda (x ids)
+ (values (cons x y) ids))))))))
+ (define cvt
+ (lambda (p n ids)
+ (if (id? p)
+ (if (bound-id-member? p keys)
+ (values (vector 'free-id p) ids)
+ (values 'any (cons (cons p n) ids)))
+ (syntax-case p ()
+ ((x dots)
+ (ellipsis? (syntax dots))
+ (call-with-values
+ (lambda () (cvt (syntax x) (fx+ n 1) ids))
+ (lambda (p ids)
+ (values (if (eq? p 'any) 'each-any (vector 'each p))
+ ids))))
+ ((x dots ys ...)
+ (ellipsis? (syntax dots))
+ (call-with-values
+ (lambda () (cvt* (syntax (ys ...)) n ids))
+ (lambda (ys ids)
+ (call-with-values
+ (lambda () (cvt (syntax x) (+ n 1) ids))
+ (lambda (x ids)
+ (values `#(each+ ,x ,(reverse ys) ()) ids))))))
+ ((x . y)
+ (call-with-values
+ (lambda () (cvt (syntax y) n ids))
+ (lambda (y ids)
+ (call-with-values
+ (lambda () (cvt (syntax x) n ids))
+ (lambda (x ids)
+ (values (cons x y) ids))))))
+ (() (values '() ids))
+ (#(x ...)
+ (call-with-values
+ (lambda () (cvt (syntax (x ...)) n ids))
+ (lambda (p ids) (values (vector 'vector p) ids))))
+ (x (values (vector 'atom (strip p empty-wrap)) ids))))))
+ (cvt pattern 0 '())))
(define build-dispatch-call
(lambda (pvars exp y r mod)
@@ -2454,6 +2476,7 @@
;;; each-any (any*)
;;; #(free-id <key>) <key> with free-identifier=?
;;; #(each <pattern>) (<pattern>*)
+;;; #(each+ p1 (p2_1 ... p2_n) p3) (p1* (p2_n ... p2_1) . p3)
;;; #(vector <pattern>) (list->vector <pattern>)
;;; #(atom <object>) <object> with "equal?"
@@ -2479,6 +2502,29 @@
(syntax-object-module e)))
(else #f))))
+ (define match-each+
+ (lambda (e x-pat y-pat z-pat w r mod)
+ (let f ((e e) (w w))
+ (cond
+ ((pair? e)
+ (call-with-values (lambda () (f (cdr e) w))
+ (lambda (xr* y-pat r)
+ (if r
+ (if (null? y-pat)
+ (let ((xr (match (car e) x-pat w '() mod)))
+ (if xr
+ (values (cons xr xr*) y-pat r)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr y-pat)
+ (match (car e) (car y-pat) w r mod)))
+ (values #f #f #f)))))
+ ((syntax-object? e)
+ (f (syntax-object-expression e) (join-wraps w e)))
+ (else
+ (values '() y-pat (match e z-pat w r mod)))))))
+
(define match-each-any
(lambda (e w mod)
(cond
@@ -2502,9 +2548,19 @@
(else
(case (vector-ref p 0)
((each) (match-empty (vector-ref p 1) r))
+ ((each+) (match-empty (vector-ref p 1)
+ (match-empty
+ (reverse (vector-ref p 2))
+ (match-empty (vector-ref p 3) r))))
((free-id atom) r)
((vector) (match-empty (vector-ref p 1) r)))))))
+ (define combine
+ (lambda (r* r)
+ (if (null? (car r*))
+ r
+ (cons (map car r*) (combine (map cdr r*) r)))))
+
(define match*
(lambda (e p w r mod)
(cond
@@ -2526,6 +2582,16 @@
(if (null? (car l))
r
(cons (map car l) (collect (map cdr l)))))))))
+ ((each+)
+ (call-with-values
+ (lambda ()
+ (match-each+ e (vector-ref p 1) (vector-ref p 2) (vector-ref p 3) w r mod))
+ (lambda (xr* y-pat r)
+ (and r
+ (null? y-pat)
+ (if (null? xr*)
+ (match-empty (vector-ref p 1) r)
+ (combine xr* r))))))
((free-id) (and (id? e) (free-id=? (wrap e w mod) (vector-ref p 1)) r))
((atom) (and (equal? (vector-ref p 1) (strip e w)) r))
((vector)
diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index af9f6f318..f21000e42 100644
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -20,7 +20,8 @@
;; affect code outside of this file.
;;
(define-module (test-suite test-syncase)
- :use-module (test-suite lib))
+ :use-module (test-suite lib)
+ :use-module ((srfi srfi-1) :select (member)))
(define-syntax plus
(syntax-rules ()
@@ -43,3 +44,41 @@
(pass-if "macro using quasisyntax"
(equal? (string-let foo (list foo foo))
'("foo" "foo")))
+
+(define-syntax string-case
+ (syntax-rules (else)
+ ((string-case expr ((string ...) clause-body ...) ... (else else-body ...))
+ (let ((value expr))
+ (cond ((member value '(string ...) string=?)
+ clause-body ...)
+ ...
+ (else
+ else-body ...))))
+ ((string-case expr ((string ...) clause-body ...) ...)
+ (let ((value expr))
+ (cond ((member value '(string ...) string=?)
+ clause-body ...)
+ ...)))))
+
+(define-syntax alist
+ (syntax-rules (tail)
+ ((alist ((key val) ... (tail expr)))
+ (cons* '(key . val) ... expr))
+ ((alist ((key val) ...))
+ (list '(key . val) ...))))
+
+(with-test-prefix "tail patterns"
+ (with-test-prefix "at the outermost level"
+ (pass-if "non-tail invocation"
+ (equal? (string-case "foo" (("foo") 'foo))
+ 'foo))
+ (pass-if "tail invocation"
+ (equal? (string-case "foo" (("bar") 'bar) (else 'else))
+ 'else)))
+ (with-test-prefix "at a nested level"
+ (pass-if "non-tail invocation"
+ (equal? (alist ((a 1) (b 2) (c 3)))
+ '((a . 1) (b . 2) (c . 3))))
+ (pass-if "tail invocation"
+ (equal? (alist ((foo 42) (tail '((bar . 66)))))
+ '((foo . 42) (bar . 66))))))