diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-03-19 15:42:20 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-03-20 17:03:54 +0100 |
commit | df0f529585e55007e2a2226f624b55e986722d37 (patch) | |
tree | 2d2d93d7c945a675060fae8a03207193bc7056c7 | |
parent | 165a8643ae1c9e8d8eceba2e33a9586e9863ea8c (diff) | |
download | guile-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.scm | 15541 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 11 |
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))) |