summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-03-19 15:42:20 +0100
committerLudovic Courtès <ludo@gnu.org>2010-03-20 17:03:54 +0100
commitdf0f529585e55007e2a2226f624b55e986722d37 (patch)
tree2d2d93d7c945a675060fae8a03207193bc7056c7
parent165a8643ae1c9e8d8eceba2e33a9586e9863ea8c (diff)
downloadguile-df0f529585e55007e2a2226f624b55e986722d37.tar.gz
Make `include' tail-recursive.
* module/ice-9/psyntax.scm (include)[read-file]: Make tail-recursive. * module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--module/ice-9/psyntax-pp.scm15541
-rw-r--r--module/ice-9/psyntax.scm11
2 files changed, 7771 insertions, 7781 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 7d449d206..f2463a240 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,618 +1,610 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 3299}#
- (lambda (#{f\ 3361}# #{first\ 3362}# . #{rest\ 3363}#)
- (let ((#{t\ 3369}# (null? #{first\ 3362}#)))
- (if #{t\ 3369}#
- #{t\ 3369}#
- (if (null? #{rest\ 3363}#)
- (letrec ((#{andmap\ 3373}#
- (lambda (#{first\ 3374}#)
- (let ((#{x\ 3377}# (car #{first\ 3374}#))
- (#{first\ 3378}# (cdr #{first\ 3374}#)))
- (if (null? #{first\ 3378}#)
- (#{f\ 3361}# #{x\ 3377}#)
- (if (#{f\ 3361}# #{x\ 3377}#)
- (#{andmap\ 3373}# #{first\ 3378}#)
+(letrec ((#{and-map*\ 44}#
+ (lambda (#{f\ 106}# #{first\ 107}# . #{rest\ 108}#)
+ (let ((#{t\ 114}# (null? #{first\ 107}#)))
+ (if #{t\ 114}#
+ #{t\ 114}#
+ (if (null? #{rest\ 108}#)
+ (letrec ((#{andmap\ 118}#
+ (lambda (#{first\ 119}#)
+ (let ((#{x\ 122}# (car #{first\ 119}#))
+ (#{first\ 123}# (cdr #{first\ 119}#)))
+ (if (null? #{first\ 123}#)
+ (#{f\ 106}# #{x\ 122}#)
+ (if (#{f\ 106}# #{x\ 122}#)
+ (#{andmap\ 118}# #{first\ 123}#)
#f))))))
- (#{andmap\ 3373}# #{first\ 3362}#))
- (letrec ((#{andmap\ 3384}#
- (lambda (#{first\ 3385}# #{rest\ 3386}#)
- (let ((#{x\ 3391}# (car #{first\ 3385}#))
- (#{xr\ 3392}# (map car #{rest\ 3386}#))
- (#{first\ 3393}# (cdr #{first\ 3385}#))
- (#{rest\ 3394}#
- (map cdr #{rest\ 3386}#)))
- (if (null? #{first\ 3393}#)
- (apply #{f\ 3361}#
- (cons #{x\ 3391}# #{xr\ 3392}#))
- (if (apply #{f\ 3361}#
- (cons #{x\ 3391}# #{xr\ 3392}#))
- (#{andmap\ 3384}#
- #{first\ 3393}#
- #{rest\ 3394}#)
+ (#{andmap\ 118}# #{first\ 107}#))
+ (letrec ((#{andmap\ 129}#
+ (lambda (#{first\ 130}# #{rest\ 131}#)
+ (let ((#{x\ 136}# (car #{first\ 130}#))
+ (#{xr\ 137}# (map car #{rest\ 131}#))
+ (#{first\ 138}# (cdr #{first\ 130}#))
+ (#{rest\ 139}# (map cdr #{rest\ 131}#)))
+ (if (null? #{first\ 138}#)
+ (apply #{f\ 106}#
+ (cons #{x\ 136}# #{xr\ 137}#))
+ (if (apply #{f\ 106}#
+ (cons #{x\ 136}# #{xr\ 137}#))
+ (#{andmap\ 129}#
+ #{first\ 138}#
+ #{rest\ 139}#)
#f))))))
- (#{andmap\ 3384}# #{first\ 3362}# #{rest\ 3363}#))))))))
- (letrec ((#{lambda-var-list\ 3616}#
- (lambda (#{vars\ 3831}#)
- (letrec ((#{lvl\ 3837}#
- (lambda (#{vars\ 3838}# #{ls\ 3839}# #{w\ 3840}#)
- (if (pair? #{vars\ 3838}#)
- (#{lvl\ 3837}#
- (cdr #{vars\ 3838}#)
- (cons (#{wrap\ 3570}#
- (car #{vars\ 3838}#)
- #{w\ 3840}#
+ (#{andmap\ 129}# #{first\ 107}# #{rest\ 108}#))))))))
+ (letrec ((#{lambda-var-list\ 361}#
+ (lambda (#{vars\ 576}#)
+ (letrec ((#{lvl\ 582}#
+ (lambda (#{vars\ 583}# #{ls\ 584}# #{w\ 585}#)
+ (if (pair? #{vars\ 583}#)
+ (#{lvl\ 582}#
+ (cdr #{vars\ 583}#)
+ (cons (#{wrap\ 315}#
+ (car #{vars\ 583}#)
+ #{w\ 585}#
#f)
- #{ls\ 3839}#)
- #{w\ 3840}#)
- (if (#{id?\ 3501}# #{vars\ 3838}#)
- (cons (#{wrap\ 3570}#
- #{vars\ 3838}#
- #{w\ 3840}#
+ #{ls\ 584}#)
+ #{w\ 585}#)
+ (if (#{id?\ 246}# #{vars\ 583}#)
+ (cons (#{wrap\ 315}#
+ #{vars\ 583}#
+ #{w\ 585}#
#f)
- #{ls\ 3839}#)
- (if (null? #{vars\ 3838}#)
- #{ls\ 3839}#
- (if (#{syntax-object?\ 3465}# #{vars\ 3838}#)
- (#{lvl\ 3837}#
- (#{syntax-object-expression\ 3467}#
- #{vars\ 3838}#)
- #{ls\ 3839}#
- (#{join-wraps\ 3552}#
- #{w\ 3840}#
- (#{syntax-object-wrap\ 3469}#
- #{vars\ 3838}#)))
- (cons #{vars\ 3838}# #{ls\ 3839}#))))))))
- (#{lvl\ 3837}#
- #{vars\ 3831}#
+ #{ls\ 584}#)
+ (if (null? #{vars\ 583}#)
+ #{ls\ 584}#
+ (if (#{syntax-object?\ 210}# #{vars\ 583}#)
+ (#{lvl\ 582}#
+ (#{syntax-object-expression\ 212}#
+ #{vars\ 583}#)
+ #{ls\ 584}#
+ (#{join-wraps\ 297}#
+ #{w\ 585}#
+ (#{syntax-object-wrap\ 214}#
+ #{vars\ 583}#)))
+ (cons #{vars\ 583}# #{ls\ 584}#))))))))
+ (#{lvl\ 582}#
+ #{vars\ 576}#
'()
'(())))))
- (#{gen-var\ 3614}#
- (lambda (#{id\ 3851}#)
- (let ((#{id\ 3854}#
- (if (#{syntax-object?\ 3465}# #{id\ 3851}#)
- (#{syntax-object-expression\ 3467}# #{id\ 3851}#)
- #{id\ 3851}#)))
+ (#{gen-var\ 359}#
+ (lambda (#{id\ 596}#)
+ (let ((#{id\ 599}#
+ (if (#{syntax-object?\ 210}# #{id\ 596}#)
+ (#{syntax-object-expression\ 212}# #{id\ 596}#)
+ #{id\ 596}#)))
(gensym
- (string-append (symbol->string #{id\ 3854}#) " ")))))
- (#{strip\ 3612}#
- (lambda (#{x\ 3856}# #{w\ 3857}#)
+ (string-append (symbol->string #{id\ 599}#) " ")))))
+ (#{strip\ 357}#
+ (lambda (#{x\ 601}# #{w\ 602}#)
(if (memq 'top
- (#{wrap-marks\ 3508}# #{w\ 3857}#))
- #{x\ 3856}#
- (letrec ((#{f\ 3863}#
- (lambda (#{x\ 3864}#)
- (if (#{syntax-object?\ 3465}# #{x\ 3864}#)
- (#{strip\ 3612}#
- (#{syntax-object-expression\ 3467}#
- #{x\ 3864}#)
- (#{syntax-object-wrap\ 3469}# #{x\ 3864}#))
- (if (pair? #{x\ 3864}#)
- (let ((#{a\ 3871}#
- (#{f\ 3863}# (car #{x\ 3864}#)))
- (#{d\ 3872}#
- (#{f\ 3863}# (cdr #{x\ 3864}#))))
- (if (if (eq? #{a\ 3871}# (car #{x\ 3864}#))
- (eq? #{d\ 3872}# (cdr #{x\ 3864}#))
- #f)
- #{x\ 3864}#
- (cons #{a\ 3871}# #{d\ 3872}#)))
- (if (vector? #{x\ 3864}#)
- (let ((#{old\ 3878}#
- (vector->list #{x\ 3864}#)))
- (let ((#{new\ 3880}#
- (map #{f\ 3863}# #{old\ 3878}#)))
- (if (#{and-map*\ 3299}#
- eq?
- #{old\ 3878}#
- #{new\ 3880}#)
- #{x\ 3864}#
- (list->vector #{new\ 3880}#))))
- #{x\ 3864}#))))))
- (#{f\ 3863}# #{x\ 3856}#)))))
- (#{chi-lambda-case\ 3610}#
- (lambda (#{e\ 3882}#
- #{r\ 3883}#
- #{w\ 3884}#
- #{s\ 3885}#
- #{mod\ 3886}#
- #{get-formals\ 3887}#
- #{clauses\ 3888}#)
- (letrec ((#{expand-body\ 3903}#
- (lambda (#{req\ 3904}#
- #{opt\ 3905}#
- #{rest\ 3906}#
- #{kw\ 3907}#
- #{body\ 3908}#
- #{vars\ 3909}#
- #{r*\ 3910}#
- #{w*\ 3911}#
- #{inits\ 3912}#)
- ((lambda (#{tmp\ 3922}#)
- ((lambda (#{tmp\ 3923}#)
- (if (if #{tmp\ 3923}#
- (apply (lambda (#{docstring\ 3927}#
- #{e1\ 3928}#
- #{e2\ 3929}#)
+ (#{wrap-marks\ 253}# #{w\ 602}#))
+ #{x\ 601}#
+ (letrec ((#{f\ 608}# (lambda (#{x\ 609}#)
+ (if (#{syntax-object?\ 210}#
+ #{x\ 609}#)
+ (#{strip\ 357}#
+ (#{syntax-object-expression\ 212}#
+ #{x\ 609}#)
+ (#{syntax-object-wrap\ 214}#
+ #{x\ 609}#))
+ (if (pair? #{x\ 609}#)
+ (let ((#{a\ 616}# (#{f\ 608}# (car #{x\ 609}#)))
+ (#{d\ 617}# (#{f\ 608}# (cdr #{x\ 609}#))))
+ (if (if (eq? #{a\ 616}#
+ (car #{x\ 609}#))
+ (eq? #{d\ 617}#
+ (cdr #{x\ 609}#))
+ #f)
+ #{x\ 609}#
+ (cons #{a\ 616}# #{d\ 617}#)))
+ (if (vector? #{x\ 609}#)
+ (let ((#{old\ 623}#
+ (vector->list
+ #{x\ 609}#)))
+ (let ((#{new\ 625}#
+ (map #{f\ 608}#
+ #{old\ 623}#)))
+ (if (#{and-map*\ 44}#
+ eq?
+ #{old\ 623}#
+ #{new\ 625}#)
+ #{x\ 609}#
+ (list->vector
+ #{new\ 625}#))))
+ #{x\ 609}#))))))
+ (#{f\ 608}# #{x\ 601}#)))))
+ (#{chi-lambda-case\ 355}#
+ (lambda (#{e\ 627}#
+ #{r\ 628}#
+ #{w\ 629}#
+ #{s\ 630}#
+ #{mod\ 631}#
+ #{get-formals\ 632}#
+ #{clauses\ 633}#)
+ (letrec ((#{expand-body\ 648}#
+ (lambda (#{req\ 649}#
+ #{opt\ 650}#
+ #{rest\ 651}#
+ #{kw\ 652}#
+ #{body\ 653}#
+ #{vars\ 654}#
+ #{r*\ 655}#
+ #{w*\ 656}#
+ #{inits\ 657}#)
+ ((lambda (#{tmp\ 667}#)
+ ((lambda (#{tmp\ 668}#)
+ (if (if #{tmp\ 668}#
+ (apply (lambda (#{docstring\ 672}#
+ #{e1\ 673}#
+ #{e2\ 674}#)
(string?
(syntax->datum
- #{docstring\ 3927}#)))
- #{tmp\ 3923}#)
+ #{docstring\ 672}#)))
+ #{tmp\ 668}#)
#f)
- (apply (lambda (#{docstring\ 3933}#
- #{e1\ 3934}#
- #{e2\ 3935}#)
+ (apply (lambda (#{docstring\ 678}#
+ #{e1\ 679}#
+ #{e2\ 680}#)
(values
(syntax->datum
- #{docstring\ 3933}#)
- #{req\ 3904}#
- #{opt\ 3905}#
- #{rest\ 3906}#
- #{kw\ 3907}#
- #{inits\ 3912}#
- #{vars\ 3909}#
- (#{chi-body\ 3594}#
- (cons #{e1\ 3934}#
- #{e2\ 3935}#)
- (#{source-wrap\ 3572}#
- #{e\ 3882}#
- #{w\ 3884}#
- #{s\ 3885}#
- #{mod\ 3886}#)
- #{r*\ 3910}#
- #{w*\ 3911}#
- #{mod\ 3886}#)))
- #{tmp\ 3923}#)
- ((lambda (#{tmp\ 3937}#)
- (if #{tmp\ 3937}#
- (apply (lambda (#{e1\ 3940}#
- #{e2\ 3941}#)
+ #{docstring\ 678}#)
+ #{req\ 649}#
+ #{opt\ 650}#
+ #{rest\ 651}#
+ #{kw\ 652}#
+ #{inits\ 657}#
+ #{vars\ 654}#
+ (#{chi-body\ 339}#
+ (cons #{e1\ 679}# #{e2\ 680}#)
+ (#{source-wrap\ 317}#
+ #{e\ 627}#
+ #{w\ 629}#
+ #{s\ 630}#
+ #{mod\ 631}#)
+ #{r*\ 655}#
+ #{w*\ 656}#
+ #{mod\ 631}#)))
+ #{tmp\ 668}#)
+ ((lambda (#{tmp\ 682}#)
+ (if #{tmp\ 682}#
+ (apply (lambda (#{e1\ 685}#
+ #{e2\ 686}#)
(values
#f
- #{req\ 3904}#
- #{opt\ 3905}#
- #{rest\ 3906}#
- #{kw\ 3907}#
- #{inits\ 3912}#
- #{vars\ 3909}#
- (#{chi-body\ 3594}#
- (cons #{e1\ 3940}#
- #{e2\ 3941}#)
- (#{source-wrap\ 3572}#
- #{e\ 3882}#
- #{w\ 3884}#
- #{s\ 3885}#
- #{mod\ 3886}#)
- #{r*\ 3910}#
- #{w*\ 3911}#
- #{mod\ 3886}#)))
- #{tmp\ 3937}#)
+ #{req\ 649}#
+ #{opt\ 650}#
+ #{rest\ 651}#
+ #{kw\ 652}#
+ #{inits\ 657}#
+ #{vars\ 654}#
+ (#{chi-body\ 339}#
+ (cons #{e1\ 685}#
+ #{e2\ 686}#)
+ (#{source-wrap\ 317}#
+ #{e\ 627}#
+ #{w\ 629}#
+ #{s\ 630}#
+ #{mod\ 631}#)
+ #{r*\ 655}#
+ #{w*\ 656}#
+ #{mod\ 631}#)))
+ #{tmp\ 682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3922}#)))
+ #{tmp\ 667}#)))
($sc-dispatch
- #{tmp\ 3922}#
+ #{tmp\ 667}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 3922}#
+ #{tmp\ 667}#
'(any any . each-any))))
- #{body\ 3908}#)))
- (#{expand-kw\ 3901}#
- (lambda (#{req\ 3943}#
- #{opt\ 3944}#
- #{rest\ 3945}#
- #{kw\ 3946}#
- #{body\ 3947}#
- #{vars\ 3948}#
- #{r*\ 3949}#
- #{w*\ 3950}#
- #{aok\ 3951}#
- #{out\ 3952}#
- #{inits\ 3953}#)
- (if (pair? #{kw\ 3946}#)
- ((lambda (#{tmp\ 3967}#)
- ((lambda (#{tmp\ 3968}#)
- (if #{tmp\ 3968}#
- (apply (lambda (#{k\ 3972}#
- #{id\ 3973}#
- #{i\ 3974}#)
- (let ((#{v\ 3977}#
- (#{gen-var\ 3614}#
- #{id\ 3973}#)))
- (let ((#{l\ 3979}#
- (#{gen-labels\ 3519}#
- (list #{v\ 3977}#))))
- (let ((#{r**\ 3981}#
- (#{extend-var-env\ 3491}#
- #{l\ 3979}#
- (list #{v\ 3977}#)
- #{r*\ 3949}#)))
- (let ((#{w**\ 3983}#
- (#{make-binding-wrap\ 3548}#
- (list #{id\ 3973}#)
- #{l\ 3979}#
- #{w*\ 3950}#)))
- (#{expand-kw\ 3901}#
- #{req\ 3943}#
- #{opt\ 3944}#
- #{rest\ 3945}#
- (cdr #{kw\ 3946}#)
- #{body\ 3947}#
- (cons #{v\ 3977}#
- #{vars\ 3948}#)
- #{r**\ 3981}#
- #{w**\ 3983}#
- #{aok\ 3951}#
+ #{body\ 653}#)))
+ (#{expand-kw\ 646}#
+ (lambda (#{req\ 688}#
+ #{opt\ 689}#
+ #{rest\ 690}#
+ #{kw\ 691}#
+ #{body\ 692}#
+ #{vars\ 693}#
+ #{r*\ 694}#
+ #{w*\ 695}#
+ #{aok\ 696}#
+ #{out\ 697}#
+ #{inits\ 698}#)
+ (if (pair? #{kw\ 691}#)
+ ((lambda (#{tmp\ 712}#)
+ ((lambda (#{tmp\ 713}#)
+ (if #{tmp\ 713}#
+ (apply (lambda (#{k\ 717}#
+ #{id\ 718}#
+ #{i\ 719}#)
+ (let ((#{v\ 722}# (#{gen-var\ 359}#
+ #{id\ 718}#)))
+ (let ((#{l\ 724}# (#{gen-labels\ 264}#
+ (list #{v\ 722}#))))
+ (let ((#{r**\ 726}#
+ (#{extend-var-env\ 236}#
+ #{l\ 724}#
+ (list #{v\ 722}#)
+ #{r*\ 694}#)))
+ (let ((#{w**\ 728}#
+ (#{make-binding-wrap\ 293}#
+ (list #{id\ 718}#)
+ #{l\ 724}#
+ #{w*\ 695}#)))
+ (#{expand-kw\ 646}#
+ #{req\ 688}#
+ #{opt\ 689}#
+ #{rest\ 690}#
+ (cdr #{kw\ 691}#)
+ #{body\ 692}#
+ (cons #{v\ 722}#
+ #{vars\ 693}#)
+ #{r**\ 726}#
+ #{w**\ 728}#
+ #{aok\ 696}#
(cons (list (syntax->datum
- #{k\ 3972}#)
+ #{k\ 717}#)
(syntax->datum
- #{id\ 3973}#)
- #{v\ 3977}#)
- #{out\ 3952}#)
- (cons (#{chi\ 3586}#
- #{i\ 3974}#
- #{r*\ 3949}#
- #{w*\ 3950}#
- #{mod\ 3886}#)
- #{inits\ 3953}#)))))))
- #{tmp\ 3968}#)
+ #{id\ 718}#)
+ #{v\ 722}#)
+ #{out\ 697}#)
+ (cons (#{chi\ 331}#
+ #{i\ 719}#
+ #{r*\ 694}#
+ #{w*\ 695}#
+ #{mod\ 631}#)
+ #{inits\ 698}#)))))))
+ #{tmp\ 713}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3967}#)))
+ #{tmp\ 712}#)))
($sc-dispatch
- #{tmp\ 3967}#
+ #{tmp\ 712}#
'(any any any))))
- (car #{kw\ 3946}#))
- (#{expand-body\ 3903}#
- #{req\ 3943}#
- #{opt\ 3944}#
- #{rest\ 3945}#
- (if (let ((#{t\ 3987}# #{aok\ 3951}#))
- (if #{t\ 3987}#
- #{t\ 3987}#
- (pair? #{out\ 3952}#)))
- (cons #{aok\ 3951}# (reverse #{out\ 3952}#))
+ (car #{kw\ 691}#))
+ (#{expand-body\ 648}#
+ #{req\ 688}#
+ #{opt\ 689}#
+ #{rest\ 690}#
+ (if (let ((#{t\ 732}# #{aok\ 696}#))
+ (if #{t\ 732}#
+ #{t\ 732}#
+ (pair? #{out\ 697}#)))
+ (cons #{aok\ 696}# (reverse #{out\ 697}#))
#f)
- #{body\ 3947}#
- (reverse #{vars\ 3948}#)
- #{r*\ 3949}#
- #{w*\ 3950}#
- (reverse #{inits\ 3953}#)))))
- (#{expand-opt\ 3899}#
- (lambda (#{req\ 3989}#
- #{opt\ 3990}#
- #{rest\ 3991}#
- #{kw\ 3992}#
- #{body\ 3993}#
- #{vars\ 3994}#
- #{r*\ 3995}#
- #{w*\ 3996}#
- #{out\ 3997}#
- #{inits\ 3998}#)
- (if (pair? #{opt\ 3990}#)
- ((lambda (#{tmp\ 4011}#)
- ((lambda (#{tmp\ 4012}#)
- (if #{tmp\ 4012}#
- (apply (lambda (#{id\ 4015}# #{i\ 4016}#)
- (let ((#{v\ 4019}#
- (#{gen-var\ 3614}#
- #{id\ 4015}#)))
- (let ((#{l\ 4021}#
- (#{gen-labels\ 3519}#
- (list #{v\ 4019}#))))
- (let ((#{r**\ 4023}#
- (#{extend-var-env\ 3491}#
- #{l\ 4021}#
- (list #{v\ 4019}#)
- #{r*\ 3995}#)))
- (let ((#{w**\ 4025}#
- (#{make-binding-wrap\ 3548}#
- (list #{id\ 4015}#)
- #{l\ 4021}#
- #{w*\ 3996}#)))
- (#{expand-opt\ 3899}#
- #{req\ 3989}#
- (cdr #{opt\ 3990}#)
- #{rest\ 3991}#
- #{kw\ 3992}#
- #{body\ 3993}#
- (cons #{v\ 4019}#
- #{vars\ 3994}#)
- #{r**\ 4023}#
- #{w**\ 4025}#
+ #{body\ 692}#
+ (reverse #{vars\ 693}#)
+ #{r*\ 694}#
+ #{w*\ 695}#
+ (reverse #{inits\ 698}#)))))
+ (#{expand-opt\ 644}#
+ (lambda (#{req\ 734}#
+ #{opt\ 735}#
+ #{rest\ 736}#
+ #{kw\ 737}#
+ #{body\ 738}#
+ #{vars\ 739}#
+ #{r*\ 740}#
+ #{w*\ 741}#
+ #{out\ 742}#
+ #{inits\ 743}#)
+ (if (pair? #{opt\ 735}#)
+ ((lambda (#{tmp\ 756}#)
+ ((lambda (#{tmp\ 757}#)
+ (if #{tmp\ 757}#
+ (apply (lambda (#{id\ 760}# #{i\ 761}#)
+ (let ((#{v\ 764}# (#{gen-var\ 359}#
+ #{id\ 760}#)))
+ (let ((#{l\ 766}# (#{gen-labels\ 264}#
+ (list #{v\ 764}#))))
+ (let ((#{r**\ 768}#
+ (#{extend-var-env\ 236}#
+ #{l\ 766}#
+ (list #{v\ 764}#)
+ #{r*\ 740}#)))
+ (let ((#{w**\ 770}#
+ (#{make-binding-wrap\ 293}#
+ (list #{id\ 760}#)
+ #{l\ 766}#
+ #{w*\ 741}#)))
+ (#{expand-opt\ 644}#
+ #{req\ 734}#
+ (cdr #{opt\ 735}#)
+ #{rest\ 736}#
+ #{kw\ 737}#
+ #{body\ 738}#
+ (cons #{v\ 764}#
+ #{vars\ 739}#)
+ #{r**\ 768}#
+ #{w**\ 770}#
(cons (syntax->datum
- #{id\ 4015}#)
- #{out\ 3997}#)
- (cons (#{chi\ 3586}#
- #{i\ 4016}#
- #{r*\ 3995}#
- #{w*\ 3996}#
- #{mod\ 3886}#)
- #{inits\ 3998}#)))))))
- #{tmp\ 4012}#)
+ #{id\ 760}#)
+ #{out\ 742}#)
+ (cons (#{chi\ 331}#
+ #{i\ 761}#
+ #{r*\ 740}#
+ #{w*\ 741}#
+ #{mod\ 631}#)
+ #{inits\ 743}#)))))))
+ #{tmp\ 757}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4011}#)))
+ #{tmp\ 756}#)))
($sc-dispatch
- #{tmp\ 4011}#
+ #{tmp\ 756}#
'(any any))))
- (car #{opt\ 3990}#))
- (if #{rest\ 3991}#
- (let ((#{v\ 4030}#
- (#{gen-var\ 3614}# #{rest\ 3991}#)))
- (let ((#{l\ 4032}#
- (#{gen-labels\ 3519}#
- (list #{v\ 4030}#))))
- (let ((#{r*\ 4034}#
- (#{extend-var-env\ 3491}#
- #{l\ 4032}#
- (list #{v\ 4030}#)
- #{r*\ 3995}#)))
- (let ((#{w*\ 4036}#
- (#{make-binding-wrap\ 3548}#
- (list #{rest\ 3991}#)
- #{l\ 4032}#
- #{w*\ 3996}#)))
- (#{expand-kw\ 3901}#
- #{req\ 3989}#
- (if (pair? #{out\ 3997}#)
- (reverse #{out\ 3997}#)
+ (car #{opt\ 735}#))
+ (if #{rest\ 736}#
+ (let ((#{v\ 775}# (#{gen-var\ 359}#
+ #{rest\ 736}#)))
+ (let ((#{l\ 777}# (#{gen-labels\ 264}#
+ (list #{v\ 775}#))))
+ (let ((#{r*\ 779}#
+ (#{extend-var-env\ 236}#
+ #{l\ 777}#
+ (list #{v\ 775}#)
+ #{r*\ 740}#)))
+ (let ((#{w*\ 781}#
+ (#{make-binding-wrap\ 293}#
+ (list #{rest\ 736}#)
+ #{l\ 777}#
+ #{w*\ 741}#)))
+ (#{expand-kw\ 646}#
+ #{req\ 734}#
+ (if (pair? #{out\ 742}#)
+ (reverse #{out\ 742}#)
#f)
- (syntax->datum #{rest\ 3991}#)
- (if (pair? #{kw\ 3992}#)
- (cdr #{kw\ 3992}#)
- #{kw\ 3992}#)
- #{body\ 3993}#
- (cons #{v\ 4030}# #{vars\ 3994}#)
- #{r*\ 4034}#
- #{w*\ 4036}#
- (if (pair? #{kw\ 3992}#)
- (car #{kw\ 3992}#)
+ (syntax->datum #{rest\ 736}#)
+ (if (pair? #{kw\ 737}#)
+ (cdr #{kw\ 737}#)
+ #{kw\ 737}#)
+ #{body\ 738}#
+ (cons #{v\ 775}# #{vars\ 739}#)
+ #{r*\ 779}#
+ #{w*\ 781}#
+ (if (pair? #{kw\ 737}#)
+ (car #{kw\ 737}#)
#f)
'()
- #{inits\ 3998}#)))))
- (#{expand-kw\ 3901}#
- #{req\ 3989}#
- (if (pair? #{out\ 3997}#)
- (reverse #{out\ 3997}#)
+ #{inits\ 743}#)))))
+ (#{expand-kw\ 646}#
+ #{req\ 734}#
+ (if (pair? #{out\ 742}#)
+ (reverse #{out\ 742}#)
#f)
#f
- (if (pair? #{kw\ 3992}#)
- (cdr #{kw\ 3992}#)
- #{kw\ 3992}#)
- #{body\ 3993}#
- #{vars\ 3994}#
- #{r*\ 3995}#
- #{w*\ 3996}#
- (if (pair? #{kw\ 3992}#)
- (car #{kw\ 3992}#)
- #f)
+ (if (pair? #{kw\ 737}#)
+ (cdr #{kw\ 737}#)
+ #{kw\ 737}#)
+ #{body\ 738}#
+ #{vars\ 739}#
+ #{r*\ 740}#
+ #{w*\ 741}#
+ (if (pair? #{kw\ 737}#) (car #{kw\ 737}#) #f)
'()
- #{inits\ 3998}#)))))
- (#{expand-req\ 3897}#
- (lambda (#{req\ 4038}#
- #{opt\ 4039}#
- #{rest\ 4040}#
- #{kw\ 4041}#
- #{body\ 4042}#)
- (let ((#{vars\ 4050}#
- (map #{gen-var\ 3614}# #{req\ 4038}#))
- (#{labels\ 4051}#
- (#{gen-labels\ 3519}# #{req\ 4038}#)))
- (let ((#{r*\ 4054}#
- (#{extend-var-env\ 3491}#
- #{labels\ 4051}#
- #{vars\ 4050}#
- #{r\ 3883}#))
- (#{w*\ 4055}#
- (#{make-binding-wrap\ 3548}#
- #{req\ 4038}#
- #{labels\ 4051}#
- #{w\ 3884}#)))
- (#{expand-opt\ 3899}#
- (map syntax->datum #{req\ 4038}#)
- #{opt\ 4039}#
- #{rest\ 4040}#
- #{kw\ 4041}#
- #{body\ 4042}#
- (reverse #{vars\ 4050}#)
- #{r*\ 4054}#
- #{w*\ 4055}#
+ #{inits\ 743}#)))))
+ (#{expand-req\ 642}#
+ (lambda (#{req\ 783}#
+ #{opt\ 784}#
+ #{rest\ 785}#
+ #{kw\ 786}#
+ #{body\ 787}#)
+ (let ((#{vars\ 795}#
+ (map #{gen-var\ 359}# #{req\ 783}#))
+ (#{labels\ 796}#
+ (#{gen-labels\ 264}# #{req\ 783}#)))
+ (let ((#{r*\ 799}#
+ (#{extend-var-env\ 236}#
+ #{labels\ 796}#
+ #{vars\ 795}#
+ #{r\ 628}#))
+ (#{w*\ 800}#
+ (#{make-binding-wrap\ 293}#
+ #{req\ 783}#
+ #{labels\ 796}#
+ #{w\ 629}#)))
+ (#{expand-opt\ 644}#
+ (map syntax->datum #{req\ 783}#)
+ #{opt\ 784}#
+ #{rest\ 785}#
+ #{kw\ 786}#
+ #{body\ 787}#
+ (reverse #{vars\ 795}#)
+ #{r*\ 799}#
+ #{w*\ 800}#
'()
'()))))))
- ((lambda (#{tmp\ 4056}#)
- ((lambda (#{tmp\ 4057}#)
- (if #{tmp\ 4057}#
- (apply (lambda () (values #f #f)) #{tmp\ 4057}#)
- ((lambda (#{tmp\ 4058}#)
- (if #{tmp\ 4058}#
- (apply (lambda (#{args\ 4065}#
- #{e1\ 4066}#
- #{e2\ 4067}#
- #{args*\ 4068}#
- #{e1*\ 4069}#
- #{e2*\ 4070}#)
+ ((lambda (#{tmp\ 801}#)
+ ((lambda (#{tmp\ 802}#)
+ (if #{tmp\ 802}#
+ (apply (lambda () (values #f #f)) #{tmp\ 802}#)
+ ((lambda (#{tmp\ 803}#)
+ (if #{tmp\ 803}#
+ (apply (lambda (#{args\ 810}#
+ #{e1\ 811}#
+ #{e2\ 812}#
+ #{args*\ 813}#
+ #{e1*\ 814}#
+ #{e2*\ 815}#)
(call-with-values
(lambda ()
- (#{get-formals\ 3887}#
- #{args\ 4065}#))
- (lambda (#{req\ 4071}#
- #{opt\ 4072}#
- #{rest\ 4073}#
- #{kw\ 4074}#)
+ (#{get-formals\ 632}#
+ #{args\ 810}#))
+ (lambda (#{req\ 816}#
+ #{opt\ 817}#
+ #{rest\ 818}#
+ #{kw\ 819}#)
(call-with-values
(lambda ()
- (#{expand-req\ 3897}#
- #{req\ 4071}#
- #{opt\ 4072}#
- #{rest\ 4073}#
- #{kw\ 4074}#
- (cons #{e1\ 4066}#
- #{e2\ 4067}#)))
- (lambda (#{docstring\ 4080}#
- #{req\ 4081}#
- #{opt\ 4082}#
- #{rest\ 4083}#
- #{kw\ 4084}#
- #{inits\ 4085}#
- #{vars\ 4086}#
- #{body\ 4087}#)
+ (#{expand-req\ 642}#
+ #{req\ 816}#
+ #{opt\ 817}#
+ #{rest\ 818}#
+ #{kw\ 819}#
+ (cons #{e1\ 811}#
+ #{e2\ 812}#)))
+ (lambda (#{docstring\ 825}#
+ #{req\ 826}#
+ #{opt\ 827}#
+ #{rest\ 828}#
+ #{kw\ 829}#
+ #{inits\ 830}#
+ #{vars\ 831}#
+ #{body\ 832}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3610}#
- #{e\ 3882}#
- #{r\ 3883}#
- #{w\ 3884}#
- #{s\ 3885}#
- #{mod\ 3886}#
- #{get-formals\ 3887}#
- (map (lambda (#{tmp\ 4098}#
- #{tmp\ 4097}#
- #{tmp\ 4096}#)
- (cons #{tmp\ 4096}#
- (cons #{tmp\ 4097}#
- #{tmp\ 4098}#)))
- #{e2*\ 4070}#
- #{e1*\ 4069}#
- #{args*\ 4068}#)))
- (lambda (#{docstring*\ 4100}#
- #{else*\ 4101}#)
+ (#{chi-lambda-case\ 355}#
+ #{e\ 627}#
+ #{r\ 628}#
+ #{w\ 629}#
+ #{s\ 630}#
+ #{mod\ 631}#
+ #{get-formals\ 632}#
+ (map (lambda (#{tmp\ 843}#
+ #{tmp\ 842}#
+ #{tmp\ 841}#)
+ (cons #{tmp\ 841}#
+ (cons #{tmp\ 842}#
+ #{tmp\ 843}#)))
+ #{e2*\ 815}#
+ #{e1*\ 814}#
+ #{args*\ 813}#)))
+ (lambda (#{docstring*\ 845}#
+ #{else*\ 846}#)
(values
- (let ((#{t\ 4106}#
- #{docstring\ 4080}#))
- (if #{t\ 4106}#
- #{t\ 4106}#
- #{docstring*\ 4100}#))
- (#{build-lambda-case\ 3447}#
- #{s\ 3885}#
- #{req\ 4081}#
- #{opt\ 4082}#
- #{rest\ 4083}#
- #{kw\ 4084}#
- #{inits\ 4085}#
- #{vars\ 4086}#
- #{body\ 4087}#
- #{else*\ 4101}#)))))))))
- #{tmp\ 4058}#)
+ (let ((#{t\ 851}# #{docstring\ 825}#))
+ (if #{t\ 851}#
+ #{t\ 851}#
+ #{docstring*\ 845}#))
+ (#{build-lambda-case\ 192}#
+ #{s\ 630}#
+ #{req\ 826}#
+ #{opt\ 827}#
+ #{rest\ 828}#
+ #{kw\ 829}#
+ #{inits\ 830}#
+ #{vars\ 831}#
+ #{body\ 832}#
+ #{else*\ 846}#)))))))))
+ #{tmp\ 803}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4056}#)))
+ #{tmp\ 801}#)))
($sc-dispatch
- #{tmp\ 4056}#
+ #{tmp\ 801}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 4056}# (quote ()))))
- #{clauses\ 3888}#))))
- (#{lambda*-formals\ 3608}#
- (lambda (#{orig-args\ 4108}#)
- (letrec ((#{check\ 4119}#
- (lambda (#{req\ 4120}#
- #{opt\ 4121}#
- #{rest\ 4122}#
- #{kw\ 4123}#)
- (if (#{distinct-bound-ids?\ 3566}#
+ ($sc-dispatch #{tmp\ 801}# (quote ()))))
+ #{clauses\ 633}#))))
+ (#{lambda*-formals\ 353}#
+ (lambda (#{orig-args\ 853}#)
+ (letrec ((#{check\ 864}#
+ (lambda (#{req\ 865}#
+ #{opt\ 866}#
+ #{rest\ 867}#
+ #{kw\ 868}#)
+ (if (#{distinct-bound-ids?\ 311}#
(append
- #{req\ 4120}#
- (map car #{opt\ 4121}#)
- (if #{rest\ 4122}#
- (list #{rest\ 4122}#)
+ #{req\ 865}#
+ (map car #{opt\ 866}#)
+ (if #{rest\ 867}#
+ (list #{rest\ 867}#)
'())
- (if (pair? #{kw\ 4123}#)
- (map cadr (cdr #{kw\ 4123}#))
+ (if (pair? #{kw\ 868}#)
+ (map cadr (cdr #{kw\ 868}#))
'())))
(values
- #{req\ 4120}#
- #{opt\ 4121}#
- #{rest\ 4122}#
- #{kw\ 4123}#)
+ #{req\ 865}#
+ #{opt\ 866}#
+ #{rest\ 867}#
+ #{kw\ 868}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 4108}#))))
- (#{rest\ 4117}#
- (lambda (#{args\ 4131}#
- #{req\ 4132}#
- #{opt\ 4133}#
- #{kw\ 4134}#)
- ((lambda (#{tmp\ 4139}#)
- ((lambda (#{tmp\ 4140}#)
- (if (if #{tmp\ 4140}#
- (apply (lambda (#{r\ 4142}#)
- (#{id?\ 3501}# #{r\ 4142}#))
- #{tmp\ 4140}#)
+ #{orig-args\ 853}#))))
+ (#{rest\ 862}#
+ (lambda (#{args\ 876}#
+ #{req\ 877}#
+ #{opt\ 878}#
+ #{kw\ 879}#)
+ ((lambda (#{tmp\ 884}#)
+ ((lambda (#{tmp\ 885}#)
+ (if (if #{tmp\ 885}#
+ (apply (lambda (#{r\ 887}#)
+ (#{id?\ 246}# #{r\ 887}#))
+ #{tmp\ 885}#)
#f)
- (apply (lambda (#{r\ 4144}#)
- (#{check\ 4119}#
- #{req\ 4132}#
- #{opt\ 4133}#
- #{r\ 4144}#
- #{kw\ 4134}#))
- #{tmp\ 4140}#)
- ((lambda (#{else\ 4146}#)
+ (apply (lambda (#{r\ 889}#)
+ (#{check\ 864}#
+ #{req\ 877}#
+ #{opt\ 878}#
+ #{r\ 889}#
+ #{kw\ 879}#))
+ #{tmp\ 885}#)
+ ((lambda (#{else\ 891}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 4108}#
- #{args\ 4131}#))
- #{tmp\ 4139}#)))
- (list #{tmp\ 4139}#)))
- #{args\ 4131}#)))
- (#{key\ 4115}#
- (lambda (#{args\ 4147}#
- #{req\ 4148}#
- #{opt\ 4149}#
- #{rkey\ 4150}#)
- ((lambda (#{tmp\ 4155}#)
- ((lambda (#{tmp\ 4156}#)
- (if #{tmp\ 4156}#
+ #{orig-args\ 853}#
+ #{args\ 876}#))
+ #{tmp\ 884}#)))
+ (list #{tmp\ 884}#)))
+ #{args\ 876}#)))
+ (#{key\ 860}#
+ (lambda (#{args\ 892}#
+ #{req\ 893}#
+ #{opt\ 894}#
+ #{rkey\ 895}#)
+ ((lambda (#{tmp\ 900}#)
+ ((lambda (#{tmp\ 901}#)
+ (if #{tmp\ 901}#
(apply (lambda ()
- (#{check\ 4119}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (#{check\ 864}#
+ #{req\ 893}#
+ #{opt\ 894}#
#f
(cons #f
- (reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4156}#)
- ((lambda (#{tmp\ 4157}#)
- (if (if #{tmp\ 4157}#
- (apply (lambda (#{a\ 4160}#
- #{b\ 4161}#)
- (#{id?\ 3501}#
- #{a\ 4160}#))
- #{tmp\ 4157}#)
+ (reverse #{rkey\ 895}#))))
+ #{tmp\ 901}#)
+ ((lambda (#{tmp\ 902}#)
+ (if (if #{tmp\ 902}#
+ (apply (lambda (#{a\ 905}#
+ #{b\ 906}#)
+ (#{id?\ 246}#
+ #{a\ 905}#))
+ #{tmp\ 902}#)
#f)
- (apply (lambda (#{a\ 4164}#
- #{b\ 4165}#)
- ((lambda (#{tmp\ 4167}#)
- ((lambda (#{k\ 4169}#)
- (#{key\ 4115}#
- #{b\ 4165}#
- #{req\ 4148}#
- #{opt\ 4149}#
- (cons (cons #{k\ 4169}#
- (cons #{a\ 4164}#
+ (apply (lambda (#{a\ 909}# #{b\ 910}#)
+ ((lambda (#{tmp\ 912}#)
+ ((lambda (#{k\ 914}#)
+ (#{key\ 860}#
+ #{b\ 910}#
+ #{req\ 893}#
+ #{opt\ 894}#
+ (cons (cons #{k\ 914}#
+ (cons #{a\ 909}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i4168"))
+ #("i913"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i4162"
- "i4163"))
+ #("i907"
+ "i908"))
#(ribcage
()
()
@@ -626,10 +618,10 @@
(top)
(top)
(top))
- #("i4151"
- "i4152"
- "i4153"
- "i4154"))
+ #("i896"
+ "i897"
+ "i898"
+ "i899"))
#(ribcage
(check rest
key
@@ -640,15 +632,15 @@
(top)
(top)
(top))
- ("i4118"
- "i4116"
- "i4114"
- "i4112"
- "i4110"))
+ ("i863"
+ "i861"
+ "i859"
+ "i857"
+ "i855"))
#(ribcage
#(orig-args)
#((top))
- #("i4109"))
+ #("i854"))
#(ribcage
(lambda-var-list
gen-var
@@ -886,350 +878,350 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile)))))
- #{rkey\ 4150}#)))
- #{tmp\ 4167}#))
+ #{rkey\ 895}#)))
+ #{tmp\ 912}#))
(symbol->keyword
(syntax->datum
- #{a\ 4164}#))))
- #{tmp\ 4157}#)
- ((lambda (#{tmp\ 4170}#)
- (if (if #{tmp\ 4170}#
- (apply (lambda (#{a\ 4174}#
- #{init\ 4175}#
- #{b\ 4176}#)
- (#{id?\ 3501}#
- #{a\ 4174}#))
- #{tmp\ 4170}#)
+ #{a\ 909}#))))
+ #{tmp\ 902}#)
+ ((lambda (#{tmp\ 915}#)
+ (if (if #{tmp\ 915}#
+ (apply (lambda (#{a\ 919}#
+ #{init\ 920}#
+ #{b\ 921}#)
+ (#{id?\ 246}#
+ #{a\ 919}#))
+ #{tmp\ 915}#)
#f)
- (apply (lambda (#{a\ 4180}#
- #{init\ 4181}#
- #{b\ 4182}#)
- ((lambda (#{tmp\ 4184}#)
- ((lambda (#{k\ 4186}#)
- (#{key\ 4115}#
- #{b\ 4182}#
- #{req\ 4148}#
- #{opt\ 4149}#
- (cons (list #{k\ 4186}#
- #{a\ 4180}#
- #{init\ 4181}#)
- #{rkey\ 4150}#)))
- #{tmp\ 4184}#))
+ (apply (lambda (#{a\ 925}#
+ #{init\ 926}#
+ #{b\ 927}#)
+ ((lambda (#{tmp\ 929}#)
+ ((lambda (#{k\ 931}#)
+ (#{key\ 860}#
+ #{b\ 927}#
+ #{req\ 893}#
+ #{opt\ 894}#
+ (cons (list #{k\ 931}#
+ #{a\ 925}#
+ #{init\ 926}#)
+ #{rkey\ 895}#)))
+ #{tmp\ 929}#))
(symbol->keyword
(syntax->datum
- #{a\ 4180}#))))
- #{tmp\ 4170}#)
- ((lambda (#{tmp\ 4187}#)
- (if (if #{tmp\ 4187}#
- (apply (lambda (#{a\ 4192}#
- #{init\ 4193}#
- #{k\ 4194}#
- #{b\ 4195}#)
- (if (#{id?\ 3501}#
- #{a\ 4192}#)
+ #{a\ 925}#))))
+ #{tmp\ 915}#)
+ ((lambda (#{tmp\ 932}#)
+ (if (if #{tmp\ 932}#
+ (apply (lambda (#{a\ 937}#
+ #{init\ 938}#
+ #{k\ 939}#
+ #{b\ 940}#)
+ (if (#{id?\ 246}#
+ #{a\ 937}#)
(keyword?
(syntax->datum
- #{k\ 4194}#))
+ #{k\ 939}#))
#f))
- #{tmp\ 4187}#)
+ #{tmp\ 932}#)
#f)
- (apply (lambda (#{a\ 4202}#
- #{init\ 4203}#
- #{k\ 4204}#
- #{b\ 4205}#)
- (#{key\ 4115}#
- #{b\ 4205}#
- #{req\ 4148}#
- #{opt\ 4149}#
- (cons (list #{k\ 4204}#
- #{a\ 4202}#
- #{init\ 4203}#)
- #{rkey\ 4150}#)))
- #{tmp\ 4187}#)
- ((lambda (#{tmp\ 4206}#)
- (if (if #{tmp\ 4206}#
- (apply (lambda (#{aok\ 4208}#)
+ (apply (lambda (#{a\ 947}#
+ #{init\ 948}#
+ #{k\ 949}#
+ #{b\ 950}#)
+ (#{key\ 860}#
+ #{b\ 950}#
+ #{req\ 893}#
+ #{opt\ 894}#
+ (cons (list #{k\ 949}#
+ #{a\ 947}#
+ #{init\ 948}#)
+ #{rkey\ 895}#)))
+ #{tmp\ 932}#)
+ ((lambda (#{tmp\ 951}#)
+ (if (if #{tmp\ 951}#
+ (apply (lambda (#{aok\ 953}#)
(eq? (syntax->datum
- #{aok\ 4208}#)
+ #{aok\ 953}#)
#:allow-other-keys))
- #{tmp\ 4206}#)
+ #{tmp\ 951}#)
#f)
- (apply (lambda (#{aok\ 4210}#)
- (#{check\ 4119}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (apply (lambda (#{aok\ 955}#)
+ (#{check\ 864}#
+ #{req\ 893}#
+ #{opt\ 894}#
#f
(cons #t
(reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4206}#)
- ((lambda (#{tmp\ 4211}#)
- (if (if #{tmp\ 4211}#
- (apply (lambda (#{aok\ 4215}#
- #{a\ 4216}#
- #{b\ 4217}#)
+ #{rkey\ 895}#))))
+ #{tmp\ 951}#)
+ ((lambda (#{tmp\ 956}#)
+ (if (if #{tmp\ 956}#
+ (apply (lambda (#{aok\ 960}#
+ #{a\ 961}#
+ #{b\ 962}#)
(if (eq? (syntax->datum
- #{aok\ 4215}#)
+ #{aok\ 960}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 4216}#)
+ #{a\ 961}#)
#:rest)
#f))
- #{tmp\ 4211}#)
+ #{tmp\ 956}#)
#f)
- (apply (lambda (#{aok\ 4223}#
- #{a\ 4224}#
- #{b\ 4225}#)
- (#{rest\ 4117}#
- #{b\ 4225}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (apply (lambda (#{aok\ 968}#
+ #{a\ 969}#
+ #{b\ 970}#)
+ (#{rest\ 862}#
+ #{b\ 970}#
+ #{req\ 893}#
+ #{opt\ 894}#
(cons #t
(reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4211}#)
- ((lambda (#{tmp\ 4226}#)
- (if (if #{tmp\ 4226}#
- (apply (lambda (#{aok\ 4229}#
- #{r\ 4230}#)
+ #{rkey\ 895}#))))
+ #{tmp\ 956}#)
+ ((lambda (#{tmp\ 971}#)
+ (if (if #{tmp\ 971}#
+ (apply (lambda (#{aok\ 974}#
+ #{r\ 975}#)
(if (eq? (syntax->datum
- #{aok\ 4229}#)
+ #{aok\ 974}#)
#:allow-other-keys)
- (#{id?\ 3501}#
- #{r\ 4230}#)
+ (#{id?\ 246}#
+ #{r\ 975}#)
#f))
- #{tmp\ 4226}#)
+ #{tmp\ 971}#)
#f)
- (apply (lambda (#{aok\ 4235}#
- #{r\ 4236}#)
- (#{rest\ 4117}#
- #{r\ 4236}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (apply (lambda (#{aok\ 980}#
+ #{r\ 981}#)
+ (#{rest\ 862}#
+ #{r\ 981}#
+ #{req\ 893}#
+ #{opt\ 894}#
(cons #t
(reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4226}#)
- ((lambda (#{tmp\ 4237}#)
- (if (if #{tmp\ 4237}#
- (apply (lambda (#{a\ 4240}#
- #{b\ 4241}#)
+ #{rkey\ 895}#))))
+ #{tmp\ 971}#)
+ ((lambda (#{tmp\ 982}#)
+ (if (if #{tmp\ 982}#
+ (apply (lambda (#{a\ 985}#
+ #{b\ 986}#)
(eq? (syntax->datum
- #{a\ 4240}#)
+ #{a\ 985}#)
#:rest))
- #{tmp\ 4237}#)
+ #{tmp\ 982}#)
#f)
- (apply (lambda (#{a\ 4244}#
- #{b\ 4245}#)
- (#{rest\ 4117}#
- #{b\ 4245}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (apply (lambda (#{a\ 989}#
+ #{b\ 990}#)
+ (#{rest\ 862}#
+ #{b\ 990}#
+ #{req\ 893}#
+ #{opt\ 894}#
(cons #f
(reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4237}#)
- ((lambda (#{tmp\ 4246}#)
- (if (if #{tmp\ 4246}#
- (apply (lambda (#{r\ 4248}#)
- (#{id?\ 3501}#
- #{r\ 4248}#))
- #{tmp\ 4246}#)
+ #{rkey\ 895}#))))
+ #{tmp\ 982}#)
+ ((lambda (#{tmp\ 991}#)
+ (if (if #{tmp\ 991}#
+ (apply (lambda (#{r\ 993}#)
+ (#{id?\ 246}#
+ #{r\ 993}#))
+ #{tmp\ 991}#)
#f)
- (apply (lambda (#{r\ 4250}#)
- (#{rest\ 4117}#
- #{r\ 4250}#
- #{req\ 4148}#
- #{opt\ 4149}#
+ (apply (lambda (#{r\ 995}#)
+ (#{rest\ 862}#
+ #{r\ 995}#
+ #{req\ 893}#
+ #{opt\ 894}#
(cons #f
(reverse
- #{rkey\ 4150}#))))
- #{tmp\ 4246}#)
- ((lambda (#{else\ 4252}#)
+ #{rkey\ 895}#))))
+ #{tmp\ 991}#)
+ ((lambda (#{else\ 997}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 4108}#
- #{args\ 4147}#))
- #{tmp\ 4155}#)))
- (list #{tmp\ 4155}#))))
+ #{orig-args\ 853}#
+ #{args\ 892}#))
+ #{tmp\ 900}#)))
+ (list #{tmp\ 900}#))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'(any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 4155}#
+ #{tmp\ 900}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4155}# (quote ()))))
- #{args\ 4147}#)))
- (#{opt\ 4113}#
- (lambda (#{args\ 4253}# #{req\ 4254}# #{ropt\ 4255}#)
- ((lambda (#{tmp\ 4259}#)
- ((lambda (#{tmp\ 4260}#)
- (if #{tmp\ 4260}#
+ ($sc-dispatch #{tmp\ 900}# (quote ()))))
+ #{args\ 892}#)))
+ (#{opt\ 858}#
+ (lambda (#{args\ 998}# #{req\ 999}# #{ropt\ 1000}#)
+ ((lambda (#{tmp\ 1004}#)
+ ((lambda (#{tmp\ 1005}#)
+ (if #{tmp\ 1005}#
(apply (lambda ()
- (#{check\ 4119}#
- #{req\ 4254}#
- (reverse #{ropt\ 4255}#)
+ (#{check\ 864}#
+ #{req\ 999}#
+ (reverse #{ropt\ 1000}#)
#f
'()))
- #{tmp\ 4260}#)
- ((lambda (#{tmp\ 4261}#)
- (if (if #{tmp\ 4261}#
- (apply (lambda (#{a\ 4264}#
- #{b\ 4265}#)
- (#{id?\ 3501}#
- #{a\ 4264}#))
- #{tmp\ 4261}#)
+ #{tmp\ 1005}#)
+ ((lambda (#{tmp\ 1006}#)
+ (if (if #{tmp\ 1006}#
+ (apply (lambda (#{a\ 1009}#
+ #{b\ 1010}#)
+ (#{id?\ 246}#
+ #{a\ 1009}#))
+ #{tmp\ 1006}#)
#f)
- (apply (lambda (#{a\ 4268}#
- #{b\ 4269}#)
- (#{opt\ 4113}#
- #{b\ 4269}#
- #{req\ 4254}#
- (cons (cons #{a\ 4268}#
+ (apply (lambda (#{a\ 1013}#
+ #{b\ 1014}#)
+ (#{opt\ 858}#
+ #{b\ 1014}#
+ #{req\ 999}#
+ (cons (cons #{a\ 1013}#
'(#(syntax-object
#f
((top)
@@ -1237,8 +1229,8 @@
#(a b)
#((top)
(top))
- #("i4266"
- "i4267"))
+ #("i1011"
+ "i1012"))
#(ribcage
()
()
@@ -1250,9 +1242,9 @@
#((top)
(top)
(top))
- #("i4256"
- "i4257"
- "i4258"))
+ #("i1001"
+ "i1002"
+ "i1003"))
#(ribcage
(check rest
key
@@ -1263,15 +1255,15 @@
(top)
(top)
(top))
- ("i4118"
- "i4116"
- "i4114"
- "i4112"
- "i4110"))
+ ("i863"
+ "i861"
+ "i859"
+ "i857"
+ "i855"))
#(ribcage
#(orig-args)
#((top))
- #("i4109"))
+ #("i854"))
#(ribcage
(lambda-var-list
gen-var
@@ -1509,463 +1501,463 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile))))
- #{ropt\ 4255}#)))
- #{tmp\ 4261}#)
- ((lambda (#{tmp\ 4270}#)
- (if (if #{tmp\ 4270}#
- (apply (lambda (#{a\ 4274}#
- #{init\ 4275}#
- #{b\ 4276}#)
- (#{id?\ 3501}#
- #{a\ 4274}#))
- #{tmp\ 4270}#)
+ #{ropt\ 1000}#)))
+ #{tmp\ 1006}#)
+ ((lambda (#{tmp\ 1015}#)
+ (if (if #{tmp\ 1015}#
+ (apply (lambda (#{a\ 1019}#
+ #{init\ 1020}#
+ #{b\ 1021}#)
+ (#{id?\ 246}#
+ #{a\ 1019}#))
+ #{tmp\ 1015}#)
#f)
- (apply (lambda (#{a\ 4280}#
- #{init\ 4281}#
- #{b\ 4282}#)
- (#{opt\ 4113}#
- #{b\ 4282}#
- #{req\ 4254}#
- (cons (list #{a\ 4280}#
- #{init\ 4281}#)
- #{ropt\ 4255}#)))
- #{tmp\ 4270}#)
- ((lambda (#{tmp\ 4283}#)
- (if (if #{tmp\ 4283}#
- (apply (lambda (#{a\ 4286}#
- #{b\ 4287}#)
+ (apply (lambda (#{a\ 1025}#
+ #{init\ 1026}#
+ #{b\ 1027}#)
+ (#{opt\ 858}#
+ #{b\ 1027}#
+ #{req\ 999}#
+ (cons (list #{a\ 1025}#
+ #{init\ 1026}#)
+ #{ropt\ 1000}#)))
+ #{tmp\ 1015}#)
+ ((lambda (#{tmp\ 1028}#)
+ (if (if #{tmp\ 1028}#
+ (apply (lambda (#{a\ 1031}#
+ #{b\ 1032}#)
(eq? (syntax->datum
- #{a\ 4286}#)
+ #{a\ 1031}#)
#:key))
- #{tmp\ 4283}#)
+ #{tmp\ 1028}#)
#f)
- (apply (lambda (#{a\ 4290}#
- #{b\ 4291}#)
- (#{key\ 4115}#
- #{b\ 4291}#
- #{req\ 4254}#
+ (apply (lambda (#{a\ 1035}#
+ #{b\ 1036}#)
+ (#{key\ 860}#
+ #{b\ 1036}#
+ #{req\ 999}#
(reverse
- #{ropt\ 4255}#)
+ #{ropt\ 1000}#)
'()))
- #{tmp\ 4283}#)
- ((lambda (#{tmp\ 4292}#)
- (if (if #{tmp\ 4292}#
- (apply (lambda (#{a\ 4295}#
- #{b\ 4296}#)
+ #{tmp\ 1028}#)
+ ((lambda (#{tmp\ 1037}#)
+ (if (if #{tmp\ 1037}#
+ (apply (lambda (#{a\ 1040}#
+ #{b\ 1041}#)
(eq? (syntax->datum
- #{a\ 4295}#)
+ #{a\ 1040}#)
#:rest))
- #{tmp\ 4292}#)
+ #{tmp\ 1037}#)
#f)
- (apply (lambda (#{a\ 4299}#
- #{b\ 4300}#)
- (#{rest\ 4117}#
- #{b\ 4300}#
- #{req\ 4254}#
+ (apply (lambda (#{a\ 1044}#
+ #{b\ 1045}#)
+ (#{rest\ 862}#
+ #{b\ 1045}#
+ #{req\ 999}#
(reverse
- #{ropt\ 4255}#)
+ #{ropt\ 1000}#)
'()))
- #{tmp\ 4292}#)
- ((lambda (#{tmp\ 4301}#)
- (if (if #{tmp\ 4301}#
- (apply (lambda (#{r\ 4303}#)
- (#{id?\ 3501}#
- #{r\ 4303}#))
- #{tmp\ 4301}#)
+ #{tmp\ 1037}#)
+ ((lambda (#{tmp\ 1046}#)
+ (if (if #{tmp\ 1046}#
+ (apply (lambda (#{r\ 1048}#)
+ (#{id?\ 246}#
+ #{r\ 1048}#))
+ #{tmp\ 1046}#)
#f)
- (apply (lambda (#{r\ 4305}#)
- (#{rest\ 4117}#
- #{r\ 4305}#
- #{req\ 4254}#
+ (apply (lambda (#{r\ 1050}#)
+ (#{rest\ 862}#
+ #{r\ 1050}#
+ #{req\ 999}#
(reverse
- #{ropt\ 4255}#)
+ #{ropt\ 1000}#)
'()))
- #{tmp\ 4301}#)
- ((lambda (#{else\ 4307}#)
+ #{tmp\ 1046}#)
+ ((lambda (#{else\ 1052}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 4108}#
- #{args\ 4253}#))
- #{tmp\ 4259}#)))
- (list #{tmp\ 4259}#))))
+ #{orig-args\ 853}#
+ #{args\ 998}#))
+ #{tmp\ 1004}#)))
+ (list #{tmp\ 1004}#))))
($sc-dispatch
- #{tmp\ 4259}#
+ #{tmp\ 1004}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4259}#
+ #{tmp\ 1004}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4259}#
+ #{tmp\ 1004}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 4259}#
+ #{tmp\ 1004}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4259}# (quote ()))))
- #{args\ 4253}#)))
- (#{req\ 4111}#
- (lambda (#{args\ 4308}# #{rreq\ 4309}#)
- ((lambda (#{tmp\ 4312}#)
- ((lambda (#{tmp\ 4313}#)
- (if #{tmp\ 4313}#
+ ($sc-dispatch #{tmp\ 1004}# (quote ()))))
+ #{args\ 998}#)))
+ (#{req\ 856}#
+ (lambda (#{args\ 1053}# #{rreq\ 1054}#)
+ ((lambda (#{tmp\ 1057}#)
+ ((lambda (#{tmp\ 1058}#)
+ (if #{tmp\ 1058}#
(apply (lambda ()
- (#{check\ 4119}#
- (reverse #{rreq\ 4309}#)
+ (#{check\ 864}#
+ (reverse #{rreq\ 1054}#)
'()
#f
'()))
- #{tmp\ 4313}#)
- ((lambda (#{tmp\ 4314}#)
- (if (if #{tmp\ 4314}#
- (apply (lambda (#{a\ 4317}#
- #{b\ 4318}#)
- (#{id?\ 3501}#
- #{a\ 4317}#))
- #{tmp\ 4314}#)
+ #{tmp\ 1058}#)
+ ((lambda (#{tmp\ 1059}#)
+ (if (if #{tmp\ 1059}#
+ (apply (lambda (#{a\ 1062}#
+ #{b\ 1063}#)
+ (#{id?\ 246}#
+ #{a\ 1062}#))
+ #{tmp\ 1059}#)
#f)
- (apply (lambda (#{a\ 4321}#
- #{b\ 4322}#)
- (#{req\ 4111}#
- #{b\ 4322}#
- (cons #{a\ 4321}#
- #{rreq\ 4309}#)))
- #{tmp\ 4314}#)
- ((lambda (#{tmp\ 4323}#)
- (if (if #{tmp\ 4323}#
- (apply (lambda (#{a\ 4326}#
- #{b\ 4327}#)
+ (apply (lambda (#{a\ 1066}#
+ #{b\ 1067}#)
+ (#{req\ 856}#
+ #{b\ 1067}#
+ (cons #{a\ 1066}#
+ #{rreq\ 1054}#)))
+ #{tmp\ 1059}#)
+ ((lambda (#{tmp\ 1068}#)
+ (if (if #{tmp\ 1068}#
+ (apply (lambda (#{a\ 1071}#
+ #{b\ 1072}#)
(eq? (syntax->datum
- #{a\ 4326}#)
+ #{a\ 1071}#)
#:optional))
- #{tmp\ 4323}#)
+ #{tmp\ 1068}#)
#f)
- (apply (lambda (#{a\ 4330}#
- #{b\ 4331}#)
- (#{opt\ 4113}#
- #{b\ 4331}#
+ (apply (lambda (#{a\ 1075}#
+ #{b\ 1076}#)
+ (#{opt\ 858}#
+ #{b\ 1076}#
(reverse
- #{rreq\ 4309}#)
+ #{rreq\ 1054}#)
'()))
- #{tmp\ 4323}#)
- ((lambda (#{tmp\ 4332}#)
- (if (if #{tmp\ 4332}#
- (apply (lambda (#{a\ 4335}#
- #{b\ 4336}#)
+ #{tmp\ 1068}#)
+ ((lambda (#{tmp\ 1077}#)
+ (if (if #{tmp\ 1077}#
+ (apply (lambda (#{a\ 1080}#
+ #{b\ 1081}#)
(eq? (syntax->datum
- #{a\ 4335}#)
+ #{a\ 1080}#)
#:key))
- #{tmp\ 4332}#)
+ #{tmp\ 1077}#)
#f)
- (apply (lambda (#{a\ 4339}#
- #{b\ 4340}#)
- (#{key\ 4115}#
- #{b\ 4340}#
+ (apply (lambda (#{a\ 1084}#
+ #{b\ 1085}#)
+ (#{key\ 860}#
+ #{b\ 1085}#
(reverse
- #{rreq\ 4309}#)
+ #{rreq\ 1054}#)
'()
'()))
- #{tmp\ 4332}#)
- ((lambda (#{tmp\ 4341}#)
- (if (if #{tmp\ 4341}#
- (apply (lambda (#{a\ 4344}#
- #{b\ 4345}#)
+ #{tmp\ 1077}#)
+ ((lambda (#{tmp\ 1086}#)
+ (if (if #{tmp\ 1086}#
+ (apply (lambda (#{a\ 1089}#
+ #{b\ 1090}#)
(eq? (syntax->datum
- #{a\ 4344}#)
+ #{a\ 1089}#)
#:rest))
- #{tmp\ 4341}#)
+ #{tmp\ 1086}#)
#f)
- (apply (lambda (#{a\ 4348}#
- #{b\ 4349}#)
- (#{rest\ 4117}#
- #{b\ 4349}#
+ (apply (lambda (#{a\ 1093}#
+ #{b\ 1094}#)
+ (#{rest\ 862}#
+ #{b\ 1094}#
(reverse
- #{rreq\ 4309}#)
+ #{rreq\ 1054}#)
'()
'()))
- #{tmp\ 4341}#)
- ((lambda (#{tmp\ 4350}#)
- (if (if #{tmp\ 4350}#
- (apply (lambda (#{r\ 4352}#)
- (#{id?\ 3501}#
- #{r\ 4352}#))
- #{tmp\ 4350}#)
+ #{tmp\ 1086}#)
+ ((lambda (#{tmp\ 1095}#)
+ (if (if #{tmp\ 1095}#
+ (apply (lambda (#{r\ 1097}#)
+ (#{id?\ 246}#
+ #{r\ 1097}#))
+ #{tmp\ 1095}#)
#f)
- (apply (lambda (#{r\ 4354}#)
- (#{rest\ 4117}#
- #{r\ 4354}#
+ (apply (lambda (#{r\ 1099}#)
+ (#{rest\ 862}#
+ #{r\ 1099}#
(reverse
- #{rreq\ 4309}#)
+ #{rreq\ 1054}#)
'()
'()))
- #{tmp\ 4350}#)
- ((lambda (#{else\ 4356}#)
+ #{tmp\ 1095}#)
+ ((lambda (#{else\ 1101}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 4108}#
- #{args\ 4308}#))
- #{tmp\ 4312}#)))
- (list #{tmp\ 4312}#))))
+ #{orig-args\ 853}#
+ #{args\ 1053}#))
+ #{tmp\ 1057}#)))
+ (list #{tmp\ 1057}#))))
($sc-dispatch
- #{tmp\ 4312}#
+ #{tmp\ 1057}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4312}#
+ #{tmp\ 1057}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4312}#
+ #{tmp\ 1057}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4312}#
+ #{tmp\ 1057}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4312}# (quote ()))))
- #{args\ 4308}#))))
- (#{req\ 4111}# #{orig-args\ 4108}# (quote ())))))
- (#{chi-simple-lambda\ 3606}#
- (lambda (#{e\ 4357}#
- #{r\ 4358}#
- #{w\ 4359}#
- #{s\ 4360}#
- #{mod\ 4361}#
- #{req\ 4362}#
- #{rest\ 4363}#
- #{docstring\ 4364}#
- #{body\ 4365}#)
- (let ((#{ids\ 4377}#
- (if #{rest\ 4363}#
- (append #{req\ 4362}# (list #{rest\ 4363}#))
- #{req\ 4362}#)))
- (let ((#{vars\ 4379}#
- (map #{gen-var\ 3614}# #{ids\ 4377}#)))
- (let ((#{labels\ 4381}#
- (#{gen-labels\ 3519}# #{ids\ 4377}#)))
- (#{build-simple-lambda\ 3443}#
- #{s\ 4360}#
- (map syntax->datum #{req\ 4362}#)
- (if #{rest\ 4363}#
- (syntax->datum #{rest\ 4363}#)
+ ($sc-dispatch #{tmp\ 1057}# (quote ()))))
+ #{args\ 1053}#))))
+ (#{req\ 856}# #{orig-args\ 853}# (quote ())))))
+ (#{chi-simple-lambda\ 351}#
+ (lambda (#{e\ 1102}#
+ #{r\ 1103}#
+ #{w\ 1104}#
+ #{s\ 1105}#
+ #{mod\ 1106}#
+ #{req\ 1107}#
+ #{rest\ 1108}#
+ #{docstring\ 1109}#
+ #{body\ 1110}#)
+ (let ((#{ids\ 1122}#
+ (if #{rest\ 1108}#
+ (append #{req\ 1107}# (list #{rest\ 1108}#))
+ #{req\ 1107}#)))
+ (let ((#{vars\ 1124}#
+ (map #{gen-var\ 359}# #{ids\ 1122}#)))
+ (let ((#{labels\ 1126}#
+ (#{gen-labels\ 264}# #{ids\ 1122}#)))
+ (#{build-simple-lambda\ 188}#
+ #{s\ 1105}#
+ (map syntax->datum #{req\ 1107}#)
+ (if #{rest\ 1108}#
+ (syntax->datum #{rest\ 1108}#)
#f)
- #{vars\ 4379}#
- #{docstring\ 4364}#
- (#{chi-body\ 3594}#
- #{body\ 4365}#
- (#{source-wrap\ 3572}#
- #{e\ 4357}#
- #{w\ 4359}#
- #{s\ 4360}#
- #{mod\ 4361}#)
- (#{extend-var-env\ 3491}#
- #{labels\ 4381}#
- #{vars\ 4379}#
- #{r\ 4358}#)
- (#{make-binding-wrap\ 3548}#
- #{ids\ 4377}#
- #{labels\ 4381}#
- #{w\ 4359}#)
- #{mod\ 4361}#)))))))
- (#{lambda-formals\ 3604}#
- (lambda (#{orig-args\ 4384}#)
- (letrec ((#{check\ 4389}#
- (lambda (#{req\ 4390}# #{rest\ 4391}#)
- (if (#{distinct-bound-ids?\ 3566}#
- (if #{rest\ 4391}#
- (cons #{rest\ 4391}# #{req\ 4390}#)
- #{req\ 4390}#))
- (values #{req\ 4390}# #f #{rest\ 4391}# #f)
+ #{vars\ 1124}#
+ #{docstring\ 1109}#
+ (#{chi-body\ 339}#
+ #{body\ 1110}#
+ (#{source-wrap\ 317}#
+ #{e\ 1102}#
+ #{w\ 1104}#
+ #{s\ 1105}#
+ #{mod\ 1106}#)
+ (#{extend-var-env\ 236}#
+ #{labels\ 1126}#
+ #{vars\ 1124}#
+ #{r\ 1103}#)
+ (#{make-binding-wrap\ 293}#
+ #{ids\ 1122}#
+ #{labels\ 1126}#
+ #{w\ 1104}#)
+ #{mod\ 1106}#)))))))
+ (#{lambda-formals\ 349}#
+ (lambda (#{orig-args\ 1129}#)
+ (letrec ((#{check\ 1134}#
+ (lambda (#{req\ 1135}# #{rest\ 1136}#)
+ (if (#{distinct-bound-ids?\ 311}#
+ (if #{rest\ 1136}#
+ (cons #{rest\ 1136}# #{req\ 1135}#)
+ #{req\ 1135}#))
+ (values #{req\ 1135}# #f #{rest\ 1136}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 4384}#))))
- (#{req\ 4387}#
- (lambda (#{args\ 4397}# #{rreq\ 4398}#)
- ((lambda (#{tmp\ 4401}#)
- ((lambda (#{tmp\ 4402}#)
- (if #{tmp\ 4402}#
+ #{orig-args\ 1129}#))))
+ (#{req\ 1132}#
+ (lambda (#{args\ 1142}# #{rreq\ 1143}#)
+ ((lambda (#{tmp\ 1146}#)
+ ((lambda (#{tmp\ 1147}#)
+ (if #{tmp\ 1147}#
(apply (lambda ()
- (#{check\ 4389}#
- (reverse #{rreq\ 4398}#)
+ (#{check\ 1134}#
+ (reverse #{rreq\ 1143}#)
#f))
- #{tmp\ 4402}#)
- ((lambda (#{tmp\ 4403}#)
- (if (if #{tmp\ 4403}#
- (apply (lambda (#{a\ 4406}#
- #{b\ 4407}#)
- (#{id?\ 3501}#
- #{a\ 4406}#))
- #{tmp\ 4403}#)
+ #{tmp\ 1147}#)
+ ((lambda (#{tmp\ 1148}#)
+ (if (if #{tmp\ 1148}#
+ (apply (lambda (#{a\ 1151}#
+ #{b\ 1152}#)
+ (#{id?\ 246}#
+ #{a\ 1151}#))
+ #{tmp\ 1148}#)
#f)
- (apply (lambda (#{a\ 4410}#
- #{b\ 4411}#)
- (#{req\ 4387}#
- #{b\ 4411}#
- (cons #{a\ 4410}#
- #{rreq\ 4398}#)))
- #{tmp\ 4403}#)
- ((lambda (#{tmp\ 4412}#)
- (if (if #{tmp\ 4412}#
- (apply (lambda (#{r\ 4414}#)
- (#{id?\ 3501}#
- #{r\ 4414}#))
- #{tmp\ 4412}#)
+ (apply (lambda (#{a\ 1155}#
+ #{b\ 1156}#)
+ (#{req\ 1132}#
+ #{b\ 1156}#
+ (cons #{a\ 1155}#
+ #{rreq\ 1143}#)))
+ #{tmp\ 1148}#)
+ ((lambda (#{tmp\ 1157}#)
+ (if (if #{tmp\ 1157}#
+ (apply (lambda (#{r\ 1159}#)
+ (#{id?\ 246}#
+ #{r\ 1159}#))
+ #{tmp\ 1157}#)
#f)
- (apply (lambda (#{r\ 4416}#)
- (#{check\ 4389}#
+ (apply (lambda (#{r\ 1161}#)
+ (#{check\ 1134}#
(reverse
- #{rreq\ 4398}#)
- #{r\ 4416}#))
- #{tmp\ 4412}#)
- ((lambda (#{else\ 4418}#)
+ #{rreq\ 1143}#)
+ #{r\ 1161}#))
+ #{tmp\ 1157}#)
+ ((lambda (#{else\ 1163}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 4384}#
- #{args\ 4397}#))
- #{tmp\ 4401}#)))
- (list #{tmp\ 4401}#))))
+ #{orig-args\ 1129}#
+ #{args\ 1142}#))
+ #{tmp\ 1146}#)))
+ (list #{tmp\ 1146}#))))
($sc-dispatch
- #{tmp\ 4401}#
+ #{tmp\ 1146}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 4401}# (quote ()))))
- #{args\ 4397}#))))
- (#{req\ 4387}# #{orig-args\ 4384}# (quote ())))))
- (#{ellipsis?\ 3602}#
- (lambda (#{x\ 4419}#)
- (if (#{nonsymbol-id?\ 3499}# #{x\ 4419}#)
- (#{free-id=?\ 3560}#
- #{x\ 4419}#
+ ($sc-dispatch #{tmp\ 1146}# (quote ()))))
+ #{args\ 1142}#))))
+ (#{req\ 1132}# #{orig-args\ 1129}# (quote ())))))
+ (#{ellipsis?\ 347}#
+ (lambda (#{x\ 1164}#)
+ (if (#{nonsymbol-id?\ 244}# #{x\ 1164}#)
+ (#{free-id=?\ 305}#
+ #{x\ 1164}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4420"))
+ #(ribcage #(x) #((top)) #("i1165"))
#(ribcage
(lambda-var-list
gen-var
@@ -2203,1367 +2195,1367 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile)))
#f)))
- (#{chi-void\ 3600}#
- (lambda () (#{build-void\ 3421}# #f)))
- (#{eval-local-transformer\ 3598}#
- (lambda (#{expanded\ 4424}# #{mod\ 4425}#)
- (let ((#{p\ 4429}#
- (#{local-eval-hook\ 3412}#
- #{expanded\ 4424}#
- #{mod\ 4425}#)))
- (if (procedure? #{p\ 4429}#)
- (cons #{p\ 4429}# (module-name (current-module)))
+ (#{chi-void\ 345}#
+ (lambda () (#{build-void\ 166}# #f)))
+ (#{eval-local-transformer\ 343}#
+ (lambda (#{expanded\ 1169}# #{mod\ 1170}#)
+ (let ((#{p\ 1174}#
+ (#{local-eval-hook\ 157}#
+ #{expanded\ 1169}#
+ #{mod\ 1170}#)))
+ (if (procedure? #{p\ 1174}#)
+ (cons #{p\ 1174}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 4429}#)))))
- (#{chi-local-syntax\ 3596}#
- (lambda (#{rec?\ 4430}#
- #{e\ 4431}#
- #{r\ 4432}#
- #{w\ 4433}#
- #{s\ 4434}#
- #{mod\ 4435}#
- #{k\ 4436}#)
- ((lambda (#{tmp\ 4444}#)
- ((lambda (#{tmp\ 4445}#)
- (if #{tmp\ 4445}#
- (apply (lambda (#{_\ 4451}#
- #{id\ 4452}#
- #{val\ 4453}#
- #{e1\ 4454}#
- #{e2\ 4455}#)
- (let ((#{ids\ 4457}# #{id\ 4452}#))
- (if (not (#{valid-bound-ids?\ 3564}#
- #{ids\ 4457}#))
+ #{p\ 1174}#)))))
+ (#{chi-local-syntax\ 341}#
+ (lambda (#{rec?\ 1175}#
+ #{e\ 1176}#
+ #{r\ 1177}#
+ #{w\ 1178}#
+ #{s\ 1179}#
+ #{mod\ 1180}#
+ #{k\ 1181}#)
+ ((lambda (#{tmp\ 1189}#)
+ ((lambda (#{tmp\ 1190}#)
+ (if #{tmp\ 1190}#
+ (apply (lambda (#{_\ 1196}#
+ #{id\ 1197}#
+ #{val\ 1198}#
+ #{e1\ 1199}#
+ #{e2\ 1200}#)
+ (let ((#{ids\ 1202}# #{id\ 1197}#))
+ (if (not (#{valid-bound-ids?\ 309}#
+ #{ids\ 1202}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 4431}#)
- (let ((#{labels\ 4460}#
- (#{gen-labels\ 3519}#
- #{ids\ 4457}#)))
- (let ((#{new-w\ 4462}#
- (#{make-binding-wrap\ 3548}#
- #{ids\ 4457}#
- #{labels\ 4460}#
- #{w\ 4433}#)))
- (#{k\ 4436}#
- (cons #{e1\ 4454}# #{e2\ 4455}#)
- (#{extend-env\ 3489}#
- #{labels\ 4460}#
- (let ((#{w\ 4466}#
- (if #{rec?\ 4430}#
- #{new-w\ 4462}#
- #{w\ 4433}#))
- (#{trans-r\ 4467}#
- (#{macros-only-env\ 3493}#
- #{r\ 4432}#)))
- (map (lambda (#{x\ 4468}#)
+ #{e\ 1176}#)
+ (let ((#{labels\ 1205}#
+ (#{gen-labels\ 264}#
+ #{ids\ 1202}#)))
+ (let ((#{new-w\ 1207}#
+ (#{make-binding-wrap\ 293}#
+ #{ids\ 1202}#
+ #{labels\ 1205}#
+ #{w\ 1178}#)))
+ (#{k\ 1181}#
+ (cons #{e1\ 1199}# #{e2\ 1200}#)
+ (#{extend-env\ 234}#
+ #{labels\ 1205}#
+ (let ((#{w\ 1211}#
+ (if #{rec?\ 1175}#
+ #{new-w\ 1207}#
+ #{w\ 1178}#))
+ (#{trans-r\ 1212}#
+ (#{macros-only-env\ 238}#
+ #{r\ 1177}#)))
+ (map (lambda (#{x\ 1213}#)
(cons 'macro
- (#{eval-local-transformer\ 3598}#
- (#{chi\ 3586}#
- #{x\ 4468}#
- #{trans-r\ 4467}#
- #{w\ 4466}#
- #{mod\ 4435}#)
- #{mod\ 4435}#)))
- #{val\ 4453}#))
- #{r\ 4432}#)
- #{new-w\ 4462}#
- #{s\ 4434}#
- #{mod\ 4435}#))))))
- #{tmp\ 4445}#)
- ((lambda (#{_\ 4473}#)
+ (#{eval-local-transformer\ 343}#
+ (#{chi\ 331}#
+ #{x\ 1213}#
+ #{trans-r\ 1212}#
+ #{w\ 1211}#
+ #{mod\ 1180}#)
+ #{mod\ 1180}#)))
+ #{val\ 1198}#))
+ #{r\ 1177}#)
+ #{new-w\ 1207}#
+ #{s\ 1179}#
+ #{mod\ 1180}#))))))
+ #{tmp\ 1190}#)
+ ((lambda (#{_\ 1218}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 3572}#
- #{e\ 4431}#
- #{w\ 4433}#
- #{s\ 4434}#
- #{mod\ 4435}#)))
- #{tmp\ 4444}#)))
+ (#{source-wrap\ 317}#
+ #{e\ 1176}#
+ #{w\ 1178}#
+ #{s\ 1179}#
+ #{mod\ 1180}#)))
+ #{tmp\ 1189}#)))
($sc-dispatch
- #{tmp\ 4444}#
+ #{tmp\ 1189}#
'(any #(each (any any)) any . each-any))))
- #{e\ 4431}#)))
- (#{chi-body\ 3594}#
- (lambda (#{body\ 4474}#
- #{outer-form\ 4475}#
- #{r\ 4476}#
- #{w\ 4477}#
- #{mod\ 4478}#)
- (let ((#{r\ 4486}#
+ #{e\ 1176}#)))
+ (#{chi-body\ 339}#
+ (lambda (#{body\ 1219}#
+ #{outer-form\ 1220}#
+ #{r\ 1221}#
+ #{w\ 1222}#
+ #{mod\ 1223}#)
+ (let ((#{r\ 1231}#
(cons '("placeholder" placeholder)
- #{r\ 4476}#)))
- (let ((#{ribcage\ 4488}#
- (#{make-ribcage\ 3522}#
+ #{r\ 1221}#)))
+ (let ((#{ribcage\ 1233}#
+ (#{make-ribcage\ 267}#
'()
'()
'())))
- (let ((#{w\ 4491}#
- (#{make-wrap\ 3506}#
- (#{wrap-marks\ 3508}# #{w\ 4477}#)
- (cons #{ribcage\ 4488}#
- (#{wrap-subst\ 3510}# #{w\ 4477}#)))))
- (letrec ((#{parse\ 4500}#
- (lambda (#{body\ 4501}#
- #{ids\ 4502}#
- #{labels\ 4503}#
- #{var-ids\ 4504}#
- #{vars\ 4505}#
- #{vals\ 4506}#
- #{bindings\ 4507}#)
- (if (null? #{body\ 4501}#)
+ (let ((#{w\ 1236}#
+ (#{make-wrap\ 251}#
+ (#{wrap-marks\ 253}# #{w\ 1222}#)
+ (cons #{ribcage\ 1233}#
+ (#{wrap-subst\ 255}# #{w\ 1222}#)))))
+ (letrec ((#{parse\ 1245}#
+ (lambda (#{body\ 1246}#
+ #{ids\ 1247}#
+ #{labels\ 1248}#
+ #{var-ids\ 1249}#
+ #{vars\ 1250}#
+ #{vals\ 1251}#
+ #{bindings\ 1252}#)
+ (if (null? #{body\ 1246}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 4475}#)
- (let ((#{e\ 4512}# (cdar #{body\ 4501}#))
- (#{er\ 4513}# (caar #{body\ 4501}#)))
+ #{outer-form\ 1220}#)
+ (let ((#{e\ 1257}# (cdar #{body\ 1246}#))
+ (#{er\ 1258}# (caar #{body\ 1246}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 3582}#
- #{e\ 4512}#
- #{er\ 4513}#
+ (#{syntax-type\ 327}#
+ #{e\ 1257}#
+ #{er\ 1258}#
'(())
- (#{source-annotation\ 3480}#
- #{er\ 4513}#)
- #{ribcage\ 4488}#
- #{mod\ 4478}#
+ (#{source-annotation\ 225}#
+ #{er\ 1258}#)
+ #{ribcage\ 1233}#
+ #{mod\ 1223}#
#f))
- (lambda (#{type\ 4515}#
- #{value\ 4516}#
- #{e\ 4517}#
- #{w\ 4518}#
- #{s\ 4519}#
- #{mod\ 4520}#)
- (if (memv #{type\ 4515}#
+ (lambda (#{type\ 1260}#
+ #{value\ 1261}#
+ #{e\ 1262}#
+ #{w\ 1263}#
+ #{s\ 1264}#
+ #{mod\ 1265}#)
+ (if (memv #{type\ 1260}#
'(define-form))
- (let ((#{id\ 4530}#
- (#{wrap\ 3570}#
- #{value\ 4516}#
- #{w\ 4518}#
- #{mod\ 4520}#))
- (#{label\ 4531}#
- (#{gen-label\ 3517}#)))
- (let ((#{var\ 4533}#
- (#{gen-var\ 3614}#
- #{id\ 4530}#)))
+ (let ((#{id\ 1275}#
+ (#{wrap\ 315}#
+ #{value\ 1261}#
+ #{w\ 1263}#
+ #{mod\ 1265}#))
+ (#{label\ 1276}#
+ (#{gen-label\ 262}#)))
+ (let ((#{var\ 1278}#
+ (#{gen-var\ 359}#
+ #{id\ 1275}#)))
(begin
- (#{extend-ribcage!\ 3546}#
- #{ribcage\ 4488}#
- #{id\ 4530}#
- #{label\ 4531}#)
- (#{parse\ 4500}#
- (cdr #{body\ 4501}#)
- (cons #{id\ 4530}#
- #{ids\ 4502}#)
- (cons #{label\ 4531}#
- #{labels\ 4503}#)
- (cons #{id\ 4530}#
- #{var-ids\ 4504}#)
- (cons #{var\ 4533}#
- #{vars\ 4505}#)
- (cons (cons #{er\ 4513}#
- (#{wrap\ 3570}#
- #{e\ 4517}#
- #{w\ 4518}#
- #{mod\ 4520}#))
- #{vals\ 4506}#)
+ (#{extend-ribcage!\ 291}#
+ #{ribcage\ 1233}#
+ #{id\ 1275}#
+ #{label\ 1276}#)
+ (#{parse\ 1245}#
+ (cdr #{body\ 1246}#)
+ (cons #{id\ 1275}#
+ #{ids\ 1247}#)
+ (cons #{label\ 1276}#
+ #{labels\ 1248}#)
+ (cons #{id\ 1275}#
+ #{var-ids\ 1249}#)
+ (cons #{var\ 1278}#
+ #{vars\ 1250}#)
+ (cons (cons #{er\ 1258}#
+ (#{wrap\ 315}#
+ #{e\ 1262}#
+ #{w\ 1263}#
+ #{mod\ 1265}#))
+ #{vals\ 1251}#)
(cons (cons 'lexical
- #{var\ 4533}#)
- #{bindings\ 4507}#)))))
- (if (memv #{type\ 4515}#
+ #{var\ 1278}#)
+ #{bindings\ 1252}#)))))
+ (if (memv #{type\ 1260}#
'(define-syntax-form))
- (let ((#{id\ 4538}#
- (#{wrap\ 3570}#
- #{value\ 4516}#
- #{w\ 4518}#
- #{mod\ 4520}#))
- (#{label\ 4539}#
- (#{gen-label\ 3517}#)))
+ (let ((#{id\ 1283}#
+ (#{wrap\ 315}#
+ #{value\ 1261}#
+ #{w\ 1263}#
+ #{mod\ 1265}#))
+ (#{label\ 1284}#
+ (#{gen-label\ 262}#)))
(begin
- (#{extend-ribcage!\ 3546}#
- #{ribcage\ 4488}#
- #{id\ 4538}#
- #{label\ 4539}#)
- (#{parse\ 4500}#
- (cdr #{body\ 4501}#)
- (cons #{id\ 4538}#
- #{ids\ 4502}#)
- (cons #{label\ 4539}#
- #{labels\ 4503}#)
- #{var-ids\ 4504}#
- #{vars\ 4505}#
- #{vals\ 4506}#
+ (#{extend-ribcage!\ 291}#
+ #{ribcage\ 1233}#
+ #{id\ 1283}#
+ #{label\ 1284}#)
+ (#{parse\ 1245}#
+ (cdr #{body\ 1246}#)
+ (cons #{id\ 1283}#
+ #{ids\ 1247}#)
+ (cons #{label\ 1284}#
+ #{labels\ 1248}#)
+ #{var-ids\ 1249}#
+ #{vars\ 1250}#
+ #{vals\ 1251}#
(cons (cons 'macro
- (cons #{er\ 4513}#
- (#{wrap\ 3570}#
- #{e\ 4517}#
- #{w\ 4518}#
- #{mod\ 4520}#)))
- #{bindings\ 4507}#))))
- (if (memv #{type\ 4515}#
+ (cons #{er\ 1258}#
+ (#{wrap\ 315}#
+ #{e\ 1262}#
+ #{w\ 1263}#
+ #{mod\ 1265}#)))
+ #{bindings\ 1252}#))))
+ (if (memv #{type\ 1260}#
'(begin-form))
- ((lambda (#{tmp\ 4542}#)
- ((lambda (#{tmp\ 4543}#)
- (if #{tmp\ 4543}#
- (apply (lambda (#{_\ 4546}#
- #{e1\ 4547}#)
- (#{parse\ 4500}#
- (letrec ((#{f\ 4550}#
- (lambda (#{forms\ 4551}#)
- (if (null? #{forms\ 4551}#)
- (cdr #{body\ 4501}#)
- (cons (cons #{er\ 4513}#
- (#{wrap\ 3570}#
- (car #{forms\ 4551}#)
- #{w\ 4518}#
- #{mod\ 4520}#))
- (#{f\ 4550}#
- (cdr #{forms\ 4551}#)))))))
- (#{f\ 4550}#
- #{e1\ 4547}#))
- #{ids\ 4502}#
- #{labels\ 4503}#
- #{var-ids\ 4504}#
- #{vars\ 4505}#
- #{vals\ 4506}#
- #{bindings\ 4507}#))
- #{tmp\ 4543}#)
+ ((lambda (#{tmp\ 1287}#)
+ ((lambda (#{tmp\ 1288}#)
+ (if #{tmp\ 1288}#
+ (apply (lambda (#{_\ 1291}#
+ #{e1\ 1292}#)
+ (#{parse\ 1245}#
+ (letrec ((#{f\ 1295}#
+ (lambda (#{forms\ 1296}#)
+ (if (null? #{forms\ 1296}#)
+ (cdr #{body\ 1246}#)
+ (cons (cons #{er\ 1258}#
+ (#{wrap\ 315}#
+ (car #{forms\ 1296}#)
+ #{w\ 1263}#
+ #{mod\ 1265}#))
+ (#{f\ 1295}#
+ (cdr #{forms\ 1296}#)))))))
+ (#{f\ 1295}#
+ #{e1\ 1292}#))
+ #{ids\ 1247}#
+ #{labels\ 1248}#
+ #{var-ids\ 1249}#
+ #{vars\ 1250}#
+ #{vals\ 1251}#
+ #{bindings\ 1252}#))
+ #{tmp\ 1288}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4542}#)))
+ #{tmp\ 1287}#)))
($sc-dispatch
- #{tmp\ 4542}#
+ #{tmp\ 1287}#
'(any . each-any))))
- #{e\ 4517}#)
- (if (memv #{type\ 4515}#
+ #{e\ 1262}#)
+ (if (memv #{type\ 1260}#
'(local-syntax-form))
- (#{chi-local-syntax\ 3596}#
- #{value\ 4516}#
- #{e\ 4517}#
- #{er\ 4513}#
- #{w\ 4518}#
- #{s\ 4519}#
- #{mod\ 4520}#
- (lambda (#{forms\ 4554}#
- #{er\ 4555}#
- #{w\ 4556}#
- #{s\ 4557}#
- #{mod\ 4558}#)
- (#{parse\ 4500}#
- (letrec ((#{f\ 4566}#
- (lambda (#{forms\ 4567}#)
- (if (null? #{forms\ 4567}#)
- (cdr #{body\ 4501}#)
- (cons (cons #{er\ 4555}#
- (#{wrap\ 3570}#
- (car #{forms\ 4567}#)
- #{w\ 4556}#
- #{mod\ 4558}#))
- (#{f\ 4566}#
- (cdr #{forms\ 4567}#)))))))
- (#{f\ 4566}#
- #{forms\ 4554}#))
- #{ids\ 4502}#
- #{labels\ 4503}#
- #{var-ids\ 4504}#
- #{vars\ 4505}#
- #{vals\ 4506}#
- #{bindings\ 4507}#)))
- (if (null? #{ids\ 4502}#)
- (#{build-sequence\ 3453}#
+ (#{chi-local-syntax\ 341}#
+ #{value\ 1261}#
+ #{e\ 1262}#
+ #{er\ 1258}#
+ #{w\ 1263}#
+ #{s\ 1264}#
+ #{mod\ 1265}#
+ (lambda (#{forms\ 1299}#
+ #{er\ 1300}#
+ #{w\ 1301}#
+ #{s\ 1302}#
+ #{mod\ 1303}#)
+ (#{parse\ 1245}#
+ (letrec ((#{f\ 1311}#
+ (lambda (#{forms\ 1312}#)
+ (if (null? #{forms\ 1312}#)
+ (cdr #{body\ 1246}#)
+ (cons (cons #{er\ 1300}#
+ (#{wrap\ 315}#
+ (car #{forms\ 1312}#)
+ #{w\ 1301}#
+ #{mod\ 1303}#))
+ (#{f\ 1311}#
+ (cdr #{forms\ 1312}#)))))))
+ (#{f\ 1311}#
+ #{forms\ 1299}#))
+ #{ids\ 1247}#
+ #{labels\ 1248}#
+ #{var-ids\ 1249}#
+ #{vars\ 1250}#
+ #{vals\ 1251}#
+ #{bindings\ 1252}#)))
+ (if (null? #{ids\ 1247}#)
+ (#{build-sequence\ 198}#
#f
- (map (lambda (#{x\ 4570}#)
- (#{chi\ 3586}#
- (cdr #{x\ 4570}#)
- (car #{x\ 4570}#)
+ (map (lambda (#{x\ 1315}#)
+ (#{chi\ 331}#
+ (cdr #{x\ 1315}#)
+ (car #{x\ 1315}#)
'(())
- #{mod\ 4520}#))
- (cons (cons #{er\ 4513}#
- (#{source-wrap\ 3572}#
- #{e\ 4517}#
- #{w\ 4518}#
- #{s\ 4519}#
- #{mod\ 4520}#))
- (cdr #{body\ 4501}#))))
+ #{mod\ 1265}#))
+ (cons (cons #{er\ 1258}#
+ (#{source-wrap\ 317}#
+ #{e\ 1262}#
+ #{w\ 1263}#
+ #{s\ 1264}#
+ #{mod\ 1265}#))
+ (cdr #{body\ 1246}#))))
(begin
- (if (not (#{valid-bound-ids?\ 3564}#
- #{ids\ 4502}#))
+ (if (not (#{valid-bound-ids?\ 309}#
+ #{ids\ 1247}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 4475}#))
- (letrec ((#{loop\ 4577}#
- (lambda (#{bs\ 4578}#
- #{er-cache\ 4579}#
- #{r-cache\ 4580}#)
- (if (not (null? #{bs\ 4578}#))
- (let ((#{b\ 4583}#
- (car #{bs\ 4578}#)))
- (if (eq? (car #{b\ 4583}#)
+ #{outer-form\ 1220}#))
+ (letrec ((#{loop\ 1322}#
+ (lambda (#{bs\ 1323}#
+ #{er-cache\ 1324}#
+ #{r-cache\ 1325}#)
+ (if (not (null? #{bs\ 1323}#))
+ (let ((#{b\ 1328}#
+ (car #{bs\ 1323}#)))
+ (if (eq? (car #{b\ 1328}#)
'macro)
- (let ((#{er\ 4586}#
- (cadr #{b\ 4583}#)))
- (let ((#{r-cache\ 4588}#
- (if (eq? #{er\ 4586}#
- #{er-cache\ 4579}#)
- #{r-cache\ 4580}#
- (#{macros-only-env\ 3493}#
- #{er\ 4586}#))))
+ (let ((#{er\ 1331}#
+ (cadr #{b\ 1328}#)))
+ (let ((#{r-cache\ 1333}#
+ (if (eq? #{er\ 1331}#
+ #{er-cache\ 1324}#)
+ #{r-cache\ 1325}#
+ (#{macros-only-env\ 238}#
+ #{er\ 1331}#))))
(begin
(set-cdr!
- #{b\ 4583}#
- (#{eval-local-transformer\ 3598}#
- (#{chi\ 3586}#
- (cddr #{b\ 4583}#)
- #{r-cache\ 4588}#
+ #{b\ 1328}#
+ (#{eval-local-transformer\ 343}#
+ (#{chi\ 331}#
+ (cddr #{b\ 1328}#)
+ #{r-cache\ 1333}#
'(())
- #{mod\ 4520}#)
- #{mod\ 4520}#))
- (#{loop\ 4577}#
- (cdr #{bs\ 4578}#)
- #{er\ 4586}#
- #{r-cache\ 4588}#))))
- (#{loop\ 4577}#
- (cdr #{bs\ 4578}#)
- #{er-cache\ 4579}#
- #{r-cache\ 4580}#)))))))
- (#{loop\ 4577}#
- #{bindings\ 4507}#
+ #{mod\ 1265}#)
+ #{mod\ 1265}#))
+ (#{loop\ 1322}#
+ (cdr #{bs\ 1323}#)
+ #{er\ 1331}#
+ #{r-cache\ 1333}#))))
+ (#{loop\ 1322}#
+ (cdr #{bs\ 1323}#)
+ #{er-cache\ 1324}#
+ #{r-cache\ 1325}#)))))))
+ (#{loop\ 1322}#
+ #{bindings\ 1252}#
#f
#f))
(set-cdr!
- #{r\ 4486}#
- (#{extend-env\ 3489}#
- #{labels\ 4503}#
- #{bindings\ 4507}#
- (cdr #{r\ 4486}#)))
- (#{build-letrec\ 3459}#
+ #{r\ 1231}#
+ (#{extend-env\ 234}#
+ #{labels\ 1248}#
+ #{bindings\ 1252}#
+ (cdr #{r\ 1231}#)))
+ (#{build-letrec\ 204}#
#f
(map syntax->datum
- #{var-ids\ 4504}#)
- #{vars\ 4505}#
- (map (lambda (#{x\ 4591}#)
- (#{chi\ 3586}#
- (cdr #{x\ 4591}#)
- (car #{x\ 4591}#)
+ #{var-ids\ 1249}#)
+ #{vars\ 1250}#
+ (map (lambda (#{x\ 1336}#)
+ (#{chi\ 331}#
+ (cdr #{x\ 1336}#)
+ (car #{x\ 1336}#)
'(())
- #{mod\ 4520}#))
- #{vals\ 4506}#)
- (#{build-sequence\ 3453}#
+ #{mod\ 1265}#))
+ #{vals\ 1251}#)
+ (#{build-sequence\ 198}#
#f
- (map (lambda (#{x\ 4595}#)
- (#{chi\ 3586}#
- (cdr #{x\ 4595}#)
- (car #{x\ 4595}#)
+ (map (lambda (#{x\ 1340}#)
+ (#{chi\ 331}#
+ (cdr #{x\ 1340}#)
+ (car #{x\ 1340}#)
'(())
- #{mod\ 4520}#))
- (cons (cons #{er\ 4513}#
- (#{source-wrap\ 3572}#
- #{e\ 4517}#
- #{w\ 4518}#
- #{s\ 4519}#
- #{mod\ 4520}#))
- (cdr #{body\ 4501}#))))))))))))))))))
- (#{parse\ 4500}#
- (map (lambda (#{x\ 4508}#)
- (cons #{r\ 4486}#
- (#{wrap\ 3570}#
- #{x\ 4508}#
- #{w\ 4491}#
- #{mod\ 4478}#)))
- #{body\ 4474}#)
+ #{mod\ 1265}#))
+ (cons (cons #{er\ 1258}#
+ (#{source-wrap\ 317}#
+ #{e\ 1262}#
+ #{w\ 1263}#
+ #{s\ 1264}#
+ #{mod\ 1265}#))
+ (cdr #{body\ 1246}#))))))))))))))))))
+ (#{parse\ 1245}#
+ (map (lambda (#{x\ 1253}#)
+ (cons #{r\ 1231}#
+ (#{wrap\ 315}#
+ #{x\ 1253}#
+ #{w\ 1236}#
+ #{mod\ 1223}#)))
+ #{body\ 1219}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 3592}#
- (lambda (#{p\ 4598}#
- #{e\ 4599}#
- #{r\ 4600}#
- #{w\ 4601}#
- #{rib\ 4602}#
- #{mod\ 4603}#)
- (letrec ((#{rebuild-macro-output\ 4611}#
- (lambda (#{x\ 4612}# #{m\ 4613}#)
- (if (pair? #{x\ 4612}#)
- (cons (#{rebuild-macro-output\ 4611}#
- (car #{x\ 4612}#)
- #{m\ 4613}#)
- (#{rebuild-macro-output\ 4611}#
- (cdr #{x\ 4612}#)
- #{m\ 4613}#))
- (if (#{syntax-object?\ 3465}# #{x\ 4612}#)
- (let ((#{w\ 4621}#
- (#{syntax-object-wrap\ 3469}#
- #{x\ 4612}#)))
- (let ((#{ms\ 4624}#
- (#{wrap-marks\ 3508}# #{w\ 4621}#))
- (#{s\ 4625}#
- (#{wrap-subst\ 3510}# #{w\ 4621}#)))
- (if (if (pair? #{ms\ 4624}#)
- (eq? (car #{ms\ 4624}#) #f)
+ (#{chi-macro\ 337}#
+ (lambda (#{p\ 1343}#
+ #{e\ 1344}#
+ #{r\ 1345}#
+ #{w\ 1346}#
+ #{rib\ 1347}#
+ #{mod\ 1348}#)
+ (letrec ((#{rebuild-macro-output\ 1356}#
+ (lambda (#{x\ 1357}# #{m\ 1358}#)
+ (if (pair? #{x\ 1357}#)
+ (cons (#{rebuild-macro-output\ 1356}#
+ (car #{x\ 1357}#)
+ #{m\ 1358}#)
+ (#{rebuild-macro-output\ 1356}#
+ (cdr #{x\ 1357}#)
+ #{m\ 1358}#))
+ (if (#{syntax-object?\ 210}# #{x\ 1357}#)
+ (let ((#{w\ 1366}#
+ (#{syntax-object-wrap\ 214}#
+ #{x\ 1357}#)))
+ (let ((#{ms\ 1369}#
+ (#{wrap-marks\ 253}# #{w\ 1366}#))
+ (#{s\ 1370}#
+ (#{wrap-subst\ 255}# #{w\ 1366}#)))
+ (if (if (pair? #{ms\ 1369}#)
+ (eq? (car #{ms\ 1369}#) #f)
#f)
- (#{make-syntax-object\ 3463}#
- (#{syntax-object-expression\ 3467}#
- #{x\ 4612}#)
- (#{make-wrap\ 3506}#
- (cdr #{ms\ 4624}#)
- (if #{rib\ 4602}#
- (cons #{rib\ 4602}#
- (cdr #{s\ 4625}#))
- (cdr #{s\ 4625}#)))
- (#{syntax-object-module\ 3471}#
- #{x\ 4612}#))
- (#{make-syntax-object\ 3463}#
- (#{syntax-object-expression\ 3467}#
- #{x\ 4612}#)
- (#{make-wrap\ 3506}#
- (cons #{m\ 4613}# #{ms\ 4624}#)
- (if #{rib\ 4602}#
- (cons #{rib\ 4602}#
+ (#{make-syntax-object\ 208}#
+ (#{syntax-object-expression\ 212}#
+ #{x\ 1357}#)
+ (#{make-wrap\ 251}#
+ (cdr #{ms\ 1369}#)
+ (if #{rib\ 1347}#
+ (cons #{rib\ 1347}#
+ (cdr #{s\ 1370}#))
+ (cdr #{s\ 1370}#)))
+ (#{syntax-object-module\ 216}#
+ #{x\ 1357}#))
+ (#{make-syntax-object\ 208}#
+ (#{syntax-object-expression\ 212}#
+ #{x\ 1357}#)
+ (#{make-wrap\ 251}#
+ (cons #{m\ 1358}# #{ms\ 1369}#)
+ (if #{rib\ 1347}#
+ (cons #{rib\ 1347}#
(cons 'shift
- #{s\ 4625}#))
- (cons (quote shift) #{s\ 4625}#)))
+ #{s\ 1370}#))
+ (cons (quote shift) #{s\ 1370}#)))
(cons 'hygiene
- (cdr #{p\ 4598}#))))))
- (if (vector? #{x\ 4612}#)
- (let ((#{n\ 4633}#
- (vector-length #{x\ 4612}#)))
- (let ((#{v\ 4635}#
- (make-vector #{n\ 4633}#)))
- (letrec ((#{loop\ 4638}#
- (lambda (#{i\ 4639}#)
- (if (#{fx=\ 3406}#
- #{i\ 4639}#
- #{n\ 4633}#)
+ (cdr #{p\ 1343}#))))))
+ (if (vector? #{x\ 1357}#)
+ (let ((#{n\ 1378}#
+ (vector-length #{x\ 1357}#)))
+ (let ((#{v\ 1380}#
+ (make-vector #{n\ 1378}#)))
+ (letrec ((#{loop\ 1383}#
+ (lambda (#{i\ 1384}#)
+ (if (#{fx=\ 151}#
+ #{i\ 1384}#
+ #{n\ 1378}#)
(begin
(if #f #f)
- #{v\ 4635}#)
+ #{v\ 1380}#)
(begin
(vector-set!
- #{v\ 4635}#
- #{i\ 4639}#
- (#{rebuild-macro-output\ 4611}#
+ #{v\ 1380}#
+ #{i\ 1384}#
+ (#{rebuild-macro-output\ 1356}#
(vector-ref
- #{x\ 4612}#
- #{i\ 4639}#)
- #{m\ 4613}#))
- (#{loop\ 4638}#
- (#{fx+\ 3402}#
- #{i\ 4639}#
+ #{x\ 1357}#
+ #{i\ 1384}#)
+ #{m\ 1358}#))
+ (#{loop\ 1383}#
+ (#{fx+\ 147}#
+ #{i\ 1384}#
1)))))))
- (#{loop\ 4638}# 0))))
- (if (symbol? #{x\ 4612}#)
+ (#{loop\ 1383}# 0))))
+ (if (symbol? #{x\ 1357}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 3572}#
- #{e\ 4599}#
- #{w\ 4601}#
- (#{wrap-subst\ 3510}# #{w\ 4601}#)
- #{mod\ 4603}#)
- #{x\ 4612}#)
- #{x\ 4612}#)))))))
- (#{rebuild-macro-output\ 4611}#
- ((car #{p\ 4598}#)
- (#{wrap\ 3570}#
- #{e\ 4599}#
- (#{anti-mark\ 3542}# #{w\ 4601}#)
- #{mod\ 4603}#))
+ (#{source-wrap\ 317}#
+ #{e\ 1344}#
+ #{w\ 1346}#
+ (#{wrap-subst\ 255}# #{w\ 1346}#)
+ #{mod\ 1348}#)
+ #{x\ 1357}#)
+ #{x\ 1357}#)))))))
+ (#{rebuild-macro-output\ 1356}#
+ ((car #{p\ 1343}#)
+ (#{wrap\ 315}#
+ #{e\ 1344}#
+ (#{anti-mark\ 287}# #{w\ 1346}#)
+ #{mod\ 1348}#))
(gensym "m")))))
- (#{chi-application\ 3590}#
- (lambda (#{x\ 4646}#
- #{e\ 4647}#
- #{r\ 4648}#
- #{w\ 4649}#
- #{s\ 4650}#
- #{mod\ 4651}#)
- ((lambda (#{tmp\ 4658}#)
- ((lambda (#{tmp\ 4659}#)
- (if #{tmp\ 4659}#
- (apply (lambda (#{e0\ 4662}# #{e1\ 4663}#)
- (#{build-application\ 3423}#
- #{s\ 4650}#
- #{x\ 4646}#
- (map (lambda (#{e\ 4664}#)
- (#{chi\ 3586}#
- #{e\ 4664}#
- #{r\ 4648}#
- #{w\ 4649}#
- #{mod\ 4651}#))
- #{e1\ 4663}#)))
- #{tmp\ 4659}#)
+ (#{chi-application\ 335}#
+ (lambda (#{x\ 1391}#
+ #{e\ 1392}#
+ #{r\ 1393}#
+ #{w\ 1394}#
+ #{s\ 1395}#
+ #{mod\ 1396}#)
+ ((lambda (#{tmp\ 1403}#)
+ ((lambda (#{tmp\ 1404}#)
+ (if #{tmp\ 1404}#
+ (apply (lambda (#{e0\ 1407}# #{e1\ 1408}#)
+ (#{build-application\ 168}#
+ #{s\ 1395}#
+ #{x\ 1391}#
+ (map (lambda (#{e\ 1409}#)
+ (#{chi\ 331}#
+ #{e\ 1409}#
+ #{r\ 1393}#
+ #{w\ 1394}#
+ #{mod\ 1396}#))
+ #{e1\ 1408}#)))
+ #{tmp\ 1404}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4658}#)))
+ #{tmp\ 1403}#)))
($sc-dispatch
- #{tmp\ 4658}#
+ #{tmp\ 1403}#
'(any . each-any))))
- #{e\ 4647}#)))
- (#{chi-expr\ 3588}#
- (lambda (#{type\ 4667}#
- #{value\ 4668}#
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (lexical)))
- (#{build-lexical-reference\ 3429}#
+ #{e\ 1392}#)))
+ (#{chi-expr\ 333}#
+ (lambda (#{type\ 1412}#
+ #{value\ 1413}#
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (lexical)))
+ (#{build-lexical-reference\ 174}#
'value
- #{s\ 4672}#
- #{e\ 4669}#
- #{value\ 4668}#)
- (if (memv #{type\ 4667}# (quote (core core-form)))
- (#{value\ 4668}#
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (module-ref)))
+ #{s\ 1417}#
+ #{e\ 1414}#
+ #{value\ 1413}#)
+ (if (memv #{type\ 1412}# (quote (core core-form)))
+ (#{value\ 1413}#
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 4668}# #{e\ 4669}#))
- (lambda (#{id\ 4684}# #{mod\ 4685}#)
- (#{build-global-reference\ 3435}#
- #{s\ 4672}#
- #{id\ 4684}#
- #{mod\ 4685}#)))
- (if (memv #{type\ 4667}# (quote (lexical-call)))
- (#{chi-application\ 3590}#
- (#{build-lexical-reference\ 3429}#
+ (lambda () (#{value\ 1413}# #{e\ 1414}#))
+ (lambda (#{id\ 1429}# #{mod\ 1430}#)
+ (#{build-global-reference\ 180}#
+ #{s\ 1417}#
+ #{id\ 1429}#
+ #{mod\ 1430}#)))
+ (if (memv #{type\ 1412}# (quote (lexical-call)))
+ (#{chi-application\ 335}#
+ (#{build-lexical-reference\ 174}#
'fun
- (#{source-annotation\ 3480}# (car #{e\ 4669}#))
- (car #{e\ 4669}#)
- #{value\ 4668}#)
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (global-call)))
- (#{chi-application\ 3590}#
- (#{build-global-reference\ 3435}#
- (#{source-annotation\ 3480}# (car #{e\ 4669}#))
- (if (#{syntax-object?\ 3465}# #{value\ 4668}#)
- (#{syntax-object-expression\ 3467}#
- #{value\ 4668}#)
- #{value\ 4668}#)
- (if (#{syntax-object?\ 3465}# #{value\ 4668}#)
- (#{syntax-object-module\ 3471}# #{value\ 4668}#)
- #{mod\ 4673}#))
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (constant)))
- (#{build-data\ 3451}#
- #{s\ 4672}#
- (#{strip\ 3612}#
- (#{source-wrap\ 3572}#
- #{e\ 4669}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
+ (#{source-annotation\ 225}# (car #{e\ 1414}#))
+ (car #{e\ 1414}#)
+ #{value\ 1413}#)
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (global-call)))
+ (#{chi-application\ 335}#
+ (#{build-global-reference\ 180}#
+ (#{source-annotation\ 225}# (car #{e\ 1414}#))
+ (if (#{syntax-object?\ 210}# #{value\ 1413}#)
+ (#{syntax-object-expression\ 212}#
+ #{value\ 1413}#)
+ #{value\ 1413}#)
+ (if (#{syntax-object?\ 210}# #{value\ 1413}#)
+ (#{syntax-object-module\ 216}# #{value\ 1413}#)
+ #{mod\ 1418}#))
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (constant)))
+ (#{build-data\ 196}#
+ #{s\ 1417}#
+ (#{strip\ 357}#
+ (#{source-wrap\ 317}#
+ #{e\ 1414}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
'(())))
- (if (memv #{type\ 4667}# (quote (global)))
- (#{build-global-reference\ 3435}#
- #{s\ 4672}#
- #{value\ 4668}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (call)))
- (#{chi-application\ 3590}#
- (#{chi\ 3586}#
- (car #{e\ 4669}#)
- #{r\ 4670}#
- #{w\ 4671}#
- #{mod\ 4673}#)
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (if (memv #{type\ 4667}# (quote (begin-form)))
- ((lambda (#{tmp\ 4695}#)
- ((lambda (#{tmp\ 4696}#)
- (if #{tmp\ 4696}#
- (apply (lambda (#{_\ 4700}#
- #{e1\ 4701}#
- #{e2\ 4702}#)
- (#{chi-sequence\ 3574}#
- (cons #{e1\ 4701}#
- #{e2\ 4702}#)
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#))
- #{tmp\ 4696}#)
+ (if (memv #{type\ 1412}# (quote (global)))
+ (#{build-global-reference\ 180}#
+ #{s\ 1417}#
+ #{value\ 1413}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (call)))
+ (#{chi-application\ 335}#
+ (#{chi\ 331}#
+ (car #{e\ 1414}#)
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{mod\ 1418}#)
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (if (memv #{type\ 1412}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1440}#)
+ ((lambda (#{tmp\ 1441}#)
+ (if #{tmp\ 1441}#
+ (apply (lambda (#{_\ 1445}#
+ #{e1\ 1446}#
+ #{e2\ 1447}#)
+ (#{chi-sequence\ 319}#
+ (cons #{e1\ 1446}#
+ #{e2\ 1447}#)
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#))
+ #{tmp\ 1441}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4695}#)))
+ #{tmp\ 1440}#)))
($sc-dispatch
- #{tmp\ 4695}#
+ #{tmp\ 1440}#
'(any any . each-any))))
- #{e\ 4669}#)
- (if (memv #{type\ 4667}#
+ #{e\ 1414}#)
+ (if (memv #{type\ 1412}#
'(local-syntax-form))
- (#{chi-local-syntax\ 3596}#
- #{value\ 4668}#
- #{e\ 4669}#
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#
- #{chi-sequence\ 3574}#)
- (if (memv #{type\ 4667}#
+ (#{chi-local-syntax\ 341}#
+ #{value\ 1413}#
+ #{e\ 1414}#
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#
+ #{chi-sequence\ 319}#)
+ (if (memv #{type\ 1412}#
'(eval-when-form))
- ((lambda (#{tmp\ 4706}#)
- ((lambda (#{tmp\ 4707}#)
- (if #{tmp\ 4707}#
- (apply (lambda (#{_\ 4712}#
- #{x\ 4713}#
- #{e1\ 4714}#
- #{e2\ 4715}#)
- (let ((#{when-list\ 4717}#
- (#{chi-when-list\ 3580}#
- #{e\ 4669}#
- #{x\ 4713}#
- #{w\ 4671}#)))
+ ((lambda (#{tmp\ 1451}#)
+ ((lambda (#{tmp\ 1452}#)
+ (if #{tmp\ 1452}#
+ (apply (lambda (#{_\ 1457}#
+ #{x\ 1458}#
+ #{e1\ 1459}#
+ #{e2\ 1460}#)
+ (let ((#{when-list\ 1462}#
+ (#{chi-when-list\ 325}#
+ #{e\ 1414}#
+ #{x\ 1458}#
+ #{w\ 1416}#)))
(if (memq 'eval
- #{when-list\ 4717}#)
- (#{chi-sequence\ 3574}#
- (cons #{e1\ 4714}#
- #{e2\ 4715}#)
- #{r\ 4670}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#)
- (#{chi-void\ 3600}#))))
- #{tmp\ 4707}#)
+ #{when-list\ 1462}#)
+ (#{chi-sequence\ 319}#
+ (cons #{e1\ 1459}#
+ #{e2\ 1460}#)
+ #{r\ 1415}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#)
+ (#{chi-void\ 345}#))))
+ #{tmp\ 1452}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4706}#)))
+ #{tmp\ 1451}#)))
($sc-dispatch
- #{tmp\ 4706}#
+ #{tmp\ 1451}#
'(any each-any any . each-any))))
- #{e\ 4669}#)
- (if (memv #{type\ 4667}#
+ #{e\ 1414}#)
+ (if (memv #{type\ 1412}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 4669}#
- (#{wrap\ 3570}#
- #{value\ 4668}#
- #{w\ 4671}#
- #{mod\ 4673}#))
- (if (memv #{type\ 4667}#
+ #{e\ 1414}#
+ (#{wrap\ 315}#
+ #{value\ 1413}#
+ #{w\ 1416}#
+ #{mod\ 1418}#))
+ (if (memv #{type\ 1412}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 3572}#
- #{e\ 4669}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#))
- (if (memv #{type\ 4667}#
+ (#{source-wrap\ 317}#
+ #{e\ 1414}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#))
+ (if (memv #{type\ 1412}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 3572}#
- #{e\ 4669}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#))
+ (#{source-wrap\ 317}#
+ #{e\ 1414}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 3572}#
- #{e\ 4669}#
- #{w\ 4671}#
- #{s\ 4672}#
- #{mod\ 4673}#))))))))))))))))))
- (#{chi\ 3586}#
- (lambda (#{e\ 4724}#
- #{r\ 4725}#
- #{w\ 4726}#
- #{mod\ 4727}#)
+ (#{source-wrap\ 317}#
+ #{e\ 1414}#
+ #{w\ 1416}#
+ #{s\ 1417}#
+ #{mod\ 1418}#))))))))))))))))))
+ (#{chi\ 331}#
+ (lambda (#{e\ 1469}#
+ #{r\ 1470}#
+ #{w\ 1471}#
+ #{mod\ 1472}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3582}#
- #{e\ 4724}#
- #{r\ 4725}#
- #{w\ 4726}#
- (#{source-annotation\ 3480}# #{e\ 4724}#)
+ (#{syntax-type\ 327}#
+ #{e\ 1469}#
+ #{r\ 1470}#
+ #{w\ 1471}#
+ (#{source-annotation\ 225}# #{e\ 1469}#)
#f
- #{mod\ 4727}#
+ #{mod\ 1472}#
#f))
- (lambda (#{type\ 4732}#
- #{value\ 4733}#
- #{e\ 4734}#
- #{w\ 4735}#
- #{s\ 4736}#
- #{mod\ 4737}#)
- (#{chi-expr\ 3588}#
- #{type\ 4732}#
- #{value\ 4733}#
- #{e\ 4734}#
- #{r\ 4725}#
- #{w\ 4735}#
- #{s\ 4736}#
- #{mod\ 4737}#)))))
- (#{chi-top\ 3584}#
- (lambda (#{e\ 4744}#
- #{r\ 4745}#
- #{w\ 4746}#
- #{m\ 4747}#
- #{esew\ 4748}#
- #{mod\ 4749}#)
+ (lambda (#{type\ 1477}#
+ #{value\ 1478}#
+ #{e\ 1479}#
+ #{w\ 1480}#
+ #{s\ 1481}#
+ #{mod\ 1482}#)
+ (#{chi-expr\ 333}#
+ #{type\ 1477}#
+ #{value\ 1478}#
+ #{e\ 1479}#
+ #{r\ 1470}#
+ #{w\ 1480}#
+ #{s\ 1481}#
+ #{mod\ 1482}#)))))
+ (#{chi-top\ 329}#
+ (lambda (#{e\ 1489}#
+ #{r\ 1490}#
+ #{w\ 1491}#
+ #{m\ 1492}#
+ #{esew\ 1493}#
+ #{mod\ 1494}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3582}#
- #{e\ 4744}#
- #{r\ 4745}#
- #{w\ 4746}#
- (#{source-annotation\ 3480}# #{e\ 4744}#)
+ (#{syntax-type\ 327}#
+ #{e\ 1489}#
+ #{r\ 1490}#
+ #{w\ 1491}#
+ (#{source-annotation\ 225}# #{e\ 1489}#)
#f
- #{mod\ 4749}#
+ #{mod\ 1494}#
#f))
- (lambda (#{type\ 4770}#
- #{value\ 4771}#
- #{e\ 4772}#
- #{w\ 4773}#
- #{s\ 4774}#
- #{mod\ 4775}#)
- (if (memv #{type\ 4770}# (quote (begin-form)))
- ((lambda (#{tmp\ 4783}#)
- ((lambda (#{tmp\ 4784}#)
- (if #{tmp\ 4784}#
- (apply (lambda (#{_\ 4786}#) (#{chi-void\ 3600}#))
- #{tmp\ 4784}#)
- ((lambda (#{tmp\ 4787}#)
- (if #{tmp\ 4787}#
- (apply (lambda (#{_\ 4791}#
- #{e1\ 4792}#
- #{e2\ 4793}#)
- (#{chi-top-sequence\ 3576}#
- (cons #{e1\ 4792}# #{e2\ 4793}#)
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
- #{m\ 4747}#
- #{esew\ 4748}#
- #{mod\ 4775}#))
- #{tmp\ 4787}#)
+ (lambda (#{type\ 1515}#
+ #{value\ 1516}#
+ #{e\ 1517}#
+ #{w\ 1518}#
+ #{s\ 1519}#
+ #{mod\ 1520}#)
+ (if (memv #{type\ 1515}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1528}#)
+ ((lambda (#{tmp\ 1529}#)
+ (if #{tmp\ 1529}#
+ (apply (lambda (#{_\ 1531}#) (#{chi-void\ 345}#))
+ #{tmp\ 1529}#)
+ ((lambda (#{tmp\ 1532}#)
+ (if #{tmp\ 1532}#
+ (apply (lambda (#{_\ 1536}#
+ #{e1\ 1537}#
+ #{e2\ 1538}#)
+ (#{chi-top-sequence\ 321}#
+ (cons #{e1\ 1537}# #{e2\ 1538}#)
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
+ #{m\ 1492}#
+ #{esew\ 1493}#
+ #{mod\ 1520}#))
+ #{tmp\ 1532}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4783}#)))
+ #{tmp\ 1528}#)))
($sc-dispatch
- #{tmp\ 4783}#
+ #{tmp\ 1528}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 4783}# (quote (any)))))
- #{e\ 4772}#)
- (if (memv #{type\ 4770}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 3596}#
- #{value\ 4771}#
- #{e\ 4772}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
- #{mod\ 4775}#
- (lambda (#{body\ 4796}#
- #{r\ 4797}#
- #{w\ 4798}#
- #{s\ 4799}#
- #{mod\ 4800}#)
- (#{chi-top-sequence\ 3576}#
- #{body\ 4796}#
- #{r\ 4797}#
- #{w\ 4798}#
- #{s\ 4799}#
- #{m\ 4747}#
- #{esew\ 4748}#
- #{mod\ 4800}#)))
- (if (memv #{type\ 4770}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 4807}#)
- ((lambda (#{tmp\ 4808}#)
- (if #{tmp\ 4808}#
- (apply (lambda (#{_\ 4813}#
- #{x\ 4814}#
- #{e1\ 4815}#
- #{e2\ 4816}#)
- (let ((#{when-list\ 4819}#
- (#{chi-when-list\ 3580}#
- #{e\ 4772}#
- #{x\ 4814}#
- #{w\ 4773}#))
- (#{body\ 4820}#
- (cons #{e1\ 4815}#
- #{e2\ 4816}#)))
- (if (eq? #{m\ 4747}# (quote e))
+ ($sc-dispatch #{tmp\ 1528}# (quote (any)))))
+ #{e\ 1517}#)
+ (if (memv #{type\ 1515}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 341}#
+ #{value\ 1516}#
+ #{e\ 1517}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
+ #{mod\ 1520}#
+ (lambda (#{body\ 1541}#
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{s\ 1544}#
+ #{mod\ 1545}#)
+ (#{chi-top-sequence\ 321}#
+ #{body\ 1541}#
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{s\ 1544}#
+ #{m\ 1492}#
+ #{esew\ 1493}#
+ #{mod\ 1545}#)))
+ (if (memv #{type\ 1515}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1552}#)
+ ((lambda (#{tmp\ 1553}#)
+ (if #{tmp\ 1553}#
+ (apply (lambda (#{_\ 1558}#
+ #{x\ 1559}#
+ #{e1\ 1560}#
+ #{e2\ 1561}#)
+ (let ((#{when-list\ 1564}#
+ (#{chi-when-list\ 325}#
+ #{e\ 1517}#
+ #{x\ 1559}#
+ #{w\ 1518}#))
+ (#{body\ 1565}#
+ (cons #{e1\ 1560}#
+ #{e2\ 1561}#)))
+ (if (eq? #{m\ 1492}# (quote e))
(if (memq 'eval
- #{when-list\ 4819}#)
- (#{chi-top-sequence\ 3576}#
- #{body\ 4820}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
+ #{when-list\ 1564}#)
+ (#{chi-top-sequence\ 321}#
+ #{body\ 1565}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
'e
'(eval)
- #{mod\ 4775}#)
- (#{chi-void\ 3600}#))
+ #{mod\ 1520}#)
+ (#{chi-void\ 345}#))
(if (memq 'load
- #{when-list\ 4819}#)
- (if (let ((#{t\ 4829}#
+ #{when-list\ 1564}#)
+ (if (let ((#{t\ 1574}#
(memq 'compile
- #{when-list\ 4819}#)))
- (if #{t\ 4829}#
- #{t\ 4829}#
- (if (eq? #{m\ 4747}#
+ #{when-list\ 1564}#)))
+ (if #{t\ 1574}#
+ #{t\ 1574}#
+ (if (eq? #{m\ 1492}#
'c&e)
(memq 'eval
- #{when-list\ 4819}#)
+ #{when-list\ 1564}#)
#f)))
- (#{chi-top-sequence\ 3576}#
- #{body\ 4820}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
+ (#{chi-top-sequence\ 321}#
+ #{body\ 1565}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
'c&e
'(compile load)
- #{mod\ 4775}#)
- (if (memq #{m\ 4747}#
+ #{mod\ 1520}#)
+ (if (memq #{m\ 1492}#
'(c c&e))
- (#{chi-top-sequence\ 3576}#
- #{body\ 4820}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
+ (#{chi-top-sequence\ 321}#
+ #{body\ 1565}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
'c
'(load)
- #{mod\ 4775}#)
- (#{chi-void\ 3600}#)))
- (if (let ((#{t\ 4837}#
+ #{mod\ 1520}#)
+ (#{chi-void\ 345}#)))
+ (if (let ((#{t\ 1582}#
(memq 'compile
- #{when-list\ 4819}#)))
- (if #{t\ 4837}#
- #{t\ 4837}#
- (if (eq? #{m\ 4747}#
+ #{when-list\ 1564}#)))
+ (if #{t\ 1582}#
+ #{t\ 1582}#
+ (if (eq? #{m\ 1492}#
'c&e)
(memq 'eval
- #{when-list\ 4819}#)
+ #{when-list\ 1564}#)
#f)))
(begin
- (#{top-level-eval-hook\ 3410}#
- (#{chi-top-sequence\ 3576}#
- #{body\ 4820}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
+ (#{top-level-eval-hook\ 155}#
+ (#{chi-top-sequence\ 321}#
+ #{body\ 1565}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
'e
'(eval)
- #{mod\ 4775}#)
- #{mod\ 4775}#)
- (#{chi-void\ 3600}#))
- (#{chi-void\ 3600}#))))))
- #{tmp\ 4808}#)
+ #{mod\ 1520}#)
+ #{mod\ 1520}#)
+ (#{chi-void\ 345}#))
+ (#{chi-void\ 345}#))))))
+ #{tmp\ 1553}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4807}#)))
+ #{tmp\ 1552}#)))
($sc-dispatch
- #{tmp\ 4807}#
+ #{tmp\ 1552}#
'(any each-any any . each-any))))
- #{e\ 4772}#)
- (if (memv #{type\ 4770}#
+ #{e\ 1517}#)
+ (if (memv #{type\ 1515}#
'(define-syntax-form))
- (let ((#{n\ 4845}#
- (#{id-var-name\ 3558}#
- #{value\ 4771}#
- #{w\ 4773}#))
- (#{r\ 4846}#
- (#{macros-only-env\ 3493}# #{r\ 4745}#)))
- (if (memv #{m\ 4747}# (quote (c)))
- (if (memq (quote compile) #{esew\ 4748}#)
- (let ((#{e\ 4849}#
- (#{chi-install-global\ 3578}#
- #{n\ 4845}#
- (#{chi\ 3586}#
- #{e\ 4772}#
- #{r\ 4846}#
- #{w\ 4773}#
- #{mod\ 4775}#))))
+ (let ((#{n\ 1590}#
+ (#{id-var-name\ 303}#
+ #{value\ 1516}#
+ #{w\ 1518}#))
+ (#{r\ 1591}#
+ (#{macros-only-env\ 238}# #{r\ 1490}#)))
+ (if (memv #{m\ 1492}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1493}#)
+ (let ((#{e\ 1594}#
+ (#{chi-install-global\ 323}#
+ #{n\ 1590}#
+ (#{chi\ 331}#
+ #{e\ 1517}#
+ #{r\ 1591}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))))
(begin
- (#{top-level-eval-hook\ 3410}#
- #{e\ 4849}#
- #{mod\ 4775}#)
- (if (memq (quote load) #{esew\ 4748}#)
- #{e\ 4849}#
- (#{chi-void\ 3600}#))))
- (if (memq (quote load) #{esew\ 4748}#)
- (#{chi-install-global\ 3578}#
- #{n\ 4845}#
- (#{chi\ 3586}#
- #{e\ 4772}#
- #{r\ 4846}#
- #{w\ 4773}#
- #{mod\ 4775}#))
- (#{chi-void\ 3600}#)))
- (if (memv #{m\ 4747}# (quote (c&e)))
- (let ((#{e\ 4852}#
- (#{chi-install-global\ 3578}#
- #{n\ 4845}#
- (#{chi\ 3586}#
- #{e\ 4772}#
- #{r\ 4846}#
- #{w\ 4773}#
- #{mod\ 4775}#))))
+ (#{top-level-eval-hook\ 155}#
+ #{e\ 1594}#
+ #{mod\ 1520}#)
+ (if (memq (quote load) #{esew\ 1493}#)
+ #{e\ 1594}#
+ (#{chi-void\ 345}#))))
+ (if (memq (quote load) #{esew\ 1493}#)
+ (#{chi-install-global\ 323}#
+ #{n\ 1590}#
+ (#{chi\ 331}#
+ #{e\ 1517}#
+ #{r\ 1591}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))
+ (#{chi-void\ 345}#)))
+ (if (memv #{m\ 1492}# (quote (c&e)))
+ (let ((#{e\ 1597}#
+ (#{chi-install-global\ 323}#
+ #{n\ 1590}#
+ (#{chi\ 331}#
+ #{e\ 1517}#
+ #{r\ 1591}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))))
(begin
- (#{top-level-eval-hook\ 3410}#
- #{e\ 4852}#
- #{mod\ 4775}#)
- #{e\ 4852}#))
+ (#{top-level-eval-hook\ 155}#
+ #{e\ 1597}#
+ #{mod\ 1520}#)
+ #{e\ 1597}#))
(begin
- (if (memq (quote eval) #{esew\ 4748}#)
- (#{top-level-eval-hook\ 3410}#
- (#{chi-install-global\ 3578}#
- #{n\ 4845}#
- (#{chi\ 3586}#
- #{e\ 4772}#
- #{r\ 4846}#
- #{w\ 4773}#
- #{mod\ 4775}#))
- #{mod\ 4775}#))
- (#{chi-void\ 3600}#)))))
- (if (memv #{type\ 4770}# (quote (define-form)))
- (let ((#{n\ 4857}#
- (#{id-var-name\ 3558}#
- #{value\ 4771}#
- #{w\ 4773}#)))
- (let ((#{type\ 4859}#
- (#{binding-type\ 3484}#
- (#{lookup\ 3495}#
- #{n\ 4857}#
- #{r\ 4745}#
- #{mod\ 4775}#))))
- (if (memv #{type\ 4859}#
+ (if (memq (quote eval) #{esew\ 1493}#)
+ (#{top-level-eval-hook\ 155}#
+ (#{chi-install-global\ 323}#
+ #{n\ 1590}#
+ (#{chi\ 331}#
+ #{e\ 1517}#
+ #{r\ 1591}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))
+ #{mod\ 1520}#))
+ (#{chi-void\ 345}#)))))
+ (if (memv #{type\ 1515}# (quote (define-form)))
+ (let ((#{n\ 1602}#
+ (#{id-var-name\ 303}#
+ #{value\ 1516}#
+ #{w\ 1518}#)))
+ (let ((#{type\ 1604}#
+ (#{binding-type\ 229}#
+ (#{lookup\ 240}#
+ #{n\ 1602}#
+ #{r\ 1490}#
+ #{mod\ 1520}#))))
+ (if (memv #{type\ 1604}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 4857}#))
+ #{n\ 1602}#))
(current-module)
#f)
- (let ((#{old\ 4864}#
+ (let ((#{old\ 1609}#
(module-variable
(current-module)
- #{n\ 4857}#)))
+ #{n\ 1602}#)))
(module-define!
(current-module)
- #{n\ 4857}#
- (if (variable? #{old\ 4864}#)
- (variable-ref #{old\ 4864}#)
+ #{n\ 1602}#
+ (if (variable? #{old\ 1609}#)
+ (variable-ref #{old\ 1609}#)
#f))))
- (let ((#{x\ 4867}#
- (#{build-global-definition\ 3441}#
- #{s\ 4774}#
- #{n\ 4857}#
- (#{chi\ 3586}#
- #{e\ 4772}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{mod\ 4775}#))))
+ (let ((#{x\ 1612}#
+ (#{build-global-definition\ 186}#
+ #{s\ 1519}#
+ #{n\ 1602}#
+ (#{chi\ 331}#
+ #{e\ 1517}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))))
(begin
- (if (eq? #{m\ 4747}# (quote c&e))
- (#{top-level-eval-hook\ 3410}#
- #{x\ 4867}#
- #{mod\ 4775}#))
- #{x\ 4867}#)))
- (if (memv #{type\ 4859}#
+ (if (eq? #{m\ 1492}# (quote c&e))
+ (#{top-level-eval-hook\ 155}#
+ #{x\ 1612}#
+ #{mod\ 1520}#))
+ #{x\ 1612}#)))
+ (if (memv #{type\ 1604}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 4772}#
- (#{wrap\ 3570}#
- #{value\ 4771}#
- #{w\ 4773}#
- #{mod\ 4775}#))
+ #{e\ 1517}#
+ (#{wrap\ 315}#
+ #{value\ 1516}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 4772}#
- (#{wrap\ 3570}#
- #{value\ 4771}#
- #{w\ 4773}#
- #{mod\ 4775}#))))))
- (let ((#{x\ 4873}#
- (#{chi-expr\ 3588}#
- #{type\ 4770}#
- #{value\ 4771}#
- #{e\ 4772}#
- #{r\ 4745}#
- #{w\ 4773}#
- #{s\ 4774}#
- #{mod\ 4775}#)))
+ #{e\ 1517}#
+ (#{wrap\ 315}#
+ #{value\ 1516}#
+ #{w\ 1518}#
+ #{mod\ 1520}#))))))
+ (let ((#{x\ 1618}#
+ (#{chi-expr\ 333}#
+ #{type\ 1515}#
+ #{value\ 1516}#
+ #{e\ 1517}#
+ #{r\ 1490}#
+ #{w\ 1518}#
+ #{s\ 1519}#
+ #{mod\ 1520}#)))
(begin
- (if (eq? #{m\ 4747}# (quote c&e))
- (#{top-level-eval-hook\ 3410}#
- #{x\ 4873}#
- #{mod\ 4775}#))
- #{x\ 4873}#)))))))))))
- (#{syntax-type\ 3582}#
- (lambda (#{e\ 4874}#
- #{r\ 4875}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{rib\ 4878}#
- #{mod\ 4879}#
- #{for-car?\ 4880}#)
- (if (symbol? #{e\ 4874}#)
- (let ((#{n\ 4892}#
- (#{id-var-name\ 3558}# #{e\ 4874}# #{w\ 4876}#)))
- (let ((#{b\ 4894}#
- (#{lookup\ 3495}#
- #{n\ 4892}#
- #{r\ 4875}#
- #{mod\ 4879}#)))
- (let ((#{type\ 4896}#
- (#{binding-type\ 3484}# #{b\ 4894}#)))
- (if (memv #{type\ 4896}# (quote (lexical)))
+ (if (eq? #{m\ 1492}# (quote c&e))
+ (#{top-level-eval-hook\ 155}#
+ #{x\ 1618}#
+ #{mod\ 1520}#))
+ #{x\ 1618}#)))))))))))
+ (#{syntax-type\ 327}#
+ (lambda (#{e\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#
+ #{for-car?\ 1625}#)
+ (if (symbol? #{e\ 1619}#)
+ (let ((#{n\ 1637}#
+ (#{id-var-name\ 303}# #{e\ 1619}# #{w\ 1621}#)))
+ (let ((#{b\ 1639}#
+ (#{lookup\ 240}#
+ #{n\ 1637}#
+ #{r\ 1620}#
+ #{mod\ 1624}#)))
+ (let ((#{type\ 1641}#
+ (#{binding-type\ 229}# #{b\ 1639}#)))
+ (if (memv #{type\ 1641}# (quote (lexical)))
(values
- #{type\ 4896}#
- (#{binding-value\ 3486}# #{b\ 4894}#)
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{type\ 4896}# (quote (global)))
+ #{type\ 1641}#
+ (#{binding-value\ 231}# #{b\ 1639}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{type\ 1641}# (quote (global)))
(values
- #{type\ 4896}#
- #{n\ 4892}#
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{type\ 4896}# (quote (macro)))
- (if #{for-car?\ 4880}#
+ #{type\ 1641}#
+ #{n\ 1637}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{type\ 1641}# (quote (macro)))
+ (if #{for-car?\ 1625}#
(values
- #{type\ 4896}#
- (#{binding-value\ 3486}# #{b\ 4894}#)
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (#{syntax-type\ 3582}#
- (#{chi-macro\ 3592}#
- (#{binding-value\ 3486}# #{b\ 4894}#)
- #{e\ 4874}#
- #{r\ 4875}#
- #{w\ 4876}#
- #{rib\ 4878}#
- #{mod\ 4879}#)
- #{r\ 4875}#
+ #{type\ 1641}#
+ (#{binding-value\ 231}# #{b\ 1639}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (#{syntax-type\ 327}#
+ (#{chi-macro\ 337}#
+ (#{binding-value\ 231}# #{b\ 1639}#)
+ #{e\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#)
+ #{r\ 1620}#
'(())
- #{s\ 4877}#
- #{rib\ 4878}#
- #{mod\ 4879}#
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#
#f))
(values
- #{type\ 4896}#
- (#{binding-value\ 3486}# #{b\ 4894}#)
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)))))))
- (if (pair? #{e\ 4874}#)
- (let ((#{first\ 4905}# (car #{e\ 4874}#)))
+ #{type\ 1641}#
+ (#{binding-value\ 231}# #{b\ 1639}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)))))))
+ (if (pair? #{e\ 1619}#)
+ (let ((#{first\ 1650}# (car #{e\ 1619}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 3582}#
- #{first\ 4905}#
- #{r\ 4875}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{rib\ 4878}#
- #{mod\ 4879}#
+ (#{syntax-type\ 327}#
+ #{first\ 1650}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#
#t))
- (lambda (#{ftype\ 4906}#
- #{fval\ 4907}#
- #{fe\ 4908}#
- #{fw\ 4909}#
- #{fs\ 4910}#
- #{fmod\ 4911}#)
- (if (memv #{ftype\ 4906}# (quote (lexical)))
+ (lambda (#{ftype\ 1651}#
+ #{fval\ 1652}#
+ #{fe\ 1653}#
+ #{fw\ 1654}#
+ #{fs\ 1655}#
+ #{fmod\ 1656}#)
+ (if (memv #{ftype\ 1651}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 4907}#
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}# (quote (global)))
+ #{fval\ 1652}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 3463}#
- #{fval\ 4907}#
- #{w\ 4876}#
- #{fmod\ 4911}#)
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}# (quote (macro)))
- (#{syntax-type\ 3582}#
- (#{chi-macro\ 3592}#
- #{fval\ 4907}#
- #{e\ 4874}#
- #{r\ 4875}#
- #{w\ 4876}#
- #{rib\ 4878}#
- #{mod\ 4879}#)
- #{r\ 4875}#
+ (#{make-syntax-object\ 208}#
+ #{fval\ 1652}#
+ #{w\ 1621}#
+ #{fmod\ 1656}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}# (quote (macro)))
+ (#{syntax-type\ 327}#
+ (#{chi-macro\ 337}#
+ #{fval\ 1652}#
+ #{e\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#)
+ #{r\ 1620}#
'(())
- #{s\ 4877}#
- #{rib\ 4878}#
- #{mod\ 4879}#
- #{for-car?\ 4880}#)
- (if (memv #{ftype\ 4906}# (quote (module-ref)))
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ #{mod\ 1624}#
+ #{for-car?\ 1625}#)
+ (if (memv #{ftype\ 1651}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 4907}# #{e\ 4874}#))
- (lambda (#{sym\ 4923}# #{mod\ 4924}#)
- (#{syntax-type\ 3582}#
- #{sym\ 4923}#
- #{r\ 4875}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{rib\ 4878}#
- #{mod\ 4924}#
- #{for-car?\ 4880}#)))
- (if (memv #{ftype\ 4906}# (quote (core)))
+ (lambda () (#{fval\ 1652}# #{e\ 1619}#))
+ (lambda (#{sym\ 1668}# #{mod\ 1669}#)
+ (#{syntax-type\ 327}#
+ #{sym\ 1668}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ #{mod\ 1669}#
+ #{for-car?\ 1625}#)))
+ (if (memv #{ftype\ 1651}# (quote (core)))
(values
'core-form
- #{fval\ 4907}#
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}#
+ #{fval\ 1652}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 4907}#
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}# (quote (begin)))
+ #{fval\ 1652}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
- (if (memv #{ftype\ 4906}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
+ (if (memv #{ftype\ 1651}#
'(define))
- ((lambda (#{tmp\ 4932}#)
- ((lambda (#{tmp\ 4933}#)
- (if (if #{tmp\ 4933}#
- (apply (lambda (#{_\ 4937}#
- #{name\ 4938}#
- #{val\ 4939}#)
- (#{id?\ 3501}#
- #{name\ 4938}#))
- #{tmp\ 4933}#)
+ ((lambda (#{tmp\ 1677}#)
+ ((lambda (#{tmp\ 1678}#)
+ (if (if #{tmp\ 1678}#
+ (apply (lambda (#{_\ 1682}#
+ #{name\ 1683}#
+ #{val\ 1684}#)
+ (#{id?\ 246}#
+ #{name\ 1683}#))
+ #{tmp\ 1678}#)
#f)
- (apply (lambda (#{_\ 4943}#
- #{name\ 4944}#
- #{val\ 4945}#)
+ (apply (lambda (#{_\ 1688}#
+ #{name\ 1689}#
+ #{val\ 1690}#)
(values
'define-form
- #{name\ 4944}#
- #{val\ 4945}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#))
- #{tmp\ 4933}#)
- ((lambda (#{tmp\ 4946}#)
- (if (if #{tmp\ 4946}#
- (apply (lambda (#{_\ 4952}#
- #{name\ 4953}#
- #{args\ 4954}#
- #{e1\ 4955}#
- #{e2\ 4956}#)
- (if (#{id?\ 3501}#
- #{name\ 4953}#)
- (#{valid-bound-ids?\ 3564}#
- (#{lambda-var-list\ 3616}#
- #{args\ 4954}#))
+ #{name\ 1689}#
+ #{val\ 1690}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#))
+ #{tmp\ 1678}#)
+ ((lambda (#{tmp\ 1691}#)
+ (if (if #{tmp\ 1691}#
+ (apply (lambda (#{_\ 1697}#
+ #{name\ 1698}#
+ #{args\ 1699}#
+ #{e1\ 1700}#
+ #{e2\ 1701}#)
+ (if (#{id?\ 246}#
+ #{name\ 1698}#)
+ (#{valid-bound-ids?\ 309}#
+ (#{lambda-var-list\ 361}#
+ #{args\ 1699}#))
#f))
- #{tmp\ 4946}#)
+ #{tmp\ 1691}#)
#f)
- (apply (lambda (#{_\ 4964}#
- #{name\ 4965}#
- #{args\ 4966}#
- #{e1\ 4967}#
- #{e2\ 4968}#)
+ (apply (lambda (#{_\ 1709}#
+ #{name\ 1710}#
+ #{args\ 1711}#
+ #{e1\ 1712}#
+ #{e2\ 1713}#)
(values
'define-form
- (#{wrap\ 3570}#
- #{name\ 4965}#
- #{w\ 4876}#
- #{mod\ 4879}#)
- (#{decorate-source\ 3419}#
+ (#{wrap\ 315}#
+ #{name\ 1710}#
+ #{w\ 1621}#
+ #{mod\ 1624}#)
+ (#{decorate-source\ 164}#
(cons '#(syntax-object
lambda
((top)
@@ -3578,11 +3570,11 @@
(top)
(top)
(top))
- #("i4959"
- "i4960"
- "i4961"
- "i4962"
- "i4963"))
+ #("i1704"
+ "i1705"
+ "i1706"
+ "i1707"
+ "i1708"))
#(ribcage
()
()
@@ -3604,12 +3596,12 @@
(top)
(top)
(top))
- #("i4912"
- "i4913"
- "i4914"
- "i4915"
- "i4916"
- "i4917"))
+ #("i1657"
+ "i1658"
+ "i1659"
+ "i1660"
+ "i1661"
+ "i1662"))
#(ribcage
()
()
@@ -3617,7 +3609,7 @@
#(ribcage
#(first)
#((top))
- #("i4904"))
+ #("i1649"))
#(ribcage
()
()
@@ -3645,13 +3637,13 @@
(top)
(top)
(top))
- #("i4881"
- "i4882"
- "i4883"
- "i4884"
- "i4885"
- "i4886"
- "i4887"))
+ #("i1626"
+ "i1627"
+ "i1628"
+ "i1629"
+ "i1630"
+ "i1631"
+ "i1632"))
#(ribcage
(lambda-var-list
gen-var
@@ -3889,160 +3881,160 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile))
- (#{wrap\ 3570}#
- (cons #{args\ 4966}#
- (cons #{e1\ 4967}#
- #{e2\ 4968}#))
- #{w\ 4876}#
- #{mod\ 4879}#))
- #{s\ 4877}#)
+ (#{wrap\ 315}#
+ (cons #{args\ 1711}#
+ (cons #{e1\ 1712}#
+ #{e2\ 1713}#))
+ #{w\ 1621}#
+ #{mod\ 1624}#))
+ #{s\ 1622}#)
'(())
- #{s\ 4877}#
- #{mod\ 4879}#))
- #{tmp\ 4946}#)
- ((lambda (#{tmp\ 4971}#)
- (if (if #{tmp\ 4971}#
- (apply (lambda (#{_\ 4974}#
- #{name\ 4975}#)
- (#{id?\ 3501}#
- #{name\ 4975}#))
- #{tmp\ 4971}#)
+ #{s\ 1622}#
+ #{mod\ 1624}#))
+ #{tmp\ 1691}#)
+ ((lambda (#{tmp\ 1716}#)
+ (if (if #{tmp\ 1716}#
+ (apply (lambda (#{_\ 1719}#
+ #{name\ 1720}#)
+ (#{id?\ 246}#
+ #{name\ 1720}#))
+ #{tmp\ 1716}#)
#f)
- (apply (lambda (#{_\ 4978}#
- #{name\ 4979}#)
+ (apply (lambda (#{_\ 1723}#
+ #{name\ 1724}#)
(values
'define-form
- (#{wrap\ 3570}#
- #{name\ 4979}#
- #{w\ 4876}#
- #{mod\ 4879}#)
+ (#{wrap\ 315}#
+ #{name\ 1724}#
+ #{w\ 1621}#
+ #{mod\ 1624}#)
'(#(syntax-object
if
((top)
@@ -4051,8 +4043,8 @@
name)
#((top)
(top))
- #("i4976"
- "i4977"))
+ #("i1721"
+ "i1722"))
#(ribcage
()
()
@@ -4074,12 +4066,12 @@
(top)
(top)
(top))
- #("i4912"
- "i4913"
- "i4914"
- "i4915"
- "i4916"
- "i4917"))
+ #("i1657"
+ "i1658"
+ "i1659"
+ "i1660"
+ "i1661"
+ "i1662"))
#(ribcage
()
()
@@ -4087,7 +4079,7 @@
#(ribcage
#(first)
#((top))
- #("i4904"))
+ #("i1649"))
#(ribcage
()
()
@@ -4115,13 +4107,13 @@
(top)
(top)
(top))
- #("i4881"
- "i4882"
- "i4883"
- "i4884"
- "i4885"
- "i4886"
- "i4887"))
+ #("i1626"
+ "i1627"
+ "i1628"
+ "i1629"
+ "i1630"
+ "i1631"
+ "i1632"))
#(ribcage
(lambda-var-list
gen-var
@@ -4359,131 +4351,131 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile))
#(syntax-object
@@ -4494,8 +4486,8 @@
name)
#((top)
(top))
- #("i4976"
- "i4977"))
+ #("i1721"
+ "i1722"))
#(ribcage
()
()
@@ -4517,12 +4509,12 @@
(top)
(top)
(top))
- #("i4912"
- "i4913"
- "i4914"
- "i4915"
- "i4916"
- "i4917"))
+ #("i1657"
+ "i1658"
+ "i1659"
+ "i1660"
+ "i1661"
+ "i1662"))
#(ribcage
()
()
@@ -4530,7 +4522,7 @@
#(ribcage
#(first)
#((top))
- #("i4904"))
+ #("i1649"))
#(ribcage
()
()
@@ -4558,13 +4550,13 @@
(top)
(top)
(top))
- #("i4881"
- "i4882"
- "i4883"
- "i4884"
- "i4885"
- "i4886"
- "i4887"))
+ #("i1626"
+ "i1627"
+ "i1628"
+ "i1629"
+ "i1630"
+ "i1631"
+ "i1632"))
#(ribcage
(lambda-var-list
gen-var
@@ -4802,131 +4794,131 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile))
#(syntax-object
@@ -4937,8 +4929,8 @@
name)
#((top)
(top))
- #("i4976"
- "i4977"))
+ #("i1721"
+ "i1722"))
#(ribcage
()
()
@@ -4960,12 +4952,12 @@
(top)
(top)
(top))
- #("i4912"
- "i4913"
- "i4914"
- "i4915"
- "i4916"
- "i4917"))
+ #("i1657"
+ "i1658"
+ "i1659"
+ "i1660"
+ "i1661"
+ "i1662"))
#(ribcage
()
()
@@ -4973,7 +4965,7 @@
#(ribcage
#(first)
#((top))
- #("i4904"))
+ #("i1649"))
#(ribcage
()
()
@@ -5001,13 +4993,13 @@
(top)
(top)
(top))
- #("i4881"
- "i4882"
- "i4883"
- "i4884"
- "i4885"
- "i4886"
- "i4887"))
+ #("i1626"
+ "i1627"
+ "i1628"
+ "i1629"
+ "i1630"
+ "i1631"
+ "i1632"))
#(ribcage
(lambda-var-list
gen-var
@@ -5245,232 +5237,232 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i3300"
- "i3298")))
+ ("i45"
+ "i43")))
(hygiene
guile)))
'(())
- #{s\ 4877}#
- #{mod\ 4879}#))
- #{tmp\ 4971}#)
+ #{s\ 1622}#
+ #{mod\ 1624}#))
+ #{tmp\ 1716}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4932}#)))
+ #{tmp\ 1677}#)))
($sc-dispatch
- #{tmp\ 4932}#
+ #{tmp\ 1677}#
'(any any)))))
($sc-dispatch
- #{tmp\ 4932}#
+ #{tmp\ 1677}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4932}#
+ #{tmp\ 1677}#
'(any any any))))
- #{e\ 4874}#)
- (if (memv #{ftype\ 4906}#
+ #{e\ 1619}#)
+ (if (memv #{ftype\ 1651}#
'(define-syntax))
- ((lambda (#{tmp\ 4982}#)
- ((lambda (#{tmp\ 4983}#)
- (if (if #{tmp\ 4983}#
- (apply (lambda (#{_\ 4987}#
- #{name\ 4988}#
- #{val\ 4989}#)
- (#{id?\ 3501}#
- #{name\ 4988}#))
- #{tmp\ 4983}#)
+ ((lambda (#{tmp\ 1727}#)
+ ((lambda (#{tmp\ 1728}#)
+ (if (if #{tmp\ 1728}#
+ (apply (lambda (#{_\ 1732}#
+ #{name\ 1733}#
+ #{val\ 1734}#)
+ (#{id?\ 246}#
+ #{name\ 1733}#))
+ #{tmp\ 1728}#)
#f)
- (apply (lambda (#{_\ 4993}#
- #{name\ 4994}#
- #{val\ 4995}#)
+ (apply (lambda (#{_\ 1738}#
+ #{name\ 1739}#
+ #{val\ 1740}#)
(values
'define-syntax-form
- #{name\ 4994}#
- #{val\ 4995}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#))
- #{tmp\ 4983}#)
+ #{name\ 1739}#
+ #{val\ 1740}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#))
+ #{tmp\ 1728}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4982}#)))
+ #{tmp\ 1727}#)))
($sc-dispatch
- #{tmp\ 4982}#
+ #{tmp\ 1727}#
'(any any any))))
- #{e\ 4874}#)
+ #{e\ 1619}#)
(values
'call
#f
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#))))))))))))))
- (if (#{syntax-object?\ 3465}# #{e\ 4874}#)
- (#{syntax-type\ 3582}#
- (#{syntax-object-expression\ 3467}# #{e\ 4874}#)
- #{r\ 4875}#
- (#{join-wraps\ 3552}#
- #{w\ 4876}#
- (#{syntax-object-wrap\ 3469}# #{e\ 4874}#))
- #{s\ 4877}#
- #{rib\ 4878}#
- (let ((#{t\ 5001}#
- (#{syntax-object-module\ 3471}# #{e\ 4874}#)))
- (if #{t\ 5001}# #{t\ 5001}# #{mod\ 4879}#))
- #{for-car?\ 4880}#)
- (if (self-evaluating? #{e\ 4874}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#))))))))))))))
+ (if (#{syntax-object?\ 210}# #{e\ 1619}#)
+ (#{syntax-type\ 327}#
+ (#{syntax-object-expression\ 212}# #{e\ 1619}#)
+ #{r\ 1620}#
+ (#{join-wraps\ 297}#
+ #{w\ 1621}#
+ (#{syntax-object-wrap\ 214}# #{e\ 1619}#))
+ #{s\ 1622}#
+ #{rib\ 1623}#
+ (let ((#{t\ 1746}#
+ (#{syntax-object-module\ 216}# #{e\ 1619}#)))
+ (if #{t\ 1746}# #{t\ 1746}# #{mod\ 1624}#))
+ #{for-car?\ 1625}#)
+ (if (self-evaluating? #{e\ 1619}#)
(values
'constant
#f
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)
(values
'other
#f
- #{e\ 4874}#
- #{w\ 4876}#
- #{s\ 4877}#
- #{mod\ 4879}#)))))))
- (#{chi-when-list\ 3580}#
- (lambda (#{e\ 5006}# #{when-list\ 5007}# #{w\ 5008}#)
- (letrec ((#{f\ 5015}#
- (lambda (#{when-list\ 5016}# #{situations\ 5017}#)
- (if (null? #{when-list\ 5016}#)
- #{situations\ 5017}#
- (#{f\ 5015}#
- (cdr #{when-list\ 5016}#)
- (cons (let ((#{x\ 5019}#
- (car #{when-list\ 5016}#)))
- (if (#{free-id=?\ 3560}#
- #{x\ 5019}#
+ #{e\ 1619}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1624}#)))))))
+ (#{chi-when-list\ 325}#
+ (lambda (#{e\ 1751}# #{when-list\ 1752}# #{w\ 1753}#)
+ (letrec ((#{f\ 1760}#
+ (lambda (#{when-list\ 1761}# #{situations\ 1762}#)
+ (if (null? #{when-list\ 1761}#)
+ #{situations\ 1762}#
+ (#{f\ 1760}#
+ (cdr #{when-list\ 1761}#)
+ (cons (let ((#{x\ 1764}#
+ (car #{when-list\ 1761}#)))
+ (if (#{free-id=?\ 305}#
+ #{x\ 1764}#
'#(syntax-object
compile
((top)
@@ -5480,17 +5472,17 @@
#(ribcage
#(x)
#((top))
- #("i5018"))
+ #("i1763"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i5012" "i5013" "i5014"))
+ #("i1757" "i1758" "i1759"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i5009" "i5010" "i5011"))
+ #("i1754" "i1755" "i1756"))
#(ribcage
(lambda-var-list
gen-var
@@ -5728,132 +5720,132 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 3560}#
- #{x\ 5019}#
+ (if (#{free-id=?\ 305}#
+ #{x\ 1764}#
'#(syntax-object
load
((top)
@@ -5863,21 +5855,21 @@
#(ribcage
#(x)
#((top))
- #("i5018"))
+ #("i1763"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i5012"
- "i5013"
- "i5014"))
+ #("i1757"
+ "i1758"
+ "i1759"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i5009"
- "i5010"
- "i5011"))
+ #("i1754"
+ "i1755"
+ "i1756"))
#(ribcage
(lambda-var-list
gen-var
@@ -6115,133 +6107,133 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 3560}#
- #{x\ 5019}#
+ (if (#{free-id=?\ 305}#
+ #{x\ 1764}#
'#(syntax-object
eval
((top)
@@ -6251,23 +6243,23 @@
#(ribcage
#(x)
#((top))
- #("i5018"))
+ #("i1763"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i5012"
- "i5013"
- "i5014"))
+ #("i1757"
+ "i1758"
+ "i1759"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i5009"
- "i5010"
- "i5011"))
+ #("i1754"
+ "i1755"
+ "i1756"))
#(ribcage
(lambda-var-list
gen-var
@@ -6505,1020 +6497,1016 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile)))
'eval
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 5006}#
- (#{wrap\ 3570}#
- #{x\ 5019}#
- #{w\ 5008}#
+ #{e\ 1751}#
+ (#{wrap\ 315}#
+ #{x\ 1764}#
+ #{w\ 1753}#
#f))))))
- #{situations\ 5017}#))))))
- (#{f\ 5015}# #{when-list\ 5007}# (quote ())))))
- (#{chi-install-global\ 3578}#
- (lambda (#{name\ 5027}# #{e\ 5028}#)
- (#{build-global-definition\ 3441}#
+ #{situations\ 1762}#))))))
+ (#{f\ 1760}# #{when-list\ 1752}# (quote ())))))
+ (#{chi-install-global\ 323}#
+ (lambda (#{name\ 1772}# #{e\ 1773}#)
+ (#{build-global-definition\ 186}#
#f
- #{name\ 5027}#
- (#{build-application\ 3423}#
+ #{name\ 1772}#
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 3451}# #f #{name\ 5027}#)
- (#{build-data\ 3451}# #f (quote macro))
- (#{build-application\ 3423}#
+ (list (#{build-data\ 196}# #f #{name\ 1772}#)
+ (#{build-data\ 196}# #f (quote macro))
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}# #f (quote cons))
- (list #{e\ 5028}#
- (#{build-application\ 3423}#
+ (#{build-primref\ 194}# #f (quote cons))
+ (list #{e\ 1773}#
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'module-name)
- (list (#{build-application\ 3423}#
+ (list (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 3576}#
- (lambda (#{body\ 5042}#
- #{r\ 5043}#
- #{w\ 5044}#
- #{s\ 5045}#
- #{m\ 5046}#
- #{esew\ 5047}#
- #{mod\ 5048}#)
- (#{build-sequence\ 3453}#
- #{s\ 5045}#
- (letrec ((#{dobody\ 5065}#
- (lambda (#{body\ 5066}#
- #{r\ 5067}#
- #{w\ 5068}#
- #{m\ 5069}#
- #{esew\ 5070}#
- #{mod\ 5071}#
- #{module\ 5072}#
- #{out\ 5073}#)
- (if (null? #{body\ 5066}#)
- (reverse #{out\ 5073}#)
- (let ((#{first\ 5076}#
- (#{chi-top\ 3584}#
- (car #{body\ 5066}#)
- #{r\ 5067}#
- #{w\ 5068}#
- #{m\ 5069}#
- #{esew\ 5070}#
- #{mod\ 5071}#)))
- (let ((#{new-module\ 5078}#
+ (#{chi-top-sequence\ 321}#
+ (lambda (#{body\ 1787}#
+ #{r\ 1788}#
+ #{w\ 1789}#
+ #{s\ 1790}#
+ #{m\ 1791}#
+ #{esew\ 1792}#
+ #{mod\ 1793}#)
+ (#{build-sequence\ 198}#
+ #{s\ 1790}#
+ (letrec ((#{dobody\ 1810}#
+ (lambda (#{body\ 1811}#
+ #{r\ 1812}#
+ #{w\ 1813}#
+ #{m\ 1814}#
+ #{esew\ 1815}#
+ #{mod\ 1816}#
+ #{module\ 1817}#
+ #{out\ 1818}#)
+ (if (null? #{body\ 1811}#)
+ (reverse #{out\ 1818}#)
+ (let ((#{first\ 1821}#
+ (#{chi-top\ 329}#
+ (car #{body\ 1811}#)
+ #{r\ 1812}#
+ #{w\ 1813}#
+ #{m\ 1814}#
+ #{esew\ 1815}#
+ #{mod\ 1816}#)))
+ (let ((#{new-module\ 1823}#
(current-module)))
- (#{dobody\ 5065}#
- (cdr #{body\ 5066}#)
- #{r\ 5067}#
- #{w\ 5068}#
- #{m\ 5069}#
- #{esew\ 5070}#
- (if (eq? #{module\ 5072}#
- #{new-module\ 5078}#)
- #{mod\ 5071}#
+ (#{dobody\ 1810}#
+ (cdr #{body\ 1811}#)
+ #{r\ 1812}#
+ #{w\ 1813}#
+ #{m\ 1814}#
+ #{esew\ 1815}#
+ (if (eq? #{module\ 1817}#
+ #{new-module\ 1823}#)
+ #{mod\ 1816}#
(cons 'hygiene
(module-name
- #{new-module\ 5078}#)))
- #{new-module\ 5078}#
- (cons #{first\ 5076}#
- #{out\ 5073}#))))))))
- (#{dobody\ 5065}#
- #{body\ 5042}#
- #{r\ 5043}#
- #{w\ 5044}#
- #{m\ 5046}#
- #{esew\ 5047}#
- #{mod\ 5048}#
+ #{new-module\ 1823}#)))
+ #{new-module\ 1823}#
+ (cons #{first\ 1821}#
+ #{out\ 1818}#))))))))
+ (#{dobody\ 1810}#
+ #{body\ 1787}#
+ #{r\ 1788}#
+ #{w\ 1789}#
+ #{m\ 1791}#
+ #{esew\ 1792}#
+ #{mod\ 1793}#
(current-module)
'())))))
- (#{chi-sequence\ 3574}#
- (lambda (#{body\ 5079}#
- #{r\ 5080}#
- #{w\ 5081}#
- #{s\ 5082}#
- #{mod\ 5083}#)
- (#{build-sequence\ 3453}#
- #{s\ 5082}#
- (letrec ((#{dobody\ 5094}#
- (lambda (#{body\ 5095}#
- #{r\ 5096}#
- #{w\ 5097}#
- #{mod\ 5098}#)
- (if (null? #{body\ 5095}#)
+ (#{chi-sequence\ 319}#
+ (lambda (#{body\ 1824}#
+ #{r\ 1825}#
+ #{w\ 1826}#
+ #{s\ 1827}#
+ #{mod\ 1828}#)
+ (#{build-sequence\ 198}#
+ #{s\ 1827}#
+ (letrec ((#{dobody\ 1839}#
+ (lambda (#{body\ 1840}#
+ #{r\ 1841}#
+ #{w\ 1842}#
+ #{mod\ 1843}#)
+ (if (null? #{body\ 1840}#)
'()
- (let ((#{first\ 5100}#
- (#{chi\ 3586}#
- (car #{body\ 5095}#)
- #{r\ 5096}#
- #{w\ 5097}#
- #{mod\ 5098}#)))
- (cons #{first\ 5100}#
- (#{dobody\ 5094}#
- (cdr #{body\ 5095}#)
- #{r\ 5096}#
- #{w\ 5097}#
- #{mod\ 5098}#)))))))
- (#{dobody\ 5094}#
- #{body\ 5079}#
- #{r\ 5080}#
- #{w\ 5081}#
- #{mod\ 5083}#)))))
- (#{source-wrap\ 3572}#
- (lambda (#{x\ 5101}#
- #{w\ 5102}#
- #{s\ 5103}#
- #{defmod\ 5104}#)
- (#{wrap\ 3570}#
- (#{decorate-source\ 3419}#
- #{x\ 5101}#
- #{s\ 5103}#)
- #{w\ 5102}#
- #{defmod\ 5104}#)))
- (#{wrap\ 3570}#
- (lambda (#{x\ 5109}# #{w\ 5110}# #{defmod\ 5111}#)
- (if (if (null? (#{wrap-marks\ 3508}# #{w\ 5110}#))
- (null? (#{wrap-subst\ 3510}# #{w\ 5110}#))
+ (let ((#{first\ 1845}#
+ (#{chi\ 331}#
+ (car #{body\ 1840}#)
+ #{r\ 1841}#
+ #{w\ 1842}#
+ #{mod\ 1843}#)))
+ (cons #{first\ 1845}#
+ (#{dobody\ 1839}#
+ (cdr #{body\ 1840}#)
+ #{r\ 1841}#
+ #{w\ 1842}#
+ #{mod\ 1843}#)))))))
+ (#{dobody\ 1839}#
+ #{body\ 1824}#
+ #{r\ 1825}#
+ #{w\ 1826}#
+ #{mod\ 1828}#)))))
+ (#{source-wrap\ 317}#
+ (lambda (#{x\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{defmod\ 1849}#)
+ (#{wrap\ 315}#
+ (#{decorate-source\ 164}#
+ #{x\ 1846}#
+ #{s\ 1848}#)
+ #{w\ 1847}#
+ #{defmod\ 1849}#)))
+ (#{wrap\ 315}#
+ (lambda (#{x\ 1854}# #{w\ 1855}# #{defmod\ 1856}#)
+ (if (if (null? (#{wrap-marks\ 253}# #{w\ 1855}#))
+ (null? (#{wrap-subst\ 255}# #{w\ 1855}#))
#f)
- #{x\ 5109}#
- (if (#{syntax-object?\ 3465}# #{x\ 5109}#)
- (#{make-syntax-object\ 3463}#
- (#{syntax-object-expression\ 3467}# #{x\ 5109}#)
- (#{join-wraps\ 3552}#
- #{w\ 5110}#
- (#{syntax-object-wrap\ 3469}# #{x\ 5109}#))
- (#{syntax-object-module\ 3471}# #{x\ 5109}#))
- (if (null? #{x\ 5109}#)
- #{x\ 5109}#
- (#{make-syntax-object\ 3463}#
- #{x\ 5109}#
- #{w\ 5110}#
- #{defmod\ 5111}#))))))
- (#{bound-id-member?\ 3568}#
- (lambda (#{x\ 5124}# #{list\ 5125}#)
- (if (not (null? #{list\ 5125}#))
- (let ((#{t\ 5132}#
- (#{bound-id=?\ 3562}#
- #{x\ 5124}#
- (car #{list\ 5125}#))))
- (if #{t\ 5132}#
- #{t\ 5132}#
- (#{bound-id-member?\ 3568}#
- #{x\ 5124}#
- (cdr #{list\ 5125}#))))
+ #{x\ 1854}#
+ (if (#{syntax-object?\ 210}# #{x\ 1854}#)
+ (#{make-syntax-object\ 208}#
+ (#{syntax-object-expression\ 212}# #{x\ 1854}#)
+ (#{join-wraps\ 297}#
+ #{w\ 1855}#
+ (#{syntax-object-wrap\ 214}# #{x\ 1854}#))
+ (#{syntax-object-module\ 216}# #{x\ 1854}#))
+ (if (null? #{x\ 1854}#)
+ #{x\ 1854}#
+ (#{make-syntax-object\ 208}#
+ #{x\ 1854}#
+ #{w\ 1855}#
+ #{defmod\ 1856}#))))))
+ (#{bound-id-member?\ 313}#
+ (lambda (#{x\ 1869}# #{list\ 1870}#)
+ (if (not (null? #{list\ 1870}#))
+ (let ((#{t\ 1877}#
+ (#{bound-id=?\ 307}#
+ #{x\ 1869}#
+ (car #{list\ 1870}#))))
+ (if #{t\ 1877}#
+ #{t\ 1877}#
+ (#{bound-id-member?\ 313}#
+ #{x\ 1869}#
+ (cdr #{list\ 1870}#))))
#f)))
- (#{distinct-bound-ids?\ 3566}#
- (lambda (#{ids\ 5134}#)
- (letrec ((#{distinct?\ 5138}#
- (lambda (#{ids\ 5139}#)
- (let ((#{t\ 5142}# (null? #{ids\ 5139}#)))
- (if #{t\ 5142}#
- #{t\ 5142}#
- (if (not (#{bound-id-member?\ 3568}#
- (car #{ids\ 5139}#)
- (cdr #{ids\ 5139}#)))
- (#{distinct?\ 5138}# (cdr #{ids\ 5139}#))
+ (#{distinct-bound-ids?\ 311}#
+ (lambda (#{ids\ 1879}#)
+ (letrec ((#{distinct?\ 1883}#
+ (lambda (#{ids\ 1884}#)
+ (let ((#{t\ 1887}# (null? #{ids\ 1884}#)))
+ (if #{t\ 1887}#
+ #{t\ 1887}#
+ (if (not (#{bound-id-member?\ 313}#
+ (car #{ids\ 1884}#)
+ (cdr #{ids\ 1884}#)))
+ (#{distinct?\ 1883}# (cdr #{ids\ 1884}#))
#f))))))
- (#{distinct?\ 5138}# #{ids\ 5134}#))))
- (#{valid-bound-ids?\ 3564}#
- (lambda (#{ids\ 5146}#)
- (if (letrec ((#{all-ids?\ 5151}#
- (lambda (#{ids\ 5152}#)
- (let ((#{t\ 5155}# (null? #{ids\ 5152}#)))
- (if #{t\ 5155}#
- #{t\ 5155}#
- (if (#{id?\ 3501}# (car #{ids\ 5152}#))
- (#{all-ids?\ 5151}# (cdr #{ids\ 5152}#))
+ (#{distinct?\ 1883}# #{ids\ 1879}#))))
+ (#{valid-bound-ids?\ 309}#
+ (lambda (#{ids\ 1891}#)
+ (if (letrec ((#{all-ids?\ 1896}#
+ (lambda (#{ids\ 1897}#)
+ (let ((#{t\ 1900}# (null? #{ids\ 1897}#)))
+ (if #{t\ 1900}#
+ #{t\ 1900}#
+ (if (#{id?\ 246}# (car #{ids\ 1897}#))
+ (#{all-ids?\ 1896}# (cdr #{ids\ 1897}#))
#f))))))
- (#{all-ids?\ 5151}# #{ids\ 5146}#))
- (#{distinct-bound-ids?\ 3566}# #{ids\ 5146}#)
+ (#{all-ids?\ 1896}# #{ids\ 1891}#))
+ (#{distinct-bound-ids?\ 311}# #{ids\ 1891}#)
#f)))
- (#{bound-id=?\ 3562}#
- (lambda (#{i\ 5160}# #{j\ 5161}#)
- (if (if (#{syntax-object?\ 3465}# #{i\ 5160}#)
- (#{syntax-object?\ 3465}# #{j\ 5161}#)
+ (#{bound-id=?\ 307}#
+ (lambda (#{i\ 1905}# #{j\ 1906}#)
+ (if (if (#{syntax-object?\ 210}# #{i\ 1905}#)
+ (#{syntax-object?\ 210}# #{j\ 1906}#)
#f)
- (if (eq? (#{syntax-object-expression\ 3467}# #{i\ 5160}#)
- (#{syntax-object-expression\ 3467}# #{j\ 5161}#))
- (#{same-marks?\ 3556}#
- (#{wrap-marks\ 3508}#
- (#{syntax-object-wrap\ 3469}# #{i\ 5160}#))
- (#{wrap-marks\ 3508}#
- (#{syntax-object-wrap\ 3469}# #{j\ 5161}#)))
+ (if (eq? (#{syntax-object-expression\ 212}# #{i\ 1905}#)
+ (#{syntax-object-expression\ 212}# #{j\ 1906}#))
+ (#{same-marks?\ 301}#
+ (#{wrap-marks\ 253}#
+ (#{syntax-object-wrap\ 214}# #{i\ 1905}#))
+ (#{wrap-marks\ 253}#
+ (#{syntax-object-wrap\ 214}# #{j\ 1906}#)))
#f)
- (eq? #{i\ 5160}# #{j\ 5161}#))))
- (#{free-id=?\ 3560}#
- (lambda (#{i\ 5168}# #{j\ 5169}#)
- (if (eq? (let ((#{x\ 5175}# #{i\ 5168}#))
- (if (#{syntax-object?\ 3465}# #{x\ 5175}#)
- (#{syntax-object-expression\ 3467}# #{x\ 5175}#)
- #{x\ 5175}#))
- (let ((#{x\ 5178}# #{j\ 5169}#))
- (if (#{syntax-object?\ 3465}# #{x\ 5178}#)
- (#{syntax-object-expression\ 3467}# #{x\ 5178}#)
- #{x\ 5178}#)))
- (eq? (#{id-var-name\ 3558}# #{i\ 5168}# (quote (())))
- (#{id-var-name\ 3558}# #{j\ 5169}# (quote (()))))
+ (eq? #{i\ 1905}# #{j\ 1906}#))))
+ (#{free-id=?\ 305}#
+ (lambda (#{i\ 1913}# #{j\ 1914}#)
+ (if (eq? (let ((#{x\ 1920}# #{i\ 1913}#))
+ (if (#{syntax-object?\ 210}# #{x\ 1920}#)
+ (#{syntax-object-expression\ 212}# #{x\ 1920}#)
+ #{x\ 1920}#))
+ (let ((#{x\ 1923}# #{j\ 1914}#))
+ (if (#{syntax-object?\ 210}# #{x\ 1923}#)
+ (#{syntax-object-expression\ 212}# #{x\ 1923}#)
+ #{x\ 1923}#)))
+ (eq? (#{id-var-name\ 303}# #{i\ 1913}# (quote (())))
+ (#{id-var-name\ 303}# #{j\ 1914}# (quote (()))))
#f)))
- (#{id-var-name\ 3558}#
- (lambda (#{id\ 5182}# #{w\ 5183}#)
- (letrec ((#{search-vector-rib\ 5192}#
- (lambda (#{sym\ 5204}#
- #{subst\ 5205}#
- #{marks\ 5206}#
- #{symnames\ 5207}#
- #{ribcage\ 5208}#)
- (let ((#{n\ 5215}#
- (vector-length #{symnames\ 5207}#)))
- (letrec ((#{f\ 5218}#
- (lambda (#{i\ 5219}#)
- (if (#{fx=\ 3406}#
- #{i\ 5219}#
- #{n\ 5215}#)
- (#{search\ 5188}#
- #{sym\ 5204}#
- (cdr #{subst\ 5205}#)
- #{marks\ 5206}#)
+ (#{id-var-name\ 303}#
+ (lambda (#{id\ 1927}# #{w\ 1928}#)
+ (letrec ((#{search-vector-rib\ 1937}#
+ (lambda (#{sym\ 1949}#
+ #{subst\ 1950}#
+ #{marks\ 1951}#
+ #{symnames\ 1952}#
+ #{ribcage\ 1953}#)
+ (let ((#{n\ 1960}#
+ (vector-length #{symnames\ 1952}#)))
+ (letrec ((#{f\ 1963}#
+ (lambda (#{i\ 1964}#)
+ (if (#{fx=\ 151}#
+ #{i\ 1964}#
+ #{n\ 1960}#)
+ (#{search\ 1933}#
+ #{sym\ 1949}#
+ (cdr #{subst\ 1950}#)
+ #{marks\ 1951}#)
(if (if (eq? (vector-ref
- #{symnames\ 5207}#
- #{i\ 5219}#)
- #{sym\ 5204}#)
- (#{same-marks?\ 3556}#
- #{marks\ 5206}#
+ #{symnames\ 1952}#
+ #{i\ 1964}#)
+ #{sym\ 1949}#)
+ (#{same-marks?\ 301}#
+ #{marks\ 1951}#
(vector-ref
- (#{ribcage-marks\ 3528}#
- #{ribcage\ 5208}#)
- #{i\ 5219}#))
+ (#{ribcage-marks\ 273}#
+ #{ribcage\ 1953}#)
+ #{i\ 1964}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 3530}#
- #{ribcage\ 5208}#)
- #{i\ 5219}#)
- #{marks\ 5206}#)
- (#{f\ 5218}#
- (#{fx+\ 3402}#
- #{i\ 5219}#
+ (#{ribcage-labels\ 275}#
+ #{ribcage\ 1953}#)
+ #{i\ 1964}#)
+ #{marks\ 1951}#)
+ (#{f\ 1963}#
+ (#{fx+\ 147}#
+ #{i\ 1964}#
1)))))))
- (#{f\ 5218}# 0)))))
- (#{search-list-rib\ 5190}#
- (lambda (#{sym\ 5227}#
- #{subst\ 5228}#
- #{marks\ 5229}#
- #{symnames\ 5230}#
- #{ribcage\ 5231}#)
- (letrec ((#{f\ 5240}#
- (lambda (#{symnames\ 5241}# #{i\ 5242}#)
- (if (null? #{symnames\ 5241}#)
- (#{search\ 5188}#
- #{sym\ 5227}#
- (cdr #{subst\ 5228}#)
- #{marks\ 5229}#)
- (if (if (eq? (car #{symnames\ 5241}#)
- #{sym\ 5227}#)
- (#{same-marks?\ 3556}#
- #{marks\ 5229}#
+ (#{f\ 1963}# 0)))))
+ (#{search-list-rib\ 1935}#
+ (lambda (#{sym\ 1972}#
+ #{subst\ 1973}#
+ #{marks\ 1974}#
+ #{symnames\ 1975}#
+ #{ribcage\ 1976}#)
+ (letrec ((#{f\ 1985}#
+ (lambda (#{symnames\ 1986}# #{i\ 1987}#)
+ (if (null? #{symnames\ 1986}#)
+ (#{search\ 1933}#
+ #{sym\ 1972}#
+ (cdr #{subst\ 1973}#)
+ #{marks\ 1974}#)
+ (if (if (eq? (car #{symnames\ 1986}#)
+ #{sym\ 1972}#)
+ (#{same-marks?\ 301}#
+ #{marks\ 1974}#
(list-ref
- (#{ribcage-marks\ 3528}#
- #{ribcage\ 5231}#)
- #{i\ 5242}#))
+ (#{ribcage-marks\ 273}#
+ #{ribcage\ 1976}#)
+ #{i\ 1987}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 3530}#
- #{ribcage\ 5231}#)
- #{i\ 5242}#)
- #{marks\ 5229}#)
- (#{f\ 5240}#
- (cdr #{symnames\ 5241}#)
- (#{fx+\ 3402}#
- #{i\ 5242}#
+ (#{ribcage-labels\ 275}#
+ #{ribcage\ 1976}#)
+ #{i\ 1987}#)
+ #{marks\ 1974}#)
+ (#{f\ 1985}#
+ (cdr #{symnames\ 1986}#)
+ (#{fx+\ 147}#
+ #{i\ 1987}#
1)))))))
- (#{f\ 5240}# #{symnames\ 5230}# 0))))
- (#{search\ 5188}#
- (lambda (#{sym\ 5250}#
- #{subst\ 5251}#
- #{marks\ 5252}#)
- (if (null? #{subst\ 5251}#)
- (values #f #{marks\ 5252}#)
- (let ((#{fst\ 5257}# (car #{subst\ 5251}#)))
- (if (eq? #{fst\ 5257}# (quote shift))
- (#{search\ 5188}#
- #{sym\ 5250}#
- (cdr #{subst\ 5251}#)
- (cdr #{marks\ 5252}#))
- (let ((#{symnames\ 5259}#
- (#{ribcage-symnames\ 3526}#
- #{fst\ 5257}#)))
- (if (vector? #{symnames\ 5259}#)
- (#{search-vector-rib\ 5192}#
- #{sym\ 5250}#
- #{subst\ 5251}#
- #{marks\ 5252}#
- #{symnames\ 5259}#
- #{fst\ 5257}#)
- (#{search-list-rib\ 5190}#
- #{sym\ 5250}#
- #{subst\ 5251}#
- #{marks\ 5252}#
- #{symnames\ 5259}#
- #{fst\ 5257}#)))))))))
- (if (symbol? #{id\ 5182}#)
- (let ((#{t\ 5262}#
+ (#{f\ 1985}# #{symnames\ 1975}# 0))))
+ (#{search\ 1933}#
+ (lambda (#{sym\ 1995}#
+ #{subst\ 1996}#
+ #{marks\ 1997}#)
+ (if (null? #{subst\ 1996}#)
+ (values #f #{marks\ 1997}#)
+ (let ((#{fst\ 2002}# (car #{subst\ 1996}#)))
+ (if (eq? #{fst\ 2002}# (quote shift))
+ (#{search\ 1933}#
+ #{sym\ 1995}#
+ (cdr #{subst\ 1996}#)
+ (cdr #{marks\ 1997}#))
+ (let ((#{symnames\ 2004}#
+ (#{ribcage-symnames\ 271}#
+ #{fst\ 2002}#)))
+ (if (vector? #{symnames\ 2004}#)
+ (#{search-vector-rib\ 1937}#
+ #{sym\ 1995}#
+ #{subst\ 1996}#
+ #{marks\ 1997}#
+ #{symnames\ 2004}#
+ #{fst\ 2002}#)
+ (#{search-list-rib\ 1935}#
+ #{sym\ 1995}#
+ #{subst\ 1996}#
+ #{marks\ 1997}#
+ #{symnames\ 2004}#
+ #{fst\ 2002}#)))))))))
+ (if (symbol? #{id\ 1927}#)
+ (let ((#{t\ 2007}#
(call-with-values
(lambda ()
- (#{search\ 5188}#
- #{id\ 5182}#
- (#{wrap-subst\ 3510}# #{w\ 5183}#)
- (#{wrap-marks\ 3508}# #{w\ 5183}#)))
- (lambda (#{x\ 5264}# . #{ignore\ 5265}#)
- #{x\ 5264}#))))
- (if #{t\ 5262}# #{t\ 5262}# #{id\ 5182}#))
- (if (#{syntax-object?\ 3465}# #{id\ 5182}#)
- (let ((#{id\ 5273}#
- (#{syntax-object-expression\ 3467}# #{id\ 5182}#))
- (#{w1\ 5274}#
- (#{syntax-object-wrap\ 3469}# #{id\ 5182}#)))
- (let ((#{marks\ 5276}#
- (#{join-marks\ 3554}#
- (#{wrap-marks\ 3508}# #{w\ 5183}#)
- (#{wrap-marks\ 3508}# #{w1\ 5274}#))))
+ (#{search\ 1933}#
+ #{id\ 1927}#
+ (#{wrap-subst\ 255}# #{w\ 1928}#)
+ (#{wrap-marks\ 253}# #{w\ 1928}#)))
+ (lambda (#{x\ 2009}# . #{ignore\ 2010}#)
+ #{x\ 2009}#))))
+ (if #{t\ 2007}# #{t\ 2007}# #{id\ 1927}#))
+ (if (#{syntax-object?\ 210}# #{id\ 1927}#)
+ (let ((#{id\ 2018}#
+ (#{syntax-object-expression\ 212}# #{id\ 1927}#))
+ (#{w1\ 2019}#
+ (#{syntax-object-wrap\ 214}# #{id\ 1927}#)))
+ (let ((#{marks\ 2021}#
+ (#{join-marks\ 299}#
+ (#{wrap-marks\ 253}# #{w\ 1928}#)
+ (#{wrap-marks\ 253}# #{w1\ 2019}#))))
(call-with-values
(lambda ()
- (#{search\ 5188}#
- #{id\ 5273}#
- (#{wrap-subst\ 3510}# #{w\ 5183}#)
- #{marks\ 5276}#))
- (lambda (#{new-id\ 5277}# #{marks\ 5278}#)
- (let ((#{t\ 5283}# #{new-id\ 5277}#))
- (if #{t\ 5283}#
- #{t\ 5283}#
- (let ((#{t\ 5286}#
+ (#{search\ 1933}#
+ #{id\ 2018}#
+ (#{wrap-subst\ 255}# #{w\ 1928}#)
+ #{marks\ 2021}#))
+ (lambda (#{new-id\ 2022}# #{marks\ 2023}#)
+ (let ((#{t\ 2028}# #{new-id\ 2022}#))
+ (if #{t\ 2028}#
+ #{t\ 2028}#
+ (let ((#{t\ 2031}#
(call-with-values
(lambda ()
- (#{search\ 5188}#
- #{id\ 5273}#
- (#{wrap-subst\ 3510}#
- #{w1\ 5274}#)
- #{marks\ 5278}#))
- (lambda (#{x\ 5288}#
+ (#{search\ 1933}#
+ #{id\ 2018}#
+ (#{wrap-subst\ 255}#
+ #{w1\ 2019}#)
+ #{marks\ 2023}#))
+ (lambda (#{x\ 2033}#
.
- #{ignore\ 5289}#)
- #{x\ 5288}#))))
- (if #{t\ 5286}#
- #{t\ 5286}#
- #{id\ 5273}#))))))))
+ #{ignore\ 2034}#)
+ #{x\ 2033}#))))
+ (if #{t\ 2031}#
+ #{t\ 2031}#
+ #{id\ 2018}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 5182}#))))))
- (#{same-marks?\ 3556}#
- (lambda (#{x\ 5294}# #{y\ 5295}#)
- (let ((#{t\ 5300}# (eq? #{x\ 5294}# #{y\ 5295}#)))
- (if #{t\ 5300}#
- #{t\ 5300}#
- (if (not (null? #{x\ 5294}#))
- (if (not (null? #{y\ 5295}#))
- (if (eq? (car #{x\ 5294}#) (car #{y\ 5295}#))
- (#{same-marks?\ 3556}#
- (cdr #{x\ 5294}#)
- (cdr #{y\ 5295}#))
+ #{id\ 1927}#))))))
+ (#{same-marks?\ 301}#
+ (lambda (#{x\ 2039}# #{y\ 2040}#)
+ (let ((#{t\ 2045}# (eq? #{x\ 2039}# #{y\ 2040}#)))
+ (if #{t\ 2045}#
+ #{t\ 2045}#
+ (if (not (null? #{x\ 2039}#))
+ (if (not (null? #{y\ 2040}#))
+ (if (eq? (car #{x\ 2039}#) (car #{y\ 2040}#))
+ (#{same-marks?\ 301}#
+ (cdr #{x\ 2039}#)
+ (cdr #{y\ 2040}#))
#f)
#f)
#f)))))
- (#{join-marks\ 3554}#
- (lambda (#{m1\ 5306}# #{m2\ 5307}#)
- (#{smart-append\ 3550}#
- #{m1\ 5306}#
- #{m2\ 5307}#)))
- (#{join-wraps\ 3552}#
- (lambda (#{w1\ 5310}# #{w2\ 5311}#)
- (let ((#{m1\ 5316}#
- (#{wrap-marks\ 3508}# #{w1\ 5310}#))
- (#{s1\ 5317}#
- (#{wrap-subst\ 3510}# #{w1\ 5310}#)))
- (if (null? #{m1\ 5316}#)
- (if (null? #{s1\ 5317}#)
- #{w2\ 5311}#
- (#{make-wrap\ 3506}#
- (#{wrap-marks\ 3508}# #{w2\ 5311}#)
- (#{smart-append\ 3550}#
- #{s1\ 5317}#
- (#{wrap-subst\ 3510}# #{w2\ 5311}#))))
- (#{make-wrap\ 3506}#
- (#{smart-append\ 3550}#
- #{m1\ 5316}#
- (#{wrap-marks\ 3508}# #{w2\ 5311}#))
- (#{smart-append\ 3550}#
- #{s1\ 5317}#
- (#{wrap-subst\ 3510}# #{w2\ 5311}#)))))))
- (#{smart-append\ 3550}#
- (lambda (#{m1\ 5318}# #{m2\ 5319}#)
- (if (null? #{m2\ 5319}#)
- #{m1\ 5318}#
- (append #{m1\ 5318}# #{m2\ 5319}#))))
- (#{make-binding-wrap\ 3548}#
- (lambda (#{ids\ 5322}# #{labels\ 5323}# #{w\ 5324}#)
- (if (null? #{ids\ 5322}#)
- #{w\ 5324}#
- (#{make-wrap\ 3506}#
- (#{wrap-marks\ 3508}# #{w\ 5324}#)
- (cons (let ((#{labelvec\ 5329}#
- (list->vector #{labels\ 5323}#)))
- (let ((#{n\ 5331}#
- (vector-length #{labelvec\ 5329}#)))
- (let ((#{symnamevec\ 5334}#
- (make-vector #{n\ 5331}#))
- (#{marksvec\ 5335}#
- (make-vector #{n\ 5331}#)))
+ (#{join-marks\ 299}#
+ (lambda (#{m1\ 2051}# #{m2\ 2052}#)
+ (#{smart-append\ 295}# #{m1\ 2051}# #{m2\ 2052}#)))
+ (#{join-wraps\ 297}#
+ (lambda (#{w1\ 2055}# #{w2\ 2056}#)
+ (let ((#{m1\ 2061}# (#{wrap-marks\ 253}# #{w1\ 2055}#))
+ (#{s1\ 2062}# (#{wrap-subst\ 255}# #{w1\ 2055}#)))
+ (if (null? #{m1\ 2061}#)
+ (if (null? #{s1\ 2062}#)
+ #{w2\ 2056}#
+ (#{make-wrap\ 251}#
+ (#{wrap-marks\ 253}# #{w2\ 2056}#)
+ (#{smart-append\ 295}#
+ #{s1\ 2062}#
+ (#{wrap-subst\ 255}# #{w2\ 2056}#))))
+ (#{make-wrap\ 251}#
+ (#{smart-append\ 295}#
+ #{m1\ 2061}#
+ (#{wrap-marks\ 253}# #{w2\ 2056}#))
+ (#{smart-append\ 295}#
+ #{s1\ 2062}#
+ (#{wrap-subst\ 255}# #{w2\ 2056}#)))))))
+ (#{smart-append\ 295}#
+ (lambda (#{m1\ 2063}# #{m2\ 2064}#)
+ (if (null? #{m2\ 2064}#)
+ #{m1\ 2063}#
+ (append #{m1\ 2063}# #{m2\ 2064}#))))
+ (#{make-binding-wrap\ 293}#
+ (lambda (#{ids\ 2067}# #{labels\ 2068}# #{w\ 2069}#)
+ (if (null? #{ids\ 2067}#)
+ #{w\ 2069}#
+ (#{make-wrap\ 251}#
+ (#{wrap-marks\ 253}# #{w\ 2069}#)
+ (cons (let ((#{labelvec\ 2074}#
+ (list->vector #{labels\ 2068}#)))
+ (let ((#{n\ 2076}#
+ (vector-length #{labelvec\ 2074}#)))
+ (let ((#{symnamevec\ 2079}#
+ (make-vector #{n\ 2076}#))
+ (#{marksvec\ 2080}#
+ (make-vector #{n\ 2076}#)))
(begin
- (letrec ((#{f\ 5339}#
- (lambda (#{ids\ 5340}# #{i\ 5341}#)
- (if (not (null? #{ids\ 5340}#))
+ (letrec ((#{f\ 2084}#
+ (lambda (#{ids\ 2085}# #{i\ 2086}#)
+ (if (not (null? #{ids\ 2085}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 3504}#
- (car #{ids\ 5340}#)
- #{w\ 5324}#))
- (lambda (#{symname\ 5342}#
- #{marks\ 5343}#)
+ (#{id-sym-name&marks\ 249}#
+ (car #{ids\ 2085}#)
+ #{w\ 2069}#))
+ (lambda (#{symname\ 2087}#
+ #{marks\ 2088}#)
(begin
(vector-set!
- #{symnamevec\ 5334}#
- #{i\ 5341}#
- #{symname\ 5342}#)
+ #{symnamevec\ 2079}#
+ #{i\ 2086}#
+ #{symname\ 2087}#)
(vector-set!
- #{marksvec\ 5335}#
- #{i\ 5341}#
- #{marks\ 5343}#)
- (#{f\ 5339}#
- (cdr #{ids\ 5340}#)
- (#{fx+\ 3402}#
- #{i\ 5341}#
+ #{marksvec\ 2080}#
+ #{i\ 2086}#
+ #{marks\ 2088}#)
+ (#{f\ 2084}#
+ (cdr #{ids\ 2085}#)
+ (#{fx+\ 147}#
+ #{i\ 2086}#
1)))))))))
- (#{f\ 5339}# #{ids\ 5322}# 0))
- (#{make-ribcage\ 3522}#
- #{symnamevec\ 5334}#
- #{marksvec\ 5335}#
- #{labelvec\ 5329}#)))))
- (#{wrap-subst\ 3510}# #{w\ 5324}#))))))
- (#{extend-ribcage!\ 3546}#
- (lambda (#{ribcage\ 5346}# #{id\ 5347}# #{label\ 5348}#)
+ (#{f\ 2084}# #{ids\ 2067}# 0))
+ (#{make-ribcage\ 267}#
+ #{symnamevec\ 2079}#
+ #{marksvec\ 2080}#
+ #{labelvec\ 2074}#)))))
+ (#{wrap-subst\ 255}# #{w\ 2069}#))))))
+ (#{extend-ribcage!\ 291}#
+ (lambda (#{ribcage\ 2091}# #{id\ 2092}# #{label\ 2093}#)
(begin
- (#{set-ribcage-symnames!\ 3532}#
- #{ribcage\ 5346}#
- (cons (#{syntax-object-expression\ 3467}# #{id\ 5347}#)
- (#{ribcage-symnames\ 3526}# #{ribcage\ 5346}#)))
- (#{set-ribcage-marks!\ 3534}#
- #{ribcage\ 5346}#
- (cons (#{wrap-marks\ 3508}#
- (#{syntax-object-wrap\ 3469}# #{id\ 5347}#))
- (#{ribcage-marks\ 3528}# #{ribcage\ 5346}#)))
- (#{set-ribcage-labels!\ 3536}#
- #{ribcage\ 5346}#
- (cons #{label\ 5348}#
- (#{ribcage-labels\ 3530}# #{ribcage\ 5346}#))))))
- (#{anti-mark\ 3542}#
- (lambda (#{w\ 5352}#)
- (#{make-wrap\ 3506}#
- (cons #f (#{wrap-marks\ 3508}# #{w\ 5352}#))
+ (#{set-ribcage-symnames!\ 277}#
+ #{ribcage\ 2091}#
+ (cons (#{syntax-object-expression\ 212}# #{id\ 2092}#)
+ (#{ribcage-symnames\ 271}# #{ribcage\ 2091}#)))
+ (#{set-ribcage-marks!\ 279}#
+ #{ribcage\ 2091}#
+ (cons (#{wrap-marks\ 253}#
+ (#{syntax-object-wrap\ 214}# #{id\ 2092}#))
+ (#{ribcage-marks\ 273}# #{ribcage\ 2091}#)))
+ (#{set-ribcage-labels!\ 281}#
+ #{ribcage\ 2091}#
+ (cons #{label\ 2093}#
+ (#{ribcage-labels\ 275}# #{ribcage\ 2091}#))))))
+ (#{anti-mark\ 287}#
+ (lambda (#{w\ 2097}#)
+ (#{make-wrap\ 251}#
+ (cons #f (#{wrap-marks\ 253}# #{w\ 2097}#))
(cons 'shift
- (#{wrap-subst\ 3510}# #{w\ 5352}#)))))
- (#{set-ribcage-labels!\ 3536}#
- (lambda (#{x\ 5355}# #{update\ 5356}#)
- (vector-set! #{x\ 5355}# 3 #{update\ 5356}#)))
- (#{set-ribcage-marks!\ 3534}#
- (lambda (#{x\ 5359}# #{update\ 5360}#)
- (vector-set! #{x\ 5359}# 2 #{update\ 5360}#)))
- (#{set-ribcage-symnames!\ 3532}#
- (lambda (#{x\ 5363}# #{update\ 5364}#)
- (vector-set! #{x\ 5363}# 1 #{update\ 5364}#)))
- (#{ribcage-labels\ 3530}#
- (lambda (#{x\ 5367}#) (vector-ref #{x\ 5367}# 3)))
- (#{ribcage-marks\ 3528}#
- (lambda (#{x\ 5369}#) (vector-ref #{x\ 5369}# 2)))
- (#{ribcage-symnames\ 3526}#
- (lambda (#{x\ 5371}#) (vector-ref #{x\ 5371}# 1)))
- (#{ribcage?\ 3524}#
- (lambda (#{x\ 5373}#)
- (if (vector? #{x\ 5373}#)
- (if (= (vector-length #{x\ 5373}#) 4)
- (eq? (vector-ref #{x\ 5373}# 0) (quote ribcage))
+ (#{wrap-subst\ 255}# #{w\ 2097}#)))))
+ (#{set-ribcage-labels!\ 281}#
+ (lambda (#{x\ 2100}# #{update\ 2101}#)
+ (vector-set! #{x\ 2100}# 3 #{update\ 2101}#)))
+ (#{set-ribcage-marks!\ 279}#
+ (lambda (#{x\ 2104}# #{update\ 2105}#)
+ (vector-set! #{x\ 2104}# 2 #{update\ 2105}#)))
+ (#{set-ribcage-symnames!\ 277}#
+ (lambda (#{x\ 2108}# #{update\ 2109}#)
+ (vector-set! #{x\ 2108}# 1 #{update\ 2109}#)))
+ (#{ribcage-labels\ 275}#
+ (lambda (#{x\ 2112}#) (vector-ref #{x\ 2112}# 3)))
+ (#{ribcage-marks\ 273}#
+ (lambda (#{x\ 2114}#) (vector-ref #{x\ 2114}# 2)))
+ (#{ribcage-symnames\ 271}#
+ (lambda (#{x\ 2116}#) (vector-ref #{x\ 2116}# 1)))
+ (#{ribcage?\ 269}#
+ (lambda (#{x\ 2118}#)
+ (if (vector? #{x\ 2118}#)
+ (if (= (vector-length #{x\ 2118}#) 4)
+ (eq? (vector-ref #{x\ 2118}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 3522}#
- (lambda (#{symnames\ 5378}#
- #{marks\ 5379}#
- #{labels\ 5380}#)
+ (#{make-ribcage\ 267}#
+ (lambda (#{symnames\ 2123}#
+ #{marks\ 2124}#
+ #{labels\ 2125}#)
(vector
'ribcage
- #{symnames\ 5378}#
- #{marks\ 5379}#
- #{labels\ 5380}#)))
- (#{gen-labels\ 3519}#
- (lambda (#{ls\ 5384}#)
- (if (null? #{ls\ 5384}#)
+ #{symnames\ 2123}#
+ #{marks\ 2124}#
+ #{labels\ 2125}#)))
+ (#{gen-labels\ 264}#
+ (lambda (#{ls\ 2129}#)
+ (if (null? #{ls\ 2129}#)
'()
- (cons (#{gen-label\ 3517}#)
- (#{gen-labels\ 3519}# (cdr #{ls\ 5384}#))))))
- (#{gen-label\ 3517}#
+ (cons (#{gen-label\ 262}#)
+ (#{gen-labels\ 264}# (cdr #{ls\ 2129}#))))))
+ (#{gen-label\ 262}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 3510}# cdr)
- (#{wrap-marks\ 3508}# car)
- (#{make-wrap\ 3506}# cons)
- (#{id-sym-name&marks\ 3504}#
- (lambda (#{x\ 5386}# #{w\ 5387}#)
- (if (#{syntax-object?\ 3465}# #{x\ 5386}#)
+ (#{wrap-subst\ 255}# cdr)
+ (#{wrap-marks\ 253}# car)
+ (#{make-wrap\ 251}# cons)
+ (#{id-sym-name&marks\ 249}#
+ (lambda (#{x\ 2131}# #{w\ 2132}#)
+ (if (#{syntax-object?\ 210}# #{x\ 2131}#)
(values
- (#{syntax-object-expression\ 3467}# #{x\ 5386}#)
- (#{join-marks\ 3554}#
- (#{wrap-marks\ 3508}# #{w\ 5387}#)
- (#{wrap-marks\ 3508}#
- (#{syntax-object-wrap\ 3469}# #{x\ 5386}#))))
+ (#{syntax-object-expression\ 212}# #{x\ 2131}#)
+ (#{join-marks\ 299}#
+ (#{wrap-marks\ 253}# #{w\ 2132}#)
+ (#{wrap-marks\ 253}#
+ (#{syntax-object-wrap\ 214}# #{x\ 2131}#))))
(values
- #{x\ 5386}#
- (#{wrap-marks\ 3508}# #{w\ 5387}#)))))
- (#{id?\ 3501}#
- (lambda (#{x\ 5390}#)
- (if (symbol? #{x\ 5390}#)
+ #{x\ 2131}#
+ (#{wrap-marks\ 253}# #{w\ 2132}#)))))
+ (#{id?\ 246}#
+ (lambda (#{x\ 2135}#)
+ (if (symbol? #{x\ 2135}#)
#t
- (if (#{syntax-object?\ 3465}# #{x\ 5390}#)
+ (if (#{syntax-object?\ 210}# #{x\ 2135}#)
(symbol?
- (#{syntax-object-expression\ 3467}# #{x\ 5390}#))
+ (#{syntax-object-expression\ 212}# #{x\ 2135}#))
#f))))
- (#{nonsymbol-id?\ 3499}#
- (lambda (#{x\ 5397}#)
- (if (#{syntax-object?\ 3465}# #{x\ 5397}#)
+ (#{nonsymbol-id?\ 244}#
+ (lambda (#{x\ 2142}#)
+ (if (#{syntax-object?\ 210}# #{x\ 2142}#)
(symbol?
- (#{syntax-object-expression\ 3467}# #{x\ 5397}#))
+ (#{syntax-object-expression\ 212}# #{x\ 2142}#))
#f)))
- (#{global-extend\ 3497}#
- (lambda (#{type\ 5401}# #{sym\ 5402}# #{val\ 5403}#)
- (#{put-global-definition-hook\ 3415}#
- #{sym\ 5402}#
- #{type\ 5401}#
- #{val\ 5403}#)))
- (#{lookup\ 3495}#
- (lambda (#{x\ 5407}# #{r\ 5408}# #{mod\ 5409}#)
- (let ((#{t\ 5415}# (assq #{x\ 5407}# #{r\ 5408}#)))
- (if #{t\ 5415}#
- (cdr #{t\ 5415}#)
- (if (symbol? #{x\ 5407}#)
- (let ((#{t\ 5421}#
- (#{get-global-definition-hook\ 3417}#
- #{x\ 5407}#
- #{mod\ 5409}#)))
- (if #{t\ 5421}# #{t\ 5421}# (quote (global))))
+ (#{global-extend\ 242}#
+ (lambda (#{type\ 2146}# #{sym\ 2147}# #{val\ 2148}#)
+ (#{put-global-definition-hook\ 160}#
+ #{sym\ 2147}#
+ #{type\ 2146}#
+ #{val\ 2148}#)))
+ (#{lookup\ 240}#
+ (lambda (#{x\ 2152}# #{r\ 2153}# #{mod\ 2154}#)
+ (let ((#{t\ 2160}# (assq #{x\ 2152}# #{r\ 2153}#)))
+ (if #{t\ 2160}#
+ (cdr #{t\ 2160}#)
+ (if (symbol? #{x\ 2152}#)
+ (let ((#{t\ 2166}#
+ (#{get-global-definition-hook\ 162}#
+ #{x\ 2152}#
+ #{mod\ 2154}#)))
+ (if #{t\ 2166}# #{t\ 2166}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 3493}#
- (lambda (#{r\ 5426}#)
- (if (null? #{r\ 5426}#)
+ (#{macros-only-env\ 238}#
+ (lambda (#{r\ 2171}#)
+ (if (null? #{r\ 2171}#)
'()
- (let ((#{a\ 5429}# (car #{r\ 5426}#)))
- (if (eq? (cadr #{a\ 5429}#) (quote macro))
- (cons #{a\ 5429}#
- (#{macros-only-env\ 3493}# (cdr #{r\ 5426}#)))
- (#{macros-only-env\ 3493}# (cdr #{r\ 5426}#)))))))
- (#{extend-var-env\ 3491}#
- (lambda (#{labels\ 5430}# #{vars\ 5431}# #{r\ 5432}#)
- (if (null? #{labels\ 5430}#)
- #{r\ 5432}#
- (#{extend-var-env\ 3491}#
- (cdr #{labels\ 5430}#)
- (cdr #{vars\ 5431}#)
- (cons (cons (car #{labels\ 5430}#)
- (cons (quote lexical) (car #{vars\ 5431}#)))
- #{r\ 5432}#)))))
- (#{extend-env\ 3489}#
- (lambda (#{labels\ 5437}# #{bindings\ 5438}# #{r\ 5439}#)
- (if (null? #{labels\ 5437}#)
- #{r\ 5439}#
- (#{extend-env\ 3489}#
- (cdr #{labels\ 5437}#)
- (cdr #{bindings\ 5438}#)
- (cons (cons (car #{labels\ 5437}#)
- (car #{bindings\ 5438}#))
- #{r\ 5439}#)))))
- (#{binding-value\ 3486}# cdr)
- (#{binding-type\ 3484}# car)
- (#{source-annotation\ 3480}#
- (lambda (#{x\ 5443}#)
- (if (#{syntax-object?\ 3465}# #{x\ 5443}#)
- (#{source-annotation\ 3480}#
- (#{syntax-object-expression\ 3467}# #{x\ 5443}#))
- (if (pair? #{x\ 5443}#)
- (let ((#{props\ 5450}# (source-properties #{x\ 5443}#)))
- (if (pair? #{props\ 5450}#) #{props\ 5450}# #f))
+ (let ((#{a\ 2174}# (car #{r\ 2171}#)))
+ (if (eq? (cadr #{a\ 2174}#) (quote macro))
+ (cons #{a\ 2174}#
+ (#{macros-only-env\ 238}# (cdr #{r\ 2171}#)))
+ (#{macros-only-env\ 238}# (cdr #{r\ 2171}#)))))))
+ (#{extend-var-env\ 236}#
+ (lambda (#{labels\ 2175}# #{vars\ 2176}# #{r\ 2177}#)
+ (if (null? #{labels\ 2175}#)
+ #{r\ 2177}#
+ (#{extend-var-env\ 236}#
+ (cdr #{labels\ 2175}#)
+ (cdr #{vars\ 2176}#)
+ (cons (cons (car #{labels\ 2175}#)
+ (cons (quote lexical) (car #{vars\ 2176}#)))
+ #{r\ 2177}#)))))
+ (#{extend-env\ 234}#
+ (lambda (#{labels\ 2182}# #{bindings\ 2183}# #{r\ 2184}#)
+ (if (null? #{labels\ 2182}#)
+ #{r\ 2184}#
+ (#{extend-env\ 234}#
+ (cdr #{labels\ 2182}#)
+ (cdr #{bindings\ 2183}#)
+ (cons (cons (car #{labels\ 2182}#)
+ (car #{bindings\ 2183}#))
+ #{r\ 2184}#)))))
+ (#{binding-value\ 231}# cdr)
+ (#{binding-type\ 229}# car)
+ (#{source-annotation\ 225}#
+ (lambda (#{x\ 2188}#)
+ (if (#{syntax-object?\ 210}# #{x\ 2188}#)
+ (#{source-annotation\ 225}#
+ (#{syntax-object-expression\ 212}# #{x\ 2188}#))
+ (if (pair? #{x\ 2188}#)
+ (let ((#{props\ 2195}# (source-properties #{x\ 2188}#)))
+ (if (pair? #{props\ 2195}#) #{props\ 2195}# #f))
#f))))
- (#{set-syntax-object-module!\ 3477}#
- (lambda (#{x\ 5452}# #{update\ 5453}#)
- (vector-set! #{x\ 5452}# 3 #{update\ 5453}#)))
- (#{set-syntax-object-wrap!\ 3475}#
- (lambda (#{x\ 5456}# #{update\ 5457}#)
- (vector-set! #{x\ 5456}# 2 #{update\ 5457}#)))
- (#{set-syntax-object-expression!\ 3473}#
- (lambda (#{x\ 5460}# #{update\ 5461}#)
- (vector-set! #{x\ 5460}# 1 #{update\ 5461}#)))
- (#{syntax-object-module\ 3471}#
- (lambda (#{x\ 5464}#) (vector-ref #{x\ 5464}# 3)))
- (#{syntax-object-wrap\ 3469}#
- (lambda (#{x\ 5466}#) (vector-ref #{x\ 5466}# 2)))
- (#{syntax-object-expression\ 3467}#
- (lambda (#{x\ 5468}#) (vector-ref #{x\ 5468}# 1)))
- (#{syntax-object?\ 3465}#
- (lambda (#{x\ 5470}#)
- (if (vector? #{x\ 5470}#)
- (if (= (vector-length #{x\ 5470}#) 4)
- (eq? (vector-ref #{x\ 5470}# 0)
+ (#{set-syntax-object-module!\ 222}#
+ (lambda (#{x\ 2197}# #{update\ 2198}#)
+ (vector-set! #{x\ 2197}# 3 #{update\ 2198}#)))
+ (#{set-syntax-object-wrap!\ 220}#
+ (lambda (#{x\ 2201}# #{update\ 2202}#)
+ (vector-set! #{x\ 2201}# 2 #{update\ 2202}#)))
+ (#{set-syntax-object-expression!\ 218}#
+ (lambda (#{x\ 2205}# #{update\ 2206}#)
+ (vector-set! #{x\ 2205}# 1 #{update\ 2206}#)))
+ (#{syntax-object-module\ 216}#
+ (lambda (#{x\ 2209}#) (vector-ref #{x\ 2209}# 3)))
+ (#{syntax-object-wrap\ 214}#
+ (lambda (#{x\ 2211}#) (vector-ref #{x\ 2211}# 2)))
+ (#{syntax-object-expression\ 212}#
+ (lambda (#{x\ 2213}#) (vector-ref #{x\ 2213}# 1)))
+ (#{syntax-object?\ 210}#
+ (lambda (#{x\ 2215}#)
+ (if (vector? #{x\ 2215}#)
+ (if (= (vector-length #{x\ 2215}#) 4)
+ (eq? (vector-ref #{x\ 2215}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 3463}#
- (lambda (#{expression\ 5475}#
- #{wrap\ 5476}#
- #{module\ 5477}#)
+ (#{make-syntax-object\ 208}#
+ (lambda (#{expression\ 2220}#
+ #{wrap\ 2221}#
+ #{module\ 2222}#)
(vector
'syntax-object
- #{expression\ 5475}#
- #{wrap\ 5476}#
- #{module\ 5477}#)))
- (#{build-letrec\ 3459}#
- (lambda (#{src\ 5481}#
- #{ids\ 5482}#
- #{vars\ 5483}#
- #{val-exps\ 5484}#
- #{body-exp\ 5485}#)
- (if (null? #{vars\ 5483}#)
- #{body-exp\ 5485}#
- (let ((#{atom-key\ 5493}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5493}# (quote (c)))
+ #{expression\ 2220}#
+ #{wrap\ 2221}#
+ #{module\ 2222}#)))
+ (#{build-letrec\ 204}#
+ (lambda (#{src\ 2226}#
+ #{ids\ 2227}#
+ #{vars\ 2228}#
+ #{val-exps\ 2229}#
+ #{body-exp\ 2230}#)
+ (if (null? #{vars\ 2228}#)
+ #{body-exp\ 2230}#
+ (let ((#{atom-key\ 2238}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2238}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 3439}#
- #{ids\ 5482}#
- #{val-exps\ 5484}#)
+ #{maybe-name-value!\ 184}#
+ #{ids\ 2227}#
+ #{val-exps\ 2229}#)
((@ (language tree-il) make-letrec)
- #{src\ 5481}#
- #{ids\ 5482}#
- #{vars\ 5483}#
- #{val-exps\ 5484}#
- #{body-exp\ 5485}#))
- (#{decorate-source\ 3419}#
+ #{src\ 2226}#
+ #{ids\ 2227}#
+ #{vars\ 2228}#
+ #{val-exps\ 2229}#
+ #{body-exp\ 2230}#))
+ (#{decorate-source\ 164}#
(list 'letrec
- (map list #{vars\ 5483}# #{val-exps\ 5484}#)
- #{body-exp\ 5485}#)
- #{src\ 5481}#))))))
- (#{build-named-let\ 3457}#
- (lambda (#{src\ 5497}#
- #{ids\ 5498}#
- #{vars\ 5499}#
- #{val-exps\ 5500}#
- #{body-exp\ 5501}#)
- (let ((#{f\ 5511}# (car #{vars\ 5499}#))
- (#{f-name\ 5512}# (car #{ids\ 5498}#))
- (#{vars\ 5513}# (cdr #{vars\ 5499}#))
- (#{ids\ 5514}# (cdr #{ids\ 5498}#)))
- (let ((#{atom-key\ 5517}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5517}# (quote (c)))
- (let ((#{proc\ 5520}#
- (#{build-simple-lambda\ 3443}#
- #{src\ 5497}#
- #{ids\ 5514}#
+ (map list #{vars\ 2228}# #{val-exps\ 2229}#)
+ #{body-exp\ 2230}#)
+ #{src\ 2226}#))))))
+ (#{build-named-let\ 202}#
+ (lambda (#{src\ 2242}#
+ #{ids\ 2243}#
+ #{vars\ 2244}#
+ #{val-exps\ 2245}#
+ #{body-exp\ 2246}#)
+ (let ((#{f\ 2256}# (car #{vars\ 2244}#))
+ (#{f-name\ 2257}# (car #{ids\ 2243}#))
+ (#{vars\ 2258}# (cdr #{vars\ 2244}#))
+ (#{ids\ 2259}# (cdr #{ids\ 2243}#)))
+ (let ((#{atom-key\ 2262}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2262}# (quote (c)))
+ (let ((#{proc\ 2265}#
+ (#{build-simple-lambda\ 188}#
+ #{src\ 2242}#
+ #{ids\ 2259}#
#f
- #{vars\ 5513}#
+ #{vars\ 2258}#
#f
- #{body-exp\ 5501}#)))
+ #{body-exp\ 2246}#)))
(begin
- (#{maybe-name-value!\ 3439}#
- #{f-name\ 5512}#
- #{proc\ 5520}#)
+ (#{maybe-name-value!\ 184}#
+ #{f-name\ 2257}#
+ #{proc\ 2265}#)
(for-each
- #{maybe-name-value!\ 3439}#
- #{ids\ 5514}#
- #{val-exps\ 5500}#)
+ #{maybe-name-value!\ 184}#
+ #{ids\ 2259}#
+ #{val-exps\ 2245}#)
((@ (language tree-il) make-letrec)
- #{src\ 5497}#
- (list #{f-name\ 5512}#)
- (list #{f\ 5511}#)
- (list #{proc\ 5520}#)
- (#{build-application\ 3423}#
- #{src\ 5497}#
- (#{build-lexical-reference\ 3429}#
+ #{src\ 2242}#
+ (list #{f-name\ 2257}#)
+ (list #{f\ 2256}#)
+ (list #{proc\ 2265}#)
+ (#{build-application\ 168}#
+ #{src\ 2242}#
+ (#{build-lexical-reference\ 174}#
'fun
- #{src\ 5497}#
- #{f-name\ 5512}#
- #{f\ 5511}#)
- #{val-exps\ 5500}#))))
- (#{decorate-source\ 3419}#
+ #{src\ 2242}#
+ #{f-name\ 2257}#
+ #{f\ 2256}#)
+ #{val-exps\ 2245}#))))
+ (#{decorate-source\ 164}#
(list 'letrec
- (list (list #{f\ 5511}#
+ (list (list #{f\ 2256}#
(list 'lambda
- #{vars\ 5513}#
- #{body-exp\ 5501}#)))
- (cons #{f\ 5511}# #{val-exps\ 5500}#))
- #{src\ 5497}#))))))
- (#{build-let\ 3455}#
- (lambda (#{src\ 5523}#
- #{ids\ 5524}#
- #{vars\ 5525}#
- #{val-exps\ 5526}#
- #{body-exp\ 5527}#)
- (if (null? #{vars\ 5525}#)
- #{body-exp\ 5527}#
- (let ((#{atom-key\ 5535}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5535}# (quote (c)))
+ #{vars\ 2258}#
+ #{body-exp\ 2246}#)))
+ (cons #{f\ 2256}# #{val-exps\ 2245}#))
+ #{src\ 2242}#))))))
+ (#{build-let\ 200}#
+ (lambda (#{src\ 2268}#
+ #{ids\ 2269}#
+ #{vars\ 2270}#
+ #{val-exps\ 2271}#
+ #{body-exp\ 2272}#)
+ (if (null? #{vars\ 2270}#)
+ #{body-exp\ 2272}#
+ (let ((#{atom-key\ 2280}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2280}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 3439}#
- #{ids\ 5524}#
- #{val-exps\ 5526}#)
+ #{maybe-name-value!\ 184}#
+ #{ids\ 2269}#
+ #{val-exps\ 2271}#)
((@ (language tree-il) make-let)
- #{src\ 5523}#
- #{ids\ 5524}#
- #{vars\ 5525}#
- #{val-exps\ 5526}#
- #{body-exp\ 5527}#))
- (#{decorate-source\ 3419}#
+ #{src\ 2268}#
+ #{ids\ 2269}#
+ #{vars\ 2270}#
+ #{val-exps\ 2271}#
+ #{body-exp\ 2272}#))
+ (#{decorate-source\ 164}#
(list 'let
- (map list #{vars\ 5525}# #{val-exps\ 5526}#)
- #{body-exp\ 5527}#)
- #{src\ 5523}#))))))
- (#{build-sequence\ 3453}#
- (lambda (#{src\ 5539}# #{exps\ 5540}#)
- (if (null? (cdr #{exps\ 5540}#))
- (car #{exps\ 5540}#)
- (let ((#{atom-key\ 5545}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5545}# (quote (c)))
+ (map list #{vars\ 2270}# #{val-exps\ 2271}#)
+ #{body-exp\ 2272}#)
+ #{src\ 2268}#))))))
+ (#{build-sequence\ 198}#
+ (lambda (#{src\ 2284}# #{exps\ 2285}#)
+ (if (null? (cdr #{exps\ 2285}#))
+ (car #{exps\ 2285}#)
+ (let ((#{atom-key\ 2290}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2290}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 5539}#
- #{exps\ 5540}#)
- (#{decorate-source\ 3419}#
- (cons (quote begin) #{exps\ 5540}#)
- #{src\ 5539}#))))))
- (#{build-data\ 3451}#
- (lambda (#{src\ 5549}# #{exp\ 5550}#)
- (let ((#{atom-key\ 5555}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5555}# (quote (c)))
+ #{src\ 2284}#
+ #{exps\ 2285}#)
+ (#{decorate-source\ 164}#
+ (cons (quote begin) #{exps\ 2285}#)
+ #{src\ 2284}#))))))
+ (#{build-data\ 196}#
+ (lambda (#{src\ 2294}# #{exp\ 2295}#)
+ (let ((#{atom-key\ 2300}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2300}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 5549}#
- #{exp\ 5550}#)
- (#{decorate-source\ 3419}#
- (if (if (self-evaluating? #{exp\ 5550}#)
- (not (vector? #{exp\ 5550}#))
+ #{src\ 2294}#
+ #{exp\ 2295}#)
+ (#{decorate-source\ 164}#
+ (if (if (self-evaluating? #{exp\ 2295}#)
+ (not (vector? #{exp\ 2295}#))
#f)
- #{exp\ 5550}#
- (list (quote quote) #{exp\ 5550}#))
- #{src\ 5549}#)))))
- (#{build-primref\ 3449}#
- (lambda (#{src\ 5560}# #{name\ 5561}#)
+ #{exp\ 2295}#
+ (list (quote quote) #{exp\ 2295}#))
+ #{src\ 2294}#)))))
+ (#{build-primref\ 194}#
+ (lambda (#{src\ 2305}# #{name\ 2306}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 5566}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5566}# (quote (c)))
+ (let ((#{atom-key\ 2311}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2311}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 5560}#
- #{name\ 5561}#)
- (#{decorate-source\ 3419}#
- #{name\ 5561}#
- #{src\ 5560}#)))
- (let ((#{atom-key\ 5571}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5571}# (quote (c)))
+ #{src\ 2305}#
+ #{name\ 2306}#)
+ (#{decorate-source\ 164}#
+ #{name\ 2306}#
+ #{src\ 2305}#)))
+ (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2316}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 5560}#
+ #{src\ 2305}#
'(guile)
- #{name\ 5561}#
+ #{name\ 2306}#
#f)
- (#{decorate-source\ 3419}#
- (list (quote @@) (quote (guile)) #{name\ 5561}#)
- #{src\ 5560}#))))))
- (#{build-lambda-case\ 3447}#
- (lambda (#{src\ 5575}#
- #{req\ 5576}#
- #{opt\ 5577}#
- #{rest\ 5578}#
- #{kw\ 5579}#
- #{inits\ 5580}#
- #{vars\ 5581}#
- #{body\ 5582}#
- #{else-case\ 5583}#)
- (let ((#{atom-key\ 5595}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5595}# (quote (c)))
+ (#{decorate-source\ 164}#
+ (list (quote @@) (quote (guile)) #{name\ 2306}#)
+ #{src\ 2305}#))))))
+ (#{build-lambda-case\ 192}#
+ (lambda (#{src\ 2320}#
+ #{req\ 2321}#
+ #{opt\ 2322}#
+ #{rest\ 2323}#
+ #{kw\ 2324}#
+ #{inits\ 2325}#
+ #{vars\ 2326}#
+ #{body\ 2327}#
+ #{else-case\ 2328}#)
+ (let ((#{atom-key\ 2340}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2340}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 5575}#
- #{req\ 5576}#
- #{opt\ 5577}#
- #{rest\ 5578}#
- #{kw\ 5579}#
- #{inits\ 5580}#
- #{vars\ 5581}#
- #{body\ 5582}#
- #{else-case\ 5583}#)
- (let ((#{nreq\ 5600}# (length #{req\ 5576}#)))
- (let ((#{nopt\ 5602}#
- (if #{opt\ 5577}# (length #{opt\ 5577}#) 0)))
- (let ((#{rest-idx\ 5604}#
- (if #{rest\ 5578}#
- (+ #{nreq\ 5600}# #{nopt\ 5602}#)
+ #{src\ 2320}#
+ #{req\ 2321}#
+ #{opt\ 2322}#
+ #{rest\ 2323}#
+ #{kw\ 2324}#
+ #{inits\ 2325}#
+ #{vars\ 2326}#
+ #{body\ 2327}#
+ #{else-case\ 2328}#)
+ (let ((#{nreq\ 2345}# (length #{req\ 2321}#)))
+ (let ((#{nopt\ 2347}#
+ (if #{opt\ 2322}# (length #{opt\ 2322}#) 0)))
+ (let ((#{rest-idx\ 2349}#
+ (if #{rest\ 2323}#
+ (+ #{nreq\ 2345}# #{nopt\ 2347}#)
#f)))
- (let ((#{allow-other-keys?\ 5608}#
- (if #{kw\ 5579}# (car #{kw\ 5579}#) #f)))
- (let ((#{kw-indices\ 5610}#
- (map (lambda (#{x\ 5611}#)
- (cons (car #{x\ 5611}#)
+ (let ((#{allow-other-keys?\ 2353}#
+ (if #{kw\ 2324}# (car #{kw\ 2324}#) #f)))
+ (let ((#{kw-indices\ 2355}#
+ (map (lambda (#{x\ 2356}#)
+ (cons (car #{x\ 2356}#)
(list-index
- #{vars\ 5581}#
- (caddr #{x\ 5611}#))))
- (if #{kw\ 5579}#
- (cdr #{kw\ 5579}#)
+ #{vars\ 2326}#
+ (caddr #{x\ 2356}#))))
+ (if #{kw\ 2324}#
+ (cdr #{kw\ 2324}#)
'()))))
- (let ((#{nargs\ 5614}#
+ (let ((#{nargs\ 2359}#
(apply max
- (+ #{nreq\ 5600}#
- #{nopt\ 5602}#
- (if #{rest\ 5578}# 1 0))
+ (+ #{nreq\ 2345}#
+ #{nopt\ 2347}#
+ (if #{rest\ 2323}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 5610}#)))))
+ #{kw-indices\ 2355}#)))))
(begin
- (let ((#{t\ 5617}#
- (= #{nargs\ 5614}#
- (length #{vars\ 5581}#)
- (+ #{nreq\ 5600}#
- (length #{inits\ 5580}#)
- (if #{rest\ 5578}# 1 0)))))
- (if #{t\ 5617}#
- #{t\ 5617}#
+ (let ((#{t\ 2362}#
+ (= #{nargs\ 2359}#
+ (length #{vars\ 2326}#)
+ (+ #{nreq\ 2345}#
+ (length #{inits\ 2325}#)
+ (if #{rest\ 2323}# 1 0)))))
+ (if #{t\ 2362}#
+ #{t\ 2362}#
(error "something went wrong"
- #{req\ 5576}#
- #{opt\ 5577}#
- #{rest\ 5578}#
- #{kw\ 5579}#
- #{inits\ 5580}#
- #{vars\ 5581}#
- #{nreq\ 5600}#
- #{nopt\ 5602}#
- #{kw-indices\ 5610}#
- #{nargs\ 5614}#)))
- (#{decorate-source\ 3419}#
+ #{req\ 2321}#
+ #{opt\ 2322}#
+ #{rest\ 2323}#
+ #{kw\ 2324}#
+ #{inits\ 2325}#
+ #{vars\ 2326}#
+ #{nreq\ 2345}#
+ #{nopt\ 2347}#
+ #{kw-indices\ 2355}#
+ #{nargs\ 2359}#)))
+ (#{decorate-source\ 164}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\ 5600}#
- #{nopt\ 5602}#
- #{rest-idx\ 5604}#
- #{nargs\ 5614}#
- #{allow-other-keys?\ 5608}#
- #{kw-indices\ 5610}#))
+ (list #{nreq\ 2345}#
+ #{nopt\ 2347}#
+ #{rest-idx\ 2349}#
+ #{nargs\ 2359}#
+ #{allow-other-keys?\ 2353}#
+ #{kw-indices\ 2355}#))
(cons (cons 'list
- (map (lambda (#{i\ 5620}#)
+ (map (lambda (#{i\ 2365}#)
(list 'lambda
- #{vars\ 5581}#
- #{i\ 5620}#))
- #{inits\ 5580}#))
+ #{vars\ 2326}#
+ #{i\ 2365}#))
+ #{inits\ 2325}#))
'(%%args))))
'=>
(list 'lambda
'(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\ 5581}#
- #{body\ 5582}#)
+ #{vars\ 2326}#
+ #{body\ 2327}#)
'(%%args)))))
- (let ((#{t\ 5625}#
- #{else-case\ 5583}#))
- (if #{t\ 5625}#
- #{t\ 5625}#
+ (let ((#{t\ 2370}#
+ #{else-case\ 2328}#))
+ (if #{t\ 2370}#
+ #{t\ 2370}#
'((%%args
(scm-error
'wrong-number-of-args
@@ -7526,1424 +7514,1423 @@
"Wrong number of arguments"
'()
%%args))))))
- #{src\ 5575}#))))))))))))
- (#{build-case-lambda\ 3445}#
- (lambda (#{src\ 5628}#
- #{docstring\ 5629}#
- #{body\ 5630}#)
- (let ((#{atom-key\ 5636}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5636}# (quote (c)))
+ #{src\ 2320}#))))))))))))
+ (#{build-case-lambda\ 190}#
+ (lambda (#{src\ 2373}#
+ #{docstring\ 2374}#
+ #{body\ 2375}#)
+ (let ((#{atom-key\ 2381}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2381}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 5628}#
- (if #{docstring\ 5629}#
- (list (cons (quote documentation) #{docstring\ 5629}#))
+ #{src\ 2373}#
+ (if #{docstring\ 2374}#
+ (list (cons (quote documentation) #{docstring\ 2374}#))
'())
- #{body\ 5630}#)
- (#{decorate-source\ 3419}#
+ #{body\ 2375}#)
+ (#{decorate-source\ 164}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 5629}#
- (list #{docstring\ 5629}#)
+ (if #{docstring\ 2374}#
+ (list #{docstring\ 2374}#)
'())
- (list (cons (quote cond) #{body\ 5630}#)))))
- #{src\ 5628}#)))))
- (#{build-simple-lambda\ 3443}#
- (lambda (#{src\ 5641}#
- #{req\ 5642}#
- #{rest\ 5643}#
- #{vars\ 5644}#
- #{docstring\ 5645}#
- #{exp\ 5646}#)
- (let ((#{atom-key\ 5655}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5655}# (quote (c)))
+ (list (cons (quote cond) #{body\ 2375}#)))))
+ #{src\ 2373}#)))))
+ (#{build-simple-lambda\ 188}#
+ (lambda (#{src\ 2386}#
+ #{req\ 2387}#
+ #{rest\ 2388}#
+ #{vars\ 2389}#
+ #{docstring\ 2390}#
+ #{exp\ 2391}#)
+ (let ((#{atom-key\ 2400}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2400}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 5641}#
- (if #{docstring\ 5645}#
- (list (cons (quote documentation) #{docstring\ 5645}#))
+ #{src\ 2386}#
+ (if #{docstring\ 2390}#
+ (list (cons (quote documentation) #{docstring\ 2390}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 5641}#
- #{req\ 5642}#
+ #{src\ 2386}#
+ #{req\ 2387}#
#f
- #{rest\ 5643}#
+ #{rest\ 2388}#
#f
'()
- #{vars\ 5644}#
- #{exp\ 5646}#
+ #{vars\ 2389}#
+ #{exp\ 2391}#
#f))
- (#{decorate-source\ 3419}#
+ (#{decorate-source\ 164}#
(cons 'lambda
- (cons (if #{rest\ 5643}#
- (apply cons* #{vars\ 5644}#)
- #{vars\ 5644}#)
+ (cons (if #{rest\ 2388}#
+ (apply cons* #{vars\ 2389}#)
+ #{vars\ 2389}#)
(append
- (if #{docstring\ 5645}#
- (list #{docstring\ 5645}#)
+ (if #{docstring\ 2390}#
+ (list #{docstring\ 2390}#)
'())
- (list #{exp\ 5646}#))))
- #{src\ 5641}#)))))
- (#{build-global-definition\ 3441}#
- (lambda (#{source\ 5660}# #{var\ 5661}# #{exp\ 5662}#)
- (let ((#{atom-key\ 5668}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5668}# (quote (c)))
+ (list #{exp\ 2391}#))))
+ #{src\ 2386}#)))))
+ (#{build-global-definition\ 186}#
+ (lambda (#{source\ 2405}# #{var\ 2406}# #{exp\ 2407}#)
+ (let ((#{atom-key\ 2413}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2413}# (quote (c)))
(begin
- (#{maybe-name-value!\ 3439}#
- #{var\ 5661}#
- #{exp\ 5662}#)
+ (#{maybe-name-value!\ 184}#
+ #{var\ 2406}#
+ #{exp\ 2407}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 5660}#
- #{var\ 5661}#
- #{exp\ 5662}#))
- (#{decorate-source\ 3419}#
- (list (quote define) #{var\ 5661}# #{exp\ 5662}#)
- #{source\ 5660}#)))))
- (#{maybe-name-value!\ 3439}#
- (lambda (#{name\ 5672}# #{val\ 5673}#)
- (if ((@ (language tree-il) lambda?) #{val\ 5673}#)
- (let ((#{meta\ 5679}#
+ #{source\ 2405}#
+ #{var\ 2406}#
+ #{exp\ 2407}#))
+ (#{decorate-source\ 164}#
+ (list (quote define) #{var\ 2406}# #{exp\ 2407}#)
+ #{source\ 2405}#)))))
+ (#{maybe-name-value!\ 184}#
+ (lambda (#{name\ 2417}# #{val\ 2418}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2418}#)
+ (let ((#{meta\ 2424}#
((@ (language tree-il) lambda-meta)
- #{val\ 5673}#)))
- (if (not (assq (quote name) #{meta\ 5679}#))
+ #{val\ 2418}#)))
+ (if (not (assq (quote name) #{meta\ 2424}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 5673}#
+ #{val\ 2418}#
(acons 'name
- #{name\ 5672}#
- #{meta\ 5679}#)))))))
- (#{build-global-assignment\ 3437}#
- (lambda (#{source\ 5680}#
- #{var\ 5681}#
- #{exp\ 5682}#
- #{mod\ 5683}#)
- (#{analyze-variable\ 3433}#
- #{mod\ 5683}#
- #{var\ 5681}#
- (lambda (#{mod\ 5688}# #{var\ 5689}# #{public?\ 5690}#)
- (let ((#{atom-key\ 5696}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5696}# (quote (c)))
+ #{name\ 2417}#
+ #{meta\ 2424}#)))))))
+ (#{build-global-assignment\ 182}#
+ (lambda (#{source\ 2425}#
+ #{var\ 2426}#
+ #{exp\ 2427}#
+ #{mod\ 2428}#)
+ (#{analyze-variable\ 178}#
+ #{mod\ 2428}#
+ #{var\ 2426}#
+ (lambda (#{mod\ 2433}# #{var\ 2434}# #{public?\ 2435}#)
+ (let ((#{atom-key\ 2441}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2441}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 5680}#
- #{mod\ 5688}#
- #{var\ 5689}#
- #{public?\ 5690}#
- #{exp\ 5682}#)
- (#{decorate-source\ 3419}#
+ #{source\ 2425}#
+ #{mod\ 2433}#
+ #{var\ 2434}#
+ #{public?\ 2435}#
+ #{exp\ 2427}#)
+ (#{decorate-source\ 164}#
(list 'set!
- (list (if #{public?\ 5690}#
+ (list (if #{public?\ 2435}#
'@
'@@)
- #{mod\ 5688}#
- #{var\ 5689}#)
- #{exp\ 5682}#)
- #{source\ 5680}#))))
- (lambda (#{var\ 5700}#)
- (let ((#{atom-key\ 5704}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5704}# (quote (c)))
+ #{mod\ 2433}#
+ #{var\ 2434}#)
+ #{exp\ 2427}#)
+ #{source\ 2425}#))))
+ (lambda (#{var\ 2445}#)
+ (let ((#{atom-key\ 2449}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2449}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 5680}#
- #{var\ 5700}#
- #{exp\ 5682}#)
- (#{decorate-source\ 3419}#
- (list (quote set!) #{var\ 5700}# #{exp\ 5682}#)
- #{source\ 5680}#)))))))
- (#{build-global-reference\ 3435}#
- (lambda (#{source\ 5708}# #{var\ 5709}# #{mod\ 5710}#)
- (#{analyze-variable\ 3433}#
- #{mod\ 5710}#
- #{var\ 5709}#
- (lambda (#{mod\ 5714}# #{var\ 5715}# #{public?\ 5716}#)
- (let ((#{atom-key\ 5722}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5722}# (quote (c)))
+ #{source\ 2425}#
+ #{var\ 2445}#
+ #{exp\ 2427}#)
+ (#{decorate-source\ 164}#
+ (list (quote set!) #{var\ 2445}# #{exp\ 2427}#)
+ #{source\ 2425}#)))))))
+ (#{build-global-reference\ 180}#
+ (lambda (#{source\ 2453}# #{var\ 2454}# #{mod\ 2455}#)
+ (#{analyze-variable\ 178}#
+ #{mod\ 2455}#
+ #{var\ 2454}#
+ (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#)
+ (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2467}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 5708}#
- #{mod\ 5714}#
- #{var\ 5715}#
- #{public?\ 5716}#)
- (#{decorate-source\ 3419}#
- (list (if #{public?\ 5716}# (quote @) (quote @@))
- #{mod\ 5714}#
- #{var\ 5715}#)
- #{source\ 5708}#))))
- (lambda (#{var\ 5725}#)
- (let ((#{atom-key\ 5729}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5729}# (quote (c)))
+ #{source\ 2453}#
+ #{mod\ 2459}#
+ #{var\ 2460}#
+ #{public?\ 2461}#)
+ (#{decorate-source\ 164}#
+ (list (if #{public?\ 2461}# (quote @) (quote @@))
+ #{mod\ 2459}#
+ #{var\ 2460}#)
+ #{source\ 2453}#))))
+ (lambda (#{var\ 2470}#)
+ (let ((#{atom-key\ 2474}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2474}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 5708}#
- #{var\ 5725}#)
- (#{decorate-source\ 3419}#
- #{var\ 5725}#
- #{source\ 5708}#)))))))
- (#{analyze-variable\ 3433}#
- (lambda (#{mod\ 5732}#
- #{var\ 5733}#
- #{modref-cont\ 5734}#
- #{bare-cont\ 5735}#)
- (if (not #{mod\ 5732}#)
- (#{bare-cont\ 5735}# #{var\ 5733}#)
- (let ((#{kind\ 5742}# (car #{mod\ 5732}#))
- (#{mod\ 5743}# (cdr #{mod\ 5732}#)))
- (if (memv #{kind\ 5742}# (quote (public)))
- (#{modref-cont\ 5734}#
- #{mod\ 5743}#
- #{var\ 5733}#
+ #{source\ 2453}#
+ #{var\ 2470}#)
+ (#{decorate-source\ 164}#
+ #{var\ 2470}#
+ #{source\ 2453}#)))))))
+ (#{analyze-variable\ 178}#
+ (lambda (#{mod\ 2477}#
+ #{var\ 2478}#
+ #{modref-cont\ 2479}#
+ #{bare-cont\ 2480}#)
+ (if (not #{mod\ 2477}#)
+ (#{bare-cont\ 2480}# #{var\ 2478}#)
+ (let ((#{kind\ 2487}# (car #{mod\ 2477}#))
+ (#{mod\ 2488}# (cdr #{mod\ 2477}#)))
+ (if (memv #{kind\ 2487}# (quote (public)))
+ (#{modref-cont\ 2479}#
+ #{mod\ 2488}#
+ #{var\ 2478}#
#t)
- (if (memv #{kind\ 5742}# (quote (private)))
+ (if (memv #{kind\ 2487}# (quote (private)))
(if (not (equal?
- #{mod\ 5743}#
+ #{mod\ 2488}#
(module-name (current-module))))
- (#{modref-cont\ 5734}#
- #{mod\ 5743}#
- #{var\ 5733}#
+ (#{modref-cont\ 2479}#
+ #{mod\ 2488}#
+ #{var\ 2478}#
#f)
- (#{bare-cont\ 5735}# #{var\ 5733}#))
- (if (memv #{kind\ 5742}# (quote (bare)))
- (#{bare-cont\ 5735}# #{var\ 5733}#)
- (if (memv #{kind\ 5742}# (quote (hygiene)))
+ (#{bare-cont\ 2480}# #{var\ 2478}#))
+ (if (memv #{kind\ 2487}# (quote (bare)))
+ (#{bare-cont\ 2480}# #{var\ 2478}#)
+ (if (memv #{kind\ 2487}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 5743}#
+ #{mod\ 2488}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 5743}#)
- #{var\ 5733}#)
+ (resolve-module #{mod\ 2488}#)
+ #{var\ 2478}#)
#f)
- (#{modref-cont\ 5734}#
- #{mod\ 5743}#
- #{var\ 5733}#
+ (#{modref-cont\ 2479}#
+ #{mod\ 2488}#
+ #{var\ 2478}#
#f)
- (#{bare-cont\ 5735}# #{var\ 5733}#))
+ (#{bare-cont\ 2480}# #{var\ 2478}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 5733}#
- #{mod\ 5743}#)))))))))
- (#{build-lexical-assignment\ 3431}#
- (lambda (#{source\ 5751}#
- #{name\ 5752}#
- #{var\ 5753}#
- #{exp\ 5754}#)
- (let ((#{atom-key\ 5761}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5761}# (quote (c)))
+ #{var\ 2478}#
+ #{mod\ 2488}#)))))))))
+ (#{build-lexical-assignment\ 176}#
+ (lambda (#{source\ 2496}#
+ #{name\ 2497}#
+ #{var\ 2498}#
+ #{exp\ 2499}#)
+ (let ((#{atom-key\ 2506}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2506}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 5751}#
- #{name\ 5752}#
- #{var\ 5753}#
- #{exp\ 5754}#)
- (#{decorate-source\ 3419}#
- (list (quote set!) #{var\ 5753}# #{exp\ 5754}#)
- #{source\ 5751}#)))))
- (#{build-lexical-reference\ 3429}#
- (lambda (#{type\ 5765}#
- #{source\ 5766}#
- #{name\ 5767}#
- #{var\ 5768}#)
- (let ((#{atom-key\ 5775}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5775}# (quote (c)))
+ #{source\ 2496}#
+ #{name\ 2497}#
+ #{var\ 2498}#
+ #{exp\ 2499}#)
+ (#{decorate-source\ 164}#
+ (list (quote set!) #{var\ 2498}# #{exp\ 2499}#)
+ #{source\ 2496}#)))))
+ (#{build-lexical-reference\ 174}#
+ (lambda (#{type\ 2510}#
+ #{source\ 2511}#
+ #{name\ 2512}#
+ #{var\ 2513}#)
+ (let ((#{atom-key\ 2520}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2520}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 5766}#
- #{name\ 5767}#
- #{var\ 5768}#)
- (#{decorate-source\ 3419}#
- #{var\ 5768}#
- #{source\ 5766}#)))))
- (#{build-dynlet\ 3427}#
- (lambda (#{source\ 5778}#
- #{fluids\ 5779}#
- #{vals\ 5780}#
- #{body\ 5781}#)
- (let ((#{atom-key\ 5788}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5788}# (quote (c)))
+ #{source\ 2511}#
+ #{name\ 2512}#
+ #{var\ 2513}#)
+ (#{decorate-source\ 164}#
+ #{var\ 2513}#
+ #{source\ 2511}#)))))
+ (#{build-dynlet\ 172}#
+ (lambda (#{source\ 2523}#
+ #{fluids\ 2524}#
+ #{vals\ 2525}#
+ #{body\ 2526}#)
+ (let ((#{atom-key\ 2533}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2533}# (quote (c)))
((@ (language tree-il) make-dynlet)
- #{source\ 5778}#
- #{fluids\ 5779}#
- #{vals\ 5780}#
- #{body\ 5781}#)
- (#{decorate-source\ 3419}#
+ #{source\ 2523}#
+ #{fluids\ 2524}#
+ #{vals\ 2525}#
+ #{body\ 2526}#)
+ (#{decorate-source\ 164}#
(list 'with-fluids
- (map list #{fluids\ 5779}# #{vals\ 5780}#)
- #{body\ 5781}#)
- #{source\ 5778}#)))))
- (#{build-conditional\ 3425}#
- (lambda (#{source\ 5792}#
- #{test-exp\ 5793}#
- #{then-exp\ 5794}#
- #{else-exp\ 5795}#)
- (let ((#{atom-key\ 5802}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5802}# (quote (c)))
+ (map list #{fluids\ 2524}# #{vals\ 2525}#)
+ #{body\ 2526}#)
+ #{source\ 2523}#)))))
+ (#{build-conditional\ 170}#
+ (lambda (#{source\ 2537}#
+ #{test-exp\ 2538}#
+ #{then-exp\ 2539}#
+ #{else-exp\ 2540}#)
+ (let ((#{atom-key\ 2547}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2547}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 5792}#
- #{test-exp\ 5793}#
- #{then-exp\ 5794}#
- #{else-exp\ 5795}#)
- (#{decorate-source\ 3419}#
- (if (equal? #{else-exp\ 5795}# (quote (if #f #f)))
+ #{source\ 2537}#
+ #{test-exp\ 2538}#
+ #{then-exp\ 2539}#
+ #{else-exp\ 2540}#)
+ (#{decorate-source\ 164}#
+ (if (equal? #{else-exp\ 2540}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 5793}#
- #{then-exp\ 5794}#)
+ #{test-exp\ 2538}#
+ #{then-exp\ 2539}#)
(list 'if
- #{test-exp\ 5793}#
- #{then-exp\ 5794}#
- #{else-exp\ 5795}#))
- #{source\ 5792}#)))))
- (#{build-application\ 3423}#
- (lambda (#{source\ 5807}#
- #{fun-exp\ 5808}#
- #{arg-exps\ 5809}#)
- (let ((#{atom-key\ 5815}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5815}# (quote (c)))
+ #{test-exp\ 2538}#
+ #{then-exp\ 2539}#
+ #{else-exp\ 2540}#))
+ #{source\ 2537}#)))))
+ (#{build-application\ 168}#
+ (lambda (#{source\ 2552}#
+ #{fun-exp\ 2553}#
+ #{arg-exps\ 2554}#)
+ (let ((#{atom-key\ 2560}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2560}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 5807}#
- #{fun-exp\ 5808}#
- #{arg-exps\ 5809}#)
- (#{decorate-source\ 3419}#
- (cons #{fun-exp\ 5808}# #{arg-exps\ 5809}#)
- #{source\ 5807}#)))))
- (#{build-void\ 3421}#
- (lambda (#{source\ 5819}#)
- (let ((#{atom-key\ 5823}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5823}# (quote (c)))
+ #{source\ 2552}#
+ #{fun-exp\ 2553}#
+ #{arg-exps\ 2554}#)
+ (#{decorate-source\ 164}#
+ (cons #{fun-exp\ 2553}# #{arg-exps\ 2554}#)
+ #{source\ 2552}#)))))
+ (#{build-void\ 166}#
+ (lambda (#{source\ 2564}#)
+ (let ((#{atom-key\ 2568}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2568}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 5819}#)
- (#{decorate-source\ 3419}#
+ #{source\ 2564}#)
+ (#{decorate-source\ 164}#
'(if #f #f)
- #{source\ 5819}#)))))
- (#{decorate-source\ 3419}#
- (lambda (#{e\ 5826}# #{s\ 5827}#)
+ #{source\ 2564}#)))))
+ (#{decorate-source\ 164}#
+ (lambda (#{e\ 2571}# #{s\ 2572}#)
(begin
- (if (if (pair? #{e\ 5826}#) #{s\ 5827}# #f)
- (set-source-properties! #{e\ 5826}# #{s\ 5827}#))
- #{e\ 5826}#)))
- (#{get-global-definition-hook\ 3417}#
- (lambda (#{symbol\ 5832}# #{module\ 5833}#)
+ (if (if (pair? #{e\ 2571}#) #{s\ 2572}# #f)
+ (set-source-properties! #{e\ 2571}# #{s\ 2572}#))
+ #{e\ 2571}#)))
+ (#{get-global-definition-hook\ 162}#
+ (lambda (#{symbol\ 2577}# #{module\ 2578}#)
(begin
- (if (if (not #{module\ 5833}#) (current-module) #f)
+ (if (if (not #{module\ 2578}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 5832}#))
- (let ((#{v\ 5839}#
+ #{symbol\ 2577}#))
+ (let ((#{v\ 2584}#
(module-variable
- (if #{module\ 5833}#
- (resolve-module (cdr #{module\ 5833}#))
+ (if #{module\ 2578}#
+ (resolve-module (cdr #{module\ 2578}#))
(current-module))
- #{symbol\ 5832}#)))
- (if #{v\ 5839}#
- (if (variable-bound? #{v\ 5839}#)
- (let ((#{val\ 5844}# (variable-ref #{v\ 5839}#)))
- (if (macro? #{val\ 5844}#)
- (if (macro-type #{val\ 5844}#)
- (cons (macro-type #{val\ 5844}#)
- (macro-binding #{val\ 5844}#))
+ #{symbol\ 2577}#)))
+ (if #{v\ 2584}#
+ (if (variable-bound? #{v\ 2584}#)
+ (let ((#{val\ 2589}# (variable-ref #{v\ 2584}#)))
+ (if (macro? #{val\ 2589}#)
+ (if (macro-type #{val\ 2589}#)
+ (cons (macro-type #{val\ 2589}#)
+ (macro-binding #{val\ 2589}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 3415}#
- (lambda (#{symbol\ 5848}# #{type\ 5849}# #{val\ 5850}#)
+ (#{put-global-definition-hook\ 160}#
+ (lambda (#{symbol\ 2593}# #{type\ 2594}# #{val\ 2595}#)
(module-define!
(current-module)
- #{symbol\ 5848}#
+ #{symbol\ 2593}#
(make-syntax-transformer
- #{symbol\ 5848}#
- #{type\ 5849}#
- #{val\ 5850}#))))
- (#{local-eval-hook\ 3412}#
- (lambda (#{x\ 5854}# #{mod\ 5855}#)
+ #{symbol\ 2593}#
+ #{type\ 2594}#
+ #{val\ 2595}#))))
+ (#{local-eval-hook\ 157}#
+ (lambda (#{x\ 2599}# #{mod\ 2600}#)
(primitive-eval
- (list #{noexpand\ 3398}#
- (let ((#{atom-key\ 5861}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5861}# (quote (c)))
+ (list #{noexpand\ 143}#
+ (let ((#{atom-key\ 2606}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2606}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 5854}#)
- #{x\ 5854}#))))))
- (#{top-level-eval-hook\ 3410}#
- (lambda (#{x\ 5864}# #{mod\ 5865}#)
+ #{x\ 2599}#)
+ #{x\ 2599}#))))))
+ (#{top-level-eval-hook\ 155}#
+ (lambda (#{x\ 2609}# #{mod\ 2610}#)
(primitive-eval
- (list #{noexpand\ 3398}#
- (let ((#{atom-key\ 5871}# (fluid-ref #{*mode*\ 3400}#)))
- (if (memv #{atom-key\ 5871}# (quote (c)))
+ (list #{noexpand\ 143}#
+ (let ((#{atom-key\ 2616}# (fluid-ref #{*mode*\ 145}#)))
+ (if (memv #{atom-key\ 2616}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 5864}#)
- #{x\ 5864}#))))))
- (#{fx<\ 3408}# <)
- (#{fx=\ 3406}# =)
- (#{fx-\ 3404}# -)
- (#{fx+\ 3402}# +)
- (#{*mode*\ 3400}# (make-fluid))
- (#{noexpand\ 3398}# "noexpand"))
+ #{x\ 2609}#)
+ #{x\ 2609}#))))))
+ (#{fx<\ 153}# <)
+ (#{fx=\ 151}# =)
+ (#{fx-\ 149}# -)
+ (#{fx+\ 147}# +)
+ (#{*mode*\ 145}# (make-fluid))
+ (#{noexpand\ 143}# "noexpand"))
(begin
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'core
'fluid-let-syntax
- (lambda (#{e\ 5874}#
- #{r\ 5875}#
- #{w\ 5876}#
- #{s\ 5877}#
- #{mod\ 5878}#)
- ((lambda (#{tmp\ 5884}#)
- ((lambda (#{tmp\ 5885}#)
- (if (if #{tmp\ 5885}#
- (apply (lambda (#{_\ 5891}#
- #{var\ 5892}#
- #{val\ 5893}#
- #{e1\ 5894}#
- #{e2\ 5895}#)
- (#{valid-bound-ids?\ 3564}# #{var\ 5892}#))
- #{tmp\ 5885}#)
+ (lambda (#{e\ 2619}#
+ #{r\ 2620}#
+ #{w\ 2621}#
+ #{s\ 2622}#
+ #{mod\ 2623}#)
+ ((lambda (#{tmp\ 2629}#)
+ ((lambda (#{tmp\ 2630}#)
+ (if (if #{tmp\ 2630}#
+ (apply (lambda (#{_\ 2636}#
+ #{var\ 2637}#
+ #{val\ 2638}#
+ #{e1\ 2639}#
+ #{e2\ 2640}#)
+ (#{valid-bound-ids?\ 309}# #{var\ 2637}#))
+ #{tmp\ 2630}#)
#f)
- (apply (lambda (#{_\ 5902}#
- #{var\ 5903}#
- #{val\ 5904}#
- #{e1\ 5905}#
- #{e2\ 5906}#)
- (let ((#{names\ 5908}#
- (map (lambda (#{x\ 5909}#)
- (#{id-var-name\ 3558}#
- #{x\ 5909}#
- #{w\ 5876}#))
- #{var\ 5903}#)))
+ (apply (lambda (#{_\ 2647}#
+ #{var\ 2648}#
+ #{val\ 2649}#
+ #{e1\ 2650}#
+ #{e2\ 2651}#)
+ (let ((#{names\ 2653}#
+ (map (lambda (#{x\ 2654}#)
+ (#{id-var-name\ 303}#
+ #{x\ 2654}#
+ #{w\ 2621}#))
+ #{var\ 2648}#)))
(begin
(for-each
- (lambda (#{id\ 5912}# #{n\ 5913}#)
- (let ((#{atom-key\ 5918}#
- (#{binding-type\ 3484}#
- (#{lookup\ 3495}#
- #{n\ 5913}#
- #{r\ 5875}#
- #{mod\ 5878}#))))
- (if (memv #{atom-key\ 5918}#
+ (lambda (#{id\ 2657}# #{n\ 2658}#)
+ (let ((#{atom-key\ 2663}#
+ (#{binding-type\ 229}#
+ (#{lookup\ 240}#
+ #{n\ 2658}#
+ #{r\ 2620}#
+ #{mod\ 2623}#))))
+ (if (memv #{atom-key\ 2663}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 5874}#
- (#{source-wrap\ 3572}#
- #{id\ 5912}#
- #{w\ 5876}#
- #{s\ 5877}#
- #{mod\ 5878}#)))))
- #{var\ 5903}#
- #{names\ 5908}#)
- (#{chi-body\ 3594}#
- (cons #{e1\ 5905}# #{e2\ 5906}#)
- (#{source-wrap\ 3572}#
- #{e\ 5874}#
- #{w\ 5876}#
- #{s\ 5877}#
- #{mod\ 5878}#)
- (#{extend-env\ 3489}#
- #{names\ 5908}#
- (let ((#{trans-r\ 5923}#
- (#{macros-only-env\ 3493}#
- #{r\ 5875}#)))
- (map (lambda (#{x\ 5924}#)
+ #{e\ 2619}#
+ (#{source-wrap\ 317}#
+ #{id\ 2657}#
+ #{w\ 2621}#
+ #{s\ 2622}#
+ #{mod\ 2623}#)))))
+ #{var\ 2648}#
+ #{names\ 2653}#)
+ (#{chi-body\ 339}#
+ (cons #{e1\ 2650}# #{e2\ 2651}#)
+ (#{source-wrap\ 317}#
+ #{e\ 2619}#
+ #{w\ 2621}#
+ #{s\ 2622}#
+ #{mod\ 2623}#)
+ (#{extend-env\ 234}#
+ #{names\ 2653}#
+ (let ((#{trans-r\ 2668}#
+ (#{macros-only-env\ 238}#
+ #{r\ 2620}#)))
+ (map (lambda (#{x\ 2669}#)
(cons 'macro
- (#{eval-local-transformer\ 3598}#
- (#{chi\ 3586}#
- #{x\ 5924}#
- #{trans-r\ 5923}#
- #{w\ 5876}#
- #{mod\ 5878}#)
- #{mod\ 5878}#)))
- #{val\ 5904}#))
- #{r\ 5875}#)
- #{w\ 5876}#
- #{mod\ 5878}#))))
- #{tmp\ 5885}#)
- ((lambda (#{_\ 5929}#)
+ (#{eval-local-transformer\ 343}#
+ (#{chi\ 331}#
+ #{x\ 2669}#
+ #{trans-r\ 2668}#
+ #{w\ 2621}#
+ #{mod\ 2623}#)
+ #{mod\ 2623}#)))
+ #{val\ 2649}#))
+ #{r\ 2620}#)
+ #{w\ 2621}#
+ #{mod\ 2623}#))))
+ #{tmp\ 2630}#)
+ ((lambda (#{_\ 2674}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 3572}#
- #{e\ 5874}#
- #{w\ 5876}#
- #{s\ 5877}#
- #{mod\ 5878}#)))
- #{tmp\ 5884}#)))
+ (#{source-wrap\ 317}#
+ #{e\ 2619}#
+ #{w\ 2621}#
+ #{s\ 2622}#
+ #{mod\ 2623}#)))
+ #{tmp\ 2629}#)))
($sc-dispatch
- #{tmp\ 5884}#
+ #{tmp\ 2629}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5874}#)))
- (#{global-extend\ 3497}#
+ #{e\ 2619}#)))
+ (#{global-extend\ 242}#
'core
'quote
- (lambda (#{e\ 5930}#
- #{r\ 5931}#
- #{w\ 5932}#
- #{s\ 5933}#
- #{mod\ 5934}#)
- ((lambda (#{tmp\ 5940}#)
- ((lambda (#{tmp\ 5941}#)
- (if #{tmp\ 5941}#
- (apply (lambda (#{_\ 5944}# #{e\ 5945}#)
- (#{build-data\ 3451}#
- #{s\ 5933}#
- (#{strip\ 3612}# #{e\ 5945}# #{w\ 5932}#)))
- #{tmp\ 5941}#)
- ((lambda (#{_\ 5947}#)
+ (lambda (#{e\ 2675}#
+ #{r\ 2676}#
+ #{w\ 2677}#
+ #{s\ 2678}#
+ #{mod\ 2679}#)
+ ((lambda (#{tmp\ 2685}#)
+ ((lambda (#{tmp\ 2686}#)
+ (if #{tmp\ 2686}#
+ (apply (lambda (#{_\ 2689}# #{e\ 2690}#)
+ (#{build-data\ 196}#
+ #{s\ 2678}#
+ (#{strip\ 357}# #{e\ 2690}# #{w\ 2677}#)))
+ #{tmp\ 2686}#)
+ ((lambda (#{_\ 2692}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 3572}#
- #{e\ 5930}#
- #{w\ 5932}#
- #{s\ 5933}#
- #{mod\ 5934}#)))
- #{tmp\ 5940}#)))
- ($sc-dispatch #{tmp\ 5940}# (quote (any any)))))
- #{e\ 5930}#)))
- (#{global-extend\ 3497}#
+ (#{source-wrap\ 317}#
+ #{e\ 2675}#
+ #{w\ 2677}#
+ #{s\ 2678}#
+ #{mod\ 2679}#)))
+ #{tmp\ 2685}#)))
+ ($sc-dispatch #{tmp\ 2685}# (quote (any any)))))
+ #{e\ 2675}#)))
+ (#{global-extend\ 242}#
'core
'syntax
- (letrec ((#{regen\ 5963}#
- (lambda (#{x\ 5964}#)
- (let ((#{atom-key\ 5968}# (car #{x\ 5964}#)))
- (if (memv #{atom-key\ 5968}# (quote (ref)))
- (#{build-lexical-reference\ 3429}#
+ (letrec ((#{regen\ 2708}#
+ (lambda (#{x\ 2709}#)
+ (let ((#{atom-key\ 2713}# (car #{x\ 2709}#)))
+ (if (memv #{atom-key\ 2713}# (quote (ref)))
+ (#{build-lexical-reference\ 174}#
'value
#f
- (cadr #{x\ 5964}#)
- (cadr #{x\ 5964}#))
- (if (memv #{atom-key\ 5968}# (quote (primitive)))
- (#{build-primref\ 3449}# #f (cadr #{x\ 5964}#))
- (if (memv #{atom-key\ 5968}# (quote (quote)))
- (#{build-data\ 3451}# #f (cadr #{x\ 5964}#))
- (if (memv #{atom-key\ 5968}# (quote (lambda)))
- (if (list? (cadr #{x\ 5964}#))
- (#{build-simple-lambda\ 3443}#
+ (cadr #{x\ 2709}#)
+ (cadr #{x\ 2709}#))
+ (if (memv #{atom-key\ 2713}# (quote (primitive)))
+ (#{build-primref\ 194}# #f (cadr #{x\ 2709}#))
+ (if (memv #{atom-key\ 2713}# (quote (quote)))
+ (#{build-data\ 196}# #f (cadr #{x\ 2709}#))
+ (if (memv #{atom-key\ 2713}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2709}#))
+ (#{build-simple-lambda\ 188}#
#f
- (cadr #{x\ 5964}#)
+ (cadr #{x\ 2709}#)
#f
- (cadr #{x\ 5964}#)
+ (cadr #{x\ 2709}#)
#f
- (#{regen\ 5963}# (caddr #{x\ 5964}#)))
- (error "how did we get here" #{x\ 5964}#))
- (#{build-application\ 3423}#
+ (#{regen\ 2708}# (caddr #{x\ 2709}#)))
+ (error "how did we get here" #{x\ 2709}#))
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}# #f (car #{x\ 5964}#))
- (map #{regen\ 5963}#
- (cdr #{x\ 5964}#))))))))))
- (#{gen-vector\ 5961}#
- (lambda (#{x\ 5980}#)
- (if (eq? (car #{x\ 5980}#) (quote list))
- (cons (quote vector) (cdr #{x\ 5980}#))
- (if (eq? (car #{x\ 5980}#) (quote quote))
+ (#{build-primref\ 194}# #f (car #{x\ 2709}#))
+ (map #{regen\ 2708}#
+ (cdr #{x\ 2709}#))))))))))
+ (#{gen-vector\ 2706}#
+ (lambda (#{x\ 2725}#)
+ (if (eq? (car #{x\ 2725}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2725}#))
+ (if (eq? (car #{x\ 2725}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 5980}#)))
- (list (quote list->vector) #{x\ 5980}#)))))
- (#{gen-append\ 5959}#
- (lambda (#{x\ 5990}# #{y\ 5991}#)
- (if (equal? #{y\ 5991}# (quote (quote ())))
- #{x\ 5990}#
- (list (quote append) #{x\ 5990}# #{y\ 5991}#))))
- (#{gen-cons\ 5957}#
- (lambda (#{x\ 5995}# #{y\ 5996}#)
- (let ((#{atom-key\ 6001}# (car #{y\ 5996}#)))
- (if (memv #{atom-key\ 6001}# (quote (quote)))
- (if (eq? (car #{x\ 5995}#) (quote quote))
+ (list->vector (cadr #{x\ 2725}#)))
+ (list (quote list->vector) #{x\ 2725}#)))))
+ (#{gen-append\ 2704}#
+ (lambda (#{x\ 2735}# #{y\ 2736}#)
+ (if (equal? #{y\ 2736}# (quote (quote ())))
+ #{x\ 2735}#
+ (list (quote append) #{x\ 2735}# #{y\ 2736}#))))
+ (#{gen-cons\ 2702}#
+ (lambda (#{x\ 2740}# #{y\ 2741}#)
+ (let ((#{atom-key\ 2746}# (car #{y\ 2741}#)))
+ (if (memv #{atom-key\ 2746}# (quote (quote)))
+ (if (eq? (car #{x\ 2740}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 5995}#) (cadr #{y\ 5996}#)))
- (if (eq? (cadr #{y\ 5996}#) (quote ()))
- (list (quote list) #{x\ 5995}#)
- (list (quote cons) #{x\ 5995}# #{y\ 5996}#)))
- (if (memv #{atom-key\ 6001}# (quote (list)))
+ (cons (cadr #{x\ 2740}#) (cadr #{y\ 2741}#)))
+ (if (eq? (cadr #{y\ 2741}#) (quote ()))
+ (list (quote list) #{x\ 2740}#)
+ (list (quote cons) #{x\ 2740}# #{y\ 2741}#)))
+ (if (memv #{atom-key\ 2746}# (quote (list)))
(cons 'list
- (cons #{x\ 5995}# (cdr #{y\ 5996}#)))
- (list (quote cons) #{x\ 5995}# #{y\ 5996}#))))))
- (#{gen-map\ 5955}#
- (lambda (#{e\ 6010}# #{map-env\ 6011}#)
- (let ((#{formals\ 6016}# (map cdr #{map-env\ 6011}#))
- (#{actuals\ 6017}#
- (map (lambda (#{x\ 6018}#)
- (list (quote ref) (car #{x\ 6018}#)))
- #{map-env\ 6011}#)))
- (if (eq? (car #{e\ 6010}#) (quote ref))
- (car #{actuals\ 6017}#)
+ (cons #{x\ 2740}# (cdr #{y\ 2741}#)))
+ (list (quote cons) #{x\ 2740}# #{y\ 2741}#))))))
+ (#{gen-map\ 2700}#
+ (lambda (#{e\ 2755}# #{map-env\ 2756}#)
+ (let ((#{formals\ 2761}# (map cdr #{map-env\ 2756}#))
+ (#{actuals\ 2762}#
+ (map (lambda (#{x\ 2763}#)
+ (list (quote ref) (car #{x\ 2763}#)))
+ #{map-env\ 2756}#)))
+ (if (eq? (car #{e\ 2755}#) (quote ref))
+ (car #{actuals\ 2762}#)
(if (and-map
- (lambda (#{x\ 6025}#)
- (if (eq? (car #{x\ 6025}#) (quote ref))
- (memq (cadr #{x\ 6025}#) #{formals\ 6016}#)
+ (lambda (#{x\ 2770}#)
+ (if (eq? (car #{x\ 2770}#) (quote ref))
+ (memq (cadr #{x\ 2770}#) #{formals\ 2761}#)
#f))
- (cdr #{e\ 6010}#))
+ (cdr #{e\ 2755}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 6010}#))
- (map (let ((#{r\ 6031}#
+ (car #{e\ 2755}#))
+ (map (let ((#{r\ 2776}#
(map cons
- #{formals\ 6016}#
- #{actuals\ 6017}#)))
- (lambda (#{x\ 6032}#)
- (cdr (assq (cadr #{x\ 6032}#)
- #{r\ 6031}#))))
- (cdr #{e\ 6010}#))))
+ #{formals\ 2761}#
+ #{actuals\ 2762}#)))
+ (lambda (#{x\ 2777}#)
+ (cdr (assq (cadr #{x\ 2777}#)
+ #{r\ 2776}#))))
+ (cdr #{e\ 2755}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 6016}#
- #{e\ 6010}#)
- #{actuals\ 6017}#)))))))
- (#{gen-mappend\ 5953}#
- (lambda (#{e\ 6036}# #{map-env\ 6037}#)
+ #{formals\ 2761}#
+ #{e\ 2755}#)
+ #{actuals\ 2762}#)))))))
+ (#{gen-mappend\ 2698}#
+ (lambda (#{e\ 2781}# #{map-env\ 2782}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 5955}# #{e\ 6036}# #{map-env\ 6037}#))))
- (#{gen-ref\ 5951}#
- (lambda (#{src\ 6041}#
- #{var\ 6042}#
- #{level\ 6043}#
- #{maps\ 6044}#)
- (if (#{fx=\ 3406}# #{level\ 6043}# 0)
- (values #{var\ 6042}# #{maps\ 6044}#)
- (if (null? #{maps\ 6044}#)
+ (#{gen-map\ 2700}# #{e\ 2781}# #{map-env\ 2782}#))))
+ (#{gen-ref\ 2696}#
+ (lambda (#{src\ 2786}#
+ #{var\ 2787}#
+ #{level\ 2788}#
+ #{maps\ 2789}#)
+ (if (#{fx=\ 151}# #{level\ 2788}# 0)
+ (values #{var\ 2787}# #{maps\ 2789}#)
+ (if (null? #{maps\ 2789}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 6041}#)
+ #{src\ 2786}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 5951}#
- #{src\ 6041}#
- #{var\ 6042}#
- (#{fx-\ 3404}# #{level\ 6043}# 1)
- (cdr #{maps\ 6044}#)))
- (lambda (#{outer-var\ 6049}# #{outer-maps\ 6050}#)
- (let ((#{b\ 6054}#
- (assq #{outer-var\ 6049}#
- (car #{maps\ 6044}#))))
- (if #{b\ 6054}#
- (values (cdr #{b\ 6054}#) #{maps\ 6044}#)
- (let ((#{inner-var\ 6056}#
- (#{gen-var\ 3614}# (quote tmp))))
+ (#{gen-ref\ 2696}#
+ #{src\ 2786}#
+ #{var\ 2787}#
+ (#{fx-\ 149}# #{level\ 2788}# 1)
+ (cdr #{maps\ 2789}#)))
+ (lambda (#{outer-var\ 2794}# #{outer-maps\ 2795}#)
+ (let ((#{b\ 2799}#
+ (assq #{outer-var\ 2794}#
+ (car #{maps\ 2789}#))))
+ (if #{b\ 2799}#
+ (values (cdr #{b\ 2799}#) #{maps\ 2789}#)
+ (let ((#{inner-var\ 2801}#
+ (#{gen-var\ 359}# (quote tmp))))
(values
- #{inner-var\ 6056}#
- (cons (cons (cons #{outer-var\ 6049}#
- #{inner-var\ 6056}#)
- (car #{maps\ 6044}#))
- #{outer-maps\ 6050}#)))))))))))
- (#{gen-syntax\ 5949}#
- (lambda (#{src\ 6057}#
- #{e\ 6058}#
- #{r\ 6059}#
- #{maps\ 6060}#
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#)
- (if (#{id?\ 3501}# #{e\ 6058}#)
- (let ((#{label\ 6070}#
- (#{id-var-name\ 3558}#
- #{e\ 6058}#
+ #{inner-var\ 2801}#
+ (cons (cons (cons #{outer-var\ 2794}#
+ #{inner-var\ 2801}#)
+ (car #{maps\ 2789}#))
+ #{outer-maps\ 2795}#)))))))))))
+ (#{gen-syntax\ 2694}#
+ (lambda (#{src\ 2802}#
+ #{e\ 2803}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#)
+ (if (#{id?\ 246}# #{e\ 2803}#)
+ (let ((#{label\ 2815}#
+ (#{id-var-name\ 303}#
+ #{e\ 2803}#
'(()))))
- (let ((#{b\ 6073}#
- (#{lookup\ 3495}#
- #{label\ 6070}#
- #{r\ 6059}#
- #{mod\ 6062}#)))
- (if (eq? (#{binding-type\ 3484}# #{b\ 6073}#)
+ (let ((#{b\ 2818}#
+ (#{lookup\ 240}#
+ #{label\ 2815}#
+ #{r\ 2804}#
+ #{mod\ 2807}#)))
+ (if (eq? (#{binding-type\ 229}# #{b\ 2818}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 6075}#
- (#{binding-value\ 3486}#
- #{b\ 6073}#)))
- (#{gen-ref\ 5951}#
- #{src\ 6057}#
- (car #{var.lev\ 6075}#)
- (cdr #{var.lev\ 6075}#)
- #{maps\ 6060}#)))
- (lambda (#{var\ 6076}# #{maps\ 6077}#)
+ (let ((#{var.lev\ 2820}#
+ (#{binding-value\ 231}# #{b\ 2818}#)))
+ (#{gen-ref\ 2696}#
+ #{src\ 2802}#
+ (car #{var.lev\ 2820}#)
+ (cdr #{var.lev\ 2820}#)
+ #{maps\ 2805}#)))
+ (lambda (#{var\ 2821}# #{maps\ 2822}#)
(values
- (list (quote ref) #{var\ 6076}#)
- #{maps\ 6077}#)))
- (if (#{ellipsis?\ 6061}# #{e\ 6058}#)
+ (list (quote ref) #{var\ 2821}#)
+ #{maps\ 2822}#)))
+ (if (#{ellipsis?\ 2806}# #{e\ 2803}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 6057}#)
+ #{src\ 2802}#)
(values
- (list (quote quote) #{e\ 6058}#)
- #{maps\ 6060}#)))))
- ((lambda (#{tmp\ 6082}#)
- ((lambda (#{tmp\ 6083}#)
- (if (if #{tmp\ 6083}#
- (apply (lambda (#{dots\ 6086}# #{e\ 6087}#)
- (#{ellipsis?\ 6061}#
- #{dots\ 6086}#))
- #{tmp\ 6083}#)
+ (list (quote quote) #{e\ 2803}#)
+ #{maps\ 2805}#)))))
+ ((lambda (#{tmp\ 2827}#)
+ ((lambda (#{tmp\ 2828}#)
+ (if (if #{tmp\ 2828}#
+ (apply (lambda (#{dots\ 2831}# #{e\ 2832}#)
+ (#{ellipsis?\ 2806}#
+ #{dots\ 2831}#))
+ #{tmp\ 2828}#)
#f)
- (apply (lambda (#{dots\ 6090}# #{e\ 6091}#)
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- #{e\ 6091}#
- #{r\ 6059}#
- #{maps\ 6060}#
- (lambda (#{x\ 6092}#) #f)
- #{mod\ 6062}#))
- #{tmp\ 6083}#)
- ((lambda (#{tmp\ 6094}#)
- (if (if #{tmp\ 6094}#
- (apply (lambda (#{x\ 6098}#
- #{dots\ 6099}#
- #{y\ 6100}#)
- (#{ellipsis?\ 6061}#
- #{dots\ 6099}#))
- #{tmp\ 6094}#)
+ (apply (lambda (#{dots\ 2835}# #{e\ 2836}#)
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ #{e\ 2836}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ (lambda (#{x\ 2837}#) #f)
+ #{mod\ 2807}#))
+ #{tmp\ 2828}#)
+ ((lambda (#{tmp\ 2839}#)
+ (if (if #{tmp\ 2839}#
+ (apply (lambda (#{x\ 2843}#
+ #{dots\ 2844}#
+ #{y\ 2845}#)
+ (#{ellipsis?\ 2806}#
+ #{dots\ 2844}#))
+ #{tmp\ 2839}#)
#f)
- (apply (lambda (#{x\ 6104}#
- #{dots\ 6105}#
- #{y\ 6106}#)
- (letrec ((#{f\ 6110}#
- (lambda (#{y\ 6111}#
- #{k\ 6112}#)
- ((lambda (#{tmp\ 6119}#)
- ((lambda (#{tmp\ 6120}#)
- (if (if #{tmp\ 6120}#
- (apply (lambda (#{dots\ 6123}#
- #{y\ 6124}#)
- (#{ellipsis?\ 6061}#
- #{dots\ 6123}#))
- #{tmp\ 6120}#)
+ (apply (lambda (#{x\ 2849}#
+ #{dots\ 2850}#
+ #{y\ 2851}#)
+ (letrec ((#{f\ 2855}#
+ (lambda (#{y\ 2856}#
+ #{k\ 2857}#)
+ ((lambda (#{tmp\ 2864}#)
+ ((lambda (#{tmp\ 2865}#)
+ (if (if #{tmp\ 2865}#
+ (apply (lambda (#{dots\ 2868}#
+ #{y\ 2869}#)
+ (#{ellipsis?\ 2806}#
+ #{dots\ 2868}#))
+ #{tmp\ 2865}#)
#f)
- (apply (lambda (#{dots\ 6127}#
- #{y\ 6128}#)
- (#{f\ 6110}#
- #{y\ 6128}#
- (lambda (#{maps\ 6129}#)
+ (apply (lambda (#{dots\ 2872}#
+ #{y\ 2873}#)
+ (#{f\ 2855}#
+ #{y\ 2873}#
+ (lambda (#{maps\ 2874}#)
(call-with-values
(lambda ()
- (#{k\ 6112}#
+ (#{k\ 2857}#
(cons '()
- #{maps\ 6129}#)))
- (lambda (#{x\ 6131}#
- #{maps\ 6132}#)
- (if (null? (car #{maps\ 6132}#))
+ #{maps\ 2874}#)))
+ (lambda (#{x\ 2876}#
+ #{maps\ 2877}#)
+ (if (null? (car #{maps\ 2877}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 6057}#)
+ #{src\ 2802}#)
(values
- (#{gen-mappend\ 5953}#
- #{x\ 6131}#
- (car #{maps\ 6132}#))
- (cdr #{maps\ 6132}#))))))))
- #{tmp\ 6120}#)
- ((lambda (#{_\ 6136}#)
+ (#{gen-mappend\ 2698}#
+ #{x\ 2876}#
+ (car #{maps\ 2877}#))
+ (cdr #{maps\ 2877}#))))))))
+ #{tmp\ 2865}#)
+ ((lambda (#{_\ 2881}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- #{y\ 6111}#
- #{r\ 6059}#
- #{maps\ 6060}#
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#))
- (lambda (#{y\ 6137}#
- #{maps\ 6138}#)
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ #{y\ 2856}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{y\ 2882}#
+ #{maps\ 2883}#)
(call-with-values
(lambda ()
- (#{k\ 6112}#
- #{maps\ 6138}#))
- (lambda (#{x\ 6141}#
- #{maps\ 6142}#)
+ (#{k\ 2857}#
+ #{maps\ 2883}#))
+ (lambda (#{x\ 2886}#
+ #{maps\ 2887}#)
(values
- (#{gen-append\ 5959}#
- #{x\ 6141}#
- #{y\ 6137}#)
- #{maps\ 6142}#))))))
- #{tmp\ 6119}#)))
+ (#{gen-append\ 2704}#
+ #{x\ 2886}#
+ #{y\ 2882}#)
+ #{maps\ 2887}#))))))
+ #{tmp\ 2864}#)))
($sc-dispatch
- #{tmp\ 6119}#
+ #{tmp\ 2864}#
'(any . any))))
- #{y\ 6111}#))))
- (#{f\ 6110}#
- #{y\ 6106}#
- (lambda (#{maps\ 6113}#)
+ #{y\ 2856}#))))
+ (#{f\ 2855}#
+ #{y\ 2851}#
+ (lambda (#{maps\ 2858}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- #{x\ 6104}#
- #{r\ 6059}#
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ #{x\ 2849}#
+ #{r\ 2804}#
(cons '()
- #{maps\ 6113}#)
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#))
- (lambda (#{x\ 6115}#
- #{maps\ 6116}#)
- (if (null? (car #{maps\ 6116}#))
+ #{maps\ 2858}#)
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{x\ 2860}#
+ #{maps\ 2861}#)
+ (if (null? (car #{maps\ 2861}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 6057}#)
+ #{src\ 2802}#)
(values
- (#{gen-map\ 5955}#
- #{x\ 6115}#
- (car #{maps\ 6116}#))
- (cdr #{maps\ 6116}#)))))))))
- #{tmp\ 6094}#)
- ((lambda (#{tmp\ 6145}#)
- (if #{tmp\ 6145}#
- (apply (lambda (#{x\ 6148}#
- #{y\ 6149}#)
+ (#{gen-map\ 2700}#
+ #{x\ 2860}#
+ (car #{maps\ 2861}#))
+ (cdr #{maps\ 2861}#)))))))))
+ #{tmp\ 2839}#)
+ ((lambda (#{tmp\ 2890}#)
+ (if #{tmp\ 2890}#
+ (apply (lambda (#{x\ 2893}#
+ #{y\ 2894}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- #{x\ 6148}#
- #{r\ 6059}#
- #{maps\ 6060}#
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#))
- (lambda (#{x\ 6150}#
- #{maps\ 6151}#)
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ #{x\ 2893}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{x\ 2895}#
+ #{maps\ 2896}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- #{y\ 6149}#
- #{r\ 6059}#
- #{maps\ 6151}#
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#))
- (lambda (#{y\ 6154}#
- #{maps\ 6155}#)
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ #{y\ 2894}#
+ #{r\ 2804}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{y\ 2899}#
+ #{maps\ 2900}#)
(values
- (#{gen-cons\ 5957}#
- #{x\ 6150}#
- #{y\ 6154}#)
- #{maps\ 6155}#))))))
- #{tmp\ 6145}#)
- ((lambda (#{tmp\ 6158}#)
- (if #{tmp\ 6158}#
- (apply (lambda (#{e1\ 6161}#
- #{e2\ 6162}#)
+ (#{gen-cons\ 2702}#
+ #{x\ 2895}#
+ #{y\ 2899}#)
+ #{maps\ 2900}#))))))
+ #{tmp\ 2890}#)
+ ((lambda (#{tmp\ 2903}#)
+ (if #{tmp\ 2903}#
+ (apply (lambda (#{e1\ 2906}#
+ #{e2\ 2907}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{src\ 6057}#
- (cons #{e1\ 6161}#
- #{e2\ 6162}#)
- #{r\ 6059}#
- #{maps\ 6060}#
- #{ellipsis?\ 6061}#
- #{mod\ 6062}#))
- (lambda (#{e\ 6164}#
- #{maps\ 6165}#)
+ (#{gen-syntax\ 2694}#
+ #{src\ 2802}#
+ (cons #{e1\ 2906}#
+ #{e2\ 2907}#)
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{e\ 2909}#
+ #{maps\ 2910}#)
(values
- (#{gen-vector\ 5961}#
- #{e\ 6164}#)
- #{maps\ 6165}#))))
- #{tmp\ 6158}#)
- ((lambda (#{_\ 6169}#)
+ (#{gen-vector\ 2706}#
+ #{e\ 2909}#)
+ #{maps\ 2910}#))))
+ #{tmp\ 2903}#)
+ ((lambda (#{_\ 2914}#)
(values
(list 'quote
- #{e\ 6058}#)
- #{maps\ 6060}#))
- #{tmp\ 6082}#)))
+ #{e\ 2803}#)
+ #{maps\ 2805}#))
+ #{tmp\ 2827}#)))
($sc-dispatch
- #{tmp\ 6082}#
+ #{tmp\ 2827}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 6082}#
+ #{tmp\ 2827}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 6082}#
+ #{tmp\ 2827}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 6082}# (quote (any any)))))
- #{e\ 6058}#)))))
- (lambda (#{e\ 6171}#
- #{r\ 6172}#
- #{w\ 6173}#
- #{s\ 6174}#
- #{mod\ 6175}#)
- (let ((#{e\ 6182}#
- (#{source-wrap\ 3572}#
- #{e\ 6171}#
- #{w\ 6173}#
- #{s\ 6174}#
- #{mod\ 6175}#)))
- ((lambda (#{tmp\ 6183}#)
- ((lambda (#{tmp\ 6184}#)
- (if #{tmp\ 6184}#
- (apply (lambda (#{_\ 6187}# #{x\ 6188}#)
+ ($sc-dispatch #{tmp\ 2827}# (quote (any any)))))
+ #{e\ 2803}#)))))
+ (lambda (#{e\ 2916}#
+ #{r\ 2917}#
+ #{w\ 2918}#
+ #{s\ 2919}#
+ #{mod\ 2920}#)
+ (let ((#{e\ 2927}#
+ (#{source-wrap\ 317}#
+ #{e\ 2916}#
+ #{w\ 2918}#
+ #{s\ 2919}#
+ #{mod\ 2920}#)))
+ ((lambda (#{tmp\ 2928}#)
+ ((lambda (#{tmp\ 2929}#)
+ (if #{tmp\ 2929}#
+ (apply (lambda (#{_\ 2932}# #{x\ 2933}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 5949}#
- #{e\ 6182}#
- #{x\ 6188}#
- #{r\ 6172}#
+ (#{gen-syntax\ 2694}#
+ #{e\ 2927}#
+ #{x\ 2933}#
+ #{r\ 2917}#
'()
- #{ellipsis?\ 3602}#
- #{mod\ 6175}#))
- (lambda (#{e\ 6189}# #{maps\ 6190}#)
- (#{regen\ 5963}# #{e\ 6189}#))))
- #{tmp\ 6184}#)
- ((lambda (#{_\ 6194}#)
+ #{ellipsis?\ 347}#
+ #{mod\ 2920}#))
+ (lambda (#{e\ 2934}# #{maps\ 2935}#)
+ (#{regen\ 2708}# #{e\ 2934}#))))
+ #{tmp\ 2929}#)
+ ((lambda (#{_\ 2939}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 6182}#))
- #{tmp\ 6183}#)))
- ($sc-dispatch #{tmp\ 6183}# (quote (any any)))))
- #{e\ 6182}#)))))
- (#{global-extend\ 3497}#
+ #{e\ 2927}#))
+ #{tmp\ 2928}#)))
+ ($sc-dispatch #{tmp\ 2928}# (quote (any any)))))
+ #{e\ 2927}#)))))
+ (#{global-extend\ 242}#
'core
'lambda
- (lambda (#{e\ 6195}#
- #{r\ 6196}#
- #{w\ 6197}#
- #{s\ 6198}#
- #{mod\ 6199}#)
- ((lambda (#{tmp\ 6205}#)
- ((lambda (#{tmp\ 6206}#)
- (if (if #{tmp\ 6206}#
- (apply (lambda (#{_\ 6212}#
- #{args\ 6213}#
- #{docstring\ 6214}#
- #{e1\ 6215}#
- #{e2\ 6216}#)
- (string? (syntax->datum #{docstring\ 6214}#)))
- #{tmp\ 6206}#)
+ (lambda (#{e\ 2940}#
+ #{r\ 2941}#
+ #{w\ 2942}#
+ #{s\ 2943}#
+ #{mod\ 2944}#)
+ ((lambda (#{tmp\ 2950}#)
+ ((lambda (#{tmp\ 2951}#)
+ (if (if #{tmp\ 2951}#
+ (apply (lambda (#{_\ 2957}#
+ #{args\ 2958}#
+ #{docstring\ 2959}#
+ #{e1\ 2960}#
+ #{e2\ 2961}#)
+ (string? (syntax->datum #{docstring\ 2959}#)))
+ #{tmp\ 2951}#)
#f)
- (apply (lambda (#{_\ 6222}#
- #{args\ 6223}#
- #{docstring\ 6224}#
- #{e1\ 6225}#
- #{e2\ 6226}#)
+ (apply (lambda (#{_\ 2967}#
+ #{args\ 2968}#
+ #{docstring\ 2969}#
+ #{e1\ 2970}#
+ #{e2\ 2971}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 3604}# #{args\ 6223}#))
- (lambda (#{req\ 6227}#
- #{opt\ 6228}#
- #{rest\ 6229}#
- #{kw\ 6230}#)
- (#{chi-simple-lambda\ 3606}#
- #{e\ 6195}#
- #{r\ 6196}#
- #{w\ 6197}#
- #{s\ 6198}#
- #{mod\ 6199}#
- #{req\ 6227}#
- #{rest\ 6229}#
- (syntax->datum #{docstring\ 6224}#)
- (cons #{e1\ 6225}# #{e2\ 6226}#)))))
- #{tmp\ 6206}#)
- ((lambda (#{tmp\ 6236}#)
- (if #{tmp\ 6236}#
- (apply (lambda (#{_\ 6241}#
- #{args\ 6242}#
- #{e1\ 6243}#
- #{e2\ 6244}#)
+ (#{lambda-formals\ 349}# #{args\ 2968}#))
+ (lambda (#{req\ 2972}#
+ #{opt\ 2973}#
+ #{rest\ 2974}#
+ #{kw\ 2975}#)
+ (#{chi-simple-lambda\ 351}#
+ #{e\ 2940}#
+ #{r\ 2941}#
+ #{w\ 2942}#
+ #{s\ 2943}#
+ #{mod\ 2944}#
+ #{req\ 2972}#
+ #{rest\ 2974}#
+ (syntax->datum #{docstring\ 2969}#)
+ (cons #{e1\ 2970}# #{e2\ 2971}#)))))
+ #{tmp\ 2951}#)
+ ((lambda (#{tmp\ 2981}#)
+ (if #{tmp\ 2981}#
+ (apply (lambda (#{_\ 2986}#
+ #{args\ 2987}#
+ #{e1\ 2988}#
+ #{e2\ 2989}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 3604}# #{args\ 6242}#))
- (lambda (#{req\ 6245}#
- #{opt\ 6246}#
- #{rest\ 6247}#
- #{kw\ 6248}#)
- (#{chi-simple-lambda\ 3606}#
- #{e\ 6195}#
- #{r\ 6196}#
- #{w\ 6197}#
- #{s\ 6198}#
- #{mod\ 6199}#
- #{req\ 6245}#
- #{rest\ 6247}#
+ (#{lambda-formals\ 349}# #{args\ 2987}#))
+ (lambda (#{req\ 2990}#
+ #{opt\ 2991}#
+ #{rest\ 2992}#
+ #{kw\ 2993}#)
+ (#{chi-simple-lambda\ 351}#
+ #{e\ 2940}#
+ #{r\ 2941}#
+ #{w\ 2942}#
+ #{s\ 2943}#
+ #{mod\ 2944}#
+ #{req\ 2990}#
+ #{rest\ 2992}#
#f
- (cons #{e1\ 6243}# #{e2\ 6244}#)))))
- #{tmp\ 6236}#)
- ((lambda (#{_\ 6255}#)
+ (cons #{e1\ 2988}# #{e2\ 2989}#)))))
+ #{tmp\ 2981}#)
+ ((lambda (#{_\ 3000}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 6195}#))
- #{tmp\ 6205}#)))
+ #{e\ 2940}#))
+ #{tmp\ 2950}#)))
($sc-dispatch
- #{tmp\ 6205}#
+ #{tmp\ 2950}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 6205}#
+ #{tmp\ 2950}#
'(any any any any . each-any))))
- #{e\ 6195}#)))
- (#{global-extend\ 3497}#
+ #{e\ 2940}#)))
+ (#{global-extend\ 242}#
'core
'lambda*
- (lambda (#{e\ 6256}#
- #{r\ 6257}#
- #{w\ 6258}#
- #{s\ 6259}#
- #{mod\ 6260}#)
- ((lambda (#{tmp\ 6266}#)
- ((lambda (#{tmp\ 6267}#)
- (if #{tmp\ 6267}#
- (apply (lambda (#{_\ 6272}#
- #{args\ 6273}#
- #{e1\ 6274}#
- #{e2\ 6275}#)
+ (lambda (#{e\ 3001}#
+ #{r\ 3002}#
+ #{w\ 3003}#
+ #{s\ 3004}#
+ #{mod\ 3005}#)
+ ((lambda (#{tmp\ 3011}#)
+ ((lambda (#{tmp\ 3012}#)
+ (if #{tmp\ 3012}#
+ (apply (lambda (#{_\ 3017}#
+ #{args\ 3018}#
+ #{e1\ 3019}#
+ #{e2\ 3020}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3610}#
- #{e\ 6256}#
- #{r\ 6257}#
- #{w\ 6258}#
- #{s\ 6259}#
- #{mod\ 6260}#
- #{lambda*-formals\ 3608}#
- (list (cons #{args\ 6273}#
- (cons #{e1\ 6274}#
- #{e2\ 6275}#)))))
- (lambda (#{docstring\ 6277}# #{lcase\ 6278}#)
- (#{build-case-lambda\ 3445}#
- #{s\ 6259}#
- #{docstring\ 6277}#
- #{lcase\ 6278}#))))
- #{tmp\ 6267}#)
- ((lambda (#{_\ 6282}#)
+ (#{chi-lambda-case\ 355}#
+ #{e\ 3001}#
+ #{r\ 3002}#
+ #{w\ 3003}#
+ #{s\ 3004}#
+ #{mod\ 3005}#
+ #{lambda*-formals\ 353}#
+ (list (cons #{args\ 3018}#
+ (cons #{e1\ 3019}#
+ #{e2\ 3020}#)))))
+ (lambda (#{docstring\ 3022}# #{lcase\ 3023}#)
+ (#{build-case-lambda\ 190}#
+ #{s\ 3004}#
+ #{docstring\ 3022}#
+ #{lcase\ 3023}#))))
+ #{tmp\ 3012}#)
+ ((lambda (#{_\ 3027}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 6256}#))
- #{tmp\ 6266}#)))
+ #{e\ 3001}#))
+ #{tmp\ 3011}#)))
($sc-dispatch
- #{tmp\ 6266}#
+ #{tmp\ 3011}#
'(any any any . each-any))))
- #{e\ 6256}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3001}#)))
+ (#{global-extend\ 242}#
'core
'case-lambda
- (lambda (#{e\ 6283}#
- #{r\ 6284}#
- #{w\ 6285}#
- #{s\ 6286}#
- #{mod\ 6287}#)
- ((lambda (#{tmp\ 6293}#)
- ((lambda (#{tmp\ 6294}#)
- (if #{tmp\ 6294}#
- (apply (lambda (#{_\ 6302}#
- #{args\ 6303}#
- #{e1\ 6304}#
- #{e2\ 6305}#
- #{args*\ 6306}#
- #{e1*\ 6307}#
- #{e2*\ 6308}#)
+ (lambda (#{e\ 3028}#
+ #{r\ 3029}#
+ #{w\ 3030}#
+ #{s\ 3031}#
+ #{mod\ 3032}#)
+ ((lambda (#{tmp\ 3038}#)
+ ((lambda (#{tmp\ 3039}#)
+ (if #{tmp\ 3039}#
+ (apply (lambda (#{_\ 3047}#
+ #{args\ 3048}#
+ #{e1\ 3049}#
+ #{e2\ 3050}#
+ #{args*\ 3051}#
+ #{e1*\ 3052}#
+ #{e2*\ 3053}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3610}#
- #{e\ 6283}#
- #{r\ 6284}#
- #{w\ 6285}#
- #{s\ 6286}#
- #{mod\ 6287}#
- #{lambda-formals\ 3604}#
- (cons (cons #{args\ 6303}#
- (cons #{e1\ 6304}# #{e2\ 6305}#))
- (map (lambda (#{tmp\ 6312}#
- #{tmp\ 6311}#
- #{tmp\ 6310}#)
- (cons #{tmp\ 6310}#
- (cons #{tmp\ 6311}#
- #{tmp\ 6312}#)))
- #{e2*\ 6308}#
- #{e1*\ 6307}#
- #{args*\ 6306}#))))
- (lambda (#{docstring\ 6314}# #{lcase\ 6315}#)
- (#{build-case-lambda\ 3445}#
- #{s\ 6286}#
- #{docstring\ 6314}#
- #{lcase\ 6315}#))))
- #{tmp\ 6294}#)
- ((lambda (#{_\ 6319}#)
+ (#{chi-lambda-case\ 355}#
+ #{e\ 3028}#
+ #{r\ 3029}#
+ #{w\ 3030}#
+ #{s\ 3031}#
+ #{mod\ 3032}#
+ #{lambda-formals\ 349}#
+ (cons (cons #{args\ 3048}#
+ (cons #{e1\ 3049}# #{e2\ 3050}#))
+ (map (lambda (#{tmp\ 3057}#
+ #{tmp\ 3056}#
+ #{tmp\ 3055}#)
+ (cons #{tmp\ 3055}#
+ (cons #{tmp\ 3056}#
+ #{tmp\ 3057}#)))
+ #{e2*\ 3053}#
+ #{e1*\ 3052}#
+ #{args*\ 3051}#))))
+ (lambda (#{docstring\ 3059}# #{lcase\ 3060}#)
+ (#{build-case-lambda\ 190}#
+ #{s\ 3031}#
+ #{docstring\ 3059}#
+ #{lcase\ 3060}#))))
+ #{tmp\ 3039}#)
+ ((lambda (#{_\ 3064}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 6283}#))
- #{tmp\ 6293}#)))
+ #{e\ 3028}#))
+ #{tmp\ 3038}#)))
($sc-dispatch
- #{tmp\ 6293}#
+ #{tmp\ 3038}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 6283}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3028}#)))
+ (#{global-extend\ 242}#
'core
'case-lambda*
- (lambda (#{e\ 6320}#
- #{r\ 6321}#
- #{w\ 6322}#
- #{s\ 6323}#
- #{mod\ 6324}#)
- ((lambda (#{tmp\ 6330}#)
- ((lambda (#{tmp\ 6331}#)
- (if #{tmp\ 6331}#
- (apply (lambda (#{_\ 6339}#
- #{args\ 6340}#
- #{e1\ 6341}#
- #{e2\ 6342}#
- #{args*\ 6343}#
- #{e1*\ 6344}#
- #{e2*\ 6345}#)
+ (lambda (#{e\ 3065}#
+ #{r\ 3066}#
+ #{w\ 3067}#
+ #{s\ 3068}#
+ #{mod\ 3069}#)
+ ((lambda (#{tmp\ 3075}#)
+ ((lambda (#{tmp\ 3076}#)
+ (if #{tmp\ 3076}#
+ (apply (lambda (#{_\ 3084}#
+ #{args\ 3085}#
+ #{e1\ 3086}#
+ #{e2\ 3087}#
+ #{args*\ 3088}#
+ #{e1*\ 3089}#
+ #{e2*\ 3090}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 3610}#
- #{e\ 6320}#
- #{r\ 6321}#
- #{w\ 6322}#
- #{s\ 6323}#
- #{mod\ 6324}#
- #{lambda*-formals\ 3608}#
- (cons (cons #{args\ 6340}#
- (cons #{e1\ 6341}# #{e2\ 6342}#))
- (map (lambda (#{tmp\ 6349}#
- #{tmp\ 6348}#
- #{tmp\ 6347}#)
- (cons #{tmp\ 6347}#
- (cons #{tmp\ 6348}#
- #{tmp\ 6349}#)))
- #{e2*\ 6345}#
- #{e1*\ 6344}#
- #{args*\ 6343}#))))
- (lambda (#{docstring\ 6351}# #{lcase\ 6352}#)
- (#{build-case-lambda\ 3445}#
- #{s\ 6323}#
- #{docstring\ 6351}#
- #{lcase\ 6352}#))))
- #{tmp\ 6331}#)
- ((lambda (#{_\ 6356}#)
+ (#{chi-lambda-case\ 355}#
+ #{e\ 3065}#
+ #{r\ 3066}#
+ #{w\ 3067}#
+ #{s\ 3068}#
+ #{mod\ 3069}#
+ #{lambda*-formals\ 353}#
+ (cons (cons #{args\ 3085}#
+ (cons #{e1\ 3086}# #{e2\ 3087}#))
+ (map (lambda (#{tmp\ 3094}#
+ #{tmp\ 3093}#
+ #{tmp\ 3092}#)
+ (cons #{tmp\ 3092}#
+ (cons #{tmp\ 3093}#
+ #{tmp\ 3094}#)))
+ #{e2*\ 3090}#
+ #{e1*\ 3089}#
+ #{args*\ 3088}#))))
+ (lambda (#{docstring\ 3096}# #{lcase\ 3097}#)
+ (#{build-case-lambda\ 190}#
+ #{s\ 3068}#
+ #{docstring\ 3096}#
+ #{lcase\ 3097}#))))
+ #{tmp\ 3076}#)
+ ((lambda (#{_\ 3101}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 6320}#))
- #{tmp\ 6330}#)))
+ #{e\ 3065}#))
+ #{tmp\ 3075}#)))
($sc-dispatch
- #{tmp\ 6330}#
+ #{tmp\ 3075}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 6320}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3065}#)))
+ (#{global-extend\ 242}#
'core
'let
- (letrec ((#{chi-let\ 6358}#
- (lambda (#{e\ 6359}#
- #{r\ 6360}#
- #{w\ 6361}#
- #{s\ 6362}#
- #{mod\ 6363}#
- #{constructor\ 6364}#
- #{ids\ 6365}#
- #{vals\ 6366}#
- #{exps\ 6367}#)
- (if (not (#{valid-bound-ids?\ 3564}# #{ids\ 6365}#))
+ (letrec ((#{chi-let\ 3103}#
+ (lambda (#{e\ 3104}#
+ #{r\ 3105}#
+ #{w\ 3106}#
+ #{s\ 3107}#
+ #{mod\ 3108}#
+ #{constructor\ 3109}#
+ #{ids\ 3110}#
+ #{vals\ 3111}#
+ #{exps\ 3112}#)
+ (if (not (#{valid-bound-ids?\ 309}# #{ids\ 3110}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 6359}#)
- (let ((#{labels\ 6379}#
- (#{gen-labels\ 3519}# #{ids\ 6365}#))
- (#{new-vars\ 6380}#
- (map #{gen-var\ 3614}# #{ids\ 6365}#)))
- (let ((#{nw\ 6383}#
- (#{make-binding-wrap\ 3548}#
- #{ids\ 6365}#
- #{labels\ 6379}#
- #{w\ 6361}#))
- (#{nr\ 6384}#
- (#{extend-var-env\ 3491}#
- #{labels\ 6379}#
- #{new-vars\ 6380}#
- #{r\ 6360}#)))
- (#{constructor\ 6364}#
- #{s\ 6362}#
- (map syntax->datum #{ids\ 6365}#)
- #{new-vars\ 6380}#
- (map (lambda (#{x\ 6385}#)
- (#{chi\ 3586}#
- #{x\ 6385}#
- #{r\ 6360}#
- #{w\ 6361}#
- #{mod\ 6363}#))
- #{vals\ 6366}#)
- (#{chi-body\ 3594}#
- #{exps\ 6367}#
- (#{source-wrap\ 3572}#
- #{e\ 6359}#
- #{nw\ 6383}#
- #{s\ 6362}#
- #{mod\ 6363}#)
- #{nr\ 6384}#
- #{nw\ 6383}#
- #{mod\ 6363}#))))))))
- (lambda (#{e\ 6387}#
- #{r\ 6388}#
- #{w\ 6389}#
- #{s\ 6390}#
- #{mod\ 6391}#)
- ((lambda (#{tmp\ 6397}#)
- ((lambda (#{tmp\ 6398}#)
- (if (if #{tmp\ 6398}#
- (apply (lambda (#{_\ 6404}#
- #{id\ 6405}#
- #{val\ 6406}#
- #{e1\ 6407}#
- #{e2\ 6408}#)
- (and-map #{id?\ 3501}# #{id\ 6405}#))
- #{tmp\ 6398}#)
+ #{e\ 3104}#)
+ (let ((#{labels\ 3124}#
+ (#{gen-labels\ 264}# #{ids\ 3110}#))
+ (#{new-vars\ 3125}#
+ (map #{gen-var\ 359}# #{ids\ 3110}#)))
+ (let ((#{nw\ 3128}#
+ (#{make-binding-wrap\ 293}#
+ #{ids\ 3110}#
+ #{labels\ 3124}#
+ #{w\ 3106}#))
+ (#{nr\ 3129}#
+ (#{extend-var-env\ 236}#
+ #{labels\ 3124}#
+ #{new-vars\ 3125}#
+ #{r\ 3105}#)))
+ (#{constructor\ 3109}#
+ #{s\ 3107}#
+ (map syntax->datum #{ids\ 3110}#)
+ #{new-vars\ 3125}#
+ (map (lambda (#{x\ 3130}#)
+ (#{chi\ 331}#
+ #{x\ 3130}#
+ #{r\ 3105}#
+ #{w\ 3106}#
+ #{mod\ 3108}#))
+ #{vals\ 3111}#)
+ (#{chi-body\ 339}#
+ #{exps\ 3112}#
+ (#{source-wrap\ 317}#
+ #{e\ 3104}#
+ #{nw\ 3128}#
+ #{s\ 3107}#
+ #{mod\ 3108}#)
+ #{nr\ 3129}#
+ #{nw\ 3128}#
+ #{mod\ 3108}#))))))))
+ (lambda (#{e\ 3132}#
+ #{r\ 3133}#
+ #{w\ 3134}#
+ #{s\ 3135}#
+ #{mod\ 3136}#)
+ ((lambda (#{tmp\ 3142}#)
+ ((lambda (#{tmp\ 3143}#)
+ (if (if #{tmp\ 3143}#
+ (apply (lambda (#{_\ 3149}#
+ #{id\ 3150}#
+ #{val\ 3151}#
+ #{e1\ 3152}#
+ #{e2\ 3153}#)
+ (and-map #{id?\ 246}# #{id\ 3150}#))
+ #{tmp\ 3143}#)
#f)
- (apply (lambda (#{_\ 6415}#
- #{id\ 6416}#
- #{val\ 6417}#
- #{e1\ 6418}#
- #{e2\ 6419}#)
- (#{chi-let\ 6358}#
- #{e\ 6387}#
- #{r\ 6388}#
- #{w\ 6389}#
- #{s\ 6390}#
- #{mod\ 6391}#
- #{build-let\ 3455}#
- #{id\ 6416}#
- #{val\ 6417}#
- (cons #{e1\ 6418}# #{e2\ 6419}#)))
- #{tmp\ 6398}#)
- ((lambda (#{tmp\ 6423}#)
- (if (if #{tmp\ 6423}#
- (apply (lambda (#{_\ 6430}#
- #{f\ 6431}#
- #{id\ 6432}#
- #{val\ 6433}#
- #{e1\ 6434}#
- #{e2\ 6435}#)
- (if (#{id?\ 3501}# #{f\ 6431}#)
- (and-map #{id?\ 3501}# #{id\ 6432}#)
+ (apply (lambda (#{_\ 3160}#
+ #{id\ 3161}#
+ #{val\ 3162}#
+ #{e1\ 3163}#
+ #{e2\ 3164}#)
+ (#{chi-let\ 3103}#
+ #{e\ 3132}#
+ #{r\ 3133}#
+ #{w\ 3134}#
+ #{s\ 3135}#
+ #{mod\ 3136}#
+ #{build-let\ 200}#
+ #{id\ 3161}#
+ #{val\ 3162}#
+ (cons #{e1\ 3163}# #{e2\ 3164}#)))
+ #{tmp\ 3143}#)
+ ((lambda (#{tmp\ 3168}#)
+ (if (if #{tmp\ 3168}#
+ (apply (lambda (#{_\ 3175}#
+ #{f\ 3176}#
+ #{id\ 3177}#
+ #{val\ 3178}#
+ #{e1\ 3179}#
+ #{e2\ 3180}#)
+ (if (#{id?\ 246}# #{f\ 3176}#)
+ (and-map #{id?\ 246}# #{id\ 3177}#)
#f))
- #{tmp\ 6423}#)
+ #{tmp\ 3168}#)
#f)
- (apply (lambda (#{_\ 6445}#
- #{f\ 6446}#
- #{id\ 6447}#
- #{val\ 6448}#
- #{e1\ 6449}#
- #{e2\ 6450}#)
- (#{chi-let\ 6358}#
- #{e\ 6387}#
- #{r\ 6388}#
- #{w\ 6389}#
- #{s\ 6390}#
- #{mod\ 6391}#
- #{build-named-let\ 3457}#
- (cons #{f\ 6446}# #{id\ 6447}#)
- #{val\ 6448}#
- (cons #{e1\ 6449}# #{e2\ 6450}#)))
- #{tmp\ 6423}#)
- ((lambda (#{_\ 6455}#)
+ (apply (lambda (#{_\ 3190}#
+ #{f\ 3191}#
+ #{id\ 3192}#
+ #{val\ 3193}#
+ #{e1\ 3194}#
+ #{e2\ 3195}#)
+ (#{chi-let\ 3103}#
+ #{e\ 3132}#
+ #{r\ 3133}#
+ #{w\ 3134}#
+ #{s\ 3135}#
+ #{mod\ 3136}#
+ #{build-named-let\ 202}#
+ (cons #{f\ 3191}# #{id\ 3192}#)
+ #{val\ 3193}#
+ (cons #{e1\ 3194}# #{e2\ 3195}#)))
+ #{tmp\ 3168}#)
+ ((lambda (#{_\ 3200}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 3572}#
- #{e\ 6387}#
- #{w\ 6389}#
- #{s\ 6390}#
- #{mod\ 6391}#)))
- #{tmp\ 6397}#)))
+ (#{source-wrap\ 317}#
+ #{e\ 3132}#
+ #{w\ 3134}#
+ #{s\ 3135}#
+ #{mod\ 3136}#)))
+ #{tmp\ 3142}#)))
($sc-dispatch
- #{tmp\ 6397}#
+ #{tmp\ 3142}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 6397}#
+ #{tmp\ 3142}#
'(any #(each (any any)) any . each-any))))
- #{e\ 6387}#))))
- (#{global-extend\ 3497}#
+ #{e\ 3132}#))))
+ (#{global-extend\ 242}#
'core
'letrec
- (lambda (#{e\ 6456}#
- #{r\ 6457}#
- #{w\ 6458}#
- #{s\ 6459}#
- #{mod\ 6460}#)
- ((lambda (#{tmp\ 6466}#)
- ((lambda (#{tmp\ 6467}#)
- (if (if #{tmp\ 6467}#
- (apply (lambda (#{_\ 6473}#
- #{id\ 6474}#
- #{val\ 6475}#
- #{e1\ 6476}#
- #{e2\ 6477}#)
- (and-map #{id?\ 3501}# #{id\ 6474}#))
- #{tmp\ 6467}#)
+ (lambda (#{e\ 3201}#
+ #{r\ 3202}#
+ #{w\ 3203}#
+ #{s\ 3204}#
+ #{mod\ 3205}#)
+ ((lambda (#{tmp\ 3211}#)
+ ((lambda (#{tmp\ 3212}#)
+ (if (if #{tmp\ 3212}#
+ (apply (lambda (#{_\ 3218}#
+ #{id\ 3219}#
+ #{val\ 3220}#
+ #{e1\ 3221}#
+ #{e2\ 3222}#)
+ (and-map #{id?\ 246}# #{id\ 3219}#))
+ #{tmp\ 3212}#)
#f)
- (apply (lambda (#{_\ 6484}#
- #{id\ 6485}#
- #{val\ 6486}#
- #{e1\ 6487}#
- #{e2\ 6488}#)
- (let ((#{ids\ 6490}# #{id\ 6485}#))
- (if (not (#{valid-bound-ids?\ 3564}#
- #{ids\ 6490}#))
+ (apply (lambda (#{_\ 3229}#
+ #{id\ 3230}#
+ #{val\ 3231}#
+ #{e1\ 3232}#
+ #{e2\ 3233}#)
+ (let ((#{ids\ 3235}# #{id\ 3230}#))
+ (if (not (#{valid-bound-ids?\ 309}#
+ #{ids\ 3235}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 6456}#)
- (let ((#{labels\ 6494}#
- (#{gen-labels\ 3519}# #{ids\ 6490}#))
- (#{new-vars\ 6495}#
- (map #{gen-var\ 3614}# #{ids\ 6490}#)))
- (let ((#{w\ 6498}#
- (#{make-binding-wrap\ 3548}#
- #{ids\ 6490}#
- #{labels\ 6494}#
- #{w\ 6458}#))
- (#{r\ 6499}#
- (#{extend-var-env\ 3491}#
- #{labels\ 6494}#
- #{new-vars\ 6495}#
- #{r\ 6457}#)))
- (#{build-letrec\ 3459}#
- #{s\ 6459}#
- (map syntax->datum #{ids\ 6490}#)
- #{new-vars\ 6495}#
- (map (lambda (#{x\ 6500}#)
- (#{chi\ 3586}#
- #{x\ 6500}#
- #{r\ 6499}#
- #{w\ 6498}#
- #{mod\ 6460}#))
- #{val\ 6486}#)
- (#{chi-body\ 3594}#
- (cons #{e1\ 6487}# #{e2\ 6488}#)
- (#{source-wrap\ 3572}#
- #{e\ 6456}#
- #{w\ 6498}#
- #{s\ 6459}#
- #{mod\ 6460}#)
- #{r\ 6499}#
- #{w\ 6498}#
- #{mod\ 6460}#)))))))
- #{tmp\ 6467}#)
- ((lambda (#{_\ 6505}#)
+ #{e\ 3201}#)
+ (let ((#{labels\ 3239}#
+ (#{gen-labels\ 264}# #{ids\ 3235}#))
+ (#{new-vars\ 3240}#
+ (map #{gen-var\ 359}# #{ids\ 3235}#)))
+ (let ((#{w\ 3243}#
+ (#{make-binding-wrap\ 293}#
+ #{ids\ 3235}#
+ #{labels\ 3239}#
+ #{w\ 3203}#))
+ (#{r\ 3244}#
+ (#{extend-var-env\ 236}#
+ #{labels\ 3239}#
+ #{new-vars\ 3240}#
+ #{r\ 3202}#)))
+ (#{build-letrec\ 204}#
+ #{s\ 3204}#
+ (map syntax->datum #{ids\ 3235}#)
+ #{new-vars\ 3240}#
+ (map (lambda (#{x\ 3245}#)
+ (#{chi\ 331}#
+ #{x\ 3245}#
+ #{r\ 3244}#
+ #{w\ 3243}#
+ #{mod\ 3205}#))
+ #{val\ 3231}#)
+ (#{chi-body\ 339}#
+ (cons #{e1\ 3232}# #{e2\ 3233}#)
+ (#{source-wrap\ 317}#
+ #{e\ 3201}#
+ #{w\ 3243}#
+ #{s\ 3204}#
+ #{mod\ 3205}#)
+ #{r\ 3244}#
+ #{w\ 3243}#
+ #{mod\ 3205}#)))))))
+ #{tmp\ 3212}#)
+ ((lambda (#{_\ 3250}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 3572}#
- #{e\ 6456}#
- #{w\ 6458}#
- #{s\ 6459}#
- #{mod\ 6460}#)))
- #{tmp\ 6466}#)))
+ (#{source-wrap\ 317}#
+ #{e\ 3201}#
+ #{w\ 3203}#
+ #{s\ 3204}#
+ #{mod\ 3205}#)))
+ #{tmp\ 3211}#)))
($sc-dispatch
- #{tmp\ 6466}#
+ #{tmp\ 3211}#
'(any #(each (any any)) any . each-any))))
- #{e\ 6456}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3201}#)))
+ (#{global-extend\ 242}#
'core
'set!
- (lambda (#{e\ 6506}#
- #{r\ 6507}#
- #{w\ 6508}#
- #{s\ 6509}#
- #{mod\ 6510}#)
- ((lambda (#{tmp\ 6516}#)
- ((lambda (#{tmp\ 6517}#)
- (if (if #{tmp\ 6517}#
- (apply (lambda (#{_\ 6521}# #{id\ 6522}# #{val\ 6523}#)
- (#{id?\ 3501}# #{id\ 6522}#))
- #{tmp\ 6517}#)
+ (lambda (#{e\ 3251}#
+ #{r\ 3252}#
+ #{w\ 3253}#
+ #{s\ 3254}#
+ #{mod\ 3255}#)
+ ((lambda (#{tmp\ 3261}#)
+ ((lambda (#{tmp\ 3262}#)
+ (if (if #{tmp\ 3262}#
+ (apply (lambda (#{_\ 3266}# #{id\ 3267}# #{val\ 3268}#)
+ (#{id?\ 246}# #{id\ 3267}#))
+ #{tmp\ 3262}#)
#f)
- (apply (lambda (#{_\ 6527}# #{id\ 6528}# #{val\ 6529}#)
- (let ((#{val\ 6532}#
- (#{chi\ 3586}#
- #{val\ 6529}#
- #{r\ 6507}#
- #{w\ 6508}#
- #{mod\ 6510}#))
- (#{n\ 6533}#
- (#{id-var-name\ 3558}#
- #{id\ 6528}#
- #{w\ 6508}#)))
- (let ((#{b\ 6535}#
- (#{lookup\ 3495}#
- #{n\ 6533}#
- #{r\ 6507}#
- #{mod\ 6510}#)))
- (let ((#{atom-key\ 6538}#
- (#{binding-type\ 3484}# #{b\ 6535}#)))
- (if (memv #{atom-key\ 6538}#
+ (apply (lambda (#{_\ 3272}# #{id\ 3273}# #{val\ 3274}#)
+ (let ((#{val\ 3277}#
+ (#{chi\ 331}#
+ #{val\ 3274}#
+ #{r\ 3252}#
+ #{w\ 3253}#
+ #{mod\ 3255}#))
+ (#{n\ 3278}#
+ (#{id-var-name\ 303}#
+ #{id\ 3273}#
+ #{w\ 3253}#)))
+ (let ((#{b\ 3280}#
+ (#{lookup\ 240}#
+ #{n\ 3278}#
+ #{r\ 3252}#
+ #{mod\ 3255}#)))
+ (let ((#{atom-key\ 3283}#
+ (#{binding-type\ 229}# #{b\ 3280}#)))
+ (if (memv #{atom-key\ 3283}#
'(lexical))
- (#{build-lexical-assignment\ 3431}#
- #{s\ 6509}#
- (syntax->datum #{id\ 6528}#)
- (#{binding-value\ 3486}# #{b\ 6535}#)
- #{val\ 6532}#)
- (if (memv #{atom-key\ 6538}#
+ (#{build-lexical-assignment\ 176}#
+ #{s\ 3254}#
+ (syntax->datum #{id\ 3273}#)
+ (#{binding-value\ 231}# #{b\ 3280}#)
+ #{val\ 3277}#)
+ (if (memv #{atom-key\ 3283}#
'(global))
- (#{build-global-assignment\ 3437}#
- #{s\ 6509}#
- #{n\ 6533}#
- #{val\ 6532}#
- #{mod\ 6510}#)
- (if (memv #{atom-key\ 6538}#
+ (#{build-global-assignment\ 182}#
+ #{s\ 3254}#
+ #{n\ 3278}#
+ #{val\ 3277}#
+ #{mod\ 3255}#)
+ (if (memv #{atom-key\ 3283}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 3570}#
- #{id\ 6528}#
- #{w\ 6508}#
- #{mod\ 6510}#))
+ (#{wrap\ 315}#
+ #{id\ 3273}#
+ #{w\ 3253}#
+ #{mod\ 3255}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 3572}#
- #{e\ 6506}#
- #{w\ 6508}#
- #{s\ 6509}#
- #{mod\ 6510}#)))))))))
- #{tmp\ 6517}#)
- ((lambda (#{tmp\ 6543}#)
- (if #{tmp\ 6543}#
- (apply (lambda (#{_\ 6548}#
- #{head\ 6549}#
- #{tail\ 6550}#
- #{val\ 6551}#)
+ (#{source-wrap\ 317}#
+ #{e\ 3251}#
+ #{w\ 3253}#
+ #{s\ 3254}#
+ #{mod\ 3255}#)))))))))
+ #{tmp\ 3262}#)
+ ((lambda (#{tmp\ 3288}#)
+ (if #{tmp\ 3288}#
+ (apply (lambda (#{_\ 3293}#
+ #{head\ 3294}#
+ #{tail\ 3295}#
+ #{val\ 3296}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 3582}#
- #{head\ 6549}#
- #{r\ 6507}#
+ (#{syntax-type\ 327}#
+ #{head\ 3294}#
+ #{r\ 3252}#
'(())
#f
#f
- #{mod\ 6510}#
+ #{mod\ 3255}#
#t))
- (lambda (#{type\ 6554}#
- #{value\ 6555}#
- #{ee\ 6556}#
- #{ww\ 6557}#
- #{ss\ 6558}#
- #{modmod\ 6559}#)
- (if (memv #{type\ 6554}#
+ (lambda (#{type\ 3299}#
+ #{value\ 3300}#
+ #{ee\ 3301}#
+ #{ww\ 3302}#
+ #{ss\ 3303}#
+ #{modmod\ 3304}#)
+ (if (memv #{type\ 3299}#
'(module-ref))
- (let ((#{val\ 6568}#
- (#{chi\ 3586}#
- #{val\ 6551}#
- #{r\ 6507}#
- #{w\ 6508}#
- #{mod\ 6510}#)))
+ (let ((#{val\ 3313}#
+ (#{chi\ 331}#
+ #{val\ 3296}#
+ #{r\ 3252}#
+ #{w\ 3253}#
+ #{mod\ 3255}#)))
(call-with-values
(lambda ()
- (#{value\ 6555}#
- (cons #{head\ 6549}#
- #{tail\ 6550}#)))
- (lambda (#{id\ 6570}# #{mod\ 6571}#)
- (#{build-global-assignment\ 3437}#
- #{s\ 6509}#
- #{id\ 6570}#
- #{val\ 6568}#
- #{mod\ 6571}#))))
- (#{build-application\ 3423}#
- #{s\ 6509}#
- (#{chi\ 3586}#
+ (#{value\ 3300}#
+ (cons #{head\ 3294}#
+ #{tail\ 3295}#)))
+ (lambda (#{id\ 3315}# #{mod\ 3316}#)
+ (#{build-global-assignment\ 182}#
+ #{s\ 3254}#
+ #{id\ 3315}#
+ #{val\ 3313}#
+ #{mod\ 3316}#))))
+ (#{build-application\ 168}#
+ #{s\ 3254}#
+ (#{chi\ 331}#
(list '#(syntax-object
setter
((top)
@@ -8962,22 +8949,22 @@
(top)
(top)
(top))
- #("i6560"
- "i6561"
- "i6562"
- "i6563"
- "i6564"
- "i6565"))
+ #("i3305"
+ "i3306"
+ "i3307"
+ "i3308"
+ "i3309"
+ "i3310"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i6544"
- "i6545"
- "i6546"
- "i6547"))
+ #("i3289"
+ "i3290"
+ "i3291"
+ "i3292"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -8986,11 +8973,11 @@
(top)
(top)
(top))
- #("i6511"
- "i6512"
- "i6513"
- "i6514"
- "i6515"))
+ #("i3256"
+ "i3257"
+ "i3258"
+ "i3259"
+ "i3260"))
#(ribcage
(lambda-var-list
gen-var
@@ -9228,177 +9215,177 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile))
- #{head\ 6549}#)
- #{r\ 6507}#
- #{w\ 6508}#
- #{mod\ 6510}#)
- (map (lambda (#{e\ 6575}#)
- (#{chi\ 3586}#
- #{e\ 6575}#
- #{r\ 6507}#
- #{w\ 6508}#
- #{mod\ 6510}#))
+ #{head\ 3294}#)
+ #{r\ 3252}#
+ #{w\ 3253}#
+ #{mod\ 3255}#)
+ (map (lambda (#{e\ 3320}#)
+ (#{chi\ 331}#
+ #{e\ 3320}#
+ #{r\ 3252}#
+ #{w\ 3253}#
+ #{mod\ 3255}#))
(append
- #{tail\ 6550}#
- (list #{val\ 6551}#))))))))
- #{tmp\ 6543}#)
- ((lambda (#{_\ 6579}#)
+ #{tail\ 3295}#
+ (list #{val\ 3296}#))))))))
+ #{tmp\ 3288}#)
+ ((lambda (#{_\ 3324}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 3572}#
- #{e\ 6506}#
- #{w\ 6508}#
- #{s\ 6509}#
- #{mod\ 6510}#)))
- #{tmp\ 6516}#)))
+ (#{source-wrap\ 317}#
+ #{e\ 3251}#
+ #{w\ 3253}#
+ #{s\ 3254}#
+ #{mod\ 3255}#)))
+ #{tmp\ 3261}#)))
($sc-dispatch
- #{tmp\ 6516}#
+ #{tmp\ 3261}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 6516}#
+ #{tmp\ 3261}#
'(any any any))))
- #{e\ 6506}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3251}#)))
+ (#{global-extend\ 242}#
'module-ref
'@
- (lambda (#{e\ 6580}#)
- ((lambda (#{tmp\ 6582}#)
- ((lambda (#{tmp\ 6583}#)
- (if (if #{tmp\ 6583}#
- (apply (lambda (#{_\ 6587}# #{mod\ 6588}# #{id\ 6589}#)
- (if (and-map #{id?\ 3501}# #{mod\ 6588}#)
- (#{id?\ 3501}# #{id\ 6589}#)
+ (lambda (#{e\ 3325}#)
+ ((lambda (#{tmp\ 3327}#)
+ ((lambda (#{tmp\ 3328}#)
+ (if (if #{tmp\ 3328}#
+ (apply (lambda (#{_\ 3332}# #{mod\ 3333}# #{id\ 3334}#)
+ (if (and-map #{id?\ 246}# #{mod\ 3333}#)
+ (#{id?\ 246}# #{id\ 3334}#)
#f))
- #{tmp\ 6583}#)
+ #{tmp\ 3328}#)
#f)
- (apply (lambda (#{_\ 6596}# #{mod\ 6597}# #{id\ 6598}#)
+ (apply (lambda (#{_\ 3341}# #{mod\ 3342}# #{id\ 3343}#)
(values
- (syntax->datum #{id\ 6598}#)
+ (syntax->datum #{id\ 3343}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9406,9 +9393,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i6593" "i6594" "i6595"))
+ #("i3338" "i3339" "i3340"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i6581"))
+ #(ribcage #(e) #((top)) #("i3326"))
#(ribcage
(lambda-var-list
gen-var
@@ -9646,155 +9633,155 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile))
- #{mod\ 6597}#))))
- #{tmp\ 6583}#)
+ #{mod\ 3342}#))))
+ #{tmp\ 3328}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6582}#)))
+ #{tmp\ 3327}#)))
($sc-dispatch
- #{tmp\ 6582}#
+ #{tmp\ 3327}#
'(any each-any any))))
- #{e\ 6580}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3325}#)))
+ (#{global-extend\ 242}#
'module-ref
'@@
- (lambda (#{e\ 6600}#)
- ((lambda (#{tmp\ 6602}#)
- ((lambda (#{tmp\ 6603}#)
- (if (if #{tmp\ 6603}#
- (apply (lambda (#{_\ 6607}# #{mod\ 6608}# #{id\ 6609}#)
- (if (and-map #{id?\ 3501}# #{mod\ 6608}#)
- (#{id?\ 3501}# #{id\ 6609}#)
+ (lambda (#{e\ 3345}#)
+ ((lambda (#{tmp\ 3347}#)
+ ((lambda (#{tmp\ 3348}#)
+ (if (if #{tmp\ 3348}#
+ (apply (lambda (#{_\ 3352}# #{mod\ 3353}# #{id\ 3354}#)
+ (if (and-map #{id?\ 246}# #{mod\ 3353}#)
+ (#{id?\ 246}# #{id\ 3354}#)
#f))
- #{tmp\ 6603}#)
+ #{tmp\ 3348}#)
#f)
- (apply (lambda (#{_\ 6616}# #{mod\ 6617}# #{id\ 6618}#)
+ (apply (lambda (#{_\ 3361}# #{mod\ 3362}# #{id\ 3363}#)
(values
- (syntax->datum #{id\ 6618}#)
+ (syntax->datum #{id\ 3363}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -9802,9 +9789,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i6613" "i6614" "i6615"))
+ #("i3358" "i3359" "i3360"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i6601"))
+ #(ribcage #(e) #((top)) #("i3346"))
#(ribcage
(lambda-var-list
gen-var
@@ -10042,304 +10029,304 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile))
- #{mod\ 6617}#))))
- #{tmp\ 6603}#)
+ #{mod\ 3362}#))))
+ #{tmp\ 3348}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6602}#)))
+ #{tmp\ 3347}#)))
($sc-dispatch
- #{tmp\ 6602}#
+ #{tmp\ 3347}#
'(any each-any any))))
- #{e\ 6600}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3345}#)))
+ (#{global-extend\ 242}#
'core
'if
- (lambda (#{e\ 6620}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{s\ 6623}#
- #{mod\ 6624}#)
- ((lambda (#{tmp\ 6630}#)
- ((lambda (#{tmp\ 6631}#)
- (if #{tmp\ 6631}#
- (apply (lambda (#{_\ 6635}# #{test\ 6636}# #{then\ 6637}#)
- (#{build-conditional\ 3425}#
- #{s\ 6623}#
- (#{chi\ 3586}#
- #{test\ 6636}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{mod\ 6624}#)
- (#{chi\ 3586}#
- #{then\ 6637}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{mod\ 6624}#)
- (#{build-void\ 3421}# #f)))
- #{tmp\ 6631}#)
- ((lambda (#{tmp\ 6639}#)
- (if #{tmp\ 6639}#
- (apply (lambda (#{_\ 6644}#
- #{test\ 6645}#
- #{then\ 6646}#
- #{else\ 6647}#)
- (#{build-conditional\ 3425}#
- #{s\ 6623}#
- (#{chi\ 3586}#
- #{test\ 6645}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{mod\ 6624}#)
- (#{chi\ 3586}#
- #{then\ 6646}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{mod\ 6624}#)
- (#{chi\ 3586}#
- #{else\ 6647}#
- #{r\ 6621}#
- #{w\ 6622}#
- #{mod\ 6624}#)))
- #{tmp\ 6639}#)
+ (lambda (#{e\ 3365}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{s\ 3368}#
+ #{mod\ 3369}#)
+ ((lambda (#{tmp\ 3375}#)
+ ((lambda (#{tmp\ 3376}#)
+ (if #{tmp\ 3376}#
+ (apply (lambda (#{_\ 3380}# #{test\ 3381}# #{then\ 3382}#)
+ (#{build-conditional\ 170}#
+ #{s\ 3368}#
+ (#{chi\ 331}#
+ #{test\ 3381}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{mod\ 3369}#)
+ (#{chi\ 331}#
+ #{then\ 3382}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{mod\ 3369}#)
+ (#{build-void\ 166}# #f)))
+ #{tmp\ 3376}#)
+ ((lambda (#{tmp\ 3384}#)
+ (if #{tmp\ 3384}#
+ (apply (lambda (#{_\ 3389}#
+ #{test\ 3390}#
+ #{then\ 3391}#
+ #{else\ 3392}#)
+ (#{build-conditional\ 170}#
+ #{s\ 3368}#
+ (#{chi\ 331}#
+ #{test\ 3390}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{mod\ 3369}#)
+ (#{chi\ 331}#
+ #{then\ 3391}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{mod\ 3369}#)
+ (#{chi\ 331}#
+ #{else\ 3392}#
+ #{r\ 3366}#
+ #{w\ 3367}#
+ #{mod\ 3369}#)))
+ #{tmp\ 3384}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6630}#)))
+ #{tmp\ 3375}#)))
($sc-dispatch
- #{tmp\ 6630}#
+ #{tmp\ 3375}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 6630}#
+ #{tmp\ 3375}#
'(any any any))))
- #{e\ 6620}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3365}#)))
+ (#{global-extend\ 242}#
'core
'with-fluids
- (lambda (#{e\ 6648}#
- #{r\ 6649}#
- #{w\ 6650}#
- #{s\ 6651}#
- #{mod\ 6652}#)
- ((lambda (#{tmp\ 6658}#)
- ((lambda (#{tmp\ 6659}#)
- (if #{tmp\ 6659}#
- (apply (lambda (#{_\ 6665}#
- #{fluid\ 6666}#
- #{val\ 6667}#
- #{b\ 6668}#
- #{b*\ 6669}#)
- (#{build-dynlet\ 3427}#
- #{s\ 6651}#
- (map (lambda (#{x\ 6670}#)
- (#{chi\ 3586}#
- #{x\ 6670}#
- #{r\ 6649}#
- #{w\ 6650}#
- #{mod\ 6652}#))
- #{fluid\ 6666}#)
- (map (lambda (#{x\ 6673}#)
- (#{chi\ 3586}#
- #{x\ 6673}#
- #{r\ 6649}#
- #{w\ 6650}#
- #{mod\ 6652}#))
- #{val\ 6667}#)
- (#{chi-body\ 3594}#
- (cons #{b\ 6668}# #{b*\ 6669}#)
- (#{source-wrap\ 3572}#
- #{e\ 6648}#
- #{w\ 6650}#
- #{s\ 6651}#
- #{mod\ 6652}#)
- #{r\ 6649}#
- #{w\ 6650}#
- #{mod\ 6652}#)))
- #{tmp\ 6659}#)
+ (lambda (#{e\ 3393}#
+ #{r\ 3394}#
+ #{w\ 3395}#
+ #{s\ 3396}#
+ #{mod\ 3397}#)
+ ((lambda (#{tmp\ 3403}#)
+ ((lambda (#{tmp\ 3404}#)
+ (if #{tmp\ 3404}#
+ (apply (lambda (#{_\ 3410}#
+ #{fluid\ 3411}#
+ #{val\ 3412}#
+ #{b\ 3413}#
+ #{b*\ 3414}#)
+ (#{build-dynlet\ 172}#
+ #{s\ 3396}#
+ (map (lambda (#{x\ 3415}#)
+ (#{chi\ 331}#
+ #{x\ 3415}#
+ #{r\ 3394}#
+ #{w\ 3395}#
+ #{mod\ 3397}#))
+ #{fluid\ 3411}#)
+ (map (lambda (#{x\ 3418}#)
+ (#{chi\ 331}#
+ #{x\ 3418}#
+ #{r\ 3394}#
+ #{w\ 3395}#
+ #{mod\ 3397}#))
+ #{val\ 3412}#)
+ (#{chi-body\ 339}#
+ (cons #{b\ 3413}# #{b*\ 3414}#)
+ (#{source-wrap\ 317}#
+ #{e\ 3393}#
+ #{w\ 3395}#
+ #{s\ 3396}#
+ #{mod\ 3397}#)
+ #{r\ 3394}#
+ #{w\ 3395}#
+ #{mod\ 3397}#)))
+ #{tmp\ 3404}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6658}#)))
+ #{tmp\ 3403}#)))
($sc-dispatch
- #{tmp\ 6658}#
+ #{tmp\ 3403}#
'(any #(each (any any)) any . each-any))))
- #{e\ 6648}#)))
- (#{global-extend\ 3497}#
+ #{e\ 3393}#)))
+ (#{global-extend\ 242}#
'begin
'begin
'())
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'define
'define
'())
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'eval-when
'eval-when
'())
- (#{global-extend\ 3497}#
+ (#{global-extend\ 242}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 6684}#
- (lambda (#{x\ 6685}#
- #{keys\ 6686}#
- #{clauses\ 6687}#
- #{r\ 6688}#
- #{mod\ 6689}#)
- (if (null? #{clauses\ 6687}#)
- (#{build-application\ 3423}#
+ (letrec ((#{gen-syntax-case\ 3429}#
+ (lambda (#{x\ 3430}#
+ #{keys\ 3431}#
+ #{clauses\ 3432}#
+ #{r\ 3433}#
+ #{mod\ 3434}#)
+ (if (null? #{clauses\ 3432}#)
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'syntax-violation)
- (list (#{build-data\ 3451}# #f #f)
- (#{build-data\ 3451}#
+ (list (#{build-data\ 196}# #f #f)
+ (#{build-data\ 196}#
#f
"source expression failed to match any pattern")
- #{x\ 6685}#))
- ((lambda (#{tmp\ 6699}#)
- ((lambda (#{tmp\ 6700}#)
- (if #{tmp\ 6700}#
- (apply (lambda (#{pat\ 6703}# #{exp\ 6704}#)
- (if (if (#{id?\ 3501}# #{pat\ 6703}#)
+ #{x\ 3430}#))
+ ((lambda (#{tmp\ 3444}#)
+ ((lambda (#{tmp\ 3445}#)
+ (if #{tmp\ 3445}#
+ (apply (lambda (#{pat\ 3448}# #{exp\ 3449}#)
+ (if (if (#{id?\ 246}# #{pat\ 3448}#)
(and-map
- (lambda (#{x\ 6707}#)
- (not (#{free-id=?\ 3560}#
- #{pat\ 6703}#
- #{x\ 6707}#)))
+ (lambda (#{x\ 3452}#)
+ (not (#{free-id=?\ 305}#
+ #{pat\ 3448}#
+ #{x\ 3452}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i6701" "i6702"))
+ #("i3446" "i3447"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10352,11 +10339,11 @@
(top)
(top)
(top))
- #("i6690"
- "i6691"
- "i6692"
- "i6693"
- "i6694"))
+ #("i3435"
+ "i3436"
+ "i3437"
+ "i3438"
+ "i3439"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10366,10 +10353,10 @@
(top)
(top)
(top))
- ("i6683"
- "i6681"
- "i6679"
- "i6677"))
+ ("i3428"
+ "i3426"
+ "i3424"
+ "i3422"))
#(ribcage
(lambda-var-list
gen-var
@@ -10607,1026 +10594,1025 @@
(top)
(top)
(top))
- ("i3615"
- "i3613"
- "i3611"
- "i3609"
- "i3607"
- "i3605"
- "i3603"
- "i3601"
- "i3599"
- "i3597"
- "i3595"
- "i3593"
- "i3591"
- "i3589"
- "i3587"
- "i3585"
- "i3583"
- "i3581"
- "i3579"
- "i3577"
- "i3575"
- "i3573"
- "i3571"
- "i3569"
- "i3567"
- "i3565"
- "i3563"
- "i3561"
- "i3559"
- "i3557"
- "i3555"
- "i3553"
- "i3551"
- "i3549"
- "i3547"
- "i3545"
- "i3544"
- "i3543"
- "i3541"
- "i3540"
- "i3539"
- "i3538"
- "i3537"
- "i3535"
- "i3533"
- "i3531"
- "i3529"
- "i3527"
- "i3525"
- "i3523"
- "i3521"
- "i3518"
- "i3516"
- "i3515"
- "i3514"
- "i3513"
- "i3512"
- "i3511"
- "i3509"
- "i3507"
- "i3505"
- "i3503"
- "i3502"
- "i3500"
- "i3498"
- "i3496"
- "i3494"
- "i3492"
- "i3490"
- "i3488"
- "i3487"
- "i3485"
- "i3483"
- "i3482"
- "i3481"
- "i3479"
- "i3478"
- "i3476"
- "i3474"
- "i3472"
- "i3470"
- "i3468"
- "i3466"
- "i3464"
- "i3462"
- "i3460"
- "i3458"
- "i3456"
- "i3454"
- "i3452"
- "i3450"
- "i3448"
- "i3446"
- "i3444"
- "i3442"
- "i3440"
- "i3438"
- "i3436"
- "i3434"
- "i3432"
- "i3430"
- "i3428"
- "i3426"
- "i3424"
- "i3422"
- "i3420"
- "i3418"
- "i3416"
- "i3414"
- "i3413"
- "i3411"
- "i3409"
- "i3407"
- "i3405"
- "i3403"
- "i3401"
- "i3399"
- "i3397"))
+ ("i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i289"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i263"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i257"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i227"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i158"
+ "i156"
+ "i154"
+ "i152"
+ "i150"
+ "i148"
+ "i146"
+ "i144"
+ "i142"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i3300" "i3298")))
+ ("i45" "i43")))
(hygiene guile))
- #{keys\ 6686}#))
+ #{keys\ 3431}#))
#f)
- (let ((#{labels\ 6711}#
- (list (#{gen-label\ 3517}#)))
- (#{var\ 6712}#
- (#{gen-var\ 3614}#
- #{pat\ 6703}#)))
- (#{build-application\ 3423}#
+ (let ((#{labels\ 3456}#
+ (list (#{gen-label\ 262}#)))
+ (#{var\ 3457}#
+ (#{gen-var\ 359}#
+ #{pat\ 3448}#)))
+ (#{build-application\ 168}#
#f
- (#{build-simple-lambda\ 3443}#
+ (#{build-simple-lambda\ 188}#
#f
(list (syntax->datum
- #{pat\ 6703}#))
+ #{pat\ 3448}#))
#f
- (list #{var\ 6712}#)
+ (list #{var\ 3457}#)
#f
- (#{chi\ 3586}#
- #{exp\ 6704}#
- (#{extend-env\ 3489}#
- #{labels\ 6711}#
+ (#{chi\ 331}#
+ #{exp\ 3449}#
+ (#{extend-env\ 234}#
+ #{labels\ 3456}#
(list (cons 'syntax
- (cons #{var\ 6712}#
+ (cons #{var\ 3457}#
0)))
- #{r\ 6688}#)
- (#{make-binding-wrap\ 3548}#
- (list #{pat\ 6703}#)
- #{labels\ 6711}#
+ #{r\ 3433}#)
+ (#{make-binding-wrap\ 293}#
+ (list #{pat\ 3448}#)
+ #{labels\ 3456}#
'(()))
- #{mod\ 6689}#))
- (list #{x\ 6685}#)))
- (#{gen-clause\ 6682}#
- #{x\ 6685}#
- #{keys\ 6686}#
- (cdr #{clauses\ 6687}#)
- #{r\ 6688}#
- #{pat\ 6703}#
+ #{mod\ 3434}#))
+ (list #{x\ 3430}#)))
+ (#{gen-clause\ 3427}#
+ #{x\ 3430}#
+ #{keys\ 3431}#
+ (cdr #{clauses\ 3432}#)
+ #{r\ 3433}#
+ #{pat\ 3448}#
#t
- #{exp\ 6704}#
- #{mod\ 6689}#)))
- #{tmp\ 6700}#)
- ((lambda (#{tmp\ 6718}#)
- (if #{tmp\ 6718}#
- (apply (lambda (#{pat\ 6722}#
- #{fender\ 6723}#
- #{exp\ 6724}#)
- (#{gen-clause\ 6682}#
- #{x\ 6685}#
- #{keys\ 6686}#
- (cdr #{clauses\ 6687}#)
- #{r\ 6688}#
- #{pat\ 6722}#
- #{fender\ 6723}#
- #{exp\ 6724}#
- #{mod\ 6689}#))
- #{tmp\ 6718}#)
- ((lambda (#{_\ 6726}#)
+ #{exp\ 3449}#
+ #{mod\ 3434}#)))
+ #{tmp\ 3445}#)
+ ((lambda (#{tmp\ 3463}#)
+ (if #{tmp\ 3463}#
+ (apply (lambda (#{pat\ 3467}#
+ #{fender\ 3468}#
+ #{exp\ 3469}#)
+ (#{gen-clause\ 3427}#
+ #{x\ 3430}#
+ #{keys\ 3431}#
+ (cdr #{clauses\ 3432}#)
+ #{r\ 3433}#
+ #{pat\ 3467}#
+ #{fender\ 3468}#
+ #{exp\ 3469}#
+ #{mod\ 3434}#))
+ #{tmp\ 3463}#)
+ ((lambda (#{_\ 3471}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 6687}#)))
- #{tmp\ 6699}#)))
+ (car #{clauses\ 3432}#)))
+ #{tmp\ 3444}#)))
($sc-dispatch
- #{tmp\ 6699}#
+ #{tmp\ 3444}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 6699}# (quote (any any)))))
- (car #{clauses\ 6687}#)))))
- (#{gen-clause\ 6682}#
- (lambda (#{x\ 6727}#
- #{keys\ 6728}#
- #{clauses\ 6729}#
- #{r\ 6730}#
- #{pat\ 6731}#
- #{fender\ 6732}#
- #{exp\ 6733}#
- #{mod\ 6734}#)
+ ($sc-dispatch #{tmp\ 3444}# (quote (any any)))))
+ (car #{clauses\ 3432}#)))))
+ (#{gen-clause\ 3427}#
+ (lambda (#{x\ 3472}#
+ #{keys\ 3473}#
+ #{clauses\ 3474}#
+ #{r\ 3475}#
+ #{pat\ 3476}#
+ #{fender\ 3477}#
+ #{exp\ 3478}#
+ #{mod\ 3479}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 6678}#
- #{pat\ 6731}#
- #{keys\ 6728}#))
- (lambda (#{p\ 6743}# #{pvars\ 6744}#)
- (if (not (#{distinct-bound-ids?\ 3566}#
- (map car #{pvars\ 6744}#)))
+ (#{convert-pattern\ 3423}#
+ #{pat\ 3476}#
+ #{keys\ 3473}#))
+ (lambda (#{p\ 3488}# #{pvars\ 3489}#)
+ (if (not (#{distinct-bound-ids?\ 311}#
+ (map car #{pvars\ 3489}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 6731}#)
+ #{pat\ 3476}#)
(if (not (and-map
- (lambda (#{x\ 6751}#)
- (not (#{ellipsis?\ 3602}#
- (car #{x\ 6751}#))))
- #{pvars\ 6744}#))
+ (lambda (#{x\ 3496}#)
+ (not (#{ellipsis?\ 347}#
+ (car #{x\ 3496}#))))
+ #{pvars\ 3489}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 6731}#)
- (let ((#{y\ 6755}#
- (#{gen-var\ 3614}# (quote tmp))))
- (#{build-application\ 3423}#
+ #{pat\ 3476}#)
+ (let ((#{y\ 3500}#
+ (#{gen-var\ 359}# (quote tmp))))
+ (#{build-application\ 168}#
#f
- (#{build-simple-lambda\ 3443}#
+ (#{build-simple-lambda\ 188}#
#f
(list (quote tmp))
#f
- (list #{y\ 6755}#)
+ (list #{y\ 3500}#)
#f
- (let ((#{y\ 6759}#
- (#{build-lexical-reference\ 3429}#
+ (let ((#{y\ 3504}#
+ (#{build-lexical-reference\ 174}#
'value
#f
'tmp
- #{y\ 6755}#)))
- (#{build-conditional\ 3425}#
+ #{y\ 3500}#)))
+ (#{build-conditional\ 170}#
#f
- ((lambda (#{tmp\ 6762}#)
- ((lambda (#{tmp\ 6763}#)
- (if #{tmp\ 6763}#
- (apply (lambda () #{y\ 6759}#)
- #{tmp\ 6763}#)
- ((lambda (#{_\ 6765}#)
- (#{build-conditional\ 3425}#
+ ((lambda (#{tmp\ 3507}#)
+ ((lambda (#{tmp\ 3508}#)
+ (if #{tmp\ 3508}#
+ (apply (lambda () #{y\ 3504}#)
+ #{tmp\ 3508}#)
+ ((lambda (#{_\ 3510}#)
+ (#{build-conditional\ 170}#
#f
- #{y\ 6759}#
- (#{build-dispatch-call\ 6680}#
- #{pvars\ 6744}#
- #{fender\ 6732}#
- #{y\ 6759}#
- #{r\ 6730}#
- #{mod\ 6734}#)
- (#{build-data\ 3451}#
+ #{y\ 3504}#
+ (#{build-dispatch-call\ 3425}#
+ #{pvars\ 3489}#
+ #{fender\ 3477}#
+ #{y\ 3504}#
+ #{r\ 3475}#
+ #{mod\ 3479}#)
+ (#{build-data\ 196}#
#f
#f)))
- #{tmp\ 6762}#)))
+ #{tmp\ 3507}#)))
($sc-dispatch
- #{tmp\ 6762}#
+ #{tmp\ 3507}#
'#(atom #t))))
- #{fender\ 6732}#)
- (#{build-dispatch-call\ 6680}#
- #{pvars\ 6744}#
- #{exp\ 6733}#
- #{y\ 6759}#
- #{r\ 6730}#
- #{mod\ 6734}#)
- (#{gen-syntax-case\ 6684}#
- #{x\ 6727}#
- #{keys\ 6728}#
- #{clauses\ 6729}#
- #{r\ 6730}#
- #{mod\ 6734}#))))
- (list (if (eq? #{p\ 6743}# (quote any))
- (#{build-application\ 3423}#
+ #{fender\ 3477}#)
+ (#{build-dispatch-call\ 3425}#
+ #{pvars\ 3489}#
+ #{exp\ 3478}#
+ #{y\ 3504}#
+ #{r\ 3475}#
+ #{mod\ 3479}#)
+ (#{gen-syntax-case\ 3429}#
+ #{x\ 3472}#
+ #{keys\ 3473}#
+ #{clauses\ 3474}#
+ #{r\ 3475}#
+ #{mod\ 3479}#))))
+ (list (if (eq? #{p\ 3488}# (quote any))
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'list)
- (list #{x\ 6727}#))
- (#{build-application\ 3423}#
+ (list #{x\ 3472}#))
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}#
+ (#{build-primref\ 194}#
#f
'$sc-dispatch)
- (list #{x\ 6727}#
- (#{build-data\ 3451}#
+ (list #{x\ 3472}#
+ (#{build-data\ 196}#
#f
- #{p\ 6743}#)))))))))))))
- (#{build-dispatch-call\ 6680}#
- (lambda (#{pvars\ 6773}#
- #{exp\ 6774}#
- #{y\ 6775}#
- #{r\ 6776}#
- #{mod\ 6777}#)
- (let ((#{ids\ 6785}# (map car #{pvars\ 6773}#))
- (#{levels\ 6786}# (map cdr #{pvars\ 6773}#)))
- (let ((#{labels\ 6789}#
- (#{gen-labels\ 3519}# #{ids\ 6785}#))
- (#{new-vars\ 6790}#
- (map #{gen-var\ 3614}# #{ids\ 6785}#)))
- (#{build-application\ 3423}#
+ #{p\ 3488}#)))))))))))))
+ (#{build-dispatch-call\ 3425}#
+ (lambda (#{pvars\ 3518}#
+ #{exp\ 3519}#
+ #{y\ 3520}#
+ #{r\ 3521}#
+ #{mod\ 3522}#)
+ (let ((#{ids\ 3530}# (map car #{pvars\ 3518}#))
+ (#{levels\ 3531}# (map cdr #{pvars\ 3518}#)))
+ (let ((#{labels\ 3534}#
+ (#{gen-labels\ 264}# #{ids\ 3530}#))
+ (#{new-vars\ 3535}#
+ (map #{gen-var\ 359}# #{ids\ 3530}#)))
+ (#{build-application\ 168}#
#f
- (#{build-primref\ 3449}# #f (quote apply))
- (list (#{build-simple-lambda\ 3443}#
+ (#{build-primref\ 194}# #f (quote apply))
+ (list (#{build-simple-lambda\ 188}#
#f
- (map syntax->datum #{ids\ 6785}#)
+ (map syntax->datum #{ids\ 3530}#)
#f
- #{new-vars\ 6790}#
+ #{new-vars\ 3535}#
#f
- (#{chi\ 3586}#
- #{exp\ 6774}#
- (#{extend-env\ 3489}#
- #{labels\ 6789}#
- (map (lambda (#{var\ 6794}#
- #{level\ 6795}#)
+ (#{chi\ 331}#
+ #{exp\ 3519}#
+ (#{extend-env\ 234}#
+ #{labels\ 3534}#
+ (map (lambda (#{var\ 3539}#
+ #{level\ 3540}#)
(cons 'syntax
- (cons #{var\ 6794}#
- #{level\ 6795}#)))
- #{new-vars\ 6790}#
- (map cdr #{pvars\ 6773}#))
- #{r\ 6776}#)
- (#{make-binding-wrap\ 3548}#
- #{ids\ 6785}#
- #{labels\ 6789}#
+ (cons #{var\ 3539}#
+ #{level\ 3540}#)))
+ #{new-vars\ 3535}#
+ (map cdr #{pvars\ 3518}#))
+ #{r\ 3521}#)
+ (#{make-binding-wrap\ 293}#
+ #{ids\ 3530}#
+ #{labels\ 3534}#
'(()))
- #{mod\ 6777}#))
- #{y\ 6775}#))))))
- (#{convert-pattern\ 6678}#
- (lambda (#{pattern\ 6801}# #{keys\ 6802}#)
- (letrec ((#{cvt\ 6808}#
- (lambda (#{p\ 6809}# #{n\ 6810}# #{ids\ 6811}#)
- (if (#{id?\ 3501}# #{p\ 6809}#)
- (if (#{bound-id-member?\ 3568}#
- #{p\ 6809}#
- #{keys\ 6802}#)
+ #{mod\ 3522}#))
+ #{y\ 3520}#))))))
+ (#{convert-pattern\ 3423}#
+ (lambda (#{pattern\ 3546}# #{keys\ 3547}#)
+ (letrec ((#{cvt\ 3553}#
+ (lambda (#{p\ 3554}# #{n\ 3555}# #{ids\ 3556}#)
+ (if (#{id?\ 246}# #{p\ 3554}#)
+ (if (#{bound-id-member?\ 313}#
+ #{p\ 3554}#
+ #{keys\ 3547}#)
(values
- (vector (quote free-id) #{p\ 6809}#)
- #{ids\ 6811}#)
+ (vector (quote free-id) #{p\ 3554}#)
+ #{ids\ 3556}#)
(values
'any
- (cons (cons #{p\ 6809}# #{n\ 6810}#)
- #{ids\ 6811}#)))
- ((lambda (#{tmp\ 6815}#)
- ((lambda (#{tmp\ 6816}#)
- (if (if #{tmp\ 6816}#
- (apply (lambda (#{x\ 6819}#
- #{dots\ 6820}#)
- (#{ellipsis?\ 3602}#
- #{dots\ 6820}#))
- #{tmp\ 6816}#)
+ (cons (cons #{p\ 3554}# #{n\ 3555}#)
+ #{ids\ 3556}#)))
+ ((lambda (#{tmp\ 3560}#)
+ ((lambda (#{tmp\ 3561}#)
+ (if (if #{tmp\ 3561}#
+ (apply (lambda (#{x\ 3564}#
+ #{dots\ 3565}#)
+ (#{ellipsis?\ 347}#
+ #{dots\ 3565}#))
+ #{tmp\ 3561}#)
#f)
- (apply (lambda (#{x\ 6823}#
- #{dots\ 6824}#)
+ (apply (lambda (#{x\ 3568}#
+ #{dots\ 3569}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- #{x\ 6823}#
- (#{fx+\ 3402}#
- #{n\ 6810}#
+ (#{cvt\ 3553}#
+ #{x\ 3568}#
+ (#{fx+\ 147}#
+ #{n\ 3555}#
1)
- #{ids\ 6811}#))
- (lambda (#{p\ 6825}#
- #{ids\ 6826}#)
+ #{ids\ 3556}#))
+ (lambda (#{p\ 3570}#
+ #{ids\ 3571}#)
(values
- (if (eq? #{p\ 6825}#
+ (if (eq? #{p\ 3570}#
'any)
'each-any
(vector
'each
- #{p\ 6825}#))
- #{ids\ 6826}#))))
- #{tmp\ 6816}#)
- ((lambda (#{tmp\ 6829}#)
- (if (if #{tmp\ 6829}#
- (apply (lambda (#{x\ 6833}#
- #{dots\ 6834}#
- #{ys\ 6835}#)
- (#{ellipsis?\ 3602}#
- #{dots\ 6834}#))
- #{tmp\ 6829}#)
+ #{p\ 3570}#))
+ #{ids\ 3571}#))))
+ #{tmp\ 3561}#)
+ ((lambda (#{tmp\ 3574}#)
+ (if (if #{tmp\ 3574}#
+ (apply (lambda (#{x\ 3578}#
+ #{dots\ 3579}#
+ #{ys\ 3580}#)
+ (#{ellipsis?\ 347}#
+ #{dots\ 3579}#))
+ #{tmp\ 3574}#)
#f)
- (apply (lambda (#{x\ 6839}#
- #{dots\ 6840}#
- #{ys\ 6841}#)
+ (apply (lambda (#{x\ 3584}#
+ #{dots\ 3585}#
+ #{ys\ 3586}#)
(call-with-values
(lambda ()
- (#{cvt*\ 6806}#
- #{ys\ 6841}#
- #{n\ 6810}#
- #{ids\ 6811}#))
- (lambda (#{ys\ 6843}#
- #{ids\ 6844}#)
+ (#{cvt*\ 3551}#
+ #{ys\ 3586}#
+ #{n\ 3555}#
+ #{ids\ 3556}#))
+ (lambda (#{ys\ 3588}#
+ #{ids\ 3589}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- #{x\ 6839}#
- (+ #{n\ 6810}#
+ (#{cvt\ 3553}#
+ #{x\ 3584}#
+ (+ #{n\ 3555}#
1)
- #{ids\ 6844}#))
- (lambda (#{x\ 6847}#
- #{ids\ 6848}#)
+ #{ids\ 3589}#))
+ (lambda (#{x\ 3592}#
+ #{ids\ 3593}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 6847}#
+ (cons #{x\ 3592}#
(cons (reverse
- #{ys\ 6843}#)
+ #{ys\ 3588}#)
'(())))))
- #{ids\ 6848}#))))))
- #{tmp\ 6829}#)
- ((lambda (#{tmp\ 6852}#)
- (if #{tmp\ 6852}#
- (apply (lambda (#{x\ 6855}#
- #{y\ 6856}#)
+ #{ids\ 3593}#))))))
+ #{tmp\ 3574}#)
+ ((lambda (#{tmp\ 3597}#)
+ (if #{tmp\ 3597}#
+ (apply (lambda (#{x\ 3600}#
+ #{y\ 3601}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- #{y\ 6856}#
- #{n\ 6810}#
- #{ids\ 6811}#))
- (lambda (#{y\ 6857}#
- #{ids\ 6858}#)
+ (#{cvt\ 3553}#
+ #{y\ 3601}#
+ #{n\ 3555}#
+ #{ids\ 3556}#))
+ (lambda (#{y\ 3602}#
+ #{ids\ 3603}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- #{x\ 6855}#
- #{n\ 6810}#
- #{ids\ 6858}#))
- (lambda (#{x\ 6861}#
- #{ids\ 6862}#)
+ (#{cvt\ 3553}#
+ #{x\ 3600}#
+ #{n\ 3555}#
+ #{ids\ 3603}#))
+ (lambda (#{x\ 3606}#
+ #{ids\ 3607}#)
(values
- (cons #{x\ 6861}#
- #{y\ 6857}#)
- #{ids\ 6862}#))))))
- #{tmp\ 6852}#)
- ((lambda (#{tmp\ 6865}#)
- (if #{tmp\ 6865}#
+ (cons #{x\ 3606}#
+ #{y\ 3602}#)
+ #{ids\ 3607}#))))))
+ #{tmp\ 3597}#)
+ ((lambda (#{tmp\ 3610}#)
+ (if #{tmp\ 3610}#
(apply (lambda ()
(values
'()
- #{ids\ 6811}#))
- #{tmp\ 6865}#)
- ((lambda (#{tmp\ 6866}#)
- (if #{tmp\ 6866}#
- (apply (lambda (#{x\ 6868}#)
+ #{ids\ 3556}#))
+ #{tmp\ 3610}#)
+ ((lambda (#{tmp\ 3611}#)
+ (if #{tmp\ 3611}#
+ (apply (lambda (#{x\ 3613}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- #{x\ 6868}#
- #{n\ 6810}#
- #{ids\ 6811}#))
- (lambda (#{p\ 6870}#
- #{ids\ 6871}#)
+ (#{cvt\ 3553}#
+ #{x\ 3613}#
+ #{n\ 3555}#
+ #{ids\ 3556}#))
+ (lambda (#{p\ 3615}#
+ #{ids\ 3616}#)
(values
(vector
'vector
- #{p\ 6870}#)
- #{ids\ 6871}#))))
- #{tmp\ 6866}#)
- ((lambda (#{x\ 6875}#)
+ #{p\ 3615}#)
+ #{ids\ 3616}#))))
+ #{tmp\ 3611}#)
+ ((lambda (#{x\ 3620}#)
(values
(vector
'atom
- (#{strip\ 3612}#
- #{p\ 6809}#
+ (#{strip\ 357}#
+ #{p\ 3554}#
'(())))
- #{ids\ 6811}#))
- #{tmp\ 6815}#)))
+ #{ids\ 3556}#))
+ #{tmp\ 3560}#)))
($sc-dispatch
- #{tmp\ 6815}#
+ #{tmp\ 3560}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 6815}#
+ #{tmp\ 3560}#
'()))))
($sc-dispatch
- #{tmp\ 6815}#
+ #{tmp\ 3560}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 6815}#
+ #{tmp\ 3560}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 6815}#
+ #{tmp\ 3560}#
'(any any))))
- #{p\ 6809}#))))
- (#{cvt*\ 6806}#
- (lambda (#{p*\ 6877}#
- #{n\ 6878}#
- #{ids\ 6879}#)
- (if (null? #{p*\ 6877}#)
- (values (quote ()) #{ids\ 6879}#)
+ #{p\ 3554}#))))
+ (#{cvt*\ 3551}#
+ (lambda (#{p*\ 3622}#
+ #{n\ 3623}#
+ #{ids\ 3624}#)
+ (if (null? #{p*\ 3622}#)
+ (values (quote ()) #{ids\ 3624}#)
(call-with-values
(lambda ()
- (#{cvt*\ 6806}#
- (cdr #{p*\ 6877}#)
- #{n\ 6878}#
- #{ids\ 6879}#))
- (lambda (#{y\ 6883}# #{ids\ 6884}#)
+ (#{cvt*\ 3551}#
+ (cdr #{p*\ 3622}#)
+ #{n\ 3623}#
+ #{ids\ 3624}#))
+ (lambda (#{y\ 3628}# #{ids\ 3629}#)
(call-with-values
(lambda ()
- (#{cvt\ 6808}#
- (car #{p*\ 6877}#)
- #{n\ 6878}#
- #{ids\ 6884}#))
- (lambda (#{x\ 6887}# #{ids\ 6888}#)
+ (#{cvt\ 3553}#
+ (car #{p*\ 3622}#)
+ #{n\ 3623}#
+ #{ids\ 3629}#))
+ (lambda (#{x\ 3632}# #{ids\ 3633}#)
(values
- (cons #{x\ 6887}# #{y\ 6883}#)
- #{ids\ 6888}#)))))))))
- (#{cvt\ 6808}# #{pattern\ 6801}# 0 (quote ()))))))
- (lambda (#{e\ 6891}#
- #{r\ 6892}#
- #{w\ 6893}#
- #{s\ 6894}#
- #{mod\ 6895}#)
- (let ((#{e\ 6902}#
- (#{source-wrap\ 3572}#
- #{e\ 6891}#
- #{w\ 6893}#
- #{s\ 6894}#
- #{mod\ 6895}#)))
- ((lambda (#{tmp\ 6903}#)
- ((lambda (#{tmp\ 6904}#)
- (if #{tmp\ 6904}#
- (apply (lambda (#{_\ 6909}#
- #{val\ 6910}#
- #{key\ 6911}#
- #{m\ 6912}#)
+ (cons #{x\ 3632}# #{y\ 3628}#)
+ #{ids\ 3633}#)))))))))
+ (#{cvt\ 3553}# #{pattern\ 3546}# 0 (quote ()))))))
+ (lambda (#{e\ 3636}#
+ #{r\ 3637}#
+ #{w\ 3638}#
+ #{s\ 3639}#
+ #{mod\ 3640}#)
+ (let ((#{e\ 3647}#
+ (#{source-wrap\ 317}#
+ #{e\ 3636}#
+ #{w\ 3638}#
+ #{s\ 3639}#
+ #{mod\ 3640}#)))
+ ((lambda (#{tmp\ 3648}#)
+ ((lambda (#{tmp\ 3649}#)
+ (if #{tmp\ 3649}#
+ (apply (lambda (#{_\ 3654}#
+ #{val\ 3655}#
+ #{key\ 3656}#
+ #{m\ 3657}#)
(if (and-map
- (lambda (#{x\ 6913}#)
- (if (#{id?\ 3501}# #{x\ 6913}#)
- (not (#{ellipsis?\ 3602}#
- #{x\ 6913}#))
+ (lambda (#{x\ 3658}#)
+ (if (#{id?\ 246}# #{x\ 3658}#)
+ (not (#{ellipsis?\ 347}# #{x\ 3658}#))
#f))
- #{key\ 6911}#)
- (let ((#{x\ 6919}#
- (#{gen-var\ 3614}# (quote tmp))))
- (#{build-application\ 3423}#
- #{s\ 6894}#
- (#{build-simple-lambda\ 3443}#
+ #{key\ 3656}#)
+ (let ((#{x\ 3664}#
+ (#{gen-var\ 359}# (quote tmp))))
+ (#{build-application\ 168}#
+ #{s\ 3639}#
+ (#{build-simple-lambda\ 188}#
#f
(list (quote tmp))
#f
- (list #{x\ 6919}#)
+ (list #{x\ 3664}#)
#f
- (#{gen-syntax-case\ 6684}#
- (#{build-lexical-reference\ 3429}#
+ (#{gen-syntax-case\ 3429}#
+ (#{build-lexical-reference\ 174}#
'value
#f
'tmp
- #{x\ 6919}#)
- #{key\ 6911}#
- #{m\ 6912}#
- #{r\ 6892}#
- #{mod\ 6895}#))
- (list (#{chi\ 3586}#
- #{val\ 6910}#
- #{r\ 6892}#
+ #{x\ 3664}#)
+ #{key\ 3656}#
+ #{m\ 3657}#
+ #{r\ 3637}#
+ #{mod\ 3640}#))
+ (list (#{chi\ 331}#
+ #{val\ 3655}#
+ #{r\ 3637}#
'(())
- #{mod\ 6895}#))))
+ #{mod\ 3640}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 6902}#)))
- #{tmp\ 6904}#)
+ #{e\ 3647}#)))
+ #{tmp\ 3649}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6903}#)))
+ #{tmp\ 3648}#)))
($sc-dispatch
- #{tmp\ 6903}#
+ #{tmp\ 3648}#
'(any any each-any . each-any))))
- #{e\ 6902}#)))))
+ #{e\ 3647}#)))))
(set! macroexpand
- (lambda (#{x\ 6925}# . #{rest\ 6926}#)
- (if (if (pair? #{x\ 6925}#)
- (equal? (car #{x\ 6925}#) #{noexpand\ 3398}#)
+ (lambda (#{x\ 3670}# . #{rest\ 3671}#)
+ (if (if (pair? #{x\ 3670}#)
+ (equal? (car #{x\ 3670}#) #{noexpand\ 143}#)
#f)
- (cadr #{x\ 6925}#)
- (let ((#{m\ 6933}#
- (if (null? #{rest\ 6926}#)
+ (cadr #{x\ 3670}#)
+ (let ((#{m\ 3678}#
+ (if (null? #{rest\ 3671}#)
'e
- (car #{rest\ 6926}#)))
- (#{esew\ 6934}#
- (if (let ((#{t\ 6937}# (null? #{rest\ 6926}#)))
- (if #{t\ 6937}#
- #{t\ 6937}#
- (null? (cdr #{rest\ 6926}#))))
+ (car #{rest\ 3671}#)))
+ (#{esew\ 3679}#
+ (if (let ((#{t\ 3682}# (null? #{rest\ 3671}#)))
+ (if #{t\ 3682}#
+ #{t\ 3682}#
+ (null? (cdr #{rest\ 3671}#))))
'(eval)
- (cadr #{rest\ 6926}#))))
+ (cadr #{rest\ 3671}#))))
(with-fluids
- ((#{*mode*\ 3400}# #{m\ 6933}#))
- (#{chi-top\ 3584}#
- #{x\ 6925}#
+ ((#{*mode*\ 145}# #{m\ 3678}#))
+ (#{chi-top\ 329}#
+ #{x\ 3670}#
'()
'((top))
- #{m\ 6933}#
- #{esew\ 6934}#
+ #{m\ 3678}#
+ #{esew\ 3679}#
(cons 'hygiene
(module-name (current-module)))))))))
(set! identifier?
- (lambda (#{x\ 6941}#)
- (#{nonsymbol-id?\ 3499}# #{x\ 6941}#)))
+ (lambda (#{x\ 3686}#)
+ (#{nonsymbol-id?\ 244}# #{x\ 3686}#)))
(set! datum->syntax
- (lambda (#{id\ 6943}# #{datum\ 6944}#)
- (#{make-syntax-object\ 3463}#
- #{datum\ 6944}#
- (#{syntax-object-wrap\ 3469}# #{id\ 6943}#)
+ (lambda (#{id\ 3688}# #{datum\ 3689}#)
+ (#{make-syntax-object\ 208}#
+ #{datum\ 3689}#
+ (#{syntax-object-wrap\ 214}# #{id\ 3688}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 6947}#)
- (#{strip\ 3612}# #{x\ 6947}# (quote (())))))
+ (lambda (#{x\ 3692}#)
+ (#{strip\ 357}# #{x\ 3692}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 6950}#)
+ (lambda (#{ls\ 3695}#)
(begin
- (let ((#{x\ 6954}# #{ls\ 6950}#))
- (if (not (list? #{x\ 6954}#))
+ (let ((#{x\ 3699}# #{ls\ 3695}#))
+ (if (not (list? #{x\ 3699}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 6954}#)))
- (map (lambda (#{x\ 6955}#)
- (#{wrap\ 3570}# (gensym) (quote ((top))) #f))
- #{ls\ 6950}#))))
+ #{x\ 3699}#)))
+ (map (lambda (#{x\ 3700}#)
+ (#{wrap\ 315}# (gensym) (quote ((top))) #f))
+ #{ls\ 3695}#))))
(set! free-identifier=?
- (lambda (#{x\ 6959}# #{y\ 6960}#)
+ (lambda (#{x\ 3704}# #{y\ 3705}#)
(begin
- (let ((#{x\ 6965}# #{x\ 6959}#))
- (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6965}#))
+ (let ((#{x\ 3710}# #{x\ 3704}#))
+ (if (not (#{nonsymbol-id?\ 244}# #{x\ 3710}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6965}#)))
- (let ((#{x\ 6968}# #{y\ 6960}#))
- (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6968}#))
+ #{x\ 3710}#)))
+ (let ((#{x\ 3713}# #{y\ 3705}#))
+ (if (not (#{nonsymbol-id?\ 244}# #{x\ 3713}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6968}#)))
- (#{free-id=?\ 3560}# #{x\ 6959}# #{y\ 6960}#))))
+ #{x\ 3713}#)))
+ (#{free-id=?\ 305}# #{x\ 3704}# #{y\ 3705}#))))
(set! bound-identifier=?
- (lambda (#{x\ 6969}# #{y\ 6970}#)
+ (lambda (#{x\ 3714}# #{y\ 3715}#)
(begin
- (let ((#{x\ 6975}# #{x\ 6969}#))
- (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6975}#))
+ (let ((#{x\ 3720}# #{x\ 3714}#))
+ (if (not (#{nonsymbol-id?\ 244}# #{x\ 3720}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6975}#)))
- (let ((#{x\ 6978}# #{y\ 6970}#))
- (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6978}#))
+ #{x\ 3720}#)))
+ (let ((#{x\ 3723}# #{y\ 3715}#))
+ (if (not (#{nonsymbol-id?\ 244}# #{x\ 3723}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6978}#)))
- (#{bound-id=?\ 3562}# #{x\ 6969}# #{y\ 6970}#))))
+ #{x\ 3723}#)))
+ (#{bound-id=?\ 307}# #{x\ 3714}# #{y\ 3715}#))))
(set! syntax-violation
- (lambda (#{who\ 6979}#
- #{message\ 6980}#
- #{form\ 6981}#
+ (lambda (#{who\ 3724}#
+ #{message\ 3725}#
+ #{form\ 3726}#
.
- #{subform\ 6982}#)
+ #{subform\ 3727}#)
(begin
- (let ((#{x\ 6989}# #{who\ 6979}#))
- (if (not ((lambda (#{x\ 6990}#)
- (let ((#{t\ 6994}# (not #{x\ 6990}#)))
- (if #{t\ 6994}#
- #{t\ 6994}#
- (let ((#{t\ 6997}# (string? #{x\ 6990}#)))
- (if #{t\ 6997}#
- #{t\ 6997}#
- (symbol? #{x\ 6990}#))))))
- #{x\ 6989}#))
+ (let ((#{x\ 3734}# #{who\ 3724}#))
+ (if (not ((lambda (#{x\ 3735}#)
+ (let ((#{t\ 3739}# (not #{x\ 3735}#)))
+ (if #{t\ 3739}#
+ #{t\ 3739}#
+ (let ((#{t\ 3742}# (string? #{x\ 3735}#)))
+ (if #{t\ 3742}#
+ #{t\ 3742}#
+ (symbol? #{x\ 3735}#))))))
+ #{x\ 3734}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 6989}#)))
- (let ((#{x\ 7001}# #{message\ 6980}#))
- (if (not (string? #{x\ 7001}#))
+ #{x\ 3734}#)))
+ (let ((#{x\ 3746}# #{message\ 3725}#))
+ (if (not (string? #{x\ 3746}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 7001}#)))
+ #{x\ 3746}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 6979}# "~a: " "")
+ (if #{who\ 3724}# "~a: " "")
"~a "
- (if (null? #{subform\ 6982}#)
+ (if (null? #{subform\ 3727}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 7003}#
- (cons #{message\ 6980}#
- (map (lambda (#{x\ 7004}#)
- (#{strip\ 3612}# #{x\ 7004}# (quote (()))))
+ (let ((#{tail\ 3748}#
+ (cons #{message\ 3725}#
+ (map (lambda (#{x\ 3749}#)
+ (#{strip\ 357}# #{x\ 3749}# (quote (()))))
(append
- #{subform\ 6982}#
- (list #{form\ 6981}#))))))
- (if #{who\ 6979}#
- (cons #{who\ 6979}# #{tail\ 7003}#)
- #{tail\ 7003}#))
+ #{subform\ 3727}#
+ (list #{form\ 3726}#))))))
+ (if #{who\ 3724}#
+ (cons #{who\ 3724}# #{tail\ 3748}#)
+ #{tail\ 3748}#))
#f))))
- (letrec ((#{match\ 7020}#
- (lambda (#{e\ 7021}#
- #{p\ 7022}#
- #{w\ 7023}#
- #{r\ 7024}#
- #{mod\ 7025}#)
- (if (not #{r\ 7024}#)
+ (letrec ((#{match\ 3765}#
+ (lambda (#{e\ 3766}#
+ #{p\ 3767}#
+ #{w\ 3768}#
+ #{r\ 3769}#
+ #{mod\ 3770}#)
+ (if (not #{r\ 3769}#)
#f
- (if (eq? #{p\ 7022}# (quote any))
- (cons (#{wrap\ 3570}#
- #{e\ 7021}#
- #{w\ 7023}#
- #{mod\ 7025}#)
- #{r\ 7024}#)
- (if (#{syntax-object?\ 3465}# #{e\ 7021}#)
- (#{match*\ 7018}#
- (#{syntax-object-expression\ 3467}# #{e\ 7021}#)
- #{p\ 7022}#
- (#{join-wraps\ 3552}#
- #{w\ 7023}#
- (#{syntax-object-wrap\ 3469}# #{e\ 7021}#))
- #{r\ 7024}#
- (#{syntax-object-module\ 3471}# #{e\ 7021}#))
- (#{match*\ 7018}#
- #{e\ 7021}#
- #{p\ 7022}#
- #{w\ 7023}#
- #{r\ 7024}#
- #{mod\ 7025}#))))))
- (#{match*\ 7018}#
- (lambda (#{e\ 7038}#
- #{p\ 7039}#
- #{w\ 7040}#
- #{r\ 7041}#
- #{mod\ 7042}#)
- (if (null? #{p\ 7039}#)
- (if (null? #{e\ 7038}#) #{r\ 7041}# #f)
- (if (pair? #{p\ 7039}#)
- (if (pair? #{e\ 7038}#)
- (#{match\ 7020}#
- (car #{e\ 7038}#)
- (car #{p\ 7039}#)
- #{w\ 7040}#
- (#{match\ 7020}#
- (cdr #{e\ 7038}#)
- (cdr #{p\ 7039}#)
- #{w\ 7040}#
- #{r\ 7041}#
- #{mod\ 7042}#)
- #{mod\ 7042}#)
+ (if (eq? #{p\ 3767}# (quote any))
+ (cons (#{wrap\ 315}#
+ #{e\ 3766}#
+ #{w\ 3768}#
+ #{mod\ 3770}#)
+ #{r\ 3769}#)
+ (if (#{syntax-object?\ 210}# #{e\ 3766}#)
+ (#{match*\ 3763}#
+ (#{syntax-object-expression\ 212}# #{e\ 3766}#)
+ #{p\ 3767}#
+ (#{join-wraps\ 297}#
+ #{w\ 3768}#
+ (#{syntax-object-wrap\ 214}# #{e\ 3766}#))
+ #{r\ 3769}#
+ (#{syntax-object-module\ 216}# #{e\ 3766}#))
+ (#{match*\ 3763}#
+ #{e\ 3766}#
+ #{p\ 3767}#
+ #{w\ 3768}#
+ #{r\ 3769}#
+ #{mod\ 3770}#))))))
+ (#{match*\ 3763}#
+ (lambda (#{e\ 3783}#
+ #{p\ 3784}#
+ #{w\ 3785}#
+ #{r\ 3786}#
+ #{mod\ 3787}#)
+ (if (null? #{p\ 3784}#)
+ (if (null? #{e\ 3783}#) #{r\ 3786}# #f)
+ (if (pair? #{p\ 3784}#)
+ (if (pair? #{e\ 3783}#)
+ (#{match\ 3765}#
+ (car #{e\ 3783}#)
+ (car #{p\ 3784}#)
+ #{w\ 3785}#
+ (#{match\ 3765}#
+ (cdr #{e\ 3783}#)
+ (cdr #{p\ 3784}#)
+ #{w\ 3785}#
+ #{r\ 3786}#
+ #{mod\ 3787}#)
+ #{mod\ 3787}#)
#f)
- (if (eq? #{p\ 7039}# (quote each-any))
- (let ((#{l\ 7059}#
- (#{match-each-any\ 7012}#
- #{e\ 7038}#
- #{w\ 7040}#
- #{mod\ 7042}#)))
- (if #{l\ 7059}#
- (cons #{l\ 7059}# #{r\ 7041}#)
+ (if (eq? #{p\ 3784}# (quote each-any))
+ (let ((#{l\ 3804}#
+ (#{match-each-any\ 3757}#
+ #{e\ 3783}#
+ #{w\ 3785}#
+ #{mod\ 3787}#)))
+ (if #{l\ 3804}#
+ (cons #{l\ 3804}# #{r\ 3786}#)
#f))
- (let ((#{atom-key\ 7065}# (vector-ref #{p\ 7039}# 0)))
- (if (memv #{atom-key\ 7065}# (quote (each)))
- (if (null? #{e\ 7038}#)
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7039}# 1)
- #{r\ 7041}#)
- (let ((#{l\ 7068}#
- (#{match-each\ 7008}#
- #{e\ 7038}#
- (vector-ref #{p\ 7039}# 1)
- #{w\ 7040}#
- #{mod\ 7042}#)))
- (if #{l\ 7068}#
- (letrec ((#{collect\ 7073}#
- (lambda (#{l\ 7074}#)
- (if (null? (car #{l\ 7074}#))
- #{r\ 7041}#
- (cons (map car #{l\ 7074}#)
- (#{collect\ 7073}#
+ (let ((#{atom-key\ 3810}# (vector-ref #{p\ 3784}# 0)))
+ (if (memv #{atom-key\ 3810}# (quote (each)))
+ (if (null? #{e\ 3783}#)
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3784}# 1)
+ #{r\ 3786}#)
+ (let ((#{l\ 3813}#
+ (#{match-each\ 3753}#
+ #{e\ 3783}#
+ (vector-ref #{p\ 3784}# 1)
+ #{w\ 3785}#
+ #{mod\ 3787}#)))
+ (if #{l\ 3813}#
+ (letrec ((#{collect\ 3818}#
+ (lambda (#{l\ 3819}#)
+ (if (null? (car #{l\ 3819}#))
+ #{r\ 3786}#
+ (cons (map car #{l\ 3819}#)
+ (#{collect\ 3818}#
(map cdr
- #{l\ 7074}#)))))))
- (#{collect\ 7073}# #{l\ 7068}#))
+ #{l\ 3819}#)))))))
+ (#{collect\ 3818}# #{l\ 3813}#))
#f)))
- (if (memv #{atom-key\ 7065}# (quote (each+)))
+ (if (memv #{atom-key\ 3810}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 7010}#
- #{e\ 7038}#
- (vector-ref #{p\ 7039}# 1)
- (vector-ref #{p\ 7039}# 2)
- (vector-ref #{p\ 7039}# 3)
- #{w\ 7040}#
- #{r\ 7041}#
- #{mod\ 7042}#))
- (lambda (#{xr*\ 7076}#
- #{y-pat\ 7077}#
- #{r\ 7078}#)
- (if #{r\ 7078}#
- (if (null? #{y-pat\ 7077}#)
- (if (null? #{xr*\ 7076}#)
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7039}# 1)
- #{r\ 7078}#)
- (#{combine\ 7016}#
- #{xr*\ 7076}#
- #{r\ 7078}#))
+ (#{match-each+\ 3755}#
+ #{e\ 3783}#
+ (vector-ref #{p\ 3784}# 1)
+ (vector-ref #{p\ 3784}# 2)
+ (vector-ref #{p\ 3784}# 3)
+ #{w\ 3785}#
+ #{r\ 3786}#
+ #{mod\ 3787}#))
+ (lambda (#{xr*\ 3821}#
+ #{y-pat\ 3822}#
+ #{r\ 3823}#)
+ (if #{r\ 3823}#
+ (if (null? #{y-pat\ 3822}#)
+ (if (null? #{xr*\ 3821}#)
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3784}# 1)
+ #{r\ 3823}#)
+ (#{combine\ 3761}#
+ #{xr*\ 3821}#
+ #{r\ 3823}#))
#f)
#f)))
- (if (memv #{atom-key\ 7065}# (quote (free-id)))
- (if (#{id?\ 3501}# #{e\ 7038}#)
- (if (#{free-id=?\ 3560}#
- (#{wrap\ 3570}#
- #{e\ 7038}#
- #{w\ 7040}#
- #{mod\ 7042}#)
- (vector-ref #{p\ 7039}# 1))
- #{r\ 7041}#
+ (if (memv #{atom-key\ 3810}# (quote (free-id)))
+ (if (#{id?\ 246}# #{e\ 3783}#)
+ (if (#{free-id=?\ 305}#
+ (#{wrap\ 315}#
+ #{e\ 3783}#
+ #{w\ 3785}#
+ #{mod\ 3787}#)
+ (vector-ref #{p\ 3784}# 1))
+ #{r\ 3786}#
#f)
#f)
- (if (memv #{atom-key\ 7065}# (quote (atom)))
+ (if (memv #{atom-key\ 3810}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 7039}# 1)
- (#{strip\ 3612}#
- #{e\ 7038}#
- #{w\ 7040}#))
- #{r\ 7041}#
+ (vector-ref #{p\ 3784}# 1)
+ (#{strip\ 357}#
+ #{e\ 3783}#
+ #{w\ 3785}#))
+ #{r\ 3786}#
#f)
- (if (memv #{atom-key\ 7065}#
+ (if (memv #{atom-key\ 3810}#
'(vector))
- (if (vector? #{e\ 7038}#)
- (#{match\ 7020}#
- (vector->list #{e\ 7038}#)
- (vector-ref #{p\ 7039}# 1)
- #{w\ 7040}#
- #{r\ 7041}#
- #{mod\ 7042}#)
+ (if (vector? #{e\ 3783}#)
+ (#{match\ 3765}#
+ (vector->list #{e\ 3783}#)
+ (vector-ref #{p\ 3784}# 1)
+ #{w\ 3785}#
+ #{r\ 3786}#
+ #{mod\ 3787}#)
#f))))))))))))
- (#{combine\ 7016}#
- (lambda (#{r*\ 7095}# #{r\ 7096}#)
- (if (null? (car #{r*\ 7095}#))
- #{r\ 7096}#
- (cons (map car #{r*\ 7095}#)
- (#{combine\ 7016}#
- (map cdr #{r*\ 7095}#)
- #{r\ 7096}#)))))
- (#{match-empty\ 7014}#
- (lambda (#{p\ 7099}# #{r\ 7100}#)
- (if (null? #{p\ 7099}#)
- #{r\ 7100}#
- (if (eq? #{p\ 7099}# (quote any))
- (cons (quote ()) #{r\ 7100}#)
- (if (pair? #{p\ 7099}#)
- (#{match-empty\ 7014}#
- (car #{p\ 7099}#)
- (#{match-empty\ 7014}#
- (cdr #{p\ 7099}#)
- #{r\ 7100}#))
- (if (eq? #{p\ 7099}# (quote each-any))
- (cons (quote ()) #{r\ 7100}#)
- (let ((#{atom-key\ 7114}#
- (vector-ref #{p\ 7099}# 0)))
- (if (memv #{atom-key\ 7114}# (quote (each)))
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7099}# 1)
- #{r\ 7100}#)
- (if (memv #{atom-key\ 7114}# (quote (each+)))
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7099}# 1)
- (#{match-empty\ 7014}#
- (reverse (vector-ref #{p\ 7099}# 2))
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7099}# 3)
- #{r\ 7100}#)))
- (if (memv #{atom-key\ 7114}#
+ (#{combine\ 3761}#
+ (lambda (#{r*\ 3840}# #{r\ 3841}#)
+ (if (null? (car #{r*\ 3840}#))
+ #{r\ 3841}#
+ (cons (map car #{r*\ 3840}#)
+ (#{combine\ 3761}#
+ (map cdr #{r*\ 3840}#)
+ #{r\ 3841}#)))))
+ (#{match-empty\ 3759}#
+ (lambda (#{p\ 3844}# #{r\ 3845}#)
+ (if (null? #{p\ 3844}#)
+ #{r\ 3845}#
+ (if (eq? #{p\ 3844}# (quote any))
+ (cons (quote ()) #{r\ 3845}#)
+ (if (pair? #{p\ 3844}#)
+ (#{match-empty\ 3759}#
+ (car #{p\ 3844}#)
+ (#{match-empty\ 3759}#
+ (cdr #{p\ 3844}#)
+ #{r\ 3845}#))
+ (if (eq? #{p\ 3844}# (quote each-any))
+ (cons (quote ()) #{r\ 3845}#)
+ (let ((#{atom-key\ 3859}#
+ (vector-ref #{p\ 3844}# 0)))
+ (if (memv #{atom-key\ 3859}# (quote (each)))
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3844}# 1)
+ #{r\ 3845}#)
+ (if (memv #{atom-key\ 3859}# (quote (each+)))
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3844}# 1)
+ (#{match-empty\ 3759}#
+ (reverse (vector-ref #{p\ 3844}# 2))
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3844}# 3)
+ #{r\ 3845}#)))
+ (if (memv #{atom-key\ 3859}#
'(free-id atom))
- #{r\ 7100}#
- (if (memv #{atom-key\ 7114}#
+ #{r\ 3845}#
+ (if (memv #{atom-key\ 3859}#
'(vector))
- (#{match-empty\ 7014}#
- (vector-ref #{p\ 7099}# 1)
- #{r\ 7100}#))))))))))))
- (#{match-each-any\ 7012}#
- (lambda (#{e\ 7119}# #{w\ 7120}# #{mod\ 7121}#)
- (if (pair? #{e\ 7119}#)
- (let ((#{l\ 7128}#
- (#{match-each-any\ 7012}#
- (cdr #{e\ 7119}#)
- #{w\ 7120}#
- #{mod\ 7121}#)))
- (if #{l\ 7128}#
- (cons (#{wrap\ 3570}#
- (car #{e\ 7119}#)
- #{w\ 7120}#
- #{mod\ 7121}#)
- #{l\ 7128}#)
+ (#{match-empty\ 3759}#
+ (vector-ref #{p\ 3844}# 1)
+ #{r\ 3845}#))))))))))))
+ (#{match-each-any\ 3757}#
+ (lambda (#{e\ 3864}# #{w\ 3865}# #{mod\ 3866}#)
+ (if (pair? #{e\ 3864}#)
+ (let ((#{l\ 3873}#
+ (#{match-each-any\ 3757}#
+ (cdr #{e\ 3864}#)
+ #{w\ 3865}#
+ #{mod\ 3866}#)))
+ (if #{l\ 3873}#
+ (cons (#{wrap\ 315}#
+ (car #{e\ 3864}#)
+ #{w\ 3865}#
+ #{mod\ 3866}#)
+ #{l\ 3873}#)
#f))
- (if (null? #{e\ 7119}#)
+ (if (null? #{e\ 3864}#)
'()
- (if (#{syntax-object?\ 3465}# #{e\ 7119}#)
- (#{match-each-any\ 7012}#
- (#{syntax-object-expression\ 3467}# #{e\ 7119}#)
- (#{join-wraps\ 3552}#
- #{w\ 7120}#
- (#{syntax-object-wrap\ 3469}# #{e\ 7119}#))
- #{mod\ 7121}#)
+ (if (#{syntax-object?\ 210}# #{e\ 3864}#)
+ (#{match-each-any\ 3757}#
+ (#{syntax-object-expression\ 212}# #{e\ 3864}#)
+ (#{join-wraps\ 297}#
+ #{w\ 3865}#
+ (#{syntax-object-wrap\ 214}# #{e\ 3864}#))
+ #{mod\ 3866}#)
#f)))))
- (#{match-each+\ 7010}#
- (lambda (#{e\ 7136}#
- #{x-pat\ 7137}#
- #{y-pat\ 7138}#
- #{z-pat\ 7139}#
- #{w\ 7140}#
- #{r\ 7141}#
- #{mod\ 7142}#)
- (letrec ((#{f\ 7153}#
- (lambda (#{e\ 7154}# #{w\ 7155}#)
- (if (pair? #{e\ 7154}#)
+ (#{match-each+\ 3755}#
+ (lambda (#{e\ 3881}#
+ #{x-pat\ 3882}#
+ #{y-pat\ 3883}#
+ #{z-pat\ 3884}#
+ #{w\ 3885}#
+ #{r\ 3886}#
+ #{mod\ 3887}#)
+ (letrec ((#{f\ 3898}#
+ (lambda (#{e\ 3899}# #{w\ 3900}#)
+ (if (pair? #{e\ 3899}#)
(call-with-values
(lambda ()
- (#{f\ 7153}#
- (cdr #{e\ 7154}#)
- #{w\ 7155}#))
- (lambda (#{xr*\ 7158}#
- #{y-pat\ 7159}#
- #{r\ 7160}#)
- (if #{r\ 7160}#
- (if (null? #{y-pat\ 7159}#)
- (let ((#{xr\ 7165}#
- (#{match\ 7020}#
- (car #{e\ 7154}#)
- #{x-pat\ 7137}#
- #{w\ 7155}#
+ (#{f\ 3898}#
+ (cdr #{e\ 3899}#)
+ #{w\ 3900}#))
+ (lambda (#{xr*\ 3903}#
+ #{y-pat\ 3904}#
+ #{r\ 3905}#)
+ (if #{r\ 3905}#
+ (if (null? #{y-pat\ 3904}#)
+ (let ((#{xr\ 3910}#
+ (#{match\ 3765}#
+ (car #{e\ 3899}#)
+ #{x-pat\ 3882}#
+ #{w\ 3900}#
'()
- #{mod\ 7142}#)))
- (if #{xr\ 7165}#
+ #{mod\ 3887}#)))
+ (if #{xr\ 3910}#
(values
- (cons #{xr\ 7165}#
- #{xr*\ 7158}#)
- #{y-pat\ 7159}#
- #{r\ 7160}#)
+ (cons #{xr\ 3910}#
+ #{xr*\ 3903}#)
+ #{y-pat\ 3904}#
+ #{r\ 3905}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 7159}#)
- (#{match\ 7020}#
- (car #{e\ 7154}#)
- (car #{y-pat\ 7159}#)
- #{w\ 7155}#
- #{r\ 7160}#
- #{mod\ 7142}#)))
+ (cdr #{y-pat\ 3904}#)
+ (#{match\ 3765}#
+ (car #{e\ 3899}#)
+ (car #{y-pat\ 3904}#)
+ #{w\ 3900}#
+ #{r\ 3905}#
+ #{mod\ 3887}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 3465}# #{e\ 7154}#)
- (#{f\ 7153}#
- (#{syntax-object-expression\ 3467}#
- #{e\ 7154}#)
- (#{join-wraps\ 3552}#
- #{w\ 7155}#
- #{e\ 7154}#))
+ (if (#{syntax-object?\ 210}# #{e\ 3899}#)
+ (#{f\ 3898}#
+ (#{syntax-object-expression\ 212}#
+ #{e\ 3899}#)
+ (#{join-wraps\ 297}#
+ #{w\ 3900}#
+ #{e\ 3899}#))
(values
'()
- #{y-pat\ 7138}#
- (#{match\ 7020}#
- #{e\ 7154}#
- #{z-pat\ 7139}#
- #{w\ 7155}#
- #{r\ 7141}#
- #{mod\ 7142}#)))))))
- (#{f\ 7153}# #{e\ 7136}# #{w\ 7140}#))))
- (#{match-each\ 7008}#
- (lambda (#{e\ 7169}#
- #{p\ 7170}#
- #{w\ 7171}#
- #{mod\ 7172}#)
- (if (pair? #{e\ 7169}#)
- (let ((#{first\ 7180}#
- (#{match\ 7020}#
- (car #{e\ 7169}#)
- #{p\ 7170}#
- #{w\ 7171}#
+ #{y-pat\ 3883}#
+ (#{match\ 3765}#
+ #{e\ 3899}#
+ #{z-pat\ 3884}#
+ #{w\ 3900}#
+ #{r\ 3886}#
+ #{mod\ 3887}#)))))))
+ (#{f\ 3898}# #{e\ 3881}# #{w\ 3885}#))))
+ (#{match-each\ 3753}#
+ (lambda (#{e\ 3914}#
+ #{p\ 3915}#
+ #{w\ 3916}#
+ #{mod\ 3917}#)
+ (if (pair? #{e\ 3914}#)
+ (let ((#{first\ 3925}#
+ (#{match\ 3765}#
+ (car #{e\ 3914}#)
+ #{p\ 3915}#
+ #{w\ 3916}#
'()
- #{mod\ 7172}#)))
- (if #{first\ 7180}#
- (let ((#{rest\ 7184}#
- (#{match-each\ 7008}#
- (cdr #{e\ 7169}#)
- #{p\ 7170}#
- #{w\ 7171}#
- #{mod\ 7172}#)))
- (if #{rest\ 7184}#
- (cons #{first\ 7180}# #{rest\ 7184}#)
+ #{mod\ 3917}#)))
+ (if #{first\ 3925}#
+ (let ((#{rest\ 3929}#
+ (#{match-each\ 3753}#
+ (cdr #{e\ 3914}#)
+ #{p\ 3915}#
+ #{w\ 3916}#
+ #{mod\ 3917}#)))
+ (if #{rest\ 3929}#
+ (cons #{first\ 3925}# #{rest\ 3929}#)
#f))
#f))
- (if (null? #{e\ 7169}#)
+ (if (null? #{e\ 3914}#)
'()
- (if (#{syntax-object?\ 3465}# #{e\ 7169}#)
- (#{match-each\ 7008}#
- (#{syntax-object-expression\ 3467}# #{e\ 7169}#)
- #{p\ 7170}#
- (#{join-wraps\ 3552}#
- #{w\ 7171}#
- (#{syntax-object-wrap\ 3469}# #{e\ 7169}#))
- (#{syntax-object-module\ 3471}# #{e\ 7169}#))
+ (if (#{syntax-object?\ 210}# #{e\ 3914}#)
+ (#{match-each\ 3753}#
+ (#{syntax-object-expression\ 212}# #{e\ 3914}#)
+ #{p\ 3915}#
+ (#{join-wraps\ 297}#
+ #{w\ 3916}#
+ (#{syntax-object-wrap\ 214}# #{e\ 3914}#))
+ (#{syntax-object-module\ 216}# #{e\ 3914}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 7192}# #{p\ 7193}#)
- (if (eq? #{p\ 7193}# (quote any))
- (list #{e\ 7192}#)
- (if (#{syntax-object?\ 3465}# #{e\ 7192}#)
- (#{match*\ 7018}#
- (#{syntax-object-expression\ 3467}# #{e\ 7192}#)
- #{p\ 7193}#
- (#{syntax-object-wrap\ 3469}# #{e\ 7192}#)
+ (lambda (#{e\ 3937}# #{p\ 3938}#)
+ (if (eq? #{p\ 3938}# (quote any))
+ (list #{e\ 3937}#)
+ (if (#{syntax-object?\ 210}# #{e\ 3937}#)
+ (#{match*\ 3763}#
+ (#{syntax-object-expression\ 212}# #{e\ 3937}#)
+ #{p\ 3938}#
+ (#{syntax-object-wrap\ 214}# #{e\ 3937}#)
'()
- (#{syntax-object-module\ 3471}# #{e\ 7192}#))
- (#{match*\ 7018}#
- #{e\ 7192}#
- #{p\ 7193}#
+ (#{syntax-object-module\ 216}# #{e\ 3937}#))
+ (#{match*\ 3763}#
+ #{e\ 3937}#
+ #{p\ 3938}#
'(())
'()
#f)))))))))
@@ -11635,50 +11621,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 7202}#)
- ((lambda (#{tmp\ 7204}#)
- ((lambda (#{tmp\ 7205}#)
- (if #{tmp\ 7205}#
- (apply (lambda (#{_\ 7209}# #{e1\ 7210}# #{e2\ 7211}#)
+ (cons (lambda (#{x\ 3947}#)
+ ((lambda (#{tmp\ 3949}#)
+ ((lambda (#{tmp\ 3950}#)
+ (if #{tmp\ 3950}#
+ (apply (lambda (#{_\ 3954}# #{e1\ 3955}# #{e2\ 3956}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i7206" "i7207" "i7208"))
+ #("i3951" "i3952" "i3953"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7203")))
+ #(ribcage #(x) #((top)) #("i3948")))
(hygiene guile))
- (cons #{e1\ 7210}# #{e2\ 7211}#)))
- #{tmp\ 7205}#)
- ((lambda (#{tmp\ 7213}#)
- (if #{tmp\ 7213}#
- (apply (lambda (#{_\ 7219}#
- #{out\ 7220}#
- #{in\ 7221}#
- #{e1\ 7222}#
- #{e2\ 7223}#)
+ (cons #{e1\ 3955}# #{e2\ 3956}#)))
+ #{tmp\ 3950}#)
+ ((lambda (#{tmp\ 3958}#)
+ (if #{tmp\ 3958}#
+ (apply (lambda (#{_\ 3964}#
+ #{out\ 3965}#
+ #{in\ 3966}#
+ #{e1\ 3967}#
+ #{e2\ 3968}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i7214"
- "i7215"
- "i7216"
- "i7217"
- "i7218"))
+ #("i3959"
+ "i3960"
+ "i3961"
+ "i3962"
+ "i3963"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7203")))
+ #("i3948")))
(hygiene guile))
- #{in\ 7221}#
+ #{in\ 3966}#
'()
- (list #{out\ 7220}#
+ (list #{out\ 3965}#
(cons '#(syntax-object
begin
((top)
@@ -11689,27 +11675,27 @@
(top)
(top)
(top))
- #("i7214"
- "i7215"
- "i7216"
- "i7217"
- "i7218"))
+ #("i3959"
+ "i3960"
+ "i3961"
+ "i3962"
+ "i3963"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7203")))
+ #("i3948")))
(hygiene guile))
- (cons #{e1\ 7222}#
- #{e2\ 7223}#)))))
- #{tmp\ 7213}#)
- ((lambda (#{tmp\ 7225}#)
- (if #{tmp\ 7225}#
- (apply (lambda (#{_\ 7231}#
- #{out\ 7232}#
- #{in\ 7233}#
- #{e1\ 7234}#
- #{e2\ 7235}#)
+ (cons #{e1\ 3967}#
+ #{e2\ 3968}#)))))
+ #{tmp\ 3958}#)
+ ((lambda (#{tmp\ 3970}#)
+ (if #{tmp\ 3970}#
+ (apply (lambda (#{_\ 3976}#
+ #{out\ 3977}#
+ #{in\ 3978}#
+ #{e1\ 3979}#
+ #{e2\ 3980}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11720,16 +11706,16 @@
(top)
(top)
(top))
- #("i7226"
- "i7227"
- "i7228"
- "i7229"
- "i7230"))
+ #("i3971"
+ "i3972"
+ "i3973"
+ "i3974"
+ "i3975"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7203")))
+ #("i3948")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -11741,20 +11727,20 @@
(top)
(top)
(top))
- #("i7226"
- "i7227"
- "i7228"
- "i7229"
- "i7230"))
+ #("i3971"
+ "i3972"
+ "i3973"
+ "i3974"
+ "i3975"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7203")))
+ #("i3948")))
(hygiene guile))
- #{in\ 7233}#)
+ #{in\ 3978}#)
'()
- (list #{out\ 7232}#
+ (list #{out\ 3977}#
(cons '#(syntax-object
begin
((top)
@@ -11769,11 +11755,11 @@
(top)
(top)
(top))
- #("i7226"
- "i7227"
- "i7228"
- "i7229"
- "i7230"))
+ #("i3971"
+ "i3972"
+ "i3973"
+ "i3974"
+ "i3975"))
#(ribcage
()
()
@@ -11781,53 +11767,53 @@
#(ribcage
#(x)
#((top))
- #("i7203")))
+ #("i3948")))
(hygiene guile))
- (cons #{e1\ 7234}#
- #{e2\ 7235}#)))))
- #{tmp\ 7225}#)
+ (cons #{e1\ 3979}#
+ #{e2\ 3980}#)))))
+ #{tmp\ 3970}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7204}#)))
+ #{tmp\ 3949}#)))
($sc-dispatch
- #{tmp\ 7204}#
+ #{tmp\ 3949}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 7204}#
+ #{tmp\ 3949}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 7204}#
+ #{tmp\ 3949}#
'(any () any . each-any))))
- #{x\ 7202}#))
+ #{x\ 3947}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 7239}#)
- ((lambda (#{tmp\ 7241}#)
- ((lambda (#{tmp\ 7242}#)
- (if #{tmp\ 7242}#
- (apply (lambda (#{_\ 7248}#
- #{k\ 7249}#
- #{keyword\ 7250}#
- #{pattern\ 7251}#
- #{template\ 7252}#)
+ (cons (lambda (#{x\ 3984}#)
+ ((lambda (#{tmp\ 3986}#)
+ ((lambda (#{tmp\ 3987}#)
+ (if #{tmp\ 3987}#
+ (apply (lambda (#{_\ 3993}#
+ #{k\ 3994}#
+ #{keyword\ 3995}#
+ #{pattern\ 3996}#
+ #{template\ 3997}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7240")))
+ #(ribcage #(x) #((top)) #("i3985")))
(hygiene guile))
'(#(syntax-object
x
@@ -11835,13 +11821,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7240")))
+ #(ribcage #(x) #((top)) #("i3985")))
(hygiene guile)))
(cons '#(syntax-object
syntax-case
@@ -11849,16 +11835,16 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7240")))
+ #("i3985")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -11874,20 +11860,20 @@
(top)
(top)
(top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7240")))
+ #("i3985")))
(hygiene guile))
- (cons #{k\ 7249}#
- (map (lambda (#{tmp\ 7255}#
- #{tmp\ 7254}#)
+ (cons #{k\ 3994}#
+ (map (lambda (#{tmp\ 4000}#
+ #{tmp\ 3999}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -11902,11 +11888,11 @@
(top)
(top)
(top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage
()
()
@@ -11914,10 +11900,10 @@
#(ribcage
#(x)
#((top))
- #("i7240")))
+ #("i3985")))
(hygiene
guile))
- #{tmp\ 7254}#)
+ #{tmp\ 3999}#)
(list '#(syntax-object
syntax
((top)
@@ -11932,11 +11918,11 @@
(top)
(top)
(top))
- #("i7243"
- "i7244"
- "i7245"
- "i7246"
- "i7247"))
+ #("i3988"
+ "i3989"
+ "i3990"
+ "i3991"
+ "i3992"))
#(ribcage
()
()
@@ -11944,47 +11930,47 @@
#(ribcage
#(x)
#((top))
- #("i7240")))
+ #("i3985")))
(hygiene
guile))
- #{tmp\ 7255}#)))
- #{template\ 7252}#
- #{pattern\ 7251}#))))))
- #{tmp\ 7242}#)
+ #{tmp\ 4000}#)))
+ #{template\ 3997}#
+ #{pattern\ 3996}#))))))
+ #{tmp\ 3987}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7241}#)))
+ #{tmp\ 3986}#)))
($sc-dispatch
- #{tmp\ 7241}#
+ #{tmp\ 3986}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 7239}#))
+ #{x\ 3984}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 7256}#)
- ((lambda (#{tmp\ 7258}#)
- ((lambda (#{tmp\ 7259}#)
- (if (if #{tmp\ 7259}#
- (apply (lambda (#{let*\ 7265}#
- #{x\ 7266}#
- #{v\ 7267}#
- #{e1\ 7268}#
- #{e2\ 7269}#)
- (and-map identifier? #{x\ 7266}#))
- #{tmp\ 7259}#)
+ (cons (lambda (#{x\ 4001}#)
+ ((lambda (#{tmp\ 4003}#)
+ ((lambda (#{tmp\ 4004}#)
+ (if (if #{tmp\ 4004}#
+ (apply (lambda (#{let*\ 4010}#
+ #{x\ 4011}#
+ #{v\ 4012}#
+ #{e1\ 4013}#
+ #{e2\ 4014}#)
+ (and-map identifier? #{x\ 4011}#))
+ #{tmp\ 4004}#)
#f)
- (apply (lambda (#{let*\ 7276}#
- #{x\ 7277}#
- #{v\ 7278}#
- #{e1\ 7279}#
- #{e2\ 7280}#)
- (letrec ((#{f\ 7283}#
- (lambda (#{bindings\ 7284}#)
- (if (null? #{bindings\ 7284}#)
+ (apply (lambda (#{let*\ 4021}#
+ #{x\ 4022}#
+ #{v\ 4023}#
+ #{e1\ 4024}#
+ #{e2\ 4025}#)
+ (letrec ((#{f\ 4028}#
+ (lambda (#{bindings\ 4029}#)
+ (if (null? #{bindings\ 4029}#)
(cons '#(syntax-object
let
((top)
@@ -11992,7 +11978,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i7281" "i7282"))
+ #("i4026" "i4027"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -12000,25 +11986,25 @@
(top)
(top)
(top))
- #("i7271"
- "i7272"
- "i7273"
- "i7274"
- "i7275"))
+ #("i4016"
+ "i4017"
+ "i4018"
+ "i4019"
+ "i4020"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7257")))
+ #("i4002")))
(hygiene guile))
(cons '()
- (cons #{e1\ 7279}#
- #{e2\ 7280}#)))
- ((lambda (#{tmp\ 7289}#)
- ((lambda (#{tmp\ 7290}#)
- (if #{tmp\ 7290}#
- (apply (lambda (#{body\ 7293}#
- #{binding\ 7294}#)
+ (cons #{e1\ 4024}#
+ #{e2\ 4025}#)))
+ ((lambda (#{tmp\ 4034}#)
+ ((lambda (#{tmp\ 4035}#)
+ (if #{tmp\ 4035}#
+ (apply (lambda (#{body\ 4038}#
+ #{binding\ 4039}#)
(list '#(syntax-object
let
((top)
@@ -12027,8 +12013,8 @@
binding)
#((top)
(top))
- #("i7291"
- "i7292"))
+ #("i4036"
+ "i4037"))
#(ribcage
()
()
@@ -12038,8 +12024,8 @@
bindings)
#((top)
(top))
- #("i7281"
- "i7282"))
+ #("i4026"
+ "i4027"))
#(ribcage
#(let*
x
@@ -12051,11 +12037,11 @@
(top)
(top)
(top))
- #("i7271"
- "i7272"
- "i7273"
- "i7274"
- "i7275"))
+ #("i4016"
+ "i4017"
+ "i4018"
+ "i4019"
+ "i4020"))
#(ribcage
()
()
@@ -12063,57 +12049,57 @@
#(ribcage
#(x)
#((top))
- #("i7257")))
+ #("i4002")))
(hygiene
guile))
- (list #{binding\ 7294}#)
- #{body\ 7293}#))
- #{tmp\ 7290}#)
+ (list #{binding\ 4039}#)
+ #{body\ 4038}#))
+ #{tmp\ 4035}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7289}#)))
+ #{tmp\ 4034}#)))
($sc-dispatch
- #{tmp\ 7289}#
+ #{tmp\ 4034}#
'(any any))))
- (list (#{f\ 7283}#
- (cdr #{bindings\ 7284}#))
- (car #{bindings\ 7284}#)))))))
- (#{f\ 7283}#
- (map list #{x\ 7277}# #{v\ 7278}#))))
- #{tmp\ 7259}#)
+ (list (#{f\ 4028}#
+ (cdr #{bindings\ 4029}#))
+ (car #{bindings\ 4029}#)))))))
+ (#{f\ 4028}#
+ (map list #{x\ 4022}# #{v\ 4023}#))))
+ #{tmp\ 4004}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7258}#)))
+ #{tmp\ 4003}#)))
($sc-dispatch
- #{tmp\ 7258}#
+ #{tmp\ 4003}#
'(any #(each (any any)) any . each-any))))
- #{x\ 7256}#))
+ #{x\ 4001}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 7295}#)
- ((lambda (#{tmp\ 7297}#)
- ((lambda (#{tmp\ 7298}#)
- (if #{tmp\ 7298}#
- (apply (lambda (#{_\ 7306}#
- #{var\ 7307}#
- #{init\ 7308}#
- #{step\ 7309}#
- #{e0\ 7310}#
- #{e1\ 7311}#
- #{c\ 7312}#)
- ((lambda (#{tmp\ 7314}#)
- ((lambda (#{tmp\ 7315}#)
- (if #{tmp\ 7315}#
- (apply (lambda (#{step\ 7317}#)
- ((lambda (#{tmp\ 7318}#)
- ((lambda (#{tmp\ 7319}#)
- (if #{tmp\ 7319}#
+ (cons (lambda (#{orig-x\ 4040}#)
+ ((lambda (#{tmp\ 4042}#)
+ ((lambda (#{tmp\ 4043}#)
+ (if #{tmp\ 4043}#
+ (apply (lambda (#{_\ 4051}#
+ #{var\ 4052}#
+ #{init\ 4053}#
+ #{step\ 4054}#
+ #{e0\ 4055}#
+ #{e1\ 4056}#
+ #{c\ 4057}#)
+ ((lambda (#{tmp\ 4059}#)
+ ((lambda (#{tmp\ 4060}#)
+ (if #{tmp\ 4060}#
+ (apply (lambda (#{step\ 4062}#)
+ ((lambda (#{tmp\ 4063}#)
+ ((lambda (#{tmp\ 4064}#)
+ (if #{tmp\ 4064}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -12121,7 +12107,7 @@
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12137,13 +12123,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12151,7 +12137,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
'#(syntax-object
@@ -12160,7 +12146,7 @@
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12176,13 +12162,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12190,19 +12176,19 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
(map list
- #{var\ 7307}#
- #{init\ 7308}#)
+ #{var\ 4052}#
+ #{init\ 4053}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12218,13 +12204,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12232,7 +12218,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
(list '#(syntax-object
@@ -12241,7 +12227,7 @@
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12257,13 +12243,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12271,17 +12257,17 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
- #{e0\ 7310}#)
+ #{e0\ 4055}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12297,13 +12283,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12311,18 +12297,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
(append
- #{c\ 7312}#
+ #{c\ 4057}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12338,13 +12324,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12352,15 +12338,15 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
- #{step\ 7317}#)))))))
- #{tmp\ 7319}#)
- ((lambda (#{tmp\ 7324}#)
- (if #{tmp\ 7324}#
- (apply (lambda (#{e1\ 7327}#
- #{e2\ 7328}#)
+ #{step\ 4062}#)))))))
+ #{tmp\ 4064}#)
+ ((lambda (#{tmp\ 4069}#)
+ (if #{tmp\ 4069}#
+ (apply (lambda (#{e1\ 4072}#
+ #{e2\ 4073}#)
(list '#(syntax-object
let
((top)
@@ -12369,12 +12355,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12390,13 +12376,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12404,7 +12390,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
'#(syntax-object
@@ -12415,12 +12401,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12436,13 +12422,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12450,12 +12436,12 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
(map list
- #{var\ 7307}#
- #{init\ 7308}#)
+ #{var\ 4052}#
+ #{init\ 4053}#)
(list '#(syntax-object
if
((top)
@@ -12464,12 +12450,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12485,13 +12471,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12499,10 +12485,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
- #{e0\ 7310}#
+ #{e0\ 4055}#
(cons '#(syntax-object
begin
((top)
@@ -12511,12 +12497,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12532,13 +12518,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12546,11 +12532,11 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
- (cons #{e1\ 7327}#
- #{e2\ 7328}#))
+ (cons #{e1\ 4072}#
+ #{e2\ 4073}#))
(cons '#(syntax-object
begin
((top)
@@ -12559,12 +12545,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12580,13 +12566,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12594,11 +12580,11 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
(append
- #{c\ 7312}#
+ #{c\ 4057}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12607,12 +12593,12 @@
e2)
#((top)
(top))
- #("i7325"
- "i7326"))
+ #("i4070"
+ "i4071"))
#(ribcage
#(step)
#((top))
- #("i7316"))
+ #("i4061"))
#(ribcage
#(_
var
@@ -12628,13 +12614,13 @@
(top)
(top)
(top))
- #("i7299"
- "i7300"
- "i7301"
- "i7302"
- "i7303"
- "i7304"
- "i7305"))
+ #("i4044"
+ "i4045"
+ "i4046"
+ "i4047"
+ "i4048"
+ "i4049"
+ "i4050"))
#(ribcage
()
()
@@ -12642,107 +12628,107 @@
#(ribcage
#(orig-x)
#((top))
- #("i7296")))
+ #("i4041")))
(hygiene
guile))
- #{step\ 7317}#)))))))
- #{tmp\ 7324}#)
+ #{step\ 4062}#)))))))
+ #{tmp\ 4069}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7318}#)))
+ #{tmp\ 4063}#)))
($sc-dispatch
- #{tmp\ 7318}#
+ #{tmp\ 4063}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 7318}#
+ #{tmp\ 4063}#
'())))
- #{e1\ 7311}#))
- #{tmp\ 7315}#)
+ #{e1\ 4056}#))
+ #{tmp\ 4060}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7314}#)))
+ #{tmp\ 4059}#)))
($sc-dispatch
- #{tmp\ 7314}#
+ #{tmp\ 4059}#
'each-any)))
- (map (lambda (#{v\ 7335}# #{s\ 7336}#)
- ((lambda (#{tmp\ 7339}#)
- ((lambda (#{tmp\ 7340}#)
- (if #{tmp\ 7340}#
- (apply (lambda () #{v\ 7335}#)
- #{tmp\ 7340}#)
- ((lambda (#{tmp\ 7341}#)
- (if #{tmp\ 7341}#
- (apply (lambda (#{e\ 7343}#)
- #{e\ 7343}#)
- #{tmp\ 7341}#)
- ((lambda (#{_\ 7345}#)
+ (map (lambda (#{v\ 4080}# #{s\ 4081}#)
+ ((lambda (#{tmp\ 4084}#)
+ ((lambda (#{tmp\ 4085}#)
+ (if #{tmp\ 4085}#
+ (apply (lambda () #{v\ 4080}#)
+ #{tmp\ 4085}#)
+ ((lambda (#{tmp\ 4086}#)
+ (if #{tmp\ 4086}#
+ (apply (lambda (#{e\ 4088}#)
+ #{e\ 4088}#)
+ #{tmp\ 4086}#)
+ ((lambda (#{_\ 4090}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 7295}#
- #{s\ 7336}#))
- #{tmp\ 7339}#)))
+ #{orig-x\ 4040}#
+ #{s\ 4081}#))
+ #{tmp\ 4084}#)))
($sc-dispatch
- #{tmp\ 7339}#
+ #{tmp\ 4084}#
'(any)))))
($sc-dispatch
- #{tmp\ 7339}#
+ #{tmp\ 4084}#
'())))
- #{s\ 7336}#))
- #{var\ 7307}#
- #{step\ 7309}#)))
- #{tmp\ 7298}#)
+ #{s\ 4081}#))
+ #{var\ 4052}#
+ #{step\ 4054}#)))
+ #{tmp\ 4043}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7297}#)))
+ #{tmp\ 4042}#)))
($sc-dispatch
- #{tmp\ 7297}#
+ #{tmp\ 4042}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 7295}#))
+ #{orig-x\ 4040}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 7352}#
- (lambda (#{x\ 7356}# #{y\ 7357}#)
- ((lambda (#{tmp\ 7361}#)
- ((lambda (#{tmp\ 7362}#)
- (if #{tmp\ 7362}#
- (apply (lambda (#{x\ 7365}# #{y\ 7366}#)
- ((lambda (#{tmp\ 7367}#)
- ((lambda (#{tmp\ 7368}#)
- (if #{tmp\ 7368}#
- (apply (lambda (#{dy\ 7370}#)
- ((lambda (#{tmp\ 7371}#)
- ((lambda (#{tmp\ 7372}#)
- (if #{tmp\ 7372}#
- (apply (lambda (#{dx\ 7374}#)
+ (cons (letrec ((#{quasicons\ 4097}#
+ (lambda (#{x\ 4101}# #{y\ 4102}#)
+ ((lambda (#{tmp\ 4106}#)
+ ((lambda (#{tmp\ 4107}#)
+ (if #{tmp\ 4107}#
+ (apply (lambda (#{x\ 4110}# #{y\ 4111}#)
+ ((lambda (#{tmp\ 4112}#)
+ ((lambda (#{tmp\ 4113}#)
+ (if #{tmp\ 4113}#
+ (apply (lambda (#{dy\ 4115}#)
+ ((lambda (#{tmp\ 4116}#)
+ ((lambda (#{tmp\ 4117}#)
+ (if #{tmp\ 4117}#
+ (apply (lambda (#{dx\ 4119}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i7373"))
+ #("i4118"))
#(ribcage
#(dy)
#((top))
- #("i7369"))
+ #("i4114"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -12756,8 +12742,8 @@
y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -12767,35 +12753,35 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- (cons #{dx\ 7374}#
- #{dy\ 7370}#)))
- #{tmp\ 7372}#)
- ((lambda (#{_\ 7376}#)
- (if (null? #{dy\ 7370}#)
+ (cons #{dx\ 4119}#
+ #{dy\ 4115}#)))
+ #{tmp\ 4117}#)
+ ((lambda (#{_\ 4121}#)
+ (if (null? #{dy\ 4115}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i7375"))
+ #("i4120"))
#(ribcage
#(dy)
#((top))
- #("i7369"))
+ #("i4114"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -12809,8 +12795,8 @@
y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -12820,31 +12806,31 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- #{x\ 7365}#)
+ #{x\ 4110}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i7375"))
+ #("i4120"))
#(ribcage
#(dy)
#((top))
- #("i7369"))
+ #("i4114"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -12858,8 +12844,8 @@
y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -12869,17 +12855,17 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- #{x\ 7365}#
- #{y\ 7366}#)))
- #{tmp\ 7371}#)))
+ #{x\ 4110}#
+ #{y\ 4111}#)))
+ #{tmp\ 4116}#)))
($sc-dispatch
- #{tmp\ 7371}#
+ #{tmp\ 4116}#
'(#(free-id
#(syntax-object
quote
@@ -12887,13 +12873,13 @@
#(ribcage
#(dy)
#((top))
- #("i7369"))
+ #("i4114"))
#(ribcage
#(x y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -12906,8 +12892,8 @@
#(x y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -12917,32 +12903,32 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile)))
any))))
- #{x\ 7365}#))
- #{tmp\ 7368}#)
- ((lambda (#{tmp\ 7377}#)
- (if #{tmp\ 7377}#
- (apply (lambda (#{stuff\ 7379}#)
+ #{x\ 4110}#))
+ #{tmp\ 4113}#)
+ ((lambda (#{tmp\ 4122}#)
+ (if #{tmp\ 4122}#
+ (apply (lambda (#{stuff\ 4124}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i7378"))
+ #("i4123"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -12956,8 +12942,8 @@
y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -12967,29 +12953,29 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- (cons #{x\ 7365}#
- #{stuff\ 7379}#)))
- #{tmp\ 7377}#)
- ((lambda (#{else\ 7381}#)
+ (cons #{x\ 4110}#
+ #{stuff\ 4124}#)))
+ #{tmp\ 4122}#)
+ ((lambda (#{else\ 4126}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i7380"))
+ #("i4125"))
#(ribcage
#(x y)
#((top)
(top))
- #("i7363"
- "i7364"))
+ #("i4108"
+ "i4109"))
#(ribcage
()
()
@@ -13002,8 +12988,8 @@
#(x y)
#((top)
(top))
- #("i7358"
- "i7359"))
+ #("i4103"
+ "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -13013,17 +12999,17 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- #{x\ 7365}#
- #{y\ 7366}#))
- #{tmp\ 7367}#)))
+ #{x\ 4110}#
+ #{y\ 4111}#))
+ #{tmp\ 4112}#)))
($sc-dispatch
- #{tmp\ 7367}#
+ #{tmp\ 4112}#
'(#(free-id
#(syntax-object
list
@@ -13031,13 +13017,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i7363" "i7364"))
+ #("i4108" "i4109"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i7358" "i7359"))
+ #("i4103" "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -13047,15 +13033,15 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 7367}#
+ #{tmp\ 4112}#
'(#(free-id
#(syntax-object
quote
@@ -13063,13 +13049,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i7363" "i7364"))
+ #("i4108" "i4109"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i7358" "i7359"))
+ #("i4103" "i4104"))
#(ribcage
#(quasicons
quasiappend
@@ -13079,44 +13065,44 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
any))))
- #{y\ 7366}#))
- #{tmp\ 7362}#)
+ #{y\ 4111}#))
+ #{tmp\ 4107}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7361}#)))
- ($sc-dispatch #{tmp\ 7361}# (quote (any any)))))
- (list #{x\ 7356}# #{y\ 7357}#))))
- (#{quasiappend\ 7353}#
- (lambda (#{x\ 7382}# #{y\ 7383}#)
- ((lambda (#{tmp\ 7387}#)
- ((lambda (#{tmp\ 7388}#)
- (if #{tmp\ 7388}#
- (apply (lambda (#{x\ 7391}# #{y\ 7392}#)
- ((lambda (#{tmp\ 7393}#)
- ((lambda (#{tmp\ 7394}#)
- (if #{tmp\ 7394}#
- (apply (lambda () #{x\ 7391}#)
- #{tmp\ 7394}#)
- ((lambda (#{_\ 7396}#)
+ #{tmp\ 4106}#)))
+ ($sc-dispatch #{tmp\ 4106}# (quote (any any)))))
+ (list #{x\ 4101}# #{y\ 4102}#))))
+ (#{quasiappend\ 4098}#
+ (lambda (#{x\ 4127}# #{y\ 4128}#)
+ ((lambda (#{tmp\ 4132}#)
+ ((lambda (#{tmp\ 4133}#)
+ (if #{tmp\ 4133}#
+ (apply (lambda (#{x\ 4136}# #{y\ 4137}#)
+ ((lambda (#{tmp\ 4138}#)
+ ((lambda (#{tmp\ 4139}#)
+ (if #{tmp\ 4139}#
+ (apply (lambda () #{x\ 4136}#)
+ #{tmp\ 4139}#)
+ ((lambda (#{_\ 4141}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i7395"))
+ #("i4140"))
#(ribcage
#(x y)
#((top) (top))
- #("i7389"
- "i7390"))
+ #("i4134"
+ "i4135"))
#(ribcage
()
()
@@ -13128,8 +13114,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i7384"
- "i7385"))
+ #("i4129"
+ "i4130"))
#(ribcage
#(quasicons
quasiappend
@@ -13139,16 +13125,16 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
- #{x\ 7391}#
- #{y\ 7392}#))
- #{tmp\ 7393}#)))
+ #{x\ 4136}#
+ #{y\ 4137}#))
+ #{tmp\ 4138}#)))
($sc-dispatch
- #{tmp\ 7393}#
+ #{tmp\ 4138}#
'(#(free-id
#(syntax-object
quote
@@ -13156,13 +13142,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i7389" "i7390"))
+ #("i4134" "i4135"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i7384" "i7385"))
+ #("i4129" "i4130"))
#(ribcage
#(quasicons
quasiappend
@@ -13172,45 +13158,45 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
()))))
- #{y\ 7392}#))
- #{tmp\ 7388}#)
+ #{y\ 4137}#))
+ #{tmp\ 4133}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7387}#)))
- ($sc-dispatch #{tmp\ 7387}# (quote (any any)))))
- (list #{x\ 7382}# #{y\ 7383}#))))
- (#{quasivector\ 7354}#
- (lambda (#{x\ 7397}#)
- ((lambda (#{tmp\ 7400}#)
- ((lambda (#{x\ 7402}#)
- ((lambda (#{tmp\ 7403}#)
- ((lambda (#{tmp\ 7404}#)
- (if #{tmp\ 7404}#
- (apply (lambda (#{x\ 7406}#)
+ #{tmp\ 4132}#)))
+ ($sc-dispatch #{tmp\ 4132}# (quote (any any)))))
+ (list #{x\ 4127}# #{y\ 4128}#))))
+ (#{quasivector\ 4099}#
+ (lambda (#{x\ 4142}#)
+ ((lambda (#{tmp\ 4145}#)
+ ((lambda (#{x\ 4147}#)
+ ((lambda (#{tmp\ 4148}#)
+ ((lambda (#{tmp\ 4149}#)
+ (if #{tmp\ 4149}#
+ (apply (lambda (#{x\ 4151}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i7405"))
+ #("i4150"))
#(ribcage
#(x)
#((top))
- #("i7401"))
+ #("i4146"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7398"))
+ #("i4143"))
#(ribcage
#(quasicons
quasiappend
@@ -13220,28 +13206,28 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
(list->vector
- #{x\ 7406}#)))
- #{tmp\ 7404}#)
- ((lambda (#{tmp\ 7408}#)
- (if #{tmp\ 7408}#
- (apply (lambda (#{x\ 7410}#)
+ #{x\ 4151}#)))
+ #{tmp\ 4149}#)
+ ((lambda (#{tmp\ 4153}#)
+ (if #{tmp\ 4153}#
+ (apply (lambda (#{x\ 4155}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i7409"))
+ #("i4154"))
#(ribcage
#(x)
#((top))
- #("i7401"))
+ #("i4146"))
#(ribcage
()
()
@@ -13253,7 +13239,7 @@
#(ribcage
#(x)
#((top))
- #("i7398"))
+ #("i4143"))
#(ribcage
#(quasicons
quasiappend
@@ -13263,31 +13249,31 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
- #{x\ 7410}#))
- #{tmp\ 7408}#)
- ((lambda (#{_\ 7413}#)
+ #{x\ 4155}#))
+ #{tmp\ 4153}#)
+ ((lambda (#{_\ 4158}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i7412"))
+ #("i4157"))
#(ribcage
#(x)
#((top))
- #("i7401"))
+ #("i4146"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7398"))
+ #("i4143"))
#(ribcage
#(quasicons
quasiappend
@@ -13297,15 +13283,15 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
- #{x\ 7402}#))
- #{tmp\ 7403}#)))
+ #{x\ 4147}#))
+ #{tmp\ 4148}#)))
($sc-dispatch
- #{tmp\ 7403}#
+ #{tmp\ 4148}#
'(#(free-id
#(syntax-object
list
@@ -13313,82 +13299,82 @@
#(ribcage
#(x)
#((top))
- #("i7401"))
+ #("i4146"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7398"))
+ #("i4143"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 7403}#
+ #{tmp\ 4148}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i7401"))
+ #(ribcage #(x) #((top)) #("i4146"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7398"))
+ #(ribcage #(x) #((top)) #("i4143"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
each-any))))
- #{x\ 7402}#))
- #{tmp\ 7400}#))
- #{x\ 7397}#)))
- (#{quasi\ 7355}#
- (lambda (#{p\ 7414}# #{lev\ 7415}#)
- ((lambda (#{tmp\ 7418}#)
- ((lambda (#{tmp\ 7419}#)
- (if #{tmp\ 7419}#
- (apply (lambda (#{p\ 7421}#)
- (if (= #{lev\ 7415}# 0)
- #{p\ 7421}#
- (#{quasicons\ 7352}#
+ #{x\ 4147}#))
+ #{tmp\ 4145}#))
+ #{x\ 4142}#)))
+ (#{quasi\ 4100}#
+ (lambda (#{p\ 4159}# #{lev\ 4160}#)
+ ((lambda (#{tmp\ 4163}#)
+ ((lambda (#{tmp\ 4164}#)
+ (if #{tmp\ 4164}#
+ (apply (lambda (#{p\ 4166}#)
+ (if (= #{lev\ 4160}# 0)
+ #{p\ 4166}#
+ (#{quasicons\ 4097}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i7420"))
+ #("i4165"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
#(syntax-object
unquote
@@ -13396,50 +13382,50 @@
#(ribcage
#(p)
#((top))
- #("i7420"))
+ #("i4165"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
- (#{quasi\ 7355}#
- (list #{p\ 7421}#)
- (- #{lev\ 7415}# 1)))))
- #{tmp\ 7419}#)
- ((lambda (#{tmp\ 7422}#)
- (if (if #{tmp\ 7422}#
- (apply (lambda (#{args\ 7424}#)
- (= #{lev\ 7415}# 0))
- #{tmp\ 7422}#)
+ (#{quasi\ 4100}#
+ (list #{p\ 4166}#)
+ (- #{lev\ 4160}# 1)))))
+ #{tmp\ 4164}#)
+ ((lambda (#{tmp\ 4167}#)
+ (if (if #{tmp\ 4167}#
+ (apply (lambda (#{args\ 4169}#)
+ (= #{lev\ 4160}# 0))
+ #{tmp\ 4167}#)
#f)
- (apply (lambda (#{args\ 7426}#)
+ (apply (lambda (#{args\ 4171}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 7414}#
+ #{p\ 4159}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i7425"))
+ #("i4170"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13449,33 +13435,33 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
- #{args\ 7426}#)))
- #{tmp\ 7422}#)
- ((lambda (#{tmp\ 7427}#)
- (if #{tmp\ 7427}#
- (apply (lambda (#{p\ 7430}#
- #{q\ 7431}#)
- (if (= #{lev\ 7415}# 0)
- (#{quasiappend\ 7353}#
- #{p\ 7430}#
- (#{quasi\ 7355}#
- #{q\ 7431}#
- #{lev\ 7415}#))
- (#{quasicons\ 7352}#
- (#{quasicons\ 7352}#
+ #{args\ 4171}#)))
+ #{tmp\ 4167}#)
+ ((lambda (#{tmp\ 4172}#)
+ (if #{tmp\ 4172}#
+ (apply (lambda (#{p\ 4175}#
+ #{q\ 4176}#)
+ (if (= #{lev\ 4160}# 0)
+ (#{quasiappend\ 4098}#
+ #{p\ 4175}#
+ (#{quasi\ 4100}#
+ #{q\ 4176}#
+ #{lev\ 4160}#))
+ (#{quasicons\ 4097}#
+ (#{quasicons\ 4097}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i7428"
- "i7429"))
+ #("i4173"
+ "i4174"))
#(ribcage
()
()
@@ -13483,8 +13469,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13494,10 +13480,10 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -13505,8 +13491,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i7428"
- "i7429"))
+ #("i4173"
+ "i4174"))
#(ribcage
()
()
@@ -13514,8 +13500,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13525,31 +13511,31 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
- (#{quasi\ 7355}#
- (list #{p\ 7430}#)
- (- #{lev\ 7415}# 1)))
- (#{quasi\ 7355}#
- #{q\ 7431}#
- #{lev\ 7415}#))))
- #{tmp\ 7427}#)
- ((lambda (#{tmp\ 7432}#)
- (if (if #{tmp\ 7432}#
- (apply (lambda (#{args\ 7435}#
- #{q\ 7436}#)
- (= #{lev\ 7415}# 0))
- #{tmp\ 7432}#)
+ (#{quasi\ 4100}#
+ (list #{p\ 4175}#)
+ (- #{lev\ 4160}# 1)))
+ (#{quasi\ 4100}#
+ #{q\ 4176}#
+ #{lev\ 4160}#))))
+ #{tmp\ 4172}#)
+ ((lambda (#{tmp\ 4177}#)
+ (if (if #{tmp\ 4177}#
+ (apply (lambda (#{args\ 4180}#
+ #{q\ 4181}#)
+ (= #{lev\ 4160}# 0))
+ #{tmp\ 4177}#)
#f)
- (apply (lambda (#{args\ 7439}#
- #{q\ 7440}#)
+ (apply (lambda (#{args\ 4184}#
+ #{q\ 4185}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 7414}#
+ #{p\ 4159}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13557,8 +13543,8 @@
#(args q)
#((top)
(top))
- #("i7437"
- "i7438"))
+ #("i4182"
+ "i4183"))
#(ribcage
()
()
@@ -13567,8 +13553,8 @@
#(p lev)
#((top)
(top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13578,25 +13564,25 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- #{args\ 7439}#)))
- #{tmp\ 7432}#)
- ((lambda (#{tmp\ 7441}#)
- (if #{tmp\ 7441}#
- (apply (lambda (#{p\ 7443}#)
- (#{quasicons\ 7352}#
+ #{args\ 4184}#)))
+ #{tmp\ 4177}#)
+ ((lambda (#{tmp\ 4186}#)
+ (if #{tmp\ 4186}#
+ (apply (lambda (#{p\ 4188}#)
+ (#{quasicons\ 4097}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i7442"))
+ #("i4187"))
#(ribcage
()
()
@@ -13605,8 +13591,8 @@
#(p lev)
#((top)
(top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13616,10 +13602,10 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
#(syntax-object
@@ -13628,7 +13614,7 @@
#(ribcage
#(p)
#((top))
- #("i7442"))
+ #("i4187"))
#(ribcage
()
()
@@ -13637,8 +13623,8 @@
#(p lev)
#((top)
(top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13648,45 +13634,45 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile)))
- (#{quasi\ 7355}#
- (list #{p\ 7443}#)
- (+ #{lev\ 7415}#
+ (#{quasi\ 4100}#
+ (list #{p\ 4188}#)
+ (+ #{lev\ 4160}#
1))))
- #{tmp\ 7441}#)
- ((lambda (#{tmp\ 7444}#)
- (if #{tmp\ 7444}#
- (apply (lambda (#{p\ 7447}#
- #{q\ 7448}#)
- (#{quasicons\ 7352}#
- (#{quasi\ 7355}#
- #{p\ 7447}#
- #{lev\ 7415}#)
- (#{quasi\ 7355}#
- #{q\ 7448}#
- #{lev\ 7415}#)))
- #{tmp\ 7444}#)
- ((lambda (#{tmp\ 7449}#)
- (if #{tmp\ 7449}#
- (apply (lambda (#{x\ 7451}#)
- (#{quasivector\ 7354}#
- (#{quasi\ 7355}#
- #{x\ 7451}#
- #{lev\ 7415}#)))
- #{tmp\ 7449}#)
- ((lambda (#{p\ 7454}#)
+ #{tmp\ 4186}#)
+ ((lambda (#{tmp\ 4189}#)
+ (if #{tmp\ 4189}#
+ (apply (lambda (#{p\ 4192}#
+ #{q\ 4193}#)
+ (#{quasicons\ 4097}#
+ (#{quasi\ 4100}#
+ #{p\ 4192}#
+ #{lev\ 4160}#)
+ (#{quasi\ 4100}#
+ #{q\ 4193}#
+ #{lev\ 4160}#)))
+ #{tmp\ 4189}#)
+ ((lambda (#{tmp\ 4194}#)
+ (if #{tmp\ 4194}#
+ (apply (lambda (#{x\ 4196}#)
+ (#{quasivector\ 4099}#
+ (#{quasi\ 4100}#
+ #{x\ 4196}#
+ #{lev\ 4160}#)))
+ #{tmp\ 4194}#)
+ ((lambda (#{p\ 4199}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i7453"))
+ #("i4198"))
#(ribcage
()
()
@@ -13696,8 +13682,8 @@
lev)
#((top)
(top))
- #("i7416"
- "i7417"))
+ #("i4161"
+ "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13707,23 +13693,23 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene
guile))
- #{p\ 7454}#))
- #{tmp\ 7418}#)))
+ #{p\ 4199}#))
+ #{tmp\ 4163}#)))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13732,7 +13718,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13742,14 +13728,14 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13758,7 +13744,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
@@ -13768,17 +13754,17 @@
(top)
(top)
(top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13787,23 +13773,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348"
- "i7349"
- "i7350"
- "i7351")))
+ #("i4093"
+ "i4094"
+ "i4095"
+ "i4096")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'(#(free-id
#(syntax-object
unquote
@@ -13812,19 +13798,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348" "i7349" "i7350" "i7351")))
+ #("i4093" "i4094" "i4095" "i4096")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 7418}#
+ #{tmp\ 4163}#
'(#(free-id
#(syntax-object
unquote
@@ -13833,243 +13819,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i7416" "i7417"))
+ #("i4161" "i4162"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i7348" "i7349" "i7350" "i7351")))
+ #("i4093" "i4094" "i4095" "i4096")))
(hygiene guile)))
any))))
- #{p\ 7414}#))))
- (lambda (#{x\ 7455}#)
- ((lambda (#{tmp\ 7457}#)
- ((lambda (#{tmp\ 7458}#)
- (if #{tmp\ 7458}#
- (apply (lambda (#{_\ 7461}# #{e\ 7462}#)
- (#{quasi\ 7355}# #{e\ 7462}# 0))
- #{tmp\ 7458}#)
+ #{p\ 4159}#))))
+ (lambda (#{x\ 4200}#)
+ ((lambda (#{tmp\ 4202}#)
+ ((lambda (#{tmp\ 4203}#)
+ (if #{tmp\ 4203}#
+ (apply (lambda (#{_\ 4206}# #{e\ 4207}#)
+ (#{quasi\ 4100}# #{e\ 4207}# 0))
+ #{tmp\ 4203}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7457}#)))
- ($sc-dispatch #{tmp\ 7457}# (quote (any any)))))
- #{x\ 7455}#)))
+ #{tmp\ 4202}#)))
+ ($sc-dispatch #{tmp\ 4202}# (quote (any any)))))
+ #{x\ 4200}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 7463}#)
- (letrec ((#{read-file\ 7466}#
- (lambda (#{fn\ 7467}# #{k\ 7468}#)
- (let ((#{p\ 7472}# (open-input-file #{fn\ 7467}#)))
- (letrec ((#{f\ 7475}#
- (lambda (#{x\ 7476}#)
- (if (eof-object? #{x\ 7476}#)
+ (cons (lambda (#{x\ 4208}#)
+ (letrec ((#{read-file\ 4211}#
+ (lambda (#{fn\ 4212}# #{k\ 4213}#)
+ (let ((#{p\ 4217}# (open-input-file #{fn\ 4212}#)))
+ (letrec ((#{f\ 4221}#
+ (lambda (#{x\ 4222}# #{result\ 4223}#)
+ (if (eof-object? #{x\ 4222}#)
(begin
- (close-input-port #{p\ 7472}#)
- '())
- (cons (datum->syntax
- #{k\ 7468}#
- #{x\ 7476}#)
- (#{f\ 7475}#
- (read #{p\ 7472}#)))))))
- (#{f\ 7475}# (read #{p\ 7472}#)))))))
- ((lambda (#{tmp\ 7477}#)
- ((lambda (#{tmp\ 7478}#)
- (if #{tmp\ 7478}#
- (apply (lambda (#{k\ 7481}# #{filename\ 7482}#)
- (let ((#{fn\ 7484}#
- (syntax->datum #{filename\ 7482}#)))
- ((lambda (#{tmp\ 7486}#)
- ((lambda (#{tmp\ 7487}#)
- (if #{tmp\ 7487}#
- (apply (lambda (#{exp\ 7489}#)
+ (close-input-port #{p\ 4217}#)
+ (reverse #{result\ 4223}#))
+ (#{f\ 4221}#
+ (read #{p\ 4217}#)
+ (cons (datum->syntax
+ #{k\ 4213}#
+ #{x\ 4222}#)
+ #{result\ 4223}#))))))
+ (#{f\ 4221}# (read #{p\ 4217}#) (quote ())))))))
+ ((lambda (#{tmp\ 4224}#)
+ ((lambda (#{tmp\ 4225}#)
+ (if #{tmp\ 4225}#
+ (apply (lambda (#{k\ 4228}# #{filename\ 4229}#)
+ (let ((#{fn\ 4231}#
+ (syntax->datum #{filename\ 4229}#)))
+ ((lambda (#{tmp\ 4233}#)
+ ((lambda (#{tmp\ 4234}#)
+ (if #{tmp\ 4234}#
+ (apply (lambda (#{exp\ 4236}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i7488"))
+ #("i4235"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i7483"))
+ #("i4230"))
#(ribcage
#(k filename)
#((top) (top))
- #("i7479"
- "i7480"))
+ #("i4226"
+ "i4227"))
#(ribcage
(read-file)
((top))
- ("i7465"))
+ ("i4210"))
#(ribcage
#(x)
#((top))
- #("i7464")))
+ #("i4209")))
(hygiene guile))
- #{exp\ 7489}#))
- #{tmp\ 7487}#)
+ #{exp\ 4236}#))
+ #{tmp\ 4234}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7486}#)))
+ #{tmp\ 4233}#)))
($sc-dispatch
- #{tmp\ 7486}#
+ #{tmp\ 4233}#
'each-any)))
- (#{read-file\ 7466}#
- #{fn\ 7484}#
- #{k\ 7481}#))))
- #{tmp\ 7478}#)
+ (#{read-file\ 4211}#
+ #{fn\ 4231}#
+ #{k\ 4228}#))))
+ #{tmp\ 4225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7477}#)))
- ($sc-dispatch #{tmp\ 7477}# (quote (any any)))))
- #{x\ 7463}#)))
+ #{tmp\ 4224}#)))
+ ($sc-dispatch #{tmp\ 4224}# (quote (any any)))))
+ #{x\ 4208}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 7491}#)
- ((lambda (#{tmp\ 7493}#)
- ((lambda (#{tmp\ 7494}#)
- (if #{tmp\ 7494}#
- (apply (lambda (#{k\ 7497}# #{filename\ 7498}#)
- (let ((#{fn\ 7500}#
- (syntax->datum #{filename\ 7498}#)))
- ((lambda (#{tmp\ 7502}#)
- ((lambda (#{fn\ 7504}#)
+ (cons (lambda (#{x\ 4238}#)
+ ((lambda (#{tmp\ 4240}#)
+ ((lambda (#{tmp\ 4241}#)
+ (if #{tmp\ 4241}#
+ (apply (lambda (#{k\ 4244}# #{filename\ 4245}#)
+ (let ((#{fn\ 4247}#
+ (syntax->datum #{filename\ 4245}#)))
+ ((lambda (#{tmp\ 4249}#)
+ ((lambda (#{fn\ 4251}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i7503"))
+ #("i4250"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i7499"))
+ #("i4246"))
#(ribcage
#(k filename)
#((top) (top))
- #("i7495" "i7496"))
+ #("i4242" "i4243"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7492")))
+ #("i4239")))
(hygiene guile))
- #{fn\ 7504}#))
- #{tmp\ 7502}#))
- (let ((#{t\ 7507}#
- (%search-load-path #{fn\ 7500}#)))
- (if #{t\ 7507}#
- #{t\ 7507}#
+ #{fn\ 4251}#))
+ #{tmp\ 4249}#))
+ (let ((#{t\ 4254}#
+ (%search-load-path #{fn\ 4247}#)))
+ (if #{t\ 4254}#
+ #{t\ 4254}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 7491}#
- #{filename\ 7498}#))))))
- #{tmp\ 7494}#)
+ #{x\ 4238}#
+ #{filename\ 4245}#))))))
+ #{tmp\ 4241}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7493}#)))
- ($sc-dispatch #{tmp\ 7493}# (quote (any any)))))
- #{x\ 7491}#))
+ #{tmp\ 4240}#)))
+ ($sc-dispatch #{tmp\ 4240}# (quote (any any)))))
+ #{x\ 4238}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 7509}#)
- ((lambda (#{tmp\ 7511}#)
- ((lambda (#{tmp\ 7512}#)
- (if #{tmp\ 7512}#
- (apply (lambda (#{_\ 7515}# #{e\ 7516}#)
+ (cons (lambda (#{x\ 4256}#)
+ ((lambda (#{tmp\ 4258}#)
+ ((lambda (#{tmp\ 4259}#)
+ (if #{tmp\ 4259}#
+ (apply (lambda (#{_\ 4262}# #{e\ 4263}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 7509}#))
- #{tmp\ 7512}#)
+ #{x\ 4256}#))
+ #{tmp\ 4259}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7511}#)))
- ($sc-dispatch #{tmp\ 7511}# (quote (any any)))))
- #{x\ 7509}#))
+ #{tmp\ 4258}#)))
+ ($sc-dispatch #{tmp\ 4258}# (quote (any any)))))
+ #{x\ 4256}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 7517}#)
- ((lambda (#{tmp\ 7519}#)
- ((lambda (#{tmp\ 7520}#)
- (if #{tmp\ 7520}#
- (apply (lambda (#{_\ 7523}# #{e\ 7524}#)
+ (cons (lambda (#{x\ 4264}#)
+ ((lambda (#{tmp\ 4266}#)
+ ((lambda (#{tmp\ 4267}#)
+ (if #{tmp\ 4267}#
+ (apply (lambda (#{_\ 4270}# #{e\ 4271}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 7517}#))
- #{tmp\ 7520}#)
+ #{x\ 4264}#))
+ #{tmp\ 4267}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7519}#)))
- ($sc-dispatch #{tmp\ 7519}# (quote (any any)))))
- #{x\ 7517}#))
+ #{tmp\ 4266}#)))
+ ($sc-dispatch #{tmp\ 4266}# (quote (any any)))))
+ #{x\ 4264}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 7525}#)
- ((lambda (#{tmp\ 7527}#)
- ((lambda (#{tmp\ 7528}#)
- (if #{tmp\ 7528}#
- (apply (lambda (#{_\ 7533}#
- #{e\ 7534}#
- #{m1\ 7535}#
- #{m2\ 7536}#)
- ((lambda (#{tmp\ 7538}#)
- ((lambda (#{body\ 7540}#)
+ (cons (lambda (#{x\ 4272}#)
+ ((lambda (#{tmp\ 4274}#)
+ ((lambda (#{tmp\ 4275}#)
+ (if #{tmp\ 4275}#
+ (apply (lambda (#{_\ 4280}#
+ #{e\ 4281}#
+ #{m1\ 4282}#
+ #{m2\ 4283}#)
+ ((lambda (#{tmp\ 4285}#)
+ ((lambda (#{body\ 4287}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i7539"))
+ #("i4286"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -14077,35 +14064,35 @@
#(ribcage
#(body)
#((top))
- #("i7539"))
+ #("i4286"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene guile))
- #{e\ 7534}#))
- #{body\ 7540}#))
- #{tmp\ 7538}#))
- (letrec ((#{f\ 7544}#
- (lambda (#{clause\ 7545}#
- #{clauses\ 7546}#)
- (if (null? #{clauses\ 7546}#)
- ((lambda (#{tmp\ 7548}#)
- ((lambda (#{tmp\ 7549}#)
- (if #{tmp\ 7549}#
- (apply (lambda (#{e1\ 7552}#
- #{e2\ 7553}#)
+ #{e\ 4281}#))
+ #{body\ 4287}#))
+ #{tmp\ 4285}#))
+ (letrec ((#{f\ 4291}#
+ (lambda (#{clause\ 4292}#
+ #{clauses\ 4293}#)
+ (if (null? #{clauses\ 4293}#)
+ ((lambda (#{tmp\ 4295}#)
+ ((lambda (#{tmp\ 4296}#)
+ (if #{tmp\ 4296}#
+ (apply (lambda (#{e1\ 4299}#
+ #{e2\ 4300}#)
(cons '#(syntax-object
begin
((top)
@@ -14114,8 +14101,8 @@
e2)
#((top)
(top))
- #("i7550"
- "i7551"))
+ #("i4297"
+ "i4298"))
#(ribcage
()
()
@@ -14127,9 +14114,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14139,10 +14126,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14150,17 +14137,17 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
- (cons #{e1\ 7552}#
- #{e2\ 7553}#)))
- #{tmp\ 7549}#)
- ((lambda (#{tmp\ 7555}#)
- (if #{tmp\ 7555}#
- (apply (lambda (#{k\ 7559}#
- #{e1\ 7560}#
- #{e2\ 7561}#)
+ (cons #{e1\ 4299}#
+ #{e2\ 4300}#)))
+ #{tmp\ 4296}#)
+ ((lambda (#{tmp\ 4302}#)
+ (if #{tmp\ 4302}#
+ (apply (lambda (#{k\ 4306}#
+ #{e1\ 4307}#
+ #{e2\ 4308}#)
(list '#(syntax-object
if
((top)
@@ -14171,9 +14158,9 @@
#((top)
(top)
(top))
- #("i7556"
- "i7557"
- "i7558"))
+ #("i4303"
+ "i4304"
+ "i4305"))
#(ribcage
()
()
@@ -14185,9 +14172,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14197,10 +14184,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14208,7 +14195,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
(list '#(syntax-object
@@ -14221,9 +14208,9 @@
#((top)
(top)
(top))
- #("i7556"
- "i7557"
- "i7558"))
+ #("i4303"
+ "i4304"
+ "i4305"))
#(ribcage
()
()
@@ -14235,9 +14222,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14247,10 +14234,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14258,7 +14245,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
'#(syntax-object
@@ -14271,9 +14258,9 @@
#((top)
(top)
(top))
- #("i7556"
- "i7557"
- "i7558"))
+ #("i4303"
+ "i4304"
+ "i4305"))
#(ribcage
()
()
@@ -14285,9 +14272,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14297,10 +14284,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14308,7 +14295,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
(list '#(syntax-object
@@ -14321,9 +14308,9 @@
#((top)
(top)
(top))
- #("i7556"
- "i7557"
- "i7558"))
+ #("i4303"
+ "i4304"
+ "i4305"))
#(ribcage
()
()
@@ -14335,9 +14322,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14347,10 +14334,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14358,10 +14345,10 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
- #{k\ 7559}#))
+ #{k\ 4306}#))
(cons '#(syntax-object
begin
((top)
@@ -14372,9 +14359,9 @@
#((top)
(top)
(top))
- #("i7556"
- "i7557"
- "i7558"))
+ #("i4303"
+ "i4304"
+ "i4305"))
#(ribcage
()
()
@@ -14386,9 +14373,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14398,10 +14385,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14409,27 +14396,27 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
- (cons #{e1\ 7560}#
- #{e2\ 7561}#))))
- #{tmp\ 7555}#)
- ((lambda (#{_\ 7565}#)
+ (cons #{e1\ 4307}#
+ #{e2\ 4308}#))))
+ #{tmp\ 4302}#)
+ ((lambda (#{_\ 4312}#)
(syntax-violation
'case
"bad clause"
- #{x\ 7525}#
- #{clause\ 7545}#))
- #{tmp\ 7548}#)))
+ #{x\ 4272}#
+ #{clause\ 4292}#))
+ #{tmp\ 4295}#)))
($sc-dispatch
- #{tmp\ 7548}#
+ #{tmp\ 4295}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 7548}#
+ #{tmp\ 4295}#
'(#(free-id
#(syntax-object
else
@@ -14440,37 +14427,37 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 7545}#)
- ((lambda (#{tmp\ 7567}#)
- ((lambda (#{rest\ 7569}#)
- ((lambda (#{tmp\ 7570}#)
- ((lambda (#{tmp\ 7571}#)
- (if #{tmp\ 7571}#
- (apply (lambda (#{k\ 7575}#
- #{e1\ 7576}#
- #{e2\ 7577}#)
+ #{clause\ 4292}#)
+ ((lambda (#{tmp\ 4314}#)
+ ((lambda (#{rest\ 4316}#)
+ ((lambda (#{tmp\ 4317}#)
+ ((lambda (#{tmp\ 4318}#)
+ (if #{tmp\ 4318}#
+ (apply (lambda (#{k\ 4322}#
+ #{e1\ 4323}#
+ #{e2\ 4324}#)
(list '#(syntax-object
if
((top)
@@ -14481,13 +14468,13 @@
#((top)
(top)
(top))
- #("i7572"
- "i7573"
- "i7574"))
+ #("i4319"
+ "i4320"
+ "i4321"))
#(ribcage
#(rest)
#((top))
- #("i7568"))
+ #("i4315"))
#(ribcage
()
()
@@ -14499,9 +14486,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14511,10 +14498,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14522,7 +14509,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
(list '#(syntax-object
@@ -14535,13 +14522,13 @@
#((top)
(top)
(top))
- #("i7572"
- "i7573"
- "i7574"))
+ #("i4319"
+ "i4320"
+ "i4321"))
#(ribcage
#(rest)
#((top))
- #("i7568"))
+ #("i4315"))
#(ribcage
()
()
@@ -14553,9 +14540,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14565,10 +14552,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14576,7 +14563,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
'#(syntax-object
@@ -14589,13 +14576,13 @@
#((top)
(top)
(top))
- #("i7572"
- "i7573"
- "i7574"))
+ #("i4319"
+ "i4320"
+ "i4321"))
#(ribcage
#(rest)
#((top))
- #("i7568"))
+ #("i4315"))
#(ribcage
()
()
@@ -14607,9 +14594,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14619,10 +14606,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14630,7 +14617,7 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
(list '#(syntax-object
@@ -14643,13 +14630,13 @@
#((top)
(top)
(top))
- #("i7572"
- "i7573"
- "i7574"))
+ #("i4319"
+ "i4320"
+ "i4321"))
#(ribcage
#(rest)
#((top))
- #("i7568"))
+ #("i4315"))
#(ribcage
()
()
@@ -14661,9 +14648,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14673,10 +14660,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14684,10 +14671,10 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
- #{k\ 7575}#))
+ #{k\ 4322}#))
(cons '#(syntax-object
begin
((top)
@@ -14698,13 +14685,13 @@
#((top)
(top)
(top))
- #("i7572"
- "i7573"
- "i7574"))
+ #("i4319"
+ "i4320"
+ "i4321"))
#(ribcage
#(rest)
#((top))
- #("i7568"))
+ #("i4315"))
#(ribcage
()
()
@@ -14716,9 +14703,9 @@
#((top)
(top)
(top))
- #("i7541"
- "i7542"
- "i7543"))
+ #("i4288"
+ "i4289"
+ "i4290"))
#(ribcage
#(_
e
@@ -14728,10 +14715,10 @@
(top)
(top)
(top))
- #("i7529"
- "i7530"
- "i7531"
- "i7532"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14739,61 +14726,61 @@
#(ribcage
#(x)
#((top))
- #("i7526")))
+ #("i4273")))
(hygiene
guile))
- (cons #{e1\ 7576}#
- #{e2\ 7577}#))
- #{rest\ 7569}#))
- #{tmp\ 7571}#)
- ((lambda (#{_\ 7581}#)
+ (cons #{e1\ 4323}#
+ #{e2\ 4324}#))
+ #{rest\ 4316}#))
+ #{tmp\ 4318}#)
+ ((lambda (#{_\ 4328}#)
(syntax-violation
'case
"bad clause"
- #{x\ 7525}#
- #{clause\ 7545}#))
- #{tmp\ 7570}#)))
+ #{x\ 4272}#
+ #{clause\ 4292}#))
+ #{tmp\ 4317}#)))
($sc-dispatch
- #{tmp\ 7570}#
+ #{tmp\ 4317}#
'(each-any
any
.
each-any))))
- #{clause\ 7545}#))
- #{tmp\ 7567}#))
- (#{f\ 7544}#
- (car #{clauses\ 7546}#)
- (cdr #{clauses\ 7546}#)))))))
- (#{f\ 7544}# #{m1\ 7535}# #{m2\ 7536}#))))
- #{tmp\ 7528}#)
+ #{clause\ 4292}#))
+ #{tmp\ 4314}#))
+ (#{f\ 4291}#
+ (car #{clauses\ 4293}#)
+ (cdr #{clauses\ 4293}#)))))))
+ (#{f\ 4291}# #{m1\ 4282}# #{m2\ 4283}#))))
+ #{tmp\ 4275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7527}#)))
+ #{tmp\ 4274}#)))
($sc-dispatch
- #{tmp\ 7527}#
+ #{tmp\ 4274}#
'(any any any . each-any))))
- #{x\ 7525}#))
+ #{x\ 4272}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 7582}#)
- ((lambda (#{tmp\ 7584}#)
- ((lambda (#{tmp\ 7585}#)
- (if #{tmp\ 7585}#
- (apply (lambda (#{_\ 7588}# #{e\ 7589}#)
+ (cons (lambda (#{x\ 4329}#)
+ ((lambda (#{tmp\ 4331}#)
+ ((lambda (#{tmp\ 4332}#)
+ (if #{tmp\ 4332}#
+ (apply (lambda (#{_\ 4335}# #{e\ 4336}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7583")))
+ #(ribcage #(x) #((top)) #("i4330")))
(hygiene guile))
'(#(syntax-object
x
@@ -14801,9 +14788,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7583")))
+ #(ribcage #(x) #((top)) #("i4330")))
(hygiene guile)))
(list '#(syntax-object
syntax-case
@@ -14811,12 +14798,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
'#(syntax-object
x
@@ -14824,12 +14811,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -14838,12 +14825,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -14851,12 +14838,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
(#(syntax-object
syntax
@@ -14864,12 +14851,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
#(syntax-object
id
@@ -14877,12 +14864,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14890,27 +14877,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
- #{e\ 7589}#))
- (list (cons #{_\ 7588}#
+ #{e\ 4336}#))
+ (list (cons #{_\ 4335}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
#(syntax-object
...
@@ -14918,12 +14905,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14931,14 +14918,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i7586" "i7587"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
- (cons #{e\ 7589}#
+ (cons #{e\ 4336}#
'(#(syntax-object
x
((top)
@@ -14946,8 +14933,8 @@
#(_ e)
#((top)
(top))
- #("i7586"
- "i7587"))
+ #("i4333"
+ "i4334"))
#(ribcage
()
()
@@ -14955,7 +14942,7 @@
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene guile))
#(syntax-object
...
@@ -14964,8 +14951,8 @@
#(_ e)
#((top)
(top))
- #("i7586"
- "i7587"))
+ #("i4333"
+ "i4334"))
#(ribcage
()
()
@@ -14973,72 +14960,72 @@
#(ribcage
#(x)
#((top))
- #("i7583")))
+ #("i4330")))
(hygiene
guile)))))))))
- #{tmp\ 7585}#)
+ #{tmp\ 4332}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7584}#)))
- ($sc-dispatch #{tmp\ 7584}# (quote (any any)))))
- #{x\ 7582}#))
+ #{tmp\ 4331}#)))
+ ($sc-dispatch #{tmp\ 4331}# (quote (any any)))))
+ #{x\ 4329}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 7590}#)
- ((lambda (#{tmp\ 7592}#)
- ((lambda (#{tmp\ 7593}#)
- (if #{tmp\ 7593}#
- (apply (lambda (#{_\ 7599}#
- #{id\ 7600}#
- #{args\ 7601}#
- #{b0\ 7602}#
- #{b1\ 7603}#)
+ (cons (lambda (#{x\ 4337}#)
+ ((lambda (#{tmp\ 4339}#)
+ ((lambda (#{tmp\ 4340}#)
+ (if #{tmp\ 4340}#
+ (apply (lambda (#{_\ 4346}#
+ #{id\ 4347}#
+ #{args\ 4348}#
+ #{b0\ 4349}#
+ #{b1\ 4350}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i7594"
- "i7595"
- "i7596"
- "i7597"
- "i7598"))
+ #("i4341"
+ "i4342"
+ "i4343"
+ "i4344"
+ "i4345"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i7591")))
+ #(ribcage #(x) #((top)) #("i4338")))
(hygiene guile))
- #{id\ 7600}#
+ #{id\ 4347}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i7594"
- "i7595"
- "i7596"
- "i7597"
- "i7598"))
+ #("i4341"
+ "i4342"
+ "i4343"
+ "i4344"
+ "i4345"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7591")))
+ #("i4338")))
(hygiene guile))
- (cons #{args\ 7601}#
- (cons #{b0\ 7602}#
- #{b1\ 7603}#)))))
- #{tmp\ 7593}#)
- ((lambda (#{tmp\ 7605}#)
- (if (if #{tmp\ 7605}#
- (apply (lambda (#{_\ 7609}#
- #{id\ 7610}#
- #{val\ 7611}#)
+ (cons #{args\ 4348}#
+ (cons #{b0\ 4349}#
+ #{b1\ 4350}#)))))
+ #{tmp\ 4340}#)
+ ((lambda (#{tmp\ 4352}#)
+ (if (if #{tmp\ 4352}#
+ (apply (lambda (#{_\ 4356}#
+ #{id\ 4357}#
+ #{val\ 4358}#)
(identifier?
'#(syntax-object
x
@@ -15046,44 +15033,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i7606" "i7607" "i7608"))
+ #("i4353" "i4354" "i4355"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7591")))
+ #("i4338")))
(hygiene guile))))
- #{tmp\ 7605}#)
+ #{tmp\ 4352}#)
#f)
- (apply (lambda (#{_\ 7615}#
- #{id\ 7616}#
- #{val\ 7617}#)
+ (apply (lambda (#{_\ 4362}#
+ #{id\ 4363}#
+ #{val\ 4364}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i7612" "i7613" "i7614"))
+ #("i4359" "i4360" "i4361"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i7591")))
+ #("i4338")))
(hygiene guile))
- #{id\ 7616}#
- #{val\ 7617}#))
- #{tmp\ 7605}#)
+ #{id\ 4363}#
+ #{val\ 4364}#))
+ #{tmp\ 4352}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 7592}#)))
+ #{tmp\ 4339}#)))
($sc-dispatch
- #{tmp\ 7592}#
+ #{tmp\ 4339}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 7592}#
+ #{tmp\ 4339}#
'(any (any . any) any . each-any))))
- #{x\ 7590}#))
+ #{x\ 4337}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index ac058dcc6..5cf83981c 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2749,11 +2749,14 @@
(define read-file
(lambda (fn k)
(let ((p (open-input-file fn)))
- (let f ((x (read p)))
+ (let f ((x (read p))
+ (result '()))
(if (eof-object? x)
- (begin (close-input-port p) '())
- (cons (datum->syntax k x)
- (f (read p))))))))
+ (begin
+ (close-input-port p)
+ (reverse result))
+ (f (read p)
+ (cons (datum->syntax k x) result)))))))
(syntax-case x ()
((k filename)
(let ((fn (syntax->datum #'filename)))