diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 2b50ff23b..a0a73327b 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -357,9 +357,9 @@ If there is no handler at all, Guile prints an error and then exits." (define generate-temporaries #f) (define bound-identifier=? #f) (define free-identifier=? #f) -(define sc-expand #f) +(define macroexpand #f) -;; $sc-expand is an implementation detail of psyntax. It is used by +;; $sc-dispatch is an implementation detail of psyntax. It is used by ;; expanded macros, to dispatch an input against a set of patterns. (define $sc-dispatch #f) @@ -368,7 +368,7 @@ If there is no handler at all, Guile prints an error and then exits." ;; %pre-modules-transformer is the Scheme expander from now until the ;; module system has booted up. -(define %pre-modules-transformer sc-expand) +(define %pre-modules-transformer macroexpand) (define-syntax and (syntax-rules () @@ -3723,7 +3723,7 @@ module '(ice-9 q) '(make-q q-length))}." ;; (define (syncase exp) ;; (with-fluids ((expansion-eval-closure ;; (module-eval-closure (current-module)))) -;; (deannotate/source-properties (sc-expand (annotate exp))))) +;; (deannotate/source-properties (macroexpand (annotate exp))))) ;; FIXME: (module-use! the-scm-module (resolve-interface '(srfi srfi-4))) diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm index 8b53267fe..5529e69c1 100644 --- a/module/ice-9/compile-psyntax.scm +++ b/module/ice-9/compile-psyntax.scm @@ -13,7 +13,7 @@ (close-port in)) (begin (pretty-print (tree-il->scheme - (sc-expand x 'c '(compile load eval))) + (macroexpand x 'c '(compile load eval))) out) (newline out) (loop (read in)))))) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 07819120c..7d449d206 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,610 +1,618 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 42}# - (lambda (#{f\ 104}# #{first\ 105}# . #{rest\ 106}#) - (let ((#{t\ 112}# (null? #{first\ 105}#))) - (if #{t\ 112}# - #{t\ 112}# - (if (null? #{rest\ 106}#) - (letrec ((#{andmap\ 116}# - (lambda (#{first\ 117}#) - (let ((#{x\ 120}# (car #{first\ 117}#)) - (#{first\ 121}# (cdr #{first\ 117}#))) - (if (null? #{first\ 121}#) - (#{f\ 104}# #{x\ 120}#) - (if (#{f\ 104}# #{x\ 120}#) - (#{andmap\ 116}# #{first\ 121}#) +(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}#) #f)))))) - (#{andmap\ 116}# #{first\ 105}#)) - (letrec ((#{andmap\ 127}# - (lambda (#{first\ 128}# #{rest\ 129}#) - (let ((#{x\ 134}# (car #{first\ 128}#)) - (#{xr\ 135}# (map car #{rest\ 129}#)) - (#{first\ 136}# (cdr #{first\ 128}#)) - (#{rest\ 137}# (map cdr #{rest\ 129}#))) - (if (null? #{first\ 136}#) - (apply #{f\ 104}# - (cons #{x\ 134}# #{xr\ 135}#)) - (if (apply #{f\ 104}# - (cons #{x\ 134}# #{xr\ 135}#)) - (#{andmap\ 127}# - #{first\ 136}# - #{rest\ 137}#) + (#{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}#) #f)))))) - (#{andmap\ 127}# #{first\ 105}# #{rest\ 106}#)))))))) - (letrec ((#{lambda-var-list\ 359}# - (lambda (#{vars\ 574}#) - (letrec ((#{lvl\ 580}# - (lambda (#{vars\ 581}# #{ls\ 582}# #{w\ 583}#) - (if (pair? #{vars\ 581}#) - (#{lvl\ 580}# - (cdr #{vars\ 581}#) - (cons (#{wrap\ 313}# - (car #{vars\ 581}#) - #{w\ 583}# + (#{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}# #f) - #{ls\ 582}#) - #{w\ 583}#) - (if (#{id?\ 244}# #{vars\ 581}#) - (cons (#{wrap\ 313}# - #{vars\ 581}# - #{w\ 583}# + #{ls\ 3839}#) + #{w\ 3840}#) + (if (#{id?\ 3501}# #{vars\ 3838}#) + (cons (#{wrap\ 3570}# + #{vars\ 3838}# + #{w\ 3840}# #f) - #{ls\ 582}#) - (if (null? #{vars\ 581}#) - #{ls\ 582}# - (if (#{syntax-object?\ 208}# #{vars\ 581}#) - (#{lvl\ 580}# - (#{syntax-object-expression\ 210}# - #{vars\ 581}#) - #{ls\ 582}# - (#{join-wraps\ 295}# - #{w\ 583}# - (#{syntax-object-wrap\ 212}# - #{vars\ 581}#))) - (cons #{vars\ 581}# #{ls\ 582}#)))))))) - (#{lvl\ 580}# - #{vars\ 574}# + #{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}# '() '(()))))) - (#{gen-var\ 357}# - (lambda (#{id\ 594}#) - (let ((#{id\ 597}# - (if (#{syntax-object?\ 208}# #{id\ 594}#) - (#{syntax-object-expression\ 210}# #{id\ 594}#) - #{id\ 594}#))) + (#{gen-var\ 3614}# + (lambda (#{id\ 3851}#) + (let ((#{id\ 3854}# + (if (#{syntax-object?\ 3465}# #{id\ 3851}#) + (#{syntax-object-expression\ 3467}# #{id\ 3851}#) + #{id\ 3851}#))) (gensym - (string-append (symbol->string #{id\ 597}#) " "))))) - (#{strip\ 355}# - (lambda (#{x\ 599}# #{w\ 600}#) + (string-append (symbol->string #{id\ 3854}#) " "))))) + (#{strip\ 3612}# + (lambda (#{x\ 3856}# #{w\ 3857}#) (if (memq 'top - (#{wrap-marks\ 251}# #{w\ 600}#)) - #{x\ 599}# - (letrec ((#{f\ 606}# (lambda (#{x\ 607}#) - (if (#{syntax-object?\ 208}# - #{x\ 607}#) - (#{strip\ 355}# - (#{syntax-object-expression\ 210}# - #{x\ 607}#) - (#{syntax-object-wrap\ 212}# - #{x\ 607}#)) - (if (pair? #{x\ 607}#) - (let ((#{a\ 614}# (#{f\ 606}# (car #{x\ 607}#))) - (#{d\ 615}# (#{f\ 606}# (cdr #{x\ 607}#)))) - (if (if (eq? #{a\ 614}# - (car #{x\ 607}#)) - (eq? #{d\ 615}# - (cdr #{x\ 607}#)) - #f) - #{x\ 607}# - (cons #{a\ 614}# #{d\ 615}#))) - (if (vector? #{x\ 607}#) - (let ((#{old\ 621}# - (vector->list - #{x\ 607}#))) - (let ((#{new\ 623}# - (map #{f\ 606}# - #{old\ 621}#))) - (if (#{and-map*\ 42}# - eq? - #{old\ 621}# - #{new\ 623}#) - #{x\ 607}# - (list->vector - #{new\ 623}#)))) - #{x\ 607}#)))))) - (#{f\ 606}# #{x\ 599}#))))) - (#{chi-lambda-case\ 353}# - (lambda (#{e\ 625}# - #{r\ 626}# - #{w\ 627}# - #{s\ 628}# - #{mod\ 629}# - #{get-formals\ 630}# - #{clauses\ 631}#) - (letrec ((#{expand-body\ 646}# - (lambda (#{req\ 647}# - #{opt\ 648}# - #{rest\ 649}# - #{kw\ 650}# - #{body\ 651}# - #{vars\ 652}# - #{r*\ 653}# - #{w*\ 654}# - #{inits\ 655}#) - ((lambda (#{tmp\ 665}#) - ((lambda (#{tmp\ 666}#) - (if (if #{tmp\ 666}# - (apply (lambda (#{docstring\ 670}# - #{e1\ 671}# - #{e2\ 672}#) + (#{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}#) (string? (syntax->datum - #{docstring\ 670}#))) - #{tmp\ 666}#) + #{docstring\ 3927}#))) + #{tmp\ 3923}#) #f) - (apply (lambda (#{docstring\ 676}# - #{e1\ 677}# - #{e2\ 678}#) + (apply (lambda (#{docstring\ 3933}# + #{e1\ 3934}# + #{e2\ 3935}#) (values (syntax->datum - #{docstring\ 676}#) - #{req\ 647}# - #{opt\ 648}# - #{rest\ 649}# - #{kw\ 650}# - #{inits\ 655}# - #{vars\ 652}# - (#{chi-body\ 337}# - (cons #{e1\ 677}# #{e2\ 678}#) - (#{source-wrap\ 315}# - #{e\ 625}# - #{w\ 627}# - #{s\ 628}# - #{mod\ 629}#) - #{r*\ 653}# - #{w*\ 654}# - #{mod\ 629}#))) - #{tmp\ 666}#) - ((lambda (#{tmp\ 680}#) - (if #{tmp\ 680}# - (apply (lambda (#{e1\ 683}# - #{e2\ 684}#) + #{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}#) (values #f - #{req\ 647}# - #{opt\ 648}# - #{rest\ 649}# - #{kw\ 650}# - #{inits\ 655}# - #{vars\ 652}# - (#{chi-body\ 337}# - (cons #{e1\ 683}# - #{e2\ 684}#) - (#{source-wrap\ 315}# - #{e\ 625}# - #{w\ 627}# - #{s\ 628}# - #{mod\ 629}#) - #{r*\ 653}# - #{w*\ 654}# - #{mod\ 629}#))) - #{tmp\ 680}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 665}#))) + #{tmp\ 3922}#))) ($sc-dispatch - #{tmp\ 665}# + #{tmp\ 3922}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 665}# + #{tmp\ 3922}# '(any any . each-any)))) - #{body\ 651}#))) - (#{expand-kw\ 644}# - (lambda (#{req\ 686}# - #{opt\ 687}# - #{rest\ 688}# - #{kw\ 689}# - #{body\ 690}# - #{vars\ 691}# - #{r*\ 692}# - #{w*\ 693}# - #{aok\ 694}# - #{out\ 695}# - #{inits\ 696}#) - (if (pair? #{kw\ 689}#) - ((lambda (#{tmp\ 710}#) - ((lambda (#{tmp\ 711}#) - (if #{tmp\ 711}# - (apply (lambda (#{k\ 715}# - #{id\ 716}# - #{i\ 717}#) - (let ((#{v\ 720}# (#{gen-var\ 357}# - #{id\ 716}#))) - (let ((#{l\ 722}# (#{gen-labels\ 262}# - (list #{v\ 720}#)))) - (let ((#{r**\ 724}# - (#{extend-var-env\ 234}# - #{l\ 722}# - (list #{v\ 720}#) - #{r*\ 692}#))) - (let ((#{w**\ 726}# - (#{make-binding-wrap\ 291}# - (list #{id\ 716}#) - #{l\ 722}# - #{w*\ 693}#))) - (#{expand-kw\ 644}# - #{req\ 686}# - #{opt\ 687}# - #{rest\ 688}# - (cdr #{kw\ 689}#) - #{body\ 690}# - (cons #{v\ 720}# - #{vars\ 691}#) - #{r**\ 724}# - #{w**\ 726}# - #{aok\ 694}# + #{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}# (cons (list (syntax->datum - #{k\ 715}#) + #{k\ 3972}#) (syntax->datum - #{id\ 716}#) - #{v\ 720}#) - #{out\ 695}#) - (cons (#{chi\ 329}# - #{i\ 717}# - #{r*\ 692}# - #{w*\ 693}# - #{mod\ 629}#) - #{inits\ 696}#))))))) - #{tmp\ 711}#) + #{id\ 3973}#) + #{v\ 3977}#) + #{out\ 3952}#) + (cons (#{chi\ 3586}# + #{i\ 3974}# + #{r*\ 3949}# + #{w*\ 3950}# + #{mod\ 3886}#) + #{inits\ 3953}#))))))) + #{tmp\ 3968}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 710}#))) + #{tmp\ 3967}#))) ($sc-dispatch - #{tmp\ 710}# + #{tmp\ 3967}# '(any any any)))) - (car #{kw\ 689}#)) - (#{expand-body\ 646}# - #{req\ 686}# - #{opt\ 687}# - #{rest\ 688}# - (if (let ((#{t\ 730}# #{aok\ 694}#)) - (if #{t\ 730}# - #{t\ 730}# - (pair? #{out\ 695}#))) - (cons #{aok\ 694}# (reverse #{out\ 695}#)) + (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}#)) #f) - #{body\ 690}# - (reverse #{vars\ 691}#) - #{r*\ 692}# - #{w*\ 693}# - (reverse #{inits\ 696}#))))) - (#{expand-opt\ 642}# - (lambda (#{req\ 732}# - #{opt\ 733}# - #{rest\ 734}# - #{kw\ 735}# - #{body\ 736}# - #{vars\ 737}# - #{r*\ 738}# - #{w*\ 739}# - #{out\ 740}# - #{inits\ 741}#) - (if (pair? #{opt\ 733}#) - ((lambda (#{tmp\ 754}#) - ((lambda (#{tmp\ 755}#) - (if #{tmp\ 755}# - (apply (lambda (#{id\ 758}# #{i\ 759}#) - (let ((#{v\ 762}# (#{gen-var\ 357}# - #{id\ 758}#))) - (let ((#{l\ 764}# (#{gen-labels\ 262}# - (list #{v\ 762}#)))) - (let ((#{r**\ 766}# - (#{extend-var-env\ 234}# - #{l\ 764}# - (list #{v\ 762}#) - #{r*\ 738}#))) - (let ((#{w**\ 768}# - (#{make-binding-wrap\ 291}# - (list #{id\ 758}#) - #{l\ 764}# - #{w*\ 739}#))) - (#{expand-opt\ 642}# - #{req\ 732}# - (cdr #{opt\ 733}#) - #{rest\ 734}# - #{kw\ 735}# - #{body\ 736}# - (cons #{v\ 762}# - #{vars\ 737}#) - #{r**\ 766}# - #{w**\ 768}# + #{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}# (cons (syntax->datum - #{id\ 758}#) - #{out\ 740}#) - (cons (#{chi\ 329}# - #{i\ 759}# - #{r*\ 738}# - #{w*\ 739}# - #{mod\ 629}#) - #{inits\ 741}#))))))) - #{tmp\ 755}#) + #{id\ 4015}#) + #{out\ 3997}#) + (cons (#{chi\ 3586}# + #{i\ 4016}# + #{r*\ 3995}# + #{w*\ 3996}# + #{mod\ 3886}#) + #{inits\ 3998}#))))))) + #{tmp\ 4012}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 754}#))) + #{tmp\ 4011}#))) ($sc-dispatch - #{tmp\ 754}# + #{tmp\ 4011}# '(any any)))) - (car #{opt\ 733}#)) - (if #{rest\ 734}# - (let ((#{v\ 773}# (#{gen-var\ 357}# - #{rest\ 734}#))) - (let ((#{l\ 775}# (#{gen-labels\ 262}# - (list #{v\ 773}#)))) - (let ((#{r*\ 777}# - (#{extend-var-env\ 234}# - #{l\ 775}# - (list #{v\ 773}#) - #{r*\ 738}#))) - (let ((#{w*\ 779}# - (#{make-binding-wrap\ 291}# - (list #{rest\ 734}#) - #{l\ 775}# - #{w*\ 739}#))) - (#{expand-kw\ 644}# - #{req\ 732}# - (if (pair? #{out\ 740}#) - (reverse #{out\ 740}#) + (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}#) #f) - (syntax->datum #{rest\ 734}#) - (if (pair? #{kw\ 735}#) - (cdr #{kw\ 735}#) - #{kw\ 735}#) - #{body\ 736}# - (cons #{v\ 773}# #{vars\ 737}#) - #{r*\ 777}# - #{w*\ 779}# - (if (pair? #{kw\ 735}#) - (car #{kw\ 735}#) + (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}#) #f) '() - #{inits\ 741}#))))) - (#{expand-kw\ 644}# - #{req\ 732}# - (if (pair? #{out\ 740}#) - (reverse #{out\ 740}#) + #{inits\ 3998}#))))) + (#{expand-kw\ 3901}# + #{req\ 3989}# + (if (pair? #{out\ 3997}#) + (reverse #{out\ 3997}#) #f) #f - (if (pair? #{kw\ 735}#) - (cdr #{kw\ 735}#) - #{kw\ 735}#) - #{body\ 736}# - #{vars\ 737}# - #{r*\ 738}# - #{w*\ 739}# - (if (pair? #{kw\ 735}#) (car #{kw\ 735}#) #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) '() - #{inits\ 741}#))))) - (#{expand-req\ 640}# - (lambda (#{req\ 781}# - #{opt\ 782}# - #{rest\ 783}# - #{kw\ 784}# - #{body\ 785}#) - (let ((#{vars\ 793}# - (map #{gen-var\ 357}# #{req\ 781}#)) - (#{labels\ 794}# - (#{gen-labels\ 262}# #{req\ 781}#))) - (let ((#{r*\ 797}# - (#{extend-var-env\ 234}# - #{labels\ 794}# - #{vars\ 793}# - #{r\ 626}#)) - (#{w*\ 798}# - (#{make-binding-wrap\ 291}# - #{req\ 781}# - #{labels\ 794}# - #{w\ 627}#))) - (#{expand-opt\ 642}# - (map syntax->datum #{req\ 781}#) - #{opt\ 782}# - #{rest\ 783}# - #{kw\ 784}# - #{body\ 785}# - (reverse #{vars\ 793}#) - #{r*\ 797}# - #{w*\ 798}# + #{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}# '() '())))))) - ((lambda (#{tmp\ 799}#) - ((lambda (#{tmp\ 800}#) - (if #{tmp\ 800}# - (apply (lambda () (values #f #f)) #{tmp\ 800}#) - ((lambda (#{tmp\ 801}#) - (if #{tmp\ 801}# - (apply (lambda (#{args\ 808}# - #{e1\ 809}# - #{e2\ 810}# - #{args*\ 811}# - #{e1*\ 812}# - #{e2*\ 813}#) + ((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}#) (call-with-values (lambda () - (#{get-formals\ 630}# - #{args\ 808}#)) - (lambda (#{req\ 814}# - #{opt\ 815}# - #{rest\ 816}# - #{kw\ 817}#) + (#{get-formals\ 3887}# + #{args\ 4065}#)) + (lambda (#{req\ 4071}# + #{opt\ 4072}# + #{rest\ 4073}# + #{kw\ 4074}#) (call-with-values (lambda () - (#{expand-req\ 640}# - #{req\ 814}# - #{opt\ 815}# - #{rest\ 816}# - #{kw\ 817}# - (cons #{e1\ 809}# - #{e2\ 810}#))) - (lambda (#{docstring\ 823}# - #{req\ 824}# - #{opt\ 825}# - #{rest\ 826}# - #{kw\ 827}# - #{inits\ 828}# - #{vars\ 829}# - #{body\ 830}#) + (#{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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 353}# - #{e\ 625}# - #{r\ 626}# - #{w\ 627}# - #{s\ 628}# - #{mod\ 629}# - #{get-formals\ 630}# - (map (lambda (#{tmp\ 841}# - #{tmp\ 840}# - #{tmp\ 839}#) - (cons #{tmp\ 839}# - (cons #{tmp\ 840}# - #{tmp\ 841}#))) - #{e2*\ 813}# - #{e1*\ 812}# - #{args*\ 811}#))) - (lambda (#{docstring*\ 843}# - #{else*\ 844}#) + (#{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}#) (values - (let ((#{t\ 849}# #{docstring\ 823}#)) - (if #{t\ 849}# - #{t\ 849}# - #{docstring*\ 843}#)) - (#{build-lambda-case\ 190}# - #{s\ 628}# - #{req\ 824}# - #{opt\ 825}# - #{rest\ 826}# - #{kw\ 827}# - #{inits\ 828}# - #{vars\ 829}# - #{body\ 830}# - #{else*\ 844}#))))))))) - #{tmp\ 801}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 799}#))) + #{tmp\ 4056}#))) ($sc-dispatch - #{tmp\ 799}# + #{tmp\ 4056}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 799}# (quote ())))) - #{clauses\ 631}#)))) - (#{lambda*-formals\ 351}# - (lambda (#{orig-args\ 851}#) - (letrec ((#{check\ 862}# - (lambda (#{req\ 863}# - #{opt\ 864}# - #{rest\ 865}# - #{kw\ 866}#) - (if (#{distinct-bound-ids?\ 309}# + ($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}# (append - #{req\ 863}# - (map car #{opt\ 864}#) - (if #{rest\ 865}# - (list #{rest\ 865}#) + #{req\ 4120}# + (map car #{opt\ 4121}#) + (if #{rest\ 4122}# + (list #{rest\ 4122}#) '()) - (if (pair? #{kw\ 866}#) - (map cadr (cdr #{kw\ 866}#)) + (if (pair? #{kw\ 4123}#) + (map cadr (cdr #{kw\ 4123}#)) '()))) (values - #{req\ 863}# - #{opt\ 864}# - #{rest\ 865}# - #{kw\ 866}#) + #{req\ 4120}# + #{opt\ 4121}# + #{rest\ 4122}# + #{kw\ 4123}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 851}#)))) - (#{rest\ 860}# - (lambda (#{args\ 874}# - #{req\ 875}# - #{opt\ 876}# - #{kw\ 877}#) - ((lambda (#{tmp\ 882}#) - ((lambda (#{tmp\ 883}#) - (if (if #{tmp\ 883}# - (apply (lambda (#{r\ 885}#) - (#{id?\ 244}# #{r\ 885}#)) - #{tmp\ 883}#) + #{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}#) #f) - (apply (lambda (#{r\ 887}#) - (#{check\ 862}# - #{req\ 875}# - #{opt\ 876}# - #{r\ 887}# - #{kw\ 877}#)) - #{tmp\ 883}#) - ((lambda (#{else\ 889}#) + (apply (lambda (#{r\ 4144}#) + (#{check\ 4119}# + #{req\ 4132}# + #{opt\ 4133}# + #{r\ 4144}# + #{kw\ 4134}#)) + #{tmp\ 4140}#) + ((lambda (#{else\ 4146}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 851}# - #{args\ 874}#)) - #{tmp\ 882}#))) - (list #{tmp\ 882}#))) - #{args\ 874}#))) - (#{key\ 858}# - (lambda (#{args\ 890}# - #{req\ 891}# - #{opt\ 892}# - #{rkey\ 893}#) - ((lambda (#{tmp\ 898}#) - ((lambda (#{tmp\ 899}#) - (if #{tmp\ 899}# + #{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}# (apply (lambda () - (#{check\ 862}# - #{req\ 891}# - #{opt\ 892}# + (#{check\ 4119}# + #{req\ 4148}# + #{opt\ 4149}# #f (cons #f - (reverse #{rkey\ 893}#)))) - #{tmp\ 899}#) - ((lambda (#{tmp\ 900}#) - (if (if #{tmp\ 900}# - (apply (lambda (#{a\ 903}# - #{b\ 904}#) - (#{id?\ 244}# - #{a\ 903}#)) - #{tmp\ 900}#) + (reverse + #{rkey\ 4150}#)))) + #{tmp\ 4156}#) + ((lambda (#{tmp\ 4157}#) + (if (if #{tmp\ 4157}# + (apply (lambda (#{a\ 4160}# + #{b\ 4161}#) + (#{id?\ 3501}# + #{a\ 4160}#)) + #{tmp\ 4157}#) #f) - (apply (lambda (#{a\ 907}# #{b\ 908}#) - ((lambda (#{tmp\ 910}#) - ((lambda (#{k\ 912}#) - (#{key\ 858}# - #{b\ 908}# - #{req\ 891}# - #{opt\ 892}# - (cons (cons #{k\ 912}# - (cons #{a\ 907}# + (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}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i911")) + #("i4168")) #(ribcage #(a b) #((top) (top)) - #("i905" - "i906")) + #("i4162" + "i4163")) #(ribcage () () @@ -618,10 +626,10 @@ (top) (top) (top)) - #("i894" - "i895" - "i896" - "i897")) + #("i4151" + "i4152" + "i4153" + "i4154")) #(ribcage (check rest key @@ -632,15 +640,15 @@ (top) (top) (top)) - ("i861" - "i859" - "i857" - "i855" - "i853")) + ("i4118" + "i4116" + "i4114" + "i4112" + "i4110")) #(ribcage #(orig-args) #((top)) - #("i852")) + #("i4109")) #(ribcage (lambda-var-list gen-var @@ -878,350 +886,350 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile))))) - #{rkey\ 893}#))) - #{tmp\ 910}#)) + #{rkey\ 4150}#))) + #{tmp\ 4167}#)) (symbol->keyword (syntax->datum - #{a\ 907}#)))) - #{tmp\ 900}#) - ((lambda (#{tmp\ 913}#) - (if (if #{tmp\ 913}# - (apply (lambda (#{a\ 917}# - #{init\ 918}# - #{b\ 919}#) - (#{id?\ 244}# - #{a\ 917}#)) - #{tmp\ 913}#) + #{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}#) #f) - (apply (lambda (#{a\ 923}# - #{init\ 924}# - #{b\ 925}#) - ((lambda (#{tmp\ 927}#) - ((lambda (#{k\ 929}#) - (#{key\ 858}# - #{b\ 925}# - #{req\ 891}# - #{opt\ 892}# - (cons (list #{k\ 929}# - #{a\ 923}# - #{init\ 924}#) - #{rkey\ 893}#))) - #{tmp\ 927}#)) + (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}#)) (symbol->keyword (syntax->datum - #{a\ 923}#)))) - #{tmp\ 913}#) - ((lambda (#{tmp\ 930}#) - (if (if #{tmp\ 930}# - (apply (lambda (#{a\ 935}# - #{init\ 936}# - #{k\ 937}# - #{b\ 938}#) - (if (#{id?\ 244}# - #{a\ 935}#) + #{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}#) (keyword? (syntax->datum - #{k\ 937}#)) + #{k\ 4194}#)) #f)) - #{tmp\ 930}#) + #{tmp\ 4187}#) #f) - (apply (lambda (#{a\ 945}# - #{init\ 946}# - #{k\ 947}# - #{b\ 948}#) - (#{key\ 858}# - #{b\ 948}# - #{req\ 891}# - #{opt\ 892}# - (cons (list #{k\ 947}# - #{a\ 945}# - #{init\ 946}#) - #{rkey\ 893}#))) - #{tmp\ 930}#) - ((lambda (#{tmp\ 949}#) - (if (if #{tmp\ 949}# - (apply (lambda (#{aok\ 951}#) + (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}#) (eq? (syntax->datum - #{aok\ 951}#) + #{aok\ 4208}#) #:allow-other-keys)) - #{tmp\ 949}#) + #{tmp\ 4206}#) #f) - (apply (lambda (#{aok\ 953}#) - (#{check\ 862}# - #{req\ 891}# - #{opt\ 892}# + (apply (lambda (#{aok\ 4210}#) + (#{check\ 4119}# + #{req\ 4148}# + #{opt\ 4149}# #f (cons #t (reverse - #{rkey\ 893}#)))) - #{tmp\ 949}#) - ((lambda (#{tmp\ 954}#) - (if (if #{tmp\ 954}# - (apply (lambda (#{aok\ 958}# - #{a\ 959}# - #{b\ 960}#) + #{rkey\ 4150}#)))) + #{tmp\ 4206}#) + ((lambda (#{tmp\ 4211}#) + (if (if #{tmp\ 4211}# + (apply (lambda (#{aok\ 4215}# + #{a\ 4216}# + #{b\ 4217}#) (if (eq? (syntax->datum - #{aok\ 958}#) + #{aok\ 4215}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 959}#) + #{a\ 4216}#) #:rest) #f)) - #{tmp\ 954}#) + #{tmp\ 4211}#) #f) - (apply (lambda (#{aok\ 966}# - #{a\ 967}# - #{b\ 968}#) - (#{rest\ 860}# - #{b\ 968}# - #{req\ 891}# - #{opt\ 892}# + (apply (lambda (#{aok\ 4223}# + #{a\ 4224}# + #{b\ 4225}#) + (#{rest\ 4117}# + #{b\ 4225}# + #{req\ 4148}# + #{opt\ 4149}# (cons #t (reverse - #{rkey\ 893}#)))) - #{tmp\ 954}#) - ((lambda (#{tmp\ 969}#) - (if (if #{tmp\ 969}# - (apply (lambda (#{aok\ 972}# - #{r\ 973}#) + #{rkey\ 4150}#)))) + #{tmp\ 4211}#) + ((lambda (#{tmp\ 4226}#) + (if (if #{tmp\ 4226}# + (apply (lambda (#{aok\ 4229}# + #{r\ 4230}#) (if (eq? (syntax->datum - #{aok\ 972}#) + #{aok\ 4229}#) #:allow-other-keys) - (#{id?\ 244}# - #{r\ 973}#) + (#{id?\ 3501}# + #{r\ 4230}#) #f)) - #{tmp\ 969}#) + #{tmp\ 4226}#) #f) - (apply (lambda (#{aok\ 978}# - #{r\ 979}#) - (#{rest\ 860}# - #{r\ 979}# - #{req\ 891}# - #{opt\ 892}# + (apply (lambda (#{aok\ 4235}# + #{r\ 4236}#) + (#{rest\ 4117}# + #{r\ 4236}# + #{req\ 4148}# + #{opt\ 4149}# (cons #t (reverse - #{rkey\ 893}#)))) - #{tmp\ 969}#) - ((lambda (#{tmp\ 980}#) - (if (if #{tmp\ 980}# - (apply (lambda (#{a\ 983}# - #{b\ 984}#) + #{rkey\ 4150}#)))) + #{tmp\ 4226}#) + ((lambda (#{tmp\ 4237}#) + (if (if #{tmp\ 4237}# + (apply (lambda (#{a\ 4240}# + #{b\ 4241}#) (eq? (syntax->datum - #{a\ 983}#) + #{a\ 4240}#) #:rest)) - #{tmp\ 980}#) + #{tmp\ 4237}#) #f) - (apply (lambda (#{a\ 987}# - #{b\ 988}#) - (#{rest\ 860}# - #{b\ 988}# - #{req\ 891}# - #{opt\ 892}# + (apply (lambda (#{a\ 4244}# + #{b\ 4245}#) + (#{rest\ 4117}# + #{b\ 4245}# + #{req\ 4148}# + #{opt\ 4149}# (cons #f (reverse - #{rkey\ 893}#)))) - #{tmp\ 980}#) - ((lambda (#{tmp\ 989}#) - (if (if #{tmp\ 989}# - (apply (lambda (#{r\ 991}#) - (#{id?\ 244}# - #{r\ 991}#)) - #{tmp\ 989}#) + #{rkey\ 4150}#)))) + #{tmp\ 4237}#) + ((lambda (#{tmp\ 4246}#) + (if (if #{tmp\ 4246}# + (apply (lambda (#{r\ 4248}#) + (#{id?\ 3501}# + #{r\ 4248}#)) + #{tmp\ 4246}#) #f) - (apply (lambda (#{r\ 993}#) - (#{rest\ 860}# - #{r\ 993}# - #{req\ 891}# - #{opt\ 892}# + (apply (lambda (#{r\ 4250}#) + (#{rest\ 4117}# + #{r\ 4250}# + #{req\ 4148}# + #{opt\ 4149}# (cons #f (reverse - #{rkey\ 893}#)))) - #{tmp\ 989}#) - ((lambda (#{else\ 995}#) + #{rkey\ 4150}#)))) + #{tmp\ 4246}#) + ((lambda (#{else\ 4252}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 851}# - #{args\ 890}#)) - #{tmp\ 898}#))) - (list #{tmp\ 898}#)))) + #{orig-args\ 4108}# + #{args\ 4147}#)) + #{tmp\ 4155}#))) + (list #{tmp\ 4155}#)))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '(any any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '(any . any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '(any any any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '(any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 898}# + #{tmp\ 4155}# '(any . any))))) - ($sc-dispatch #{tmp\ 898}# (quote ())))) - #{args\ 890}#))) - (#{opt\ 856}# - (lambda (#{args\ 996}# #{req\ 997}# #{ropt\ 998}#) - ((lambda (#{tmp\ 1002}#) - ((lambda (#{tmp\ 1003}#) - (if #{tmp\ 1003}# + ($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}# (apply (lambda () - (#{check\ 862}# - #{req\ 997}# - (reverse #{ropt\ 998}#) + (#{check\ 4119}# + #{req\ 4254}# + (reverse #{ropt\ 4255}#) #f '())) - #{tmp\ 1003}#) - ((lambda (#{tmp\ 1004}#) - (if (if #{tmp\ 1004}# - (apply (lambda (#{a\ 1007}# - #{b\ 1008}#) - (#{id?\ 244}# - #{a\ 1007}#)) - #{tmp\ 1004}#) + #{tmp\ 4260}#) + ((lambda (#{tmp\ 4261}#) + (if (if #{tmp\ 4261}# + (apply (lambda (#{a\ 4264}# + #{b\ 4265}#) + (#{id?\ 3501}# + #{a\ 4264}#)) + #{tmp\ 4261}#) #f) - (apply (lambda (#{a\ 1011}# - #{b\ 1012}#) - (#{opt\ 856}# - #{b\ 1012}# - #{req\ 997}# - (cons (cons #{a\ 1011}# + (apply (lambda (#{a\ 4268}# + #{b\ 4269}#) + (#{opt\ 4113}# + #{b\ 4269}# + #{req\ 4254}# + (cons (cons #{a\ 4268}# '(#(syntax-object #f ((top) @@ -1229,8 +1237,8 @@ #(a b) #((top) (top)) - #("i1009" - "i1010")) + #("i4266" + "i4267")) #(ribcage () () @@ -1242,9 +1250,9 @@ #((top) (top) (top)) - #("i999" - "i1000" - "i1001")) + #("i4256" + "i4257" + "i4258")) #(ribcage (check rest key @@ -1255,15 +1263,15 @@ (top) (top) (top)) - ("i861" - "i859" - "i857" - "i855" - "i853")) + ("i4118" + "i4116" + "i4114" + "i4112" + "i4110")) #(ribcage #(orig-args) #((top)) - #("i852")) + #("i4109")) #(ribcage (lambda-var-list gen-var @@ -1501,463 +1509,463 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile)))) - #{ropt\ 998}#))) - #{tmp\ 1004}#) - ((lambda (#{tmp\ 1013}#) - (if (if #{tmp\ 1013}# - (apply (lambda (#{a\ 1017}# - #{init\ 1018}# - #{b\ 1019}#) - (#{id?\ 244}# - #{a\ 1017}#)) - #{tmp\ 1013}#) + #{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}#) #f) - (apply (lambda (#{a\ 1023}# - #{init\ 1024}# - #{b\ 1025}#) - (#{opt\ 856}# - #{b\ 1025}# - #{req\ 997}# - (cons (list #{a\ 1023}# - #{init\ 1024}#) - #{ropt\ 998}#))) - #{tmp\ 1013}#) - ((lambda (#{tmp\ 1026}#) - (if (if #{tmp\ 1026}# - (apply (lambda (#{a\ 1029}# - #{b\ 1030}#) + (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}#) (eq? (syntax->datum - #{a\ 1029}#) + #{a\ 4286}#) #:key)) - #{tmp\ 1026}#) + #{tmp\ 4283}#) #f) - (apply (lambda (#{a\ 1033}# - #{b\ 1034}#) - (#{key\ 858}# - #{b\ 1034}# - #{req\ 997}# + (apply (lambda (#{a\ 4290}# + #{b\ 4291}#) + (#{key\ 4115}# + #{b\ 4291}# + #{req\ 4254}# (reverse - #{ropt\ 998}#) + #{ropt\ 4255}#) '())) - #{tmp\ 1026}#) - ((lambda (#{tmp\ 1035}#) - (if (if #{tmp\ 1035}# - (apply (lambda (#{a\ 1038}# - #{b\ 1039}#) + #{tmp\ 4283}#) + ((lambda (#{tmp\ 4292}#) + (if (if #{tmp\ 4292}# + (apply (lambda (#{a\ 4295}# + #{b\ 4296}#) (eq? (syntax->datum - #{a\ 1038}#) + #{a\ 4295}#) #:rest)) - #{tmp\ 1035}#) + #{tmp\ 4292}#) #f) - (apply (lambda (#{a\ 1042}# - #{b\ 1043}#) - (#{rest\ 860}# - #{b\ 1043}# - #{req\ 997}# + (apply (lambda (#{a\ 4299}# + #{b\ 4300}#) + (#{rest\ 4117}# + #{b\ 4300}# + #{req\ 4254}# (reverse - #{ropt\ 998}#) + #{ropt\ 4255}#) '())) - #{tmp\ 1035}#) - ((lambda (#{tmp\ 1044}#) - (if (if #{tmp\ 1044}# - (apply (lambda (#{r\ 1046}#) - (#{id?\ 244}# - #{r\ 1046}#)) - #{tmp\ 1044}#) + #{tmp\ 4292}#) + ((lambda (#{tmp\ 4301}#) + (if (if #{tmp\ 4301}# + (apply (lambda (#{r\ 4303}#) + (#{id?\ 3501}# + #{r\ 4303}#)) + #{tmp\ 4301}#) #f) - (apply (lambda (#{r\ 1048}#) - (#{rest\ 860}# - #{r\ 1048}# - #{req\ 997}# + (apply (lambda (#{r\ 4305}#) + (#{rest\ 4117}# + #{r\ 4305}# + #{req\ 4254}# (reverse - #{ropt\ 998}#) + #{ropt\ 4255}#) '())) - #{tmp\ 1044}#) - ((lambda (#{else\ 1050}#) + #{tmp\ 4301}#) + ((lambda (#{else\ 4307}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 851}# - #{args\ 996}#)) - #{tmp\ 1002}#))) - (list #{tmp\ 1002}#)))) + #{orig-args\ 4108}# + #{args\ 4253}#)) + #{tmp\ 4259}#))) + (list #{tmp\ 4259}#)))) ($sc-dispatch - #{tmp\ 1002}# + #{tmp\ 4259}# '(any any))))) ($sc-dispatch - #{tmp\ 1002}# + #{tmp\ 4259}# '(any . any))))) ($sc-dispatch - #{tmp\ 1002}# + #{tmp\ 4259}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1002}# + #{tmp\ 4259}# '(any . any))))) - ($sc-dispatch #{tmp\ 1002}# (quote ())))) - #{args\ 996}#))) - (#{req\ 854}# - (lambda (#{args\ 1051}# #{rreq\ 1052}#) - ((lambda (#{tmp\ 1055}#) - ((lambda (#{tmp\ 1056}#) - (if #{tmp\ 1056}# + ($sc-dispatch #{tmp\ 4259}# (quote ())))) + #{args\ 4253}#))) + (#{req\ 4111}# + (lambda (#{args\ 4308}# #{rreq\ 4309}#) + ((lambda (#{tmp\ 4312}#) + ((lambda (#{tmp\ 4313}#) + (if #{tmp\ 4313}# (apply (lambda () - (#{check\ 862}# - (reverse #{rreq\ 1052}#) + (#{check\ 4119}# + (reverse #{rreq\ 4309}#) '() #f '())) - #{tmp\ 1056}#) - ((lambda (#{tmp\ 1057}#) - (if (if #{tmp\ 1057}# - (apply (lambda (#{a\ 1060}# - #{b\ 1061}#) - (#{id?\ 244}# - #{a\ 1060}#)) - #{tmp\ 1057}#) + #{tmp\ 4313}#) + ((lambda (#{tmp\ 4314}#) + (if (if #{tmp\ 4314}# + (apply (lambda (#{a\ 4317}# + #{b\ 4318}#) + (#{id?\ 3501}# + #{a\ 4317}#)) + #{tmp\ 4314}#) #f) - (apply (lambda (#{a\ 1064}# - #{b\ 1065}#) - (#{req\ 854}# - #{b\ 1065}# - (cons #{a\ 1064}# - #{rreq\ 1052}#))) - #{tmp\ 1057}#) - ((lambda (#{tmp\ 1066}#) - (if (if #{tmp\ 1066}# - (apply (lambda (#{a\ 1069}# - #{b\ 1070}#) + (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}#) (eq? (syntax->datum - #{a\ 1069}#) + #{a\ 4326}#) #:optional)) - #{tmp\ 1066}#) + #{tmp\ 4323}#) #f) - (apply (lambda (#{a\ 1073}# - #{b\ 1074}#) - (#{opt\ 856}# - #{b\ 1074}# + (apply (lambda (#{a\ 4330}# + #{b\ 4331}#) + (#{opt\ 4113}# + #{b\ 4331}# (reverse - #{rreq\ 1052}#) + #{rreq\ 4309}#) '())) - #{tmp\ 1066}#) - ((lambda (#{tmp\ 1075}#) - (if (if #{tmp\ 1075}# - (apply (lambda (#{a\ 1078}# - #{b\ 1079}#) + #{tmp\ 4323}#) + ((lambda (#{tmp\ 4332}#) + (if (if #{tmp\ 4332}# + (apply (lambda (#{a\ 4335}# + #{b\ 4336}#) (eq? (syntax->datum - #{a\ 1078}#) + #{a\ 4335}#) #:key)) - #{tmp\ 1075}#) + #{tmp\ 4332}#) #f) - (apply (lambda (#{a\ 1082}# - #{b\ 1083}#) - (#{key\ 858}# - #{b\ 1083}# + (apply (lambda (#{a\ 4339}# + #{b\ 4340}#) + (#{key\ 4115}# + #{b\ 4340}# (reverse - #{rreq\ 1052}#) + #{rreq\ 4309}#) '() '())) - #{tmp\ 1075}#) - ((lambda (#{tmp\ 1084}#) - (if (if #{tmp\ 1084}# - (apply (lambda (#{a\ 1087}# - #{b\ 1088}#) + #{tmp\ 4332}#) + ((lambda (#{tmp\ 4341}#) + (if (if #{tmp\ 4341}# + (apply (lambda (#{a\ 4344}# + #{b\ 4345}#) (eq? (syntax->datum - #{a\ 1087}#) + #{a\ 4344}#) #:rest)) - #{tmp\ 1084}#) + #{tmp\ 4341}#) #f) - (apply (lambda (#{a\ 1091}# - #{b\ 1092}#) - (#{rest\ 860}# - #{b\ 1092}# + (apply (lambda (#{a\ 4348}# + #{b\ 4349}#) + (#{rest\ 4117}# + #{b\ 4349}# (reverse - #{rreq\ 1052}#) + #{rreq\ 4309}#) '() '())) - #{tmp\ 1084}#) - ((lambda (#{tmp\ 1093}#) - (if (if #{tmp\ 1093}# - (apply (lambda (#{r\ 1095}#) - (#{id?\ 244}# - #{r\ 1095}#)) - #{tmp\ 1093}#) + #{tmp\ 4341}#) + ((lambda (#{tmp\ 4350}#) + (if (if #{tmp\ 4350}# + (apply (lambda (#{r\ 4352}#) + (#{id?\ 3501}# + #{r\ 4352}#)) + #{tmp\ 4350}#) #f) - (apply (lambda (#{r\ 1097}#) - (#{rest\ 860}# - #{r\ 1097}# + (apply (lambda (#{r\ 4354}#) + (#{rest\ 4117}# + #{r\ 4354}# (reverse - #{rreq\ 1052}#) + #{rreq\ 4309}#) '() '())) - #{tmp\ 1093}#) - ((lambda (#{else\ 1099}#) + #{tmp\ 4350}#) + ((lambda (#{else\ 4356}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 851}# - #{args\ 1051}#)) - #{tmp\ 1055}#))) - (list #{tmp\ 1055}#)))) + #{orig-args\ 4108}# + #{args\ 4308}#)) + #{tmp\ 4312}#))) + (list #{tmp\ 4312}#)))) ($sc-dispatch - #{tmp\ 1055}# + #{tmp\ 4312}# '(any any))))) ($sc-dispatch - #{tmp\ 1055}# + #{tmp\ 4312}# '(any . any))))) ($sc-dispatch - #{tmp\ 1055}# + #{tmp\ 4312}# '(any . any))))) ($sc-dispatch - #{tmp\ 1055}# + #{tmp\ 4312}# '(any . any))))) - ($sc-dispatch #{tmp\ 1055}# (quote ())))) - #{args\ 1051}#)))) - (#{req\ 854}# #{orig-args\ 851}# (quote ()))))) - (#{chi-simple-lambda\ 349}# - (lambda (#{e\ 1100}# - #{r\ 1101}# - #{w\ 1102}# - #{s\ 1103}# - #{mod\ 1104}# - #{req\ 1105}# - #{rest\ 1106}# - #{docstring\ 1107}# - #{body\ 1108}#) - (let ((#{ids\ 1120}# - (if #{rest\ 1106}# - (append #{req\ 1105}# (list #{rest\ 1106}#)) - #{req\ 1105}#))) - (let ((#{vars\ 1122}# - (map #{gen-var\ 357}# #{ids\ 1120}#))) - (let ((#{labels\ 1124}# - (#{gen-labels\ 262}# #{ids\ 1120}#))) - (#{build-simple-lambda\ 186}# - #{s\ 1103}# - (map syntax->datum #{req\ 1105}#) - (if #{rest\ 1106}# - (syntax->datum #{rest\ 1106}#) + ($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}#) #f) - #{vars\ 1122}# - #{docstring\ 1107}# - (#{chi-body\ 337}# - #{body\ 1108}# - (#{source-wrap\ 315}# - #{e\ 1100}# - #{w\ 1102}# - #{s\ 1103}# - #{mod\ 1104}#) - (#{extend-var-env\ 234}# - #{labels\ 1124}# - #{vars\ 1122}# - #{r\ 1101}#) - (#{make-binding-wrap\ 291}# - #{ids\ 1120}# - #{labels\ 1124}# - #{w\ 1102}#) - #{mod\ 1104}#))))))) - (#{lambda-formals\ 347}# - (lambda (#{orig-args\ 1127}#) - (letrec ((#{check\ 1132}# - (lambda (#{req\ 1133}# #{rest\ 1134}#) - (if (#{distinct-bound-ids?\ 309}# - (if #{rest\ 1134}# - (cons #{rest\ 1134}# #{req\ 1133}#) - #{req\ 1133}#)) - (values #{req\ 1133}# #f #{rest\ 1134}# #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) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1127}#)))) - (#{req\ 1130}# - (lambda (#{args\ 1140}# #{rreq\ 1141}#) - ((lambda (#{tmp\ 1144}#) - ((lambda (#{tmp\ 1145}#) - (if #{tmp\ 1145}# + #{orig-args\ 4384}#)))) + (#{req\ 4387}# + (lambda (#{args\ 4397}# #{rreq\ 4398}#) + ((lambda (#{tmp\ 4401}#) + ((lambda (#{tmp\ 4402}#) + (if #{tmp\ 4402}# (apply (lambda () - (#{check\ 1132}# - (reverse #{rreq\ 1141}#) + (#{check\ 4389}# + (reverse #{rreq\ 4398}#) #f)) - #{tmp\ 1145}#) - ((lambda (#{tmp\ 1146}#) - (if (if #{tmp\ 1146}# - (apply (lambda (#{a\ 1149}# - #{b\ 1150}#) - (#{id?\ 244}# - #{a\ 1149}#)) - #{tmp\ 1146}#) + #{tmp\ 4402}#) + ((lambda (#{tmp\ 4403}#) + (if (if #{tmp\ 4403}# + (apply (lambda (#{a\ 4406}# + #{b\ 4407}#) + (#{id?\ 3501}# + #{a\ 4406}#)) + #{tmp\ 4403}#) #f) - (apply (lambda (#{a\ 1153}# - #{b\ 1154}#) - (#{req\ 1130}# - #{b\ 1154}# - (cons #{a\ 1153}# - #{rreq\ 1141}#))) - #{tmp\ 1146}#) - ((lambda (#{tmp\ 1155}#) - (if (if #{tmp\ 1155}# - (apply (lambda (#{r\ 1157}#) - (#{id?\ 244}# - #{r\ 1157}#)) - #{tmp\ 1155}#) + (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}#) #f) - (apply (lambda (#{r\ 1159}#) - (#{check\ 1132}# + (apply (lambda (#{r\ 4416}#) + (#{check\ 4389}# (reverse - #{rreq\ 1141}#) - #{r\ 1159}#)) - #{tmp\ 1155}#) - ((lambda (#{else\ 1161}#) + #{rreq\ 4398}#) + #{r\ 4416}#)) + #{tmp\ 4412}#) + ((lambda (#{else\ 4418}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1127}# - #{args\ 1140}#)) - #{tmp\ 1144}#))) - (list #{tmp\ 1144}#)))) + #{orig-args\ 4384}# + #{args\ 4397}#)) + #{tmp\ 4401}#))) + (list #{tmp\ 4401}#)))) ($sc-dispatch - #{tmp\ 1144}# + #{tmp\ 4401}# '(any . any))))) - ($sc-dispatch #{tmp\ 1144}# (quote ())))) - #{args\ 1140}#)))) - (#{req\ 1130}# #{orig-args\ 1127}# (quote ()))))) - (#{ellipsis?\ 345}# - (lambda (#{x\ 1162}#) - (if (#{nonsymbol-id?\ 242}# #{x\ 1162}#) - (#{free-id=?\ 303}# - #{x\ 1162}# + ($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}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1163")) + #(ribcage #(x) #((top)) #("i4420")) #(ribcage (lambda-var-list gen-var @@ -2195,1367 +2203,1367 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile))) #f))) - (#{chi-void\ 343}# - (lambda () (#{build-void\ 164}# #f))) - (#{eval-local-transformer\ 341}# - (lambda (#{expanded\ 1167}# #{mod\ 1168}#) - (let ((#{p\ 1172}# - (#{local-eval-hook\ 155}# - #{expanded\ 1167}# - #{mod\ 1168}#))) - (if (procedure? #{p\ 1172}#) - (cons #{p\ 1172}# (module-name (current-module))) + (#{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))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1172}#))))) - (#{chi-local-syntax\ 339}# - (lambda (#{rec?\ 1173}# - #{e\ 1174}# - #{r\ 1175}# - #{w\ 1176}# - #{s\ 1177}# - #{mod\ 1178}# - #{k\ 1179}#) - ((lambda (#{tmp\ 1187}#) - ((lambda (#{tmp\ 1188}#) - (if #{tmp\ 1188}# - (apply (lambda (#{_\ 1194}# - #{id\ 1195}# - #{val\ 1196}# - #{e1\ 1197}# - #{e2\ 1198}#) - (let ((#{ids\ 1200}# #{id\ 1195}#)) - (if (not (#{valid-bound-ids?\ 307}# - #{ids\ 1200}#)) + #{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}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1174}#) - (let ((#{labels\ 1203}# - (#{gen-labels\ 262}# - #{ids\ 1200}#))) - (let ((#{new-w\ 1205}# - (#{make-binding-wrap\ 291}# - #{ids\ 1200}# - #{labels\ 1203}# - #{w\ 1176}#))) - (#{k\ 1179}# - (cons #{e1\ 1197}# #{e2\ 1198}#) - (#{extend-env\ 232}# - #{labels\ 1203}# - (let ((#{w\ 1209}# - (if #{rec?\ 1173}# - #{new-w\ 1205}# - #{w\ 1176}#)) - (#{trans-r\ 1210}# - (#{macros-only-env\ 236}# - #{r\ 1175}#))) - (map (lambda (#{x\ 1211}#) + #{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}#) (cons 'macro - (#{eval-local-transformer\ 341}# - (#{chi\ 329}# - #{x\ 1211}# - #{trans-r\ 1210}# - #{w\ 1209}# - #{mod\ 1178}#) - #{mod\ 1178}#))) - #{val\ 1196}#)) - #{r\ 1175}#) - #{new-w\ 1205}# - #{s\ 1177}# - #{mod\ 1178}#)))))) - #{tmp\ 1188}#) - ((lambda (#{_\ 1216}#) + (#{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}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 315}# - #{e\ 1174}# - #{w\ 1176}# - #{s\ 1177}# - #{mod\ 1178}#))) - #{tmp\ 1187}#))) + (#{source-wrap\ 3572}# + #{e\ 4431}# + #{w\ 4433}# + #{s\ 4434}# + #{mod\ 4435}#))) + #{tmp\ 4444}#))) ($sc-dispatch - #{tmp\ 1187}# + #{tmp\ 4444}# '(any #(each (any any)) any . each-any)))) - #{e\ 1174}#))) - (#{chi-body\ 337}# - (lambda (#{body\ 1217}# - #{outer-form\ 1218}# - #{r\ 1219}# - #{w\ 1220}# - #{mod\ 1221}#) - (let ((#{r\ 1229}# + #{e\ 4431}#))) + (#{chi-body\ 3594}# + (lambda (#{body\ 4474}# + #{outer-form\ 4475}# + #{r\ 4476}# + #{w\ 4477}# + #{mod\ 4478}#) + (let ((#{r\ 4486}# (cons '("placeholder" placeholder) - #{r\ 1219}#))) - (let ((#{ribcage\ 1231}# - (#{make-ribcage\ 265}# + #{r\ 4476}#))) + (let ((#{ribcage\ 4488}# + (#{make-ribcage\ 3522}# '() '() '()))) - (let ((#{w\ 1234}# - (#{make-wrap\ 249}# - (#{wrap-marks\ 251}# #{w\ 1220}#) - (cons #{ribcage\ 1231}# - (#{wrap-subst\ 253}# #{w\ 1220}#))))) - (letrec ((#{parse\ 1243}# - (lambda (#{body\ 1244}# - #{ids\ 1245}# - #{labels\ 1246}# - #{var-ids\ 1247}# - #{vars\ 1248}# - #{vals\ 1249}# - #{bindings\ 1250}#) - (if (null? #{body\ 1244}#) + (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}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1218}#) - (let ((#{e\ 1255}# (cdar #{body\ 1244}#)) - (#{er\ 1256}# (caar #{body\ 1244}#))) + #{outer-form\ 4475}#) + (let ((#{e\ 4512}# (cdar #{body\ 4501}#)) + (#{er\ 4513}# (caar #{body\ 4501}#))) (call-with-values (lambda () - (#{syntax-type\ 325}# - #{e\ 1255}# - #{er\ 1256}# + (#{syntax-type\ 3582}# + #{e\ 4512}# + #{er\ 4513}# '(()) - (#{source-annotation\ 223}# - #{er\ 1256}#) - #{ribcage\ 1231}# - #{mod\ 1221}# + (#{source-annotation\ 3480}# + #{er\ 4513}#) + #{ribcage\ 4488}# + #{mod\ 4478}# #f)) - (lambda (#{type\ 1258}# - #{value\ 1259}# - #{e\ 1260}# - #{w\ 1261}# - #{s\ 1262}# - #{mod\ 1263}#) - (if (memv #{type\ 1258}# + (lambda (#{type\ 4515}# + #{value\ 4516}# + #{e\ 4517}# + #{w\ 4518}# + #{s\ 4519}# + #{mod\ 4520}#) + (if (memv #{type\ 4515}# '(define-form)) - (let ((#{id\ 1273}# - (#{wrap\ 313}# - #{value\ 1259}# - #{w\ 1261}# - #{mod\ 1263}#)) - (#{label\ 1274}# - (#{gen-label\ 260}#))) - (let ((#{var\ 1276}# - (#{gen-var\ 357}# - #{id\ 1273}#))) + (let ((#{id\ 4530}# + (#{wrap\ 3570}# + #{value\ 4516}# + #{w\ 4518}# + #{mod\ 4520}#)) + (#{label\ 4531}# + (#{gen-label\ 3517}#))) + (let ((#{var\ 4533}# + (#{gen-var\ 3614}# + #{id\ 4530}#))) (begin - (#{extend-ribcage!\ 289}# - #{ribcage\ 1231}# - #{id\ 1273}# - #{label\ 1274}#) - (#{parse\ 1243}# - (cdr #{body\ 1244}#) - (cons #{id\ 1273}# - #{ids\ 1245}#) - (cons #{label\ 1274}# - #{labels\ 1246}#) - (cons #{id\ 1273}# - #{var-ids\ 1247}#) - (cons #{var\ 1276}# - #{vars\ 1248}#) - (cons (cons #{er\ 1256}# - (#{wrap\ 313}# - #{e\ 1260}# - #{w\ 1261}# - #{mod\ 1263}#)) - #{vals\ 1249}#) + (#{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}#) (cons (cons 'lexical - #{var\ 1276}#) - #{bindings\ 1250}#))))) - (if (memv #{type\ 1258}# + #{var\ 4533}#) + #{bindings\ 4507}#))))) + (if (memv #{type\ 4515}# '(define-syntax-form)) - (let ((#{id\ 1281}# - (#{wrap\ 313}# - #{value\ 1259}# - #{w\ 1261}# - #{mod\ 1263}#)) - (#{label\ 1282}# - (#{gen-label\ 260}#))) + (let ((#{id\ 4538}# + (#{wrap\ 3570}# + #{value\ 4516}# + #{w\ 4518}# + #{mod\ 4520}#)) + (#{label\ 4539}# + (#{gen-label\ 3517}#))) (begin - (#{extend-ribcage!\ 289}# - #{ribcage\ 1231}# - #{id\ 1281}# - #{label\ 1282}#) - (#{parse\ 1243}# - (cdr #{body\ 1244}#) - (cons #{id\ 1281}# - #{ids\ 1245}#) - (cons #{label\ 1282}# - #{labels\ 1246}#) - #{var-ids\ 1247}# - #{vars\ 1248}# - #{vals\ 1249}# + (#{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}# (cons (cons 'macro - (cons #{er\ 1256}# - (#{wrap\ 313}# - #{e\ 1260}# - #{w\ 1261}# - #{mod\ 1263}#))) - #{bindings\ 1250}#)))) - (if (memv #{type\ 1258}# + (cons #{er\ 4513}# + (#{wrap\ 3570}# + #{e\ 4517}# + #{w\ 4518}# + #{mod\ 4520}#))) + #{bindings\ 4507}#)))) + (if (memv #{type\ 4515}# '(begin-form)) - ((lambda (#{tmp\ 1285}#) - ((lambda (#{tmp\ 1286}#) - (if #{tmp\ 1286}# - (apply (lambda (#{_\ 1289}# - #{e1\ 1290}#) - (#{parse\ 1243}# - (letrec ((#{f\ 1293}# - (lambda (#{forms\ 1294}#) - (if (null? #{forms\ 1294}#) - (cdr #{body\ 1244}#) - (cons (cons #{er\ 1256}# - (#{wrap\ 313}# - (car #{forms\ 1294}#) - #{w\ 1261}# - #{mod\ 1263}#)) - (#{f\ 1293}# - (cdr #{forms\ 1294}#))))))) - (#{f\ 1293}# - #{e1\ 1290}#)) - #{ids\ 1245}# - #{labels\ 1246}# - #{var-ids\ 1247}# - #{vars\ 1248}# - #{vals\ 1249}# - #{bindings\ 1250}#)) - #{tmp\ 1286}#) + ((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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1285}#))) + #{tmp\ 4542}#))) ($sc-dispatch - #{tmp\ 1285}# + #{tmp\ 4542}# '(any . each-any)))) - #{e\ 1260}#) - (if (memv #{type\ 1258}# + #{e\ 4517}#) + (if (memv #{type\ 4515}# '(local-syntax-form)) - (#{chi-local-syntax\ 339}# - #{value\ 1259}# - #{e\ 1260}# - #{er\ 1256}# - #{w\ 1261}# - #{s\ 1262}# - #{mod\ 1263}# - (lambda (#{forms\ 1297}# - #{er\ 1298}# - #{w\ 1299}# - #{s\ 1300}# - #{mod\ 1301}#) - (#{parse\ 1243}# - (letrec ((#{f\ 1309}# - (lambda (#{forms\ 1310}#) - (if (null? #{forms\ 1310}#) - (cdr #{body\ 1244}#) - (cons (cons #{er\ 1298}# - (#{wrap\ 313}# - (car #{forms\ 1310}#) - #{w\ 1299}# - #{mod\ 1301}#)) - (#{f\ 1309}# - (cdr #{forms\ 1310}#))))))) - (#{f\ 1309}# - #{forms\ 1297}#)) - #{ids\ 1245}# - #{labels\ 1246}# - #{var-ids\ 1247}# - #{vars\ 1248}# - #{vals\ 1249}# - #{bindings\ 1250}#))) - (if (null? #{ids\ 1245}#) - (#{build-sequence\ 196}# + (#{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}# #f - (map (lambda (#{x\ 1313}#) - (#{chi\ 329}# - (cdr #{x\ 1313}#) - (car #{x\ 1313}#) + (map (lambda (#{x\ 4570}#) + (#{chi\ 3586}# + (cdr #{x\ 4570}#) + (car #{x\ 4570}#) '(()) - #{mod\ 1263}#)) - (cons (cons #{er\ 1256}# - (#{source-wrap\ 315}# - #{e\ 1260}# - #{w\ 1261}# - #{s\ 1262}# - #{mod\ 1263}#)) - (cdr #{body\ 1244}#)))) + #{mod\ 4520}#)) + (cons (cons #{er\ 4513}# + (#{source-wrap\ 3572}# + #{e\ 4517}# + #{w\ 4518}# + #{s\ 4519}# + #{mod\ 4520}#)) + (cdr #{body\ 4501}#)))) (begin - (if (not (#{valid-bound-ids?\ 307}# - #{ids\ 1245}#)) + (if (not (#{valid-bound-ids?\ 3564}# + #{ids\ 4502}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1218}#)) - (letrec ((#{loop\ 1320}# - (lambda (#{bs\ 1321}# - #{er-cache\ 1322}# - #{r-cache\ 1323}#) - (if (not (null? #{bs\ 1321}#)) - (let ((#{b\ 1326}# - (car #{bs\ 1321}#))) - (if (eq? (car #{b\ 1326}#) + #{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}#) 'macro) - (let ((#{er\ 1329}# - (cadr #{b\ 1326}#))) - (let ((#{r-cache\ 1331}# - (if (eq? #{er\ 1329}# - #{er-cache\ 1322}#) - #{r-cache\ 1323}# - (#{macros-only-env\ 236}# - #{er\ 1329}#)))) + (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}#)))) (begin (set-cdr! - #{b\ 1326}# - (#{eval-local-transformer\ 341}# - (#{chi\ 329}# - (cddr #{b\ 1326}#) - #{r-cache\ 1331}# + #{b\ 4583}# + (#{eval-local-transformer\ 3598}# + (#{chi\ 3586}# + (cddr #{b\ 4583}#) + #{r-cache\ 4588}# '(()) - #{mod\ 1263}#) - #{mod\ 1263}#)) - (#{loop\ 1320}# - (cdr #{bs\ 1321}#) - #{er\ 1329}# - #{r-cache\ 1331}#)))) - (#{loop\ 1320}# - (cdr #{bs\ 1321}#) - #{er-cache\ 1322}# - #{r-cache\ 1323}#))))))) - (#{loop\ 1320}# - #{bindings\ 1250}# + #{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}# #f #f)) (set-cdr! - #{r\ 1229}# - (#{extend-env\ 232}# - #{labels\ 1246}# - #{bindings\ 1250}# - (cdr #{r\ 1229}#))) - (#{build-letrec\ 202}# + #{r\ 4486}# + (#{extend-env\ 3489}# + #{labels\ 4503}# + #{bindings\ 4507}# + (cdr #{r\ 4486}#))) + (#{build-letrec\ 3459}# #f (map syntax->datum - #{var-ids\ 1247}#) - #{vars\ 1248}# - (map (lambda (#{x\ 1334}#) - (#{chi\ 329}# - (cdr #{x\ 1334}#) - (car #{x\ 1334}#) + #{var-ids\ 4504}#) + #{vars\ 4505}# + (map (lambda (#{x\ 4591}#) + (#{chi\ 3586}# + (cdr #{x\ 4591}#) + (car #{x\ 4591}#) '(()) - #{mod\ 1263}#)) - #{vals\ 1249}#) - (#{build-sequence\ 196}# + #{mod\ 4520}#)) + #{vals\ 4506}#) + (#{build-sequence\ 3453}# #f - (map (lambda (#{x\ 1338}#) - (#{chi\ 329}# - (cdr #{x\ 1338}#) - (car #{x\ 1338}#) + (map (lambda (#{x\ 4595}#) + (#{chi\ 3586}# + (cdr #{x\ 4595}#) + (car #{x\ 4595}#) '(()) - #{mod\ 1263}#)) - (cons (cons #{er\ 1256}# - (#{source-wrap\ 315}# - #{e\ 1260}# - #{w\ 1261}# - #{s\ 1262}# - #{mod\ 1263}#)) - (cdr #{body\ 1244}#)))))))))))))))))) - (#{parse\ 1243}# - (map (lambda (#{x\ 1251}#) - (cons #{r\ 1229}# - (#{wrap\ 313}# - #{x\ 1251}# - #{w\ 1234}# - #{mod\ 1221}#))) - #{body\ 1217}#) + #{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}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 335}# - (lambda (#{p\ 1341}# - #{e\ 1342}# - #{r\ 1343}# - #{w\ 1344}# - #{rib\ 1345}# - #{mod\ 1346}#) - (letrec ((#{rebuild-macro-output\ 1354}# - (lambda (#{x\ 1355}# #{m\ 1356}#) - (if (pair? #{x\ 1355}#) - (cons (#{rebuild-macro-output\ 1354}# - (car #{x\ 1355}#) - #{m\ 1356}#) - (#{rebuild-macro-output\ 1354}# - (cdr #{x\ 1355}#) - #{m\ 1356}#)) - (if (#{syntax-object?\ 208}# #{x\ 1355}#) - (let ((#{w\ 1364}# - (#{syntax-object-wrap\ 212}# - #{x\ 1355}#))) - (let ((#{ms\ 1367}# - (#{wrap-marks\ 251}# #{w\ 1364}#)) - (#{s\ 1368}# - (#{wrap-subst\ 253}# #{w\ 1364}#))) - (if (if (pair? #{ms\ 1367}#) - (eq? (car #{ms\ 1367}#) #f) + (#{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) #f) - (#{make-syntax-object\ 206}# - (#{syntax-object-expression\ 210}# - #{x\ 1355}#) - (#{make-wrap\ 249}# - (cdr #{ms\ 1367}#) - (if #{rib\ 1345}# - (cons #{rib\ 1345}# - (cdr #{s\ 1368}#)) - (cdr #{s\ 1368}#))) - (#{syntax-object-module\ 214}# - #{x\ 1355}#)) - (#{make-syntax-object\ 206}# - (#{syntax-object-expression\ 210}# - #{x\ 1355}#) - (#{make-wrap\ 249}# - (cons #{m\ 1356}# #{ms\ 1367}#) - (if #{rib\ 1345}# - (cons #{rib\ 1345}# + (#{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}# (cons 'shift - #{s\ 1368}#)) - (cons (quote shift) #{s\ 1368}#))) + #{s\ 4625}#)) + (cons (quote shift) #{s\ 4625}#))) (cons 'hygiene - (cdr #{p\ 1341}#)))))) - (if (vector? #{x\ 1355}#) - (let ((#{n\ 1376}# - (vector-length #{x\ 1355}#))) - (let ((#{v\ 1378}# - (make-vector #{n\ 1376}#))) - (letrec ((#{loop\ 1381}# - (lambda (#{i\ 1382}#) - (if (#{fx=\ 149}# - #{i\ 1382}# - #{n\ 1376}#) + (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}#) (begin (if #f #f) - #{v\ 1378}#) + #{v\ 4635}#) (begin (vector-set! - #{v\ 1378}# - #{i\ 1382}# - (#{rebuild-macro-output\ 1354}# + #{v\ 4635}# + #{i\ 4639}# + (#{rebuild-macro-output\ 4611}# (vector-ref - #{x\ 1355}# - #{i\ 1382}#) - #{m\ 1356}#)) - (#{loop\ 1381}# - (#{fx+\ 145}# - #{i\ 1382}# + #{x\ 4612}# + #{i\ 4639}#) + #{m\ 4613}#)) + (#{loop\ 4638}# + (#{fx+\ 3402}# + #{i\ 4639}# 1))))))) - (#{loop\ 1381}# 0)))) - (if (symbol? #{x\ 1355}#) + (#{loop\ 4638}# 0)))) + (if (symbol? #{x\ 4612}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 315}# - #{e\ 1342}# - #{w\ 1344}# - (#{wrap-subst\ 253}# #{w\ 1344}#) - #{mod\ 1346}#) - #{x\ 1355}#) - #{x\ 1355}#))))))) - (#{rebuild-macro-output\ 1354}# - ((car #{p\ 1341}#) - (#{wrap\ 313}# - #{e\ 1342}# - (#{anti-mark\ 285}# #{w\ 1344}#) - #{mod\ 1346}#)) + (#{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}#)) (gensym "m"))))) - (#{chi-application\ 333}# - (lambda (#{x\ 1389}# - #{e\ 1390}# - #{r\ 1391}# - #{w\ 1392}# - #{s\ 1393}# - #{mod\ 1394}#) - ((lambda (#{tmp\ 1401}#) - ((lambda (#{tmp\ 1402}#) - (if #{tmp\ 1402}# - (apply (lambda (#{e0\ 1405}# #{e1\ 1406}#) - (#{build-application\ 166}# - #{s\ 1393}# - #{x\ 1389}# - (map (lambda (#{e\ 1407}#) - (#{chi\ 329}# - #{e\ 1407}# - #{r\ 1391}# - #{w\ 1392}# - #{mod\ 1394}#)) - #{e1\ 1406}#))) - #{tmp\ 1402}#) + (#{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1401}#))) + #{tmp\ 4658}#))) ($sc-dispatch - #{tmp\ 1401}# + #{tmp\ 4658}# '(any . each-any)))) - #{e\ 1390}#))) - (#{chi-expr\ 331}# - (lambda (#{type\ 1410}# - #{value\ 1411}# - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (lexical))) - (#{build-lexical-reference\ 172}# + #{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}# 'value - #{s\ 1415}# - #{e\ 1412}# - #{value\ 1411}#) - (if (memv #{type\ 1410}# (quote (core core-form))) - (#{value\ 1411}# - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (module-ref))) + #{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))) (call-with-values - (lambda () (#{value\ 1411}# #{e\ 1412}#)) - (lambda (#{id\ 1427}# #{mod\ 1428}#) - (#{build-global-reference\ 178}# - #{s\ 1415}# - #{id\ 1427}# - #{mod\ 1428}#))) - (if (memv #{type\ 1410}# (quote (lexical-call))) - (#{chi-application\ 333}# - (#{build-lexical-reference\ 172}# + (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}# 'fun - (#{source-annotation\ 223}# (car #{e\ 1412}#)) - (car #{e\ 1412}#) - #{value\ 1411}#) - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (global-call))) - (#{chi-application\ 333}# - (#{build-global-reference\ 178}# - (#{source-annotation\ 223}# (car #{e\ 1412}#)) - (if (#{syntax-object?\ 208}# #{value\ 1411}#) - (#{syntax-object-expression\ 210}# - #{value\ 1411}#) - #{value\ 1411}#) - (if (#{syntax-object?\ 208}# #{value\ 1411}#) - (#{syntax-object-module\ 214}# #{value\ 1411}#) - #{mod\ 1416}#)) - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (constant))) - (#{build-data\ 194}# - #{s\ 1415}# - (#{strip\ 355}# - (#{source-wrap\ 315}# - #{e\ 1412}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) + (#{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}#) '(()))) - (if (memv #{type\ 1410}# (quote (global))) - (#{build-global-reference\ 178}# - #{s\ 1415}# - #{value\ 1411}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (call))) - (#{chi-application\ 333}# - (#{chi\ 329}# - (car #{e\ 1412}#) - #{r\ 1413}# - #{w\ 1414}# - #{mod\ 1416}#) - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (if (memv #{type\ 1410}# (quote (begin-form))) - ((lambda (#{tmp\ 1438}#) - ((lambda (#{tmp\ 1439}#) - (if #{tmp\ 1439}# - (apply (lambda (#{_\ 1443}# - #{e1\ 1444}# - #{e2\ 1445}#) - (#{chi-sequence\ 317}# - (cons #{e1\ 1444}# - #{e2\ 1445}#) - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#)) - #{tmp\ 1439}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1438}#))) + #{tmp\ 4695}#))) ($sc-dispatch - #{tmp\ 1438}# + #{tmp\ 4695}# '(any any . each-any)))) - #{e\ 1412}#) - (if (memv #{type\ 1410}# + #{e\ 4669}#) + (if (memv #{type\ 4667}# '(local-syntax-form)) - (#{chi-local-syntax\ 339}# - #{value\ 1411}# - #{e\ 1412}# - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}# - #{chi-sequence\ 317}#) - (if (memv #{type\ 1410}# + (#{chi-local-syntax\ 3596}# + #{value\ 4668}# + #{e\ 4669}# + #{r\ 4670}# + #{w\ 4671}# + #{s\ 4672}# + #{mod\ 4673}# + #{chi-sequence\ 3574}#) + (if (memv #{type\ 4667}# '(eval-when-form)) - ((lambda (#{tmp\ 1449}#) - ((lambda (#{tmp\ 1450}#) - (if #{tmp\ 1450}# - (apply (lambda (#{_\ 1455}# - #{x\ 1456}# - #{e1\ 1457}# - #{e2\ 1458}#) - (let ((#{when-list\ 1460}# - (#{chi-when-list\ 323}# - #{e\ 1412}# - #{x\ 1456}# - #{w\ 1414}#))) + ((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}#))) (if (memq 'eval - #{when-list\ 1460}#) - (#{chi-sequence\ 317}# - (cons #{e1\ 1457}# - #{e2\ 1458}#) - #{r\ 1413}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#) - (#{chi-void\ 343}#)))) - #{tmp\ 1450}#) + #{when-list\ 4717}#) + (#{chi-sequence\ 3574}# + (cons #{e1\ 4714}# + #{e2\ 4715}#) + #{r\ 4670}# + #{w\ 4671}# + #{s\ 4672}# + #{mod\ 4673}#) + (#{chi-void\ 3600}#)))) + #{tmp\ 4707}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1449}#))) + #{tmp\ 4706}#))) ($sc-dispatch - #{tmp\ 1449}# + #{tmp\ 4706}# '(any each-any any . each-any)))) - #{e\ 1412}#) - (if (memv #{type\ 1410}# + #{e\ 4669}#) + (if (memv #{type\ 4667}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1412}# - (#{wrap\ 313}# - #{value\ 1411}# - #{w\ 1414}# - #{mod\ 1416}#)) - (if (memv #{type\ 1410}# + #{e\ 4669}# + (#{wrap\ 3570}# + #{value\ 4668}# + #{w\ 4671}# + #{mod\ 4673}#)) + (if (memv #{type\ 4667}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 315}# - #{e\ 1412}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#)) - (if (memv #{type\ 1410}# + (#{source-wrap\ 3572}# + #{e\ 4669}# + #{w\ 4671}# + #{s\ 4672}# + #{mod\ 4673}#)) + (if (memv #{type\ 4667}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 315}# - #{e\ 1412}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#)) + (#{source-wrap\ 3572}# + #{e\ 4669}# + #{w\ 4671}# + #{s\ 4672}# + #{mod\ 4673}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 315}# - #{e\ 1412}# - #{w\ 1414}# - #{s\ 1415}# - #{mod\ 1416}#)))))))))))))))))) - (#{chi\ 329}# - (lambda (#{e\ 1467}# - #{r\ 1468}# - #{w\ 1469}# - #{mod\ 1470}#) + (#{source-wrap\ 3572}# + #{e\ 4669}# + #{w\ 4671}# + #{s\ 4672}# + #{mod\ 4673}#)))))))))))))))))) + (#{chi\ 3586}# + (lambda (#{e\ 4724}# + #{r\ 4725}# + #{w\ 4726}# + #{mod\ 4727}#) (call-with-values (lambda () - (#{syntax-type\ 325}# - #{e\ 1467}# - #{r\ 1468}# - #{w\ 1469}# - (#{source-annotation\ 223}# #{e\ 1467}#) + (#{syntax-type\ 3582}# + #{e\ 4724}# + #{r\ 4725}# + #{w\ 4726}# + (#{source-annotation\ 3480}# #{e\ 4724}#) #f - #{mod\ 1470}# + #{mod\ 4727}# #f)) - (lambda (#{type\ 1475}# - #{value\ 1476}# - #{e\ 1477}# - #{w\ 1478}# - #{s\ 1479}# - #{mod\ 1480}#) - (#{chi-expr\ 331}# - #{type\ 1475}# - #{value\ 1476}# - #{e\ 1477}# - #{r\ 1468}# - #{w\ 1478}# - #{s\ 1479}# - #{mod\ 1480}#))))) - (#{chi-top\ 327}# - (lambda (#{e\ 1487}# - #{r\ 1488}# - #{w\ 1489}# - #{m\ 1490}# - #{esew\ 1491}# - #{mod\ 1492}#) + (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}#) (call-with-values (lambda () - (#{syntax-type\ 325}# - #{e\ 1487}# - #{r\ 1488}# - #{w\ 1489}# - (#{source-annotation\ 223}# #{e\ 1487}#) + (#{syntax-type\ 3582}# + #{e\ 4744}# + #{r\ 4745}# + #{w\ 4746}# + (#{source-annotation\ 3480}# #{e\ 4744}#) #f - #{mod\ 1492}# + #{mod\ 4749}# #f)) - (lambda (#{type\ 1513}# - #{value\ 1514}# - #{e\ 1515}# - #{w\ 1516}# - #{s\ 1517}# - #{mod\ 1518}#) - (if (memv #{type\ 1513}# (quote (begin-form))) - ((lambda (#{tmp\ 1526}#) - ((lambda (#{tmp\ 1527}#) - (if #{tmp\ 1527}# - (apply (lambda (#{_\ 1529}#) (#{chi-void\ 343}#)) - #{tmp\ 1527}#) - ((lambda (#{tmp\ 1530}#) - (if #{tmp\ 1530}# - (apply (lambda (#{_\ 1534}# - #{e1\ 1535}# - #{e2\ 1536}#) - (#{chi-top-sequence\ 319}# - (cons #{e1\ 1535}# #{e2\ 1536}#) - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# - #{m\ 1490}# - #{esew\ 1491}# - #{mod\ 1518}#)) - #{tmp\ 1530}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1526}#))) + #{tmp\ 4783}#))) ($sc-dispatch - #{tmp\ 1526}# + #{tmp\ 4783}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1526}# (quote (any))))) - #{e\ 1515}#) - (if (memv #{type\ 1513}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 339}# - #{value\ 1514}# - #{e\ 1515}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# - #{mod\ 1518}# - (lambda (#{body\ 1539}# - #{r\ 1540}# - #{w\ 1541}# - #{s\ 1542}# - #{mod\ 1543}#) - (#{chi-top-sequence\ 319}# - #{body\ 1539}# - #{r\ 1540}# - #{w\ 1541}# - #{s\ 1542}# - #{m\ 1490}# - #{esew\ 1491}# - #{mod\ 1543}#))) - (if (memv #{type\ 1513}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1550}#) - ((lambda (#{tmp\ 1551}#) - (if #{tmp\ 1551}# - (apply (lambda (#{_\ 1556}# - #{x\ 1557}# - #{e1\ 1558}# - #{e2\ 1559}#) - (let ((#{when-list\ 1562}# - (#{chi-when-list\ 323}# - #{e\ 1515}# - #{x\ 1557}# - #{w\ 1516}#)) - (#{body\ 1563}# - (cons #{e1\ 1558}# - #{e2\ 1559}#))) - (if (eq? #{m\ 1490}# (quote e)) + ($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)) (if (memq 'eval - #{when-list\ 1562}#) - (#{chi-top-sequence\ 319}# - #{body\ 1563}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# + #{when-list\ 4819}#) + (#{chi-top-sequence\ 3576}# + #{body\ 4820}# + #{r\ 4745}# + #{w\ 4773}# + #{s\ 4774}# 'e '(eval) - #{mod\ 1518}#) - (#{chi-void\ 343}#)) + #{mod\ 4775}#) + (#{chi-void\ 3600}#)) (if (memq 'load - #{when-list\ 1562}#) - (if (let ((#{t\ 1572}# + #{when-list\ 4819}#) + (if (let ((#{t\ 4829}# (memq 'compile - #{when-list\ 1562}#))) - (if #{t\ 1572}# - #{t\ 1572}# - (if (eq? #{m\ 1490}# + #{when-list\ 4819}#))) + (if #{t\ 4829}# + #{t\ 4829}# + (if (eq? #{m\ 4747}# 'c&e) (memq 'eval - #{when-list\ 1562}#) + #{when-list\ 4819}#) #f))) - (#{chi-top-sequence\ 319}# - #{body\ 1563}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# + (#{chi-top-sequence\ 3576}# + #{body\ 4820}# + #{r\ 4745}# + #{w\ 4773}# + #{s\ 4774}# 'c&e '(compile load) - #{mod\ 1518}#) - (if (memq #{m\ 1490}# + #{mod\ 4775}#) + (if (memq #{m\ 4747}# '(c c&e)) - (#{chi-top-sequence\ 319}# - #{body\ 1563}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# + (#{chi-top-sequence\ 3576}# + #{body\ 4820}# + #{r\ 4745}# + #{w\ 4773}# + #{s\ 4774}# 'c '(load) - #{mod\ 1518}#) - (#{chi-void\ 343}#))) - (if (let ((#{t\ 1580}# + #{mod\ 4775}#) + (#{chi-void\ 3600}#))) + (if (let ((#{t\ 4837}# (memq 'compile - #{when-list\ 1562}#))) - (if #{t\ 1580}# - #{t\ 1580}# - (if (eq? #{m\ 1490}# + #{when-list\ 4819}#))) + (if #{t\ 4837}# + #{t\ 4837}# + (if (eq? #{m\ 4747}# 'c&e) (memq 'eval - #{when-list\ 1562}#) + #{when-list\ 4819}#) #f))) (begin - (#{top-level-eval-hook\ 153}# - (#{chi-top-sequence\ 319}# - #{body\ 1563}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# + (#{top-level-eval-hook\ 3410}# + (#{chi-top-sequence\ 3576}# + #{body\ 4820}# + #{r\ 4745}# + #{w\ 4773}# + #{s\ 4774}# 'e '(eval) - #{mod\ 1518}#) - #{mod\ 1518}#) - (#{chi-void\ 343}#)) - (#{chi-void\ 343}#)))))) - #{tmp\ 1551}#) + #{mod\ 4775}#) + #{mod\ 4775}#) + (#{chi-void\ 3600}#)) + (#{chi-void\ 3600}#)))))) + #{tmp\ 4808}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1550}#))) + #{tmp\ 4807}#))) ($sc-dispatch - #{tmp\ 1550}# + #{tmp\ 4807}# '(any each-any any . each-any)))) - #{e\ 1515}#) - (if (memv #{type\ 1513}# + #{e\ 4772}#) + (if (memv #{type\ 4770}# '(define-syntax-form)) - (let ((#{n\ 1588}# - (#{id-var-name\ 301}# - #{value\ 1514}# - #{w\ 1516}#)) - (#{r\ 1589}# - (#{macros-only-env\ 236}# #{r\ 1488}#))) - (if (memv #{m\ 1490}# (quote (c))) - (if (memq (quote compile) #{esew\ 1491}#) - (let ((#{e\ 1592}# - (#{chi-install-global\ 321}# - #{n\ 1588}# - (#{chi\ 329}# - #{e\ 1515}# - #{r\ 1589}# - #{w\ 1516}# - #{mod\ 1518}#)))) + (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}#)))) (begin - (#{top-level-eval-hook\ 153}# - #{e\ 1592}# - #{mod\ 1518}#) - (if (memq (quote load) #{esew\ 1491}#) - #{e\ 1592}# - (#{chi-void\ 343}#)))) - (if (memq (quote load) #{esew\ 1491}#) - (#{chi-install-global\ 321}# - #{n\ 1588}# - (#{chi\ 329}# - #{e\ 1515}# - #{r\ 1589}# - #{w\ 1516}# - #{mod\ 1518}#)) - (#{chi-void\ 343}#))) - (if (memv #{m\ 1490}# (quote (c&e))) - (let ((#{e\ 1595}# - (#{chi-install-global\ 321}# - #{n\ 1588}# - (#{chi\ 329}# - #{e\ 1515}# - #{r\ 1589}# - #{w\ 1516}# - #{mod\ 1518}#)))) + (#{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}#)))) (begin - (#{top-level-eval-hook\ 153}# - #{e\ 1595}# - #{mod\ 1518}#) - #{e\ 1595}#)) + (#{top-level-eval-hook\ 3410}# + #{e\ 4852}# + #{mod\ 4775}#) + #{e\ 4852}#)) (begin - (if (memq (quote eval) #{esew\ 1491}#) - (#{top-level-eval-hook\ 153}# - (#{chi-install-global\ 321}# - #{n\ 1588}# - (#{chi\ 329}# - #{e\ 1515}# - #{r\ 1589}# - #{w\ 1516}# - #{mod\ 1518}#)) - #{mod\ 1518}#)) - (#{chi-void\ 343}#))))) - (if (memv #{type\ 1513}# (quote (define-form))) - (let ((#{n\ 1600}# - (#{id-var-name\ 301}# - #{value\ 1514}# - #{w\ 1516}#))) - (let ((#{type\ 1602}# - (#{binding-type\ 227}# - (#{lookup\ 238}# - #{n\ 1600}# - #{r\ 1488}# - #{mod\ 1518}#)))) - (if (memv #{type\ 1602}# + (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}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 1600}#)) + #{n\ 4857}#)) (current-module) #f) - (let ((#{old\ 1607}# + (let ((#{old\ 4864}# (module-variable (current-module) - #{n\ 1600}#))) + #{n\ 4857}#))) (module-define! (current-module) - #{n\ 1600}# - (if (variable? #{old\ 1607}#) - (variable-ref #{old\ 1607}#) + #{n\ 4857}# + (if (variable? #{old\ 4864}#) + (variable-ref #{old\ 4864}#) #f)))) - (let ((#{x\ 1610}# - (#{build-global-definition\ 184}# - #{s\ 1517}# - #{n\ 1600}# - (#{chi\ 329}# - #{e\ 1515}# - #{r\ 1488}# - #{w\ 1516}# - #{mod\ 1518}#)))) + (let ((#{x\ 4867}# + (#{build-global-definition\ 3441}# + #{s\ 4774}# + #{n\ 4857}# + (#{chi\ 3586}# + #{e\ 4772}# + #{r\ 4745}# + #{w\ 4773}# + #{mod\ 4775}#)))) (begin - (if (eq? #{m\ 1490}# (quote c&e)) - (#{top-level-eval-hook\ 153}# - #{x\ 1610}# - #{mod\ 1518}#)) - #{x\ 1610}#))) - (if (memv #{type\ 1602}# + (if (eq? #{m\ 4747}# (quote c&e)) + (#{top-level-eval-hook\ 3410}# + #{x\ 4867}# + #{mod\ 4775}#)) + #{x\ 4867}#))) + (if (memv #{type\ 4859}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1515}# - (#{wrap\ 313}# - #{value\ 1514}# - #{w\ 1516}# - #{mod\ 1518}#)) + #{e\ 4772}# + (#{wrap\ 3570}# + #{value\ 4771}# + #{w\ 4773}# + #{mod\ 4775}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1515}# - (#{wrap\ 313}# - #{value\ 1514}# - #{w\ 1516}# - #{mod\ 1518}#)))))) - (let ((#{x\ 1616}# - (#{chi-expr\ 331}# - #{type\ 1513}# - #{value\ 1514}# - #{e\ 1515}# - #{r\ 1488}# - #{w\ 1516}# - #{s\ 1517}# - #{mod\ 1518}#))) + #{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}#))) (begin - (if (eq? #{m\ 1490}# (quote c&e)) - (#{top-level-eval-hook\ 153}# - #{x\ 1616}# - #{mod\ 1518}#)) - #{x\ 1616}#))))))))))) - (#{syntax-type\ 325}# - (lambda (#{e\ 1617}# - #{r\ 1618}# - #{w\ 1619}# - #{s\ 1620}# - #{rib\ 1621}# - #{mod\ 1622}# - #{for-car?\ 1623}#) - (if (symbol? #{e\ 1617}#) - (let ((#{n\ 1635}# - (#{id-var-name\ 301}# #{e\ 1617}# #{w\ 1619}#))) - (let ((#{b\ 1637}# - (#{lookup\ 238}# - #{n\ 1635}# - #{r\ 1618}# - #{mod\ 1622}#))) - (let ((#{type\ 1639}# - (#{binding-type\ 227}# #{b\ 1637}#))) - (if (memv #{type\ 1639}# (quote (lexical))) + (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))) (values - #{type\ 1639}# - (#{binding-value\ 229}# #{b\ 1637}#) - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{type\ 1639}# (quote (global))) + #{type\ 4896}# + (#{binding-value\ 3486}# #{b\ 4894}#) + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{type\ 4896}# (quote (global))) (values - #{type\ 1639}# - #{n\ 1635}# - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{type\ 1639}# (quote (macro))) - (if #{for-car?\ 1623}# + #{type\ 4896}# + #{n\ 4892}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{type\ 4896}# (quote (macro))) + (if #{for-car?\ 4880}# (values - #{type\ 1639}# - (#{binding-value\ 229}# #{b\ 1637}#) - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (#{syntax-type\ 325}# - (#{chi-macro\ 335}# - (#{binding-value\ 229}# #{b\ 1637}#) - #{e\ 1617}# - #{r\ 1618}# - #{w\ 1619}# - #{rib\ 1621}# - #{mod\ 1622}#) - #{r\ 1618}# + #{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}# '(()) - #{s\ 1620}# - #{rib\ 1621}# - #{mod\ 1622}# + #{s\ 4877}# + #{rib\ 4878}# + #{mod\ 4879}# #f)) (values - #{type\ 1639}# - (#{binding-value\ 229}# #{b\ 1637}#) - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#))))))) - (if (pair? #{e\ 1617}#) - (let ((#{first\ 1648}# (car #{e\ 1617}#))) + #{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}#))) (call-with-values (lambda () - (#{syntax-type\ 325}# - #{first\ 1648}# - #{r\ 1618}# - #{w\ 1619}# - #{s\ 1620}# - #{rib\ 1621}# - #{mod\ 1622}# + (#{syntax-type\ 3582}# + #{first\ 4905}# + #{r\ 4875}# + #{w\ 4876}# + #{s\ 4877}# + #{rib\ 4878}# + #{mod\ 4879}# #t)) - (lambda (#{ftype\ 1649}# - #{fval\ 1650}# - #{fe\ 1651}# - #{fw\ 1652}# - #{fs\ 1653}# - #{fmod\ 1654}#) - (if (memv #{ftype\ 1649}# (quote (lexical))) + (lambda (#{ftype\ 4906}# + #{fval\ 4907}# + #{fe\ 4908}# + #{fw\ 4909}# + #{fs\ 4910}# + #{fmod\ 4911}#) + (if (memv #{ftype\ 4906}# (quote (lexical))) (values 'lexical-call - #{fval\ 1650}# - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# (quote (global))) + #{fval\ 4907}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{ftype\ 4906}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 206}# - #{fval\ 1650}# - #{w\ 1619}# - #{fmod\ 1654}#) - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# (quote (macro))) - (#{syntax-type\ 325}# - (#{chi-macro\ 335}# - #{fval\ 1650}# - #{e\ 1617}# - #{r\ 1618}# - #{w\ 1619}# - #{rib\ 1621}# - #{mod\ 1622}#) - #{r\ 1618}# + (#{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}# '(()) - #{s\ 1620}# - #{rib\ 1621}# - #{mod\ 1622}# - #{for-car?\ 1623}#) - (if (memv #{ftype\ 1649}# (quote (module-ref))) + #{s\ 4877}# + #{rib\ 4878}# + #{mod\ 4879}# + #{for-car?\ 4880}#) + (if (memv #{ftype\ 4906}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 1650}# #{e\ 1617}#)) - (lambda (#{sym\ 1666}# #{mod\ 1667}#) - (#{syntax-type\ 325}# - #{sym\ 1666}# - #{r\ 1618}# - #{w\ 1619}# - #{s\ 1620}# - #{rib\ 1621}# - #{mod\ 1667}# - #{for-car?\ 1623}#))) - (if (memv #{ftype\ 1649}# (quote (core))) + (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))) (values 'core-form - #{fval\ 1650}# - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# + #{fval\ 4907}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{ftype\ 4906}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1650}# - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# (quote (begin))) + #{fval\ 4907}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{ftype\ 4906}# (quote (begin))) (values 'begin-form #f - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{ftype\ 4906}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) - (if (memv #{ftype\ 1649}# + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) + (if (memv #{ftype\ 4906}# '(define)) - ((lambda (#{tmp\ 1675}#) - ((lambda (#{tmp\ 1676}#) - (if (if #{tmp\ 1676}# - (apply (lambda (#{_\ 1680}# - #{name\ 1681}# - #{val\ 1682}#) - (#{id?\ 244}# - #{name\ 1681}#)) - #{tmp\ 1676}#) + ((lambda (#{tmp\ 4932}#) + ((lambda (#{tmp\ 4933}#) + (if (if #{tmp\ 4933}# + (apply (lambda (#{_\ 4937}# + #{name\ 4938}# + #{val\ 4939}#) + (#{id?\ 3501}# + #{name\ 4938}#)) + #{tmp\ 4933}#) #f) - (apply (lambda (#{_\ 1686}# - #{name\ 1687}# - #{val\ 1688}#) + (apply (lambda (#{_\ 4943}# + #{name\ 4944}# + #{val\ 4945}#) (values 'define-form - #{name\ 1687}# - #{val\ 1688}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#)) - #{tmp\ 1676}#) - ((lambda (#{tmp\ 1689}#) - (if (if #{tmp\ 1689}# - (apply (lambda (#{_\ 1695}# - #{name\ 1696}# - #{args\ 1697}# - #{e1\ 1698}# - #{e2\ 1699}#) - (if (#{id?\ 244}# - #{name\ 1696}#) - (#{valid-bound-ids?\ 307}# - (#{lambda-var-list\ 359}# - #{args\ 1697}#)) + #{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}#)) #f)) - #{tmp\ 1689}#) + #{tmp\ 4946}#) #f) - (apply (lambda (#{_\ 1707}# - #{name\ 1708}# - #{args\ 1709}# - #{e1\ 1710}# - #{e2\ 1711}#) + (apply (lambda (#{_\ 4964}# + #{name\ 4965}# + #{args\ 4966}# + #{e1\ 4967}# + #{e2\ 4968}#) (values 'define-form - (#{wrap\ 313}# - #{name\ 1708}# - #{w\ 1619}# - #{mod\ 1622}#) - (#{decorate-source\ 162}# + (#{wrap\ 3570}# + #{name\ 4965}# + #{w\ 4876}# + #{mod\ 4879}#) + (#{decorate-source\ 3419}# (cons '#(syntax-object lambda ((top) @@ -3570,11 +3578,11 @@ (top) (top) (top)) - #("i1702" - "i1703" - "i1704" - "i1705" - "i1706")) + #("i4959" + "i4960" + "i4961" + "i4962" + "i4963")) #(ribcage () () @@ -3596,12 +3604,12 @@ (top) (top) (top)) - #("i1655" - "i1656" - "i1657" - "i1658" - "i1659" - "i1660")) + #("i4912" + "i4913" + "i4914" + "i4915" + "i4916" + "i4917")) #(ribcage () () @@ -3609,7 +3617,7 @@ #(ribcage #(first) #((top)) - #("i1647")) + #("i4904")) #(ribcage () () @@ -3637,13 +3645,13 @@ (top) (top) (top)) - #("i1624" - "i1625" - "i1626" - "i1627" - "i1628" - "i1629" - "i1630")) + #("i4881" + "i4882" + "i4883" + "i4884" + "i4885" + "i4886" + "i4887")) #(ribcage (lambda-var-list gen-var @@ -3881,160 +3889,160 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile)) - (#{wrap\ 313}# - (cons #{args\ 1709}# - (cons #{e1\ 1710}# - #{e2\ 1711}#)) - #{w\ 1619}# - #{mod\ 1622}#)) - #{s\ 1620}#) + (#{wrap\ 3570}# + (cons #{args\ 4966}# + (cons #{e1\ 4967}# + #{e2\ 4968}#)) + #{w\ 4876}# + #{mod\ 4879}#)) + #{s\ 4877}#) '(()) - #{s\ 1620}# - #{mod\ 1622}#)) - #{tmp\ 1689}#) - ((lambda (#{tmp\ 1714}#) - (if (if #{tmp\ 1714}# - (apply (lambda (#{_\ 1717}# - #{name\ 1718}#) - (#{id?\ 244}# - #{name\ 1718}#)) - #{tmp\ 1714}#) + #{s\ 4877}# + #{mod\ 4879}#)) + #{tmp\ 4946}#) + ((lambda (#{tmp\ 4971}#) + (if (if #{tmp\ 4971}# + (apply (lambda (#{_\ 4974}# + #{name\ 4975}#) + (#{id?\ 3501}# + #{name\ 4975}#)) + #{tmp\ 4971}#) #f) - (apply (lambda (#{_\ 1721}# - #{name\ 1722}#) + (apply (lambda (#{_\ 4978}# + #{name\ 4979}#) (values 'define-form - (#{wrap\ 313}# - #{name\ 1722}# - #{w\ 1619}# - #{mod\ 1622}#) + (#{wrap\ 3570}# + #{name\ 4979}# + #{w\ 4876}# + #{mod\ 4879}#) '(#(syntax-object if ((top) @@ -4043,8 +4051,8 @@ name) #((top) (top)) - #("i1719" - "i1720")) + #("i4976" + "i4977")) #(ribcage () () @@ -4066,12 +4074,12 @@ (top) (top) (top)) - #("i1655" - "i1656" - "i1657" - "i1658" - "i1659" - "i1660")) + #("i4912" + "i4913" + "i4914" + "i4915" + "i4916" + "i4917")) #(ribcage () () @@ -4079,7 +4087,7 @@ #(ribcage #(first) #((top)) - #("i1647")) + #("i4904")) #(ribcage () () @@ -4107,13 +4115,13 @@ (top) (top) (top)) - #("i1624" - "i1625" - "i1626" - "i1627" - "i1628" - "i1629" - "i1630")) + #("i4881" + "i4882" + "i4883" + "i4884" + "i4885" + "i4886" + "i4887")) #(ribcage (lambda-var-list gen-var @@ -4351,131 +4359,131 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile)) #(syntax-object @@ -4486,8 +4494,8 @@ name) #((top) (top)) - #("i1719" - "i1720")) + #("i4976" + "i4977")) #(ribcage () () @@ -4509,12 +4517,12 @@ (top) (top) (top)) - #("i1655" - "i1656" - "i1657" - "i1658" - "i1659" - "i1660")) + #("i4912" + "i4913" + "i4914" + "i4915" + "i4916" + "i4917")) #(ribcage () () @@ -4522,7 +4530,7 @@ #(ribcage #(first) #((top)) - #("i1647")) + #("i4904")) #(ribcage () () @@ -4550,13 +4558,13 @@ (top) (top) (top)) - #("i1624" - "i1625" - "i1626" - "i1627" - "i1628" - "i1629" - "i1630")) + #("i4881" + "i4882" + "i4883" + "i4884" + "i4885" + "i4886" + "i4887")) #(ribcage (lambda-var-list gen-var @@ -4794,131 +4802,131 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile)) #(syntax-object @@ -4929,8 +4937,8 @@ name) #((top) (top)) - #("i1719" - "i1720")) + #("i4976" + "i4977")) #(ribcage () () @@ -4952,12 +4960,12 @@ (top) (top) (top)) - #("i1655" - "i1656" - "i1657" - "i1658" - "i1659" - "i1660")) + #("i4912" + "i4913" + "i4914" + "i4915" + "i4916" + "i4917")) #(ribcage () () @@ -4965,7 +4973,7 @@ #(ribcage #(first) #((top)) - #("i1647")) + #("i4904")) #(ribcage () () @@ -4993,13 +5001,13 @@ (top) (top) (top)) - #("i1624" - "i1625" - "i1626" - "i1627" - "i1628" - "i1629" - "i1630")) + #("i4881" + "i4882" + "i4883" + "i4884" + "i4885" + "i4886" + "i4887")) #(ribcage (lambda-var-list gen-var @@ -5237,232 +5245,232 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" - "i41"))) + ("i3300" + "i3298"))) (hygiene guile))) '(()) - #{s\ 1620}# - #{mod\ 1622}#)) - #{tmp\ 1714}#) + #{s\ 4877}# + #{mod\ 4879}#)) + #{tmp\ 4971}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1675}#))) + #{tmp\ 4932}#))) ($sc-dispatch - #{tmp\ 1675}# + #{tmp\ 4932}# '(any any))))) ($sc-dispatch - #{tmp\ 1675}# + #{tmp\ 4932}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1675}# + #{tmp\ 4932}# '(any any any)))) - #{e\ 1617}#) - (if (memv #{ftype\ 1649}# + #{e\ 4874}#) + (if (memv #{ftype\ 4906}# '(define-syntax)) - ((lambda (#{tmp\ 1725}#) - ((lambda (#{tmp\ 1726}#) - (if (if #{tmp\ 1726}# - (apply (lambda (#{_\ 1730}# - #{name\ 1731}# - #{val\ 1732}#) - (#{id?\ 244}# - #{name\ 1731}#)) - #{tmp\ 1726}#) + ((lambda (#{tmp\ 4982}#) + ((lambda (#{tmp\ 4983}#) + (if (if #{tmp\ 4983}# + (apply (lambda (#{_\ 4987}# + #{name\ 4988}# + #{val\ 4989}#) + (#{id?\ 3501}# + #{name\ 4988}#)) + #{tmp\ 4983}#) #f) - (apply (lambda (#{_\ 1736}# - #{name\ 1737}# - #{val\ 1738}#) + (apply (lambda (#{_\ 4993}# + #{name\ 4994}# + #{val\ 4995}#) (values 'define-syntax-form - #{name\ 1737}# - #{val\ 1738}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#)) - #{tmp\ 1726}#) + #{name\ 4994}# + #{val\ 4995}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#)) + #{tmp\ 4983}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1725}#))) + #{tmp\ 4982}#))) ($sc-dispatch - #{tmp\ 1725}# + #{tmp\ 4982}# '(any any any)))) - #{e\ 1617}#) + #{e\ 4874}#) (values 'call #f - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#)))))))))))))) - (if (#{syntax-object?\ 208}# #{e\ 1617}#) - (#{syntax-type\ 325}# - (#{syntax-object-expression\ 210}# #{e\ 1617}#) - #{r\ 1618}# - (#{join-wraps\ 295}# - #{w\ 1619}# - (#{syntax-object-wrap\ 212}# #{e\ 1617}#)) - #{s\ 1620}# - #{rib\ 1621}# - (let ((#{t\ 1744}# - (#{syntax-object-module\ 214}# #{e\ 1617}#))) - (if #{t\ 1744}# #{t\ 1744}# #{mod\ 1622}#)) - #{for-car?\ 1623}#) - (if (self-evaluating? #{e\ 1617}#) + #{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}#) (values 'constant #f - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#) + #{e\ 4874}# + #{w\ 4876}# + #{s\ 4877}# + #{mod\ 4879}#) (values 'other #f - #{e\ 1617}# - #{w\ 1619}# - #{s\ 1620}# - #{mod\ 1622}#))))))) - (#{chi-when-list\ 323}# - (lambda (#{e\ 1749}# #{when-list\ 1750}# #{w\ 1751}#) - (letrec ((#{f\ 1758}# - (lambda (#{when-list\ 1759}# #{situations\ 1760}#) - (if (null? #{when-list\ 1759}#) - #{situations\ 1760}# - (#{f\ 1758}# - (cdr #{when-list\ 1759}#) - (cons (let ((#{x\ 1762}# - (car #{when-list\ 1759}#))) - (if (#{free-id=?\ 303}# - #{x\ 1762}# + #{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}# '#(syntax-object compile ((top) @@ -5472,17 +5480,17 @@ #(ribcage #(x) #((top)) - #("i1761")) + #("i5018")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1755" "i1756" "i1757")) + #("i5012" "i5013" "i5014")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1752" "i1753" "i1754")) + #("i5009" "i5010" "i5011")) #(ribcage (lambda-var-list gen-var @@ -5720,132 +5728,132 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 303}# - #{x\ 1762}# + (if (#{free-id=?\ 3560}# + #{x\ 5019}# '#(syntax-object load ((top) @@ -5855,21 +5863,21 @@ #(ribcage #(x) #((top)) - #("i1761")) + #("i5018")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1755" - "i1756" - "i1757")) + #("i5012" + "i5013" + "i5014")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1752" - "i1753" - "i1754")) + #("i5009" + "i5010" + "i5011")) #(ribcage (lambda-var-list gen-var @@ -6107,133 +6115,133 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile))) 'load - (if (#{free-id=?\ 303}# - #{x\ 1762}# + (if (#{free-id=?\ 3560}# + #{x\ 5019}# '#(syntax-object eval ((top) @@ -6243,23 +6251,23 @@ #(ribcage #(x) #((top)) - #("i1761")) + #("i5018")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1755" - "i1756" - "i1757")) + #("i5012" + "i5013" + "i5014")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1752" - "i1753" - "i1754")) + #("i5009" + "i5010" + "i5011")) #(ribcage (lambda-var-list gen-var @@ -6497,1016 +6505,1020 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile))) 'eval (syntax-violation 'eval-when "invalid situation" - #{e\ 1749}# - (#{wrap\ 313}# - #{x\ 1762}# - #{w\ 1751}# + #{e\ 5006}# + (#{wrap\ 3570}# + #{x\ 5019}# + #{w\ 5008}# #f)))))) - #{situations\ 1760}#)))))) - (#{f\ 1758}# #{when-list\ 1750}# (quote ()))))) - (#{chi-install-global\ 321}# - (lambda (#{name\ 1770}# #{e\ 1771}#) - (#{build-global-definition\ 184}# + #{situations\ 5017}#)))))) + (#{f\ 5015}# #{when-list\ 5007}# (quote ()))))) + (#{chi-install-global\ 3578}# + (lambda (#{name\ 5027}# #{e\ 5028}#) + (#{build-global-definition\ 3441}# #f - #{name\ 1770}# - (#{build-application\ 166}# + #{name\ 5027}# + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f 'make-syntax-transformer) - (list (#{build-data\ 194}# #f #{name\ 1770}#) - (#{build-data\ 194}# #f (quote macro)) - (#{build-application\ 166}# + (list (#{build-data\ 3451}# #f #{name\ 5027}#) + (#{build-data\ 3451}# #f (quote macro)) + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# #f (quote cons)) - (list #{e\ 1771}# - (#{build-application\ 166}# + (#{build-primref\ 3449}# #f (quote cons)) + (list #{e\ 5028}# + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f 'module-name) - (list (#{build-application\ 166}# + (list (#{build-application\ 3423}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 319}# - (lambda (#{body\ 1785}# - #{r\ 1786}# - #{w\ 1787}# - #{s\ 1788}# - #{m\ 1789}# - #{esew\ 1790}# - #{mod\ 1791}#) - (#{build-sequence\ 196}# - #{s\ 1788}# - (letrec ((#{dobody\ 1808}# - (lambda (#{body\ 1809}# - #{r\ 1810}# - #{w\ 1811}# - #{m\ 1812}# - #{esew\ 1813}# - #{mod\ 1814}# - #{module\ 1815}# - #{out\ 1816}#) - (if (null? #{body\ 1809}#) - (reverse #{out\ 1816}#) - (let ((#{first\ 1819}# - (#{chi-top\ 327}# - (car #{body\ 1809}#) - #{r\ 1810}# - #{w\ 1811}# - #{m\ 1812}# - #{esew\ 1813}# - #{mod\ 1814}#))) - (let ((#{new-module\ 1821}# + (#{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}# (current-module))) - (#{dobody\ 1808}# - (cdr #{body\ 1809}#) - #{r\ 1810}# - #{w\ 1811}# - #{m\ 1812}# - #{esew\ 1813}# - (if (eq? #{module\ 1815}# - #{new-module\ 1821}#) - #{mod\ 1814}# + (#{dobody\ 5065}# + (cdr #{body\ 5066}#) + #{r\ 5067}# + #{w\ 5068}# + #{m\ 5069}# + #{esew\ 5070}# + (if (eq? #{module\ 5072}# + #{new-module\ 5078}#) + #{mod\ 5071}# (cons 'hygiene (module-name - #{new-module\ 1821}#))) - #{new-module\ 1821}# - (cons #{first\ 1819}# - #{out\ 1816}#)))))))) - (#{dobody\ 1808}# - #{body\ 1785}# - #{r\ 1786}# - #{w\ 1787}# - #{m\ 1789}# - #{esew\ 1790}# - #{mod\ 1791}# + #{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}# (current-module) '()))))) - (#{chi-sequence\ 317}# - (lambda (#{body\ 1822}# - #{r\ 1823}# - #{w\ 1824}# - #{s\ 1825}# - #{mod\ 1826}#) - (#{build-sequence\ 196}# - #{s\ 1825}# - (letrec ((#{dobody\ 1837}# - (lambda (#{body\ 1838}# - #{r\ 1839}# - #{w\ 1840}# - #{mod\ 1841}#) - (if (null? #{body\ 1838}#) + (#{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}#) '() - (let ((#{first\ 1843}# - (#{chi\ 329}# - (car #{body\ 1838}#) - #{r\ 1839}# - #{w\ 1840}# - #{mod\ 1841}#))) - (cons #{first\ 1843}# - (#{dobody\ 1837}# - (cdr #{body\ 1838}#) - #{r\ 1839}# - #{w\ 1840}# - #{mod\ 1841}#))))))) - (#{dobody\ 1837}# - #{body\ 1822}# - #{r\ 1823}# - #{w\ 1824}# - #{mod\ 1826}#))))) - (#{source-wrap\ 315}# - (lambda (#{x\ 1844}# - #{w\ 1845}# - #{s\ 1846}# - #{defmod\ 1847}#) - (#{wrap\ 313}# - (#{decorate-source\ 162}# - #{x\ 1844}# - #{s\ 1846}#) - #{w\ 1845}# - #{defmod\ 1847}#))) - (#{wrap\ 313}# - (lambda (#{x\ 1852}# #{w\ 1853}# #{defmod\ 1854}#) - (if (if (null? (#{wrap-marks\ 251}# #{w\ 1853}#)) - (null? (#{wrap-subst\ 253}# #{w\ 1853}#)) + (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}#)) #f) - #{x\ 1852}# - (if (#{syntax-object?\ 208}# #{x\ 1852}#) - (#{make-syntax-object\ 206}# - (#{syntax-object-expression\ 210}# #{x\ 1852}#) - (#{join-wraps\ 295}# - #{w\ 1853}# - (#{syntax-object-wrap\ 212}# #{x\ 1852}#)) - (#{syntax-object-module\ 214}# #{x\ 1852}#)) - (if (null? #{x\ 1852}#) - #{x\ 1852}# - (#{make-syntax-object\ 206}# - #{x\ 1852}# - #{w\ 1853}# - #{defmod\ 1854}#)))))) - (#{bound-id-member?\ 311}# - (lambda (#{x\ 1867}# #{list\ 1868}#) - (if (not (null? #{list\ 1868}#)) - (let ((#{t\ 1875}# - (#{bound-id=?\ 305}# - #{x\ 1867}# - (car #{list\ 1868}#)))) - (if #{t\ 1875}# - #{t\ 1875}# - (#{bound-id-member?\ 311}# - #{x\ 1867}# - (cdr #{list\ 1868}#)))) + #{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}#)))) #f))) - (#{distinct-bound-ids?\ 309}# - (lambda (#{ids\ 1877}#) - (letrec ((#{distinct?\ 1881}# - (lambda (#{ids\ 1882}#) - (let ((#{t\ 1885}# (null? #{ids\ 1882}#))) - (if #{t\ 1885}# - #{t\ 1885}# - (if (not (#{bound-id-member?\ 311}# - (car #{ids\ 1882}#) - (cdr #{ids\ 1882}#))) - (#{distinct?\ 1881}# (cdr #{ids\ 1882}#)) + (#{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}#)) #f)))))) - (#{distinct?\ 1881}# #{ids\ 1877}#)))) - (#{valid-bound-ids?\ 307}# - (lambda (#{ids\ 1889}#) - (if (letrec ((#{all-ids?\ 1894}# - (lambda (#{ids\ 1895}#) - (let ((#{t\ 1898}# (null? #{ids\ 1895}#))) - (if #{t\ 1898}# - #{t\ 1898}# - (if (#{id?\ 244}# (car #{ids\ 1895}#)) - (#{all-ids?\ 1894}# (cdr #{ids\ 1895}#)) + (#{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}#)) #f)))))) - (#{all-ids?\ 1894}# #{ids\ 1889}#)) - (#{distinct-bound-ids?\ 309}# #{ids\ 1889}#) + (#{all-ids?\ 5151}# #{ids\ 5146}#)) + (#{distinct-bound-ids?\ 3566}# #{ids\ 5146}#) #f))) - (#{bound-id=?\ 305}# - (lambda (#{i\ 1903}# #{j\ 1904}#) - (if (if (#{syntax-object?\ 208}# #{i\ 1903}#) - (#{syntax-object?\ 208}# #{j\ 1904}#) + (#{bound-id=?\ 3562}# + (lambda (#{i\ 5160}# #{j\ 5161}#) + (if (if (#{syntax-object?\ 3465}# #{i\ 5160}#) + (#{syntax-object?\ 3465}# #{j\ 5161}#) #f) - (if (eq? (#{syntax-object-expression\ 210}# #{i\ 1903}#) - (#{syntax-object-expression\ 210}# #{j\ 1904}#)) - (#{same-marks?\ 299}# - (#{wrap-marks\ 251}# - (#{syntax-object-wrap\ 212}# #{i\ 1903}#)) - (#{wrap-marks\ 251}# - (#{syntax-object-wrap\ 212}# #{j\ 1904}#))) + (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}#))) #f) - (eq? #{i\ 1903}# #{j\ 1904}#)))) - (#{free-id=?\ 303}# - (lambda (#{i\ 1911}# #{j\ 1912}#) - (if (eq? (let ((#{x\ 1918}# #{i\ 1911}#)) - (if (#{syntax-object?\ 208}# #{x\ 1918}#) - (#{syntax-object-expression\ 210}# #{x\ 1918}#) - #{x\ 1918}#)) - (let ((#{x\ 1921}# #{j\ 1912}#)) - (if (#{syntax-object?\ 208}# #{x\ 1921}#) - (#{syntax-object-expression\ 210}# #{x\ 1921}#) - #{x\ 1921}#))) - (eq? (#{id-var-name\ 301}# #{i\ 1911}# (quote (()))) - (#{id-var-name\ 301}# #{j\ 1912}# (quote (())))) + (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 (())))) #f))) - (#{id-var-name\ 301}# - (lambda (#{id\ 1925}# #{w\ 1926}#) - (letrec ((#{search-vector-rib\ 1935}# - (lambda (#{sym\ 1947}# - #{subst\ 1948}# - #{marks\ 1949}# - #{symnames\ 1950}# - #{ribcage\ 1951}#) - (let ((#{n\ 1958}# - (vector-length #{symnames\ 1950}#))) - (letrec ((#{f\ 1961}# - (lambda (#{i\ 1962}#) - (if (#{fx=\ 149}# - #{i\ 1962}# - #{n\ 1958}#) - (#{search\ 1931}# - #{sym\ 1947}# - (cdr #{subst\ 1948}#) - #{marks\ 1949}#) + (#{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}#) (if (if (eq? (vector-ref - #{symnames\ 1950}# - #{i\ 1962}#) - #{sym\ 1947}#) - (#{same-marks?\ 299}# - #{marks\ 1949}# + #{symnames\ 5207}# + #{i\ 5219}#) + #{sym\ 5204}#) + (#{same-marks?\ 3556}# + #{marks\ 5206}# (vector-ref - (#{ribcage-marks\ 271}# - #{ribcage\ 1951}#) - #{i\ 1962}#)) + (#{ribcage-marks\ 3528}# + #{ribcage\ 5208}#) + #{i\ 5219}#)) #f) (values (vector-ref - (#{ribcage-labels\ 273}# - #{ribcage\ 1951}#) - #{i\ 1962}#) - #{marks\ 1949}#) - (#{f\ 1961}# - (#{fx+\ 145}# - #{i\ 1962}# + (#{ribcage-labels\ 3530}# + #{ribcage\ 5208}#) + #{i\ 5219}#) + #{marks\ 5206}#) + (#{f\ 5218}# + (#{fx+\ 3402}# + #{i\ 5219}# 1))))))) - (#{f\ 1961}# 0))))) - (#{search-list-rib\ 1933}# - (lambda (#{sym\ 1970}# - #{subst\ 1971}# - #{marks\ 1972}# - #{symnames\ 1973}# - #{ribcage\ 1974}#) - (letrec ((#{f\ 1983}# - (lambda (#{symnames\ 1984}# #{i\ 1985}#) - (if (null? #{symnames\ 1984}#) - (#{search\ 1931}# - #{sym\ 1970}# - (cdr #{subst\ 1971}#) - #{marks\ 1972}#) - (if (if (eq? (car #{symnames\ 1984}#) - #{sym\ 1970}#) - (#{same-marks?\ 299}# - #{marks\ 1972}# + (#{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}# (list-ref - (#{ribcage-marks\ 271}# - #{ribcage\ 1974}#) - #{i\ 1985}#)) + (#{ribcage-marks\ 3528}# + #{ribcage\ 5231}#) + #{i\ 5242}#)) #f) (values (list-ref - (#{ribcage-labels\ 273}# - #{ribcage\ 1974}#) - #{i\ 1985}#) - #{marks\ 1972}#) - (#{f\ 1983}# - (cdr #{symnames\ 1984}#) - (#{fx+\ 145}# - #{i\ 1985}# + (#{ribcage-labels\ 3530}# + #{ribcage\ 5231}#) + #{i\ 5242}#) + #{marks\ 5229}#) + (#{f\ 5240}# + (cdr #{symnames\ 5241}#) + (#{fx+\ 3402}# + #{i\ 5242}# 1))))))) - (#{f\ 1983}# #{symnames\ 1973}# 0)))) - (#{search\ 1931}# - (lambda (#{sym\ 1993}# - #{subst\ 1994}# - #{marks\ 1995}#) - (if (null? #{subst\ 1994}#) - (values #f #{marks\ 1995}#) - (let ((#{fst\ 2000}# (car #{subst\ 1994}#))) - (if (eq? #{fst\ 2000}# (quote shift)) - (#{search\ 1931}# - #{sym\ 1993}# - (cdr #{subst\ 1994}#) - (cdr #{marks\ 1995}#)) - (let ((#{symnames\ 2002}# - (#{ribcage-symnames\ 269}# - #{fst\ 2000}#))) - (if (vector? #{symnames\ 2002}#) - (#{search-vector-rib\ 1935}# - #{sym\ 1993}# - #{subst\ 1994}# - #{marks\ 1995}# - #{symnames\ 2002}# - #{fst\ 2000}#) - (#{search-list-rib\ 1933}# - #{sym\ 1993}# - #{subst\ 1994}# - #{marks\ 1995}# - #{symnames\ 2002}# - #{fst\ 2000}#))))))))) - (if (symbol? #{id\ 1925}#) - (let ((#{t\ 2005}# + (#{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}# (call-with-values (lambda () - (#{search\ 1931}# - #{id\ 1925}# - (#{wrap-subst\ 253}# #{w\ 1926}#) - (#{wrap-marks\ 251}# #{w\ 1926}#))) - (lambda (#{x\ 2007}# . #{ignore\ 2008}#) - #{x\ 2007}#)))) - (if #{t\ 2005}# #{t\ 2005}# #{id\ 1925}#)) - (if (#{syntax-object?\ 208}# #{id\ 1925}#) - (let ((#{id\ 2016}# - (#{syntax-object-expression\ 210}# #{id\ 1925}#)) - (#{w1\ 2017}# - (#{syntax-object-wrap\ 212}# #{id\ 1925}#))) - (let ((#{marks\ 2019}# - (#{join-marks\ 297}# - (#{wrap-marks\ 251}# #{w\ 1926}#) - (#{wrap-marks\ 251}# #{w1\ 2017}#)))) + (#{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}#)))) (call-with-values (lambda () - (#{search\ 1931}# - #{id\ 2016}# - (#{wrap-subst\ 253}# #{w\ 1926}#) - #{marks\ 2019}#)) - (lambda (#{new-id\ 2020}# #{marks\ 2021}#) - (let ((#{t\ 2026}# #{new-id\ 2020}#)) - (if #{t\ 2026}# - #{t\ 2026}# - (let ((#{t\ 2029}# + (#{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}# (call-with-values (lambda () - (#{search\ 1931}# - #{id\ 2016}# - (#{wrap-subst\ 253}# - #{w1\ 2017}#) - #{marks\ 2021}#)) - (lambda (#{x\ 2031}# + (#{search\ 5188}# + #{id\ 5273}# + (#{wrap-subst\ 3510}# + #{w1\ 5274}#) + #{marks\ 5278}#)) + (lambda (#{x\ 5288}# . - #{ignore\ 2032}#) - #{x\ 2031}#)))) - (if #{t\ 2029}# - #{t\ 2029}# - #{id\ 2016}#)))))))) + #{ignore\ 5289}#) + #{x\ 5288}#)))) + (if #{t\ 5286}# + #{t\ 5286}# + #{id\ 5273}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1925}#)))))) - (#{same-marks?\ 299}# - (lambda (#{x\ 2037}# #{y\ 2038}#) - (let ((#{t\ 2043}# (eq? #{x\ 2037}# #{y\ 2038}#))) - (if #{t\ 2043}# - #{t\ 2043}# - (if (not (null? #{x\ 2037}#)) - (if (not (null? #{y\ 2038}#)) - (if (eq? (car #{x\ 2037}#) (car #{y\ 2038}#)) - (#{same-marks?\ 299}# - (cdr #{x\ 2037}#) - (cdr #{y\ 2038}#)) + #{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}#)) #f) #f) #f))))) - (#{join-marks\ 297}# - (lambda (#{m1\ 2049}# #{m2\ 2050}#) - (#{smart-append\ 293}# #{m1\ 2049}# #{m2\ 2050}#))) - (#{join-wraps\ 295}# - (lambda (#{w1\ 2053}# #{w2\ 2054}#) - (let ((#{m1\ 2059}# (#{wrap-marks\ 251}# #{w1\ 2053}#)) - (#{s1\ 2060}# (#{wrap-subst\ 253}# #{w1\ 2053}#))) - (if (null? #{m1\ 2059}#) - (if (null? #{s1\ 2060}#) - #{w2\ 2054}# - (#{make-wrap\ 249}# - (#{wrap-marks\ 251}# #{w2\ 2054}#) - (#{smart-append\ 293}# - #{s1\ 2060}# - (#{wrap-subst\ 253}# #{w2\ 2054}#)))) - (#{make-wrap\ 249}# - (#{smart-append\ 293}# - #{m1\ 2059}# - (#{wrap-marks\ 251}# #{w2\ 2054}#)) - (#{smart-append\ 293}# - #{s1\ 2060}# - (#{wrap-subst\ 253}# #{w2\ 2054}#))))))) - (#{smart-append\ 293}# - (lambda (#{m1\ 2061}# #{m2\ 2062}#) - (if (null? #{m2\ 2062}#) - #{m1\ 2061}# - (append #{m1\ 2061}# #{m2\ 2062}#)))) - (#{make-binding-wrap\ 291}# - (lambda (#{ids\ 2065}# #{labels\ 2066}# #{w\ 2067}#) - (if (null? #{ids\ 2065}#) - #{w\ 2067}# - (#{make-wrap\ 249}# - (#{wrap-marks\ 251}# #{w\ 2067}#) - (cons (let ((#{labelvec\ 2072}# - (list->vector #{labels\ 2066}#))) - (let ((#{n\ 2074}# - (vector-length #{labelvec\ 2072}#))) - (let ((#{symnamevec\ 2077}# - (make-vector #{n\ 2074}#)) - (#{marksvec\ 2078}# - (make-vector #{n\ 2074}#))) + (#{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}#))) (begin - (letrec ((#{f\ 2082}# - (lambda (#{ids\ 2083}# #{i\ 2084}#) - (if (not (null? #{ids\ 2083}#)) + (letrec ((#{f\ 5339}# + (lambda (#{ids\ 5340}# #{i\ 5341}#) + (if (not (null? #{ids\ 5340}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 247}# - (car #{ids\ 2083}#) - #{w\ 2067}#)) - (lambda (#{symname\ 2085}# - #{marks\ 2086}#) + (#{id-sym-name&marks\ 3504}# + (car #{ids\ 5340}#) + #{w\ 5324}#)) + (lambda (#{symname\ 5342}# + #{marks\ 5343}#) (begin (vector-set! - #{symnamevec\ 2077}# - #{i\ 2084}# - #{symname\ 2085}#) + #{symnamevec\ 5334}# + #{i\ 5341}# + #{symname\ 5342}#) (vector-set! - #{marksvec\ 2078}# - #{i\ 2084}# - #{marks\ 2086}#) - (#{f\ 2082}# - (cdr #{ids\ 2083}#) - (#{fx+\ 145}# - #{i\ 2084}# + #{marksvec\ 5335}# + #{i\ 5341}# + #{marks\ 5343}#) + (#{f\ 5339}# + (cdr #{ids\ 5340}#) + (#{fx+\ 3402}# + #{i\ 5341}# 1))))))))) - (#{f\ 2082}# #{ids\ 2065}# 0)) - (#{make-ribcage\ 265}# - #{symnamevec\ 2077}# - #{marksvec\ 2078}# - #{labelvec\ 2072}#))))) - (#{wrap-subst\ 253}# #{w\ 2067}#)))))) - (#{extend-ribcage!\ 289}# - (lambda (#{ribcage\ 2089}# #{id\ 2090}# #{label\ 2091}#) + (#{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}#) (begin - (#{set-ribcage-symnames!\ 275}# - #{ribcage\ 2089}# - (cons (#{syntax-object-expression\ 210}# #{id\ 2090}#) - (#{ribcage-symnames\ 269}# #{ribcage\ 2089}#))) - (#{set-ribcage-marks!\ 277}# - #{ribcage\ 2089}# - (cons (#{wrap-marks\ 251}# - (#{syntax-object-wrap\ 212}# #{id\ 2090}#)) - (#{ribcage-marks\ 271}# #{ribcage\ 2089}#))) - (#{set-ribcage-labels!\ 279}# - #{ribcage\ 2089}# - (cons #{label\ 2091}# - (#{ribcage-labels\ 273}# #{ribcage\ 2089}#)))))) - (#{anti-mark\ 285}# - (lambda (#{w\ 2095}#) - (#{make-wrap\ 249}# - (cons #f (#{wrap-marks\ 251}# #{w\ 2095}#)) + (#{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}#)) (cons 'shift - (#{wrap-subst\ 253}# #{w\ 2095}#))))) - (#{set-ribcage-labels!\ 279}# - (lambda (#{x\ 2098}# #{update\ 2099}#) - (vector-set! #{x\ 2098}# 3 #{update\ 2099}#))) - (#{set-ribcage-marks!\ 277}# - (lambda (#{x\ 2102}# #{update\ 2103}#) - (vector-set! #{x\ 2102}# 2 #{update\ 2103}#))) - (#{set-ribcage-symnames!\ 275}# - (lambda (#{x\ 2106}# #{update\ 2107}#) - (vector-set! #{x\ 2106}# 1 #{update\ 2107}#))) - (#{ribcage-labels\ 273}# - (lambda (#{x\ 2110}#) (vector-ref #{x\ 2110}# 3))) - (#{ribcage-marks\ 271}# - (lambda (#{x\ 2112}#) (vector-ref #{x\ 2112}# 2))) - (#{ribcage-symnames\ 269}# - (lambda (#{x\ 2114}#) (vector-ref #{x\ 2114}# 1))) - (#{ribcage?\ 267}# - (lambda (#{x\ 2116}#) - (if (vector? #{x\ 2116}#) - (if (= (vector-length #{x\ 2116}#) 4) - (eq? (vector-ref #{x\ 2116}# 0) (quote ribcage)) + (#{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)) #f) #f))) - (#{make-ribcage\ 265}# - (lambda (#{symnames\ 2121}# - #{marks\ 2122}# - #{labels\ 2123}#) + (#{make-ribcage\ 3522}# + (lambda (#{symnames\ 5378}# + #{marks\ 5379}# + #{labels\ 5380}#) (vector 'ribcage - #{symnames\ 2121}# - #{marks\ 2122}# - #{labels\ 2123}#))) - (#{gen-labels\ 262}# - (lambda (#{ls\ 2127}#) - (if (null? #{ls\ 2127}#) + #{symnames\ 5378}# + #{marks\ 5379}# + #{labels\ 5380}#))) + (#{gen-labels\ 3519}# + (lambda (#{ls\ 5384}#) + (if (null? #{ls\ 5384}#) '() - (cons (#{gen-label\ 260}#) - (#{gen-labels\ 262}# (cdr #{ls\ 2127}#)))))) - (#{gen-label\ 260}# + (cons (#{gen-label\ 3517}#) + (#{gen-labels\ 3519}# (cdr #{ls\ 5384}#)))))) + (#{gen-label\ 3517}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 253}# cdr) - (#{wrap-marks\ 251}# car) - (#{make-wrap\ 249}# cons) - (#{id-sym-name&marks\ 247}# - (lambda (#{x\ 2129}# #{w\ 2130}#) - (if (#{syntax-object?\ 208}# #{x\ 2129}#) + (#{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}#) (values - (#{syntax-object-expression\ 210}# #{x\ 2129}#) - (#{join-marks\ 297}# - (#{wrap-marks\ 251}# #{w\ 2130}#) - (#{wrap-marks\ 251}# - (#{syntax-object-wrap\ 212}# #{x\ 2129}#)))) + (#{syntax-object-expression\ 3467}# #{x\ 5386}#) + (#{join-marks\ 3554}# + (#{wrap-marks\ 3508}# #{w\ 5387}#) + (#{wrap-marks\ 3508}# + (#{syntax-object-wrap\ 3469}# #{x\ 5386}#)))) (values - #{x\ 2129}# - (#{wrap-marks\ 251}# #{w\ 2130}#))))) - (#{id?\ 244}# - (lambda (#{x\ 2133}#) - (if (symbol? #{x\ 2133}#) + #{x\ 5386}# + (#{wrap-marks\ 3508}# #{w\ 5387}#))))) + (#{id?\ 3501}# + (lambda (#{x\ 5390}#) + (if (symbol? #{x\ 5390}#) #t - (if (#{syntax-object?\ 208}# #{x\ 2133}#) + (if (#{syntax-object?\ 3465}# #{x\ 5390}#) (symbol? - (#{syntax-object-expression\ 210}# #{x\ 2133}#)) + (#{syntax-object-expression\ 3467}# #{x\ 5390}#)) #f)))) - (#{nonsymbol-id?\ 242}# - (lambda (#{x\ 2140}#) - (if (#{syntax-object?\ 208}# #{x\ 2140}#) + (#{nonsymbol-id?\ 3499}# + (lambda (#{x\ 5397}#) + (if (#{syntax-object?\ 3465}# #{x\ 5397}#) (symbol? - (#{syntax-object-expression\ 210}# #{x\ 2140}#)) + (#{syntax-object-expression\ 3467}# #{x\ 5397}#)) #f))) - (#{global-extend\ 240}# - (lambda (#{type\ 2144}# #{sym\ 2145}# #{val\ 2146}#) - (#{put-global-definition-hook\ 158}# - #{sym\ 2145}# - #{type\ 2144}# - #{val\ 2146}#))) - (#{lookup\ 238}# - (lambda (#{x\ 2150}# #{r\ 2151}# #{mod\ 2152}#) - (let ((#{t\ 2158}# (assq #{x\ 2150}# #{r\ 2151}#))) - (if #{t\ 2158}# - (cdr #{t\ 2158}#) - (if (symbol? #{x\ 2150}#) - (let ((#{t\ 2164}# - (#{get-global-definition-hook\ 160}# - #{x\ 2150}# - #{mod\ 2152}#))) - (if #{t\ 2164}# #{t\ 2164}# (quote (global)))) + (#{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)))) '(displaced-lexical)))))) - (#{macros-only-env\ 236}# - (lambda (#{r\ 2169}#) - (if (null? #{r\ 2169}#) + (#{macros-only-env\ 3493}# + (lambda (#{r\ 5426}#) + (if (null? #{r\ 5426}#) '() - (let ((#{a\ 2172}# (car #{r\ 2169}#))) - (if (eq? (cadr #{a\ 2172}#) (quote macro)) - (cons #{a\ 2172}# - (#{macros-only-env\ 236}# (cdr #{r\ 2169}#))) - (#{macros-only-env\ 236}# (cdr #{r\ 2169}#))))))) - (#{extend-var-env\ 234}# - (lambda (#{labels\ 2173}# #{vars\ 2174}# #{r\ 2175}#) - (if (null? #{labels\ 2173}#) - #{r\ 2175}# - (#{extend-var-env\ 234}# - (cdr #{labels\ 2173}#) - (cdr #{vars\ 2174}#) - (cons (cons (car #{labels\ 2173}#) - (cons (quote lexical) (car #{vars\ 2174}#))) - #{r\ 2175}#))))) - (#{extend-env\ 232}# - (lambda (#{labels\ 2180}# #{bindings\ 2181}# #{r\ 2182}#) - (if (null? #{labels\ 2180}#) - #{r\ 2182}# - (#{extend-env\ 232}# - (cdr #{labels\ 2180}#) - (cdr #{bindings\ 2181}#) - (cons (cons (car #{labels\ 2180}#) - (car #{bindings\ 2181}#)) - #{r\ 2182}#))))) - (#{binding-value\ 229}# cdr) - (#{binding-type\ 227}# car) - (#{source-annotation\ 223}# - (lambda (#{x\ 2186}#) - (if (#{syntax-object?\ 208}# #{x\ 2186}#) - (#{source-annotation\ 223}# - (#{syntax-object-expression\ 210}# #{x\ 2186}#)) - (if (pair? #{x\ 2186}#) - (let ((#{props\ 2193}# (source-properties #{x\ 2186}#))) - (if (pair? #{props\ 2193}#) #{props\ 2193}# #f)) + (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)) #f)))) - (#{set-syntax-object-module!\ 220}# - (lambda (#{x\ 2195}# #{update\ 2196}#) - (vector-set! #{x\ 2195}# 3 #{update\ 2196}#))) - (#{set-syntax-object-wrap!\ 218}# - (lambda (#{x\ 2199}# #{update\ 2200}#) - (vector-set! #{x\ 2199}# 2 #{update\ 2200}#))) - (#{set-syntax-object-expression!\ 216}# - (lambda (#{x\ 2203}# #{update\ 2204}#) - (vector-set! #{x\ 2203}# 1 #{update\ 2204}#))) - (#{syntax-object-module\ 214}# - (lambda (#{x\ 2207}#) (vector-ref #{x\ 2207}# 3))) - (#{syntax-object-wrap\ 212}# - (lambda (#{x\ 2209}#) (vector-ref #{x\ 2209}# 2))) - (#{syntax-object-expression\ 210}# - (lambda (#{x\ 2211}#) (vector-ref #{x\ 2211}# 1))) - (#{syntax-object?\ 208}# - (lambda (#{x\ 2213}#) - (if (vector? #{x\ 2213}#) - (if (= (vector-length #{x\ 2213}#) 4) - (eq? (vector-ref #{x\ 2213}# 0) + (#{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) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 206}# - (lambda (#{expression\ 2218}# - #{wrap\ 2219}# - #{module\ 2220}#) + (#{make-syntax-object\ 3463}# + (lambda (#{expression\ 5475}# + #{wrap\ 5476}# + #{module\ 5477}#) (vector 'syntax-object - #{expression\ 2218}# - #{wrap\ 2219}# - #{module\ 2220}#))) - (#{build-letrec\ 202}# - (lambda (#{src\ 2224}# - #{ids\ 2225}# - #{vars\ 2226}# - #{val-exps\ 2227}# - #{body-exp\ 2228}#) - (if (null? #{vars\ 2226}#) - #{body-exp\ 2228}# - (let ((#{atom-key\ 2236}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2236}# (quote (c))) + #{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))) (begin (for-each - #{maybe-name-value!\ 182}# - #{ids\ 2225}# - #{val-exps\ 2227}#) + #{maybe-name-value!\ 3439}# + #{ids\ 5482}# + #{val-exps\ 5484}#) ((@ (language tree-il) make-letrec) - #{src\ 2224}# - #{ids\ 2225}# - #{vars\ 2226}# - #{val-exps\ 2227}# - #{body-exp\ 2228}#)) - (#{decorate-source\ 162}# + #{src\ 5481}# + #{ids\ 5482}# + #{vars\ 5483}# + #{val-exps\ 5484}# + #{body-exp\ 5485}#)) + (#{decorate-source\ 3419}# (list 'letrec - (map list #{vars\ 2226}# #{val-exps\ 2227}#) - #{body-exp\ 2228}#) - #{src\ 2224}#)))))) - (#{build-named-let\ 200}# - (lambda (#{src\ 2240}# - #{ids\ 2241}# - #{vars\ 2242}# - #{val-exps\ 2243}# - #{body-exp\ 2244}#) - (let ((#{f\ 2254}# (car #{vars\ 2242}#)) - (#{f-name\ 2255}# (car #{ids\ 2241}#)) - (#{vars\ 2256}# (cdr #{vars\ 2242}#)) - (#{ids\ 2257}# (cdr #{ids\ 2241}#))) - (let ((#{atom-key\ 2260}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2260}# (quote (c))) - (let ((#{proc\ 2263}# - (#{build-simple-lambda\ 186}# - #{src\ 2240}# - #{ids\ 2257}# + (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}# #f - #{vars\ 2256}# + #{vars\ 5513}# #f - #{body-exp\ 2244}#))) + #{body-exp\ 5501}#))) (begin - (#{maybe-name-value!\ 182}# - #{f-name\ 2255}# - #{proc\ 2263}#) + (#{maybe-name-value!\ 3439}# + #{f-name\ 5512}# + #{proc\ 5520}#) (for-each - #{maybe-name-value!\ 182}# - #{ids\ 2257}# - #{val-exps\ 2243}#) + #{maybe-name-value!\ 3439}# + #{ids\ 5514}# + #{val-exps\ 5500}#) ((@ (language tree-il) make-letrec) - #{src\ 2240}# - (list #{f-name\ 2255}#) - (list #{f\ 2254}#) - (list #{proc\ 2263}#) - (#{build-application\ 166}# - #{src\ 2240}# - (#{build-lexical-reference\ 172}# + #{src\ 5497}# + (list #{f-name\ 5512}#) + (list #{f\ 5511}#) + (list #{proc\ 5520}#) + (#{build-application\ 3423}# + #{src\ 5497}# + (#{build-lexical-reference\ 3429}# 'fun - #{src\ 2240}# - #{f-name\ 2255}# - #{f\ 2254}#) - #{val-exps\ 2243}#)))) - (#{decorate-source\ 162}# + #{src\ 5497}# + #{f-name\ 5512}# + #{f\ 5511}#) + #{val-exps\ 5500}#)))) + (#{decorate-source\ 3419}# (list 'letrec - (list (list #{f\ 2254}# + (list (list #{f\ 5511}# (list 'lambda - #{vars\ 2256}# - #{body-exp\ 2244}#))) - (cons #{f\ 2254}# #{val-exps\ 2243}#)) - #{src\ 2240}#)))))) - (#{build-let\ 198}# - (lambda (#{src\ 2266}# - #{ids\ 2267}# - #{vars\ 2268}# - #{val-exps\ 2269}# - #{body-exp\ 2270}#) - (if (null? #{vars\ 2268}#) - #{body-exp\ 2270}# - (let ((#{atom-key\ 2278}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2278}# (quote (c))) + #{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))) (begin (for-each - #{maybe-name-value!\ 182}# - #{ids\ 2267}# - #{val-exps\ 2269}#) + #{maybe-name-value!\ 3439}# + #{ids\ 5524}# + #{val-exps\ 5526}#) ((@ (language tree-il) make-let) - #{src\ 2266}# - #{ids\ 2267}# - #{vars\ 2268}# - #{val-exps\ 2269}# - #{body-exp\ 2270}#)) - (#{decorate-source\ 162}# + #{src\ 5523}# + #{ids\ 5524}# + #{vars\ 5525}# + #{val-exps\ 5526}# + #{body-exp\ 5527}#)) + (#{decorate-source\ 3419}# (list 'let - (map list #{vars\ 2268}# #{val-exps\ 2269}#) - #{body-exp\ 2270}#) - #{src\ 2266}#)))))) - (#{build-sequence\ 196}# - (lambda (#{src\ 2282}# #{exps\ 2283}#) - (if (null? (cdr #{exps\ 2283}#)) - (car #{exps\ 2283}#) - (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2288}# (quote (c))) + (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))) ((@ (language tree-il) make-sequence) - #{src\ 2282}# - #{exps\ 2283}#) - (#{decorate-source\ 162}# - (cons (quote begin) #{exps\ 2283}#) - #{src\ 2282}#)))))) - (#{build-data\ 194}# - (lambda (#{src\ 2292}# #{exp\ 2293}#) - (let ((#{atom-key\ 2298}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2298}# (quote (c))) + #{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))) ((@ (language tree-il) make-const) - #{src\ 2292}# - #{exp\ 2293}#) - (#{decorate-source\ 162}# - (if (if (self-evaluating? #{exp\ 2293}#) - (not (vector? #{exp\ 2293}#)) + #{src\ 5549}# + #{exp\ 5550}#) + (#{decorate-source\ 3419}# + (if (if (self-evaluating? #{exp\ 5550}#) + (not (vector? #{exp\ 5550}#)) #f) - #{exp\ 2293}# - (list (quote quote) #{exp\ 2293}#)) - #{src\ 2292}#))))) - (#{build-primref\ 192}# - (lambda (#{src\ 2303}# #{name\ 2304}#) + #{exp\ 5550}# + (list (quote quote) #{exp\ 5550}#)) + #{src\ 5549}#))))) + (#{build-primref\ 3449}# + (lambda (#{src\ 5560}# #{name\ 5561}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2309}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2309}# (quote (c))) + (let ((#{atom-key\ 5566}# (fluid-ref #{*mode*\ 3400}#))) + (if (memv #{atom-key\ 5566}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 2303}# - #{name\ 2304}#) - (#{decorate-source\ 162}# - #{name\ 2304}# - #{src\ 2303}#))) - (let ((#{atom-key\ 2314}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2314}# (quote (c))) + #{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))) ((@ (language tree-il) make-module-ref) - #{src\ 2303}# + #{src\ 5560}# '(guile) - #{name\ 2304}# + #{name\ 5561}# #f) - (#{decorate-source\ 162}# - (list (quote @@) (quote (guile)) #{name\ 2304}#) - #{src\ 2303}#)))))) - (#{build-lambda-case\ 190}# - (lambda (#{src\ 2318}# - #{req\ 2319}# - #{opt\ 2320}# - #{rest\ 2321}# - #{kw\ 2322}# - #{inits\ 2323}# - #{vars\ 2324}# - #{body\ 2325}# - #{else-case\ 2326}#) - (let ((#{atom-key\ 2338}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2338}# (quote (c))) + (#{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))) ((@ (language tree-il) make-lambda-case) - #{src\ 2318}# - #{req\ 2319}# - #{opt\ 2320}# - #{rest\ 2321}# - #{kw\ 2322}# - #{inits\ 2323}# - #{vars\ 2324}# - #{body\ 2325}# - #{else-case\ 2326}#) - (let ((#{nreq\ 2343}# (length #{req\ 2319}#))) - (let ((#{nopt\ 2345}# - (if #{opt\ 2320}# (length #{opt\ 2320}#) 0))) - (let ((#{rest-idx\ 2347}# - (if #{rest\ 2321}# - (+ #{nreq\ 2343}# #{nopt\ 2345}#) + #{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}#) #f))) - (let ((#{allow-other-keys?\ 2351}# - (if #{kw\ 2322}# (car #{kw\ 2322}#) #f))) - (let ((#{kw-indices\ 2353}# - (map (lambda (#{x\ 2354}#) - (cons (car #{x\ 2354}#) + (let ((#{allow-other-keys?\ 5608}# + (if #{kw\ 5579}# (car #{kw\ 5579}#) #f))) + (let ((#{kw-indices\ 5610}# + (map (lambda (#{x\ 5611}#) + (cons (car #{x\ 5611}#) (list-index - #{vars\ 2324}# - (caddr #{x\ 2354}#)))) - (if #{kw\ 2322}# - (cdr #{kw\ 2322}#) + #{vars\ 5581}# + (caddr #{x\ 5611}#)))) + (if #{kw\ 5579}# + (cdr #{kw\ 5579}#) '())))) - (let ((#{nargs\ 2357}# + (let ((#{nargs\ 5614}# (apply max - (+ #{nreq\ 2343}# - #{nopt\ 2345}# - (if #{rest\ 2321}# 1 0)) + (+ #{nreq\ 5600}# + #{nopt\ 5602}# + (if #{rest\ 5578}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2353}#))))) + #{kw-indices\ 5610}#))))) (begin - (let ((#{t\ 2360}# - (= #{nargs\ 2357}# - (length #{vars\ 2324}#) - (+ #{nreq\ 2343}# - (length #{inits\ 2323}#) - (if #{rest\ 2321}# 1 0))))) - (if #{t\ 2360}# - #{t\ 2360}# + (let ((#{t\ 5617}# + (= #{nargs\ 5614}# + (length #{vars\ 5581}#) + (+ #{nreq\ 5600}# + (length #{inits\ 5580}#) + (if #{rest\ 5578}# 1 0))))) + (if #{t\ 5617}# + #{t\ 5617}# (error "something went wrong" - #{req\ 2319}# - #{opt\ 2320}# - #{rest\ 2321}# - #{kw\ 2322}# - #{inits\ 2323}# - #{vars\ 2324}# - #{nreq\ 2343}# - #{nopt\ 2345}# - #{kw-indices\ 2353}# - #{nargs\ 2357}#))) - (#{decorate-source\ 162}# + #{req\ 5576}# + #{opt\ 5577}# + #{rest\ 5578}# + #{kw\ 5579}# + #{inits\ 5580}# + #{vars\ 5581}# + #{nreq\ 5600}# + #{nopt\ 5602}# + #{kw-indices\ 5610}# + #{nargs\ 5614}#))) + (#{decorate-source\ 3419}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 2343}# - #{nopt\ 2345}# - #{rest-idx\ 2347}# - #{nargs\ 2357}# - #{allow-other-keys?\ 2351}# - #{kw-indices\ 2353}#)) + (list #{nreq\ 5600}# + #{nopt\ 5602}# + #{rest-idx\ 5604}# + #{nargs\ 5614}# + #{allow-other-keys?\ 5608}# + #{kw-indices\ 5610}#)) (cons (cons 'list - (map (lambda (#{i\ 2363}#) + (map (lambda (#{i\ 5620}#) (list 'lambda - #{vars\ 2324}# - #{i\ 2363}#)) - #{inits\ 2323}#)) + #{vars\ 5581}# + #{i\ 5620}#)) + #{inits\ 5580}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 2324}# - #{body\ 2325}#) + #{vars\ 5581}# + #{body\ 5582}#) '(%%args))))) - (let ((#{t\ 2368}# - #{else-case\ 2326}#)) - (if #{t\ 2368}# - #{t\ 2368}# + (let ((#{t\ 5625}# + #{else-case\ 5583}#)) + (if #{t\ 5625}# + #{t\ 5625}# '((%%args (scm-error 'wrong-number-of-args @@ -7514,1423 +7526,1424 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 2318}#)))))))))))) - (#{build-case-lambda\ 188}# - (lambda (#{src\ 2371}# - #{docstring\ 2372}# - #{body\ 2373}#) - (let ((#{atom-key\ 2379}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2379}# (quote (c))) + #{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))) ((@ (language tree-il) make-lambda) - #{src\ 2371}# - (if #{docstring\ 2372}# - (list (cons (quote documentation) #{docstring\ 2372}#)) + #{src\ 5628}# + (if #{docstring\ 5629}# + (list (cons (quote documentation) #{docstring\ 5629}#)) '()) - #{body\ 2373}#) - (#{decorate-source\ 162}# + #{body\ 5630}#) + (#{decorate-source\ 3419}# (cons 'lambda (cons '%%args (append - (if #{docstring\ 2372}# - (list #{docstring\ 2372}#) + (if #{docstring\ 5629}# + (list #{docstring\ 5629}#) '()) - (list (cons (quote cond) #{body\ 2373}#))))) - #{src\ 2371}#))))) - (#{build-simple-lambda\ 186}# - (lambda (#{src\ 2384}# - #{req\ 2385}# - #{rest\ 2386}# - #{vars\ 2387}# - #{docstring\ 2388}# - #{exp\ 2389}#) - (let ((#{atom-key\ 2398}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2398}# (quote (c))) + (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))) ((@ (language tree-il) make-lambda) - #{src\ 2384}# - (if #{docstring\ 2388}# - (list (cons (quote documentation) #{docstring\ 2388}#)) + #{src\ 5641}# + (if #{docstring\ 5645}# + (list (cons (quote documentation) #{docstring\ 5645}#)) '()) ((@ (language tree-il) make-lambda-case) - #{src\ 2384}# - #{req\ 2385}# + #{src\ 5641}# + #{req\ 5642}# #f - #{rest\ 2386}# + #{rest\ 5643}# #f '() - #{vars\ 2387}# - #{exp\ 2389}# + #{vars\ 5644}# + #{exp\ 5646}# #f)) - (#{decorate-source\ 162}# + (#{decorate-source\ 3419}# (cons 'lambda - (cons (if #{rest\ 2386}# - (apply cons* #{vars\ 2387}#) - #{vars\ 2387}#) + (cons (if #{rest\ 5643}# + (apply cons* #{vars\ 5644}#) + #{vars\ 5644}#) (append - (if #{docstring\ 2388}# - (list #{docstring\ 2388}#) + (if #{docstring\ 5645}# + (list #{docstring\ 5645}#) '()) - (list #{exp\ 2389}#)))) - #{src\ 2384}#))))) - (#{build-global-definition\ 184}# - (lambda (#{source\ 2403}# #{var\ 2404}# #{exp\ 2405}#) - (let ((#{atom-key\ 2411}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2411}# (quote (c))) + (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))) (begin - (#{maybe-name-value!\ 182}# - #{var\ 2404}# - #{exp\ 2405}#) + (#{maybe-name-value!\ 3439}# + #{var\ 5661}# + #{exp\ 5662}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 2403}# - #{var\ 2404}# - #{exp\ 2405}#)) - (#{decorate-source\ 162}# - (list (quote define) #{var\ 2404}# #{exp\ 2405}#) - #{source\ 2403}#))))) - (#{maybe-name-value!\ 182}# - (lambda (#{name\ 2415}# #{val\ 2416}#) - (if ((@ (language tree-il) lambda?) #{val\ 2416}#) - (let ((#{meta\ 2422}# + #{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}# ((@ (language tree-il) lambda-meta) - #{val\ 2416}#))) - (if (not (assq (quote name) #{meta\ 2422}#)) + #{val\ 5673}#))) + (if (not (assq (quote name) #{meta\ 5679}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2416}# + #{val\ 5673}# (acons 'name - #{name\ 2415}# - #{meta\ 2422}#))))))) - (#{build-global-assignment\ 180}# - (lambda (#{source\ 2423}# - #{var\ 2424}# - #{exp\ 2425}# - #{mod\ 2426}#) - (#{analyze-variable\ 176}# - #{mod\ 2426}# - #{var\ 2424}# - (lambda (#{mod\ 2431}# #{var\ 2432}# #{public?\ 2433}#) - (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2439}# (quote (c))) + #{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))) ((@ (language tree-il) make-module-set) - #{source\ 2423}# - #{mod\ 2431}# - #{var\ 2432}# - #{public?\ 2433}# - #{exp\ 2425}#) - (#{decorate-source\ 162}# + #{source\ 5680}# + #{mod\ 5688}# + #{var\ 5689}# + #{public?\ 5690}# + #{exp\ 5682}#) + (#{decorate-source\ 3419}# (list 'set! - (list (if #{public?\ 2433}# + (list (if #{public?\ 5690}# '@ '@@) - #{mod\ 2431}# - #{var\ 2432}#) - #{exp\ 2425}#) - #{source\ 2423}#)))) - (lambda (#{var\ 2443}#) - (let ((#{atom-key\ 2447}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2447}# (quote (c))) + #{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))) ((@ (language tree-il) make-toplevel-set) - #{source\ 2423}# - #{var\ 2443}# - #{exp\ 2425}#) - (#{decorate-source\ 162}# - (list (quote set!) #{var\ 2443}# #{exp\ 2425}#) - #{source\ 2423}#))))))) - (#{build-global-reference\ 178}# - (lambda (#{source\ 2451}# #{var\ 2452}# #{mod\ 2453}#) - (#{analyze-variable\ 176}# - #{mod\ 2453}# - #{var\ 2452}# - (lambda (#{mod\ 2457}# #{var\ 2458}# #{public?\ 2459}#) - (let ((#{atom-key\ 2465}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2465}# (quote (c))) + #{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))) ((@ (language tree-il) make-module-ref) - #{source\ 2451}# - #{mod\ 2457}# - #{var\ 2458}# - #{public?\ 2459}#) - (#{decorate-source\ 162}# - (list (if #{public?\ 2459}# (quote @) (quote @@)) - #{mod\ 2457}# - #{var\ 2458}#) - #{source\ 2451}#)))) - (lambda (#{var\ 2468}#) - (let ((#{atom-key\ 2472}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2472}# (quote (c))) + #{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))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 2451}# - #{var\ 2468}#) - (#{decorate-source\ 162}# - #{var\ 2468}# - #{source\ 2451}#))))))) - (#{analyze-variable\ 176}# - (lambda (#{mod\ 2475}# - #{var\ 2476}# - #{modref-cont\ 2477}# - #{bare-cont\ 2478}#) - (if (not #{mod\ 2475}#) - (#{bare-cont\ 2478}# #{var\ 2476}#) - (let ((#{kind\ 2485}# (car #{mod\ 2475}#)) - (#{mod\ 2486}# (cdr #{mod\ 2475}#))) - (if (memv #{kind\ 2485}# (quote (public))) - (#{modref-cont\ 2477}# - #{mod\ 2486}# - #{var\ 2476}# + #{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}# #t) - (if (memv #{kind\ 2485}# (quote (private))) + (if (memv #{kind\ 5742}# (quote (private))) (if (not (equal? - #{mod\ 2486}# + #{mod\ 5743}# (module-name (current-module)))) - (#{modref-cont\ 2477}# - #{mod\ 2486}# - #{var\ 2476}# + (#{modref-cont\ 5734}# + #{mod\ 5743}# + #{var\ 5733}# #f) - (#{bare-cont\ 2478}# #{var\ 2476}#)) - (if (memv #{kind\ 2485}# (quote (bare))) - (#{bare-cont\ 2478}# #{var\ 2476}#) - (if (memv #{kind\ 2485}# (quote (hygiene))) + (#{bare-cont\ 5735}# #{var\ 5733}#)) + (if (memv #{kind\ 5742}# (quote (bare))) + (#{bare-cont\ 5735}# #{var\ 5733}#) + (if (memv #{kind\ 5742}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2486}# + #{mod\ 5743}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2486}#) - #{var\ 2476}#) + (resolve-module #{mod\ 5743}#) + #{var\ 5733}#) #f) - (#{modref-cont\ 2477}# - #{mod\ 2486}# - #{var\ 2476}# + (#{modref-cont\ 5734}# + #{mod\ 5743}# + #{var\ 5733}# #f) - (#{bare-cont\ 2478}# #{var\ 2476}#)) + (#{bare-cont\ 5735}# #{var\ 5733}#)) (syntax-violation #f "bad module kind" - #{var\ 2476}# - #{mod\ 2486}#))))))))) - (#{build-lexical-assignment\ 174}# - (lambda (#{source\ 2494}# - #{name\ 2495}# - #{var\ 2496}# - #{exp\ 2497}#) - (let ((#{atom-key\ 2504}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2504}# (quote (c))) + #{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))) ((@ (language tree-il) make-lexical-set) - #{source\ 2494}# - #{name\ 2495}# - #{var\ 2496}# - #{exp\ 2497}#) - (#{decorate-source\ 162}# - (list (quote set!) #{var\ 2496}# #{exp\ 2497}#) - #{source\ 2494}#))))) - (#{build-lexical-reference\ 172}# - (lambda (#{type\ 2508}# - #{source\ 2509}# - #{name\ 2510}# - #{var\ 2511}#) - (let ((#{atom-key\ 2518}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2518}# (quote (c))) + #{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))) ((@ (language tree-il) make-lexical-ref) - #{source\ 2509}# - #{name\ 2510}# - #{var\ 2511}#) - (#{decorate-source\ 162}# - #{var\ 2511}# - #{source\ 2509}#))))) - (#{build-dynlet\ 170}# - (lambda (#{source\ 2521}# - #{fluids\ 2522}# - #{vals\ 2523}# - #{body\ 2524}#) - (let ((#{atom-key\ 2531}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2531}# (quote (c))) + #{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))) ((@ (language tree-il) make-dynlet) - #{source\ 2521}# - #{fluids\ 2522}# - #{vals\ 2523}# - #{body\ 2524}#) - (#{decorate-source\ 162}# + #{source\ 5778}# + #{fluids\ 5779}# + #{vals\ 5780}# + #{body\ 5781}#) + (#{decorate-source\ 3419}# (list 'with-fluids - (map list #{fluids\ 2522}# #{vals\ 2523}#) - #{body\ 2524}#) - #{source\ 2521}#))))) - (#{build-conditional\ 168}# - (lambda (#{source\ 2535}# - #{test-exp\ 2536}# - #{then-exp\ 2537}# - #{else-exp\ 2538}#) - (let ((#{atom-key\ 2545}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2545}# (quote (c))) + (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))) ((@ (language tree-il) make-conditional) - #{source\ 2535}# - #{test-exp\ 2536}# - #{then-exp\ 2537}# - #{else-exp\ 2538}#) - (#{decorate-source\ 162}# - (if (equal? #{else-exp\ 2538}# (quote (if #f #f))) + #{source\ 5792}# + #{test-exp\ 5793}# + #{then-exp\ 5794}# + #{else-exp\ 5795}#) + (#{decorate-source\ 3419}# + (if (equal? #{else-exp\ 5795}# (quote (if #f #f))) (list 'if - #{test-exp\ 2536}# - #{then-exp\ 2537}#) + #{test-exp\ 5793}# + #{then-exp\ 5794}#) (list 'if - #{test-exp\ 2536}# - #{then-exp\ 2537}# - #{else-exp\ 2538}#)) - #{source\ 2535}#))))) - (#{build-application\ 166}# - (lambda (#{source\ 2550}# - #{fun-exp\ 2551}# - #{arg-exps\ 2552}#) - (let ((#{atom-key\ 2558}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2558}# (quote (c))) + #{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))) ((@ (language tree-il) make-application) - #{source\ 2550}# - #{fun-exp\ 2551}# - #{arg-exps\ 2552}#) - (#{decorate-source\ 162}# - (cons #{fun-exp\ 2551}# #{arg-exps\ 2552}#) - #{source\ 2550}#))))) - (#{build-void\ 164}# - (lambda (#{source\ 2562}#) - (let ((#{atom-key\ 2566}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2566}# (quote (c))) + #{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))) ((@ (language tree-il) make-void) - #{source\ 2562}#) - (#{decorate-source\ 162}# + #{source\ 5819}#) + (#{decorate-source\ 3419}# '(if #f #f) - #{source\ 2562}#))))) - (#{decorate-source\ 162}# - (lambda (#{e\ 2569}# #{s\ 2570}#) + #{source\ 5819}#))))) + (#{decorate-source\ 3419}# + (lambda (#{e\ 5826}# #{s\ 5827}#) (begin - (if (if (pair? #{e\ 2569}#) #{s\ 2570}# #f) - (set-source-properties! #{e\ 2569}# #{s\ 2570}#)) - #{e\ 2569}#))) - (#{get-global-definition-hook\ 160}# - (lambda (#{symbol\ 2575}# #{module\ 2576}#) + (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}#) (begin - (if (if (not #{module\ 2576}#) (current-module) #f) + (if (if (not #{module\ 5833}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2575}#)) - (let ((#{v\ 2582}# + #{symbol\ 5832}#)) + (let ((#{v\ 5839}# (module-variable - (if #{module\ 2576}# - (resolve-module (cdr #{module\ 2576}#)) + (if #{module\ 5833}# + (resolve-module (cdr #{module\ 5833}#)) (current-module)) - #{symbol\ 2575}#))) - (if #{v\ 2582}# - (if (variable-bound? #{v\ 2582}#) - (let ((#{val\ 2587}# (variable-ref #{v\ 2582}#))) - (if (macro? #{val\ 2587}#) - (if (macro-type #{val\ 2587}#) - (cons (macro-type #{val\ 2587}#) - (macro-binding #{val\ 2587}#)) + #{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}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 158}# - (lambda (#{symbol\ 2591}# #{type\ 2592}# #{val\ 2593}#) + (#{put-global-definition-hook\ 3415}# + (lambda (#{symbol\ 5848}# #{type\ 5849}# #{val\ 5850}#) (module-define! (current-module) - #{symbol\ 2591}# + #{symbol\ 5848}# (make-syntax-transformer - #{symbol\ 2591}# - #{type\ 2592}# - #{val\ 2593}#)))) - (#{local-eval-hook\ 155}# - (lambda (#{x\ 2597}# #{mod\ 2598}#) + #{symbol\ 5848}# + #{type\ 5849}# + #{val\ 5850}#)))) + (#{local-eval-hook\ 3412}# + (lambda (#{x\ 5854}# #{mod\ 5855}#) (primitive-eval - (list #{noexpand\ 141}# - (let ((#{atom-key\ 2604}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2604}# (quote (c))) + (list #{noexpand\ 3398}# + (let ((#{atom-key\ 5861}# (fluid-ref #{*mode*\ 3400}#))) + (if (memv #{atom-key\ 5861}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2597}#) - #{x\ 2597}#)))))) - (#{top-level-eval-hook\ 153}# - (lambda (#{x\ 2607}# #{mod\ 2608}#) + #{x\ 5854}#) + #{x\ 5854}#)))))) + (#{top-level-eval-hook\ 3410}# + (lambda (#{x\ 5864}# #{mod\ 5865}#) (primitive-eval - (list #{noexpand\ 141}# - (let ((#{atom-key\ 2614}# (fluid-ref #{*mode*\ 143}#))) - (if (memv #{atom-key\ 2614}# (quote (c))) + (list #{noexpand\ 3398}# + (let ((#{atom-key\ 5871}# (fluid-ref #{*mode*\ 3400}#))) + (if (memv #{atom-key\ 5871}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2607}#) - #{x\ 2607}#)))))) - (#{fx<\ 151}# <) - (#{fx=\ 149}# =) - (#{fx-\ 147}# -) - (#{fx+\ 145}# +) - (#{*mode*\ 143}# (make-fluid)) - (#{noexpand\ 141}# "noexpand")) + #{x\ 5864}#) + #{x\ 5864}#)))))) + (#{fx<\ 3408}# <) + (#{fx=\ 3406}# =) + (#{fx-\ 3404}# -) + (#{fx+\ 3402}# +) + (#{*mode*\ 3400}# (make-fluid)) + (#{noexpand\ 3398}# "noexpand")) (begin - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'core 'fluid-let-syntax - (lambda (#{e\ 2617}# - #{r\ 2618}# - #{w\ 2619}# - #{s\ 2620}# - #{mod\ 2621}#) - ((lambda (#{tmp\ 2627}#) - ((lambda (#{tmp\ 2628}#) - (if (if #{tmp\ 2628}# - (apply (lambda (#{_\ 2634}# - #{var\ 2635}# - #{val\ 2636}# - #{e1\ 2637}# - #{e2\ 2638}#) - (#{valid-bound-ids?\ 307}# #{var\ 2635}#)) - #{tmp\ 2628}#) + (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}#) #f) - (apply (lambda (#{_\ 2645}# - #{var\ 2646}# - #{val\ 2647}# - #{e1\ 2648}# - #{e2\ 2649}#) - (let ((#{names\ 2651}# - (map (lambda (#{x\ 2652}#) - (#{id-var-name\ 301}# - #{x\ 2652}# - #{w\ 2619}#)) - #{var\ 2646}#))) + (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}#))) (begin (for-each - (lambda (#{id\ 2655}# #{n\ 2656}#) - (let ((#{atom-key\ 2661}# - (#{binding-type\ 227}# - (#{lookup\ 238}# - #{n\ 2656}# - #{r\ 2618}# - #{mod\ 2621}#)))) - (if (memv #{atom-key\ 2661}# + (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}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2617}# - (#{source-wrap\ 315}# - #{id\ 2655}# - #{w\ 2619}# - #{s\ 2620}# - #{mod\ 2621}#))))) - #{var\ 2646}# - #{names\ 2651}#) - (#{chi-body\ 337}# - (cons #{e1\ 2648}# #{e2\ 2649}#) - (#{source-wrap\ 315}# - #{e\ 2617}# - #{w\ 2619}# - #{s\ 2620}# - #{mod\ 2621}#) - (#{extend-env\ 232}# - #{names\ 2651}# - (let ((#{trans-r\ 2666}# - (#{macros-only-env\ 236}# - #{r\ 2618}#))) - (map (lambda (#{x\ 2667}#) + #{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}#) (cons 'macro - (#{eval-local-transformer\ 341}# - (#{chi\ 329}# - #{x\ 2667}# - #{trans-r\ 2666}# - #{w\ 2619}# - #{mod\ 2621}#) - #{mod\ 2621}#))) - #{val\ 2647}#)) - #{r\ 2618}#) - #{w\ 2619}# - #{mod\ 2621}#)))) - #{tmp\ 2628}#) - ((lambda (#{_\ 2672}#) + (#{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}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 315}# - #{e\ 2617}# - #{w\ 2619}# - #{s\ 2620}# - #{mod\ 2621}#))) - #{tmp\ 2627}#))) + (#{source-wrap\ 3572}# + #{e\ 5874}# + #{w\ 5876}# + #{s\ 5877}# + #{mod\ 5878}#))) + #{tmp\ 5884}#))) ($sc-dispatch - #{tmp\ 2627}# + #{tmp\ 5884}# '(any #(each (any any)) any . each-any)))) - #{e\ 2617}#))) - (#{global-extend\ 240}# + #{e\ 5874}#))) + (#{global-extend\ 3497}# 'core 'quote - (lambda (#{e\ 2673}# - #{r\ 2674}# - #{w\ 2675}# - #{s\ 2676}# - #{mod\ 2677}#) - ((lambda (#{tmp\ 2683}#) - ((lambda (#{tmp\ 2684}#) - (if #{tmp\ 2684}# - (apply (lambda (#{_\ 2687}# #{e\ 2688}#) - (#{build-data\ 194}# - #{s\ 2676}# - (#{strip\ 355}# #{e\ 2688}# #{w\ 2675}#))) - #{tmp\ 2684}#) - ((lambda (#{_\ 2690}#) + (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}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 315}# - #{e\ 2673}# - #{w\ 2675}# - #{s\ 2676}# - #{mod\ 2677}#))) - #{tmp\ 2683}#))) - ($sc-dispatch #{tmp\ 2683}# (quote (any any))))) - #{e\ 2673}#))) - (#{global-extend\ 240}# + (#{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}# 'core 'syntax - (letrec ((#{regen\ 2706}# - (lambda (#{x\ 2707}#) - (let ((#{atom-key\ 2711}# (car #{x\ 2707}#))) - (if (memv #{atom-key\ 2711}# (quote (ref))) - (#{build-lexical-reference\ 172}# + (letrec ((#{regen\ 5963}# + (lambda (#{x\ 5964}#) + (let ((#{atom-key\ 5968}# (car #{x\ 5964}#))) + (if (memv #{atom-key\ 5968}# (quote (ref))) + (#{build-lexical-reference\ 3429}# 'value #f - (cadr #{x\ 2707}#) - (cadr #{x\ 2707}#)) - (if (memv #{atom-key\ 2711}# (quote (primitive))) - (#{build-primref\ 192}# #f (cadr #{x\ 2707}#)) - (if (memv #{atom-key\ 2711}# (quote (quote))) - (#{build-data\ 194}# #f (cadr #{x\ 2707}#)) - (if (memv #{atom-key\ 2711}# (quote (lambda))) - (if (list? (cadr #{x\ 2707}#)) - (#{build-simple-lambda\ 186}# + (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}# #f - (cadr #{x\ 2707}#) + (cadr #{x\ 5964}#) #f - (cadr #{x\ 2707}#) + (cadr #{x\ 5964}#) #f - (#{regen\ 2706}# (caddr #{x\ 2707}#))) - (error "how did we get here" #{x\ 2707}#)) - (#{build-application\ 166}# + (#{regen\ 5963}# (caddr #{x\ 5964}#))) + (error "how did we get here" #{x\ 5964}#)) + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# #f (car #{x\ 2707}#)) - (map #{regen\ 2706}# - (cdr #{x\ 2707}#)))))))))) - (#{gen-vector\ 2704}# - (lambda (#{x\ 2723}#) - (if (eq? (car #{x\ 2723}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2723}#)) - (if (eq? (car #{x\ 2723}#) (quote quote)) + (#{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)) (list 'quote - (list->vector (cadr #{x\ 2723}#))) - (list (quote list->vector) #{x\ 2723}#))))) - (#{gen-append\ 2702}# - (lambda (#{x\ 2733}# #{y\ 2734}#) - (if (equal? #{y\ 2734}# (quote (quote ()))) - #{x\ 2733}# - (list (quote append) #{x\ 2733}# #{y\ 2734}#)))) - (#{gen-cons\ 2700}# - (lambda (#{x\ 2738}# #{y\ 2739}#) - (let ((#{atom-key\ 2744}# (car #{y\ 2739}#))) - (if (memv #{atom-key\ 2744}# (quote (quote))) - (if (eq? (car #{x\ 2738}#) (quote 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 'quote - (cons (cadr #{x\ 2738}#) (cadr #{y\ 2739}#))) - (if (eq? (cadr #{y\ 2739}#) (quote ())) - (list (quote list) #{x\ 2738}#) - (list (quote cons) #{x\ 2738}# #{y\ 2739}#))) - (if (memv #{atom-key\ 2744}# (quote (list))) + (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 'list - (cons #{x\ 2738}# (cdr #{y\ 2739}#))) - (list (quote cons) #{x\ 2738}# #{y\ 2739}#)))))) - (#{gen-map\ 2698}# - (lambda (#{e\ 2753}# #{map-env\ 2754}#) - (let ((#{formals\ 2759}# (map cdr #{map-env\ 2754}#)) - (#{actuals\ 2760}# - (map (lambda (#{x\ 2761}#) - (list (quote ref) (car #{x\ 2761}#))) - #{map-env\ 2754}#))) - (if (eq? (car #{e\ 2753}#) (quote ref)) - (car #{actuals\ 2760}#) + (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}#) (if (and-map - (lambda (#{x\ 2768}#) - (if (eq? (car #{x\ 2768}#) (quote ref)) - (memq (cadr #{x\ 2768}#) #{formals\ 2759}#) + (lambda (#{x\ 6025}#) + (if (eq? (car #{x\ 6025}#) (quote ref)) + (memq (cadr #{x\ 6025}#) #{formals\ 6016}#) #f)) - (cdr #{e\ 2753}#)) + (cdr #{e\ 6010}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2753}#)) - (map (let ((#{r\ 2774}# + (car #{e\ 6010}#)) + (map (let ((#{r\ 6031}# (map cons - #{formals\ 2759}# - #{actuals\ 2760}#))) - (lambda (#{x\ 2775}#) - (cdr (assq (cadr #{x\ 2775}#) - #{r\ 2774}#)))) - (cdr #{e\ 2753}#)))) + #{formals\ 6016}# + #{actuals\ 6017}#))) + (lambda (#{x\ 6032}#) + (cdr (assq (cadr #{x\ 6032}#) + #{r\ 6031}#)))) + (cdr #{e\ 6010}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2759}# - #{e\ 2753}#) - #{actuals\ 2760}#))))))) - (#{gen-mappend\ 2696}# - (lambda (#{e\ 2779}# #{map-env\ 2780}#) + #{formals\ 6016}# + #{e\ 6010}#) + #{actuals\ 6017}#))))))) + (#{gen-mappend\ 5953}# + (lambda (#{e\ 6036}# #{map-env\ 6037}#) (list 'apply '(primitive append) - (#{gen-map\ 2698}# #{e\ 2779}# #{map-env\ 2780}#)))) - (#{gen-ref\ 2694}# - (lambda (#{src\ 2784}# - #{var\ 2785}# - #{level\ 2786}# - #{maps\ 2787}#) - (if (#{fx=\ 149}# #{level\ 2786}# 0) - (values #{var\ 2785}# #{maps\ 2787}#) - (if (null? #{maps\ 2787}#) + (#{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}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2784}#) + #{src\ 6041}#) (call-with-values (lambda () - (#{gen-ref\ 2694}# - #{src\ 2784}# - #{var\ 2785}# - (#{fx-\ 147}# #{level\ 2786}# 1) - (cdr #{maps\ 2787}#))) - (lambda (#{outer-var\ 2792}# #{outer-maps\ 2793}#) - (let ((#{b\ 2797}# - (assq #{outer-var\ 2792}# - (car #{maps\ 2787}#)))) - (if #{b\ 2797}# - (values (cdr #{b\ 2797}#) #{maps\ 2787}#) - (let ((#{inner-var\ 2799}# - (#{gen-var\ 357}# (quote tmp)))) + (#{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)))) (values - #{inner-var\ 2799}# - (cons (cons (cons #{outer-var\ 2792}# - #{inner-var\ 2799}#) - (car #{maps\ 2787}#)) - #{outer-maps\ 2793}#))))))))))) - (#{gen-syntax\ 2692}# - (lambda (#{src\ 2800}# - #{e\ 2801}# - #{r\ 2802}# - #{maps\ 2803}# - #{ellipsis?\ 2804}# - #{mod\ 2805}#) - (if (#{id?\ 244}# #{e\ 2801}#) - (let ((#{label\ 2813}# - (#{id-var-name\ 301}# - #{e\ 2801}# + #{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}# '(())))) - (let ((#{b\ 2816}# - (#{lookup\ 238}# - #{label\ 2813}# - #{r\ 2802}# - #{mod\ 2805}#))) - (if (eq? (#{binding-type\ 227}# #{b\ 2816}#) + (let ((#{b\ 6073}# + (#{lookup\ 3495}# + #{label\ 6070}# + #{r\ 6059}# + #{mod\ 6062}#))) + (if (eq? (#{binding-type\ 3484}# #{b\ 6073}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 2818}# - (#{binding-value\ 229}# #{b\ 2816}#))) - (#{gen-ref\ 2694}# - #{src\ 2800}# - (car #{var.lev\ 2818}#) - (cdr #{var.lev\ 2818}#) - #{maps\ 2803}#))) - (lambda (#{var\ 2819}# #{maps\ 2820}#) + (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}#) (values - (list (quote ref) #{var\ 2819}#) - #{maps\ 2820}#))) - (if (#{ellipsis?\ 2804}# #{e\ 2801}#) + (list (quote ref) #{var\ 6076}#) + #{maps\ 6077}#))) + (if (#{ellipsis?\ 6061}# #{e\ 6058}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2800}#) + #{src\ 6057}#) (values - (list (quote quote) #{e\ 2801}#) - #{maps\ 2803}#))))) - ((lambda (#{tmp\ 2825}#) - ((lambda (#{tmp\ 2826}#) - (if (if #{tmp\ 2826}# - (apply (lambda (#{dots\ 2829}# #{e\ 2830}#) - (#{ellipsis?\ 2804}# - #{dots\ 2829}#)) - #{tmp\ 2826}#) + (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}#) #f) - (apply (lambda (#{dots\ 2833}# #{e\ 2834}#) - (#{gen-syntax\ 2692}# - #{src\ 2800}# - #{e\ 2834}# - #{r\ 2802}# - #{maps\ 2803}# - (lambda (#{x\ 2835}#) #f) - #{mod\ 2805}#)) - #{tmp\ 2826}#) - ((lambda (#{tmp\ 2837}#) - (if (if #{tmp\ 2837}# - (apply (lambda (#{x\ 2841}# - #{dots\ 2842}# - #{y\ 2843}#) - (#{ellipsis?\ 2804}# - #{dots\ 2842}#)) - #{tmp\ 2837}#) + (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}#) #f) - (apply (lambda (#{x\ 2847}# - #{dots\ 2848}# - #{y\ 2849}#) - (letrec ((#{f\ 2853}# - (lambda (#{y\ 2854}# - #{k\ 2855}#) - ((lambda (#{tmp\ 2862}#) - ((lambda (#{tmp\ 2863}#) - (if (if #{tmp\ 2863}# - (apply (lambda (#{dots\ 2866}# - #{y\ 2867}#) - (#{ellipsis?\ 2804}# - #{dots\ 2866}#)) - #{tmp\ 2863}#) + (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}#) #f) - (apply (lambda (#{dots\ 2870}# - #{y\ 2871}#) - (#{f\ 2853}# - #{y\ 2871}# - (lambda (#{maps\ 2872}#) + (apply (lambda (#{dots\ 6127}# + #{y\ 6128}#) + (#{f\ 6110}# + #{y\ 6128}# + (lambda (#{maps\ 6129}#) (call-with-values (lambda () - (#{k\ 2855}# + (#{k\ 6112}# (cons '() - #{maps\ 2872}#))) - (lambda (#{x\ 2874}# - #{maps\ 2875}#) - (if (null? (car #{maps\ 2875}#)) + #{maps\ 6129}#))) + (lambda (#{x\ 6131}# + #{maps\ 6132}#) + (if (null? (car #{maps\ 6132}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2800}#) + #{src\ 6057}#) (values - (#{gen-mappend\ 2696}# - #{x\ 2874}# - (car #{maps\ 2875}#)) - (cdr #{maps\ 2875}#)))))))) - #{tmp\ 2863}#) - ((lambda (#{_\ 2879}#) + (#{gen-mappend\ 5953}# + #{x\ 6131}# + (car #{maps\ 6132}#)) + (cdr #{maps\ 6132}#)))))))) + #{tmp\ 6120}#) + ((lambda (#{_\ 6136}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{src\ 2800}# - #{y\ 2854}# - #{r\ 2802}# - #{maps\ 2803}# - #{ellipsis?\ 2804}# - #{mod\ 2805}#)) - (lambda (#{y\ 2880}# - #{maps\ 2881}#) + (#{gen-syntax\ 5949}# + #{src\ 6057}# + #{y\ 6111}# + #{r\ 6059}# + #{maps\ 6060}# + #{ellipsis?\ 6061}# + #{mod\ 6062}#)) + (lambda (#{y\ 6137}# + #{maps\ 6138}#) (call-with-values (lambda () - (#{k\ 2855}# - #{maps\ 2881}#)) - (lambda (#{x\ 2884}# - #{maps\ 2885}#) + (#{k\ 6112}# + #{maps\ 6138}#)) + (lambda (#{x\ 6141}# + #{maps\ 6142}#) (values - (#{gen-append\ 2702}# - #{x\ 2884}# - #{y\ 2880}#) - #{maps\ 2885}#)))))) - #{tmp\ 2862}#))) + (#{gen-append\ 5959}# + #{x\ 6141}# + #{y\ 6137}#) + #{maps\ 6142}#)))))) + #{tmp\ 6119}#))) ($sc-dispatch - #{tmp\ 2862}# + #{tmp\ 6119}# '(any . any)))) - #{y\ 2854}#)))) - (#{f\ 2853}# - #{y\ 2849}# - (lambda (#{maps\ 2856}#) + #{y\ 6111}#)))) + (#{f\ 6110}# + #{y\ 6106}# + (lambda (#{maps\ 6113}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{src\ 2800}# - #{x\ 2847}# - #{r\ 2802}# + (#{gen-syntax\ 5949}# + #{src\ 6057}# + #{x\ 6104}# + #{r\ 6059}# (cons '() - #{maps\ 2856}#) - #{ellipsis?\ 2804}# - #{mod\ 2805}#)) - (lambda (#{x\ 2858}# - #{maps\ 2859}#) - (if (null? (car #{maps\ 2859}#)) + #{maps\ 6113}#) + #{ellipsis?\ 6061}# + #{mod\ 6062}#)) + (lambda (#{x\ 6115}# + #{maps\ 6116}#) + (if (null? (car #{maps\ 6116}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2800}#) + #{src\ 6057}#) (values - (#{gen-map\ 2698}# - #{x\ 2858}# - (car #{maps\ 2859}#)) - (cdr #{maps\ 2859}#))))))))) - #{tmp\ 2837}#) - ((lambda (#{tmp\ 2888}#) - (if #{tmp\ 2888}# - (apply (lambda (#{x\ 2891}# - #{y\ 2892}#) + (#{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}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{src\ 2800}# - #{x\ 2891}# - #{r\ 2802}# - #{maps\ 2803}# - #{ellipsis?\ 2804}# - #{mod\ 2805}#)) - (lambda (#{x\ 2893}# - #{maps\ 2894}#) + (#{gen-syntax\ 5949}# + #{src\ 6057}# + #{x\ 6148}# + #{r\ 6059}# + #{maps\ 6060}# + #{ellipsis?\ 6061}# + #{mod\ 6062}#)) + (lambda (#{x\ 6150}# + #{maps\ 6151}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{src\ 2800}# - #{y\ 2892}# - #{r\ 2802}# - #{maps\ 2894}# - #{ellipsis?\ 2804}# - #{mod\ 2805}#)) - (lambda (#{y\ 2897}# - #{maps\ 2898}#) + (#{gen-syntax\ 5949}# + #{src\ 6057}# + #{y\ 6149}# + #{r\ 6059}# + #{maps\ 6151}# + #{ellipsis?\ 6061}# + #{mod\ 6062}#)) + (lambda (#{y\ 6154}# + #{maps\ 6155}#) (values - (#{gen-cons\ 2700}# - #{x\ 2893}# - #{y\ 2897}#) - #{maps\ 2898}#)))))) - #{tmp\ 2888}#) - ((lambda (#{tmp\ 2901}#) - (if #{tmp\ 2901}# - (apply (lambda (#{e1\ 2904}# - #{e2\ 2905}#) + (#{gen-cons\ 5957}# + #{x\ 6150}# + #{y\ 6154}#) + #{maps\ 6155}#)))))) + #{tmp\ 6145}#) + ((lambda (#{tmp\ 6158}#) + (if #{tmp\ 6158}# + (apply (lambda (#{e1\ 6161}# + #{e2\ 6162}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{src\ 2800}# - (cons #{e1\ 2904}# - #{e2\ 2905}#) - #{r\ 2802}# - #{maps\ 2803}# - #{ellipsis?\ 2804}# - #{mod\ 2805}#)) - (lambda (#{e\ 2907}# - #{maps\ 2908}#) + (#{gen-syntax\ 5949}# + #{src\ 6057}# + (cons #{e1\ 6161}# + #{e2\ 6162}#) + #{r\ 6059}# + #{maps\ 6060}# + #{ellipsis?\ 6061}# + #{mod\ 6062}#)) + (lambda (#{e\ 6164}# + #{maps\ 6165}#) (values - (#{gen-vector\ 2704}# - #{e\ 2907}#) - #{maps\ 2908}#)))) - #{tmp\ 2901}#) - ((lambda (#{_\ 2912}#) + (#{gen-vector\ 5961}# + #{e\ 6164}#) + #{maps\ 6165}#)))) + #{tmp\ 6158}#) + ((lambda (#{_\ 6169}#) (values (list 'quote - #{e\ 2801}#) - #{maps\ 2803}#)) - #{tmp\ 2825}#))) + #{e\ 6058}#) + #{maps\ 6060}#)) + #{tmp\ 6082}#))) ($sc-dispatch - #{tmp\ 2825}# + #{tmp\ 6082}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2825}# + #{tmp\ 6082}# '(any . any))))) ($sc-dispatch - #{tmp\ 2825}# + #{tmp\ 6082}# '(any any . any))))) - ($sc-dispatch #{tmp\ 2825}# (quote (any any))))) - #{e\ 2801}#))))) - (lambda (#{e\ 2914}# - #{r\ 2915}# - #{w\ 2916}# - #{s\ 2917}# - #{mod\ 2918}#) - (let ((#{e\ 2925}# - (#{source-wrap\ 315}# - #{e\ 2914}# - #{w\ 2916}# - #{s\ 2917}# - #{mod\ 2918}#))) - ((lambda (#{tmp\ 2926}#) - ((lambda (#{tmp\ 2927}#) - (if #{tmp\ 2927}# - (apply (lambda (#{_\ 2930}# #{x\ 2931}#) + ($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}#) (call-with-values (lambda () - (#{gen-syntax\ 2692}# - #{e\ 2925}# - #{x\ 2931}# - #{r\ 2915}# + (#{gen-syntax\ 5949}# + #{e\ 6182}# + #{x\ 6188}# + #{r\ 6172}# '() - #{ellipsis?\ 345}# - #{mod\ 2918}#)) - (lambda (#{e\ 2932}# #{maps\ 2933}#) - (#{regen\ 2706}# #{e\ 2932}#)))) - #{tmp\ 2927}#) - ((lambda (#{_\ 2937}#) + #{ellipsis?\ 3602}# + #{mod\ 6175}#)) + (lambda (#{e\ 6189}# #{maps\ 6190}#) + (#{regen\ 5963}# #{e\ 6189}#)))) + #{tmp\ 6184}#) + ((lambda (#{_\ 6194}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2925}#)) - #{tmp\ 2926}#))) - ($sc-dispatch #{tmp\ 2926}# (quote (any any))))) - #{e\ 2925}#))))) - (#{global-extend\ 240}# + #{e\ 6182}#)) + #{tmp\ 6183}#))) + ($sc-dispatch #{tmp\ 6183}# (quote (any any))))) + #{e\ 6182}#))))) + (#{global-extend\ 3497}# 'core 'lambda - (lambda (#{e\ 2938}# - #{r\ 2939}# - #{w\ 2940}# - #{s\ 2941}# - #{mod\ 2942}#) - ((lambda (#{tmp\ 2948}#) - ((lambda (#{tmp\ 2949}#) - (if (if #{tmp\ 2949}# - (apply (lambda (#{_\ 2955}# - #{args\ 2956}# - #{docstring\ 2957}# - #{e1\ 2958}# - #{e2\ 2959}#) - (string? (syntax->datum #{docstring\ 2957}#))) - #{tmp\ 2949}#) + (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}#) #f) - (apply (lambda (#{_\ 2965}# - #{args\ 2966}# - #{docstring\ 2967}# - #{e1\ 2968}# - #{e2\ 2969}#) + (apply (lambda (#{_\ 6222}# + #{args\ 6223}# + #{docstring\ 6224}# + #{e1\ 6225}# + #{e2\ 6226}#) (call-with-values (lambda () - (#{lambda-formals\ 347}# #{args\ 2966}#)) - (lambda (#{req\ 2970}# - #{opt\ 2971}# - #{rest\ 2972}# - #{kw\ 2973}#) - (#{chi-simple-lambda\ 349}# - #{e\ 2938}# - #{r\ 2939}# - #{w\ 2940}# - #{s\ 2941}# - #{mod\ 2942}# - #{req\ 2970}# - #{rest\ 2972}# - (syntax->datum #{docstring\ 2967}#) - (cons #{e1\ 2968}# #{e2\ 2969}#))))) - #{tmp\ 2949}#) - ((lambda (#{tmp\ 2979}#) - (if #{tmp\ 2979}# - (apply (lambda (#{_\ 2984}# - #{args\ 2985}# - #{e1\ 2986}# - #{e2\ 2987}#) + (#{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}#) (call-with-values (lambda () - (#{lambda-formals\ 347}# #{args\ 2985}#)) - (lambda (#{req\ 2988}# - #{opt\ 2989}# - #{rest\ 2990}# - #{kw\ 2991}#) - (#{chi-simple-lambda\ 349}# - #{e\ 2938}# - #{r\ 2939}# - #{w\ 2940}# - #{s\ 2941}# - #{mod\ 2942}# - #{req\ 2988}# - #{rest\ 2990}# + (#{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}# #f - (cons #{e1\ 2986}# #{e2\ 2987}#))))) - #{tmp\ 2979}#) - ((lambda (#{_\ 2998}#) + (cons #{e1\ 6243}# #{e2\ 6244}#))))) + #{tmp\ 6236}#) + ((lambda (#{_\ 6255}#) (syntax-violation 'lambda "bad lambda" - #{e\ 2938}#)) - #{tmp\ 2948}#))) + #{e\ 6195}#)) + #{tmp\ 6205}#))) ($sc-dispatch - #{tmp\ 2948}# + #{tmp\ 6205}# '(any any any . each-any))))) ($sc-dispatch - #{tmp\ 2948}# + #{tmp\ 6205}# '(any any any any . each-any)))) - #{e\ 2938}#))) - (#{global-extend\ 240}# + #{e\ 6195}#))) + (#{global-extend\ 3497}# 'core 'lambda* - (lambda (#{e\ 2999}# - #{r\ 3000}# - #{w\ 3001}# - #{s\ 3002}# - #{mod\ 3003}#) - ((lambda (#{tmp\ 3009}#) - ((lambda (#{tmp\ 3010}#) - (if #{tmp\ 3010}# - (apply (lambda (#{_\ 3015}# - #{args\ 3016}# - #{e1\ 3017}# - #{e2\ 3018}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 353}# - #{e\ 2999}# - #{r\ 3000}# - #{w\ 3001}# - #{s\ 3002}# - #{mod\ 3003}# - #{lambda*-formals\ 351}# - (list (cons #{args\ 3016}# - (cons #{e1\ 3017}# - #{e2\ 3018}#))))) - (lambda (#{docstring\ 3020}# #{lcase\ 3021}#) - (#{build-case-lambda\ 188}# - #{s\ 3002}# - #{docstring\ 3020}# - #{lcase\ 3021}#)))) - #{tmp\ 3010}#) - ((lambda (#{_\ 3025}#) + (#{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}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 2999}#)) - #{tmp\ 3009}#))) + #{e\ 6256}#)) + #{tmp\ 6266}#))) ($sc-dispatch - #{tmp\ 3009}# + #{tmp\ 6266}# '(any any any . each-any)))) - #{e\ 2999}#))) - (#{global-extend\ 240}# + #{e\ 6256}#))) + (#{global-extend\ 3497}# 'core 'case-lambda - (lambda (#{e\ 3026}# - #{r\ 3027}# - #{w\ 3028}# - #{s\ 3029}# - #{mod\ 3030}#) - ((lambda (#{tmp\ 3036}#) - ((lambda (#{tmp\ 3037}#) - (if #{tmp\ 3037}# - (apply (lambda (#{_\ 3045}# - #{args\ 3046}# - #{e1\ 3047}# - #{e2\ 3048}# - #{args*\ 3049}# - #{e1*\ 3050}# - #{e2*\ 3051}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 353}# - #{e\ 3026}# - #{r\ 3027}# - #{w\ 3028}# - #{s\ 3029}# - #{mod\ 3030}# - #{lambda-formals\ 347}# - (cons (cons #{args\ 3046}# - (cons #{e1\ 3047}# #{e2\ 3048}#)) - (map (lambda (#{tmp\ 3055}# - #{tmp\ 3054}# - #{tmp\ 3053}#) - (cons #{tmp\ 3053}# - (cons #{tmp\ 3054}# - #{tmp\ 3055}#))) - #{e2*\ 3051}# - #{e1*\ 3050}# - #{args*\ 3049}#)))) - (lambda (#{docstring\ 3057}# #{lcase\ 3058}#) - (#{build-case-lambda\ 188}# - #{s\ 3029}# - #{docstring\ 3057}# - #{lcase\ 3058}#)))) - #{tmp\ 3037}#) - ((lambda (#{_\ 3062}#) + (#{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}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3026}#)) - #{tmp\ 3036}#))) + #{e\ 6283}#)) + #{tmp\ 6293}#))) ($sc-dispatch - #{tmp\ 3036}# + #{tmp\ 6293}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3026}#))) - (#{global-extend\ 240}# + #{e\ 6283}#))) + (#{global-extend\ 3497}# 'core 'case-lambda* - (lambda (#{e\ 3063}# - #{r\ 3064}# - #{w\ 3065}# - #{s\ 3066}# - #{mod\ 3067}#) - ((lambda (#{tmp\ 3073}#) - ((lambda (#{tmp\ 3074}#) - (if #{tmp\ 3074}# - (apply (lambda (#{_\ 3082}# - #{args\ 3083}# - #{e1\ 3084}# - #{e2\ 3085}# - #{args*\ 3086}# - #{e1*\ 3087}# - #{e2*\ 3088}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 353}# - #{e\ 3063}# - #{r\ 3064}# - #{w\ 3065}# - #{s\ 3066}# - #{mod\ 3067}# - #{lambda*-formals\ 351}# - (cons (cons #{args\ 3083}# - (cons #{e1\ 3084}# #{e2\ 3085}#)) - (map (lambda (#{tmp\ 3092}# - #{tmp\ 3091}# - #{tmp\ 3090}#) - (cons #{tmp\ 3090}# - (cons #{tmp\ 3091}# - #{tmp\ 3092}#))) - #{e2*\ 3088}# - #{e1*\ 3087}# - #{args*\ 3086}#)))) - (lambda (#{docstring\ 3094}# #{lcase\ 3095}#) - (#{build-case-lambda\ 188}# - #{s\ 3066}# - #{docstring\ 3094}# - #{lcase\ 3095}#)))) - #{tmp\ 3074}#) - ((lambda (#{_\ 3099}#) + (#{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}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3063}#)) - #{tmp\ 3073}#))) + #{e\ 6320}#)) + #{tmp\ 6330}#))) ($sc-dispatch - #{tmp\ 3073}# + #{tmp\ 6330}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3063}#))) - (#{global-extend\ 240}# + #{e\ 6320}#))) + (#{global-extend\ 3497}# 'core 'let - (letrec ((#{chi-let\ 3101}# - (lambda (#{e\ 3102}# - #{r\ 3103}# - #{w\ 3104}# - #{s\ 3105}# - #{mod\ 3106}# - #{constructor\ 3107}# - #{ids\ 3108}# - #{vals\ 3109}# - #{exps\ 3110}#) - (if (not (#{valid-bound-ids?\ 307}# #{ids\ 3108}#)) + (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}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3102}#) - (let ((#{labels\ 3122}# - (#{gen-labels\ 262}# #{ids\ 3108}#)) - (#{new-vars\ 3123}# - (map #{gen-var\ 357}# #{ids\ 3108}#))) - (let ((#{nw\ 3126}# - (#{make-binding-wrap\ 291}# - #{ids\ 3108}# - #{labels\ 3122}# - #{w\ 3104}#)) - (#{nr\ 3127}# - (#{extend-var-env\ 234}# - #{labels\ 3122}# - #{new-vars\ 3123}# - #{r\ 3103}#))) - (#{constructor\ 3107}# - #{s\ 3105}# - (map syntax->datum #{ids\ 3108}#) - #{new-vars\ 3123}# - (map (lambda (#{x\ 3128}#) - (#{chi\ 329}# - #{x\ 3128}# - #{r\ 3103}# - #{w\ 3104}# - #{mod\ 3106}#)) - #{vals\ 3109}#) - (#{chi-body\ 337}# - #{exps\ 3110}# - (#{source-wrap\ 315}# - #{e\ 3102}# - #{nw\ 3126}# - #{s\ 3105}# - #{mod\ 3106}#) - #{nr\ 3127}# - #{nw\ 3126}# - #{mod\ 3106}#)))))))) - (lambda (#{e\ 3130}# - #{r\ 3131}# - #{w\ 3132}# - #{s\ 3133}# - #{mod\ 3134}#) - ((lambda (#{tmp\ 3140}#) - ((lambda (#{tmp\ 3141}#) - (if (if #{tmp\ 3141}# - (apply (lambda (#{_\ 3147}# - #{id\ 3148}# - #{val\ 3149}# - #{e1\ 3150}# - #{e2\ 3151}#) - (and-map #{id?\ 244}# #{id\ 3148}#)) - #{tmp\ 3141}#) + #{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}#) #f) - (apply (lambda (#{_\ 3158}# - #{id\ 3159}# - #{val\ 3160}# - #{e1\ 3161}# - #{e2\ 3162}#) - (#{chi-let\ 3101}# - #{e\ 3130}# - #{r\ 3131}# - #{w\ 3132}# - #{s\ 3133}# - #{mod\ 3134}# - #{build-let\ 198}# - #{id\ 3159}# - #{val\ 3160}# - (cons #{e1\ 3161}# #{e2\ 3162}#))) - #{tmp\ 3141}#) - ((lambda (#{tmp\ 3166}#) - (if (if #{tmp\ 3166}# - (apply (lambda (#{_\ 3173}# - #{f\ 3174}# - #{id\ 3175}# - #{val\ 3176}# - #{e1\ 3177}# - #{e2\ 3178}#) - (if (#{id?\ 244}# #{f\ 3174}#) - (and-map #{id?\ 244}# #{id\ 3175}#) + (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}#) #f)) - #{tmp\ 3166}#) + #{tmp\ 6423}#) #f) - (apply (lambda (#{_\ 3188}# - #{f\ 3189}# - #{id\ 3190}# - #{val\ 3191}# - #{e1\ 3192}# - #{e2\ 3193}#) - (#{chi-let\ 3101}# - #{e\ 3130}# - #{r\ 3131}# - #{w\ 3132}# - #{s\ 3133}# - #{mod\ 3134}# - #{build-named-let\ 200}# - (cons #{f\ 3189}# #{id\ 3190}#) - #{val\ 3191}# - (cons #{e1\ 3192}# #{e2\ 3193}#))) - #{tmp\ 3166}#) - ((lambda (#{_\ 3198}#) + (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}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 315}# - #{e\ 3130}# - #{w\ 3132}# - #{s\ 3133}# - #{mod\ 3134}#))) - #{tmp\ 3140}#))) + (#{source-wrap\ 3572}# + #{e\ 6387}# + #{w\ 6389}# + #{s\ 6390}# + #{mod\ 6391}#))) + #{tmp\ 6397}#))) ($sc-dispatch - #{tmp\ 3140}# + #{tmp\ 6397}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3140}# + #{tmp\ 6397}# '(any #(each (any any)) any . each-any)))) - #{e\ 3130}#)))) - (#{global-extend\ 240}# + #{e\ 6387}#)))) + (#{global-extend\ 3497}# 'core 'letrec - (lambda (#{e\ 3199}# - #{r\ 3200}# - #{w\ 3201}# - #{s\ 3202}# - #{mod\ 3203}#) - ((lambda (#{tmp\ 3209}#) - ((lambda (#{tmp\ 3210}#) - (if (if #{tmp\ 3210}# - (apply (lambda (#{_\ 3216}# - #{id\ 3217}# - #{val\ 3218}# - #{e1\ 3219}# - #{e2\ 3220}#) - (and-map #{id?\ 244}# #{id\ 3217}#)) - #{tmp\ 3210}#) + (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}#) #f) - (apply (lambda (#{_\ 3227}# - #{id\ 3228}# - #{val\ 3229}# - #{e1\ 3230}# - #{e2\ 3231}#) - (let ((#{ids\ 3233}# #{id\ 3228}#)) - (if (not (#{valid-bound-ids?\ 307}# - #{ids\ 3233}#)) + (apply (lambda (#{_\ 6484}# + #{id\ 6485}# + #{val\ 6486}# + #{e1\ 6487}# + #{e2\ 6488}#) + (let ((#{ids\ 6490}# #{id\ 6485}#)) + (if (not (#{valid-bound-ids?\ 3564}# + #{ids\ 6490}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3199}#) - (let ((#{labels\ 3237}# - (#{gen-labels\ 262}# #{ids\ 3233}#)) - (#{new-vars\ 3238}# - (map #{gen-var\ 357}# #{ids\ 3233}#))) - (let ((#{w\ 3241}# - (#{make-binding-wrap\ 291}# - #{ids\ 3233}# - #{labels\ 3237}# - #{w\ 3201}#)) - (#{r\ 3242}# - (#{extend-var-env\ 234}# - #{labels\ 3237}# - #{new-vars\ 3238}# - #{r\ 3200}#))) - (#{build-letrec\ 202}# - #{s\ 3202}# - (map syntax->datum #{ids\ 3233}#) - #{new-vars\ 3238}# - (map (lambda (#{x\ 3243}#) - (#{chi\ 329}# - #{x\ 3243}# - #{r\ 3242}# - #{w\ 3241}# - #{mod\ 3203}#)) - #{val\ 3229}#) - (#{chi-body\ 337}# - (cons #{e1\ 3230}# #{e2\ 3231}#) - (#{source-wrap\ 315}# - #{e\ 3199}# - #{w\ 3241}# - #{s\ 3202}# - #{mod\ 3203}#) - #{r\ 3242}# - #{w\ 3241}# - #{mod\ 3203}#))))))) - #{tmp\ 3210}#) - ((lambda (#{_\ 3248}#) + #{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}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 315}# - #{e\ 3199}# - #{w\ 3201}# - #{s\ 3202}# - #{mod\ 3203}#))) - #{tmp\ 3209}#))) + (#{source-wrap\ 3572}# + #{e\ 6456}# + #{w\ 6458}# + #{s\ 6459}# + #{mod\ 6460}#))) + #{tmp\ 6466}#))) ($sc-dispatch - #{tmp\ 3209}# + #{tmp\ 6466}# '(any #(each (any any)) any . each-any)))) - #{e\ 3199}#))) - (#{global-extend\ 240}# + #{e\ 6456}#))) + (#{global-extend\ 3497}# 'core 'set! - (lambda (#{e\ 3249}# - #{r\ 3250}# - #{w\ 3251}# - #{s\ 3252}# - #{mod\ 3253}#) - ((lambda (#{tmp\ 3259}#) - ((lambda (#{tmp\ 3260}#) - (if (if #{tmp\ 3260}# - (apply (lambda (#{_\ 3264}# #{id\ 3265}# #{val\ 3266}#) - (#{id?\ 244}# #{id\ 3265}#)) - #{tmp\ 3260}#) + (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}#) #f) - (apply (lambda (#{_\ 3270}# #{id\ 3271}# #{val\ 3272}#) - (let ((#{val\ 3275}# - (#{chi\ 329}# - #{val\ 3272}# - #{r\ 3250}# - #{w\ 3251}# - #{mod\ 3253}#)) - (#{n\ 3276}# - (#{id-var-name\ 301}# - #{id\ 3271}# - #{w\ 3251}#))) - (let ((#{b\ 3278}# - (#{lookup\ 238}# - #{n\ 3276}# - #{r\ 3250}# - #{mod\ 3253}#))) - (let ((#{atom-key\ 3281}# - (#{binding-type\ 227}# #{b\ 3278}#))) - (if (memv #{atom-key\ 3281}# + (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}# '(lexical)) - (#{build-lexical-assignment\ 174}# - #{s\ 3252}# - (syntax->datum #{id\ 3271}#) - (#{binding-value\ 229}# #{b\ 3278}#) - #{val\ 3275}#) - (if (memv #{atom-key\ 3281}# + (#{build-lexical-assignment\ 3431}# + #{s\ 6509}# + (syntax->datum #{id\ 6528}#) + (#{binding-value\ 3486}# #{b\ 6535}#) + #{val\ 6532}#) + (if (memv #{atom-key\ 6538}# '(global)) - (#{build-global-assignment\ 180}# - #{s\ 3252}# - #{n\ 3276}# - #{val\ 3275}# - #{mod\ 3253}#) - (if (memv #{atom-key\ 3281}# + (#{build-global-assignment\ 3437}# + #{s\ 6509}# + #{n\ 6533}# + #{val\ 6532}# + #{mod\ 6510}#) + (if (memv #{atom-key\ 6538}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 313}# - #{id\ 3271}# - #{w\ 3251}# - #{mod\ 3253}#)) + (#{wrap\ 3570}# + #{id\ 6528}# + #{w\ 6508}# + #{mod\ 6510}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 315}# - #{e\ 3249}# - #{w\ 3251}# - #{s\ 3252}# - #{mod\ 3253}#))))))))) - #{tmp\ 3260}#) - ((lambda (#{tmp\ 3286}#) - (if #{tmp\ 3286}# - (apply (lambda (#{_\ 3291}# - #{head\ 3292}# - #{tail\ 3293}# - #{val\ 3294}#) + (#{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}#) (call-with-values (lambda () - (#{syntax-type\ 325}# - #{head\ 3292}# - #{r\ 3250}# + (#{syntax-type\ 3582}# + #{head\ 6549}# + #{r\ 6507}# '(()) #f #f - #{mod\ 3253}# + #{mod\ 6510}# #t)) - (lambda (#{type\ 3297}# - #{value\ 3298}# - #{ee\ 3299}# - #{ww\ 3300}# - #{ss\ 3301}# - #{modmod\ 3302}#) - (if (memv #{type\ 3297}# + (lambda (#{type\ 6554}# + #{value\ 6555}# + #{ee\ 6556}# + #{ww\ 6557}# + #{ss\ 6558}# + #{modmod\ 6559}#) + (if (memv #{type\ 6554}# '(module-ref)) - (let ((#{val\ 3311}# - (#{chi\ 329}# - #{val\ 3294}# - #{r\ 3250}# - #{w\ 3251}# - #{mod\ 3253}#))) + (let ((#{val\ 6568}# + (#{chi\ 3586}# + #{val\ 6551}# + #{r\ 6507}# + #{w\ 6508}# + #{mod\ 6510}#))) (call-with-values (lambda () - (#{value\ 3298}# - (cons #{head\ 3292}# - #{tail\ 3293}#))) - (lambda (#{id\ 3313}# #{mod\ 3314}#) - (#{build-global-assignment\ 180}# - #{s\ 3252}# - #{id\ 3313}# - #{val\ 3311}# - #{mod\ 3314}#)))) - (#{build-application\ 166}# - #{s\ 3252}# - (#{chi\ 329}# + (#{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}# (list '#(syntax-object setter ((top) @@ -8949,22 +8962,22 @@ (top) (top) (top)) - #("i3303" - "i3304" - "i3305" - "i3306" - "i3307" - "i3308")) + #("i6560" + "i6561" + "i6562" + "i6563" + "i6564" + "i6565")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3287" - "i3288" - "i3289" - "i3290")) + #("i6544" + "i6545" + "i6546" + "i6547")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -8973,11 +8986,11 @@ (top) (top) (top)) - #("i3254" - "i3255" - "i3256" - "i3257" - "i3258")) + #("i6511" + "i6512" + "i6513" + "i6514" + "i6515")) #(ribcage (lambda-var-list gen-var @@ -9215,177 +9228,177 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile)) - #{head\ 3292}#) - #{r\ 3250}# - #{w\ 3251}# - #{mod\ 3253}#) - (map (lambda (#{e\ 3318}#) - (#{chi\ 329}# - #{e\ 3318}# - #{r\ 3250}# - #{w\ 3251}# - #{mod\ 3253}#)) + #{head\ 6549}#) + #{r\ 6507}# + #{w\ 6508}# + #{mod\ 6510}#) + (map (lambda (#{e\ 6575}#) + (#{chi\ 3586}# + #{e\ 6575}# + #{r\ 6507}# + #{w\ 6508}# + #{mod\ 6510}#)) (append - #{tail\ 3293}# - (list #{val\ 3294}#)))))))) - #{tmp\ 3286}#) - ((lambda (#{_\ 3322}#) + #{tail\ 6550}# + (list #{val\ 6551}#)))))))) + #{tmp\ 6543}#) + ((lambda (#{_\ 6579}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 315}# - #{e\ 3249}# - #{w\ 3251}# - #{s\ 3252}# - #{mod\ 3253}#))) - #{tmp\ 3259}#))) + (#{source-wrap\ 3572}# + #{e\ 6506}# + #{w\ 6508}# + #{s\ 6509}# + #{mod\ 6510}#))) + #{tmp\ 6516}#))) ($sc-dispatch - #{tmp\ 3259}# + #{tmp\ 6516}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3259}# + #{tmp\ 6516}# '(any any any)))) - #{e\ 3249}#))) - (#{global-extend\ 240}# + #{e\ 6506}#))) + (#{global-extend\ 3497}# 'module-ref '@ - (lambda (#{e\ 3323}#) - ((lambda (#{tmp\ 3325}#) - ((lambda (#{tmp\ 3326}#) - (if (if #{tmp\ 3326}# - (apply (lambda (#{_\ 3330}# #{mod\ 3331}# #{id\ 3332}#) - (if (and-map #{id?\ 244}# #{mod\ 3331}#) - (#{id?\ 244}# #{id\ 3332}#) + (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}#) #f)) - #{tmp\ 3326}#) + #{tmp\ 6583}#) #f) - (apply (lambda (#{_\ 3339}# #{mod\ 3340}# #{id\ 3341}#) + (apply (lambda (#{_\ 6596}# #{mod\ 6597}# #{id\ 6598}#) (values - (syntax->datum #{id\ 3341}#) + (syntax->datum #{id\ 6598}#) (syntax->datum (cons '#(syntax-object public @@ -9393,9 +9406,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3336" "i3337" "i3338")) + #("i6593" "i6594" "i6595")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3324")) + #(ribcage #(e) #((top)) #("i6581")) #(ribcage (lambda-var-list gen-var @@ -9633,155 +9646,155 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile)) - #{mod\ 3340}#)))) - #{tmp\ 3326}#) + #{mod\ 6597}#)))) + #{tmp\ 6583}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3325}#))) + #{tmp\ 6582}#))) ($sc-dispatch - #{tmp\ 3325}# + #{tmp\ 6582}# '(any each-any any)))) - #{e\ 3323}#))) - (#{global-extend\ 240}# + #{e\ 6580}#))) + (#{global-extend\ 3497}# 'module-ref '@@ - (lambda (#{e\ 3343}#) - ((lambda (#{tmp\ 3345}#) - ((lambda (#{tmp\ 3346}#) - (if (if #{tmp\ 3346}# - (apply (lambda (#{_\ 3350}# #{mod\ 3351}# #{id\ 3352}#) - (if (and-map #{id?\ 244}# #{mod\ 3351}#) - (#{id?\ 244}# #{id\ 3352}#) + (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}#) #f)) - #{tmp\ 3346}#) + #{tmp\ 6603}#) #f) - (apply (lambda (#{_\ 3359}# #{mod\ 3360}# #{id\ 3361}#) + (apply (lambda (#{_\ 6616}# #{mod\ 6617}# #{id\ 6618}#) (values - (syntax->datum #{id\ 3361}#) + (syntax->datum #{id\ 6618}#) (syntax->datum (cons '#(syntax-object private @@ -9789,9 +9802,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3356" "i3357" "i3358")) + #("i6613" "i6614" "i6615")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3344")) + #(ribcage #(e) #((top)) #("i6601")) #(ribcage (lambda-var-list gen-var @@ -10029,304 +10042,304 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile)) - #{mod\ 3360}#)))) - #{tmp\ 3346}#) + #{mod\ 6617}#)))) + #{tmp\ 6603}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3345}#))) + #{tmp\ 6602}#))) ($sc-dispatch - #{tmp\ 3345}# + #{tmp\ 6602}# '(any each-any any)))) - #{e\ 3343}#))) - (#{global-extend\ 240}# + #{e\ 6600}#))) + (#{global-extend\ 3497}# 'core 'if - (lambda (#{e\ 3363}# - #{r\ 3364}# - #{w\ 3365}# - #{s\ 3366}# - #{mod\ 3367}#) - ((lambda (#{tmp\ 3373}#) - ((lambda (#{tmp\ 3374}#) - (if #{tmp\ 3374}# - (apply (lambda (#{_\ 3378}# #{test\ 3379}# #{then\ 3380}#) - (#{build-conditional\ 168}# - #{s\ 3366}# - (#{chi\ 329}# - #{test\ 3379}# - #{r\ 3364}# - #{w\ 3365}# - #{mod\ 3367}#) - (#{chi\ 329}# - #{then\ 3380}# - #{r\ 3364}# - #{w\ 3365}# - #{mod\ 3367}#) - (#{build-void\ 164}# #f))) - #{tmp\ 3374}#) - ((lambda (#{tmp\ 3382}#) - (if #{tmp\ 3382}# - (apply (lambda (#{_\ 3387}# - #{test\ 3388}# - #{then\ 3389}# - #{else\ 3390}#) - (#{build-conditional\ 168}# - #{s\ 3366}# - (#{chi\ 329}# - #{test\ 3388}# - #{r\ 3364}# - #{w\ 3365}# - #{mod\ 3367}#) - (#{chi\ 329}# - #{then\ 3389}# - #{r\ 3364}# - #{w\ 3365}# - #{mod\ 3367}#) - (#{chi\ 329}# - #{else\ 3390}# - #{r\ 3364}# - #{w\ 3365}# - #{mod\ 3367}#))) - #{tmp\ 3382}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3373}#))) + #{tmp\ 6630}#))) ($sc-dispatch - #{tmp\ 3373}# + #{tmp\ 6630}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3373}# + #{tmp\ 6630}# '(any any any)))) - #{e\ 3363}#))) - (#{global-extend\ 240}# + #{e\ 6620}#))) + (#{global-extend\ 3497}# 'core 'with-fluids - (lambda (#{e\ 3391}# - #{r\ 3392}# - #{w\ 3393}# - #{s\ 3394}# - #{mod\ 3395}#) - ((lambda (#{tmp\ 3401}#) - ((lambda (#{tmp\ 3402}#) - (if #{tmp\ 3402}# - (apply (lambda (#{_\ 3408}# - #{fluid\ 3409}# - #{val\ 3410}# - #{b\ 3411}# - #{b*\ 3412}#) - (#{build-dynlet\ 170}# - #{s\ 3394}# - (map (lambda (#{x\ 3413}#) - (#{chi\ 329}# - #{x\ 3413}# - #{r\ 3392}# - #{w\ 3393}# - #{mod\ 3395}#)) - #{fluid\ 3409}#) - (map (lambda (#{x\ 3416}#) - (#{chi\ 329}# - #{x\ 3416}# - #{r\ 3392}# - #{w\ 3393}# - #{mod\ 3395}#)) - #{val\ 3410}#) - (#{chi-body\ 337}# - (cons #{b\ 3411}# #{b*\ 3412}#) - (#{source-wrap\ 315}# - #{e\ 3391}# - #{w\ 3393}# - #{s\ 3394}# - #{mod\ 3395}#) - #{r\ 3392}# - #{w\ 3393}# - #{mod\ 3395}#))) - #{tmp\ 3402}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3401}#))) + #{tmp\ 6658}#))) ($sc-dispatch - #{tmp\ 3401}# + #{tmp\ 6658}# '(any #(each (any any)) any . each-any)))) - #{e\ 3391}#))) - (#{global-extend\ 240}# + #{e\ 6648}#))) + (#{global-extend\ 3497}# 'begin 'begin '()) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'define 'define '()) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'eval-when 'eval-when '()) - (#{global-extend\ 240}# + (#{global-extend\ 3497}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3427}# - (lambda (#{x\ 3428}# - #{keys\ 3429}# - #{clauses\ 3430}# - #{r\ 3431}# - #{mod\ 3432}#) - (if (null? #{clauses\ 3430}#) - (#{build-application\ 166}# + (letrec ((#{gen-syntax-case\ 6684}# + (lambda (#{x\ 6685}# + #{keys\ 6686}# + #{clauses\ 6687}# + #{r\ 6688}# + #{mod\ 6689}#) + (if (null? #{clauses\ 6687}#) + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f 'syntax-violation) - (list (#{build-data\ 194}# #f #f) - (#{build-data\ 194}# + (list (#{build-data\ 3451}# #f #f) + (#{build-data\ 3451}# #f "source expression failed to match any pattern") - #{x\ 3428}#)) - ((lambda (#{tmp\ 3442}#) - ((lambda (#{tmp\ 3443}#) - (if #{tmp\ 3443}# - (apply (lambda (#{pat\ 3446}# #{exp\ 3447}#) - (if (if (#{id?\ 244}# #{pat\ 3446}#) + #{x\ 6685}#)) + ((lambda (#{tmp\ 6699}#) + ((lambda (#{tmp\ 6700}#) + (if #{tmp\ 6700}# + (apply (lambda (#{pat\ 6703}# #{exp\ 6704}#) + (if (if (#{id?\ 3501}# #{pat\ 6703}#) (and-map - (lambda (#{x\ 3450}#) - (not (#{free-id=?\ 303}# - #{pat\ 3446}# - #{x\ 3450}#))) + (lambda (#{x\ 6707}#) + (not (#{free-id=?\ 3560}# + #{pat\ 6703}# + #{x\ 6707}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3444" "i3445")) + #("i6701" "i6702")) #(ribcage () () ()) #(ribcage #(x @@ -10339,11 +10352,11 @@ (top) (top) (top)) - #("i3433" - "i3434" - "i3435" - "i3436" - "i3437")) + #("i6690" + "i6691" + "i6692" + "i6693" + "i6694")) #(ribcage (gen-syntax-case gen-clause @@ -10353,10 +10366,10 @@ (top) (top) (top)) - ("i3426" - "i3424" - "i3422" - "i3420")) + ("i6683" + "i6681" + "i6679" + "i6677")) #(ribcage (lambda-var-list gen-var @@ -10594,1025 +10607,1026 @@ (top) (top) (top)) - ("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" - "i288" - "i287" - "i286" - "i284" - "i283" - "i282" - "i281" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i261" - "i259" - "i258" - "i257" - "i256" - "i255" - "i254" - "i252" - "i250" - "i248" - "i246" - "i245" - "i243" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i230" - "i228" - "i226" - "i225" - "i224" - "i222" - "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" - "i157" - "i156" - "i154" - "i152" - "i150" - "i148" - "i146" - "i144" - "i142" - "i140")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i43" "i41"))) + ("i3300" "i3298"))) (hygiene guile)) - #{keys\ 3429}#)) + #{keys\ 6686}#)) #f) - (let ((#{labels\ 3454}# - (list (#{gen-label\ 260}#))) - (#{var\ 3455}# - (#{gen-var\ 357}# - #{pat\ 3446}#))) - (#{build-application\ 166}# + (let ((#{labels\ 6711}# + (list (#{gen-label\ 3517}#))) + (#{var\ 6712}# + (#{gen-var\ 3614}# + #{pat\ 6703}#))) + (#{build-application\ 3423}# #f - (#{build-simple-lambda\ 186}# + (#{build-simple-lambda\ 3443}# #f (list (syntax->datum - #{pat\ 3446}#)) + #{pat\ 6703}#)) #f - (list #{var\ 3455}#) + (list #{var\ 6712}#) #f - (#{chi\ 329}# - #{exp\ 3447}# - (#{extend-env\ 232}# - #{labels\ 3454}# + (#{chi\ 3586}# + #{exp\ 6704}# + (#{extend-env\ 3489}# + #{labels\ 6711}# (list (cons 'syntax - (cons #{var\ 3455}# + (cons #{var\ 6712}# 0))) - #{r\ 3431}#) - (#{make-binding-wrap\ 291}# - (list #{pat\ 3446}#) - #{labels\ 3454}# + #{r\ 6688}#) + (#{make-binding-wrap\ 3548}# + (list #{pat\ 6703}#) + #{labels\ 6711}# '(())) - #{mod\ 3432}#)) - (list #{x\ 3428}#))) - (#{gen-clause\ 3425}# - #{x\ 3428}# - #{keys\ 3429}# - (cdr #{clauses\ 3430}#) - #{r\ 3431}# - #{pat\ 3446}# + #{mod\ 6689}#)) + (list #{x\ 6685}#))) + (#{gen-clause\ 6682}# + #{x\ 6685}# + #{keys\ 6686}# + (cdr #{clauses\ 6687}#) + #{r\ 6688}# + #{pat\ 6703}# #t - #{exp\ 3447}# - #{mod\ 3432}#))) - #{tmp\ 3443}#) - ((lambda (#{tmp\ 3461}#) - (if #{tmp\ 3461}# - (apply (lambda (#{pat\ 3465}# - #{fender\ 3466}# - #{exp\ 3467}#) - (#{gen-clause\ 3425}# - #{x\ 3428}# - #{keys\ 3429}# - (cdr #{clauses\ 3430}#) - #{r\ 3431}# - #{pat\ 3465}# - #{fender\ 3466}# - #{exp\ 3467}# - #{mod\ 3432}#)) - #{tmp\ 3461}#) - ((lambda (#{_\ 3469}#) + #{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}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3430}#))) - #{tmp\ 3442}#))) + (car #{clauses\ 6687}#))) + #{tmp\ 6699}#))) ($sc-dispatch - #{tmp\ 3442}# + #{tmp\ 6699}# '(any any any))))) - ($sc-dispatch #{tmp\ 3442}# (quote (any any))))) - (car #{clauses\ 3430}#))))) - (#{gen-clause\ 3425}# - (lambda (#{x\ 3470}# - #{keys\ 3471}# - #{clauses\ 3472}# - #{r\ 3473}# - #{pat\ 3474}# - #{fender\ 3475}# - #{exp\ 3476}# - #{mod\ 3477}#) + ($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}#) (call-with-values (lambda () - (#{convert-pattern\ 3421}# - #{pat\ 3474}# - #{keys\ 3471}#)) - (lambda (#{p\ 3486}# #{pvars\ 3487}#) - (if (not (#{distinct-bound-ids?\ 309}# - (map car #{pvars\ 3487}#))) + (#{convert-pattern\ 6678}# + #{pat\ 6731}# + #{keys\ 6728}#)) + (lambda (#{p\ 6743}# #{pvars\ 6744}#) + (if (not (#{distinct-bound-ids?\ 3566}# + (map car #{pvars\ 6744}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3474}#) + #{pat\ 6731}#) (if (not (and-map - (lambda (#{x\ 3494}#) - (not (#{ellipsis?\ 345}# - (car #{x\ 3494}#)))) - #{pvars\ 3487}#)) + (lambda (#{x\ 6751}#) + (not (#{ellipsis?\ 3602}# + (car #{x\ 6751}#)))) + #{pvars\ 6744}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3474}#) - (let ((#{y\ 3498}# - (#{gen-var\ 357}# (quote tmp)))) - (#{build-application\ 166}# + #{pat\ 6731}#) + (let ((#{y\ 6755}# + (#{gen-var\ 3614}# (quote tmp)))) + (#{build-application\ 3423}# #f - (#{build-simple-lambda\ 186}# + (#{build-simple-lambda\ 3443}# #f (list (quote tmp)) #f - (list #{y\ 3498}#) + (list #{y\ 6755}#) #f - (let ((#{y\ 3502}# - (#{build-lexical-reference\ 172}# + (let ((#{y\ 6759}# + (#{build-lexical-reference\ 3429}# 'value #f 'tmp - #{y\ 3498}#))) - (#{build-conditional\ 168}# + #{y\ 6755}#))) + (#{build-conditional\ 3425}# #f - ((lambda (#{tmp\ 3505}#) - ((lambda (#{tmp\ 3506}#) - (if #{tmp\ 3506}# - (apply (lambda () #{y\ 3502}#) - #{tmp\ 3506}#) - ((lambda (#{_\ 3508}#) - (#{build-conditional\ 168}# + ((lambda (#{tmp\ 6762}#) + ((lambda (#{tmp\ 6763}#) + (if #{tmp\ 6763}# + (apply (lambda () #{y\ 6759}#) + #{tmp\ 6763}#) + ((lambda (#{_\ 6765}#) + (#{build-conditional\ 3425}# #f - #{y\ 3502}# - (#{build-dispatch-call\ 3423}# - #{pvars\ 3487}# - #{fender\ 3475}# - #{y\ 3502}# - #{r\ 3473}# - #{mod\ 3477}#) - (#{build-data\ 194}# + #{y\ 6759}# + (#{build-dispatch-call\ 6680}# + #{pvars\ 6744}# + #{fender\ 6732}# + #{y\ 6759}# + #{r\ 6730}# + #{mod\ 6734}#) + (#{build-data\ 3451}# #f #f))) - #{tmp\ 3505}#))) + #{tmp\ 6762}#))) ($sc-dispatch - #{tmp\ 3505}# + #{tmp\ 6762}# '#(atom #t)))) - #{fender\ 3475}#) - (#{build-dispatch-call\ 3423}# - #{pvars\ 3487}# - #{exp\ 3476}# - #{y\ 3502}# - #{r\ 3473}# - #{mod\ 3477}#) - (#{gen-syntax-case\ 3427}# - #{x\ 3470}# - #{keys\ 3471}# - #{clauses\ 3472}# - #{r\ 3473}# - #{mod\ 3477}#)))) - (list (if (eq? #{p\ 3486}# (quote any)) - (#{build-application\ 166}# + #{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}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f 'list) - (list #{x\ 3470}#)) - (#{build-application\ 166}# + (list #{x\ 6727}#)) + (#{build-application\ 3423}# #f - (#{build-primref\ 192}# + (#{build-primref\ 3449}# #f '$sc-dispatch) - (list #{x\ 3470}# - (#{build-data\ 194}# + (list #{x\ 6727}# + (#{build-data\ 3451}# #f - #{p\ 3486}#))))))))))))) - (#{build-dispatch-call\ 3423}# - (lambda (#{pvars\ 3516}# - #{exp\ 3517}# - #{y\ 3518}# - #{r\ 3519}# - #{mod\ 3520}#) - (let ((#{ids\ 3528}# (map car #{pvars\ 3516}#)) - (#{levels\ 3529}# (map cdr #{pvars\ 3516}#))) - (let ((#{labels\ 3532}# - (#{gen-labels\ 262}# #{ids\ 3528}#)) - (#{new-vars\ 3533}# - (map #{gen-var\ 357}# #{ids\ 3528}#))) - (#{build-application\ 166}# + #{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}# #f - (#{build-primref\ 192}# #f (quote apply)) - (list (#{build-simple-lambda\ 186}# + (#{build-primref\ 3449}# #f (quote apply)) + (list (#{build-simple-lambda\ 3443}# #f - (map syntax->datum #{ids\ 3528}#) + (map syntax->datum #{ids\ 6785}#) #f - #{new-vars\ 3533}# + #{new-vars\ 6790}# #f - (#{chi\ 329}# - #{exp\ 3517}# - (#{extend-env\ 232}# - #{labels\ 3532}# - (map (lambda (#{var\ 3537}# - #{level\ 3538}#) + (#{chi\ 3586}# + #{exp\ 6774}# + (#{extend-env\ 3489}# + #{labels\ 6789}# + (map (lambda (#{var\ 6794}# + #{level\ 6795}#) (cons 'syntax - (cons #{var\ 3537}# - #{level\ 3538}#))) - #{new-vars\ 3533}# - (map cdr #{pvars\ 3516}#)) - #{r\ 3519}#) - (#{make-binding-wrap\ 291}# - #{ids\ 3528}# - #{labels\ 3532}# + (cons #{var\ 6794}# + #{level\ 6795}#))) + #{new-vars\ 6790}# + (map cdr #{pvars\ 6773}#)) + #{r\ 6776}#) + (#{make-binding-wrap\ 3548}# + #{ids\ 6785}# + #{labels\ 6789}# '(())) - #{mod\ 3520}#)) - #{y\ 3518}#)))))) - (#{convert-pattern\ 3421}# - (lambda (#{pattern\ 3544}# #{keys\ 3545}#) - (letrec ((#{cvt\ 3551}# - (lambda (#{p\ 3552}# #{n\ 3553}# #{ids\ 3554}#) - (if (#{id?\ 244}# #{p\ 3552}#) - (if (#{bound-id-member?\ 311}# - #{p\ 3552}# - #{keys\ 3545}#) + #{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}#) (values - (vector (quote free-id) #{p\ 3552}#) - #{ids\ 3554}#) + (vector (quote free-id) #{p\ 6809}#) + #{ids\ 6811}#) (values 'any - (cons (cons #{p\ 3552}# #{n\ 3553}#) - #{ids\ 3554}#))) - ((lambda (#{tmp\ 3558}#) - ((lambda (#{tmp\ 3559}#) - (if (if #{tmp\ 3559}# - (apply (lambda (#{x\ 3562}# - #{dots\ 3563}#) - (#{ellipsis?\ 345}# - #{dots\ 3563}#)) - #{tmp\ 3559}#) + (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}#) #f) - (apply (lambda (#{x\ 3566}# - #{dots\ 3567}#) + (apply (lambda (#{x\ 6823}# + #{dots\ 6824}#) (call-with-values (lambda () - (#{cvt\ 3551}# - #{x\ 3566}# - (#{fx+\ 145}# - #{n\ 3553}# + (#{cvt\ 6808}# + #{x\ 6823}# + (#{fx+\ 3402}# + #{n\ 6810}# 1) - #{ids\ 3554}#)) - (lambda (#{p\ 3568}# - #{ids\ 3569}#) + #{ids\ 6811}#)) + (lambda (#{p\ 6825}# + #{ids\ 6826}#) (values - (if (eq? #{p\ 3568}# + (if (eq? #{p\ 6825}# 'any) 'each-any (vector 'each - #{p\ 3568}#)) - #{ids\ 3569}#)))) - #{tmp\ 3559}#) - ((lambda (#{tmp\ 3572}#) - (if (if #{tmp\ 3572}# - (apply (lambda (#{x\ 3576}# - #{dots\ 3577}# - #{ys\ 3578}#) - (#{ellipsis?\ 345}# - #{dots\ 3577}#)) - #{tmp\ 3572}#) + #{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}#) #f) - (apply (lambda (#{x\ 3582}# - #{dots\ 3583}# - #{ys\ 3584}#) + (apply (lambda (#{x\ 6839}# + #{dots\ 6840}# + #{ys\ 6841}#) (call-with-values (lambda () - (#{cvt*\ 3549}# - #{ys\ 3584}# - #{n\ 3553}# - #{ids\ 3554}#)) - (lambda (#{ys\ 3586}# - #{ids\ 3587}#) + (#{cvt*\ 6806}# + #{ys\ 6841}# + #{n\ 6810}# + #{ids\ 6811}#)) + (lambda (#{ys\ 6843}# + #{ids\ 6844}#) (call-with-values (lambda () - (#{cvt\ 3551}# - #{x\ 3582}# - (+ #{n\ 3553}# + (#{cvt\ 6808}# + #{x\ 6839}# + (+ #{n\ 6810}# 1) - #{ids\ 3587}#)) - (lambda (#{x\ 3590}# - #{ids\ 3591}#) + #{ids\ 6844}#)) + (lambda (#{x\ 6847}# + #{ids\ 6848}#) (values (list->vector (cons 'each+ - (cons #{x\ 3590}# + (cons #{x\ 6847}# (cons (reverse - #{ys\ 3586}#) + #{ys\ 6843}#) '(()))))) - #{ids\ 3591}#)))))) - #{tmp\ 3572}#) - ((lambda (#{tmp\ 3595}#) - (if #{tmp\ 3595}# - (apply (lambda (#{x\ 3598}# - #{y\ 3599}#) + #{ids\ 6848}#)))))) + #{tmp\ 6829}#) + ((lambda (#{tmp\ 6852}#) + (if #{tmp\ 6852}# + (apply (lambda (#{x\ 6855}# + #{y\ 6856}#) (call-with-values (lambda () - (#{cvt\ 3551}# - #{y\ 3599}# - #{n\ 3553}# - #{ids\ 3554}#)) - (lambda (#{y\ 3600}# - #{ids\ 3601}#) + (#{cvt\ 6808}# + #{y\ 6856}# + #{n\ 6810}# + #{ids\ 6811}#)) + (lambda (#{y\ 6857}# + #{ids\ 6858}#) (call-with-values (lambda () - (#{cvt\ 3551}# - #{x\ 3598}# - #{n\ 3553}# - #{ids\ 3601}#)) - (lambda (#{x\ 3604}# - #{ids\ 3605}#) + (#{cvt\ 6808}# + #{x\ 6855}# + #{n\ 6810}# + #{ids\ 6858}#)) + (lambda (#{x\ 6861}# + #{ids\ 6862}#) (values - (cons #{x\ 3604}# - #{y\ 3600}#) - #{ids\ 3605}#)))))) - #{tmp\ 3595}#) - ((lambda (#{tmp\ 3608}#) - (if #{tmp\ 3608}# + (cons #{x\ 6861}# + #{y\ 6857}#) + #{ids\ 6862}#)))))) + #{tmp\ 6852}#) + ((lambda (#{tmp\ 6865}#) + (if #{tmp\ 6865}# (apply (lambda () (values '() - #{ids\ 3554}#)) - #{tmp\ 3608}#) - ((lambda (#{tmp\ 3609}#) - (if #{tmp\ 3609}# - (apply (lambda (#{x\ 3611}#) + #{ids\ 6811}#)) + #{tmp\ 6865}#) + ((lambda (#{tmp\ 6866}#) + (if #{tmp\ 6866}# + (apply (lambda (#{x\ 6868}#) (call-with-values (lambda () - (#{cvt\ 3551}# - #{x\ 3611}# - #{n\ 3553}# - #{ids\ 3554}#)) - (lambda (#{p\ 3613}# - #{ids\ 3614}#) + (#{cvt\ 6808}# + #{x\ 6868}# + #{n\ 6810}# + #{ids\ 6811}#)) + (lambda (#{p\ 6870}# + #{ids\ 6871}#) (values (vector 'vector - #{p\ 3613}#) - #{ids\ 3614}#)))) - #{tmp\ 3609}#) - ((lambda (#{x\ 3618}#) + #{p\ 6870}#) + #{ids\ 6871}#)))) + #{tmp\ 6866}#) + ((lambda (#{x\ 6875}#) (values (vector 'atom - (#{strip\ 355}# - #{p\ 3552}# + (#{strip\ 3612}# + #{p\ 6809}# '(()))) - #{ids\ 3554}#)) - #{tmp\ 3558}#))) + #{ids\ 6811}#)) + #{tmp\ 6815}#))) ($sc-dispatch - #{tmp\ 3558}# + #{tmp\ 6815}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 3558}# + #{tmp\ 6815}# '())))) ($sc-dispatch - #{tmp\ 3558}# + #{tmp\ 6815}# '(any . any))))) ($sc-dispatch - #{tmp\ 3558}# + #{tmp\ 6815}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 3558}# + #{tmp\ 6815}# '(any any)))) - #{p\ 3552}#)))) - (#{cvt*\ 3549}# - (lambda (#{p*\ 3620}# - #{n\ 3621}# - #{ids\ 3622}#) - (if (null? #{p*\ 3620}#) - (values (quote ()) #{ids\ 3622}#) + #{p\ 6809}#)))) + (#{cvt*\ 6806}# + (lambda (#{p*\ 6877}# + #{n\ 6878}# + #{ids\ 6879}#) + (if (null? #{p*\ 6877}#) + (values (quote ()) #{ids\ 6879}#) (call-with-values (lambda () - (#{cvt*\ 3549}# - (cdr #{p*\ 3620}#) - #{n\ 3621}# - #{ids\ 3622}#)) - (lambda (#{y\ 3626}# #{ids\ 3627}#) + (#{cvt*\ 6806}# + (cdr #{p*\ 6877}#) + #{n\ 6878}# + #{ids\ 6879}#)) + (lambda (#{y\ 6883}# #{ids\ 6884}#) (call-with-values (lambda () - (#{cvt\ 3551}# - (car #{p*\ 3620}#) - #{n\ 3621}# - #{ids\ 3627}#)) - (lambda (#{x\ 3630}# #{ids\ 3631}#) + (#{cvt\ 6808}# + (car #{p*\ 6877}#) + #{n\ 6878}# + #{ids\ 6884}#)) + (lambda (#{x\ 6887}# #{ids\ 6888}#) (values - (cons #{x\ 3630}# #{y\ 3626}#) - #{ids\ 3631}#))))))))) - (#{cvt\ 3551}# #{pattern\ 3544}# 0 (quote ())))))) - (lambda (#{e\ 3634}# - #{r\ 3635}# - #{w\ 3636}# - #{s\ 3637}# - #{mod\ 3638}#) - (let ((#{e\ 3645}# - (#{source-wrap\ 315}# - #{e\ 3634}# - #{w\ 3636}# - #{s\ 3637}# - #{mod\ 3638}#))) - ((lambda (#{tmp\ 3646}#) - ((lambda (#{tmp\ 3647}#) - (if #{tmp\ 3647}# - (apply (lambda (#{_\ 3652}# - #{val\ 3653}# - #{key\ 3654}# - #{m\ 3655}#) + (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}#) (if (and-map - (lambda (#{x\ 3656}#) - (if (#{id?\ 244}# #{x\ 3656}#) - (not (#{ellipsis?\ 345}# #{x\ 3656}#)) + (lambda (#{x\ 6913}#) + (if (#{id?\ 3501}# #{x\ 6913}#) + (not (#{ellipsis?\ 3602}# + #{x\ 6913}#)) #f)) - #{key\ 3654}#) - (let ((#{x\ 3662}# - (#{gen-var\ 357}# (quote tmp)))) - (#{build-application\ 166}# - #{s\ 3637}# - (#{build-simple-lambda\ 186}# + #{key\ 6911}#) + (let ((#{x\ 6919}# + (#{gen-var\ 3614}# (quote tmp)))) + (#{build-application\ 3423}# + #{s\ 6894}# + (#{build-simple-lambda\ 3443}# #f (list (quote tmp)) #f - (list #{x\ 3662}#) + (list #{x\ 6919}#) #f - (#{gen-syntax-case\ 3427}# - (#{build-lexical-reference\ 172}# + (#{gen-syntax-case\ 6684}# + (#{build-lexical-reference\ 3429}# 'value #f 'tmp - #{x\ 3662}#) - #{key\ 3654}# - #{m\ 3655}# - #{r\ 3635}# - #{mod\ 3638}#)) - (list (#{chi\ 329}# - #{val\ 3653}# - #{r\ 3635}# + #{x\ 6919}#) + #{key\ 6911}# + #{m\ 6912}# + #{r\ 6892}# + #{mod\ 6895}#)) + (list (#{chi\ 3586}# + #{val\ 6910}# + #{r\ 6892}# '(()) - #{mod\ 3638}#)))) + #{mod\ 6895}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3645}#))) - #{tmp\ 3647}#) + #{e\ 6902}#))) + #{tmp\ 6904}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3646}#))) + #{tmp\ 6903}#))) ($sc-dispatch - #{tmp\ 3646}# + #{tmp\ 6903}# '(any any each-any . each-any)))) - #{e\ 3645}#))))) - (set! sc-expand - (lambda (#{x\ 3668}# . #{rest\ 3669}#) - (if (if (pair? #{x\ 3668}#) - (equal? (car #{x\ 3668}#) #{noexpand\ 141}#) + #{e\ 6902}#))))) + (set! macroexpand + (lambda (#{x\ 6925}# . #{rest\ 6926}#) + (if (if (pair? #{x\ 6925}#) + (equal? (car #{x\ 6925}#) #{noexpand\ 3398}#) #f) - (cadr #{x\ 3668}#) - (let ((#{m\ 3676}# - (if (null? #{rest\ 3669}#) + (cadr #{x\ 6925}#) + (let ((#{m\ 6933}# + (if (null? #{rest\ 6926}#) 'e - (car #{rest\ 3669}#))) - (#{esew\ 3677}# - (if (let ((#{t\ 3680}# (null? #{rest\ 3669}#))) - (if #{t\ 3680}# - #{t\ 3680}# - (null? (cdr #{rest\ 3669}#)))) + (car #{rest\ 6926}#))) + (#{esew\ 6934}# + (if (let ((#{t\ 6937}# (null? #{rest\ 6926}#))) + (if #{t\ 6937}# + #{t\ 6937}# + (null? (cdr #{rest\ 6926}#)))) '(eval) - (cadr #{rest\ 3669}#)))) + (cadr #{rest\ 6926}#)))) (with-fluids - ((#{*mode*\ 143}# #{m\ 3676}#)) - (#{chi-top\ 327}# - #{x\ 3668}# + ((#{*mode*\ 3400}# #{m\ 6933}#)) + (#{chi-top\ 3584}# + #{x\ 6925}# '() '((top)) - #{m\ 3676}# - #{esew\ 3677}# + #{m\ 6933}# + #{esew\ 6934}# (cons 'hygiene (module-name (current-module))))))))) (set! identifier? - (lambda (#{x\ 3684}#) - (#{nonsymbol-id?\ 242}# #{x\ 3684}#))) + (lambda (#{x\ 6941}#) + (#{nonsymbol-id?\ 3499}# #{x\ 6941}#))) (set! datum->syntax - (lambda (#{id\ 3686}# #{datum\ 3687}#) - (#{make-syntax-object\ 206}# - #{datum\ 3687}# - (#{syntax-object-wrap\ 212}# #{id\ 3686}#) + (lambda (#{id\ 6943}# #{datum\ 6944}#) + (#{make-syntax-object\ 3463}# + #{datum\ 6944}# + (#{syntax-object-wrap\ 3469}# #{id\ 6943}#) #f))) (set! syntax->datum - (lambda (#{x\ 3690}#) - (#{strip\ 355}# #{x\ 3690}# (quote (()))))) + (lambda (#{x\ 6947}#) + (#{strip\ 3612}# #{x\ 6947}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 3693}#) + (lambda (#{ls\ 6950}#) (begin - (let ((#{x\ 3697}# #{ls\ 3693}#)) - (if (not (list? #{x\ 3697}#)) + (let ((#{x\ 6954}# #{ls\ 6950}#)) + (if (not (list? #{x\ 6954}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3697}#))) - (map (lambda (#{x\ 3698}#) - (#{wrap\ 313}# (gensym) (quote ((top))) #f)) - #{ls\ 3693}#)))) + #{x\ 6954}#))) + (map (lambda (#{x\ 6955}#) + (#{wrap\ 3570}# (gensym) (quote ((top))) #f)) + #{ls\ 6950}#)))) (set! free-identifier=? - (lambda (#{x\ 3702}# #{y\ 3703}#) + (lambda (#{x\ 6959}# #{y\ 6960}#) (begin - (let ((#{x\ 3708}# #{x\ 3702}#)) - (if (not (#{nonsymbol-id?\ 242}# #{x\ 3708}#)) + (let ((#{x\ 6965}# #{x\ 6959}#)) + (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6965}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3708}#))) - (let ((#{x\ 3711}# #{y\ 3703}#)) - (if (not (#{nonsymbol-id?\ 242}# #{x\ 3711}#)) + #{x\ 6965}#))) + (let ((#{x\ 6968}# #{y\ 6960}#)) + (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6968}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3711}#))) - (#{free-id=?\ 303}# #{x\ 3702}# #{y\ 3703}#)))) + #{x\ 6968}#))) + (#{free-id=?\ 3560}# #{x\ 6959}# #{y\ 6960}#)))) (set! bound-identifier=? - (lambda (#{x\ 3712}# #{y\ 3713}#) + (lambda (#{x\ 6969}# #{y\ 6970}#) (begin - (let ((#{x\ 3718}# #{x\ 3712}#)) - (if (not (#{nonsymbol-id?\ 242}# #{x\ 3718}#)) + (let ((#{x\ 6975}# #{x\ 6969}#)) + (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6975}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3718}#))) - (let ((#{x\ 3721}# #{y\ 3713}#)) - (if (not (#{nonsymbol-id?\ 242}# #{x\ 3721}#)) + #{x\ 6975}#))) + (let ((#{x\ 6978}# #{y\ 6970}#)) + (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6978}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3721}#))) - (#{bound-id=?\ 305}# #{x\ 3712}# #{y\ 3713}#)))) + #{x\ 6978}#))) + (#{bound-id=?\ 3562}# #{x\ 6969}# #{y\ 6970}#)))) (set! syntax-violation - (lambda (#{who\ 3722}# - #{message\ 3723}# - #{form\ 3724}# + (lambda (#{who\ 6979}# + #{message\ 6980}# + #{form\ 6981}# . - #{subform\ 3725}#) + #{subform\ 6982}#) (begin - (let ((#{x\ 3732}# #{who\ 3722}#)) - (if (not ((lambda (#{x\ 3733}#) - (let ((#{t\ 3737}# (not #{x\ 3733}#))) - (if #{t\ 3737}# - #{t\ 3737}# - (let ((#{t\ 3740}# (string? #{x\ 3733}#))) - (if #{t\ 3740}# - #{t\ 3740}# - (symbol? #{x\ 3733}#)))))) - #{x\ 3732}#)) + (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}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3732}#))) - (let ((#{x\ 3744}# #{message\ 3723}#)) - (if (not (string? #{x\ 3744}#)) + #{x\ 6989}#))) + (let ((#{x\ 7001}# #{message\ 6980}#)) + (if (not (string? #{x\ 7001}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3744}#))) + #{x\ 7001}#))) (scm-error 'syntax-error - 'sc-expand + 'macroexpand (string-append - (if #{who\ 3722}# "~a: " "") + (if #{who\ 6979}# "~a: " "") "~a " - (if (null? #{subform\ 3725}#) + (if (null? #{subform\ 6982}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 3746}# - (cons #{message\ 3723}# - (map (lambda (#{x\ 3747}#) - (#{strip\ 355}# #{x\ 3747}# (quote (())))) + (let ((#{tail\ 7003}# + (cons #{message\ 6980}# + (map (lambda (#{x\ 7004}#) + (#{strip\ 3612}# #{x\ 7004}# (quote (())))) (append - #{subform\ 3725}# - (list #{form\ 3724}#)))))) - (if #{who\ 3722}# - (cons #{who\ 3722}# #{tail\ 3746}#) - #{tail\ 3746}#)) + #{subform\ 6982}# + (list #{form\ 6981}#)))))) + (if #{who\ 6979}# + (cons #{who\ 6979}# #{tail\ 7003}#) + #{tail\ 7003}#)) #f)))) - (letrec ((#{match\ 3763}# - (lambda (#{e\ 3764}# - #{p\ 3765}# - #{w\ 3766}# - #{r\ 3767}# - #{mod\ 3768}#) - (if (not #{r\ 3767}#) + (letrec ((#{match\ 7020}# + (lambda (#{e\ 7021}# + #{p\ 7022}# + #{w\ 7023}# + #{r\ 7024}# + #{mod\ 7025}#) + (if (not #{r\ 7024}#) #f - (if (eq? #{p\ 3765}# (quote any)) - (cons (#{wrap\ 313}# - #{e\ 3764}# - #{w\ 3766}# - #{mod\ 3768}#) - #{r\ 3767}#) - (if (#{syntax-object?\ 208}# #{e\ 3764}#) - (#{match*\ 3761}# - (#{syntax-object-expression\ 210}# #{e\ 3764}#) - #{p\ 3765}# - (#{join-wraps\ 295}# - #{w\ 3766}# - (#{syntax-object-wrap\ 212}# #{e\ 3764}#)) - #{r\ 3767}# - (#{syntax-object-module\ 214}# #{e\ 3764}#)) - (#{match*\ 3761}# - #{e\ 3764}# - #{p\ 3765}# - #{w\ 3766}# - #{r\ 3767}# - #{mod\ 3768}#)))))) - (#{match*\ 3761}# - (lambda (#{e\ 3781}# - #{p\ 3782}# - #{w\ 3783}# - #{r\ 3784}# - #{mod\ 3785}#) - (if (null? #{p\ 3782}#) - (if (null? #{e\ 3781}#) #{r\ 3784}# #f) - (if (pair? #{p\ 3782}#) - (if (pair? #{e\ 3781}#) - (#{match\ 3763}# - (car #{e\ 3781}#) - (car #{p\ 3782}#) - #{w\ 3783}# - (#{match\ 3763}# - (cdr #{e\ 3781}#) - (cdr #{p\ 3782}#) - #{w\ 3783}# - #{r\ 3784}# - #{mod\ 3785}#) - #{mod\ 3785}#) + (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}#) #f) - (if (eq? #{p\ 3782}# (quote each-any)) - (let ((#{l\ 3802}# - (#{match-each-any\ 3755}# - #{e\ 3781}# - #{w\ 3783}# - #{mod\ 3785}#))) - (if #{l\ 3802}# - (cons #{l\ 3802}# #{r\ 3784}#) + (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}#) #f)) - (let ((#{atom-key\ 3808}# (vector-ref #{p\ 3782}# 0))) - (if (memv #{atom-key\ 3808}# (quote (each))) - (if (null? #{e\ 3781}#) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3782}# 1) - #{r\ 3784}#) - (let ((#{l\ 3811}# - (#{match-each\ 3751}# - #{e\ 3781}# - (vector-ref #{p\ 3782}# 1) - #{w\ 3783}# - #{mod\ 3785}#))) - (if #{l\ 3811}# - (letrec ((#{collect\ 3816}# - (lambda (#{l\ 3817}#) - (if (null? (car #{l\ 3817}#)) - #{r\ 3784}# - (cons (map car #{l\ 3817}#) - (#{collect\ 3816}# + (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}# (map cdr - #{l\ 3817}#))))))) - (#{collect\ 3816}# #{l\ 3811}#)) + #{l\ 7074}#))))))) + (#{collect\ 7073}# #{l\ 7068}#)) #f))) - (if (memv #{atom-key\ 3808}# (quote (each+))) + (if (memv #{atom-key\ 7065}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 3753}# - #{e\ 3781}# - (vector-ref #{p\ 3782}# 1) - (vector-ref #{p\ 3782}# 2) - (vector-ref #{p\ 3782}# 3) - #{w\ 3783}# - #{r\ 3784}# - #{mod\ 3785}#)) - (lambda (#{xr*\ 3819}# - #{y-pat\ 3820}# - #{r\ 3821}#) - (if #{r\ 3821}# - (if (null? #{y-pat\ 3820}#) - (if (null? #{xr*\ 3819}#) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3782}# 1) - #{r\ 3821}#) - (#{combine\ 3759}# - #{xr*\ 3819}# - #{r\ 3821}#)) + (#{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}#)) #f) #f))) - (if (memv #{atom-key\ 3808}# (quote (free-id))) - (if (#{id?\ 244}# #{e\ 3781}#) - (if (#{free-id=?\ 303}# - (#{wrap\ 313}# - #{e\ 3781}# - #{w\ 3783}# - #{mod\ 3785}#) - (vector-ref #{p\ 3782}# 1)) - #{r\ 3784}# + (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}# #f) #f) - (if (memv #{atom-key\ 3808}# (quote (atom))) + (if (memv #{atom-key\ 7065}# (quote (atom))) (if (equal? - (vector-ref #{p\ 3782}# 1) - (#{strip\ 355}# - #{e\ 3781}# - #{w\ 3783}#)) - #{r\ 3784}# + (vector-ref #{p\ 7039}# 1) + (#{strip\ 3612}# + #{e\ 7038}# + #{w\ 7040}#)) + #{r\ 7041}# #f) - (if (memv #{atom-key\ 3808}# + (if (memv #{atom-key\ 7065}# '(vector)) - (if (vector? #{e\ 3781}#) - (#{match\ 3763}# - (vector->list #{e\ 3781}#) - (vector-ref #{p\ 3782}# 1) - #{w\ 3783}# - #{r\ 3784}# - #{mod\ 3785}#) + (if (vector? #{e\ 7038}#) + (#{match\ 7020}# + (vector->list #{e\ 7038}#) + (vector-ref #{p\ 7039}# 1) + #{w\ 7040}# + #{r\ 7041}# + #{mod\ 7042}#) #f)))))))))))) - (#{combine\ 3759}# - (lambda (#{r*\ 3838}# #{r\ 3839}#) - (if (null? (car #{r*\ 3838}#)) - #{r\ 3839}# - (cons (map car #{r*\ 3838}#) - (#{combine\ 3759}# - (map cdr #{r*\ 3838}#) - #{r\ 3839}#))))) - (#{match-empty\ 3757}# - (lambda (#{p\ 3842}# #{r\ 3843}#) - (if (null? #{p\ 3842}#) - #{r\ 3843}# - (if (eq? #{p\ 3842}# (quote any)) - (cons (quote ()) #{r\ 3843}#) - (if (pair? #{p\ 3842}#) - (#{match-empty\ 3757}# - (car #{p\ 3842}#) - (#{match-empty\ 3757}# - (cdr #{p\ 3842}#) - #{r\ 3843}#)) - (if (eq? #{p\ 3842}# (quote each-any)) - (cons (quote ()) #{r\ 3843}#) - (let ((#{atom-key\ 3857}# - (vector-ref #{p\ 3842}# 0))) - (if (memv #{atom-key\ 3857}# (quote (each))) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3842}# 1) - #{r\ 3843}#) - (if (memv #{atom-key\ 3857}# (quote (each+))) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3842}# 1) - (#{match-empty\ 3757}# - (reverse (vector-ref #{p\ 3842}# 2)) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3842}# 3) - #{r\ 3843}#))) - (if (memv #{atom-key\ 3857}# + (#{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}# '(free-id atom)) - #{r\ 3843}# - (if (memv #{atom-key\ 3857}# + #{r\ 7100}# + (if (memv #{atom-key\ 7114}# '(vector)) - (#{match-empty\ 3757}# - (vector-ref #{p\ 3842}# 1) - #{r\ 3843}#)))))))))))) - (#{match-each-any\ 3755}# - (lambda (#{e\ 3862}# #{w\ 3863}# #{mod\ 3864}#) - (if (pair? #{e\ 3862}#) - (let ((#{l\ 3871}# - (#{match-each-any\ 3755}# - (cdr #{e\ 3862}#) - #{w\ 3863}# - #{mod\ 3864}#))) - (if #{l\ 3871}# - (cons (#{wrap\ 313}# - (car #{e\ 3862}#) - #{w\ 3863}# - #{mod\ 3864}#) - #{l\ 3871}#) + (#{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}#) #f)) - (if (null? #{e\ 3862}#) + (if (null? #{e\ 7119}#) '() - (if (#{syntax-object?\ 208}# #{e\ 3862}#) - (#{match-each-any\ 3755}# - (#{syntax-object-expression\ 210}# #{e\ 3862}#) - (#{join-wraps\ 295}# - #{w\ 3863}# - (#{syntax-object-wrap\ 212}# #{e\ 3862}#)) - #{mod\ 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}#) #f))))) - (#{match-each+\ 3753}# - (lambda (#{e\ 3879}# - #{x-pat\ 3880}# - #{y-pat\ 3881}# - #{z-pat\ 3882}# - #{w\ 3883}# - #{r\ 3884}# - #{mod\ 3885}#) - (letrec ((#{f\ 3896}# - (lambda (#{e\ 3897}# #{w\ 3898}#) - (if (pair? #{e\ 3897}#) + (#{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}#) (call-with-values (lambda () - (#{f\ 3896}# - (cdr #{e\ 3897}#) - #{w\ 3898}#)) - (lambda (#{xr*\ 3901}# - #{y-pat\ 3902}# - #{r\ 3903}#) - (if #{r\ 3903}# - (if (null? #{y-pat\ 3902}#) - (let ((#{xr\ 3908}# - (#{match\ 3763}# - (car #{e\ 3897}#) - #{x-pat\ 3880}# - #{w\ 3898}# + (#{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}# '() - #{mod\ 3885}#))) - (if #{xr\ 3908}# + #{mod\ 7142}#))) + (if #{xr\ 7165}# (values - (cons #{xr\ 3908}# - #{xr*\ 3901}#) - #{y-pat\ 3902}# - #{r\ 3903}#) + (cons #{xr\ 7165}# + #{xr*\ 7158}#) + #{y-pat\ 7159}# + #{r\ 7160}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 3902}#) - (#{match\ 3763}# - (car #{e\ 3897}#) - (car #{y-pat\ 3902}#) - #{w\ 3898}# - #{r\ 3903}# - #{mod\ 3885}#))) + (cdr #{y-pat\ 7159}#) + (#{match\ 7020}# + (car #{e\ 7154}#) + (car #{y-pat\ 7159}#) + #{w\ 7155}# + #{r\ 7160}# + #{mod\ 7142}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 208}# #{e\ 3897}#) - (#{f\ 3896}# - (#{syntax-object-expression\ 210}# - #{e\ 3897}#) - (#{join-wraps\ 295}# - #{w\ 3898}# - #{e\ 3897}#)) + (if (#{syntax-object?\ 3465}# #{e\ 7154}#) + (#{f\ 7153}# + (#{syntax-object-expression\ 3467}# + #{e\ 7154}#) + (#{join-wraps\ 3552}# + #{w\ 7155}# + #{e\ 7154}#)) (values '() - #{y-pat\ 3881}# - (#{match\ 3763}# - #{e\ 3897}# - #{z-pat\ 3882}# - #{w\ 3898}# - #{r\ 3884}# - #{mod\ 3885}#))))))) - (#{f\ 3896}# #{e\ 3879}# #{w\ 3883}#)))) - (#{match-each\ 3751}# - (lambda (#{e\ 3912}# - #{p\ 3913}# - #{w\ 3914}# - #{mod\ 3915}#) - (if (pair? #{e\ 3912}#) - (let ((#{first\ 3923}# - (#{match\ 3763}# - (car #{e\ 3912}#) - #{p\ 3913}# - #{w\ 3914}# + #{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}# '() - #{mod\ 3915}#))) - (if #{first\ 3923}# - (let ((#{rest\ 3927}# - (#{match-each\ 3751}# - (cdr #{e\ 3912}#) - #{p\ 3913}# - #{w\ 3914}# - #{mod\ 3915}#))) - (if #{rest\ 3927}# - (cons #{first\ 3923}# #{rest\ 3927}#) + #{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}#) #f)) #f)) - (if (null? #{e\ 3912}#) + (if (null? #{e\ 7169}#) '() - (if (#{syntax-object?\ 208}# #{e\ 3912}#) - (#{match-each\ 3751}# - (#{syntax-object-expression\ 210}# #{e\ 3912}#) - #{p\ 3913}# - (#{join-wraps\ 295}# - #{w\ 3914}# - (#{syntax-object-wrap\ 212}# #{e\ 3912}#)) - (#{syntax-object-module\ 214}# #{e\ 3912}#)) + (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}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 3935}# #{p\ 3936}#) - (if (eq? #{p\ 3936}# (quote any)) - (list #{e\ 3935}#) - (if (#{syntax-object?\ 208}# #{e\ 3935}#) - (#{match*\ 3761}# - (#{syntax-object-expression\ 210}# #{e\ 3935}#) - #{p\ 3936}# - (#{syntax-object-wrap\ 212}# #{e\ 3935}#) + (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}#) '() - (#{syntax-object-module\ 214}# #{e\ 3935}#)) - (#{match*\ 3761}# - #{e\ 3935}# - #{p\ 3936}# + (#{syntax-object-module\ 3471}# #{e\ 7192}#)) + (#{match*\ 7018}# + #{e\ 7192}# + #{p\ 7193}# '(()) '() #f))))))))) @@ -11621,50 +11635,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 3945}#) - ((lambda (#{tmp\ 3947}#) - ((lambda (#{tmp\ 3948}#) - (if #{tmp\ 3948}# - (apply (lambda (#{_\ 3952}# #{e1\ 3953}# #{e2\ 3954}#) + (cons (lambda (#{x\ 7202}#) + ((lambda (#{tmp\ 7204}#) + ((lambda (#{tmp\ 7205}#) + (if #{tmp\ 7205}# + (apply (lambda (#{_\ 7209}# #{e1\ 7210}# #{e2\ 7211}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i3949" "i3950" "i3951")) + #("i7206" "i7207" "i7208")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3946"))) + #(ribcage #(x) #((top)) #("i7203"))) (hygiene guile)) - (cons #{e1\ 3953}# #{e2\ 3954}#))) - #{tmp\ 3948}#) - ((lambda (#{tmp\ 3956}#) - (if #{tmp\ 3956}# - (apply (lambda (#{_\ 3962}# - #{out\ 3963}# - #{in\ 3964}# - #{e1\ 3965}# - #{e2\ 3966}#) + (cons #{e1\ 7210}# #{e2\ 7211}#))) + #{tmp\ 7205}#) + ((lambda (#{tmp\ 7213}#) + (if #{tmp\ 7213}# + (apply (lambda (#{_\ 7219}# + #{out\ 7220}# + #{in\ 7221}# + #{e1\ 7222}# + #{e2\ 7223}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i3957" - "i3958" - "i3959" - "i3960" - "i3961")) + #("i7214" + "i7215" + "i7216" + "i7217" + "i7218")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3946"))) + #("i7203"))) (hygiene guile)) - #{in\ 3964}# + #{in\ 7221}# '() - (list #{out\ 3963}# + (list #{out\ 7220}# (cons '#(syntax-object begin ((top) @@ -11675,27 +11689,27 @@ (top) (top) (top)) - #("i3957" - "i3958" - "i3959" - "i3960" - "i3961")) + #("i7214" + "i7215" + "i7216" + "i7217" + "i7218")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3946"))) + #("i7203"))) (hygiene guile)) - (cons #{e1\ 3965}# - #{e2\ 3966}#))))) - #{tmp\ 3956}#) - ((lambda (#{tmp\ 3968}#) - (if #{tmp\ 3968}# - (apply (lambda (#{_\ 3974}# - #{out\ 3975}# - #{in\ 3976}# - #{e1\ 3977}# - #{e2\ 3978}#) + (cons #{e1\ 7222}# + #{e2\ 7223}#))))) + #{tmp\ 7213}#) + ((lambda (#{tmp\ 7225}#) + (if #{tmp\ 7225}# + (apply (lambda (#{_\ 7231}# + #{out\ 7232}# + #{in\ 7233}# + #{e1\ 7234}# + #{e2\ 7235}#) (list '#(syntax-object syntax-case ((top) @@ -11706,16 +11720,16 @@ (top) (top) (top)) - #("i3969" - "i3970" - "i3971" - "i3972" - "i3973")) + #("i7226" + "i7227" + "i7228" + "i7229" + "i7230")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3946"))) + #("i7203"))) (hygiene guile)) (cons '#(syntax-object list @@ -11727,20 +11741,20 @@ (top) (top) (top)) - #("i3969" - "i3970" - "i3971" - "i3972" - "i3973")) + #("i7226" + "i7227" + "i7228" + "i7229" + "i7230")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3946"))) + #("i7203"))) (hygiene guile)) - #{in\ 3976}#) + #{in\ 7233}#) '() - (list #{out\ 3975}# + (list #{out\ 7232}# (cons '#(syntax-object begin ((top) @@ -11755,11 +11769,11 @@ (top) (top) (top)) - #("i3969" - "i3970" - "i3971" - "i3972" - "i3973")) + #("i7226" + "i7227" + "i7228" + "i7229" + "i7230")) #(ribcage () () @@ -11767,53 +11781,53 @@ #(ribcage #(x) #((top)) - #("i3946"))) + #("i7203"))) (hygiene guile)) - (cons #{e1\ 3977}# - #{e2\ 3978}#))))) - #{tmp\ 3968}#) + (cons #{e1\ 7234}# + #{e2\ 7235}#))))) + #{tmp\ 7225}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3947}#))) + #{tmp\ 7204}#))) ($sc-dispatch - #{tmp\ 3947}# + #{tmp\ 7204}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3947}# + #{tmp\ 7204}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3947}# + #{tmp\ 7204}# '(any () any . each-any)))) - #{x\ 3945}#)) + #{x\ 7202}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 3982}#) - ((lambda (#{tmp\ 3984}#) - ((lambda (#{tmp\ 3985}#) - (if #{tmp\ 3985}# - (apply (lambda (#{_\ 3991}# - #{k\ 3992}# - #{keyword\ 3993}# - #{pattern\ 3994}# - #{template\ 3995}#) + (cons (lambda (#{x\ 7239}#) + ((lambda (#{tmp\ 7241}#) + ((lambda (#{tmp\ 7242}#) + (if #{tmp\ 7242}# + (apply (lambda (#{_\ 7248}# + #{k\ 7249}# + #{keyword\ 7250}# + #{pattern\ 7251}# + #{template\ 7252}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3983"))) + #(ribcage #(x) #((top)) #("i7240"))) (hygiene guile)) '(#(syntax-object x @@ -11821,13 +11835,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3983"))) + #(ribcage #(x) #((top)) #("i7240"))) (hygiene guile))) (cons '#(syntax-object syntax-case @@ -11835,16 +11849,16 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3983"))) + #("i7240"))) (hygiene guile)) (cons '#(syntax-object x @@ -11860,20 +11874,20 @@ (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3983"))) + #("i7240"))) (hygiene guile)) - (cons #{k\ 3992}# - (map (lambda (#{tmp\ 3998}# - #{tmp\ 3997}#) + (cons #{k\ 7249}# + (map (lambda (#{tmp\ 7255}# + #{tmp\ 7254}#) (list (cons '#(syntax-object dummy ((top) @@ -11888,11 +11902,11 @@ (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () @@ -11900,10 +11914,10 @@ #(ribcage #(x) #((top)) - #("i3983"))) + #("i7240"))) (hygiene guile)) - #{tmp\ 3997}#) + #{tmp\ 7254}#) (list '#(syntax-object syntax ((top) @@ -11918,11 +11932,11 @@ (top) (top) (top)) - #("i3986" - "i3987" - "i3988" - "i3989" - "i3990")) + #("i7243" + "i7244" + "i7245" + "i7246" + "i7247")) #(ribcage () () @@ -11930,47 +11944,47 @@ #(ribcage #(x) #((top)) - #("i3983"))) + #("i7240"))) (hygiene guile)) - #{tmp\ 3998}#))) - #{template\ 3995}# - #{pattern\ 3994}#)))))) - #{tmp\ 3985}#) + #{tmp\ 7255}#))) + #{template\ 7252}# + #{pattern\ 7251}#)))))) + #{tmp\ 7242}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3984}#))) + #{tmp\ 7241}#))) ($sc-dispatch - #{tmp\ 3984}# + #{tmp\ 7241}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 3982}#)) + #{x\ 7239}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 3999}#) - ((lambda (#{tmp\ 4001}#) - ((lambda (#{tmp\ 4002}#) - (if (if #{tmp\ 4002}# - (apply (lambda (#{let*\ 4008}# - #{x\ 4009}# - #{v\ 4010}# - #{e1\ 4011}# - #{e2\ 4012}#) - (and-map identifier? #{x\ 4009}#)) - #{tmp\ 4002}#) + (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}#) #f) - (apply (lambda (#{let*\ 4019}# - #{x\ 4020}# - #{v\ 4021}# - #{e1\ 4022}# - #{e2\ 4023}#) - (letrec ((#{f\ 4026}# - (lambda (#{bindings\ 4027}#) - (if (null? #{bindings\ 4027}#) + (apply (lambda (#{let*\ 7276}# + #{x\ 7277}# + #{v\ 7278}# + #{e1\ 7279}# + #{e2\ 7280}#) + (letrec ((#{f\ 7283}# + (lambda (#{bindings\ 7284}#) + (if (null? #{bindings\ 7284}#) (cons '#(syntax-object let ((top) @@ -11978,7 +11992,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4024" "i4025")) + #("i7281" "i7282")) #(ribcage #(let* x v e1 e2) #((top) @@ -11986,25 +12000,25 @@ (top) (top) (top)) - #("i4014" - "i4015" - "i4016" - "i4017" - "i4018")) + #("i7271" + "i7272" + "i7273" + "i7274" + "i7275")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4000"))) + #("i7257"))) (hygiene guile)) (cons '() - (cons #{e1\ 4022}# - #{e2\ 4023}#))) - ((lambda (#{tmp\ 4032}#) - ((lambda (#{tmp\ 4033}#) - (if #{tmp\ 4033}# - (apply (lambda (#{body\ 4036}# - #{binding\ 4037}#) + (cons #{e1\ 7279}# + #{e2\ 7280}#))) + ((lambda (#{tmp\ 7289}#) + ((lambda (#{tmp\ 7290}#) + (if #{tmp\ 7290}# + (apply (lambda (#{body\ 7293}# + #{binding\ 7294}#) (list '#(syntax-object let ((top) @@ -12013,8 +12027,8 @@ binding) #((top) (top)) - #("i4034" - "i4035")) + #("i7291" + "i7292")) #(ribcage () () @@ -12024,8 +12038,8 @@ bindings) #((top) (top)) - #("i4024" - "i4025")) + #("i7281" + "i7282")) #(ribcage #(let* x @@ -12037,11 +12051,11 @@ (top) (top) (top)) - #("i4014" - "i4015" - "i4016" - "i4017" - "i4018")) + #("i7271" + "i7272" + "i7273" + "i7274" + "i7275")) #(ribcage () () @@ -12049,57 +12063,57 @@ #(ribcage #(x) #((top)) - #("i4000"))) + #("i7257"))) (hygiene guile)) - (list #{binding\ 4037}#) - #{body\ 4036}#)) - #{tmp\ 4033}#) + (list #{binding\ 7294}#) + #{body\ 7293}#)) + #{tmp\ 7290}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4032}#))) + #{tmp\ 7289}#))) ($sc-dispatch - #{tmp\ 4032}# + #{tmp\ 7289}# '(any any)))) - (list (#{f\ 4026}# - (cdr #{bindings\ 4027}#)) - (car #{bindings\ 4027}#))))))) - (#{f\ 4026}# - (map list #{x\ 4020}# #{v\ 4021}#)))) - #{tmp\ 4002}#) + (list (#{f\ 7283}# + (cdr #{bindings\ 7284}#)) + (car #{bindings\ 7284}#))))))) + (#{f\ 7283}# + (map list #{x\ 7277}# #{v\ 7278}#)))) + #{tmp\ 7259}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4001}#))) + #{tmp\ 7258}#))) ($sc-dispatch - #{tmp\ 4001}# + #{tmp\ 7258}# '(any #(each (any any)) any . each-any)))) - #{x\ 3999}#)) + #{x\ 7256}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4038}#) - ((lambda (#{tmp\ 4040}#) - ((lambda (#{tmp\ 4041}#) - (if #{tmp\ 4041}# - (apply (lambda (#{_\ 4049}# - #{var\ 4050}# - #{init\ 4051}# - #{step\ 4052}# - #{e0\ 4053}# - #{e1\ 4054}# - #{c\ 4055}#) - ((lambda (#{tmp\ 4057}#) - ((lambda (#{tmp\ 4058}#) - (if #{tmp\ 4058}# - (apply (lambda (#{step\ 4060}#) - ((lambda (#{tmp\ 4061}#) - ((lambda (#{tmp\ 4062}#) - (if #{tmp\ 4062}# + (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}# (apply (lambda () (list '#(syntax-object let @@ -12107,7 +12121,7 @@ #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12123,13 +12137,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12137,7 +12151,7 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) '#(syntax-object @@ -12146,7 +12160,7 @@ #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12162,13 +12176,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12176,19 +12190,19 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) (map list - #{var\ 4050}# - #{init\ 4051}#) + #{var\ 7307}# + #{init\ 7308}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12204,13 +12218,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12218,7 +12232,7 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) (list '#(syntax-object @@ -12227,7 +12241,7 @@ #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12243,13 +12257,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12257,17 +12271,17 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) - #{e0\ 4053}#) + #{e0\ 7310}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12283,13 +12297,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12297,18 +12311,18 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) (append - #{c\ 4055}# + #{c\ 7312}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12324,13 +12338,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12338,15 +12352,15 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) - #{step\ 4060}#))))))) - #{tmp\ 4062}#) - ((lambda (#{tmp\ 4067}#) - (if #{tmp\ 4067}# - (apply (lambda (#{e1\ 4070}# - #{e2\ 4071}#) + #{step\ 7317}#))))))) + #{tmp\ 7319}#) + ((lambda (#{tmp\ 7324}#) + (if #{tmp\ 7324}# + (apply (lambda (#{e1\ 7327}# + #{e2\ 7328}#) (list '#(syntax-object let ((top) @@ -12355,12 +12369,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12376,13 +12390,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12390,7 +12404,7 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) '#(syntax-object @@ -12401,12 +12415,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12422,13 +12436,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12436,12 +12450,12 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) (map list - #{var\ 4050}# - #{init\ 4051}#) + #{var\ 7307}# + #{init\ 7308}#) (list '#(syntax-object if ((top) @@ -12450,12 +12464,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12471,13 +12485,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12485,10 +12499,10 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) - #{e0\ 4053}# + #{e0\ 7310}# (cons '#(syntax-object begin ((top) @@ -12497,12 +12511,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12518,13 +12532,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12532,11 +12546,11 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) - (cons #{e1\ 4070}# - #{e2\ 4071}#)) + (cons #{e1\ 7327}# + #{e2\ 7328}#)) (cons '#(syntax-object begin ((top) @@ -12545,12 +12559,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12566,13 +12580,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12580,11 +12594,11 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) (append - #{c\ 4055}# + #{c\ 7312}# (list (cons '#(syntax-object doloop ((top) @@ -12593,12 +12607,12 @@ e2) #((top) (top)) - #("i4068" - "i4069")) + #("i7325" + "i7326")) #(ribcage #(step) #((top)) - #("i4059")) + #("i7316")) #(ribcage #(_ var @@ -12614,13 +12628,13 @@ (top) (top) (top)) - #("i4042" - "i4043" - "i4044" - "i4045" - "i4046" - "i4047" - "i4048")) + #("i7299" + "i7300" + "i7301" + "i7302" + "i7303" + "i7304" + "i7305")) #(ribcage () () @@ -12628,107 +12642,107 @@ #(ribcage #(orig-x) #((top)) - #("i4039"))) + #("i7296"))) (hygiene guile)) - #{step\ 4060}#))))))) - #{tmp\ 4067}#) + #{step\ 7317}#))))))) + #{tmp\ 7324}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4061}#))) + #{tmp\ 7318}#))) ($sc-dispatch - #{tmp\ 4061}# + #{tmp\ 7318}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4061}# + #{tmp\ 7318}# '()))) - #{e1\ 4054}#)) - #{tmp\ 4058}#) + #{e1\ 7311}#)) + #{tmp\ 7315}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4057}#))) + #{tmp\ 7314}#))) ($sc-dispatch - #{tmp\ 4057}# + #{tmp\ 7314}# 'each-any))) - (map (lambda (#{v\ 4078}# #{s\ 4079}#) - ((lambda (#{tmp\ 4082}#) - ((lambda (#{tmp\ 4083}#) - (if #{tmp\ 4083}# - (apply (lambda () #{v\ 4078}#) - #{tmp\ 4083}#) - ((lambda (#{tmp\ 4084}#) - (if #{tmp\ 4084}# - (apply (lambda (#{e\ 4086}#) - #{e\ 4086}#) - #{tmp\ 4084}#) - ((lambda (#{_\ 4088}#) + (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}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4038}# - #{s\ 4079}#)) - #{tmp\ 4082}#))) + #{orig-x\ 7295}# + #{s\ 7336}#)) + #{tmp\ 7339}#))) ($sc-dispatch - #{tmp\ 4082}# + #{tmp\ 7339}# '(any))))) ($sc-dispatch - #{tmp\ 4082}# + #{tmp\ 7339}# '()))) - #{s\ 4079}#)) - #{var\ 4050}# - #{step\ 4052}#))) - #{tmp\ 4041}#) + #{s\ 7336}#)) + #{var\ 7307}# + #{step\ 7309}#))) + #{tmp\ 7298}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4040}#))) + #{tmp\ 7297}#))) ($sc-dispatch - #{tmp\ 4040}# + #{tmp\ 7297}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4038}#)) + #{orig-x\ 7295}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4095}# - (lambda (#{x\ 4099}# #{y\ 4100}#) - ((lambda (#{tmp\ 4104}#) - ((lambda (#{tmp\ 4105}#) - (if #{tmp\ 4105}# - (apply (lambda (#{x\ 4108}# #{y\ 4109}#) - ((lambda (#{tmp\ 4110}#) - ((lambda (#{tmp\ 4111}#) - (if #{tmp\ 4111}# - (apply (lambda (#{dy\ 4113}#) - ((lambda (#{tmp\ 4114}#) - ((lambda (#{tmp\ 4115}#) - (if #{tmp\ 4115}# - (apply (lambda (#{dx\ 4117}#) + (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}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4116")) + #("i7373")) #(ribcage #(dy) #((top)) - #("i4112")) + #("i7369")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12742,8 +12756,8 @@ y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12753,35 +12767,35 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - (cons #{dx\ 4117}# - #{dy\ 4113}#))) - #{tmp\ 4115}#) - ((lambda (#{_\ 4119}#) - (if (null? #{dy\ 4113}#) + (cons #{dx\ 7374}# + #{dy\ 7370}#))) + #{tmp\ 7372}#) + ((lambda (#{_\ 7376}#) + (if (null? #{dy\ 7370}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4118")) + #("i7375")) #(ribcage #(dy) #((top)) - #("i4112")) + #("i7369")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12795,8 +12809,8 @@ y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12806,31 +12820,31 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4108}#) + #{x\ 7365}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4118")) + #("i7375")) #(ribcage #(dy) #((top)) - #("i4112")) + #("i7369")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12844,8 +12858,8 @@ y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12855,17 +12869,17 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4108}# - #{y\ 4109}#))) - #{tmp\ 4114}#))) + #{x\ 7365}# + #{y\ 7366}#))) + #{tmp\ 7371}#))) ($sc-dispatch - #{tmp\ 4114}# + #{tmp\ 7371}# '(#(free-id #(syntax-object quote @@ -12873,13 +12887,13 @@ #(ribcage #(dy) #((top)) - #("i4112")) + #("i7369")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12892,8 +12906,8 @@ #(x y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12903,32 +12917,32 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) any)))) - #{x\ 4108}#)) - #{tmp\ 4111}#) - ((lambda (#{tmp\ 4120}#) - (if #{tmp\ 4120}# - (apply (lambda (#{stuff\ 4122}#) + #{x\ 7365}#)) + #{tmp\ 7368}#) + ((lambda (#{tmp\ 7377}#) + (if #{tmp\ 7377}# + (apply (lambda (#{stuff\ 7379}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4121")) + #("i7378")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12942,8 +12956,8 @@ y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12953,29 +12967,29 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - (cons #{x\ 4108}# - #{stuff\ 4122}#))) - #{tmp\ 4120}#) - ((lambda (#{else\ 4124}#) + (cons #{x\ 7365}# + #{stuff\ 7379}#))) + #{tmp\ 7377}#) + ((lambda (#{else\ 7381}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4123")) + #("i7380")) #(ribcage #(x y) #((top) (top)) - #("i4106" - "i4107")) + #("i7363" + "i7364")) #(ribcage () () @@ -12988,8 +13002,8 @@ #(x y) #((top) (top)) - #("i4101" - "i4102")) + #("i7358" + "i7359")) #(ribcage #(quasicons quasiappend @@ -12999,17 +13013,17 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4108}# - #{y\ 4109}#)) - #{tmp\ 4110}#))) + #{x\ 7365}# + #{y\ 7366}#)) + #{tmp\ 7367}#))) ($sc-dispatch - #{tmp\ 4110}# + #{tmp\ 7367}# '(#(free-id #(syntax-object list @@ -13017,13 +13031,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4106" "i4107")) + #("i7363" "i7364")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4101" "i4102")) + #("i7358" "i7359")) #(ribcage #(quasicons quasiappend @@ -13033,15 +13047,15 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4110}# + #{tmp\ 7367}# '(#(free-id #(syntax-object quote @@ -13049,13 +13063,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4106" "i4107")) + #("i7363" "i7364")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4101" "i4102")) + #("i7358" "i7359")) #(ribcage #(quasicons quasiappend @@ -13065,44 +13079,44 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) any)))) - #{y\ 4109}#)) - #{tmp\ 4105}#) + #{y\ 7366}#)) + #{tmp\ 7362}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4104}#))) - ($sc-dispatch #{tmp\ 4104}# (quote (any any))))) - (list #{x\ 4099}# #{y\ 4100}#)))) - (#{quasiappend\ 4096}# - (lambda (#{x\ 4125}# #{y\ 4126}#) - ((lambda (#{tmp\ 4130}#) - ((lambda (#{tmp\ 4131}#) - (if #{tmp\ 4131}# - (apply (lambda (#{x\ 4134}# #{y\ 4135}#) - ((lambda (#{tmp\ 4136}#) - ((lambda (#{tmp\ 4137}#) - (if #{tmp\ 4137}# - (apply (lambda () #{x\ 4134}#) - #{tmp\ 4137}#) - ((lambda (#{_\ 4139}#) + #{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}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4138")) + #("i7395")) #(ribcage #(x y) #((top) (top)) - #("i4132" - "i4133")) + #("i7389" + "i7390")) #(ribcage () () @@ -13114,8 +13128,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4127" - "i4128")) + #("i7384" + "i7385")) #(ribcage #(quasicons quasiappend @@ -13125,16 +13139,16 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4134}# - #{y\ 4135}#)) - #{tmp\ 4136}#))) + #{x\ 7391}# + #{y\ 7392}#)) + #{tmp\ 7393}#))) ($sc-dispatch - #{tmp\ 4136}# + #{tmp\ 7393}# '(#(free-id #(syntax-object quote @@ -13142,13 +13156,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4132" "i4133")) + #("i7389" "i7390")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4127" "i4128")) + #("i7384" "i7385")) #(ribcage #(quasicons quasiappend @@ -13158,45 +13172,45 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) ())))) - #{y\ 4135}#)) - #{tmp\ 4131}#) + #{y\ 7392}#)) + #{tmp\ 7388}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4130}#))) - ($sc-dispatch #{tmp\ 4130}# (quote (any any))))) - (list #{x\ 4125}# #{y\ 4126}#)))) - (#{quasivector\ 4097}# - (lambda (#{x\ 4140}#) - ((lambda (#{tmp\ 4143}#) - ((lambda (#{x\ 4145}#) - ((lambda (#{tmp\ 4146}#) - ((lambda (#{tmp\ 4147}#) - (if #{tmp\ 4147}# - (apply (lambda (#{x\ 4149}#) + #{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}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4148")) + #("i7405")) #(ribcage #(x) #((top)) - #("i4144")) + #("i7401")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4141")) + #("i7398")) #(ribcage #(quasicons quasiappend @@ -13206,28 +13220,28 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) (list->vector - #{x\ 4149}#))) - #{tmp\ 4147}#) - ((lambda (#{tmp\ 4151}#) - (if #{tmp\ 4151}# - (apply (lambda (#{x\ 4153}#) + #{x\ 7406}#))) + #{tmp\ 7404}#) + ((lambda (#{tmp\ 7408}#) + (if #{tmp\ 7408}# + (apply (lambda (#{x\ 7410}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4152")) + #("i7409")) #(ribcage #(x) #((top)) - #("i4144")) + #("i7401")) #(ribcage () () @@ -13239,7 +13253,7 @@ #(ribcage #(x) #((top)) - #("i4141")) + #("i7398")) #(ribcage #(quasicons quasiappend @@ -13249,31 +13263,31 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4153}#)) - #{tmp\ 4151}#) - ((lambda (#{_\ 4156}#) + #{x\ 7410}#)) + #{tmp\ 7408}#) + ((lambda (#{_\ 7413}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4155")) + #("i7412")) #(ribcage #(x) #((top)) - #("i4144")) + #("i7401")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4141")) + #("i7398")) #(ribcage #(quasicons quasiappend @@ -13283,15 +13297,15 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{x\ 4145}#)) - #{tmp\ 4146}#))) + #{x\ 7402}#)) + #{tmp\ 7403}#))) ($sc-dispatch - #{tmp\ 4146}# + #{tmp\ 7403}# '(#(free-id #(syntax-object list @@ -13299,82 +13313,82 @@ #(ribcage #(x) #((top)) - #("i4144")) + #("i7401")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4141")) + #("i7398")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4146}# + #{tmp\ 7403}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4144")) + #(ribcage #(x) #((top)) #("i7401")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4141")) + #(ribcage #(x) #((top)) #("i7398")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) each-any)))) - #{x\ 4145}#)) - #{tmp\ 4143}#)) - #{x\ 4140}#))) - (#{quasi\ 4098}# - (lambda (#{p\ 4157}# #{lev\ 4158}#) - ((lambda (#{tmp\ 4161}#) - ((lambda (#{tmp\ 4162}#) - (if #{tmp\ 4162}# - (apply (lambda (#{p\ 4164}#) - (if (= #{lev\ 4158}# 0) - #{p\ 4164}# - (#{quasicons\ 4095}# + #{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}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4163")) + #("i7420")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) #(syntax-object unquote @@ -13382,50 +13396,50 @@ #(ribcage #(p) #((top)) - #("i4163")) + #("i7420")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) - (#{quasi\ 4098}# - (list #{p\ 4164}#) - (- #{lev\ 4158}# 1))))) - #{tmp\ 4162}#) - ((lambda (#{tmp\ 4165}#) - (if (if #{tmp\ 4165}# - (apply (lambda (#{args\ 4167}#) - (= #{lev\ 4158}# 0)) - #{tmp\ 4165}#) + (#{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}#) #f) - (apply (lambda (#{args\ 4169}#) + (apply (lambda (#{args\ 7426}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4157}# + #{p\ 7414}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4168")) + #("i7425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend @@ -13435,33 +13449,33 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{args\ 4169}#))) - #{tmp\ 4165}#) - ((lambda (#{tmp\ 4170}#) - (if #{tmp\ 4170}# - (apply (lambda (#{p\ 4173}# - #{q\ 4174}#) - (if (= #{lev\ 4158}# 0) - (#{quasiappend\ 4096}# - #{p\ 4173}# - (#{quasi\ 4098}# - #{q\ 4174}# - #{lev\ 4158}#)) - (#{quasicons\ 4095}# - (#{quasicons\ 4095}# + #{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}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4171" - "i4172")) + #("i7428" + "i7429")) #(ribcage () () @@ -13469,8 +13483,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13480,10 +13494,10 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -13491,8 +13505,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4171" - "i4172")) + #("i7428" + "i7429")) #(ribcage () () @@ -13500,8 +13514,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13511,31 +13525,31 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) - (#{quasi\ 4098}# - (list #{p\ 4173}#) - (- #{lev\ 4158}# 1))) - (#{quasi\ 4098}# - #{q\ 4174}# - #{lev\ 4158}#)))) - #{tmp\ 4170}#) - ((lambda (#{tmp\ 4175}#) - (if (if #{tmp\ 4175}# - (apply (lambda (#{args\ 4178}# - #{q\ 4179}#) - (= #{lev\ 4158}# 0)) - #{tmp\ 4175}#) + (#{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}#) #f) - (apply (lambda (#{args\ 4182}# - #{q\ 4183}#) + (apply (lambda (#{args\ 7439}# + #{q\ 7440}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4157}# + #{p\ 7414}# (cons '#(syntax-object unquote-splicing ((top) @@ -13543,8 +13557,8 @@ #(args q) #((top) (top)) - #("i4180" - "i4181")) + #("i7437" + "i7438")) #(ribcage () () @@ -13553,8 +13567,8 @@ #(p lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13564,25 +13578,25 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{args\ 4182}#))) - #{tmp\ 4175}#) - ((lambda (#{tmp\ 4184}#) - (if #{tmp\ 4184}# - (apply (lambda (#{p\ 4186}#) - (#{quasicons\ 4095}# + #{args\ 7439}#))) + #{tmp\ 7432}#) + ((lambda (#{tmp\ 7441}#) + (if #{tmp\ 7441}# + (apply (lambda (#{p\ 7443}#) + (#{quasicons\ 7352}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4185")) + #("i7442")) #(ribcage () () @@ -13591,8 +13605,8 @@ #(p lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13602,10 +13616,10 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) #(syntax-object @@ -13614,7 +13628,7 @@ #(ribcage #(p) #((top)) - #("i4185")) + #("i7442")) #(ribcage () () @@ -13623,8 +13637,8 @@ #(p lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13634,45 +13648,45 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) - (#{quasi\ 4098}# - (list #{p\ 4186}#) - (+ #{lev\ 4158}# + (#{quasi\ 7355}# + (list #{p\ 7443}#) + (+ #{lev\ 7415}# 1)))) - #{tmp\ 4184}#) - ((lambda (#{tmp\ 4187}#) - (if #{tmp\ 4187}# - (apply (lambda (#{p\ 4190}# - #{q\ 4191}#) - (#{quasicons\ 4095}# - (#{quasi\ 4098}# - #{p\ 4190}# - #{lev\ 4158}#) - (#{quasi\ 4098}# - #{q\ 4191}# - #{lev\ 4158}#))) - #{tmp\ 4187}#) - ((lambda (#{tmp\ 4192}#) - (if #{tmp\ 4192}# - (apply (lambda (#{x\ 4194}#) - (#{quasivector\ 4097}# - (#{quasi\ 4098}# - #{x\ 4194}# - #{lev\ 4158}#))) - #{tmp\ 4192}#) - ((lambda (#{p\ 4197}#) + #{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}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4196")) + #("i7453")) #(ribcage () () @@ -13682,8 +13696,8 @@ lev) #((top) (top)) - #("i4159" - "i4160")) + #("i7416" + "i7417")) #(ribcage #(quasicons quasiappend @@ -13693,23 +13707,23 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile)) - #{p\ 4197}#)) - #{tmp\ 4161}#))) + #{p\ 7454}#)) + #{tmp\ 7418}#))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '(any . any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '(#(free-id #(syntax-object quasiquote @@ -13718,7 +13732,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend @@ -13728,14 +13742,14 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '((#(free-id #(syntax-object unquote-splicing @@ -13744,7 +13758,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend @@ -13754,17 +13768,17 @@ (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '((#(free-id #(syntax-object unquote-splicing @@ -13773,23 +13787,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" - "i4092" - "i4093" - "i4094"))) + #("i7348" + "i7349" + "i7350" + "i7351"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '(#(free-id #(syntax-object unquote @@ -13798,19 +13812,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" "i4092" "i4093" "i4094"))) + #("i7348" "i7349" "i7350" "i7351"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4161}# + #{tmp\ 7418}# '(#(free-id #(syntax-object unquote @@ -13819,243 +13833,243 @@ #(ribcage #(p lev) #((top) (top)) - #("i4159" "i4160")) + #("i7416" "i7417")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4091" "i4092" "i4093" "i4094"))) + #("i7348" "i7349" "i7350" "i7351"))) (hygiene guile))) any)))) - #{p\ 4157}#)))) - (lambda (#{x\ 4198}#) - ((lambda (#{tmp\ 4200}#) - ((lambda (#{tmp\ 4201}#) - (if #{tmp\ 4201}# - (apply (lambda (#{_\ 4204}# #{e\ 4205}#) - (#{quasi\ 4098}# #{e\ 4205}# 0)) - #{tmp\ 4201}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4200}#))) - ($sc-dispatch #{tmp\ 4200}# (quote (any any))))) - #{x\ 4198}#))) + #{tmp\ 7457}#))) + ($sc-dispatch #{tmp\ 7457}# (quote (any any))))) + #{x\ 7455}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4206}#) - (letrec ((#{read-file\ 4209}# - (lambda (#{fn\ 4210}# #{k\ 4211}#) - (let ((#{p\ 4215}# (open-input-file #{fn\ 4210}#))) - (letrec ((#{f\ 4218}# - (lambda (#{x\ 4219}#) - (if (eof-object? #{x\ 4219}#) + (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}#) (begin - (close-input-port #{p\ 4215}#) + (close-input-port #{p\ 7472}#) '()) (cons (datum->syntax - #{k\ 4211}# - #{x\ 4219}#) - (#{f\ 4218}# - (read #{p\ 4215}#))))))) - (#{f\ 4218}# (read #{p\ 4215}#))))))) - ((lambda (#{tmp\ 4220}#) - ((lambda (#{tmp\ 4221}#) - (if #{tmp\ 4221}# - (apply (lambda (#{k\ 4224}# #{filename\ 4225}#) - (let ((#{fn\ 4227}# - (syntax->datum #{filename\ 4225}#))) - ((lambda (#{tmp\ 4229}#) - ((lambda (#{tmp\ 4230}#) - (if #{tmp\ 4230}# - (apply (lambda (#{exp\ 4232}#) + #{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}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4231")) + #("i7488")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4226")) + #("i7483")) #(ribcage #(k filename) #((top) (top)) - #("i4222" - "i4223")) + #("i7479" + "i7480")) #(ribcage (read-file) ((top)) - ("i4208")) + ("i7465")) #(ribcage #(x) #((top)) - #("i4207"))) + #("i7464"))) (hygiene guile)) - #{exp\ 4232}#)) - #{tmp\ 4230}#) + #{exp\ 7489}#)) + #{tmp\ 7487}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4229}#))) + #{tmp\ 7486}#))) ($sc-dispatch - #{tmp\ 4229}# + #{tmp\ 7486}# 'each-any))) - (#{read-file\ 4209}# - #{fn\ 4227}# - #{k\ 4224}#)))) - #{tmp\ 4221}#) + (#{read-file\ 7466}# + #{fn\ 7484}# + #{k\ 7481}#)))) + #{tmp\ 7478}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4220}#))) - ($sc-dispatch #{tmp\ 4220}# (quote (any any))))) - #{x\ 4206}#))) + #{tmp\ 7477}#))) + ($sc-dispatch #{tmp\ 7477}# (quote (any any))))) + #{x\ 7463}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4234}#) - ((lambda (#{tmp\ 4236}#) - ((lambda (#{tmp\ 4237}#) - (if #{tmp\ 4237}# - (apply (lambda (#{k\ 4240}# #{filename\ 4241}#) - (let ((#{fn\ 4243}# - (syntax->datum #{filename\ 4241}#))) - ((lambda (#{tmp\ 4245}#) - ((lambda (#{fn\ 4247}#) + (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}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4246")) + #("i7503")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4242")) + #("i7499")) #(ribcage #(k filename) #((top) (top)) - #("i4238" "i4239")) + #("i7495" "i7496")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4235"))) + #("i7492"))) (hygiene guile)) - #{fn\ 4247}#)) - #{tmp\ 4245}#)) - (let ((#{t\ 4250}# - (%search-load-path #{fn\ 4243}#))) - (if #{t\ 4250}# - #{t\ 4250}# + #{fn\ 7504}#)) + #{tmp\ 7502}#)) + (let ((#{t\ 7507}# + (%search-load-path #{fn\ 7500}#))) + (if #{t\ 7507}# + #{t\ 7507}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4234}# - #{filename\ 4241}#)))))) - #{tmp\ 4237}#) + #{x\ 7491}# + #{filename\ 7498}#)))))) + #{tmp\ 7494}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4236}#))) - ($sc-dispatch #{tmp\ 4236}# (quote (any any))))) - #{x\ 4234}#)) + #{tmp\ 7493}#))) + ($sc-dispatch #{tmp\ 7493}# (quote (any any))))) + #{x\ 7491}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4252}#) - ((lambda (#{tmp\ 4254}#) - ((lambda (#{tmp\ 4255}#) - (if #{tmp\ 4255}# - (apply (lambda (#{_\ 4258}# #{e\ 4259}#) + (cons (lambda (#{x\ 7509}#) + ((lambda (#{tmp\ 7511}#) + ((lambda (#{tmp\ 7512}#) + (if #{tmp\ 7512}# + (apply (lambda (#{_\ 7515}# #{e\ 7516}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4252}#)) - #{tmp\ 4255}#) + #{x\ 7509}#)) + #{tmp\ 7512}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4254}#))) - ($sc-dispatch #{tmp\ 4254}# (quote (any any))))) - #{x\ 4252}#)) + #{tmp\ 7511}#))) + ($sc-dispatch #{tmp\ 7511}# (quote (any any))))) + #{x\ 7509}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4260}#) - ((lambda (#{tmp\ 4262}#) - ((lambda (#{tmp\ 4263}#) - (if #{tmp\ 4263}# - (apply (lambda (#{_\ 4266}# #{e\ 4267}#) + (cons (lambda (#{x\ 7517}#) + ((lambda (#{tmp\ 7519}#) + ((lambda (#{tmp\ 7520}#) + (if #{tmp\ 7520}# + (apply (lambda (#{_\ 7523}# #{e\ 7524}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4260}#)) - #{tmp\ 4263}#) + #{x\ 7517}#)) + #{tmp\ 7520}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4262}#))) - ($sc-dispatch #{tmp\ 4262}# (quote (any any))))) - #{x\ 4260}#)) + #{tmp\ 7519}#))) + ($sc-dispatch #{tmp\ 7519}# (quote (any any))))) + #{x\ 7517}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4268}#) - ((lambda (#{tmp\ 4270}#) - ((lambda (#{tmp\ 4271}#) - (if #{tmp\ 4271}# - (apply (lambda (#{_\ 4276}# - #{e\ 4277}# - #{m1\ 4278}# - #{m2\ 4279}#) - ((lambda (#{tmp\ 4281}#) - ((lambda (#{body\ 4283}#) + (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}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4282")) + #("i7539")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14063,35 +14077,35 @@ #(ribcage #(body) #((top)) - #("i4282")) + #("i7539")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - #{e\ 4277}#)) - #{body\ 4283}#)) - #{tmp\ 4281}#)) - (letrec ((#{f\ 4287}# - (lambda (#{clause\ 4288}# - #{clauses\ 4289}#) - (if (null? #{clauses\ 4289}#) - ((lambda (#{tmp\ 4291}#) - ((lambda (#{tmp\ 4292}#) - (if #{tmp\ 4292}# - (apply (lambda (#{e1\ 4295}# - #{e2\ 4296}#) + #{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}#) (cons '#(syntax-object begin ((top) @@ -14100,8 +14114,8 @@ e2) #((top) (top)) - #("i4293" - "i4294")) + #("i7550" + "i7551")) #(ribcage () () @@ -14113,9 +14127,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14125,10 +14139,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14136,17 +14150,17 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - (cons #{e1\ 4295}# - #{e2\ 4296}#))) - #{tmp\ 4292}#) - ((lambda (#{tmp\ 4298}#) - (if #{tmp\ 4298}# - (apply (lambda (#{k\ 4302}# - #{e1\ 4303}# - #{e2\ 4304}#) + (cons #{e1\ 7552}# + #{e2\ 7553}#))) + #{tmp\ 7549}#) + ((lambda (#{tmp\ 7555}#) + (if #{tmp\ 7555}# + (apply (lambda (#{k\ 7559}# + #{e1\ 7560}# + #{e2\ 7561}#) (list '#(syntax-object if ((top) @@ -14157,9 +14171,9 @@ #((top) (top) (top)) - #("i4299" - "i4300" - "i4301")) + #("i7556" + "i7557" + "i7558")) #(ribcage () () @@ -14171,9 +14185,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14183,10 +14197,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14194,7 +14208,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) (list '#(syntax-object @@ -14207,9 +14221,9 @@ #((top) (top) (top)) - #("i4299" - "i4300" - "i4301")) + #("i7556" + "i7557" + "i7558")) #(ribcage () () @@ -14221,9 +14235,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14233,10 +14247,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14244,7 +14258,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) '#(syntax-object @@ -14257,9 +14271,9 @@ #((top) (top) (top)) - #("i4299" - "i4300" - "i4301")) + #("i7556" + "i7557" + "i7558")) #(ribcage () () @@ -14271,9 +14285,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14283,10 +14297,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14294,7 +14308,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) (list '#(syntax-object @@ -14307,9 +14321,9 @@ #((top) (top) (top)) - #("i4299" - "i4300" - "i4301")) + #("i7556" + "i7557" + "i7558")) #(ribcage () () @@ -14321,9 +14335,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14333,10 +14347,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14344,10 +14358,10 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - #{k\ 4302}#)) + #{k\ 7559}#)) (cons '#(syntax-object begin ((top) @@ -14358,9 +14372,9 @@ #((top) (top) (top)) - #("i4299" - "i4300" - "i4301")) + #("i7556" + "i7557" + "i7558")) #(ribcage () () @@ -14372,9 +14386,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14384,10 +14398,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14395,27 +14409,27 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - (cons #{e1\ 4303}# - #{e2\ 4304}#)))) - #{tmp\ 4298}#) - ((lambda (#{_\ 4308}#) + (cons #{e1\ 7560}# + #{e2\ 7561}#)))) + #{tmp\ 7555}#) + ((lambda (#{_\ 7565}#) (syntax-violation 'case "bad clause" - #{x\ 4268}# - #{clause\ 4288}#)) - #{tmp\ 4291}#))) + #{x\ 7525}# + #{clause\ 7545}#)) + #{tmp\ 7548}#))) ($sc-dispatch - #{tmp\ 4291}# + #{tmp\ 7548}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4291}# + #{tmp\ 7548}# '(#(free-id #(syntax-object else @@ -14426,37 +14440,37 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile))) any . each-any)))) - #{clause\ 4288}#) - ((lambda (#{tmp\ 4310}#) - ((lambda (#{rest\ 4312}#) - ((lambda (#{tmp\ 4313}#) - ((lambda (#{tmp\ 4314}#) - (if #{tmp\ 4314}# - (apply (lambda (#{k\ 4318}# - #{e1\ 4319}# - #{e2\ 4320}#) + #{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}#) (list '#(syntax-object if ((top) @@ -14467,13 +14481,13 @@ #((top) (top) (top)) - #("i4315" - "i4316" - "i4317")) + #("i7572" + "i7573" + "i7574")) #(ribcage #(rest) #((top)) - #("i4311")) + #("i7568")) #(ribcage () () @@ -14485,9 +14499,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14497,10 +14511,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14508,7 +14522,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) (list '#(syntax-object @@ -14521,13 +14535,13 @@ #((top) (top) (top)) - #("i4315" - "i4316" - "i4317")) + #("i7572" + "i7573" + "i7574")) #(ribcage #(rest) #((top)) - #("i4311")) + #("i7568")) #(ribcage () () @@ -14539,9 +14553,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14551,10 +14565,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14562,7 +14576,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) '#(syntax-object @@ -14575,13 +14589,13 @@ #((top) (top) (top)) - #("i4315" - "i4316" - "i4317")) + #("i7572" + "i7573" + "i7574")) #(ribcage #(rest) #((top)) - #("i4311")) + #("i7568")) #(ribcage () () @@ -14593,9 +14607,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14605,10 +14619,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14616,7 +14630,7 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) (list '#(syntax-object @@ -14629,13 +14643,13 @@ #((top) (top) (top)) - #("i4315" - "i4316" - "i4317")) + #("i7572" + "i7573" + "i7574")) #(ribcage #(rest) #((top)) - #("i4311")) + #("i7568")) #(ribcage () () @@ -14647,9 +14661,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14659,10 +14673,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14670,10 +14684,10 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - #{k\ 4318}#)) + #{k\ 7575}#)) (cons '#(syntax-object begin ((top) @@ -14684,13 +14698,13 @@ #((top) (top) (top)) - #("i4315" - "i4316" - "i4317")) + #("i7572" + "i7573" + "i7574")) #(ribcage #(rest) #((top)) - #("i4311")) + #("i7568")) #(ribcage () () @@ -14702,9 +14716,9 @@ #((top) (top) (top)) - #("i4284" - "i4285" - "i4286")) + #("i7541" + "i7542" + "i7543")) #(ribcage #(_ e @@ -14714,10 +14728,10 @@ (top) (top) (top)) - #("i4272" - "i4273" - "i4274" - "i4275")) + #("i7529" + "i7530" + "i7531" + "i7532")) #(ribcage () () @@ -14725,61 +14739,61 @@ #(ribcage #(x) #((top)) - #("i4269"))) + #("i7526"))) (hygiene guile)) - (cons #{e1\ 4319}# - #{e2\ 4320}#)) - #{rest\ 4312}#)) - #{tmp\ 4314}#) - ((lambda (#{_\ 4324}#) + (cons #{e1\ 7576}# + #{e2\ 7577}#)) + #{rest\ 7569}#)) + #{tmp\ 7571}#) + ((lambda (#{_\ 7581}#) (syntax-violation 'case "bad clause" - #{x\ 4268}# - #{clause\ 4288}#)) - #{tmp\ 4313}#))) + #{x\ 7525}# + #{clause\ 7545}#)) + #{tmp\ 7570}#))) ($sc-dispatch - #{tmp\ 4313}# + #{tmp\ 7570}# '(each-any any . each-any)))) - #{clause\ 4288}#)) - #{tmp\ 4310}#)) - (#{f\ 4287}# - (car #{clauses\ 4289}#) - (cdr #{clauses\ 4289}#))))))) - (#{f\ 4287}# #{m1\ 4278}# #{m2\ 4279}#)))) - #{tmp\ 4271}#) + #{clause\ 7545}#)) + #{tmp\ 7567}#)) + (#{f\ 7544}# + (car #{clauses\ 7546}#) + (cdr #{clauses\ 7546}#))))))) + (#{f\ 7544}# #{m1\ 7535}# #{m2\ 7536}#)))) + #{tmp\ 7528}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4270}#))) + #{tmp\ 7527}#))) ($sc-dispatch - #{tmp\ 4270}# + #{tmp\ 7527}# '(any any any . each-any)))) - #{x\ 4268}#)) + #{x\ 7525}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4325}#) - ((lambda (#{tmp\ 4327}#) - ((lambda (#{tmp\ 4328}#) - (if #{tmp\ 4328}# - (apply (lambda (#{_\ 4331}# #{e\ 4332}#) + (cons (lambda (#{x\ 7582}#) + ((lambda (#{tmp\ 7584}#) + ((lambda (#{tmp\ 7585}#) + (if #{tmp\ 7585}# + (apply (lambda (#{_\ 7588}# #{e\ 7589}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4326"))) + #(ribcage #(x) #((top)) #("i7583"))) (hygiene guile)) '(#(syntax-object x @@ -14787,9 +14801,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4326"))) + #(ribcage #(x) #((top)) #("i7583"))) (hygiene guile))) (list '#(syntax-object syntax-case @@ -14797,12 +14811,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) '#(syntax-object x @@ -14810,12 +14824,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) '() (list '#(syntax-object @@ -14824,12 +14838,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) '(#(syntax-object identifier? @@ -14837,12 +14851,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) (#(syntax-object syntax @@ -14850,12 +14864,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) #(syntax-object id @@ -14863,12 +14877,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14876,27 +14890,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) - #{e\ 4332}#)) - (list (cons #{_\ 4331}# + #{e\ 7589}#)) + (list (cons #{_\ 7588}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) #(syntax-object ... @@ -14904,12 +14918,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14917,14 +14931,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i4329" "i4330")) + #("i7586" "i7587")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) - (cons #{e\ 4332}# + (cons #{e\ 7589}# '(#(syntax-object x ((top) @@ -14932,8 +14946,8 @@ #(_ e) #((top) (top)) - #("i4329" - "i4330")) + #("i7586" + "i7587")) #(ribcage () () @@ -14941,7 +14955,7 @@ #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile)) #(syntax-object ... @@ -14950,8 +14964,8 @@ #(_ e) #((top) (top)) - #("i4329" - "i4330")) + #("i7586" + "i7587")) #(ribcage () () @@ -14959,72 +14973,72 @@ #(ribcage #(x) #((top)) - #("i4326"))) + #("i7583"))) (hygiene guile))))))))) - #{tmp\ 4328}#) + #{tmp\ 7585}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4327}#))) - ($sc-dispatch #{tmp\ 4327}# (quote (any any))))) - #{x\ 4325}#)) + #{tmp\ 7584}#))) + ($sc-dispatch #{tmp\ 7584}# (quote (any any))))) + #{x\ 7582}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4333}#) - ((lambda (#{tmp\ 4335}#) - ((lambda (#{tmp\ 4336}#) - (if #{tmp\ 4336}# - (apply (lambda (#{_\ 4342}# - #{id\ 4343}# - #{args\ 4344}# - #{b0\ 4345}# - #{b1\ 4346}#) + (cons (lambda (#{x\ 7590}#) + ((lambda (#{tmp\ 7592}#) + ((lambda (#{tmp\ 7593}#) + (if #{tmp\ 7593}# + (apply (lambda (#{_\ 7599}# + #{id\ 7600}# + #{args\ 7601}# + #{b0\ 7602}# + #{b1\ 7603}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4337" - "i4338" - "i4339" - "i4340" - "i4341")) + #("i7594" + "i7595" + "i7596" + "i7597" + "i7598")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4334"))) + #(ribcage #(x) #((top)) #("i7591"))) (hygiene guile)) - #{id\ 4343}# + #{id\ 7600}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4337" - "i4338" - "i4339" - "i4340" - "i4341")) + #("i7594" + "i7595" + "i7596" + "i7597" + "i7598")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4334"))) + #("i7591"))) (hygiene guile)) - (cons #{args\ 4344}# - (cons #{b0\ 4345}# - #{b1\ 4346}#))))) - #{tmp\ 4336}#) - ((lambda (#{tmp\ 4348}#) - (if (if #{tmp\ 4348}# - (apply (lambda (#{_\ 4352}# - #{id\ 4353}# - #{val\ 4354}#) + (cons #{args\ 7601}# + (cons #{b0\ 7602}# + #{b1\ 7603}#))))) + #{tmp\ 7593}#) + ((lambda (#{tmp\ 7605}#) + (if (if #{tmp\ 7605}# + (apply (lambda (#{_\ 7609}# + #{id\ 7610}# + #{val\ 7611}#) (identifier? '#(syntax-object x @@ -15032,44 +15046,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i4349" "i4350" "i4351")) + #("i7606" "i7607" "i7608")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4334"))) + #("i7591"))) (hygiene guile)))) - #{tmp\ 4348}#) + #{tmp\ 7605}#) #f) - (apply (lambda (#{_\ 4358}# - #{id\ 4359}# - #{val\ 4360}#) + (apply (lambda (#{_\ 7615}# + #{id\ 7616}# + #{val\ 7617}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i4355" "i4356" "i4357")) + #("i7612" "i7613" "i7614")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4334"))) + #("i7591"))) (hygiene guile)) - #{id\ 4359}# - #{val\ 4360}#)) - #{tmp\ 4348}#) + #{id\ 7616}# + #{val\ 7617}#)) + #{tmp\ 7605}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4335}#))) + #{tmp\ 7592}#))) ($sc-dispatch - #{tmp\ 4335}# + #{tmp\ 7592}# '(any any any))))) ($sc-dispatch - #{tmp\ 4335}# + #{tmp\ 7592}# '(any (any . any) any . each-any)))) - #{x\ 4333}#)) + #{x\ 7590}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 9d12cb3ca..ac058dcc6 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -45,7 +45,7 @@ ;;; Scheme, please read the notes below carefully. -;;; This file defines the syntax-case expander, sc-expand, and a set +;;; This file defines the syntax-case expander, macroexpand, and a set ;;; of associated syntactic forms and procedures. Of these, the ;;; following are documented in The Scheme Programming Language, ;;; Second Edition (R. Kent Dybvig, Prentice Hall, 1996). Most are @@ -73,8 +73,8 @@ ;;; The remaining exports are listed below: ;;; -;;; (sc-expand datum) -;;; if datum represents a valid expression, sc-expand returns an +;;; (macroexpand datum) +;;; if datum represents a valid expression, macroexpand returns an ;;; expanded version of datum in a core language that includes no ;;; syntactic abstractions. The core language includes begin, ;;; define, if, lambda, letrec, quote, and set!. @@ -101,9 +101,9 @@ ;;; eval will not be invoked during the loading of psyntax.pp. After ;;; psyntax.pp has been loaded, the expansion of any macro definition, ;;; whether local or global, will result in a call to eval. If, however, -;;; sc-expand has already been registered as the expander to be used +;;; macroexpand has already been registered as the expander to be used ;;; by eval, and eval accepts one argument, nothing special must be done -;;; to support the "noexpand" flag, since it is handled by sc-expand. +;;; to support the "noexpand" flag, since it is handled by macroexpand. ;;; ;;; (gensym) ;;; returns a unique symbol each time it's called @@ -111,7 +111,7 @@ ;;; When porting to a new Scheme implementation, you should define the ;;; procedures listed above, load the expanded version of psyntax.ss ;;; (psyntax.pp, which should be available whereever you found -;;; psyntax.ss), and register sc-expand as the current expander (how +;;; psyntax.ss), and register macroexpand as the current expander (how ;;; you do this depends upon your implementation of Scheme). You may ;;; change the hooks and constructors defined toward the beginning of ;;; the code below, but to avoid bootstrapping problems, do so only @@ -2395,7 +2395,7 @@ (list (chi #'val r empty-wrap mod)))) (syntax-violation 'syntax-case "invalid literals list" e)))))))) -;;; The portable sc-expand seeds chi-top's mode m with 'e (for +;;; The portable macroexpand seeds chi-top's mode m with 'e (for ;;; evaluating) and esew (which stands for "eval syntax expanders ;;; when") with '(eval). In Chez Scheme, m is set to 'c instead of e ;;; if we are compiling a file, and esew is set to @@ -2404,7 +2404,7 @@ ;;; syntactic definitions are evaluated immediately after they are ;;; expanded, and the expanded definitions are also residualized into ;;; the object file if we are compiling a file. - (set! sc-expand + (set! macroexpand (lambda (x . rest) (if (and (pair? x) (equal? (car x) noexpand)) (cadr x) @@ -2452,7 +2452,7 @@ (arg-check (lambda (x) (or (not x) (string? x) (symbol? x))) who 'syntax-violation) (arg-check string? message 'syntax-violation) - (scm-error 'syntax-error 'sc-expand + (scm-error 'syntax-error 'macroexpand (string-append (if who "~a: " "") "~a " diff --git a/module/language/scheme/compile-tree-il.scm b/module/language/scheme/compile-tree-il.scm index 5d01a2651..6db257259 100644 --- a/module/language/scheme/compile-tree-il.scm +++ b/module/language/scheme/compile-tree-il.scm @@ -1,6 +1,6 @@ ;;; Guile Scheme specification -;; Copyright (C) 2001, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -29,6 +29,6 @@ (save-module-excursion (lambda () (set-current-module e) - (let* ((x (sc-expand x 'c '(compile load eval))) + (let* ((x (macroexpand x 'c '(compile load eval))) (cenv (current-module))) (values x cenv cenv)))))