diff options
author | Andy Wingo <wingo@pobox.com> | 2010-05-07 10:51:28 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-05-07 22:22:19 +0200 |
commit | 4f692ace90f2dc75b83aa9e10d9cd107d2ea924e (patch) | |
tree | f01b7c934fe781a95ac5d95f8257d78db35b8e11 | |
parent | b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1 (diff) | |
download | guile-4f692ace90f2dc75b83aa9e10d9cd107d2ea924e.tar.gz |
macro expanders return memoized expressions
* libguile/eval.c (scm_c_primitive_eval):
* module/ice-9/eval.scm (primitive-eval): Rely on the expander to
produce a memoized expression. If the expression is already memoized,
just pass it through (the equivalent of the old "noexpand" hack).
* libguile/memoize.c (scm_init_memoize): Initialize `memoize-expression'
as the initial binding of `macroexpand'.
* libguile/modules.c (scm_module_transformer): Before modules are
booted, look for `macroexpand', not `%pre-modules-transformer'.
* module/ice-9/boot-9.scm: No more %pre-modules-transformer. Loading
psyntax extends `macroexpand'.
(make-module): `macroexpand' is the default transformer.
* module/ice-9/psyntax.scm: No more `noexpand'.
(top-level-eval-hook, local-eval-hook): Instead of annotating with
noexpand, memoize the expression before handing it to primitive-eval.
(macroexpand): No more noexpand hack -- in its place we have another
hack, to memoize the result when running in eval mode.
* module/ice-9/psyntax-pp.scm: Regenerated.
-rw-r--r-- | libguile/eval.c | 10 | ||||
-rw-r--r-- | libguile/memoize.c | 3 | ||||
-rw-r--r-- | libguile/modules.c | 12 | ||||
-rw-r--r-- | module/ice-9/boot-9.scm | 9 | ||||
-rw-r--r-- | module/ice-9/eval.scm | 7 | ||||
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 16261 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 38 |
7 files changed, 8224 insertions, 8116 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index f775d31b1..f2cbebe64 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -844,10 +844,12 @@ scm_for_each (SCM proc, SCM arg1, SCM args) static SCM scm_c_primitive_eval (SCM exp) { - SCM transformer = scm_current_module_transformer (); - if (scm_is_true (transformer)) - exp = scm_call_1 (transformer, exp); - exp = scm_memoize_expression (exp); + if (!SCM_MEMOIZED_P (exp)) + exp = scm_call_1 (scm_current_module_transformer (), exp); + if (!SCM_MEMOIZED_P (exp)) + scm_misc_error ("primitive-eval", + "expander did not return a memoized expression", + scm_list_1 (exp)); return eval (exp, SCM_EOL); } diff --git a/libguile/memoize.c b/libguile/memoize.c index 0427cea76..aeb42a31c 100644 --- a/libguile/memoize.c +++ b/libguile/memoize.c @@ -1326,6 +1326,9 @@ scm_init_memoize () scm_set_smob_print (scm_tc16_memoized, scm_print_memoized); #include "libguile/memoize.x" + + scm_c_define ("macroexpand", + scm_variable_ref (scm_c_lookup ("memoize-expression"))); } /* diff --git a/libguile/modules.c b/libguile/modules.c index ac15eaaac..a0c47f2db 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -564,7 +564,7 @@ scm_current_module_lookup_closure () return SCM_BOOL_F; } -SCM_SYMBOL (sym_sys_pre_modules_transformer, "%pre-modules-transformer"); +SCM_SYMBOL (sym_macroexpand, "macroexpand"); SCM_DEFINE (scm_module_transformer, "module-transformer", 1, 0, 0, (SCM module), @@ -572,13 +572,13 @@ SCM_DEFINE (scm_module_transformer, "module-transformer", 1, 0, 0, #define FUNC_NAME s_scm_module_transformer { if (SCM_UNLIKELY (scm_is_false (module))) - { SCM v = scm_hashq_ref (scm_pre_modules_obarray, - sym_sys_pre_modules_transformer, + { + SCM v = scm_hashq_ref (scm_pre_modules_obarray, + sym_macroexpand, SCM_BOOL_F); if (scm_is_false (v)) - return SCM_BOOL_F; - else - return SCM_VARIABLE_REF (v); + SCM_MISC_ERROR ("no module, and `macroexpand' unbound", SCM_EOL); + return SCM_VARIABLE_REF (v); } else { diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 794e92999..b2ca4ac6d 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -357,7 +357,6 @@ 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 macroexpand #f) ;; $sc-dispatch is an implementation detail of psyntax. It is used by ;; expanded macros, to dispatch an input against a set of patterns. @@ -365,10 +364,8 @@ If there is no handler at all, Guile prints an error and then exits." ;; Load it up! (primitive-load-path "ice-9/psyntax-pp") - -;; %pre-modules-transformer is the Scheme expander from now until the -;; module system has booted up. -(define %pre-modules-transformer macroexpand) +;; The binding for `macroexpand' has now been overridden, making psyntax the +;; expander now. (define-syntax and (syntax-rules () @@ -1606,7 +1603,7 @@ If there is no handler at all, Guile prints an error and then exits." "Lazy-binder expected to be a procedure or #f." binder)) (let ((module (module-constructor (make-hash-table size) - uses binder #f %pre-modules-transformer + uses binder #f macroexpand #f #f #f (make-hash-table %default-import-size) '() diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm index e38f2df67..a5f885c85 100644 --- a/module/ice-9/eval.scm +++ b/module/ice-9/eval.scm @@ -332,8 +332,7 @@ (lambda (exp) "Evaluate @var{exp} in the current module." (eval - (memoize-expression ((or (module-transformer (current-module)) - (lambda (x) x)) - exp)) + (if (memoized? exp) + exp + ((module-transformer (current-module)) exp)) '())))) - diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 1ccc7bd0e..a0446d75f 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,638 +1,657 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 20}# - (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#) - (let ((#{t\ 90}# (null? #{first\ 83}#))) - (if #{t\ 90}# - #{t\ 90}# - (if (null? #{rest\ 84}#) - (letrec ((#{andmap\ 94}# - (lambda (#{first\ 95}#) - (let ((#{x\ 98}# (car #{first\ 95}#)) - (#{first\ 99}# (cdr #{first\ 95}#))) - (if (null? #{first\ 99}#) - (#{f\ 82}# #{x\ 98}#) - (if (#{f\ 82}# #{x\ 98}#) - (#{andmap\ 94}# #{first\ 99}#) +(letrec ((#{and-map*\ 10951}# + (lambda (#{f\ 11013}# #{first\ 11014}# . #{rest\ 11015}#) + (let ((#{t\ 11021}# (null? #{first\ 11014}#))) + (if #{t\ 11021}# + #{t\ 11021}# + (if (null? #{rest\ 11015}#) + (letrec ((#{andmap\ 11025}# + (lambda (#{first\ 11026}#) + (let ((#{x\ 11029}# (car #{first\ 11026}#)) + (#{first\ 11030}# + (cdr #{first\ 11026}#))) + (if (null? #{first\ 11030}#) + (#{f\ 11013}# #{x\ 11029}#) + (if (#{f\ 11013}# #{x\ 11029}#) + (#{andmap\ 11025}# #{first\ 11030}#) #f)))))) - (#{andmap\ 94}# #{first\ 83}#)) - (letrec ((#{andmap\ 105}# - (lambda (#{first\ 106}# #{rest\ 107}#) - (let ((#{x\ 112}# (car #{first\ 106}#)) - (#{xr\ 113}# (map car #{rest\ 107}#)) - (#{first\ 114}# (cdr #{first\ 106}#)) - (#{rest\ 115}# (map cdr #{rest\ 107}#))) - (if (null? #{first\ 114}#) - (apply #{f\ 82}# - (cons #{x\ 112}# #{xr\ 113}#)) - (if (apply #{f\ 82}# - (cons #{x\ 112}# #{xr\ 113}#)) - (#{andmap\ 105}# - #{first\ 114}# - #{rest\ 115}#) + (#{andmap\ 11025}# #{first\ 11014}#)) + (letrec ((#{andmap\ 11036}# + (lambda (#{first\ 11037}# #{rest\ 11038}#) + (let ((#{x\ 11043}# (car #{first\ 11037}#)) + (#{xr\ 11044}# (map car #{rest\ 11038}#)) + (#{first\ 11045}# (cdr #{first\ 11037}#)) + (#{rest\ 11046}# + (map cdr #{rest\ 11038}#))) + (if (null? #{first\ 11045}#) + (apply #{f\ 11013}# + (cons #{x\ 11043}# #{xr\ 11044}#)) + (if (apply #{f\ 11013}# + (cons #{x\ 11043}# + #{xr\ 11044}#)) + (#{andmap\ 11036}# + #{first\ 11045}# + #{rest\ 11046}#) #f)))))) - (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#)))))))) - (letrec ((#{lambda-var-list\ 337}# - (lambda (#{vars\ 552}#) - (letrec ((#{lvl\ 558}# - (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#) - (if (pair? #{vars\ 559}#) - (#{lvl\ 558}# - (cdr #{vars\ 559}#) - (cons (#{wrap\ 291}# - (car #{vars\ 559}#) - #{w\ 561}# + (#{andmap\ 11036}# + #{first\ 11014}# + #{rest\ 11015}#)))))))) + (letrec ((#{lambda-var-list\ 11266}# + (lambda (#{vars\ 11481}#) + (letrec ((#{lvl\ 11487}# + (lambda (#{vars\ 11488}# #{ls\ 11489}# #{w\ 11490}#) + (if (pair? #{vars\ 11488}#) + (#{lvl\ 11487}# + (cdr #{vars\ 11488}#) + (cons (#{wrap\ 11220}# + (car #{vars\ 11488}#) + #{w\ 11490}# #f) - #{ls\ 560}#) - #{w\ 561}#) - (if (#{id?\ 222}# #{vars\ 559}#) - (cons (#{wrap\ 291}# - #{vars\ 559}# - #{w\ 561}# + #{ls\ 11489}#) + #{w\ 11490}#) + (if (#{id?\ 11151}# #{vars\ 11488}#) + (cons (#{wrap\ 11220}# + #{vars\ 11488}# + #{w\ 11490}# #f) - #{ls\ 560}#) - (if (null? #{vars\ 559}#) - #{ls\ 560}# - (if (#{syntax-object?\ 186}# #{vars\ 559}#) - (#{lvl\ 558}# - (#{syntax-object-expression\ 188}# - #{vars\ 559}#) - #{ls\ 560}# - (#{join-wraps\ 273}# - #{w\ 561}# - (#{syntax-object-wrap\ 190}# - #{vars\ 559}#))) - (cons #{vars\ 559}# #{ls\ 560}#)))))))) - (#{lvl\ 558}# - #{vars\ 552}# + #{ls\ 11489}#) + (if (null? #{vars\ 11488}#) + #{ls\ 11489}# + (if (#{syntax-object?\ 11115}# + #{vars\ 11488}#) + (#{lvl\ 11487}# + (#{syntax-object-expression\ 11117}# + #{vars\ 11488}#) + #{ls\ 11489}# + (#{join-wraps\ 11202}# + #{w\ 11490}# + (#{syntax-object-wrap\ 11119}# + #{vars\ 11488}#))) + (cons #{vars\ 11488}# #{ls\ 11489}#)))))))) + (#{lvl\ 11487}# + #{vars\ 11481}# '() '(()))))) - (#{gen-var\ 335}# - (lambda (#{id\ 572}#) - (let ((#{id\ 575}# - (if (#{syntax-object?\ 186}# #{id\ 572}#) - (#{syntax-object-expression\ 188}# #{id\ 572}#) - #{id\ 572}#))) + (#{gen-var\ 11264}# + (lambda (#{id\ 11501}#) + (let ((#{id\ 11504}# + (if (#{syntax-object?\ 11115}# #{id\ 11501}#) + (#{syntax-object-expression\ 11117}# + #{id\ 11501}#) + #{id\ 11501}#))) (gensym - (string-append (symbol->string #{id\ 575}#) " "))))) - (#{strip\ 333}# - (lambda (#{x\ 577}# #{w\ 578}#) + (string-append + (symbol->string #{id\ 11504}#) + " "))))) + (#{strip\ 11262}# + (lambda (#{x\ 11506}# #{w\ 11507}#) (if (memq 'top - (#{wrap-marks\ 229}# #{w\ 578}#)) - #{x\ 577}# - (letrec ((#{f\ 584}# (lambda (#{x\ 585}#) - (if (#{syntax-object?\ 186}# - #{x\ 585}#) - (#{strip\ 333}# - (#{syntax-object-expression\ 188}# - #{x\ 585}#) - (#{syntax-object-wrap\ 190}# - #{x\ 585}#)) - (if (pair? #{x\ 585}#) - (let ((#{a\ 592}# (#{f\ 584}# (car #{x\ 585}#))) - (#{d\ 593}# (#{f\ 584}# (cdr #{x\ 585}#)))) - (if (if (eq? #{a\ 592}# - (car #{x\ 585}#)) - (eq? #{d\ 593}# - (cdr #{x\ 585}#)) - #f) - #{x\ 585}# - (cons #{a\ 592}# #{d\ 593}#))) - (if (vector? #{x\ 585}#) - (let ((#{old\ 599}# - (vector->list - #{x\ 585}#))) - (let ((#{new\ 601}# - (map #{f\ 584}# - #{old\ 599}#))) - (if (#{and-map*\ 20}# - eq? - #{old\ 599}# - #{new\ 601}#) - #{x\ 585}# - (list->vector - #{new\ 601}#)))) - #{x\ 585}#)))))) - (#{f\ 584}# #{x\ 577}#))))) - (#{chi-lambda-case\ 331}# - (lambda (#{e\ 603}# - #{r\ 604}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}# - #{get-formals\ 608}# - #{clauses\ 609}#) - (letrec ((#{expand-body\ 624}# - (lambda (#{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - #{body\ 629}# - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# - #{meta\ 634}#) - ((lambda (#{tmp\ 645}#) - ((lambda (#{tmp\ 646}#) - (if (if #{tmp\ 646}# - (apply (lambda (#{docstring\ 650}# - #{e1\ 651}# - #{e2\ 652}#) + (#{wrap-marks\ 11158}# #{w\ 11507}#)) + #{x\ 11506}# + (letrec ((#{f\ 11513}# + (lambda (#{x\ 11514}#) + (if (#{syntax-object?\ 11115}# #{x\ 11514}#) + (#{strip\ 11262}# + (#{syntax-object-expression\ 11117}# + #{x\ 11514}#) + (#{syntax-object-wrap\ 11119}# #{x\ 11514}#)) + (if (pair? #{x\ 11514}#) + (let ((#{a\ 11521}# + (#{f\ 11513}# (car #{x\ 11514}#))) + (#{d\ 11522}# + (#{f\ 11513}# (cdr #{x\ 11514}#)))) + (if (if (eq? #{a\ 11521}# + (car #{x\ 11514}#)) + (eq? #{d\ 11522}# (cdr #{x\ 11514}#)) + #f) + #{x\ 11514}# + (cons #{a\ 11521}# #{d\ 11522}#))) + (if (vector? #{x\ 11514}#) + (let ((#{old\ 11528}# + (vector->list #{x\ 11514}#))) + (let ((#{new\ 11530}# + (map #{f\ 11513}# + #{old\ 11528}#))) + (if (#{and-map*\ 10951}# + eq? + #{old\ 11528}# + #{new\ 11530}#) + #{x\ 11514}# + (list->vector #{new\ 11530}#)))) + #{x\ 11514}#)))))) + (#{f\ 11513}# #{x\ 11506}#))))) + (#{chi-lambda-case\ 11260}# + (lambda (#{e\ 11532}# + #{r\ 11533}# + #{w\ 11534}# + #{s\ 11535}# + #{mod\ 11536}# + #{get-formals\ 11537}# + #{clauses\ 11538}#) + (letrec ((#{expand-body\ 11553}# + (lambda (#{req\ 11554}# + #{opt\ 11555}# + #{rest\ 11556}# + #{kw\ 11557}# + #{body\ 11558}# + #{vars\ 11559}# + #{r*\ 11560}# + #{w*\ 11561}# + #{inits\ 11562}# + #{meta\ 11563}#) + ((lambda (#{tmp\ 11574}#) + ((lambda (#{tmp\ 11575}#) + (if (if #{tmp\ 11575}# + (apply (lambda (#{docstring\ 11579}# + #{e1\ 11580}# + #{e2\ 11581}#) (string? (syntax->datum - #{docstring\ 650}#))) - #{tmp\ 646}#) + #{docstring\ 11579}#))) + #{tmp\ 11575}#) #f) - (apply (lambda (#{docstring\ 656}# - #{e1\ 657}# - #{e2\ 658}#) - (#{expand-body\ 624}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - (cons #{e1\ 657}# #{e2\ 658}#) - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# + (apply (lambda (#{docstring\ 11585}# + #{e1\ 11586}# + #{e2\ 11587}#) + (#{expand-body\ 11553}# + #{req\ 11554}# + #{opt\ 11555}# + #{rest\ 11556}# + #{kw\ 11557}# + (cons #{e1\ 11586}# + #{e2\ 11587}#) + #{vars\ 11559}# + #{r*\ 11560}# + #{w*\ 11561}# + #{inits\ 11562}# (append - #{meta\ 634}# + #{meta\ 11563}# (list (cons 'documentation (syntax->datum - #{docstring\ 656}#)))))) - #{tmp\ 646}#) - ((lambda (#{tmp\ 661}#) - (if #{tmp\ 661}# - (apply (lambda (#{k\ 666}# - #{v\ 667}# - #{e1\ 668}# - #{e2\ 669}#) - (#{expand-body\ 624}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - (cons #{e1\ 668}# - #{e2\ 669}#) - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# + #{docstring\ 11585}#)))))) + #{tmp\ 11575}#) + ((lambda (#{tmp\ 11590}#) + (if #{tmp\ 11590}# + (apply (lambda (#{k\ 11595}# + #{v\ 11596}# + #{e1\ 11597}# + #{e2\ 11598}#) + (#{expand-body\ 11553}# + #{req\ 11554}# + #{opt\ 11555}# + #{rest\ 11556}# + #{kw\ 11557}# + (cons #{e1\ 11597}# + #{e2\ 11598}#) + #{vars\ 11559}# + #{r*\ 11560}# + #{w*\ 11561}# + #{inits\ 11562}# (append - #{meta\ 634}# + #{meta\ 11563}# (syntax->datum (map cons - #{k\ 666}# - #{v\ 667}#))))) - #{tmp\ 661}#) - ((lambda (#{tmp\ 673}#) - (if #{tmp\ 673}# - (apply (lambda (#{e1\ 676}# - #{e2\ 677}#) + #{k\ 11595}# + #{v\ 11596}#))))) + #{tmp\ 11590}#) + ((lambda (#{tmp\ 11602}#) + (if #{tmp\ 11602}# + (apply (lambda (#{e1\ 11605}# + #{e2\ 11606}#) (values - #{meta\ 634}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - #{inits\ 633}# - #{vars\ 630}# - (#{chi-body\ 315}# - (cons #{e1\ 676}# - #{e2\ 677}#) - (#{source-wrap\ 293}# - #{e\ 603}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}#) - #{r*\ 631}# - #{w*\ 632}# - #{mod\ 607}#))) - #{tmp\ 673}#) + #{meta\ 11563}# + #{req\ 11554}# + #{opt\ 11555}# + #{rest\ 11556}# + #{kw\ 11557}# + #{inits\ 11562}# + #{vars\ 11559}# + (#{chi-body\ 11244}# + (cons #{e1\ 11605}# + #{e2\ 11606}#) + (#{source-wrap\ 11222}# + #{e\ 11532}# + #{w\ 11534}# + #{s\ 11535}# + #{mod\ 11536}#) + #{r*\ 11560}# + #{w*\ 11561}# + #{mod\ 11536}#))) + #{tmp\ 11602}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 645}#))) + #{tmp\ 11574}#))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 11574}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 11574}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 11574}# '(any any . each-any)))) - #{body\ 629}#))) - (#{expand-kw\ 622}# - (lambda (#{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - #{kw\ 682}# - #{body\ 683}# - #{vars\ 684}# - #{r*\ 685}# - #{w*\ 686}# - #{aok\ 687}# - #{out\ 688}# - #{inits\ 689}#) - (if (pair? #{kw\ 682}#) - ((lambda (#{tmp\ 703}#) - ((lambda (#{tmp\ 704}#) - (if #{tmp\ 704}# - (apply (lambda (#{k\ 708}# - #{id\ 709}# - #{i\ 710}#) - (let ((#{v\ 713}# (#{gen-var\ 335}# - #{id\ 709}#))) - (let ((#{l\ 715}# (#{gen-labels\ 240}# - (list #{v\ 713}#)))) - (let ((#{r**\ 717}# - (#{extend-var-env\ 212}# - #{l\ 715}# - (list #{v\ 713}#) - #{r*\ 685}#))) - (let ((#{w**\ 719}# - (#{make-binding-wrap\ 269}# - (list #{id\ 709}#) - #{l\ 715}# - #{w*\ 686}#))) - (#{expand-kw\ 622}# - #{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - (cdr #{kw\ 682}#) - #{body\ 683}# - (cons #{v\ 713}# - #{vars\ 684}#) - #{r**\ 717}# - #{w**\ 719}# - #{aok\ 687}# + #{body\ 11558}#))) + (#{expand-kw\ 11551}# + (lambda (#{req\ 11608}# + #{opt\ 11609}# + #{rest\ 11610}# + #{kw\ 11611}# + #{body\ 11612}# + #{vars\ 11613}# + #{r*\ 11614}# + #{w*\ 11615}# + #{aok\ 11616}# + #{out\ 11617}# + #{inits\ 11618}#) + (if (pair? #{kw\ 11611}#) + ((lambda (#{tmp\ 11632}#) + ((lambda (#{tmp\ 11633}#) + (if #{tmp\ 11633}# + (apply (lambda (#{k\ 11637}# + #{id\ 11638}# + #{i\ 11639}#) + (let ((#{v\ 11642}# + (#{gen-var\ 11264}# + #{id\ 11638}#))) + (let ((#{l\ 11644}# + (#{gen-labels\ 11169}# + (list #{v\ 11642}#)))) + (let ((#{r**\ 11646}# + (#{extend-var-env\ 11141}# + #{l\ 11644}# + (list #{v\ 11642}#) + #{r*\ 11614}#))) + (let ((#{w**\ 11648}# + (#{make-binding-wrap\ 11198}# + (list #{id\ 11638}#) + #{l\ 11644}# + #{w*\ 11615}#))) + (#{expand-kw\ 11551}# + #{req\ 11608}# + #{opt\ 11609}# + #{rest\ 11610}# + (cdr #{kw\ 11611}#) + #{body\ 11612}# + (cons #{v\ 11642}# + #{vars\ 11613}#) + #{r**\ 11646}# + #{w**\ 11648}# + #{aok\ 11616}# (cons (list (syntax->datum - #{k\ 708}#) + #{k\ 11637}#) (syntax->datum - #{id\ 709}#) - #{v\ 713}#) - #{out\ 688}#) - (cons (#{chi\ 307}# - #{i\ 710}# - #{r*\ 685}# - #{w*\ 686}# - #{mod\ 607}#) - #{inits\ 689}#))))))) - #{tmp\ 704}#) + #{id\ 11638}#) + #{v\ 11642}#) + #{out\ 11617}#) + (cons (#{chi\ 11236}# + #{i\ 11639}# + #{r*\ 11614}# + #{w*\ 11615}# + #{mod\ 11536}#) + #{inits\ 11618}#))))))) + #{tmp\ 11633}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 703}#))) + #{tmp\ 11632}#))) ($sc-dispatch - #{tmp\ 703}# + #{tmp\ 11632}# '(any any any)))) - (car #{kw\ 682}#)) - (#{expand-body\ 624}# - #{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - (if (let ((#{t\ 723}# #{aok\ 687}#)) - (if #{t\ 723}# - #{t\ 723}# - (pair? #{out\ 688}#))) - (cons #{aok\ 687}# (reverse #{out\ 688}#)) + (car #{kw\ 11611}#)) + (#{expand-body\ 11553}# + #{req\ 11608}# + #{opt\ 11609}# + #{rest\ 11610}# + (if (let ((#{t\ 11652}# #{aok\ 11616}#)) + (if #{t\ 11652}# + #{t\ 11652}# + (pair? #{out\ 11617}#))) + (cons #{aok\ 11616}# + (reverse #{out\ 11617}#)) #f) - #{body\ 683}# - (reverse #{vars\ 684}#) - #{r*\ 685}# - #{w*\ 686}# - (reverse #{inits\ 689}#) + #{body\ 11612}# + (reverse #{vars\ 11613}#) + #{r*\ 11614}# + #{w*\ 11615}# + (reverse #{inits\ 11618}#) '())))) - (#{expand-opt\ 620}# - (lambda (#{req\ 725}# - #{opt\ 726}# - #{rest\ 727}# - #{kw\ 728}# - #{body\ 729}# - #{vars\ 730}# - #{r*\ 731}# - #{w*\ 732}# - #{out\ 733}# - #{inits\ 734}#) - (if (pair? #{opt\ 726}#) - ((lambda (#{tmp\ 747}#) - ((lambda (#{tmp\ 748}#) - (if #{tmp\ 748}# - (apply (lambda (#{id\ 751}# #{i\ 752}#) - (let ((#{v\ 755}# (#{gen-var\ 335}# - #{id\ 751}#))) - (let ((#{l\ 757}# (#{gen-labels\ 240}# - (list #{v\ 755}#)))) - (let ((#{r**\ 759}# - (#{extend-var-env\ 212}# - #{l\ 757}# - (list #{v\ 755}#) - #{r*\ 731}#))) - (let ((#{w**\ 761}# - (#{make-binding-wrap\ 269}# - (list #{id\ 751}#) - #{l\ 757}# - #{w*\ 732}#))) - (#{expand-opt\ 620}# - #{req\ 725}# - (cdr #{opt\ 726}#) - #{rest\ 727}# - #{kw\ 728}# - #{body\ 729}# - (cons #{v\ 755}# - #{vars\ 730}#) - #{r**\ 759}# - #{w**\ 761}# + (#{expand-opt\ 11549}# + (lambda (#{req\ 11654}# + #{opt\ 11655}# + #{rest\ 11656}# + #{kw\ 11657}# + #{body\ 11658}# + #{vars\ 11659}# + #{r*\ 11660}# + #{w*\ 11661}# + #{out\ 11662}# + #{inits\ 11663}#) + (if (pair? #{opt\ 11655}#) + ((lambda (#{tmp\ 11676}#) + ((lambda (#{tmp\ 11677}#) + (if #{tmp\ 11677}# + (apply (lambda (#{id\ 11680}# + #{i\ 11681}#) + (let ((#{v\ 11684}# + (#{gen-var\ 11264}# + #{id\ 11680}#))) + (let ((#{l\ 11686}# + (#{gen-labels\ 11169}# + (list #{v\ 11684}#)))) + (let ((#{r**\ 11688}# + (#{extend-var-env\ 11141}# + #{l\ 11686}# + (list #{v\ 11684}#) + #{r*\ 11660}#))) + (let ((#{w**\ 11690}# + (#{make-binding-wrap\ 11198}# + (list #{id\ 11680}#) + #{l\ 11686}# + #{w*\ 11661}#))) + (#{expand-opt\ 11549}# + #{req\ 11654}# + (cdr #{opt\ 11655}#) + #{rest\ 11656}# + #{kw\ 11657}# + #{body\ 11658}# + (cons #{v\ 11684}# + #{vars\ 11659}#) + #{r**\ 11688}# + #{w**\ 11690}# (cons (syntax->datum - #{id\ 751}#) - #{out\ 733}#) - (cons (#{chi\ 307}# - #{i\ 752}# - #{r*\ 731}# - #{w*\ 732}# - #{mod\ 607}#) - #{inits\ 734}#))))))) - #{tmp\ 748}#) + #{id\ 11680}#) + #{out\ 11662}#) + (cons (#{chi\ 11236}# + #{i\ 11681}# + #{r*\ 11660}# + #{w*\ 11661}# + #{mod\ 11536}#) + #{inits\ 11663}#))))))) + #{tmp\ 11677}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 747}#))) + #{tmp\ 11676}#))) ($sc-dispatch - #{tmp\ 747}# + #{tmp\ 11676}# '(any any)))) - (car #{opt\ 726}#)) - (if #{rest\ 727}# - (let ((#{v\ 766}# (#{gen-var\ 335}# - #{rest\ 727}#))) - (let ((#{l\ 768}# (#{gen-labels\ 240}# - (list #{v\ 766}#)))) - (let ((#{r*\ 770}# - (#{extend-var-env\ 212}# - #{l\ 768}# - (list #{v\ 766}#) - #{r*\ 731}#))) - (let ((#{w*\ 772}# - (#{make-binding-wrap\ 269}# - (list #{rest\ 727}#) - #{l\ 768}# - #{w*\ 732}#))) - (#{expand-kw\ 622}# - #{req\ 725}# - (if (pair? #{out\ 733}#) - (reverse #{out\ 733}#) + (car #{opt\ 11655}#)) + (if #{rest\ 11656}# + (let ((#{v\ 11695}# + (#{gen-var\ 11264}# #{rest\ 11656}#))) + (let ((#{l\ 11697}# + (#{gen-labels\ 11169}# + (list #{v\ 11695}#)))) + (let ((#{r*\ 11699}# + (#{extend-var-env\ 11141}# + #{l\ 11697}# + (list #{v\ 11695}#) + #{r*\ 11660}#))) + (let ((#{w*\ 11701}# + (#{make-binding-wrap\ 11198}# + (list #{rest\ 11656}#) + #{l\ 11697}# + #{w*\ 11661}#))) + (#{expand-kw\ 11551}# + #{req\ 11654}# + (if (pair? #{out\ 11662}#) + (reverse #{out\ 11662}#) #f) - (syntax->datum #{rest\ 727}#) - (if (pair? #{kw\ 728}#) - (cdr #{kw\ 728}#) - #{kw\ 728}#) - #{body\ 729}# - (cons #{v\ 766}# #{vars\ 730}#) - #{r*\ 770}# - #{w*\ 772}# - (if (pair? #{kw\ 728}#) - (car #{kw\ 728}#) + (syntax->datum #{rest\ 11656}#) + (if (pair? #{kw\ 11657}#) + (cdr #{kw\ 11657}#) + #{kw\ 11657}#) + #{body\ 11658}# + (cons #{v\ 11695}# #{vars\ 11659}#) + #{r*\ 11699}# + #{w*\ 11701}# + (if (pair? #{kw\ 11657}#) + (car #{kw\ 11657}#) #f) '() - #{inits\ 734}#))))) - (#{expand-kw\ 622}# - #{req\ 725}# - (if (pair? #{out\ 733}#) - (reverse #{out\ 733}#) + #{inits\ 11663}#))))) + (#{expand-kw\ 11551}# + #{req\ 11654}# + (if (pair? #{out\ 11662}#) + (reverse #{out\ 11662}#) #f) #f - (if (pair? #{kw\ 728}#) - (cdr #{kw\ 728}#) - #{kw\ 728}#) - #{body\ 729}# - #{vars\ 730}# - #{r*\ 731}# - #{w*\ 732}# - (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f) + (if (pair? #{kw\ 11657}#) + (cdr #{kw\ 11657}#) + #{kw\ 11657}#) + #{body\ 11658}# + #{vars\ 11659}# + #{r*\ 11660}# + #{w*\ 11661}# + (if (pair? #{kw\ 11657}#) + (car #{kw\ 11657}#) + #f) '() - #{inits\ 734}#))))) - (#{expand-req\ 618}# - (lambda (#{req\ 774}# - #{opt\ 775}# - #{rest\ 776}# - #{kw\ 777}# - #{body\ 778}#) - (let ((#{vars\ 786}# - (map #{gen-var\ 335}# #{req\ 774}#)) - (#{labels\ 787}# - (#{gen-labels\ 240}# #{req\ 774}#))) - (let ((#{r*\ 790}# - (#{extend-var-env\ 212}# - #{labels\ 787}# - #{vars\ 786}# - #{r\ 604}#)) - (#{w*\ 791}# - (#{make-binding-wrap\ 269}# - #{req\ 774}# - #{labels\ 787}# - #{w\ 605}#))) - (#{expand-opt\ 620}# - (map syntax->datum #{req\ 774}#) - #{opt\ 775}# - #{rest\ 776}# - #{kw\ 777}# - #{body\ 778}# - (reverse #{vars\ 786}#) - #{r*\ 790}# - #{w*\ 791}# + #{inits\ 11663}#))))) + (#{expand-req\ 11547}# + (lambda (#{req\ 11703}# + #{opt\ 11704}# + #{rest\ 11705}# + #{kw\ 11706}# + #{body\ 11707}#) + (let ((#{vars\ 11715}# + (map #{gen-var\ 11264}# #{req\ 11703}#)) + (#{labels\ 11716}# + (#{gen-labels\ 11169}# #{req\ 11703}#))) + (let ((#{r*\ 11719}# + (#{extend-var-env\ 11141}# + #{labels\ 11716}# + #{vars\ 11715}# + #{r\ 11533}#)) + (#{w*\ 11720}# + (#{make-binding-wrap\ 11198}# + #{req\ 11703}# + #{labels\ 11716}# + #{w\ 11534}#))) + (#{expand-opt\ 11549}# + (map syntax->datum #{req\ 11703}#) + #{opt\ 11704}# + #{rest\ 11705}# + #{kw\ 11706}# + #{body\ 11707}# + (reverse #{vars\ 11715}#) + #{r*\ 11719}# + #{w*\ 11720}# '() '())))))) - ((lambda (#{tmp\ 792}#) - ((lambda (#{tmp\ 793}#) - (if #{tmp\ 793}# + ((lambda (#{tmp\ 11721}#) + ((lambda (#{tmp\ 11722}#) + (if #{tmp\ 11722}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 793}#) - ((lambda (#{tmp\ 794}#) - (if #{tmp\ 794}# - (apply (lambda (#{args\ 801}# - #{e1\ 802}# - #{e2\ 803}# - #{args*\ 804}# - #{e1*\ 805}# - #{e2*\ 806}#) + #{tmp\ 11722}#) + ((lambda (#{tmp\ 11723}#) + (if #{tmp\ 11723}# + (apply (lambda (#{args\ 11730}# + #{e1\ 11731}# + #{e2\ 11732}# + #{args*\ 11733}# + #{e1*\ 11734}# + #{e2*\ 11735}#) (call-with-values (lambda () - (#{get-formals\ 608}# - #{args\ 801}#)) - (lambda (#{req\ 807}# - #{opt\ 808}# - #{rest\ 809}# - #{kw\ 810}#) + (#{get-formals\ 11537}# + #{args\ 11730}#)) + (lambda (#{req\ 11736}# + #{opt\ 11737}# + #{rest\ 11738}# + #{kw\ 11739}#) (call-with-values (lambda () - (#{expand-req\ 618}# - #{req\ 807}# - #{opt\ 808}# - #{rest\ 809}# - #{kw\ 810}# - (cons #{e1\ 802}# - #{e2\ 803}#))) - (lambda (#{meta\ 816}# - #{req\ 817}# - #{opt\ 818}# - #{rest\ 819}# - #{kw\ 820}# - #{inits\ 821}# - #{vars\ 822}# - #{body\ 823}#) + (#{expand-req\ 11547}# + #{req\ 11736}# + #{opt\ 11737}# + #{rest\ 11738}# + #{kw\ 11739}# + (cons #{e1\ 11731}# + #{e2\ 11732}#))) + (lambda (#{meta\ 11745}# + #{req\ 11746}# + #{opt\ 11747}# + #{rest\ 11748}# + #{kw\ 11749}# + #{inits\ 11750}# + #{vars\ 11751}# + #{body\ 11752}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 603}# - #{r\ 604}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}# - #{get-formals\ 608}# - (map (lambda (#{tmp\ 834}# - #{tmp\ 833}# - #{tmp\ 832}#) - (cons #{tmp\ 832}# - (cons #{tmp\ 833}# - #{tmp\ 834}#))) - #{e2*\ 806}# - #{e1*\ 805}# - #{args*\ 804}#))) - (lambda (#{meta*\ 836}# - #{else*\ 837}#) + (#{chi-lambda-case\ 11260}# + #{e\ 11532}# + #{r\ 11533}# + #{w\ 11534}# + #{s\ 11535}# + #{mod\ 11536}# + #{get-formals\ 11537}# + (map (lambda (#{tmp\ 11763}# + #{tmp\ 11762}# + #{tmp\ 11761}#) + (cons #{tmp\ 11761}# + (cons #{tmp\ 11762}# + #{tmp\ 11763}#))) + #{e2*\ 11735}# + #{e1*\ 11734}# + #{args*\ 11733}#))) + (lambda (#{meta*\ 11765}# + #{else*\ 11766}#) (values (append - #{meta\ 816}# - #{meta*\ 836}#) - (#{build-lambda-case\ 168}# - #{s\ 606}# - #{req\ 817}# - #{opt\ 818}# - #{rest\ 819}# - #{kw\ 820}# - #{inits\ 821}# - #{vars\ 822}# - #{body\ 823}# - #{else*\ 837}#))))))))) - #{tmp\ 794}#) + #{meta\ 11745}# + #{meta*\ 11765}#) + (#{build-lambda-case\ 11097}# + #{s\ 11535}# + #{req\ 11746}# + #{opt\ 11747}# + #{rest\ 11748}# + #{kw\ 11749}# + #{inits\ 11750}# + #{vars\ 11751}# + #{body\ 11752}# + #{else*\ 11766}#))))))))) + #{tmp\ 11723}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 792}#))) + #{tmp\ 11721}#))) ($sc-dispatch - #{tmp\ 792}# + #{tmp\ 11721}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 792}# (quote ())))) - #{clauses\ 609}#)))) - (#{lambda*-formals\ 329}# - (lambda (#{orig-args\ 840}#) - (letrec ((#{check\ 851}# - (lambda (#{req\ 852}# - #{opt\ 853}# - #{rest\ 854}# - #{kw\ 855}#) - (if (#{distinct-bound-ids?\ 287}# + ($sc-dispatch #{tmp\ 11721}# (quote ())))) + #{clauses\ 11538}#)))) + (#{lambda*-formals\ 11258}# + (lambda (#{orig-args\ 11769}#) + (letrec ((#{check\ 11780}# + (lambda (#{req\ 11781}# + #{opt\ 11782}# + #{rest\ 11783}# + #{kw\ 11784}#) + (if (#{distinct-bound-ids?\ 11216}# (append - #{req\ 852}# - (map car #{opt\ 853}#) - (if #{rest\ 854}# - (list #{rest\ 854}#) + #{req\ 11781}# + (map car #{opt\ 11782}#) + (if #{rest\ 11783}# + (list #{rest\ 11783}#) '()) - (if (pair? #{kw\ 855}#) - (map cadr (cdr #{kw\ 855}#)) + (if (pair? #{kw\ 11784}#) + (map cadr (cdr #{kw\ 11784}#)) '()))) (values - #{req\ 852}# - #{opt\ 853}# - #{rest\ 854}# - #{kw\ 855}#) + #{req\ 11781}# + #{opt\ 11782}# + #{rest\ 11783}# + #{kw\ 11784}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 840}#)))) - (#{rest\ 849}# - (lambda (#{args\ 863}# - #{req\ 864}# - #{opt\ 865}# - #{kw\ 866}#) - ((lambda (#{tmp\ 871}#) - ((lambda (#{tmp\ 872}#) - (if (if #{tmp\ 872}# - (apply (lambda (#{r\ 874}#) - (#{id?\ 222}# #{r\ 874}#)) - #{tmp\ 872}#) + #{orig-args\ 11769}#)))) + (#{rest\ 11778}# + (lambda (#{args\ 11792}# + #{req\ 11793}# + #{opt\ 11794}# + #{kw\ 11795}#) + ((lambda (#{tmp\ 11800}#) + ((lambda (#{tmp\ 11801}#) + (if (if #{tmp\ 11801}# + (apply (lambda (#{r\ 11803}#) + (#{id?\ 11151}# #{r\ 11803}#)) + #{tmp\ 11801}#) #f) - (apply (lambda (#{r\ 876}#) - (#{check\ 851}# - #{req\ 864}# - #{opt\ 865}# - #{r\ 876}# - #{kw\ 866}#)) - #{tmp\ 872}#) - ((lambda (#{else\ 878}#) + (apply (lambda (#{r\ 11805}#) + (#{check\ 11780}# + #{req\ 11793}# + #{opt\ 11794}# + #{r\ 11805}# + #{kw\ 11795}#)) + #{tmp\ 11801}#) + ((lambda (#{else\ 11807}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 840}# - #{args\ 863}#)) - #{tmp\ 871}#))) - (list #{tmp\ 871}#))) - #{args\ 863}#))) - (#{key\ 847}# - (lambda (#{args\ 879}# - #{req\ 880}# - #{opt\ 881}# - #{rkey\ 882}#) - ((lambda (#{tmp\ 887}#) - ((lambda (#{tmp\ 888}#) - (if #{tmp\ 888}# + #{orig-args\ 11769}# + #{args\ 11792}#)) + #{tmp\ 11800}#))) + (list #{tmp\ 11800}#))) + #{args\ 11792}#))) + (#{key\ 11776}# + (lambda (#{args\ 11808}# + #{req\ 11809}# + #{opt\ 11810}# + #{rkey\ 11811}#) + ((lambda (#{tmp\ 11816}#) + ((lambda (#{tmp\ 11817}#) + (if #{tmp\ 11817}# (apply (lambda () - (#{check\ 851}# - #{req\ 880}# - #{opt\ 881}# + (#{check\ 11780}# + #{req\ 11809}# + #{opt\ 11810}# #f (cons #f - (reverse #{rkey\ 882}#)))) - #{tmp\ 888}#) - ((lambda (#{tmp\ 889}#) - (if (if #{tmp\ 889}# - (apply (lambda (#{a\ 892}# - #{b\ 893}#) - (#{id?\ 222}# - #{a\ 892}#)) - #{tmp\ 889}#) + (reverse + #{rkey\ 11811}#)))) + #{tmp\ 11817}#) + ((lambda (#{tmp\ 11818}#) + (if (if #{tmp\ 11818}# + (apply (lambda (#{a\ 11821}# + #{b\ 11822}#) + (#{id?\ 11151}# + #{a\ 11821}#)) + #{tmp\ 11818}#) #f) - (apply (lambda (#{a\ 896}# #{b\ 897}#) - ((lambda (#{tmp\ 899}#) - ((lambda (#{k\ 901}#) - (#{key\ 847}# - #{b\ 897}# - #{req\ 880}# - #{opt\ 881}# - (cons (cons #{k\ 901}# - (cons #{a\ 896}# + (apply (lambda (#{a\ 11825}# + #{b\ 11826}#) + ((lambda (#{tmp\ 11828}#) + ((lambda (#{k\ 11830}#) + (#{key\ 11776}# + #{b\ 11826}# + #{req\ 11809}# + #{opt\ 11810}# + (cons (cons #{k\ 11830}# + (cons #{a\ 11825}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i900")) + #("i11829")) #(ribcage #(a b) #((top) (top)) - #("i894" - "i895")) + #("i11823" + "i11824")) #(ribcage () () @@ -646,10 +665,10 @@ (top) (top) (top)) - #("i883" - "i884" - "i885" - "i886")) + #("i11812" + "i11813" + "i11814" + "i11815")) #(ribcage (check rest key @@ -660,15 +679,15 @@ (top) (top) (top)) - ("i850" - "i848" - "i846" - "i844" - "i842")) + ("i11779" + "i11777" + "i11775" + "i11773" + "i11771")) #(ribcage #(orig-args) #((top)) - #("i841")) + #("i11770")) #(ribcage (lambda-var-list gen-var @@ -786,8 +805,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -904,352 +922,352 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile))))) - #{rkey\ 882}#))) - #{tmp\ 899}#)) + #{rkey\ 11811}#))) + #{tmp\ 11828}#)) (symbol->keyword (syntax->datum - #{a\ 896}#)))) - #{tmp\ 889}#) - ((lambda (#{tmp\ 902}#) - (if (if #{tmp\ 902}# - (apply (lambda (#{a\ 906}# - #{init\ 907}# - #{b\ 908}#) - (#{id?\ 222}# - #{a\ 906}#)) - #{tmp\ 902}#) + #{a\ 11825}#)))) + #{tmp\ 11818}#) + ((lambda (#{tmp\ 11831}#) + (if (if #{tmp\ 11831}# + (apply (lambda (#{a\ 11835}# + #{init\ 11836}# + #{b\ 11837}#) + (#{id?\ 11151}# + #{a\ 11835}#)) + #{tmp\ 11831}#) #f) - (apply (lambda (#{a\ 912}# - #{init\ 913}# - #{b\ 914}#) - ((lambda (#{tmp\ 916}#) - ((lambda (#{k\ 918}#) - (#{key\ 847}# - #{b\ 914}# - #{req\ 880}# - #{opt\ 881}# - (cons (list #{k\ 918}# - #{a\ 912}# - #{init\ 913}#) - #{rkey\ 882}#))) - #{tmp\ 916}#)) + (apply (lambda (#{a\ 11841}# + #{init\ 11842}# + #{b\ 11843}#) + ((lambda (#{tmp\ 11845}#) + ((lambda (#{k\ 11847}#) + (#{key\ 11776}# + #{b\ 11843}# + #{req\ 11809}# + #{opt\ 11810}# + (cons (list #{k\ 11847}# + #{a\ 11841}# + #{init\ 11842}#) + #{rkey\ 11811}#))) + #{tmp\ 11845}#)) (symbol->keyword (syntax->datum - #{a\ 912}#)))) - #{tmp\ 902}#) - ((lambda (#{tmp\ 919}#) - (if (if #{tmp\ 919}# - (apply (lambda (#{a\ 924}# - #{init\ 925}# - #{k\ 926}# - #{b\ 927}#) - (if (#{id?\ 222}# - #{a\ 924}#) + #{a\ 11841}#)))) + #{tmp\ 11831}#) + ((lambda (#{tmp\ 11848}#) + (if (if #{tmp\ 11848}# + (apply (lambda (#{a\ 11853}# + #{init\ 11854}# + #{k\ 11855}# + #{b\ 11856}#) + (if (#{id?\ 11151}# + #{a\ 11853}#) (keyword? (syntax->datum - #{k\ 926}#)) + #{k\ 11855}#)) #f)) - #{tmp\ 919}#) + #{tmp\ 11848}#) #f) - (apply (lambda (#{a\ 934}# - #{init\ 935}# - #{k\ 936}# - #{b\ 937}#) - (#{key\ 847}# - #{b\ 937}# - #{req\ 880}# - #{opt\ 881}# - (cons (list #{k\ 936}# - #{a\ 934}# - #{init\ 935}#) - #{rkey\ 882}#))) - #{tmp\ 919}#) - ((lambda (#{tmp\ 938}#) - (if (if #{tmp\ 938}# - (apply (lambda (#{aok\ 940}#) + (apply (lambda (#{a\ 11863}# + #{init\ 11864}# + #{k\ 11865}# + #{b\ 11866}#) + (#{key\ 11776}# + #{b\ 11866}# + #{req\ 11809}# + #{opt\ 11810}# + (cons (list #{k\ 11865}# + #{a\ 11863}# + #{init\ 11864}#) + #{rkey\ 11811}#))) + #{tmp\ 11848}#) + ((lambda (#{tmp\ 11867}#) + (if (if #{tmp\ 11867}# + (apply (lambda (#{aok\ 11869}#) (eq? (syntax->datum - #{aok\ 940}#) + #{aok\ 11869}#) #:allow-other-keys)) - #{tmp\ 938}#) + #{tmp\ 11867}#) #f) - (apply (lambda (#{aok\ 942}#) - (#{check\ 851}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 11871}#) + (#{check\ 11780}# + #{req\ 11809}# + #{opt\ 11810}# #f (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 938}#) - ((lambda (#{tmp\ 943}#) - (if (if #{tmp\ 943}# - (apply (lambda (#{aok\ 947}# - #{a\ 948}# - #{b\ 949}#) + #{rkey\ 11811}#)))) + #{tmp\ 11867}#) + ((lambda (#{tmp\ 11872}#) + (if (if #{tmp\ 11872}# + (apply (lambda (#{aok\ 11876}# + #{a\ 11877}# + #{b\ 11878}#) (if (eq? (syntax->datum - #{aok\ 947}#) + #{aok\ 11876}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 948}#) + #{a\ 11877}#) #:rest) #f)) - #{tmp\ 943}#) + #{tmp\ 11872}#) #f) - (apply (lambda (#{aok\ 955}# - #{a\ 956}# - #{b\ 957}#) - (#{rest\ 849}# - #{b\ 957}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 11884}# + #{a\ 11885}# + #{b\ 11886}#) + (#{rest\ 11778}# + #{b\ 11886}# + #{req\ 11809}# + #{opt\ 11810}# (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 943}#) - ((lambda (#{tmp\ 958}#) - (if (if #{tmp\ 958}# - (apply (lambda (#{aok\ 961}# - #{r\ 962}#) + #{rkey\ 11811}#)))) + #{tmp\ 11872}#) + ((lambda (#{tmp\ 11887}#) + (if (if #{tmp\ 11887}# + (apply (lambda (#{aok\ 11890}# + #{r\ 11891}#) (if (eq? (syntax->datum - #{aok\ 961}#) + #{aok\ 11890}#) #:allow-other-keys) - (#{id?\ 222}# - #{r\ 962}#) + (#{id?\ 11151}# + #{r\ 11891}#) #f)) - #{tmp\ 958}#) + #{tmp\ 11887}#) #f) - (apply (lambda (#{aok\ 967}# - #{r\ 968}#) - (#{rest\ 849}# - #{r\ 968}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 11896}# + #{r\ 11897}#) + (#{rest\ 11778}# + #{r\ 11897}# + #{req\ 11809}# + #{opt\ 11810}# (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 958}#) - ((lambda (#{tmp\ 969}#) - (if (if #{tmp\ 969}# - (apply (lambda (#{a\ 972}# - #{b\ 973}#) + #{rkey\ 11811}#)))) + #{tmp\ 11887}#) + ((lambda (#{tmp\ 11898}#) + (if (if #{tmp\ 11898}# + (apply (lambda (#{a\ 11901}# + #{b\ 11902}#) (eq? (syntax->datum - #{a\ 972}#) + #{a\ 11901}#) #:rest)) - #{tmp\ 969}#) + #{tmp\ 11898}#) #f) - (apply (lambda (#{a\ 976}# - #{b\ 977}#) - (#{rest\ 849}# - #{b\ 977}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{a\ 11905}# + #{b\ 11906}#) + (#{rest\ 11778}# + #{b\ 11906}# + #{req\ 11809}# + #{opt\ 11810}# (cons #f (reverse - #{rkey\ 882}#)))) - #{tmp\ 969}#) - ((lambda (#{tmp\ 978}#) - (if (if #{tmp\ 978}# - (apply (lambda (#{r\ 980}#) - (#{id?\ 222}# - #{r\ 980}#)) - #{tmp\ 978}#) + #{rkey\ 11811}#)))) + #{tmp\ 11898}#) + ((lambda (#{tmp\ 11907}#) + (if (if #{tmp\ 11907}# + (apply (lambda (#{r\ 11909}#) + (#{id?\ 11151}# + #{r\ 11909}#)) + #{tmp\ 11907}#) #f) - (apply (lambda (#{r\ 982}#) - (#{rest\ 849}# - #{r\ 982}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{r\ 11911}#) + (#{rest\ 11778}# + #{r\ 11911}# + #{req\ 11809}# + #{opt\ 11810}# (cons #f (reverse - #{rkey\ 882}#)))) - #{tmp\ 978}#) - ((lambda (#{else\ 984}#) + #{rkey\ 11811}#)))) + #{tmp\ 11907}#) + ((lambda (#{else\ 11913}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 840}# - #{args\ 879}#)) - #{tmp\ 887}#))) - (list #{tmp\ 887}#)))) + #{orig-args\ 11769}# + #{args\ 11808}#)) + #{tmp\ 11816}#))) + (list #{tmp\ 11816}#)))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '(any any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '(any . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '(any any any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '(any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 11816}# '(any . any))))) - ($sc-dispatch #{tmp\ 887}# (quote ())))) - #{args\ 879}#))) - (#{opt\ 845}# - (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#) - ((lambda (#{tmp\ 991}#) - ((lambda (#{tmp\ 992}#) - (if #{tmp\ 992}# + ($sc-dispatch #{tmp\ 11816}# (quote ())))) + #{args\ 11808}#))) + (#{opt\ 11774}# + (lambda (#{args\ 11914}# + #{req\ 11915}# + #{ropt\ 11916}#) + ((lambda (#{tmp\ 11920}#) + ((lambda (#{tmp\ 11921}#) + (if #{tmp\ 11921}# (apply (lambda () - (#{check\ 851}# - #{req\ 986}# - (reverse #{ropt\ 987}#) + (#{check\ 11780}# + #{req\ 11915}# + (reverse #{ropt\ 11916}#) #f '())) - #{tmp\ 992}#) - ((lambda (#{tmp\ 993}#) - (if (if #{tmp\ 993}# - (apply (lambda (#{a\ 996}# - #{b\ 997}#) - (#{id?\ 222}# - #{a\ 996}#)) - #{tmp\ 993}#) + #{tmp\ 11921}#) + ((lambda (#{tmp\ 11922}#) + (if (if #{tmp\ 11922}# + (apply (lambda (#{a\ 11925}# + #{b\ 11926}#) + (#{id?\ 11151}# + #{a\ 11925}#)) + #{tmp\ 11922}#) #f) - (apply (lambda (#{a\ 1000}# - #{b\ 1001}#) - (#{opt\ 845}# - #{b\ 1001}# - #{req\ 986}# - (cons (cons #{a\ 1000}# + (apply (lambda (#{a\ 11929}# + #{b\ 11930}#) + (#{opt\ 11774}# + #{b\ 11930}# + #{req\ 11915}# + (cons (cons #{a\ 11929}# '(#(syntax-object #f ((top) @@ -1257,8 +1275,8 @@ #(a b) #((top) (top)) - #("i998" - "i999")) + #("i11927" + "i11928")) #(ribcage () () @@ -1270,9 +1288,9 @@ #((top) (top) (top)) - #("i988" - "i989" - "i990")) + #("i11917" + "i11918" + "i11919")) #(ribcage (check rest key @@ -1283,15 +1301,15 @@ (top) (top) (top)) - ("i850" - "i848" - "i846" - "i844" - "i842")) + ("i11779" + "i11777" + "i11775" + "i11773" + "i11771")) #(ribcage #(orig-args) #((top)) - #("i841")) + #("i11770")) #(ribcage (lambda-var-list gen-var @@ -1409,8 +1427,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -1527,465 +1544,463 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile)))) - #{ropt\ 987}#))) - #{tmp\ 993}#) - ((lambda (#{tmp\ 1002}#) - (if (if #{tmp\ 1002}# - (apply (lambda (#{a\ 1006}# - #{init\ 1007}# - #{b\ 1008}#) - (#{id?\ 222}# - #{a\ 1006}#)) - #{tmp\ 1002}#) + #{ropt\ 11916}#))) + #{tmp\ 11922}#) + ((lambda (#{tmp\ 11931}#) + (if (if #{tmp\ 11931}# + (apply (lambda (#{a\ 11935}# + #{init\ 11936}# + #{b\ 11937}#) + (#{id?\ 11151}# + #{a\ 11935}#)) + #{tmp\ 11931}#) #f) - (apply (lambda (#{a\ 1012}# - #{init\ 1013}# - #{b\ 1014}#) - (#{opt\ 845}# - #{b\ 1014}# - #{req\ 986}# - (cons (list #{a\ 1012}# - #{init\ 1013}#) - #{ropt\ 987}#))) - #{tmp\ 1002}#) - ((lambda (#{tmp\ 1015}#) - (if (if #{tmp\ 1015}# - (apply (lambda (#{a\ 1018}# - #{b\ 1019}#) + (apply (lambda (#{a\ 11941}# + #{init\ 11942}# + #{b\ 11943}#) + (#{opt\ 11774}# + #{b\ 11943}# + #{req\ 11915}# + (cons (list #{a\ 11941}# + #{init\ 11942}#) + #{ropt\ 11916}#))) + #{tmp\ 11931}#) + ((lambda (#{tmp\ 11944}#) + (if (if #{tmp\ 11944}# + (apply (lambda (#{a\ 11947}# + #{b\ 11948}#) (eq? (syntax->datum - #{a\ 1018}#) + #{a\ 11947}#) #:key)) - #{tmp\ 1015}#) + #{tmp\ 11944}#) #f) - (apply (lambda (#{a\ 1022}# - #{b\ 1023}#) - (#{key\ 847}# - #{b\ 1023}# - #{req\ 986}# + (apply (lambda (#{a\ 11951}# + #{b\ 11952}#) + (#{key\ 11776}# + #{b\ 11952}# + #{req\ 11915}# (reverse - #{ropt\ 987}#) + #{ropt\ 11916}#) '())) - #{tmp\ 1015}#) - ((lambda (#{tmp\ 1024}#) - (if (if #{tmp\ 1024}# - (apply (lambda (#{a\ 1027}# - #{b\ 1028}#) + #{tmp\ 11944}#) + ((lambda (#{tmp\ 11953}#) + (if (if #{tmp\ 11953}# + (apply (lambda (#{a\ 11956}# + #{b\ 11957}#) (eq? (syntax->datum - #{a\ 1027}#) + #{a\ 11956}#) #:rest)) - #{tmp\ 1024}#) + #{tmp\ 11953}#) #f) - (apply (lambda (#{a\ 1031}# - #{b\ 1032}#) - (#{rest\ 849}# - #{b\ 1032}# - #{req\ 986}# + (apply (lambda (#{a\ 11960}# + #{b\ 11961}#) + (#{rest\ 11778}# + #{b\ 11961}# + #{req\ 11915}# (reverse - #{ropt\ 987}#) + #{ropt\ 11916}#) '())) - #{tmp\ 1024}#) - ((lambda (#{tmp\ 1033}#) - (if (if #{tmp\ 1033}# - (apply (lambda (#{r\ 1035}#) - (#{id?\ 222}# - #{r\ 1035}#)) - #{tmp\ 1033}#) + #{tmp\ 11953}#) + ((lambda (#{tmp\ 11962}#) + (if (if #{tmp\ 11962}# + (apply (lambda (#{r\ 11964}#) + (#{id?\ 11151}# + #{r\ 11964}#)) + #{tmp\ 11962}#) #f) - (apply (lambda (#{r\ 1037}#) - (#{rest\ 849}# - #{r\ 1037}# - #{req\ 986}# + (apply (lambda (#{r\ 11966}#) + (#{rest\ 11778}# + #{r\ 11966}# + #{req\ 11915}# (reverse - #{ropt\ 987}#) + #{ropt\ 11916}#) '())) - #{tmp\ 1033}#) - ((lambda (#{else\ 1039}#) + #{tmp\ 11962}#) + ((lambda (#{else\ 11968}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 840}# - #{args\ 985}#)) - #{tmp\ 991}#))) - (list #{tmp\ 991}#)))) + #{orig-args\ 11769}# + #{args\ 11914}#)) + #{tmp\ 11920}#))) + (list #{tmp\ 11920}#)))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 11920}# '(any any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 11920}# '(any . any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 11920}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 11920}# '(any . any))))) - ($sc-dispatch #{tmp\ 991}# (quote ())))) - #{args\ 985}#))) - (#{req\ 843}# - (lambda (#{args\ 1040}# #{rreq\ 1041}#) - ((lambda (#{tmp\ 1044}#) - ((lambda (#{tmp\ 1045}#) - (if #{tmp\ 1045}# + ($sc-dispatch #{tmp\ 11920}# (quote ())))) + #{args\ 11914}#))) + (#{req\ 11772}# + (lambda (#{args\ 11969}# #{rreq\ 11970}#) + ((lambda (#{tmp\ 11973}#) + ((lambda (#{tmp\ 11974}#) + (if #{tmp\ 11974}# (apply (lambda () - (#{check\ 851}# - (reverse #{rreq\ 1041}#) + (#{check\ 11780}# + (reverse #{rreq\ 11970}#) '() #f '())) - #{tmp\ 1045}#) - ((lambda (#{tmp\ 1046}#) - (if (if #{tmp\ 1046}# - (apply (lambda (#{a\ 1049}# - #{b\ 1050}#) - (#{id?\ 222}# - #{a\ 1049}#)) - #{tmp\ 1046}#) + #{tmp\ 11974}#) + ((lambda (#{tmp\ 11975}#) + (if (if #{tmp\ 11975}# + (apply (lambda (#{a\ 11978}# + #{b\ 11979}#) + (#{id?\ 11151}# + #{a\ 11978}#)) + #{tmp\ 11975}#) #f) - (apply (lambda (#{a\ 1053}# - #{b\ 1054}#) - (#{req\ 843}# - #{b\ 1054}# - (cons #{a\ 1053}# - #{rreq\ 1041}#))) - #{tmp\ 1046}#) - ((lambda (#{tmp\ 1055}#) - (if (if #{tmp\ 1055}# - (apply (lambda (#{a\ 1058}# - #{b\ 1059}#) + (apply (lambda (#{a\ 11982}# + #{b\ 11983}#) + (#{req\ 11772}# + #{b\ 11983}# + (cons #{a\ 11982}# + #{rreq\ 11970}#))) + #{tmp\ 11975}#) + ((lambda (#{tmp\ 11984}#) + (if (if #{tmp\ 11984}# + (apply (lambda (#{a\ 11987}# + #{b\ 11988}#) (eq? (syntax->datum - #{a\ 1058}#) + #{a\ 11987}#) #:optional)) - #{tmp\ 1055}#) + #{tmp\ 11984}#) #f) - (apply (lambda (#{a\ 1062}# - #{b\ 1063}#) - (#{opt\ 845}# - #{b\ 1063}# + (apply (lambda (#{a\ 11991}# + #{b\ 11992}#) + (#{opt\ 11774}# + #{b\ 11992}# (reverse - #{rreq\ 1041}#) + #{rreq\ 11970}#) '())) - #{tmp\ 1055}#) - ((lambda (#{tmp\ 1064}#) - (if (if #{tmp\ 1064}# - (apply (lambda (#{a\ 1067}# - #{b\ 1068}#) + #{tmp\ 11984}#) + ((lambda (#{tmp\ 11993}#) + (if (if #{tmp\ 11993}# + (apply (lambda (#{a\ 11996}# + #{b\ 11997}#) (eq? (syntax->datum - #{a\ 1067}#) + #{a\ 11996}#) #:key)) - #{tmp\ 1064}#) + #{tmp\ 11993}#) #f) - (apply (lambda (#{a\ 1071}# - #{b\ 1072}#) - (#{key\ 847}# - #{b\ 1072}# + (apply (lambda (#{a\ 12000}# + #{b\ 12001}#) + (#{key\ 11776}# + #{b\ 12001}# (reverse - #{rreq\ 1041}#) + #{rreq\ 11970}#) '() '())) - #{tmp\ 1064}#) - ((lambda (#{tmp\ 1073}#) - (if (if #{tmp\ 1073}# - (apply (lambda (#{a\ 1076}# - #{b\ 1077}#) + #{tmp\ 11993}#) + ((lambda (#{tmp\ 12002}#) + (if (if #{tmp\ 12002}# + (apply (lambda (#{a\ 12005}# + #{b\ 12006}#) (eq? (syntax->datum - #{a\ 1076}#) + #{a\ 12005}#) #:rest)) - #{tmp\ 1073}#) + #{tmp\ 12002}#) #f) - (apply (lambda (#{a\ 1080}# - #{b\ 1081}#) - (#{rest\ 849}# - #{b\ 1081}# + (apply (lambda (#{a\ 12009}# + #{b\ 12010}#) + (#{rest\ 11778}# + #{b\ 12010}# (reverse - #{rreq\ 1041}#) + #{rreq\ 11970}#) '() '())) - #{tmp\ 1073}#) - ((lambda (#{tmp\ 1082}#) - (if (if #{tmp\ 1082}# - (apply (lambda (#{r\ 1084}#) - (#{id?\ 222}# - #{r\ 1084}#)) - #{tmp\ 1082}#) + #{tmp\ 12002}#) + ((lambda (#{tmp\ 12011}#) + (if (if #{tmp\ 12011}# + (apply (lambda (#{r\ 12013}#) + (#{id?\ 11151}# + #{r\ 12013}#)) + #{tmp\ 12011}#) #f) - (apply (lambda (#{r\ 1086}#) - (#{rest\ 849}# - #{r\ 1086}# + (apply (lambda (#{r\ 12015}#) + (#{rest\ 11778}# + #{r\ 12015}# (reverse - #{rreq\ 1041}#) + #{rreq\ 11970}#) '() '())) - #{tmp\ 1082}#) - ((lambda (#{else\ 1088}#) + #{tmp\ 12011}#) + ((lambda (#{else\ 12017}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 840}# - #{args\ 1040}#)) - #{tmp\ 1044}#))) - (list #{tmp\ 1044}#)))) + #{orig-args\ 11769}# + #{args\ 11969}#)) + #{tmp\ 11973}#))) + (list #{tmp\ 11973}#)))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 11973}# '(any any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 11973}# '(any . any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 11973}# '(any . any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 11973}# '(any . any))))) - ($sc-dispatch #{tmp\ 1044}# (quote ())))) - #{args\ 1040}#)))) - (#{req\ 843}# #{orig-args\ 840}# (quote ()))))) - (#{chi-simple-lambda\ 327}# - (lambda (#{e\ 1089}# - #{r\ 1090}# - #{w\ 1091}# - #{s\ 1092}# - #{mod\ 1093}# - #{req\ 1094}# - #{rest\ 1095}# - #{meta\ 1096}# - #{body\ 1097}#) - (let ((#{ids\ 1109}# - (if #{rest\ 1095}# - (append #{req\ 1094}# (list #{rest\ 1095}#)) - #{req\ 1094}#))) - (let ((#{vars\ 1111}# - (map #{gen-var\ 335}# #{ids\ 1109}#))) - (let ((#{labels\ 1113}# - (#{gen-labels\ 240}# #{ids\ 1109}#))) - (#{build-simple-lambda\ 164}# - #{s\ 1092}# - (map syntax->datum #{req\ 1094}#) - (if #{rest\ 1095}# - (syntax->datum #{rest\ 1095}#) + ($sc-dispatch #{tmp\ 11973}# (quote ())))) + #{args\ 11969}#)))) + (#{req\ 11772}# #{orig-args\ 11769}# (quote ()))))) + (#{chi-simple-lambda\ 11256}# + (lambda (#{e\ 12018}# + #{r\ 12019}# + #{w\ 12020}# + #{s\ 12021}# + #{mod\ 12022}# + #{req\ 12023}# + #{rest\ 12024}# + #{meta\ 12025}# + #{body\ 12026}#) + (let ((#{ids\ 12038}# + (if #{rest\ 12024}# + (append #{req\ 12023}# (list #{rest\ 12024}#)) + #{req\ 12023}#))) + (let ((#{vars\ 12040}# + (map #{gen-var\ 11264}# #{ids\ 12038}#))) + (let ((#{labels\ 12042}# + (#{gen-labels\ 11169}# #{ids\ 12038}#))) + (#{build-simple-lambda\ 11093}# + #{s\ 12021}# + (map syntax->datum #{req\ 12023}#) + (if #{rest\ 12024}# + (syntax->datum #{rest\ 12024}#) #f) - #{vars\ 1111}# - #{meta\ 1096}# - (#{chi-body\ 315}# - #{body\ 1097}# - (#{source-wrap\ 293}# - #{e\ 1089}# - #{w\ 1091}# - #{s\ 1092}# - #{mod\ 1093}#) - (#{extend-var-env\ 212}# - #{labels\ 1113}# - #{vars\ 1111}# - #{r\ 1090}#) - (#{make-binding-wrap\ 269}# - #{ids\ 1109}# - #{labels\ 1113}# - #{w\ 1091}#) - #{mod\ 1093}#))))))) - (#{lambda-formals\ 325}# - (lambda (#{orig-args\ 1116}#) - (letrec ((#{check\ 1121}# - (lambda (#{req\ 1122}# #{rest\ 1123}#) - (if (#{distinct-bound-ids?\ 287}# - (if #{rest\ 1123}# - (cons #{rest\ 1123}# #{req\ 1122}#) - #{req\ 1122}#)) - (values #{req\ 1122}# #f #{rest\ 1123}# #f) + #{vars\ 12040}# + #{meta\ 12025}# + (#{chi-body\ 11244}# + #{body\ 12026}# + (#{source-wrap\ 11222}# + #{e\ 12018}# + #{w\ 12020}# + #{s\ 12021}# + #{mod\ 12022}#) + (#{extend-var-env\ 11141}# + #{labels\ 12042}# + #{vars\ 12040}# + #{r\ 12019}#) + (#{make-binding-wrap\ 11198}# + #{ids\ 12038}# + #{labels\ 12042}# + #{w\ 12020}#) + #{mod\ 12022}#))))))) + (#{lambda-formals\ 11254}# + (lambda (#{orig-args\ 12045}#) + (letrec ((#{check\ 12050}# + (lambda (#{req\ 12051}# #{rest\ 12052}#) + (if (#{distinct-bound-ids?\ 11216}# + (if #{rest\ 12052}# + (cons #{rest\ 12052}# #{req\ 12051}#) + #{req\ 12051}#)) + (values #{req\ 12051}# #f #{rest\ 12052}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1116}#)))) - (#{req\ 1119}# - (lambda (#{args\ 1129}# #{rreq\ 1130}#) - ((lambda (#{tmp\ 1133}#) - ((lambda (#{tmp\ 1134}#) - (if #{tmp\ 1134}# + #{orig-args\ 12045}#)))) + (#{req\ 12048}# + (lambda (#{args\ 12058}# #{rreq\ 12059}#) + ((lambda (#{tmp\ 12062}#) + ((lambda (#{tmp\ 12063}#) + (if #{tmp\ 12063}# (apply (lambda () - (#{check\ 1121}# - (reverse #{rreq\ 1130}#) + (#{check\ 12050}# + (reverse #{rreq\ 12059}#) #f)) - #{tmp\ 1134}#) - ((lambda (#{tmp\ 1135}#) - (if (if #{tmp\ 1135}# - (apply (lambda (#{a\ 1138}# - #{b\ 1139}#) - (#{id?\ 222}# - #{a\ 1138}#)) - #{tmp\ 1135}#) + #{tmp\ 12063}#) + ((lambda (#{tmp\ 12064}#) + (if (if #{tmp\ 12064}# + (apply (lambda (#{a\ 12067}# + #{b\ 12068}#) + (#{id?\ 11151}# + #{a\ 12067}#)) + #{tmp\ 12064}#) #f) - (apply (lambda (#{a\ 1142}# - #{b\ 1143}#) - (#{req\ 1119}# - #{b\ 1143}# - (cons #{a\ 1142}# - #{rreq\ 1130}#))) - #{tmp\ 1135}#) - ((lambda (#{tmp\ 1144}#) - (if (if #{tmp\ 1144}# - (apply (lambda (#{r\ 1146}#) - (#{id?\ 222}# - #{r\ 1146}#)) - #{tmp\ 1144}#) + (apply (lambda (#{a\ 12071}# + #{b\ 12072}#) + (#{req\ 12048}# + #{b\ 12072}# + (cons #{a\ 12071}# + #{rreq\ 12059}#))) + #{tmp\ 12064}#) + ((lambda (#{tmp\ 12073}#) + (if (if #{tmp\ 12073}# + (apply (lambda (#{r\ 12075}#) + (#{id?\ 11151}# + #{r\ 12075}#)) + #{tmp\ 12073}#) #f) - (apply (lambda (#{r\ 1148}#) - (#{check\ 1121}# + (apply (lambda (#{r\ 12077}#) + (#{check\ 12050}# (reverse - #{rreq\ 1130}#) - #{r\ 1148}#)) - #{tmp\ 1144}#) - ((lambda (#{else\ 1150}#) + #{rreq\ 12059}#) + #{r\ 12077}#)) + #{tmp\ 12073}#) + ((lambda (#{else\ 12079}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1116}# - #{args\ 1129}#)) - #{tmp\ 1133}#))) - (list #{tmp\ 1133}#)))) + #{orig-args\ 12045}# + #{args\ 12058}#)) + #{tmp\ 12062}#))) + (list #{tmp\ 12062}#)))) ($sc-dispatch - #{tmp\ 1133}# + #{tmp\ 12062}# '(any . any))))) - ($sc-dispatch #{tmp\ 1133}# (quote ())))) - #{args\ 1129}#)))) - (#{req\ 1119}# #{orig-args\ 1116}# (quote ()))))) - (#{ellipsis?\ 323}# - (lambda (#{x\ 1151}#) - (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#) - (#{free-id=?\ 281}# - #{x\ 1151}# + ($sc-dispatch #{tmp\ 12062}# (quote ())))) + #{args\ 12058}#)))) + (#{req\ 12048}# #{orig-args\ 12045}# (quote ()))))) + (#{ellipsis?\ 11252}# + (lambda (#{x\ 12080}#) + (if (#{nonsymbol-id?\ 11149}# #{x\ 12080}#) + (#{free-id=?\ 11210}# + #{x\ 12080}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1152")) + #(ribcage #(x) #((top)) #("i12081")) #(ribcage (lambda-var-list gen-var @@ -2103,8 +2118,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -2221,1414 +2235,1422 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile))) #f))) - (#{chi-void\ 321}# - (lambda () (#{build-void\ 142}# #f))) - (#{eval-local-transformer\ 319}# - (lambda (#{expanded\ 1156}# #{mod\ 1157}#) - (let ((#{p\ 1161}# - (#{local-eval-hook\ 133}# - #{expanded\ 1156}# - #{mod\ 1157}#))) - (if (procedure? #{p\ 1161}#) - (cons #{p\ 1161}# (module-name (current-module))) + (#{chi-void\ 11250}# + (lambda () (#{build-void\ 11071}# #f))) + (#{eval-local-transformer\ 11248}# + (lambda (#{expanded\ 12085}# #{mod\ 12086}#) + (let ((#{p\ 12090}# + (#{local-eval-hook\ 11062}# + #{expanded\ 12085}# + #{mod\ 12086}#))) + (if (procedure? #{p\ 12090}#) + (cons #{p\ 12090}# + (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1161}#))))) - (#{chi-local-syntax\ 317}# - (lambda (#{rec?\ 1162}# - #{e\ 1163}# - #{r\ 1164}# - #{w\ 1165}# - #{s\ 1166}# - #{mod\ 1167}# - #{k\ 1168}#) - ((lambda (#{tmp\ 1176}#) - ((lambda (#{tmp\ 1177}#) - (if #{tmp\ 1177}# - (apply (lambda (#{_\ 1183}# - #{id\ 1184}# - #{val\ 1185}# - #{e1\ 1186}# - #{e2\ 1187}#) - (let ((#{ids\ 1189}# #{id\ 1184}#)) - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 1189}#)) + #{p\ 12090}#))))) + (#{chi-local-syntax\ 11246}# + (lambda (#{rec?\ 12091}# + #{e\ 12092}# + #{r\ 12093}# + #{w\ 12094}# + #{s\ 12095}# + #{mod\ 12096}# + #{k\ 12097}#) + ((lambda (#{tmp\ 12105}#) + ((lambda (#{tmp\ 12106}#) + (if #{tmp\ 12106}# + (apply (lambda (#{_\ 12112}# + #{id\ 12113}# + #{val\ 12114}# + #{e1\ 12115}# + #{e2\ 12116}#) + (let ((#{ids\ 12118}# #{id\ 12113}#)) + (if (not (#{valid-bound-ids?\ 11214}# + #{ids\ 12118}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1163}#) - (let ((#{labels\ 1192}# - (#{gen-labels\ 240}# - #{ids\ 1189}#))) - (let ((#{new-w\ 1194}# - (#{make-binding-wrap\ 269}# - #{ids\ 1189}# - #{labels\ 1192}# - #{w\ 1165}#))) - (#{k\ 1168}# - (cons #{e1\ 1186}# #{e2\ 1187}#) - (#{extend-env\ 210}# - #{labels\ 1192}# - (let ((#{w\ 1198}# - (if #{rec?\ 1162}# - #{new-w\ 1194}# - #{w\ 1165}#)) - (#{trans-r\ 1199}# - (#{macros-only-env\ 214}# - #{r\ 1164}#))) - (map (lambda (#{x\ 1200}#) + #{e\ 12092}#) + (let ((#{labels\ 12121}# + (#{gen-labels\ 11169}# + #{ids\ 12118}#))) + (let ((#{new-w\ 12123}# + (#{make-binding-wrap\ 11198}# + #{ids\ 12118}# + #{labels\ 12121}# + #{w\ 12094}#))) + (#{k\ 12097}# + (cons #{e1\ 12115}# #{e2\ 12116}#) + (#{extend-env\ 11139}# + #{labels\ 12121}# + (let ((#{w\ 12127}# + (if #{rec?\ 12091}# + #{new-w\ 12123}# + #{w\ 12094}#)) + (#{trans-r\ 12128}# + (#{macros-only-env\ 11143}# + #{r\ 12093}#))) + (map (lambda (#{x\ 12129}#) (cons 'macro - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - #{x\ 1200}# - #{trans-r\ 1199}# - #{w\ 1198}# - #{mod\ 1167}#) - #{mod\ 1167}#))) - #{val\ 1185}#)) - #{r\ 1164}#) - #{new-w\ 1194}# - #{s\ 1166}# - #{mod\ 1167}#)))))) - #{tmp\ 1177}#) - ((lambda (#{_\ 1205}#) + (#{eval-local-transformer\ 11248}# + (#{chi\ 11236}# + #{x\ 12129}# + #{trans-r\ 12128}# + #{w\ 12127}# + #{mod\ 12096}#) + #{mod\ 12096}#))) + #{val\ 12114}#)) + #{r\ 12093}#) + #{new-w\ 12123}# + #{s\ 12095}# + #{mod\ 12096}#)))))) + #{tmp\ 12106}#) + ((lambda (#{_\ 12134}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 293}# - #{e\ 1163}# - #{w\ 1165}# - #{s\ 1166}# - #{mod\ 1167}#))) - #{tmp\ 1176}#))) + (#{source-wrap\ 11222}# + #{e\ 12092}# + #{w\ 12094}# + #{s\ 12095}# + #{mod\ 12096}#))) + #{tmp\ 12105}#))) ($sc-dispatch - #{tmp\ 1176}# + #{tmp\ 12105}# '(any #(each (any any)) any . each-any)))) - #{e\ 1163}#))) - (#{chi-body\ 315}# - (lambda (#{body\ 1206}# - #{outer-form\ 1207}# - #{r\ 1208}# - #{w\ 1209}# - #{mod\ 1210}#) - (let ((#{r\ 1218}# + #{e\ 12092}#))) + (#{chi-body\ 11244}# + (lambda (#{body\ 12135}# + #{outer-form\ 12136}# + #{r\ 12137}# + #{w\ 12138}# + #{mod\ 12139}#) + (let ((#{r\ 12147}# (cons '("placeholder" placeholder) - #{r\ 1208}#))) - (let ((#{ribcage\ 1220}# - (#{make-ribcage\ 243}# + #{r\ 12137}#))) + (let ((#{ribcage\ 12149}# + (#{make-ribcage\ 11172}# '() '() '()))) - (let ((#{w\ 1223}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w\ 1209}#) - (cons #{ribcage\ 1220}# - (#{wrap-subst\ 231}# #{w\ 1209}#))))) - (letrec ((#{parse\ 1232}# - (lambda (#{body\ 1233}# - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#) - (if (null? #{body\ 1233}#) + (let ((#{w\ 12152}# + (#{make-wrap\ 11156}# + (#{wrap-marks\ 11158}# #{w\ 12138}#) + (cons #{ribcage\ 12149}# + (#{wrap-subst\ 11160}# #{w\ 12138}#))))) + (letrec ((#{parse\ 12161}# + (lambda (#{body\ 12162}# + #{ids\ 12163}# + #{labels\ 12164}# + #{var-ids\ 12165}# + #{vars\ 12166}# + #{vals\ 12167}# + #{bindings\ 12168}#) + (if (null? #{body\ 12162}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1207}#) - (let ((#{e\ 1244}# (cdar #{body\ 1233}#)) - (#{er\ 1245}# (caar #{body\ 1233}#))) + #{outer-form\ 12136}#) + (let ((#{e\ 12173}# (cdar #{body\ 12162}#)) + (#{er\ 12174}# + (caar #{body\ 12162}#))) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1244}# - #{er\ 1245}# + (#{syntax-type\ 11232}# + #{e\ 12173}# + #{er\ 12174}# '(()) - (#{source-annotation\ 201}# - #{er\ 1245}#) - #{ribcage\ 1220}# - #{mod\ 1210}# + (#{source-annotation\ 11130}# + #{er\ 12174}#) + #{ribcage\ 12149}# + #{mod\ 12139}# #f)) - (lambda (#{type\ 1247}# - #{value\ 1248}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#) - (if (memv #{type\ 1247}# + (lambda (#{type\ 12176}# + #{value\ 12177}# + #{e\ 12178}# + #{w\ 12179}# + #{s\ 12180}# + #{mod\ 12181}#) + (if (memv #{type\ 12176}# '(define-form)) - (let ((#{id\ 1262}# - (#{wrap\ 291}# - #{value\ 1248}# - #{w\ 1250}# - #{mod\ 1252}#)) - (#{label\ 1263}# - (#{gen-label\ 238}#))) - (let ((#{var\ 1265}# - (#{gen-var\ 335}# - #{id\ 1262}#))) + (let ((#{id\ 12191}# + (#{wrap\ 11220}# + #{value\ 12177}# + #{w\ 12179}# + #{mod\ 12181}#)) + (#{label\ 12192}# + (#{gen-label\ 11167}#))) + (let ((#{var\ 12194}# + (#{gen-var\ 11264}# + #{id\ 12191}#))) (begin - (#{extend-ribcage!\ 267}# - #{ribcage\ 1220}# - #{id\ 1262}# - #{label\ 1263}#) - (#{parse\ 1232}# - (cdr #{body\ 1233}#) - (cons #{id\ 1262}# - #{ids\ 1234}#) - (cons #{label\ 1263}# - #{labels\ 1235}#) - (cons #{id\ 1262}# - #{var-ids\ 1236}#) - (cons #{var\ 1265}# - #{vars\ 1237}#) - (cons (cons #{er\ 1245}# - (#{wrap\ 291}# - #{e\ 1249}# - #{w\ 1250}# - #{mod\ 1252}#)) - #{vals\ 1238}#) + (#{extend-ribcage!\ 11196}# + #{ribcage\ 12149}# + #{id\ 12191}# + #{label\ 12192}#) + (#{parse\ 12161}# + (cdr #{body\ 12162}#) + (cons #{id\ 12191}# + #{ids\ 12163}#) + (cons #{label\ 12192}# + #{labels\ 12164}#) + (cons #{id\ 12191}# + #{var-ids\ 12165}#) + (cons #{var\ 12194}# + #{vars\ 12166}#) + (cons (cons #{er\ 12174}# + (#{wrap\ 11220}# + #{e\ 12178}# + #{w\ 12179}# + #{mod\ 12181}#)) + #{vals\ 12167}#) (cons (cons 'lexical - #{var\ 1265}#) - #{bindings\ 1239}#))))) - (if (memv #{type\ 1247}# + #{var\ 12194}#) + #{bindings\ 12168}#))))) + (if (memv #{type\ 12176}# '(define-syntax-form)) - (let ((#{id\ 1270}# - (#{wrap\ 291}# - #{value\ 1248}# - #{w\ 1250}# - #{mod\ 1252}#)) - (#{label\ 1271}# - (#{gen-label\ 238}#))) + (let ((#{id\ 12199}# + (#{wrap\ 11220}# + #{value\ 12177}# + #{w\ 12179}# + #{mod\ 12181}#)) + (#{label\ 12200}# + (#{gen-label\ 11167}#))) (begin - (#{extend-ribcage!\ 267}# - #{ribcage\ 1220}# - #{id\ 1270}# - #{label\ 1271}#) - (#{parse\ 1232}# - (cdr #{body\ 1233}#) - (cons #{id\ 1270}# - #{ids\ 1234}#) - (cons #{label\ 1271}# - #{labels\ 1235}#) - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# + (#{extend-ribcage!\ 11196}# + #{ribcage\ 12149}# + #{id\ 12199}# + #{label\ 12200}#) + (#{parse\ 12161}# + (cdr #{body\ 12162}#) + (cons #{id\ 12199}# + #{ids\ 12163}#) + (cons #{label\ 12200}# + #{labels\ 12164}#) + #{var-ids\ 12165}# + #{vars\ 12166}# + #{vals\ 12167}# (cons (cons 'macro - (cons #{er\ 1245}# - (#{wrap\ 291}# - #{e\ 1249}# - #{w\ 1250}# - #{mod\ 1252}#))) - #{bindings\ 1239}#)))) - (if (memv #{type\ 1247}# + (cons #{er\ 12174}# + (#{wrap\ 11220}# + #{e\ 12178}# + #{w\ 12179}# + #{mod\ 12181}#))) + #{bindings\ 12168}#)))) + (if (memv #{type\ 12176}# '(begin-form)) - ((lambda (#{tmp\ 1274}#) - ((lambda (#{tmp\ 1275}#) - (if #{tmp\ 1275}# - (apply (lambda (#{_\ 1278}# - #{e1\ 1279}#) - (#{parse\ 1232}# - (letrec ((#{f\ 1282}# - (lambda (#{forms\ 1283}#) - (if (null? #{forms\ 1283}#) - (cdr #{body\ 1233}#) - (cons (cons #{er\ 1245}# - (#{wrap\ 291}# - (car #{forms\ 1283}#) - #{w\ 1250}# - #{mod\ 1252}#)) - (#{f\ 1282}# - (cdr #{forms\ 1283}#))))))) - (#{f\ 1282}# - #{e1\ 1279}#)) - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#)) - #{tmp\ 1275}#) + ((lambda (#{tmp\ 12203}#) + ((lambda (#{tmp\ 12204}#) + (if #{tmp\ 12204}# + (apply (lambda (#{_\ 12207}# + #{e1\ 12208}#) + (#{parse\ 12161}# + (letrec ((#{f\ 12211}# + (lambda (#{forms\ 12212}#) + (if (null? #{forms\ 12212}#) + (cdr #{body\ 12162}#) + (cons (cons #{er\ 12174}# + (#{wrap\ 11220}# + (car #{forms\ 12212}#) + #{w\ 12179}# + #{mod\ 12181}#)) + (#{f\ 12211}# + (cdr #{forms\ 12212}#))))))) + (#{f\ 12211}# + #{e1\ 12208}#)) + #{ids\ 12163}# + #{labels\ 12164}# + #{var-ids\ 12165}# + #{vars\ 12166}# + #{vals\ 12167}# + #{bindings\ 12168}#)) + #{tmp\ 12204}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1274}#))) + #{tmp\ 12203}#))) ($sc-dispatch - #{tmp\ 1274}# + #{tmp\ 12203}# '(any . each-any)))) - #{e\ 1249}#) - (if (memv #{type\ 1247}# + #{e\ 12178}#) + (if (memv #{type\ 12176}# '(local-syntax-form)) - (#{chi-local-syntax\ 317}# - #{value\ 1248}# - #{e\ 1249}# - #{er\ 1245}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}# - (lambda (#{forms\ 1286}# - #{er\ 1287}# - #{w\ 1288}# - #{s\ 1289}# - #{mod\ 1290}#) - (#{parse\ 1232}# - (letrec ((#{f\ 1298}# - (lambda (#{forms\ 1299}#) - (if (null? #{forms\ 1299}#) - (cdr #{body\ 1233}#) - (cons (cons #{er\ 1287}# - (#{wrap\ 291}# - (car #{forms\ 1299}#) - #{w\ 1288}# - #{mod\ 1290}#)) - (#{f\ 1298}# - (cdr #{forms\ 1299}#))))))) - (#{f\ 1298}# - #{forms\ 1286}#)) - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#))) - (if (null? #{ids\ 1234}#) - (#{build-sequence\ 174}# + (#{chi-local-syntax\ 11246}# + #{value\ 12177}# + #{e\ 12178}# + #{er\ 12174}# + #{w\ 12179}# + #{s\ 12180}# + #{mod\ 12181}# + (lambda (#{forms\ 12215}# + #{er\ 12216}# + #{w\ 12217}# + #{s\ 12218}# + #{mod\ 12219}#) + (#{parse\ 12161}# + (letrec ((#{f\ 12227}# + (lambda (#{forms\ 12228}#) + (if (null? #{forms\ 12228}#) + (cdr #{body\ 12162}#) + (cons (cons #{er\ 12216}# + (#{wrap\ 11220}# + (car #{forms\ 12228}#) + #{w\ 12217}# + #{mod\ 12219}#)) + (#{f\ 12227}# + (cdr #{forms\ 12228}#))))))) + (#{f\ 12227}# + #{forms\ 12215}#)) + #{ids\ 12163}# + #{labels\ 12164}# + #{var-ids\ 12165}# + #{vars\ 12166}# + #{vals\ 12167}# + #{bindings\ 12168}#))) + (if (null? #{ids\ 12163}#) + (#{build-sequence\ 11103}# #f - (map (lambda (#{x\ 1302}#) - (#{chi\ 307}# - (cdr #{x\ 1302}#) - (car #{x\ 1302}#) + (map (lambda (#{x\ 12231}#) + (#{chi\ 11236}# + (cdr #{x\ 12231}#) + (car #{x\ 12231}#) '(()) - #{mod\ 1252}#)) - (cons (cons #{er\ 1245}# - (#{source-wrap\ 293}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#)) - (cdr #{body\ 1233}#)))) + #{mod\ 12181}#)) + (cons (cons #{er\ 12174}# + (#{source-wrap\ 11222}# + #{e\ 12178}# + #{w\ 12179}# + #{s\ 12180}# + #{mod\ 12181}#)) + (cdr #{body\ 12162}#)))) (begin - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 1234}#)) + (if (not (#{valid-bound-ids?\ 11214}# + #{ids\ 12163}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1207}#)) - (letrec ((#{loop\ 1309}# - (lambda (#{bs\ 1310}# - #{er-cache\ 1311}# - #{r-cache\ 1312}#) - (if (not (null? #{bs\ 1310}#)) - (let ((#{b\ 1315}# - (car #{bs\ 1310}#))) - (if (eq? (car #{b\ 1315}#) + #{outer-form\ 12136}#)) + (letrec ((#{loop\ 12238}# + (lambda (#{bs\ 12239}# + #{er-cache\ 12240}# + #{r-cache\ 12241}#) + (if (not (null? #{bs\ 12239}#)) + (let ((#{b\ 12244}# + (car #{bs\ 12239}#))) + (if (eq? (car #{b\ 12244}#) 'macro) - (let ((#{er\ 1318}# - (cadr #{b\ 1315}#))) - (let ((#{r-cache\ 1320}# - (if (eq? #{er\ 1318}# - #{er-cache\ 1311}#) - #{r-cache\ 1312}# - (#{macros-only-env\ 214}# - #{er\ 1318}#)))) + (let ((#{er\ 12247}# + (cadr #{b\ 12244}#))) + (let ((#{r-cache\ 12249}# + (if (eq? #{er\ 12247}# + #{er-cache\ 12240}#) + #{r-cache\ 12241}# + (#{macros-only-env\ 11143}# + #{er\ 12247}#)))) (begin (set-cdr! - #{b\ 1315}# - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - (cddr #{b\ 1315}#) - #{r-cache\ 1320}# + #{b\ 12244}# + (#{eval-local-transformer\ 11248}# + (#{chi\ 11236}# + (cddr #{b\ 12244}#) + #{r-cache\ 12249}# '(()) - #{mod\ 1252}#) - #{mod\ 1252}#)) - (#{loop\ 1309}# - (cdr #{bs\ 1310}#) - #{er\ 1318}# - #{r-cache\ 1320}#)))) - (#{loop\ 1309}# - (cdr #{bs\ 1310}#) - #{er-cache\ 1311}# - #{r-cache\ 1312}#))))))) - (#{loop\ 1309}# - #{bindings\ 1239}# + #{mod\ 12181}#) + #{mod\ 12181}#)) + (#{loop\ 12238}# + (cdr #{bs\ 12239}#) + #{er\ 12247}# + #{r-cache\ 12249}#)))) + (#{loop\ 12238}# + (cdr #{bs\ 12239}#) + #{er-cache\ 12240}# + #{r-cache\ 12241}#))))))) + (#{loop\ 12238}# + #{bindings\ 12168}# #f #f)) (set-cdr! - #{r\ 1218}# - (#{extend-env\ 210}# - #{labels\ 1235}# - #{bindings\ 1239}# - (cdr #{r\ 1218}#))) - (#{build-letrec\ 180}# + #{r\ 12147}# + (#{extend-env\ 11139}# + #{labels\ 12164}# + #{bindings\ 12168}# + (cdr #{r\ 12147}#))) + (#{build-letrec\ 11109}# #f (map syntax->datum - #{var-ids\ 1236}#) - #{vars\ 1237}# - (map (lambda (#{x\ 1323}#) - (#{chi\ 307}# - (cdr #{x\ 1323}#) - (car #{x\ 1323}#) + #{var-ids\ 12165}#) + #{vars\ 12166}# + (map (lambda (#{x\ 12252}#) + (#{chi\ 11236}# + (cdr #{x\ 12252}#) + (car #{x\ 12252}#) '(()) - #{mod\ 1252}#)) - #{vals\ 1238}#) - (#{build-sequence\ 174}# + #{mod\ 12181}#)) + #{vals\ 12167}#) + (#{build-sequence\ 11103}# #f - (map (lambda (#{x\ 1327}#) - (#{chi\ 307}# - (cdr #{x\ 1327}#) - (car #{x\ 1327}#) + (map (lambda (#{x\ 12256}#) + (#{chi\ 11236}# + (cdr #{x\ 12256}#) + (car #{x\ 12256}#) '(()) - #{mod\ 1252}#)) - (cons (cons #{er\ 1245}# - (#{source-wrap\ 293}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#)) - (cdr #{body\ 1233}#)))))))))))))))))) - (#{parse\ 1232}# - (map (lambda (#{x\ 1240}#) - (cons #{r\ 1218}# - (#{wrap\ 291}# - #{x\ 1240}# - #{w\ 1223}# - #{mod\ 1210}#))) - #{body\ 1206}#) + #{mod\ 12181}#)) + (cons (cons #{er\ 12174}# + (#{source-wrap\ 11222}# + #{e\ 12178}# + #{w\ 12179}# + #{s\ 12180}# + #{mod\ 12181}#)) + (cdr #{body\ 12162}#)))))))))))))))))) + (#{parse\ 12161}# + (map (lambda (#{x\ 12169}#) + (cons #{r\ 12147}# + (#{wrap\ 11220}# + #{x\ 12169}# + #{w\ 12152}# + #{mod\ 12139}#))) + #{body\ 12135}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 313}# - (lambda (#{p\ 1330}# - #{e\ 1331}# - #{r\ 1332}# - #{w\ 1333}# - #{rib\ 1334}# - #{mod\ 1335}#) - (letrec ((#{rebuild-macro-output\ 1343}# - (lambda (#{x\ 1344}# #{m\ 1345}#) - (if (pair? #{x\ 1344}#) - (cons (#{rebuild-macro-output\ 1343}# - (car #{x\ 1344}#) - #{m\ 1345}#) - (#{rebuild-macro-output\ 1343}# - (cdr #{x\ 1344}#) - #{m\ 1345}#)) - (if (#{syntax-object?\ 186}# #{x\ 1344}#) - (let ((#{w\ 1353}# - (#{syntax-object-wrap\ 190}# - #{x\ 1344}#))) - (let ((#{ms\ 1356}# - (#{wrap-marks\ 229}# #{w\ 1353}#)) - (#{s\ 1357}# - (#{wrap-subst\ 231}# #{w\ 1353}#))) - (if (if (pair? #{ms\ 1356}#) - (eq? (car #{ms\ 1356}#) #f) + (#{chi-macro\ 11242}# + (lambda (#{p\ 12259}# + #{e\ 12260}# + #{r\ 12261}# + #{w\ 12262}# + #{rib\ 12263}# + #{mod\ 12264}#) + (letrec ((#{rebuild-macro-output\ 12272}# + (lambda (#{x\ 12273}# #{m\ 12274}#) + (if (pair? #{x\ 12273}#) + (cons (#{rebuild-macro-output\ 12272}# + (car #{x\ 12273}#) + #{m\ 12274}#) + (#{rebuild-macro-output\ 12272}# + (cdr #{x\ 12273}#) + #{m\ 12274}#)) + (if (#{syntax-object?\ 11115}# #{x\ 12273}#) + (let ((#{w\ 12282}# + (#{syntax-object-wrap\ 11119}# + #{x\ 12273}#))) + (let ((#{ms\ 12285}# + (#{wrap-marks\ 11158}# #{w\ 12282}#)) + (#{s\ 12286}# + (#{wrap-subst\ 11160}# + #{w\ 12282}#))) + (if (if (pair? #{ms\ 12285}#) + (eq? (car #{ms\ 12285}#) #f) #f) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# - #{x\ 1344}#) - (#{make-wrap\ 227}# - (cdr #{ms\ 1356}#) - (if #{rib\ 1334}# - (cons #{rib\ 1334}# - (cdr #{s\ 1357}#)) - (cdr #{s\ 1357}#))) - (#{syntax-object-module\ 192}# - #{x\ 1344}#)) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# - #{x\ 1344}#) - (#{make-wrap\ 227}# - (cons #{m\ 1345}# #{ms\ 1356}#) - (if #{rib\ 1334}# - (cons #{rib\ 1334}# + (#{make-syntax-object\ 11113}# + (#{syntax-object-expression\ 11117}# + #{x\ 12273}#) + (#{make-wrap\ 11156}# + (cdr #{ms\ 12285}#) + (if #{rib\ 12263}# + (cons #{rib\ 12263}# + (cdr #{s\ 12286}#)) + (cdr #{s\ 12286}#))) + (#{syntax-object-module\ 11121}# + #{x\ 12273}#)) + (#{make-syntax-object\ 11113}# + (#{syntax-object-expression\ 11117}# + #{x\ 12273}#) + (#{make-wrap\ 11156}# + (cons #{m\ 12274}# #{ms\ 12285}#) + (if #{rib\ 12263}# + (cons #{rib\ 12263}# (cons 'shift - #{s\ 1357}#)) - (cons (quote shift) #{s\ 1357}#))) + #{s\ 12286}#)) + (cons (quote shift) #{s\ 12286}#))) (cons 'hygiene - (cdr #{p\ 1330}#)))))) - (if (vector? #{x\ 1344}#) - (let ((#{n\ 1365}# - (vector-length #{x\ 1344}#))) - (let ((#{v\ 1367}# - (make-vector #{n\ 1365}#))) - (letrec ((#{loop\ 1370}# - (lambda (#{i\ 1371}#) - (if (#{fx=\ 127}# - #{i\ 1371}# - #{n\ 1365}#) + (cdr #{p\ 12259}#)))))) + (if (vector? #{x\ 12273}#) + (let ((#{n\ 12294}# + (vector-length #{x\ 12273}#))) + (let ((#{v\ 12296}# + (make-vector #{n\ 12294}#))) + (letrec ((#{loop\ 12299}# + (lambda (#{i\ 12300}#) + (if (#{fx=\ 11056}# + #{i\ 12300}# + #{n\ 12294}#) (begin (if #f #f) - #{v\ 1367}#) + #{v\ 12296}#) (begin (vector-set! - #{v\ 1367}# - #{i\ 1371}# - (#{rebuild-macro-output\ 1343}# + #{v\ 12296}# + #{i\ 12300}# + (#{rebuild-macro-output\ 12272}# (vector-ref - #{x\ 1344}# - #{i\ 1371}#) - #{m\ 1345}#)) - (#{loop\ 1370}# - (#{fx+\ 123}# - #{i\ 1371}# + #{x\ 12273}# + #{i\ 12300}#) + #{m\ 12274}#)) + (#{loop\ 12299}# + (#{fx+\ 11052}# + #{i\ 12300}# 1))))))) - (#{loop\ 1370}# 0)))) - (if (symbol? #{x\ 1344}#) + (#{loop\ 12299}# 0)))) + (if (symbol? #{x\ 12273}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 293}# - #{e\ 1331}# - #{w\ 1333}# - (#{wrap-subst\ 231}# #{w\ 1333}#) - #{mod\ 1335}#) - #{x\ 1344}#) - #{x\ 1344}#))))))) - (#{rebuild-macro-output\ 1343}# - ((car #{p\ 1330}#) - (#{wrap\ 291}# - #{e\ 1331}# - (#{anti-mark\ 263}# #{w\ 1333}#) - #{mod\ 1335}#)) + (#{source-wrap\ 11222}# + #{e\ 12260}# + #{w\ 12262}# + (#{wrap-subst\ 11160}# #{w\ 12262}#) + #{mod\ 12264}#) + #{x\ 12273}#) + #{x\ 12273}#))))))) + (#{rebuild-macro-output\ 12272}# + ((car #{p\ 12259}#) + (#{wrap\ 11220}# + #{e\ 12260}# + (#{anti-mark\ 11192}# #{w\ 12262}#) + #{mod\ 12264}#)) (gensym "m"))))) - (#{chi-application\ 311}# - (lambda (#{x\ 1378}# - #{e\ 1379}# - #{r\ 1380}# - #{w\ 1381}# - #{s\ 1382}# - #{mod\ 1383}#) - ((lambda (#{tmp\ 1390}#) - ((lambda (#{tmp\ 1391}#) - (if #{tmp\ 1391}# - (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#) - (#{build-application\ 144}# - #{s\ 1382}# - #{x\ 1378}# - (map (lambda (#{e\ 1396}#) - (#{chi\ 307}# - #{e\ 1396}# - #{r\ 1380}# - #{w\ 1381}# - #{mod\ 1383}#)) - #{e1\ 1395}#))) - #{tmp\ 1391}#) + (#{chi-application\ 11240}# + (lambda (#{x\ 12307}# + #{e\ 12308}# + #{r\ 12309}# + #{w\ 12310}# + #{s\ 12311}# + #{mod\ 12312}#) + ((lambda (#{tmp\ 12319}#) + ((lambda (#{tmp\ 12320}#) + (if #{tmp\ 12320}# + (apply (lambda (#{e0\ 12323}# #{e1\ 12324}#) + (#{build-application\ 11073}# + #{s\ 12311}# + #{x\ 12307}# + (map (lambda (#{e\ 12325}#) + (#{chi\ 11236}# + #{e\ 12325}# + #{r\ 12309}# + #{w\ 12310}# + #{mod\ 12312}#)) + #{e1\ 12324}#))) + #{tmp\ 12320}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1390}#))) + #{tmp\ 12319}#))) ($sc-dispatch - #{tmp\ 1390}# + #{tmp\ 12319}# '(any . each-any)))) - #{e\ 1379}#))) - (#{chi-expr\ 309}# - (lambda (#{type\ 1399}# - #{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (lexical))) - (#{build-lexical-reference\ 150}# + #{e\ 12308}#))) + (#{chi-expr\ 11238}# + (lambda (#{type\ 12328}# + #{value\ 12329}# + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (lexical))) + (#{build-lexical-reference\ 11079}# 'value - #{s\ 1404}# - #{e\ 1401}# - #{value\ 1400}#) - (if (memv #{type\ 1399}# (quote (core core-form))) - (#{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (module-ref))) + #{s\ 12333}# + #{e\ 12330}# + #{value\ 12329}#) + (if (memv #{type\ 12328}# (quote (core core-form))) + (#{value\ 12329}# + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (module-ref))) (call-with-values (lambda () - (#{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}#)) - (lambda (#{e\ 1416}# - #{r\ 1417}# - #{w\ 1418}# - #{s\ 1419}# - #{mod\ 1420}#) - (#{chi\ 307}# - #{e\ 1416}# - #{r\ 1417}# - #{w\ 1418}# - #{mod\ 1420}#))) - (if (memv #{type\ 1399}# (quote (lexical-call))) - (#{chi-application\ 311}# - (#{build-lexical-reference\ 150}# + (#{value\ 12329}# + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}#)) + (lambda (#{e\ 12345}# + #{r\ 12346}# + #{w\ 12347}# + #{s\ 12348}# + #{mod\ 12349}#) + (#{chi\ 11236}# + #{e\ 12345}# + #{r\ 12346}# + #{w\ 12347}# + #{mod\ 12349}#))) + (if (memv #{type\ 12328}# (quote (lexical-call))) + (#{chi-application\ 11240}# + (#{build-lexical-reference\ 11079}# 'fun - (#{source-annotation\ 201}# (car #{e\ 1401}#)) - (car #{e\ 1401}#) - #{value\ 1400}#) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (global-call))) - (#{chi-application\ 311}# - (#{build-global-reference\ 156}# - (#{source-annotation\ 201}# (car #{e\ 1401}#)) - (if (#{syntax-object?\ 186}# #{value\ 1400}#) - (#{syntax-object-expression\ 188}# - #{value\ 1400}#) - #{value\ 1400}#) - (if (#{syntax-object?\ 186}# #{value\ 1400}#) - (#{syntax-object-module\ 192}# #{value\ 1400}#) - #{mod\ 1405}#)) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (constant))) - (#{build-data\ 172}# - #{s\ 1404}# - (#{strip\ 333}# - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) + (#{source-annotation\ 11130}# (car #{e\ 12330}#)) + (car #{e\ 12330}#) + #{value\ 12329}#) + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (global-call))) + (#{chi-application\ 11240}# + (#{build-global-reference\ 11085}# + (#{source-annotation\ 11130}# (car #{e\ 12330}#)) + (if (#{syntax-object?\ 11115}# #{value\ 12329}#) + (#{syntax-object-expression\ 11117}# + #{value\ 12329}#) + #{value\ 12329}#) + (if (#{syntax-object?\ 11115}# #{value\ 12329}#) + (#{syntax-object-module\ 11121}# + #{value\ 12329}#) + #{mod\ 12334}#)) + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (constant))) + (#{build-data\ 11101}# + #{s\ 12333}# + (#{strip\ 11262}# + (#{source-wrap\ 11222}# + #{e\ 12330}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) '(()))) - (if (memv #{type\ 1399}# (quote (global))) - (#{build-global-reference\ 156}# - #{s\ 1404}# - #{value\ 1400}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (call))) - (#{chi-application\ 311}# - (#{chi\ 307}# - (car #{e\ 1401}#) - #{r\ 1402}# - #{w\ 1403}# - #{mod\ 1405}#) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (begin-form))) - ((lambda (#{tmp\ 1433}#) - ((lambda (#{tmp\ 1434}#) - (if #{tmp\ 1434}# - (apply (lambda (#{_\ 1438}# - #{e1\ 1439}# - #{e2\ 1440}#) - (#{chi-sequence\ 295}# - (cons #{e1\ 1439}# - #{e2\ 1440}#) - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) - #{tmp\ 1434}#) + (if (memv #{type\ 12328}# (quote (global))) + (#{build-global-reference\ 11085}# + #{s\ 12333}# + #{value\ 12329}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (call))) + (#{chi-application\ 11240}# + (#{chi\ 11236}# + (car #{e\ 12330}#) + #{r\ 12331}# + #{w\ 12332}# + #{mod\ 12334}#) + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (if (memv #{type\ 12328}# (quote (begin-form))) + ((lambda (#{tmp\ 12362}#) + ((lambda (#{tmp\ 12363}#) + (if #{tmp\ 12363}# + (apply (lambda (#{_\ 12367}# + #{e1\ 12368}# + #{e2\ 12369}#) + (#{chi-sequence\ 11224}# + (cons #{e1\ 12368}# + #{e2\ 12369}#) + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#)) + #{tmp\ 12363}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1433}#))) + #{tmp\ 12362}#))) ($sc-dispatch - #{tmp\ 1433}# + #{tmp\ 12362}# '(any any . each-any)))) - #{e\ 1401}#) - (if (memv #{type\ 1399}# + #{e\ 12330}#) + (if (memv #{type\ 12328}# '(local-syntax-form)) - (#{chi-local-syntax\ 317}# - #{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}# - #{chi-sequence\ 295}#) - (if (memv #{type\ 1399}# + (#{chi-local-syntax\ 11246}# + #{value\ 12329}# + #{e\ 12330}# + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}# + #{chi-sequence\ 11224}#) + (if (memv #{type\ 12328}# '(eval-when-form)) - ((lambda (#{tmp\ 1444}#) - ((lambda (#{tmp\ 1445}#) - (if #{tmp\ 1445}# - (apply (lambda (#{_\ 1450}# - #{x\ 1451}# - #{e1\ 1452}# - #{e2\ 1453}#) - (let ((#{when-list\ 1455}# - (#{chi-when-list\ 301}# - #{e\ 1401}# - #{x\ 1451}# - #{w\ 1403}#))) + ((lambda (#{tmp\ 12373}#) + ((lambda (#{tmp\ 12374}#) + (if #{tmp\ 12374}# + (apply (lambda (#{_\ 12379}# + #{x\ 12380}# + #{e1\ 12381}# + #{e2\ 12382}#) + (let ((#{when-list\ 12384}# + (#{chi-when-list\ 11230}# + #{e\ 12330}# + #{x\ 12380}# + #{w\ 12332}#))) (if (memq 'eval - #{when-list\ 1455}#) - (#{chi-sequence\ 295}# - (cons #{e1\ 1452}# - #{e2\ 1453}#) - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (#{chi-void\ 321}#)))) - #{tmp\ 1445}#) + #{when-list\ 12384}#) + (#{chi-sequence\ 11224}# + (cons #{e1\ 12381}# + #{e2\ 12382}#) + #{r\ 12331}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#) + (#{chi-void\ 11250}#)))) + #{tmp\ 12374}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1444}#))) + #{tmp\ 12373}#))) ($sc-dispatch - #{tmp\ 1444}# + #{tmp\ 12373}# '(any each-any any . each-any)))) - #{e\ 1401}#) - (if (memv #{type\ 1399}# + #{e\ 12330}#) + (if (memv #{type\ 12328}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1401}# - (#{wrap\ 291}# - #{value\ 1400}# - #{w\ 1403}# - #{mod\ 1405}#)) - (if (memv #{type\ 1399}# + #{e\ 12330}# + (#{wrap\ 11220}# + #{value\ 12329}# + #{w\ 12332}# + #{mod\ 12334}#)) + (if (memv #{type\ 12328}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) - (if (memv #{type\ 1399}# + (#{source-wrap\ 11222}# + #{e\ 12330}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#)) + (if (memv #{type\ 12328}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) + (#{source-wrap\ 11222}# + #{e\ 12330}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)))))))))))))))))) - (#{chi\ 307}# - (lambda (#{e\ 1462}# - #{r\ 1463}# - #{w\ 1464}# - #{mod\ 1465}#) + (#{source-wrap\ 11222}# + #{e\ 12330}# + #{w\ 12332}# + #{s\ 12333}# + #{mod\ 12334}#)))))))))))))))))) + (#{chi\ 11236}# + (lambda (#{e\ 12391}# + #{r\ 12392}# + #{w\ 12393}# + #{mod\ 12394}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1462}# - #{r\ 1463}# - #{w\ 1464}# - (#{source-annotation\ 201}# #{e\ 1462}#) + (#{syntax-type\ 11232}# + #{e\ 12391}# + #{r\ 12392}# + #{w\ 12393}# + (#{source-annotation\ 11130}# #{e\ 12391}#) #f - #{mod\ 1465}# + #{mod\ 12394}# #f)) - (lambda (#{type\ 1470}# - #{value\ 1471}# - #{e\ 1472}# - #{w\ 1473}# - #{s\ 1474}# - #{mod\ 1475}#) - (#{chi-expr\ 309}# - #{type\ 1470}# - #{value\ 1471}# - #{e\ 1472}# - #{r\ 1463}# - #{w\ 1473}# - #{s\ 1474}# - #{mod\ 1475}#))))) - (#{chi-top\ 305}# - (lambda (#{e\ 1482}# - #{r\ 1483}# - #{w\ 1484}# - #{m\ 1485}# - #{esew\ 1486}# - #{mod\ 1487}#) + (lambda (#{type\ 12399}# + #{value\ 12400}# + #{e\ 12401}# + #{w\ 12402}# + #{s\ 12403}# + #{mod\ 12404}#) + (#{chi-expr\ 11238}# + #{type\ 12399}# + #{value\ 12400}# + #{e\ 12401}# + #{r\ 12392}# + #{w\ 12402}# + #{s\ 12403}# + #{mod\ 12404}#))))) + (#{chi-top\ 11234}# + (lambda (#{e\ 12411}# + #{r\ 12412}# + #{w\ 12413}# + #{m\ 12414}# + #{esew\ 12415}# + #{mod\ 12416}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1482}# - #{r\ 1483}# - #{w\ 1484}# - (#{source-annotation\ 201}# #{e\ 1482}#) + (#{syntax-type\ 11232}# + #{e\ 12411}# + #{r\ 12412}# + #{w\ 12413}# + (#{source-annotation\ 11130}# #{e\ 12411}#) #f - #{mod\ 1487}# + #{mod\ 12416}# #f)) - (lambda (#{type\ 1508}# - #{value\ 1509}# - #{e\ 1510}# - #{w\ 1511}# - #{s\ 1512}# - #{mod\ 1513}#) - (if (memv #{type\ 1508}# (quote (begin-form))) - ((lambda (#{tmp\ 1521}#) - ((lambda (#{tmp\ 1522}#) - (if #{tmp\ 1522}# - (apply (lambda (#{_\ 1524}#) (#{chi-void\ 321}#)) - #{tmp\ 1522}#) - ((lambda (#{tmp\ 1525}#) - (if #{tmp\ 1525}# - (apply (lambda (#{_\ 1529}# - #{e1\ 1530}# - #{e2\ 1531}#) - (#{chi-top-sequence\ 297}# - (cons #{e1\ 1530}# #{e2\ 1531}#) - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# - #{m\ 1485}# - #{esew\ 1486}# - #{mod\ 1513}#)) - #{tmp\ 1525}#) + (lambda (#{type\ 12437}# + #{value\ 12438}# + #{e\ 12439}# + #{w\ 12440}# + #{s\ 12441}# + #{mod\ 12442}#) + (if (memv #{type\ 12437}# (quote (begin-form))) + ((lambda (#{tmp\ 12450}#) + ((lambda (#{tmp\ 12451}#) + (if #{tmp\ 12451}# + (apply (lambda (#{_\ 12453}#) + (#{chi-void\ 11250}#)) + #{tmp\ 12451}#) + ((lambda (#{tmp\ 12454}#) + (if #{tmp\ 12454}# + (apply (lambda (#{_\ 12458}# + #{e1\ 12459}# + #{e2\ 12460}#) + (#{chi-top-sequence\ 11226}# + (cons #{e1\ 12459}# #{e2\ 12460}#) + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# + #{m\ 12414}# + #{esew\ 12415}# + #{mod\ 12442}#)) + #{tmp\ 12454}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1521}#))) + #{tmp\ 12450}#))) ($sc-dispatch - #{tmp\ 1521}# + #{tmp\ 12450}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1521}# (quote (any))))) - #{e\ 1510}#) - (if (memv #{type\ 1508}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 317}# - #{value\ 1509}# - #{e\ 1510}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# - #{mod\ 1513}# - (lambda (#{body\ 1534}# - #{r\ 1535}# - #{w\ 1536}# - #{s\ 1537}# - #{mod\ 1538}#) - (#{chi-top-sequence\ 297}# - #{body\ 1534}# - #{r\ 1535}# - #{w\ 1536}# - #{s\ 1537}# - #{m\ 1485}# - #{esew\ 1486}# - #{mod\ 1538}#))) - (if (memv #{type\ 1508}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1545}#) - ((lambda (#{tmp\ 1546}#) - (if #{tmp\ 1546}# - (apply (lambda (#{_\ 1551}# - #{x\ 1552}# - #{e1\ 1553}# - #{e2\ 1554}#) - (let ((#{when-list\ 1557}# - (#{chi-when-list\ 301}# - #{e\ 1510}# - #{x\ 1552}# - #{w\ 1511}#)) - (#{body\ 1558}# - (cons #{e1\ 1553}# - #{e2\ 1554}#))) - (if (eq? #{m\ 1485}# (quote e)) + ($sc-dispatch #{tmp\ 12450}# (quote (any))))) + #{e\ 12439}#) + (if (memv #{type\ 12437}# + '(local-syntax-form)) + (#{chi-local-syntax\ 11246}# + #{value\ 12438}# + #{e\ 12439}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# + #{mod\ 12442}# + (lambda (#{body\ 12463}# + #{r\ 12464}# + #{w\ 12465}# + #{s\ 12466}# + #{mod\ 12467}#) + (#{chi-top-sequence\ 11226}# + #{body\ 12463}# + #{r\ 12464}# + #{w\ 12465}# + #{s\ 12466}# + #{m\ 12414}# + #{esew\ 12415}# + #{mod\ 12467}#))) + (if (memv #{type\ 12437}# (quote (eval-when-form))) + ((lambda (#{tmp\ 12474}#) + ((lambda (#{tmp\ 12475}#) + (if #{tmp\ 12475}# + (apply (lambda (#{_\ 12480}# + #{x\ 12481}# + #{e1\ 12482}# + #{e2\ 12483}#) + (let ((#{when-list\ 12486}# + (#{chi-when-list\ 11230}# + #{e\ 12439}# + #{x\ 12481}# + #{w\ 12440}#)) + (#{body\ 12487}# + (cons #{e1\ 12482}# + #{e2\ 12483}#))) + (if (eq? #{m\ 12414}# (quote e)) (if (memq 'eval - #{when-list\ 1557}#) - (#{chi-top-sequence\ 297}# - #{body\ 1558}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# + #{when-list\ 12486}#) + (#{chi-top-sequence\ 11226}# + #{body\ 12487}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# (if (memq 'expand - #{when-list\ 1557}#) + #{when-list\ 12486}#) 'c&e 'e) '(eval) - #{mod\ 1513}#) + #{mod\ 12442}#) (begin (if (memq 'expand - #{when-list\ 1557}#) - (#{top-level-eval-hook\ 131}# - (#{chi-top-sequence\ 297}# - #{body\ 1558}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# + #{when-list\ 12486}#) + (#{top-level-eval-hook\ 11060}# + (#{chi-top-sequence\ 11226}# + #{body\ 12487}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# 'e '(eval) - #{mod\ 1513}#) - #{mod\ 1513}#)) - (#{chi-void\ 321}#))) + #{mod\ 12442}#) + #{mod\ 12442}#)) + (#{chi-void\ 11250}#))) (if (memq 'load - #{when-list\ 1557}#) - (if (let ((#{t\ 1567}# + #{when-list\ 12486}#) + (if (let ((#{t\ 12496}# (memq 'compile - #{when-list\ 1557}#))) - (if #{t\ 1567}# - #{t\ 1567}# - (let ((#{t\ 1570}# + #{when-list\ 12486}#))) + (if #{t\ 12496}# + #{t\ 12496}# + (let ((#{t\ 12499}# (memq 'expand - #{when-list\ 1557}#))) - (if #{t\ 1570}# - #{t\ 1570}# - (if (eq? #{m\ 1485}# + #{when-list\ 12486}#))) + (if #{t\ 12499}# + #{t\ 12499}# + (if (eq? #{m\ 12414}# 'c&e) (memq 'eval - #{when-list\ 1557}#) + #{when-list\ 12486}#) #f))))) - (#{chi-top-sequence\ 297}# - #{body\ 1558}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# + (#{chi-top-sequence\ 11226}# + #{body\ 12487}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# 'c&e '(compile load) - #{mod\ 1513}#) - (if (memq #{m\ 1485}# + #{mod\ 12442}#) + (if (memq #{m\ 12414}# '(c c&e)) - (#{chi-top-sequence\ 297}# - #{body\ 1558}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# + (#{chi-top-sequence\ 11226}# + #{body\ 12487}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# 'c '(load) - #{mod\ 1513}#) - (#{chi-void\ 321}#))) - (if (let ((#{t\ 1578}# + #{mod\ 12442}#) + (#{chi-void\ 11250}#))) + (if (let ((#{t\ 12507}# (memq 'compile - #{when-list\ 1557}#))) - (if #{t\ 1578}# - #{t\ 1578}# - (let ((#{t\ 1581}# + #{when-list\ 12486}#))) + (if #{t\ 12507}# + #{t\ 12507}# + (let ((#{t\ 12510}# (memq 'expand - #{when-list\ 1557}#))) - (if #{t\ 1581}# - #{t\ 1581}# - (if (eq? #{m\ 1485}# + #{when-list\ 12486}#))) + (if #{t\ 12510}# + #{t\ 12510}# + (if (eq? #{m\ 12414}# 'c&e) (memq 'eval - #{when-list\ 1557}#) + #{when-list\ 12486}#) #f))))) (begin - (#{top-level-eval-hook\ 131}# - (#{chi-top-sequence\ 297}# - #{body\ 1558}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# + (#{top-level-eval-hook\ 11060}# + (#{chi-top-sequence\ 11226}# + #{body\ 12487}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# 'e '(eval) - #{mod\ 1513}#) - #{mod\ 1513}#) - (#{chi-void\ 321}#)) - (#{chi-void\ 321}#)))))) - #{tmp\ 1546}#) + #{mod\ 12442}#) + #{mod\ 12442}#) + (#{chi-void\ 11250}#)) + (#{chi-void\ 11250}#)))))) + #{tmp\ 12475}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1545}#))) + #{tmp\ 12474}#))) ($sc-dispatch - #{tmp\ 1545}# + #{tmp\ 12474}# '(any each-any any . each-any)))) - #{e\ 1510}#) - (if (memv #{type\ 1508}# + #{e\ 12439}#) + (if (memv #{type\ 12437}# '(define-syntax-form)) - (let ((#{n\ 1589}# - (#{id-var-name\ 279}# - #{value\ 1509}# - #{w\ 1511}#)) - (#{r\ 1590}# - (#{macros-only-env\ 214}# #{r\ 1483}#))) - (if (memv #{m\ 1485}# (quote (c))) - (if (memq (quote compile) #{esew\ 1486}#) - (let ((#{e\ 1593}# - (#{chi-install-global\ 299}# - #{n\ 1589}# - (#{chi\ 307}# - #{e\ 1510}# - #{r\ 1590}# - #{w\ 1511}# - #{mod\ 1513}#)))) + (let ((#{n\ 12518}# + (#{id-var-name\ 11208}# + #{value\ 12438}# + #{w\ 12440}#)) + (#{r\ 12519}# + (#{macros-only-env\ 11143}# #{r\ 12412}#))) + (if (memv #{m\ 12414}# (quote (c))) + (if (memq (quote compile) #{esew\ 12415}#) + (let ((#{e\ 12522}# + (#{chi-install-global\ 11228}# + #{n\ 12518}# + (#{chi\ 11236}# + #{e\ 12439}# + #{r\ 12519}# + #{w\ 12440}# + #{mod\ 12442}#)))) (begin - (#{top-level-eval-hook\ 131}# - #{e\ 1593}# - #{mod\ 1513}#) - (if (memq (quote load) #{esew\ 1486}#) - #{e\ 1593}# - (#{chi-void\ 321}#)))) - (if (memq (quote load) #{esew\ 1486}#) - (#{chi-install-global\ 299}# - #{n\ 1589}# - (#{chi\ 307}# - #{e\ 1510}# - #{r\ 1590}# - #{w\ 1511}# - #{mod\ 1513}#)) - (#{chi-void\ 321}#))) - (if (memv #{m\ 1485}# (quote (c&e))) - (let ((#{e\ 1596}# - (#{chi-install-global\ 299}# - #{n\ 1589}# - (#{chi\ 307}# - #{e\ 1510}# - #{r\ 1590}# - #{w\ 1511}# - #{mod\ 1513}#)))) + (#{top-level-eval-hook\ 11060}# + #{e\ 12522}# + #{mod\ 12442}#) + (if (memq (quote load) #{esew\ 12415}#) + #{e\ 12522}# + (#{chi-void\ 11250}#)))) + (if (memq (quote load) #{esew\ 12415}#) + (#{chi-install-global\ 11228}# + #{n\ 12518}# + (#{chi\ 11236}# + #{e\ 12439}# + #{r\ 12519}# + #{w\ 12440}# + #{mod\ 12442}#)) + (#{chi-void\ 11250}#))) + (if (memv #{m\ 12414}# (quote (c&e))) + (let ((#{e\ 12525}# + (#{chi-install-global\ 11228}# + #{n\ 12518}# + (#{chi\ 11236}# + #{e\ 12439}# + #{r\ 12519}# + #{w\ 12440}# + #{mod\ 12442}#)))) (begin - (#{top-level-eval-hook\ 131}# - #{e\ 1596}# - #{mod\ 1513}#) - #{e\ 1596}#)) + (#{top-level-eval-hook\ 11060}# + #{e\ 12525}# + #{mod\ 12442}#) + #{e\ 12525}#)) (begin - (if (memq (quote eval) #{esew\ 1486}#) - (#{top-level-eval-hook\ 131}# - (#{chi-install-global\ 299}# - #{n\ 1589}# - (#{chi\ 307}# - #{e\ 1510}# - #{r\ 1590}# - #{w\ 1511}# - #{mod\ 1513}#)) - #{mod\ 1513}#)) - (#{chi-void\ 321}#))))) - (if (memv #{type\ 1508}# (quote (define-form))) - (let ((#{n\ 1601}# - (#{id-var-name\ 279}# - #{value\ 1509}# - #{w\ 1511}#))) - (let ((#{type\ 1603}# - (#{binding-type\ 205}# - (#{lookup\ 216}# - #{n\ 1601}# - #{r\ 1483}# - #{mod\ 1513}#)))) - (if (memv #{type\ 1603}# + (if (memq (quote eval) #{esew\ 12415}#) + (#{top-level-eval-hook\ 11060}# + (#{chi-install-global\ 11228}# + #{n\ 12518}# + (#{chi\ 11236}# + #{e\ 12439}# + #{r\ 12519}# + #{w\ 12440}# + #{mod\ 12442}#)) + #{mod\ 12442}#)) + (#{chi-void\ 11250}#))))) + (if (memv #{type\ 12437}# (quote (define-form))) + (let ((#{n\ 12530}# + (#{id-var-name\ 11208}# + #{value\ 12438}# + #{w\ 12440}#))) + (let ((#{type\ 12532}# + (#{binding-type\ 11134}# + (#{lookup\ 11145}# + #{n\ 12530}# + #{r\ 12412}# + #{mod\ 12442}#)))) + (if (memv #{type\ 12532}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 1485}# (quote (c c&e))) + (if (if (memq #{m\ 12414}# + '(c c&e)) (if (not (module-local-variable (current-module) - #{n\ 1601}#)) + #{n\ 12530}#)) (current-module) #f) #f) - (let ((#{old\ 1609}# + (let ((#{old\ 12538}# (module-variable (current-module) - #{n\ 1601}#))) + #{n\ 12530}#))) (module-define! (current-module) - #{n\ 1601}# - (if (variable? #{old\ 1609}#) - (variable-ref #{old\ 1609}#) + #{n\ 12530}# + (if (variable? #{old\ 12538}#) + (variable-ref #{old\ 12538}#) #f)))) - (let ((#{x\ 1612}# - (#{build-global-definition\ 162}# - #{s\ 1512}# - #{n\ 1601}# - (#{chi\ 307}# - #{e\ 1510}# - #{r\ 1483}# - #{w\ 1511}# - #{mod\ 1513}#)))) + (let ((#{x\ 12541}# + (#{build-global-definition\ 11091}# + #{s\ 12441}# + #{n\ 12530}# + (#{chi\ 11236}# + #{e\ 12439}# + #{r\ 12412}# + #{w\ 12440}# + #{mod\ 12442}#)))) (begin - (if (eq? #{m\ 1485}# (quote c&e)) - (#{top-level-eval-hook\ 131}# - #{x\ 1612}# - #{mod\ 1513}#)) - #{x\ 1612}#))) - (if (memv #{type\ 1603}# + (if (eq? #{m\ 12414}# (quote c&e)) + (#{top-level-eval-hook\ 11060}# + #{x\ 12541}# + #{mod\ 12442}#)) + #{x\ 12541}#))) + (if (memv #{type\ 12532}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1510}# - (#{wrap\ 291}# - #{value\ 1509}# - #{w\ 1511}# - #{mod\ 1513}#)) + #{e\ 12439}# + (#{wrap\ 11220}# + #{value\ 12438}# + #{w\ 12440}# + #{mod\ 12442}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1510}# - (#{wrap\ 291}# - #{value\ 1509}# - #{w\ 1511}# - #{mod\ 1513}#)))))) - (let ((#{x\ 1618}# - (#{chi-expr\ 309}# - #{type\ 1508}# - #{value\ 1509}# - #{e\ 1510}# - #{r\ 1483}# - #{w\ 1511}# - #{s\ 1512}# - #{mod\ 1513}#))) + #{e\ 12439}# + (#{wrap\ 11220}# + #{value\ 12438}# + #{w\ 12440}# + #{mod\ 12442}#)))))) + (let ((#{x\ 12547}# + (#{chi-expr\ 11238}# + #{type\ 12437}# + #{value\ 12438}# + #{e\ 12439}# + #{r\ 12412}# + #{w\ 12440}# + #{s\ 12441}# + #{mod\ 12442}#))) (begin - (if (eq? #{m\ 1485}# (quote c&e)) - (#{top-level-eval-hook\ 131}# - #{x\ 1618}# - #{mod\ 1513}#)) - #{x\ 1618}#))))))))))) - (#{syntax-type\ 303}# - (lambda (#{e\ 1619}# - #{r\ 1620}# - #{w\ 1621}# - #{s\ 1622}# - #{rib\ 1623}# - #{mod\ 1624}# - #{for-car?\ 1625}#) - (if (symbol? #{e\ 1619}#) - (let ((#{n\ 1637}# - (#{id-var-name\ 279}# #{e\ 1619}# #{w\ 1621}#))) - (let ((#{b\ 1639}# - (#{lookup\ 216}# - #{n\ 1637}# - #{r\ 1620}# - #{mod\ 1624}#))) - (let ((#{type\ 1641}# - (#{binding-type\ 205}# #{b\ 1639}#))) - (if (memv #{type\ 1641}# (quote (lexical))) + (if (eq? #{m\ 12414}# (quote c&e)) + (#{top-level-eval-hook\ 11060}# + #{x\ 12547}# + #{mod\ 12442}#)) + #{x\ 12547}#))))))))))) + (#{syntax-type\ 11232}# + (lambda (#{e\ 12548}# + #{r\ 12549}# + #{w\ 12550}# + #{s\ 12551}# + #{rib\ 12552}# + #{mod\ 12553}# + #{for-car?\ 12554}#) + (if (symbol? #{e\ 12548}#) + (let ((#{n\ 12566}# + (#{id-var-name\ 11208}# + #{e\ 12548}# + #{w\ 12550}#))) + (let ((#{b\ 12568}# + (#{lookup\ 11145}# + #{n\ 12566}# + #{r\ 12549}# + #{mod\ 12553}#))) + (let ((#{type\ 12570}# + (#{binding-type\ 11134}# #{b\ 12568}#))) + (if (memv #{type\ 12570}# (quote (lexical))) (values - #{type\ 1641}# - (#{binding-value\ 207}# #{b\ 1639}#) - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{type\ 1641}# (quote (global))) + #{type\ 12570}# + (#{binding-value\ 11136}# #{b\ 12568}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{type\ 12570}# (quote (global))) (values - #{type\ 1641}# - #{n\ 1637}# - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{type\ 1641}# (quote (macro))) - (if #{for-car?\ 1625}# + #{type\ 12570}# + #{n\ 12566}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{type\ 12570}# (quote (macro))) + (if #{for-car?\ 12554}# (values - #{type\ 1641}# - (#{binding-value\ 207}# #{b\ 1639}#) - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (#{syntax-type\ 303}# - (#{chi-macro\ 313}# - (#{binding-value\ 207}# #{b\ 1639}#) - #{e\ 1619}# - #{r\ 1620}# - #{w\ 1621}# - #{rib\ 1623}# - #{mod\ 1624}#) - #{r\ 1620}# + #{type\ 12570}# + (#{binding-value\ 11136}# #{b\ 12568}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (#{syntax-type\ 11232}# + (#{chi-macro\ 11242}# + (#{binding-value\ 11136}# #{b\ 12568}#) + #{e\ 12548}# + #{r\ 12549}# + #{w\ 12550}# + #{rib\ 12552}# + #{mod\ 12553}#) + #{r\ 12549}# '(()) - #{s\ 1622}# - #{rib\ 1623}# - #{mod\ 1624}# + #{s\ 12551}# + #{rib\ 12552}# + #{mod\ 12553}# #f)) (values - #{type\ 1641}# - (#{binding-value\ 207}# #{b\ 1639}#) - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#))))))) - (if (pair? #{e\ 1619}#) - (let ((#{first\ 1650}# (car #{e\ 1619}#))) + #{type\ 12570}# + (#{binding-value\ 11136}# #{b\ 12568}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#))))))) + (if (pair? #{e\ 12548}#) + (let ((#{first\ 12579}# (car #{e\ 12548}#))) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{first\ 1650}# - #{r\ 1620}# - #{w\ 1621}# - #{s\ 1622}# - #{rib\ 1623}# - #{mod\ 1624}# + (#{syntax-type\ 11232}# + #{first\ 12579}# + #{r\ 12549}# + #{w\ 12550}# + #{s\ 12551}# + #{rib\ 12552}# + #{mod\ 12553}# #t)) - (lambda (#{ftype\ 1651}# - #{fval\ 1652}# - #{fe\ 1653}# - #{fw\ 1654}# - #{fs\ 1655}# - #{fmod\ 1656}#) - (if (memv #{ftype\ 1651}# (quote (lexical))) + (lambda (#{ftype\ 12580}# + #{fval\ 12581}# + #{fe\ 12582}# + #{fw\ 12583}# + #{fs\ 12584}# + #{fmod\ 12585}#) + (if (memv #{ftype\ 12580}# (quote (lexical))) (values 'lexical-call - #{fval\ 1652}# - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# (quote (global))) + #{fval\ 12581}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 184}# - #{fval\ 1652}# - #{w\ 1621}# - #{fmod\ 1656}#) - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# (quote (macro))) - (#{syntax-type\ 303}# - (#{chi-macro\ 313}# - #{fval\ 1652}# - #{e\ 1619}# - #{r\ 1620}# - #{w\ 1621}# - #{rib\ 1623}# - #{mod\ 1624}#) - #{r\ 1620}# + (#{make-syntax-object\ 11113}# + #{fval\ 12581}# + #{w\ 12550}# + #{fmod\ 12585}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# (quote (macro))) + (#{syntax-type\ 11232}# + (#{chi-macro\ 11242}# + #{fval\ 12581}# + #{e\ 12548}# + #{r\ 12549}# + #{w\ 12550}# + #{rib\ 12552}# + #{mod\ 12553}#) + #{r\ 12549}# '(()) - #{s\ 1622}# - #{rib\ 1623}# - #{mod\ 1624}# - #{for-car?\ 1625}#) - (if (memv #{ftype\ 1651}# (quote (module-ref))) + #{s\ 12551}# + #{rib\ 12552}# + #{mod\ 12553}# + #{for-car?\ 12554}#) + (if (memv #{ftype\ 12580}# (quote (module-ref))) (call-with-values (lambda () - (#{fval\ 1652}# - #{e\ 1619}# - #{r\ 1620}# - #{w\ 1621}#)) - (lambda (#{e\ 1668}# - #{r\ 1669}# - #{w\ 1670}# - #{s\ 1671}# - #{mod\ 1672}#) - (#{syntax-type\ 303}# - #{e\ 1668}# - #{r\ 1669}# - #{w\ 1670}# - #{s\ 1671}# - #{rib\ 1623}# - #{mod\ 1672}# - #{for-car?\ 1625}#))) - (if (memv #{ftype\ 1651}# (quote (core))) + (#{fval\ 12581}# + #{e\ 12548}# + #{r\ 12549}# + #{w\ 12550}#)) + (lambda (#{e\ 12597}# + #{r\ 12598}# + #{w\ 12599}# + #{s\ 12600}# + #{mod\ 12601}#) + (#{syntax-type\ 11232}# + #{e\ 12597}# + #{r\ 12598}# + #{w\ 12599}# + #{s\ 12600}# + #{rib\ 12552}# + #{mod\ 12601}# + #{for-car?\ 12554}#))) + (if (memv #{ftype\ 12580}# (quote (core))) (values 'core-form - #{fval\ 1652}# - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# + #{fval\ 12581}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1652}# - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# (quote (begin))) + #{fval\ 12581}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# + '(begin)) (values 'begin-form #f - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) - (if (memv #{ftype\ 1651}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) + (if (memv #{ftype\ 12580}# '(define)) - ((lambda (#{tmp\ 1683}#) - ((lambda (#{tmp\ 1684}#) - (if (if #{tmp\ 1684}# - (apply (lambda (#{_\ 1688}# - #{name\ 1689}# - #{val\ 1690}#) - (#{id?\ 222}# - #{name\ 1689}#)) - #{tmp\ 1684}#) + ((lambda (#{tmp\ 12612}#) + ((lambda (#{tmp\ 12613}#) + (if (if #{tmp\ 12613}# + (apply (lambda (#{_\ 12617}# + #{name\ 12618}# + #{val\ 12619}#) + (#{id?\ 11151}# + #{name\ 12618}#)) + #{tmp\ 12613}#) #f) - (apply (lambda (#{_\ 1694}# - #{name\ 1695}# - #{val\ 1696}#) + (apply (lambda (#{_\ 12623}# + #{name\ 12624}# + #{val\ 12625}#) (values 'define-form - #{name\ 1695}# - #{val\ 1696}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#)) - #{tmp\ 1684}#) - ((lambda (#{tmp\ 1697}#) - (if (if #{tmp\ 1697}# - (apply (lambda (#{_\ 1703}# - #{name\ 1704}# - #{args\ 1705}# - #{e1\ 1706}# - #{e2\ 1707}#) - (if (#{id?\ 222}# - #{name\ 1704}#) - (#{valid-bound-ids?\ 285}# - (#{lambda-var-list\ 337}# - #{args\ 1705}#)) + #{name\ 12624}# + #{val\ 12625}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#)) + #{tmp\ 12613}#) + ((lambda (#{tmp\ 12626}#) + (if (if #{tmp\ 12626}# + (apply (lambda (#{_\ 12632}# + #{name\ 12633}# + #{args\ 12634}# + #{e1\ 12635}# + #{e2\ 12636}#) + (if (#{id?\ 11151}# + #{name\ 12633}#) + (#{valid-bound-ids?\ 11214}# + (#{lambda-var-list\ 11266}# + #{args\ 12634}#)) #f)) - #{tmp\ 1697}#) + #{tmp\ 12626}#) #f) - (apply (lambda (#{_\ 1715}# - #{name\ 1716}# - #{args\ 1717}# - #{e1\ 1718}# - #{e2\ 1719}#) + (apply (lambda (#{_\ 12644}# + #{name\ 12645}# + #{args\ 12646}# + #{e1\ 12647}# + #{e2\ 12648}#) (values 'define-form - (#{wrap\ 291}# - #{name\ 1716}# - #{w\ 1621}# - #{mod\ 1624}#) - (#{decorate-source\ 140}# + (#{wrap\ 11220}# + #{name\ 12645}# + #{w\ 12550}# + #{mod\ 12553}#) + (#{decorate-source\ 11069}# (cons '#(syntax-object lambda ((top) @@ -3643,11 +3665,11 @@ (top) (top) (top)) - #("i1710" - "i1711" - "i1712" - "i1713" - "i1714")) + #("i12639" + "i12640" + "i12641" + "i12642" + "i12643")) #(ribcage () () @@ -3669,12 +3691,12 @@ (top) (top) (top)) - #("i1657" - "i1658" - "i1659" - "i1660" - "i1661" - "i1662")) + #("i12586" + "i12587" + "i12588" + "i12589" + "i12590" + "i12591")) #(ribcage () () @@ -3682,7 +3704,7 @@ #(ribcage #(first) #((top)) - #("i1649")) + #("i12578")) #(ribcage () () @@ -3710,13 +3732,13 @@ (top) (top) (top)) - #("i1626" - "i1627" - "i1628" - "i1629" - "i1630" - "i1631" - "i1632")) + #("i12555" + "i12556" + "i12557" + "i12558" + "i12559" + "i12560" + "i12561")) #(ribcage (lambda-var-list gen-var @@ -3834,8 +3856,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -3952,162 +3973,160 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile)) - (#{wrap\ 291}# - (cons #{args\ 1717}# - (cons #{e1\ 1718}# - #{e2\ 1719}#)) - #{w\ 1621}# - #{mod\ 1624}#)) - #{s\ 1622}#) + (#{wrap\ 11220}# + (cons #{args\ 12646}# + (cons #{e1\ 12647}# + #{e2\ 12648}#)) + #{w\ 12550}# + #{mod\ 12553}#)) + #{s\ 12551}#) '(()) - #{s\ 1622}# - #{mod\ 1624}#)) - #{tmp\ 1697}#) - ((lambda (#{tmp\ 1722}#) - (if (if #{tmp\ 1722}# - (apply (lambda (#{_\ 1725}# - #{name\ 1726}#) - (#{id?\ 222}# - #{name\ 1726}#)) - #{tmp\ 1722}#) + #{s\ 12551}# + #{mod\ 12553}#)) + #{tmp\ 12626}#) + ((lambda (#{tmp\ 12651}#) + (if (if #{tmp\ 12651}# + (apply (lambda (#{_\ 12654}# + #{name\ 12655}#) + (#{id?\ 11151}# + #{name\ 12655}#)) + #{tmp\ 12651}#) #f) - (apply (lambda (#{_\ 1729}# - #{name\ 1730}#) + (apply (lambda (#{_\ 12658}# + #{name\ 12659}#) (values 'define-form - (#{wrap\ 291}# - #{name\ 1730}# - #{w\ 1621}# - #{mod\ 1624}#) + (#{wrap\ 11220}# + #{name\ 12659}# + #{w\ 12550}# + #{mod\ 12553}#) '(#(syntax-object if ((top) @@ -4116,8 +4135,8 @@ name) #((top) (top)) - #("i1727" - "i1728")) + #("i12656" + "i12657")) #(ribcage () () @@ -4139,12 +4158,12 @@ (top) (top) (top)) - #("i1657" - "i1658" - "i1659" - "i1660" - "i1661" - "i1662")) + #("i12586" + "i12587" + "i12588" + "i12589" + "i12590" + "i12591")) #(ribcage () () @@ -4152,7 +4171,7 @@ #(ribcage #(first) #((top)) - #("i1649")) + #("i12578")) #(ribcage () () @@ -4180,13 +4199,13 @@ (top) (top) (top)) - #("i1626" - "i1627" - "i1628" - "i1629" - "i1630" - "i1631" - "i1632")) + #("i12555" + "i12556" + "i12557" + "i12558" + "i12559" + "i12560" + "i12561")) #(ribcage (lambda-var-list gen-var @@ -4304,8 +4323,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -4422,133 +4440,131 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile)) #(syntax-object @@ -4559,8 +4575,8 @@ name) #((top) (top)) - #("i1727" - "i1728")) + #("i12656" + "i12657")) #(ribcage () () @@ -4582,12 +4598,12 @@ (top) (top) (top)) - #("i1657" - "i1658" - "i1659" - "i1660" - "i1661" - "i1662")) + #("i12586" + "i12587" + "i12588" + "i12589" + "i12590" + "i12591")) #(ribcage () () @@ -4595,7 +4611,7 @@ #(ribcage #(first) #((top)) - #("i1649")) + #("i12578")) #(ribcage () () @@ -4623,13 +4639,13 @@ (top) (top) (top)) - #("i1626" - "i1627" - "i1628" - "i1629" - "i1630" - "i1631" - "i1632")) + #("i12555" + "i12556" + "i12557" + "i12558" + "i12559" + "i12560" + "i12561")) #(ribcage (lambda-var-list gen-var @@ -4747,8 +4763,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -4865,133 +4880,131 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile)) #(syntax-object @@ -5002,8 +5015,8 @@ name) #((top) (top)) - #("i1727" - "i1728")) + #("i12656" + "i12657")) #(ribcage () () @@ -5025,12 +5038,12 @@ (top) (top) (top)) - #("i1657" - "i1658" - "i1659" - "i1660" - "i1661" - "i1662")) + #("i12586" + "i12587" + "i12588" + "i12589" + "i12590" + "i12591")) #(ribcage () () @@ -5038,7 +5051,7 @@ #(ribcage #(first) #((top)) - #("i1649")) + #("i12578")) #(ribcage () () @@ -5066,13 +5079,13 @@ (top) (top) (top)) - #("i1626" - "i1627" - "i1628" - "i1629" - "i1630" - "i1631" - "i1632")) + #("i12555" + "i12556" + "i12557" + "i12558" + "i12559" + "i12560" + "i12561")) #(ribcage (lambda-var-list gen-var @@ -5190,8 +5203,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -5308,234 +5320,233 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i10952" + "i10950"))) (hygiene guile))) '(()) - #{s\ 1622}# - #{mod\ 1624}#)) - #{tmp\ 1722}#) + #{s\ 12551}# + #{mod\ 12553}#)) + #{tmp\ 12651}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1683}#))) + #{tmp\ 12612}#))) ($sc-dispatch - #{tmp\ 1683}# + #{tmp\ 12612}# '(any any))))) ($sc-dispatch - #{tmp\ 1683}# + #{tmp\ 12612}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1683}# + #{tmp\ 12612}# '(any any any)))) - #{e\ 1619}#) - (if (memv #{ftype\ 1651}# + #{e\ 12548}#) + (if (memv #{ftype\ 12580}# '(define-syntax)) - ((lambda (#{tmp\ 1733}#) - ((lambda (#{tmp\ 1734}#) - (if (if #{tmp\ 1734}# - (apply (lambda (#{_\ 1738}# - #{name\ 1739}# - #{val\ 1740}#) - (#{id?\ 222}# - #{name\ 1739}#)) - #{tmp\ 1734}#) + ((lambda (#{tmp\ 12662}#) + ((lambda (#{tmp\ 12663}#) + (if (if #{tmp\ 12663}# + (apply (lambda (#{_\ 12667}# + #{name\ 12668}# + #{val\ 12669}#) + (#{id?\ 11151}# + #{name\ 12668}#)) + #{tmp\ 12663}#) #f) - (apply (lambda (#{_\ 1744}# - #{name\ 1745}# - #{val\ 1746}#) + (apply (lambda (#{_\ 12673}# + #{name\ 12674}# + #{val\ 12675}#) (values 'define-syntax-form - #{name\ 1745}# - #{val\ 1746}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#)) - #{tmp\ 1734}#) + #{name\ 12674}# + #{val\ 12675}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#)) + #{tmp\ 12663}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1733}#))) + #{tmp\ 12662}#))) ($sc-dispatch - #{tmp\ 1733}# + #{tmp\ 12662}# '(any any any)))) - #{e\ 1619}#) + #{e\ 12548}#) (values 'call #f - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#)))))))))))))) - (if (#{syntax-object?\ 186}# #{e\ 1619}#) - (#{syntax-type\ 303}# - (#{syntax-object-expression\ 188}# #{e\ 1619}#) - #{r\ 1620}# - (#{join-wraps\ 273}# - #{w\ 1621}# - (#{syntax-object-wrap\ 190}# #{e\ 1619}#)) - #{s\ 1622}# - #{rib\ 1623}# - (let ((#{t\ 1752}# - (#{syntax-object-module\ 192}# #{e\ 1619}#))) - (if #{t\ 1752}# #{t\ 1752}# #{mod\ 1624}#)) - #{for-car?\ 1625}#) - (if (self-evaluating? #{e\ 1619}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#)))))))))))))) + (if (#{syntax-object?\ 11115}# #{e\ 12548}#) + (#{syntax-type\ 11232}# + (#{syntax-object-expression\ 11117}# + #{e\ 12548}#) + #{r\ 12549}# + (#{join-wraps\ 11202}# + #{w\ 12550}# + (#{syntax-object-wrap\ 11119}# #{e\ 12548}#)) + #{s\ 12551}# + #{rib\ 12552}# + (let ((#{t\ 12681}# + (#{syntax-object-module\ 11121}# #{e\ 12548}#))) + (if #{t\ 12681}# #{t\ 12681}# #{mod\ 12553}#)) + #{for-car?\ 12554}#) + (if (self-evaluating? #{e\ 12548}#) (values 'constant #f - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#) + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#) (values 'other #f - #{e\ 1619}# - #{w\ 1621}# - #{s\ 1622}# - #{mod\ 1624}#))))))) - (#{chi-when-list\ 301}# - (lambda (#{e\ 1757}# #{when-list\ 1758}# #{w\ 1759}#) - (letrec ((#{f\ 1766}# - (lambda (#{when-list\ 1767}# #{situations\ 1768}#) - (if (null? #{when-list\ 1767}#) - #{situations\ 1768}# - (#{f\ 1766}# - (cdr #{when-list\ 1767}#) - (cons (let ((#{x\ 1770}# - (car #{when-list\ 1767}#))) - (if (#{free-id=?\ 281}# - #{x\ 1770}# + #{e\ 12548}# + #{w\ 12550}# + #{s\ 12551}# + #{mod\ 12553}#))))))) + (#{chi-when-list\ 11230}# + (lambda (#{e\ 12686}# #{when-list\ 12687}# #{w\ 12688}#) + (letrec ((#{f\ 12695}# + (lambda (#{when-list\ 12696}# #{situations\ 12697}#) + (if (null? #{when-list\ 12696}#) + #{situations\ 12697}# + (#{f\ 12695}# + (cdr #{when-list\ 12696}#) + (cons (let ((#{x\ 12699}# + (car #{when-list\ 12696}#))) + (if (#{free-id=?\ 11210}# + #{x\ 12699}# '#(syntax-object compile ((top) @@ -5545,17 +5556,21 @@ #(ribcage #(x) #((top)) - #("i1769")) + #("i12698")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1763" "i1764" "i1765")) + #("i12692" + "i12693" + "i12694")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1760" "i1761" "i1762")) + #("i12689" + "i12690" + "i12691")) #(ribcage (lambda-var-list gen-var @@ -5673,8 +5688,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -5791,134 +5805,132 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 281}# - #{x\ 1770}# + (if (#{free-id=?\ 11210}# + #{x\ 12699}# '#(syntax-object load ((top) @@ -5928,21 +5940,21 @@ #(ribcage #(x) #((top)) - #("i1769")) + #("i12698")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1763" - "i1764" - "i1765")) + #("i12692" + "i12693" + "i12694")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1760" - "i1761" - "i1762")) + #("i12689" + "i12690" + "i12691")) #(ribcage (lambda-var-list gen-var @@ -6060,8 +6072,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -6178,135 +6189,133 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile))) 'load - (if (#{free-id=?\ 281}# - #{x\ 1770}# + (if (#{free-id=?\ 11210}# + #{x\ 12699}# '#(syntax-object eval ((top) @@ -6316,23 +6325,23 @@ #(ribcage #(x) #((top)) - #("i1769")) + #("i12698")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1763" - "i1764" - "i1765")) + #("i12692" + "i12693" + "i12694")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1760" - "i1761" - "i1762")) + #("i12689" + "i12690" + "i12691")) #(ribcage (lambda-var-list gen-var @@ -6450,8 +6459,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -6568,135 +6576,133 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 281}# - #{x\ 1770}# + (if (#{free-id=?\ 11210}# + #{x\ 12699}# '#(syntax-object expand ((top) @@ -6706,23 +6712,23 @@ #(ribcage #(x) #((top)) - #("i1769")) + #("i12698")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1763" - "i1764" - "i1765")) + #("i12692" + "i12693" + "i12694")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1760" - "i1761" - "i1762")) + #("i12689" + "i12690" + "i12691")) #(ribcage (lambda-var-list gen-var @@ -6840,8 +6846,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -6958,1006 +6963,1045 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 1757}# - (#{wrap\ 291}# - #{x\ 1770}# - #{w\ 1759}# + #{e\ 12686}# + (#{wrap\ 11220}# + #{x\ 12699}# + #{w\ 12688}# #f))))))) - #{situations\ 1768}#)))))) - (#{f\ 1766}# #{when-list\ 1758}# (quote ()))))) - (#{chi-install-global\ 299}# - (lambda (#{name\ 1780}# #{e\ 1781}#) - (#{build-global-definition\ 162}# + #{situations\ 12697}#)))))) + (#{f\ 12695}# #{when-list\ 12687}# (quote ()))))) + (#{chi-install-global\ 11228}# + (lambda (#{name\ 12709}# #{e\ 12710}#) + (#{build-global-definition\ 11091}# #f - #{name\ 1780}# - (#{build-application\ 144}# + #{name\ 12709}# + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f 'make-syntax-transformer) - (list (#{build-data\ 172}# #f #{name\ 1780}#) - (#{build-data\ 172}# #f (quote macro)) - (#{build-application\ 144}# + (list (#{build-data\ 11101}# #f #{name\ 12709}#) + (#{build-data\ 11101}# #f (quote macro)) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# #f (quote cons)) - (list #{e\ 1781}# - (#{build-application\ 144}# + (#{build-primref\ 11099}# #f (quote cons)) + (list #{e\ 12710}# + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f 'module-name) - (list (#{build-application\ 144}# + (list (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 297}# - (lambda (#{body\ 1795}# - #{r\ 1796}# - #{w\ 1797}# - #{s\ 1798}# - #{m\ 1799}# - #{esew\ 1800}# - #{mod\ 1801}#) - (#{build-sequence\ 174}# - #{s\ 1798}# - (letrec ((#{dobody\ 1817}# - (lambda (#{body\ 1818}# - #{r\ 1819}# - #{w\ 1820}# - #{m\ 1821}# - #{esew\ 1822}# - #{mod\ 1823}# - #{out\ 1824}#) - (if (null? #{body\ 1818}#) - (reverse #{out\ 1824}#) - (#{dobody\ 1817}# - (cdr #{body\ 1818}#) - #{r\ 1819}# - #{w\ 1820}# - #{m\ 1821}# - #{esew\ 1822}# - #{mod\ 1823}# - (cons (#{chi-top\ 305}# - (car #{body\ 1818}#) - #{r\ 1819}# - #{w\ 1820}# - #{m\ 1821}# - #{esew\ 1822}# - #{mod\ 1823}#) - #{out\ 1824}#)))))) - (#{dobody\ 1817}# - #{body\ 1795}# - #{r\ 1796}# - #{w\ 1797}# - #{m\ 1799}# - #{esew\ 1800}# - #{mod\ 1801}# + (#{chi-top-sequence\ 11226}# + (lambda (#{body\ 12724}# + #{r\ 12725}# + #{w\ 12726}# + #{s\ 12727}# + #{m\ 12728}# + #{esew\ 12729}# + #{mod\ 12730}#) + (#{build-sequence\ 11103}# + #{s\ 12727}# + (letrec ((#{dobody\ 12746}# + (lambda (#{body\ 12747}# + #{r\ 12748}# + #{w\ 12749}# + #{m\ 12750}# + #{esew\ 12751}# + #{mod\ 12752}# + #{out\ 12753}#) + (if (null? #{body\ 12747}#) + (reverse #{out\ 12753}#) + (#{dobody\ 12746}# + (cdr #{body\ 12747}#) + #{r\ 12748}# + #{w\ 12749}# + #{m\ 12750}# + #{esew\ 12751}# + #{mod\ 12752}# + (cons (#{chi-top\ 11234}# + (car #{body\ 12747}#) + #{r\ 12748}# + #{w\ 12749}# + #{m\ 12750}# + #{esew\ 12751}# + #{mod\ 12752}#) + #{out\ 12753}#)))))) + (#{dobody\ 12746}# + #{body\ 12724}# + #{r\ 12725}# + #{w\ 12726}# + #{m\ 12728}# + #{esew\ 12729}# + #{mod\ 12730}# '()))))) - (#{chi-sequence\ 295}# - (lambda (#{body\ 1825}# - #{r\ 1826}# - #{w\ 1827}# - #{s\ 1828}# - #{mod\ 1829}#) - (#{build-sequence\ 174}# - #{s\ 1828}# - (letrec ((#{dobody\ 1840}# - (lambda (#{body\ 1841}# - #{r\ 1842}# - #{w\ 1843}# - #{mod\ 1844}#) - (if (null? #{body\ 1841}#) + (#{chi-sequence\ 11224}# + (lambda (#{body\ 12754}# + #{r\ 12755}# + #{w\ 12756}# + #{s\ 12757}# + #{mod\ 12758}#) + (#{build-sequence\ 11103}# + #{s\ 12757}# + (letrec ((#{dobody\ 12769}# + (lambda (#{body\ 12770}# + #{r\ 12771}# + #{w\ 12772}# + #{mod\ 12773}#) + (if (null? #{body\ 12770}#) '() - (let ((#{first\ 1846}# - (#{chi\ 307}# - (car #{body\ 1841}#) - #{r\ 1842}# - #{w\ 1843}# - #{mod\ 1844}#))) - (cons #{first\ 1846}# - (#{dobody\ 1840}# - (cdr #{body\ 1841}#) - #{r\ 1842}# - #{w\ 1843}# - #{mod\ 1844}#))))))) - (#{dobody\ 1840}# - #{body\ 1825}# - #{r\ 1826}# - #{w\ 1827}# - #{mod\ 1829}#))))) - (#{source-wrap\ 293}# - (lambda (#{x\ 1847}# - #{w\ 1848}# - #{s\ 1849}# - #{defmod\ 1850}#) - (#{wrap\ 291}# - (#{decorate-source\ 140}# - #{x\ 1847}# - #{s\ 1849}#) - #{w\ 1848}# - #{defmod\ 1850}#))) - (#{wrap\ 291}# - (lambda (#{x\ 1855}# #{w\ 1856}# #{defmod\ 1857}#) - (if (if (null? (#{wrap-marks\ 229}# #{w\ 1856}#)) - (null? (#{wrap-subst\ 231}# #{w\ 1856}#)) + (let ((#{first\ 12775}# + (#{chi\ 11236}# + (car #{body\ 12770}#) + #{r\ 12771}# + #{w\ 12772}# + #{mod\ 12773}#))) + (cons #{first\ 12775}# + (#{dobody\ 12769}# + (cdr #{body\ 12770}#) + #{r\ 12771}# + #{w\ 12772}# + #{mod\ 12773}#))))))) + (#{dobody\ 12769}# + #{body\ 12754}# + #{r\ 12755}# + #{w\ 12756}# + #{mod\ 12758}#))))) + (#{source-wrap\ 11222}# + (lambda (#{x\ 12776}# + #{w\ 12777}# + #{s\ 12778}# + #{defmod\ 12779}#) + (#{wrap\ 11220}# + (#{decorate-source\ 11069}# + #{x\ 12776}# + #{s\ 12778}#) + #{w\ 12777}# + #{defmod\ 12779}#))) + (#{wrap\ 11220}# + (lambda (#{x\ 12784}# #{w\ 12785}# #{defmod\ 12786}#) + (if (if (null? (#{wrap-marks\ 11158}# #{w\ 12785}#)) + (null? (#{wrap-subst\ 11160}# #{w\ 12785}#)) #f) - #{x\ 1855}# - (if (#{syntax-object?\ 186}# #{x\ 1855}#) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# #{x\ 1855}#) - (#{join-wraps\ 273}# - #{w\ 1856}# - (#{syntax-object-wrap\ 190}# #{x\ 1855}#)) - (#{syntax-object-module\ 192}# #{x\ 1855}#)) - (if (null? #{x\ 1855}#) - #{x\ 1855}# - (#{make-syntax-object\ 184}# - #{x\ 1855}# - #{w\ 1856}# - #{defmod\ 1857}#)))))) - (#{bound-id-member?\ 289}# - (lambda (#{x\ 1870}# #{list\ 1871}#) - (if (not (null? #{list\ 1871}#)) - (let ((#{t\ 1878}# - (#{bound-id=?\ 283}# - #{x\ 1870}# - (car #{list\ 1871}#)))) - (if #{t\ 1878}# - #{t\ 1878}# - (#{bound-id-member?\ 289}# - #{x\ 1870}# - (cdr #{list\ 1871}#)))) + #{x\ 12784}# + (if (#{syntax-object?\ 11115}# #{x\ 12784}#) + (#{make-syntax-object\ 11113}# + (#{syntax-object-expression\ 11117}# + #{x\ 12784}#) + (#{join-wraps\ 11202}# + #{w\ 12785}# + (#{syntax-object-wrap\ 11119}# #{x\ 12784}#)) + (#{syntax-object-module\ 11121}# #{x\ 12784}#)) + (if (null? #{x\ 12784}#) + #{x\ 12784}# + (#{make-syntax-object\ 11113}# + #{x\ 12784}# + #{w\ 12785}# + #{defmod\ 12786}#)))))) + (#{bound-id-member?\ 11218}# + (lambda (#{x\ 12799}# #{list\ 12800}#) + (if (not (null? #{list\ 12800}#)) + (let ((#{t\ 12807}# + (#{bound-id=?\ 11212}# + #{x\ 12799}# + (car #{list\ 12800}#)))) + (if #{t\ 12807}# + #{t\ 12807}# + (#{bound-id-member?\ 11218}# + #{x\ 12799}# + (cdr #{list\ 12800}#)))) #f))) - (#{distinct-bound-ids?\ 287}# - (lambda (#{ids\ 1880}#) - (letrec ((#{distinct?\ 1884}# - (lambda (#{ids\ 1885}#) - (let ((#{t\ 1888}# (null? #{ids\ 1885}#))) - (if #{t\ 1888}# - #{t\ 1888}# - (if (not (#{bound-id-member?\ 289}# - (car #{ids\ 1885}#) - (cdr #{ids\ 1885}#))) - (#{distinct?\ 1884}# (cdr #{ids\ 1885}#)) + (#{distinct-bound-ids?\ 11216}# + (lambda (#{ids\ 12809}#) + (letrec ((#{distinct?\ 12813}# + (lambda (#{ids\ 12814}#) + (let ((#{t\ 12817}# (null? #{ids\ 12814}#))) + (if #{t\ 12817}# + #{t\ 12817}# + (if (not (#{bound-id-member?\ 11218}# + (car #{ids\ 12814}#) + (cdr #{ids\ 12814}#))) + (#{distinct?\ 12813}# (cdr #{ids\ 12814}#)) #f)))))) - (#{distinct?\ 1884}# #{ids\ 1880}#)))) - (#{valid-bound-ids?\ 285}# - (lambda (#{ids\ 1892}#) - (if (letrec ((#{all-ids?\ 1897}# - (lambda (#{ids\ 1898}#) - (let ((#{t\ 1901}# (null? #{ids\ 1898}#))) - (if #{t\ 1901}# - #{t\ 1901}# - (if (#{id?\ 222}# (car #{ids\ 1898}#)) - (#{all-ids?\ 1897}# (cdr #{ids\ 1898}#)) + (#{distinct?\ 12813}# #{ids\ 12809}#)))) + (#{valid-bound-ids?\ 11214}# + (lambda (#{ids\ 12821}#) + (if (letrec ((#{all-ids?\ 12826}# + (lambda (#{ids\ 12827}#) + (let ((#{t\ 12830}# (null? #{ids\ 12827}#))) + (if #{t\ 12830}# + #{t\ 12830}# + (if (#{id?\ 11151}# (car #{ids\ 12827}#)) + (#{all-ids?\ 12826}# + (cdr #{ids\ 12827}#)) #f)))))) - (#{all-ids?\ 1897}# #{ids\ 1892}#)) - (#{distinct-bound-ids?\ 287}# #{ids\ 1892}#) + (#{all-ids?\ 12826}# #{ids\ 12821}#)) + (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#) #f))) - (#{bound-id=?\ 283}# - (lambda (#{i\ 1906}# #{j\ 1907}#) - (if (if (#{syntax-object?\ 186}# #{i\ 1906}#) - (#{syntax-object?\ 186}# #{j\ 1907}#) + (#{bound-id=?\ 11212}# + (lambda (#{i\ 12835}# #{j\ 12836}#) + (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#) + (#{syntax-object?\ 11115}# #{j\ 12836}#) #f) - (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1906}#) - (#{syntax-object-expression\ 188}# #{j\ 1907}#)) - (#{same-marks?\ 277}# - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{i\ 1906}#)) - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{j\ 1907}#))) + (if (eq? (#{syntax-object-expression\ 11117}# + #{i\ 12835}#) + (#{syntax-object-expression\ 11117}# + #{j\ 12836}#)) + (#{same-marks?\ 11206}# + (#{wrap-marks\ 11158}# + (#{syntax-object-wrap\ 11119}# #{i\ 12835}#)) + (#{wrap-marks\ 11158}# + (#{syntax-object-wrap\ 11119}# #{j\ 12836}#))) #f) - (eq? #{i\ 1906}# #{j\ 1907}#)))) - (#{free-id=?\ 281}# - (lambda (#{i\ 1914}# #{j\ 1915}#) - (if (eq? (let ((#{x\ 1921}# #{i\ 1914}#)) - (if (#{syntax-object?\ 186}# #{x\ 1921}#) - (#{syntax-object-expression\ 188}# #{x\ 1921}#) - #{x\ 1921}#)) - (let ((#{x\ 1924}# #{j\ 1915}#)) - (if (#{syntax-object?\ 186}# #{x\ 1924}#) - (#{syntax-object-expression\ 188}# #{x\ 1924}#) - #{x\ 1924}#))) - (eq? (#{id-var-name\ 279}# #{i\ 1914}# (quote (()))) - (#{id-var-name\ 279}# #{j\ 1915}# (quote (())))) + (eq? #{i\ 12835}# #{j\ 12836}#)))) + (#{free-id=?\ 11210}# + (lambda (#{i\ 12843}# #{j\ 12844}#) + (if (eq? (let ((#{x\ 12850}# #{i\ 12843}#)) + (if (#{syntax-object?\ 11115}# #{x\ 12850}#) + (#{syntax-object-expression\ 11117}# + #{x\ 12850}#) + #{x\ 12850}#)) + (let ((#{x\ 12853}# #{j\ 12844}#)) + (if (#{syntax-object?\ 11115}# #{x\ 12853}#) + (#{syntax-object-expression\ 11117}# + #{x\ 12853}#) + #{x\ 12853}#))) + (eq? (#{id-var-name\ 11208}# + #{i\ 12843}# + '(())) + (#{id-var-name\ 11208}# + #{j\ 12844}# + '(()))) #f))) - (#{id-var-name\ 279}# - (lambda (#{id\ 1928}# #{w\ 1929}#) - (letrec ((#{search-vector-rib\ 1938}# - (lambda (#{sym\ 1950}# - #{subst\ 1951}# - #{marks\ 1952}# - #{symnames\ 1953}# - #{ribcage\ 1954}#) - (let ((#{n\ 1961}# - (vector-length #{symnames\ 1953}#))) - (letrec ((#{f\ 1964}# - (lambda (#{i\ 1965}#) - (if (#{fx=\ 127}# - #{i\ 1965}# - #{n\ 1961}#) - (#{search\ 1934}# - #{sym\ 1950}# - (cdr #{subst\ 1951}#) - #{marks\ 1952}#) + (#{id-var-name\ 11208}# + (lambda (#{id\ 12857}# #{w\ 12858}#) + (letrec ((#{search-vector-rib\ 12867}# + (lambda (#{sym\ 12879}# + #{subst\ 12880}# + #{marks\ 12881}# + #{symnames\ 12882}# + #{ribcage\ 12883}#) + (let ((#{n\ 12890}# + (vector-length #{symnames\ 12882}#))) + (letrec ((#{f\ 12893}# + (lambda (#{i\ 12894}#) + (if (#{fx=\ 11056}# + #{i\ 12894}# + #{n\ 12890}#) + (#{search\ 12863}# + #{sym\ 12879}# + (cdr #{subst\ 12880}#) + #{marks\ 12881}#) (if (if (eq? (vector-ref - #{symnames\ 1953}# - #{i\ 1965}#) - #{sym\ 1950}#) - (#{same-marks?\ 277}# - #{marks\ 1952}# + #{symnames\ 12882}# + #{i\ 12894}#) + #{sym\ 12879}#) + (#{same-marks?\ 11206}# + #{marks\ 12881}# (vector-ref - (#{ribcage-marks\ 249}# - #{ribcage\ 1954}#) - #{i\ 1965}#)) + (#{ribcage-marks\ 11178}# + #{ribcage\ 12883}#) + #{i\ 12894}#)) #f) (values (vector-ref - (#{ribcage-labels\ 251}# - #{ribcage\ 1954}#) - #{i\ 1965}#) - #{marks\ 1952}#) - (#{f\ 1964}# - (#{fx+\ 123}# - #{i\ 1965}# + (#{ribcage-labels\ 11180}# + #{ribcage\ 12883}#) + #{i\ 12894}#) + #{marks\ 12881}#) + (#{f\ 12893}# + (#{fx+\ 11052}# + #{i\ 12894}# 1))))))) - (#{f\ 1964}# 0))))) - (#{search-list-rib\ 1936}# - (lambda (#{sym\ 1973}# - #{subst\ 1974}# - #{marks\ 1975}# - #{symnames\ 1976}# - #{ribcage\ 1977}#) - (letrec ((#{f\ 1986}# - (lambda (#{symnames\ 1987}# #{i\ 1988}#) - (if (null? #{symnames\ 1987}#) - (#{search\ 1934}# - #{sym\ 1973}# - (cdr #{subst\ 1974}#) - #{marks\ 1975}#) - (if (if (eq? (car #{symnames\ 1987}#) - #{sym\ 1973}#) - (#{same-marks?\ 277}# - #{marks\ 1975}# + (#{f\ 12893}# 0))))) + (#{search-list-rib\ 12865}# + (lambda (#{sym\ 12902}# + #{subst\ 12903}# + #{marks\ 12904}# + #{symnames\ 12905}# + #{ribcage\ 12906}#) + (letrec ((#{f\ 12915}# + (lambda (#{symnames\ 12916}# + #{i\ 12917}#) + (if (null? #{symnames\ 12916}#) + (#{search\ 12863}# + #{sym\ 12902}# + (cdr #{subst\ 12903}#) + #{marks\ 12904}#) + (if (if (eq? (car #{symnames\ 12916}#) + #{sym\ 12902}#) + (#{same-marks?\ 11206}# + #{marks\ 12904}# (list-ref - (#{ribcage-marks\ 249}# - #{ribcage\ 1977}#) - #{i\ 1988}#)) + (#{ribcage-marks\ 11178}# + #{ribcage\ 12906}#) + #{i\ 12917}#)) #f) (values (list-ref - (#{ribcage-labels\ 251}# - #{ribcage\ 1977}#) - #{i\ 1988}#) - #{marks\ 1975}#) - (#{f\ 1986}# - (cdr #{symnames\ 1987}#) - (#{fx+\ 123}# - #{i\ 1988}# + (#{ribcage-labels\ 11180}# + #{ribcage\ 12906}#) + #{i\ 12917}#) + #{marks\ 12904}#) + (#{f\ 12915}# + (cdr #{symnames\ 12916}#) + (#{fx+\ 11052}# + #{i\ 12917}# 1))))))) - (#{f\ 1986}# #{symnames\ 1976}# 0)))) - (#{search\ 1934}# - (lambda (#{sym\ 1996}# - #{subst\ 1997}# - #{marks\ 1998}#) - (if (null? #{subst\ 1997}#) - (values #f #{marks\ 1998}#) - (let ((#{fst\ 2003}# (car #{subst\ 1997}#))) - (if (eq? #{fst\ 2003}# (quote shift)) - (#{search\ 1934}# - #{sym\ 1996}# - (cdr #{subst\ 1997}#) - (cdr #{marks\ 1998}#)) - (let ((#{symnames\ 2005}# - (#{ribcage-symnames\ 247}# - #{fst\ 2003}#))) - (if (vector? #{symnames\ 2005}#) - (#{search-vector-rib\ 1938}# - #{sym\ 1996}# - #{subst\ 1997}# - #{marks\ 1998}# - #{symnames\ 2005}# - #{fst\ 2003}#) - (#{search-list-rib\ 1936}# - #{sym\ 1996}# - #{subst\ 1997}# - #{marks\ 1998}# - #{symnames\ 2005}# - #{fst\ 2003}#))))))))) - (if (symbol? #{id\ 1928}#) - (let ((#{t\ 2008}# + (#{f\ 12915}# #{symnames\ 12905}# 0)))) + (#{search\ 12863}# + (lambda (#{sym\ 12925}# + #{subst\ 12926}# + #{marks\ 12927}#) + (if (null? #{subst\ 12926}#) + (values #f #{marks\ 12927}#) + (let ((#{fst\ 12932}# (car #{subst\ 12926}#))) + (if (eq? #{fst\ 12932}# (quote shift)) + (#{search\ 12863}# + #{sym\ 12925}# + (cdr #{subst\ 12926}#) + (cdr #{marks\ 12927}#)) + (let ((#{symnames\ 12934}# + (#{ribcage-symnames\ 11176}# + #{fst\ 12932}#))) + (if (vector? #{symnames\ 12934}#) + (#{search-vector-rib\ 12867}# + #{sym\ 12925}# + #{subst\ 12926}# + #{marks\ 12927}# + #{symnames\ 12934}# + #{fst\ 12932}#) + (#{search-list-rib\ 12865}# + #{sym\ 12925}# + #{subst\ 12926}# + #{marks\ 12927}# + #{symnames\ 12934}# + #{fst\ 12932}#))))))))) + (if (symbol? #{id\ 12857}#) + (let ((#{t\ 12937}# (call-with-values (lambda () - (#{search\ 1934}# - #{id\ 1928}# - (#{wrap-subst\ 231}# #{w\ 1929}#) - (#{wrap-marks\ 229}# #{w\ 1929}#))) - (lambda (#{x\ 2010}# . #{ignore\ 2011}#) - #{x\ 2010}#)))) - (if #{t\ 2008}# #{t\ 2008}# #{id\ 1928}#)) - (if (#{syntax-object?\ 186}# #{id\ 1928}#) - (let ((#{id\ 2019}# - (#{syntax-object-expression\ 188}# #{id\ 1928}#)) - (#{w1\ 2020}# - (#{syntax-object-wrap\ 190}# #{id\ 1928}#))) - (let ((#{marks\ 2022}# - (#{join-marks\ 275}# - (#{wrap-marks\ 229}# #{w\ 1929}#) - (#{wrap-marks\ 229}# #{w1\ 2020}#)))) + (#{search\ 12863}# + #{id\ 12857}# + (#{wrap-subst\ 11160}# #{w\ 12858}#) + (#{wrap-marks\ 11158}# #{w\ 12858}#))) + (lambda (#{x\ 12939}# . #{ignore\ 12940}#) + #{x\ 12939}#)))) + (if #{t\ 12937}# #{t\ 12937}# #{id\ 12857}#)) + (if (#{syntax-object?\ 11115}# #{id\ 12857}#) + (let ((#{id\ 12948}# + (#{syntax-object-expression\ 11117}# + #{id\ 12857}#)) + (#{w1\ 12949}# + (#{syntax-object-wrap\ 11119}# #{id\ 12857}#))) + (let ((#{marks\ 12951}# + (#{join-marks\ 11204}# + (#{wrap-marks\ 11158}# #{w\ 12858}#) + (#{wrap-marks\ 11158}# #{w1\ 12949}#)))) (call-with-values (lambda () - (#{search\ 1934}# - #{id\ 2019}# - (#{wrap-subst\ 231}# #{w\ 1929}#) - #{marks\ 2022}#)) - (lambda (#{new-id\ 2023}# #{marks\ 2024}#) - (let ((#{t\ 2029}# #{new-id\ 2023}#)) - (if #{t\ 2029}# - #{t\ 2029}# - (let ((#{t\ 2032}# + (#{search\ 12863}# + #{id\ 12948}# + (#{wrap-subst\ 11160}# #{w\ 12858}#) + #{marks\ 12951}#)) + (lambda (#{new-id\ 12952}# #{marks\ 12953}#) + (let ((#{t\ 12958}# #{new-id\ 12952}#)) + (if #{t\ 12958}# + #{t\ 12958}# + (let ((#{t\ 12961}# (call-with-values (lambda () - (#{search\ 1934}# - #{id\ 2019}# - (#{wrap-subst\ 231}# - #{w1\ 2020}#) - #{marks\ 2024}#)) - (lambda (#{x\ 2034}# + (#{search\ 12863}# + #{id\ 12948}# + (#{wrap-subst\ 11160}# + #{w1\ 12949}#) + #{marks\ 12953}#)) + (lambda (#{x\ 12963}# . - #{ignore\ 2035}#) - #{x\ 2034}#)))) - (if #{t\ 2032}# - #{t\ 2032}# - #{id\ 2019}#)))))))) + #{ignore\ 12964}#) + #{x\ 12963}#)))) + (if #{t\ 12961}# + #{t\ 12961}# + #{id\ 12948}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1928}#)))))) - (#{same-marks?\ 277}# - (lambda (#{x\ 2040}# #{y\ 2041}#) - (let ((#{t\ 2046}# (eq? #{x\ 2040}# #{y\ 2041}#))) - (if #{t\ 2046}# - #{t\ 2046}# - (if (not (null? #{x\ 2040}#)) - (if (not (null? #{y\ 2041}#)) - (if (eq? (car #{x\ 2040}#) (car #{y\ 2041}#)) - (#{same-marks?\ 277}# - (cdr #{x\ 2040}#) - (cdr #{y\ 2041}#)) + #{id\ 12857}#)))))) + (#{same-marks?\ 11206}# + (lambda (#{x\ 12969}# #{y\ 12970}#) + (let ((#{t\ 12975}# (eq? #{x\ 12969}# #{y\ 12970}#))) + (if #{t\ 12975}# + #{t\ 12975}# + (if (not (null? #{x\ 12969}#)) + (if (not (null? #{y\ 12970}#)) + (if (eq? (car #{x\ 12969}#) (car #{y\ 12970}#)) + (#{same-marks?\ 11206}# + (cdr #{x\ 12969}#) + (cdr #{y\ 12970}#)) #f) #f) #f))))) - (#{join-marks\ 275}# - (lambda (#{m1\ 2052}# #{m2\ 2053}#) - (#{smart-append\ 271}# #{m1\ 2052}# #{m2\ 2053}#))) - (#{join-wraps\ 273}# - (lambda (#{w1\ 2056}# #{w2\ 2057}#) - (let ((#{m1\ 2062}# (#{wrap-marks\ 229}# #{w1\ 2056}#)) - (#{s1\ 2063}# (#{wrap-subst\ 231}# #{w1\ 2056}#))) - (if (null? #{m1\ 2062}#) - (if (null? #{s1\ 2063}#) - #{w2\ 2057}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w2\ 2057}#) - (#{smart-append\ 271}# - #{s1\ 2063}# - (#{wrap-subst\ 231}# #{w2\ 2057}#)))) - (#{make-wrap\ 227}# - (#{smart-append\ 271}# - #{m1\ 2062}# - (#{wrap-marks\ 229}# #{w2\ 2057}#)) - (#{smart-append\ 271}# - #{s1\ 2063}# - (#{wrap-subst\ 231}# #{w2\ 2057}#))))))) - (#{smart-append\ 271}# - (lambda (#{m1\ 2064}# #{m2\ 2065}#) - (if (null? #{m2\ 2065}#) - #{m1\ 2064}# - (append #{m1\ 2064}# #{m2\ 2065}#)))) - (#{make-binding-wrap\ 269}# - (lambda (#{ids\ 2068}# #{labels\ 2069}# #{w\ 2070}#) - (if (null? #{ids\ 2068}#) - #{w\ 2070}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w\ 2070}#) - (cons (let ((#{labelvec\ 2075}# - (list->vector #{labels\ 2069}#))) - (let ((#{n\ 2077}# - (vector-length #{labelvec\ 2075}#))) - (let ((#{symnamevec\ 2080}# - (make-vector #{n\ 2077}#)) - (#{marksvec\ 2081}# - (make-vector #{n\ 2077}#))) + (#{join-marks\ 11204}# + (lambda (#{m1\ 12981}# #{m2\ 12982}#) + (#{smart-append\ 11200}# + #{m1\ 12981}# + #{m2\ 12982}#))) + (#{join-wraps\ 11202}# + (lambda (#{w1\ 12985}# #{w2\ 12986}#) + (let ((#{m1\ 12991}# + (#{wrap-marks\ 11158}# #{w1\ 12985}#)) + (#{s1\ 12992}# + (#{wrap-subst\ 11160}# #{w1\ 12985}#))) + (if (null? #{m1\ 12991}#) + (if (null? #{s1\ 12992}#) + #{w2\ 12986}# + (#{make-wrap\ 11156}# + (#{wrap-marks\ 11158}# #{w2\ 12986}#) + (#{smart-append\ 11200}# + #{s1\ 12992}# + (#{wrap-subst\ 11160}# #{w2\ 12986}#)))) + (#{make-wrap\ 11156}# + (#{smart-append\ 11200}# + #{m1\ 12991}# + (#{wrap-marks\ 11158}# #{w2\ 12986}#)) + (#{smart-append\ 11200}# + #{s1\ 12992}# + (#{wrap-subst\ 11160}# #{w2\ 12986}#))))))) + (#{smart-append\ 11200}# + (lambda (#{m1\ 12993}# #{m2\ 12994}#) + (if (null? #{m2\ 12994}#) + #{m1\ 12993}# + (append #{m1\ 12993}# #{m2\ 12994}#)))) + (#{make-binding-wrap\ 11198}# + (lambda (#{ids\ 12997}# #{labels\ 12998}# #{w\ 12999}#) + (if (null? #{ids\ 12997}#) + #{w\ 12999}# + (#{make-wrap\ 11156}# + (#{wrap-marks\ 11158}# #{w\ 12999}#) + (cons (let ((#{labelvec\ 13004}# + (list->vector #{labels\ 12998}#))) + (let ((#{n\ 13006}# + (vector-length #{labelvec\ 13004}#))) + (let ((#{symnamevec\ 13009}# + (make-vector #{n\ 13006}#)) + (#{marksvec\ 13010}# + (make-vector #{n\ 13006}#))) (begin - (letrec ((#{f\ 2085}# - (lambda (#{ids\ 2086}# #{i\ 2087}#) - (if (not (null? #{ids\ 2086}#)) + (letrec ((#{f\ 13014}# + (lambda (#{ids\ 13015}# + #{i\ 13016}#) + (if (not (null? #{ids\ 13015}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 225}# - (car #{ids\ 2086}#) - #{w\ 2070}#)) - (lambda (#{symname\ 2088}# - #{marks\ 2089}#) + (#{id-sym-name&marks\ 11154}# + (car #{ids\ 13015}#) + #{w\ 12999}#)) + (lambda (#{symname\ 13017}# + #{marks\ 13018}#) (begin (vector-set! - #{symnamevec\ 2080}# - #{i\ 2087}# - #{symname\ 2088}#) + #{symnamevec\ 13009}# + #{i\ 13016}# + #{symname\ 13017}#) (vector-set! - #{marksvec\ 2081}# - #{i\ 2087}# - #{marks\ 2089}#) - (#{f\ 2085}# - (cdr #{ids\ 2086}#) - (#{fx+\ 123}# - #{i\ 2087}# + #{marksvec\ 13010}# + #{i\ 13016}# + #{marks\ 13018}#) + (#{f\ 13014}# + (cdr #{ids\ 13015}#) + (#{fx+\ 11052}# + #{i\ 13016}# 1))))))))) - (#{f\ 2085}# #{ids\ 2068}# 0)) - (#{make-ribcage\ 243}# - #{symnamevec\ 2080}# - #{marksvec\ 2081}# - #{labelvec\ 2075}#))))) - (#{wrap-subst\ 231}# #{w\ 2070}#)))))) - (#{extend-ribcage!\ 267}# - (lambda (#{ribcage\ 2092}# #{id\ 2093}# #{label\ 2094}#) + (#{f\ 13014}# #{ids\ 12997}# 0)) + (#{make-ribcage\ 11172}# + #{symnamevec\ 13009}# + #{marksvec\ 13010}# + #{labelvec\ 13004}#))))) + (#{wrap-subst\ 11160}# #{w\ 12999}#)))))) + (#{extend-ribcage!\ 11196}# + (lambda (#{ribcage\ 13021}# + #{id\ 13022}# + #{label\ 13023}#) (begin - (#{set-ribcage-symnames!\ 253}# - #{ribcage\ 2092}# - (cons (#{syntax-object-expression\ 188}# #{id\ 2093}#) - (#{ribcage-symnames\ 247}# #{ribcage\ 2092}#))) - (#{set-ribcage-marks!\ 255}# - #{ribcage\ 2092}# - (cons (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{id\ 2093}#)) - (#{ribcage-marks\ 249}# #{ribcage\ 2092}#))) - (#{set-ribcage-labels!\ 257}# - #{ribcage\ 2092}# - (cons #{label\ 2094}# - (#{ribcage-labels\ 251}# #{ribcage\ 2092}#)))))) - (#{anti-mark\ 263}# - (lambda (#{w\ 2098}#) - (#{make-wrap\ 227}# - (cons #f (#{wrap-marks\ 229}# #{w\ 2098}#)) + (#{set-ribcage-symnames!\ 11182}# + #{ribcage\ 13021}# + (cons (#{syntax-object-expression\ 11117}# + #{id\ 13022}#) + (#{ribcage-symnames\ 11176}# #{ribcage\ 13021}#))) + (#{set-ribcage-marks!\ 11184}# + #{ribcage\ 13021}# + (cons (#{wrap-marks\ 11158}# + (#{syntax-object-wrap\ 11119}# #{id\ 13022}#)) + (#{ribcage-marks\ 11178}# #{ribcage\ 13021}#))) + (#{set-ribcage-labels!\ 11186}# + #{ribcage\ 13021}# + (cons #{label\ 13023}# + (#{ribcage-labels\ 11180}# #{ribcage\ 13021}#)))))) + (#{anti-mark\ 11192}# + (lambda (#{w\ 13027}#) + (#{make-wrap\ 11156}# + (cons #f (#{wrap-marks\ 11158}# #{w\ 13027}#)) (cons 'shift - (#{wrap-subst\ 231}# #{w\ 2098}#))))) - (#{set-ribcage-labels!\ 257}# - (lambda (#{x\ 2101}# #{update\ 2102}#) - (vector-set! #{x\ 2101}# 3 #{update\ 2102}#))) - (#{set-ribcage-marks!\ 255}# - (lambda (#{x\ 2105}# #{update\ 2106}#) - (vector-set! #{x\ 2105}# 2 #{update\ 2106}#))) - (#{set-ribcage-symnames!\ 253}# - (lambda (#{x\ 2109}# #{update\ 2110}#) - (vector-set! #{x\ 2109}# 1 #{update\ 2110}#))) - (#{ribcage-labels\ 251}# - (lambda (#{x\ 2113}#) (vector-ref #{x\ 2113}# 3))) - (#{ribcage-marks\ 249}# - (lambda (#{x\ 2115}#) (vector-ref #{x\ 2115}# 2))) - (#{ribcage-symnames\ 247}# - (lambda (#{x\ 2117}#) (vector-ref #{x\ 2117}# 1))) - (#{ribcage?\ 245}# - (lambda (#{x\ 2119}#) - (if (vector? #{x\ 2119}#) - (if (= (vector-length #{x\ 2119}#) 4) - (eq? (vector-ref #{x\ 2119}# 0) (quote ribcage)) + (#{wrap-subst\ 11160}# #{w\ 13027}#))))) + (#{set-ribcage-labels!\ 11186}# + (lambda (#{x\ 13030}# #{update\ 13031}#) + (vector-set! #{x\ 13030}# 3 #{update\ 13031}#))) + (#{set-ribcage-marks!\ 11184}# + (lambda (#{x\ 13034}# #{update\ 13035}#) + (vector-set! #{x\ 13034}# 2 #{update\ 13035}#))) + (#{set-ribcage-symnames!\ 11182}# + (lambda (#{x\ 13038}# #{update\ 13039}#) + (vector-set! #{x\ 13038}# 1 #{update\ 13039}#))) + (#{ribcage-labels\ 11180}# + (lambda (#{x\ 13042}#) + (vector-ref #{x\ 13042}# 3))) + (#{ribcage-marks\ 11178}# + (lambda (#{x\ 13044}#) + (vector-ref #{x\ 13044}# 2))) + (#{ribcage-symnames\ 11176}# + (lambda (#{x\ 13046}#) + (vector-ref #{x\ 13046}# 1))) + (#{ribcage?\ 11174}# + (lambda (#{x\ 13048}#) + (if (vector? #{x\ 13048}#) + (if (= (vector-length #{x\ 13048}#) 4) + (eq? (vector-ref #{x\ 13048}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 243}# - (lambda (#{symnames\ 2124}# - #{marks\ 2125}# - #{labels\ 2126}#) + (#{make-ribcage\ 11172}# + (lambda (#{symnames\ 13053}# + #{marks\ 13054}# + #{labels\ 13055}#) (vector 'ribcage - #{symnames\ 2124}# - #{marks\ 2125}# - #{labels\ 2126}#))) - (#{gen-labels\ 240}# - (lambda (#{ls\ 2130}#) - (if (null? #{ls\ 2130}#) + #{symnames\ 13053}# + #{marks\ 13054}# + #{labels\ 13055}#))) + (#{gen-labels\ 11169}# + (lambda (#{ls\ 13059}#) + (if (null? #{ls\ 13059}#) '() - (cons (#{gen-label\ 238}#) - (#{gen-labels\ 240}# (cdr #{ls\ 2130}#)))))) - (#{gen-label\ 238}# + (cons (#{gen-label\ 11167}#) + (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#)))))) + (#{gen-label\ 11167}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 231}# cdr) - (#{wrap-marks\ 229}# car) - (#{make-wrap\ 227}# cons) - (#{id-sym-name&marks\ 225}# - (lambda (#{x\ 2132}# #{w\ 2133}#) - (if (#{syntax-object?\ 186}# #{x\ 2132}#) + (#{wrap-subst\ 11160}# cdr) + (#{wrap-marks\ 11158}# car) + (#{make-wrap\ 11156}# cons) + (#{id-sym-name&marks\ 11154}# + (lambda (#{x\ 13061}# #{w\ 13062}#) + (if (#{syntax-object?\ 11115}# #{x\ 13061}#) (values - (#{syntax-object-expression\ 188}# #{x\ 2132}#) - (#{join-marks\ 275}# - (#{wrap-marks\ 229}# #{w\ 2133}#) - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{x\ 2132}#)))) + (#{syntax-object-expression\ 11117}# + #{x\ 13061}#) + (#{join-marks\ 11204}# + (#{wrap-marks\ 11158}# #{w\ 13062}#) + (#{wrap-marks\ 11158}# + (#{syntax-object-wrap\ 11119}# #{x\ 13061}#)))) (values - #{x\ 2132}# - (#{wrap-marks\ 229}# #{w\ 2133}#))))) - (#{id?\ 222}# - (lambda (#{x\ 2136}#) - (if (symbol? #{x\ 2136}#) + #{x\ 13061}# + (#{wrap-marks\ 11158}# #{w\ 13062}#))))) + (#{id?\ 11151}# + (lambda (#{x\ 13065}#) + (if (symbol? #{x\ 13065}#) #t - (if (#{syntax-object?\ 186}# #{x\ 2136}#) + (if (#{syntax-object?\ 11115}# #{x\ 13065}#) (symbol? - (#{syntax-object-expression\ 188}# #{x\ 2136}#)) + (#{syntax-object-expression\ 11117}# + #{x\ 13065}#)) #f)))) - (#{nonsymbol-id?\ 220}# - (lambda (#{x\ 2143}#) - (if (#{syntax-object?\ 186}# #{x\ 2143}#) + (#{nonsymbol-id?\ 11149}# + (lambda (#{x\ 13072}#) + (if (#{syntax-object?\ 11115}# #{x\ 13072}#) (symbol? - (#{syntax-object-expression\ 188}# #{x\ 2143}#)) + (#{syntax-object-expression\ 11117}# + #{x\ 13072}#)) #f))) - (#{global-extend\ 218}# - (lambda (#{type\ 2147}# #{sym\ 2148}# #{val\ 2149}#) - (#{put-global-definition-hook\ 136}# - #{sym\ 2148}# - #{type\ 2147}# - #{val\ 2149}#))) - (#{lookup\ 216}# - (lambda (#{x\ 2153}# #{r\ 2154}# #{mod\ 2155}#) - (let ((#{t\ 2161}# (assq #{x\ 2153}# #{r\ 2154}#))) - (if #{t\ 2161}# - (cdr #{t\ 2161}#) - (if (symbol? #{x\ 2153}#) - (let ((#{t\ 2167}# - (#{get-global-definition-hook\ 138}# - #{x\ 2153}# - #{mod\ 2155}#))) - (if #{t\ 2167}# #{t\ 2167}# (quote (global)))) + (#{global-extend\ 11147}# + (lambda (#{type\ 13076}# #{sym\ 13077}# #{val\ 13078}#) + (#{put-global-definition-hook\ 11065}# + #{sym\ 13077}# + #{type\ 13076}# + #{val\ 13078}#))) + (#{lookup\ 11145}# + (lambda (#{x\ 13082}# #{r\ 13083}# #{mod\ 13084}#) + (let ((#{t\ 13090}# (assq #{x\ 13082}# #{r\ 13083}#))) + (if #{t\ 13090}# + (cdr #{t\ 13090}#) + (if (symbol? #{x\ 13082}#) + (let ((#{t\ 13096}# + (#{get-global-definition-hook\ 11067}# + #{x\ 13082}# + #{mod\ 13084}#))) + (if #{t\ 13096}# #{t\ 13096}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 214}# - (lambda (#{r\ 2172}#) - (if (null? #{r\ 2172}#) + (#{macros-only-env\ 11143}# + (lambda (#{r\ 13101}#) + (if (null? #{r\ 13101}#) '() - (let ((#{a\ 2175}# (car #{r\ 2172}#))) - (if (eq? (cadr #{a\ 2175}#) (quote macro)) - (cons #{a\ 2175}# - (#{macros-only-env\ 214}# (cdr #{r\ 2172}#))) - (#{macros-only-env\ 214}# (cdr #{r\ 2172}#))))))) - (#{extend-var-env\ 212}# - (lambda (#{labels\ 2176}# #{vars\ 2177}# #{r\ 2178}#) - (if (null? #{labels\ 2176}#) - #{r\ 2178}# - (#{extend-var-env\ 212}# - (cdr #{labels\ 2176}#) - (cdr #{vars\ 2177}#) - (cons (cons (car #{labels\ 2176}#) - (cons (quote lexical) (car #{vars\ 2177}#))) - #{r\ 2178}#))))) - (#{extend-env\ 210}# - (lambda (#{labels\ 2183}# #{bindings\ 2184}# #{r\ 2185}#) - (if (null? #{labels\ 2183}#) - #{r\ 2185}# - (#{extend-env\ 210}# - (cdr #{labels\ 2183}#) - (cdr #{bindings\ 2184}#) - (cons (cons (car #{labels\ 2183}#) - (car #{bindings\ 2184}#)) - #{r\ 2185}#))))) - (#{binding-value\ 207}# cdr) - (#{binding-type\ 205}# car) - (#{source-annotation\ 201}# - (lambda (#{x\ 2189}#) - (if (#{syntax-object?\ 186}# #{x\ 2189}#) - (#{source-annotation\ 201}# - (#{syntax-object-expression\ 188}# #{x\ 2189}#)) - (if (pair? #{x\ 2189}#) - (let ((#{props\ 2196}# (source-properties #{x\ 2189}#))) - (if (pair? #{props\ 2196}#) #{props\ 2196}# #f)) + (let ((#{a\ 13104}# (car #{r\ 13101}#))) + (if (eq? (cadr #{a\ 13104}#) (quote macro)) + (cons #{a\ 13104}# + (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#))) + (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#))))))) + (#{extend-var-env\ 11141}# + (lambda (#{labels\ 13105}# #{vars\ 13106}# #{r\ 13107}#) + (if (null? #{labels\ 13105}#) + #{r\ 13107}# + (#{extend-var-env\ 11141}# + (cdr #{labels\ 13105}#) + (cdr #{vars\ 13106}#) + (cons (cons (car #{labels\ 13105}#) + (cons (quote lexical) (car #{vars\ 13106}#))) + #{r\ 13107}#))))) + (#{extend-env\ 11139}# + (lambda (#{labels\ 13112}# + #{bindings\ 13113}# + #{r\ 13114}#) + (if (null? #{labels\ 13112}#) + #{r\ 13114}# + (#{extend-env\ 11139}# + (cdr #{labels\ 13112}#) + (cdr #{bindings\ 13113}#) + (cons (cons (car #{labels\ 13112}#) + (car #{bindings\ 13113}#)) + #{r\ 13114}#))))) + (#{binding-value\ 11136}# cdr) + (#{binding-type\ 11134}# car) + (#{source-annotation\ 11130}# + (lambda (#{x\ 13118}#) + (if (#{syntax-object?\ 11115}# #{x\ 13118}#) + (#{source-annotation\ 11130}# + (#{syntax-object-expression\ 11117}# + #{x\ 13118}#)) + (if (pair? #{x\ 13118}#) + (let ((#{props\ 13125}# + (source-properties #{x\ 13118}#))) + (if (pair? #{props\ 13125}#) #{props\ 13125}# #f)) #f)))) - (#{set-syntax-object-module!\ 198}# - (lambda (#{x\ 2198}# #{update\ 2199}#) - (vector-set! #{x\ 2198}# 3 #{update\ 2199}#))) - (#{set-syntax-object-wrap!\ 196}# - (lambda (#{x\ 2202}# #{update\ 2203}#) - (vector-set! #{x\ 2202}# 2 #{update\ 2203}#))) - (#{set-syntax-object-expression!\ 194}# - (lambda (#{x\ 2206}# #{update\ 2207}#) - (vector-set! #{x\ 2206}# 1 #{update\ 2207}#))) - (#{syntax-object-module\ 192}# - (lambda (#{x\ 2210}#) (vector-ref #{x\ 2210}# 3))) - (#{syntax-object-wrap\ 190}# - (lambda (#{x\ 2212}#) (vector-ref #{x\ 2212}# 2))) - (#{syntax-object-expression\ 188}# - (lambda (#{x\ 2214}#) (vector-ref #{x\ 2214}# 1))) - (#{syntax-object?\ 186}# - (lambda (#{x\ 2216}#) - (if (vector? #{x\ 2216}#) - (if (= (vector-length #{x\ 2216}#) 4) - (eq? (vector-ref #{x\ 2216}# 0) + (#{set-syntax-object-module!\ 11127}# + (lambda (#{x\ 13127}# #{update\ 13128}#) + (vector-set! #{x\ 13127}# 3 #{update\ 13128}#))) + (#{set-syntax-object-wrap!\ 11125}# + (lambda (#{x\ 13131}# #{update\ 13132}#) + (vector-set! #{x\ 13131}# 2 #{update\ 13132}#))) + (#{set-syntax-object-expression!\ 11123}# + (lambda (#{x\ 13135}# #{update\ 13136}#) + (vector-set! #{x\ 13135}# 1 #{update\ 13136}#))) + (#{syntax-object-module\ 11121}# + (lambda (#{x\ 13139}#) + (vector-ref #{x\ 13139}# 3))) + (#{syntax-object-wrap\ 11119}# + (lambda (#{x\ 13141}#) + (vector-ref #{x\ 13141}# 2))) + (#{syntax-object-expression\ 11117}# + (lambda (#{x\ 13143}#) + (vector-ref #{x\ 13143}# 1))) + (#{syntax-object?\ 11115}# + (lambda (#{x\ 13145}#) + (if (vector? #{x\ 13145}#) + (if (= (vector-length #{x\ 13145}#) 4) + (eq? (vector-ref #{x\ 13145}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 184}# - (lambda (#{expression\ 2221}# - #{wrap\ 2222}# - #{module\ 2223}#) + (#{make-syntax-object\ 11113}# + (lambda (#{expression\ 13150}# + #{wrap\ 13151}# + #{module\ 13152}#) (vector 'syntax-object - #{expression\ 2221}# - #{wrap\ 2222}# - #{module\ 2223}#))) - (#{build-letrec\ 180}# - (lambda (#{src\ 2227}# - #{ids\ 2228}# - #{vars\ 2229}# - #{val-exps\ 2230}# - #{body-exp\ 2231}#) - (if (null? #{vars\ 2229}#) - #{body-exp\ 2231}# - (let ((#{atom-key\ 2239}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2239}# (quote (c))) + #{expression\ 13150}# + #{wrap\ 13151}# + #{module\ 13152}#))) + (#{build-letrec\ 11109}# + (lambda (#{src\ 13156}# + #{ids\ 13157}# + #{vars\ 13158}# + #{val-exps\ 13159}# + #{body-exp\ 13160}#) + (if (null? #{vars\ 13158}#) + #{body-exp\ 13160}# + (let ((#{atom-key\ 13168}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13168}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2228}# - #{val-exps\ 2230}#) + #{maybe-name-value!\ 11089}# + #{ids\ 13157}# + #{val-exps\ 13159}#) ((@ (language tree-il) make-letrec) - #{src\ 2227}# - #{ids\ 2228}# - #{vars\ 2229}# - #{val-exps\ 2230}# - #{body-exp\ 2231}#)) - (#{decorate-source\ 140}# + #{src\ 13156}# + #{ids\ 13157}# + #{vars\ 13158}# + #{val-exps\ 13159}# + #{body-exp\ 13160}#)) + (#{decorate-source\ 11069}# (list 'letrec - (map list #{vars\ 2229}# #{val-exps\ 2230}#) - #{body-exp\ 2231}#) - #{src\ 2227}#)))))) - (#{build-named-let\ 178}# - (lambda (#{src\ 2243}# - #{ids\ 2244}# - #{vars\ 2245}# - #{val-exps\ 2246}# - #{body-exp\ 2247}#) - (let ((#{f\ 2257}# (car #{vars\ 2245}#)) - (#{f-name\ 2258}# (car #{ids\ 2244}#)) - (#{vars\ 2259}# (cdr #{vars\ 2245}#)) - (#{ids\ 2260}# (cdr #{ids\ 2244}#))) - (let ((#{atom-key\ 2263}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2263}# (quote (c))) - (let ((#{proc\ 2266}# - (#{build-simple-lambda\ 164}# - #{src\ 2243}# - #{ids\ 2260}# + (map list #{vars\ 13158}# #{val-exps\ 13159}#) + #{body-exp\ 13160}#) + #{src\ 13156}#)))))) + (#{build-named-let\ 11107}# + (lambda (#{src\ 13172}# + #{ids\ 13173}# + #{vars\ 13174}# + #{val-exps\ 13175}# + #{body-exp\ 13176}#) + (let ((#{f\ 13186}# (car #{vars\ 13174}#)) + (#{f-name\ 13187}# (car #{ids\ 13173}#)) + (#{vars\ 13188}# (cdr #{vars\ 13174}#)) + (#{ids\ 13189}# (cdr #{ids\ 13173}#))) + (let ((#{atom-key\ 13192}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13192}# (quote (c))) + (let ((#{proc\ 13195}# + (#{build-simple-lambda\ 11093}# + #{src\ 13172}# + #{ids\ 13189}# #f - #{vars\ 2259}# + #{vars\ 13188}# '() - #{body-exp\ 2247}#))) + #{body-exp\ 13176}#))) (begin - (#{maybe-name-value!\ 160}# - #{f-name\ 2258}# - #{proc\ 2266}#) + (#{maybe-name-value!\ 11089}# + #{f-name\ 13187}# + #{proc\ 13195}#) (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2260}# - #{val-exps\ 2246}#) + #{maybe-name-value!\ 11089}# + #{ids\ 13189}# + #{val-exps\ 13175}#) ((@ (language tree-il) make-letrec) - #{src\ 2243}# - (list #{f-name\ 2258}#) - (list #{f\ 2257}#) - (list #{proc\ 2266}#) - (#{build-application\ 144}# - #{src\ 2243}# - (#{build-lexical-reference\ 150}# + #{src\ 13172}# + (list #{f-name\ 13187}#) + (list #{f\ 13186}#) + (list #{proc\ 13195}#) + (#{build-application\ 11073}# + #{src\ 13172}# + (#{build-lexical-reference\ 11079}# 'fun - #{src\ 2243}# - #{f-name\ 2258}# - #{f\ 2257}#) - #{val-exps\ 2246}#)))) - (#{decorate-source\ 140}# + #{src\ 13172}# + #{f-name\ 13187}# + #{f\ 13186}#) + #{val-exps\ 13175}#)))) + (#{decorate-source\ 11069}# (list 'letrec - (list (list #{f\ 2257}# + (list (list #{f\ 13186}# (list 'lambda - #{vars\ 2259}# - #{body-exp\ 2247}#))) - (cons #{f\ 2257}# #{val-exps\ 2246}#)) - #{src\ 2243}#)))))) - (#{build-let\ 176}# - (lambda (#{src\ 2269}# - #{ids\ 2270}# - #{vars\ 2271}# - #{val-exps\ 2272}# - #{body-exp\ 2273}#) - (if (null? #{vars\ 2271}#) - #{body-exp\ 2273}# - (let ((#{atom-key\ 2281}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2281}# (quote (c))) + #{vars\ 13188}# + #{body-exp\ 13176}#))) + (cons #{f\ 13186}# #{val-exps\ 13175}#)) + #{src\ 13172}#)))))) + (#{build-let\ 11105}# + (lambda (#{src\ 13198}# + #{ids\ 13199}# + #{vars\ 13200}# + #{val-exps\ 13201}# + #{body-exp\ 13202}#) + (if (null? #{vars\ 13200}#) + #{body-exp\ 13202}# + (let ((#{atom-key\ 13210}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13210}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2270}# - #{val-exps\ 2272}#) + #{maybe-name-value!\ 11089}# + #{ids\ 13199}# + #{val-exps\ 13201}#) ((@ (language tree-il) make-let) - #{src\ 2269}# - #{ids\ 2270}# - #{vars\ 2271}# - #{val-exps\ 2272}# - #{body-exp\ 2273}#)) - (#{decorate-source\ 140}# + #{src\ 13198}# + #{ids\ 13199}# + #{vars\ 13200}# + #{val-exps\ 13201}# + #{body-exp\ 13202}#)) + (#{decorate-source\ 11069}# (list 'let - (map list #{vars\ 2271}# #{val-exps\ 2272}#) - #{body-exp\ 2273}#) - #{src\ 2269}#)))))) - (#{build-sequence\ 174}# - (lambda (#{src\ 2285}# #{exps\ 2286}#) - (if (null? (cdr #{exps\ 2286}#)) - (car #{exps\ 2286}#) - (let ((#{atom-key\ 2291}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2291}# (quote (c))) + (map list #{vars\ 13200}# #{val-exps\ 13201}#) + #{body-exp\ 13202}#) + #{src\ 13198}#)))))) + (#{build-sequence\ 11103}# + (lambda (#{src\ 13214}# #{exps\ 13215}#) + (if (null? (cdr #{exps\ 13215}#)) + (car #{exps\ 13215}#) + (let ((#{atom-key\ 13220}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13220}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 2285}# - #{exps\ 2286}#) - (#{decorate-source\ 140}# - (cons (quote begin) #{exps\ 2286}#) - #{src\ 2285}#)))))) - (#{build-data\ 172}# - (lambda (#{src\ 2295}# #{exp\ 2296}#) - (let ((#{atom-key\ 2301}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2301}# (quote (c))) + #{src\ 13214}# + #{exps\ 13215}#) + (#{decorate-source\ 11069}# + (cons (quote begin) #{exps\ 13215}#) + #{src\ 13214}#)))))) + (#{build-data\ 11101}# + (lambda (#{src\ 13224}# #{exp\ 13225}#) + (let ((#{atom-key\ 13230}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13230}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 2295}# - #{exp\ 2296}#) - (#{decorate-source\ 140}# - (if (if (self-evaluating? #{exp\ 2296}#) - (not (vector? #{exp\ 2296}#)) + #{src\ 13224}# + #{exp\ 13225}#) + (#{decorate-source\ 11069}# + (if (if (self-evaluating? #{exp\ 13225}#) + (not (vector? #{exp\ 13225}#)) #f) - #{exp\ 2296}# - (list (quote quote) #{exp\ 2296}#)) - #{src\ 2295}#))))) - (#{build-primref\ 170}# - (lambda (#{src\ 2306}# #{name\ 2307}#) + #{exp\ 13225}# + (list (quote quote) #{exp\ 13225}#)) + #{src\ 13224}#))))) + (#{build-primref\ 11099}# + (lambda (#{src\ 13235}# #{name\ 13236}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2312}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2312}# (quote (c))) + (let ((#{atom-key\ 13241}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13241}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 2306}# - #{name\ 2307}#) - (#{decorate-source\ 140}# - #{name\ 2307}# - #{src\ 2306}#))) - (let ((#{atom-key\ 2317}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2317}# (quote (c))) + #{src\ 13235}# + #{name\ 13236}#) + (#{decorate-source\ 11069}# + #{name\ 13236}# + #{src\ 13235}#))) + (let ((#{atom-key\ 13246}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13246}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 2306}# + #{src\ 13235}# '(guile) - #{name\ 2307}# + #{name\ 13236}# #f) - (#{decorate-source\ 140}# - (list (quote @@) (quote (guile)) #{name\ 2307}#) - #{src\ 2306}#)))))) - (#{build-lambda-case\ 168}# - (lambda (#{src\ 2321}# - #{req\ 2322}# - #{opt\ 2323}# - #{rest\ 2324}# - #{kw\ 2325}# - #{inits\ 2326}# - #{vars\ 2327}# - #{body\ 2328}# - #{else-case\ 2329}#) - (let ((#{atom-key\ 2341}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2341}# (quote (c))) + (#{decorate-source\ 11069}# + (list (quote @@) (quote (guile)) #{name\ 13236}#) + #{src\ 13235}#)))))) + (#{build-lambda-case\ 11097}# + (lambda (#{src\ 13250}# + #{req\ 13251}# + #{opt\ 13252}# + #{rest\ 13253}# + #{kw\ 13254}# + #{inits\ 13255}# + #{vars\ 13256}# + #{body\ 13257}# + #{else-case\ 13258}#) + (let ((#{atom-key\ 13270}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13270}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 2321}# - #{req\ 2322}# - #{opt\ 2323}# - #{rest\ 2324}# - #{kw\ 2325}# - #{inits\ 2326}# - #{vars\ 2327}# - #{body\ 2328}# - #{else-case\ 2329}#) - (let ((#{nreq\ 2346}# (length #{req\ 2322}#))) - (let ((#{nopt\ 2348}# - (if #{opt\ 2323}# (length #{opt\ 2323}#) 0))) - (let ((#{rest-idx\ 2350}# - (if #{rest\ 2324}# - (+ #{nreq\ 2346}# #{nopt\ 2348}#) + #{src\ 13250}# + #{req\ 13251}# + #{opt\ 13252}# + #{rest\ 13253}# + #{kw\ 13254}# + #{inits\ 13255}# + #{vars\ 13256}# + #{body\ 13257}# + #{else-case\ 13258}#) + (let ((#{nreq\ 13275}# (length #{req\ 13251}#))) + (let ((#{nopt\ 13277}# + (if #{opt\ 13252}# (length #{opt\ 13252}#) 0))) + (let ((#{rest-idx\ 13279}# + (if #{rest\ 13253}# + (+ #{nreq\ 13275}# #{nopt\ 13277}#) #f))) - (let ((#{allow-other-keys?\ 2354}# - (if #{kw\ 2325}# (car #{kw\ 2325}#) #f))) - (let ((#{kw-indices\ 2356}# - (map (lambda (#{x\ 2357}#) - (cons (car #{x\ 2357}#) + (let ((#{allow-other-keys?\ 13283}# + (if #{kw\ 13254}# (car #{kw\ 13254}#) #f))) + (let ((#{kw-indices\ 13285}# + (map (lambda (#{x\ 13286}#) + (cons (car #{x\ 13286}#) (list-index - #{vars\ 2327}# - (caddr #{x\ 2357}#)))) - (if #{kw\ 2325}# - (cdr #{kw\ 2325}#) + #{vars\ 13256}# + (caddr #{x\ 13286}#)))) + (if #{kw\ 13254}# + (cdr #{kw\ 13254}#) '())))) - (let ((#{nargs\ 2360}# + (let ((#{nargs\ 13289}# (apply max - (+ #{nreq\ 2346}# - #{nopt\ 2348}# - (if #{rest\ 2324}# 1 0)) + (+ #{nreq\ 13275}# + #{nopt\ 13277}# + (if #{rest\ 13253}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2356}#))))) + #{kw-indices\ 13285}#))))) (begin - (let ((#{t\ 2363}# - (= #{nargs\ 2360}# - (length #{vars\ 2327}#) - (+ #{nreq\ 2346}# - (length #{inits\ 2326}#) - (if #{rest\ 2324}# 1 0))))) - (if #{t\ 2363}# - #{t\ 2363}# + (let ((#{t\ 13292}# + (= #{nargs\ 13289}# + (length #{vars\ 13256}#) + (+ #{nreq\ 13275}# + (length #{inits\ 13255}#) + (if #{rest\ 13253}# 1 0))))) + (if #{t\ 13292}# + #{t\ 13292}# (error "something went wrong" - #{req\ 2322}# - #{opt\ 2323}# - #{rest\ 2324}# - #{kw\ 2325}# - #{inits\ 2326}# - #{vars\ 2327}# - #{nreq\ 2346}# - #{nopt\ 2348}# - #{kw-indices\ 2356}# - #{nargs\ 2360}#))) - (#{decorate-source\ 140}# + #{req\ 13251}# + #{opt\ 13252}# + #{rest\ 13253}# + #{kw\ 13254}# + #{inits\ 13255}# + #{vars\ 13256}# + #{nreq\ 13275}# + #{nopt\ 13277}# + #{kw-indices\ 13285}# + #{nargs\ 13289}#))) + (#{decorate-source\ 11069}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 2346}# - #{nopt\ 2348}# - #{rest-idx\ 2350}# - #{nargs\ 2360}# - #{allow-other-keys?\ 2354}# - #{kw-indices\ 2356}#)) + (list #{nreq\ 13275}# + #{nopt\ 13277}# + #{rest-idx\ 13279}# + #{nargs\ 13289}# + #{allow-other-keys?\ 13283}# + #{kw-indices\ 13285}#)) (cons (cons 'list - (map (lambda (#{i\ 2366}#) + (map (lambda (#{i\ 13295}#) (list 'lambda - #{vars\ 2327}# - #{i\ 2366}#)) - #{inits\ 2326}#)) + #{vars\ 13256}# + #{i\ 13295}#)) + #{inits\ 13255}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 2327}# - #{body\ 2328}#) + #{vars\ 13256}# + #{body\ 13257}#) '(%%args))))) - (let ((#{t\ 2371}# - #{else-case\ 2329}#)) - (if #{t\ 2371}# - #{t\ 2371}# + (let ((#{t\ 13300}# + #{else-case\ 13258}#)) + (if #{t\ 13300}# + #{t\ 13300}# '((%%args (scm-error 'wrong-number-of-args @@ -7965,1454 +8009,1491 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 2321}#)))))))))))) - (#{build-case-lambda\ 166}# - (lambda (#{src\ 2374}# #{meta\ 2375}# #{body\ 2376}#) - (let ((#{atom-key\ 2382}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2382}# (quote (c))) + #{src\ 13250}#)))))))))))) + (#{build-case-lambda\ 11095}# + (lambda (#{src\ 13303}# #{meta\ 13304}# #{body\ 13305}#) + (let ((#{atom-key\ 13311}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13311}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2374}# - #{meta\ 2375}# - #{body\ 2376}#) - (#{decorate-source\ 140}# + #{src\ 13303}# + #{meta\ 13304}# + #{body\ 13305}#) + (#{decorate-source\ 11069}# (list 'lambda '%%args - (cons (quote cond) #{body\ 2376}#)) - #{src\ 2374}#))))) - (#{build-simple-lambda\ 164}# - (lambda (#{src\ 2386}# - #{req\ 2387}# - #{rest\ 2388}# - #{vars\ 2389}# - #{meta\ 2390}# - #{exp\ 2391}#) - (let ((#{atom-key\ 2400}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2400}# (quote (c))) + (cons (quote cond) #{body\ 13305}#)) + #{src\ 13303}#))))) + (#{build-simple-lambda\ 11093}# + (lambda (#{src\ 13315}# + #{req\ 13316}# + #{rest\ 13317}# + #{vars\ 13318}# + #{meta\ 13319}# + #{exp\ 13320}#) + (let ((#{atom-key\ 13329}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13329}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2386}# - #{meta\ 2390}# + #{src\ 13315}# + #{meta\ 13319}# ((@ (language tree-il) make-lambda-case) - #{src\ 2386}# - #{req\ 2387}# + #{src\ 13315}# + #{req\ 13316}# #f - #{rest\ 2388}# + #{rest\ 13317}# #f '() - #{vars\ 2389}# - #{exp\ 2391}# + #{vars\ 13318}# + #{exp\ 13320}# #f)) - (#{decorate-source\ 140}# + (#{decorate-source\ 11069}# (list 'lambda - (if #{rest\ 2388}# - (apply cons* #{vars\ 2389}#) - #{vars\ 2389}#) - #{exp\ 2391}#) - #{src\ 2386}#))))) - (#{build-global-definition\ 162}# - (lambda (#{source\ 2404}# #{var\ 2405}# #{exp\ 2406}#) - (let ((#{atom-key\ 2412}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2412}# (quote (c))) + (if #{rest\ 13317}# + (apply cons* #{vars\ 13318}#) + #{vars\ 13318}#) + #{exp\ 13320}#) + #{src\ 13315}#))))) + (#{build-global-definition\ 11091}# + (lambda (#{source\ 13333}# #{var\ 13334}# #{exp\ 13335}#) + (let ((#{atom-key\ 13341}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13341}# (quote (c))) (begin - (#{maybe-name-value!\ 160}# - #{var\ 2405}# - #{exp\ 2406}#) + (#{maybe-name-value!\ 11089}# + #{var\ 13334}# + #{exp\ 13335}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 2404}# - #{var\ 2405}# - #{exp\ 2406}#)) - (#{decorate-source\ 140}# - (list (quote define) #{var\ 2405}# #{exp\ 2406}#) - #{source\ 2404}#))))) - (#{maybe-name-value!\ 160}# - (lambda (#{name\ 2416}# #{val\ 2417}#) - (if ((@ (language tree-il) lambda?) #{val\ 2417}#) - (let ((#{meta\ 2423}# + #{source\ 13333}# + #{var\ 13334}# + #{exp\ 13335}#)) + (#{decorate-source\ 11069}# + (list 'define + #{var\ 13334}# + #{exp\ 13335}#) + #{source\ 13333}#))))) + (#{maybe-name-value!\ 11089}# + (lambda (#{name\ 13345}# #{val\ 13346}#) + (if ((@ (language tree-il) lambda?) #{val\ 13346}#) + (let ((#{meta\ 13352}# ((@ (language tree-il) lambda-meta) - #{val\ 2417}#))) - (if (not (assq (quote name) #{meta\ 2423}#)) + #{val\ 13346}#))) + (if (not (assq (quote name) #{meta\ 13352}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2417}# + #{val\ 13346}# (acons 'name - #{name\ 2416}# - #{meta\ 2423}#))))))) - (#{build-global-assignment\ 158}# - (lambda (#{source\ 2424}# - #{var\ 2425}# - #{exp\ 2426}# - #{mod\ 2427}#) - (#{analyze-variable\ 154}# - #{mod\ 2427}# - #{var\ 2425}# - (lambda (#{mod\ 2432}# #{var\ 2433}# #{public?\ 2434}#) - (let ((#{atom-key\ 2440}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2440}# (quote (c))) + #{name\ 13345}# + #{meta\ 13352}#))))))) + (#{build-global-assignment\ 11087}# + (lambda (#{source\ 13353}# + #{var\ 13354}# + #{exp\ 13355}# + #{mod\ 13356}#) + (#{analyze-variable\ 11083}# + #{mod\ 13356}# + #{var\ 13354}# + (lambda (#{mod\ 13361}# + #{var\ 13362}# + #{public?\ 13363}#) + (let ((#{atom-key\ 13369}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13369}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 2424}# - #{mod\ 2432}# - #{var\ 2433}# - #{public?\ 2434}# - #{exp\ 2426}#) - (#{decorate-source\ 140}# + #{source\ 13353}# + #{mod\ 13361}# + #{var\ 13362}# + #{public?\ 13363}# + #{exp\ 13355}#) + (#{decorate-source\ 11069}# (list 'set! - (list (if #{public?\ 2434}# + (list (if #{public?\ 13363}# '@ '@@) - #{mod\ 2432}# - #{var\ 2433}#) - #{exp\ 2426}#) - #{source\ 2424}#)))) - (lambda (#{var\ 2444}#) - (let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2448}# (quote (c))) + #{mod\ 13361}# + #{var\ 13362}#) + #{exp\ 13355}#) + #{source\ 13353}#)))) + (lambda (#{var\ 13373}#) + (let ((#{atom-key\ 13377}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13377}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 2424}# - #{var\ 2444}# - #{exp\ 2426}#) - (#{decorate-source\ 140}# - (list (quote set!) #{var\ 2444}# #{exp\ 2426}#) - #{source\ 2424}#))))))) - (#{build-global-reference\ 156}# - (lambda (#{source\ 2452}# #{var\ 2453}# #{mod\ 2454}#) - (#{analyze-variable\ 154}# - #{mod\ 2454}# - #{var\ 2453}# - (lambda (#{mod\ 2458}# #{var\ 2459}# #{public?\ 2460}#) - (let ((#{atom-key\ 2466}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2466}# (quote (c))) + #{source\ 13353}# + #{var\ 13373}# + #{exp\ 13355}#) + (#{decorate-source\ 11069}# + (list (quote set!) #{var\ 13373}# #{exp\ 13355}#) + #{source\ 13353}#))))))) + (#{build-global-reference\ 11085}# + (lambda (#{source\ 13381}# #{var\ 13382}# #{mod\ 13383}#) + (#{analyze-variable\ 11083}# + #{mod\ 13383}# + #{var\ 13382}# + (lambda (#{mod\ 13387}# + #{var\ 13388}# + #{public?\ 13389}#) + (let ((#{atom-key\ 13395}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13395}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 2452}# - #{mod\ 2458}# - #{var\ 2459}# - #{public?\ 2460}#) - (#{decorate-source\ 140}# - (list (if #{public?\ 2460}# (quote @) (quote @@)) - #{mod\ 2458}# - #{var\ 2459}#) - #{source\ 2452}#)))) - (lambda (#{var\ 2469}#) - (let ((#{atom-key\ 2473}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2473}# (quote (c))) + #{source\ 13381}# + #{mod\ 13387}# + #{var\ 13388}# + #{public?\ 13389}#) + (#{decorate-source\ 11069}# + (list (if #{public?\ 13389}# (quote @) (quote @@)) + #{mod\ 13387}# + #{var\ 13388}#) + #{source\ 13381}#)))) + (lambda (#{var\ 13398}#) + (let ((#{atom-key\ 13402}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13402}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 2452}# - #{var\ 2469}#) - (#{decorate-source\ 140}# - #{var\ 2469}# - #{source\ 2452}#))))))) - (#{analyze-variable\ 154}# - (lambda (#{mod\ 2476}# - #{var\ 2477}# - #{modref-cont\ 2478}# - #{bare-cont\ 2479}#) - (if (not #{mod\ 2476}#) - (#{bare-cont\ 2479}# #{var\ 2477}#) - (let ((#{kind\ 2486}# (car #{mod\ 2476}#)) - (#{mod\ 2487}# (cdr #{mod\ 2476}#))) - (if (memv #{kind\ 2486}# (quote (public))) - (#{modref-cont\ 2478}# - #{mod\ 2487}# - #{var\ 2477}# + #{source\ 13381}# + #{var\ 13398}#) + (#{decorate-source\ 11069}# + #{var\ 13398}# + #{source\ 13381}#))))))) + (#{analyze-variable\ 11083}# + (lambda (#{mod\ 13405}# + #{var\ 13406}# + #{modref-cont\ 13407}# + #{bare-cont\ 13408}#) + (if (not #{mod\ 13405}#) + (#{bare-cont\ 13408}# #{var\ 13406}#) + (let ((#{kind\ 13415}# (car #{mod\ 13405}#)) + (#{mod\ 13416}# (cdr #{mod\ 13405}#))) + (if (memv #{kind\ 13415}# (quote (public))) + (#{modref-cont\ 13407}# + #{mod\ 13416}# + #{var\ 13406}# #t) - (if (memv #{kind\ 2486}# (quote (private))) + (if (memv #{kind\ 13415}# (quote (private))) (if (not (equal? - #{mod\ 2487}# + #{mod\ 13416}# (module-name (current-module)))) - (#{modref-cont\ 2478}# - #{mod\ 2487}# - #{var\ 2477}# + (#{modref-cont\ 13407}# + #{mod\ 13416}# + #{var\ 13406}# #f) - (#{bare-cont\ 2479}# #{var\ 2477}#)) - (if (memv #{kind\ 2486}# (quote (bare))) - (#{bare-cont\ 2479}# #{var\ 2477}#) - (if (memv #{kind\ 2486}# (quote (hygiene))) + (#{bare-cont\ 13408}# #{var\ 13406}#)) + (if (memv #{kind\ 13415}# (quote (bare))) + (#{bare-cont\ 13408}# #{var\ 13406}#) + (if (memv #{kind\ 13415}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2487}# + #{mod\ 13416}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2487}#) - #{var\ 2477}#) + (resolve-module #{mod\ 13416}#) + #{var\ 13406}#) #f) - (#{modref-cont\ 2478}# - #{mod\ 2487}# - #{var\ 2477}# + (#{modref-cont\ 13407}# + #{mod\ 13416}# + #{var\ 13406}# #f) - (#{bare-cont\ 2479}# #{var\ 2477}#)) + (#{bare-cont\ 13408}# #{var\ 13406}#)) (syntax-violation #f "bad module kind" - #{var\ 2477}# - #{mod\ 2487}#))))))))) - (#{build-lexical-assignment\ 152}# - (lambda (#{source\ 2495}# - #{name\ 2496}# - #{var\ 2497}# - #{exp\ 2498}#) - (let ((#{atom-key\ 2505}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2505}# (quote (c))) + #{var\ 13406}# + #{mod\ 13416}#))))))))) + (#{build-lexical-assignment\ 11081}# + (lambda (#{source\ 13424}# + #{name\ 13425}# + #{var\ 13426}# + #{exp\ 13427}#) + (let ((#{atom-key\ 13434}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13434}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 2495}# - #{name\ 2496}# - #{var\ 2497}# - #{exp\ 2498}#) - (#{decorate-source\ 140}# - (list (quote set!) #{var\ 2497}# #{exp\ 2498}#) - #{source\ 2495}#))))) - (#{build-lexical-reference\ 150}# - (lambda (#{type\ 2509}# - #{source\ 2510}# - #{name\ 2511}# - #{var\ 2512}#) - (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2519}# (quote (c))) + #{source\ 13424}# + #{name\ 13425}# + #{var\ 13426}# + #{exp\ 13427}#) + (#{decorate-source\ 11069}# + (list (quote set!) #{var\ 13426}# #{exp\ 13427}#) + #{source\ 13424}#))))) + (#{build-lexical-reference\ 11079}# + (lambda (#{type\ 13438}# + #{source\ 13439}# + #{name\ 13440}# + #{var\ 13441}#) + (let ((#{atom-key\ 13448}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13448}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 2510}# - #{name\ 2511}# - #{var\ 2512}#) - (#{decorate-source\ 140}# - #{var\ 2512}# - #{source\ 2510}#))))) - (#{build-dynlet\ 148}# - (lambda (#{source\ 2522}# - #{fluids\ 2523}# - #{vals\ 2524}# - #{body\ 2525}#) - (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2532}# (quote (c))) + #{source\ 13439}# + #{name\ 13440}# + #{var\ 13441}#) + (#{decorate-source\ 11069}# + #{var\ 13441}# + #{source\ 13439}#))))) + (#{build-dynlet\ 11077}# + (lambda (#{source\ 13451}# + #{fluids\ 13452}# + #{vals\ 13453}# + #{body\ 13454}#) + (let ((#{atom-key\ 13461}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13461}# (quote (c))) ((@ (language tree-il) make-dynlet) - #{source\ 2522}# - #{fluids\ 2523}# - #{vals\ 2524}# - #{body\ 2525}#) - (#{decorate-source\ 140}# + #{source\ 13451}# + #{fluids\ 13452}# + #{vals\ 13453}# + #{body\ 13454}#) + (#{decorate-source\ 11069}# (list 'with-fluids - (map list #{fluids\ 2523}# #{vals\ 2524}#) - #{body\ 2525}#) - #{source\ 2522}#))))) - (#{build-conditional\ 146}# - (lambda (#{source\ 2536}# - #{test-exp\ 2537}# - #{then-exp\ 2538}# - #{else-exp\ 2539}#) - (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2546}# (quote (c))) + (map list #{fluids\ 13452}# #{vals\ 13453}#) + #{body\ 13454}#) + #{source\ 13451}#))))) + (#{build-conditional\ 11075}# + (lambda (#{source\ 13465}# + #{test-exp\ 13466}# + #{then-exp\ 13467}# + #{else-exp\ 13468}#) + (let ((#{atom-key\ 13475}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13475}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 2536}# - #{test-exp\ 2537}# - #{then-exp\ 2538}# - #{else-exp\ 2539}#) - (#{decorate-source\ 140}# - (if (equal? #{else-exp\ 2539}# (quote (if #f #f))) + #{source\ 13465}# + #{test-exp\ 13466}# + #{then-exp\ 13467}# + #{else-exp\ 13468}#) + (#{decorate-source\ 11069}# + (if (equal? #{else-exp\ 13468}# (quote (if #f #f))) (list 'if - #{test-exp\ 2537}# - #{then-exp\ 2538}#) + #{test-exp\ 13466}# + #{then-exp\ 13467}#) (list 'if - #{test-exp\ 2537}# - #{then-exp\ 2538}# - #{else-exp\ 2539}#)) - #{source\ 2536}#))))) - (#{build-application\ 144}# - (lambda (#{source\ 2551}# - #{fun-exp\ 2552}# - #{arg-exps\ 2553}#) - (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2559}# (quote (c))) + #{test-exp\ 13466}# + #{then-exp\ 13467}# + #{else-exp\ 13468}#)) + #{source\ 13465}#))))) + (#{build-application\ 11073}# + (lambda (#{source\ 13480}# + #{fun-exp\ 13481}# + #{arg-exps\ 13482}#) + (let ((#{atom-key\ 13488}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13488}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 2551}# - #{fun-exp\ 2552}# - #{arg-exps\ 2553}#) - (#{decorate-source\ 140}# - (cons #{fun-exp\ 2552}# #{arg-exps\ 2553}#) - #{source\ 2551}#))))) - (#{build-void\ 142}# - (lambda (#{source\ 2563}#) - (let ((#{atom-key\ 2567}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2567}# (quote (c))) + #{source\ 13480}# + #{fun-exp\ 13481}# + #{arg-exps\ 13482}#) + (#{decorate-source\ 11069}# + (cons #{fun-exp\ 13481}# #{arg-exps\ 13482}#) + #{source\ 13480}#))))) + (#{build-void\ 11071}# + (lambda (#{source\ 13492}#) + (let ((#{atom-key\ 13496}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13496}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 2563}#) - (#{decorate-source\ 140}# + #{source\ 13492}#) + (#{decorate-source\ 11069}# '(if #f #f) - #{source\ 2563}#))))) - (#{decorate-source\ 140}# - (lambda (#{e\ 2570}# #{s\ 2571}#) + #{source\ 13492}#))))) + (#{decorate-source\ 11069}# + (lambda (#{e\ 13499}# #{s\ 13500}#) (begin - (if (if (pair? #{e\ 2570}#) #{s\ 2571}# #f) - (set-source-properties! #{e\ 2570}# #{s\ 2571}#)) - #{e\ 2570}#))) - (#{get-global-definition-hook\ 138}# - (lambda (#{symbol\ 2576}# #{module\ 2577}#) + (if (if (pair? #{e\ 13499}#) #{s\ 13500}# #f) + (set-source-properties! + #{e\ 13499}# + #{s\ 13500}#)) + #{e\ 13499}#))) + (#{get-global-definition-hook\ 11067}# + (lambda (#{symbol\ 13505}# #{module\ 13506}#) (begin - (if (if (not #{module\ 2577}#) (current-module) #f) + (if (if (not #{module\ 13506}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2576}#)) - (let ((#{v\ 2583}# + #{symbol\ 13505}#)) + (let ((#{v\ 13512}# (module-variable - (if #{module\ 2577}# - (resolve-module (cdr #{module\ 2577}#)) + (if #{module\ 13506}# + (resolve-module (cdr #{module\ 13506}#)) (current-module)) - #{symbol\ 2576}#))) - (if #{v\ 2583}# - (if (variable-bound? #{v\ 2583}#) - (let ((#{val\ 2588}# (variable-ref #{v\ 2583}#))) - (if (macro? #{val\ 2588}#) - (if (macro-type #{val\ 2588}#) - (cons (macro-type #{val\ 2588}#) - (macro-binding #{val\ 2588}#)) + #{symbol\ 13505}#))) + (if #{v\ 13512}# + (if (variable-bound? #{v\ 13512}#) + (let ((#{val\ 13517}# (variable-ref #{v\ 13512}#))) + (if (macro? #{val\ 13517}#) + (if (macro-type #{val\ 13517}#) + (cons (macro-type #{val\ 13517}#) + (macro-binding #{val\ 13517}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 136}# - (lambda (#{symbol\ 2592}# #{type\ 2593}# #{val\ 2594}#) + (#{put-global-definition-hook\ 11065}# + (lambda (#{symbol\ 13521}# + #{type\ 13522}# + #{val\ 13523}#) (module-define! (current-module) - #{symbol\ 2592}# + #{symbol\ 13521}# (make-syntax-transformer - #{symbol\ 2592}# - #{type\ 2593}# - #{val\ 2594}#)))) - (#{local-eval-hook\ 133}# - (lambda (#{x\ 2598}# #{mod\ 2599}#) + #{symbol\ 13521}# + #{type\ 13522}# + #{val\ 13523}#)))) + (#{local-eval-hook\ 11062}# + (lambda (#{x\ 13527}# #{mod\ 13528}#) (primitive-eval - (list #{noexpand\ 119}# - (let ((#{atom-key\ 2605}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2605}# (quote (c))) - ((@ (language tree-il) tree-il->scheme) - #{x\ 2598}#) - #{x\ 2598}#)))))) - (#{top-level-eval-hook\ 131}# - (lambda (#{x\ 2608}# #{mod\ 2609}#) + (memoize-expression + (let ((#{atom-key\ 13533}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13533}# (quote (c))) + ((@ (language tree-il) tree-il->scheme) + #{x\ 13527}#) + #{x\ 13527}#)))))) + (#{top-level-eval-hook\ 11060}# + (lambda (#{x\ 13536}# #{mod\ 13537}#) (primitive-eval - (list #{noexpand\ 119}# - (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2615}# (quote (c))) - ((@ (language tree-il) tree-il->scheme) - #{x\ 2608}#) - #{x\ 2608}#)))))) - (#{fx<\ 129}# <) - (#{fx=\ 127}# =) - (#{fx-\ 125}# -) - (#{fx+\ 123}# +) - (#{*mode*\ 121}# (make-fluid)) - (#{noexpand\ 119}# "noexpand")) + (memoize-expression + (let ((#{atom-key\ 13542}# + (fluid-ref #{*mode*\ 11050}#))) + (if (memv #{atom-key\ 13542}# (quote (c))) + ((@ (language tree-il) tree-il->scheme) + #{x\ 13536}#) + #{x\ 13536}#)))))) + (#{fx<\ 11058}# <) + (#{fx=\ 11056}# =) + (#{fx-\ 11054}# -) + (#{fx+\ 11052}# +) + (#{*mode*\ 11050}# (make-fluid))) (begin - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'core 'fluid-let-syntax - (lambda (#{e\ 2618}# - #{r\ 2619}# - #{w\ 2620}# - #{s\ 2621}# - #{mod\ 2622}#) - ((lambda (#{tmp\ 2628}#) - ((lambda (#{tmp\ 2629}#) - (if (if #{tmp\ 2629}# - (apply (lambda (#{_\ 2635}# - #{var\ 2636}# - #{val\ 2637}# - #{e1\ 2638}# - #{e2\ 2639}#) - (#{valid-bound-ids?\ 285}# #{var\ 2636}#)) - #{tmp\ 2629}#) + (lambda (#{e\ 13545}# + #{r\ 13546}# + #{w\ 13547}# + #{s\ 13548}# + #{mod\ 13549}#) + ((lambda (#{tmp\ 13555}#) + ((lambda (#{tmp\ 13556}#) + (if (if #{tmp\ 13556}# + (apply (lambda (#{_\ 13562}# + #{var\ 13563}# + #{val\ 13564}# + #{e1\ 13565}# + #{e2\ 13566}#) + (#{valid-bound-ids?\ 11214}# #{var\ 13563}#)) + #{tmp\ 13556}#) #f) - (apply (lambda (#{_\ 2646}# - #{var\ 2647}# - #{val\ 2648}# - #{e1\ 2649}# - #{e2\ 2650}#) - (let ((#{names\ 2652}# - (map (lambda (#{x\ 2653}#) - (#{id-var-name\ 279}# - #{x\ 2653}# - #{w\ 2620}#)) - #{var\ 2647}#))) + (apply (lambda (#{_\ 13573}# + #{var\ 13574}# + #{val\ 13575}# + #{e1\ 13576}# + #{e2\ 13577}#) + (let ((#{names\ 13579}# + (map (lambda (#{x\ 13580}#) + (#{id-var-name\ 11208}# + #{x\ 13580}# + #{w\ 13547}#)) + #{var\ 13574}#))) (begin (for-each - (lambda (#{id\ 2656}# #{n\ 2657}#) - (let ((#{atom-key\ 2662}# - (#{binding-type\ 205}# - (#{lookup\ 216}# - #{n\ 2657}# - #{r\ 2619}# - #{mod\ 2622}#)))) - (if (memv #{atom-key\ 2662}# + (lambda (#{id\ 13583}# #{n\ 13584}#) + (let ((#{atom-key\ 13589}# + (#{binding-type\ 11134}# + (#{lookup\ 11145}# + #{n\ 13584}# + #{r\ 13546}# + #{mod\ 13549}#)))) + (if (memv #{atom-key\ 13589}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2618}# - (#{source-wrap\ 293}# - #{id\ 2656}# - #{w\ 2620}# - #{s\ 2621}# - #{mod\ 2622}#))))) - #{var\ 2647}# - #{names\ 2652}#) - (#{chi-body\ 315}# - (cons #{e1\ 2649}# #{e2\ 2650}#) - (#{source-wrap\ 293}# - #{e\ 2618}# - #{w\ 2620}# - #{s\ 2621}# - #{mod\ 2622}#) - (#{extend-env\ 210}# - #{names\ 2652}# - (let ((#{trans-r\ 2667}# - (#{macros-only-env\ 214}# - #{r\ 2619}#))) - (map (lambda (#{x\ 2668}#) + #{e\ 13545}# + (#{source-wrap\ 11222}# + #{id\ 13583}# + #{w\ 13547}# + #{s\ 13548}# + #{mod\ 13549}#))))) + #{var\ 13574}# + #{names\ 13579}#) + (#{chi-body\ 11244}# + (cons #{e1\ 13576}# #{e2\ 13577}#) + (#{source-wrap\ 11222}# + #{e\ 13545}# + #{w\ 13547}# + #{s\ 13548}# + #{mod\ 13549}#) + (#{extend-env\ 11139}# + #{names\ 13579}# + (let ((#{trans-r\ 13594}# + (#{macros-only-env\ 11143}# + #{r\ 13546}#))) + (map (lambda (#{x\ 13595}#) (cons 'macro - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - #{x\ 2668}# - #{trans-r\ 2667}# - #{w\ 2620}# - #{mod\ 2622}#) - #{mod\ 2622}#))) - #{val\ 2648}#)) - #{r\ 2619}#) - #{w\ 2620}# - #{mod\ 2622}#)))) - #{tmp\ 2629}#) - ((lambda (#{_\ 2673}#) + (#{eval-local-transformer\ 11248}# + (#{chi\ 11236}# + #{x\ 13595}# + #{trans-r\ 13594}# + #{w\ 13547}# + #{mod\ 13549}#) + #{mod\ 13549}#))) + #{val\ 13575}#)) + #{r\ 13546}#) + #{w\ 13547}# + #{mod\ 13549}#)))) + #{tmp\ 13556}#) + ((lambda (#{_\ 13600}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 293}# - #{e\ 2618}# - #{w\ 2620}# - #{s\ 2621}# - #{mod\ 2622}#))) - #{tmp\ 2628}#))) + (#{source-wrap\ 11222}# + #{e\ 13545}# + #{w\ 13547}# + #{s\ 13548}# + #{mod\ 13549}#))) + #{tmp\ 13555}#))) ($sc-dispatch - #{tmp\ 2628}# + #{tmp\ 13555}# '(any #(each (any any)) any . each-any)))) - #{e\ 2618}#))) - (#{global-extend\ 218}# + #{e\ 13545}#))) + (#{global-extend\ 11147}# 'core 'quote - (lambda (#{e\ 2674}# - #{r\ 2675}# - #{w\ 2676}# - #{s\ 2677}# - #{mod\ 2678}#) - ((lambda (#{tmp\ 2684}#) - ((lambda (#{tmp\ 2685}#) - (if #{tmp\ 2685}# - (apply (lambda (#{_\ 2688}# #{e\ 2689}#) - (#{build-data\ 172}# - #{s\ 2677}# - (#{strip\ 333}# #{e\ 2689}# #{w\ 2676}#))) - #{tmp\ 2685}#) - ((lambda (#{_\ 2691}#) + (lambda (#{e\ 13601}# + #{r\ 13602}# + #{w\ 13603}# + #{s\ 13604}# + #{mod\ 13605}#) + ((lambda (#{tmp\ 13611}#) + ((lambda (#{tmp\ 13612}#) + (if #{tmp\ 13612}# + (apply (lambda (#{_\ 13615}# #{e\ 13616}#) + (#{build-data\ 11101}# + #{s\ 13604}# + (#{strip\ 11262}# #{e\ 13616}# #{w\ 13603}#))) + #{tmp\ 13612}#) + ((lambda (#{_\ 13618}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 293}# - #{e\ 2674}# - #{w\ 2676}# - #{s\ 2677}# - #{mod\ 2678}#))) - #{tmp\ 2684}#))) - ($sc-dispatch #{tmp\ 2684}# (quote (any any))))) - #{e\ 2674}#))) - (#{global-extend\ 218}# + (#{source-wrap\ 11222}# + #{e\ 13601}# + #{w\ 13603}# + #{s\ 13604}# + #{mod\ 13605}#))) + #{tmp\ 13611}#))) + ($sc-dispatch #{tmp\ 13611}# (quote (any any))))) + #{e\ 13601}#))) + (#{global-extend\ 11147}# 'core 'syntax - (letrec ((#{regen\ 2707}# - (lambda (#{x\ 2708}#) - (let ((#{atom-key\ 2712}# (car #{x\ 2708}#))) - (if (memv #{atom-key\ 2712}# (quote (ref))) - (#{build-lexical-reference\ 150}# + (letrec ((#{regen\ 13634}# + (lambda (#{x\ 13635}#) + (let ((#{atom-key\ 13639}# (car #{x\ 13635}#))) + (if (memv #{atom-key\ 13639}# (quote (ref))) + (#{build-lexical-reference\ 11079}# 'value #f - (cadr #{x\ 2708}#) - (cadr #{x\ 2708}#)) - (if (memv #{atom-key\ 2712}# (quote (primitive))) - (#{build-primref\ 170}# #f (cadr #{x\ 2708}#)) - (if (memv #{atom-key\ 2712}# (quote (quote))) - (#{build-data\ 172}# #f (cadr #{x\ 2708}#)) - (if (memv #{atom-key\ 2712}# (quote (lambda))) - (if (list? (cadr #{x\ 2708}#)) - (#{build-simple-lambda\ 164}# + (cadr #{x\ 13635}#) + (cadr #{x\ 13635}#)) + (if (memv #{atom-key\ 13639}# (quote (primitive))) + (#{build-primref\ 11099}# #f (cadr #{x\ 13635}#)) + (if (memv #{atom-key\ 13639}# (quote (quote))) + (#{build-data\ 11101}# #f (cadr #{x\ 13635}#)) + (if (memv #{atom-key\ 13639}# (quote (lambda))) + (if (list? (cadr #{x\ 13635}#)) + (#{build-simple-lambda\ 11093}# #f - (cadr #{x\ 2708}#) + (cadr #{x\ 13635}#) #f - (cadr #{x\ 2708}#) + (cadr #{x\ 13635}#) '() - (#{regen\ 2707}# (caddr #{x\ 2708}#))) - (error "how did we get here" #{x\ 2708}#)) - (#{build-application\ 144}# + (#{regen\ 13634}# (caddr #{x\ 13635}#))) + (error "how did we get here" #{x\ 13635}#)) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# #f (car #{x\ 2708}#)) - (map #{regen\ 2707}# - (cdr #{x\ 2708}#)))))))))) - (#{gen-vector\ 2705}# - (lambda (#{x\ 2724}#) - (if (eq? (car #{x\ 2724}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2724}#)) - (if (eq? (car #{x\ 2724}#) (quote quote)) + (#{build-primref\ 11099}# + #f + (car #{x\ 13635}#)) + (map #{regen\ 13634}# + (cdr #{x\ 13635}#)))))))))) + (#{gen-vector\ 13632}# + (lambda (#{x\ 13651}#) + (if (eq? (car #{x\ 13651}#) (quote list)) + (cons (quote vector) (cdr #{x\ 13651}#)) + (if (eq? (car #{x\ 13651}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 2724}#))) - (list (quote list->vector) #{x\ 2724}#))))) - (#{gen-append\ 2703}# - (lambda (#{x\ 2734}# #{y\ 2735}#) - (if (equal? #{y\ 2735}# (quote (quote ()))) - #{x\ 2734}# - (list (quote append) #{x\ 2734}# #{y\ 2735}#)))) - (#{gen-cons\ 2701}# - (lambda (#{x\ 2739}# #{y\ 2740}#) - (let ((#{atom-key\ 2745}# (car #{y\ 2740}#))) - (if (memv #{atom-key\ 2745}# (quote (quote))) - (if (eq? (car #{x\ 2739}#) (quote quote)) + (list->vector (cadr #{x\ 13651}#))) + (list (quote list->vector) #{x\ 13651}#))))) + (#{gen-append\ 13630}# + (lambda (#{x\ 13661}# #{y\ 13662}#) + (if (equal? #{y\ 13662}# (quote (quote ()))) + #{x\ 13661}# + (list (quote append) #{x\ 13661}# #{y\ 13662}#)))) + (#{gen-cons\ 13628}# + (lambda (#{x\ 13666}# #{y\ 13667}#) + (let ((#{atom-key\ 13672}# (car #{y\ 13667}#))) + (if (memv #{atom-key\ 13672}# (quote (quote))) + (if (eq? (car #{x\ 13666}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 2739}#) (cadr #{y\ 2740}#))) - (if (eq? (cadr #{y\ 2740}#) (quote ())) - (list (quote list) #{x\ 2739}#) - (list (quote cons) #{x\ 2739}# #{y\ 2740}#))) - (if (memv #{atom-key\ 2745}# (quote (list))) + (cons (cadr #{x\ 13666}#) + (cadr #{y\ 13667}#))) + (if (eq? (cadr #{y\ 13667}#) (quote ())) + (list (quote list) #{x\ 13666}#) + (list (quote cons) #{x\ 13666}# #{y\ 13667}#))) + (if (memv #{atom-key\ 13672}# (quote (list))) (cons 'list - (cons #{x\ 2739}# (cdr #{y\ 2740}#))) - (list (quote cons) #{x\ 2739}# #{y\ 2740}#)))))) - (#{gen-map\ 2699}# - (lambda (#{e\ 2754}# #{map-env\ 2755}#) - (let ((#{formals\ 2760}# (map cdr #{map-env\ 2755}#)) - (#{actuals\ 2761}# - (map (lambda (#{x\ 2762}#) - (list (quote ref) (car #{x\ 2762}#))) - #{map-env\ 2755}#))) - (if (eq? (car #{e\ 2754}#) (quote ref)) - (car #{actuals\ 2761}#) + (cons #{x\ 13666}# (cdr #{y\ 13667}#))) + (list (quote cons) #{x\ 13666}# #{y\ 13667}#)))))) + (#{gen-map\ 13626}# + (lambda (#{e\ 13681}# #{map-env\ 13682}#) + (let ((#{formals\ 13687}# (map cdr #{map-env\ 13682}#)) + (#{actuals\ 13688}# + (map (lambda (#{x\ 13689}#) + (list (quote ref) (car #{x\ 13689}#))) + #{map-env\ 13682}#))) + (if (eq? (car #{e\ 13681}#) (quote ref)) + (car #{actuals\ 13688}#) (if (and-map - (lambda (#{x\ 2769}#) - (if (eq? (car #{x\ 2769}#) (quote ref)) - (memq (cadr #{x\ 2769}#) #{formals\ 2760}#) + (lambda (#{x\ 13696}#) + (if (eq? (car #{x\ 13696}#) (quote ref)) + (memq (cadr #{x\ 13696}#) + #{formals\ 13687}#) #f)) - (cdr #{e\ 2754}#)) + (cdr #{e\ 13681}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2754}#)) - (map (let ((#{r\ 2775}# + (car #{e\ 13681}#)) + (map (let ((#{r\ 13702}# (map cons - #{formals\ 2760}# - #{actuals\ 2761}#))) - (lambda (#{x\ 2776}#) - (cdr (assq (cadr #{x\ 2776}#) - #{r\ 2775}#)))) - (cdr #{e\ 2754}#)))) + #{formals\ 13687}# + #{actuals\ 13688}#))) + (lambda (#{x\ 13703}#) + (cdr (assq (cadr #{x\ 13703}#) + #{r\ 13702}#)))) + (cdr #{e\ 13681}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2760}# - #{e\ 2754}#) - #{actuals\ 2761}#))))))) - (#{gen-mappend\ 2697}# - (lambda (#{e\ 2780}# #{map-env\ 2781}#) + #{formals\ 13687}# + #{e\ 13681}#) + #{actuals\ 13688}#))))))) + (#{gen-mappend\ 13624}# + (lambda (#{e\ 13707}# #{map-env\ 13708}#) (list 'apply '(primitive append) - (#{gen-map\ 2699}# #{e\ 2780}# #{map-env\ 2781}#)))) - (#{gen-ref\ 2695}# - (lambda (#{src\ 2785}# - #{var\ 2786}# - #{level\ 2787}# - #{maps\ 2788}#) - (if (#{fx=\ 127}# #{level\ 2787}# 0) - (values #{var\ 2786}# #{maps\ 2788}#) - (if (null? #{maps\ 2788}#) + (#{gen-map\ 13626}# + #{e\ 13707}# + #{map-env\ 13708}#)))) + (#{gen-ref\ 13622}# + (lambda (#{src\ 13712}# + #{var\ 13713}# + #{level\ 13714}# + #{maps\ 13715}#) + (if (#{fx=\ 11056}# #{level\ 13714}# 0) + (values #{var\ 13713}# #{maps\ 13715}#) + (if (null? #{maps\ 13715}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2785}#) + #{src\ 13712}#) (call-with-values (lambda () - (#{gen-ref\ 2695}# - #{src\ 2785}# - #{var\ 2786}# - (#{fx-\ 125}# #{level\ 2787}# 1) - (cdr #{maps\ 2788}#))) - (lambda (#{outer-var\ 2793}# #{outer-maps\ 2794}#) - (let ((#{b\ 2798}# - (assq #{outer-var\ 2793}# - (car #{maps\ 2788}#)))) - (if #{b\ 2798}# - (values (cdr #{b\ 2798}#) #{maps\ 2788}#) - (let ((#{inner-var\ 2800}# - (#{gen-var\ 335}# (quote tmp)))) + (#{gen-ref\ 13622}# + #{src\ 13712}# + #{var\ 13713}# + (#{fx-\ 11054}# #{level\ 13714}# 1) + (cdr #{maps\ 13715}#))) + (lambda (#{outer-var\ 13720}# #{outer-maps\ 13721}#) + (let ((#{b\ 13725}# + (assq #{outer-var\ 13720}# + (car #{maps\ 13715}#)))) + (if #{b\ 13725}# + (values (cdr #{b\ 13725}#) #{maps\ 13715}#) + (let ((#{inner-var\ 13727}# + (#{gen-var\ 11264}# (quote tmp)))) (values - #{inner-var\ 2800}# - (cons (cons (cons #{outer-var\ 2793}# - #{inner-var\ 2800}#) - (car #{maps\ 2788}#)) - #{outer-maps\ 2794}#))))))))))) - (#{gen-syntax\ 2693}# - (lambda (#{src\ 2801}# - #{e\ 2802}# - #{r\ 2803}# - #{maps\ 2804}# - #{ellipsis?\ 2805}# - #{mod\ 2806}#) - (if (#{id?\ 222}# #{e\ 2802}#) - (let ((#{label\ 2814}# - (#{id-var-name\ 279}# - #{e\ 2802}# + #{inner-var\ 13727}# + (cons (cons (cons #{outer-var\ 13720}# + #{inner-var\ 13727}#) + (car #{maps\ 13715}#)) + #{outer-maps\ 13721}#))))))))))) + (#{gen-syntax\ 13620}# + (lambda (#{src\ 13728}# + #{e\ 13729}# + #{r\ 13730}# + #{maps\ 13731}# + #{ellipsis?\ 13732}# + #{mod\ 13733}#) + (if (#{id?\ 11151}# #{e\ 13729}#) + (let ((#{label\ 13741}# + (#{id-var-name\ 11208}# + #{e\ 13729}# '(())))) - (let ((#{b\ 2817}# - (#{lookup\ 216}# - #{label\ 2814}# - #{r\ 2803}# - #{mod\ 2806}#))) - (if (eq? (#{binding-type\ 205}# #{b\ 2817}#) + (let ((#{b\ 13744}# + (#{lookup\ 11145}# + #{label\ 13741}# + #{r\ 13730}# + #{mod\ 13733}#))) + (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 2819}# - (#{binding-value\ 207}# #{b\ 2817}#))) - (#{gen-ref\ 2695}# - #{src\ 2801}# - (car #{var.lev\ 2819}#) - (cdr #{var.lev\ 2819}#) - #{maps\ 2804}#))) - (lambda (#{var\ 2820}# #{maps\ 2821}#) + (let ((#{var.lev\ 13746}# + (#{binding-value\ 11136}# + #{b\ 13744}#))) + (#{gen-ref\ 13622}# + #{src\ 13728}# + (car #{var.lev\ 13746}#) + (cdr #{var.lev\ 13746}#) + #{maps\ 13731}#))) + (lambda (#{var\ 13747}# #{maps\ 13748}#) (values - (list (quote ref) #{var\ 2820}#) - #{maps\ 2821}#))) - (if (#{ellipsis?\ 2805}# #{e\ 2802}#) + (list (quote ref) #{var\ 13747}#) + #{maps\ 13748}#))) + (if (#{ellipsis?\ 13732}# #{e\ 13729}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2801}#) + #{src\ 13728}#) (values - (list (quote quote) #{e\ 2802}#) - #{maps\ 2804}#))))) - ((lambda (#{tmp\ 2826}#) - ((lambda (#{tmp\ 2827}#) - (if (if #{tmp\ 2827}# - (apply (lambda (#{dots\ 2830}# #{e\ 2831}#) - (#{ellipsis?\ 2805}# - #{dots\ 2830}#)) - #{tmp\ 2827}#) + (list (quote quote) #{e\ 13729}#) + #{maps\ 13731}#))))) + ((lambda (#{tmp\ 13753}#) + ((lambda (#{tmp\ 13754}#) + (if (if #{tmp\ 13754}# + (apply (lambda (#{dots\ 13757}# + #{e\ 13758}#) + (#{ellipsis?\ 13732}# + #{dots\ 13757}#)) + #{tmp\ 13754}#) #f) - (apply (lambda (#{dots\ 2834}# #{e\ 2835}#) - (#{gen-syntax\ 2693}# - #{src\ 2801}# - #{e\ 2835}# - #{r\ 2803}# - #{maps\ 2804}# - (lambda (#{x\ 2836}#) #f) - #{mod\ 2806}#)) - #{tmp\ 2827}#) - ((lambda (#{tmp\ 2838}#) - (if (if #{tmp\ 2838}# - (apply (lambda (#{x\ 2842}# - #{dots\ 2843}# - #{y\ 2844}#) - (#{ellipsis?\ 2805}# - #{dots\ 2843}#)) - #{tmp\ 2838}#) + (apply (lambda (#{dots\ 13761}# #{e\ 13762}#) + (#{gen-syntax\ 13620}# + #{src\ 13728}# + #{e\ 13762}# + #{r\ 13730}# + #{maps\ 13731}# + (lambda (#{x\ 13763}#) #f) + #{mod\ 13733}#)) + #{tmp\ 13754}#) + ((lambda (#{tmp\ 13765}#) + (if (if #{tmp\ 13765}# + (apply (lambda (#{x\ 13769}# + #{dots\ 13770}# + #{y\ 13771}#) + (#{ellipsis?\ 13732}# + #{dots\ 13770}#)) + #{tmp\ 13765}#) #f) - (apply (lambda (#{x\ 2848}# - #{dots\ 2849}# - #{y\ 2850}#) - (letrec ((#{f\ 2854}# - (lambda (#{y\ 2855}# - #{k\ 2856}#) - ((lambda (#{tmp\ 2863}#) - ((lambda (#{tmp\ 2864}#) - (if (if #{tmp\ 2864}# - (apply (lambda (#{dots\ 2867}# - #{y\ 2868}#) - (#{ellipsis?\ 2805}# - #{dots\ 2867}#)) - #{tmp\ 2864}#) + (apply (lambda (#{x\ 13775}# + #{dots\ 13776}# + #{y\ 13777}#) + (letrec ((#{f\ 13781}# + (lambda (#{y\ 13782}# + #{k\ 13783}#) + ((lambda (#{tmp\ 13790}#) + ((lambda (#{tmp\ 13791}#) + (if (if #{tmp\ 13791}# + (apply (lambda (#{dots\ 13794}# + #{y\ 13795}#) + (#{ellipsis?\ 13732}# + #{dots\ 13794}#)) + #{tmp\ 13791}#) #f) - (apply (lambda (#{dots\ 2871}# - #{y\ 2872}#) - (#{f\ 2854}# - #{y\ 2872}# - (lambda (#{maps\ 2873}#) + (apply (lambda (#{dots\ 13798}# + #{y\ 13799}#) + (#{f\ 13781}# + #{y\ 13799}# + (lambda (#{maps\ 13800}#) (call-with-values (lambda () - (#{k\ 2856}# + (#{k\ 13783}# (cons '() - #{maps\ 2873}#))) - (lambda (#{x\ 2875}# - #{maps\ 2876}#) - (if (null? (car #{maps\ 2876}#)) + #{maps\ 13800}#))) + (lambda (#{x\ 13802}# + #{maps\ 13803}#) + (if (null? (car #{maps\ 13803}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2801}#) + #{src\ 13728}#) (values - (#{gen-mappend\ 2697}# - #{x\ 2875}# - (car #{maps\ 2876}#)) - (cdr #{maps\ 2876}#)))))))) - #{tmp\ 2864}#) - ((lambda (#{_\ 2880}#) + (#{gen-mappend\ 13624}# + #{x\ 13802}# + (car #{maps\ 13803}#)) + (cdr #{maps\ 13803}#)))))))) + #{tmp\ 13791}#) + ((lambda (#{_\ 13807}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{src\ 2801}# - #{y\ 2855}# - #{r\ 2803}# - #{maps\ 2804}# - #{ellipsis?\ 2805}# - #{mod\ 2806}#)) - (lambda (#{y\ 2881}# - #{maps\ 2882}#) + (#{gen-syntax\ 13620}# + #{src\ 13728}# + #{y\ 13782}# + #{r\ 13730}# + #{maps\ 13731}# + #{ellipsis?\ 13732}# + #{mod\ 13733}#)) + (lambda (#{y\ 13808}# + #{maps\ 13809}#) (call-with-values (lambda () - (#{k\ 2856}# - #{maps\ 2882}#)) - (lambda (#{x\ 2885}# - #{maps\ 2886}#) + (#{k\ 13783}# + #{maps\ 13809}#)) + (lambda (#{x\ 13812}# + #{maps\ 13813}#) (values - (#{gen-append\ 2703}# - #{x\ 2885}# - #{y\ 2881}#) - #{maps\ 2886}#)))))) - #{tmp\ 2863}#))) + (#{gen-append\ 13630}# + #{x\ 13812}# + #{y\ 13808}#) + #{maps\ 13813}#)))))) + #{tmp\ 13790}#))) ($sc-dispatch - #{tmp\ 2863}# + #{tmp\ 13790}# '(any . any)))) - #{y\ 2855}#)))) - (#{f\ 2854}# - #{y\ 2850}# - (lambda (#{maps\ 2857}#) + #{y\ 13782}#)))) + (#{f\ 13781}# + #{y\ 13777}# + (lambda (#{maps\ 13784}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{src\ 2801}# - #{x\ 2848}# - #{r\ 2803}# + (#{gen-syntax\ 13620}# + #{src\ 13728}# + #{x\ 13775}# + #{r\ 13730}# (cons '() - #{maps\ 2857}#) - #{ellipsis?\ 2805}# - #{mod\ 2806}#)) - (lambda (#{x\ 2859}# - #{maps\ 2860}#) - (if (null? (car #{maps\ 2860}#)) + #{maps\ 13784}#) + #{ellipsis?\ 13732}# + #{mod\ 13733}#)) + (lambda (#{x\ 13786}# + #{maps\ 13787}#) + (if (null? (car #{maps\ 13787}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2801}#) + #{src\ 13728}#) (values - (#{gen-map\ 2699}# - #{x\ 2859}# - (car #{maps\ 2860}#)) - (cdr #{maps\ 2860}#))))))))) - #{tmp\ 2838}#) - ((lambda (#{tmp\ 2889}#) - (if #{tmp\ 2889}# - (apply (lambda (#{x\ 2892}# - #{y\ 2893}#) + (#{gen-map\ 13626}# + #{x\ 13786}# + (car #{maps\ 13787}#)) + (cdr #{maps\ 13787}#))))))))) + #{tmp\ 13765}#) + ((lambda (#{tmp\ 13816}#) + (if #{tmp\ 13816}# + (apply (lambda (#{x\ 13819}# + #{y\ 13820}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{src\ 2801}# - #{x\ 2892}# - #{r\ 2803}# - #{maps\ 2804}# - #{ellipsis?\ 2805}# - #{mod\ 2806}#)) - (lambda (#{x\ 2894}# - #{maps\ 2895}#) + (#{gen-syntax\ 13620}# + #{src\ 13728}# + #{x\ 13819}# + #{r\ 13730}# + #{maps\ 13731}# + #{ellipsis?\ 13732}# + #{mod\ 13733}#)) + (lambda (#{x\ 13821}# + #{maps\ 13822}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{src\ 2801}# - #{y\ 2893}# - #{r\ 2803}# - #{maps\ 2895}# - #{ellipsis?\ 2805}# - #{mod\ 2806}#)) - (lambda (#{y\ 2898}# - #{maps\ 2899}#) + (#{gen-syntax\ 13620}# + #{src\ 13728}# + #{y\ 13820}# + #{r\ 13730}# + #{maps\ 13822}# + #{ellipsis?\ 13732}# + #{mod\ 13733}#)) + (lambda (#{y\ 13825}# + #{maps\ 13826}#) (values - (#{gen-cons\ 2701}# - #{x\ 2894}# - #{y\ 2898}#) - #{maps\ 2899}#)))))) - #{tmp\ 2889}#) - ((lambda (#{tmp\ 2902}#) - (if #{tmp\ 2902}# - (apply (lambda (#{e1\ 2905}# - #{e2\ 2906}#) + (#{gen-cons\ 13628}# + #{x\ 13821}# + #{y\ 13825}#) + #{maps\ 13826}#)))))) + #{tmp\ 13816}#) + ((lambda (#{tmp\ 13829}#) + (if #{tmp\ 13829}# + (apply (lambda (#{e1\ 13832}# + #{e2\ 13833}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{src\ 2801}# - (cons #{e1\ 2905}# - #{e2\ 2906}#) - #{r\ 2803}# - #{maps\ 2804}# - #{ellipsis?\ 2805}# - #{mod\ 2806}#)) - (lambda (#{e\ 2908}# - #{maps\ 2909}#) + (#{gen-syntax\ 13620}# + #{src\ 13728}# + (cons #{e1\ 13832}# + #{e2\ 13833}#) + #{r\ 13730}# + #{maps\ 13731}# + #{ellipsis?\ 13732}# + #{mod\ 13733}#)) + (lambda (#{e\ 13835}# + #{maps\ 13836}#) (values - (#{gen-vector\ 2705}# - #{e\ 2908}#) - #{maps\ 2909}#)))) - #{tmp\ 2902}#) - ((lambda (#{_\ 2913}#) + (#{gen-vector\ 13632}# + #{e\ 13835}#) + #{maps\ 13836}#)))) + #{tmp\ 13829}#) + ((lambda (#{_\ 13840}#) (values (list 'quote - #{e\ 2802}#) - #{maps\ 2804}#)) - #{tmp\ 2826}#))) + #{e\ 13729}#) + #{maps\ 13731}#)) + #{tmp\ 13753}#))) ($sc-dispatch - #{tmp\ 2826}# + #{tmp\ 13753}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2826}# + #{tmp\ 13753}# '(any . any))))) ($sc-dispatch - #{tmp\ 2826}# + #{tmp\ 13753}# '(any any . any))))) - ($sc-dispatch #{tmp\ 2826}# (quote (any any))))) - #{e\ 2802}#))))) - (lambda (#{e\ 2915}# - #{r\ 2916}# - #{w\ 2917}# - #{s\ 2918}# - #{mod\ 2919}#) - (let ((#{e\ 2926}# - (#{source-wrap\ 293}# - #{e\ 2915}# - #{w\ 2917}# - #{s\ 2918}# - #{mod\ 2919}#))) - ((lambda (#{tmp\ 2927}#) - ((lambda (#{tmp\ 2928}#) - (if #{tmp\ 2928}# - (apply (lambda (#{_\ 2931}# #{x\ 2932}#) + ($sc-dispatch #{tmp\ 13753}# (quote (any any))))) + #{e\ 13729}#))))) + (lambda (#{e\ 13842}# + #{r\ 13843}# + #{w\ 13844}# + #{s\ 13845}# + #{mod\ 13846}#) + (let ((#{e\ 13853}# + (#{source-wrap\ 11222}# + #{e\ 13842}# + #{w\ 13844}# + #{s\ 13845}# + #{mod\ 13846}#))) + ((lambda (#{tmp\ 13854}#) + ((lambda (#{tmp\ 13855}#) + (if #{tmp\ 13855}# + (apply (lambda (#{_\ 13858}# #{x\ 13859}#) (call-with-values (lambda () - (#{gen-syntax\ 2693}# - #{e\ 2926}# - #{x\ 2932}# - #{r\ 2916}# + (#{gen-syntax\ 13620}# + #{e\ 13853}# + #{x\ 13859}# + #{r\ 13843}# '() - #{ellipsis?\ 323}# - #{mod\ 2919}#)) - (lambda (#{e\ 2933}# #{maps\ 2934}#) - (#{regen\ 2707}# #{e\ 2933}#)))) - #{tmp\ 2928}#) - ((lambda (#{_\ 2938}#) + #{ellipsis?\ 11252}# + #{mod\ 13846}#)) + (lambda (#{e\ 13860}# #{maps\ 13861}#) + (#{regen\ 13634}# #{e\ 13860}#)))) + #{tmp\ 13855}#) + ((lambda (#{_\ 13865}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2926}#)) - #{tmp\ 2927}#))) - ($sc-dispatch #{tmp\ 2927}# (quote (any any))))) - #{e\ 2926}#))))) - (#{global-extend\ 218}# + #{e\ 13853}#)) + #{tmp\ 13854}#))) + ($sc-dispatch #{tmp\ 13854}# (quote (any any))))) + #{e\ 13853}#))))) + (#{global-extend\ 11147}# 'core 'lambda - (lambda (#{e\ 2939}# - #{r\ 2940}# - #{w\ 2941}# - #{s\ 2942}# - #{mod\ 2943}#) - ((lambda (#{tmp\ 2949}#) - ((lambda (#{tmp\ 2950}#) - (if #{tmp\ 2950}# - (apply (lambda (#{_\ 2955}# - #{args\ 2956}# - #{e1\ 2957}# - #{e2\ 2958}#) + (lambda (#{e\ 13866}# + #{r\ 13867}# + #{w\ 13868}# + #{s\ 13869}# + #{mod\ 13870}#) + ((lambda (#{tmp\ 13876}#) + ((lambda (#{tmp\ 13877}#) + (if #{tmp\ 13877}# + (apply (lambda (#{_\ 13882}# + #{args\ 13883}# + #{e1\ 13884}# + #{e2\ 13885}#) (call-with-values (lambda () - (#{lambda-formals\ 325}# #{args\ 2956}#)) - (lambda (#{req\ 2959}# - #{opt\ 2960}# - #{rest\ 2961}# - #{kw\ 2962}#) - (letrec ((#{lp\ 2970}# - (lambda (#{body\ 2971}# - #{meta\ 2972}#) - ((lambda (#{tmp\ 2974}#) - ((lambda (#{tmp\ 2975}#) - (if (if #{tmp\ 2975}# - (apply (lambda (#{docstring\ 2979}# - #{e1\ 2980}# - #{e2\ 2981}#) + (#{lambda-formals\ 11254}# #{args\ 13883}#)) + (lambda (#{req\ 13886}# + #{opt\ 13887}# + #{rest\ 13888}# + #{kw\ 13889}#) + (letrec ((#{lp\ 13897}# + (lambda (#{body\ 13898}# + #{meta\ 13899}#) + ((lambda (#{tmp\ 13901}#) + ((lambda (#{tmp\ 13902}#) + (if (if #{tmp\ 13902}# + (apply (lambda (#{docstring\ 13906}# + #{e1\ 13907}# + #{e2\ 13908}#) (string? (syntax->datum - #{docstring\ 2979}#))) - #{tmp\ 2975}#) + #{docstring\ 13906}#))) + #{tmp\ 13902}#) #f) - (apply (lambda (#{docstring\ 2985}# - #{e1\ 2986}# - #{e2\ 2987}#) - (#{lp\ 2970}# - (cons #{e1\ 2986}# - #{e2\ 2987}#) + (apply (lambda (#{docstring\ 13912}# + #{e1\ 13913}# + #{e2\ 13914}#) + (#{lp\ 13897}# + (cons #{e1\ 13913}# + #{e2\ 13914}#) (append - #{meta\ 2972}# + #{meta\ 13899}# (list (cons 'documentation (syntax->datum - #{docstring\ 2985}#)))))) - #{tmp\ 2975}#) - ((lambda (#{tmp\ 2990}#) - (if #{tmp\ 2990}# - (apply (lambda (#{k\ 2995}# - #{v\ 2996}# - #{e1\ 2997}# - #{e2\ 2998}#) - (#{lp\ 2970}# - (cons #{e1\ 2997}# - #{e2\ 2998}#) + #{docstring\ 13912}#)))))) + #{tmp\ 13902}#) + ((lambda (#{tmp\ 13917}#) + (if #{tmp\ 13917}# + (apply (lambda (#{k\ 13922}# + #{v\ 13923}# + #{e1\ 13924}# + #{e2\ 13925}#) + (#{lp\ 13897}# + (cons #{e1\ 13924}# + #{e2\ 13925}#) (append - #{meta\ 2972}# + #{meta\ 13899}# (syntax->datum (map cons - #{k\ 2995}# - #{v\ 2996}#))))) - #{tmp\ 2990}#) - ((lambda (#{_\ 3003}#) - (#{chi-simple-lambda\ 327}# - #{e\ 2939}# - #{r\ 2940}# - #{w\ 2941}# - #{s\ 2942}# - #{mod\ 2943}# - #{req\ 2959}# - #{rest\ 2961}# - #{meta\ 2972}# - #{body\ 2971}#)) - #{tmp\ 2974}#))) + #{k\ 13922}# + #{v\ 13923}#))))) + #{tmp\ 13917}#) + ((lambda (#{_\ 13930}#) + (#{chi-simple-lambda\ 11256}# + #{e\ 13866}# + #{r\ 13867}# + #{w\ 13868}# + #{s\ 13869}# + #{mod\ 13870}# + #{req\ 13886}# + #{rest\ 13888}# + #{meta\ 13899}# + #{body\ 13898}#)) + #{tmp\ 13901}#))) ($sc-dispatch - #{tmp\ 2974}# + #{tmp\ 13901}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 2974}# + #{tmp\ 13901}# '(any any . each-any)))) - #{body\ 2971}#)))) - (#{lp\ 2970}# - (cons #{e1\ 2957}# #{e2\ 2958}#) + #{body\ 13898}#)))) + (#{lp\ 13897}# + (cons #{e1\ 13884}# #{e2\ 13885}#) '()))))) - #{tmp\ 2950}#) - ((lambda (#{_\ 3005}#) + #{tmp\ 13877}#) + ((lambda (#{_\ 13932}#) (syntax-violation 'lambda "bad lambda" - #{e\ 2939}#)) - #{tmp\ 2949}#))) + #{e\ 13866}#)) + #{tmp\ 13876}#))) ($sc-dispatch - #{tmp\ 2949}# + #{tmp\ 13876}# '(any any any . each-any)))) - #{e\ 2939}#))) - (#{global-extend\ 218}# + #{e\ 13866}#))) + (#{global-extend\ 11147}# 'core 'lambda* - (lambda (#{e\ 3006}# - #{r\ 3007}# - #{w\ 3008}# - #{s\ 3009}# - #{mod\ 3010}#) - ((lambda (#{tmp\ 3016}#) - ((lambda (#{tmp\ 3017}#) - (if #{tmp\ 3017}# - (apply (lambda (#{_\ 3022}# - #{args\ 3023}# - #{e1\ 3024}# - #{e2\ 3025}#) + (lambda (#{e\ 13933}# + #{r\ 13934}# + #{w\ 13935}# + #{s\ 13936}# + #{mod\ 13937}#) + ((lambda (#{tmp\ 13943}#) + ((lambda (#{tmp\ 13944}#) + (if #{tmp\ 13944}# + (apply (lambda (#{_\ 13949}# + #{args\ 13950}# + #{e1\ 13951}# + #{e2\ 13952}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3006}# - #{r\ 3007}# - #{w\ 3008}# - #{s\ 3009}# - #{mod\ 3010}# - #{lambda*-formals\ 329}# - (list (cons #{args\ 3023}# - (cons #{e1\ 3024}# - #{e2\ 3025}#))))) - (lambda (#{meta\ 3027}# #{lcase\ 3028}#) - (#{build-case-lambda\ 166}# - #{s\ 3009}# - #{meta\ 3027}# - #{lcase\ 3028}#)))) - #{tmp\ 3017}#) - ((lambda (#{_\ 3032}#) + (#{chi-lambda-case\ 11260}# + #{e\ 13933}# + #{r\ 13934}# + #{w\ 13935}# + #{s\ 13936}# + #{mod\ 13937}# + #{lambda*-formals\ 11258}# + (list (cons #{args\ 13950}# + (cons #{e1\ 13951}# + #{e2\ 13952}#))))) + (lambda (#{meta\ 13954}# #{lcase\ 13955}#) + (#{build-case-lambda\ 11095}# + #{s\ 13936}# + #{meta\ 13954}# + #{lcase\ 13955}#)))) + #{tmp\ 13944}#) + ((lambda (#{_\ 13959}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3006}#)) - #{tmp\ 3016}#))) + #{e\ 13933}#)) + #{tmp\ 13943}#))) ($sc-dispatch - #{tmp\ 3016}# + #{tmp\ 13943}# '(any any any . each-any)))) - #{e\ 3006}#))) - (#{global-extend\ 218}# + #{e\ 13933}#))) + (#{global-extend\ 11147}# 'core 'case-lambda - (lambda (#{e\ 3033}# - #{r\ 3034}# - #{w\ 3035}# - #{s\ 3036}# - #{mod\ 3037}#) - ((lambda (#{tmp\ 3043}#) - ((lambda (#{tmp\ 3044}#) - (if #{tmp\ 3044}# - (apply (lambda (#{_\ 3052}# - #{args\ 3053}# - #{e1\ 3054}# - #{e2\ 3055}# - #{args*\ 3056}# - #{e1*\ 3057}# - #{e2*\ 3058}#) + (lambda (#{e\ 13960}# + #{r\ 13961}# + #{w\ 13962}# + #{s\ 13963}# + #{mod\ 13964}#) + ((lambda (#{tmp\ 13970}#) + ((lambda (#{tmp\ 13971}#) + (if #{tmp\ 13971}# + (apply (lambda (#{_\ 13979}# + #{args\ 13980}# + #{e1\ 13981}# + #{e2\ 13982}# + #{args*\ 13983}# + #{e1*\ 13984}# + #{e2*\ 13985}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3033}# - #{r\ 3034}# - #{w\ 3035}# - #{s\ 3036}# - #{mod\ 3037}# - #{lambda-formals\ 325}# - (cons (cons #{args\ 3053}# - (cons #{e1\ 3054}# #{e2\ 3055}#)) - (map (lambda (#{tmp\ 3062}# - #{tmp\ 3061}# - #{tmp\ 3060}#) - (cons #{tmp\ 3060}# - (cons #{tmp\ 3061}# - #{tmp\ 3062}#))) - #{e2*\ 3058}# - #{e1*\ 3057}# - #{args*\ 3056}#)))) - (lambda (#{meta\ 3064}# #{lcase\ 3065}#) - (#{build-case-lambda\ 166}# - #{s\ 3036}# - #{meta\ 3064}# - #{lcase\ 3065}#)))) - #{tmp\ 3044}#) - ((lambda (#{_\ 3069}#) + (#{chi-lambda-case\ 11260}# + #{e\ 13960}# + #{r\ 13961}# + #{w\ 13962}# + #{s\ 13963}# + #{mod\ 13964}# + #{lambda-formals\ 11254}# + (cons (cons #{args\ 13980}# + (cons #{e1\ 13981}# + #{e2\ 13982}#)) + (map (lambda (#{tmp\ 13989}# + #{tmp\ 13988}# + #{tmp\ 13987}#) + (cons #{tmp\ 13987}# + (cons #{tmp\ 13988}# + #{tmp\ 13989}#))) + #{e2*\ 13985}# + #{e1*\ 13984}# + #{args*\ 13983}#)))) + (lambda (#{meta\ 13991}# #{lcase\ 13992}#) + (#{build-case-lambda\ 11095}# + #{s\ 13963}# + #{meta\ 13991}# + #{lcase\ 13992}#)))) + #{tmp\ 13971}#) + ((lambda (#{_\ 13996}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3033}#)) - #{tmp\ 3043}#))) + #{e\ 13960}#)) + #{tmp\ 13970}#))) ($sc-dispatch - #{tmp\ 3043}# + #{tmp\ 13970}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3033}#))) - (#{global-extend\ 218}# + #{e\ 13960}#))) + (#{global-extend\ 11147}# 'core 'case-lambda* - (lambda (#{e\ 3070}# - #{r\ 3071}# - #{w\ 3072}# - #{s\ 3073}# - #{mod\ 3074}#) - ((lambda (#{tmp\ 3080}#) - ((lambda (#{tmp\ 3081}#) - (if #{tmp\ 3081}# - (apply (lambda (#{_\ 3089}# - #{args\ 3090}# - #{e1\ 3091}# - #{e2\ 3092}# - #{args*\ 3093}# - #{e1*\ 3094}# - #{e2*\ 3095}#) + (lambda (#{e\ 13997}# + #{r\ 13998}# + #{w\ 13999}# + #{s\ 14000}# + #{mod\ 14001}#) + ((lambda (#{tmp\ 14007}#) + ((lambda (#{tmp\ 14008}#) + (if #{tmp\ 14008}# + (apply (lambda (#{_\ 14016}# + #{args\ 14017}# + #{e1\ 14018}# + #{e2\ 14019}# + #{args*\ 14020}# + #{e1*\ 14021}# + #{e2*\ 14022}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3070}# - #{r\ 3071}# - #{w\ 3072}# - #{s\ 3073}# - #{mod\ 3074}# - #{lambda*-formals\ 329}# - (cons (cons #{args\ 3090}# - (cons #{e1\ 3091}# #{e2\ 3092}#)) - (map (lambda (#{tmp\ 3099}# - #{tmp\ 3098}# - #{tmp\ 3097}#) - (cons #{tmp\ 3097}# - (cons #{tmp\ 3098}# - #{tmp\ 3099}#))) - #{e2*\ 3095}# - #{e1*\ 3094}# - #{args*\ 3093}#)))) - (lambda (#{meta\ 3101}# #{lcase\ 3102}#) - (#{build-case-lambda\ 166}# - #{s\ 3073}# - #{meta\ 3101}# - #{lcase\ 3102}#)))) - #{tmp\ 3081}#) - ((lambda (#{_\ 3106}#) + (#{chi-lambda-case\ 11260}# + #{e\ 13997}# + #{r\ 13998}# + #{w\ 13999}# + #{s\ 14000}# + #{mod\ 14001}# + #{lambda*-formals\ 11258}# + (cons (cons #{args\ 14017}# + (cons #{e1\ 14018}# + #{e2\ 14019}#)) + (map (lambda (#{tmp\ 14026}# + #{tmp\ 14025}# + #{tmp\ 14024}#) + (cons #{tmp\ 14024}# + (cons #{tmp\ 14025}# + #{tmp\ 14026}#))) + #{e2*\ 14022}# + #{e1*\ 14021}# + #{args*\ 14020}#)))) + (lambda (#{meta\ 14028}# #{lcase\ 14029}#) + (#{build-case-lambda\ 11095}# + #{s\ 14000}# + #{meta\ 14028}# + #{lcase\ 14029}#)))) + #{tmp\ 14008}#) + ((lambda (#{_\ 14033}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3070}#)) - #{tmp\ 3080}#))) + #{e\ 13997}#)) + #{tmp\ 14007}#))) ($sc-dispatch - #{tmp\ 3080}# + #{tmp\ 14007}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3070}#))) - (#{global-extend\ 218}# + #{e\ 13997}#))) + (#{global-extend\ 11147}# 'core 'let - (letrec ((#{chi-let\ 3108}# - (lambda (#{e\ 3109}# - #{r\ 3110}# - #{w\ 3111}# - #{s\ 3112}# - #{mod\ 3113}# - #{constructor\ 3114}# - #{ids\ 3115}# - #{vals\ 3116}# - #{exps\ 3117}#) - (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3115}#)) + (letrec ((#{chi-let\ 14035}# + (lambda (#{e\ 14036}# + #{r\ 14037}# + #{w\ 14038}# + #{s\ 14039}# + #{mod\ 14040}# + #{constructor\ 14041}# + #{ids\ 14042}# + #{vals\ 14043}# + #{exps\ 14044}#) + (if (not (#{valid-bound-ids?\ 11214}# #{ids\ 14042}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3109}#) - (let ((#{labels\ 3129}# - (#{gen-labels\ 240}# #{ids\ 3115}#)) - (#{new-vars\ 3130}# - (map #{gen-var\ 335}# #{ids\ 3115}#))) - (let ((#{nw\ 3133}# - (#{make-binding-wrap\ 269}# - #{ids\ 3115}# - #{labels\ 3129}# - #{w\ 3111}#)) - (#{nr\ 3134}# - (#{extend-var-env\ 212}# - #{labels\ 3129}# - #{new-vars\ 3130}# - #{r\ 3110}#))) - (#{constructor\ 3114}# - #{s\ 3112}# - (map syntax->datum #{ids\ 3115}#) - #{new-vars\ 3130}# - (map (lambda (#{x\ 3135}#) - (#{chi\ 307}# - #{x\ 3135}# - #{r\ 3110}# - #{w\ 3111}# - #{mod\ 3113}#)) - #{vals\ 3116}#) - (#{chi-body\ 315}# - #{exps\ 3117}# - (#{source-wrap\ 293}# - #{e\ 3109}# - #{nw\ 3133}# - #{s\ 3112}# - #{mod\ 3113}#) - #{nr\ 3134}# - #{nw\ 3133}# - #{mod\ 3113}#)))))))) - (lambda (#{e\ 3137}# - #{r\ 3138}# - #{w\ 3139}# - #{s\ 3140}# - #{mod\ 3141}#) - ((lambda (#{tmp\ 3147}#) - ((lambda (#{tmp\ 3148}#) - (if (if #{tmp\ 3148}# - (apply (lambda (#{_\ 3154}# - #{id\ 3155}# - #{val\ 3156}# - #{e1\ 3157}# - #{e2\ 3158}#) - (and-map #{id?\ 222}# #{id\ 3155}#)) - #{tmp\ 3148}#) + #{e\ 14036}#) + (let ((#{labels\ 14056}# + (#{gen-labels\ 11169}# #{ids\ 14042}#)) + (#{new-vars\ 14057}# + (map #{gen-var\ 11264}# #{ids\ 14042}#))) + (let ((#{nw\ 14060}# + (#{make-binding-wrap\ 11198}# + #{ids\ 14042}# + #{labels\ 14056}# + #{w\ 14038}#)) + (#{nr\ 14061}# + (#{extend-var-env\ 11141}# + #{labels\ 14056}# + #{new-vars\ 14057}# + #{r\ 14037}#))) + (#{constructor\ 14041}# + #{s\ 14039}# + (map syntax->datum #{ids\ 14042}#) + #{new-vars\ 14057}# + (map (lambda (#{x\ 14062}#) + (#{chi\ 11236}# + #{x\ 14062}# + #{r\ 14037}# + #{w\ 14038}# + #{mod\ 14040}#)) + #{vals\ 14043}#) + (#{chi-body\ 11244}# + #{exps\ 14044}# + (#{source-wrap\ 11222}# + #{e\ 14036}# + #{nw\ 14060}# + #{s\ 14039}# + #{mod\ 14040}#) + #{nr\ 14061}# + #{nw\ 14060}# + #{mod\ 14040}#)))))))) + (lambda (#{e\ 14064}# + #{r\ 14065}# + #{w\ 14066}# + #{s\ 14067}# + #{mod\ 14068}#) + ((lambda (#{tmp\ 14074}#) + ((lambda (#{tmp\ 14075}#) + (if (if #{tmp\ 14075}# + (apply (lambda (#{_\ 14081}# + #{id\ 14082}# + #{val\ 14083}# + #{e1\ 14084}# + #{e2\ 14085}#) + (and-map #{id?\ 11151}# #{id\ 14082}#)) + #{tmp\ 14075}#) #f) - (apply (lambda (#{_\ 3165}# - #{id\ 3166}# - #{val\ 3167}# - #{e1\ 3168}# - #{e2\ 3169}#) - (#{chi-let\ 3108}# - #{e\ 3137}# - #{r\ 3138}# - #{w\ 3139}# - #{s\ 3140}# - #{mod\ 3141}# - #{build-let\ 176}# - #{id\ 3166}# - #{val\ 3167}# - (cons #{e1\ 3168}# #{e2\ 3169}#))) - #{tmp\ 3148}#) - ((lambda (#{tmp\ 3173}#) - (if (if #{tmp\ 3173}# - (apply (lambda (#{_\ 3180}# - #{f\ 3181}# - #{id\ 3182}# - #{val\ 3183}# - #{e1\ 3184}# - #{e2\ 3185}#) - (if (#{id?\ 222}# #{f\ 3181}#) - (and-map #{id?\ 222}# #{id\ 3182}#) + (apply (lambda (#{_\ 14092}# + #{id\ 14093}# + #{val\ 14094}# + #{e1\ 14095}# + #{e2\ 14096}#) + (#{chi-let\ 14035}# + #{e\ 14064}# + #{r\ 14065}# + #{w\ 14066}# + #{s\ 14067}# + #{mod\ 14068}# + #{build-let\ 11105}# + #{id\ 14093}# + #{val\ 14094}# + (cons #{e1\ 14095}# #{e2\ 14096}#))) + #{tmp\ 14075}#) + ((lambda (#{tmp\ 14100}#) + (if (if #{tmp\ 14100}# + (apply (lambda (#{_\ 14107}# + #{f\ 14108}# + #{id\ 14109}# + #{val\ 14110}# + #{e1\ 14111}# + #{e2\ 14112}#) + (if (#{id?\ 11151}# #{f\ 14108}#) + (and-map #{id?\ 11151}# #{id\ 14109}#) #f)) - #{tmp\ 3173}#) + #{tmp\ 14100}#) #f) - (apply (lambda (#{_\ 3195}# - #{f\ 3196}# - #{id\ 3197}# - #{val\ 3198}# - #{e1\ 3199}# - #{e2\ 3200}#) - (#{chi-let\ 3108}# - #{e\ 3137}# - #{r\ 3138}# - #{w\ 3139}# - #{s\ 3140}# - #{mod\ 3141}# - #{build-named-let\ 178}# - (cons #{f\ 3196}# #{id\ 3197}#) - #{val\ 3198}# - (cons #{e1\ 3199}# #{e2\ 3200}#))) - #{tmp\ 3173}#) - ((lambda (#{_\ 3205}#) + (apply (lambda (#{_\ 14122}# + #{f\ 14123}# + #{id\ 14124}# + #{val\ 14125}# + #{e1\ 14126}# + #{e2\ 14127}#) + (#{chi-let\ 14035}# + #{e\ 14064}# + #{r\ 14065}# + #{w\ 14066}# + #{s\ 14067}# + #{mod\ 14068}# + #{build-named-let\ 11107}# + (cons #{f\ 14123}# #{id\ 14124}#) + #{val\ 14125}# + (cons #{e1\ 14126}# #{e2\ 14127}#))) + #{tmp\ 14100}#) + ((lambda (#{_\ 14132}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 293}# - #{e\ 3137}# - #{w\ 3139}# - #{s\ 3140}# - #{mod\ 3141}#))) - #{tmp\ 3147}#))) + (#{source-wrap\ 11222}# + #{e\ 14064}# + #{w\ 14066}# + #{s\ 14067}# + #{mod\ 14068}#))) + #{tmp\ 14074}#))) ($sc-dispatch - #{tmp\ 3147}# + #{tmp\ 14074}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3147}# + #{tmp\ 14074}# '(any #(each (any any)) any . each-any)))) - #{e\ 3137}#)))) - (#{global-extend\ 218}# + #{e\ 14064}#)))) + (#{global-extend\ 11147}# 'core 'letrec - (lambda (#{e\ 3206}# - #{r\ 3207}# - #{w\ 3208}# - #{s\ 3209}# - #{mod\ 3210}#) - ((lambda (#{tmp\ 3216}#) - ((lambda (#{tmp\ 3217}#) - (if (if #{tmp\ 3217}# - (apply (lambda (#{_\ 3223}# - #{id\ 3224}# - #{val\ 3225}# - #{e1\ 3226}# - #{e2\ 3227}#) - (and-map #{id?\ 222}# #{id\ 3224}#)) - #{tmp\ 3217}#) + (lambda (#{e\ 14133}# + #{r\ 14134}# + #{w\ 14135}# + #{s\ 14136}# + #{mod\ 14137}#) + ((lambda (#{tmp\ 14143}#) + ((lambda (#{tmp\ 14144}#) + (if (if #{tmp\ 14144}# + (apply (lambda (#{_\ 14150}# + #{id\ 14151}# + #{val\ 14152}# + #{e1\ 14153}# + #{e2\ 14154}#) + (and-map #{id?\ 11151}# #{id\ 14151}#)) + #{tmp\ 14144}#) #f) - (apply (lambda (#{_\ 3234}# - #{id\ 3235}# - #{val\ 3236}# - #{e1\ 3237}# - #{e2\ 3238}#) - (let ((#{ids\ 3240}# #{id\ 3235}#)) - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 3240}#)) + (apply (lambda (#{_\ 14161}# + #{id\ 14162}# + #{val\ 14163}# + #{e1\ 14164}# + #{e2\ 14165}#) + (let ((#{ids\ 14167}# #{id\ 14162}#)) + (if (not (#{valid-bound-ids?\ 11214}# + #{ids\ 14167}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3206}#) - (let ((#{labels\ 3244}# - (#{gen-labels\ 240}# #{ids\ 3240}#)) - (#{new-vars\ 3245}# - (map #{gen-var\ 335}# #{ids\ 3240}#))) - (let ((#{w\ 3248}# - (#{make-binding-wrap\ 269}# - #{ids\ 3240}# - #{labels\ 3244}# - #{w\ 3208}#)) - (#{r\ 3249}# - (#{extend-var-env\ 212}# - #{labels\ 3244}# - #{new-vars\ 3245}# - #{r\ 3207}#))) - (#{build-letrec\ 180}# - #{s\ 3209}# - (map syntax->datum #{ids\ 3240}#) - #{new-vars\ 3245}# - (map (lambda (#{x\ 3250}#) - (#{chi\ 307}# - #{x\ 3250}# - #{r\ 3249}# - #{w\ 3248}# - #{mod\ 3210}#)) - #{val\ 3236}#) - (#{chi-body\ 315}# - (cons #{e1\ 3237}# #{e2\ 3238}#) - (#{source-wrap\ 293}# - #{e\ 3206}# - #{w\ 3248}# - #{s\ 3209}# - #{mod\ 3210}#) - #{r\ 3249}# - #{w\ 3248}# - #{mod\ 3210}#))))))) - #{tmp\ 3217}#) - ((lambda (#{_\ 3255}#) + #{e\ 14133}#) + (let ((#{labels\ 14171}# + (#{gen-labels\ 11169}# #{ids\ 14167}#)) + (#{new-vars\ 14172}# + (map #{gen-var\ 11264}# + #{ids\ 14167}#))) + (let ((#{w\ 14175}# + (#{make-binding-wrap\ 11198}# + #{ids\ 14167}# + #{labels\ 14171}# + #{w\ 14135}#)) + (#{r\ 14176}# + (#{extend-var-env\ 11141}# + #{labels\ 14171}# + #{new-vars\ 14172}# + #{r\ 14134}#))) + (#{build-letrec\ 11109}# + #{s\ 14136}# + (map syntax->datum #{ids\ 14167}#) + #{new-vars\ 14172}# + (map (lambda (#{x\ 14177}#) + (#{chi\ 11236}# + #{x\ 14177}# + #{r\ 14176}# + #{w\ 14175}# + #{mod\ 14137}#)) + #{val\ 14163}#) + (#{chi-body\ 11244}# + (cons #{e1\ 14164}# #{e2\ 14165}#) + (#{source-wrap\ 11222}# + #{e\ 14133}# + #{w\ 14175}# + #{s\ 14136}# + #{mod\ 14137}#) + #{r\ 14176}# + #{w\ 14175}# + #{mod\ 14137}#))))))) + #{tmp\ 14144}#) + ((lambda (#{_\ 14182}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 293}# - #{e\ 3206}# - #{w\ 3208}# - #{s\ 3209}# - #{mod\ 3210}#))) - #{tmp\ 3216}#))) + (#{source-wrap\ 11222}# + #{e\ 14133}# + #{w\ 14135}# + #{s\ 14136}# + #{mod\ 14137}#))) + #{tmp\ 14143}#))) ($sc-dispatch - #{tmp\ 3216}# + #{tmp\ 14143}# '(any #(each (any any)) any . each-any)))) - #{e\ 3206}#))) - (#{global-extend\ 218}# + #{e\ 14133}#))) + (#{global-extend\ 11147}# 'core 'set! - (lambda (#{e\ 3256}# - #{r\ 3257}# - #{w\ 3258}# - #{s\ 3259}# - #{mod\ 3260}#) - ((lambda (#{tmp\ 3266}#) - ((lambda (#{tmp\ 3267}#) - (if (if #{tmp\ 3267}# - (apply (lambda (#{_\ 3271}# #{id\ 3272}# #{val\ 3273}#) - (#{id?\ 222}# #{id\ 3272}#)) - #{tmp\ 3267}#) + (lambda (#{e\ 14183}# + #{r\ 14184}# + #{w\ 14185}# + #{s\ 14186}# + #{mod\ 14187}#) + ((lambda (#{tmp\ 14193}#) + ((lambda (#{tmp\ 14194}#) + (if (if #{tmp\ 14194}# + (apply (lambda (#{_\ 14198}# + #{id\ 14199}# + #{val\ 14200}#) + (#{id?\ 11151}# #{id\ 14199}#)) + #{tmp\ 14194}#) #f) - (apply (lambda (#{_\ 3277}# #{id\ 3278}# #{val\ 3279}#) - (let ((#{val\ 3282}# - (#{chi\ 307}# - #{val\ 3279}# - #{r\ 3257}# - #{w\ 3258}# - #{mod\ 3260}#)) - (#{n\ 3283}# - (#{id-var-name\ 279}# - #{id\ 3278}# - #{w\ 3258}#))) - (let ((#{b\ 3285}# - (#{lookup\ 216}# - #{n\ 3283}# - #{r\ 3257}# - #{mod\ 3260}#))) - (let ((#{atom-key\ 3288}# - (#{binding-type\ 205}# #{b\ 3285}#))) - (if (memv #{atom-key\ 3288}# + (apply (lambda (#{_\ 14204}# #{id\ 14205}# #{val\ 14206}#) + (let ((#{val\ 14209}# + (#{chi\ 11236}# + #{val\ 14206}# + #{r\ 14184}# + #{w\ 14185}# + #{mod\ 14187}#)) + (#{n\ 14210}# + (#{id-var-name\ 11208}# + #{id\ 14205}# + #{w\ 14185}#))) + (let ((#{b\ 14212}# + (#{lookup\ 11145}# + #{n\ 14210}# + #{r\ 14184}# + #{mod\ 14187}#))) + (let ((#{atom-key\ 14215}# + (#{binding-type\ 11134}# #{b\ 14212}#))) + (if (memv #{atom-key\ 14215}# '(lexical)) - (#{build-lexical-assignment\ 152}# - #{s\ 3259}# - (syntax->datum #{id\ 3278}#) - (#{binding-value\ 207}# #{b\ 3285}#) - #{val\ 3282}#) - (if (memv #{atom-key\ 3288}# + (#{build-lexical-assignment\ 11081}# + #{s\ 14186}# + (syntax->datum #{id\ 14205}#) + (#{binding-value\ 11136}# #{b\ 14212}#) + #{val\ 14209}#) + (if (memv #{atom-key\ 14215}# '(global)) - (#{build-global-assignment\ 158}# - #{s\ 3259}# - #{n\ 3283}# - #{val\ 3282}# - #{mod\ 3260}#) - (if (memv #{atom-key\ 3288}# + (#{build-global-assignment\ 11087}# + #{s\ 14186}# + #{n\ 14210}# + #{val\ 14209}# + #{mod\ 14187}#) + (if (memv #{atom-key\ 14215}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 291}# - #{id\ 3278}# - #{w\ 3258}# - #{mod\ 3260}#)) + (#{wrap\ 11220}# + #{id\ 14205}# + #{w\ 14185}# + #{mod\ 14187}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 293}# - #{e\ 3256}# - #{w\ 3258}# - #{s\ 3259}# - #{mod\ 3260}#))))))))) - #{tmp\ 3267}#) - ((lambda (#{tmp\ 3293}#) - (if #{tmp\ 3293}# - (apply (lambda (#{_\ 3298}# - #{head\ 3299}# - #{tail\ 3300}# - #{val\ 3301}#) + (#{source-wrap\ 11222}# + #{e\ 14183}# + #{w\ 14185}# + #{s\ 14186}# + #{mod\ 14187}#))))))))) + #{tmp\ 14194}#) + ((lambda (#{tmp\ 14220}#) + (if #{tmp\ 14220}# + (apply (lambda (#{_\ 14225}# + #{head\ 14226}# + #{tail\ 14227}# + #{val\ 14228}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{head\ 3299}# - #{r\ 3257}# + (#{syntax-type\ 11232}# + #{head\ 14226}# + #{r\ 14184}# '(()) #f #f - #{mod\ 3260}# + #{mod\ 14187}# #t)) - (lambda (#{type\ 3304}# - #{value\ 3305}# - #{ee\ 3306}# - #{ww\ 3307}# - #{ss\ 3308}# - #{modmod\ 3309}#) - (if (memv #{type\ 3304}# + (lambda (#{type\ 14231}# + #{value\ 14232}# + #{ee\ 14233}# + #{ww\ 14234}# + #{ss\ 14235}# + #{modmod\ 14236}#) + (if (memv #{type\ 14231}# '(module-ref)) - (let ((#{val\ 3318}# - (#{chi\ 307}# - #{val\ 3301}# - #{r\ 3257}# - #{w\ 3258}# - #{mod\ 3260}#))) + (let ((#{val\ 14245}# + (#{chi\ 11236}# + #{val\ 14228}# + #{r\ 14184}# + #{w\ 14185}# + #{mod\ 14187}#))) (call-with-values (lambda () - (#{value\ 3305}# - (cons #{head\ 3299}# - #{tail\ 3300}#) - #{r\ 3257}# - #{w\ 3258}#)) - (lambda (#{e\ 3320}# - #{r\ 3321}# - #{w\ 3322}# - #{s*\ 3323}# - #{mod\ 3324}#) - ((lambda (#{tmp\ 3330}#) - ((lambda (#{tmp\ 3331}#) - (if (if #{tmp\ 3331}# - (apply (lambda (#{e\ 3333}#) - (#{id?\ 222}# - #{e\ 3333}#)) - #{tmp\ 3331}#) + (#{value\ 14232}# + (cons #{head\ 14226}# + #{tail\ 14227}#) + #{r\ 14184}# + #{w\ 14185}#)) + (lambda (#{e\ 14247}# + #{r\ 14248}# + #{w\ 14249}# + #{s*\ 14250}# + #{mod\ 14251}#) + ((lambda (#{tmp\ 14257}#) + ((lambda (#{tmp\ 14258}#) + (if (if #{tmp\ 14258}# + (apply (lambda (#{e\ 14260}#) + (#{id?\ 11151}# + #{e\ 14260}#)) + #{tmp\ 14258}#) #f) - (apply (lambda (#{e\ 3335}#) - (#{build-global-assignment\ 158}# - #{s\ 3259}# + (apply (lambda (#{e\ 14262}#) + (#{build-global-assignment\ 11087}# + #{s\ 14186}# (syntax->datum - #{e\ 3335}#) - #{val\ 3318}# - #{mod\ 3324}#)) - #{tmp\ 3331}#) + #{e\ 14262}#) + #{val\ 14245}# + #{mod\ 14251}#)) + #{tmp\ 14258}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3330}#))) - (list #{tmp\ 3330}#))) - #{e\ 3320}#)))) - (#{build-application\ 144}# - #{s\ 3259}# - (#{chi\ 307}# + #{tmp\ 14257}#))) + (list #{tmp\ 14257}#))) + #{e\ 14247}#)))) + (#{build-application\ 11073}# + #{s\ 14186}# + (#{chi\ 11236}# (list '#(syntax-object setter ((top) @@ -9431,22 +9512,22 @@ (top) (top) (top)) - #("i3310" - "i3311" - "i3312" - "i3313" - "i3314" - "i3315")) + #("i14237" + "i14238" + "i14239" + "i14240" + "i14241" + "i14242")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3294" - "i3295" - "i3296" - "i3297")) + #("i14221" + "i14222" + "i14223" + "i14224")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9455,11 +9536,11 @@ (top) (top) (top)) - #("i3261" - "i3262" - "i3263" - "i3264" - "i3265")) + #("i14188" + "i14189" + "i14190" + "i14191" + "i14192")) #(ribcage (lambda-var-list gen-var @@ -9577,8 +9658,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -9695,181 +9775,181 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile)) - #{head\ 3299}#) - #{r\ 3257}# - #{w\ 3258}# - #{mod\ 3260}#) - (map (lambda (#{e\ 3337}#) - (#{chi\ 307}# - #{e\ 3337}# - #{r\ 3257}# - #{w\ 3258}# - #{mod\ 3260}#)) + #{head\ 14226}#) + #{r\ 14184}# + #{w\ 14185}# + #{mod\ 14187}#) + (map (lambda (#{e\ 14264}#) + (#{chi\ 11236}# + #{e\ 14264}# + #{r\ 14184}# + #{w\ 14185}# + #{mod\ 14187}#)) (append - #{tail\ 3300}# - (list #{val\ 3301}#)))))))) - #{tmp\ 3293}#) - ((lambda (#{_\ 3341}#) + #{tail\ 14227}# + (list #{val\ 14228}#)))))))) + #{tmp\ 14220}#) + ((lambda (#{_\ 14268}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 293}# - #{e\ 3256}# - #{w\ 3258}# - #{s\ 3259}# - #{mod\ 3260}#))) - #{tmp\ 3266}#))) + (#{source-wrap\ 11222}# + #{e\ 14183}# + #{w\ 14185}# + #{s\ 14186}# + #{mod\ 14187}#))) + #{tmp\ 14193}#))) ($sc-dispatch - #{tmp\ 3266}# + #{tmp\ 14193}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3266}# + #{tmp\ 14193}# '(any any any)))) - #{e\ 3256}#))) - (#{global-extend\ 218}# + #{e\ 14183}#))) + (#{global-extend\ 11147}# 'module-ref '@ - (lambda (#{e\ 3342}# #{r\ 3343}# #{w\ 3344}#) - ((lambda (#{tmp\ 3348}#) - ((lambda (#{tmp\ 3349}#) - (if (if #{tmp\ 3349}# - (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#) - (if (and-map #{id?\ 222}# #{mod\ 3354}#) - (#{id?\ 222}# #{id\ 3355}#) + (lambda (#{e\ 14269}# #{r\ 14270}# #{w\ 14271}#) + ((lambda (#{tmp\ 14275}#) + ((lambda (#{tmp\ 14276}#) + (if (if #{tmp\ 14276}# + (apply (lambda (#{_\ 14280}# + #{mod\ 14281}# + #{id\ 14282}#) + (if (and-map #{id?\ 11151}# #{mod\ 14281}#) + (#{id?\ 11151}# #{id\ 14282}#) #f)) - #{tmp\ 3349}#) + #{tmp\ 14276}#) #f) - (apply (lambda (#{_\ 3362}# #{mod\ 3363}# #{id\ 3364}#) + (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#) (values - (syntax->datum #{id\ 3364}#) - #{r\ 3343}# - #{w\ 3344}# + (syntax->datum #{id\ 14291}#) + #{r\ 14270}# + #{w\ 14271}# #f (syntax->datum (cons '#(syntax-object @@ -9878,12 +9958,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3359" "i3360" "i3361")) + #("i14286" "i14287" "i14288")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3345" "i3346" "i3347")) + #("i14272" "i14273" "i14274")) #(ribcage (lambda-var-list gen-var @@ -10001,8 +10081,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -10119,196 +10198,195 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile)) - #{mod\ 3363}#)))) - #{tmp\ 3349}#) + #{mod\ 14290}#)))) + #{tmp\ 14276}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3348}#))) + #{tmp\ 14275}#))) ($sc-dispatch - #{tmp\ 3348}# + #{tmp\ 14275}# '(any each-any any)))) - #{e\ 3342}#))) - (#{global-extend\ 218}# + #{e\ 14269}#))) + (#{global-extend\ 11147}# 'module-ref '@@ - (lambda (#{e\ 3366}# #{r\ 3367}# #{w\ 3368}#) - (letrec ((#{remodulate\ 3373}# - (lambda (#{x\ 3374}# #{mod\ 3375}#) - (if (pair? #{x\ 3374}#) - (cons (#{remodulate\ 3373}# - (car #{x\ 3374}#) - #{mod\ 3375}#) - (#{remodulate\ 3373}# - (cdr #{x\ 3374}#) - #{mod\ 3375}#)) - (if (#{syntax-object?\ 186}# #{x\ 3374}#) - (#{make-syntax-object\ 184}# - (#{remodulate\ 3373}# - (#{syntax-object-expression\ 188}# #{x\ 3374}#) - #{mod\ 3375}#) - (#{syntax-object-wrap\ 190}# #{x\ 3374}#) - #{mod\ 3375}#) - (if (vector? #{x\ 3374}#) - (let ((#{n\ 3386}# (vector-length #{x\ 3374}#))) - (let ((#{v\ 3388}# (make-vector #{n\ 3386}#))) - (letrec ((#{loop\ 3391}# - (lambda (#{i\ 3392}#) - (if (#{fx=\ 127}# - #{i\ 3392}# - #{n\ 3386}#) - (begin (if #f #f) #{v\ 3388}#) + (lambda (#{e\ 14293}# #{r\ 14294}# #{w\ 14295}#) + (letrec ((#{remodulate\ 14300}# + (lambda (#{x\ 14301}# #{mod\ 14302}#) + (if (pair? #{x\ 14301}#) + (cons (#{remodulate\ 14300}# + (car #{x\ 14301}#) + #{mod\ 14302}#) + (#{remodulate\ 14300}# + (cdr #{x\ 14301}#) + #{mod\ 14302}#)) + (if (#{syntax-object?\ 11115}# #{x\ 14301}#) + (#{make-syntax-object\ 11113}# + (#{remodulate\ 14300}# + (#{syntax-object-expression\ 11117}# + #{x\ 14301}#) + #{mod\ 14302}#) + (#{syntax-object-wrap\ 11119}# #{x\ 14301}#) + #{mod\ 14302}#) + (if (vector? #{x\ 14301}#) + (let ((#{n\ 14313}# (vector-length #{x\ 14301}#))) + (let ((#{v\ 14315}# (make-vector #{n\ 14313}#))) + (letrec ((#{loop\ 14318}# + (lambda (#{i\ 14319}#) + (if (#{fx=\ 11056}# + #{i\ 14319}# + #{n\ 14313}#) + (begin (if #f #f) #{v\ 14315}#) (begin (vector-set! - #{v\ 3388}# - #{i\ 3392}# - (#{remodulate\ 3373}# + #{v\ 14315}# + #{i\ 14319}# + (#{remodulate\ 14300}# (vector-ref - #{x\ 3374}# - #{i\ 3392}#) - #{mod\ 3375}#)) - (#{loop\ 3391}# - (#{fx+\ 123}# - #{i\ 3392}# + #{x\ 14301}# + #{i\ 14319}#) + #{mod\ 14302}#)) + (#{loop\ 14318}# + (#{fx+\ 11052}# + #{i\ 14319}# 1))))))) - (#{loop\ 3391}# 0)))) - #{x\ 3374}#)))))) - ((lambda (#{tmp\ 3396}#) - ((lambda (#{tmp\ 3397}#) - (if (if #{tmp\ 3397}# - (apply (lambda (#{_\ 3401}# - #{mod\ 3402}# - #{exp\ 3403}#) - (and-map #{id?\ 222}# #{mod\ 3402}#)) - #{tmp\ 3397}#) + (#{loop\ 14318}# 0)))) + #{x\ 14301}#)))))) + ((lambda (#{tmp\ 14323}#) + ((lambda (#{tmp\ 14324}#) + (if (if #{tmp\ 14324}# + (apply (lambda (#{_\ 14328}# + #{mod\ 14329}# + #{exp\ 14330}#) + (and-map #{id?\ 11151}# #{mod\ 14329}#)) + #{tmp\ 14324}#) #f) - (apply (lambda (#{_\ 3408}# #{mod\ 3409}# #{exp\ 3410}#) - (let ((#{mod\ 3412}# + (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#) + (let ((#{mod\ 14339}# (syntax->datum (cons '#(syntax-object private @@ -10316,15 +10394,19 @@ #(ribcage #(_ mod exp) #((top) (top) (top)) - #("i3405" "i3406" "i3407")) + #("i14332" + "i14333" + "i14334")) #(ribcage (remodulate) ((top)) - ("i3372")) + ("i14299")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3369" "i3370" "i3371")) + #("i14296" + "i14297" + "i14298")) #(ribcage (lambda-var-list gen-var @@ -10442,8 +10524,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -10560,314 +10641,313 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" "i10950"))) (hygiene guile)) - #{mod\ 3409}#)))) + #{mod\ 14336}#)))) (values - (#{remodulate\ 3373}# - #{exp\ 3410}# - #{mod\ 3412}#) - #{r\ 3367}# - #{w\ 3368}# - (#{source-annotation\ 201}# #{exp\ 3410}#) - #{mod\ 3412}#))) - #{tmp\ 3397}#) + (#{remodulate\ 14300}# + #{exp\ 14337}# + #{mod\ 14339}#) + #{r\ 14294}# + #{w\ 14295}# + (#{source-annotation\ 11130}# #{exp\ 14337}#) + #{mod\ 14339}#))) + #{tmp\ 14324}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3396}#))) + #{tmp\ 14323}#))) ($sc-dispatch - #{tmp\ 3396}# + #{tmp\ 14323}# '(any each-any any)))) - #{e\ 3366}#)))) - (#{global-extend\ 218}# + #{e\ 14293}#)))) + (#{global-extend\ 11147}# 'core 'if - (lambda (#{e\ 3414}# - #{r\ 3415}# - #{w\ 3416}# - #{s\ 3417}# - #{mod\ 3418}#) - ((lambda (#{tmp\ 3424}#) - ((lambda (#{tmp\ 3425}#) - (if #{tmp\ 3425}# - (apply (lambda (#{_\ 3429}# #{test\ 3430}# #{then\ 3431}#) - (#{build-conditional\ 146}# - #{s\ 3417}# - (#{chi\ 307}# - #{test\ 3430}# - #{r\ 3415}# - #{w\ 3416}# - #{mod\ 3418}#) - (#{chi\ 307}# - #{then\ 3431}# - #{r\ 3415}# - #{w\ 3416}# - #{mod\ 3418}#) - (#{build-void\ 142}# #f))) - #{tmp\ 3425}#) - ((lambda (#{tmp\ 3433}#) - (if #{tmp\ 3433}# - (apply (lambda (#{_\ 3438}# - #{test\ 3439}# - #{then\ 3440}# - #{else\ 3441}#) - (#{build-conditional\ 146}# - #{s\ 3417}# - (#{chi\ 307}# - #{test\ 3439}# - #{r\ 3415}# - #{w\ 3416}# - #{mod\ 3418}#) - (#{chi\ 307}# - #{then\ 3440}# - #{r\ 3415}# - #{w\ 3416}# - #{mod\ 3418}#) - (#{chi\ 307}# - #{else\ 3441}# - #{r\ 3415}# - #{w\ 3416}# - #{mod\ 3418}#))) - #{tmp\ 3433}#) + (lambda (#{e\ 14341}# + #{r\ 14342}# + #{w\ 14343}# + #{s\ 14344}# + #{mod\ 14345}#) + ((lambda (#{tmp\ 14351}#) + ((lambda (#{tmp\ 14352}#) + (if #{tmp\ 14352}# + (apply (lambda (#{_\ 14356}# #{test\ 14357}# #{then\ 14358}#) + (#{build-conditional\ 11075}# + #{s\ 14344}# + (#{chi\ 11236}# + #{test\ 14357}# + #{r\ 14342}# + #{w\ 14343}# + #{mod\ 14345}#) + (#{chi\ 11236}# + #{then\ 14358}# + #{r\ 14342}# + #{w\ 14343}# + #{mod\ 14345}#) + (#{build-void\ 11071}# #f))) + #{tmp\ 14352}#) + ((lambda (#{tmp\ 14360}#) + (if #{tmp\ 14360}# + (apply (lambda (#{_\ 14365}# + #{test\ 14366}# + #{then\ 14367}# + #{else\ 14368}#) + (#{build-conditional\ 11075}# + #{s\ 14344}# + (#{chi\ 11236}# + #{test\ 14366}# + #{r\ 14342}# + #{w\ 14343}# + #{mod\ 14345}#) + (#{chi\ 11236}# + #{then\ 14367}# + #{r\ 14342}# + #{w\ 14343}# + #{mod\ 14345}#) + (#{chi\ 11236}# + #{else\ 14368}# + #{r\ 14342}# + #{w\ 14343}# + #{mod\ 14345}#))) + #{tmp\ 14360}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3424}#))) + #{tmp\ 14351}#))) ($sc-dispatch - #{tmp\ 3424}# + #{tmp\ 14351}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3424}# + #{tmp\ 14351}# '(any any any)))) - #{e\ 3414}#))) - (#{global-extend\ 218}# + #{e\ 14341}#))) + (#{global-extend\ 11147}# 'core 'with-fluids - (lambda (#{e\ 3442}# - #{r\ 3443}# - #{w\ 3444}# - #{s\ 3445}# - #{mod\ 3446}#) - ((lambda (#{tmp\ 3452}#) - ((lambda (#{tmp\ 3453}#) - (if #{tmp\ 3453}# - (apply (lambda (#{_\ 3459}# - #{fluid\ 3460}# - #{val\ 3461}# - #{b\ 3462}# - #{b*\ 3463}#) - (#{build-dynlet\ 148}# - #{s\ 3445}# - (map (lambda (#{x\ 3464}#) - (#{chi\ 307}# - #{x\ 3464}# - #{r\ 3443}# - #{w\ 3444}# - #{mod\ 3446}#)) - #{fluid\ 3460}#) - (map (lambda (#{x\ 3467}#) - (#{chi\ 307}# - #{x\ 3467}# - #{r\ 3443}# - #{w\ 3444}# - #{mod\ 3446}#)) - #{val\ 3461}#) - (#{chi-body\ 315}# - (cons #{b\ 3462}# #{b*\ 3463}#) - (#{source-wrap\ 293}# - #{e\ 3442}# - #{w\ 3444}# - #{s\ 3445}# - #{mod\ 3446}#) - #{r\ 3443}# - #{w\ 3444}# - #{mod\ 3446}#))) - #{tmp\ 3453}#) + (lambda (#{e\ 14369}# + #{r\ 14370}# + #{w\ 14371}# + #{s\ 14372}# + #{mod\ 14373}#) + ((lambda (#{tmp\ 14379}#) + ((lambda (#{tmp\ 14380}#) + (if #{tmp\ 14380}# + (apply (lambda (#{_\ 14386}# + #{fluid\ 14387}# + #{val\ 14388}# + #{b\ 14389}# + #{b*\ 14390}#) + (#{build-dynlet\ 11077}# + #{s\ 14372}# + (map (lambda (#{x\ 14391}#) + (#{chi\ 11236}# + #{x\ 14391}# + #{r\ 14370}# + #{w\ 14371}# + #{mod\ 14373}#)) + #{fluid\ 14387}#) + (map (lambda (#{x\ 14394}#) + (#{chi\ 11236}# + #{x\ 14394}# + #{r\ 14370}# + #{w\ 14371}# + #{mod\ 14373}#)) + #{val\ 14388}#) + (#{chi-body\ 11244}# + (cons #{b\ 14389}# #{b*\ 14390}#) + (#{source-wrap\ 11222}# + #{e\ 14369}# + #{w\ 14371}# + #{s\ 14372}# + #{mod\ 14373}#) + #{r\ 14370}# + #{w\ 14371}# + #{mod\ 14373}#))) + #{tmp\ 14380}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3452}#))) + #{tmp\ 14379}#))) ($sc-dispatch - #{tmp\ 3452}# + #{tmp\ 14379}# '(any #(each (any any)) any . each-any)))) - #{e\ 3442}#))) - (#{global-extend\ 218}# + #{e\ 14369}#))) + (#{global-extend\ 11147}# 'begin 'begin '()) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'define 'define '()) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'eval-when 'eval-when '()) - (#{global-extend\ 218}# + (#{global-extend\ 11147}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3478}# - (lambda (#{x\ 3479}# - #{keys\ 3480}# - #{clauses\ 3481}# - #{r\ 3482}# - #{mod\ 3483}#) - (if (null? #{clauses\ 3481}#) - (#{build-application\ 144}# + (letrec ((#{gen-syntax-case\ 14405}# + (lambda (#{x\ 14406}# + #{keys\ 14407}# + #{clauses\ 14408}# + #{r\ 14409}# + #{mod\ 14410}#) + (if (null? #{clauses\ 14408}#) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f 'syntax-violation) - (list (#{build-data\ 172}# #f #f) - (#{build-data\ 172}# + (list (#{build-data\ 11101}# #f #f) + (#{build-data\ 11101}# #f "source expression failed to match any pattern") - #{x\ 3479}#)) - ((lambda (#{tmp\ 3493}#) - ((lambda (#{tmp\ 3494}#) - (if #{tmp\ 3494}# - (apply (lambda (#{pat\ 3497}# #{exp\ 3498}#) - (if (if (#{id?\ 222}# #{pat\ 3497}#) + #{x\ 14406}#)) + ((lambda (#{tmp\ 14420}#) + ((lambda (#{tmp\ 14421}#) + (if #{tmp\ 14421}# + (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#) + (if (if (#{id?\ 11151}# #{pat\ 14424}#) (and-map - (lambda (#{x\ 3501}#) - (not (#{free-id=?\ 281}# - #{pat\ 3497}# - #{x\ 3501}#))) + (lambda (#{x\ 14428}#) + (not (#{free-id=?\ 11210}# + #{pat\ 14424}# + #{x\ 14428}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3495" "i3496")) + #("i14422" + "i14423")) #(ribcage () () ()) #(ribcage #(x @@ -10880,11 +10960,11 @@ (top) (top) (top)) - #("i3484" - "i3485" - "i3486" - "i3487" - "i3488")) + #("i14411" + "i14412" + "i14413" + "i14414" + "i14415")) #(ribcage (gen-syntax-case gen-clause @@ -10894,10 +10974,10 @@ (top) (top) (top)) - ("i3477" - "i3475" - "i3473" - "i3471")) + ("i14404" + "i14402" + "i14400" + "i14398")) #(ribcage (lambda-var-list gen-var @@ -11015,8 +11095,7 @@ fx= fx- fx+ - *mode* - noexpand) + *mode*) ((top) (top) (top) @@ -11133,1027 +11212,1043 @@ (top) (top) (top) - (top) (top)) - ("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" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i11265" + "i11263" + "i11261" + "i11259" + "i11257" + "i11255" + "i11253" + "i11251" + "i11249" + "i11247" + "i11245" + "i11243" + "i11241" + "i11239" + "i11237" + "i11235" + "i11233" + "i11231" + "i11229" + "i11227" + "i11225" + "i11223" + "i11221" + "i11219" + "i11217" + "i11215" + "i11213" + "i11211" + "i11209" + "i11207" + "i11205" + "i11203" + "i11201" + "i11199" + "i11197" + "i11195" + "i11194" + "i11193" + "i11191" + "i11190" + "i11189" + "i11188" + "i11187" + "i11185" + "i11183" + "i11181" + "i11179" + "i11177" + "i11175" + "i11173" + "i11171" + "i11168" + "i11166" + "i11165" + "i11164" + "i11163" + "i11162" + "i11161" + "i11159" + "i11157" + "i11155" + "i11153" + "i11152" + "i11150" + "i11148" + "i11146" + "i11144" + "i11142" + "i11140" + "i11138" + "i11137" + "i11135" + "i11133" + "i11132" + "i11131" + "i11129" + "i11128" + "i11126" + "i11124" + "i11122" + "i11120" + "i11118" + "i11116" + "i11114" + "i11112" + "i11110" + "i11108" + "i11106" + "i11104" + "i11102" + "i11100" + "i11098" + "i11096" + "i11094" + "i11092" + "i11090" + "i11088" + "i11086" + "i11084" + "i11082" + "i11080" + "i11078" + "i11076" + "i11074" + "i11072" + "i11070" + "i11068" + "i11066" + "i11064" + "i11063" + "i11061" + "i11059" + "i11057" + "i11055" + "i11053" + "i11051" + "i11049")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i10952" + "i10950"))) (hygiene guile)) - #{keys\ 3480}#)) + #{keys\ 14407}#)) #f) - (let ((#{labels\ 3505}# - (list (#{gen-label\ 238}#))) - (#{var\ 3506}# - (#{gen-var\ 335}# - #{pat\ 3497}#))) - (#{build-application\ 144}# + (let ((#{labels\ 14432}# + (list (#{gen-label\ 11167}#))) + (#{var\ 14433}# + (#{gen-var\ 11264}# + #{pat\ 14424}#))) + (#{build-application\ 11073}# #f - (#{build-simple-lambda\ 164}# + (#{build-simple-lambda\ 11093}# #f (list (syntax->datum - #{pat\ 3497}#)) + #{pat\ 14424}#)) #f - (list #{var\ 3506}#) + (list #{var\ 14433}#) '() - (#{chi\ 307}# - #{exp\ 3498}# - (#{extend-env\ 210}# - #{labels\ 3505}# + (#{chi\ 11236}# + #{exp\ 14425}# + (#{extend-env\ 11139}# + #{labels\ 14432}# (list (cons 'syntax - (cons #{var\ 3506}# + (cons #{var\ 14433}# 0))) - #{r\ 3482}#) - (#{make-binding-wrap\ 269}# - (list #{pat\ 3497}#) - #{labels\ 3505}# + #{r\ 14409}#) + (#{make-binding-wrap\ 11198}# + (list #{pat\ 14424}#) + #{labels\ 14432}# '(())) - #{mod\ 3483}#)) - (list #{x\ 3479}#))) - (#{gen-clause\ 3476}# - #{x\ 3479}# - #{keys\ 3480}# - (cdr #{clauses\ 3481}#) - #{r\ 3482}# - #{pat\ 3497}# + #{mod\ 14410}#)) + (list #{x\ 14406}#))) + (#{gen-clause\ 14403}# + #{x\ 14406}# + #{keys\ 14407}# + (cdr #{clauses\ 14408}#) + #{r\ 14409}# + #{pat\ 14424}# #t - #{exp\ 3498}# - #{mod\ 3483}#))) - #{tmp\ 3494}#) - ((lambda (#{tmp\ 3512}#) - (if #{tmp\ 3512}# - (apply (lambda (#{pat\ 3516}# - #{fender\ 3517}# - #{exp\ 3518}#) - (#{gen-clause\ 3476}# - #{x\ 3479}# - #{keys\ 3480}# - (cdr #{clauses\ 3481}#) - #{r\ 3482}# - #{pat\ 3516}# - #{fender\ 3517}# - #{exp\ 3518}# - #{mod\ 3483}#)) - #{tmp\ 3512}#) - ((lambda (#{_\ 3520}#) + #{exp\ 14425}# + #{mod\ 14410}#))) + #{tmp\ 14421}#) + ((lambda (#{tmp\ 14439}#) + (if #{tmp\ 14439}# + (apply (lambda (#{pat\ 14443}# + #{fender\ 14444}# + #{exp\ 14445}#) + (#{gen-clause\ 14403}# + #{x\ 14406}# + #{keys\ 14407}# + (cdr #{clauses\ 14408}#) + #{r\ 14409}# + #{pat\ 14443}# + #{fender\ 14444}# + #{exp\ 14445}# + #{mod\ 14410}#)) + #{tmp\ 14439}#) + ((lambda (#{_\ 14447}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3481}#))) - #{tmp\ 3493}#))) + (car #{clauses\ 14408}#))) + #{tmp\ 14420}#))) ($sc-dispatch - #{tmp\ 3493}# + #{tmp\ 14420}# '(any any any))))) - ($sc-dispatch #{tmp\ 3493}# (quote (any any))))) - (car #{clauses\ 3481}#))))) - (#{gen-clause\ 3476}# - (lambda (#{x\ 3521}# - #{keys\ 3522}# - #{clauses\ 3523}# - #{r\ 3524}# - #{pat\ 3525}# - #{fender\ 3526}# - #{exp\ 3527}# - #{mod\ 3528}#) + ($sc-dispatch #{tmp\ 14420}# (quote (any any))))) + (car #{clauses\ 14408}#))))) + (#{gen-clause\ 14403}# + (lambda (#{x\ 14448}# + #{keys\ 14449}# + #{clauses\ 14450}# + #{r\ 14451}# + #{pat\ 14452}# + #{fender\ 14453}# + #{exp\ 14454}# + #{mod\ 14455}#) (call-with-values (lambda () - (#{convert-pattern\ 3472}# - #{pat\ 3525}# - #{keys\ 3522}#)) - (lambda (#{p\ 3537}# #{pvars\ 3538}#) - (if (not (#{distinct-bound-ids?\ 287}# - (map car #{pvars\ 3538}#))) + (#{convert-pattern\ 14399}# + #{pat\ 14452}# + #{keys\ 14449}#)) + (lambda (#{p\ 14464}# #{pvars\ 14465}#) + (if (not (#{distinct-bound-ids?\ 11216}# + (map car #{pvars\ 14465}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3525}#) + #{pat\ 14452}#) (if (not (and-map - (lambda (#{x\ 3545}#) - (not (#{ellipsis?\ 323}# - (car #{x\ 3545}#)))) - #{pvars\ 3538}#)) + (lambda (#{x\ 14472}#) + (not (#{ellipsis?\ 11252}# + (car #{x\ 14472}#)))) + #{pvars\ 14465}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3525}#) - (let ((#{y\ 3549}# - (#{gen-var\ 335}# (quote tmp)))) - (#{build-application\ 144}# + #{pat\ 14452}#) + (let ((#{y\ 14476}# + (#{gen-var\ 11264}# (quote tmp)))) + (#{build-application\ 11073}# #f - (#{build-simple-lambda\ 164}# + (#{build-simple-lambda\ 11093}# #f (list (quote tmp)) #f - (list #{y\ 3549}#) + (list #{y\ 14476}#) '() - (let ((#{y\ 3553}# - (#{build-lexical-reference\ 150}# + (let ((#{y\ 14480}# + (#{build-lexical-reference\ 11079}# 'value #f 'tmp - #{y\ 3549}#))) - (#{build-conditional\ 146}# + #{y\ 14476}#))) + (#{build-conditional\ 11075}# #f - ((lambda (#{tmp\ 3556}#) - ((lambda (#{tmp\ 3557}#) - (if #{tmp\ 3557}# - (apply (lambda () #{y\ 3553}#) - #{tmp\ 3557}#) - ((lambda (#{_\ 3559}#) - (#{build-conditional\ 146}# + ((lambda (#{tmp\ 14483}#) + ((lambda (#{tmp\ 14484}#) + (if #{tmp\ 14484}# + (apply (lambda () #{y\ 14480}#) + #{tmp\ 14484}#) + ((lambda (#{_\ 14486}#) + (#{build-conditional\ 11075}# #f - #{y\ 3553}# - (#{build-dispatch-call\ 3474}# - #{pvars\ 3538}# - #{fender\ 3526}# - #{y\ 3553}# - #{r\ 3524}# - #{mod\ 3528}#) - (#{build-data\ 172}# + #{y\ 14480}# + (#{build-dispatch-call\ 14401}# + #{pvars\ 14465}# + #{fender\ 14453}# + #{y\ 14480}# + #{r\ 14451}# + #{mod\ 14455}#) + (#{build-data\ 11101}# #f #f))) - #{tmp\ 3556}#))) + #{tmp\ 14483}#))) ($sc-dispatch - #{tmp\ 3556}# + #{tmp\ 14483}# '#(atom #t)))) - #{fender\ 3526}#) - (#{build-dispatch-call\ 3474}# - #{pvars\ 3538}# - #{exp\ 3527}# - #{y\ 3553}# - #{r\ 3524}# - #{mod\ 3528}#) - (#{gen-syntax-case\ 3478}# - #{x\ 3521}# - #{keys\ 3522}# - #{clauses\ 3523}# - #{r\ 3524}# - #{mod\ 3528}#)))) - (list (if (eq? #{p\ 3537}# (quote any)) - (#{build-application\ 144}# + #{fender\ 14453}#) + (#{build-dispatch-call\ 14401}# + #{pvars\ 14465}# + #{exp\ 14454}# + #{y\ 14480}# + #{r\ 14451}# + #{mod\ 14455}#) + (#{gen-syntax-case\ 14405}# + #{x\ 14448}# + #{keys\ 14449}# + #{clauses\ 14450}# + #{r\ 14451}# + #{mod\ 14455}#)))) + (list (if (eq? #{p\ 14464}# (quote any)) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f 'list) - (list #{x\ 3521}#)) - (#{build-application\ 144}# + (list #{x\ 14448}#)) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# + (#{build-primref\ 11099}# #f '$sc-dispatch) - (list #{x\ 3521}# - (#{build-data\ 172}# + (list #{x\ 14448}# + (#{build-data\ 11101}# #f - #{p\ 3537}#))))))))))))) - (#{build-dispatch-call\ 3474}# - (lambda (#{pvars\ 3567}# - #{exp\ 3568}# - #{y\ 3569}# - #{r\ 3570}# - #{mod\ 3571}#) - (let ((#{ids\ 3579}# (map car #{pvars\ 3567}#)) - (#{levels\ 3580}# (map cdr #{pvars\ 3567}#))) - (let ((#{labels\ 3583}# - (#{gen-labels\ 240}# #{ids\ 3579}#)) - (#{new-vars\ 3584}# - (map #{gen-var\ 335}# #{ids\ 3579}#))) - (#{build-application\ 144}# + #{p\ 14464}#))))))))))))) + (#{build-dispatch-call\ 14401}# + (lambda (#{pvars\ 14494}# + #{exp\ 14495}# + #{y\ 14496}# + #{r\ 14497}# + #{mod\ 14498}#) + (let ((#{ids\ 14506}# (map car #{pvars\ 14494}#)) + (#{levels\ 14507}# (map cdr #{pvars\ 14494}#))) + (let ((#{labels\ 14510}# + (#{gen-labels\ 11169}# #{ids\ 14506}#)) + (#{new-vars\ 14511}# + (map #{gen-var\ 11264}# #{ids\ 14506}#))) + (#{build-application\ 11073}# #f - (#{build-primref\ 170}# #f (quote apply)) - (list (#{build-simple-lambda\ 164}# + (#{build-primref\ 11099}# #f (quote apply)) + (list (#{build-simple-lambda\ 11093}# #f - (map syntax->datum #{ids\ 3579}#) + (map syntax->datum #{ids\ 14506}#) #f - #{new-vars\ 3584}# + #{new-vars\ 14511}# '() - (#{chi\ 307}# - #{exp\ 3568}# - (#{extend-env\ 210}# - #{labels\ 3583}# - (map (lambda (#{var\ 3588}# - #{level\ 3589}#) + (#{chi\ 11236}# + #{exp\ 14495}# + (#{extend-env\ 11139}# + #{labels\ 14510}# + (map (lambda (#{var\ 14515}# + #{level\ 14516}#) (cons 'syntax - (cons #{var\ 3588}# - #{level\ 3589}#))) - #{new-vars\ 3584}# - (map cdr #{pvars\ 3567}#)) - #{r\ 3570}#) - (#{make-binding-wrap\ 269}# - #{ids\ 3579}# - #{labels\ 3583}# + (cons #{var\ 14515}# + #{level\ 14516}#))) + #{new-vars\ 14511}# + (map cdr #{pvars\ 14494}#)) + #{r\ 14497}#) + (#{make-binding-wrap\ 11198}# + #{ids\ 14506}# + #{labels\ 14510}# '(())) - #{mod\ 3571}#)) - #{y\ 3569}#)))))) - (#{convert-pattern\ 3472}# - (lambda (#{pattern\ 3595}# #{keys\ 3596}#) - (letrec ((#{cvt\ 3602}# - (lambda (#{p\ 3603}# #{n\ 3604}# #{ids\ 3605}#) - (if (#{id?\ 222}# #{p\ 3603}#) - (if (#{bound-id-member?\ 289}# - #{p\ 3603}# - #{keys\ 3596}#) + #{mod\ 14498}#)) + #{y\ 14496}#)))))) + (#{convert-pattern\ 14399}# + (lambda (#{pattern\ 14522}# #{keys\ 14523}#) + (letrec ((#{cvt\ 14529}# + (lambda (#{p\ 14530}# + #{n\ 14531}# + #{ids\ 14532}#) + (if (#{id?\ 11151}# #{p\ 14530}#) + (if (#{bound-id-member?\ 11218}# + #{p\ 14530}# + #{keys\ 14523}#) (values - (vector (quote free-id) #{p\ 3603}#) - #{ids\ 3605}#) + (vector (quote free-id) #{p\ 14530}#) + #{ids\ 14532}#) (values 'any - (cons (cons #{p\ 3603}# #{n\ 3604}#) - #{ids\ 3605}#))) - ((lambda (#{tmp\ 3609}#) - ((lambda (#{tmp\ 3610}#) - (if (if #{tmp\ 3610}# - (apply (lambda (#{x\ 3613}# - #{dots\ 3614}#) - (#{ellipsis?\ 323}# - #{dots\ 3614}#)) - #{tmp\ 3610}#) + (cons (cons #{p\ 14530}# #{n\ 14531}#) + #{ids\ 14532}#))) + ((lambda (#{tmp\ 14536}#) + ((lambda (#{tmp\ 14537}#) + (if (if #{tmp\ 14537}# + (apply (lambda (#{x\ 14540}# + #{dots\ 14541}#) + (#{ellipsis?\ 11252}# + #{dots\ 14541}#)) + #{tmp\ 14537}#) #f) - (apply (lambda (#{x\ 3617}# - #{dots\ 3618}#) + (apply (lambda (#{x\ 14544}# + #{dots\ 14545}#) (call-with-values (lambda () - (#{cvt\ 3602}# - #{x\ 3617}# - (#{fx+\ 123}# - #{n\ 3604}# + (#{cvt\ 14529}# + #{x\ 14544}# + (#{fx+\ 11052}# + #{n\ 14531}# 1) - #{ids\ 3605}#)) - (lambda (#{p\ 3619}# - #{ids\ 3620}#) + #{ids\ 14532}#)) + (lambda (#{p\ 14546}# + #{ids\ 14547}#) (values - (if (eq? #{p\ 3619}# + (if (eq? #{p\ 14546}# 'any) 'each-any (vector 'each - #{p\ 3619}#)) - #{ids\ 3620}#)))) - #{tmp\ 3610}#) - ((lambda (#{tmp\ 3623}#) - (if (if #{tmp\ 3623}# - (apply (lambda (#{x\ 3627}# - #{dots\ 3628}# - #{ys\ 3629}#) - (#{ellipsis?\ 323}# - #{dots\ 3628}#)) - #{tmp\ 3623}#) + #{p\ 14546}#)) + #{ids\ 14547}#)))) + #{tmp\ 14537}#) + ((lambda (#{tmp\ 14550}#) + (if (if #{tmp\ 14550}# + (apply (lambda (#{x\ 14554}# + #{dots\ 14555}# + #{ys\ 14556}#) + (#{ellipsis?\ 11252}# + #{dots\ 14555}#)) + #{tmp\ 14550}#) #f) - (apply (lambda (#{x\ 3633}# - #{dots\ 3634}# - #{ys\ 3635}#) + (apply (lambda (#{x\ 14560}# + #{dots\ 14561}# + #{ys\ 14562}#) (call-with-values (lambda () - (#{cvt*\ 3600}# - #{ys\ 3635}# - #{n\ 3604}# - #{ids\ 3605}#)) - (lambda (#{ys\ 3637}# - #{ids\ 3638}#) + (#{cvt*\ 14527}# + #{ys\ 14562}# + #{n\ 14531}# + #{ids\ 14532}#)) + (lambda (#{ys\ 14564}# + #{ids\ 14565}#) (call-with-values (lambda () - (#{cvt\ 3602}# - #{x\ 3633}# - (+ #{n\ 3604}# + (#{cvt\ 14529}# + #{x\ 14560}# + (+ #{n\ 14531}# 1) - #{ids\ 3638}#)) - (lambda (#{x\ 3641}# - #{ids\ 3642}#) + #{ids\ 14565}#)) + (lambda (#{x\ 14568}# + #{ids\ 14569}#) (values (list->vector (cons 'each+ - (cons #{x\ 3641}# + (cons #{x\ 14568}# (cons (reverse - #{ys\ 3637}#) + #{ys\ 14564}#) '(()))))) - #{ids\ 3642}#)))))) - #{tmp\ 3623}#) - ((lambda (#{tmp\ 3646}#) - (if #{tmp\ 3646}# - (apply (lambda (#{x\ 3649}# - #{y\ 3650}#) + #{ids\ 14569}#)))))) + #{tmp\ 14550}#) + ((lambda (#{tmp\ 14573}#) + (if #{tmp\ 14573}# + (apply (lambda (#{x\ 14576}# + #{y\ 14577}#) (call-with-values (lambda () - (#{cvt\ 3602}# - #{y\ 3650}# - #{n\ 3604}# - #{ids\ 3605}#)) - (lambda (#{y\ 3651}# - #{ids\ 3652}#) + (#{cvt\ 14529}# + #{y\ 14577}# + #{n\ 14531}# + #{ids\ 14532}#)) + (lambda (#{y\ 14578}# + #{ids\ 14579}#) (call-with-values (lambda () - (#{cvt\ 3602}# - #{x\ 3649}# - #{n\ 3604}# - #{ids\ 3652}#)) - (lambda (#{x\ 3655}# - #{ids\ 3656}#) + (#{cvt\ 14529}# + #{x\ 14576}# + #{n\ 14531}# + #{ids\ 14579}#)) + (lambda (#{x\ 14582}# + #{ids\ 14583}#) (values - (cons #{x\ 3655}# - #{y\ 3651}#) - #{ids\ 3656}#)))))) - #{tmp\ 3646}#) - ((lambda (#{tmp\ 3659}#) - (if #{tmp\ 3659}# + (cons #{x\ 14582}# + #{y\ 14578}#) + #{ids\ 14583}#)))))) + #{tmp\ 14573}#) + ((lambda (#{tmp\ 14586}#) + (if #{tmp\ 14586}# (apply (lambda () (values '() - #{ids\ 3605}#)) - #{tmp\ 3659}#) - ((lambda (#{tmp\ 3660}#) - (if #{tmp\ 3660}# - (apply (lambda (#{x\ 3662}#) + #{ids\ 14532}#)) + #{tmp\ 14586}#) + ((lambda (#{tmp\ 14587}#) + (if #{tmp\ 14587}# + (apply (lambda (#{x\ 14589}#) (call-with-values (lambda () - (#{cvt\ 3602}# - #{x\ 3662}# - #{n\ 3604}# - #{ids\ 3605}#)) - (lambda (#{p\ 3664}# - #{ids\ 3665}#) + (#{cvt\ 14529}# + #{x\ 14589}# + #{n\ 14531}# + #{ids\ 14532}#)) + (lambda (#{p\ 14591}# + #{ids\ 14592}#) (values (vector 'vector - #{p\ 3664}#) - #{ids\ 3665}#)))) - #{tmp\ 3660}#) - ((lambda (#{x\ 3669}#) + #{p\ 14591}#) + #{ids\ 14592}#)))) + #{tmp\ 14587}#) + ((lambda (#{x\ 14596}#) (values (vector 'atom - (#{strip\ 333}# - #{p\ 3603}# + (#{strip\ 11262}# + #{p\ 14530}# '(()))) - #{ids\ 3605}#)) - #{tmp\ 3609}#))) + #{ids\ 14532}#)) + #{tmp\ 14536}#))) ($sc-dispatch - #{tmp\ 3609}# + #{tmp\ 14536}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 3609}# + #{tmp\ 14536}# '())))) ($sc-dispatch - #{tmp\ 3609}# + #{tmp\ 14536}# '(any . any))))) ($sc-dispatch - #{tmp\ 3609}# + #{tmp\ 14536}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 3609}# + #{tmp\ 14536}# '(any any)))) - #{p\ 3603}#)))) - (#{cvt*\ 3600}# - (lambda (#{p*\ 3671}# - #{n\ 3672}# - #{ids\ 3673}#) - (if (null? #{p*\ 3671}#) - (values (quote ()) #{ids\ 3673}#) + #{p\ 14530}#)))) + (#{cvt*\ 14527}# + (lambda (#{p*\ 14598}# + #{n\ 14599}# + #{ids\ 14600}#) + (if (null? #{p*\ 14598}#) + (values (quote ()) #{ids\ 14600}#) (call-with-values (lambda () - (#{cvt*\ 3600}# - (cdr #{p*\ 3671}#) - #{n\ 3672}# - #{ids\ 3673}#)) - (lambda (#{y\ 3677}# #{ids\ 3678}#) + (#{cvt*\ 14527}# + (cdr #{p*\ 14598}#) + #{n\ 14599}# + #{ids\ 14600}#)) + (lambda (#{y\ 14604}# #{ids\ 14605}#) (call-with-values (lambda () - (#{cvt\ 3602}# - (car #{p*\ 3671}#) - #{n\ 3672}# - #{ids\ 3678}#)) - (lambda (#{x\ 3681}# #{ids\ 3682}#) + (#{cvt\ 14529}# + (car #{p*\ 14598}#) + #{n\ 14599}# + #{ids\ 14605}#)) + (lambda (#{x\ 14608}# #{ids\ 14609}#) (values - (cons #{x\ 3681}# #{y\ 3677}#) - #{ids\ 3682}#))))))))) - (#{cvt\ 3602}# #{pattern\ 3595}# 0 (quote ())))))) - (lambda (#{e\ 3685}# - #{r\ 3686}# - #{w\ 3687}# - #{s\ 3688}# - #{mod\ 3689}#) - (let ((#{e\ 3696}# - (#{source-wrap\ 293}# - #{e\ 3685}# - #{w\ 3687}# - #{s\ 3688}# - #{mod\ 3689}#))) - ((lambda (#{tmp\ 3697}#) - ((lambda (#{tmp\ 3698}#) - (if #{tmp\ 3698}# - (apply (lambda (#{_\ 3703}# - #{val\ 3704}# - #{key\ 3705}# - #{m\ 3706}#) + (cons #{x\ 14608}# #{y\ 14604}#) + #{ids\ 14609}#))))))))) + (#{cvt\ 14529}# #{pattern\ 14522}# 0 (quote ())))))) + (lambda (#{e\ 14612}# + #{r\ 14613}# + #{w\ 14614}# + #{s\ 14615}# + #{mod\ 14616}#) + (let ((#{e\ 14623}# + (#{source-wrap\ 11222}# + #{e\ 14612}# + #{w\ 14614}# + #{s\ 14615}# + #{mod\ 14616}#))) + ((lambda (#{tmp\ 14624}#) + ((lambda (#{tmp\ 14625}#) + (if #{tmp\ 14625}# + (apply (lambda (#{_\ 14630}# + #{val\ 14631}# + #{key\ 14632}# + #{m\ 14633}#) (if (and-map - (lambda (#{x\ 3707}#) - (if (#{id?\ 222}# #{x\ 3707}#) - (not (#{ellipsis?\ 323}# #{x\ 3707}#)) + (lambda (#{x\ 14634}#) + (if (#{id?\ 11151}# #{x\ 14634}#) + (not (#{ellipsis?\ 11252}# + #{x\ 14634}#)) #f)) - #{key\ 3705}#) - (let ((#{x\ 3713}# - (#{gen-var\ 335}# (quote tmp)))) - (#{build-application\ 144}# - #{s\ 3688}# - (#{build-simple-lambda\ 164}# + #{key\ 14632}#) + (let ((#{x\ 14640}# + (#{gen-var\ 11264}# (quote tmp)))) + (#{build-application\ 11073}# + #{s\ 14615}# + (#{build-simple-lambda\ 11093}# #f (list (quote tmp)) #f - (list #{x\ 3713}#) + (list #{x\ 14640}#) '() - (#{gen-syntax-case\ 3478}# - (#{build-lexical-reference\ 150}# + (#{gen-syntax-case\ 14405}# + (#{build-lexical-reference\ 11079}# 'value #f 'tmp - #{x\ 3713}#) - #{key\ 3705}# - #{m\ 3706}# - #{r\ 3686}# - #{mod\ 3689}#)) - (list (#{chi\ 307}# - #{val\ 3704}# - #{r\ 3686}# + #{x\ 14640}#) + #{key\ 14632}# + #{m\ 14633}# + #{r\ 14613}# + #{mod\ 14616}#)) + (list (#{chi\ 11236}# + #{val\ 14631}# + #{r\ 14613}# '(()) - #{mod\ 3689}#)))) + #{mod\ 14616}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3696}#))) - #{tmp\ 3698}#) + #{e\ 14623}#))) + #{tmp\ 14625}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3697}#))) + #{tmp\ 14624}#))) ($sc-dispatch - #{tmp\ 3697}# + #{tmp\ 14624}# '(any any each-any . each-any)))) - #{e\ 3696}#))))) + #{e\ 14623}#))))) (set! macroexpand - (lambda (#{x\ 3719}# . #{rest\ 3720}#) - (if (if (pair? #{x\ 3719}#) - (equal? (car #{x\ 3719}#) #{noexpand\ 119}#) - #f) - (cadr #{x\ 3719}#) - (let ((#{m\ 3727}# - (if (null? #{rest\ 3720}#) - 'e - (car #{rest\ 3720}#))) - (#{esew\ 3728}# - (if (let ((#{t\ 3731}# (null? #{rest\ 3720}#))) - (if #{t\ 3731}# - #{t\ 3731}# - (null? (cdr #{rest\ 3720}#)))) - '(eval) - (cadr #{rest\ 3720}#)))) - (with-fluids - ((#{*mode*\ 121}# #{m\ 3727}#)) - (#{chi-top\ 305}# - #{x\ 3719}# + (lambda (#{x\ 14646}# . #{rest\ 14647}#) + (let ((#{m\ 14653}# + (if (null? #{rest\ 14647}#) + 'e + (car #{rest\ 14647}#))) + (#{esew\ 14654}# + (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#))) + (if #{t\ 14658}# + #{t\ 14658}# + (null? (cdr #{rest\ 14647}#)))) + '(eval) + (cadr #{rest\ 14647}#))) + (#{mod\ 14655}# + (cons 'hygiene + (module-name (current-module))))) + (with-fluids + ((#{*mode*\ 11050}# #{m\ 14653}#)) + (if (eq? #{m\ 14653}# (quote e)) + (memoize-expression + (#{chi-top\ 11234}# + #{x\ 14646}# + '() + '((top)) + #{m\ 14653}# + #{esew\ 14654}# + #{mod\ 14655}#)) + (#{chi-top\ 11234}# + #{x\ 14646}# '() '((top)) - #{m\ 3727}# - #{esew\ 3728}# - (cons 'hygiene - (module-name (current-module))))))))) + #{m\ 14653}# + #{esew\ 14654}# + #{mod\ 14655}#)))))) (set! identifier? - (lambda (#{x\ 3735}#) - (#{nonsymbol-id?\ 220}# #{x\ 3735}#))) + (lambda (#{x\ 14664}#) + (#{nonsymbol-id?\ 11149}# #{x\ 14664}#))) (set! datum->syntax - (lambda (#{id\ 3737}# #{datum\ 3738}#) - (#{make-syntax-object\ 184}# - #{datum\ 3738}# - (#{syntax-object-wrap\ 190}# #{id\ 3737}#) + (lambda (#{id\ 14666}# #{datum\ 14667}#) + (#{make-syntax-object\ 11113}# + #{datum\ 14667}# + (#{syntax-object-wrap\ 11119}# #{id\ 14666}#) #f))) (set! syntax->datum - (lambda (#{x\ 3741}#) - (#{strip\ 333}# #{x\ 3741}# (quote (()))))) + (lambda (#{x\ 14670}#) + (#{strip\ 11262}# #{x\ 14670}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 3744}#) + (lambda (#{ls\ 14673}#) (begin - (let ((#{x\ 3748}# #{ls\ 3744}#)) - (if (not (list? #{x\ 3748}#)) + (let ((#{x\ 14677}# #{ls\ 14673}#)) + (if (not (list? #{x\ 14677}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3748}#))) - (map (lambda (#{x\ 3749}#) - (#{wrap\ 291}# (gensym) (quote ((top))) #f)) - #{ls\ 3744}#)))) + #{x\ 14677}#))) + (map (lambda (#{x\ 14678}#) + (#{wrap\ 11220}# (gensym) (quote ((top))) #f)) + #{ls\ 14673}#)))) (set! free-identifier=? - (lambda (#{x\ 3753}# #{y\ 3754}#) + (lambda (#{x\ 14682}# #{y\ 14683}#) (begin - (let ((#{x\ 3759}# #{x\ 3753}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3759}#)) + (let ((#{x\ 14688}# #{x\ 14682}#)) + (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3759}#))) - (let ((#{x\ 3762}# #{y\ 3754}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3762}#)) + #{x\ 14688}#))) + (let ((#{x\ 14691}# #{y\ 14683}#)) + (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3762}#))) - (#{free-id=?\ 281}# #{x\ 3753}# #{y\ 3754}#)))) + #{x\ 14691}#))) + (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#)))) (set! bound-identifier=? - (lambda (#{x\ 3763}# #{y\ 3764}#) + (lambda (#{x\ 14692}# #{y\ 14693}#) (begin - (let ((#{x\ 3769}# #{x\ 3763}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3769}#)) + (let ((#{x\ 14698}# #{x\ 14692}#)) + (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3769}#))) - (let ((#{x\ 3772}# #{y\ 3764}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3772}#)) + #{x\ 14698}#))) + (let ((#{x\ 14701}# #{y\ 14693}#)) + (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3772}#))) - (#{bound-id=?\ 283}# #{x\ 3763}# #{y\ 3764}#)))) + #{x\ 14701}#))) + (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#)))) (set! syntax-violation - (lambda (#{who\ 3773}# - #{message\ 3774}# - #{form\ 3775}# + (lambda (#{who\ 14702}# + #{message\ 14703}# + #{form\ 14704}# . - #{subform\ 3776}#) + #{subform\ 14705}#) (begin - (let ((#{x\ 3783}# #{who\ 3773}#)) - (if (not ((lambda (#{x\ 3784}#) - (let ((#{t\ 3788}# (not #{x\ 3784}#))) - (if #{t\ 3788}# - #{t\ 3788}# - (let ((#{t\ 3791}# (string? #{x\ 3784}#))) - (if #{t\ 3791}# - #{t\ 3791}# - (symbol? #{x\ 3784}#)))))) - #{x\ 3783}#)) + (let ((#{x\ 14712}# #{who\ 14702}#)) + (if (not ((lambda (#{x\ 14713}#) + (let ((#{t\ 14717}# (not #{x\ 14713}#))) + (if #{t\ 14717}# + #{t\ 14717}# + (let ((#{t\ 14720}# (string? #{x\ 14713}#))) + (if #{t\ 14720}# + #{t\ 14720}# + (symbol? #{x\ 14713}#)))))) + #{x\ 14712}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3783}#))) - (let ((#{x\ 3795}# #{message\ 3774}#)) - (if (not (string? #{x\ 3795}#)) + #{x\ 14712}#))) + (let ((#{x\ 14724}# #{message\ 14703}#)) + (if (not (string? #{x\ 14724}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3795}#))) + #{x\ 14724}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 3773}# "~a: " "") + (if #{who\ 14702}# "~a: " "") "~a " - (if (null? #{subform\ 3776}#) + (if (null? #{subform\ 14705}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 3797}# - (cons #{message\ 3774}# - (map (lambda (#{x\ 3798}#) - (#{strip\ 333}# #{x\ 3798}# (quote (())))) + (let ((#{tail\ 14726}# + (cons #{message\ 14703}# + (map (lambda (#{x\ 14727}#) + (#{strip\ 11262}# + #{x\ 14727}# + '(()))) (append - #{subform\ 3776}# - (list #{form\ 3775}#)))))) - (if #{who\ 3773}# - (cons #{who\ 3773}# #{tail\ 3797}#) - #{tail\ 3797}#)) + #{subform\ 14705}# + (list #{form\ 14704}#)))))) + (if #{who\ 14702}# + (cons #{who\ 14702}# #{tail\ 14726}#) + #{tail\ 14726}#)) #f)))) - (letrec ((#{match\ 3814}# - (lambda (#{e\ 3815}# - #{p\ 3816}# - #{w\ 3817}# - #{r\ 3818}# - #{mod\ 3819}#) - (if (not #{r\ 3818}#) + (letrec ((#{match\ 14743}# + (lambda (#{e\ 14744}# + #{p\ 14745}# + #{w\ 14746}# + #{r\ 14747}# + #{mod\ 14748}#) + (if (not #{r\ 14747}#) #f - (if (eq? #{p\ 3816}# (quote any)) - (cons (#{wrap\ 291}# - #{e\ 3815}# - #{w\ 3817}# - #{mod\ 3819}#) - #{r\ 3818}#) - (if (#{syntax-object?\ 186}# #{e\ 3815}#) - (#{match*\ 3812}# - (#{syntax-object-expression\ 188}# #{e\ 3815}#) - #{p\ 3816}# - (#{join-wraps\ 273}# - #{w\ 3817}# - (#{syntax-object-wrap\ 190}# #{e\ 3815}#)) - #{r\ 3818}# - (#{syntax-object-module\ 192}# #{e\ 3815}#)) - (#{match*\ 3812}# - #{e\ 3815}# - #{p\ 3816}# - #{w\ 3817}# - #{r\ 3818}# - #{mod\ 3819}#)))))) - (#{match*\ 3812}# - (lambda (#{e\ 3832}# - #{p\ 3833}# - #{w\ 3834}# - #{r\ 3835}# - #{mod\ 3836}#) - (if (null? #{p\ 3833}#) - (if (null? #{e\ 3832}#) #{r\ 3835}# #f) - (if (pair? #{p\ 3833}#) - (if (pair? #{e\ 3832}#) - (#{match\ 3814}# - (car #{e\ 3832}#) - (car #{p\ 3833}#) - #{w\ 3834}# - (#{match\ 3814}# - (cdr #{e\ 3832}#) - (cdr #{p\ 3833}#) - #{w\ 3834}# - #{r\ 3835}# - #{mod\ 3836}#) - #{mod\ 3836}#) + (if (eq? #{p\ 14745}# (quote any)) + (cons (#{wrap\ 11220}# + #{e\ 14744}# + #{w\ 14746}# + #{mod\ 14748}#) + #{r\ 14747}#) + (if (#{syntax-object?\ 11115}# #{e\ 14744}#) + (#{match*\ 14741}# + (#{syntax-object-expression\ 11117}# + #{e\ 14744}#) + #{p\ 14745}# + (#{join-wraps\ 11202}# + #{w\ 14746}# + (#{syntax-object-wrap\ 11119}# #{e\ 14744}#)) + #{r\ 14747}# + (#{syntax-object-module\ 11121}# #{e\ 14744}#)) + (#{match*\ 14741}# + #{e\ 14744}# + #{p\ 14745}# + #{w\ 14746}# + #{r\ 14747}# + #{mod\ 14748}#)))))) + (#{match*\ 14741}# + (lambda (#{e\ 14761}# + #{p\ 14762}# + #{w\ 14763}# + #{r\ 14764}# + #{mod\ 14765}#) + (if (null? #{p\ 14762}#) + (if (null? #{e\ 14761}#) #{r\ 14764}# #f) + (if (pair? #{p\ 14762}#) + (if (pair? #{e\ 14761}#) + (#{match\ 14743}# + (car #{e\ 14761}#) + (car #{p\ 14762}#) + #{w\ 14763}# + (#{match\ 14743}# + (cdr #{e\ 14761}#) + (cdr #{p\ 14762}#) + #{w\ 14763}# + #{r\ 14764}# + #{mod\ 14765}#) + #{mod\ 14765}#) #f) - (if (eq? #{p\ 3833}# (quote each-any)) - (let ((#{l\ 3853}# - (#{match-each-any\ 3806}# - #{e\ 3832}# - #{w\ 3834}# - #{mod\ 3836}#))) - (if #{l\ 3853}# - (cons #{l\ 3853}# #{r\ 3835}#) + (if (eq? #{p\ 14762}# (quote each-any)) + (let ((#{l\ 14782}# + (#{match-each-any\ 14735}# + #{e\ 14761}# + #{w\ 14763}# + #{mod\ 14765}#))) + (if #{l\ 14782}# + (cons #{l\ 14782}# #{r\ 14764}#) #f)) - (let ((#{atom-key\ 3859}# (vector-ref #{p\ 3833}# 0))) - (if (memv #{atom-key\ 3859}# (quote (each))) - (if (null? #{e\ 3832}#) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3833}# 1) - #{r\ 3835}#) - (let ((#{l\ 3862}# - (#{match-each\ 3802}# - #{e\ 3832}# - (vector-ref #{p\ 3833}# 1) - #{w\ 3834}# - #{mod\ 3836}#))) - (if #{l\ 3862}# - (letrec ((#{collect\ 3867}# - (lambda (#{l\ 3868}#) - (if (null? (car #{l\ 3868}#)) - #{r\ 3835}# - (cons (map car #{l\ 3868}#) - (#{collect\ 3867}# + (let ((#{atom-key\ 14788}# + (vector-ref #{p\ 14762}# 0))) + (if (memv #{atom-key\ 14788}# (quote (each))) + (if (null? #{e\ 14761}#) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14762}# 1) + #{r\ 14764}#) + (let ((#{l\ 14791}# + (#{match-each\ 14731}# + #{e\ 14761}# + (vector-ref #{p\ 14762}# 1) + #{w\ 14763}# + #{mod\ 14765}#))) + (if #{l\ 14791}# + (letrec ((#{collect\ 14796}# + (lambda (#{l\ 14797}#) + (if (null? (car #{l\ 14797}#)) + #{r\ 14764}# + (cons (map car #{l\ 14797}#) + (#{collect\ 14796}# (map cdr - #{l\ 3868}#))))))) - (#{collect\ 3867}# #{l\ 3862}#)) + #{l\ 14797}#))))))) + (#{collect\ 14796}# #{l\ 14791}#)) #f))) - (if (memv #{atom-key\ 3859}# (quote (each+))) + (if (memv #{atom-key\ 14788}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 3804}# - #{e\ 3832}# - (vector-ref #{p\ 3833}# 1) - (vector-ref #{p\ 3833}# 2) - (vector-ref #{p\ 3833}# 3) - #{w\ 3834}# - #{r\ 3835}# - #{mod\ 3836}#)) - (lambda (#{xr*\ 3870}# - #{y-pat\ 3871}# - #{r\ 3872}#) - (if #{r\ 3872}# - (if (null? #{y-pat\ 3871}#) - (if (null? #{xr*\ 3870}#) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3833}# 1) - #{r\ 3872}#) - (#{combine\ 3810}# - #{xr*\ 3870}# - #{r\ 3872}#)) + (#{match-each+\ 14733}# + #{e\ 14761}# + (vector-ref #{p\ 14762}# 1) + (vector-ref #{p\ 14762}# 2) + (vector-ref #{p\ 14762}# 3) + #{w\ 14763}# + #{r\ 14764}# + #{mod\ 14765}#)) + (lambda (#{xr*\ 14799}# + #{y-pat\ 14800}# + #{r\ 14801}#) + (if #{r\ 14801}# + (if (null? #{y-pat\ 14800}#) + (if (null? #{xr*\ 14799}#) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14762}# 1) + #{r\ 14801}#) + (#{combine\ 14739}# + #{xr*\ 14799}# + #{r\ 14801}#)) #f) #f))) - (if (memv #{atom-key\ 3859}# (quote (free-id))) - (if (#{id?\ 222}# #{e\ 3832}#) - (if (#{free-id=?\ 281}# - (#{wrap\ 291}# - #{e\ 3832}# - #{w\ 3834}# - #{mod\ 3836}#) - (vector-ref #{p\ 3833}# 1)) - #{r\ 3835}# + (if (memv #{atom-key\ 14788}# (quote (free-id))) + (if (#{id?\ 11151}# #{e\ 14761}#) + (if (#{free-id=?\ 11210}# + (#{wrap\ 11220}# + #{e\ 14761}# + #{w\ 14763}# + #{mod\ 14765}#) + (vector-ref #{p\ 14762}# 1)) + #{r\ 14764}# #f) #f) - (if (memv #{atom-key\ 3859}# (quote (atom))) + (if (memv #{atom-key\ 14788}# (quote (atom))) (if (equal? - (vector-ref #{p\ 3833}# 1) - (#{strip\ 333}# - #{e\ 3832}# - #{w\ 3834}#)) - #{r\ 3835}# + (vector-ref #{p\ 14762}# 1) + (#{strip\ 11262}# + #{e\ 14761}# + #{w\ 14763}#)) + #{r\ 14764}# #f) - (if (memv #{atom-key\ 3859}# + (if (memv #{atom-key\ 14788}# '(vector)) - (if (vector? #{e\ 3832}#) - (#{match\ 3814}# - (vector->list #{e\ 3832}#) - (vector-ref #{p\ 3833}# 1) - #{w\ 3834}# - #{r\ 3835}# - #{mod\ 3836}#) + (if (vector? #{e\ 14761}#) + (#{match\ 14743}# + (vector->list #{e\ 14761}#) + (vector-ref #{p\ 14762}# 1) + #{w\ 14763}# + #{r\ 14764}# + #{mod\ 14765}#) #f)))))))))))) - (#{combine\ 3810}# - (lambda (#{r*\ 3889}# #{r\ 3890}#) - (if (null? (car #{r*\ 3889}#)) - #{r\ 3890}# - (cons (map car #{r*\ 3889}#) - (#{combine\ 3810}# - (map cdr #{r*\ 3889}#) - #{r\ 3890}#))))) - (#{match-empty\ 3808}# - (lambda (#{p\ 3893}# #{r\ 3894}#) - (if (null? #{p\ 3893}#) - #{r\ 3894}# - (if (eq? #{p\ 3893}# (quote any)) - (cons (quote ()) #{r\ 3894}#) - (if (pair? #{p\ 3893}#) - (#{match-empty\ 3808}# - (car #{p\ 3893}#) - (#{match-empty\ 3808}# - (cdr #{p\ 3893}#) - #{r\ 3894}#)) - (if (eq? #{p\ 3893}# (quote each-any)) - (cons (quote ()) #{r\ 3894}#) - (let ((#{atom-key\ 3908}# - (vector-ref #{p\ 3893}# 0))) - (if (memv #{atom-key\ 3908}# (quote (each))) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3893}# 1) - #{r\ 3894}#) - (if (memv #{atom-key\ 3908}# (quote (each+))) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3893}# 1) - (#{match-empty\ 3808}# - (reverse (vector-ref #{p\ 3893}# 2)) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3893}# 3) - #{r\ 3894}#))) - (if (memv #{atom-key\ 3908}# + (#{combine\ 14739}# + (lambda (#{r*\ 14818}# #{r\ 14819}#) + (if (null? (car #{r*\ 14818}#)) + #{r\ 14819}# + (cons (map car #{r*\ 14818}#) + (#{combine\ 14739}# + (map cdr #{r*\ 14818}#) + #{r\ 14819}#))))) + (#{match-empty\ 14737}# + (lambda (#{p\ 14822}# #{r\ 14823}#) + (if (null? #{p\ 14822}#) + #{r\ 14823}# + (if (eq? #{p\ 14822}# (quote any)) + (cons (quote ()) #{r\ 14823}#) + (if (pair? #{p\ 14822}#) + (#{match-empty\ 14737}# + (car #{p\ 14822}#) + (#{match-empty\ 14737}# + (cdr #{p\ 14822}#) + #{r\ 14823}#)) + (if (eq? #{p\ 14822}# (quote each-any)) + (cons (quote ()) #{r\ 14823}#) + (let ((#{atom-key\ 14837}# + (vector-ref #{p\ 14822}# 0))) + (if (memv #{atom-key\ 14837}# (quote (each))) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14822}# 1) + #{r\ 14823}#) + (if (memv #{atom-key\ 14837}# (quote (each+))) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14822}# 1) + (#{match-empty\ 14737}# + (reverse (vector-ref #{p\ 14822}# 2)) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14822}# 3) + #{r\ 14823}#))) + (if (memv #{atom-key\ 14837}# '(free-id atom)) - #{r\ 3894}# - (if (memv #{atom-key\ 3908}# + #{r\ 14823}# + (if (memv #{atom-key\ 14837}# '(vector)) - (#{match-empty\ 3808}# - (vector-ref #{p\ 3893}# 1) - #{r\ 3894}#)))))))))))) - (#{match-each-any\ 3806}# - (lambda (#{e\ 3913}# #{w\ 3914}# #{mod\ 3915}#) - (if (pair? #{e\ 3913}#) - (let ((#{l\ 3922}# - (#{match-each-any\ 3806}# - (cdr #{e\ 3913}#) - #{w\ 3914}# - #{mod\ 3915}#))) - (if #{l\ 3922}# - (cons (#{wrap\ 291}# - (car #{e\ 3913}#) - #{w\ 3914}# - #{mod\ 3915}#) - #{l\ 3922}#) + (#{match-empty\ 14737}# + (vector-ref #{p\ 14822}# 1) + #{r\ 14823}#)))))))))))) + (#{match-each-any\ 14735}# + (lambda (#{e\ 14842}# #{w\ 14843}# #{mod\ 14844}#) + (if (pair? #{e\ 14842}#) + (let ((#{l\ 14851}# + (#{match-each-any\ 14735}# + (cdr #{e\ 14842}#) + #{w\ 14843}# + #{mod\ 14844}#))) + (if #{l\ 14851}# + (cons (#{wrap\ 11220}# + (car #{e\ 14842}#) + #{w\ 14843}# + #{mod\ 14844}#) + #{l\ 14851}#) #f)) - (if (null? #{e\ 3913}#) + (if (null? #{e\ 14842}#) '() - (if (#{syntax-object?\ 186}# #{e\ 3913}#) - (#{match-each-any\ 3806}# - (#{syntax-object-expression\ 188}# #{e\ 3913}#) - (#{join-wraps\ 273}# - #{w\ 3914}# - (#{syntax-object-wrap\ 190}# #{e\ 3913}#)) - #{mod\ 3915}#) + (if (#{syntax-object?\ 11115}# #{e\ 14842}#) + (#{match-each-any\ 14735}# + (#{syntax-object-expression\ 11117}# + #{e\ 14842}#) + (#{join-wraps\ 11202}# + #{w\ 14843}# + (#{syntax-object-wrap\ 11119}# #{e\ 14842}#)) + #{mod\ 14844}#) #f))))) - (#{match-each+\ 3804}# - (lambda (#{e\ 3930}# - #{x-pat\ 3931}# - #{y-pat\ 3932}# - #{z-pat\ 3933}# - #{w\ 3934}# - #{r\ 3935}# - #{mod\ 3936}#) - (letrec ((#{f\ 3947}# - (lambda (#{e\ 3948}# #{w\ 3949}#) - (if (pair? #{e\ 3948}#) + (#{match-each+\ 14733}# + (lambda (#{e\ 14859}# + #{x-pat\ 14860}# + #{y-pat\ 14861}# + #{z-pat\ 14862}# + #{w\ 14863}# + #{r\ 14864}# + #{mod\ 14865}#) + (letrec ((#{f\ 14876}# + (lambda (#{e\ 14877}# #{w\ 14878}#) + (if (pair? #{e\ 14877}#) (call-with-values (lambda () - (#{f\ 3947}# - (cdr #{e\ 3948}#) - #{w\ 3949}#)) - (lambda (#{xr*\ 3952}# - #{y-pat\ 3953}# - #{r\ 3954}#) - (if #{r\ 3954}# - (if (null? #{y-pat\ 3953}#) - (let ((#{xr\ 3959}# - (#{match\ 3814}# - (car #{e\ 3948}#) - #{x-pat\ 3931}# - #{w\ 3949}# + (#{f\ 14876}# + (cdr #{e\ 14877}#) + #{w\ 14878}#)) + (lambda (#{xr*\ 14881}# + #{y-pat\ 14882}# + #{r\ 14883}#) + (if #{r\ 14883}# + (if (null? #{y-pat\ 14882}#) + (let ((#{xr\ 14888}# + (#{match\ 14743}# + (car #{e\ 14877}#) + #{x-pat\ 14860}# + #{w\ 14878}# '() - #{mod\ 3936}#))) - (if #{xr\ 3959}# + #{mod\ 14865}#))) + (if #{xr\ 14888}# (values - (cons #{xr\ 3959}# - #{xr*\ 3952}#) - #{y-pat\ 3953}# - #{r\ 3954}#) + (cons #{xr\ 14888}# + #{xr*\ 14881}#) + #{y-pat\ 14882}# + #{r\ 14883}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 3953}#) - (#{match\ 3814}# - (car #{e\ 3948}#) - (car #{y-pat\ 3953}#) - #{w\ 3949}# - #{r\ 3954}# - #{mod\ 3936}#))) + (cdr #{y-pat\ 14882}#) + (#{match\ 14743}# + (car #{e\ 14877}#) + (car #{y-pat\ 14882}#) + #{w\ 14878}# + #{r\ 14883}# + #{mod\ 14865}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 186}# #{e\ 3948}#) - (#{f\ 3947}# - (#{syntax-object-expression\ 188}# - #{e\ 3948}#) - (#{join-wraps\ 273}# - #{w\ 3949}# - #{e\ 3948}#)) + (if (#{syntax-object?\ 11115}# #{e\ 14877}#) + (#{f\ 14876}# + (#{syntax-object-expression\ 11117}# + #{e\ 14877}#) + (#{join-wraps\ 11202}# + #{w\ 14878}# + #{e\ 14877}#)) (values '() - #{y-pat\ 3932}# - (#{match\ 3814}# - #{e\ 3948}# - #{z-pat\ 3933}# - #{w\ 3949}# - #{r\ 3935}# - #{mod\ 3936}#))))))) - (#{f\ 3947}# #{e\ 3930}# #{w\ 3934}#)))) - (#{match-each\ 3802}# - (lambda (#{e\ 3963}# - #{p\ 3964}# - #{w\ 3965}# - #{mod\ 3966}#) - (if (pair? #{e\ 3963}#) - (let ((#{first\ 3974}# - (#{match\ 3814}# - (car #{e\ 3963}#) - #{p\ 3964}# - #{w\ 3965}# + #{y-pat\ 14861}# + (#{match\ 14743}# + #{e\ 14877}# + #{z-pat\ 14862}# + #{w\ 14878}# + #{r\ 14864}# + #{mod\ 14865}#))))))) + (#{f\ 14876}# #{e\ 14859}# #{w\ 14863}#)))) + (#{match-each\ 14731}# + (lambda (#{e\ 14892}# + #{p\ 14893}# + #{w\ 14894}# + #{mod\ 14895}#) + (if (pair? #{e\ 14892}#) + (let ((#{first\ 14903}# + (#{match\ 14743}# + (car #{e\ 14892}#) + #{p\ 14893}# + #{w\ 14894}# '() - #{mod\ 3966}#))) - (if #{first\ 3974}# - (let ((#{rest\ 3978}# - (#{match-each\ 3802}# - (cdr #{e\ 3963}#) - #{p\ 3964}# - #{w\ 3965}# - #{mod\ 3966}#))) - (if #{rest\ 3978}# - (cons #{first\ 3974}# #{rest\ 3978}#) + #{mod\ 14895}#))) + (if #{first\ 14903}# + (let ((#{rest\ 14907}# + (#{match-each\ 14731}# + (cdr #{e\ 14892}#) + #{p\ 14893}# + #{w\ 14894}# + #{mod\ 14895}#))) + (if #{rest\ 14907}# + (cons #{first\ 14903}# #{rest\ 14907}#) #f)) #f)) - (if (null? #{e\ 3963}#) + (if (null? #{e\ 14892}#) '() - (if (#{syntax-object?\ 186}# #{e\ 3963}#) - (#{match-each\ 3802}# - (#{syntax-object-expression\ 188}# #{e\ 3963}#) - #{p\ 3964}# - (#{join-wraps\ 273}# - #{w\ 3965}# - (#{syntax-object-wrap\ 190}# #{e\ 3963}#)) - (#{syntax-object-module\ 192}# #{e\ 3963}#)) + (if (#{syntax-object?\ 11115}# #{e\ 14892}#) + (#{match-each\ 14731}# + (#{syntax-object-expression\ 11117}# + #{e\ 14892}#) + #{p\ 14893}# + (#{join-wraps\ 11202}# + #{w\ 14894}# + (#{syntax-object-wrap\ 11119}# #{e\ 14892}#)) + (#{syntax-object-module\ 11121}# #{e\ 14892}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 3986}# #{p\ 3987}#) - (if (eq? #{p\ 3987}# (quote any)) - (list #{e\ 3986}#) - (if (#{syntax-object?\ 186}# #{e\ 3986}#) - (#{match*\ 3812}# - (#{syntax-object-expression\ 188}# #{e\ 3986}#) - #{p\ 3987}# - (#{syntax-object-wrap\ 190}# #{e\ 3986}#) + (lambda (#{e\ 14915}# #{p\ 14916}#) + (if (eq? #{p\ 14916}# (quote any)) + (list #{e\ 14915}#) + (if (#{syntax-object?\ 11115}# #{e\ 14915}#) + (#{match*\ 14741}# + (#{syntax-object-expression\ 11117}# + #{e\ 14915}#) + #{p\ 14916}# + (#{syntax-object-wrap\ 11119}# #{e\ 14915}#) '() - (#{syntax-object-module\ 192}# #{e\ 3986}#)) - (#{match*\ 3812}# - #{e\ 3986}# - #{p\ 3987}# + (#{syntax-object-module\ 11121}# #{e\ 14915}#)) + (#{match*\ 14741}# + #{e\ 14915}# + #{p\ 14916}# '(()) '() #f))))))))) @@ -12162,50 +12257,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 3996}#) - ((lambda (#{tmp\ 3998}#) - ((lambda (#{tmp\ 3999}#) - (if #{tmp\ 3999}# - (apply (lambda (#{_\ 4003}# #{e1\ 4004}# #{e2\ 4005}#) + (cons (lambda (#{x\ 14925}#) + ((lambda (#{tmp\ 14927}#) + ((lambda (#{tmp\ 14928}#) + (if #{tmp\ 14928}# + (apply (lambda (#{_\ 14932}# #{e1\ 14933}# #{e2\ 14934}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i4000" "i4001" "i4002")) + #("i14929" "i14930" "i14931")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3997"))) + #(ribcage #(x) #((top)) #("i14926"))) (hygiene guile)) - (cons #{e1\ 4004}# #{e2\ 4005}#))) - #{tmp\ 3999}#) - ((lambda (#{tmp\ 4007}#) - (if #{tmp\ 4007}# - (apply (lambda (#{_\ 4013}# - #{out\ 4014}# - #{in\ 4015}# - #{e1\ 4016}# - #{e2\ 4017}#) + (cons #{e1\ 14933}# #{e2\ 14934}#))) + #{tmp\ 14928}#) + ((lambda (#{tmp\ 14936}#) + (if #{tmp\ 14936}# + (apply (lambda (#{_\ 14942}# + #{out\ 14943}# + #{in\ 14944}# + #{e1\ 14945}# + #{e2\ 14946}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i4008" - "i4009" - "i4010" - "i4011" - "i4012")) + #("i14937" + "i14938" + "i14939" + "i14940" + "i14941")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3997"))) + #("i14926"))) (hygiene guile)) - #{in\ 4015}# + #{in\ 14944}# '() - (list #{out\ 4014}# + (list #{out\ 14943}# (cons '#(syntax-object begin ((top) @@ -12216,27 +12311,27 @@ (top) (top) (top)) - #("i4008" - "i4009" - "i4010" - "i4011" - "i4012")) + #("i14937" + "i14938" + "i14939" + "i14940" + "i14941")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3997"))) + #("i14926"))) (hygiene guile)) - (cons #{e1\ 4016}# - #{e2\ 4017}#))))) - #{tmp\ 4007}#) - ((lambda (#{tmp\ 4019}#) - (if #{tmp\ 4019}# - (apply (lambda (#{_\ 4025}# - #{out\ 4026}# - #{in\ 4027}# - #{e1\ 4028}# - #{e2\ 4029}#) + (cons #{e1\ 14945}# + #{e2\ 14946}#))))) + #{tmp\ 14936}#) + ((lambda (#{tmp\ 14948}#) + (if #{tmp\ 14948}# + (apply (lambda (#{_\ 14954}# + #{out\ 14955}# + #{in\ 14956}# + #{e1\ 14957}# + #{e2\ 14958}#) (list '#(syntax-object syntax-case ((top) @@ -12247,16 +12342,16 @@ (top) (top) (top)) - #("i4020" - "i4021" - "i4022" - "i4023" - "i4024")) + #("i14949" + "i14950" + "i14951" + "i14952" + "i14953")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3997"))) + #("i14926"))) (hygiene guile)) (cons '#(syntax-object list @@ -12268,20 +12363,20 @@ (top) (top) (top)) - #("i4020" - "i4021" - "i4022" - "i4023" - "i4024")) + #("i14949" + "i14950" + "i14951" + "i14952" + "i14953")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3997"))) + #("i14926"))) (hygiene guile)) - #{in\ 4027}#) + #{in\ 14956}#) '() - (list #{out\ 4026}# + (list #{out\ 14955}# (cons '#(syntax-object begin ((top) @@ -12296,11 +12391,11 @@ (top) (top) (top)) - #("i4020" - "i4021" - "i4022" - "i4023" - "i4024")) + #("i14949" + "i14950" + "i14951" + "i14952" + "i14953")) #(ribcage () () @@ -12308,53 +12403,53 @@ #(ribcage #(x) #((top)) - #("i3997"))) + #("i14926"))) (hygiene guile)) - (cons #{e1\ 4028}# - #{e2\ 4029}#))))) - #{tmp\ 4019}#) + (cons #{e1\ 14957}# + #{e2\ 14958}#))))) + #{tmp\ 14948}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3998}#))) + #{tmp\ 14927}#))) ($sc-dispatch - #{tmp\ 3998}# + #{tmp\ 14927}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3998}# + #{tmp\ 14927}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3998}# + #{tmp\ 14927}# '(any () any . each-any)))) - #{x\ 3996}#)) + #{x\ 14925}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 4033}#) - ((lambda (#{tmp\ 4035}#) - ((lambda (#{tmp\ 4036}#) - (if #{tmp\ 4036}# - (apply (lambda (#{_\ 4042}# - #{k\ 4043}# - #{keyword\ 4044}# - #{pattern\ 4045}# - #{template\ 4046}#) + (cons (lambda (#{x\ 14962}#) + ((lambda (#{tmp\ 14964}#) + ((lambda (#{tmp\ 14965}#) + (if #{tmp\ 14965}# + (apply (lambda (#{_\ 14971}# + #{k\ 14972}# + #{keyword\ 14973}# + #{pattern\ 14974}# + #{template\ 14975}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4034"))) + #(ribcage #(x) #((top)) #("i14963"))) (hygiene guile)) '(#(syntax-object x @@ -12362,13 +12457,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4034"))) + #(ribcage #(x) #((top)) #("i14963"))) (hygiene guile))) (vector '(#(syntax-object @@ -12377,13 +12472,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4034"))) + #(ribcage #(x) #((top)) #("i14963"))) (hygiene guile)) . #(syntax-object @@ -12392,13 +12487,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4034"))) + #(ribcage #(x) #((top)) #("i14963"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12414,34 +12509,34 @@ (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4034"))) + #("i14963"))) (hygiene guile)) - #{pattern\ 4045}#)) + #{pattern\ 14974}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4034"))) + #("i14963"))) (hygiene guile)) (cons '#(syntax-object x @@ -12457,20 +12552,20 @@ (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4034"))) + #("i14963"))) (hygiene guile)) - (cons #{k\ 4043}# - (map (lambda (#{tmp\ 4050}# - #{tmp\ 4049}#) + (cons #{k\ 14972}# + (map (lambda (#{tmp\ 14979}# + #{tmp\ 14978}#) (list (cons '#(syntax-object dummy ((top) @@ -12485,11 +12580,11 @@ (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () @@ -12497,10 +12592,10 @@ #(ribcage #(x) #((top)) - #("i4034"))) + #("i14963"))) (hygiene guile)) - #{tmp\ 4049}#) + #{tmp\ 14978}#) (list '#(syntax-object syntax ((top) @@ -12515,11 +12610,11 @@ (top) (top) (top)) - #("i4037" - "i4038" - "i4039" - "i4040" - "i4041")) + #("i14966" + "i14967" + "i14968" + "i14969" + "i14970")) #(ribcage () () @@ -12527,47 +12622,47 @@ #(ribcage #(x) #((top)) - #("i4034"))) + #("i14963"))) (hygiene guile)) - #{tmp\ 4050}#))) - #{template\ 4046}# - #{pattern\ 4045}#)))))) - #{tmp\ 4036}#) + #{tmp\ 14979}#))) + #{template\ 14975}# + #{pattern\ 14974}#)))))) + #{tmp\ 14965}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4035}#))) + #{tmp\ 14964}#))) ($sc-dispatch - #{tmp\ 4035}# + #{tmp\ 14964}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 4033}#)) + #{x\ 14962}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 4051}#) - ((lambda (#{tmp\ 4053}#) - ((lambda (#{tmp\ 4054}#) - (if (if #{tmp\ 4054}# - (apply (lambda (#{let*\ 4060}# - #{x\ 4061}# - #{v\ 4062}# - #{e1\ 4063}# - #{e2\ 4064}#) - (and-map identifier? #{x\ 4061}#)) - #{tmp\ 4054}#) + (cons (lambda (#{x\ 14980}#) + ((lambda (#{tmp\ 14982}#) + ((lambda (#{tmp\ 14983}#) + (if (if #{tmp\ 14983}# + (apply (lambda (#{let*\ 14989}# + #{x\ 14990}# + #{v\ 14991}# + #{e1\ 14992}# + #{e2\ 14993}#) + (and-map identifier? #{x\ 14990}#)) + #{tmp\ 14983}#) #f) - (apply (lambda (#{let*\ 4071}# - #{x\ 4072}# - #{v\ 4073}# - #{e1\ 4074}# - #{e2\ 4075}#) - (letrec ((#{f\ 4078}# - (lambda (#{bindings\ 4079}#) - (if (null? #{bindings\ 4079}#) + (apply (lambda (#{let*\ 15000}# + #{x\ 15001}# + #{v\ 15002}# + #{e1\ 15003}# + #{e2\ 15004}#) + (letrec ((#{f\ 15007}# + (lambda (#{bindings\ 15008}#) + (if (null? #{bindings\ 15008}#) (cons '#(syntax-object let ((top) @@ -12575,7 +12670,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4076" "i4077")) + #("i15005" "i15006")) #(ribcage #(let* x v e1 e2) #((top) @@ -12583,25 +12678,25 @@ (top) (top) (top)) - #("i4066" - "i4067" - "i4068" - "i4069" - "i4070")) + #("i14995" + "i14996" + "i14997" + "i14998" + "i14999")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4052"))) + #("i14981"))) (hygiene guile)) (cons '() - (cons #{e1\ 4074}# - #{e2\ 4075}#))) - ((lambda (#{tmp\ 4084}#) - ((lambda (#{tmp\ 4085}#) - (if #{tmp\ 4085}# - (apply (lambda (#{body\ 4088}# - #{binding\ 4089}#) + (cons #{e1\ 15003}# + #{e2\ 15004}#))) + ((lambda (#{tmp\ 15013}#) + ((lambda (#{tmp\ 15014}#) + (if #{tmp\ 15014}# + (apply (lambda (#{body\ 15017}# + #{binding\ 15018}#) (list '#(syntax-object let ((top) @@ -12610,8 +12705,8 @@ binding) #((top) (top)) - #("i4086" - "i4087")) + #("i15015" + "i15016")) #(ribcage () () @@ -12621,8 +12716,8 @@ bindings) #((top) (top)) - #("i4076" - "i4077")) + #("i15005" + "i15006")) #(ribcage #(let* x @@ -12634,11 +12729,11 @@ (top) (top) (top)) - #("i4066" - "i4067" - "i4068" - "i4069" - "i4070")) + #("i14995" + "i14996" + "i14997" + "i14998" + "i14999")) #(ribcage () () @@ -12646,57 +12741,57 @@ #(ribcage #(x) #((top)) - #("i4052"))) + #("i14981"))) (hygiene guile)) - (list #{binding\ 4089}#) - #{body\ 4088}#)) - #{tmp\ 4085}#) + (list #{binding\ 15018}#) + #{body\ 15017}#)) + #{tmp\ 15014}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4084}#))) + #{tmp\ 15013}#))) ($sc-dispatch - #{tmp\ 4084}# + #{tmp\ 15013}# '(any any)))) - (list (#{f\ 4078}# - (cdr #{bindings\ 4079}#)) - (car #{bindings\ 4079}#))))))) - (#{f\ 4078}# - (map list #{x\ 4072}# #{v\ 4073}#)))) - #{tmp\ 4054}#) + (list (#{f\ 15007}# + (cdr #{bindings\ 15008}#)) + (car #{bindings\ 15008}#))))))) + (#{f\ 15007}# + (map list #{x\ 15001}# #{v\ 15002}#)))) + #{tmp\ 14983}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4053}#))) + #{tmp\ 14982}#))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 14982}# '(any #(each (any any)) any . each-any)))) - #{x\ 4051}#)) + #{x\ 14980}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4090}#) - ((lambda (#{tmp\ 4092}#) - ((lambda (#{tmp\ 4093}#) - (if #{tmp\ 4093}# - (apply (lambda (#{_\ 4101}# - #{var\ 4102}# - #{init\ 4103}# - #{step\ 4104}# - #{e0\ 4105}# - #{e1\ 4106}# - #{c\ 4107}#) - ((lambda (#{tmp\ 4109}#) - ((lambda (#{tmp\ 4110}#) - (if #{tmp\ 4110}# - (apply (lambda (#{step\ 4112}#) - ((lambda (#{tmp\ 4113}#) - ((lambda (#{tmp\ 4114}#) - (if #{tmp\ 4114}# + (cons (lambda (#{orig-x\ 15019}#) + ((lambda (#{tmp\ 15021}#) + ((lambda (#{tmp\ 15022}#) + (if #{tmp\ 15022}# + (apply (lambda (#{_\ 15030}# + #{var\ 15031}# + #{init\ 15032}# + #{step\ 15033}# + #{e0\ 15034}# + #{e1\ 15035}# + #{c\ 15036}#) + ((lambda (#{tmp\ 15038}#) + ((lambda (#{tmp\ 15039}#) + (if #{tmp\ 15039}# + (apply (lambda (#{step\ 15041}#) + ((lambda (#{tmp\ 15042}#) + ((lambda (#{tmp\ 15043}#) + (if #{tmp\ 15043}# (apply (lambda () (list '#(syntax-object let @@ -12704,7 +12799,7 @@ #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12720,13 +12815,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12734,7 +12829,7 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) '#(syntax-object @@ -12743,7 +12838,7 @@ #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12759,13 +12854,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12773,19 +12868,19 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) (map list - #{var\ 4102}# - #{init\ 4103}#) + #{var\ 15031}# + #{init\ 15032}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12801,13 +12896,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12815,7 +12910,7 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) (list '#(syntax-object @@ -12824,7 +12919,7 @@ #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12840,13 +12935,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12854,17 +12949,17 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) - #{e0\ 4105}#) + #{e0\ 15034}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12880,13 +12975,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12894,18 +12989,18 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) (append - #{c\ 4107}# + #{c\ 15036}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12921,13 +13016,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12935,15 +13030,15 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) - #{step\ 4112}#))))))) - #{tmp\ 4114}#) - ((lambda (#{tmp\ 4119}#) - (if #{tmp\ 4119}# - (apply (lambda (#{e1\ 4122}# - #{e2\ 4123}#) + #{step\ 15041}#))))))) + #{tmp\ 15043}#) + ((lambda (#{tmp\ 15048}#) + (if #{tmp\ 15048}# + (apply (lambda (#{e1\ 15051}# + #{e2\ 15052}#) (list '#(syntax-object let ((top) @@ -12952,12 +13047,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -12973,13 +13068,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -12987,7 +13082,7 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) '#(syntax-object @@ -12998,12 +13093,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -13019,13 +13114,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -13033,12 +13128,12 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) (map list - #{var\ 4102}# - #{init\ 4103}#) + #{var\ 15031}# + #{init\ 15032}#) (list '#(syntax-object if ((top) @@ -13047,12 +13142,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -13068,13 +13163,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -13082,10 +13177,10 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) - #{e0\ 4105}# + #{e0\ 15034}# (cons '#(syntax-object begin ((top) @@ -13094,12 +13189,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -13115,13 +13210,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -13129,11 +13224,11 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) - (cons #{e1\ 4122}# - #{e2\ 4123}#)) + (cons #{e1\ 15051}# + #{e2\ 15052}#)) (cons '#(syntax-object begin ((top) @@ -13142,12 +13237,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -13163,13 +13258,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -13177,11 +13272,11 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) (append - #{c\ 4107}# + #{c\ 15036}# (list (cons '#(syntax-object doloop ((top) @@ -13190,12 +13285,12 @@ e2) #((top) (top)) - #("i4120" - "i4121")) + #("i15049" + "i15050")) #(ribcage #(step) #((top)) - #("i4111")) + #("i15040")) #(ribcage #(_ var @@ -13211,13 +13306,13 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097" - "i4098" - "i4099" - "i4100")) + #("i15023" + "i15024" + "i15025" + "i15026" + "i15027" + "i15028" + "i15029")) #(ribcage () () @@ -13225,107 +13320,107 @@ #(ribcage #(orig-x) #((top)) - #("i4091"))) + #("i15020"))) (hygiene guile)) - #{step\ 4112}#))))))) - #{tmp\ 4119}#) + #{step\ 15041}#))))))) + #{tmp\ 15048}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4113}#))) + #{tmp\ 15042}#))) ($sc-dispatch - #{tmp\ 4113}# + #{tmp\ 15042}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4113}# + #{tmp\ 15042}# '()))) - #{e1\ 4106}#)) - #{tmp\ 4110}#) + #{e1\ 15035}#)) + #{tmp\ 15039}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4109}#))) + #{tmp\ 15038}#))) ($sc-dispatch - #{tmp\ 4109}# + #{tmp\ 15038}# 'each-any))) - (map (lambda (#{v\ 4130}# #{s\ 4131}#) - ((lambda (#{tmp\ 4134}#) - ((lambda (#{tmp\ 4135}#) - (if #{tmp\ 4135}# - (apply (lambda () #{v\ 4130}#) - #{tmp\ 4135}#) - ((lambda (#{tmp\ 4136}#) - (if #{tmp\ 4136}# - (apply (lambda (#{e\ 4138}#) - #{e\ 4138}#) - #{tmp\ 4136}#) - ((lambda (#{_\ 4140}#) + (map (lambda (#{v\ 15059}# #{s\ 15060}#) + ((lambda (#{tmp\ 15063}#) + ((lambda (#{tmp\ 15064}#) + (if #{tmp\ 15064}# + (apply (lambda () #{v\ 15059}#) + #{tmp\ 15064}#) + ((lambda (#{tmp\ 15065}#) + (if #{tmp\ 15065}# + (apply (lambda (#{e\ 15067}#) + #{e\ 15067}#) + #{tmp\ 15065}#) + ((lambda (#{_\ 15069}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4090}# - #{s\ 4131}#)) - #{tmp\ 4134}#))) + #{orig-x\ 15019}# + #{s\ 15060}#)) + #{tmp\ 15063}#))) ($sc-dispatch - #{tmp\ 4134}# + #{tmp\ 15063}# '(any))))) ($sc-dispatch - #{tmp\ 4134}# + #{tmp\ 15063}# '()))) - #{s\ 4131}#)) - #{var\ 4102}# - #{step\ 4104}#))) - #{tmp\ 4093}#) + #{s\ 15060}#)) + #{var\ 15031}# + #{step\ 15033}#))) + #{tmp\ 15022}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4092}#))) + #{tmp\ 15021}#))) ($sc-dispatch - #{tmp\ 4092}# + #{tmp\ 15021}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4090}#)) + #{orig-x\ 15019}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4147}# - (lambda (#{x\ 4151}# #{y\ 4152}#) - ((lambda (#{tmp\ 4156}#) - ((lambda (#{tmp\ 4157}#) - (if #{tmp\ 4157}# - (apply (lambda (#{x\ 4160}# #{y\ 4161}#) - ((lambda (#{tmp\ 4162}#) - ((lambda (#{tmp\ 4163}#) - (if #{tmp\ 4163}# - (apply (lambda (#{dy\ 4165}#) - ((lambda (#{tmp\ 4166}#) - ((lambda (#{tmp\ 4167}#) - (if #{tmp\ 4167}# - (apply (lambda (#{dx\ 4169}#) + (cons (letrec ((#{quasicons\ 15076}# + (lambda (#{x\ 15080}# #{y\ 15081}#) + ((lambda (#{tmp\ 15085}#) + ((lambda (#{tmp\ 15086}#) + (if #{tmp\ 15086}# + (apply (lambda (#{x\ 15089}# #{y\ 15090}#) + ((lambda (#{tmp\ 15091}#) + ((lambda (#{tmp\ 15092}#) + (if #{tmp\ 15092}# + (apply (lambda (#{dy\ 15094}#) + ((lambda (#{tmp\ 15095}#) + ((lambda (#{tmp\ 15096}#) + (if #{tmp\ 15096}# + (apply (lambda (#{dx\ 15098}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4168")) + #("i15097")) #(ribcage #(dy) #((top)) - #("i4164")) + #("i15093")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13339,8 +13434,8 @@ y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13350,35 +13445,35 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - (cons #{dx\ 4169}# - #{dy\ 4165}#))) - #{tmp\ 4167}#) - ((lambda (#{_\ 4171}#) - (if (null? #{dy\ 4165}#) + (cons #{dx\ 15098}# + #{dy\ 15094}#))) + #{tmp\ 15096}#) + ((lambda (#{_\ 15100}#) + (if (null? #{dy\ 15094}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4170")) + #("i15099")) #(ribcage #(dy) #((top)) - #("i4164")) + #("i15093")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13392,8 +13487,8 @@ y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13403,31 +13498,31 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4160}#) + #{x\ 15089}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4170")) + #("i15099")) #(ribcage #(dy) #((top)) - #("i4164")) + #("i15093")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13441,8 +13536,8 @@ y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13452,17 +13547,17 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4160}# - #{y\ 4161}#))) - #{tmp\ 4166}#))) + #{x\ 15089}# + #{y\ 15090}#))) + #{tmp\ 15095}#))) ($sc-dispatch - #{tmp\ 4166}# + #{tmp\ 15095}# '(#(free-id #(syntax-object quote @@ -13470,13 +13565,13 @@ #(ribcage #(dy) #((top)) - #("i4164")) + #("i15093")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13489,8 +13584,8 @@ #(x y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13500,32 +13595,32 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) any)))) - #{x\ 4160}#)) - #{tmp\ 4163}#) - ((lambda (#{tmp\ 4172}#) - (if #{tmp\ 4172}# - (apply (lambda (#{stuff\ 4174}#) + #{x\ 15089}#)) + #{tmp\ 15092}#) + ((lambda (#{tmp\ 15101}#) + (if #{tmp\ 15101}# + (apply (lambda (#{stuff\ 15103}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4173")) + #("i15102")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13539,8 +13634,8 @@ y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13550,29 +13645,29 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - (cons #{x\ 4160}# - #{stuff\ 4174}#))) - #{tmp\ 4172}#) - ((lambda (#{else\ 4176}#) + (cons #{x\ 15089}# + #{stuff\ 15103}#))) + #{tmp\ 15101}#) + ((lambda (#{else\ 15105}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4175")) + #("i15104")) #(ribcage #(x y) #((top) (top)) - #("i4158" - "i4159")) + #("i15087" + "i15088")) #(ribcage () () @@ -13585,8 +13680,8 @@ #(x y) #((top) (top)) - #("i4153" - "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13596,17 +13691,17 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4160}# - #{y\ 4161}#)) - #{tmp\ 4162}#))) + #{x\ 15089}# + #{y\ 15090}#)) + #{tmp\ 15091}#))) ($sc-dispatch - #{tmp\ 4162}# + #{tmp\ 15091}# '(#(free-id #(syntax-object list @@ -13614,13 +13709,15 @@ #(ribcage #(x y) #((top) (top)) - #("i4158" "i4159")) + #("i15087" + "i15088")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4153" "i4154")) + #("i15082" + "i15083")) #(ribcage #(quasicons quasiappend @@ -13630,15 +13727,15 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4162}# + #{tmp\ 15091}# '(#(free-id #(syntax-object quote @@ -13646,13 +13743,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4158" "i4159")) + #("i15087" "i15088")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4153" "i4154")) + #("i15082" "i15083")) #(ribcage #(quasicons quasiappend @@ -13662,44 +13759,44 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) any)))) - #{y\ 4161}#)) - #{tmp\ 4157}#) + #{y\ 15090}#)) + #{tmp\ 15086}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4156}#))) - ($sc-dispatch #{tmp\ 4156}# (quote (any any))))) - (list #{x\ 4151}# #{y\ 4152}#)))) - (#{quasiappend\ 4148}# - (lambda (#{x\ 4177}# #{y\ 4178}#) - ((lambda (#{tmp\ 4182}#) - ((lambda (#{tmp\ 4183}#) - (if #{tmp\ 4183}# - (apply (lambda (#{x\ 4186}# #{y\ 4187}#) - ((lambda (#{tmp\ 4188}#) - ((lambda (#{tmp\ 4189}#) - (if #{tmp\ 4189}# - (apply (lambda () #{x\ 4186}#) - #{tmp\ 4189}#) - ((lambda (#{_\ 4191}#) + #{tmp\ 15085}#))) + ($sc-dispatch #{tmp\ 15085}# (quote (any any))))) + (list #{x\ 15080}# #{y\ 15081}#)))) + (#{quasiappend\ 15077}# + (lambda (#{x\ 15106}# #{y\ 15107}#) + ((lambda (#{tmp\ 15111}#) + ((lambda (#{tmp\ 15112}#) + (if #{tmp\ 15112}# + (apply (lambda (#{x\ 15115}# #{y\ 15116}#) + ((lambda (#{tmp\ 15117}#) + ((lambda (#{tmp\ 15118}#) + (if #{tmp\ 15118}# + (apply (lambda () #{x\ 15115}#) + #{tmp\ 15118}#) + ((lambda (#{_\ 15120}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4190")) + #("i15119")) #(ribcage #(x y) #((top) (top)) - #("i4184" - "i4185")) + #("i15113" + "i15114")) #(ribcage () () @@ -13711,8 +13808,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4179" - "i4180")) + #("i15108" + "i15109")) #(ribcage #(quasicons quasiappend @@ -13722,16 +13819,16 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4186}# - #{y\ 4187}#)) - #{tmp\ 4188}#))) + #{x\ 15115}# + #{y\ 15116}#)) + #{tmp\ 15117}#))) ($sc-dispatch - #{tmp\ 4188}# + #{tmp\ 15117}# '(#(free-id #(syntax-object quote @@ -13739,13 +13836,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4184" "i4185")) + #("i15113" "i15114")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4179" "i4180")) + #("i15108" "i15109")) #(ribcage #(quasicons quasiappend @@ -13755,45 +13852,45 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) ())))) - #{y\ 4187}#)) - #{tmp\ 4183}#) + #{y\ 15116}#)) + #{tmp\ 15112}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4182}#))) - ($sc-dispatch #{tmp\ 4182}# (quote (any any))))) - (list #{x\ 4177}# #{y\ 4178}#)))) - (#{quasivector\ 4149}# - (lambda (#{x\ 4192}#) - ((lambda (#{tmp\ 4195}#) - ((lambda (#{x\ 4197}#) - ((lambda (#{tmp\ 4198}#) - ((lambda (#{tmp\ 4199}#) - (if #{tmp\ 4199}# - (apply (lambda (#{x\ 4201}#) + #{tmp\ 15111}#))) + ($sc-dispatch #{tmp\ 15111}# (quote (any any))))) + (list #{x\ 15106}# #{y\ 15107}#)))) + (#{quasivector\ 15078}# + (lambda (#{x\ 15121}#) + ((lambda (#{tmp\ 15124}#) + ((lambda (#{x\ 15126}#) + ((lambda (#{tmp\ 15127}#) + ((lambda (#{tmp\ 15128}#) + (if #{tmp\ 15128}# + (apply (lambda (#{x\ 15130}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4200")) + #("i15129")) #(ribcage #(x) #((top)) - #("i4196")) + #("i15125")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4193")) + #("i15122")) #(ribcage #(quasicons quasiappend @@ -13803,28 +13900,28 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) (list->vector - #{x\ 4201}#))) - #{tmp\ 4199}#) - ((lambda (#{tmp\ 4203}#) - (if #{tmp\ 4203}# - (apply (lambda (#{x\ 4205}#) + #{x\ 15130}#))) + #{tmp\ 15128}#) + ((lambda (#{tmp\ 15132}#) + (if #{tmp\ 15132}# + (apply (lambda (#{x\ 15134}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4204")) + #("i15133")) #(ribcage #(x) #((top)) - #("i4196")) + #("i15125")) #(ribcage () () @@ -13836,7 +13933,7 @@ #(ribcage #(x) #((top)) - #("i4193")) + #("i15122")) #(ribcage #(quasicons quasiappend @@ -13846,31 +13943,31 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4205}#)) - #{tmp\ 4203}#) - ((lambda (#{_\ 4208}#) + #{x\ 15134}#)) + #{tmp\ 15132}#) + ((lambda (#{_\ 15137}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4207")) + #("i15136")) #(ribcage #(x) #((top)) - #("i4196")) + #("i15125")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4193")) + #("i15122")) #(ribcage #(quasicons quasiappend @@ -13880,15 +13977,15 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{x\ 4197}#)) - #{tmp\ 4198}#))) + #{x\ 15126}#)) + #{tmp\ 15127}#))) ($sc-dispatch - #{tmp\ 4198}# + #{tmp\ 15127}# '(#(free-id #(syntax-object list @@ -13896,82 +13993,82 @@ #(ribcage #(x) #((top)) - #("i4196")) + #("i15125")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4193")) + #("i15122")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4198}# + #{tmp\ 15127}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4196")) + #(ribcage #(x) #((top)) #("i15125")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4193")) + #(ribcage #(x) #((top)) #("i15122")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) each-any)))) - #{x\ 4197}#)) - #{tmp\ 4195}#)) - #{x\ 4192}#))) - (#{quasi\ 4150}# - (lambda (#{p\ 4209}# #{lev\ 4210}#) - ((lambda (#{tmp\ 4213}#) - ((lambda (#{tmp\ 4214}#) - (if #{tmp\ 4214}# - (apply (lambda (#{p\ 4216}#) - (if (= #{lev\ 4210}# 0) - #{p\ 4216}# - (#{quasicons\ 4147}# + #{x\ 15126}#)) + #{tmp\ 15124}#)) + #{x\ 15121}#))) + (#{quasi\ 15079}# + (lambda (#{p\ 15138}# #{lev\ 15139}#) + ((lambda (#{tmp\ 15142}#) + ((lambda (#{tmp\ 15143}#) + (if #{tmp\ 15143}# + (apply (lambda (#{p\ 15145}#) + (if (= #{lev\ 15139}# 0) + #{p\ 15145}# + (#{quasicons\ 15076}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4215")) + #("i15144")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) #(syntax-object unquote @@ -13979,50 +14076,51 @@ #(ribcage #(p) #((top)) - #("i4215")) + #("i15144")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) - (#{quasi\ 4150}# - (list #{p\ 4216}#) - (- #{lev\ 4210}# 1))))) - #{tmp\ 4214}#) - ((lambda (#{tmp\ 4217}#) - (if (if #{tmp\ 4217}# - (apply (lambda (#{args\ 4219}#) - (= #{lev\ 4210}# 0)) - #{tmp\ 4217}#) + (#{quasi\ 15079}# + (list #{p\ 15145}#) + (- #{lev\ 15139}# 1))))) + #{tmp\ 15143}#) + ((lambda (#{tmp\ 15146}#) + (if (if #{tmp\ 15146}# + (apply (lambda (#{args\ 15148}#) + (= #{lev\ 15139}# 0)) + #{tmp\ 15146}#) #f) - (apply (lambda (#{args\ 4221}#) + (apply (lambda (#{args\ 15150}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4209}# + #{p\ 15138}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4220")) + #("i15149")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14032,33 +14130,33 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{args\ 4221}#))) - #{tmp\ 4217}#) - ((lambda (#{tmp\ 4222}#) - (if #{tmp\ 4222}# - (apply (lambda (#{p\ 4225}# - #{q\ 4226}#) - (if (= #{lev\ 4210}# 0) - (#{quasiappend\ 4148}# - #{p\ 4225}# - (#{quasi\ 4150}# - #{q\ 4226}# - #{lev\ 4210}#)) - (#{quasicons\ 4147}# - (#{quasicons\ 4147}# + #{args\ 15150}#))) + #{tmp\ 15146}#) + ((lambda (#{tmp\ 15151}#) + (if #{tmp\ 15151}# + (apply (lambda (#{p\ 15154}# + #{q\ 15155}#) + (if (= #{lev\ 15139}# 0) + (#{quasiappend\ 15077}# + #{p\ 15154}# + (#{quasi\ 15079}# + #{q\ 15155}# + #{lev\ 15139}#)) + (#{quasicons\ 15076}# + (#{quasicons\ 15076}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4223" - "i4224")) + #("i15152" + "i15153")) #(ribcage () () @@ -14066,8 +14164,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14077,10 +14175,10 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14088,8 +14186,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4223" - "i4224")) + #("i15152" + "i15153")) #(ribcage () () @@ -14097,8 +14195,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14108,31 +14206,33 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) - (#{quasi\ 4150}# - (list #{p\ 4225}#) - (- #{lev\ 4210}# 1))) - (#{quasi\ 4150}# - #{q\ 4226}# - #{lev\ 4210}#)))) - #{tmp\ 4222}#) - ((lambda (#{tmp\ 4227}#) - (if (if #{tmp\ 4227}# - (apply (lambda (#{args\ 4230}# - #{q\ 4231}#) - (= #{lev\ 4210}# 0)) - #{tmp\ 4227}#) + (#{quasi\ 15079}# + (list #{p\ 15154}#) + (- #{lev\ 15139}# + 1))) + (#{quasi\ 15079}# + #{q\ 15155}# + #{lev\ 15139}#)))) + #{tmp\ 15151}#) + ((lambda (#{tmp\ 15156}#) + (if (if #{tmp\ 15156}# + (apply (lambda (#{args\ 15159}# + #{q\ 15160}#) + (= #{lev\ 15139}# + 0)) + #{tmp\ 15156}#) #f) - (apply (lambda (#{args\ 4234}# - #{q\ 4235}#) + (apply (lambda (#{args\ 15163}# + #{q\ 15164}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4209}# + #{p\ 15138}# (cons '#(syntax-object unquote-splicing ((top) @@ -14140,8 +14240,8 @@ #(args q) #((top) (top)) - #("i4232" - "i4233")) + #("i15161" + "i15162")) #(ribcage () () @@ -14150,8 +14250,8 @@ #(p lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14161,25 +14261,25 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{args\ 4234}#))) - #{tmp\ 4227}#) - ((lambda (#{tmp\ 4236}#) - (if #{tmp\ 4236}# - (apply (lambda (#{p\ 4238}#) - (#{quasicons\ 4147}# + #{args\ 15163}#))) + #{tmp\ 15156}#) + ((lambda (#{tmp\ 15165}#) + (if #{tmp\ 15165}# + (apply (lambda (#{p\ 15167}#) + (#{quasicons\ 15076}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4237")) + #("i15166")) #(ribcage () () @@ -14188,8 +14288,8 @@ #(p lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14199,10 +14299,10 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) #(syntax-object @@ -14211,7 +14311,7 @@ #(ribcage #(p) #((top)) - #("i4237")) + #("i15166")) #(ribcage () () @@ -14220,8 +14320,8 @@ #(p lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14231,45 +14331,45 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) - (#{quasi\ 4150}# - (list #{p\ 4238}#) - (+ #{lev\ 4210}# + (#{quasi\ 15079}# + (list #{p\ 15167}#) + (+ #{lev\ 15139}# 1)))) - #{tmp\ 4236}#) - ((lambda (#{tmp\ 4239}#) - (if #{tmp\ 4239}# - (apply (lambda (#{p\ 4242}# - #{q\ 4243}#) - (#{quasicons\ 4147}# - (#{quasi\ 4150}# - #{p\ 4242}# - #{lev\ 4210}#) - (#{quasi\ 4150}# - #{q\ 4243}# - #{lev\ 4210}#))) - #{tmp\ 4239}#) - ((lambda (#{tmp\ 4244}#) - (if #{tmp\ 4244}# - (apply (lambda (#{x\ 4246}#) - (#{quasivector\ 4149}# - (#{quasi\ 4150}# - #{x\ 4246}# - #{lev\ 4210}#))) - #{tmp\ 4244}#) - ((lambda (#{p\ 4249}#) + #{tmp\ 15165}#) + ((lambda (#{tmp\ 15168}#) + (if #{tmp\ 15168}# + (apply (lambda (#{p\ 15171}# + #{q\ 15172}#) + (#{quasicons\ 15076}# + (#{quasi\ 15079}# + #{p\ 15171}# + #{lev\ 15139}#) + (#{quasi\ 15079}# + #{q\ 15172}# + #{lev\ 15139}#))) + #{tmp\ 15168}#) + ((lambda (#{tmp\ 15173}#) + (if #{tmp\ 15173}# + (apply (lambda (#{x\ 15175}#) + (#{quasivector\ 15078}# + (#{quasi\ 15079}# + #{x\ 15175}# + #{lev\ 15139}#))) + #{tmp\ 15173}#) + ((lambda (#{p\ 15178}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4248")) + #("i15177")) #(ribcage () () @@ -14279,8 +14379,8 @@ lev) #((top) (top)) - #("i4211" - "i4212")) + #("i15140" + "i15141")) #(ribcage #(quasicons quasiappend @@ -14290,23 +14390,23 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile)) - #{p\ 4249}#)) - #{tmp\ 4213}#))) + #{p\ 15178}#)) + #{tmp\ 15142}#))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '(any . any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '(#(free-id #(syntax-object quasiquote @@ -14315,7 +14415,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend @@ -14325,14 +14425,14 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '((#(free-id #(syntax-object unquote-splicing @@ -14341,7 +14441,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend @@ -14351,17 +14451,17 @@ (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '((#(free-id #(syntax-object unquote-splicing @@ -14370,23 +14470,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" - "i4144" - "i4145" - "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '(#(free-id #(syntax-object unquote @@ -14395,19 +14495,22 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" "i4144" "i4145" "i4146"))) + #("i15072" + "i15073" + "i15074" + "i15075"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4213}# + #{tmp\ 15142}# '(#(free-id #(syntax-object unquote @@ -14416,244 +14519,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i4211" "i4212")) + #("i15140" "i15141")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4143" "i4144" "i4145" "i4146"))) + #("i15072" "i15073" "i15074" "i15075"))) (hygiene guile))) any)))) - #{p\ 4209}#)))) - (lambda (#{x\ 4250}#) - ((lambda (#{tmp\ 4252}#) - ((lambda (#{tmp\ 4253}#) - (if #{tmp\ 4253}# - (apply (lambda (#{_\ 4256}# #{e\ 4257}#) - (#{quasi\ 4150}# #{e\ 4257}# 0)) - #{tmp\ 4253}#) + #{p\ 15138}#)))) + (lambda (#{x\ 15179}#) + ((lambda (#{tmp\ 15181}#) + ((lambda (#{tmp\ 15182}#) + (if #{tmp\ 15182}# + (apply (lambda (#{_\ 15185}# #{e\ 15186}#) + (#{quasi\ 15079}# #{e\ 15186}# 0)) + #{tmp\ 15182}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4252}#))) - ($sc-dispatch #{tmp\ 4252}# (quote (any any))))) - #{x\ 4250}#))) + #{tmp\ 15181}#))) + ($sc-dispatch #{tmp\ 15181}# (quote (any any))))) + #{x\ 15179}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4258}#) - (letrec ((#{read-file\ 4261}# - (lambda (#{fn\ 4262}# #{k\ 4263}#) - (let ((#{p\ 4267}# (open-input-file #{fn\ 4262}#))) - (letrec ((#{f\ 4271}# - (lambda (#{x\ 4272}# #{result\ 4273}#) - (if (eof-object? #{x\ 4272}#) + (cons (lambda (#{x\ 15187}#) + (letrec ((#{read-file\ 15190}# + (lambda (#{fn\ 15191}# #{k\ 15192}#) + (let ((#{p\ 15196}# (open-input-file #{fn\ 15191}#))) + (letrec ((#{f\ 15200}# + (lambda (#{x\ 15201}# #{result\ 15202}#) + (if (eof-object? #{x\ 15201}#) (begin - (close-input-port #{p\ 4267}#) - (reverse #{result\ 4273}#)) - (#{f\ 4271}# - (read #{p\ 4267}#) + (close-input-port #{p\ 15196}#) + (reverse #{result\ 15202}#)) + (#{f\ 15200}# + (read #{p\ 15196}#) (cons (datum->syntax - #{k\ 4263}# - #{x\ 4272}#) - #{result\ 4273}#)))))) - (#{f\ 4271}# (read #{p\ 4267}#) (quote ()))))))) - ((lambda (#{tmp\ 4274}#) - ((lambda (#{tmp\ 4275}#) - (if #{tmp\ 4275}# - (apply (lambda (#{k\ 4278}# #{filename\ 4279}#) - (let ((#{fn\ 4281}# - (syntax->datum #{filename\ 4279}#))) - ((lambda (#{tmp\ 4283}#) - ((lambda (#{tmp\ 4284}#) - (if #{tmp\ 4284}# - (apply (lambda (#{exp\ 4286}#) + #{k\ 15192}# + #{x\ 15201}#) + #{result\ 15202}#)))))) + (#{f\ 15200}# (read #{p\ 15196}#) (quote ()))))))) + ((lambda (#{tmp\ 15203}#) + ((lambda (#{tmp\ 15204}#) + (if #{tmp\ 15204}# + (apply (lambda (#{k\ 15207}# #{filename\ 15208}#) + (let ((#{fn\ 15210}# + (syntax->datum #{filename\ 15208}#))) + ((lambda (#{tmp\ 15212}#) + ((lambda (#{tmp\ 15213}#) + (if #{tmp\ 15213}# + (apply (lambda (#{exp\ 15215}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4285")) + #("i15214")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4280")) + #("i15209")) #(ribcage #(k filename) #((top) (top)) - #("i4276" - "i4277")) + #("i15205" + "i15206")) #(ribcage (read-file) ((top)) - ("i4260")) + ("i15189")) #(ribcage #(x) #((top)) - #("i4259"))) + #("i15188"))) (hygiene guile)) - #{exp\ 4286}#)) - #{tmp\ 4284}#) + #{exp\ 15215}#)) + #{tmp\ 15213}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4283}#))) + #{tmp\ 15212}#))) ($sc-dispatch - #{tmp\ 4283}# + #{tmp\ 15212}# 'each-any))) - (#{read-file\ 4261}# - #{fn\ 4281}# - #{k\ 4278}#)))) - #{tmp\ 4275}#) + (#{read-file\ 15190}# + #{fn\ 15210}# + #{k\ 15207}#)))) + #{tmp\ 15204}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4274}#))) - ($sc-dispatch #{tmp\ 4274}# (quote (any any))))) - #{x\ 4258}#))) + #{tmp\ 15203}#))) + ($sc-dispatch #{tmp\ 15203}# (quote (any any))))) + #{x\ 15187}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4288}#) - ((lambda (#{tmp\ 4290}#) - ((lambda (#{tmp\ 4291}#) - (if #{tmp\ 4291}# - (apply (lambda (#{k\ 4294}# #{filename\ 4295}#) - (let ((#{fn\ 4297}# - (syntax->datum #{filename\ 4295}#))) - ((lambda (#{tmp\ 4299}#) - ((lambda (#{fn\ 4301}#) + (cons (lambda (#{x\ 15217}#) + ((lambda (#{tmp\ 15219}#) + ((lambda (#{tmp\ 15220}#) + (if #{tmp\ 15220}# + (apply (lambda (#{k\ 15223}# #{filename\ 15224}#) + (let ((#{fn\ 15226}# + (syntax->datum #{filename\ 15224}#))) + ((lambda (#{tmp\ 15228}#) + ((lambda (#{fn\ 15230}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4300")) + #("i15229")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4296")) + #("i15225")) #(ribcage #(k filename) #((top) (top)) - #("i4292" "i4293")) + #("i15221" "i15222")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4289"))) + #("i15218"))) (hygiene guile)) - #{fn\ 4301}#)) - #{tmp\ 4299}#)) - (let ((#{t\ 4304}# - (%search-load-path #{fn\ 4297}#))) - (if #{t\ 4304}# - #{t\ 4304}# + #{fn\ 15230}#)) + #{tmp\ 15228}#)) + (let ((#{t\ 15233}# + (%search-load-path #{fn\ 15226}#))) + (if #{t\ 15233}# + #{t\ 15233}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4288}# - #{filename\ 4295}#)))))) - #{tmp\ 4291}#) + #{x\ 15217}# + #{filename\ 15224}#)))))) + #{tmp\ 15220}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4290}#))) - ($sc-dispatch #{tmp\ 4290}# (quote (any any))))) - #{x\ 4288}#)) + #{tmp\ 15219}#))) + ($sc-dispatch #{tmp\ 15219}# (quote (any any))))) + #{x\ 15217}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4306}#) - ((lambda (#{tmp\ 4308}#) - ((lambda (#{tmp\ 4309}#) - (if #{tmp\ 4309}# - (apply (lambda (#{_\ 4312}# #{e\ 4313}#) + (cons (lambda (#{x\ 15235}#) + ((lambda (#{tmp\ 15237}#) + ((lambda (#{tmp\ 15238}#) + (if #{tmp\ 15238}# + (apply (lambda (#{_\ 15241}# #{e\ 15242}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4306}#)) - #{tmp\ 4309}#) + #{x\ 15235}#)) + #{tmp\ 15238}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4308}#))) - ($sc-dispatch #{tmp\ 4308}# (quote (any any))))) - #{x\ 4306}#)) + #{tmp\ 15237}#))) + ($sc-dispatch #{tmp\ 15237}# (quote (any any))))) + #{x\ 15235}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4314}#) - ((lambda (#{tmp\ 4316}#) - ((lambda (#{tmp\ 4317}#) - (if #{tmp\ 4317}# - (apply (lambda (#{_\ 4320}# #{e\ 4321}#) + (cons (lambda (#{x\ 15243}#) + ((lambda (#{tmp\ 15245}#) + ((lambda (#{tmp\ 15246}#) + (if #{tmp\ 15246}# + (apply (lambda (#{_\ 15249}# #{e\ 15250}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4314}#)) - #{tmp\ 4317}#) + #{x\ 15243}#)) + #{tmp\ 15246}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4316}#))) - ($sc-dispatch #{tmp\ 4316}# (quote (any any))))) - #{x\ 4314}#)) + #{tmp\ 15245}#))) + ($sc-dispatch #{tmp\ 15245}# (quote (any any))))) + #{x\ 15243}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4322}#) - ((lambda (#{tmp\ 4324}#) - ((lambda (#{tmp\ 4325}#) - (if #{tmp\ 4325}# - (apply (lambda (#{_\ 4330}# - #{e\ 4331}# - #{m1\ 4332}# - #{m2\ 4333}#) - ((lambda (#{tmp\ 4335}#) - ((lambda (#{body\ 4337}#) + (cons (lambda (#{x\ 15251}#) + ((lambda (#{tmp\ 15253}#) + ((lambda (#{tmp\ 15254}#) + (if #{tmp\ 15254}# + (apply (lambda (#{_\ 15259}# + #{e\ 15260}# + #{m1\ 15261}# + #{m2\ 15262}#) + ((lambda (#{tmp\ 15264}#) + ((lambda (#{body\ 15266}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4336")) + #("i15265")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14661,35 +14764,35 @@ #(ribcage #(body) #((top)) - #("i4336")) + #("i15265")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - #{e\ 4331}#)) - #{body\ 4337}#)) - #{tmp\ 4335}#)) - (letrec ((#{f\ 4341}# - (lambda (#{clause\ 4342}# - #{clauses\ 4343}#) - (if (null? #{clauses\ 4343}#) - ((lambda (#{tmp\ 4345}#) - ((lambda (#{tmp\ 4346}#) - (if #{tmp\ 4346}# - (apply (lambda (#{e1\ 4349}# - #{e2\ 4350}#) + #{e\ 15260}#)) + #{body\ 15266}#)) + #{tmp\ 15264}#)) + (letrec ((#{f\ 15270}# + (lambda (#{clause\ 15271}# + #{clauses\ 15272}#) + (if (null? #{clauses\ 15272}#) + ((lambda (#{tmp\ 15274}#) + ((lambda (#{tmp\ 15275}#) + (if #{tmp\ 15275}# + (apply (lambda (#{e1\ 15278}# + #{e2\ 15279}#) (cons '#(syntax-object begin ((top) @@ -14698,8 +14801,8 @@ e2) #((top) (top)) - #("i4347" - "i4348")) + #("i15276" + "i15277")) #(ribcage () () @@ -14711,9 +14814,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14723,10 +14826,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14734,17 +14837,17 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - (cons #{e1\ 4349}# - #{e2\ 4350}#))) - #{tmp\ 4346}#) - ((lambda (#{tmp\ 4352}#) - (if #{tmp\ 4352}# - (apply (lambda (#{k\ 4356}# - #{e1\ 4357}# - #{e2\ 4358}#) + (cons #{e1\ 15278}# + #{e2\ 15279}#))) + #{tmp\ 15275}#) + ((lambda (#{tmp\ 15281}#) + (if #{tmp\ 15281}# + (apply (lambda (#{k\ 15285}# + #{e1\ 15286}# + #{e2\ 15287}#) (list '#(syntax-object if ((top) @@ -14755,9 +14858,9 @@ #((top) (top) (top)) - #("i4353" - "i4354" - "i4355")) + #("i15282" + "i15283" + "i15284")) #(ribcage () () @@ -14769,9 +14872,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14781,10 +14884,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14792,7 +14895,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) (list '#(syntax-object @@ -14805,9 +14908,9 @@ #((top) (top) (top)) - #("i4353" - "i4354" - "i4355")) + #("i15282" + "i15283" + "i15284")) #(ribcage () () @@ -14819,9 +14922,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14831,10 +14934,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14842,7 +14945,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) '#(syntax-object @@ -14855,9 +14958,9 @@ #((top) (top) (top)) - #("i4353" - "i4354" - "i4355")) + #("i15282" + "i15283" + "i15284")) #(ribcage () () @@ -14869,9 +14972,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14881,10 +14984,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14892,7 +14995,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) (list '#(syntax-object @@ -14905,9 +15008,9 @@ #((top) (top) (top)) - #("i4353" - "i4354" - "i4355")) + #("i15282" + "i15283" + "i15284")) #(ribcage () () @@ -14919,9 +15022,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14931,10 +15034,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14942,10 +15045,10 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - #{k\ 4356}#)) + #{k\ 15285}#)) (cons '#(syntax-object begin ((top) @@ -14956,9 +15059,9 @@ #((top) (top) (top)) - #("i4353" - "i4354" - "i4355")) + #("i15282" + "i15283" + "i15284")) #(ribcage () () @@ -14970,9 +15073,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -14982,10 +15085,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -14993,27 +15096,27 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - (cons #{e1\ 4357}# - #{e2\ 4358}#)))) - #{tmp\ 4352}#) - ((lambda (#{_\ 4362}#) + (cons #{e1\ 15286}# + #{e2\ 15287}#)))) + #{tmp\ 15281}#) + ((lambda (#{_\ 15291}#) (syntax-violation 'case "bad clause" - #{x\ 4322}# - #{clause\ 4342}#)) - #{tmp\ 4345}#))) + #{x\ 15251}# + #{clause\ 15271}#)) + #{tmp\ 15274}#))) ($sc-dispatch - #{tmp\ 4345}# + #{tmp\ 15274}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4345}# + #{tmp\ 15274}# '(#(free-id #(syntax-object else @@ -15024,37 +15127,37 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile))) any . each-any)))) - #{clause\ 4342}#) - ((lambda (#{tmp\ 4364}#) - ((lambda (#{rest\ 4366}#) - ((lambda (#{tmp\ 4367}#) - ((lambda (#{tmp\ 4368}#) - (if #{tmp\ 4368}# - (apply (lambda (#{k\ 4372}# - #{e1\ 4373}# - #{e2\ 4374}#) + #{clause\ 15271}#) + ((lambda (#{tmp\ 15293}#) + ((lambda (#{rest\ 15295}#) + ((lambda (#{tmp\ 15296}#) + ((lambda (#{tmp\ 15297}#) + (if #{tmp\ 15297}# + (apply (lambda (#{k\ 15301}# + #{e1\ 15302}# + #{e2\ 15303}#) (list '#(syntax-object if ((top) @@ -15065,13 +15168,13 @@ #((top) (top) (top)) - #("i4369" - "i4370" - "i4371")) + #("i15298" + "i15299" + "i15300")) #(ribcage #(rest) #((top)) - #("i4365")) + #("i15294")) #(ribcage () () @@ -15083,9 +15186,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -15095,10 +15198,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -15106,7 +15209,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) (list '#(syntax-object @@ -15119,13 +15222,13 @@ #((top) (top) (top)) - #("i4369" - "i4370" - "i4371")) + #("i15298" + "i15299" + "i15300")) #(ribcage #(rest) #((top)) - #("i4365")) + #("i15294")) #(ribcage () () @@ -15137,9 +15240,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -15149,10 +15252,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -15160,7 +15263,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) '#(syntax-object @@ -15173,13 +15276,13 @@ #((top) (top) (top)) - #("i4369" - "i4370" - "i4371")) + #("i15298" + "i15299" + "i15300")) #(ribcage #(rest) #((top)) - #("i4365")) + #("i15294")) #(ribcage () () @@ -15191,9 +15294,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -15203,10 +15306,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -15214,7 +15317,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) (list '#(syntax-object @@ -15227,13 +15330,13 @@ #((top) (top) (top)) - #("i4369" - "i4370" - "i4371")) + #("i15298" + "i15299" + "i15300")) #(ribcage #(rest) #((top)) - #("i4365")) + #("i15294")) #(ribcage () () @@ -15245,9 +15348,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -15257,10 +15360,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -15268,10 +15371,10 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - #{k\ 4372}#)) + #{k\ 15301}#)) (cons '#(syntax-object begin ((top) @@ -15282,13 +15385,13 @@ #((top) (top) (top)) - #("i4369" - "i4370" - "i4371")) + #("i15298" + "i15299" + "i15300")) #(ribcage #(rest) #((top)) - #("i4365")) + #("i15294")) #(ribcage () () @@ -15300,9 +15403,9 @@ #((top) (top) (top)) - #("i4338" - "i4339" - "i4340")) + #("i15267" + "i15268" + "i15269")) #(ribcage #(_ e @@ -15312,10 +15415,10 @@ (top) (top) (top)) - #("i4326" - "i4327" - "i4328" - "i4329")) + #("i15255" + "i15256" + "i15257" + "i15258")) #(ribcage () () @@ -15323,61 +15426,61 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i15252"))) (hygiene guile)) - (cons #{e1\ 4373}# - #{e2\ 4374}#)) - #{rest\ 4366}#)) - #{tmp\ 4368}#) - ((lambda (#{_\ 4378}#) + (cons #{e1\ 15302}# + #{e2\ 15303}#)) + #{rest\ 15295}#)) + #{tmp\ 15297}#) + ((lambda (#{_\ 15307}#) (syntax-violation 'case "bad clause" - #{x\ 4322}# - #{clause\ 4342}#)) - #{tmp\ 4367}#))) + #{x\ 15251}# + #{clause\ 15271}#)) + #{tmp\ 15296}#))) ($sc-dispatch - #{tmp\ 4367}# + #{tmp\ 15296}# '(each-any any . each-any)))) - #{clause\ 4342}#)) - #{tmp\ 4364}#)) - (#{f\ 4341}# - (car #{clauses\ 4343}#) - (cdr #{clauses\ 4343}#))))))) - (#{f\ 4341}# #{m1\ 4332}# #{m2\ 4333}#)))) - #{tmp\ 4325}#) + #{clause\ 15271}#)) + #{tmp\ 15293}#)) + (#{f\ 15270}# + (car #{clauses\ 15272}#) + (cdr #{clauses\ 15272}#))))))) + (#{f\ 15270}# #{m1\ 15261}# #{m2\ 15262}#)))) + #{tmp\ 15254}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4324}#))) + #{tmp\ 15253}#))) ($sc-dispatch - #{tmp\ 4324}# + #{tmp\ 15253}# '(any any any . each-any)))) - #{x\ 4322}#)) + #{x\ 15251}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4379}#) - ((lambda (#{tmp\ 4381}#) - ((lambda (#{tmp\ 4382}#) - (if #{tmp\ 4382}# - (apply (lambda (#{_\ 4385}# #{e\ 4386}#) + (cons (lambda (#{x\ 15308}#) + ((lambda (#{tmp\ 15310}#) + ((lambda (#{tmp\ 15311}#) + (if #{tmp\ 15311}# + (apply (lambda (#{_\ 15314}# #{e\ 15315}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4380"))) + #(ribcage #(x) #((top)) #("i15309"))) (hygiene guile)) '(#(syntax-object x @@ -15385,9 +15488,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4380"))) + #(ribcage #(x) #((top)) #("i15309"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -15395,9 +15498,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4380"))) + #(ribcage #(x) #((top)) #("i15309"))) (hygiene guile)) . #(syntax-object @@ -15406,9 +15509,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4380"))) + #(ribcage #(x) #((top)) #("i15309"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15416,12 +15519,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) '#(syntax-object x @@ -15429,12 +15532,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) '() (list '#(syntax-object @@ -15443,12 +15546,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15456,12 +15559,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) (#(syntax-object syntax @@ -15469,12 +15572,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) #(syntax-object id @@ -15482,12 +15585,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15495,27 +15598,29 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" + "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) - #{e\ 4386}#)) - (list (cons #{_\ 4385}# + #{e\ 15315}#)) + (list (cons #{_\ 15314}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" + "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) #(syntax-object ... @@ -15523,12 +15628,13 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" + "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15536,14 +15642,15 @@ #(ribcage #(_ e) #((top) (top)) - #("i4383" "i4384")) + #("i15312" + "i15313")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) - (cons #{e\ 4386}# + (cons #{e\ 15315}# '(#(syntax-object x ((top) @@ -15551,8 +15658,8 @@ #(_ e) #((top) (top)) - #("i4383" - "i4384")) + #("i15312" + "i15313")) #(ribcage () () @@ -15560,7 +15667,7 @@ #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile)) #(syntax-object ... @@ -15569,8 +15676,8 @@ #(_ e) #((top) (top)) - #("i4383" - "i4384")) + #("i15312" + "i15313")) #(ribcage () () @@ -15578,72 +15685,72 @@ #(ribcage #(x) #((top)) - #("i4380"))) + #("i15309"))) (hygiene guile))))))))) - #{tmp\ 4382}#) + #{tmp\ 15311}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4381}#))) - ($sc-dispatch #{tmp\ 4381}# (quote (any any))))) - #{x\ 4379}#)) + #{tmp\ 15310}#))) + ($sc-dispatch #{tmp\ 15310}# (quote (any any))))) + #{x\ 15308}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4387}#) - ((lambda (#{tmp\ 4389}#) - ((lambda (#{tmp\ 4390}#) - (if #{tmp\ 4390}# - (apply (lambda (#{_\ 4396}# - #{id\ 4397}# - #{args\ 4398}# - #{b0\ 4399}# - #{b1\ 4400}#) + (cons (lambda (#{x\ 15316}#) + ((lambda (#{tmp\ 15318}#) + ((lambda (#{tmp\ 15319}#) + (if #{tmp\ 15319}# + (apply (lambda (#{_\ 15325}# + #{id\ 15326}# + #{args\ 15327}# + #{b0\ 15328}# + #{b1\ 15329}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4391" - "i4392" - "i4393" - "i4394" - "i4395")) + #("i15320" + "i15321" + "i15322" + "i15323" + "i15324")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4388"))) + #(ribcage #(x) #((top)) #("i15317"))) (hygiene guile)) - #{id\ 4397}# + #{id\ 15326}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4391" - "i4392" - "i4393" - "i4394" - "i4395")) + #("i15320" + "i15321" + "i15322" + "i15323" + "i15324")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4388"))) + #("i15317"))) (hygiene guile)) - (cons #{args\ 4398}# - (cons #{b0\ 4399}# - #{b1\ 4400}#))))) - #{tmp\ 4390}#) - ((lambda (#{tmp\ 4402}#) - (if (if #{tmp\ 4402}# - (apply (lambda (#{_\ 4406}# - #{id\ 4407}# - #{val\ 4408}#) + (cons #{args\ 15327}# + (cons #{b0\ 15328}# + #{b1\ 15329}#))))) + #{tmp\ 15319}#) + ((lambda (#{tmp\ 15331}#) + (if (if #{tmp\ 15331}# + (apply (lambda (#{_\ 15335}# + #{id\ 15336}# + #{val\ 15337}#) (identifier? '#(syntax-object x @@ -15651,44 +15758,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i4403" "i4404" "i4405")) + #("i15332" "i15333" "i15334")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4388"))) + #("i15317"))) (hygiene guile)))) - #{tmp\ 4402}#) + #{tmp\ 15331}#) #f) - (apply (lambda (#{_\ 4412}# - #{id\ 4413}# - #{val\ 4414}#) + (apply (lambda (#{_\ 15341}# + #{id\ 15342}# + #{val\ 15343}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i4409" "i4410" "i4411")) + #("i15338" "i15339" "i15340")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4388"))) + #("i15317"))) (hygiene guile)) - #{id\ 4413}# - #{val\ 4414}#)) - #{tmp\ 4402}#) + #{id\ 15342}# + #{val\ 15343}#)) + #{tmp\ 15331}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4389}#))) + #{tmp\ 15318}#))) ($sc-dispatch - #{tmp\ 4389}# + #{tmp\ 15318}# '(any any any))))) ($sc-dispatch - #{tmp\ 4389}# + #{tmp\ 15318}# '(any (any . any) any . each-any)))) - #{x\ 4387}#)) + #{x\ 15316}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 17d4de0c0..66201583b 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -276,7 +276,6 @@ ...)))))) (let () - (define noexpand "noexpand") (define *mode* (make-fluid)) ;;; hooks to nonportable run-time helpers @@ -289,18 +288,18 @@ (define top-level-eval-hook (lambda (x mod) (primitive-eval - `(,noexpand - ,(case (fluid-ref *mode*) - ((c) ((@ (language tree-il) tree-il->scheme) x)) - (else x)))))) + (memoize-expression + (case (fluid-ref *mode*) + ((c) ((@ (language tree-il) tree-il->scheme) x)) + (else x)))))) (define local-eval-hook (lambda (x mod) (primitive-eval - `(,noexpand - ,(case (fluid-ref *mode*) - ((c) ((@ (language tree-il) tree-il->scheme) x)) - (else x)))))) + (memoize-expression + (case (fluid-ref *mode*) + ((c) ((@ (language tree-il) tree-il->scheme) x)) + (else x)))))) (define-syntax gensym-hook (syntax-rules () @@ -2450,16 +2449,17 @@ ;;; the object file if we are compiling a file. (set! macroexpand (lambda (x . rest) - (if (and (pair? x) (equal? (car x) noexpand)) - (cadr x) - (let ((m (if (null? rest) 'e (car rest))) - (esew (if (or (null? rest) (null? (cdr rest))) - '(eval) - (cadr rest)))) - (with-fluids ((*mode* m)) - (chi-top x null-env top-wrap m esew - (cons 'hygiene (module-name (current-module))))))))) - + (let ((m (if (null? rest) 'e (car rest))) + (esew (if (or (null? rest) (null? (cdr rest))) + '(eval) + (cadr rest))) + (mod (cons 'hygiene (module-name (current-module))))) + (with-fluids ((*mode* m)) + (if (eq? m 'e) + (memoize-expression + (chi-top x null-env top-wrap m esew mod)) + (chi-top x null-env top-wrap m esew mod)))))) + (set! identifier? (lambda (x) (nonsymbol-id? x))) |