guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-38-gd7a


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-6-38-gd7a4096
Date: Thu, 24 Dec 2009 13:19:43 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d7a4096d251933a21325739fcd32129b073c33ce

The branch, master has been updated
       via  d7a4096d251933a21325739fcd32129b073c33ce (commit)
       via  f6fe5fe26b7b64c2d194b1dd27b1bd038e8fa70c (commit)
       via  f6a8e7919755ce15cd75ad01326e02151fa99445 (commit)
      from  1ad7fef5249f409317c20d5242bc3c4c2b8d9d18 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d7a4096d251933a21325739fcd32129b073c33ce
Author: Andy Wingo <address@hidden>
Date:   Thu Dec 24 14:20:41 2009 +0100

    implement up, down, frame, and bindings in the repl
    
    * module/system/vm/debug.scm (debugger-repl): Implement up, down, frame,
      and bindings using the new command infrastructure.

commit f6fe5fe26b7b64c2d194b1dd27b1bd038e8fa70c
Author: Andy Wingo <address@hidden>
Date:   Thu Dec 24 08:28:59 2009 +0100

    rewrite debugger command loop
    
    * module/system/vm/debug.scm: Rewrite the command loop to have better
      introspection and argument handling.

commit f6a8e7919755ce15cd75ad01326e02151fa99445
Author: Andy Wingo <address@hidden>
Date:   Wed Dec 23 22:59:12 2009 +0100

    keyword arg errors throw to 'keyword-argument-error
    
    * libguile/vm-engine.c (VM_NAME): Keyword arg errors are now thrown to
      'keyword-argument-error.
    
    * libguile/vm.c: Define sym_keyword_argument_error, and statically
      allocate some other symbols.
    
    * module/ice-9/optargs.scm (parse-lambda-case): Throw to
      'keyword-argument-error in kwarg error cases.
    
    * module/ice-9/psyntax.scm (build-lambda-case): Remove a couple
      workarounds for the old memoizer. Throw to 'wrong-number-of-args if
      the lambda-case fails to parse.
    
    * module/ice-9/psyntax-pp.scm: Regenerated.
    
    * test-suite/tests/optargs.test: Update expected exceptions.

-----------------------------------------------------------------------

Summary of changes:
 libguile/vm-engine.c          |   25 +-
 libguile/vm.c                 |   11 +-
 module/ice-9/optargs.scm      |    9 +-
 module/ice-9/psyntax-pp.scm   |16987 +++++++++++++++++++++--------------------
 module/ice-9/psyntax.scm      |   11 +-
 module/system/vm/debug.scm    |  272 +-
 test-suite/tests/optargs.test |   15 +-
 7 files changed, 8809 insertions(+), 8521 deletions(-)

diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 4f2dff2..a64b43a 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -130,6 +130,8 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
   {
     SCM err_msg;
 
+    /* FIXME: need to sync regs before allocating anything, in each case. */
+
   vm_error_bad_instruction:
     err_msg  = scm_from_locale_string ("VM: Bad instruction: ~s");
     finish_args = scm_list_1 (scm_from_uchar (ip[-1]));
@@ -145,19 +147,24 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
     goto vm_error;
 
   vm_error_kwargs_length_not_even:
-    err_msg  = scm_from_locale_string ("Bad keyword argument list: odd 
length");
-    finish_args = SCM_EOL;
-    goto vm_error;
+    SYNC_ALL ();
+    err_msg = scm_from_locale_string ("Odd length of keyword argument list");
+    scm_error_scm (sym_keyword_argument_error, program, err_msg,
+                   SCM_EOL, SCM_BOOL_F);
 
   vm_error_kwargs_invalid_keyword:
-    err_msg  = scm_from_locale_string ("Bad keyword argument list: expected 
keyword");
-    finish_args = SCM_EOL;
-    goto vm_error;
+    /* FIXME say which one it was */
+    SYNC_ALL ();
+    err_msg = scm_from_locale_string ("Invalid keyword");
+    scm_error_scm (sym_keyword_argument_error, program, err_msg,
+                   SCM_EOL, SCM_BOOL_F);
 
   vm_error_kwargs_unrecognized_keyword:
-    err_msg  = scm_from_locale_string ("Bad keyword argument list: 
unrecognized keyword");
-    finish_args = SCM_EOL;
-    goto vm_error;
+    /* FIXME say which one it was */
+    SYNC_ALL ();
+    err_msg = scm_from_locale_string ("Unrecognized keyword");
+    scm_error_scm (sym_keyword_argument_error, program, err_msg,
+                   SCM_EOL, SCM_BOOL_F);
 
   vm_error_too_many_args:
     err_msg  = scm_from_locale_string ("VM: Too many arguments");
diff --git a/libguile/vm.c b/libguile/vm.c
index 121beaa..a5b5a55 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -169,9 +169,10 @@ vm_dispatch_hook (SCM vm, int hook_num)
  * VM Internal functions
  */
 
-static SCM sym_vm_run;
-static SCM sym_vm_error;
-static SCM sym_debug;
+SCM_SYMBOL (sym_vm_run, "vm-run");
+SCM_SYMBOL (sym_vm_error, "vm-error");
+SCM_SYMBOL (sym_keyword_argument_error, "keyword-argument-error");
+SCM_SYMBOL (sym_debug, "debug");
 
 static SCM
 really_make_boot_program (long nargs)
@@ -672,10 +673,6 @@ scm_bootstrap_vm (void)
                 scm_c_make_gsubr ("load-compiled/vm", 1, 0, 0,
                                   scm_load_compiled_with_vm));
 
-  sym_vm_run = scm_from_locale_symbol ("vm-run");
-  sym_vm_error = scm_from_locale_symbol ("vm-error");
-  sym_debug = scm_from_locale_symbol ("debug");
-
   scm_c_register_extension ("libguile", "scm_init_vm",
                             (scm_t_extension_init_func)scm_init_vm, NULL);
 
diff --git a/module/ice-9/optargs.scm b/module/ice-9/optargs.scm
index 5ad9e81..c9a0493 100644
--- a/module/ice-9/optargs.scm
+++ b/module/ice-9/optargs.scm
@@ -343,7 +343,8 @@
               (pair? (cdr args-tail))
               allow-other-keys?)
          (permissive-keys slots slots-tail (cddr args-tail) inits))
-        (else (error "unrecognized keyword" args-tail))))
+        (else (scm-error 'keyword-argument-error #f "Unrecognized keyword"
+                         '() args-tail))))
      (define (key slots slots-tail args-tail inits)
        (cond
         ((null? args-tail)
@@ -357,7 +358,8 @@
          (if rest-idx
              ;; no error checking, everything goes to the rest..
              (key slots slots-tail '() inits)
-             (error "bad keyword argument list" args-tail)))
+             (scm-error 'keyword-argument-error #f "Invalid keyword"
+                        '() args-tail)))
         ((and (keyword? (car args-tail))
               (pair? (cdr args-tail))
               (assq-ref kw-indices (car args-tail)))
@@ -368,7 +370,8 @@
               (pair? (cdr args-tail))
               allow-other-keys?)
          (key slots slots-tail (cddr args-tail) inits))
-        (else (error "unrecognized keyword" args-tail))))
+        (else (scm-error 'keyword-argument-error #f "Unrecognized keyword"
+                         '() args-tail))))
      (let ((args (list-copy args)))
        (req args #f args nreq)))
     (else (error "unexpected spec" spec))))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 999cc6f..ec229ce 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,610 +1,610 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 28}#
-           (lambda (#{f\ 66}# #{first\ 67}# . #{rest\ 68}#)
-             (let ((#{t\ 69}# (null? #{first\ 67}#)))
-               (if #{t\ 69}#
-                 #{t\ 69}#
-                 (if (null? #{rest\ 68}#)
-                   (letrec ((#{andmap\ 70}#
-                              (lambda (#{first\ 71}#)
-                                (let ((#{x\ 72}# (car #{first\ 71}#))
-                                      (#{first\ 73}# (cdr #{first\ 71}#)))
-                                  (if (null? #{first\ 73}#)
-                                    (#{f\ 66}# #{x\ 72}#)
-                                    (if (#{f\ 66}# #{x\ 72}#)
-                                      (#{andmap\ 70}# #{first\ 73}#)
+(letrec ((#{and-map*\ 60}#
+           (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#)
+             (let ((#{t\ 130}# (null? #{first\ 123}#)))
+               (if #{t\ 130}#
+                 #{t\ 130}#
+                 (if (null? #{rest\ 124}#)
+                   (letrec ((#{andmap\ 134}#
+                              (lambda (#{first\ 135}#)
+                                (let ((#{x\ 138}# (car #{first\ 135}#))
+                                      (#{first\ 139}# (cdr #{first\ 135}#)))
+                                  (if (null? #{first\ 139}#)
+                                    (#{f\ 122}# #{x\ 138}#)
+                                    (if (#{f\ 122}# #{x\ 138}#)
+                                      (#{andmap\ 134}# #{first\ 139}#)
                                       #f))))))
-                     (#{andmap\ 70}# #{first\ 67}#))
-                   (letrec ((#{andmap\ 74}#
-                              (lambda (#{first\ 75}# #{rest\ 76}#)
-                                (let ((#{x\ 77}# (car #{first\ 75}#))
-                                      (#{xr\ 78}# (map car #{rest\ 76}#))
-                                      (#{first\ 79}# (cdr #{first\ 75}#))
-                                      (#{rest\ 80}# (map cdr #{rest\ 76}#)))
-                                  (if (null? #{first\ 79}#)
-                                    (apply #{f\ 66}#
-                                           (cons #{x\ 77}# #{xr\ 78}#))
-                                    (if (apply #{f\ 66}#
-                                               (cons #{x\ 77}# #{xr\ 78}#))
-                                      (#{andmap\ 74}#
-                                        #{first\ 79}#
-                                        #{rest\ 80}#)
+                     (#{andmap\ 134}# #{first\ 123}#))
+                   (letrec ((#{andmap\ 145}#
+                              (lambda (#{first\ 146}# #{rest\ 147}#)
+                                (let ((#{x\ 152}# (car #{first\ 146}#))
+                                      (#{xr\ 153}# (map car #{rest\ 147}#))
+                                      (#{first\ 154}# (cdr #{first\ 146}#))
+                                      (#{rest\ 155}# (map cdr #{rest\ 147}#)))
+                                  (if (null? #{first\ 154}#)
+                                    (apply #{f\ 122}#
+                                           (cons #{x\ 152}# #{xr\ 153}#))
+                                    (if (apply #{f\ 122}#
+                                               (cons #{x\ 152}# #{xr\ 153}#))
+                                      (#{andmap\ 145}#
+                                        #{first\ 154}#
+                                        #{rest\ 155}#)
                                       #f))))))
-                     (#{andmap\ 74}# #{first\ 67}# #{rest\ 68}#))))))))
-  (letrec ((#{lambda-var-list\ 179}#
-             (lambda (#{vars\ 303}#)
-               (letrec ((#{lvl\ 304}#
-                          (lambda (#{vars\ 305}# #{ls\ 306}# #{w\ 307}#)
-                            (if (pair? #{vars\ 305}#)
-                              (#{lvl\ 304}#
-                                (cdr #{vars\ 305}#)
-                                (cons (#{wrap\ 156}#
-                                        (car #{vars\ 305}#)
-                                        #{w\ 307}#
+                     (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#))))))))
+  (letrec ((#{lambda-var-list\ 375}#
+             (lambda (#{vars\ 590}#)
+               (letrec ((#{lvl\ 596}#
+                          (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#)
+                            (if (pair? #{vars\ 597}#)
+                              (#{lvl\ 596}#
+                                (cdr #{vars\ 597}#)
+                                (cons (#{wrap\ 329}#
+                                        (car #{vars\ 597}#)
+                                        #{w\ 599}#
                                         #f)
-                                      #{ls\ 306}#)
-                                #{w\ 307}#)
-                              (if (#{id?\ 128}# #{vars\ 305}#)
-                                (cons (#{wrap\ 156}#
-                                        #{vars\ 305}#
-                                        #{w\ 307}#
+                                      #{ls\ 598}#)
+                                #{w\ 599}#)
+                              (if (#{id?\ 260}# #{vars\ 597}#)
+                                (cons (#{wrap\ 329}#
+                                        #{vars\ 597}#
+                                        #{w\ 599}#
                                         #f)
-                                      #{ls\ 306}#)
-                                (if (null? #{vars\ 305}#)
-                                  #{ls\ 306}#
-                                  (if (#{syntax-object?\ 112}# #{vars\ 305}#)
-                                    (#{lvl\ 304}#
-                                      (#{syntax-object-expression\ 113}#
-                                        #{vars\ 305}#)
-                                      #{ls\ 306}#
-                                      (#{join-wraps\ 147}#
-                                        #{w\ 307}#
-                                        (#{syntax-object-wrap\ 114}#
-                                          #{vars\ 305}#)))
-                                    (cons #{vars\ 305}# #{ls\ 306}#))))))))
-                 (#{lvl\ 304}#
-                   #{vars\ 303}#
+                                      #{ls\ 598}#)
+                                (if (null? #{vars\ 597}#)
+                                  #{ls\ 598}#
+                                  (if (#{syntax-object?\ 224}# #{vars\ 597}#)
+                                    (#{lvl\ 596}#
+                                      (#{syntax-object-expression\ 226}#
+                                        #{vars\ 597}#)
+                                      #{ls\ 598}#
+                                      (#{join-wraps\ 311}#
+                                        #{w\ 599}#
+                                        (#{syntax-object-wrap\ 228}#
+                                          #{vars\ 597}#)))
+                                    (cons #{vars\ 597}# #{ls\ 598}#))))))))
+                 (#{lvl\ 596}#
+                   #{vars\ 590}#
                    '()
                    '(())))))
-           (#{gen-var\ 178}#
-             (lambda (#{id\ 308}#)
-               (let ((#{id\ 309}#
-                       (if (#{syntax-object?\ 112}# #{id\ 308}#)
-                         (#{syntax-object-expression\ 113}# #{id\ 308}#)
-                         #{id\ 308}#)))
+           (#{gen-var\ 373}#
+             (lambda (#{id\ 610}#)
+               (let ((#{id\ 613}#
+                       (if (#{syntax-object?\ 224}# #{id\ 610}#)
+                         (#{syntax-object-expression\ 226}# #{id\ 610}#)
+                         #{id\ 610}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 309}#) " ")))))
-           (#{strip\ 177}#
-             (lambda (#{x\ 310}# #{w\ 311}#)
+                   (string-append (symbol->string #{id\ 613}#) " ")))))
+           (#{strip\ 371}#
+             (lambda (#{x\ 615}# #{w\ 616}#)
                (if (memq 'top
-                         (#{wrap-marks\ 131}# #{w\ 311}#))
-                 #{x\ 310}#
-                 (letrec ((#{f\ 312}# (lambda (#{x\ 313}#)
-                                        (if (#{syntax-object?\ 112}#
-                                              #{x\ 313}#)
-                                          (#{strip\ 177}#
-                                            (#{syntax-object-expression\ 113}#
-                                              #{x\ 313}#)
-                                            (#{syntax-object-wrap\ 114}#
-                                              #{x\ 313}#))
-                                          (if (pair? #{x\ 313}#)
-                                            (let ((#{a\ 314}# (#{f\ 312}# (car 
#{x\ 313}#)))
-                                                  (#{d\ 315}# (#{f\ 312}# (cdr 
#{x\ 313}#))))
-                                              (if (if (eq? #{a\ 314}#
-                                                           (car #{x\ 313}#))
-                                                    (eq? #{d\ 315}#
-                                                         (cdr #{x\ 313}#))
+                         (#{wrap-marks\ 267}# #{w\ 616}#))
+                 #{x\ 615}#
+                 (letrec ((#{f\ 622}# (lambda (#{x\ 623}#)
+                                        (if (#{syntax-object?\ 224}#
+                                              #{x\ 623}#)
+                                          (#{strip\ 371}#
+                                            (#{syntax-object-expression\ 226}#
+                                              #{x\ 623}#)
+                                            (#{syntax-object-wrap\ 228}#
+                                              #{x\ 623}#))
+                                          (if (pair? #{x\ 623}#)
+                                            (let ((#{a\ 630}# (#{f\ 622}# (car 
#{x\ 623}#)))
+                                                  (#{d\ 631}# (#{f\ 622}# (cdr 
#{x\ 623}#))))
+                                              (if (if (eq? #{a\ 630}#
+                                                           (car #{x\ 623}#))
+                                                    (eq? #{d\ 631}#
+                                                         (cdr #{x\ 623}#))
                                                     #f)
-                                                #{x\ 313}#
-                                                (cons #{a\ 314}# #{d\ 315}#)))
-                                            (if (vector? #{x\ 313}#)
-                                              (let ((#{old\ 316}#
+                                                #{x\ 623}#
+                                                (cons #{a\ 630}# #{d\ 631}#)))
+                                            (if (vector? #{x\ 623}#)
+                                              (let ((#{old\ 637}#
                                                       (vector->list
-                                                        #{x\ 313}#)))
-                                                (let ((#{new\ 317}#
-                                                        (map #{f\ 312}#
-                                                             #{old\ 316}#)))
-                                                  (if (#{and-map*\ 28}#
+                                                        #{x\ 623}#)))
+                                                (let ((#{new\ 639}#
+                                                        (map #{f\ 622}#
+                                                             #{old\ 637}#)))
+                                                  (if (#{and-map*\ 60}#
                                                         eq?
-                                                        #{old\ 316}#
-                                                        #{new\ 317}#)
-                                                    #{x\ 313}#
+                                                        #{old\ 637}#
+                                                        #{new\ 639}#)
+                                                    #{x\ 623}#
                                                     (list->vector
-                                                      #{new\ 317}#))))
-                                              #{x\ 313}#))))))
-                   (#{f\ 312}# #{x\ 310}#)))))
-           (#{chi-lambda-case\ 176}#
-             (lambda (#{e\ 318}#
-                      #{r\ 319}#
-                      #{w\ 320}#
-                      #{s\ 321}#
-                      #{mod\ 322}#
-                      #{get-formals\ 323}#
-                      #{clauses\ 324}#)
-               (letrec ((#{expand-body\ 328}#
-                          (lambda (#{req\ 329}#
-                                   #{opt\ 330}#
-                                   #{rest\ 331}#
-                                   #{kw\ 332}#
-                                   #{body\ 333}#
-                                   #{vars\ 334}#
-                                   #{r*\ 335}#
-                                   #{w*\ 336}#
-                                   #{inits\ 337}#)
-                            ((lambda (#{tmp\ 338}#)
-                               ((lambda (#{tmp\ 339}#)
-                                  (if (if #{tmp\ 339}#
-                                        (apply (lambda (#{docstring\ 340}#
-                                                        #{e1\ 341}#
-                                                        #{e2\ 342}#)
+                                                      #{new\ 639}#))))
+                                              #{x\ 623}#))))))
+                   (#{f\ 622}# #{x\ 615}#)))))
+           (#{chi-lambda-case\ 369}#
+             (lambda (#{e\ 641}#
+                      #{r\ 642}#
+                      #{w\ 643}#
+                      #{s\ 644}#
+                      #{mod\ 645}#
+                      #{get-formals\ 646}#
+                      #{clauses\ 647}#)
+               (letrec ((#{expand-body\ 662}#
+                          (lambda (#{req\ 663}#
+                                   #{opt\ 664}#
+                                   #{rest\ 665}#
+                                   #{kw\ 666}#
+                                   #{body\ 667}#
+                                   #{vars\ 668}#
+                                   #{r*\ 669}#
+                                   #{w*\ 670}#
+                                   #{inits\ 671}#)
+                            ((lambda (#{tmp\ 681}#)
+                               ((lambda (#{tmp\ 682}#)
+                                  (if (if #{tmp\ 682}#
+                                        (apply (lambda (#{docstring\ 686}#
+                                                        #{e1\ 687}#
+                                                        #{e2\ 688}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 340}#)))
-                                               #{tmp\ 339}#)
+                                                     #{docstring\ 686}#)))
+                                               #{tmp\ 682}#)
                                         #f)
-                                    (apply (lambda (#{docstring\ 343}#
-                                                    #{e1\ 344}#
-                                                    #{e2\ 345}#)
+                                    (apply (lambda (#{docstring\ 692}#
+                                                    #{e1\ 693}#
+                                                    #{e2\ 694}#)
                                              (values
                                                (syntax->datum
-                                                 #{docstring\ 343}#)
-                                               #{req\ 329}#
-                                               #{opt\ 330}#
-                                               #{rest\ 331}#
-                                               #{kw\ 332}#
-                                               #{inits\ 337}#
-                                               #{vars\ 334}#
-                                               (#{chi-body\ 168}#
-                                                 (cons #{e1\ 344}# #{e2\ 345}#)
-                                                 (#{source-wrap\ 157}#
-                                                   #{e\ 318}#
-                                                   #{w\ 320}#
-                                                   #{s\ 321}#
-                                                   #{mod\ 322}#)
-                                                 #{r*\ 335}#
-                                                 #{w*\ 336}#
-                                                 #{mod\ 322}#)))
-                                           #{tmp\ 339}#)
-                                    ((lambda (#{tmp\ 347}#)
-                                       (if #{tmp\ 347}#
-                                         (apply (lambda (#{e1\ 348}#
-                                                         #{e2\ 349}#)
+                                                 #{docstring\ 692}#)
+                                               #{req\ 663}#
+                                               #{opt\ 664}#
+                                               #{rest\ 665}#
+                                               #{kw\ 666}#
+                                               #{inits\ 671}#
+                                               #{vars\ 668}#
+                                               (#{chi-body\ 353}#
+                                                 (cons #{e1\ 693}# #{e2\ 694}#)
+                                                 (#{source-wrap\ 331}#
+                                                   #{e\ 641}#
+                                                   #{w\ 643}#
+                                                   #{s\ 644}#
+                                                   #{mod\ 645}#)
+                                                 #{r*\ 669}#
+                                                 #{w*\ 670}#
+                                                 #{mod\ 645}#)))
+                                           #{tmp\ 682}#)
+                                    ((lambda (#{tmp\ 696}#)
+                                       (if #{tmp\ 696}#
+                                         (apply (lambda (#{e1\ 699}#
+                                                         #{e2\ 700}#)
                                                   (values
                                                     #f
-                                                    #{req\ 329}#
-                                                    #{opt\ 330}#
-                                                    #{rest\ 331}#
-                                                    #{kw\ 332}#
-                                                    #{inits\ 337}#
-                                                    #{vars\ 334}#
-                                                    (#{chi-body\ 168}#
-                                                      (cons #{e1\ 348}#
-                                                            #{e2\ 349}#)
-                                                      (#{source-wrap\ 157}#
-                                                        #{e\ 318}#
-                                                        #{w\ 320}#
-                                                        #{s\ 321}#
-                                                        #{mod\ 322}#)
-                                                      #{r*\ 335}#
-                                                      #{w*\ 336}#
-                                                      #{mod\ 322}#)))
-                                                #{tmp\ 347}#)
+                                                    #{req\ 663}#
+                                                    #{opt\ 664}#
+                                                    #{rest\ 665}#
+                                                    #{kw\ 666}#
+                                                    #{inits\ 671}#
+                                                    #{vars\ 668}#
+                                                    (#{chi-body\ 353}#
+                                                      (cons #{e1\ 699}#
+                                                            #{e2\ 700}#)
+                                                      (#{source-wrap\ 331}#
+                                                        #{e\ 641}#
+                                                        #{w\ 643}#
+                                                        #{s\ 644}#
+                                                        #{mod\ 645}#)
+                                                      #{r*\ 669}#
+                                                      #{w*\ 670}#
+                                                      #{mod\ 645}#)))
+                                                #{tmp\ 696}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 338}#)))
+                                           #{tmp\ 681}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 338}#
+                                       #{tmp\ 681}#
                                        '(any . each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 338}#
+                                  #{tmp\ 681}#
                                   '(any any . each-any))))
-                             #{body\ 333}#)))
-                        (#{expand-kw\ 327}#
-                          (lambda (#{req\ 351}#
-                                   #{opt\ 352}#
-                                   #{rest\ 353}#
-                                   #{kw\ 354}#
-                                   #{body\ 355}#
-                                   #{vars\ 356}#
-                                   #{r*\ 357}#
-                                   #{w*\ 358}#
-                                   #{aok\ 359}#
-                                   #{out\ 360}#
-                                   #{inits\ 361}#)
-                            (if (pair? #{kw\ 354}#)
-                              ((lambda (#{tmp\ 362}#)
-                                 ((lambda (#{tmp\ 363}#)
-                                    (if #{tmp\ 363}#
-                                      (apply (lambda (#{k\ 364}#
-                                                      #{id\ 365}#
-                                                      #{i\ 366}#)
-                                               (let ((#{v\ 367}# (#{gen-var\ 
178}#
-                                                                   #{id\ 
365}#)))
-                                                 (let ((#{l\ 368}# 
(#{gen-labels\ 134}#
-                                                                     (list 
#{v\ 367}#))))
-                                                   (let ((#{r**\ 369}#
-                                                           (#{extend-var-env\ 
123}#
-                                                             #{l\ 368}#
-                                                             (list #{v\ 367}#)
-                                                             #{r*\ 357}#)))
-                                                     (let ((#{w**\ 370}#
-                                                             
(#{make-binding-wrap\ 145}#
-                                                               (list #{id\ 
365}#)
-                                                               #{l\ 368}#
-                                                               #{w*\ 358}#)))
-                                                       (#{expand-kw\ 327}#
-                                                         #{req\ 351}#
-                                                         #{opt\ 352}#
-                                                         #{rest\ 353}#
-                                                         (cdr #{kw\ 354}#)
-                                                         #{body\ 355}#
-                                                         (cons #{v\ 367}#
-                                                               #{vars\ 356}#)
-                                                         #{r**\ 369}#
-                                                         #{w**\ 370}#
-                                                         #{aok\ 359}#
+                             #{body\ 667}#)))
+                        (#{expand-kw\ 660}#
+                          (lambda (#{req\ 702}#
+                                   #{opt\ 703}#
+                                   #{rest\ 704}#
+                                   #{kw\ 705}#
+                                   #{body\ 706}#
+                                   #{vars\ 707}#
+                                   #{r*\ 708}#
+                                   #{w*\ 709}#
+                                   #{aok\ 710}#
+                                   #{out\ 711}#
+                                   #{inits\ 712}#)
+                            (if (pair? #{kw\ 705}#)
+                              ((lambda (#{tmp\ 726}#)
+                                 ((lambda (#{tmp\ 727}#)
+                                    (if #{tmp\ 727}#
+                                      (apply (lambda (#{k\ 731}#
+                                                      #{id\ 732}#
+                                                      #{i\ 733}#)
+                                               (let ((#{v\ 736}# (#{gen-var\ 
373}#
+                                                                   #{id\ 
732}#)))
+                                                 (let ((#{l\ 738}# 
(#{gen-labels\ 278}#
+                                                                     (list 
#{v\ 736}#))))
+                                                   (let ((#{r**\ 740}#
+                                                           (#{extend-var-env\ 
250}#
+                                                             #{l\ 738}#
+                                                             (list #{v\ 736}#)
+                                                             #{r*\ 708}#)))
+                                                     (let ((#{w**\ 742}#
+                                                             
(#{make-binding-wrap\ 307}#
+                                                               (list #{id\ 
732}#)
+                                                               #{l\ 738}#
+                                                               #{w*\ 709}#)))
+                                                       (#{expand-kw\ 660}#
+                                                         #{req\ 702}#
+                                                         #{opt\ 703}#
+                                                         #{rest\ 704}#
+                                                         (cdr #{kw\ 705}#)
+                                                         #{body\ 706}#
+                                                         (cons #{v\ 736}#
+                                                               #{vars\ 707}#)
+                                                         #{r**\ 740}#
+                                                         #{w**\ 742}#
+                                                         #{aok\ 710}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
364}#)
+                                                                       #{k\ 
731}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
365}#)
-                                                                     #{v\ 
367}#)
-                                                               #{out\ 360}#)
-                                                         (cons (#{chi\ 164}#
-                                                                 #{i\ 366}#
-                                                                 #{r*\ 357}#
-                                                                 #{w*\ 358}#
-                                                                 #{mod\ 322}#)
-                                                               #{inits\ 
361}#)))))))
-                                             #{tmp\ 363}#)
+                                                                       #{id\ 
732}#)
+                                                                     #{v\ 
736}#)
+                                                               #{out\ 711}#)
+                                                         (cons (#{chi\ 345}#
+                                                                 #{i\ 733}#
+                                                                 #{r*\ 708}#
+                                                                 #{w*\ 709}#
+                                                                 #{mod\ 645}#)
+                                                               #{inits\ 
712}#)))))))
+                                             #{tmp\ 727}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 362}#)))
+                                        #{tmp\ 726}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 362}#
+                                    #{tmp\ 726}#
                                     '(any any any))))
-                               (car #{kw\ 354}#))
-                              (#{expand-body\ 328}#
-                                #{req\ 351}#
-                                #{opt\ 352}#
-                                #{rest\ 353}#
-                                (if (let ((#{t\ 371}# #{aok\ 359}#))
-                                      (if #{t\ 371}#
-                                        #{t\ 371}#
-                                        (pair? #{out\ 360}#)))
-                                  (cons #{aok\ 359}# (reverse #{out\ 360}#))
+                               (car #{kw\ 705}#))
+                              (#{expand-body\ 662}#
+                                #{req\ 702}#
+                                #{opt\ 703}#
+                                #{rest\ 704}#
+                                (if (let ((#{t\ 746}# #{aok\ 710}#))
+                                      (if #{t\ 746}#
+                                        #{t\ 746}#
+                                        (pair? #{out\ 711}#)))
+                                  (cons #{aok\ 710}# (reverse #{out\ 711}#))
                                   #f)
-                                #{body\ 355}#
-                                (reverse #{vars\ 356}#)
-                                #{r*\ 357}#
-                                #{w*\ 358}#
-                                (reverse #{inits\ 361}#)))))
-                        (#{expand-opt\ 326}#
-                          (lambda (#{req\ 372}#
-                                   #{opt\ 373}#
-                                   #{rest\ 374}#
-                                   #{kw\ 375}#
-                                   #{body\ 376}#
-                                   #{vars\ 377}#
-                                   #{r*\ 378}#
-                                   #{w*\ 379}#
-                                   #{out\ 380}#
-                                   #{inits\ 381}#)
-                            (if (pair? #{opt\ 373}#)
-                              ((lambda (#{tmp\ 382}#)
-                                 ((lambda (#{tmp\ 383}#)
-                                    (if #{tmp\ 383}#
-                                      (apply (lambda (#{id\ 384}# #{i\ 385}#)
-                                               (let ((#{v\ 386}# (#{gen-var\ 
178}#
-                                                                   #{id\ 
384}#)))
-                                                 (let ((#{l\ 387}# 
(#{gen-labels\ 134}#
-                                                                     (list 
#{v\ 386}#))))
-                                                   (let ((#{r**\ 388}#
-                                                           (#{extend-var-env\ 
123}#
-                                                             #{l\ 387}#
-                                                             (list #{v\ 386}#)
-                                                             #{r*\ 378}#)))
-                                                     (let ((#{w**\ 389}#
-                                                             
(#{make-binding-wrap\ 145}#
-                                                               (list #{id\ 
384}#)
-                                                               #{l\ 387}#
-                                                               #{w*\ 379}#)))
-                                                       (#{expand-opt\ 326}#
-                                                         #{req\ 372}#
-                                                         (cdr #{opt\ 373}#)
-                                                         #{rest\ 374}#
-                                                         #{kw\ 375}#
-                                                         #{body\ 376}#
-                                                         (cons #{v\ 386}#
-                                                               #{vars\ 377}#)
-                                                         #{r**\ 388}#
-                                                         #{w**\ 389}#
+                                #{body\ 706}#
+                                (reverse #{vars\ 707}#)
+                                #{r*\ 708}#
+                                #{w*\ 709}#
+                                (reverse #{inits\ 712}#)))))
+                        (#{expand-opt\ 658}#
+                          (lambda (#{req\ 748}#
+                                   #{opt\ 749}#
+                                   #{rest\ 750}#
+                                   #{kw\ 751}#
+                                   #{body\ 752}#
+                                   #{vars\ 753}#
+                                   #{r*\ 754}#
+                                   #{w*\ 755}#
+                                   #{out\ 756}#
+                                   #{inits\ 757}#)
+                            (if (pair? #{opt\ 749}#)
+                              ((lambda (#{tmp\ 770}#)
+                                 ((lambda (#{tmp\ 771}#)
+                                    (if #{tmp\ 771}#
+                                      (apply (lambda (#{id\ 774}# #{i\ 775}#)
+                                               (let ((#{v\ 778}# (#{gen-var\ 
373}#
+                                                                   #{id\ 
774}#)))
+                                                 (let ((#{l\ 780}# 
(#{gen-labels\ 278}#
+                                                                     (list 
#{v\ 778}#))))
+                                                   (let ((#{r**\ 782}#
+                                                           (#{extend-var-env\ 
250}#
+                                                             #{l\ 780}#
+                                                             (list #{v\ 778}#)
+                                                             #{r*\ 754}#)))
+                                                     (let ((#{w**\ 784}#
+                                                             
(#{make-binding-wrap\ 307}#
+                                                               (list #{id\ 
774}#)
+                                                               #{l\ 780}#
+                                                               #{w*\ 755}#)))
+                                                       (#{expand-opt\ 658}#
+                                                         #{req\ 748}#
+                                                         (cdr #{opt\ 749}#)
+                                                         #{rest\ 750}#
+                                                         #{kw\ 751}#
+                                                         #{body\ 752}#
+                                                         (cons #{v\ 778}#
+                                                               #{vars\ 753}#)
+                                                         #{r**\ 782}#
+                                                         #{w**\ 784}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 384}#)
-                                                               #{out\ 380}#)
-                                                         (cons (#{chi\ 164}#
-                                                                 #{i\ 385}#
-                                                                 #{r*\ 378}#
-                                                                 #{w*\ 379}#
-                                                                 #{mod\ 322}#)
-                                                               #{inits\ 
381}#)))))))
-                                             #{tmp\ 383}#)
+                                                                 #{id\ 774}#)
+                                                               #{out\ 756}#)
+                                                         (cons (#{chi\ 345}#
+                                                                 #{i\ 775}#
+                                                                 #{r*\ 754}#
+                                                                 #{w*\ 755}#
+                                                                 #{mod\ 645}#)
+                                                               #{inits\ 
757}#)))))))
+                                             #{tmp\ 771}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 382}#)))
+                                        #{tmp\ 770}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 382}#
+                                    #{tmp\ 770}#
                                     '(any any))))
-                               (car #{opt\ 373}#))
-                              (if #{rest\ 374}#
-                                (let ((#{v\ 390}# (#{gen-var\ 178}#
-                                                    #{rest\ 374}#)))
-                                  (let ((#{l\ 391}# (#{gen-labels\ 134}#
-                                                      (list #{v\ 390}#))))
-                                    (let ((#{r*\ 392}#
-                                            (#{extend-var-env\ 123}#
-                                              #{l\ 391}#
-                                              (list #{v\ 390}#)
-                                              #{r*\ 378}#)))
-                                      (let ((#{w*\ 393}#
-                                              (#{make-binding-wrap\ 145}#
-                                                (list #{rest\ 374}#)
-                                                #{l\ 391}#
-                                                #{w*\ 379}#)))
-                                        (#{expand-kw\ 327}#
-                                          #{req\ 372}#
-                                          (if (pair? #{out\ 380}#)
-                                            (reverse #{out\ 380}#)
+                               (car #{opt\ 749}#))
+                              (if #{rest\ 750}#
+                                (let ((#{v\ 789}# (#{gen-var\ 373}#
+                                                    #{rest\ 750}#)))
+                                  (let ((#{l\ 791}# (#{gen-labels\ 278}#
+                                                      (list #{v\ 789}#))))
+                                    (let ((#{r*\ 793}#
+                                            (#{extend-var-env\ 250}#
+                                              #{l\ 791}#
+                                              (list #{v\ 789}#)
+                                              #{r*\ 754}#)))
+                                      (let ((#{w*\ 795}#
+                                              (#{make-binding-wrap\ 307}#
+                                                (list #{rest\ 750}#)
+                                                #{l\ 791}#
+                                                #{w*\ 755}#)))
+                                        (#{expand-kw\ 660}#
+                                          #{req\ 748}#
+                                          (if (pair? #{out\ 756}#)
+                                            (reverse #{out\ 756}#)
                                             #f)
-                                          (syntax->datum #{rest\ 374}#)
-                                          (if (pair? #{kw\ 375}#)
-                                            (cdr #{kw\ 375}#)
-                                            #{kw\ 375}#)
-                                          #{body\ 376}#
-                                          (cons #{v\ 390}# #{vars\ 377}#)
-                                          #{r*\ 392}#
-                                          #{w*\ 393}#
-                                          (if (pair? #{kw\ 375}#)
-                                            (car #{kw\ 375}#)
+                                          (syntax->datum #{rest\ 750}#)
+                                          (if (pair? #{kw\ 751}#)
+                                            (cdr #{kw\ 751}#)
+                                            #{kw\ 751}#)
+                                          #{body\ 752}#
+                                          (cons #{v\ 789}# #{vars\ 753}#)
+                                          #{r*\ 793}#
+                                          #{w*\ 795}#
+                                          (if (pair? #{kw\ 751}#)
+                                            (car #{kw\ 751}#)
                                             #f)
                                           '()
-                                          #{inits\ 381}#)))))
-                                (#{expand-kw\ 327}#
-                                  #{req\ 372}#
-                                  (if (pair? #{out\ 380}#)
-                                    (reverse #{out\ 380}#)
+                                          #{inits\ 757}#)))))
+                                (#{expand-kw\ 660}#
+                                  #{req\ 748}#
+                                  (if (pair? #{out\ 756}#)
+                                    (reverse #{out\ 756}#)
                                     #f)
                                   #f
-                                  (if (pair? #{kw\ 375}#)
-                                    (cdr #{kw\ 375}#)
-                                    #{kw\ 375}#)
-                                  #{body\ 376}#
-                                  #{vars\ 377}#
-                                  #{r*\ 378}#
-                                  #{w*\ 379}#
-                                  (if (pair? #{kw\ 375}#) (car #{kw\ 375}#) #f)
+                                  (if (pair? #{kw\ 751}#)
+                                    (cdr #{kw\ 751}#)
+                                    #{kw\ 751}#)
+                                  #{body\ 752}#
+                                  #{vars\ 753}#
+                                  #{r*\ 754}#
+                                  #{w*\ 755}#
+                                  (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f)
                                   '()
-                                  #{inits\ 381}#)))))
-                        (#{expand-req\ 325}#
-                          (lambda (#{req\ 394}#
-                                   #{opt\ 395}#
-                                   #{rest\ 396}#
-                                   #{kw\ 397}#
-                                   #{body\ 398}#)
-                            (let ((#{vars\ 399}#
-                                    (map #{gen-var\ 178}# #{req\ 394}#))
-                                  (#{labels\ 400}#
-                                    (#{gen-labels\ 134}# #{req\ 394}#)))
-                              (let ((#{r*\ 401}#
-                                      (#{extend-var-env\ 123}#
-                                        #{labels\ 400}#
-                                        #{vars\ 399}#
-                                        #{r\ 319}#))
-                                    (#{w*\ 402}#
-                                      (#{make-binding-wrap\ 145}#
-                                        #{req\ 394}#
-                                        #{labels\ 400}#
-                                        #{w\ 320}#)))
-                                (#{expand-opt\ 326}#
-                                  (map syntax->datum #{req\ 394}#)
-                                  #{opt\ 395}#
-                                  #{rest\ 396}#
-                                  #{kw\ 397}#
-                                  #{body\ 398}#
-                                  (reverse #{vars\ 399}#)
-                                  #{r*\ 401}#
-                                  #{w*\ 402}#
+                                  #{inits\ 757}#)))))
+                        (#{expand-req\ 656}#
+                          (lambda (#{req\ 797}#
+                                   #{opt\ 798}#
+                                   #{rest\ 799}#
+                                   #{kw\ 800}#
+                                   #{body\ 801}#)
+                            (let ((#{vars\ 809}#
+                                    (map #{gen-var\ 373}# #{req\ 797}#))
+                                  (#{labels\ 810}#
+                                    (#{gen-labels\ 278}# #{req\ 797}#)))
+                              (let ((#{r*\ 813}#
+                                      (#{extend-var-env\ 250}#
+                                        #{labels\ 810}#
+                                        #{vars\ 809}#
+                                        #{r\ 642}#))
+                                    (#{w*\ 814}#
+                                      (#{make-binding-wrap\ 307}#
+                                        #{req\ 797}#
+                                        #{labels\ 810}#
+                                        #{w\ 643}#)))
+                                (#{expand-opt\ 658}#
+                                  (map syntax->datum #{req\ 797}#)
+                                  #{opt\ 798}#
+                                  #{rest\ 799}#
+                                  #{kw\ 800}#
+                                  #{body\ 801}#
+                                  (reverse #{vars\ 809}#)
+                                  #{r*\ 813}#
+                                  #{w*\ 814}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 403}#)
-                    ((lambda (#{tmp\ 404}#)
-                       (if #{tmp\ 404}#
-                         (apply (lambda () (values #f #f)) #{tmp\ 404}#)
-                         ((lambda (#{tmp\ 405}#)
-                            (if #{tmp\ 405}#
-                              (apply (lambda (#{args\ 406}#
-                                              #{e1\ 407}#
-                                              #{e2\ 408}#
-                                              #{args*\ 409}#
-                                              #{e1*\ 410}#
-                                              #{e2*\ 411}#)
+                 ((lambda (#{tmp\ 815}#)
+                    ((lambda (#{tmp\ 816}#)
+                       (if #{tmp\ 816}#
+                         (apply (lambda () (values #f #f)) #{tmp\ 816}#)
+                         ((lambda (#{tmp\ 817}#)
+                            (if #{tmp\ 817}#
+                              (apply (lambda (#{args\ 824}#
+                                              #{e1\ 825}#
+                                              #{e2\ 826}#
+                                              #{args*\ 827}#
+                                              #{e1*\ 828}#
+                                              #{e2*\ 829}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 323}#
-                                             #{args\ 406}#))
-                                         (lambda (#{req\ 412}#
-                                                  #{opt\ 413}#
-                                                  #{rest\ 414}#
-                                                  #{kw\ 415}#)
+                                           (#{get-formals\ 646}#
+                                             #{args\ 824}#))
+                                         (lambda (#{req\ 830}#
+                                                  #{opt\ 831}#
+                                                  #{rest\ 832}#
+                                                  #{kw\ 833}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{expand-req\ 325}#
-                                                 #{req\ 412}#
-                                                 #{opt\ 413}#
-                                                 #{rest\ 414}#
-                                                 #{kw\ 415}#
-                                                 (cons #{e1\ 407}#
-                                                       #{e2\ 408}#)))
-                                             (lambda (#{docstring\ 417}#
-                                                      #{req\ 418}#
-                                                      #{opt\ 419}#
-                                                      #{rest\ 420}#
-                                                      #{kw\ 421}#
-                                                      #{inits\ 422}#
-                                                      #{vars\ 423}#
-                                                      #{body\ 424}#)
+                                               (#{expand-req\ 656}#
+                                                 #{req\ 830}#
+                                                 #{opt\ 831}#
+                                                 #{rest\ 832}#
+                                                 #{kw\ 833}#
+                                                 (cons #{e1\ 825}#
+                                                       #{e2\ 826}#)))
+                                             (lambda (#{docstring\ 839}#
+                                                      #{req\ 840}#
+                                                      #{opt\ 841}#
+                                                      #{rest\ 842}#
+                                                      #{kw\ 843}#
+                                                      #{inits\ 844}#
+                                                      #{vars\ 845}#
+                                                      #{body\ 846}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{chi-lambda-case\ 176}#
-                                                     #{e\ 318}#
-                                                     #{r\ 319}#
-                                                     #{w\ 320}#
-                                                     #{s\ 321}#
-                                                     #{mod\ 322}#
-                                                     #{get-formals\ 323}#
-                                                     (map (lambda (#{tmp\ 427}#
-                                                                   #{tmp\ 426}#
-                                                                   #{tmp\ 
425}#)
-                                                            (cons #{tmp\ 425}#
-                                                                  (cons #{tmp\ 
426}#
-                                                                        #{tmp\ 
427}#)))
-                                                          #{e2*\ 411}#
-                                                          #{e1*\ 410}#
-                                                          #{args*\ 409}#)))
-                                                 (lambda (#{docstring*\ 429}#
-                                                          #{else*\ 430}#)
+                                                   (#{chi-lambda-case\ 369}#
+                                                     #{e\ 641}#
+                                                     #{r\ 642}#
+                                                     #{w\ 643}#
+                                                     #{s\ 644}#
+                                                     #{mod\ 645}#
+                                                     #{get-formals\ 646}#
+                                                     (map (lambda (#{tmp\ 857}#
+                                                                   #{tmp\ 856}#
+                                                                   #{tmp\ 
855}#)
+                                                            (cons #{tmp\ 855}#
+                                                                  (cons #{tmp\ 
856}#
+                                                                        #{tmp\ 
857}#)))
+                                                          #{e2*\ 829}#
+                                                          #{e1*\ 828}#
+                                                          #{args*\ 827}#)))
+                                                 (lambda (#{docstring*\ 859}#
+                                                          #{else*\ 860}#)
                                                    (values
-                                                     (let ((#{t\ 431}# 
#{docstring\ 417}#))
-                                                       (if #{t\ 431}#
-                                                         #{t\ 431}#
-                                                         #{docstring*\ 429}#))
-                                                     (#{build-lambda-case\ 
104}#
-                                                       #{s\ 321}#
-                                                       #{req\ 418}#
-                                                       #{opt\ 419}#
-                                                       #{rest\ 420}#
-                                                       #{kw\ 421}#
-                                                       #{inits\ 422}#
-                                                       #{vars\ 423}#
-                                                       #{body\ 424}#
-                                                       #{else*\ 430}#)))))))))
-                                     #{tmp\ 405}#)
+                                                     (let ((#{t\ 865}# 
#{docstring\ 839}#))
+                                                       (if #{t\ 865}#
+                                                         #{t\ 865}#
+                                                         #{docstring*\ 859}#))
+                                                     (#{build-lambda-case\ 
206}#
+                                                       #{s\ 644}#
+                                                       #{req\ 840}#
+                                                       #{opt\ 841}#
+                                                       #{rest\ 842}#
+                                                       #{kw\ 843}#
+                                                       #{inits\ 844}#
+                                                       #{vars\ 845}#
+                                                       #{body\ 846}#
+                                                       #{else*\ 860}#)))))))))
+                                     #{tmp\ 817}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 403}#)))
+                                #{tmp\ 815}#)))
                           ($sc-dispatch
-                            #{tmp\ 403}#
+                            #{tmp\ 815}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($sc-dispatch #{tmp\ 403}# (quote ()))))
-                  #{clauses\ 324}#))))
-           (#{lambda*-formals\ 175}#
-             (lambda (#{orig-args\ 432}#)
-               (letrec ((#{check\ 437}#
-                          (lambda (#{req\ 438}#
-                                   #{opt\ 439}#
-                                   #{rest\ 440}#
-                                   #{kw\ 441}#)
-                            (if (#{distinct-bound-ids?\ 154}#
+                     ($sc-dispatch #{tmp\ 815}# (quote ()))))
+                  #{clauses\ 647}#))))
+           (#{lambda*-formals\ 367}#
+             (lambda (#{orig-args\ 867}#)
+               (letrec ((#{check\ 878}#
+                          (lambda (#{req\ 879}#
+                                   #{opt\ 880}#
+                                   #{rest\ 881}#
+                                   #{kw\ 882}#)
+                            (if (#{distinct-bound-ids?\ 325}#
                                   (append
-                                    #{req\ 438}#
-                                    (map car #{opt\ 439}#)
-                                    (if #{rest\ 440}#
-                                      (list #{rest\ 440}#)
+                                    #{req\ 879}#
+                                    (map car #{opt\ 880}#)
+                                    (if #{rest\ 881}#
+                                      (list #{rest\ 881}#)
                                       '())
-                                    (if (pair? #{kw\ 441}#)
-                                      (map cadr (cdr #{kw\ 441}#))
+                                    (if (pair? #{kw\ 882}#)
+                                      (map cadr (cdr #{kw\ 882}#))
                                       '())))
                               (values
-                                #{req\ 438}#
-                                #{opt\ 439}#
-                                #{rest\ 440}#
-                                #{kw\ 441}#)
+                                #{req\ 879}#
+                                #{opt\ 880}#
+                                #{rest\ 881}#
+                                #{kw\ 882}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 432}#))))
-                        (#{rest\ 436}#
-                          (lambda (#{args\ 442}#
-                                   #{req\ 443}#
-                                   #{opt\ 444}#
-                                   #{kw\ 445}#)
-                            ((lambda (#{tmp\ 446}#)
-                               ((lambda (#{tmp\ 447}#)
-                                  (if (if #{tmp\ 447}#
-                                        (apply (lambda (#{r\ 448}#)
-                                                 (#{id?\ 128}# #{r\ 448}#))
-                                               #{tmp\ 447}#)
+                                #{orig-args\ 867}#))))
+                        (#{rest\ 876}#
+                          (lambda (#{args\ 890}#
+                                   #{req\ 891}#
+                                   #{opt\ 892}#
+                                   #{kw\ 893}#)
+                            ((lambda (#{tmp\ 898}#)
+                               ((lambda (#{tmp\ 899}#)
+                                  (if (if #{tmp\ 899}#
+                                        (apply (lambda (#{r\ 901}#)
+                                                 (#{id?\ 260}# #{r\ 901}#))
+                                               #{tmp\ 899}#)
                                         #f)
-                                    (apply (lambda (#{r\ 449}#)
-                                             (#{check\ 437}#
-                                               #{req\ 443}#
-                                               #{opt\ 444}#
-                                               #{r\ 449}#
-                                               #{kw\ 445}#))
-                                           #{tmp\ 447}#)
-                                    ((lambda (#{else\ 450}#)
+                                    (apply (lambda (#{r\ 903}#)
+                                             (#{check\ 878}#
+                                               #{req\ 891}#
+                                               #{opt\ 892}#
+                                               #{r\ 903}#
+                                               #{kw\ 893}#))
+                                           #{tmp\ 899}#)
+                                    ((lambda (#{else\ 905}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{orig-args\ 432}#
-                                         #{args\ 442}#))
-                                     #{tmp\ 446}#)))
-                                (list #{tmp\ 446}#)))
-                             #{args\ 442}#)))
-                        (#{key\ 435}#
-                          (lambda (#{args\ 451}#
-                                   #{req\ 452}#
-                                   #{opt\ 453}#
-                                   #{rkey\ 454}#)
-                            ((lambda (#{tmp\ 455}#)
-                               ((lambda (#{tmp\ 456}#)
-                                  (if #{tmp\ 456}#
+                                         #{orig-args\ 867}#
+                                         #{args\ 890}#))
+                                     #{tmp\ 898}#)))
+                                (list #{tmp\ 898}#)))
+                             #{args\ 890}#)))
+                        (#{key\ 874}#
+                          (lambda (#{args\ 906}#
+                                   #{req\ 907}#
+                                   #{opt\ 908}#
+                                   #{rkey\ 909}#)
+                            ((lambda (#{tmp\ 914}#)
+                               ((lambda (#{tmp\ 915}#)
+                                  (if #{tmp\ 915}#
                                     (apply (lambda ()
-                                             (#{check\ 437}#
-                                               #{req\ 452}#
-                                               #{opt\ 453}#
+                                             (#{check\ 878}#
+                                               #{req\ 907}#
+                                               #{opt\ 908}#
                                                #f
                                                (cons #f
-                                                     (reverse #{rkey\ 454}#))))
-                                           #{tmp\ 456}#)
-                                    ((lambda (#{tmp\ 457}#)
-                                       (if (if #{tmp\ 457}#
-                                             (apply (lambda (#{a\ 458}#
-                                                             #{b\ 459}#)
-                                                      (#{id?\ 128}#
-                                                        #{a\ 458}#))
-                                                    #{tmp\ 457}#)
+                                                     (reverse #{rkey\ 909}#))))
+                                           #{tmp\ 915}#)
+                                    ((lambda (#{tmp\ 916}#)
+                                       (if (if #{tmp\ 916}#
+                                             (apply (lambda (#{a\ 919}#
+                                                             #{b\ 920}#)
+                                                      (#{id?\ 260}#
+                                                        #{a\ 919}#))
+                                                    #{tmp\ 916}#)
                                              #f)
-                                         (apply (lambda (#{a\ 460}# #{b\ 461}#)
-                                                  ((lambda (#{tmp\ 462}#)
-                                                     ((lambda (#{k\ 463}#)
-                                                        (#{key\ 435}#
-                                                          #{b\ 461}#
-                                                          #{req\ 452}#
-                                                          #{opt\ 453}#
-                                                          (cons (cons #{k\ 
463}#
-                                                                      (cons 
#{a\ 460}#
+                                         (apply (lambda (#{a\ 923}# #{b\ 924}#)
+                                                  ((lambda (#{tmp\ 926}#)
+                                                     ((lambda (#{k\ 928}#)
+                                                        (#{key\ 874}#
+                                                          #{b\ 924}#
+                                                          #{req\ 907}#
+                                                          #{opt\ 908}#
+                                                          (cons (cons #{k\ 
928}#
+                                                                      (cons 
#{a\ 923}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i"))
+                                                                               
    #("i927"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i"
-                                                                               
      "i"))
+                                                                               
    #("i921"
+                                                                               
      "i922"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -618,10 +618,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i"
-                                                                               
      "i"
-                                                                               
      "i"
-                                                                               
      "i"))
+                                                                               
    #("i910"
+                                                                               
      "i911"
+                                                                               
      "i912"
+                                                                               
      "i913"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -632,15 +632,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"))
+                                                                               
    ("i877"
+                                                                               
     "i875"
+                                                                               
     "i873"
+                                                                               
     "i871"
+                                                                               
     "i869"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i"))
+                                                                               
    #("i868"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -876,348 +876,349 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"
-                                                                               
     "i"))
+                                                                               
    ("i374"
+                                                                               
     "i372"
+                                                                               
     "i370"
+                                                                               
     "i368"
+                                                                               
     "i366"
+                                                                               
     "i364"
+                                                                               
     "i362"
+                                                                               
     "i360"
+                                                                               
     "i358"
+                                                                               
     "i356"
+                                                                               
     "i354"
+                                                                               
     "i352"
+                                                                               
     "i350"
+                                                                               
     "i348"
+                                                                               
     "i346"
+                                                                               
     "i344"
+                                                                               
     "i342"
+                                                                               
     "i340"
+                                                                               
     "i338"
+                                                                               
     "i336"
+                                                                               
     "i334"
+                                                                               
     "i332"
+                                                                               
     "i330"
+                                                                               
     "i328"
+                                                                               
     "i326"
+                                                                               
     "i324"
+                                                                               
     "i322"
+                                                                               
     "i320"
+                                                                               
     "i318"
+                                                                               
     "i316"
+                                                                               
     "i314"
+                                                                               
     "i312"
+                                                                               
     "i310"
+                                                                               
     "i308"
+                                                                               
     "i306"
+                                                                               
     "i304"
+                                                                               
     "i303"
+                                                                               
     "i302"
+                                                                               
     "i300"
+                                                                               
     "i299"
+                                                                               
     "i298"
+                                                                               
     "i297"
+                                                                               
     "i296"
+                                                                               
     "i294"
+                                                                               
     "i292"
+                                                                               
     "i290"
+                                                                               
     "i288"
+                                                                               
     "i286"
+                                                                               
     "i284"
+                                                                               
     "i282"
+                                                                               
     "i280"
+                                                                               
     "i277"
+                                                                               
     "i275"
+                                                                               
     "i274"
+                                                                               
     "i273"
+                                                                               
     "i272"
+                                                                               
     "i271"
+                                                                               
     "i270"
+                                                                               
     "i268"
+                                                                               
     "i266"
+                                                                               
     "i264"
+                                                                               
     "i262"
+                                                                               
     "i261"
+                                                                               
     "i259"
+                                                                               
     "i257"
+                                                                               
     "i255"
+                                                                               
     "i253"
+                                                                               
     "i251"
+                                                                               
     "i249"
+                                                                               
     "i247"
+                                                                               
     "i246"
+                                                                               
     "i244"
+                                                                               
     "i242"
+                                                                               
     "i241"
+                                                                               
     "i240"
+                                                                               
     "i238"
+                                                                               
     "i237"
+                                                                               
     "i235"
+                                                                               
     "i233"
+                                                                               
     "i231"
+                                                                               
     "i229"
+                                                                               
     "i227"
+                                                                               
     "i225"
+                                                                               
     "i223"
+                                                                               
     "i221"
+                                                                               
     "i219"
+                                                                               
     "i217"
+                                                                               
     "i215"
+                                                                               
     "i213"
+                                                                               
     "i211"
+                                                                               
     "i209"
+                                                                               
     "i207"
+                                                                               
     "i205"
+                                                                               
     "i203"
+                                                                               
     "i201"
+                                                                               
     "i199"
+                                                                               
     "i197"
+                                                                               
     "i195"
+                                                                               
     "i193"
+                                                                               
     "i191"
+                                                                               
     "i189"
+                                                                               
     "i187"
+                                                                               
     "i185"
+                                                                               
     "i183"
+                                                                               
     "i181"
+                                                                               
     "i179"
+                                                                               
     "i177"
+                                                                               
     "i175"
+                                                                               
     "i174"
+                                                                               
     "i172"
+                                                                               
     "i170"
+                                                                               
     "i168"
+                                                                               
     "i166"
+                                                                               
     "i164"
+                                                                               
     "i162"
+                                                                               
     "i160"
+                                                                               
     "i158"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      and-map*)
                                                                                
    ((top)
                                                                                
     (top))
-                                                                               
    ("i"
-                                                                               
     "i")))
+                                                                               
    ("i61"
+                                                                               
     "i59")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
454}#)))
-                                                      #{tmp\ 462}#))
+                                                                #{rkey\ 
909}#)))
+                                                      #{tmp\ 926}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{a\ 460}#))))
-                                                #{tmp\ 457}#)
-                                         ((lambda (#{tmp\ 464}#)
-                                            (if (if #{tmp\ 464}#
-                                                  (apply (lambda (#{a\ 465}#
-                                                                  #{init\ 466}#
-                                                                  #{b\ 467}#)
-                                                           (#{id?\ 128}#
-                                                             #{a\ 465}#))
-                                                         #{tmp\ 464}#)
+                                                       #{a\ 923}#))))
+                                                #{tmp\ 916}#)
+                                         ((lambda (#{tmp\ 929}#)
+                                            (if (if #{tmp\ 929}#
+                                                  (apply (lambda (#{a\ 933}#
+                                                                  #{init\ 934}#
+                                                                  #{b\ 935}#)
+                                                           (#{id?\ 260}#
+                                                             #{a\ 933}#))
+                                                         #{tmp\ 929}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 468}#
-                                                              #{init\ 469}#
-                                                              #{b\ 470}#)
-                                                       ((lambda (#{tmp\ 471}#)
-                                                          ((lambda (#{k\ 472}#)
-                                                             (#{key\ 435}#
-                                                               #{b\ 470}#
-                                                               #{req\ 452}#
-                                                               #{opt\ 453}#
-                                                               (cons (list 
#{k\ 472}#
-                                                                           
#{a\ 468}#
-                                                                           
#{init\ 469}#)
-                                                                     #{rkey\ 
454}#)))
-                                                           #{tmp\ 471}#))
+                                              (apply (lambda (#{a\ 939}#
+                                                              #{init\ 940}#
+                                                              #{b\ 941}#)
+                                                       ((lambda (#{tmp\ 943}#)
+                                                          ((lambda (#{k\ 945}#)
+                                                             (#{key\ 874}#
+                                                               #{b\ 941}#
+                                                               #{req\ 907}#
+                                                               #{opt\ 908}#
+                                                               (cons (list 
#{k\ 945}#
+                                                                           
#{a\ 939}#
+                                                                           
#{init\ 940}#)
+                                                                     #{rkey\ 
909}#)))
+                                                           #{tmp\ 943}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{a\ 468}#))))
-                                                     #{tmp\ 464}#)
-                                              ((lambda (#{tmp\ 473}#)
-                                                 (if (if #{tmp\ 473}#
-                                                       (apply (lambda (#{a\ 
474}#
-                                                                       #{init\ 
475}#
-                                                                       #{k\ 
476}#
-                                                                       #{b\ 
477}#)
-                                                                (if (#{id?\ 
128}#
-                                                                      #{a\ 
474}#)
+                                                            #{a\ 939}#))))
+                                                     #{tmp\ 929}#)
+                                              ((lambda (#{tmp\ 946}#)
+                                                 (if (if #{tmp\ 946}#
+                                                       (apply (lambda (#{a\ 
951}#
+                                                                       #{init\ 
952}#
+                                                                       #{k\ 
953}#
+                                                                       #{b\ 
954}#)
+                                                                (if (#{id?\ 
260}#
+                                                                      #{a\ 
951}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
476}#))
+                                                                      #{k\ 
953}#))
                                                                   #f))
-                                                              #{tmp\ 473}#)
+                                                              #{tmp\ 946}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 478}#
-                                                                   #{init\ 
479}#
-                                                                   #{k\ 480}#
-                                                                   #{b\ 481}#)
-                                                            (#{key\ 435}#
-                                                              #{b\ 481}#
-                                                              #{req\ 452}#
-                                                              #{opt\ 453}#
-                                                              (cons (list #{k\ 
480}#
-                                                                          #{a\ 
478}#
-                                                                          
#{init\ 479}#)
-                                                                    #{rkey\ 
454}#)))
-                                                          #{tmp\ 473}#)
-                                                   ((lambda (#{tmp\ 482}#)
-                                                      (if (if #{tmp\ 482}#
-                                                            (apply (lambda 
(#{aok\ 483}#)
+                                                   (apply (lambda (#{a\ 961}#
+                                                                   #{init\ 
962}#
+                                                                   #{k\ 963}#
+                                                                   #{b\ 964}#)
+                                                            (#{key\ 874}#
+                                                              #{b\ 964}#
+                                                              #{req\ 907}#
+                                                              #{opt\ 908}#
+                                                              (cons (list #{k\ 
963}#
+                                                                          #{a\ 
961}#
+                                                                          
#{init\ 962}#)
+                                                                    #{rkey\ 
909}#)))
+                                                          #{tmp\ 946}#)
+                                                   ((lambda (#{tmp\ 965}#)
+                                                      (if (if #{tmp\ 965}#
+                                                            (apply (lambda 
(#{aok\ 967}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 483}#)
+                                                                            
#{aok\ 967}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
482}#)
+                                                                   #{tmp\ 
965}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
484}#)
-                                                                 (#{check\ 
437}#
-                                                                   #{req\ 452}#
-                                                                   #{opt\ 453}#
+                                                        (apply (lambda (#{aok\ 
969}#)
+                                                                 (#{check\ 
878}#
+                                                                   #{req\ 907}#
+                                                                   #{opt\ 908}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 454}#))))
-                                                               #{tmp\ 482}#)
-                                                        ((lambda (#{tmp\ 485}#)
-                                                           (if (if #{tmp\ 485}#
-                                                                 (apply 
(lambda (#{aok\ 486}#
-                                                                               
  #{a\ 487}#
-                                                                               
  #{b\ 488}#)
+                                                                           
#{rkey\ 909}#))))
+                                                               #{tmp\ 965}#)
+                                                        ((lambda (#{tmp\ 970}#)
+                                                           (if (if #{tmp\ 970}#
+                                                                 (apply 
(lambda (#{aok\ 974}#
+                                                                               
  #{a\ 975}#
+                                                                               
  #{b\ 976}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 486}#)
+                                                                               
      #{aok\ 974}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 487}#)
+                                                                               
    #{a\ 975}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
485}#)
+                                                                        #{tmp\ 
970}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 489}#
-                                                                             
#{a\ 490}#
-                                                                             
#{b\ 491}#)
-                                                                      (#{rest\ 
436}#
-                                                                        #{b\ 
491}#
-                                                                        #{req\ 
452}#
-                                                                        #{opt\ 
453}#
+                                                             (apply (lambda 
(#{aok\ 982}#
+                                                                             
#{a\ 983}#
+                                                                             
#{b\ 984}#)
+                                                                      (#{rest\ 
876}#
+                                                                        #{b\ 
984}#
+                                                                        #{req\ 
907}#
+                                                                        #{opt\ 
908}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 454}#))))
-                                                                    #{tmp\ 
485}#)
-                                                             ((lambda (#{tmp\ 
492}#)
-                                                                (if (if #{tmp\ 
492}#
-                                                                      (apply 
(lambda (#{aok\ 493}#
-                                                                               
       #{r\ 494}#)
+                                                                               
 #{rkey\ 909}#))))
+                                                                    #{tmp\ 
970}#)
+                                                             ((lambda (#{tmp\ 
985}#)
+                                                                (if (if #{tmp\ 
985}#
+                                                                      (apply 
(lambda (#{aok\ 988}#
+                                                                               
       #{r\ 989}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 493}#)
+                                                                               
           #{aok\ 988}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 128}#
-                                                                               
    #{r\ 494}#)
+                                                                               
  (#{id?\ 260}#
+                                                                               
    #{r\ 989}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 492}#)
+                                                                             
#{tmp\ 985}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 495}#
-                                                                               
   #{r\ 496}#)
-                                                                           
(#{rest\ 436}#
-                                                                             
#{r\ 496}#
-                                                                             
#{req\ 452}#
-                                                                             
#{opt\ 453}#
+                                                                  (apply 
(lambda (#{aok\ 994}#
+                                                                               
   #{r\ 995}#)
+                                                                           
(#{rest\ 876}#
+                                                                             
#{r\ 995}#
+                                                                             
#{req\ 907}#
+                                                                             
#{opt\ 908}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 454}#))))
-                                                                         
#{tmp\ 492}#)
-                                                                  ((lambda 
(#{tmp\ 497}#)
-                                                                     (if (if 
#{tmp\ 497}#
-                                                                           
(apply (lambda (#{a\ 498}#
-                                                                               
            #{b\ 499}#)
+                                                                               
      #{rkey\ 909}#))))
+                                                                         
#{tmp\ 985}#)
+                                                                  ((lambda 
(#{tmp\ 996}#)
+                                                                     (if (if 
#{tmp\ 996}#
+                                                                           
(apply (lambda (#{a\ 999}#
+                                                                               
            #{b\ 1000}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 498}#)
+                                                                               
            #{a\ 999}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 497}#)
+                                                                               
   #{tmp\ 996}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 500}#
-                                                                               
        #{b\ 501}#)
-                                                                               
 (#{rest\ 436}#
-                                                                               
   #{b\ 501}#
-                                                                               
   #{req\ 452}#
-                                                                               
   #{opt\ 453}#
+                                                                       (apply 
(lambda (#{a\ 1003}#
+                                                                               
        #{b\ 1004}#)
+                                                                               
 (#{rest\ 876}#
+                                                                               
   #{b\ 1004}#
+                                                                               
   #{req\ 907}#
+                                                                               
   #{opt\ 908}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 454}#))))
-                                                                              
#{tmp\ 497}#)
-                                                                       
((lambda (#{tmp\ 502}#)
-                                                                          (if 
(if #{tmp\ 502}#
-                                                                               
 (apply (lambda (#{r\ 503}#)
-                                                                               
          (#{id?\ 128}#
-                                                                               
            #{r\ 503}#))
-                                                                               
        #{tmp\ 502}#)
+                                                                               
           #{rkey\ 909}#))))
+                                                                              
#{tmp\ 996}#)
+                                                                       
((lambda (#{tmp\ 1005}#)
+                                                                          (if 
(if #{tmp\ 1005}#
+                                                                               
 (apply (lambda (#{r\ 1007}#)
+                                                                               
          (#{id?\ 260}#
+                                                                               
            #{r\ 1007}#))
+                                                                               
        #{tmp\ 1005}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 504}#)
-                                                                               
      (#{rest\ 436}#
-                                                                               
        #{r\ 504}#
-                                                                               
        #{req\ 452}#
-                                                                               
        #{opt\ 453}#
+                                                                            
(apply (lambda (#{r\ 1009}#)
+                                                                               
      (#{rest\ 876}#
+                                                                               
        #{r\ 1009}#
+                                                                               
        #{req\ 907}#
+                                                                               
        #{opt\ 908}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 454}#))))
-                                                                               
    #{tmp\ 502}#)
-                                                                            
((lambda (#{else\ 505}#)
+                                                                               
                #{rkey\ 909}#))))
+                                                                               
    #{tmp\ 1005}#)
+                                                                            
((lambda (#{else\ 1011}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 432}#
-                                                                               
  #{args\ 451}#))
-                                                                             
#{tmp\ 455}#)))
-                                                                        (list 
#{tmp\ 455}#))))
+                                                                               
  #{orig-args\ 867}#
+                                                                               
  #{args\ 906}#))
+                                                                             
#{tmp\ 914}#)))
+                                                                        (list 
#{tmp\ 914}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
455}#
+                                                                     #{tmp\ 
914}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 455}#
+                                                                #{tmp\ 914}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 455}#
+                                                           #{tmp\ 914}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 455}#
+                                                      #{tmp\ 914}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 455}#
+                                                 #{tmp\ 914}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 455}#
+                                            #{tmp\ 914}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 455}#
+                                       #{tmp\ 914}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 455}# (quote ()))))
-                             #{args\ 451}#)))
-                        (#{opt\ 434}#
-                          (lambda (#{args\ 506}# #{req\ 507}# #{ropt\ 508}#)
-                            ((lambda (#{tmp\ 509}#)
-                               ((lambda (#{tmp\ 510}#)
-                                  (if #{tmp\ 510}#
+                                ($sc-dispatch #{tmp\ 914}# (quote ()))))
+                             #{args\ 906}#)))
+                        (#{opt\ 872}#
+                          (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#)
+                            ((lambda (#{tmp\ 1018}#)
+                               ((lambda (#{tmp\ 1019}#)
+                                  (if #{tmp\ 1019}#
                                     (apply (lambda ()
-                                             (#{check\ 437}#
-                                               #{req\ 507}#
-                                               (reverse #{ropt\ 508}#)
+                                             (#{check\ 878}#
+                                               #{req\ 1013}#
+                                               (reverse #{ropt\ 1014}#)
                                                #f
                                                '()))
-                                           #{tmp\ 510}#)
-                                    ((lambda (#{tmp\ 511}#)
-                                       (if (if #{tmp\ 511}#
-                                             (apply (lambda (#{a\ 512}#
-                                                             #{b\ 513}#)
-                                                      (#{id?\ 128}#
-                                                        #{a\ 512}#))
-                                                    #{tmp\ 511}#)
+                                           #{tmp\ 1019}#)
+                                    ((lambda (#{tmp\ 1020}#)
+                                       (if (if #{tmp\ 1020}#
+                                             (apply (lambda (#{a\ 1023}#
+                                                             #{b\ 1024}#)
+                                                      (#{id?\ 260}#
+                                                        #{a\ 1023}#))
+                                                    #{tmp\ 1020}#)
                                              #f)
-                                         (apply (lambda (#{a\ 514}# #{b\ 515}#)
-                                                  (#{opt\ 434}#
-                                                    #{b\ 515}#
-                                                    #{req\ 507}#
-                                                    (cons (cons #{a\ 514}#
+                                         (apply (lambda (#{a\ 1027}#
+                                                         #{b\ 1028}#)
+                                                  (#{opt\ 872}#
+                                                    #{b\ 1028}#
+                                                    #{req\ 1013}#
+                                                    (cons (cons #{a\ 1027}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1225,8 +1226,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       #("i"
-                                                                         "i"))
+                                                                       
#("i1025"
+                                                                         
"i1026"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1238,9 +1239,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       #("i"
-                                                                         "i"
-                                                                         "i"))
+                                                                       
#("i1015"
+                                                                         
"i1016"
+                                                                         
"i1017"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1251,15 +1252,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"))
+                                                                       ("i877"
+                                                                        "i875"
+                                                                        "i873"
+                                                                        "i871"
+                                                                        
"i869"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       #("i"))
+                                                                       
#("i868"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1495,460 +1496,462 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"
-                                                                        "i"))
+                                                                       ("i374"
+                                                                        "i372"
+                                                                        "i370"
+                                                                        "i368"
+                                                                        "i366"
+                                                                        "i364"
+                                                                        "i362"
+                                                                        "i360"
+                                                                        "i358"
+                                                                        "i356"
+                                                                        "i354"
+                                                                        "i352"
+                                                                        "i350"
+                                                                        "i348"
+                                                                        "i346"
+                                                                        "i344"
+                                                                        "i342"
+                                                                        "i340"
+                                                                        "i338"
+                                                                        "i336"
+                                                                        "i334"
+                                                                        "i332"
+                                                                        "i330"
+                                                                        "i328"
+                                                                        "i326"
+                                                                        "i324"
+                                                                        "i322"
+                                                                        "i320"
+                                                                        "i318"
+                                                                        "i316"
+                                                                        "i314"
+                                                                        "i312"
+                                                                        "i310"
+                                                                        "i308"
+                                                                        "i306"
+                                                                        "i304"
+                                                                        "i303"
+                                                                        "i302"
+                                                                        "i300"
+                                                                        "i299"
+                                                                        "i298"
+                                                                        "i297"
+                                                                        "i296"
+                                                                        "i294"
+                                                                        "i292"
+                                                                        "i290"
+                                                                        "i288"
+                                                                        "i286"
+                                                                        "i284"
+                                                                        "i282"
+                                                                        "i280"
+                                                                        "i277"
+                                                                        "i275"
+                                                                        "i274"
+                                                                        "i273"
+                                                                        "i272"
+                                                                        "i271"
+                                                                        "i270"
+                                                                        "i268"
+                                                                        "i266"
+                                                                        "i264"
+                                                                        "i262"
+                                                                        "i261"
+                                                                        "i259"
+                                                                        "i257"
+                                                                        "i255"
+                                                                        "i253"
+                                                                        "i251"
+                                                                        "i249"
+                                                                        "i247"
+                                                                        "i246"
+                                                                        "i244"
+                                                                        "i242"
+                                                                        "i241"
+                                                                        "i240"
+                                                                        "i238"
+                                                                        "i237"
+                                                                        "i235"
+                                                                        "i233"
+                                                                        "i231"
+                                                                        "i229"
+                                                                        "i227"
+                                                                        "i225"
+                                                                        "i223"
+                                                                        "i221"
+                                                                        "i219"
+                                                                        "i217"
+                                                                        "i215"
+                                                                        "i213"
+                                                                        "i211"
+                                                                        "i209"
+                                                                        "i207"
+                                                                        "i205"
+                                                                        "i203"
+                                                                        "i201"
+                                                                        "i199"
+                                                                        "i197"
+                                                                        "i195"
+                                                                        "i193"
+                                                                        "i191"
+                                                                        "i189"
+                                                                        "i187"
+                                                                        "i185"
+                                                                        "i183"
+                                                                        "i181"
+                                                                        "i179"
+                                                                        "i177"
+                                                                        "i175"
+                                                                        "i174"
+                                                                        "i172"
+                                                                        "i170"
+                                                                        "i168"
+                                                                        "i166"
+                                                                        "i164"
+                                                                        "i162"
+                                                                        "i160"
+                                                                        
"i158"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
and-map*)
                                                                        ((top)
                                                                         (top))
-                                                                       ("i"
-                                                                        "i")))
+                                                                       ("i61"
+                                                                        
"i59")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{ropt\ 508}#)))
-                                                #{tmp\ 511}#)
-                                         ((lambda (#{tmp\ 516}#)
-                                            (if (if #{tmp\ 516}#
-                                                  (apply (lambda (#{a\ 517}#
-                                                                  #{init\ 518}#
-                                                                  #{b\ 519}#)
-                                                           (#{id?\ 128}#
-                                                             #{a\ 517}#))
-                                                         #{tmp\ 516}#)
+                                                          #{ropt\ 1014}#)))
+                                                #{tmp\ 1020}#)
+                                         ((lambda (#{tmp\ 1029}#)
+                                            (if (if #{tmp\ 1029}#
+                                                  (apply (lambda (#{a\ 1033}#
+                                                                  #{init\ 
1034}#
+                                                                  #{b\ 1035}#)
+                                                           (#{id?\ 260}#
+                                                             #{a\ 1033}#))
+                                                         #{tmp\ 1029}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 520}#
-                                                              #{init\ 521}#
-                                                              #{b\ 522}#)
-                                                       (#{opt\ 434}#
-                                                         #{b\ 522}#
-                                                         #{req\ 507}#
-                                                         (cons (list #{a\ 520}#
-                                                                     #{init\ 
521}#)
-                                                               #{ropt\ 508}#)))
-                                                     #{tmp\ 516}#)
-                                              ((lambda (#{tmp\ 523}#)
-                                                 (if (if #{tmp\ 523}#
-                                                       (apply (lambda (#{a\ 
524}#
-                                                                       #{b\ 
525}#)
+                                              (apply (lambda (#{a\ 1039}#
+                                                              #{init\ 1040}#
+                                                              #{b\ 1041}#)
+                                                       (#{opt\ 872}#
+                                                         #{b\ 1041}#
+                                                         #{req\ 1013}#
+                                                         (cons (list #{a\ 
1039}#
+                                                                     #{init\ 
1040}#)
+                                                               #{ropt\ 
1014}#)))
+                                                     #{tmp\ 1029}#)
+                                              ((lambda (#{tmp\ 1042}#)
+                                                 (if (if #{tmp\ 1042}#
+                                                       (apply (lambda (#{a\ 
1045}#
+                                                                       #{b\ 
1046}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
524}#)
+                                                                       #{a\ 
1045}#)
                                                                      #:key))
-                                                              #{tmp\ 523}#)
+                                                              #{tmp\ 1042}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 526}#
-                                                                   #{b\ 527}#)
-                                                            (#{key\ 435}#
-                                                              #{b\ 527}#
-                                                              #{req\ 507}#
+                                                   (apply (lambda (#{a\ 1049}#
+                                                                   #{b\ 1050}#)
+                                                            (#{key\ 874}#
+                                                              #{b\ 1050}#
+                                                              #{req\ 1013}#
                                                               (reverse
-                                                                #{ropt\ 508}#)
+                                                                #{ropt\ 1014}#)
                                                               '()))
-                                                          #{tmp\ 523}#)
-                                                   ((lambda (#{tmp\ 528}#)
-                                                      (if (if #{tmp\ 528}#
-                                                            (apply (lambda 
(#{a\ 529}#
-                                                                            
#{b\ 530}#)
+                                                          #{tmp\ 1042}#)
+                                                   ((lambda (#{tmp\ 1051}#)
+                                                      (if (if #{tmp\ 1051}#
+                                                            (apply (lambda 
(#{a\ 1054}#
+                                                                            
#{b\ 1055}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 529}#)
+                                                                            
#{a\ 1054}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
528}#)
+                                                                   #{tmp\ 
1051}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
531}#
-                                                                        #{b\ 
532}#)
-                                                                 (#{rest\ 436}#
-                                                                   #{b\ 532}#
-                                                                   #{req\ 507}#
+                                                        (apply (lambda (#{a\ 
1058}#
+                                                                        #{b\ 
1059}#)
+                                                                 (#{rest\ 876}#
+                                                                   #{b\ 1059}#
+                                                                   #{req\ 
1013}#
                                                                    (reverse
-                                                                     #{ropt\ 
508}#)
+                                                                     #{ropt\ 
1014}#)
                                                                    '()))
-                                                               #{tmp\ 528}#)
-                                                        ((lambda (#{tmp\ 533}#)
-                                                           (if (if #{tmp\ 533}#
-                                                                 (apply 
(lambda (#{r\ 534}#)
-                                                                          
(#{id?\ 128}#
-                                                                            
#{r\ 534}#))
-                                                                        #{tmp\ 
533}#)
+                                                               #{tmp\ 1051}#)
+                                                        ((lambda (#{tmp\ 
1060}#)
+                                                           (if (if #{tmp\ 
1060}#
+                                                                 (apply 
(lambda (#{r\ 1062}#)
+                                                                          
(#{id?\ 260}#
+                                                                            
#{r\ 1062}#))
+                                                                        #{tmp\ 
1060}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 535}#)
-                                                                      (#{rest\ 
436}#
-                                                                        #{r\ 
535}#
-                                                                        #{req\ 
507}#
+                                                             (apply (lambda 
(#{r\ 1064}#)
+                                                                      (#{rest\ 
876}#
+                                                                        #{r\ 
1064}#
+                                                                        #{req\ 
1013}#
                                                                         
(reverse
-                                                                          
#{ropt\ 508}#)
+                                                                          
#{ropt\ 1014}#)
                                                                         '()))
-                                                                    #{tmp\ 
533}#)
-                                                             ((lambda (#{else\ 
536}#)
+                                                                    #{tmp\ 
1060}#)
+                                                             ((lambda (#{else\ 
1066}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
432}#
-                                                                  #{args\ 
506}#))
-                                                              #{tmp\ 509}#)))
-                                                         (list #{tmp\ 509}#))))
+                                                                  #{orig-args\ 
867}#
+                                                                  #{args\ 
1012}#))
+                                                              #{tmp\ 1018}#)))
+                                                         (list #{tmp\ 
1018}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 509}#
+                                                      #{tmp\ 1018}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 509}#
+                                                 #{tmp\ 1018}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 509}#
+                                            #{tmp\ 1018}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 509}#
+                                       #{tmp\ 1018}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 509}# (quote ()))))
-                             #{args\ 506}#)))
-                        (#{req\ 433}#
-                          (lambda (#{args\ 537}# #{rreq\ 538}#)
-                            ((lambda (#{tmp\ 539}#)
-                               ((lambda (#{tmp\ 540}#)
-                                  (if #{tmp\ 540}#
+                                ($sc-dispatch #{tmp\ 1018}# (quote ()))))
+                             #{args\ 1012}#)))
+                        (#{req\ 870}#
+                          (lambda (#{args\ 1067}# #{rreq\ 1068}#)
+                            ((lambda (#{tmp\ 1071}#)
+                               ((lambda (#{tmp\ 1072}#)
+                                  (if #{tmp\ 1072}#
                                     (apply (lambda ()
-                                             (#{check\ 437}#
-                                               (reverse #{rreq\ 538}#)
+                                             (#{check\ 878}#
+                                               (reverse #{rreq\ 1068}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 540}#)
-                                    ((lambda (#{tmp\ 541}#)
-                                       (if (if #{tmp\ 541}#
-                                             (apply (lambda (#{a\ 542}#
-                                                             #{b\ 543}#)
-                                                      (#{id?\ 128}#
-                                                        #{a\ 542}#))
-                                                    #{tmp\ 541}#)
+                                           #{tmp\ 1072}#)
+                                    ((lambda (#{tmp\ 1073}#)
+                                       (if (if #{tmp\ 1073}#
+                                             (apply (lambda (#{a\ 1076}#
+                                                             #{b\ 1077}#)
+                                                      (#{id?\ 260}#
+                                                        #{a\ 1076}#))
+                                                    #{tmp\ 1073}#)
                                              #f)
-                                         (apply (lambda (#{a\ 544}# #{b\ 545}#)
-                                                  (#{req\ 433}#
-                                                    #{b\ 545}#
-                                                    (cons #{a\ 544}#
-                                                          #{rreq\ 538}#)))
-                                                #{tmp\ 541}#)
-                                         ((lambda (#{tmp\ 546}#)
-                                            (if (if #{tmp\ 546}#
-                                                  (apply (lambda (#{a\ 547}#
-                                                                  #{b\ 548}#)
+                                         (apply (lambda (#{a\ 1080}#
+                                                         #{b\ 1081}#)
+                                                  (#{req\ 870}#
+                                                    #{b\ 1081}#
+                                                    (cons #{a\ 1080}#
+                                                          #{rreq\ 1068}#)))
+                                                #{tmp\ 1073}#)
+                                         ((lambda (#{tmp\ 1082}#)
+                                            (if (if #{tmp\ 1082}#
+                                                  (apply (lambda (#{a\ 1085}#
+                                                                  #{b\ 1086}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 547}#)
+                                                                  #{a\ 1085}#)
                                                                 #:optional))
-                                                         #{tmp\ 546}#)
+                                                         #{tmp\ 1082}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 549}#
-                                                              #{b\ 550}#)
-                                                       (#{opt\ 434}#
-                                                         #{b\ 550}#
+                                              (apply (lambda (#{a\ 1089}#
+                                                              #{b\ 1090}#)
+                                                       (#{opt\ 872}#
+                                                         #{b\ 1090}#
                                                          (reverse
-                                                           #{rreq\ 538}#)
+                                                           #{rreq\ 1068}#)
                                                          '()))
-                                                     #{tmp\ 546}#)
-                                              ((lambda (#{tmp\ 551}#)
-                                                 (if (if #{tmp\ 551}#
-                                                       (apply (lambda (#{a\ 
552}#
-                                                                       #{b\ 
553}#)
+                                                     #{tmp\ 1082}#)
+                                              ((lambda (#{tmp\ 1091}#)
+                                                 (if (if #{tmp\ 1091}#
+                                                       (apply (lambda (#{a\ 
1094}#
+                                                                       #{b\ 
1095}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
552}#)
+                                                                       #{a\ 
1094}#)
                                                                      #:key))
-                                                              #{tmp\ 551}#)
+                                                              #{tmp\ 1091}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 554}#
-                                                                   #{b\ 555}#)
-                                                            (#{key\ 435}#
-                                                              #{b\ 555}#
+                                                   (apply (lambda (#{a\ 1098}#
+                                                                   #{b\ 1099}#)
+                                                            (#{key\ 874}#
+                                                              #{b\ 1099}#
                                                               (reverse
-                                                                #{rreq\ 538}#)
+                                                                #{rreq\ 1068}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 551}#)
-                                                   ((lambda (#{tmp\ 556}#)
-                                                      (if (if #{tmp\ 556}#
-                                                            (apply (lambda 
(#{a\ 557}#
-                                                                            
#{b\ 558}#)
+                                                          #{tmp\ 1091}#)
+                                                   ((lambda (#{tmp\ 1100}#)
+                                                      (if (if #{tmp\ 1100}#
+                                                            (apply (lambda 
(#{a\ 1103}#
+                                                                            
#{b\ 1104}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 557}#)
+                                                                            
#{a\ 1103}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
556}#)
+                                                                   #{tmp\ 
1100}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
559}#
-                                                                        #{b\ 
560}#)
-                                                                 (#{rest\ 436}#
-                                                                   #{b\ 560}#
+                                                        (apply (lambda (#{a\ 
1107}#
+                                                                        #{b\ 
1108}#)
+                                                                 (#{rest\ 876}#
+                                                                   #{b\ 1108}#
                                                                    (reverse
-                                                                     #{rreq\ 
538}#)
+                                                                     #{rreq\ 
1068}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 556}#)
-                                                        ((lambda (#{tmp\ 561}#)
-                                                           (if (if #{tmp\ 561}#
-                                                                 (apply 
(lambda (#{r\ 562}#)
-                                                                          
(#{id?\ 128}#
-                                                                            
#{r\ 562}#))
-                                                                        #{tmp\ 
561}#)
+                                                               #{tmp\ 1100}#)
+                                                        ((lambda (#{tmp\ 
1109}#)
+                                                           (if (if #{tmp\ 
1109}#
+                                                                 (apply 
(lambda (#{r\ 1111}#)
+                                                                          
(#{id?\ 260}#
+                                                                            
#{r\ 1111}#))
+                                                                        #{tmp\ 
1109}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 563}#)
-                                                                      (#{rest\ 
436}#
-                                                                        #{r\ 
563}#
+                                                             (apply (lambda 
(#{r\ 1113}#)
+                                                                      (#{rest\ 
876}#
+                                                                        #{r\ 
1113}#
                                                                         
(reverse
-                                                                          
#{rreq\ 538}#)
+                                                                          
#{rreq\ 1068}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
561}#)
-                                                             ((lambda (#{else\ 
564}#)
+                                                                    #{tmp\ 
1109}#)
+                                                             ((lambda (#{else\ 
1115}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
432}#
-                                                                  #{args\ 
537}#))
-                                                              #{tmp\ 539}#)))
-                                                         (list #{tmp\ 539}#))))
+                                                                  #{orig-args\ 
867}#
+                                                                  #{args\ 
1067}#))
+                                                              #{tmp\ 1071}#)))
+                                                         (list #{tmp\ 
1071}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 539}#
+                                                      #{tmp\ 1071}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 539}#
+                                                 #{tmp\ 1071}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 539}#
+                                            #{tmp\ 1071}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 539}#
+                                       #{tmp\ 1071}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 539}# (quote ()))))
-                             #{args\ 537}#))))
-                 (#{req\ 433}# #{orig-args\ 432}# (quote ())))))
-           (#{chi-simple-lambda\ 174}#
-             (lambda (#{e\ 565}#
-                      #{r\ 566}#
-                      #{w\ 567}#
-                      #{s\ 568}#
-                      #{mod\ 569}#
-                      #{req\ 570}#
-                      #{rest\ 571}#
-                      #{docstring\ 572}#
-                      #{body\ 573}#)
-               (let ((#{ids\ 574}#
-                       (if #{rest\ 571}#
-                         (append #{req\ 570}# (list #{rest\ 571}#))
-                         #{req\ 570}#)))
-                 (let ((#{vars\ 575}#
-                         (map #{gen-var\ 178}# #{ids\ 574}#)))
-                   (let ((#{labels\ 576}#
-                           (#{gen-labels\ 134}# #{ids\ 574}#)))
-                     (#{build-simple-lambda\ 102}#
-                       #{s\ 568}#
-                       (map syntax->datum #{req\ 570}#)
-                       (if #{rest\ 571}#
-                         (syntax->datum #{rest\ 571}#)
+                                ($sc-dispatch #{tmp\ 1071}# (quote ()))))
+                             #{args\ 1067}#))))
+                 (#{req\ 870}# #{orig-args\ 867}# (quote ())))))
+           (#{chi-simple-lambda\ 365}#
+             (lambda (#{e\ 1116}#
+                      #{r\ 1117}#
+                      #{w\ 1118}#
+                      #{s\ 1119}#
+                      #{mod\ 1120}#
+                      #{req\ 1121}#
+                      #{rest\ 1122}#
+                      #{docstring\ 1123}#
+                      #{body\ 1124}#)
+               (let ((#{ids\ 1136}#
+                       (if #{rest\ 1122}#
+                         (append #{req\ 1121}# (list #{rest\ 1122}#))
+                         #{req\ 1121}#)))
+                 (let ((#{vars\ 1138}#
+                         (map #{gen-var\ 373}# #{ids\ 1136}#)))
+                   (let ((#{labels\ 1140}#
+                           (#{gen-labels\ 278}# #{ids\ 1136}#)))
+                     (#{build-simple-lambda\ 202}#
+                       #{s\ 1119}#
+                       (map syntax->datum #{req\ 1121}#)
+                       (if #{rest\ 1122}#
+                         (syntax->datum #{rest\ 1122}#)
                          #f)
-                       #{vars\ 575}#
-                       #{docstring\ 572}#
-                       (#{chi-body\ 168}#
-                         #{body\ 573}#
-                         (#{source-wrap\ 157}#
-                           #{e\ 565}#
-                           #{w\ 567}#
-                           #{s\ 568}#
-                           #{mod\ 569}#)
-                         (#{extend-var-env\ 123}#
-                           #{labels\ 576}#
-                           #{vars\ 575}#
-                           #{r\ 566}#)
-                         (#{make-binding-wrap\ 145}#
-                           #{ids\ 574}#
-                           #{labels\ 576}#
-                           #{w\ 567}#)
-                         #{mod\ 569}#)))))))
-           (#{lambda-formals\ 173}#
-             (lambda (#{orig-args\ 577}#)
-               (letrec ((#{check\ 579}#
-                          (lambda (#{req\ 580}# #{rest\ 581}#)
-                            (if (#{distinct-bound-ids?\ 154}#
-                                  (if #{rest\ 581}#
-                                    (cons #{rest\ 581}# #{req\ 580}#)
-                                    #{req\ 580}#))
-                              (values #{req\ 580}# #f #{rest\ 581}# #f)
+                       #{vars\ 1138}#
+                       #{docstring\ 1123}#
+                       (#{chi-body\ 353}#
+                         #{body\ 1124}#
+                         (#{source-wrap\ 331}#
+                           #{e\ 1116}#
+                           #{w\ 1118}#
+                           #{s\ 1119}#
+                           #{mod\ 1120}#)
+                         (#{extend-var-env\ 250}#
+                           #{labels\ 1140}#
+                           #{vars\ 1138}#
+                           #{r\ 1117}#)
+                         (#{make-binding-wrap\ 307}#
+                           #{ids\ 1136}#
+                           #{labels\ 1140}#
+                           #{w\ 1118}#)
+                         #{mod\ 1120}#)))))))
+           (#{lambda-formals\ 363}#
+             (lambda (#{orig-args\ 1143}#)
+               (letrec ((#{check\ 1148}#
+                          (lambda (#{req\ 1149}# #{rest\ 1150}#)
+                            (if (#{distinct-bound-ids?\ 325}#
+                                  (if #{rest\ 1150}#
+                                    (cons #{rest\ 1150}# #{req\ 1149}#)
+                                    #{req\ 1149}#))
+                              (values #{req\ 1149}# #f #{rest\ 1150}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 577}#))))
-                        (#{req\ 578}#
-                          (lambda (#{args\ 582}# #{rreq\ 583}#)
-                            ((lambda (#{tmp\ 584}#)
-                               ((lambda (#{tmp\ 585}#)
-                                  (if #{tmp\ 585}#
+                                #{orig-args\ 1143}#))))
+                        (#{req\ 1146}#
+                          (lambda (#{args\ 1156}# #{rreq\ 1157}#)
+                            ((lambda (#{tmp\ 1160}#)
+                               ((lambda (#{tmp\ 1161}#)
+                                  (if #{tmp\ 1161}#
                                     (apply (lambda ()
-                                             (#{check\ 579}#
-                                               (reverse #{rreq\ 583}#)
+                                             (#{check\ 1148}#
+                                               (reverse #{rreq\ 1157}#)
                                                #f))
-                                           #{tmp\ 585}#)
-                                    ((lambda (#{tmp\ 586}#)
-                                       (if (if #{tmp\ 586}#
-                                             (apply (lambda (#{a\ 587}#
-                                                             #{b\ 588}#)
-                                                      (#{id?\ 128}#
-                                                        #{a\ 587}#))
-                                                    #{tmp\ 586}#)
+                                           #{tmp\ 1161}#)
+                                    ((lambda (#{tmp\ 1162}#)
+                                       (if (if #{tmp\ 1162}#
+                                             (apply (lambda (#{a\ 1165}#
+                                                             #{b\ 1166}#)
+                                                      (#{id?\ 260}#
+                                                        #{a\ 1165}#))
+                                                    #{tmp\ 1162}#)
                                              #f)
-                                         (apply (lambda (#{a\ 589}# #{b\ 590}#)
-                                                  (#{req\ 578}#
-                                                    #{b\ 590}#
-                                                    (cons #{a\ 589}#
-                                                          #{rreq\ 583}#)))
-                                                #{tmp\ 586}#)
-                                         ((lambda (#{tmp\ 591}#)
-                                            (if (if #{tmp\ 591}#
-                                                  (apply (lambda (#{r\ 592}#)
-                                                           (#{id?\ 128}#
-                                                             #{r\ 592}#))
-                                                         #{tmp\ 591}#)
+                                         (apply (lambda (#{a\ 1169}#
+                                                         #{b\ 1170}#)
+                                                  (#{req\ 1146}#
+                                                    #{b\ 1170}#
+                                                    (cons #{a\ 1169}#
+                                                          #{rreq\ 1157}#)))
+                                                #{tmp\ 1162}#)
+                                         ((lambda (#{tmp\ 1171}#)
+                                            (if (if #{tmp\ 1171}#
+                                                  (apply (lambda (#{r\ 1173}#)
+                                                           (#{id?\ 260}#
+                                                             #{r\ 1173}#))
+                                                         #{tmp\ 1171}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 593}#)
-                                                       (#{check\ 579}#
+                                              (apply (lambda (#{r\ 1175}#)
+                                                       (#{check\ 1148}#
                                                          (reverse
-                                                           #{rreq\ 583}#)
-                                                         #{r\ 593}#))
-                                                     #{tmp\ 591}#)
-                                              ((lambda (#{else\ 594}#)
+                                                           #{rreq\ 1157}#)
+                                                         #{r\ 1175}#))
+                                                     #{tmp\ 1171}#)
+                                              ((lambda (#{else\ 1177}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 577}#
-                                                   #{args\ 582}#))
-                                               #{tmp\ 584}#)))
-                                          (list #{tmp\ 584}#))))
+                                                   #{orig-args\ 1143}#
+                                                   #{args\ 1156}#))
+                                               #{tmp\ 1160}#)))
+                                          (list #{tmp\ 1160}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 584}#
+                                       #{tmp\ 1160}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 584}# (quote ()))))
-                             #{args\ 582}#))))
-                 (#{req\ 578}# #{orig-args\ 577}# (quote ())))))
-           (#{ellipsis?\ 172}#
-             (lambda (#{x\ 595}#)
-               (if (#{nonsymbol-id?\ 127}# #{x\ 595}#)
-                 (#{free-id=?\ 151}#
-                   #{x\ 595}#
+                                ($sc-dispatch #{tmp\ 1160}# (quote ()))))
+                             #{args\ 1156}#))))
+                 (#{req\ 1146}# #{orig-args\ 1143}# (quote ())))))
+           (#{ellipsis?\ 361}#
+             (lambda (#{x\ 1178}#)
+               (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#)
+                 (#{free-id=?\ 319}#
+                   #{x\ 1178}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i"))
+                       #(ribcage #(x) #((top)) #("i1179"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2184,1343 +2187,1366 @@
                           (top)
                           (top)
                           (top))
-                         ("i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"
-                          "i"))
+                         ("i374"
+                          "i372"
+                          "i370"
+                          "i368"
+                          "i366"
+                          "i364"
+                          "i362"
+                          "i360"
+                          "i358"
+                          "i356"
+                          "i354"
+                          "i352"
+                          "i350"
+                          "i348"
+                          "i346"
+                          "i344"
+                          "i342"
+                          "i340"
+                          "i338"
+                          "i336"
+                          "i334"
+                          "i332"
+                          "i330"
+                          "i328"
+                          "i326"
+                          "i324"
+                          "i322"
+                          "i320"
+                          "i318"
+                          "i316"
+                          "i314"
+                          "i312"
+                          "i310"
+                          "i308"
+                          "i306"
+                          "i304"
+                          "i303"
+                          "i302"
+                          "i300"
+                          "i299"
+                          "i298"
+                          "i297"
+                          "i296"
+                          "i294"
+                          "i292"
+                          "i290"
+                          "i288"
+                          "i286"
+                          "i284"
+                          "i282"
+                          "i280"
+                          "i277"
+                          "i275"
+                          "i274"
+                          "i273"
+                          "i272"
+                          "i271"
+                          "i270"
+                          "i268"
+                          "i266"
+                          "i264"
+                          "i262"
+                          "i261"
+                          "i259"
+                          "i257"
+                          "i255"
+                          "i253"
+                          "i251"
+                          "i249"
+                          "i247"
+                          "i246"
+                          "i244"
+                          "i242"
+                          "i241"
+                          "i240"
+                          "i238"
+                          "i237"
+                          "i235"
+                          "i233"
+                          "i231"
+                          "i229"
+                          "i227"
+                          "i225"
+                          "i223"
+                          "i221"
+                          "i219"
+                          "i217"
+                          "i215"
+                          "i213"
+                          "i211"
+                          "i209"
+                          "i207"
+                          "i205"
+                          "i203"
+                          "i201"
+                          "i199"
+                          "i197"
+                          "i195"
+                          "i193"
+                          "i191"
+                          "i189"
+                          "i187"
+                          "i185"
+                          "i183"
+                          "i181"
+                          "i179"
+                          "i177"
+                          "i175"
+                          "i174"
+                          "i172"
+                          "i170"
+                          "i168"
+                          "i166"
+                          "i164"
+                          "i162"
+                          "i160"
+                          "i158"))
                        #(ribcage
                          (define-structure and-map*)
                          ((top) (top))
-                         ("i" "i")))
+                         ("i61" "i59")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 171}#
-             (lambda () (#{build-void\ 92}# #f)))
-           (#{eval-local-transformer\ 170}#
-             (lambda (#{expanded\ 596}# #{mod\ 597}#)
-               (let ((#{p\ 598}# (#{local-eval-hook\ 88}#
-                                   #{expanded\ 596}#
-                                   #{mod\ 597}#)))
-                 (if (procedure? #{p\ 598}#)
-                   (cons #{p\ 598}# (module-name (current-module)))
+           (#{chi-void\ 359}#
+             (lambda () (#{build-void\ 182}# #f)))
+           (#{eval-local-transformer\ 357}#
+             (lambda (#{expanded\ 1183}# #{mod\ 1184}#)
+               (let ((#{p\ 1188}#
+                       (#{local-eval-hook\ 173}#
+                         #{expanded\ 1183}#
+                         #{mod\ 1184}#)))
+                 (if (procedure? #{p\ 1188}#)
+                   (cons #{p\ 1188}# (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 598}#)))))
-           (#{chi-local-syntax\ 169}#
-             (lambda (#{rec?\ 599}#
-                      #{e\ 600}#
-                      #{r\ 601}#
-                      #{w\ 602}#
-                      #{s\ 603}#
-                      #{mod\ 604}#
-                      #{k\ 605}#)
-               ((lambda (#{tmp\ 606}#)
-                  ((lambda (#{tmp\ 607}#)
-                     (if #{tmp\ 607}#
-                       (apply (lambda (#{_\ 608}#
-                                       #{id\ 609}#
-                                       #{val\ 610}#
-                                       #{e1\ 611}#
-                                       #{e2\ 612}#)
-                                (let ((#{ids\ 613}# #{id\ 609}#))
-                                  (if (not (#{valid-bound-ids?\ 153}#
-                                             #{ids\ 613}#))
+                     #{p\ 1188}#)))))
+           (#{chi-local-syntax\ 355}#
+             (lambda (#{rec?\ 1189}#
+                      #{e\ 1190}#
+                      #{r\ 1191}#
+                      #{w\ 1192}#
+                      #{s\ 1193}#
+                      #{mod\ 1194}#
+                      #{k\ 1195}#)
+               ((lambda (#{tmp\ 1203}#)
+                  ((lambda (#{tmp\ 1204}#)
+                     (if #{tmp\ 1204}#
+                       (apply (lambda (#{_\ 1210}#
+                                       #{id\ 1211}#
+                                       #{val\ 1212}#
+                                       #{e1\ 1213}#
+                                       #{e2\ 1214}#)
+                                (let ((#{ids\ 1216}# #{id\ 1211}#))
+                                  (if (not (#{valid-bound-ids?\ 323}#
+                                             #{ids\ 1216}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 600}#)
-                                    (let ((#{labels\ 615}#
-                                            (#{gen-labels\ 134}#
-                                              #{ids\ 613}#)))
-                                      (let ((#{new-w\ 616}#
-                                              (#{make-binding-wrap\ 145}#
-                                                #{ids\ 613}#
-                                                #{labels\ 615}#
-                                                #{w\ 602}#)))
-                                        (#{k\ 605}# (cons #{e1\ 611}#
-                                                          #{e2\ 612}#)
-                                                    (#{extend-env\ 122}#
-                                                      #{labels\ 615}#
-                                                      (let ((#{w\ 618}# (if 
#{rec?\ 599}#
-                                                                          
#{new-w\ 616}#
-                                                                          #{w\ 
602}#))
-                                                            (#{trans-r\ 619}#
-                                                              
(#{macros-only-env\ 124}#
-                                                                #{r\ 601}#)))
-                                                        (map (lambda (#{x\ 
620}#)
-                                                               (cons 'macro
-                                                                     
(#{eval-local-transformer\ 170}#
-                                                                       (#{chi\ 
164}#
-                                                                         #{x\ 
620}#
-                                                                         
#{trans-r\ 619}#
-                                                                         #{w\ 
618}#
-                                                                         
#{mod\ 604}#)
-                                                                       #{mod\ 
604}#)))
-                                                             #{val\ 610}#))
-                                                      #{r\ 601}#)
-                                                    #{new-w\ 616}#
-                                                    #{s\ 603}#
-                                                    #{mod\ 604}#))))))
-                              #{tmp\ 607}#)
-                       ((lambda (#{_\ 622}#)
+                                      #{e\ 1190}#)
+                                    (let ((#{labels\ 1219}#
+                                            (#{gen-labels\ 278}#
+                                              #{ids\ 1216}#)))
+                                      (let ((#{new-w\ 1221}#
+                                              (#{make-binding-wrap\ 307}#
+                                                #{ids\ 1216}#
+                                                #{labels\ 1219}#
+                                                #{w\ 1192}#)))
+                                        (#{k\ 1195}#
+                                          (cons #{e1\ 1213}# #{e2\ 1214}#)
+                                          (#{extend-env\ 248}#
+                                            #{labels\ 1219}#
+                                            (let ((#{w\ 1225}#
+                                                    (if #{rec?\ 1189}#
+                                                      #{new-w\ 1221}#
+                                                      #{w\ 1192}#))
+                                                  (#{trans-r\ 1226}#
+                                                    (#{macros-only-env\ 252}#
+                                                      #{r\ 1191}#)))
+                                              (map (lambda (#{x\ 1227}#)
+                                                     (cons 'macro
+                                                           
(#{eval-local-transformer\ 357}#
+                                                             (#{chi\ 345}#
+                                                               #{x\ 1227}#
+                                                               #{trans-r\ 
1226}#
+                                                               #{w\ 1225}#
+                                                               #{mod\ 1194}#)
+                                                             #{mod\ 1194}#)))
+                                                   #{val\ 1212}#))
+                                            #{r\ 1191}#)
+                                          #{new-w\ 1221}#
+                                          #{s\ 1193}#
+                                          #{mod\ 1194}#))))))
+                              #{tmp\ 1204}#)
+                       ((lambda (#{_\ 1232}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 157}#
-                              #{e\ 600}#
-                              #{w\ 602}#
-                              #{s\ 603}#
-                              #{mod\ 604}#)))
-                        #{tmp\ 606}#)))
+                            (#{source-wrap\ 331}#
+                              #{e\ 1190}#
+                              #{w\ 1192}#
+                              #{s\ 1193}#
+                              #{mod\ 1194}#)))
+                        #{tmp\ 1203}#)))
                    ($sc-dispatch
-                     #{tmp\ 606}#
+                     #{tmp\ 1203}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 600}#)))
-           (#{chi-body\ 168}#
-             (lambda (#{body\ 623}#
-                      #{outer-form\ 624}#
-                      #{r\ 625}#
-                      #{w\ 626}#
-                      #{mod\ 627}#)
-               (let ((#{r\ 628}# (cons '("placeholder" placeholder)
-                                       #{r\ 625}#)))
-                 (let ((#{ribcage\ 629}#
-                         (#{make-ribcage\ 135}#
+                #{e\ 1190}#)))
+           (#{chi-body\ 353}#
+             (lambda (#{body\ 1233}#
+                      #{outer-form\ 1234}#
+                      #{r\ 1235}#
+                      #{w\ 1236}#
+                      #{mod\ 1237}#)
+               (let ((#{r\ 1245}#
+                       (cons '("placeholder" placeholder)
+                             #{r\ 1235}#)))
+                 (let ((#{ribcage\ 1247}#
+                         (#{make-ribcage\ 281}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 630}# (#{make-wrap\ 130}#
-                                       (#{wrap-marks\ 131}# #{w\ 626}#)
-                                       (cons #{ribcage\ 629}#
-                                             (#{wrap-subst\ 132}#
-                                               #{w\ 626}#)))))
-                     (letrec ((#{parse\ 631}#
-                                (lambda (#{body\ 632}#
-                                         #{ids\ 633}#
-                                         #{labels\ 634}#
-                                         #{var-ids\ 635}#
-                                         #{vars\ 636}#
-                                         #{vals\ 637}#
-                                         #{bindings\ 638}#)
-                                  (if (null? #{body\ 632}#)
+                   (let ((#{w\ 1250}#
+                           (#{make-wrap\ 265}#
+                             (#{wrap-marks\ 267}# #{w\ 1236}#)
+                             (cons #{ribcage\ 1247}#
+                                   (#{wrap-subst\ 269}# #{w\ 1236}#)))))
+                     (letrec ((#{parse\ 1259}#
+                                (lambda (#{body\ 1260}#
+                                         #{ids\ 1261}#
+                                         #{labels\ 1262}#
+                                         #{var-ids\ 1263}#
+                                         #{vars\ 1264}#
+                                         #{vals\ 1265}#
+                                         #{bindings\ 1266}#)
+                                  (if (null? #{body\ 1260}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 624}#)
-                                    (let ((#{e\ 640}# (cdar #{body\ 632}#))
-                                          (#{er\ 641}# (caar #{body\ 632}#)))
+                                      #{outer-form\ 1234}#)
+                                    (let ((#{e\ 1271}# (cdar #{body\ 1260}#))
+                                          (#{er\ 1272}# (caar #{body\ 1260}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 162}#
-                                            #{e\ 640}#
-                                            #{er\ 641}#
+                                          (#{syntax-type\ 341}#
+                                            #{e\ 1271}#
+                                            #{er\ 1272}#
                                             '(())
-                                            (#{source-annotation\ 119}#
-                                              #{er\ 641}#)
-                                            #{ribcage\ 629}#
-                                            #{mod\ 627}#
+                                            (#{source-annotation\ 239}#
+                                              #{er\ 1272}#)
+                                            #{ribcage\ 1247}#
+                                            #{mod\ 1237}#
                                             #f))
-                                        (lambda (#{type\ 642}#
-                                                 #{value\ 643}#
-                                                 #{e\ 644}#
-                                                 #{w\ 645}#
-                                                 #{s\ 646}#
-                                                 #{mod\ 647}#)
-                                          (if (memv #{type\ 642}#
+                                        (lambda (#{type\ 1274}#
+                                                 #{value\ 1275}#
+                                                 #{e\ 1276}#
+                                                 #{w\ 1277}#
+                                                 #{s\ 1278}#
+                                                 #{mod\ 1279}#)
+                                          (if (memv #{type\ 1274}#
                                                     '(define-form))
-                                            (let ((#{id\ 648}#
-                                                    (#{wrap\ 156}#
-                                                      #{value\ 643}#
-                                                      #{w\ 645}#
-                                                      #{mod\ 647}#))
-                                                  (#{label\ 649}#
-                                                    (#{gen-label\ 133}#)))
-                                              (let ((#{var\ 650}#
-                                                      (#{gen-var\ 178}#
-                                                        #{id\ 648}#)))
+                                            (let ((#{id\ 1289}#
+                                                    (#{wrap\ 329}#
+                                                      #{value\ 1275}#
+                                                      #{w\ 1277}#
+                                                      #{mod\ 1279}#))
+                                                  (#{label\ 1290}#
+                                                    (#{gen-label\ 276}#)))
+                                              (let ((#{var\ 1292}#
+                                                      (#{gen-var\ 373}#
+                                                        #{id\ 1289}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 144}#
-                                                    #{ribcage\ 629}#
-                                                    #{id\ 648}#
-                                                    #{label\ 649}#)
-                                                  (#{parse\ 631}#
-                                                    (cdr #{body\ 632}#)
-                                                    (cons #{id\ 648}#
-                                                          #{ids\ 633}#)
-                                                    (cons #{label\ 649}#
-                                                          #{labels\ 634}#)
-                                                    (cons #{id\ 648}#
-                                                          #{var-ids\ 635}#)
-                                                    (cons #{var\ 650}#
-                                                          #{vars\ 636}#)
-                                                    (cons (cons #{er\ 641}#
-                                                                (#{wrap\ 156}#
-                                                                  #{e\ 644}#
-                                                                  #{w\ 645}#
-                                                                  #{mod\ 
647}#))
-                                                          #{vals\ 637}#)
+                                                  (#{extend-ribcage!\ 305}#
+                                                    #{ribcage\ 1247}#
+                                                    #{id\ 1289}#
+                                                    #{label\ 1290}#)
+                                                  (#{parse\ 1259}#
+                                                    (cdr #{body\ 1260}#)
+                                                    (cons #{id\ 1289}#
+                                                          #{ids\ 1261}#)
+                                                    (cons #{label\ 1290}#
+                                                          #{labels\ 1262}#)
+                                                    (cons #{id\ 1289}#
+                                                          #{var-ids\ 1263}#)
+                                                    (cons #{var\ 1292}#
+                                                          #{vars\ 1264}#)
+                                                    (cons (cons #{er\ 1272}#
+                                                                (#{wrap\ 329}#
+                                                                  #{e\ 1276}#
+                                                                  #{w\ 1277}#
+                                                                  #{mod\ 
1279}#))
+                                                          #{vals\ 1265}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 650}#)
-                                                          #{bindings\ 
638}#)))))
-                                            (if (memv #{type\ 642}#
+                                                                #{var\ 1292}#)
+                                                          #{bindings\ 
1266}#)))))
+                                            (if (memv #{type\ 1274}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 651}#
-                                                      (#{wrap\ 156}#
-                                                        #{value\ 643}#
-                                                        #{w\ 645}#
-                                                        #{mod\ 647}#))
-                                                    (#{label\ 652}#
-                                                      (#{gen-label\ 133}#)))
+                                              (let ((#{id\ 1297}#
+                                                      (#{wrap\ 329}#
+                                                        #{value\ 1275}#
+                                                        #{w\ 1277}#
+                                                        #{mod\ 1279}#))
+                                                    (#{label\ 1298}#
+                                                      (#{gen-label\ 276}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 144}#
-                                                    #{ribcage\ 629}#
-                                                    #{id\ 651}#
-                                                    #{label\ 652}#)
-                                                  (#{parse\ 631}#
-                                                    (cdr #{body\ 632}#)
-                                                    (cons #{id\ 651}#
-                                                          #{ids\ 633}#)
-                                                    (cons #{label\ 652}#
-                                                          #{labels\ 634}#)
-                                                    #{var-ids\ 635}#
-                                                    #{vars\ 636}#
-                                                    #{vals\ 637}#
+                                                  (#{extend-ribcage!\ 305}#
+                                                    #{ribcage\ 1247}#
+                                                    #{id\ 1297}#
+                                                    #{label\ 1298}#)
+                                                  (#{parse\ 1259}#
+                                                    (cdr #{body\ 1260}#)
+                                                    (cons #{id\ 1297}#
+                                                          #{ids\ 1261}#)
+                                                    (cons #{label\ 1298}#
+                                                          #{labels\ 1262}#)
+                                                    #{var-ids\ 1263}#
+                                                    #{vars\ 1264}#
+                                                    #{vals\ 1265}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
641}#
-                                                                      (#{wrap\ 
156}#
-                                                                        #{e\ 
644}#
-                                                                        #{w\ 
645}#
-                                                                        #{mod\ 
647}#)))
-                                                          #{bindings\ 638}#))))
-                                              (if (memv #{type\ 642}#
+                                                                (cons #{er\ 
1272}#
+                                                                      (#{wrap\ 
329}#
+                                                                        #{e\ 
1276}#
+                                                                        #{w\ 
1277}#
+                                                                        #{mod\ 
1279}#)))
+                                                          #{bindings\ 
1266}#))))
+                                              (if (memv #{type\ 1274}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 653}#)
-                                                   ((lambda (#{tmp\ 654}#)
-                                                      (if #{tmp\ 654}#
-                                                        (apply (lambda (#{_\ 
655}#
-                                                                        #{e1\ 
656}#)
-                                                                 (#{parse\ 
631}#
-                                                                   (letrec 
((#{f\ 657}# (lambda (#{forms\ 658}#)
-                                                                               
           (if (null? #{forms\ 658}#)
-                                                                               
             (cdr #{body\ 632}#)
-                                                                               
             (cons (cons #{er\ 641}#
-                                                                               
                         (#{wrap\ 156}#
-                                                                               
                           (car #{forms\ 658}#)
-                                                                               
                           #{w\ 645}#
-                                                                               
                           #{mod\ 647}#))
-                                                                               
                   (#{f\ 657}# (cdr #{forms\ 658}#)))))))
-                                                                     (#{f\ 
657}# #{e1\ 656}#))
-                                                                   #{ids\ 633}#
-                                                                   #{labels\ 
634}#
-                                                                   #{var-ids\ 
635}#
-                                                                   #{vars\ 
636}#
-                                                                   #{vals\ 
637}#
-                                                                   #{bindings\ 
638}#))
-                                                               #{tmp\ 654}#)
+                                                ((lambda (#{tmp\ 1301}#)
+                                                   ((lambda (#{tmp\ 1302}#)
+                                                      (if #{tmp\ 1302}#
+                                                        (apply (lambda (#{_\ 
1305}#
+                                                                        #{e1\ 
1306}#)
+                                                                 (#{parse\ 
1259}#
+                                                                   (letrec 
((#{f\ 1309}#
+                                                                              
(lambda (#{forms\ 1310}#)
+                                                                               
 (if (null? #{forms\ 1310}#)
+                                                                               
   (cdr #{body\ 1260}#)
+                                                                               
   (cons (cons #{er\ 1272}#
+                                                                               
               (#{wrap\ 329}#
+                                                                               
                 (car #{forms\ 1310}#)
+                                                                               
                 #{w\ 1277}#
+                                                                               
                 #{mod\ 1279}#))
+                                                                               
         (#{f\ 1309}#
+                                                                               
           (cdr #{forms\ 1310}#)))))))
+                                                                     (#{f\ 
1309}#
+                                                                       #{e1\ 
1306}#))
+                                                                   #{ids\ 
1261}#
+                                                                   #{labels\ 
1262}#
+                                                                   #{var-ids\ 
1263}#
+                                                                   #{vars\ 
1264}#
+                                                                   #{vals\ 
1265}#
+                                                                   #{bindings\ 
1266}#))
+                                                               #{tmp\ 1302}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 653}#)))
+                                                          #{tmp\ 1301}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 653}#
+                                                      #{tmp\ 1301}#
                                                       '(any . each-any))))
-                                                 #{e\ 644}#)
-                                                (if (memv #{type\ 642}#
+                                                 #{e\ 1276}#)
+                                                (if (memv #{type\ 1274}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 169}#
-                                                    #{value\ 643}#
-                                                    #{e\ 644}#
-                                                    #{er\ 641}#
-                                                    #{w\ 645}#
-                                                    #{s\ 646}#
-                                                    #{mod\ 647}#
-                                                    (lambda (#{forms\ 660}#
-                                                             #{er\ 661}#
-                                                             #{w\ 662}#
-                                                             #{s\ 663}#
-                                                             #{mod\ 664}#)
-                                                      (#{parse\ 631}#
-                                                        (letrec ((#{f\ 665}# 
(lambda (#{forms\ 666}#)
-                                                                               
(if (null? #{forms\ 666}#)
-                                                                               
  (cdr #{body\ 632}#)
-                                                                               
  (cons (cons #{er\ 661}#
-                                                                               
              (#{wrap\ 156}#
-                                                                               
                (car #{forms\ 666}#)
-                                                                               
                #{w\ 662}#
-                                                                               
                #{mod\ 664}#))
-                                                                               
        (#{f\ 665}# (cdr #{forms\ 666}#)))))))
-                                                          (#{f\ 665}# #{forms\ 
660}#))
-                                                        #{ids\ 633}#
-                                                        #{labels\ 634}#
-                                                        #{var-ids\ 635}#
-                                                        #{vars\ 636}#
-                                                        #{vals\ 637}#
-                                                        #{bindings\ 638}#)))
-                                                  (if (null? #{ids\ 633}#)
-                                                    (#{build-sequence\ 107}#
+                                                  (#{chi-local-syntax\ 355}#
+                                                    #{value\ 1275}#
+                                                    #{e\ 1276}#
+                                                    #{er\ 1272}#
+                                                    #{w\ 1277}#
+                                                    #{s\ 1278}#
+                                                    #{mod\ 1279}#
+                                                    (lambda (#{forms\ 1313}#
+                                                             #{er\ 1314}#
+                                                             #{w\ 1315}#
+                                                             #{s\ 1316}#
+                                                             #{mod\ 1317}#)
+                                                      (#{parse\ 1259}#
+                                                        (letrec ((#{f\ 1325}#
+                                                                   (lambda 
(#{forms\ 1326}#)
+                                                                     (if 
(null? #{forms\ 1326}#)
+                                                                       (cdr 
#{body\ 1260}#)
+                                                                       (cons 
(cons #{er\ 1314}#
+                                                                               
    (#{wrap\ 329}#
+                                                                               
      (car #{forms\ 1326}#)
+                                                                               
      #{w\ 1315}#
+                                                                               
      #{mod\ 1317}#))
+                                                                             
(#{f\ 1325}#
+                                                                               
(cdr #{forms\ 1326}#)))))))
+                                                          (#{f\ 1325}#
+                                                            #{forms\ 1313}#))
+                                                        #{ids\ 1261}#
+                                                        #{labels\ 1262}#
+                                                        #{var-ids\ 1263}#
+                                                        #{vars\ 1264}#
+                                                        #{vals\ 1265}#
+                                                        #{bindings\ 1266}#)))
+                                                  (if (null? #{ids\ 1261}#)
+                                                    (#{build-sequence\ 212}#
                                                       #f
-                                                      (map (lambda (#{x\ 667}#)
-                                                             (#{chi\ 164}#
-                                                               (cdr #{x\ 667}#)
-                                                               (car #{x\ 667}#)
+                                                      (map (lambda (#{x\ 
1329}#)
+                                                             (#{chi\ 345}#
+                                                               (cdr #{x\ 
1329}#)
+                                                               (car #{x\ 
1329}#)
                                                                '(())
-                                                               #{mod\ 647}#))
-                                                           (cons (cons #{er\ 
641}#
-                                                                       
(#{source-wrap\ 157}#
-                                                                         #{e\ 
644}#
-                                                                         #{w\ 
645}#
-                                                                         #{s\ 
646}#
-                                                                         
#{mod\ 647}#))
-                                                                 (cdr #{body\ 
632}#))))
+                                                               #{mod\ 1279}#))
+                                                           (cons (cons #{er\ 
1272}#
+                                                                       
(#{source-wrap\ 331}#
+                                                                         #{e\ 
1276}#
+                                                                         #{w\ 
1277}#
+                                                                         #{s\ 
1278}#
+                                                                         
#{mod\ 1279}#))
+                                                                 (cdr #{body\ 
1260}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 153}#
-                                                                 #{ids\ 633}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 323}#
+                                                                 #{ids\ 
1261}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 624}#))
-                                                      (letrec ((#{loop\ 668}#
-                                                                 (lambda 
(#{bs\ 669}#
-                                                                          
#{er-cache\ 670}#
-                                                                          
#{r-cache\ 671}#)
-                                                                   (if (not 
(null? #{bs\ 669}#))
-                                                                     (let 
((#{b\ 672}# (car #{bs\ 669}#)))
-                                                                       (if 
(eq? (car #{b\ 672}#)
+                                                          #{outer-form\ 
1234}#))
+                                                      (letrec ((#{loop\ 1336}#
+                                                                 (lambda 
(#{bs\ 1337}#
+                                                                          
#{er-cache\ 1338}#
+                                                                          
#{r-cache\ 1339}#)
+                                                                   (if (not 
(null? #{bs\ 1337}#))
+                                                                     (let 
((#{b\ 1342}#
+                                                                             
(car #{bs\ 1337}#)))
+                                                                       (if 
(eq? (car #{b\ 1342}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 673}#
-                                                                               
  (cadr #{b\ 672}#)))
-                                                                           
(let ((#{r-cache\ 674}#
-                                                                               
    (if (eq? #{er\ 673}#
-                                                                               
             #{er-cache\ 670}#)
-                                                                               
      #{r-cache\ 671}#
-                                                                               
      (#{macros-only-env\ 124}#
-                                                                               
        #{er\ 673}#))))
+                                                                         (let 
((#{er\ 1345}#
+                                                                               
  (cadr #{b\ 1342}#)))
+                                                                           
(let ((#{r-cache\ 1347}#
+                                                                               
    (if (eq? #{er\ 1345}#
+                                                                               
             #{er-cache\ 1338}#)
+                                                                               
      #{r-cache\ 1339}#
+                                                                               
      (#{macros-only-env\ 252}#
+                                                                               
        #{er\ 1345}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 672}#
-                                                                               
  (#{eval-local-transformer\ 170}#
-                                                                               
    (#{chi\ 164}#
-                                                                               
      (cddr #{b\ 672}#)
-                                                                               
      #{r-cache\ 674}#
+                                                                               
  #{b\ 1342}#
+                                                                               
  (#{eval-local-transformer\ 357}#
+                                                                               
    (#{chi\ 345}#
+                                                                               
      (cddr #{b\ 1342}#)
+                                                                               
      #{r-cache\ 1347}#
                                                                                
      '(())
-                                                                               
      #{mod\ 647}#)
-                                                                               
    #{mod\ 647}#))
-                                                                               
(#{loop\ 668}#
-                                                                               
  (cdr #{bs\ 669}#)
-                                                                               
  #{er\ 673}#
-                                                                               
  #{r-cache\ 674}#))))
-                                                                         
(#{loop\ 668}#
-                                                                           
(cdr #{bs\ 669}#)
-                                                                           
#{er-cache\ 670}#
-                                                                           
#{r-cache\ 671}#)))))))
-                                                        (#{loop\ 668}#
-                                                          #{bindings\ 638}#
+                                                                               
      #{mod\ 1279}#)
+                                                                               
    #{mod\ 1279}#))
+                                                                               
(#{loop\ 1336}#
+                                                                               
  (cdr #{bs\ 1337}#)
+                                                                               
  #{er\ 1345}#
+                                                                               
  #{r-cache\ 1347}#))))
+                                                                         
(#{loop\ 1336}#
+                                                                           
(cdr #{bs\ 1337}#)
+                                                                           
#{er-cache\ 1338}#
+                                                                           
#{r-cache\ 1339}#)))))))
+                                                        (#{loop\ 1336}#
+                                                          #{bindings\ 1266}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 628}#
-                                                        (#{extend-env\ 122}#
-                                                          #{labels\ 634}#
-                                                          #{bindings\ 638}#
-                                                          (cdr #{r\ 628}#)))
-                                                      (#{build-letrec\ 110}#
+                                                        #{r\ 1245}#
+                                                        (#{extend-env\ 248}#
+                                                          #{labels\ 1262}#
+                                                          #{bindings\ 1266}#
+                                                          (cdr #{r\ 1245}#)))
+                                                      (#{build-letrec\ 218}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 635}#)
-                                                        #{vars\ 636}#
-                                                        (map (lambda (#{x\ 
675}#)
-                                                               (#{chi\ 164}#
-                                                                 (cdr #{x\ 
675}#)
-                                                                 (car #{x\ 
675}#)
+                                                             #{var-ids\ 1263}#)
+                                                        #{vars\ 1264}#
+                                                        (map (lambda (#{x\ 
1350}#)
+                                                               (#{chi\ 345}#
+                                                                 (cdr #{x\ 
1350}#)
+                                                                 (car #{x\ 
1350}#)
                                                                  '(())
-                                                                 #{mod\ 647}#))
-                                                             #{vals\ 637}#)
-                                                        (#{build-sequence\ 
107}#
+                                                                 #{mod\ 
1279}#))
+                                                             #{vals\ 1265}#)
+                                                        (#{build-sequence\ 
212}#
                                                           #f
-                                                          (map (lambda (#{x\ 
676}#)
-                                                                 (#{chi\ 164}#
-                                                                   (cdr #{x\ 
676}#)
-                                                                   (car #{x\ 
676}#)
+                                                          (map (lambda (#{x\ 
1354}#)
+                                                                 (#{chi\ 345}#
+                                                                   (cdr #{x\ 
1354}#)
+                                                                   (car #{x\ 
1354}#)
                                                                    '(())
-                                                                   #{mod\ 
647}#))
-                                                               (cons (cons 
#{er\ 641}#
-                                                                           
(#{source-wrap\ 157}#
-                                                                             
#{e\ 644}#
-                                                                             
#{w\ 645}#
-                                                                             
#{s\ 646}#
-                                                                             
#{mod\ 647}#))
-                                                                     (cdr 
#{body\ 632}#))))))))))))))))))
-                       (#{parse\ 631}#
-                         (map (lambda (#{x\ 639}#)
-                                (cons #{r\ 628}#
-                                      (#{wrap\ 156}#
-                                        #{x\ 639}#
-                                        #{w\ 630}#
-                                        #{mod\ 627}#)))
-                              #{body\ 623}#)
+                                                                   #{mod\ 
1279}#))
+                                                               (cons (cons 
#{er\ 1272}#
+                                                                           
(#{source-wrap\ 331}#
+                                                                             
#{e\ 1276}#
+                                                                             
#{w\ 1277}#
+                                                                             
#{s\ 1278}#
+                                                                             
#{mod\ 1279}#))
+                                                                     (cdr 
#{body\ 1260}#))))))))))))))))))
+                       (#{parse\ 1259}#
+                         (map (lambda (#{x\ 1267}#)
+                                (cons #{r\ 1245}#
+                                      (#{wrap\ 329}#
+                                        #{x\ 1267}#
+                                        #{w\ 1250}#
+                                        #{mod\ 1237}#)))
+                              #{body\ 1233}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 167}#
-             (lambda (#{p\ 677}#
-                      #{e\ 678}#
-                      #{r\ 679}#
-                      #{w\ 680}#
-                      #{rib\ 681}#
-                      #{mod\ 682}#)
-               (letrec ((#{rebuild-macro-output\ 683}#
-                          (lambda (#{x\ 684}# #{m\ 685}#)
-                            (if (pair? #{x\ 684}#)
-                              (cons (#{rebuild-macro-output\ 683}#
-                                      (car #{x\ 684}#)
-                                      #{m\ 685}#)
-                                    (#{rebuild-macro-output\ 683}#
-                                      (cdr #{x\ 684}#)
-                                      #{m\ 685}#))
-                              (if (#{syntax-object?\ 112}# #{x\ 684}#)
-                                (let ((#{w\ 686}# (#{syntax-object-wrap\ 114}#
-                                                    #{x\ 684}#)))
-                                  (let ((#{ms\ 687}#
-                                          (#{wrap-marks\ 131}# #{w\ 686}#))
-                                        (#{s\ 688}# (#{wrap-subst\ 132}#
-                                                      #{w\ 686}#)))
-                                    (if (if (pair? #{ms\ 687}#)
-                                          (eq? (car #{ms\ 687}#) #f)
+           (#{chi-macro\ 351}#
+             (lambda (#{p\ 1357}#
+                      #{e\ 1358}#
+                      #{r\ 1359}#
+                      #{w\ 1360}#
+                      #{rib\ 1361}#
+                      #{mod\ 1362}#)
+               (letrec ((#{rebuild-macro-output\ 1370}#
+                          (lambda (#{x\ 1371}# #{m\ 1372}#)
+                            (if (pair? #{x\ 1371}#)
+                              (cons (#{rebuild-macro-output\ 1370}#
+                                      (car #{x\ 1371}#)
+                                      #{m\ 1372}#)
+                                    (#{rebuild-macro-output\ 1370}#
+                                      (cdr #{x\ 1371}#)
+                                      #{m\ 1372}#))
+                              (if (#{syntax-object?\ 224}# #{x\ 1371}#)
+                                (let ((#{w\ 1380}#
+                                        (#{syntax-object-wrap\ 228}#
+                                          #{x\ 1371}#)))
+                                  (let ((#{ms\ 1383}#
+                                          (#{wrap-marks\ 267}# #{w\ 1380}#))
+                                        (#{s\ 1384}#
+                                          (#{wrap-subst\ 269}# #{w\ 1380}#)))
+                                    (if (if (pair? #{ms\ 1383}#)
+                                          (eq? (car #{ms\ 1383}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 111}#
-                                        (#{syntax-object-expression\ 113}#
-                                          #{x\ 684}#)
-                                        (#{make-wrap\ 130}#
-                                          (cdr #{ms\ 687}#)
-                                          (if #{rib\ 681}#
-                                            (cons #{rib\ 681}#
-                                                  (cdr #{s\ 688}#))
-                                            (cdr #{s\ 688}#)))
-                                        (#{syntax-object-module\ 115}#
-                                          #{x\ 684}#))
-                                      (#{make-syntax-object\ 111}#
-                                        (#{syntax-object-expression\ 113}#
-                                          #{x\ 684}#)
-                                        (#{make-wrap\ 130}#
-                                          (cons #{m\ 685}# #{ms\ 687}#)
-                                          (if #{rib\ 681}#
-                                            (cons #{rib\ 681}#
+                                      (#{make-syntax-object\ 222}#
+                                        (#{syntax-object-expression\ 226}#
+                                          #{x\ 1371}#)
+                                        (#{make-wrap\ 265}#
+                                          (cdr #{ms\ 1383}#)
+                                          (if #{rib\ 1361}#
+                                            (cons #{rib\ 1361}#
+                                                  (cdr #{s\ 1384}#))
+                                            (cdr #{s\ 1384}#)))
+                                        (#{syntax-object-module\ 230}#
+                                          #{x\ 1371}#))
+                                      (#{make-syntax-object\ 222}#
+                                        (#{syntax-object-expression\ 226}#
+                                          #{x\ 1371}#)
+                                        (#{make-wrap\ 265}#
+                                          (cons #{m\ 1372}# #{ms\ 1383}#)
+                                          (if #{rib\ 1361}#
+                                            (cons #{rib\ 1361}#
                                                   (cons 'shift
-                                                        #{s\ 688}#))
-                                            (cons (quote shift) #{s\ 688}#)))
+                                                        #{s\ 1384}#))
+                                            (cons (quote shift) #{s\ 1384}#)))
                                         (cons 'hygiene
-                                              (cdr #{p\ 677}#))))))
-                                (if (vector? #{x\ 684}#)
-                                  (let ((#{n\ 689}# (vector-length
-                                                      #{x\ 684}#)))
-                                    (let ((#{v\ 690}# (make-vector
-                                                        #{n\ 689}#)))
-                                      (letrec ((#{loop\ 691}#
-                                                 (lambda (#{i\ 692}#)
-                                                   (if (#{fx=\ 85}#
-                                                         #{i\ 692}#
-                                                         #{n\ 689}#)
+                                              (cdr #{p\ 1357}#))))))
+                                (if (vector? #{x\ 1371}#)
+                                  (let ((#{n\ 1392}#
+                                          (vector-length #{x\ 1371}#)))
+                                    (let ((#{v\ 1394}#
+                                            (make-vector #{n\ 1392}#)))
+                                      (letrec ((#{loop\ 1397}#
+                                                 (lambda (#{i\ 1398}#)
+                                                   (if (#{fx=\ 167}#
+                                                         #{i\ 1398}#
+                                                         #{n\ 1392}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 690}#)
+                                                       #{v\ 1394}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 690}#
-                                                         #{i\ 692}#
-                                                         
(#{rebuild-macro-output\ 683}#
+                                                         #{v\ 1394}#
+                                                         #{i\ 1398}#
+                                                         
(#{rebuild-macro-output\ 1370}#
                                                            (vector-ref
-                                                             #{x\ 684}#
-                                                             #{i\ 692}#)
-                                                           #{m\ 685}#))
-                                                       (#{loop\ 691}#
-                                                         (#{fx+\ 83}#
-                                                           #{i\ 692}#
+                                                             #{x\ 1371}#
+                                                             #{i\ 1398}#)
+                                                           #{m\ 1372}#))
+                                                       (#{loop\ 1397}#
+                                                         (#{fx+\ 163}#
+                                                           #{i\ 1398}#
                                                            1)))))))
-                                        (#{loop\ 691}# 0))))
-                                  (if (symbol? #{x\ 684}#)
+                                        (#{loop\ 1397}# 0))))
+                                  (if (symbol? #{x\ 1371}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 157}#
-                                        #{e\ 678}#
-                                        #{w\ 680}#
-                                        (#{wrap-subst\ 132}# #{w\ 680}#)
-                                        #{mod\ 682}#)
-                                      #{x\ 684}#)
-                                    #{x\ 684}#)))))))
-                 (#{rebuild-macro-output\ 683}#
-                   ((car #{p\ 677}#)
-                    (#{wrap\ 156}#
-                      #{e\ 678}#
-                      (#{anti-mark\ 143}# #{w\ 680}#)
-                      #{mod\ 682}#))
+                                      (#{source-wrap\ 331}#
+                                        #{e\ 1358}#
+                                        #{w\ 1360}#
+                                        (#{wrap-subst\ 269}# #{w\ 1360}#)
+                                        #{mod\ 1362}#)
+                                      #{x\ 1371}#)
+                                    #{x\ 1371}#)))))))
+                 (#{rebuild-macro-output\ 1370}#
+                   ((car #{p\ 1357}#)
+                    (#{wrap\ 329}#
+                      #{e\ 1358}#
+                      (#{anti-mark\ 301}# #{w\ 1360}#)
+                      #{mod\ 1362}#))
                    (gensym "m")))))
-           (#{chi-application\ 166}#
-             (lambda (#{x\ 693}#
-                      #{e\ 694}#
-                      #{r\ 695}#
-                      #{w\ 696}#
-                      #{s\ 697}#
-                      #{mod\ 698}#)
-               ((lambda (#{tmp\ 699}#)
-                  ((lambda (#{tmp\ 700}#)
-                     (if #{tmp\ 700}#
-                       (apply (lambda (#{e0\ 701}# #{e1\ 702}#)
-                                (#{build-application\ 93}#
-                                  #{s\ 697}#
-                                  #{x\ 693}#
-                                  (map (lambda (#{e\ 703}#)
-                                         (#{chi\ 164}#
-                                           #{e\ 703}#
-                                           #{r\ 695}#
-                                           #{w\ 696}#
-                                           #{mod\ 698}#))
-                                       #{e1\ 702}#)))
-                              #{tmp\ 700}#)
+           (#{chi-application\ 349}#
+             (lambda (#{x\ 1405}#
+                      #{e\ 1406}#
+                      #{r\ 1407}#
+                      #{w\ 1408}#
+                      #{s\ 1409}#
+                      #{mod\ 1410}#)
+               ((lambda (#{tmp\ 1417}#)
+                  ((lambda (#{tmp\ 1418}#)
+                     (if #{tmp\ 1418}#
+                       (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#)
+                                (#{build-application\ 184}#
+                                  #{s\ 1409}#
+                                  #{x\ 1405}#
+                                  (map (lambda (#{e\ 1423}#)
+                                         (#{chi\ 345}#
+                                           #{e\ 1423}#
+                                           #{r\ 1407}#
+                                           #{w\ 1408}#
+                                           #{mod\ 1410}#))
+                                       #{e1\ 1422}#)))
+                              #{tmp\ 1418}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 699}#)))
+                         #{tmp\ 1417}#)))
                    ($sc-dispatch
-                     #{tmp\ 699}#
+                     #{tmp\ 1417}#
                      '(any . each-any))))
-                #{e\ 694}#)))
-           (#{chi-expr\ 165}#
-             (lambda (#{type\ 705}#
-                      #{value\ 706}#
-                      #{e\ 707}#
-                      #{r\ 708}#
-                      #{w\ 709}#
-                      #{s\ 710}#
-                      #{mod\ 711}#)
-               (if (memv #{type\ 705}# (quote (lexical)))
-                 (#{build-lexical-reference\ 95}#
+                #{e\ 1406}#)))
+           (#{chi-expr\ 347}#
+             (lambda (#{type\ 1426}#
+                      #{value\ 1427}#
+                      #{e\ 1428}#
+                      #{r\ 1429}#
+                      #{w\ 1430}#
+                      #{s\ 1431}#
+                      #{mod\ 1432}#)
+               (if (memv #{type\ 1426}# (quote (lexical)))
+                 (#{build-lexical-reference\ 188}#
                    'value
-                   #{s\ 710}#
-                   #{e\ 707}#
-                   #{value\ 706}#)
-                 (if (memv #{type\ 705}# (quote (core core-form)))
-                   (#{value\ 706}#
-                     #{e\ 707}#
-                     #{r\ 708}#
-                     #{w\ 709}#
-                     #{s\ 710}#
-                     #{mod\ 711}#)
-                   (if (memv #{type\ 705}# (quote (module-ref)))
+                   #{s\ 1431}#
+                   #{e\ 1428}#
+                   #{value\ 1427}#)
+                 (if (memv #{type\ 1426}# (quote (core core-form)))
+                   (#{value\ 1427}#
+                     #{e\ 1428}#
+                     #{r\ 1429}#
+                     #{w\ 1430}#
+                     #{s\ 1431}#
+                     #{mod\ 1432}#)
+                   (if (memv #{type\ 1426}# (quote (module-ref)))
                      (call-with-values
-                       (lambda () (#{value\ 706}# #{e\ 707}#))
-                       (lambda (#{id\ 712}# #{mod\ 713}#)
-                         (#{build-global-reference\ 98}#
-                           #{s\ 710}#
-                           #{id\ 712}#
-                           #{mod\ 713}#)))
-                     (if (memv #{type\ 705}# (quote (lexical-call)))
-                       (#{chi-application\ 166}#
-                         (#{build-lexical-reference\ 95}#
+                       (lambda () (#{value\ 1427}# #{e\ 1428}#))
+                       (lambda (#{id\ 1443}# #{mod\ 1444}#)
+                         (#{build-global-reference\ 194}#
+                           #{s\ 1431}#
+                           #{id\ 1443}#
+                           #{mod\ 1444}#)))
+                     (if (memv #{type\ 1426}# (quote (lexical-call)))
+                       (#{chi-application\ 349}#
+                         (#{build-lexical-reference\ 188}#
                            'fun
-                           (#{source-annotation\ 119}# (car #{e\ 707}#))
-                           (car #{e\ 707}#)
-                           #{value\ 706}#)
-                         #{e\ 707}#
-                         #{r\ 708}#
-                         #{w\ 709}#
-                         #{s\ 710}#
-                         #{mod\ 711}#)
-                       (if (memv #{type\ 705}# (quote (global-call)))
-                         (#{chi-application\ 166}#
-                           (#{build-global-reference\ 98}#
-                             (#{source-annotation\ 119}# (car #{e\ 707}#))
-                             (if (#{syntax-object?\ 112}# #{value\ 706}#)
-                               (#{syntax-object-expression\ 113}#
-                                 #{value\ 706}#)
-                               #{value\ 706}#)
-                             (if (#{syntax-object?\ 112}# #{value\ 706}#)
-                               (#{syntax-object-module\ 115}# #{value\ 706}#)
-                               #{mod\ 711}#))
-                           #{e\ 707}#
-                           #{r\ 708}#
-                           #{w\ 709}#
-                           #{s\ 710}#
-                           #{mod\ 711}#)
-                         (if (memv #{type\ 705}# (quote (constant)))
-                           (#{build-data\ 106}#
-                             #{s\ 710}#
-                             (#{strip\ 177}#
-                               (#{source-wrap\ 157}#
-                                 #{e\ 707}#
-                                 #{w\ 709}#
-                                 #{s\ 710}#
-                                 #{mod\ 711}#)
+                           (#{source-annotation\ 239}# (car #{e\ 1428}#))
+                           (car #{e\ 1428}#)
+                           #{value\ 1427}#)
+                         #{e\ 1428}#
+                         #{r\ 1429}#
+                         #{w\ 1430}#
+                         #{s\ 1431}#
+                         #{mod\ 1432}#)
+                       (if (memv #{type\ 1426}# (quote (global-call)))
+                         (#{chi-application\ 349}#
+                           (#{build-global-reference\ 194}#
+                             (#{source-annotation\ 239}# (car #{e\ 1428}#))
+                             (if (#{syntax-object?\ 224}# #{value\ 1427}#)
+                               (#{syntax-object-expression\ 226}#
+                                 #{value\ 1427}#)
+                               #{value\ 1427}#)
+                             (if (#{syntax-object?\ 224}# #{value\ 1427}#)
+                               (#{syntax-object-module\ 230}# #{value\ 1427}#)
+                               #{mod\ 1432}#))
+                           #{e\ 1428}#
+                           #{r\ 1429}#
+                           #{w\ 1430}#
+                           #{s\ 1431}#
+                           #{mod\ 1432}#)
+                         (if (memv #{type\ 1426}# (quote (constant)))
+                           (#{build-data\ 210}#
+                             #{s\ 1431}#
+                             (#{strip\ 371}#
+                               (#{source-wrap\ 331}#
+                                 #{e\ 1428}#
+                                 #{w\ 1430}#
+                                 #{s\ 1431}#
+                                 #{mod\ 1432}#)
                                '(())))
-                           (if (memv #{type\ 705}# (quote (global)))
-                             (#{build-global-reference\ 98}#
-                               #{s\ 710}#
-                               #{value\ 706}#
-                               #{mod\ 711}#)
-                             (if (memv #{type\ 705}# (quote (call)))
-                               (#{chi-application\ 166}#
-                                 (#{chi\ 164}#
-                                   (car #{e\ 707}#)
-                                   #{r\ 708}#
-                                   #{w\ 709}#
-                                   #{mod\ 711}#)
-                                 #{e\ 707}#
-                                 #{r\ 708}#
-                                 #{w\ 709}#
-                                 #{s\ 710}#
-                                 #{mod\ 711}#)
-                               (if (memv #{type\ 705}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 714}#)
-                                    ((lambda (#{tmp\ 715}#)
-                                       (if #{tmp\ 715}#
-                                         (apply (lambda (#{_\ 716}#
-                                                         #{e1\ 717}#
-                                                         #{e2\ 718}#)
-                                                  (#{chi-sequence\ 158}#
-                                                    (cons #{e1\ 717}#
-                                                          #{e2\ 718}#)
-                                                    #{r\ 708}#
-                                                    #{w\ 709}#
-                                                    #{s\ 710}#
-                                                    #{mod\ 711}#))
-                                                #{tmp\ 715}#)
+                           (if (memv #{type\ 1426}# (quote (global)))
+                             (#{build-global-reference\ 194}#
+                               #{s\ 1431}#
+                               #{value\ 1427}#
+                               #{mod\ 1432}#)
+                             (if (memv #{type\ 1426}# (quote (call)))
+                               (#{chi-application\ 349}#
+                                 (#{chi\ 345}#
+                                   (car #{e\ 1428}#)
+                                   #{r\ 1429}#
+                                   #{w\ 1430}#
+                                   #{mod\ 1432}#)
+                                 #{e\ 1428}#
+                                 #{r\ 1429}#
+                                 #{w\ 1430}#
+                                 #{s\ 1431}#
+                                 #{mod\ 1432}#)
+                               (if (memv #{type\ 1426}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 1454}#)
+                                    ((lambda (#{tmp\ 1455}#)
+                                       (if #{tmp\ 1455}#
+                                         (apply (lambda (#{_\ 1459}#
+                                                         #{e1\ 1460}#
+                                                         #{e2\ 1461}#)
+                                                  (#{chi-sequence\ 333}#
+                                                    (cons #{e1\ 1460}#
+                                                          #{e2\ 1461}#)
+                                                    #{r\ 1429}#
+                                                    #{w\ 1430}#
+                                                    #{s\ 1431}#
+                                                    #{mod\ 1432}#))
+                                                #{tmp\ 1455}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 714}#)))
+                                           #{tmp\ 1454}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 714}#
+                                       #{tmp\ 1454}#
                                        '(any any . each-any))))
-                                  #{e\ 707}#)
-                                 (if (memv #{type\ 705}#
+                                  #{e\ 1428}#)
+                                 (if (memv #{type\ 1426}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 169}#
-                                     #{value\ 706}#
-                                     #{e\ 707}#
-                                     #{r\ 708}#
-                                     #{w\ 709}#
-                                     #{s\ 710}#
-                                     #{mod\ 711}#
-                                     #{chi-sequence\ 158}#)
-                                   (if (memv #{type\ 705}#
+                                   (#{chi-local-syntax\ 355}#
+                                     #{value\ 1427}#
+                                     #{e\ 1428}#
+                                     #{r\ 1429}#
+                                     #{w\ 1430}#
+                                     #{s\ 1431}#
+                                     #{mod\ 1432}#
+                                     #{chi-sequence\ 333}#)
+                                   (if (memv #{type\ 1426}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 720}#)
-                                        ((lambda (#{tmp\ 721}#)
-                                           (if #{tmp\ 721}#
-                                             (apply (lambda (#{_\ 722}#
-                                                             #{x\ 723}#
-                                                             #{e1\ 724}#
-                                                             #{e2\ 725}#)
-                                                      (let ((#{when-list\ 726}#
-                                                              
(#{chi-when-list\ 161}#
-                                                                #{e\ 707}#
-                                                                #{x\ 723}#
-                                                                #{w\ 709}#)))
+                                     ((lambda (#{tmp\ 1465}#)
+                                        ((lambda (#{tmp\ 1466}#)
+                                           (if #{tmp\ 1466}#
+                                             (apply (lambda (#{_\ 1471}#
+                                                             #{x\ 1472}#
+                                                             #{e1\ 1473}#
+                                                             #{e2\ 1474}#)
+                                                      (let ((#{when-list\ 
1476}#
+                                                              
(#{chi-when-list\ 339}#
+                                                                #{e\ 1428}#
+                                                                #{x\ 1472}#
+                                                                #{w\ 1430}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
726}#)
-                                                          (#{chi-sequence\ 
158}#
-                                                            (cons #{e1\ 724}#
-                                                                  #{e2\ 725}#)
-                                                            #{r\ 708}#
-                                                            #{w\ 709}#
-                                                            #{s\ 710}#
-                                                            #{mod\ 711}#)
-                                                          (#{chi-void\ 
171}#))))
-                                                    #{tmp\ 721}#)
+                                                                  #{when-list\ 
1476}#)
+                                                          (#{chi-sequence\ 
333}#
+                                                            (cons #{e1\ 1473}#
+                                                                  #{e2\ 1474}#)
+                                                            #{r\ 1429}#
+                                                            #{w\ 1430}#
+                                                            #{s\ 1431}#
+                                                            #{mod\ 1432}#)
+                                                          (#{chi-void\ 
359}#))))
+                                                    #{tmp\ 1466}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 720}#)))
+                                               #{tmp\ 1465}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 720}#
+                                           #{tmp\ 1465}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 707}#)
-                                     (if (memv #{type\ 705}#
+                                      #{e\ 1428}#)
+                                     (if (memv #{type\ 1426}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 707}#
-                                         (#{wrap\ 156}#
-                                           #{value\ 706}#
-                                           #{w\ 709}#
-                                           #{mod\ 711}#))
-                                       (if (memv #{type\ 705}#
+                                         #{e\ 1428}#
+                                         (#{wrap\ 329}#
+                                           #{value\ 1427}#
+                                           #{w\ 1430}#
+                                           #{mod\ 1432}#))
+                                       (if (memv #{type\ 1426}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 157}#
-                                             #{e\ 707}#
-                                             #{w\ 709}#
-                                             #{s\ 710}#
-                                             #{mod\ 711}#))
-                                         (if (memv #{type\ 705}#
+                                           (#{source-wrap\ 331}#
+                                             #{e\ 1428}#
+                                             #{w\ 1430}#
+                                             #{s\ 1431}#
+                                             #{mod\ 1432}#))
+                                         (if (memv #{type\ 1426}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 157}#
-                                               #{e\ 707}#
-                                               #{w\ 709}#
-                                               #{s\ 710}#
-                                               #{mod\ 711}#))
+                                             (#{source-wrap\ 331}#
+                                               #{e\ 1428}#
+                                               #{w\ 1430}#
+                                               #{s\ 1431}#
+                                               #{mod\ 1432}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 157}#
-                                               #{e\ 707}#
-                                               #{w\ 709}#
-                                               #{s\ 710}#
-                                               #{mod\ 711}#))))))))))))))))))
-           (#{chi\ 164}#
-             (lambda (#{e\ 729}# #{r\ 730}# #{w\ 731}# #{mod\ 732}#)
+                                             (#{source-wrap\ 331}#
+                                               #{e\ 1428}#
+                                               #{w\ 1430}#
+                                               #{s\ 1431}#
+                                               #{mod\ 1432}#))))))))))))))))))
+           (#{chi\ 345}#
+             (lambda (#{e\ 1483}#
+                      #{r\ 1484}#
+                      #{w\ 1485}#
+                      #{mod\ 1486}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 162}#
-                     #{e\ 729}#
-                     #{r\ 730}#
-                     #{w\ 731}#
-                     (#{source-annotation\ 119}# #{e\ 729}#)
+                   (#{syntax-type\ 341}#
+                     #{e\ 1483}#
+                     #{r\ 1484}#
+                     #{w\ 1485}#
+                     (#{source-annotation\ 239}# #{e\ 1483}#)
                      #f
-                     #{mod\ 732}#
+                     #{mod\ 1486}#
                      #f))
-                 (lambda (#{type\ 733}#
-                          #{value\ 734}#
-                          #{e\ 735}#
-                          #{w\ 736}#
-                          #{s\ 737}#
-                          #{mod\ 738}#)
-                   (#{chi-expr\ 165}#
-                     #{type\ 733}#
-                     #{value\ 734}#
-                     #{e\ 735}#
-                     #{r\ 730}#
-                     #{w\ 736}#
-                     #{s\ 737}#
-                     #{mod\ 738}#)))))
-           (#{chi-top\ 163}#
-             (lambda (#{e\ 739}#
-                      #{r\ 740}#
-                      #{w\ 741}#
-                      #{m\ 742}#
-                      #{esew\ 743}#
-                      #{mod\ 744}#)
+                 (lambda (#{type\ 1491}#
+                          #{value\ 1492}#
+                          #{e\ 1493}#
+                          #{w\ 1494}#
+                          #{s\ 1495}#
+                          #{mod\ 1496}#)
+                   (#{chi-expr\ 347}#
+                     #{type\ 1491}#
+                     #{value\ 1492}#
+                     #{e\ 1493}#
+                     #{r\ 1484}#
+                     #{w\ 1494}#
+                     #{s\ 1495}#
+                     #{mod\ 1496}#)))))
+           (#{chi-top\ 343}#
+             (lambda (#{e\ 1503}#
+                      #{r\ 1504}#
+                      #{w\ 1505}#
+                      #{m\ 1506}#
+                      #{esew\ 1507}#
+                      #{mod\ 1508}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 162}#
-                     #{e\ 739}#
-                     #{r\ 740}#
-                     #{w\ 741}#
-                     (#{source-annotation\ 119}# #{e\ 739}#)
+                   (#{syntax-type\ 341}#
+                     #{e\ 1503}#
+                     #{r\ 1504}#
+                     #{w\ 1505}#
+                     (#{source-annotation\ 239}# #{e\ 1503}#)
                      #f
-                     #{mod\ 744}#
+                     #{mod\ 1508}#
                      #f))
-                 (lambda (#{type\ 752}#
-                          #{value\ 753}#
-                          #{e\ 754}#
-                          #{w\ 755}#
-                          #{s\ 756}#
-                          #{mod\ 757}#)
-                   (if (memv #{type\ 752}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 758}#)
-                        ((lambda (#{tmp\ 759}#)
-                           (if #{tmp\ 759}#
-                             (apply (lambda (#{_\ 760}#) (#{chi-void\ 171}#))
-                                    #{tmp\ 759}#)
-                             ((lambda (#{tmp\ 761}#)
-                                (if #{tmp\ 761}#
-                                  (apply (lambda (#{_\ 762}#
-                                                  #{e1\ 763}#
-                                                  #{e2\ 764}#)
-                                           (#{chi-top-sequence\ 159}#
-                                             (cons #{e1\ 763}# #{e2\ 764}#)
-                                             #{r\ 740}#
-                                             #{w\ 755}#
-                                             #{s\ 756}#
-                                             #{m\ 742}#
-                                             #{esew\ 743}#
-                                             #{mod\ 757}#))
-                                         #{tmp\ 761}#)
+                 (lambda (#{type\ 1529}#
+                          #{value\ 1530}#
+                          #{e\ 1531}#
+                          #{w\ 1532}#
+                          #{s\ 1533}#
+                          #{mod\ 1534}#)
+                   (if (memv #{type\ 1529}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 1542}#)
+                        ((lambda (#{tmp\ 1543}#)
+                           (if #{tmp\ 1543}#
+                             (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#))
+                                    #{tmp\ 1543}#)
+                             ((lambda (#{tmp\ 1546}#)
+                                (if #{tmp\ 1546}#
+                                  (apply (lambda (#{_\ 1550}#
+                                                  #{e1\ 1551}#
+                                                  #{e2\ 1552}#)
+                                           (#{chi-top-sequence\ 335}#
+                                             (cons #{e1\ 1551}# #{e2\ 1552}#)
+                                             #{r\ 1504}#
+                                             #{w\ 1532}#
+                                             #{s\ 1533}#
+                                             #{m\ 1506}#
+                                             #{esew\ 1507}#
+                                             #{mod\ 1534}#))
+                                         #{tmp\ 1546}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 758}#)))
+                                    #{tmp\ 1542}#)))
                               ($sc-dispatch
-                                #{tmp\ 758}#
+                                #{tmp\ 1542}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 758}# (quote (any)))))
-                      #{e\ 754}#)
-                     (if (memv #{type\ 752}# (quote (local-syntax-form)))
-                       (#{chi-local-syntax\ 169}#
-                         #{value\ 753}#
-                         #{e\ 754}#
-                         #{r\ 740}#
-                         #{w\ 755}#
-                         #{s\ 756}#
-                         #{mod\ 757}#
-                         (lambda (#{body\ 766}#
-                                  #{r\ 767}#
-                                  #{w\ 768}#
-                                  #{s\ 769}#
-                                  #{mod\ 770}#)
-                           (#{chi-top-sequence\ 159}#
-                             #{body\ 766}#
-                             #{r\ 767}#
-                             #{w\ 768}#
-                             #{s\ 769}#
-                             #{m\ 742}#
-                             #{esew\ 743}#
-                             #{mod\ 770}#)))
-                       (if (memv #{type\ 752}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 771}#)
-                            ((lambda (#{tmp\ 772}#)
-                               (if #{tmp\ 772}#
-                                 (apply (lambda (#{_\ 773}#
-                                                 #{x\ 774}#
-                                                 #{e1\ 775}#
-                                                 #{e2\ 776}#)
-                                          (let ((#{when-list\ 777}#
-                                                  (#{chi-when-list\ 161}#
-                                                    #{e\ 754}#
-                                                    #{x\ 774}#
-                                                    #{w\ 755}#))
-                                                (#{body\ 778}#
-                                                  (cons #{e1\ 775}#
-                                                        #{e2\ 776}#)))
-                                            (if (eq? #{m\ 742}# (quote e))
+                         ($sc-dispatch #{tmp\ 1542}# (quote (any)))))
+                      #{e\ 1531}#)
+                     (if (memv #{type\ 1529}# (quote (local-syntax-form)))
+                       (#{chi-local-syntax\ 355}#
+                         #{value\ 1530}#
+                         #{e\ 1531}#
+                         #{r\ 1504}#
+                         #{w\ 1532}#
+                         #{s\ 1533}#
+                         #{mod\ 1534}#
+                         (lambda (#{body\ 1555}#
+                                  #{r\ 1556}#
+                                  #{w\ 1557}#
+                                  #{s\ 1558}#
+                                  #{mod\ 1559}#)
+                           (#{chi-top-sequence\ 335}#
+                             #{body\ 1555}#
+                             #{r\ 1556}#
+                             #{w\ 1557}#
+                             #{s\ 1558}#
+                             #{m\ 1506}#
+                             #{esew\ 1507}#
+                             #{mod\ 1559}#)))
+                       (if (memv #{type\ 1529}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 1566}#)
+                            ((lambda (#{tmp\ 1567}#)
+                               (if #{tmp\ 1567}#
+                                 (apply (lambda (#{_\ 1572}#
+                                                 #{x\ 1573}#
+                                                 #{e1\ 1574}#
+                                                 #{e2\ 1575}#)
+                                          (let ((#{when-list\ 1578}#
+                                                  (#{chi-when-list\ 339}#
+                                                    #{e\ 1531}#
+                                                    #{x\ 1573}#
+                                                    #{w\ 1532}#))
+                                                (#{body\ 1579}#
+                                                  (cons #{e1\ 1574}#
+                                                        #{e2\ 1575}#)))
+                                            (if (eq? #{m\ 1506}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 777}#)
-                                                (#{chi-top-sequence\ 159}#
-                                                  #{body\ 778}#
-                                                  #{r\ 740}#
-                                                  #{w\ 755}#
-                                                  #{s\ 756}#
+                                                        #{when-list\ 1578}#)
+                                                (#{chi-top-sequence\ 335}#
+                                                  #{body\ 1579}#
+                                                  #{r\ 1504}#
+                                                  #{w\ 1532}#
+                                                  #{s\ 1533}#
                                                   'e
                                                   '(eval)
-                                                  #{mod\ 757}#)
-                                                (#{chi-void\ 171}#))
+                                                  #{mod\ 1534}#)
+                                                (#{chi-void\ 359}#))
                                               (if (memq 'load
-                                                        #{when-list\ 777}#)
-                                                (if (let ((#{t\ 781}# (memq 
'compile
-                                                                            
#{when-list\ 777}#)))
-                                                      (if #{t\ 781}#
-                                                        #{t\ 781}#
-                                                        (if (eq? #{m\ 742}#
+                                                        #{when-list\ 1578}#)
+                                                (if (let ((#{t\ 1588}#
+                                                            (memq 'compile
+                                                                  #{when-list\ 
1578}#)))
+                                                      (if #{t\ 1588}#
+                                                        #{t\ 1588}#
+                                                        (if (eq? #{m\ 1506}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
777}#)
+                                                                #{when-list\ 
1578}#)
                                                           #f)))
-                                                  (#{chi-top-sequence\ 159}#
-                                                    #{body\ 778}#
-                                                    #{r\ 740}#
-                                                    #{w\ 755}#
-                                                    #{s\ 756}#
+                                                  (#{chi-top-sequence\ 335}#
+                                                    #{body\ 1579}#
+                                                    #{r\ 1504}#
+                                                    #{w\ 1532}#
+                                                    #{s\ 1533}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 757}#)
-                                                  (if (memq #{m\ 742}#
+                                                    #{mod\ 1534}#)
+                                                  (if (memq #{m\ 1506}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 159}#
-                                                      #{body\ 778}#
-                                                      #{r\ 740}#
-                                                      #{w\ 755}#
-                                                      #{s\ 756}#
+                                                    (#{chi-top-sequence\ 335}#
+                                                      #{body\ 1579}#
+                                                      #{r\ 1504}#
+                                                      #{w\ 1532}#
+                                                      #{s\ 1533}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 757}#)
-                                                    (#{chi-void\ 171}#)))
-                                                (if (let ((#{t\ 782}# (memq 
'compile
-                                                                            
#{when-list\ 777}#)))
-                                                      (if #{t\ 782}#
-                                                        #{t\ 782}#
-                                                        (if (eq? #{m\ 742}#
+                                                      #{mod\ 1534}#)
+                                                    (#{chi-void\ 359}#)))
+                                                (if (let ((#{t\ 1596}#
+                                                            (memq 'compile
+                                                                  #{when-list\ 
1578}#)))
+                                                      (if #{t\ 1596}#
+                                                        #{t\ 1596}#
+                                                        (if (eq? #{m\ 1506}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
777}#)
+                                                                #{when-list\ 
1578}#)
                                                           #f)))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
87}#
-                                                      (#{chi-top-sequence\ 
159}#
-                                                        #{body\ 778}#
-                                                        #{r\ 740}#
-                                                        #{w\ 755}#
-                                                        #{s\ 756}#
+                                                    (#{top-level-eval-hook\ 
171}#
+                                                      (#{chi-top-sequence\ 
335}#
+                                                        #{body\ 1579}#
+                                                        #{r\ 1504}#
+                                                        #{w\ 1532}#
+                                                        #{s\ 1533}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 757}#)
-                                                      #{mod\ 757}#)
-                                                    (#{chi-void\ 171}#))
-                                                  (#{chi-void\ 171}#))))))
-                                        #{tmp\ 772}#)
+                                                        #{mod\ 1534}#)
+                                                      #{mod\ 1534}#)
+                                                    (#{chi-void\ 359}#))
+                                                  (#{chi-void\ 359}#))))))
+                                        #{tmp\ 1567}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 771}#)))
+                                   #{tmp\ 1566}#)))
                              ($sc-dispatch
-                               #{tmp\ 771}#
+                               #{tmp\ 1566}#
                                '(any each-any any . each-any))))
-                          #{e\ 754}#)
-                         (if (memv #{type\ 752}# (quote (define-syntax-form)))
-                           (let ((#{n\ 783}# (#{id-var-name\ 150}#
-                                               #{value\ 753}#
-                                               #{w\ 755}#))
-                                 (#{r\ 784}# (#{macros-only-env\ 124}#
-                                               #{r\ 740}#)))
-                             (if (memv #{m\ 742}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 743}#)
-                                 (let ((#{e\ 785}# (#{chi-install-global\ 160}#
-                                                     #{n\ 783}#
-                                                     (#{chi\ 164}#
-                                                       #{e\ 754}#
-                                                       #{r\ 784}#
-                                                       #{w\ 755}#
-                                                       #{mod\ 757}#))))
+                          #{e\ 1531}#)
+                         (if (memv #{type\ 1529}#
+                                   '(define-syntax-form))
+                           (let ((#{n\ 1604}#
+                                   (#{id-var-name\ 317}#
+                                     #{value\ 1530}#
+                                     #{w\ 1532}#))
+                                 (#{r\ 1605}#
+                                   (#{macros-only-env\ 252}# #{r\ 1504}#)))
+                             (if (memv #{m\ 1506}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 1507}#)
+                                 (let ((#{e\ 1608}#
+                                         (#{chi-install-global\ 337}#
+                                           #{n\ 1604}#
+                                           (#{chi\ 345}#
+                                             #{e\ 1531}#
+                                             #{r\ 1605}#
+                                             #{w\ 1532}#
+                                             #{mod\ 1534}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 87}#
-                                       #{e\ 785}#
-                                       #{mod\ 757}#)
-                                     (if (memq (quote load) #{esew\ 743}#)
-                                       #{e\ 785}#
-                                       (#{chi-void\ 171}#))))
-                                 (if (memq (quote load) #{esew\ 743}#)
-                                   (#{chi-install-global\ 160}#
-                                     #{n\ 783}#
-                                     (#{chi\ 164}#
-                                       #{e\ 754}#
-                                       #{r\ 784}#
-                                       #{w\ 755}#
-                                       #{mod\ 757}#))
-                                   (#{chi-void\ 171}#)))
-                               (if (memv #{m\ 742}# (quote (c&e)))
-                                 (let ((#{e\ 786}# (#{chi-install-global\ 160}#
-                                                     #{n\ 783}#
-                                                     (#{chi\ 164}#
-                                                       #{e\ 754}#
-                                                       #{r\ 784}#
-                                                       #{w\ 755}#
-                                                       #{mod\ 757}#))))
+                                     (#{top-level-eval-hook\ 171}#
+                                       #{e\ 1608}#
+                                       #{mod\ 1534}#)
+                                     (if (memq (quote load) #{esew\ 1507}#)
+                                       #{e\ 1608}#
+                                       (#{chi-void\ 359}#))))
+                                 (if (memq (quote load) #{esew\ 1507}#)
+                                   (#{chi-install-global\ 337}#
+                                     #{n\ 1604}#
+                                     (#{chi\ 345}#
+                                       #{e\ 1531}#
+                                       #{r\ 1605}#
+                                       #{w\ 1532}#
+                                       #{mod\ 1534}#))
+                                   (#{chi-void\ 359}#)))
+                               (if (memv #{m\ 1506}# (quote (c&e)))
+                                 (let ((#{e\ 1611}#
+                                         (#{chi-install-global\ 337}#
+                                           #{n\ 1604}#
+                                           (#{chi\ 345}#
+                                             #{e\ 1531}#
+                                             #{r\ 1605}#
+                                             #{w\ 1532}#
+                                             #{mod\ 1534}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 87}#
-                                       #{e\ 786}#
-                                       #{mod\ 757}#)
-                                     #{e\ 786}#))
+                                     (#{top-level-eval-hook\ 171}#
+                                       #{e\ 1611}#
+                                       #{mod\ 1534}#)
+                                     #{e\ 1611}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 743}#)
-                                     (#{top-level-eval-hook\ 87}#
-                                       (#{chi-install-global\ 160}#
-                                         #{n\ 783}#
-                                         (#{chi\ 164}#
-                                           #{e\ 754}#
-                                           #{r\ 784}#
-                                           #{w\ 755}#
-                                           #{mod\ 757}#))
-                                       #{mod\ 757}#))
-                                   (#{chi-void\ 171}#)))))
-                           (if (memv #{type\ 752}# (quote (define-form)))
-                             (let ((#{n\ 787}# (#{id-var-name\ 150}#
-                                                 #{value\ 753}#
-                                                 #{w\ 755}#)))
-                               (let ((#{type\ 788}#
-                                       (#{binding-type\ 120}#
-                                         (#{lookup\ 125}#
-                                           #{n\ 787}#
-                                           #{r\ 740}#
-                                           #{mod\ 757}#))))
-                                 (if (memv #{type\ 788}#
+                                   (if (memq (quote eval) #{esew\ 1507}#)
+                                     (#{top-level-eval-hook\ 171}#
+                                       (#{chi-install-global\ 337}#
+                                         #{n\ 1604}#
+                                         (#{chi\ 345}#
+                                           #{e\ 1531}#
+                                           #{r\ 1605}#
+                                           #{w\ 1532}#
+                                           #{mod\ 1534}#))
+                                       #{mod\ 1534}#))
+                                   (#{chi-void\ 359}#)))))
+                           (if (memv #{type\ 1529}# (quote (define-form)))
+                             (let ((#{n\ 1616}#
+                                     (#{id-var-name\ 317}#
+                                       #{value\ 1530}#
+                                       #{w\ 1532}#)))
+                               (let ((#{type\ 1618}#
+                                       (#{binding-type\ 243}#
+                                         (#{lookup\ 254}#
+                                           #{n\ 1616}#
+                                           #{r\ 1504}#
+                                           #{mod\ 1534}#))))
+                                 (if (memv #{type\ 1618}#
                                            '(global core macro module-ref))
                                    (begin
                                      (if (if (not (module-local-variable
                                                     (current-module)
-                                                    #{n\ 787}#))
+                                                    #{n\ 1616}#))
                                            (current-module)
                                            #f)
-                                       (let ((#{old\ 789}#
+                                       (let ((#{old\ 1623}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 787}#)))
+                                                 #{n\ 1616}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 787}#
-                                           (if (variable? #{old\ 789}#)
-                                             (variable-ref #{old\ 789}#)
+                                           #{n\ 1616}#
+                                           (if (variable? #{old\ 1623}#)
+                                             (variable-ref #{old\ 1623}#)
                                              #f))))
-                                     (let ((#{x\ 790}# 
(#{build-global-definition\ 101}#
-                                                         #{s\ 756}#
-                                                         #{n\ 787}#
-                                                         (#{chi\ 164}#
-                                                           #{e\ 754}#
-                                                           #{r\ 740}#
-                                                           #{w\ 755}#
-                                                           #{mod\ 757}#))))
+                                     (let ((#{x\ 1626}#
+                                             (#{build-global-definition\ 200}#
+                                               #{s\ 1533}#
+                                               #{n\ 1616}#
+                                               (#{chi\ 345}#
+                                                 #{e\ 1531}#
+                                                 #{r\ 1504}#
+                                                 #{w\ 1532}#
+                                                 #{mod\ 1534}#))))
                                        (begin
-                                         (if (eq? #{m\ 742}# (quote c&e))
-                                           (#{top-level-eval-hook\ 87}#
-                                             #{x\ 790}#
-                                             #{mod\ 757}#))
-                                         #{x\ 790}#)))
-                                   (if (memv #{type\ 788}#
+                                         (if (eq? #{m\ 1506}# (quote c&e))
+                                           (#{top-level-eval-hook\ 171}#
+                                             #{x\ 1626}#
+                                             #{mod\ 1534}#))
+                                         #{x\ 1626}#)))
+                                   (if (memv #{type\ 1618}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 754}#
-                                       (#{wrap\ 156}#
-                                         #{value\ 753}#
-                                         #{w\ 755}#
-                                         #{mod\ 757}#))
+                                       #{e\ 1531}#
+                                       (#{wrap\ 329}#
+                                         #{value\ 1530}#
+                                         #{w\ 1532}#
+                                         #{mod\ 1534}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 754}#
-                                       (#{wrap\ 156}#
-                                         #{value\ 753}#
-                                         #{w\ 755}#
-                                         #{mod\ 757}#))))))
-                             (let ((#{x\ 791}# (#{chi-expr\ 165}#
-                                                 #{type\ 752}#
-                                                 #{value\ 753}#
-                                                 #{e\ 754}#
-                                                 #{r\ 740}#
-                                                 #{w\ 755}#
-                                                 #{s\ 756}#
-                                                 #{mod\ 757}#)))
+                                       #{e\ 1531}#
+                                       (#{wrap\ 329}#
+                                         #{value\ 1530}#
+                                         #{w\ 1532}#
+                                         #{mod\ 1534}#))))))
+                             (let ((#{x\ 1632}#
+                                     (#{chi-expr\ 347}#
+                                       #{type\ 1529}#
+                                       #{value\ 1530}#
+                                       #{e\ 1531}#
+                                       #{r\ 1504}#
+                                       #{w\ 1532}#
+                                       #{s\ 1533}#
+                                       #{mod\ 1534}#)))
                                (begin
-                                 (if (eq? #{m\ 742}# (quote c&e))
-                                   (#{top-level-eval-hook\ 87}#
-                                     #{x\ 791}#
-                                     #{mod\ 757}#))
-                                 #{x\ 791}#)))))))))))
-           (#{syntax-type\ 162}#
-             (lambda (#{e\ 792}#
-                      #{r\ 793}#
-                      #{w\ 794}#
-                      #{s\ 795}#
-                      #{rib\ 796}#
-                      #{mod\ 797}#
-                      #{for-car?\ 798}#)
-               (if (symbol? #{e\ 792}#)
-                 (let ((#{n\ 799}# (#{id-var-name\ 150}#
-                                     #{e\ 792}#
-                                     #{w\ 794}#)))
-                   (let ((#{b\ 800}# (#{lookup\ 125}#
-                                       #{n\ 799}#
-                                       #{r\ 793}#
-                                       #{mod\ 797}#)))
-                     (let ((#{type\ 801}#
-                             (#{binding-type\ 120}# #{b\ 800}#)))
-                       (if (memv #{type\ 801}# (quote (lexical)))
+                                 (if (eq? #{m\ 1506}# (quote c&e))
+                                   (#{top-level-eval-hook\ 171}#
+                                     #{x\ 1632}#
+                                     #{mod\ 1534}#))
+                                 #{x\ 1632}#)))))))))))
+           (#{syntax-type\ 341}#
+             (lambda (#{e\ 1633}#
+                      #{r\ 1634}#
+                      #{w\ 1635}#
+                      #{s\ 1636}#
+                      #{rib\ 1637}#
+                      #{mod\ 1638}#
+                      #{for-car?\ 1639}#)
+               (if (symbol? #{e\ 1633}#)
+                 (let ((#{n\ 1651}#
+                         (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#)))
+                   (let ((#{b\ 1653}#
+                           (#{lookup\ 254}#
+                             #{n\ 1651}#
+                             #{r\ 1634}#
+                             #{mod\ 1638}#)))
+                     (let ((#{type\ 1655}#
+                             (#{binding-type\ 243}# #{b\ 1653}#)))
+                       (if (memv #{type\ 1655}# (quote (lexical)))
                          (values
-                           #{type\ 801}#
-                           (#{binding-value\ 121}# #{b\ 800}#)
-                           #{e\ 792}#
-                           #{w\ 794}#
-                           #{s\ 795}#
-                           #{mod\ 797}#)
-                         (if (memv #{type\ 801}# (quote (global)))
+                           #{type\ 1655}#
+                           (#{binding-value\ 245}# #{b\ 1653}#)
+                           #{e\ 1633}#
+                           #{w\ 1635}#
+                           #{s\ 1636}#
+                           #{mod\ 1638}#)
+                         (if (memv #{type\ 1655}# (quote (global)))
                            (values
-                             #{type\ 801}#
-                             #{n\ 799}#
-                             #{e\ 792}#
-                             #{w\ 794}#
-                             #{s\ 795}#
-                             #{mod\ 797}#)
-                           (if (memv #{type\ 801}# (quote (macro)))
-                             (if #{for-car?\ 798}#
+                             #{type\ 1655}#
+                             #{n\ 1651}#
+                             #{e\ 1633}#
+                             #{w\ 1635}#
+                             #{s\ 1636}#
+                             #{mod\ 1638}#)
+                           (if (memv #{type\ 1655}# (quote (macro)))
+                             (if #{for-car?\ 1639}#
                                (values
-                                 #{type\ 801}#
-                                 (#{binding-value\ 121}# #{b\ 800}#)
-                                 #{e\ 792}#
-                                 #{w\ 794}#
-                                 #{s\ 795}#
-                                 #{mod\ 797}#)
-                               (#{syntax-type\ 162}#
-                                 (#{chi-macro\ 167}#
-                                   (#{binding-value\ 121}# #{b\ 800}#)
-                                   #{e\ 792}#
-                                   #{r\ 793}#
-                                   #{w\ 794}#
-                                   #{rib\ 796}#
-                                   #{mod\ 797}#)
-                                 #{r\ 793}#
+                                 #{type\ 1655}#
+                                 (#{binding-value\ 245}# #{b\ 1653}#)
+                                 #{e\ 1633}#
+                                 #{w\ 1635}#
+                                 #{s\ 1636}#
+                                 #{mod\ 1638}#)
+                               (#{syntax-type\ 341}#
+                                 (#{chi-macro\ 351}#
+                                   (#{binding-value\ 245}# #{b\ 1653}#)
+                                   #{e\ 1633}#
+                                   #{r\ 1634}#
+                                   #{w\ 1635}#
+                                   #{rib\ 1637}#
+                                   #{mod\ 1638}#)
+                                 #{r\ 1634}#
                                  '(())
-                                 #{s\ 795}#
-                                 #{rib\ 796}#
-                                 #{mod\ 797}#
+                                 #{s\ 1636}#
+                                 #{rib\ 1637}#
+                                 #{mod\ 1638}#
                                  #f))
                              (values
-                               #{type\ 801}#
-                               (#{binding-value\ 121}# #{b\ 800}#)
-                               #{e\ 792}#
-                               #{w\ 794}#
-                               #{s\ 795}#
-                               #{mod\ 797}#)))))))
-                 (if (pair? #{e\ 792}#)
-                   (let ((#{first\ 802}# (car #{e\ 792}#)))
+                               #{type\ 1655}#
+                               (#{binding-value\ 245}# #{b\ 1653}#)
+                               #{e\ 1633}#
+                               #{w\ 1635}#
+                               #{s\ 1636}#
+                               #{mod\ 1638}#)))))))
+                 (if (pair? #{e\ 1633}#)
+                   (let ((#{first\ 1664}# (car #{e\ 1633}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 162}#
-                           #{first\ 802}#
-                           #{r\ 793}#
-                           #{w\ 794}#
-                           #{s\ 795}#
-                           #{rib\ 796}#
-                           #{mod\ 797}#
+                         (#{syntax-type\ 341}#
+                           #{first\ 1664}#
+                           #{r\ 1634}#
+                           #{w\ 1635}#
+                           #{s\ 1636}#
+                           #{rib\ 1637}#
+                           #{mod\ 1638}#
                            #t))
-                       (lambda (#{ftype\ 803}#
-                                #{fval\ 804}#
-                                #{fe\ 805}#
-                                #{fw\ 806}#
-                                #{fs\ 807}#
-                                #{fmod\ 808}#)
-                         (if (memv #{ftype\ 803}# (quote (lexical)))
+                       (lambda (#{ftype\ 1665}#
+                                #{fval\ 1666}#
+                                #{fe\ 1667}#
+                                #{fw\ 1668}#
+                                #{fs\ 1669}#
+                                #{fmod\ 1670}#)
+                         (if (memv #{ftype\ 1665}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 804}#
-                             #{e\ 792}#
-                             #{w\ 794}#
-                             #{s\ 795}#
-                             #{mod\ 797}#)
-                           (if (memv #{ftype\ 803}# (quote (global)))
+                             #{fval\ 1666}#
+                             #{e\ 1633}#
+                             #{w\ 1635}#
+                             #{s\ 1636}#
+                             #{mod\ 1638}#)
+                           (if (memv #{ftype\ 1665}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 111}#
-                                 #{fval\ 804}#
-                                 #{w\ 794}#
-                                 #{fmod\ 808}#)
-                               #{e\ 792}#
-                               #{w\ 794}#
-                               #{s\ 795}#
-                               #{mod\ 797}#)
-                             (if (memv #{ftype\ 803}# (quote (macro)))
-                               (#{syntax-type\ 162}#
-                                 (#{chi-macro\ 167}#
-                                   #{fval\ 804}#
-                                   #{e\ 792}#
-                                   #{r\ 793}#
-                                   #{w\ 794}#
-                                   #{rib\ 796}#
-                                   #{mod\ 797}#)
-                                 #{r\ 793}#
+                               (#{make-syntax-object\ 222}#
+                                 #{fval\ 1666}#
+                                 #{w\ 1635}#
+                                 #{fmod\ 1670}#)
+                               #{e\ 1633}#
+                               #{w\ 1635}#
+                               #{s\ 1636}#
+                               #{mod\ 1638}#)
+                             (if (memv #{ftype\ 1665}# (quote (macro)))
+                               (#{syntax-type\ 341}#
+                                 (#{chi-macro\ 351}#
+                                   #{fval\ 1666}#
+                                   #{e\ 1633}#
+                                   #{r\ 1634}#
+                                   #{w\ 1635}#
+                                   #{rib\ 1637}#
+                                   #{mod\ 1638}#)
+                                 #{r\ 1634}#
                                  '(())
-                                 #{s\ 795}#
-                                 #{rib\ 796}#
-                                 #{mod\ 797}#
-                                 #{for-car?\ 798}#)
-                               (if (memv #{ftype\ 803}# (quote (module-ref)))
+                                 #{s\ 1636}#
+                                 #{rib\ 1637}#
+                                 #{mod\ 1638}#
+                                 #{for-car?\ 1639}#)
+                               (if (memv #{ftype\ 1665}# (quote (module-ref)))
                                  (call-with-values
-                                   (lambda () (#{fval\ 804}# #{e\ 792}#))
-                                   (lambda (#{sym\ 809}# #{mod\ 810}#)
-                                     (#{syntax-type\ 162}#
-                                       #{sym\ 809}#
-                                       #{r\ 793}#
-                                       #{w\ 794}#
-                                       #{s\ 795}#
-                                       #{rib\ 796}#
-                                       #{mod\ 810}#
-                                       #{for-car?\ 798}#)))
-                                 (if (memv #{ftype\ 803}# (quote (core)))
+                                   (lambda () (#{fval\ 1666}# #{e\ 1633}#))
+                                   (lambda (#{sym\ 1682}# #{mod\ 1683}#)
+                                     (#{syntax-type\ 341}#
+                                       #{sym\ 1682}#
+                                       #{r\ 1634}#
+                                       #{w\ 1635}#
+                                       #{s\ 1636}#
+                                       #{rib\ 1637}#
+                                       #{mod\ 1683}#
+                                       #{for-car?\ 1639}#)))
+                                 (if (memv #{ftype\ 1665}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 804}#
-                                     #{e\ 792}#
-                                     #{w\ 794}#
-                                     #{s\ 795}#
-                                     #{mod\ 797}#)
-                                   (if (memv #{ftype\ 803}#
+                                     #{fval\ 1666}#
+                                     #{e\ 1633}#
+                                     #{w\ 1635}#
+                                     #{s\ 1636}#
+                                     #{mod\ 1638}#)
+                                   (if (memv #{ftype\ 1665}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 804}#
-                                       #{e\ 792}#
-                                       #{w\ 794}#
-                                       #{s\ 795}#
-                                       #{mod\ 797}#)
-                                     (if (memv #{ftype\ 803}# (quote (begin)))
+                                       #{fval\ 1666}#
+                                       #{e\ 1633}#
+                                       #{w\ 1635}#
+                                       #{s\ 1636}#
+                                       #{mod\ 1638}#)
+                                     (if (memv #{ftype\ 1665}# (quote (begin)))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 792}#
-                                         #{w\ 794}#
-                                         #{s\ 795}#
-                                         #{mod\ 797}#)
-                                       (if (memv #{ftype\ 803}#
+                                         #{e\ 1633}#
+                                         #{w\ 1635}#
+                                         #{s\ 1636}#
+                                         #{mod\ 1638}#)
+                                       (if (memv #{ftype\ 1665}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 792}#
-                                           #{w\ 794}#
-                                           #{s\ 795}#
-                                           #{mod\ 797}#)
-                                         (if (memv #{ftype\ 803}#
+                                           #{e\ 1633}#
+                                           #{w\ 1635}#
+                                           #{s\ 1636}#
+                                           #{mod\ 1638}#)
+                                         (if (memv #{ftype\ 1665}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 811}#)
-                                              ((lambda (#{tmp\ 812}#)
-                                                 (if (if #{tmp\ 812}#
-                                                       (apply (lambda (#{_\ 
813}#
-                                                                       #{name\ 
814}#
-                                                                       #{val\ 
815}#)
-                                                                (#{id?\ 128}#
-                                                                  #{name\ 
814}#))
-                                                              #{tmp\ 812}#)
+                                           ((lambda (#{tmp\ 1691}#)
+                                              ((lambda (#{tmp\ 1692}#)
+                                                 (if (if #{tmp\ 1692}#
+                                                       (apply (lambda (#{_\ 
1696}#
+                                                                       #{name\ 
1697}#
+                                                                       #{val\ 
1698}#)
+                                                                (#{id?\ 260}#
+                                                                  #{name\ 
1697}#))
+                                                              #{tmp\ 1692}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 816}#
-                                                                   #{name\ 
817}#
-                                                                   #{val\ 
818}#)
+                                                   (apply (lambda (#{_\ 1702}#
+                                                                   #{name\ 
1703}#
+                                                                   #{val\ 
1704}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 817}#
-                                                              #{val\ 818}#
-                                                              #{w\ 794}#
-                                                              #{s\ 795}#
-                                                              #{mod\ 797}#))
-                                                          #{tmp\ 812}#)
-                                                   ((lambda (#{tmp\ 819}#)
-                                                      (if (if #{tmp\ 819}#
-                                                            (apply (lambda 
(#{_\ 820}#
-                                                                            
#{name\ 821}#
-                                                                            
#{args\ 822}#
-                                                                            
#{e1\ 823}#
-                                                                            
#{e2\ 824}#)
-                                                                     (if 
(#{id?\ 128}#
-                                                                           
#{name\ 821}#)
-                                                                       
(#{valid-bound-ids?\ 153}#
-                                                                         
(#{lambda-var-list\ 179}#
-                                                                           
#{args\ 822}#))
+                                                              #{name\ 1703}#
+                                                              #{val\ 1704}#
+                                                              #{w\ 1635}#
+                                                              #{s\ 1636}#
+                                                              #{mod\ 1638}#))
+                                                          #{tmp\ 1692}#)
+                                                   ((lambda (#{tmp\ 1705}#)
+                                                      (if (if #{tmp\ 1705}#
+                                                            (apply (lambda 
(#{_\ 1711}#
+                                                                            
#{name\ 1712}#
+                                                                            
#{args\ 1713}#
+                                                                            
#{e1\ 1714}#
+                                                                            
#{e2\ 1715}#)
+                                                                     (if 
(#{id?\ 260}#
+                                                                           
#{name\ 1712}#)
+                                                                       
(#{valid-bound-ids?\ 323}#
+                                                                         
(#{lambda-var-list\ 375}#
+                                                                           
#{args\ 1713}#))
                                                                        #f))
-                                                                   #{tmp\ 
819}#)
+                                                                   #{tmp\ 
1705}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
825}#
-                                                                        
#{name\ 826}#
-                                                                        
#{args\ 827}#
-                                                                        #{e1\ 
828}#
-                                                                        #{e2\ 
829}#)
+                                                        (apply (lambda (#{_\ 
1723}#
+                                                                        
#{name\ 1724}#
+                                                                        
#{args\ 1725}#
+                                                                        #{e1\ 
1726}#
+                                                                        #{e2\ 
1727}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
156}#
-                                                                     #{name\ 
826}#
-                                                                     #{w\ 794}#
-                                                                     #{mod\ 
797}#)
-                                                                   
(#{decorate-source\ 91}#
+                                                                   (#{wrap\ 
329}#
+                                                                     #{name\ 
1724}#
+                                                                     #{w\ 
1635}#
+                                                                     #{mod\ 
1638}#)
+                                                                   
(#{decorate-source\ 180}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3535,11 +3561,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"))
+                                                                               
  #("i1718"
+                                                                               
    "i1719"
+                                                                               
    "i1720"
+                                                                               
    "i1721"
+                                                                               
    "i1722"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3561,12 +3587,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"))
+                                                                               
  #("i1671"
+                                                                               
    "i1672"
+                                                                               
    "i1673"
+                                                                               
    "i1674"
+                                                                               
    "i1675"
+                                                                               
    "i1676"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3574,7 +3600,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i"))
+                                                                               
  #("i1663"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3602,13 +3628,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"
-                                                                               
    "i"))
+                                                                               
  #("i1640"
+                                                                               
    "i1641"
+                                                                               
    "i1642"
+                                                                               
    "i1643"
+                                                                               
    "i1644"
+                                                                               
    "i1645"
+                                                                               
    "i1646"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -3844,159 +3870,159 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top))
-                                                                               
  ("i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"
-                                                                               
   "i"))
+                                                                               
  ("i374"
+                                                                               
   "i372"
+                                                                               
   "i370"
+                                                                               
   "i368"
+                                                                               
   "i366"
+                                                                               
   "i364"
+                                                                               
   "i362"
+                                                                               
   "i360"
+                                                                               
   "i358"
+                                                                               
   "i356"
+                                                                               
   "i354"
+                                                                               
   "i352"
+                                                                               
   "i350"
+                                                                               
   "i348"
+                                                                               
   "i346"
+                                                                               
   "i344"
+                                                                               
   "i342"
+                                                                               
   "i340"
+                                                                               
   "i338"
+                                                                               
   "i336"
+                                                                               
   "i334"
+                                                                               
   "i332"
+                                                                               
   "i330"
+                                                                               
   "i328"
+                                                                               
   "i326"
+                                                                               
   "i324"
+                                                                               
   "i322"
+                                                                               
   "i320"
+                                                                               
   "i318"
+                                                                               
   "i316"
+                                                                               
   "i314"
+                                                                               
   "i312"
+                                                                               
   "i310"
+                                                                               
   "i308"
+                                                                               
   "i306"
+                                                                               
   "i304"
+                                                                               
   "i303"
+                                                                               
   "i302"
+                                                                               
   "i300"
+                                                                               
   "i299"
+                                                                               
   "i298"
+                                                                               
   "i297"
+                                                                               
   "i296"
+                                                                               
   "i294"
+                                                                               
   "i292"
+                                                                               
   "i290"
+                                                                               
   "i288"
+                                                                               
   "i286"
+                                                                               
   "i284"
+                                                                               
   "i282"
+                                                                               
   "i280"
+                                                                               
   "i277"
+                                                                               
   "i275"
+                                                                               
   "i274"
+                                                                               
   "i273"
+                                                                               
   "i272"
+                                                                               
   "i271"
+                                                                               
   "i270"
+                                                                               
   "i268"
+                                                                               
   "i266"
+                                                                               
   "i264"
+                                                                               
   "i262"
+                                                                               
   "i261"
+                                                                               
   "i259"
+                                                                               
   "i257"
+                                                                               
   "i255"
+                                                                               
   "i253"
+                                                                               
   "i251"
+                                                                               
   "i249"
+                                                                               
   "i247"
+                                                                               
   "i246"
+                                                                               
   "i244"
+                                                                               
   "i242"
+                                                                               
   "i241"
+                                                                               
   "i240"
+                                                                               
   "i238"
+                                                                               
   "i237"
+                                                                               
   "i235"
+                                                                               
   "i233"
+                                                                               
   "i231"
+                                                                               
   "i229"
+                                                                               
   "i227"
+                                                                               
   "i225"
+                                                                               
   "i223"
+                                                                               
   "i221"
+                                                                               
   "i219"
+                                                                               
   "i217"
+                                                                               
   "i215"
+                                                                               
   "i213"
+                                                                               
   "i211"
+                                                                               
   "i209"
+                                                                               
   "i207"
+                                                                               
   "i205"
+                                                                               
   "i203"
+                                                                               
   "i201"
+                                                                               
   "i199"
+                                                                               
   "i197"
+                                                                               
   "i195"
+                                                                               
   "i193"
+                                                                               
   "i191"
+                                                                               
   "i189"
+                                                                               
   "i187"
+                                                                               
   "i185"
+                                                                               
   "i183"
+                                                                               
   "i181"
+                                                                               
   "i179"
+                                                                               
   "i177"
+                                                                               
   "i175"
+                                                                               
   "i174"
+                                                                               
   "i172"
+                                                                               
   "i170"
+                                                                               
   "i168"
+                                                                               
   "i166"
+                                                                               
   "i164"
+                                                                               
   "i162"
+                                                                               
   "i160"
+                                                                               
   "i158"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    and-map*)
                                                                                
  ((top)
                                                                                
   (top))
-                                                                               
  ("i"
-                                                                               
   "i")))
+                                                                               
  ("i61"
+                                                                               
   "i59")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 156}#
-                                                                             
(cons #{args\ 827}#
-                                                                               
    (cons #{e1\ 828}#
-                                                                               
          #{e2\ 829}#))
-                                                                             
#{w\ 794}#
-                                                                             
#{mod\ 797}#))
-                                                                     #{s\ 
795}#)
+                                                                           
(#{wrap\ 329}#
+                                                                             
(cons #{args\ 1725}#
+                                                                               
    (cons #{e1\ 1726}#
+                                                                               
          #{e2\ 1727}#))
+                                                                             
#{w\ 1635}#
+                                                                             
#{mod\ 1638}#))
+                                                                     #{s\ 
1636}#)
                                                                    '(())
-                                                                   #{s\ 795}#
-                                                                   #{mod\ 
797}#))
-                                                               #{tmp\ 819}#)
-                                                        ((lambda (#{tmp\ 831}#)
-                                                           (if (if #{tmp\ 831}#
-                                                                 (apply 
(lambda (#{_\ 832}#
-                                                                               
  #{name\ 833}#)
-                                                                          
(#{id?\ 128}#
-                                                                            
#{name\ 833}#))
-                                                                        #{tmp\ 
831}#)
+                                                                   #{s\ 1636}#
+                                                                   #{mod\ 
1638}#))
+                                                               #{tmp\ 1705}#)
+                                                        ((lambda (#{tmp\ 
1730}#)
+                                                           (if (if #{tmp\ 
1730}#
+                                                                 (apply 
(lambda (#{_\ 1733}#
+                                                                               
  #{name\ 1734}#)
+                                                                          
(#{id?\ 260}#
+                                                                            
#{name\ 1734}#))
+                                                                        #{tmp\ 
1730}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 834}#
-                                                                             
#{name\ 835}#)
+                                                             (apply (lambda 
(#{_\ 1737}#
+                                                                             
#{name\ 1738}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 156}#
-                                                                          
#{name\ 835}#
-                                                                          #{w\ 
794}#
-                                                                          
#{mod\ 797}#)
+                                                                        
(#{wrap\ 329}#
+                                                                          
#{name\ 1738}#
+                                                                          #{w\ 
1635}#
+                                                                          
#{mod\ 1638}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4005,8 +4031,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"))
+                                                                               
#("i1735"
+                                                                               
  "i1736"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4028,12 +4054,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1671"
+                                                                               
  "i1672"
+                                                                               
  "i1673"
+                                                                               
  "i1674"
+                                                                               
  "i1675"
+                                                                               
  "i1676"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4041,7 +4067,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i"))
+                                                                               
#("i1663"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4069,13 +4095,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1640"
+                                                                               
  "i1641"
+                                                                               
  "i1642"
+                                                                               
  "i1643"
+                                                                               
  "i1644"
+                                                                               
  "i1645"
+                                                                               
  "i1646"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4311,130 +4337,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"))
+                                                                               
("i374"
+                                                                               
 "i372"
+                                                                               
 "i370"
+                                                                               
 "i368"
+                                                                               
 "i366"
+                                                                               
 "i364"
+                                                                               
 "i362"
+                                                                               
 "i360"
+                                                                               
 "i358"
+                                                                               
 "i356"
+                                                                               
 "i354"
+                                                                               
 "i352"
+                                                                               
 "i350"
+                                                                               
 "i348"
+                                                                               
 "i346"
+                                                                               
 "i344"
+                                                                               
 "i342"
+                                                                               
 "i340"
+                                                                               
 "i338"
+                                                                               
 "i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i303"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i299"
+                                                                               
 "i298"
+                                                                               
 "i297"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i277"
+                                                                               
 "i275"
+                                                                               
 "i274"
+                                                                               
 "i273"
+                                                                               
 "i272"
+                                                                               
 "i271"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i259"
+                                                                               
 "i257"
+                                                                               
 "i255"
+                                                                               
 "i253"
+                                                                               
 "i251"
+                                                                               
 "i249"
+                                                                               
 "i247"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i241"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i237"
+                                                                               
 "i235"
+                                                                               
 "i233"
+                                                                               
 "i231"
+                                                                               
 "i229"
+                                                                               
 "i227"
+                                                                               
 "i225"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i174"
+                                                                               
 "i172"
+                                                                               
 "i170"
+                                                                               
 "i168"
+                                                                               
 "i166"
+                                                                               
 "i164"
+                                                                               
 "i162"
+                                                                               
 "i160"
+                                                                               
 "i158"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i")))
+                                                                               
("i61"
+                                                                               
 "i59")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4445,8 +4471,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"))
+                                                                               
#("i1735"
+                                                                               
  "i1736"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4468,12 +4494,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1671"
+                                                                               
  "i1672"
+                                                                               
  "i1673"
+                                                                               
  "i1674"
+                                                                               
  "i1675"
+                                                                               
  "i1676"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4481,7 +4507,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i"))
+                                                                               
#("i1663"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4509,13 +4535,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1640"
+                                                                               
  "i1641"
+                                                                               
  "i1642"
+                                                                               
  "i1643"
+                                                                               
  "i1644"
+                                                                               
  "i1645"
+                                                                               
  "i1646"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4751,130 +4777,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"))
+                                                                               
("i374"
+                                                                               
 "i372"
+                                                                               
 "i370"
+                                                                               
 "i368"
+                                                                               
 "i366"
+                                                                               
 "i364"
+                                                                               
 "i362"
+                                                                               
 "i360"
+                                                                               
 "i358"
+                                                                               
 "i356"
+                                                                               
 "i354"
+                                                                               
 "i352"
+                                                                               
 "i350"
+                                                                               
 "i348"
+                                                                               
 "i346"
+                                                                               
 "i344"
+                                                                               
 "i342"
+                                                                               
 "i340"
+                                                                               
 "i338"
+                                                                               
 "i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i303"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i299"
+                                                                               
 "i298"
+                                                                               
 "i297"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i277"
+                                                                               
 "i275"
+                                                                               
 "i274"
+                                                                               
 "i273"
+                                                                               
 "i272"
+                                                                               
 "i271"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i259"
+                                                                               
 "i257"
+                                                                               
 "i255"
+                                                                               
 "i253"
+                                                                               
 "i251"
+                                                                               
 "i249"
+                                                                               
 "i247"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i241"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i237"
+                                                                               
 "i235"
+                                                                               
 "i233"
+                                                                               
 "i231"
+                                                                               
 "i229"
+                                                                               
 "i227"
+                                                                               
 "i225"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i174"
+                                                                               
 "i172"
+                                                                               
 "i170"
+                                                                               
 "i168"
+                                                                               
 "i166"
+                                                                               
 "i164"
+                                                                               
 "i162"
+                                                                               
 "i160"
+                                                                               
 "i158"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i")))
+                                                                               
("i61"
+                                                                               
 "i59")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4885,8 +4911,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"))
+                                                                               
#("i1735"
+                                                                               
  "i1736"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4908,12 +4934,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1671"
+                                                                               
  "i1672"
+                                                                               
  "i1673"
+                                                                               
  "i1674"
+                                                                               
  "i1675"
+                                                                               
  "i1676"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4921,7 +4947,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i"))
+                                                                               
#("i1663"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4949,13 +4975,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"
-                                                                               
  "i"))
+                                                                               
#("i1640"
+                                                                               
  "i1641"
+                                                                               
  "i1642"
+                                                                               
  "i1643"
+                                                                               
  "i1644"
+                                                                               
  "i1645"
+                                                                               
  "i1646"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5191,3782 +5217,3719 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"
-                                                                               
 "i"))
+                                                                               
("i374"
+                                                                               
 "i372"
+                                                                               
 "i370"
+                                                                               
 "i368"
+                                                                               
 "i366"
+                                                                               
 "i364"
+                                                                               
 "i362"
+                                                                               
 "i360"
+                                                                               
 "i358"
+                                                                               
 "i356"
+                                                                               
 "i354"
+                                                                               
 "i352"
+                                                                               
 "i350"
+                                                                               
 "i348"
+                                                                               
 "i346"
+                                                                               
 "i344"
+                                                                               
 "i342"
+                                                                               
 "i340"
+                                                                               
 "i338"
+                                                                               
 "i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i303"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i299"
+                                                                               
 "i298"
+                                                                               
 "i297"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i277"
+                                                                               
 "i275"
+                                                                               
 "i274"
+                                                                               
 "i273"
+                                                                               
 "i272"
+                                                                               
 "i271"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i259"
+                                                                               
 "i257"
+                                                                               
 "i255"
+                                                                               
 "i253"
+                                                                               
 "i251"
+                                                                               
 "i249"
+                                                                               
 "i247"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i241"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i237"
+                                                                               
 "i235"
+                                                                               
 "i233"
+                                                                               
 "i231"
+                                                                               
 "i229"
+                                                                               
 "i227"
+                                                                               
 "i225"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i174"
+                                                                               
 "i172"
+                                                                               
 "i170"
+                                                                               
 "i168"
+                                                                               
 "i166"
+                                                                               
 "i164"
+                                                                               
 "i162"
+                                                                               
 "i160"
+                                                                               
 "i158"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i"
-                                                                               
 "i")))
+                                                                               
("i61"
+                                                                               
 "i59")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
795}#
-                                                                        #{mod\ 
797}#))
-                                                                    #{tmp\ 
831}#)
+                                                                        #{s\ 
1636}#
+                                                                        #{mod\ 
1638}#))
+                                                                    #{tmp\ 
1730}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 811}#)))
+                                                               #{tmp\ 1691}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 811}#
+                                                           #{tmp\ 1691}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 811}#
+                                                      #{tmp\ 1691}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 811}#
+                                                 #{tmp\ 1691}#
                                                  '(any any any))))
-                                            #{e\ 792}#)
-                                           (if (memv #{ftype\ 803}#
+                                            #{e\ 1633}#)
+                                           (if (memv #{ftype\ 1665}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 836}#)
-                                                ((lambda (#{tmp\ 837}#)
-                                                   (if (if #{tmp\ 837}#
-                                                         (apply (lambda (#{_\ 
838}#
-                                                                         
#{name\ 839}#
-                                                                         
#{val\ 840}#)
-                                                                  (#{id?\ 128}#
-                                                                    #{name\ 
839}#))
-                                                                #{tmp\ 837}#)
+                                             ((lambda (#{tmp\ 1741}#)
+                                                ((lambda (#{tmp\ 1742}#)
+                                                   (if (if #{tmp\ 1742}#
+                                                         (apply (lambda (#{_\ 
1746}#
+                                                                         
#{name\ 1747}#
+                                                                         
#{val\ 1748}#)
+                                                                  (#{id?\ 260}#
+                                                                    #{name\ 
1747}#))
+                                                                #{tmp\ 1742}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 841}#
-                                                                     #{name\ 
842}#
-                                                                     #{val\ 
843}#)
+                                                     (apply (lambda (#{_\ 
1752}#
+                                                                     #{name\ 
1753}#
+                                                                     #{val\ 
1754}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 842}#
-                                                                #{val\ 843}#
-                                                                #{w\ 794}#
-                                                                #{s\ 795}#
-                                                                #{mod\ 797}#))
-                                                            #{tmp\ 837}#)
+                                                                #{name\ 1753}#
+                                                                #{val\ 1754}#
+                                                                #{w\ 1635}#
+                                                                #{s\ 1636}#
+                                                                #{mod\ 1638}#))
+                                                            #{tmp\ 1742}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 836}#)))
+                                                       #{tmp\ 1741}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 836}#
+                                                   #{tmp\ 1741}#
                                                    '(any any any))))
-                                              #{e\ 792}#)
+                                              #{e\ 1633}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 792}#
-                                               #{w\ 794}#
-                                               #{s\ 795}#
-                                               #{mod\ 797}#))))))))))))))
-                   (if (#{syntax-object?\ 112}# #{e\ 792}#)
-                     (#{syntax-type\ 162}#
-                       (#{syntax-object-expression\ 113}# #{e\ 792}#)
-                       #{r\ 793}#
-                       (#{join-wraps\ 147}#
-                         #{w\ 794}#
-                         (#{syntax-object-wrap\ 114}# #{e\ 792}#))
-                       #{s\ 795}#
-                       #{rib\ 796}#
-                       (let ((#{t\ 844}# (#{syntax-object-module\ 115}#
-                                           #{e\ 792}#)))
-                         (if #{t\ 844}# #{t\ 844}# #{mod\ 797}#))
-                       #{for-car?\ 798}#)
-                     (if (self-evaluating? #{e\ 792}#)
+                                               #{e\ 1633}#
+                                               #{w\ 1635}#
+                                               #{s\ 1636}#
+                                               #{mod\ 1638}#))))))))))))))
+                   (if (#{syntax-object?\ 224}# #{e\ 1633}#)
+                     (#{syntax-type\ 341}#
+                       (#{syntax-object-expression\ 226}# #{e\ 1633}#)
+                       #{r\ 1634}#
+                       (#{join-wraps\ 311}#
+                         #{w\ 1635}#
+                         (#{syntax-object-wrap\ 228}# #{e\ 1633}#))
+                       #{s\ 1636}#
+                       #{rib\ 1637}#
+                       (let ((#{t\ 1760}#
+                               (#{syntax-object-module\ 230}# #{e\ 1633}#)))
+                         (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#))
+                       #{for-car?\ 1639}#)
+                     (if (self-evaluating? #{e\ 1633}#)
                        (values
                          'constant
                          #f
-                         #{e\ 792}#
-                         #{w\ 794}#
-                         #{s\ 795}#
-                         #{mod\ 797}#)
+                         #{e\ 1633}#
+                         #{w\ 1635}#
+                         #{s\ 1636}#
+                         #{mod\ 1638}#)
                        (values
                          'other
                          #f
-                         #{e\ 792}#
-                         #{w\ 794}#
-                         #{s\ 795}#
-                         #{mod\ 797}#)))))))
-           (#{chi-when-list\ 161}#
-             (lambda (#{e\ 845}# #{when-list\ 846}# #{w\ 847}#)
-               (letrec ((#{f\ 848}# (lambda (#{when-list\ 849}#
-                                             #{situations\ 850}#)
-                                      (if (null? #{when-list\ 849}#)
-                                        #{situations\ 850}#
-                                        (#{f\ 848}# (cdr #{when-list\ 849}#)
-                                                    (cons (let ((#{x\ 851}# 
(car #{when-list\ 849}#)))
-                                                            (if (#{free-id=?\ 
151}#
-                                                                  #{x\ 851}#
-                                                                  
'#(syntax-object
-                                                                     compile
-                                                                     ((top)
-                                                                      #(ribcage
-                                                                        ()
-                                                                        ()
-                                                                        ())
-                                                                      #(ribcage
-                                                                        ()
-                                                                        ()
-                                                                        ())
-                                                                      #(ribcage
-                                                                        ()
-                                                                        ()
-                                                                        ())
-                                                                      #(ribcage
-                                                                        #(x)
-                                                                        
#((top))
-                                                                        #("i"))
-                                                                      #(ribcage
-                                                                        ()
-                                                                        ()
-                                                                        ())
-                                                                      #(ribcage
-                                                                        #(f
-                                                                          
when-list
-                                                                          
situations)
-                                                                        #((top)
-                                                                          (top)
-                                                                          
(top))
-                                                                        #("i"
-                                                                          "i"
-                                                                          "i"))
-                                                                      #(ribcage
-                                                                        ()
-                                                                        ()
-                                                                        ())
-                                                                      #(ribcage
-                                                                        #(e
-                                                                          
when-list
-                                                                          w)
-                                                                        #((top)
-                                                                          (top)
-                                                                          
(top))
-                                                                        #("i"
-                                                                          "i"
-                                                                          "i"))
-                                                                      #(ribcage
-                                                                        
(lambda-var-list
-                                                                          
gen-var
-                                                                          strip
-                                                                          
chi-lambda-case
-                                                                          
lambda*-formals
-                                                                          
chi-simple-lambda
-                                                                          
lambda-formals
-                                                                          
ellipsis?
-                                                                          
chi-void
-                                                                          
eval-local-transformer
-                                                                          
chi-local-syntax
-                                                                          
chi-body
-                                                                          
chi-macro
-                                                                          
chi-application
-                                                                          
chi-expr
-                                                                          chi
-                                                                          
chi-top
-                                                                          
syntax-type
-                                                                          
chi-when-list
-                                                                          
chi-install-global
-                                                                          
chi-top-sequence
-                                                                          
chi-sequence
-                                                                          
source-wrap
-                                                                          wrap
-                                                                          
bound-id-member?
-                                                                          
distinct-bound-ids?
-                                                                          
valid-bound-ids?
-                                                                          
bound-id=?
-                                                                          
free-id=?
-                                                                          
id-var-name
-                                                                          
same-marks?
-                                                                          
join-marks
-                                                                          
join-wraps
-                                                                          
smart-append
-                                                                          
make-binding-wrap
-                                                                          
extend-ribcage!
-                                                                          
make-empty-ribcage
-                                                                          
new-mark
-                                                                          
anti-mark
-                                                                          
the-anti-mark
-                                                                          
top-marked?
-                                                                          
top-wrap
-                                                                          
empty-wrap
-                                                                          
set-ribcage-labels!
-                                                                          
set-ribcage-marks!
-                                                                          
set-ribcage-symnames!
-                                                                          
ribcage-labels
-                                                                          
ribcage-marks
-                                                                          
ribcage-symnames
-                                                                          
ribcage?
-                                                                          
make-ribcage
-                                                                          
gen-labels
-                                                                          
gen-label
-                                                                          
make-rename
-                                                                          
rename-marks
-                                                                          
rename-new
-                                                                          
rename-old
-                                                                          
subst-rename?
-                                                                          
wrap-subst
-                                                                          
wrap-marks
-                                                                          
make-wrap
-                                                                          
id-sym-name&marks
-                                                                          
id-sym-name
-                                                                          id?
-                                                                          
nonsymbol-id?
-                                                                          
global-extend
-                                                                          
lookup
-                                                                          
macros-only-env
-                                                                          
extend-var-env
-                                                                          
extend-env
-                                                                          
null-env
-                                                                          
binding-value
-                                                                          
binding-type
-                                                                          
make-binding
-                                                                          
arg-check
-                                                                          
source-annotation
-                                                                          
no-source
-                                                                          
set-syntax-object-module!
-                                                                          
set-syntax-object-wrap!
-                                                                          
set-syntax-object-expression!
-                                                                          
syntax-object-module
-                                                                          
syntax-object-wrap
-                                                                          
syntax-object-expression
-                                                                          
syntax-object?
-                                                                          
make-syntax-object
-                                                                          
build-lexical-var
-                                                                          
build-letrec
-                                                                          
build-named-let
-                                                                          
build-let
-                                                                          
build-sequence
-                                                                          
build-data
-                                                                          
build-primref
-                                                                          
build-lambda-case
-                                                                          
build-case-lambda
-                                                                          
build-simple-lambda
-                                                                          
build-global-definition
-                                                                          
maybe-name-value!
-                                                                          
build-global-assignment
-                                                                          
build-global-reference
-                                                                          
analyze-variable
-                                                                          
build-lexical-assignment
-                                                                          
build-lexical-reference
-                                                                          
build-conditional
-                                                                          
build-application
-                                                                          
build-void
-                                                                          
decorate-source
-                                                                          
get-global-definition-hook
-                                                                          
put-global-definition-hook
-                                                                          
gensym-hook
-                                                                          
local-eval-hook
-                                                                          
top-level-eval-hook
-                                                                          fx<
-                                                                          fx=
-                                                                          fx-
-                                                                          fx+
-                                                                          
*mode*
-                                                                          
noexpand)
-                                                                        ((top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top))
-                                                                        ("i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"))
-                                                                      #(ribcage
-                                                                        
(define-structure
-                                                                          
and-map*)
-                                                                        ((top)
-                                                                         (top))
-                                                                        ("i"
-                                                                         "i")))
-                                                                     (hygiene
-                                                                       guile)))
-                                                              'compile
-                                                              (if 
(#{free-id=?\ 151}#
-                                                                    #{x\ 851}#
-                                                                    
'#(syntax-object
-                                                                       load
-                                                                       ((top)
-                                                                        
#(ribcage
-                                                                          ()
-                                                                          ()
-                                                                          ())
-                                                                        
#(ribcage
-                                                                          ()
-                                                                          ()
-                                                                          ())
-                                                                        
#(ribcage
-                                                                          ()
-                                                                          ()
-                                                                          ())
-                                                                        
#(ribcage
-                                                                          #(x)
-                                                                          
#((top))
-                                                                          
#("i"))
-                                                                        
#(ribcage
-                                                                          ()
-                                                                          ()
-                                                                          ())
-                                                                        
#(ribcage
-                                                                          #(f
-                                                                            
when-list
-                                                                            
situations)
-                                                                          
#((top)
-                                                                            
(top)
-                                                                            
(top))
-                                                                          #("i"
-                                                                            "i"
-                                                                            
"i"))
-                                                                        
#(ribcage
-                                                                          ()
-                                                                          ()
-                                                                          ())
-                                                                        
#(ribcage
-                                                                          #(e
-                                                                            
when-list
-                                                                            w)
-                                                                          
#((top)
-                                                                            
(top)
-                                                                            
(top))
-                                                                          #("i"
-                                                                            "i"
-                                                                            
"i"))
-                                                                        
#(ribcage
-                                                                          
(lambda-var-list
-                                                                            
gen-var
-                                                                            
strip
-                                                                            
chi-lambda-case
-                                                                            
lambda*-formals
-                                                                            
chi-simple-lambda
-                                                                            
lambda-formals
-                                                                            
ellipsis?
-                                                                            
chi-void
-                                                                            
eval-local-transformer
-                                                                            
chi-local-syntax
-                                                                            
chi-body
-                                                                            
chi-macro
-                                                                            
chi-application
-                                                                            
chi-expr
-                                                                            chi
-                                                                            
chi-top
-                                                                            
syntax-type
-                                                                            
chi-when-list
-                                                                            
chi-install-global
-                                                                            
chi-top-sequence
-                                                                            
chi-sequence
-                                                                            
source-wrap
-                                                                            
wrap
-                                                                            
bound-id-member?
-                                                                            
distinct-bound-ids?
-                                                                            
valid-bound-ids?
-                                                                            
bound-id=?
-                                                                            
free-id=?
-                                                                            
id-var-name
-                                                                            
same-marks?
-                                                                            
join-marks
-                                                                            
join-wraps
-                                                                            
smart-append
-                                                                            
make-binding-wrap
-                                                                            
extend-ribcage!
-                                                                            
make-empty-ribcage
-                                                                            
new-mark
-                                                                            
anti-mark
-                                                                            
the-anti-mark
-                                                                            
top-marked?
-                                                                            
top-wrap
-                                                                            
empty-wrap
-                                                                            
set-ribcage-labels!
-                                                                            
set-ribcage-marks!
-                                                                            
set-ribcage-symnames!
-                                                                            
ribcage-labels
-                                                                            
ribcage-marks
-                                                                            
ribcage-symnames
-                                                                            
ribcage?
-                                                                            
make-ribcage
-                                                                            
gen-labels
-                                                                            
gen-label
-                                                                            
make-rename
-                                                                            
rename-marks
-                                                                            
rename-new
-                                                                            
rename-old
-                                                                            
subst-rename?
-                                                                            
wrap-subst
-                                                                            
wrap-marks
-                                                                            
make-wrap
-                                                                            
id-sym-name&marks
-                                                                            
id-sym-name
-                                                                            id?
-                                                                            
nonsymbol-id?
-                                                                            
global-extend
-                                                                            
lookup
-                                                                            
macros-only-env
-                                                                            
extend-var-env
-                                                                            
extend-env
-                                                                            
null-env
-                                                                            
binding-value
-                                                                            
binding-type
-                                                                            
make-binding
-                                                                            
arg-check
-                                                                            
source-annotation
-                                                                            
no-source
-                                                                            
set-syntax-object-module!
-                                                                            
set-syntax-object-wrap!
-                                                                            
set-syntax-object-expression!
-                                                                            
syntax-object-module
-                                                                            
syntax-object-wrap
-                                                                            
syntax-object-expression
-                                                                            
syntax-object?
-                                                                            
make-syntax-object
-                                                                            
build-lexical-var
-                                                                            
build-letrec
-                                                                            
build-named-let
-                                                                            
build-let
-                                                                            
build-sequence
-                                                                            
build-data
-                                                                            
build-primref
-                                                                            
build-lambda-case
-                                                                            
build-case-lambda
-                                                                            
build-simple-lambda
-                                                                            
build-global-definition
-                                                                            
maybe-name-value!
-                                                                            
build-global-assignment
-                                                                            
build-global-reference
-                                                                            
analyze-variable
-                                                                            
build-lexical-assignment
-                                                                            
build-lexical-reference
-                                                                            
build-conditional
-                                                                            
build-application
-                                                                            
build-void
-                                                                            
decorate-source
-                                                                            
get-global-definition-hook
-                                                                            
put-global-definition-hook
-                                                                            
gensym-hook
-                                                                            
local-eval-hook
-                                                                            
top-level-eval-hook
-                                                                            fx<
-                                                                            fx=
-                                                                            fx-
-                                                                            fx+
-                                                                            
*mode*
-                                                                            
noexpand)
-                                                                          
((top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top)
-                                                                           
(top))
-                                                                          ("i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           
"i"))
-                                                                        
#(ribcage
-                                                                          
(define-structure
-                                                                            
and-map*)
-                                                                          
((top)
-                                                                           
(top))
-                                                                          ("i"
-                                                                           
"i")))
-                                                                       (hygiene
-                                                                         
guile)))
-                                                                'load
-                                                                (if 
(#{free-id=?\ 151}#
-                                                                      #{x\ 
851}#
-                                                                      
'#(syntax-object
-                                                                         eval
-                                                                         ((top)
-                                                                          
#(ribcage
-                                                                            ()
-                                                                            ()
-                                                                            ())
-                                                                          
#(ribcage
-                                                                            ()
-                                                                            ()
-                                                                            ())
-                                                                          
#(ribcage
-                                                                            ()
-                                                                            ()
-                                                                            ())
-                                                                          
#(ribcage
-                                                                            
#(x)
-                                                                            
#((top))
-                                                                            
#("i"))
-                                                                          
#(ribcage
-                                                                            ()
-                                                                            ()
-                                                                            ())
-                                                                          
#(ribcage
-                                                                            #(f
-                                                                              
when-list
-                                                                              
situations)
-                                                                            
#((top)
-                                                                              
(top)
-                                                                              
(top))
-                                                                            
#("i"
-                                                                              
"i"
-                                                                              
"i"))
-                                                                          
#(ribcage
-                                                                            ()
-                                                                            ()
-                                                                            ())
-                                                                          
#(ribcage
-                                                                            #(e
-                                                                              
when-list
-                                                                              
w)
-                                                                            
#((top)
-                                                                              
(top)
-                                                                              
(top))
-                                                                            
#("i"
-                                                                              
"i"
-                                                                              
"i"))
-                                                                          
#(ribcage
-                                                                            
(lambda-var-list
-                                                                              
gen-var
-                                                                              
strip
-                                                                              
chi-lambda-case
-                                                                              
lambda*-formals
-                                                                              
chi-simple-lambda
-                                                                              
lambda-formals
-                                                                              
ellipsis?
-                                                                              
chi-void
-                                                                              
eval-local-transformer
-                                                                              
chi-local-syntax
-                                                                              
chi-body
-                                                                              
chi-macro
-                                                                              
chi-application
-                                                                              
chi-expr
-                                                                              
chi
-                                                                              
chi-top
-                                                                              
syntax-type
-                                                                              
chi-when-list
-                                                                              
chi-install-global
-                                                                              
chi-top-sequence
-                                                                              
chi-sequence
-                                                                              
source-wrap
-                                                                              
wrap
-                                                                              
bound-id-member?
-                                                                              
distinct-bound-ids?
-                                                                              
valid-bound-ids?
-                                                                              
bound-id=?
-                                                                              
free-id=?
-                                                                              
id-var-name
-                                                                              
same-marks?
-                                                                              
join-marks
-                                                                              
join-wraps
-                                                                              
smart-append
-                                                                              
make-binding-wrap
-                                                                              
extend-ribcage!
-                                                                              
make-empty-ribcage
-                                                                              
new-mark
-                                                                              
anti-mark
-                                                                              
the-anti-mark
-                                                                              
top-marked?
-                                                                              
top-wrap
-                                                                              
empty-wrap
-                                                                              
set-ribcage-labels!
-                                                                              
set-ribcage-marks!
-                                                                              
set-ribcage-symnames!
-                                                                              
ribcage-labels
-                                                                              
ribcage-marks
-                                                                              
ribcage-symnames
-                                                                              
ribcage?
-                                                                              
make-ribcage
-                                                                              
gen-labels
-                                                                              
gen-label
-                                                                              
make-rename
-                                                                              
rename-marks
-                                                                              
rename-new
-                                                                              
rename-old
-                                                                              
subst-rename?
-                                                                              
wrap-subst
-                                                                              
wrap-marks
-                                                                              
make-wrap
-                                                                              
id-sym-name&marks
-                                                                              
id-sym-name
-                                                                              
id?
-                                                                              
nonsymbol-id?
-                                                                              
global-extend
-                                                                              
lookup
-                                                                              
macros-only-env
-                                                                              
extend-var-env
-                                                                              
extend-env
-                                                                              
null-env
-                                                                              
binding-value
-                                                                              
binding-type
-                                                                              
make-binding
-                                                                              
arg-check
-                                                                              
source-annotation
-                                                                              
no-source
-                                                                              
set-syntax-object-module!
-                                                                              
set-syntax-object-wrap!
-                                                                              
set-syntax-object-expression!
-                                                                              
syntax-object-module
-                                                                              
syntax-object-wrap
-                                                                              
syntax-object-expression
-                                                                              
syntax-object?
-                                                                              
make-syntax-object
-                                                                              
build-lexical-var
-                                                                              
build-letrec
-                                                                              
build-named-let
-                                                                              
build-let
-                                                                              
build-sequence
-                                                                              
build-data
-                                                                              
build-primref
-                                                                              
build-lambda-case
-                                                                              
build-case-lambda
-                                                                              
build-simple-lambda
-                                                                              
build-global-definition
-                                                                              
maybe-name-value!
-                                                                              
build-global-assignment
-                                                                              
build-global-reference
-                                                                              
analyze-variable
-                                                                              
build-lexical-assignment
-                                                                              
build-lexical-reference
-                                                                              
build-conditional
-                                                                              
build-application
-                                                                              
build-void
-                                                                              
decorate-source
-                                                                              
get-global-definition-hook
-                                                                              
put-global-definition-hook
-                                                                              
gensym-hook
-                                                                              
local-eval-hook
-                                                                              
top-level-eval-hook
-                                                                              
fx<
-                                                                              
fx=
-                                                                              
fx-
-                                                                              
fx+
-                                                                              
*mode*
-                                                                              
noexpand)
-                                                                            
((top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top)
-                                                                             
(top))
-                                                                            
("i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"))
-                                                                          
#(ribcage
-                                                                            
(define-structure
-                                                                              
and-map*)
-                                                                            
((top)
-                                                                             
(top))
-                                                                            
("i"
-                                                                             
"i")))
-                                                                         
(hygiene
-                                                                           
guile)))
-                                                                  'eval
-                                                                  
(syntax-violation
-                                                                    'eval-when
-                                                                    "invalid 
situation"
-                                                                    #{e\ 845}#
-                                                                    (#{wrap\ 
156}#
-                                                                      #{x\ 
851}#
-                                                                      #{w\ 
847}#
-                                                                      #f))))))
-                                                          #{situations\ 
850}#))))))
-                 (#{f\ 848}# #{when-list\ 846}# (quote ())))))
-           (#{chi-install-global\ 160}#
-             (lambda (#{name\ 852}# #{e\ 853}#)
-               (#{build-global-definition\ 101}#
+                         #{e\ 1633}#
+                         #{w\ 1635}#
+                         #{s\ 1636}#
+                         #{mod\ 1638}#)))))))
+           (#{chi-when-list\ 339}#
+             (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#)
+               (letrec ((#{f\ 1774}#
+                          (lambda (#{when-list\ 1775}# #{situations\ 1776}#)
+                            (if (null? #{when-list\ 1775}#)
+                              #{situations\ 1776}#
+                              (#{f\ 1774}#
+                                (cdr #{when-list\ 1775}#)
+                                (cons (let ((#{x\ 1778}#
+                                              (car #{when-list\ 1775}#)))
+                                        (if (#{free-id=?\ 319}#
+                                              #{x\ 1778}#
+                                              '#(syntax-object
+                                                 compile
+                                                 ((top)
+                                                  #(ribcage () () ())
+                                                  #(ribcage () () ())
+                                                  #(ribcage () () ())
+                                                  #(ribcage
+                                                    #(x)
+                                                    #((top))
+                                                    #("i1777"))
+                                                  #(ribcage () () ())
+                                                  #(ribcage
+                                                    #(f when-list situations)
+                                                    #((top) (top) (top))
+                                                    #("i1771" "i1772" "i1773"))
+                                                  #(ribcage () () ())
+                                                  #(ribcage
+                                                    #(e when-list w)
+                                                    #((top) (top) (top))
+                                                    #("i1768" "i1769" "i1770"))
+                                                  #(ribcage
+                                                    (lambda-var-list
+                                                      gen-var
+                                                      strip
+                                                      chi-lambda-case
+                                                      lambda*-formals
+                                                      chi-simple-lambda
+                                                      lambda-formals
+                                                      ellipsis?
+                                                      chi-void
+                                                      eval-local-transformer
+                                                      chi-local-syntax
+                                                      chi-body
+                                                      chi-macro
+                                                      chi-application
+                                                      chi-expr
+                                                      chi
+                                                      chi-top
+                                                      syntax-type
+                                                      chi-when-list
+                                                      chi-install-global
+                                                      chi-top-sequence
+                                                      chi-sequence
+                                                      source-wrap
+                                                      wrap
+                                                      bound-id-member?
+                                                      distinct-bound-ids?
+                                                      valid-bound-ids?
+                                                      bound-id=?
+                                                      free-id=?
+                                                      id-var-name
+                                                      same-marks?
+                                                      join-marks
+                                                      join-wraps
+                                                      smart-append
+                                                      make-binding-wrap
+                                                      extend-ribcage!
+                                                      make-empty-ribcage
+                                                      new-mark
+                                                      anti-mark
+                                                      the-anti-mark
+                                                      top-marked?
+                                                      top-wrap
+                                                      empty-wrap
+                                                      set-ribcage-labels!
+                                                      set-ribcage-marks!
+                                                      set-ribcage-symnames!
+                                                      ribcage-labels
+                                                      ribcage-marks
+                                                      ribcage-symnames
+                                                      ribcage?
+                                                      make-ribcage
+                                                      gen-labels
+                                                      gen-label
+                                                      make-rename
+                                                      rename-marks
+                                                      rename-new
+                                                      rename-old
+                                                      subst-rename?
+                                                      wrap-subst
+                                                      wrap-marks
+                                                      make-wrap
+                                                      id-sym-name&marks
+                                                      id-sym-name
+                                                      id?
+                                                      nonsymbol-id?
+                                                      global-extend
+                                                      lookup
+                                                      macros-only-env
+                                                      extend-var-env
+                                                      extend-env
+                                                      null-env
+                                                      binding-value
+                                                      binding-type
+                                                      make-binding
+                                                      arg-check
+                                                      source-annotation
+                                                      no-source
+                                                      set-syntax-object-module!
+                                                      set-syntax-object-wrap!
+                                                      
set-syntax-object-expression!
+                                                      syntax-object-module
+                                                      syntax-object-wrap
+                                                      syntax-object-expression
+                                                      syntax-object?
+                                                      make-syntax-object
+                                                      build-lexical-var
+                                                      build-letrec
+                                                      build-named-let
+                                                      build-let
+                                                      build-sequence
+                                                      build-data
+                                                      build-primref
+                                                      build-lambda-case
+                                                      build-case-lambda
+                                                      build-simple-lambda
+                                                      build-global-definition
+                                                      maybe-name-value!
+                                                      build-global-assignment
+                                                      build-global-reference
+                                                      analyze-variable
+                                                      build-lexical-assignment
+                                                      build-lexical-reference
+                                                      build-conditional
+                                                      build-application
+                                                      build-void
+                                                      decorate-source
+                                                      
get-global-definition-hook
+                                                      
put-global-definition-hook
+                                                      gensym-hook
+                                                      local-eval-hook
+                                                      top-level-eval-hook
+                                                      fx<
+                                                      fx=
+                                                      fx-
+                                                      fx+
+                                                      *mode*
+                                                      noexpand)
+                                                    ((top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top)
+                                                     (top))
+                                                    ("i374"
+                                                     "i372"
+                                                     "i370"
+                                                     "i368"
+                                                     "i366"
+                                                     "i364"
+                                                     "i362"
+                                                     "i360"
+                                                     "i358"
+                                                     "i356"
+                                                     "i354"
+                                                     "i352"
+                                                     "i350"
+                                                     "i348"
+                                                     "i346"
+                                                     "i344"
+                                                     "i342"
+                                                     "i340"
+                                                     "i338"
+                                                     "i336"
+                                                     "i334"
+                                                     "i332"
+                                                     "i330"
+                                                     "i328"
+                                                     "i326"
+                                                     "i324"
+                                                     "i322"
+                                                     "i320"
+                                                     "i318"
+                                                     "i316"
+                                                     "i314"
+                                                     "i312"
+                                                     "i310"
+                                                     "i308"
+                                                     "i306"
+                                                     "i304"
+                                                     "i303"
+                                                     "i302"
+                                                     "i300"
+                                                     "i299"
+                                                     "i298"
+                                                     "i297"
+                                                     "i296"
+                                                     "i294"
+                                                     "i292"
+                                                     "i290"
+                                                     "i288"
+                                                     "i286"
+                                                     "i284"
+                                                     "i282"
+                                                     "i280"
+                                                     "i277"
+                                                     "i275"
+                                                     "i274"
+                                                     "i273"
+                                                     "i272"
+                                                     "i271"
+                                                     "i270"
+                                                     "i268"
+                                                     "i266"
+                                                     "i264"
+                                                     "i262"
+                                                     "i261"
+                                                     "i259"
+                                                     "i257"
+                                                     "i255"
+                                                     "i253"
+                                                     "i251"
+                                                     "i249"
+                                                     "i247"
+                                                     "i246"
+                                                     "i244"
+                                                     "i242"
+                                                     "i241"
+                                                     "i240"
+                                                     "i238"
+                                                     "i237"
+                                                     "i235"
+                                                     "i233"
+                                                     "i231"
+                                                     "i229"
+                                                     "i227"
+                                                     "i225"
+                                                     "i223"
+                                                     "i221"
+                                                     "i219"
+                                                     "i217"
+                                                     "i215"
+                                                     "i213"
+                                                     "i211"
+                                                     "i209"
+                                                     "i207"
+                                                     "i205"
+                                                     "i203"
+                                                     "i201"
+                                                     "i199"
+                                                     "i197"
+                                                     "i195"
+                                                     "i193"
+                                                     "i191"
+                                                     "i189"
+                                                     "i187"
+                                                     "i185"
+                                                     "i183"
+                                                     "i181"
+                                                     "i179"
+                                                     "i177"
+                                                     "i175"
+                                                     "i174"
+                                                     "i172"
+                                                     "i170"
+                                                     "i168"
+                                                     "i166"
+                                                     "i164"
+                                                     "i162"
+                                                     "i160"
+                                                     "i158"))
+                                                  #(ribcage
+                                                    (define-structure and-map*)
+                                                    ((top) (top))
+                                                    ("i61" "i59")))
+                                                 (hygiene guile)))
+                                          'compile
+                                          (if (#{free-id=?\ 319}#
+                                                #{x\ 1778}#
+                                                '#(syntax-object
+                                                   load
+                                                   ((top)
+                                                    #(ribcage () () ())
+                                                    #(ribcage () () ())
+                                                    #(ribcage () () ())
+                                                    #(ribcage
+                                                      #(x)
+                                                      #((top))
+                                                      #("i1777"))
+                                                    #(ribcage () () ())
+                                                    #(ribcage
+                                                      #(f when-list situations)
+                                                      #((top) (top) (top))
+                                                      #("i1771"
+                                                        "i1772"
+                                                        "i1773"))
+                                                    #(ribcage () () ())
+                                                    #(ribcage
+                                                      #(e when-list w)
+                                                      #((top) (top) (top))
+                                                      #("i1768"
+                                                        "i1769"
+                                                        "i1770"))
+                                                    #(ribcage
+                                                      (lambda-var-list
+                                                        gen-var
+                                                        strip
+                                                        chi-lambda-case
+                                                        lambda*-formals
+                                                        chi-simple-lambda
+                                                        lambda-formals
+                                                        ellipsis?
+                                                        chi-void
+                                                        eval-local-transformer
+                                                        chi-local-syntax
+                                                        chi-body
+                                                        chi-macro
+                                                        chi-application
+                                                        chi-expr
+                                                        chi
+                                                        chi-top
+                                                        syntax-type
+                                                        chi-when-list
+                                                        chi-install-global
+                                                        chi-top-sequence
+                                                        chi-sequence
+                                                        source-wrap
+                                                        wrap
+                                                        bound-id-member?
+                                                        distinct-bound-ids?
+                                                        valid-bound-ids?
+                                                        bound-id=?
+                                                        free-id=?
+                                                        id-var-name
+                                                        same-marks?
+                                                        join-marks
+                                                        join-wraps
+                                                        smart-append
+                                                        make-binding-wrap
+                                                        extend-ribcage!
+                                                        make-empty-ribcage
+                                                        new-mark
+                                                        anti-mark
+                                                        the-anti-mark
+                                                        top-marked?
+                                                        top-wrap
+                                                        empty-wrap
+                                                        set-ribcage-labels!
+                                                        set-ribcage-marks!
+                                                        set-ribcage-symnames!
+                                                        ribcage-labels
+                                                        ribcage-marks
+                                                        ribcage-symnames
+                                                        ribcage?
+                                                        make-ribcage
+                                                        gen-labels
+                                                        gen-label
+                                                        make-rename
+                                                        rename-marks
+                                                        rename-new
+                                                        rename-old
+                                                        subst-rename?
+                                                        wrap-subst
+                                                        wrap-marks
+                                                        make-wrap
+                                                        id-sym-name&marks
+                                                        id-sym-name
+                                                        id?
+                                                        nonsymbol-id?
+                                                        global-extend
+                                                        lookup
+                                                        macros-only-env
+                                                        extend-var-env
+                                                        extend-env
+                                                        null-env
+                                                        binding-value
+                                                        binding-type
+                                                        make-binding
+                                                        arg-check
+                                                        source-annotation
+                                                        no-source
+                                                        
set-syntax-object-module!
+                                                        set-syntax-object-wrap!
+                                                        
set-syntax-object-expression!
+                                                        syntax-object-module
+                                                        syntax-object-wrap
+                                                        
syntax-object-expression
+                                                        syntax-object?
+                                                        make-syntax-object
+                                                        build-lexical-var
+                                                        build-letrec
+                                                        build-named-let
+                                                        build-let
+                                                        build-sequence
+                                                        build-data
+                                                        build-primref
+                                                        build-lambda-case
+                                                        build-case-lambda
+                                                        build-simple-lambda
+                                                        build-global-definition
+                                                        maybe-name-value!
+                                                        build-global-assignment
+                                                        build-global-reference
+                                                        analyze-variable
+                                                        
build-lexical-assignment
+                                                        build-lexical-reference
+                                                        build-conditional
+                                                        build-application
+                                                        build-void
+                                                        decorate-source
+                                                        
get-global-definition-hook
+                                                        
put-global-definition-hook
+                                                        gensym-hook
+                                                        local-eval-hook
+                                                        top-level-eval-hook
+                                                        fx<
+                                                        fx=
+                                                        fx-
+                                                        fx+
+                                                        *mode*
+                                                        noexpand)
+                                                      ((top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top)
+                                                       (top))
+                                                      ("i374"
+                                                       "i372"
+                                                       "i370"
+                                                       "i368"
+                                                       "i366"
+                                                       "i364"
+                                                       "i362"
+                                                       "i360"
+                                                       "i358"
+                                                       "i356"
+                                                       "i354"
+                                                       "i352"
+                                                       "i350"
+                                                       "i348"
+                                                       "i346"
+                                                       "i344"
+                                                       "i342"
+                                                       "i340"
+                                                       "i338"
+                                                       "i336"
+                                                       "i334"
+                                                       "i332"
+                                                       "i330"
+                                                       "i328"
+                                                       "i326"
+                                                       "i324"
+                                                       "i322"
+                                                       "i320"
+                                                       "i318"
+                                                       "i316"
+                                                       "i314"
+                                                       "i312"
+                                                       "i310"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i303"
+                                                       "i302"
+                                                       "i300"
+                                                       "i299"
+                                                       "i298"
+                                                       "i297"
+                                                       "i296"
+                                                       "i294"
+                                                       "i292"
+                                                       "i290"
+                                                       "i288"
+                                                       "i286"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i277"
+                                                       "i275"
+                                                       "i274"
+                                                       "i273"
+                                                       "i272"
+                                                       "i271"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i264"
+                                                       "i262"
+                                                       "i261"
+                                                       "i259"
+                                                       "i257"
+                                                       "i255"
+                                                       "i253"
+                                                       "i251"
+                                                       "i249"
+                                                       "i247"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i241"
+                                                       "i240"
+                                                       "i238"
+                                                       "i237"
+                                                       "i235"
+                                                       "i233"
+                                                       "i231"
+                                                       "i229"
+                                                       "i227"
+                                                       "i225"
+                                                       "i223"
+                                                       "i221"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i207"
+                                                       "i205"
+                                                       "i203"
+                                                       "i201"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i174"
+                                                       "i172"
+                                                       "i170"
+                                                       "i168"
+                                                       "i166"
+                                                       "i164"
+                                                       "i162"
+                                                       "i160"
+                                                       "i158"))
+                                                    #(ribcage
+                                                      (define-structure
+                                                        and-map*)
+                                                      ((top) (top))
+                                                      ("i61" "i59")))
+                                                   (hygiene guile)))
+                                            'load
+                                            (if (#{free-id=?\ 319}#
+                                                  #{x\ 1778}#
+                                                  '#(syntax-object
+                                                     eval
+                                                     ((top)
+                                                      #(ribcage () () ())
+                                                      #(ribcage () () ())
+                                                      #(ribcage () () ())
+                                                      #(ribcage
+                                                        #(x)
+                                                        #((top))
+                                                        #("i1777"))
+                                                      #(ribcage () () ())
+                                                      #(ribcage
+                                                        #(f
+                                                          when-list
+                                                          situations)
+                                                        #((top) (top) (top))
+                                                        #("i1771"
+                                                          "i1772"
+                                                          "i1773"))
+                                                      #(ribcage () () ())
+                                                      #(ribcage
+                                                        #(e when-list w)
+                                                        #((top) (top) (top))
+                                                        #("i1768"
+                                                          "i1769"
+                                                          "i1770"))
+                                                      #(ribcage
+                                                        (lambda-var-list
+                                                          gen-var
+                                                          strip
+                                                          chi-lambda-case
+                                                          lambda*-formals
+                                                          chi-simple-lambda
+                                                          lambda-formals
+                                                          ellipsis?
+                                                          chi-void
+                                                          
eval-local-transformer
+                                                          chi-local-syntax
+                                                          chi-body
+                                                          chi-macro
+                                                          chi-application
+                                                          chi-expr
+                                                          chi
+                                                          chi-top
+                                                          syntax-type
+                                                          chi-when-list
+                                                          chi-install-global
+                                                          chi-top-sequence
+                                                          chi-sequence
+                                                          source-wrap
+                                                          wrap
+                                                          bound-id-member?
+                                                          distinct-bound-ids?
+                                                          valid-bound-ids?
+                                                          bound-id=?
+                                                          free-id=?
+                                                          id-var-name
+                                                          same-marks?
+                                                          join-marks
+                                                          join-wraps
+                                                          smart-append
+                                                          make-binding-wrap
+                                                          extend-ribcage!
+                                                          make-empty-ribcage
+                                                          new-mark
+                                                          anti-mark
+                                                          the-anti-mark
+                                                          top-marked?
+                                                          top-wrap
+                                                          empty-wrap
+                                                          set-ribcage-labels!
+                                                          set-ribcage-marks!
+                                                          set-ribcage-symnames!
+                                                          ribcage-labels
+                                                          ribcage-marks
+                                                          ribcage-symnames
+                                                          ribcage?
+                                                          make-ribcage
+                                                          gen-labels
+                                                          gen-label
+                                                          make-rename
+                                                          rename-marks
+                                                          rename-new
+                                                          rename-old
+                                                          subst-rename?
+                                                          wrap-subst
+                                                          wrap-marks
+                                                          make-wrap
+                                                          id-sym-name&marks
+                                                          id-sym-name
+                                                          id?
+                                                          nonsymbol-id?
+                                                          global-extend
+                                                          lookup
+                                                          macros-only-env
+                                                          extend-var-env
+                                                          extend-env
+                                                          null-env
+                                                          binding-value
+                                                          binding-type
+                                                          make-binding
+                                                          arg-check
+                                                          source-annotation
+                                                          no-source
+                                                          
set-syntax-object-module!
+                                                          
set-syntax-object-wrap!
+                                                          
set-syntax-object-expression!
+                                                          syntax-object-module
+                                                          syntax-object-wrap
+                                                          
syntax-object-expression
+                                                          syntax-object?
+                                                          make-syntax-object
+                                                          build-lexical-var
+                                                          build-letrec
+                                                          build-named-let
+                                                          build-let
+                                                          build-sequence
+                                                          build-data
+                                                          build-primref
+                                                          build-lambda-case
+                                                          build-case-lambda
+                                                          build-simple-lambda
+                                                          
build-global-definition
+                                                          maybe-name-value!
+                                                          
build-global-assignment
+                                                          
build-global-reference
+                                                          analyze-variable
+                                                          
build-lexical-assignment
+                                                          
build-lexical-reference
+                                                          build-conditional
+                                                          build-application
+                                                          build-void
+                                                          decorate-source
+                                                          
get-global-definition-hook
+                                                          
put-global-definition-hook
+                                                          gensym-hook
+                                                          local-eval-hook
+                                                          top-level-eval-hook
+                                                          fx<
+                                                          fx=
+                                                          fx-
+                                                          fx+
+                                                          *mode*
+                                                          noexpand)
+                                                        ((top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top)
+                                                         (top))
+                                                        ("i374"
+                                                         "i372"
+                                                         "i370"
+                                                         "i368"
+                                                         "i366"
+                                                         "i364"
+                                                         "i362"
+                                                         "i360"
+                                                         "i358"
+                                                         "i356"
+                                                         "i354"
+                                                         "i352"
+                                                         "i350"
+                                                         "i348"
+                                                         "i346"
+                                                         "i344"
+                                                         "i342"
+                                                         "i340"
+                                                         "i338"
+                                                         "i336"
+                                                         "i334"
+                                                         "i332"
+                                                         "i330"
+                                                         "i328"
+                                                         "i326"
+                                                         "i324"
+                                                         "i322"
+                                                         "i320"
+                                                         "i318"
+                                                         "i316"
+                                                         "i314"
+                                                         "i312"
+                                                         "i310"
+                                                         "i308"
+                                                         "i306"
+                                                         "i304"
+                                                         "i303"
+                                                         "i302"
+                                                         "i300"
+                                                         "i299"
+                                                         "i298"
+                                                         "i297"
+                                                         "i296"
+                                                         "i294"
+                                                         "i292"
+                                                         "i290"
+                                                         "i288"
+                                                         "i286"
+                                                         "i284"
+                                                         "i282"
+                                                         "i280"
+                                                         "i277"
+                                                         "i275"
+                                                         "i274"
+                                                         "i273"
+                                                         "i272"
+                                                         "i271"
+                                                         "i270"
+                                                         "i268"
+                                                         "i266"
+                                                         "i264"
+                                                         "i262"
+                                                         "i261"
+                                                         "i259"
+                                                         "i257"
+                                                         "i255"
+                                                         "i253"
+                                                         "i251"
+                                                         "i249"
+                                                         "i247"
+                                                         "i246"
+                                                         "i244"
+                                                         "i242"
+                                                         "i241"
+                                                         "i240"
+                                                         "i238"
+                                                         "i237"
+                                                         "i235"
+                                                         "i233"
+                                                         "i231"
+                                                         "i229"
+                                                         "i227"
+                                                         "i225"
+                                                         "i223"
+                                                         "i221"
+                                                         "i219"
+                                                         "i217"
+                                                         "i215"
+                                                         "i213"
+                                                         "i211"
+                                                         "i209"
+                                                         "i207"
+                                                         "i205"
+                                                         "i203"
+                                                         "i201"
+                                                         "i199"
+                                                         "i197"
+                                                         "i195"
+                                                         "i193"
+                                                         "i191"
+                                                         "i189"
+                                                         "i187"
+                                                         "i185"
+                                                         "i183"
+                                                         "i181"
+                                                         "i179"
+                                                         "i177"
+                                                         "i175"
+                                                         "i174"
+                                                         "i172"
+                                                         "i170"
+                                                         "i168"
+                                                         "i166"
+                                                         "i164"
+                                                         "i162"
+                                                         "i160"
+                                                         "i158"))
+                                                      #(ribcage
+                                                        (define-structure
+                                                          and-map*)
+                                                        ((top) (top))
+                                                        ("i61" "i59")))
+                                                     (hygiene guile)))
+                                              'eval
+                                              (syntax-violation
+                                                'eval-when
+                                                "invalid situation"
+                                                #{e\ 1765}#
+                                                (#{wrap\ 329}#
+                                                  #{x\ 1778}#
+                                                  #{w\ 1767}#
+                                                  #f))))))
+                                      #{situations\ 1776}#))))))
+                 (#{f\ 1774}# #{when-list\ 1766}# (quote ())))))
+           (#{chi-install-global\ 337}#
+             (lambda (#{name\ 1786}# #{e\ 1787}#)
+               (#{build-global-definition\ 200}#
                  #f
-                 #{name\ 852}#
-                 (if (let ((#{v\ 854}# (module-variable
-                                         (current-module)
-                                         #{name\ 852}#)))
-                       (if #{v\ 854}#
-                         (if (variable-bound? #{v\ 854}#)
-                           (if (macro? (variable-ref #{v\ 854}#))
-                             (not (eq? (macro-type (variable-ref #{v\ 854}#))
+                 #{name\ 1786}#
+                 (if (let ((#{v\ 1792}#
+                             (module-variable
+                               (current-module)
+                               #{name\ 1786}#)))
+                       (if #{v\ 1792}#
+                         (if (variable-bound? #{v\ 1792}#)
+                           (if (macro? (variable-ref #{v\ 1792}#))
+                             (not (eq? (macro-type (variable-ref #{v\ 1792}#))
                                        'syncase-macro))
                              #f)
                            #f)
                          #f))
-                   (#{build-application\ 93}#
+                   (#{build-application\ 184}#
                      #f
-                     (#{build-primref\ 105}#
+                     (#{build-primref\ 208}#
                        #f
                        'make-extended-syncase-macro)
-                     (list (#{build-application\ 93}#
+                     (list (#{build-application\ 184}#
                              #f
-                             (#{build-primref\ 105}# #f (quote module-ref))
-                             (list (#{build-application\ 93}#
+                             (#{build-primref\ 208}# #f (quote module-ref))
+                             (list (#{build-application\ 184}#
                                      #f
-                                     (#{build-primref\ 105}#
+                                     (#{build-primref\ 208}#
                                        #f
                                        'current-module)
                                      '())
-                                   (#{build-data\ 106}# #f #{name\ 852}#)))
-                           (#{build-data\ 106}# #f (quote macro))
-                           (#{build-application\ 93}#
+                                   (#{build-data\ 210}# #f #{name\ 1786}#)))
+                           (#{build-data\ 210}# #f (quote macro))
+                           (#{build-application\ 184}#
                              #f
-                             (#{build-primref\ 105}# #f (quote cons))
-                             (list #{e\ 853}#
-                                   (#{build-application\ 93}#
+                             (#{build-primref\ 208}# #f (quote cons))
+                             (list #{e\ 1787}#
+                                   (#{build-application\ 184}#
                                      #f
-                                     (#{build-primref\ 105}#
+                                     (#{build-primref\ 208}#
                                        #f
                                        'module-name)
-                                     (list (#{build-application\ 93}#
+                                     (list (#{build-application\ 184}#
                                              #f
-                                             (#{build-primref\ 105}#
+                                             (#{build-primref\ 208}#
                                                #f
                                                'current-module)
                                              '())))))))
-                   (#{build-application\ 93}#
+                   (#{build-application\ 184}#
                      #f
-                     (#{build-primref\ 105}#
+                     (#{build-primref\ 208}#
                        #f
                        'make-syncase-macro)
-                     (list (#{build-data\ 106}# #f (quote macro))
-                           (#{build-application\ 93}#
+                     (list (#{build-data\ 210}# #f (quote macro))
+                           (#{build-application\ 184}#
                              #f
-                             (#{build-primref\ 105}# #f (quote cons))
-                             (list #{e\ 853}#
-                                   (#{build-application\ 93}#
+                             (#{build-primref\ 208}# #f (quote cons))
+                             (list #{e\ 1787}#
+                                   (#{build-application\ 184}#
                                      #f
-                                     (#{build-primref\ 105}#
+                                     (#{build-primref\ 208}#
                                        #f
                                        'module-name)
-                                     (list (#{build-application\ 93}#
+                                     (list (#{build-application\ 184}#
                                              #f
-                                             (#{build-primref\ 105}#
+                                             (#{build-primref\ 208}#
                                                #f
                                                'current-module)
                                              '())))))))))))
-           (#{chi-top-sequence\ 159}#
-             (lambda (#{body\ 855}#
-                      #{r\ 856}#
-                      #{w\ 857}#
-                      #{s\ 858}#
-                      #{m\ 859}#
-                      #{esew\ 860}#
-                      #{mod\ 861}#)
-               (#{build-sequence\ 107}#
-                 #{s\ 858}#
-                 (letrec ((#{dobody\ 862}#
-                            (lambda (#{body\ 863}#
-                                     #{r\ 864}#
-                                     #{w\ 865}#
-                                     #{m\ 866}#
-                                     #{esew\ 867}#
-                                     #{mod\ 868}#)
-                              (if (null? #{body\ 863}#)
+           (#{chi-top-sequence\ 335}#
+             (lambda (#{body\ 1820}#
+                      #{r\ 1821}#
+                      #{w\ 1822}#
+                      #{s\ 1823}#
+                      #{m\ 1824}#
+                      #{esew\ 1825}#
+                      #{mod\ 1826}#)
+               (#{build-sequence\ 212}#
+                 #{s\ 1823}#
+                 (letrec ((#{dobody\ 1841}#
+                            (lambda (#{body\ 1842}#
+                                     #{r\ 1843}#
+                                     #{w\ 1844}#
+                                     #{m\ 1845}#
+                                     #{esew\ 1846}#
+                                     #{mod\ 1847}#)
+                              (if (null? #{body\ 1842}#)
                                 '()
-                                (let ((#{first\ 869}#
-                                        (#{chi-top\ 163}#
-                                          (car #{body\ 863}#)
-                                          #{r\ 864}#
-                                          #{w\ 865}#
-                                          #{m\ 866}#
-                                          #{esew\ 867}#
-                                          #{mod\ 868}#)))
-                                  (cons #{first\ 869}#
-                                        (#{dobody\ 862}#
-                                          (cdr #{body\ 863}#)
-                                          #{r\ 864}#
-                                          #{w\ 865}#
-                                          #{m\ 866}#
-                                          #{esew\ 867}#
-                                          #{mod\ 868}#)))))))
-                   (#{dobody\ 862}#
-                     #{body\ 855}#
-                     #{r\ 856}#
-                     #{w\ 857}#
-                     #{m\ 859}#
-                     #{esew\ 860}#
-                     #{mod\ 861}#)))))
-           (#{chi-sequence\ 158}#
-             (lambda (#{body\ 870}#
-                      #{r\ 871}#
-                      #{w\ 872}#
-                      #{s\ 873}#
-                      #{mod\ 874}#)
-               (#{build-sequence\ 107}#
-                 #{s\ 873}#
-                 (letrec ((#{dobody\ 875}#
-                            (lambda (#{body\ 876}#
-                                     #{r\ 877}#
-                                     #{w\ 878}#
-                                     #{mod\ 879}#)
-                              (if (null? #{body\ 876}#)
+                                (let ((#{first\ 1849}#
+                                        (#{chi-top\ 343}#
+                                          (car #{body\ 1842}#)
+                                          #{r\ 1843}#
+                                          #{w\ 1844}#
+                                          #{m\ 1845}#
+                                          #{esew\ 1846}#
+                                          #{mod\ 1847}#)))
+                                  (cons #{first\ 1849}#
+                                        (#{dobody\ 1841}#
+                                          (cdr #{body\ 1842}#)
+                                          #{r\ 1843}#
+                                          #{w\ 1844}#
+                                          #{m\ 1845}#
+                                          #{esew\ 1846}#
+                                          #{mod\ 1847}#)))))))
+                   (#{dobody\ 1841}#
+                     #{body\ 1820}#
+                     #{r\ 1821}#
+                     #{w\ 1822}#
+                     #{m\ 1824}#
+                     #{esew\ 1825}#
+                     #{mod\ 1826}#)))))
+           (#{chi-sequence\ 333}#
+             (lambda (#{body\ 1850}#
+                      #{r\ 1851}#
+                      #{w\ 1852}#
+                      #{s\ 1853}#
+                      #{mod\ 1854}#)
+               (#{build-sequence\ 212}#
+                 #{s\ 1853}#
+                 (letrec ((#{dobody\ 1865}#
+                            (lambda (#{body\ 1866}#
+                                     #{r\ 1867}#
+                                     #{w\ 1868}#
+                                     #{mod\ 1869}#)
+                              (if (null? #{body\ 1866}#)
                                 '()
-                                (let ((#{first\ 880}#
-                                        (#{chi\ 164}#
-                                          (car #{body\ 876}#)
-                                          #{r\ 877}#
-                                          #{w\ 878}#
-                                          #{mod\ 879}#)))
-                                  (cons #{first\ 880}#
-                                        (#{dobody\ 875}#
-                                          (cdr #{body\ 876}#)
-                                          #{r\ 877}#
-                                          #{w\ 878}#
-                                          #{mod\ 879}#)))))))
-                   (#{dobody\ 875}#
-                     #{body\ 870}#
-                     #{r\ 871}#
-                     #{w\ 872}#
-                     #{mod\ 874}#)))))
-           (#{source-wrap\ 157}#
-             (lambda (#{x\ 881}#
-                      #{w\ 882}#
-                      #{s\ 883}#
-                      #{defmod\ 884}#)
-               (#{wrap\ 156}#
-                 (#{decorate-source\ 91}# #{x\ 881}# #{s\ 883}#)
-                 #{w\ 882}#
-                 #{defmod\ 884}#)))
-           (#{wrap\ 156}#
-             (lambda (#{x\ 885}# #{w\ 886}# #{defmod\ 887}#)
-               (if (if (null? (#{wrap-marks\ 131}# #{w\ 886}#))
-                     (null? (#{wrap-subst\ 132}# #{w\ 886}#))
+                                (let ((#{first\ 1871}#
+                                        (#{chi\ 345}#
+                                          (car #{body\ 1866}#)
+                                          #{r\ 1867}#
+                                          #{w\ 1868}#
+                                          #{mod\ 1869}#)))
+                                  (cons #{first\ 1871}#
+                                        (#{dobody\ 1865}#
+                                          (cdr #{body\ 1866}#)
+                                          #{r\ 1867}#
+                                          #{w\ 1868}#
+                                          #{mod\ 1869}#)))))))
+                   (#{dobody\ 1865}#
+                     #{body\ 1850}#
+                     #{r\ 1851}#
+                     #{w\ 1852}#
+                     #{mod\ 1854}#)))))
+           (#{source-wrap\ 331}#
+             (lambda (#{x\ 1872}#
+                      #{w\ 1873}#
+                      #{s\ 1874}#
+                      #{defmod\ 1875}#)
+               (#{wrap\ 329}#
+                 (#{decorate-source\ 180}#
+                   #{x\ 1872}#
+                   #{s\ 1874}#)
+                 #{w\ 1873}#
+                 #{defmod\ 1875}#)))
+           (#{wrap\ 329}#
+             (lambda (#{x\ 1880}# #{w\ 1881}# #{defmod\ 1882}#)
+               (if (if (null? (#{wrap-marks\ 267}# #{w\ 1881}#))
+                     (null? (#{wrap-subst\ 269}# #{w\ 1881}#))
                      #f)
-                 #{x\ 885}#
-                 (if (#{syntax-object?\ 112}# #{x\ 885}#)
-                   (#{make-syntax-object\ 111}#
-                     (#{syntax-object-expression\ 113}# #{x\ 885}#)
-                     (#{join-wraps\ 147}#
-                       #{w\ 886}#
-                       (#{syntax-object-wrap\ 114}# #{x\ 885}#))
-                     (#{syntax-object-module\ 115}# #{x\ 885}#))
-                   (if (null? #{x\ 885}#)
-                     #{x\ 885}#
-                     (#{make-syntax-object\ 111}#
-                       #{x\ 885}#
-                       #{w\ 886}#
-                       #{defmod\ 887}#))))))
-           (#{bound-id-member?\ 155}#
-             (lambda (#{x\ 888}# #{list\ 889}#)
-               (if (not (null? #{list\ 889}#))
-                 (let ((#{t\ 890}# (#{bound-id=?\ 152}#
-                                     #{x\ 888}#
-                                     (car #{list\ 889}#))))
-                   (if #{t\ 890}#
-                     #{t\ 890}#
-                     (#{bound-id-member?\ 155}#
-                       #{x\ 888}#
-                       (cdr #{list\ 889}#))))
+                 #{x\ 1880}#
+                 (if (#{syntax-object?\ 224}# #{x\ 1880}#)
+                   (#{make-syntax-object\ 222}#
+                     (#{syntax-object-expression\ 226}# #{x\ 1880}#)
+                     (#{join-wraps\ 311}#
+                       #{w\ 1881}#
+                       (#{syntax-object-wrap\ 228}# #{x\ 1880}#))
+                     (#{syntax-object-module\ 230}# #{x\ 1880}#))
+                   (if (null? #{x\ 1880}#)
+                     #{x\ 1880}#
+                     (#{make-syntax-object\ 222}#
+                       #{x\ 1880}#
+                       #{w\ 1881}#
+                       #{defmod\ 1882}#))))))
+           (#{bound-id-member?\ 327}#
+             (lambda (#{x\ 1895}# #{list\ 1896}#)
+               (if (not (null? #{list\ 1896}#))
+                 (let ((#{t\ 1903}#
+                         (#{bound-id=?\ 321}#
+                           #{x\ 1895}#
+                           (car #{list\ 1896}#))))
+                   (if #{t\ 1903}#
+                     #{t\ 1903}#
+                     (#{bound-id-member?\ 327}#
+                       #{x\ 1895}#
+                       (cdr #{list\ 1896}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 154}#
-             (lambda (#{ids\ 891}#)
-               (letrec ((#{distinct?\ 892}#
-                          (lambda (#{ids\ 893}#)
-                            (let ((#{t\ 894}# (null? #{ids\ 893}#)))
-                              (if #{t\ 894}#
-                                #{t\ 894}#
-                                (if (not (#{bound-id-member?\ 155}#
-                                           (car #{ids\ 893}#)
-                                           (cdr #{ids\ 893}#)))
-                                  (#{distinct?\ 892}# (cdr #{ids\ 893}#))
+           (#{distinct-bound-ids?\ 325}#
+             (lambda (#{ids\ 1905}#)
+               (letrec ((#{distinct?\ 1909}#
+                          (lambda (#{ids\ 1910}#)
+                            (let ((#{t\ 1913}# (null? #{ids\ 1910}#)))
+                              (if #{t\ 1913}#
+                                #{t\ 1913}#
+                                (if (not (#{bound-id-member?\ 327}#
+                                           (car #{ids\ 1910}#)
+                                           (cdr #{ids\ 1910}#)))
+                                  (#{distinct?\ 1909}# (cdr #{ids\ 1910}#))
                                   #f))))))
-                 (#{distinct?\ 892}# #{ids\ 891}#))))
-           (#{valid-bound-ids?\ 153}#
-             (lambda (#{ids\ 895}#)
-               (if (letrec ((#{all-ids?\ 896}#
-                              (lambda (#{ids\ 897}#)
-                                (let ((#{t\ 898}# (null? #{ids\ 897}#)))
-                                  (if #{t\ 898}#
-                                    #{t\ 898}#
-                                    (if (#{id?\ 128}# (car #{ids\ 897}#))
-                                      (#{all-ids?\ 896}# (cdr #{ids\ 897}#))
+                 (#{distinct?\ 1909}# #{ids\ 1905}#))))
+           (#{valid-bound-ids?\ 323}#
+             (lambda (#{ids\ 1917}#)
+               (if (letrec ((#{all-ids?\ 1922}#
+                              (lambda (#{ids\ 1923}#)
+                                (let ((#{t\ 1926}# (null? #{ids\ 1923}#)))
+                                  (if #{t\ 1926}#
+                                    #{t\ 1926}#
+                                    (if (#{id?\ 260}# (car #{ids\ 1923}#))
+                                      (#{all-ids?\ 1922}# (cdr #{ids\ 1923}#))
                                       #f))))))
-                     (#{all-ids?\ 896}# #{ids\ 895}#))
-                 (#{distinct-bound-ids?\ 154}# #{ids\ 895}#)
+                     (#{all-ids?\ 1922}# #{ids\ 1917}#))
+                 (#{distinct-bound-ids?\ 325}# #{ids\ 1917}#)
                  #f)))
-           (#{bound-id=?\ 152}#
-             (lambda (#{i\ 899}# #{j\ 900}#)
-               (if (if (#{syntax-object?\ 112}# #{i\ 899}#)
-                     (#{syntax-object?\ 112}# #{j\ 900}#)
+           (#{bound-id=?\ 321}#
+             (lambda (#{i\ 1931}# #{j\ 1932}#)
+               (if (if (#{syntax-object?\ 224}# #{i\ 1931}#)
+                     (#{syntax-object?\ 224}# #{j\ 1932}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 113}# #{i\ 899}#)
-                          (#{syntax-object-expression\ 113}# #{j\ 900}#))
-                   (#{same-marks?\ 149}#
-                     (#{wrap-marks\ 131}#
-                       (#{syntax-object-wrap\ 114}# #{i\ 899}#))
-                     (#{wrap-marks\ 131}#
-                       (#{syntax-object-wrap\ 114}# #{j\ 900}#)))
+                 (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1931}#)
+                          (#{syntax-object-expression\ 226}# #{j\ 1932}#))
+                   (#{same-marks?\ 315}#
+                     (#{wrap-marks\ 267}#
+                       (#{syntax-object-wrap\ 228}# #{i\ 1931}#))
+                     (#{wrap-marks\ 267}#
+                       (#{syntax-object-wrap\ 228}# #{j\ 1932}#)))
                    #f)
-                 (eq? #{i\ 899}# #{j\ 900}#))))
-           (#{free-id=?\ 151}#
-             (lambda (#{i\ 901}# #{j\ 902}#)
-               (if (eq? (let ((#{x\ 903}# #{i\ 901}#))
-                          (if (#{syntax-object?\ 112}# #{x\ 903}#)
-                            (#{syntax-object-expression\ 113}# #{x\ 903}#)
-                            #{x\ 903}#))
-                        (let ((#{x\ 904}# #{j\ 902}#))
-                          (if (#{syntax-object?\ 112}# #{x\ 904}#)
-                            (#{syntax-object-expression\ 113}# #{x\ 904}#)
-                            #{x\ 904}#)))
-                 (eq? (#{id-var-name\ 150}# #{i\ 901}# (quote (())))
-                      (#{id-var-name\ 150}# #{j\ 902}# (quote (()))))
+                 (eq? #{i\ 1931}# #{j\ 1932}#))))
+           (#{free-id=?\ 319}#
+             (lambda (#{i\ 1939}# #{j\ 1940}#)
+               (if (eq? (let ((#{x\ 1946}# #{i\ 1939}#))
+                          (if (#{syntax-object?\ 224}# #{x\ 1946}#)
+                            (#{syntax-object-expression\ 226}# #{x\ 1946}#)
+                            #{x\ 1946}#))
+                        (let ((#{x\ 1949}# #{j\ 1940}#))
+                          (if (#{syntax-object?\ 224}# #{x\ 1949}#)
+                            (#{syntax-object-expression\ 226}# #{x\ 1949}#)
+                            #{x\ 1949}#)))
+                 (eq? (#{id-var-name\ 317}# #{i\ 1939}# (quote (())))
+                      (#{id-var-name\ 317}# #{j\ 1940}# (quote (()))))
                  #f)))
-           (#{id-var-name\ 150}#
-             (lambda (#{id\ 905}# #{w\ 906}#)
-               (letrec ((#{search-vector-rib\ 909}#
-                          (lambda (#{sym\ 915}#
-                                   #{subst\ 916}#
-                                   #{marks\ 917}#
-                                   #{symnames\ 918}#
-                                   #{ribcage\ 919}#)
-                            (let ((#{n\ 920}# (vector-length
-                                                #{symnames\ 918}#)))
-                              (letrec ((#{f\ 921}# (lambda (#{i\ 922}#)
-                                                     (if (#{fx=\ 85}#
-                                                           #{i\ 922}#
-                                                           #{n\ 920}#)
-                                                       (#{search\ 907}#
-                                                         #{sym\ 915}#
-                                                         (cdr #{subst\ 916}#)
-                                                         #{marks\ 917}#)
-                                                       (if (if (eq? (vector-ref
-                                                                      
#{symnames\ 918}#
-                                                                      #{i\ 
922}#)
-                                                                    #{sym\ 
915}#)
-                                                             (#{same-marks?\ 
149}#
-                                                               #{marks\ 917}#
-                                                               (vector-ref
-                                                                 
(#{ribcage-marks\ 138}#
-                                                                   #{ribcage\ 
919}#)
-                                                                 #{i\ 922}#))
-                                                             #f)
-                                                         (values
-                                                           (vector-ref
-                                                             
(#{ribcage-labels\ 139}#
-                                                               #{ribcage\ 
919}#)
-                                                             #{i\ 922}#)
-                                                           #{marks\ 917}#)
-                                                         (#{f\ 921}# (#{fx+\ 
83}#
-                                                                       #{i\ 
922}#
-                                                                       1)))))))
-                                (#{f\ 921}# 0)))))
-                        (#{search-list-rib\ 908}#
-                          (lambda (#{sym\ 923}#
-                                   #{subst\ 924}#
-                                   #{marks\ 925}#
-                                   #{symnames\ 926}#
-                                   #{ribcage\ 927}#)
-                            (letrec ((#{f\ 928}# (lambda (#{symnames\ 929}#
-                                                          #{i\ 930}#)
-                                                   (if (null? #{symnames\ 
929}#)
-                                                     (#{search\ 907}#
-                                                       #{sym\ 923}#
-                                                       (cdr #{subst\ 924}#)
-                                                       #{marks\ 925}#)
-                                                     (if (if (eq? (car 
#{symnames\ 929}#)
-                                                                  #{sym\ 923}#)
-                                                           (#{same-marks?\ 
149}#
-                                                             #{marks\ 925}#
-                                                             (list-ref
-                                                               
(#{ribcage-marks\ 138}#
-                                                                 #{ribcage\ 
927}#)
-                                                               #{i\ 930}#))
-                                                           #f)
-                                                       (values
-                                                         (list-ref
-                                                           (#{ribcage-labels\ 
139}#
-                                                             #{ribcage\ 927}#)
-                                                           #{i\ 930}#)
-                                                         #{marks\ 925}#)
-                                                       (#{f\ 928}# (cdr 
#{symnames\ 929}#)
-                                                                   (#{fx+\ 83}#
-                                                                     #{i\ 930}#
-                                                                     1)))))))
-                              (#{f\ 928}# #{symnames\ 926}# 0))))
-                        (#{search\ 907}#
-                          (lambda (#{sym\ 931}# #{subst\ 932}# #{marks\ 933}#)
-                            (if (null? #{subst\ 932}#)
-                              (values #f #{marks\ 933}#)
-                              (let ((#{fst\ 934}# (car #{subst\ 932}#)))
-                                (if (eq? #{fst\ 934}# (quote shift))
-                                  (#{search\ 907}#
-                                    #{sym\ 931}#
-                                    (cdr #{subst\ 932}#)
-                                    (cdr #{marks\ 933}#))
-                                  (let ((#{symnames\ 935}#
-                                          (#{ribcage-symnames\ 137}#
-                                            #{fst\ 934}#)))
-                                    (if (vector? #{symnames\ 935}#)
-                                      (#{search-vector-rib\ 909}#
-                                        #{sym\ 931}#
-                                        #{subst\ 932}#
-                                        #{marks\ 933}#
-                                        #{symnames\ 935}#
-                                        #{fst\ 934}#)
-                                      (#{search-list-rib\ 908}#
-                                        #{sym\ 931}#
-                                        #{subst\ 932}#
-                                        #{marks\ 933}#
-                                        #{symnames\ 935}#
-                                        #{fst\ 934}#)))))))))
-                 (if (symbol? #{id\ 905}#)
-                   (let ((#{t\ 936}# (call-with-values
-                                       (lambda ()
-                                         (#{search\ 907}#
-                                           #{id\ 905}#
-                                           (#{wrap-subst\ 132}# #{w\ 906}#)
-                                           (#{wrap-marks\ 131}# #{w\ 906}#)))
-                                       (lambda (#{x\ 937}# . #{ignore\ 938}#)
-                                         #{x\ 937}#))))
-                     (if #{t\ 936}# #{t\ 936}# #{id\ 905}#))
-                   (if (#{syntax-object?\ 112}# #{id\ 905}#)
-                     (let ((#{id\ 939}#
-                             (#{syntax-object-expression\ 113}# #{id\ 905}#))
-                           (#{w1\ 940}#
-                             (#{syntax-object-wrap\ 114}# #{id\ 905}#)))
-                       (let ((#{marks\ 941}#
-                               (#{join-marks\ 148}#
-                                 (#{wrap-marks\ 131}# #{w\ 906}#)
-                                 (#{wrap-marks\ 131}# #{w1\ 940}#))))
+           (#{id-var-name\ 317}#
+             (lambda (#{id\ 1953}# #{w\ 1954}#)
+               (letrec ((#{search-vector-rib\ 1963}#
+                          (lambda (#{sym\ 1975}#
+                                   #{subst\ 1976}#
+                                   #{marks\ 1977}#
+                                   #{symnames\ 1978}#
+                                   #{ribcage\ 1979}#)
+                            (let ((#{n\ 1986}#
+                                    (vector-length #{symnames\ 1978}#)))
+                              (letrec ((#{f\ 1989}#
+                                         (lambda (#{i\ 1990}#)
+                                           (if (#{fx=\ 167}#
+                                                 #{i\ 1990}#
+                                                 #{n\ 1986}#)
+                                             (#{search\ 1959}#
+                                               #{sym\ 1975}#
+                                               (cdr #{subst\ 1976}#)
+                                               #{marks\ 1977}#)
+                                             (if (if (eq? (vector-ref
+                                                            #{symnames\ 1978}#
+                                                            #{i\ 1990}#)
+                                                          #{sym\ 1975}#)
+                                                   (#{same-marks?\ 315}#
+                                                     #{marks\ 1977}#
+                                                     (vector-ref
+                                                       (#{ribcage-marks\ 287}#
+                                                         #{ribcage\ 1979}#)
+                                                       #{i\ 1990}#))
+                                                   #f)
+                                               (values
+                                                 (vector-ref
+                                                   (#{ribcage-labels\ 289}#
+                                                     #{ribcage\ 1979}#)
+                                                   #{i\ 1990}#)
+                                                 #{marks\ 1977}#)
+                                               (#{f\ 1989}#
+                                                 (#{fx+\ 163}#
+                                                   #{i\ 1990}#
+                                                   1)))))))
+                                (#{f\ 1989}# 0)))))
+                        (#{search-list-rib\ 1961}#
+                          (lambda (#{sym\ 1998}#
+                                   #{subst\ 1999}#
+                                   #{marks\ 2000}#
+                                   #{symnames\ 2001}#
+                                   #{ribcage\ 2002}#)
+                            (letrec ((#{f\ 2011}#
+                                       (lambda (#{symnames\ 2012}# #{i\ 2013}#)
+                                         (if (null? #{symnames\ 2012}#)
+                                           (#{search\ 1959}#
+                                             #{sym\ 1998}#
+                                             (cdr #{subst\ 1999}#)
+                                             #{marks\ 2000}#)
+                                           (if (if (eq? (car #{symnames\ 
2012}#)
+                                                        #{sym\ 1998}#)
+                                                 (#{same-marks?\ 315}#
+                                                   #{marks\ 2000}#
+                                                   (list-ref
+                                                     (#{ribcage-marks\ 287}#
+                                                       #{ribcage\ 2002}#)
+                                                     #{i\ 2013}#))
+                                                 #f)
+                                             (values
+                                               (list-ref
+                                                 (#{ribcage-labels\ 289}#
+                                                   #{ribcage\ 2002}#)
+                                                 #{i\ 2013}#)
+                                               #{marks\ 2000}#)
+                                             (#{f\ 2011}#
+                                               (cdr #{symnames\ 2012}#)
+                                               (#{fx+\ 163}#
+                                                 #{i\ 2013}#
+                                                 1)))))))
+                              (#{f\ 2011}# #{symnames\ 2001}# 0))))
+                        (#{search\ 1959}#
+                          (lambda (#{sym\ 2021}#
+                                   #{subst\ 2022}#
+                                   #{marks\ 2023}#)
+                            (if (null? #{subst\ 2022}#)
+                              (values #f #{marks\ 2023}#)
+                              (let ((#{fst\ 2028}# (car #{subst\ 2022}#)))
+                                (if (eq? #{fst\ 2028}# (quote shift))
+                                  (#{search\ 1959}#
+                                    #{sym\ 2021}#
+                                    (cdr #{subst\ 2022}#)
+                                    (cdr #{marks\ 2023}#))
+                                  (let ((#{symnames\ 2030}#
+                                          (#{ribcage-symnames\ 285}#
+                                            #{fst\ 2028}#)))
+                                    (if (vector? #{symnames\ 2030}#)
+                                      (#{search-vector-rib\ 1963}#
+                                        #{sym\ 2021}#
+                                        #{subst\ 2022}#
+                                        #{marks\ 2023}#
+                                        #{symnames\ 2030}#
+                                        #{fst\ 2028}#)
+                                      (#{search-list-rib\ 1961}#
+                                        #{sym\ 2021}#
+                                        #{subst\ 2022}#
+                                        #{marks\ 2023}#
+                                        #{symnames\ 2030}#
+                                        #{fst\ 2028}#)))))))))
+                 (if (symbol? #{id\ 1953}#)
+                   (let ((#{t\ 2033}#
+                           (call-with-values
+                             (lambda ()
+                               (#{search\ 1959}#
+                                 #{id\ 1953}#
+                                 (#{wrap-subst\ 269}# #{w\ 1954}#)
+                                 (#{wrap-marks\ 267}# #{w\ 1954}#)))
+                             (lambda (#{x\ 2035}# . #{ignore\ 2036}#)
+                               #{x\ 2035}#))))
+                     (if #{t\ 2033}# #{t\ 2033}# #{id\ 1953}#))
+                   (if (#{syntax-object?\ 224}# #{id\ 1953}#)
+                     (let ((#{id\ 2044}#
+                             (#{syntax-object-expression\ 226}# #{id\ 1953}#))
+                           (#{w1\ 2045}#
+                             (#{syntax-object-wrap\ 228}# #{id\ 1953}#)))
+                       (let ((#{marks\ 2047}#
+                               (#{join-marks\ 313}#
+                                 (#{wrap-marks\ 267}# #{w\ 1954}#)
+                                 (#{wrap-marks\ 267}# #{w1\ 2045}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 907}#
-                               #{id\ 939}#
-                               (#{wrap-subst\ 132}# #{w\ 906}#)
-                               #{marks\ 941}#))
-                           (lambda (#{new-id\ 942}# #{marks\ 943}#)
-                             (let ((#{t\ 944}# #{new-id\ 942}#))
-                               (if #{t\ 944}#
-                                 #{t\ 944}#
-                                 (let ((#{t\ 945}# (call-with-values
-                                                     (lambda ()
-                                                       (#{search\ 907}#
-                                                         #{id\ 939}#
-                                                         (#{wrap-subst\ 132}#
-                                                           #{w1\ 940}#)
-                                                         #{marks\ 943}#))
-                                                     (lambda (#{x\ 946}#
-                                                              .
-                                                              #{ignore\ 947}#)
-                                                       #{x\ 946}#))))
-                                   (if #{t\ 945}#
-                                     #{t\ 945}#
-                                     #{id\ 939}#))))))))
+                             (#{search\ 1959}#
+                               #{id\ 2044}#
+                               (#{wrap-subst\ 269}# #{w\ 1954}#)
+                               #{marks\ 2047}#))
+                           (lambda (#{new-id\ 2048}# #{marks\ 2049}#)
+                             (let ((#{t\ 2054}# #{new-id\ 2048}#))
+                               (if #{t\ 2054}#
+                                 #{t\ 2054}#
+                                 (let ((#{t\ 2057}#
+                                         (call-with-values
+                                           (lambda ()
+                                             (#{search\ 1959}#
+                                               #{id\ 2044}#
+                                               (#{wrap-subst\ 269}#
+                                                 #{w1\ 2045}#)
+                                               #{marks\ 2049}#))
+                                           (lambda (#{x\ 2059}#
+                                                    .
+                                                    #{ignore\ 2060}#)
+                                             #{x\ 2059}#))))
+                                   (if #{t\ 2057}#
+                                     #{t\ 2057}#
+                                     #{id\ 2044}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 905}#))))))
-           (#{same-marks?\ 149}#
-             (lambda (#{x\ 948}# #{y\ 949}#)
-               (let ((#{t\ 950}# (eq? #{x\ 948}# #{y\ 949}#)))
-                 (if #{t\ 950}#
-                   #{t\ 950}#
-                   (if (not (null? #{x\ 948}#))
-                     (if (not (null? #{y\ 949}#))
-                       (if (eq? (car #{x\ 948}#) (car #{y\ 949}#))
-                         (#{same-marks?\ 149}#
-                           (cdr #{x\ 948}#)
-                           (cdr #{y\ 949}#))
+                       #{id\ 1953}#))))))
+           (#{same-marks?\ 315}#
+             (lambda (#{x\ 2065}# #{y\ 2066}#)
+               (let ((#{t\ 2071}# (eq? #{x\ 2065}# #{y\ 2066}#)))
+                 (if #{t\ 2071}#
+                   #{t\ 2071}#
+                   (if (not (null? #{x\ 2065}#))
+                     (if (not (null? #{y\ 2066}#))
+                       (if (eq? (car #{x\ 2065}#) (car #{y\ 2066}#))
+                         (#{same-marks?\ 315}#
+                           (cdr #{x\ 2065}#)
+                           (cdr #{y\ 2066}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 148}#
-             (lambda (#{m1\ 951}# #{m2\ 952}#)
-               (#{smart-append\ 146}# #{m1\ 951}# #{m2\ 952}#)))
-           (#{join-wraps\ 147}#
-             (lambda (#{w1\ 953}# #{w2\ 954}#)
-               (let ((#{m1\ 955}# (#{wrap-marks\ 131}# #{w1\ 953}#))
-                     (#{s1\ 956}# (#{wrap-subst\ 132}# #{w1\ 953}#)))
-                 (if (null? #{m1\ 955}#)
-                   (if (null? #{s1\ 956}#)
-                     #{w2\ 954}#
-                     (#{make-wrap\ 130}#
-                       (#{wrap-marks\ 131}# #{w2\ 954}#)
-                       (#{smart-append\ 146}#
-                         #{s1\ 956}#
-                         (#{wrap-subst\ 132}# #{w2\ 954}#))))
-                   (#{make-wrap\ 130}#
-                     (#{smart-append\ 146}#
-                       #{m1\ 955}#
-                       (#{wrap-marks\ 131}# #{w2\ 954}#))
-                     (#{smart-append\ 146}#
-                       #{s1\ 956}#
-                       (#{wrap-subst\ 132}# #{w2\ 954}#)))))))
-           (#{smart-append\ 146}#
-             (lambda (#{m1\ 957}# #{m2\ 958}#)
-               (if (null? #{m2\ 958}#)
-                 #{m1\ 957}#
-                 (append #{m1\ 957}# #{m2\ 958}#))))
-           (#{make-binding-wrap\ 145}#
-             (lambda (#{ids\ 959}# #{labels\ 960}# #{w\ 961}#)
-               (if (null? #{ids\ 959}#)
-                 #{w\ 961}#
-                 (#{make-wrap\ 130}#
-                   (#{wrap-marks\ 131}# #{w\ 961}#)
-                   (cons (let ((#{labelvec\ 962}#
-                                 (list->vector #{labels\ 960}#)))
-                           (let ((#{n\ 963}# (vector-length
-                                               #{labelvec\ 962}#)))
-                             (let ((#{symnamevec\ 964}#
-                                     (make-vector #{n\ 963}#))
-                                   (#{marksvec\ 965}#
-                                     (make-vector #{n\ 963}#)))
+           (#{join-marks\ 313}#
+             (lambda (#{m1\ 2077}# #{m2\ 2078}#)
+               (#{smart-append\ 309}# #{m1\ 2077}# #{m2\ 2078}#)))
+           (#{join-wraps\ 311}#
+             (lambda (#{w1\ 2081}# #{w2\ 2082}#)
+               (let ((#{m1\ 2087}# (#{wrap-marks\ 267}# #{w1\ 2081}#))
+                     (#{s1\ 2088}# (#{wrap-subst\ 269}# #{w1\ 2081}#)))
+                 (if (null? #{m1\ 2087}#)
+                   (if (null? #{s1\ 2088}#)
+                     #{w2\ 2082}#
+                     (#{make-wrap\ 265}#
+                       (#{wrap-marks\ 267}# #{w2\ 2082}#)
+                       (#{smart-append\ 309}#
+                         #{s1\ 2088}#
+                         (#{wrap-subst\ 269}# #{w2\ 2082}#))))
+                   (#{make-wrap\ 265}#
+                     (#{smart-append\ 309}#
+                       #{m1\ 2087}#
+                       (#{wrap-marks\ 267}# #{w2\ 2082}#))
+                     (#{smart-append\ 309}#
+                       #{s1\ 2088}#
+                       (#{wrap-subst\ 269}# #{w2\ 2082}#)))))))
+           (#{smart-append\ 309}#
+             (lambda (#{m1\ 2089}# #{m2\ 2090}#)
+               (if (null? #{m2\ 2090}#)
+                 #{m1\ 2089}#
+                 (append #{m1\ 2089}# #{m2\ 2090}#))))
+           (#{make-binding-wrap\ 307}#
+             (lambda (#{ids\ 2093}# #{labels\ 2094}# #{w\ 2095}#)
+               (if (null? #{ids\ 2093}#)
+                 #{w\ 2095}#
+                 (#{make-wrap\ 265}#
+                   (#{wrap-marks\ 267}# #{w\ 2095}#)
+                   (cons (let ((#{labelvec\ 2100}#
+                                 (list->vector #{labels\ 2094}#)))
+                           (let ((#{n\ 2102}#
+                                   (vector-length #{labelvec\ 2100}#)))
+                             (let ((#{symnamevec\ 2105}#
+                                     (make-vector #{n\ 2102}#))
+                                   (#{marksvec\ 2106}#
+                                     (make-vector #{n\ 2102}#)))
                                (begin
-                                 (letrec ((#{f\ 966}# (lambda (#{ids\ 967}#
-                                                               #{i\ 968}#)
-                                                        (if (not (null? #{ids\ 
967}#))
-                                                          (call-with-values
-                                                            (lambda ()
-                                                              
(#{id-sym-name&marks\ 129}#
-                                                                (car #{ids\ 
967}#)
-                                                                #{w\ 961}#))
-                                                            (lambda 
(#{symname\ 969}#
-                                                                     #{marks\ 
970}#)
-                                                              (begin
-                                                                (vector-set!
-                                                                  
#{symnamevec\ 964}#
-                                                                  #{i\ 968}#
-                                                                  #{symname\ 
969}#)
-                                                                (vector-set!
-                                                                  #{marksvec\ 
965}#
-                                                                  #{i\ 968}#
-                                                                  #{marks\ 
970}#)
-                                                                (#{f\ 966}# 
(cdr #{ids\ 967}#)
-                                                                            
(#{fx+\ 83}#
-                                                                              
#{i\ 968}#
-                                                                              
1)))))))))
-                                   (#{f\ 966}# #{ids\ 959}# 0))
-                                 (#{make-ribcage\ 135}#
-                                   #{symnamevec\ 964}#
-                                   #{marksvec\ 965}#
-                                   #{labelvec\ 962}#)))))
-                         (#{wrap-subst\ 132}# #{w\ 961}#))))))
-           (#{extend-ribcage!\ 144}#
-             (lambda (#{ribcage\ 971}# #{id\ 972}# #{label\ 973}#)
+                                 (letrec ((#{f\ 2110}#
+                                            (lambda (#{ids\ 2111}# #{i\ 2112}#)
+                                              (if (not (null? #{ids\ 2111}#))
+                                                (call-with-values
+                                                  (lambda ()
+                                                    (#{id-sym-name&marks\ 263}#
+                                                      (car #{ids\ 2111}#)
+                                                      #{w\ 2095}#))
+                                                  (lambda (#{symname\ 2113}#
+                                                           #{marks\ 2114}#)
+                                                    (begin
+                                                      (vector-set!
+                                                        #{symnamevec\ 2105}#
+                                                        #{i\ 2112}#
+                                                        #{symname\ 2113}#)
+                                                      (vector-set!
+                                                        #{marksvec\ 2106}#
+                                                        #{i\ 2112}#
+                                                        #{marks\ 2114}#)
+                                                      (#{f\ 2110}#
+                                                        (cdr #{ids\ 2111}#)
+                                                        (#{fx+\ 163}#
+                                                          #{i\ 2112}#
+                                                          1)))))))))
+                                   (#{f\ 2110}# #{ids\ 2093}# 0))
+                                 (#{make-ribcage\ 281}#
+                                   #{symnamevec\ 2105}#
+                                   #{marksvec\ 2106}#
+                                   #{labelvec\ 2100}#)))))
+                         (#{wrap-subst\ 269}# #{w\ 2095}#))))))
+           (#{extend-ribcage!\ 305}#
+             (lambda (#{ribcage\ 2117}# #{id\ 2118}# #{label\ 2119}#)
                (begin
-                 (#{set-ribcage-symnames!\ 140}#
-                   #{ribcage\ 971}#
-                   (cons (#{syntax-object-expression\ 113}# #{id\ 972}#)
-                         (#{ribcage-symnames\ 137}# #{ribcage\ 971}#)))
-                 (#{set-ribcage-marks!\ 141}#
-                   #{ribcage\ 971}#
-                   (cons (#{wrap-marks\ 131}#
-                           (#{syntax-object-wrap\ 114}# #{id\ 972}#))
-                         (#{ribcage-marks\ 138}# #{ribcage\ 971}#)))
-                 (#{set-ribcage-labels!\ 142}#
-                   #{ribcage\ 971}#
-                   (cons #{label\ 973}#
-                         (#{ribcage-labels\ 139}# #{ribcage\ 971}#))))))
-           (#{anti-mark\ 143}#
-             (lambda (#{w\ 974}#)
-               (#{make-wrap\ 130}#
-                 (cons #f (#{wrap-marks\ 131}# #{w\ 974}#))
+                 (#{set-ribcage-symnames!\ 291}#
+                   #{ribcage\ 2117}#
+                   (cons (#{syntax-object-expression\ 226}# #{id\ 2118}#)
+                         (#{ribcage-symnames\ 285}# #{ribcage\ 2117}#)))
+                 (#{set-ribcage-marks!\ 293}#
+                   #{ribcage\ 2117}#
+                   (cons (#{wrap-marks\ 267}#
+                           (#{syntax-object-wrap\ 228}# #{id\ 2118}#))
+                         (#{ribcage-marks\ 287}# #{ribcage\ 2117}#)))
+                 (#{set-ribcage-labels!\ 295}#
+                   #{ribcage\ 2117}#
+                   (cons #{label\ 2119}#
+                         (#{ribcage-labels\ 289}# #{ribcage\ 2117}#))))))
+           (#{anti-mark\ 301}#
+             (lambda (#{w\ 2123}#)
+               (#{make-wrap\ 265}#
+                 (cons #f (#{wrap-marks\ 267}# #{w\ 2123}#))
                  (cons 'shift
-                       (#{wrap-subst\ 132}# #{w\ 974}#)))))
-           (#{set-ribcage-labels!\ 142}#
-             (lambda (#{x\ 975}# #{update\ 976}#)
-               (vector-set! #{x\ 975}# 3 #{update\ 976}#)))
-           (#{set-ribcage-marks!\ 141}#
-             (lambda (#{x\ 977}# #{update\ 978}#)
-               (vector-set! #{x\ 977}# 2 #{update\ 978}#)))
-           (#{set-ribcage-symnames!\ 140}#
-             (lambda (#{x\ 979}# #{update\ 980}#)
-               (vector-set! #{x\ 979}# 1 #{update\ 980}#)))
-           (#{ribcage-labels\ 139}#
-             (lambda (#{x\ 981}#) (vector-ref #{x\ 981}# 3)))
-           (#{ribcage-marks\ 138}#
-             (lambda (#{x\ 982}#) (vector-ref #{x\ 982}# 2)))
-           (#{ribcage-symnames\ 137}#
-             (lambda (#{x\ 983}#) (vector-ref #{x\ 983}# 1)))
-           (#{ribcage?\ 136}#
-             (lambda (#{x\ 984}#)
-               (if (vector? #{x\ 984}#)
-                 (if (= (vector-length #{x\ 984}#) 4)
-                   (eq? (vector-ref #{x\ 984}# 0) (quote ribcage))
+                       (#{wrap-subst\ 269}# #{w\ 2123}#)))))
+           (#{set-ribcage-labels!\ 295}#
+             (lambda (#{x\ 2126}# #{update\ 2127}#)
+               (vector-set! #{x\ 2126}# 3 #{update\ 2127}#)))
+           (#{set-ribcage-marks!\ 293}#
+             (lambda (#{x\ 2130}# #{update\ 2131}#)
+               (vector-set! #{x\ 2130}# 2 #{update\ 2131}#)))
+           (#{set-ribcage-symnames!\ 291}#
+             (lambda (#{x\ 2134}# #{update\ 2135}#)
+               (vector-set! #{x\ 2134}# 1 #{update\ 2135}#)))
+           (#{ribcage-labels\ 289}#
+             (lambda (#{x\ 2138}#) (vector-ref #{x\ 2138}# 3)))
+           (#{ribcage-marks\ 287}#
+             (lambda (#{x\ 2140}#) (vector-ref #{x\ 2140}# 2)))
+           (#{ribcage-symnames\ 285}#
+             (lambda (#{x\ 2142}#) (vector-ref #{x\ 2142}# 1)))
+           (#{ribcage?\ 283}#
+             (lambda (#{x\ 2144}#)
+               (if (vector? #{x\ 2144}#)
+                 (if (= (vector-length #{x\ 2144}#) 4)
+                   (eq? (vector-ref #{x\ 2144}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 135}#
-             (lambda (#{symnames\ 985}#
-                      #{marks\ 986}#
-                      #{labels\ 987}#)
+           (#{make-ribcage\ 281}#
+             (lambda (#{symnames\ 2149}#
+                      #{marks\ 2150}#
+                      #{labels\ 2151}#)
                (vector
                  'ribcage
-                 #{symnames\ 985}#
-                 #{marks\ 986}#
-                 #{labels\ 987}#)))
-           (#{gen-labels\ 134}#
-             (lambda (#{ls\ 988}#)
-               (if (null? #{ls\ 988}#)
+                 #{symnames\ 2149}#
+                 #{marks\ 2150}#
+                 #{labels\ 2151}#)))
+           (#{gen-labels\ 278}#
+             (lambda (#{ls\ 2155}#)
+               (if (null? #{ls\ 2155}#)
                  '()
-                 (cons (#{gen-label\ 133}#)
-                       (#{gen-labels\ 134}# (cdr #{ls\ 988}#))))))
-           (#{gen-label\ 133}#
+                 (cons (#{gen-label\ 276}#)
+                       (#{gen-labels\ 278}# (cdr #{ls\ 2155}#))))))
+           (#{gen-label\ 276}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{wrap-subst\ 132}# cdr)
-           (#{wrap-marks\ 131}# car)
-           (#{make-wrap\ 130}# cons)
-           (#{id-sym-name&marks\ 129}#
-             (lambda (#{x\ 989}# #{w\ 990}#)
-               (if (#{syntax-object?\ 112}# #{x\ 989}#)
+           (#{wrap-subst\ 269}# cdr)
+           (#{wrap-marks\ 267}# car)
+           (#{make-wrap\ 265}# cons)
+           (#{id-sym-name&marks\ 263}#
+             (lambda (#{x\ 2157}# #{w\ 2158}#)
+               (if (#{syntax-object?\ 224}# #{x\ 2157}#)
                  (values
-                   (#{syntax-object-expression\ 113}# #{x\ 989}#)
-                   (#{join-marks\ 148}#
-                     (#{wrap-marks\ 131}# #{w\ 990}#)
-                     (#{wrap-marks\ 131}#
-                       (#{syntax-object-wrap\ 114}# #{x\ 989}#))))
+                   (#{syntax-object-expression\ 226}# #{x\ 2157}#)
+                   (#{join-marks\ 313}#
+                     (#{wrap-marks\ 267}# #{w\ 2158}#)
+                     (#{wrap-marks\ 267}#
+                       (#{syntax-object-wrap\ 228}# #{x\ 2157}#))))
                  (values
-                   #{x\ 989}#
-                   (#{wrap-marks\ 131}# #{w\ 990}#)))))
-           (#{id?\ 128}#
-             (lambda (#{x\ 991}#)
-               (if (symbol? #{x\ 991}#)
+                   #{x\ 2157}#
+                   (#{wrap-marks\ 267}# #{w\ 2158}#)))))
+           (#{id?\ 260}#
+             (lambda (#{x\ 2161}#)
+               (if (symbol? #{x\ 2161}#)
                  #t
-                 (if (#{syntax-object?\ 112}# #{x\ 991}#)
+                 (if (#{syntax-object?\ 224}# #{x\ 2161}#)
                    (symbol?
-                     (#{syntax-object-expression\ 113}# #{x\ 991}#))
+                     (#{syntax-object-expression\ 226}# #{x\ 2161}#))
                    #f))))
-           (#{nonsymbol-id?\ 127}#
-             (lambda (#{x\ 992}#)
-               (if (#{syntax-object?\ 112}# #{x\ 992}#)
+           (#{nonsymbol-id?\ 258}#
+             (lambda (#{x\ 2168}#)
+               (if (#{syntax-object?\ 224}# #{x\ 2168}#)
                  (symbol?
-                   (#{syntax-object-expression\ 113}# #{x\ 992}#))
+                   (#{syntax-object-expression\ 226}# #{x\ 2168}#))
                  #f)))
-           (#{global-extend\ 126}#
-             (lambda (#{type\ 993}# #{sym\ 994}# #{val\ 995}#)
-               (#{put-global-definition-hook\ 89}#
-                 #{sym\ 994}#
-                 #{type\ 993}#
-                 #{val\ 995}#)))
-           (#{lookup\ 125}#
-             (lambda (#{x\ 996}# #{r\ 997}# #{mod\ 998}#)
-               (let ((#{t\ 999}# (assq #{x\ 996}# #{r\ 997}#)))
-                 (if #{t\ 999}#
-                   (cdr #{t\ 999}#)
-                   (if (symbol? #{x\ 996}#)
-                     (let ((#{t\ 1000}#
-                             (#{get-global-definition-hook\ 90}#
-                               #{x\ 996}#
-                               #{mod\ 998}#)))
-                       (if #{t\ 1000}# #{t\ 1000}# (quote (global))))
+           (#{global-extend\ 256}#
+             (lambda (#{type\ 2172}# #{sym\ 2173}# #{val\ 2174}#)
+               (#{put-global-definition-hook\ 176}#
+                 #{sym\ 2173}#
+                 #{type\ 2172}#
+                 #{val\ 2174}#)))
+           (#{lookup\ 254}#
+             (lambda (#{x\ 2178}# #{r\ 2179}# #{mod\ 2180}#)
+               (let ((#{t\ 2186}# (assq #{x\ 2178}# #{r\ 2179}#)))
+                 (if #{t\ 2186}#
+                   (cdr #{t\ 2186}#)
+                   (if (symbol? #{x\ 2178}#)
+                     (let ((#{t\ 2192}#
+                             (#{get-global-definition-hook\ 178}#
+                               #{x\ 2178}#
+                               #{mod\ 2180}#)))
+                       (if #{t\ 2192}# #{t\ 2192}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 124}#
-             (lambda (#{r\ 1001}#)
-               (if (null? #{r\ 1001}#)
+           (#{macros-only-env\ 252}#
+             (lambda (#{r\ 2197}#)
+               (if (null? #{r\ 2197}#)
                  '()
-                 (let ((#{a\ 1002}# (car #{r\ 1001}#)))
-                   (if (eq? (cadr #{a\ 1002}#) (quote macro))
-                     (cons #{a\ 1002}#
-                           (#{macros-only-env\ 124}# (cdr #{r\ 1001}#)))
-                     (#{macros-only-env\ 124}# (cdr #{r\ 1001}#)))))))
-           (#{extend-var-env\ 123}#
-             (lambda (#{labels\ 1003}# #{vars\ 1004}# #{r\ 1005}#)
-               (if (null? #{labels\ 1003}#)
-                 #{r\ 1005}#
-                 (#{extend-var-env\ 123}#
-                   (cdr #{labels\ 1003}#)
-                   (cdr #{vars\ 1004}#)
-                   (cons (cons (car #{labels\ 1003}#)
-                               (cons (quote lexical) (car #{vars\ 1004}#)))
-                         #{r\ 1005}#)))))
-           (#{extend-env\ 122}#
-             (lambda (#{labels\ 1006}# #{bindings\ 1007}# #{r\ 1008}#)
-               (if (null? #{labels\ 1006}#)
-                 #{r\ 1008}#
-                 (#{extend-env\ 122}#
-                   (cdr #{labels\ 1006}#)
-                   (cdr #{bindings\ 1007}#)
-                   (cons (cons (car #{labels\ 1006}#)
-                               (car #{bindings\ 1007}#))
-                         #{r\ 1008}#)))))
-           (#{binding-value\ 121}# cdr)
-           (#{binding-type\ 120}# car)
-           (#{source-annotation\ 119}#
-             (lambda (#{x\ 1009}#)
-               (if (#{syntax-object?\ 112}# #{x\ 1009}#)
-                 (#{source-annotation\ 119}#
-                   (#{syntax-object-expression\ 113}# #{x\ 1009}#))
-                 (if (pair? #{x\ 1009}#)
-                   (let ((#{props\ 1010}# (source-properties #{x\ 1009}#)))
-                     (if (pair? #{props\ 1010}#) #{props\ 1010}# #f))
+                 (let ((#{a\ 2200}# (car #{r\ 2197}#)))
+                   (if (eq? (cadr #{a\ 2200}#) (quote macro))
+                     (cons #{a\ 2200}#
+                           (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))
+                     (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))))))
+           (#{extend-var-env\ 250}#
+             (lambda (#{labels\ 2201}# #{vars\ 2202}# #{r\ 2203}#)
+               (if (null? #{labels\ 2201}#)
+                 #{r\ 2203}#
+                 (#{extend-var-env\ 250}#
+                   (cdr #{labels\ 2201}#)
+                   (cdr #{vars\ 2202}#)
+                   (cons (cons (car #{labels\ 2201}#)
+                               (cons (quote lexical) (car #{vars\ 2202}#)))
+                         #{r\ 2203}#)))))
+           (#{extend-env\ 248}#
+             (lambda (#{labels\ 2208}# #{bindings\ 2209}# #{r\ 2210}#)
+               (if (null? #{labels\ 2208}#)
+                 #{r\ 2210}#
+                 (#{extend-env\ 248}#
+                   (cdr #{labels\ 2208}#)
+                   (cdr #{bindings\ 2209}#)
+                   (cons (cons (car #{labels\ 2208}#)
+                               (car #{bindings\ 2209}#))
+                         #{r\ 2210}#)))))
+           (#{binding-value\ 245}# cdr)
+           (#{binding-type\ 243}# car)
+           (#{source-annotation\ 239}#
+             (lambda (#{x\ 2214}#)
+               (if (#{syntax-object?\ 224}# #{x\ 2214}#)
+                 (#{source-annotation\ 239}#
+                   (#{syntax-object-expression\ 226}# #{x\ 2214}#))
+                 (if (pair? #{x\ 2214}#)
+                   (let ((#{props\ 2221}# (source-properties #{x\ 2214}#)))
+                     (if (pair? #{props\ 2221}#) #{props\ 2221}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 118}#
-             (lambda (#{x\ 1011}# #{update\ 1012}#)
-               (vector-set! #{x\ 1011}# 3 #{update\ 1012}#)))
-           (#{set-syntax-object-wrap!\ 117}#
-             (lambda (#{x\ 1013}# #{update\ 1014}#)
-               (vector-set! #{x\ 1013}# 2 #{update\ 1014}#)))
-           (#{set-syntax-object-expression!\ 116}#
-             (lambda (#{x\ 1015}# #{update\ 1016}#)
-               (vector-set! #{x\ 1015}# 1 #{update\ 1016}#)))
-           (#{syntax-object-module\ 115}#
-             (lambda (#{x\ 1017}#) (vector-ref #{x\ 1017}# 3)))
-           (#{syntax-object-wrap\ 114}#
-             (lambda (#{x\ 1018}#) (vector-ref #{x\ 1018}# 2)))
-           (#{syntax-object-expression\ 113}#
-             (lambda (#{x\ 1019}#) (vector-ref #{x\ 1019}# 1)))
-           (#{syntax-object?\ 112}#
-             (lambda (#{x\ 1020}#)
-               (if (vector? #{x\ 1020}#)
-                 (if (= (vector-length #{x\ 1020}#) 4)
-                   (eq? (vector-ref #{x\ 1020}# 0)
+           (#{set-syntax-object-module!\ 236}#
+             (lambda (#{x\ 2223}# #{update\ 2224}#)
+               (vector-set! #{x\ 2223}# 3 #{update\ 2224}#)))
+           (#{set-syntax-object-wrap!\ 234}#
+             (lambda (#{x\ 2227}# #{update\ 2228}#)
+               (vector-set! #{x\ 2227}# 2 #{update\ 2228}#)))
+           (#{set-syntax-object-expression!\ 232}#
+             (lambda (#{x\ 2231}# #{update\ 2232}#)
+               (vector-set! #{x\ 2231}# 1 #{update\ 2232}#)))
+           (#{syntax-object-module\ 230}#
+             (lambda (#{x\ 2235}#) (vector-ref #{x\ 2235}# 3)))
+           (#{syntax-object-wrap\ 228}#
+             (lambda (#{x\ 2237}#) (vector-ref #{x\ 2237}# 2)))
+           (#{syntax-object-expression\ 226}#
+             (lambda (#{x\ 2239}#) (vector-ref #{x\ 2239}# 1)))
+           (#{syntax-object?\ 224}#
+             (lambda (#{x\ 2241}#)
+               (if (vector? #{x\ 2241}#)
+                 (if (= (vector-length #{x\ 2241}#) 4)
+                   (eq? (vector-ref #{x\ 2241}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 111}#
-             (lambda (#{expression\ 1021}#
-                      #{wrap\ 1022}#
-                      #{module\ 1023}#)
+           (#{make-syntax-object\ 222}#
+             (lambda (#{expression\ 2246}#
+                      #{wrap\ 2247}#
+                      #{module\ 2248}#)
                (vector
                  'syntax-object
-                 #{expression\ 1021}#
-                 #{wrap\ 1022}#
-                 #{module\ 1023}#)))
-           (#{build-letrec\ 110}#
-             (lambda (#{src\ 1024}#
-                      #{ids\ 1025}#
-                      #{vars\ 1026}#
-                      #{val-exps\ 1027}#
-                      #{body-exp\ 1028}#)
-               (if (null? #{vars\ 1026}#)
-                 #{body-exp\ 1028}#
-                 (let ((#{atom-key\ 1029}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1029}# (quote (c)))
+                 #{expression\ 2246}#
+                 #{wrap\ 2247}#
+                 #{module\ 2248}#)))
+           (#{build-letrec\ 218}#
+             (lambda (#{src\ 2252}#
+                      #{ids\ 2253}#
+                      #{vars\ 2254}#
+                      #{val-exps\ 2255}#
+                      #{body-exp\ 2256}#)
+               (if (null? #{vars\ 2254}#)
+                 #{body-exp\ 2256}#
+                 (let ((#{atom-key\ 2264}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2264}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 100}#
-                         #{ids\ 1025}#
-                         #{val-exps\ 1027}#)
+                         #{maybe-name-value!\ 198}#
+                         #{ids\ 2253}#
+                         #{val-exps\ 2255}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 1024}#
-                        #{ids\ 1025}#
-                        #{vars\ 1026}#
-                        #{val-exps\ 1027}#
-                        #{body-exp\ 1028}#))
-                     (#{decorate-source\ 91}#
+                        #{src\ 2252}#
+                        #{ids\ 2253}#
+                        #{vars\ 2254}#
+                        #{val-exps\ 2255}#
+                        #{body-exp\ 2256}#))
+                     (#{decorate-source\ 180}#
                        (list 'letrec
-                             (map list #{vars\ 1026}# #{val-exps\ 1027}#)
-                             #{body-exp\ 1028}#)
-                       #{src\ 1024}#))))))
-           (#{build-named-let\ 109}#
-             (lambda (#{src\ 1030}#
-                      #{ids\ 1031}#
-                      #{vars\ 1032}#
-                      #{val-exps\ 1033}#
-                      #{body-exp\ 1034}#)
-               (let ((#{f\ 1035}# (car #{vars\ 1032}#))
-                     (#{f-name\ 1036}# (car #{ids\ 1031}#))
-                     (#{vars\ 1037}# (cdr #{vars\ 1032}#))
-                     (#{ids\ 1038}# (cdr #{ids\ 1031}#)))
-                 (let ((#{atom-key\ 1039}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1039}# (quote (c)))
-                     (let ((#{proc\ 1040}#
-                             (#{build-simple-lambda\ 102}#
-                               #{src\ 1030}#
-                               #{ids\ 1038}#
+                             (map list #{vars\ 2254}# #{val-exps\ 2255}#)
+                             #{body-exp\ 2256}#)
+                       #{src\ 2252}#))))))
+           (#{build-named-let\ 216}#
+             (lambda (#{src\ 2268}#
+                      #{ids\ 2269}#
+                      #{vars\ 2270}#
+                      #{val-exps\ 2271}#
+                      #{body-exp\ 2272}#)
+               (let ((#{f\ 2282}# (car #{vars\ 2270}#))
+                     (#{f-name\ 2283}# (car #{ids\ 2269}#))
+                     (#{vars\ 2284}# (cdr #{vars\ 2270}#))
+                     (#{ids\ 2285}# (cdr #{ids\ 2269}#)))
+                 (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2288}# (quote (c)))
+                     (let ((#{proc\ 2291}#
+                             (#{build-simple-lambda\ 202}#
+                               #{src\ 2268}#
+                               #{ids\ 2285}#
                                #f
-                               #{vars\ 1037}#
+                               #{vars\ 2284}#
                                #f
-                               #{body-exp\ 1034}#)))
+                               #{body-exp\ 2272}#)))
                        (begin
-                         (#{maybe-name-value!\ 100}#
-                           #{f-name\ 1036}#
-                           #{proc\ 1040}#)
+                         (#{maybe-name-value!\ 198}#
+                           #{f-name\ 2283}#
+                           #{proc\ 2291}#)
                          (for-each
-                           #{maybe-name-value!\ 100}#
-                           #{ids\ 1038}#
-                           #{val-exps\ 1033}#)
+                           #{maybe-name-value!\ 198}#
+                           #{ids\ 2285}#
+                           #{val-exps\ 2271}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 1030}#
-                          (list #{f-name\ 1036}#)
-                          (list #{f\ 1035}#)
-                          (list #{proc\ 1040}#)
-                          (#{build-application\ 93}#
-                            #{src\ 1030}#
-                            (#{build-lexical-reference\ 95}#
+                          #{src\ 2268}#
+                          (list #{f-name\ 2283}#)
+                          (list #{f\ 2282}#)
+                          (list #{proc\ 2291}#)
+                          (#{build-application\ 184}#
+                            #{src\ 2268}#
+                            (#{build-lexical-reference\ 188}#
                               'fun
-                              #{src\ 1030}#
-                              #{f-name\ 1036}#
-                              #{f\ 1035}#)
-                            #{val-exps\ 1033}#))))
-                     (#{decorate-source\ 91}#
+                              #{src\ 2268}#
+                              #{f-name\ 2283}#
+                              #{f\ 2282}#)
+                            #{val-exps\ 2271}#))))
+                     (#{decorate-source\ 180}#
                        (list 'letrec
-                             (list (list #{f\ 1035}#
+                             (list (list #{f\ 2282}#
                                          (list 'lambda
-                                               #{vars\ 1037}#
-                                               #{body-exp\ 1034}#)))
-                             (cons #{f\ 1035}# #{val-exps\ 1033}#))
-                       #{src\ 1030}#))))))
-           (#{build-let\ 108}#
-             (lambda (#{src\ 1041}#
-                      #{ids\ 1042}#
-                      #{vars\ 1043}#
-                      #{val-exps\ 1044}#
-                      #{body-exp\ 1045}#)
-               (if (null? #{vars\ 1043}#)
-                 #{body-exp\ 1045}#
-                 (let ((#{atom-key\ 1046}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1046}# (quote (c)))
+                                               #{vars\ 2284}#
+                                               #{body-exp\ 2272}#)))
+                             (cons #{f\ 2282}# #{val-exps\ 2271}#))
+                       #{src\ 2268}#))))))
+           (#{build-let\ 214}#
+             (lambda (#{src\ 2294}#
+                      #{ids\ 2295}#
+                      #{vars\ 2296}#
+                      #{val-exps\ 2297}#
+                      #{body-exp\ 2298}#)
+               (if (null? #{vars\ 2296}#)
+                 #{body-exp\ 2298}#
+                 (let ((#{atom-key\ 2306}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2306}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 100}#
-                         #{ids\ 1042}#
-                         #{val-exps\ 1044}#)
+                         #{maybe-name-value!\ 198}#
+                         #{ids\ 2295}#
+                         #{val-exps\ 2297}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 1041}#
-                        #{ids\ 1042}#
-                        #{vars\ 1043}#
-                        #{val-exps\ 1044}#
-                        #{body-exp\ 1045}#))
-                     (#{decorate-source\ 91}#
+                        #{src\ 2294}#
+                        #{ids\ 2295}#
+                        #{vars\ 2296}#
+                        #{val-exps\ 2297}#
+                        #{body-exp\ 2298}#))
+                     (#{decorate-source\ 180}#
                        (list 'let
-                             (map list #{vars\ 1043}# #{val-exps\ 1044}#)
-                             #{body-exp\ 1045}#)
-                       #{src\ 1041}#))))))
-           (#{build-sequence\ 107}#
-             (lambda (#{src\ 1047}# #{exps\ 1048}#)
-               (if (null? (cdr #{exps\ 1048}#))
-                 (car #{exps\ 1048}#)
-                 (let ((#{atom-key\ 1049}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1049}# (quote (c)))
+                             (map list #{vars\ 2296}# #{val-exps\ 2297}#)
+                             #{body-exp\ 2298}#)
+                       #{src\ 2294}#))))))
+           (#{build-sequence\ 212}#
+             (lambda (#{src\ 2310}# #{exps\ 2311}#)
+               (if (null? (cdr #{exps\ 2311}#))
+                 (car #{exps\ 2311}#)
+                 (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2316}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{src\ 1047}#
-                      #{exps\ 1048}#)
-                     (#{decorate-source\ 91}#
-                       (cons (quote begin) #{exps\ 1048}#)
-                       #{src\ 1047}#))))))
-           (#{build-data\ 106}#
-             (lambda (#{src\ 1050}# #{exp\ 1051}#)
-               (let ((#{atom-key\ 1052}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1052}# (quote (c)))
+                      #{src\ 2310}#
+                      #{exps\ 2311}#)
+                     (#{decorate-source\ 180}#
+                       (cons (quote begin) #{exps\ 2311}#)
+                       #{src\ 2310}#))))))
+           (#{build-data\ 210}#
+             (lambda (#{src\ 2320}# #{exp\ 2321}#)
+               (let ((#{atom-key\ 2326}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2326}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 1050}#
-                    #{exp\ 1051}#)
-                   (#{decorate-source\ 91}#
-                     (if (if (self-evaluating? #{exp\ 1051}#)
-                           (not (vector? #{exp\ 1051}#))
+                    #{src\ 2320}#
+                    #{exp\ 2321}#)
+                   (#{decorate-source\ 180}#
+                     (if (if (self-evaluating? #{exp\ 2321}#)
+                           (not (vector? #{exp\ 2321}#))
                            #f)
-                       #{exp\ 1051}#
-                       (list (quote quote) #{exp\ 1051}#))
-                     #{src\ 1050}#)))))
-           (#{build-primref\ 105}#
-             (lambda (#{src\ 1053}# #{name\ 1054}#)
+                       #{exp\ 2321}#
+                       (list (quote quote) #{exp\ 2321}#))
+                     #{src\ 2320}#)))))
+           (#{build-primref\ 208}#
+             (lambda (#{src\ 2331}# #{name\ 2332}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 1055}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1055}# (quote (c)))
+                 (let ((#{atom-key\ 2337}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2337}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{src\ 1053}#
-                      #{name\ 1054}#)
-                     (#{decorate-source\ 91}#
-                       #{name\ 1054}#
-                       #{src\ 1053}#)))
-                 (let ((#{atom-key\ 1056}# (fluid-ref #{*mode*\ 82}#)))
-                   (if (memv #{atom-key\ 1056}# (quote (c)))
+                      #{src\ 2331}#
+                      #{name\ 2332}#)
+                     (#{decorate-source\ 180}#
+                       #{name\ 2332}#
+                       #{src\ 2331}#)))
+                 (let ((#{atom-key\ 2342}# (fluid-ref #{*mode*\ 161}#)))
+                   (if (memv #{atom-key\ 2342}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 1053}#
+                      #{src\ 2331}#
                       '(guile)
-                      #{name\ 1054}#
+                      #{name\ 2332}#
                       #f)
-                     (#{decorate-source\ 91}#
-                       (list (quote @@) (quote (guile)) #{name\ 1054}#)
-                       #{src\ 1053}#))))))
-           (#{build-lambda-case\ 104}#
-             (lambda (#{src\ 1057}#
-                      #{req\ 1058}#
-                      #{opt\ 1059}#
-                      #{rest\ 1060}#
-                      #{kw\ 1061}#
-                      #{inits\ 1062}#
-                      #{vars\ 1063}#
-                      #{body\ 1064}#
-                      #{else-case\ 1065}#)
-               (let ((#{atom-key\ 1066}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1066}# (quote (c)))
+                     (#{decorate-source\ 180}#
+                       (list (quote @@) (quote (guile)) #{name\ 2332}#)
+                       #{src\ 2331}#))))))
+           (#{build-lambda-case\ 206}#
+             (lambda (#{src\ 2346}#
+                      #{req\ 2347}#
+                      #{opt\ 2348}#
+                      #{rest\ 2349}#
+                      #{kw\ 2350}#
+                      #{inits\ 2351}#
+                      #{vars\ 2352}#
+                      #{body\ 2353}#
+                      #{else-case\ 2354}#)
+               (let ((#{atom-key\ 2366}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2366}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{src\ 1057}#
-                    #{req\ 1058}#
-                    #{opt\ 1059}#
-                    #{rest\ 1060}#
-                    #{kw\ 1061}#
-                    #{inits\ 1062}#
-                    #{vars\ 1063}#
-                    #{body\ 1064}#
-                    #{else-case\ 1065}#)
-                   (let ((#{nreq\ 1067}# (length #{req\ 1058}#)))
-                     (let ((#{nopt\ 1068}#
-                             (if #{opt\ 1059}# (length #{opt\ 1059}#) 0)))
-                       (let ((#{rest-idx\ 1069}#
-                               (if #{rest\ 1060}#
-                                 (+ #{nreq\ 1067}# #{nopt\ 1068}#)
+                    #{src\ 2346}#
+                    #{req\ 2347}#
+                    #{opt\ 2348}#
+                    #{rest\ 2349}#
+                    #{kw\ 2350}#
+                    #{inits\ 2351}#
+                    #{vars\ 2352}#
+                    #{body\ 2353}#
+                    #{else-case\ 2354}#)
+                   (let ((#{nreq\ 2371}# (length #{req\ 2347}#)))
+                     (let ((#{nopt\ 2373}#
+                             (if #{opt\ 2348}# (length #{opt\ 2348}#) 0)))
+                       (let ((#{rest-idx\ 2375}#
+                               (if #{rest\ 2349}#
+                                 (+ #{nreq\ 2371}# #{nopt\ 2373}#)
                                  #f)))
-                         (let ((#{allow-other-keys?\ 1070}#
-                                 (if #{kw\ 1061}# (car #{kw\ 1061}#) #f)))
-                           (let ((#{kw-indices\ 1071}#
-                                   (map (lambda (#{x\ 1072}#)
-                                          (cons (car #{x\ 1072}#)
+                         (let ((#{allow-other-keys?\ 2379}#
+                                 (if #{kw\ 2350}# (car #{kw\ 2350}#) #f)))
+                           (let ((#{kw-indices\ 2381}#
+                                   (map (lambda (#{x\ 2382}#)
+                                          (cons (car #{x\ 2382}#)
                                                 (list-index
-                                                  #{vars\ 1063}#
-                                                  (caddr #{x\ 1072}#))))
-                                        (if #{kw\ 1061}#
-                                          (cdr #{kw\ 1061}#)
+                                                  #{vars\ 2352}#
+                                                  (caddr #{x\ 2382}#))))
+                                        (if #{kw\ 2350}#
+                                          (cdr #{kw\ 2350}#)
                                           '()))))
-                             (let ((#{nargs\ 1073}#
+                             (let ((#{nargs\ 2385}#
                                      (apply max
-                                            (+ #{nreq\ 1067}#
-                                               #{nopt\ 1068}#
-                                               (if #{rest\ 1060}# 1 0))
+                                            (+ #{nreq\ 2371}#
+                                               #{nopt\ 2373}#
+                                               (if #{rest\ 2349}# 1 0))
                                             (map 1+
                                                  (map cdr
-                                                      #{kw-indices\ 1071}#)))))
+                                                      #{kw-indices\ 2381}#)))))
                                (begin
-                                 (let ((#{t\ 1074}#
-                                         (= #{nargs\ 1073}#
-                                            (length #{vars\ 1063}#)
-                                            (+ #{nreq\ 1067}#
-                                               (length #{inits\ 1062}#)
-                                               (if #{rest\ 1060}# 1 0)))))
-                                   (if #{t\ 1074}#
-                                     #{t\ 1074}#
+                                 (let ((#{t\ 2388}#
+                                         (= #{nargs\ 2385}#
+                                            (length #{vars\ 2352}#)
+                                            (+ #{nreq\ 2371}#
+                                               (length #{inits\ 2351}#)
+                                               (if #{rest\ 2349}# 1 0)))))
+                                   (if #{t\ 2388}#
+                                     #{t\ 2388}#
                                      (error "something went wrong"
-                                            #{req\ 1058}#
-                                            #{opt\ 1059}#
-                                            #{rest\ 1060}#
-                                            #{kw\ 1061}#
-                                            #{inits\ 1062}#
-                                            #{vars\ 1063}#
-                                            #{nreq\ 1067}#
-                                            #{nopt\ 1068}#
-                                            #{kw-indices\ 1071}#
-                                            #{nargs\ 1073}#)))
-                                 (#{decorate-source\ 91}#
+                                            #{req\ 2347}#
+                                            #{opt\ 2348}#
+                                            #{rest\ 2349}#
+                                            #{kw\ 2350}#
+                                            #{inits\ 2351}#
+                                            #{vars\ 2352}#
+                                            #{nreq\ 2371}#
+                                            #{nopt\ 2373}#
+                                            #{kw-indices\ 2381}#
+                                            #{nargs\ 2385}#)))
+                                 (#{decorate-source\ 180}#
                                    (cons (list (cons '(@@ (ice-9 optargs)
                                                           parse-lambda-case)
                                                      (cons (list 'quote
-                                                                 (list #{nreq\ 
1067}#
-                                                                       #{nopt\ 
1068}#
-                                                                       
#{rest-idx\ 1069}#
-                                                                       
#{nargs\ 1073}#
-                                                                       
#{allow-other-keys?\ 1070}#
-                                                                       
#{kw-indices\ 1071}#))
+                                                                 (list #{nreq\ 
2371}#
+                                                                       #{nopt\ 
2373}#
+                                                                       
#{rest-idx\ 2375}#
+                                                                       
#{nargs\ 2385}#
+                                                                       
#{allow-other-keys?\ 2379}#
+                                                                       
#{kw-indices\ 2381}#))
                                                            (cons (cons 'list
-                                                                       (map 
(lambda (#{i\ 1075}#)
+                                                                       (map 
(lambda (#{i\ 2391}#)
                                                                               
(list 'lambda
-                                                                               
     #{vars\ 1063}#
-                                                                               
     #{i\ 1075}#))
-                                                                            
#{inits\ 1062}#))
+                                                                               
     #{vars\ 2352}#
+                                                                               
     #{i\ 2391}#))
+                                                                            
#{inits\ 2351}#))
                                                                  '(%%args))))
                                                '=>
                                                (list 'lambda
-                                                     '(%%%args . _)
+                                                     '(%%args)
                                                      (cons 'apply
                                                            (cons (list 'lambda
-                                                                       #{vars\ 
1063}#
-                                                                       #{body\ 
1064}#)
-                                                                 '(%%%args)))))
-                                         (let ((#{t\ 1076}#
-                                                 #{else-case\ 1065}#))
-                                           (if #{t\ 1076}#
-                                             #{t\ 1076}#
+                                                                       #{vars\ 
2352}#
+                                                                       #{body\ 
2353}#)
+                                                                 '(%%args)))))
+                                         (let ((#{t\ 2396}#
+                                                 #{else-case\ 2354}#))
+                                           (if #{t\ 2396}#
+                                             #{t\ 2396}#
                                              '((%%args
-                                                 (error "wrong number of 
arguments"
-                                                        %%args))))))
-                                   #{src\ 1057}#))))))))))))
-           (#{build-case-lambda\ 103}#
-             (lambda (#{src\ 1077}#
-                      #{docstring\ 1078}#
-                      #{body\ 1079}#)
-               (let ((#{atom-key\ 1080}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1080}# (quote (c)))
+                                                 (scm-error
+                                                   'wrong-number-of-args
+                                                   #f
+                                                   "Wrong number of arguments"
+                                                   '()
+                                                   %%args))))))
+                                   #{src\ 2346}#))))))))))))
+           (#{build-case-lambda\ 204}#
+             (lambda (#{src\ 2399}#
+                      #{docstring\ 2400}#
+                      #{body\ 2401}#)
+               (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2407}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 1077}#
-                    (if #{docstring\ 1078}#
-                      (list (cons (quote documentation) #{docstring\ 1078}#))
+                    #{src\ 2399}#
+                    (if #{docstring\ 2400}#
+                      (list (cons (quote documentation) #{docstring\ 2400}#))
                       '())
-                    #{body\ 1079}#)
-                   (#{decorate-source\ 91}#
+                    #{body\ 2401}#)
+                   (#{decorate-source\ 180}#
                      (cons 'lambda
                            (cons '%%args
                                  (append
-                                   (if #{docstring\ 1078}#
-                                     (list #{docstring\ 1078}#)
+                                   (if #{docstring\ 2400}#
+                                     (list #{docstring\ 2400}#)
                                      '())
-                                   (list (cons (quote cond) #{body\ 1079}#)))))
-                     #{src\ 1077}#)))))
-           (#{build-simple-lambda\ 102}#
-             (lambda (#{src\ 1081}#
-                      #{req\ 1082}#
-                      #{rest\ 1083}#
-                      #{vars\ 1084}#
-                      #{docstring\ 1085}#
-                      #{exp\ 1086}#)
-               (let ((#{atom-key\ 1087}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1087}# (quote (c)))
+                                   (list (cons (quote cond) #{body\ 2401}#)))))
+                     #{src\ 2399}#)))))
+           (#{build-simple-lambda\ 202}#
+             (lambda (#{src\ 2412}#
+                      #{req\ 2413}#
+                      #{rest\ 2414}#
+                      #{vars\ 2415}#
+                      #{docstring\ 2416}#
+                      #{exp\ 2417}#)
+               (let ((#{atom-key\ 2426}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2426}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 1081}#
-                    (if #{docstring\ 1085}#
-                      (list (cons (quote documentation) #{docstring\ 1085}#))
+                    #{src\ 2412}#
+                    (if #{docstring\ 2416}#
+                      (list (cons (quote documentation) #{docstring\ 2416}#))
                       '())
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 1081}#
-                     #{req\ 1082}#
+                     #{src\ 2412}#
+                     #{req\ 2413}#
                      #f
-                     #{rest\ 1083}#
+                     #{rest\ 2414}#
                      #f
                      '()
-                     #{vars\ 1084}#
-                     #{exp\ 1086}#
+                     #{vars\ 2415}#
+                     #{exp\ 2417}#
                      #f))
-                   (#{decorate-source\ 91}#
+                   (#{decorate-source\ 180}#
                      (cons 'lambda
-                           (cons (if #{rest\ 1083}#
-                                   (apply cons* #{vars\ 1084}#)
-                                   #{vars\ 1084}#)
+                           (cons (if #{rest\ 2414}#
+                                   (apply cons* #{vars\ 2415}#)
+                                   #{vars\ 2415}#)
                                  (append
-                                   (if #{docstring\ 1085}#
-                                     (list #{docstring\ 1085}#)
+                                   (if #{docstring\ 2416}#
+                                     (list #{docstring\ 2416}#)
                                      '())
-                                   (list #{exp\ 1086}#))))
-                     #{src\ 1081}#)))))
-           (#{build-global-definition\ 101}#
-             (lambda (#{source\ 1088}# #{var\ 1089}# #{exp\ 1090}#)
-               (let ((#{atom-key\ 1091}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1091}# (quote (c)))
+                                   (list #{exp\ 2417}#))))
+                     #{src\ 2412}#)))))
+           (#{build-global-definition\ 200}#
+             (lambda (#{source\ 2431}# #{var\ 2432}# #{exp\ 2433}#)
+               (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2439}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 100}#
-                       #{var\ 1089}#
-                       #{exp\ 1090}#)
+                     (#{maybe-name-value!\ 198}#
+                       #{var\ 2432}#
+                       #{exp\ 2433}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{source\ 1088}#
-                      #{var\ 1089}#
-                      #{exp\ 1090}#))
-                   (#{decorate-source\ 91}#
-                     (list (quote define) #{var\ 1089}# #{exp\ 1090}#)
-                     #{source\ 1088}#)))))
-           (#{maybe-name-value!\ 100}#
-             (lambda (#{name\ 1092}# #{val\ 1093}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 1093}#)
-                 (let ((#{meta\ 1094}#
+                      #{source\ 2431}#
+                      #{var\ 2432}#
+                      #{exp\ 2433}#))
+                   (#{decorate-source\ 180}#
+                     (list (quote define) #{var\ 2432}# #{exp\ 2433}#)
+                     #{source\ 2431}#)))))
+           (#{maybe-name-value!\ 198}#
+             (lambda (#{name\ 2443}# #{val\ 2444}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 2444}#)
+                 (let ((#{meta\ 2450}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 1093}#)))
-                   (if (not (assq (quote name) #{meta\ 1094}#))
+                          #{val\ 2444}#)))
+                   (if (not (assq (quote name) #{meta\ 2450}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 1093}#
+                      #{val\ 2444}#
                       (acons 'name
-                             #{name\ 1092}#
-                             #{meta\ 1094}#)))))))
-           (#{build-global-assignment\ 99}#
-             (lambda (#{source\ 1095}#
-                      #{var\ 1096}#
-                      #{exp\ 1097}#
-                      #{mod\ 1098}#)
-               (#{analyze-variable\ 97}#
-                 #{mod\ 1098}#
-                 #{var\ 1096}#
-                 (lambda (#{mod\ 1099}# #{var\ 1100}# #{public?\ 1101}#)
-                   (let ((#{atom-key\ 1102}# (fluid-ref #{*mode*\ 82}#)))
-                     (if (memv #{atom-key\ 1102}# (quote (c)))
+                             #{name\ 2443}#
+                             #{meta\ 2450}#)))))))
+           (#{build-global-assignment\ 196}#
+             (lambda (#{source\ 2451}#
+                      #{var\ 2452}#
+                      #{exp\ 2453}#
+                      #{mod\ 2454}#)
+               (#{analyze-variable\ 192}#
+                 #{mod\ 2454}#
+                 #{var\ 2452}#
+                 (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#)
+                   (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 161}#)))
+                     (if (memv #{atom-key\ 2467}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 1095}#
-                        #{mod\ 1099}#
-                        #{var\ 1100}#
-                        #{public?\ 1101}#
-                        #{exp\ 1097}#)
-                       (#{decorate-source\ 91}#
+                        #{source\ 2451}#
+                        #{mod\ 2459}#
+                        #{var\ 2460}#
+                        #{public?\ 2461}#
+                        #{exp\ 2453}#)
+                       (#{decorate-source\ 180}#
                          (list 'set!
-                               (list (if #{public?\ 1101}#
+                               (list (if #{public?\ 2461}#
                                        '@
                                        '@@)
-                                     #{mod\ 1099}#
-                                     #{var\ 1100}#)
-                               #{exp\ 1097}#)
-                         #{source\ 1095}#))))
-                 (lambda (#{var\ 1103}#)
-                   (let ((#{atom-key\ 1104}# (fluid-ref #{*mode*\ 82}#)))
-                     (if (memv #{atom-key\ 1104}# (quote (c)))
+                                     #{mod\ 2459}#
+                                     #{var\ 2460}#)
+                               #{exp\ 2453}#)
+                         #{source\ 2451}#))))
+                 (lambda (#{var\ 2471}#)
+                   (let ((#{atom-key\ 2475}# (fluid-ref #{*mode*\ 161}#)))
+                     (if (memv #{atom-key\ 2475}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{source\ 1095}#
-                        #{var\ 1103}#
-                        #{exp\ 1097}#)
-                       (#{decorate-source\ 91}#
-                         (list (quote set!) #{var\ 1103}# #{exp\ 1097}#)
-                         #{source\ 1095}#)))))))
-           (#{build-global-reference\ 98}#
-             (lambda (#{source\ 1105}# #{var\ 1106}# #{mod\ 1107}#)
-               (#{analyze-variable\ 97}#
-                 #{mod\ 1107}#
-                 #{var\ 1106}#
-                 (lambda (#{mod\ 1108}# #{var\ 1109}# #{public?\ 1110}#)
-                   (let ((#{atom-key\ 1111}# (fluid-ref #{*mode*\ 82}#)))
-                     (if (memv #{atom-key\ 1111}# (quote (c)))
+                        #{source\ 2451}#
+                        #{var\ 2471}#
+                        #{exp\ 2453}#)
+                       (#{decorate-source\ 180}#
+                         (list (quote set!) #{var\ 2471}# #{exp\ 2453}#)
+                         #{source\ 2451}#)))))))
+           (#{build-global-reference\ 194}#
+             (lambda (#{source\ 2479}# #{var\ 2480}# #{mod\ 2481}#)
+               (#{analyze-variable\ 192}#
+                 #{mod\ 2481}#
+                 #{var\ 2480}#
+                 (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#)
+                   (let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 161}#)))
+                     (if (memv #{atom-key\ 2493}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{source\ 1105}#
-                        #{mod\ 1108}#
-                        #{var\ 1109}#
-                        #{public?\ 1110}#)
-                       (#{decorate-source\ 91}#
-                         (list (if #{public?\ 1110}# (quote @) (quote @@))
-                               #{mod\ 1108}#
-                               #{var\ 1109}#)
-                         #{source\ 1105}#))))
-                 (lambda (#{var\ 1112}#)
-                   (let ((#{atom-key\ 1113}# (fluid-ref #{*mode*\ 82}#)))
-                     (if (memv #{atom-key\ 1113}# (quote (c)))
+                        #{source\ 2479}#
+                        #{mod\ 2485}#
+                        #{var\ 2486}#
+                        #{public?\ 2487}#)
+                       (#{decorate-source\ 180}#
+                         (list (if #{public?\ 2487}# (quote @) (quote @@))
+                               #{mod\ 2485}#
+                               #{var\ 2486}#)
+                         #{source\ 2479}#))))
+                 (lambda (#{var\ 2496}#)
+                   (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 161}#)))
+                     (if (memv #{atom-key\ 2500}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{source\ 1105}#
-                        #{var\ 1112}#)
-                       (#{decorate-source\ 91}#
-                         #{var\ 1112}#
-                         #{source\ 1105}#)))))))
-           (#{analyze-variable\ 97}#
-             (lambda (#{mod\ 1114}#
-                      #{var\ 1115}#
-                      #{modref-cont\ 1116}#
-                      #{bare-cont\ 1117}#)
-               (if (not #{mod\ 1114}#)
-                 (#{bare-cont\ 1117}# #{var\ 1115}#)
-                 (let ((#{kind\ 1118}# (car #{mod\ 1114}#))
-                       (#{mod\ 1119}# (cdr #{mod\ 1114}#)))
-                   (if (memv #{kind\ 1118}# (quote (public)))
-                     (#{modref-cont\ 1116}#
-                       #{mod\ 1119}#
-                       #{var\ 1115}#
+                        #{source\ 2479}#
+                        #{var\ 2496}#)
+                       (#{decorate-source\ 180}#
+                         #{var\ 2496}#
+                         #{source\ 2479}#)))))))
+           (#{analyze-variable\ 192}#
+             (lambda (#{mod\ 2503}#
+                      #{var\ 2504}#
+                      #{modref-cont\ 2505}#
+                      #{bare-cont\ 2506}#)
+               (if (not #{mod\ 2503}#)
+                 (#{bare-cont\ 2506}# #{var\ 2504}#)
+                 (let ((#{kind\ 2513}# (car #{mod\ 2503}#))
+                       (#{mod\ 2514}# (cdr #{mod\ 2503}#)))
+                   (if (memv #{kind\ 2513}# (quote (public)))
+                     (#{modref-cont\ 2505}#
+                       #{mod\ 2514}#
+                       #{var\ 2504}#
                        #t)
-                     (if (memv #{kind\ 1118}# (quote (private)))
+                     (if (memv #{kind\ 2513}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 1119}#
+                                  #{mod\ 2514}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 1116}#
-                           #{mod\ 1119}#
-                           #{var\ 1115}#
+                         (#{modref-cont\ 2505}#
+                           #{mod\ 2514}#
+                           #{var\ 2504}#
                            #f)
-                         (#{bare-cont\ 1117}# #{var\ 1115}#))
-                       (if (memv #{kind\ 1118}# (quote (bare)))
-                         (#{bare-cont\ 1117}# #{var\ 1115}#)
-                         (if (memv #{kind\ 1118}# (quote (hygiene)))
+                         (#{bare-cont\ 2506}# #{var\ 2504}#))
+                       (if (memv #{kind\ 2513}# (quote (bare)))
+                         (#{bare-cont\ 2506}# #{var\ 2504}#)
+                         (if (memv #{kind\ 2513}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 1119}#
+                                          #{mod\ 2514}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 1119}#)
-                                   #{var\ 1115}#)
+                                   (resolve-module #{mod\ 2514}#)
+                                   #{var\ 2504}#)
                                  #f)
-                             (#{modref-cont\ 1116}#
-                               #{mod\ 1119}#
-                               #{var\ 1115}#
+                             (#{modref-cont\ 2505}#
+                               #{mod\ 2514}#
+                               #{var\ 2504}#
                                #f)
-                             (#{bare-cont\ 1117}# #{var\ 1115}#))
+                             (#{bare-cont\ 2506}# #{var\ 2504}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 1115}#
-                             #{mod\ 1119}#)))))))))
-           (#{build-lexical-assignment\ 96}#
-             (lambda (#{source\ 1120}#
-                      #{name\ 1121}#
-                      #{var\ 1122}#
-                      #{exp\ 1123}#)
-               (let ((#{atom-key\ 1124}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1124}# (quote (c)))
+                             #{var\ 2504}#
+                             #{mod\ 2514}#)))))))))
+           (#{build-lexical-assignment\ 190}#
+             (lambda (#{source\ 2522}#
+                      #{name\ 2523}#
+                      #{var\ 2524}#
+                      #{exp\ 2525}#)
+               (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2532}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{source\ 1120}#
-                    #{name\ 1121}#
-                    #{var\ 1122}#
-                    #{exp\ 1123}#)
-                   (#{decorate-source\ 91}#
-                     (list (quote set!) #{var\ 1122}# #{exp\ 1123}#)
-                     #{source\ 1120}#)))))
-           (#{build-lexical-reference\ 95}#
-             (lambda (#{type\ 1125}#
-                      #{source\ 1126}#
-                      #{name\ 1127}#
-                      #{var\ 1128}#)
-               (let ((#{atom-key\ 1129}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1129}# (quote (c)))
+                    #{source\ 2522}#
+                    #{name\ 2523}#
+                    #{var\ 2524}#
+                    #{exp\ 2525}#)
+                   (#{decorate-source\ 180}#
+                     (list (quote set!) #{var\ 2524}# #{exp\ 2525}#)
+                     #{source\ 2522}#)))))
+           (#{build-lexical-reference\ 188}#
+             (lambda (#{type\ 2536}#
+                      #{source\ 2537}#
+                      #{name\ 2538}#
+                      #{var\ 2539}#)
+               (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2546}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{source\ 1126}#
-                    #{name\ 1127}#
-                    #{var\ 1128}#)
-                   (#{decorate-source\ 91}#
-                     #{var\ 1128}#
-                     #{source\ 1126}#)))))
-           (#{build-conditional\ 94}#
-             (lambda (#{source\ 1130}#
-                      #{test-exp\ 1131}#
-                      #{then-exp\ 1132}#
-                      #{else-exp\ 1133}#)
-               (let ((#{atom-key\ 1134}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1134}# (quote (c)))
+                    #{source\ 2537}#
+                    #{name\ 2538}#
+                    #{var\ 2539}#)
+                   (#{decorate-source\ 180}#
+                     #{var\ 2539}#
+                     #{source\ 2537}#)))))
+           (#{build-conditional\ 186}#
+             (lambda (#{source\ 2549}#
+                      #{test-exp\ 2550}#
+                      #{then-exp\ 2551}#
+                      #{else-exp\ 2552}#)
+               (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2559}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 1130}#
-                    #{test-exp\ 1131}#
-                    #{then-exp\ 1132}#
-                    #{else-exp\ 1133}#)
-                   (#{decorate-source\ 91}#
-                     (if (equal? #{else-exp\ 1133}# (quote (if #f #f)))
+                    #{source\ 2549}#
+                    #{test-exp\ 2550}#
+                    #{then-exp\ 2551}#
+                    #{else-exp\ 2552}#)
+                   (#{decorate-source\ 180}#
+                     (if (equal? #{else-exp\ 2552}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 1131}#
-                             #{then-exp\ 1132}#)
+                             #{test-exp\ 2550}#
+                             #{then-exp\ 2551}#)
                        (list 'if
-                             #{test-exp\ 1131}#
-                             #{then-exp\ 1132}#
-                             #{else-exp\ 1133}#))
-                     #{source\ 1130}#)))))
-           (#{build-application\ 93}#
-             (lambda (#{source\ 1135}#
-                      #{fun-exp\ 1136}#
-                      #{arg-exps\ 1137}#)
-               (let ((#{atom-key\ 1138}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1138}# (quote (c)))
+                             #{test-exp\ 2550}#
+                             #{then-exp\ 2551}#
+                             #{else-exp\ 2552}#))
+                     #{source\ 2549}#)))))
+           (#{build-application\ 184}#
+             (lambda (#{source\ 2564}#
+                      #{fun-exp\ 2565}#
+                      #{arg-exps\ 2566}#)
+               (let ((#{atom-key\ 2572}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2572}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{source\ 1135}#
-                    #{fun-exp\ 1136}#
-                    #{arg-exps\ 1137}#)
-                   (#{decorate-source\ 91}#
-                     (cons #{fun-exp\ 1136}# #{arg-exps\ 1137}#)
-                     #{source\ 1135}#)))))
-           (#{build-void\ 92}#
-             (lambda (#{source\ 1139}#)
-               (let ((#{atom-key\ 1140}# (fluid-ref #{*mode*\ 82}#)))
-                 (if (memv #{atom-key\ 1140}# (quote (c)))
+                    #{source\ 2564}#
+                    #{fun-exp\ 2565}#
+                    #{arg-exps\ 2566}#)
+                   (#{decorate-source\ 180}#
+                     (cons #{fun-exp\ 2565}# #{arg-exps\ 2566}#)
+                     #{source\ 2564}#)))))
+           (#{build-void\ 182}#
+             (lambda (#{source\ 2576}#)
+               (let ((#{atom-key\ 2580}# (fluid-ref #{*mode*\ 161}#)))
+                 (if (memv #{atom-key\ 2580}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 1139}#)
-                   (#{decorate-source\ 91}#
+                    #{source\ 2576}#)
+                   (#{decorate-source\ 180}#
                      '(if #f #f)
-                     #{source\ 1139}#)))))
-           (#{decorate-source\ 91}#
-             (lambda (#{e\ 1141}# #{s\ 1142}#)
+                     #{source\ 2576}#)))))
+           (#{decorate-source\ 180}#
+             (lambda (#{e\ 2583}# #{s\ 2584}#)
                (begin
-                 (if (if (pair? #{e\ 1141}#) #{s\ 1142}# #f)
-                   (set-source-properties! #{e\ 1141}# #{s\ 1142}#))
-                 #{e\ 1141}#)))
-           (#{get-global-definition-hook\ 90}#
-             (lambda (#{symbol\ 1143}# #{module\ 1144}#)
+                 (if (if (pair? #{e\ 2583}#) #{s\ 2584}# #f)
+                   (set-source-properties! #{e\ 2583}# #{s\ 2584}#))
+                 #{e\ 2583}#)))
+           (#{get-global-definition-hook\ 178}#
+             (lambda (#{symbol\ 2589}# #{module\ 2590}#)
                (begin
-                 (if (if (not #{module\ 1144}#) (current-module) #f)
+                 (if (if (not #{module\ 2590}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 1143}#))
-                 (let ((#{v\ 1145}#
+                         #{symbol\ 2589}#))
+                 (let ((#{v\ 2596}#
                          (module-variable
-                           (if #{module\ 1144}#
-                             (resolve-module (cdr #{module\ 1144}#))
+                           (if #{module\ 2590}#
+                             (resolve-module (cdr #{module\ 2590}#))
                              (current-module))
-                           #{symbol\ 1143}#)))
-                   (if #{v\ 1145}#
-                     (if (variable-bound? #{v\ 1145}#)
-                       (let ((#{val\ 1146}# (variable-ref #{v\ 1145}#)))
-                         (if (macro? #{val\ 1146}#)
-                           (if (syncase-macro-type #{val\ 1146}#)
-                             (cons (syncase-macro-type #{val\ 1146}#)
-                                   (syncase-macro-binding #{val\ 1146}#))
+                           #{symbol\ 2589}#)))
+                   (if #{v\ 2596}#
+                     (if (variable-bound? #{v\ 2596}#)
+                       (let ((#{val\ 2601}# (variable-ref #{v\ 2596}#)))
+                         (if (macro? #{val\ 2601}#)
+                           (if (syncase-macro-type #{val\ 2601}#)
+                             (cons (syncase-macro-type #{val\ 2601}#)
+                                   (syncase-macro-binding #{val\ 2601}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 89}#
-             (lambda (#{symbol\ 1147}# #{type\ 1148}# #{val\ 1149}#)
-               (let ((#{existing\ 1150}#
-                       (let ((#{v\ 1151}#
+           (#{put-global-definition-hook\ 176}#
+             (lambda (#{symbol\ 2605}# #{type\ 2606}# #{val\ 2607}#)
+               (let ((#{existing\ 2612}#
+                       (let ((#{v\ 2614}#
                                (module-variable
                                  (current-module)
-                                 #{symbol\ 1147}#)))
-                         (if #{v\ 1151}#
-                           (if (variable-bound? #{v\ 1151}#)
-                             (let ((#{val\ 1152}# (variable-ref #{v\ 1151}#)))
-                               (if (macro? #{val\ 1152}#)
-                                 (if (not (syncase-macro-type #{val\ 1152}#))
-                                   #{val\ 1152}#
+                                 #{symbol\ 2605}#)))
+                         (if #{v\ 2614}#
+                           (if (variable-bound? #{v\ 2614}#)
+                             (let ((#{val\ 2619}# (variable-ref #{v\ 2614}#)))
+                               (if (macro? #{val\ 2619}#)
+                                 (if (not (syncase-macro-type #{val\ 2619}#))
+                                   #{val\ 2619}#
                                    #f)
                                  #f))
                              #f)
                            #f))))
                  (module-define!
                    (current-module)
-                   #{symbol\ 1147}#
-                   (if #{existing\ 1150}#
+                   #{symbol\ 2605}#
+                   (if #{existing\ 2612}#
                      (make-extended-syncase-macro
-                       #{existing\ 1150}#
-                       #{type\ 1148}#
-                       #{val\ 1149}#)
-                     (make-syncase-macro #{type\ 1148}# #{val\ 1149}#))))))
-           (#{local-eval-hook\ 88}#
-             (lambda (#{x\ 1153}# #{mod\ 1154}#)
+                       #{existing\ 2612}#
+                       #{type\ 2606}#
+                       #{val\ 2607}#)
+                     (make-syncase-macro #{type\ 2606}# #{val\ 2607}#))))))
+           (#{local-eval-hook\ 173}#
+             (lambda (#{x\ 2623}# #{mod\ 2624}#)
                (primitive-eval
-                 (list #{noexpand\ 81}#
-                       (let ((#{atom-key\ 1155}# (fluid-ref #{*mode*\ 82}#)))
-                         (if (memv #{atom-key\ 1155}# (quote (c)))
+                 (list #{noexpand\ 159}#
+                       (let ((#{atom-key\ 2630}# (fluid-ref #{*mode*\ 161}#)))
+                         (if (memv #{atom-key\ 2630}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 1153}#)
-                           #{x\ 1153}#))))))
-           (#{top-level-eval-hook\ 87}#
-             (lambda (#{x\ 1156}# #{mod\ 1157}#)
+                            #{x\ 2623}#)
+                           #{x\ 2623}#))))))
+           (#{top-level-eval-hook\ 171}#
+             (lambda (#{x\ 2633}# #{mod\ 2634}#)
                (primitive-eval
-                 (list #{noexpand\ 81}#
-                       (let ((#{atom-key\ 1158}# (fluid-ref #{*mode*\ 82}#)))
-                         (if (memv #{atom-key\ 1158}# (quote (c)))
+                 (list #{noexpand\ 159}#
+                       (let ((#{atom-key\ 2640}# (fluid-ref #{*mode*\ 161}#)))
+                         (if (memv #{atom-key\ 2640}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 1156}#)
-                           #{x\ 1156}#))))))
-           (#{fx<\ 86}# <)
-           (#{fx=\ 85}# =)
-           (#{fx-\ 84}# -)
-           (#{fx+\ 83}# +)
-           (#{*mode*\ 82}# (make-fluid))
-           (#{noexpand\ 81}# "noexpand"))
+                            #{x\ 2633}#)
+                           #{x\ 2633}#))))))
+           (#{fx<\ 169}# <)
+           (#{fx=\ 167}# =)
+           (#{fx-\ 165}# -)
+           (#{fx+\ 163}# +)
+           (#{*mode*\ 161}# (make-fluid))
+           (#{noexpand\ 159}# "noexpand"))
     (begin
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 1159}#
-                 #{r\ 1160}#
-                 #{w\ 1161}#
-                 #{s\ 1162}#
-                 #{mod\ 1163}#)
-          ((lambda (#{tmp\ 1164}#)
-             ((lambda (#{tmp\ 1165}#)
-                (if (if #{tmp\ 1165}#
-                      (apply (lambda (#{_\ 1166}#
-                                      #{var\ 1167}#
-                                      #{val\ 1168}#
-                                      #{e1\ 1169}#
-                                      #{e2\ 1170}#)
-                               (#{valid-bound-ids?\ 153}# #{var\ 1167}#))
-                             #{tmp\ 1165}#)
+        (lambda (#{e\ 2643}#
+                 #{r\ 2644}#
+                 #{w\ 2645}#
+                 #{s\ 2646}#
+                 #{mod\ 2647}#)
+          ((lambda (#{tmp\ 2653}#)
+             ((lambda (#{tmp\ 2654}#)
+                (if (if #{tmp\ 2654}#
+                      (apply (lambda (#{_\ 2660}#
+                                      #{var\ 2661}#
+                                      #{val\ 2662}#
+                                      #{e1\ 2663}#
+                                      #{e2\ 2664}#)
+                               (#{valid-bound-ids?\ 323}# #{var\ 2661}#))
+                             #{tmp\ 2654}#)
                       #f)
-                  (apply (lambda (#{_\ 1172}#
-                                  #{var\ 1173}#
-                                  #{val\ 1174}#
-                                  #{e1\ 1175}#
-                                  #{e2\ 1176}#)
-                           (let ((#{names\ 1177}#
-                                   (map (lambda (#{x\ 1178}#)
-                                          (#{id-var-name\ 150}#
-                                            #{x\ 1178}#
-                                            #{w\ 1161}#))
-                                        #{var\ 1173}#)))
+                  (apply (lambda (#{_\ 2671}#
+                                  #{var\ 2672}#
+                                  #{val\ 2673}#
+                                  #{e1\ 2674}#
+                                  #{e2\ 2675}#)
+                           (let ((#{names\ 2677}#
+                                   (map (lambda (#{x\ 2678}#)
+                                          (#{id-var-name\ 317}#
+                                            #{x\ 2678}#
+                                            #{w\ 2645}#))
+                                        #{var\ 2672}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 1180}# #{n\ 1181}#)
-                                   (let ((#{atom-key\ 1182}#
-                                           (#{binding-type\ 120}#
-                                             (#{lookup\ 125}#
-                                               #{n\ 1181}#
-                                               #{r\ 1160}#
-                                               #{mod\ 1163}#))))
-                                     (if (memv #{atom-key\ 1182}#
+                                 (lambda (#{id\ 2681}# #{n\ 2682}#)
+                                   (let ((#{atom-key\ 2687}#
+                                           (#{binding-type\ 243}#
+                                             (#{lookup\ 254}#
+                                               #{n\ 2682}#
+                                               #{r\ 2644}#
+                                               #{mod\ 2647}#))))
+                                     (if (memv #{atom-key\ 2687}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 1159}#
-                                         (#{source-wrap\ 157}#
-                                           #{id\ 1180}#
-                                           #{w\ 1161}#
-                                           #{s\ 1162}#
-                                           #{mod\ 1163}#)))))
-                                 #{var\ 1173}#
-                                 #{names\ 1177}#)
-                               (#{chi-body\ 168}#
-                                 (cons #{e1\ 1175}# #{e2\ 1176}#)
-                                 (#{source-wrap\ 157}#
-                                   #{e\ 1159}#
-                                   #{w\ 1161}#
-                                   #{s\ 1162}#
-                                   #{mod\ 1163}#)
-                                 (#{extend-env\ 122}#
-                                   #{names\ 1177}#
-                                   (let ((#{trans-r\ 1185}#
-                                           (#{macros-only-env\ 124}#
-                                             #{r\ 1160}#)))
-                                     (map (lambda (#{x\ 1186}#)
+                                         #{e\ 2643}#
+                                         (#{source-wrap\ 331}#
+                                           #{id\ 2681}#
+                                           #{w\ 2645}#
+                                           #{s\ 2646}#
+                                           #{mod\ 2647}#)))))
+                                 #{var\ 2672}#
+                                 #{names\ 2677}#)
+                               (#{chi-body\ 353}#
+                                 (cons #{e1\ 2674}# #{e2\ 2675}#)
+                                 (#{source-wrap\ 331}#
+                                   #{e\ 2643}#
+                                   #{w\ 2645}#
+                                   #{s\ 2646}#
+                                   #{mod\ 2647}#)
+                                 (#{extend-env\ 248}#
+                                   #{names\ 2677}#
+                                   (let ((#{trans-r\ 2692}#
+                                           (#{macros-only-env\ 252}#
+                                             #{r\ 2644}#)))
+                                     (map (lambda (#{x\ 2693}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
170}#
-                                                    (#{chi\ 164}#
-                                                      #{x\ 1186}#
-                                                      #{trans-r\ 1185}#
-                                                      #{w\ 1161}#
-                                                      #{mod\ 1163}#)
-                                                    #{mod\ 1163}#)))
-                                          #{val\ 1174}#))
-                                   #{r\ 1160}#)
-                                 #{w\ 1161}#
-                                 #{mod\ 1163}#))))
-                         #{tmp\ 1165}#)
-                  ((lambda (#{_\ 1188}#)
+                                                  (#{eval-local-transformer\ 
357}#
+                                                    (#{chi\ 345}#
+                                                      #{x\ 2693}#
+                                                      #{trans-r\ 2692}#
+                                                      #{w\ 2645}#
+                                                      #{mod\ 2647}#)
+                                                    #{mod\ 2647}#)))
+                                          #{val\ 2673}#))
+                                   #{r\ 2644}#)
+                                 #{w\ 2645}#
+                                 #{mod\ 2647}#))))
+                         #{tmp\ 2654}#)
+                  ((lambda (#{_\ 2698}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 157}#
-                         #{e\ 1159}#
-                         #{w\ 1161}#
-                         #{s\ 1162}#
-                         #{mod\ 1163}#)))
-                   #{tmp\ 1164}#)))
+                       (#{source-wrap\ 331}#
+                         #{e\ 2643}#
+                         #{w\ 2645}#
+                         #{s\ 2646}#
+                         #{mod\ 2647}#)))
+                   #{tmp\ 2653}#)))
               ($sc-dispatch
-                #{tmp\ 1164}#
+                #{tmp\ 2653}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 1159}#)))
-      (#{global-extend\ 126}#
+           #{e\ 2643}#)))
+      (#{global-extend\ 256}#
         'core
         'quote
-        (lambda (#{e\ 1189}#
-                 #{r\ 1190}#
-                 #{w\ 1191}#
-                 #{s\ 1192}#
-                 #{mod\ 1193}#)
-          ((lambda (#{tmp\ 1194}#)
-             ((lambda (#{tmp\ 1195}#)
-                (if #{tmp\ 1195}#
-                  (apply (lambda (#{_\ 1196}# #{e\ 1197}#)
-                           (#{build-data\ 106}#
-                             #{s\ 1192}#
-                             (#{strip\ 177}# #{e\ 1197}# #{w\ 1191}#)))
-                         #{tmp\ 1195}#)
-                  ((lambda (#{_\ 1198}#)
+        (lambda (#{e\ 2699}#
+                 #{r\ 2700}#
+                 #{w\ 2701}#
+                 #{s\ 2702}#
+                 #{mod\ 2703}#)
+          ((lambda (#{tmp\ 2709}#)
+             ((lambda (#{tmp\ 2710}#)
+                (if #{tmp\ 2710}#
+                  (apply (lambda (#{_\ 2713}# #{e\ 2714}#)
+                           (#{build-data\ 210}#
+                             #{s\ 2702}#
+                             (#{strip\ 371}# #{e\ 2714}# #{w\ 2701}#)))
+                         #{tmp\ 2710}#)
+                  ((lambda (#{_\ 2716}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 157}#
-                         #{e\ 1189}#
-                         #{w\ 1191}#
-                         #{s\ 1192}#
-                         #{mod\ 1193}#)))
-                   #{tmp\ 1194}#)))
-              ($sc-dispatch #{tmp\ 1194}# (quote (any any)))))
-           #{e\ 1189}#)))
-      (#{global-extend\ 126}#
+                       (#{source-wrap\ 331}#
+                         #{e\ 2699}#
+                         #{w\ 2701}#
+                         #{s\ 2702}#
+                         #{mod\ 2703}#)))
+                   #{tmp\ 2709}#)))
+              ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
+           #{e\ 2699}#)))
+      (#{global-extend\ 256}#
         'core
         'syntax
-        (letrec ((#{regen\ 1206}#
-                   (lambda (#{x\ 1207}#)
-                     (let ((#{atom-key\ 1208}# (car #{x\ 1207}#)))
-                       (if (memv #{atom-key\ 1208}# (quote (ref)))
-                         (#{build-lexical-reference\ 95}#
+        (letrec ((#{regen\ 2732}#
+                   (lambda (#{x\ 2733}#)
+                     (let ((#{atom-key\ 2737}# (car #{x\ 2733}#)))
+                       (if (memv #{atom-key\ 2737}# (quote (ref)))
+                         (#{build-lexical-reference\ 188}#
                            'value
                            #f
-                           (cadr #{x\ 1207}#)
-                           (cadr #{x\ 1207}#))
-                         (if (memv #{atom-key\ 1208}# (quote (primitive)))
-                           (#{build-primref\ 105}# #f (cadr #{x\ 1207}#))
-                           (if (memv #{atom-key\ 1208}# (quote (quote)))
-                             (#{build-data\ 106}# #f (cadr #{x\ 1207}#))
-                             (if (memv #{atom-key\ 1208}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 1207}#))
-                                 (#{build-simple-lambda\ 102}#
+                           (cadr #{x\ 2733}#)
+                           (cadr #{x\ 2733}#))
+                         (if (memv #{atom-key\ 2737}# (quote (primitive)))
+                           (#{build-primref\ 208}# #f (cadr #{x\ 2733}#))
+                           (if (memv #{atom-key\ 2737}# (quote (quote)))
+                             (#{build-data\ 210}# #f (cadr #{x\ 2733}#))
+                             (if (memv #{atom-key\ 2737}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 2733}#))
+                                 (#{build-simple-lambda\ 202}#
                                    #f
-                                   (cadr #{x\ 1207}#)
+                                   (cadr #{x\ 2733}#)
                                    #f
-                                   (cadr #{x\ 1207}#)
+                                   (cadr #{x\ 2733}#)
                                    #f
-                                   (#{regen\ 1206}# (caddr #{x\ 1207}#)))
-                                 (error "how did we get here" #{x\ 1207}#))
-                               (#{build-application\ 93}#
+                                   (#{regen\ 2732}# (caddr #{x\ 2733}#)))
+                                 (error "how did we get here" #{x\ 2733}#))
+                               (#{build-application\ 184}#
                                  #f
-                                 (#{build-primref\ 105}# #f (car #{x\ 1207}#))
-                                 (map #{regen\ 1206}#
-                                      (cdr #{x\ 1207}#))))))))))
-                 (#{gen-vector\ 1205}#
-                   (lambda (#{x\ 1209}#)
-                     (if (eq? (car #{x\ 1209}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 1209}#))
-                       (if (eq? (car #{x\ 1209}#) (quote quote))
+                                 (#{build-primref\ 208}# #f (car #{x\ 2733}#))
+                                 (map #{regen\ 2732}#
+                                      (cdr #{x\ 2733}#))))))))))
+                 (#{gen-vector\ 2730}#
+                   (lambda (#{x\ 2749}#)
+                     (if (eq? (car #{x\ 2749}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 2749}#))
+                       (if (eq? (car #{x\ 2749}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 1209}#)))
-                         (list (quote list->vector) #{x\ 1209}#)))))
-                 (#{gen-append\ 1204}#
-                   (lambda (#{x\ 1210}# #{y\ 1211}#)
-                     (if (equal? #{y\ 1211}# (quote (quote ())))
-                       #{x\ 1210}#
-                       (list (quote append) #{x\ 1210}# #{y\ 1211}#))))
-                 (#{gen-cons\ 1203}#
-                   (lambda (#{x\ 1212}# #{y\ 1213}#)
-                     (let ((#{atom-key\ 1214}# (car #{y\ 1213}#)))
-                       (if (memv #{atom-key\ 1214}# (quote (quote)))
-                         (if (eq? (car #{x\ 1212}#) (quote quote))
+                               (list->vector (cadr #{x\ 2749}#)))
+                         (list (quote list->vector) #{x\ 2749}#)))))
+                 (#{gen-append\ 2728}#
+                   (lambda (#{x\ 2759}# #{y\ 2760}#)
+                     (if (equal? #{y\ 2760}# (quote (quote ())))
+                       #{x\ 2759}#
+                       (list (quote append) #{x\ 2759}# #{y\ 2760}#))))
+                 (#{gen-cons\ 2726}#
+                   (lambda (#{x\ 2764}# #{y\ 2765}#)
+                     (let ((#{atom-key\ 2770}# (car #{y\ 2765}#)))
+                       (if (memv #{atom-key\ 2770}# (quote (quote)))
+                         (if (eq? (car #{x\ 2764}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 1212}#) (cadr #{y\ 1213}#)))
-                           (if (eq? (cadr #{y\ 1213}#) (quote ()))
-                             (list (quote list) #{x\ 1212}#)
-                             (list (quote cons) #{x\ 1212}# #{y\ 1213}#)))
-                         (if (memv #{atom-key\ 1214}# (quote (list)))
+                                 (cons (cadr #{x\ 2764}#) (cadr #{y\ 2765}#)))
+                           (if (eq? (cadr #{y\ 2765}#) (quote ()))
+                             (list (quote list) #{x\ 2764}#)
+                             (list (quote cons) #{x\ 2764}# #{y\ 2765}#)))
+                         (if (memv #{atom-key\ 2770}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 1212}# (cdr #{y\ 1213}#)))
-                           (list (quote cons) #{x\ 1212}# #{y\ 1213}#))))))
-                 (#{gen-map\ 1202}#
-                   (lambda (#{e\ 1215}# #{map-env\ 1216}#)
-                     (let ((#{formals\ 1217}# (map cdr #{map-env\ 1216}#))
-                           (#{actuals\ 1218}#
-                             (map (lambda (#{x\ 1219}#)
-                                    (list (quote ref) (car #{x\ 1219}#)))
-                                  #{map-env\ 1216}#)))
-                       (if (eq? (car #{e\ 1215}#) (quote ref))
-                         (car #{actuals\ 1218}#)
+                                 (cons #{x\ 2764}# (cdr #{y\ 2765}#)))
+                           (list (quote cons) #{x\ 2764}# #{y\ 2765}#))))))
+                 (#{gen-map\ 2724}#
+                   (lambda (#{e\ 2779}# #{map-env\ 2780}#)
+                     (let ((#{formals\ 2785}# (map cdr #{map-env\ 2780}#))
+                           (#{actuals\ 2786}#
+                             (map (lambda (#{x\ 2787}#)
+                                    (list (quote ref) (car #{x\ 2787}#)))
+                                  #{map-env\ 2780}#)))
+                       (if (eq? (car #{e\ 2779}#) (quote ref))
+                         (car #{actuals\ 2786}#)
                          (if (and-map
-                               (lambda (#{x\ 1220}#)
-                                 (if (eq? (car #{x\ 1220}#) (quote ref))
-                                   (memq (cadr #{x\ 1220}#) #{formals\ 1217}#)
+                               (lambda (#{x\ 2794}#)
+                                 (if (eq? (car #{x\ 2794}#) (quote ref))
+                                   (memq (cadr #{x\ 2794}#) #{formals\ 2785}#)
                                    #f))
-                               (cdr #{e\ 1215}#))
+                               (cdr #{e\ 2779}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 1215}#))
-                                       (map (let ((#{r\ 1221}#
+                                             (car #{e\ 2779}#))
+                                       (map (let ((#{r\ 2800}#
                                                     (map cons
-                                                         #{formals\ 1217}#
-                                                         #{actuals\ 1218}#)))
-                                              (lambda (#{x\ 1222}#)
-                                                (cdr (assq (cadr #{x\ 1222}#)
-                                                           #{r\ 1221}#))))
-                                            (cdr #{e\ 1215}#))))
+                                                         #{formals\ 2785}#
+                                                         #{actuals\ 2786}#)))
+                                              (lambda (#{x\ 2801}#)
+                                                (cdr (assq (cadr #{x\ 2801}#)
+                                                           #{r\ 2800}#))))
+                                            (cdr #{e\ 2779}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 1217}#
-                                             #{e\ 1215}#)
-                                       #{actuals\ 1218}#)))))))
-                 (#{gen-mappend\ 1201}#
-                   (lambda (#{e\ 1223}# #{map-env\ 1224}#)
+                                             #{formals\ 2785}#
+                                             #{e\ 2779}#)
+                                       #{actuals\ 2786}#)))))))
+                 (#{gen-mappend\ 2722}#
+                   (lambda (#{e\ 2805}# #{map-env\ 2806}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 1202}# #{e\ 1223}# #{map-env\ 1224}#))))
-                 (#{gen-ref\ 1200}#
-                   (lambda (#{src\ 1225}#
-                            #{var\ 1226}#
-                            #{level\ 1227}#
-                            #{maps\ 1228}#)
-                     (if (#{fx=\ 85}# #{level\ 1227}# 0)
-                       (values #{var\ 1226}# #{maps\ 1228}#)
-                       (if (null? #{maps\ 1228}#)
+                           (#{gen-map\ 2724}# #{e\ 2805}# #{map-env\ 2806}#))))
+                 (#{gen-ref\ 2720}#
+                   (lambda (#{src\ 2810}#
+                            #{var\ 2811}#
+                            #{level\ 2812}#
+                            #{maps\ 2813}#)
+                     (if (#{fx=\ 167}# #{level\ 2812}# 0)
+                       (values #{var\ 2811}# #{maps\ 2813}#)
+                       (if (null? #{maps\ 2813}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 1225}#)
+                           #{src\ 2810}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 1200}#
-                               #{src\ 1225}#
-                               #{var\ 1226}#
-                               (#{fx-\ 84}# #{level\ 1227}# 1)
-                               (cdr #{maps\ 1228}#)))
-                           (lambda (#{outer-var\ 1229}# #{outer-maps\ 1230}#)
-                             (let ((#{b\ 1231}#
-                                     (assq #{outer-var\ 1229}#
-                                           (car #{maps\ 1228}#))))
-                               (if #{b\ 1231}#
-                                 (values (cdr #{b\ 1231}#) #{maps\ 1228}#)
-                                 (let ((#{inner-var\ 1232}#
-                                         (#{gen-var\ 178}# (quote tmp))))
+                             (#{gen-ref\ 2720}#
+                               #{src\ 2810}#
+                               #{var\ 2811}#
+                               (#{fx-\ 165}# #{level\ 2812}# 1)
+                               (cdr #{maps\ 2813}#)))
+                           (lambda (#{outer-var\ 2818}# #{outer-maps\ 2819}#)
+                             (let ((#{b\ 2823}#
+                                     (assq #{outer-var\ 2818}#
+                                           (car #{maps\ 2813}#))))
+                               (if #{b\ 2823}#
+                                 (values (cdr #{b\ 2823}#) #{maps\ 2813}#)
+                                 (let ((#{inner-var\ 2825}#
+                                         (#{gen-var\ 373}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 1232}#
-                                     (cons (cons (cons #{outer-var\ 1229}#
-                                                       #{inner-var\ 1232}#)
-                                                 (car #{maps\ 1228}#))
-                                           #{outer-maps\ 1230}#)))))))))))
-                 (#{gen-syntax\ 1199}#
-                   (lambda (#{src\ 1233}#
-                            #{e\ 1234}#
-                            #{r\ 1235}#
-                            #{maps\ 1236}#
-                            #{ellipsis?\ 1237}#
-                            #{mod\ 1238}#)
-                     (if (#{id?\ 128}# #{e\ 1234}#)
-                       (let ((#{label\ 1239}#
-                               (#{id-var-name\ 150}#
-                                 #{e\ 1234}#
+                                     #{inner-var\ 2825}#
+                                     (cons (cons (cons #{outer-var\ 2818}#
+                                                       #{inner-var\ 2825}#)
+                                                 (car #{maps\ 2813}#))
+                                           #{outer-maps\ 2819}#)))))))))))
+                 (#{gen-syntax\ 2718}#
+                   (lambda (#{src\ 2826}#
+                            #{e\ 2827}#
+                            #{r\ 2828}#
+                            #{maps\ 2829}#
+                            #{ellipsis?\ 2830}#
+                            #{mod\ 2831}#)
+                     (if (#{id?\ 260}# #{e\ 2827}#)
+                       (let ((#{label\ 2839}#
+                               (#{id-var-name\ 317}#
+                                 #{e\ 2827}#
                                  '(()))))
-                         (let ((#{b\ 1240}#
-                                 (#{lookup\ 125}#
-                                   #{label\ 1239}#
-                                   #{r\ 1235}#
-                                   #{mod\ 1238}#)))
-                           (if (eq? (#{binding-type\ 120}# #{b\ 1240}#)
+                         (let ((#{b\ 2842}#
+                                 (#{lookup\ 254}#
+                                   #{label\ 2839}#
+                                   #{r\ 2828}#
+                                   #{mod\ 2831}#)))
+                           (if (eq? (#{binding-type\ 243}# #{b\ 2842}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 1241}#
-                                         (#{binding-value\ 121}# #{b\ 1240}#)))
-                                   (#{gen-ref\ 1200}#
-                                     #{src\ 1233}#
-                                     (car #{var.lev\ 1241}#)
-                                     (cdr #{var.lev\ 1241}#)
-                                     #{maps\ 1236}#)))
-                               (lambda (#{var\ 1242}# #{maps\ 1243}#)
+                                 (let ((#{var.lev\ 2844}#
+                                         (#{binding-value\ 245}# #{b\ 2842}#)))
+                                   (#{gen-ref\ 2720}#
+                                     #{src\ 2826}#
+                                     (car #{var.lev\ 2844}#)
+                                     (cdr #{var.lev\ 2844}#)
+                                     #{maps\ 2829}#)))
+                               (lambda (#{var\ 2845}# #{maps\ 2846}#)
                                  (values
-                                   (list (quote ref) #{var\ 1242}#)
-                                   #{maps\ 1243}#)))
-                             (if (#{ellipsis?\ 1237}# #{e\ 1234}#)
+                                   (list (quote ref) #{var\ 2845}#)
+                                   #{maps\ 2846}#)))
+                             (if (#{ellipsis?\ 2830}# #{e\ 2827}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 1233}#)
+                                 #{src\ 2826}#)
                                (values
-                                 (list (quote quote) #{e\ 1234}#)
-                                 #{maps\ 1236}#)))))
-                       ((lambda (#{tmp\ 1244}#)
-                          ((lambda (#{tmp\ 1245}#)
-                             (if (if #{tmp\ 1245}#
-                                   (apply (lambda (#{dots\ 1246}# #{e\ 1247}#)
-                                            (#{ellipsis?\ 1237}#
-                                              #{dots\ 1246}#))
-                                          #{tmp\ 1245}#)
+                                 (list (quote quote) #{e\ 2827}#)
+                                 #{maps\ 2829}#)))))
+                       ((lambda (#{tmp\ 2851}#)
+                          ((lambda (#{tmp\ 2852}#)
+                             (if (if #{tmp\ 2852}#
+                                   (apply (lambda (#{dots\ 2855}# #{e\ 2856}#)
+                                            (#{ellipsis?\ 2830}#
+                                              #{dots\ 2855}#))
+                                          #{tmp\ 2852}#)
                                    #f)
-                               (apply (lambda (#{dots\ 1248}# #{e\ 1249}#)
-                                        (#{gen-syntax\ 1199}#
-                                          #{src\ 1233}#
-                                          #{e\ 1249}#
-                                          #{r\ 1235}#
-                                          #{maps\ 1236}#
-                                          (lambda (#{x\ 1250}#) #f)
-                                          #{mod\ 1238}#))
-                                      #{tmp\ 1245}#)
-                               ((lambda (#{tmp\ 1251}#)
-                                  (if (if #{tmp\ 1251}#
-                                        (apply (lambda (#{x\ 1252}#
-                                                        #{dots\ 1253}#
-                                                        #{y\ 1254}#)
-                                                 (#{ellipsis?\ 1237}#
-                                                   #{dots\ 1253}#))
-                                               #{tmp\ 1251}#)
+                               (apply (lambda (#{dots\ 2859}# #{e\ 2860}#)
+                                        (#{gen-syntax\ 2718}#
+                                          #{src\ 2826}#
+                                          #{e\ 2860}#
+                                          #{r\ 2828}#
+                                          #{maps\ 2829}#
+                                          (lambda (#{x\ 2861}#) #f)
+                                          #{mod\ 2831}#))
+                                      #{tmp\ 2852}#)
+                               ((lambda (#{tmp\ 2863}#)
+                                  (if (if #{tmp\ 2863}#
+                                        (apply (lambda (#{x\ 2867}#
+                                                        #{dots\ 2868}#
+                                                        #{y\ 2869}#)
+                                                 (#{ellipsis?\ 2830}#
+                                                   #{dots\ 2868}#))
+                                               #{tmp\ 2863}#)
                                         #f)
-                                    (apply (lambda (#{x\ 1255}#
-                                                    #{dots\ 1256}#
-                                                    #{y\ 1257}#)
-                                             (letrec ((#{f\ 1258}#
-                                                        (lambda (#{y\ 1259}#
-                                                                 #{k\ 1260}#)
-                                                          ((lambda (#{tmp\ 
1264}#)
-                                                             ((lambda (#{tmp\ 
1265}#)
-                                                                (if (if #{tmp\ 
1265}#
-                                                                      (apply 
(lambda (#{dots\ 1266}#
-                                                                               
       #{y\ 1267}#)
-                                                                               
(#{ellipsis?\ 1237}#
-                                                                               
  #{dots\ 1266}#))
-                                                                             
#{tmp\ 1265}#)
+                                    (apply (lambda (#{x\ 2873}#
+                                                    #{dots\ 2874}#
+                                                    #{y\ 2875}#)
+                                             (letrec ((#{f\ 2879}#
+                                                        (lambda (#{y\ 2880}#
+                                                                 #{k\ 2881}#)
+                                                          ((lambda (#{tmp\ 
2888}#)
+                                                             ((lambda (#{tmp\ 
2889}#)
+                                                                (if (if #{tmp\ 
2889}#
+                                                                      (apply 
(lambda (#{dots\ 2892}#
+                                                                               
       #{y\ 2893}#)
+                                                                               
(#{ellipsis?\ 2830}#
+                                                                               
  #{dots\ 2892}#))
+                                                                             
#{tmp\ 2889}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 1268}#
-                                                                               
   #{y\ 1269}#)
-                                                                           
(#{f\ 1258}#
-                                                                             
#{y\ 1269}#
-                                                                             
(lambda (#{maps\ 1270}#)
+                                                                  (apply 
(lambda (#{dots\ 2896}#
+                                                                               
   #{y\ 2897}#)
+                                                                           
(#{f\ 2879}#
+                                                                             
#{y\ 2897}#
+                                                                             
(lambda (#{maps\ 2898}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 1260}#
+                                                                               
    (#{k\ 2881}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 1270}#)))
-                                                                               
  (lambda (#{x\ 1271}#
-                                                                               
           #{maps\ 1272}#)
-                                                                               
    (if (null? (car #{maps\ 1272}#))
+                                                                               
            #{maps\ 2898}#)))
+                                                                               
  (lambda (#{x\ 2900}#
+                                                                               
           #{maps\ 2901}#)
+                                                                               
    (if (null? (car #{maps\ 2901}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 1233}#)
+                                                                               
        #{src\ 2826}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 1201}#
-                                                                               
          #{x\ 1271}#
-                                                                               
          (car #{maps\ 1272}#))
-                                                                               
        (cdr #{maps\ 1272}#))))))))
-                                                                         
#{tmp\ 1265}#)
-                                                                  ((lambda 
(#{_\ 1273}#)
+                                                                               
        (#{gen-mappend\ 2722}#
+                                                                               
          #{x\ 2900}#
+                                                                               
          (car #{maps\ 2901}#))
+                                                                               
        (cdr #{maps\ 2901}#))))))))
+                                                                         
#{tmp\ 2889}#)
+                                                                  ((lambda 
(#{_\ 2905}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 1199}#
-                                                                           
#{src\ 1233}#
-                                                                           
#{y\ 1259}#
-                                                                           
#{r\ 1235}#
-                                                                           
#{maps\ 1236}#
-                                                                           
#{ellipsis?\ 1237}#
-                                                                           
#{mod\ 1238}#))
-                                                                       (lambda 
(#{y\ 1274}#
-                                                                               
 #{maps\ 1275}#)
+                                                                         
(#{gen-syntax\ 2718}#
+                                                                           
#{src\ 2826}#
+                                                                           
#{y\ 2880}#
+                                                                           
#{r\ 2828}#
+                                                                           
#{maps\ 2829}#
+                                                                           
#{ellipsis?\ 2830}#
+                                                                           
#{mod\ 2831}#))
+                                                                       (lambda 
(#{y\ 2906}#
+                                                                               
 #{maps\ 2907}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 1260}#
-                                                                               
#{maps\ 1275}#))
-                                                                           
(lambda (#{x\ 1276}#
-                                                                               
     #{maps\ 1277}#)
+                                                                             
(#{k\ 2881}#
+                                                                               
#{maps\ 2907}#))
+                                                                           
(lambda (#{x\ 2910}#
+                                                                               
     #{maps\ 2911}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 1204}#
-                                                                               
  #{x\ 1276}#
-                                                                               
  #{y\ 1274}#)
-                                                                               
#{maps\ 1277}#))))))
-                                                                   #{tmp\ 
1264}#)))
+                                                                               
(#{gen-append\ 2728}#
+                                                                               
  #{x\ 2910}#
+                                                                               
  #{y\ 2906}#)
+                                                                               
#{maps\ 2911}#))))))
+                                                                   #{tmp\ 
2888}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 1264}#
+                                                                #{tmp\ 2888}#
                                                                 '(any . any))))
-                                                           #{y\ 1259}#))))
-                                               (#{f\ 1258}#
-                                                 #{y\ 1257}#
-                                                 (lambda (#{maps\ 1261}#)
+                                                           #{y\ 2880}#))))
+                                               (#{f\ 2879}#
+                                                 #{y\ 2875}#
+                                                 (lambda (#{maps\ 2882}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 1199}#
-                                                         #{src\ 1233}#
-                                                         #{x\ 1255}#
-                                                         #{r\ 1235}#
+                                                       (#{gen-syntax\ 2718}#
+                                                         #{src\ 2826}#
+                                                         #{x\ 2873}#
+                                                         #{r\ 2828}#
                                                          (cons '()
-                                                               #{maps\ 1261}#)
-                                                         #{ellipsis?\ 1237}#
-                                                         #{mod\ 1238}#))
-                                                     (lambda (#{x\ 1262}#
-                                                              #{maps\ 1263}#)
-                                                       (if (null? (car #{maps\ 
1263}#))
+                                                               #{maps\ 2882}#)
+                                                         #{ellipsis?\ 2830}#
+                                                         #{mod\ 2831}#))
+                                                     (lambda (#{x\ 2884}#
+                                                              #{maps\ 2885}#)
+                                                       (if (null? (car #{maps\ 
2885}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 1233}#)
+                                                           #{src\ 2826}#)
                                                          (values
-                                                           (#{gen-map\ 1202}#
-                                                             #{x\ 1262}#
-                                                             (car #{maps\ 
1263}#))
-                                                           (cdr #{maps\ 
1263}#)))))))))
-                                           #{tmp\ 1251}#)
-                                    ((lambda (#{tmp\ 1278}#)
-                                       (if #{tmp\ 1278}#
-                                         (apply (lambda (#{x\ 1279}#
-                                                         #{y\ 1280}#)
+                                                           (#{gen-map\ 2724}#
+                                                             #{x\ 2884}#
+                                                             (car #{maps\ 
2885}#))
+                                                           (cdr #{maps\ 
2885}#)))))))))
+                                           #{tmp\ 2863}#)
+                                    ((lambda (#{tmp\ 2914}#)
+                                       (if #{tmp\ 2914}#
+                                         (apply (lambda (#{x\ 2917}#
+                                                         #{y\ 2918}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 1199}#
-                                                        #{src\ 1233}#
-                                                        #{x\ 1279}#
-                                                        #{r\ 1235}#
-                                                        #{maps\ 1236}#
-                                                        #{ellipsis?\ 1237}#
-                                                        #{mod\ 1238}#))
-                                                    (lambda (#{x\ 1281}#
-                                                             #{maps\ 1282}#)
+                                                      (#{gen-syntax\ 2718}#
+                                                        #{src\ 2826}#
+                                                        #{x\ 2917}#
+                                                        #{r\ 2828}#
+                                                        #{maps\ 2829}#
+                                                        #{ellipsis?\ 2830}#
+                                                        #{mod\ 2831}#))
+                                                    (lambda (#{x\ 2919}#
+                                                             #{maps\ 2920}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 1199}#
-                                                            #{src\ 1233}#
-                                                            #{y\ 1280}#
-                                                            #{r\ 1235}#
-                                                            #{maps\ 1282}#
-                                                            #{ellipsis?\ 1237}#
-                                                            #{mod\ 1238}#))
-                                                        (lambda (#{y\ 1283}#
-                                                                 #{maps\ 
1284}#)
+                                                          (#{gen-syntax\ 2718}#
+                                                            #{src\ 2826}#
+                                                            #{y\ 2918}#
+                                                            #{r\ 2828}#
+                                                            #{maps\ 2920}#
+                                                            #{ellipsis?\ 2830}#
+                                                            #{mod\ 2831}#))
+                                                        (lambda (#{y\ 2923}#
+                                                                 #{maps\ 
2924}#)
                                                           (values
-                                                            (#{gen-cons\ 1203}#
-                                                              #{x\ 1281}#
-                                                              #{y\ 1283}#)
-                                                            #{maps\ 
1284}#))))))
-                                                #{tmp\ 1278}#)
-                                         ((lambda (#{tmp\ 1285}#)
-                                            (if #{tmp\ 1285}#
-                                              (apply (lambda (#{e1\ 1286}#
-                                                              #{e2\ 1287}#)
+                                                            (#{gen-cons\ 2726}#
+                                                              #{x\ 2919}#
+                                                              #{y\ 2923}#)
+                                                            #{maps\ 
2924}#))))))
+                                                #{tmp\ 2914}#)
+                                         ((lambda (#{tmp\ 2927}#)
+                                            (if #{tmp\ 2927}#
+                                              (apply (lambda (#{e1\ 2930}#
+                                                              #{e2\ 2931}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
1199}#
-                                                             #{src\ 1233}#
-                                                             (cons #{e1\ 1286}#
-                                                                   #{e2\ 
1287}#)
-                                                             #{r\ 1235}#
-                                                             #{maps\ 1236}#
-                                                             #{ellipsis?\ 
1237}#
-                                                             #{mod\ 1238}#))
-                                                         (lambda (#{e\ 1289}#
-                                                                  #{maps\ 
1290}#)
+                                                           (#{gen-syntax\ 
2718}#
+                                                             #{src\ 2826}#
+                                                             (cons #{e1\ 2930}#
+                                                                   #{e2\ 
2931}#)
+                                                             #{r\ 2828}#
+                                                             #{maps\ 2829}#
+                                                             #{ellipsis?\ 
2830}#
+                                                             #{mod\ 2831}#))
+                                                         (lambda (#{e\ 2933}#
+                                                                  #{maps\ 
2934}#)
                                                            (values
-                                                             (#{gen-vector\ 
1205}#
-                                                               #{e\ 1289}#)
-                                                             #{maps\ 1290}#))))
-                                                     #{tmp\ 1285}#)
-                                              ((lambda (#{_\ 1291}#)
+                                                             (#{gen-vector\ 
2730}#
+                                                               #{e\ 2933}#)
+                                                             #{maps\ 2934}#))))
+                                                     #{tmp\ 2927}#)
+                                              ((lambda (#{_\ 2938}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 1234}#)
-                                                   #{maps\ 1236}#))
-                                               #{tmp\ 1244}#)))
+                                                         #{e\ 2827}#)
+                                                   #{maps\ 2829}#))
+                                               #{tmp\ 2851}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 1244}#
+                                            #{tmp\ 2851}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 1244}#
+                                       #{tmp\ 2851}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 1244}#
+                                  #{tmp\ 2851}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 1244}# (quote (any any)))))
-                        #{e\ 1234}#)))))
-          (lambda (#{e\ 1292}#
-                   #{r\ 1293}#
-                   #{w\ 1294}#
-                   #{s\ 1295}#
-                   #{mod\ 1296}#)
-            (let ((#{e\ 1297}#
-                    (#{source-wrap\ 157}#
-                      #{e\ 1292}#
-                      #{w\ 1294}#
-                      #{s\ 1295}#
-                      #{mod\ 1296}#)))
-              ((lambda (#{tmp\ 1298}#)
-                 ((lambda (#{tmp\ 1299}#)
-                    (if #{tmp\ 1299}#
-                      (apply (lambda (#{_\ 1300}# #{x\ 1301}#)
+                           ($sc-dispatch #{tmp\ 2851}# (quote (any any)))))
+                        #{e\ 2827}#)))))
+          (lambda (#{e\ 2940}#
+                   #{r\ 2941}#
+                   #{w\ 2942}#
+                   #{s\ 2943}#
+                   #{mod\ 2944}#)
+            (let ((#{e\ 2951}#
+                    (#{source-wrap\ 331}#
+                      #{e\ 2940}#
+                      #{w\ 2942}#
+                      #{s\ 2943}#
+                      #{mod\ 2944}#)))
+              ((lambda (#{tmp\ 2952}#)
+                 ((lambda (#{tmp\ 2953}#)
+                    (if #{tmp\ 2953}#
+                      (apply (lambda (#{_\ 2956}# #{x\ 2957}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 1199}#
-                                     #{e\ 1297}#
-                                     #{x\ 1301}#
-                                     #{r\ 1293}#
+                                   (#{gen-syntax\ 2718}#
+                                     #{e\ 2951}#
+                                     #{x\ 2957}#
+                                     #{r\ 2941}#
                                      '()
-                                     #{ellipsis?\ 172}#
-                                     #{mod\ 1296}#))
-                                 (lambda (#{e\ 1302}# #{maps\ 1303}#)
-                                   (#{regen\ 1206}# #{e\ 1302}#))))
-                             #{tmp\ 1299}#)
-                      ((lambda (#{_\ 1304}#)
+                                     #{ellipsis?\ 361}#
+                                     #{mod\ 2944}#))
+                                 (lambda (#{e\ 2958}# #{maps\ 2959}#)
+                                   (#{regen\ 2732}# #{e\ 2958}#))))
+                             #{tmp\ 2953}#)
+                      ((lambda (#{_\ 2963}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 1297}#))
-                       #{tmp\ 1298}#)))
-                  ($sc-dispatch #{tmp\ 1298}# (quote (any any)))))
-               #{e\ 1297}#)))))
-      (#{global-extend\ 126}#
+                           #{e\ 2951}#))
+                       #{tmp\ 2952}#)))
+                  ($sc-dispatch #{tmp\ 2952}# (quote (any any)))))
+               #{e\ 2951}#)))))
+      (#{global-extend\ 256}#
         'core
         'lambda
-        (lambda (#{e\ 1305}#
-                 #{r\ 1306}#
-                 #{w\ 1307}#
-                 #{s\ 1308}#
-                 #{mod\ 1309}#)
-          ((lambda (#{tmp\ 1310}#)
-             ((lambda (#{tmp\ 1311}#)
-                (if (if #{tmp\ 1311}#
-                      (apply (lambda (#{_\ 1312}#
-                                      #{args\ 1313}#
-                                      #{docstring\ 1314}#
-                                      #{e1\ 1315}#
-                                      #{e2\ 1316}#)
-                               (string? (syntax->datum #{docstring\ 1314}#)))
-                             #{tmp\ 1311}#)
+        (lambda (#{e\ 2964}#
+                 #{r\ 2965}#
+                 #{w\ 2966}#
+                 #{s\ 2967}#
+                 #{mod\ 2968}#)
+          ((lambda (#{tmp\ 2974}#)
+             ((lambda (#{tmp\ 2975}#)
+                (if (if #{tmp\ 2975}#
+                      (apply (lambda (#{_\ 2981}#
+                                      #{args\ 2982}#
+                                      #{docstring\ 2983}#
+                                      #{e1\ 2984}#
+                                      #{e2\ 2985}#)
+                               (string? (syntax->datum #{docstring\ 2983}#)))
+                             #{tmp\ 2975}#)
                       #f)
-                  (apply (lambda (#{_\ 1317}#
-                                  #{args\ 1318}#
-                                  #{docstring\ 1319}#
-                                  #{e1\ 1320}#
-                                  #{e2\ 1321}#)
+                  (apply (lambda (#{_\ 2991}#
+                                  #{args\ 2992}#
+                                  #{docstring\ 2993}#
+                                  #{e1\ 2994}#
+                                  #{e2\ 2995}#)
                            (call-with-values
                              (lambda ()
-                               (#{lambda-formals\ 173}# #{args\ 1318}#))
-                             (lambda (#{req\ 1322}#
-                                      #{opt\ 1323}#
-                                      #{rest\ 1324}#
-                                      #{kw\ 1325}#)
-                               (#{chi-simple-lambda\ 174}#
-                                 #{e\ 1305}#
-                                 #{r\ 1306}#
-                                 #{w\ 1307}#
-                                 #{s\ 1308}#
-                                 #{mod\ 1309}#
-                                 #{req\ 1322}#
-                                 #{rest\ 1324}#
-                                 (syntax->datum #{docstring\ 1319}#)
-                                 (cons #{e1\ 1320}# #{e2\ 1321}#)))))
-                         #{tmp\ 1311}#)
-                  ((lambda (#{tmp\ 1327}#)
-                     (if #{tmp\ 1327}#
-                       (apply (lambda (#{_\ 1328}#
-                                       #{args\ 1329}#
-                                       #{e1\ 1330}#
-                                       #{e2\ 1331}#)
+                               (#{lambda-formals\ 363}# #{args\ 2992}#))
+                             (lambda (#{req\ 2996}#
+                                      #{opt\ 2997}#
+                                      #{rest\ 2998}#
+                                      #{kw\ 2999}#)
+                               (#{chi-simple-lambda\ 365}#
+                                 #{e\ 2964}#
+                                 #{r\ 2965}#
+                                 #{w\ 2966}#
+                                 #{s\ 2967}#
+                                 #{mod\ 2968}#
+                                 #{req\ 2996}#
+                                 #{rest\ 2998}#
+                                 (syntax->datum #{docstring\ 2993}#)
+                                 (cons #{e1\ 2994}# #{e2\ 2995}#)))))
+                         #{tmp\ 2975}#)
+                  ((lambda (#{tmp\ 3005}#)
+                     (if #{tmp\ 3005}#
+                       (apply (lambda (#{_\ 3010}#
+                                       #{args\ 3011}#
+                                       #{e1\ 3012}#
+                                       #{e2\ 3013}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{lambda-formals\ 173}# #{args\ 1329}#))
-                                  (lambda (#{req\ 1332}#
-                                           #{opt\ 1333}#
-                                           #{rest\ 1334}#
-                                           #{kw\ 1335}#)
-                                    (#{chi-simple-lambda\ 174}#
-                                      #{e\ 1305}#
-                                      #{r\ 1306}#
-                                      #{w\ 1307}#
-                                      #{s\ 1308}#
-                                      #{mod\ 1309}#
-                                      #{req\ 1332}#
-                                      #{rest\ 1334}#
+                                    (#{lambda-formals\ 363}# #{args\ 3011}#))
+                                  (lambda (#{req\ 3014}#
+                                           #{opt\ 3015}#
+                                           #{rest\ 3016}#
+                                           #{kw\ 3017}#)
+                                    (#{chi-simple-lambda\ 365}#
+                                      #{e\ 2964}#
+                                      #{r\ 2965}#
+                                      #{w\ 2966}#
+                                      #{s\ 2967}#
+                                      #{mod\ 2968}#
+                                      #{req\ 3014}#
+                                      #{rest\ 3016}#
                                       #f
-                                      (cons #{e1\ 1330}# #{e2\ 1331}#)))))
-                              #{tmp\ 1327}#)
-                       ((lambda (#{_\ 1337}#)
+                                      (cons #{e1\ 3012}# #{e2\ 3013}#)))))
+                              #{tmp\ 3005}#)
+                       ((lambda (#{_\ 3024}#)
                           (syntax-violation
                             'lambda
                             "bad lambda"
-                            #{e\ 1305}#))
-                        #{tmp\ 1310}#)))
+                            #{e\ 2964}#))
+                        #{tmp\ 2974}#)))
                    ($sc-dispatch
-                     #{tmp\ 1310}#
+                     #{tmp\ 2974}#
                      '(any any any . each-any)))))
               ($sc-dispatch
-                #{tmp\ 1310}#
+                #{tmp\ 2974}#
                 '(any any any any . each-any))))
-           #{e\ 1305}#)))
-      (#{global-extend\ 126}#
+           #{e\ 2964}#)))
+      (#{global-extend\ 256}#
         'core
         'lambda*
-        (lambda (#{e\ 1338}#
-                 #{r\ 1339}#
-                 #{w\ 1340}#
-                 #{s\ 1341}#
-                 #{mod\ 1342}#)
-          ((lambda (#{tmp\ 1343}#)
-             ((lambda (#{tmp\ 1344}#)
-                (if #{tmp\ 1344}#
-                  (apply (lambda (#{_\ 1345}#
-                                  #{args\ 1346}#
-                                  #{e1\ 1347}#
-                                  #{e2\ 1348}#)
+        (lambda (#{e\ 3025}#
+                 #{r\ 3026}#
+                 #{w\ 3027}#
+                 #{s\ 3028}#
+                 #{mod\ 3029}#)
+          ((lambda (#{tmp\ 3035}#)
+             ((lambda (#{tmp\ 3036}#)
+                (if #{tmp\ 3036}#
+                  (apply (lambda (#{_\ 3041}#
+                                  #{args\ 3042}#
+                                  #{e1\ 3043}#
+                                  #{e2\ 3044}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 176}#
-                                 #{e\ 1338}#
-                                 #{r\ 1339}#
-                                 #{w\ 1340}#
-                                 #{s\ 1341}#
-                                 #{mod\ 1342}#
-                                 #{lambda*-formals\ 175}#
-                                 (list (cons #{args\ 1346}#
-                                             (cons #{e1\ 1347}#
-                                                   #{e2\ 1348}#)))))
-                             (lambda (#{docstring\ 1350}# #{lcase\ 1351}#)
-                               (#{build-case-lambda\ 103}#
-                                 #{s\ 1341}#
-                                 #{docstring\ 1350}#
-                                 #{lcase\ 1351}#))))
-                         #{tmp\ 1344}#)
-                  ((lambda (#{_\ 1352}#)
+                               (#{chi-lambda-case\ 369}#
+                                 #{e\ 3025}#
+                                 #{r\ 3026}#
+                                 #{w\ 3027}#
+                                 #{s\ 3028}#
+                                 #{mod\ 3029}#
+                                 #{lambda*-formals\ 367}#
+                                 (list (cons #{args\ 3042}#
+                                             (cons #{e1\ 3043}#
+                                                   #{e2\ 3044}#)))))
+                             (lambda (#{docstring\ 3046}# #{lcase\ 3047}#)
+                               (#{build-case-lambda\ 204}#
+                                 #{s\ 3028}#
+                                 #{docstring\ 3046}#
+                                 #{lcase\ 3047}#))))
+                         #{tmp\ 3036}#)
+                  ((lambda (#{_\ 3051}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 1338}#))
-                   #{tmp\ 1343}#)))
+                       #{e\ 3025}#))
+                   #{tmp\ 3035}#)))
               ($sc-dispatch
-                #{tmp\ 1343}#
+                #{tmp\ 3035}#
                 '(any any any . each-any))))
-           #{e\ 1338}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3025}#)))
+      (#{global-extend\ 256}#
         'core
         'case-lambda
-        (lambda (#{e\ 1353}#
-                 #{r\ 1354}#
-                 #{w\ 1355}#
-                 #{s\ 1356}#
-                 #{mod\ 1357}#)
-          ((lambda (#{tmp\ 1358}#)
-             ((lambda (#{tmp\ 1359}#)
-                (if #{tmp\ 1359}#
-                  (apply (lambda (#{_\ 1360}#
-                                  #{args\ 1361}#
-                                  #{e1\ 1362}#
-                                  #{e2\ 1363}#
-                                  #{args*\ 1364}#
-                                  #{e1*\ 1365}#
-                                  #{e2*\ 1366}#)
+        (lambda (#{e\ 3052}#
+                 #{r\ 3053}#
+                 #{w\ 3054}#
+                 #{s\ 3055}#
+                 #{mod\ 3056}#)
+          ((lambda (#{tmp\ 3062}#)
+             ((lambda (#{tmp\ 3063}#)
+                (if #{tmp\ 3063}#
+                  (apply (lambda (#{_\ 3071}#
+                                  #{args\ 3072}#
+                                  #{e1\ 3073}#
+                                  #{e2\ 3074}#
+                                  #{args*\ 3075}#
+                                  #{e1*\ 3076}#
+                                  #{e2*\ 3077}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 176}#
-                                 #{e\ 1353}#
-                                 #{r\ 1354}#
-                                 #{w\ 1355}#
-                                 #{s\ 1356}#
-                                 #{mod\ 1357}#
-                                 #{lambda-formals\ 173}#
-                                 (cons (cons #{args\ 1361}#
-                                             (cons #{e1\ 1362}# #{e2\ 1363}#))
-                                       (map (lambda (#{tmp\ 1370}#
-                                                     #{tmp\ 1369}#
-                                                     #{tmp\ 1368}#)
-                                              (cons #{tmp\ 1368}#
-                                                    (cons #{tmp\ 1369}#
-                                                          #{tmp\ 1370}#)))
-                                            #{e2*\ 1366}#
-                                            #{e1*\ 1365}#
-                                            #{args*\ 1364}#))))
-                             (lambda (#{docstring\ 1372}# #{lcase\ 1373}#)
-                               (#{build-case-lambda\ 103}#
-                                 #{s\ 1356}#
-                                 #{docstring\ 1372}#
-                                 #{lcase\ 1373}#))))
-                         #{tmp\ 1359}#)
-                  ((lambda (#{_\ 1374}#)
+                               (#{chi-lambda-case\ 369}#
+                                 #{e\ 3052}#
+                                 #{r\ 3053}#
+                                 #{w\ 3054}#
+                                 #{s\ 3055}#
+                                 #{mod\ 3056}#
+                                 #{lambda-formals\ 363}#
+                                 (cons (cons #{args\ 3072}#
+                                             (cons #{e1\ 3073}# #{e2\ 3074}#))
+                                       (map (lambda (#{tmp\ 3081}#
+                                                     #{tmp\ 3080}#
+                                                     #{tmp\ 3079}#)
+                                              (cons #{tmp\ 3079}#
+                                                    (cons #{tmp\ 3080}#
+                                                          #{tmp\ 3081}#)))
+                                            #{e2*\ 3077}#
+                                            #{e1*\ 3076}#
+                                            #{args*\ 3075}#))))
+                             (lambda (#{docstring\ 3083}# #{lcase\ 3084}#)
+                               (#{build-case-lambda\ 204}#
+                                 #{s\ 3055}#
+                                 #{docstring\ 3083}#
+                                 #{lcase\ 3084}#))))
+                         #{tmp\ 3063}#)
+                  ((lambda (#{_\ 3088}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 1353}#))
-                   #{tmp\ 1358}#)))
+                       #{e\ 3052}#))
+                   #{tmp\ 3062}#)))
               ($sc-dispatch
-                #{tmp\ 1358}#
+                #{tmp\ 3062}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 1353}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3052}#)))
+      (#{global-extend\ 256}#
         'core
         'case-lambda*
-        (lambda (#{e\ 1375}#
-                 #{r\ 1376}#
-                 #{w\ 1377}#
-                 #{s\ 1378}#
-                 #{mod\ 1379}#)
-          ((lambda (#{tmp\ 1380}#)
-             ((lambda (#{tmp\ 1381}#)
-                (if #{tmp\ 1381}#
-                  (apply (lambda (#{_\ 1382}#
-                                  #{args\ 1383}#
-                                  #{e1\ 1384}#
-                                  #{e2\ 1385}#
-                                  #{args*\ 1386}#
-                                  #{e1*\ 1387}#
-                                  #{e2*\ 1388}#)
+        (lambda (#{e\ 3089}#
+                 #{r\ 3090}#
+                 #{w\ 3091}#
+                 #{s\ 3092}#
+                 #{mod\ 3093}#)
+          ((lambda (#{tmp\ 3099}#)
+             ((lambda (#{tmp\ 3100}#)
+                (if #{tmp\ 3100}#
+                  (apply (lambda (#{_\ 3108}#
+                                  #{args\ 3109}#
+                                  #{e1\ 3110}#
+                                  #{e2\ 3111}#
+                                  #{args*\ 3112}#
+                                  #{e1*\ 3113}#
+                                  #{e2*\ 3114}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 176}#
-                                 #{e\ 1375}#
-                                 #{r\ 1376}#
-                                 #{w\ 1377}#
-                                 #{s\ 1378}#
-                                 #{mod\ 1379}#
-                                 #{lambda*-formals\ 175}#
-                                 (cons (cons #{args\ 1383}#
-                                             (cons #{e1\ 1384}# #{e2\ 1385}#))
-                                       (map (lambda (#{tmp\ 1392}#
-                                                     #{tmp\ 1391}#
-                                                     #{tmp\ 1390}#)
-                                              (cons #{tmp\ 1390}#
-                                                    (cons #{tmp\ 1391}#
-                                                          #{tmp\ 1392}#)))
-                                            #{e2*\ 1388}#
-                                            #{e1*\ 1387}#
-                                            #{args*\ 1386}#))))
-                             (lambda (#{docstring\ 1394}# #{lcase\ 1395}#)
-                               (#{build-case-lambda\ 103}#
-                                 #{s\ 1378}#
-                                 #{docstring\ 1394}#
-                                 #{lcase\ 1395}#))))
-                         #{tmp\ 1381}#)
-                  ((lambda (#{_\ 1396}#)
+                               (#{chi-lambda-case\ 369}#
+                                 #{e\ 3089}#
+                                 #{r\ 3090}#
+                                 #{w\ 3091}#
+                                 #{s\ 3092}#
+                                 #{mod\ 3093}#
+                                 #{lambda*-formals\ 367}#
+                                 (cons (cons #{args\ 3109}#
+                                             (cons #{e1\ 3110}# #{e2\ 3111}#))
+                                       (map (lambda (#{tmp\ 3118}#
+                                                     #{tmp\ 3117}#
+                                                     #{tmp\ 3116}#)
+                                              (cons #{tmp\ 3116}#
+                                                    (cons #{tmp\ 3117}#
+                                                          #{tmp\ 3118}#)))
+                                            #{e2*\ 3114}#
+                                            #{e1*\ 3113}#
+                                            #{args*\ 3112}#))))
+                             (lambda (#{docstring\ 3120}# #{lcase\ 3121}#)
+                               (#{build-case-lambda\ 204}#
+                                 #{s\ 3092}#
+                                 #{docstring\ 3120}#
+                                 #{lcase\ 3121}#))))
+                         #{tmp\ 3100}#)
+                  ((lambda (#{_\ 3125}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 1375}#))
-                   #{tmp\ 1380}#)))
+                       #{e\ 3089}#))
+                   #{tmp\ 3099}#)))
               ($sc-dispatch
-                #{tmp\ 1380}#
+                #{tmp\ 3099}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 1375}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3089}#)))
+      (#{global-extend\ 256}#
         'core
         'let
-        (letrec ((#{chi-let\ 1397}#
-                   (lambda (#{e\ 1398}#
-                            #{r\ 1399}#
-                            #{w\ 1400}#
-                            #{s\ 1401}#
-                            #{mod\ 1402}#
-                            #{constructor\ 1403}#
-                            #{ids\ 1404}#
-                            #{vals\ 1405}#
-                            #{exps\ 1406}#)
-                     (if (not (#{valid-bound-ids?\ 153}# #{ids\ 1404}#))
+        (letrec ((#{chi-let\ 3127}#
+                   (lambda (#{e\ 3128}#
+                            #{r\ 3129}#
+                            #{w\ 3130}#
+                            #{s\ 3131}#
+                            #{mod\ 3132}#
+                            #{constructor\ 3133}#
+                            #{ids\ 3134}#
+                            #{vals\ 3135}#
+                            #{exps\ 3136}#)
+                     (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3134}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 1398}#)
-                       (let ((#{labels\ 1407}#
-                               (#{gen-labels\ 134}# #{ids\ 1404}#))
-                             (#{new-vars\ 1408}#
-                               (map #{gen-var\ 178}# #{ids\ 1404}#)))
-                         (let ((#{nw\ 1409}#
-                                 (#{make-binding-wrap\ 145}#
-                                   #{ids\ 1404}#
-                                   #{labels\ 1407}#
-                                   #{w\ 1400}#))
-                               (#{nr\ 1410}#
-                                 (#{extend-var-env\ 123}#
-                                   #{labels\ 1407}#
-                                   #{new-vars\ 1408}#
-                                   #{r\ 1399}#)))
-                           (#{constructor\ 1403}#
-                             #{s\ 1401}#
-                             (map syntax->datum #{ids\ 1404}#)
-                             #{new-vars\ 1408}#
-                             (map (lambda (#{x\ 1411}#)
-                                    (#{chi\ 164}#
-                                      #{x\ 1411}#
-                                      #{r\ 1399}#
-                                      #{w\ 1400}#
-                                      #{mod\ 1402}#))
-                                  #{vals\ 1405}#)
-                             (#{chi-body\ 168}#
-                               #{exps\ 1406}#
-                               (#{source-wrap\ 157}#
-                                 #{e\ 1398}#
-                                 #{nw\ 1409}#
-                                 #{s\ 1401}#
-                                 #{mod\ 1402}#)
-                               #{nr\ 1410}#
-                               #{nw\ 1409}#
-                               #{mod\ 1402}#))))))))
-          (lambda (#{e\ 1412}#
-                   #{r\ 1413}#
-                   #{w\ 1414}#
-                   #{s\ 1415}#
-                   #{mod\ 1416}#)
-            ((lambda (#{tmp\ 1417}#)
-               ((lambda (#{tmp\ 1418}#)
-                  (if (if #{tmp\ 1418}#
-                        (apply (lambda (#{_\ 1419}#
-                                        #{id\ 1420}#
-                                        #{val\ 1421}#
-                                        #{e1\ 1422}#
-                                        #{e2\ 1423}#)
-                                 (and-map #{id?\ 128}# #{id\ 1420}#))
-                               #{tmp\ 1418}#)
+                         #{e\ 3128}#)
+                       (let ((#{labels\ 3148}#
+                               (#{gen-labels\ 278}# #{ids\ 3134}#))
+                             (#{new-vars\ 3149}#
+                               (map #{gen-var\ 373}# #{ids\ 3134}#)))
+                         (let ((#{nw\ 3152}#
+                                 (#{make-binding-wrap\ 307}#
+                                   #{ids\ 3134}#
+                                   #{labels\ 3148}#
+                                   #{w\ 3130}#))
+                               (#{nr\ 3153}#
+                                 (#{extend-var-env\ 250}#
+                                   #{labels\ 3148}#
+                                   #{new-vars\ 3149}#
+                                   #{r\ 3129}#)))
+                           (#{constructor\ 3133}#
+                             #{s\ 3131}#
+                             (map syntax->datum #{ids\ 3134}#)
+                             #{new-vars\ 3149}#
+                             (map (lambda (#{x\ 3154}#)
+                                    (#{chi\ 345}#
+                                      #{x\ 3154}#
+                                      #{r\ 3129}#
+                                      #{w\ 3130}#
+                                      #{mod\ 3132}#))
+                                  #{vals\ 3135}#)
+                             (#{chi-body\ 353}#
+                               #{exps\ 3136}#
+                               (#{source-wrap\ 331}#
+                                 #{e\ 3128}#
+                                 #{nw\ 3152}#
+                                 #{s\ 3131}#
+                                 #{mod\ 3132}#)
+                               #{nr\ 3153}#
+                               #{nw\ 3152}#
+                               #{mod\ 3132}#))))))))
+          (lambda (#{e\ 3156}#
+                   #{r\ 3157}#
+                   #{w\ 3158}#
+                   #{s\ 3159}#
+                   #{mod\ 3160}#)
+            ((lambda (#{tmp\ 3166}#)
+               ((lambda (#{tmp\ 3167}#)
+                  (if (if #{tmp\ 3167}#
+                        (apply (lambda (#{_\ 3173}#
+                                        #{id\ 3174}#
+                                        #{val\ 3175}#
+                                        #{e1\ 3176}#
+                                        #{e2\ 3177}#)
+                                 (and-map #{id?\ 260}# #{id\ 3174}#))
+                               #{tmp\ 3167}#)
                         #f)
-                    (apply (lambda (#{_\ 1425}#
-                                    #{id\ 1426}#
-                                    #{val\ 1427}#
-                                    #{e1\ 1428}#
-                                    #{e2\ 1429}#)
-                             (#{chi-let\ 1397}#
-                               #{e\ 1412}#
-                               #{r\ 1413}#
-                               #{w\ 1414}#
-                               #{s\ 1415}#
-                               #{mod\ 1416}#
-                               #{build-let\ 108}#
-                               #{id\ 1426}#
-                               #{val\ 1427}#
-                               (cons #{e1\ 1428}# #{e2\ 1429}#)))
-                           #{tmp\ 1418}#)
-                    ((lambda (#{tmp\ 1433}#)
-                       (if (if #{tmp\ 1433}#
-                             (apply (lambda (#{_\ 1434}#
-                                             #{f\ 1435}#
-                                             #{id\ 1436}#
-                                             #{val\ 1437}#
-                                             #{e1\ 1438}#
-                                             #{e2\ 1439}#)
-                                      (if (#{id?\ 128}# #{f\ 1435}#)
-                                        (and-map #{id?\ 128}# #{id\ 1436}#)
+                    (apply (lambda (#{_\ 3184}#
+                                    #{id\ 3185}#
+                                    #{val\ 3186}#
+                                    #{e1\ 3187}#
+                                    #{e2\ 3188}#)
+                             (#{chi-let\ 3127}#
+                               #{e\ 3156}#
+                               #{r\ 3157}#
+                               #{w\ 3158}#
+                               #{s\ 3159}#
+                               #{mod\ 3160}#
+                               #{build-let\ 214}#
+                               #{id\ 3185}#
+                               #{val\ 3186}#
+                               (cons #{e1\ 3187}# #{e2\ 3188}#)))
+                           #{tmp\ 3167}#)
+                    ((lambda (#{tmp\ 3192}#)
+                       (if (if #{tmp\ 3192}#
+                             (apply (lambda (#{_\ 3199}#
+                                             #{f\ 3200}#
+                                             #{id\ 3201}#
+                                             #{val\ 3202}#
+                                             #{e1\ 3203}#
+                                             #{e2\ 3204}#)
+                                      (if (#{id?\ 260}# #{f\ 3200}#)
+                                        (and-map #{id?\ 260}# #{id\ 3201}#)
                                         #f))
-                                    #{tmp\ 1433}#)
+                                    #{tmp\ 3192}#)
                              #f)
-                         (apply (lambda (#{_\ 1441}#
-                                         #{f\ 1442}#
-                                         #{id\ 1443}#
-                                         #{val\ 1444}#
-                                         #{e1\ 1445}#
-                                         #{e2\ 1446}#)
-                                  (#{chi-let\ 1397}#
-                                    #{e\ 1412}#
-                                    #{r\ 1413}#
-                                    #{w\ 1414}#
-                                    #{s\ 1415}#
-                                    #{mod\ 1416}#
-                                    #{build-named-let\ 109}#
-                                    (cons #{f\ 1442}# #{id\ 1443}#)
-                                    #{val\ 1444}#
-                                    (cons #{e1\ 1445}# #{e2\ 1446}#)))
-                                #{tmp\ 1433}#)
-                         ((lambda (#{_\ 1450}#)
+                         (apply (lambda (#{_\ 3214}#
+                                         #{f\ 3215}#
+                                         #{id\ 3216}#
+                                         #{val\ 3217}#
+                                         #{e1\ 3218}#
+                                         #{e2\ 3219}#)
+                                  (#{chi-let\ 3127}#
+                                    #{e\ 3156}#
+                                    #{r\ 3157}#
+                                    #{w\ 3158}#
+                                    #{s\ 3159}#
+                                    #{mod\ 3160}#
+                                    #{build-named-let\ 216}#
+                                    (cons #{f\ 3215}# #{id\ 3216}#)
+                                    #{val\ 3217}#
+                                    (cons #{e1\ 3218}# #{e2\ 3219}#)))
+                                #{tmp\ 3192}#)
+                         ((lambda (#{_\ 3224}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 157}#
-                                #{e\ 1412}#
-                                #{w\ 1414}#
-                                #{s\ 1415}#
-                                #{mod\ 1416}#)))
-                          #{tmp\ 1417}#)))
+                              (#{source-wrap\ 331}#
+                                #{e\ 3156}#
+                                #{w\ 3158}#
+                                #{s\ 3159}#
+                                #{mod\ 3160}#)))
+                          #{tmp\ 3166}#)))
                      ($sc-dispatch
-                       #{tmp\ 1417}#
+                       #{tmp\ 3166}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 1417}#
+                  #{tmp\ 3166}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 1412}#))))
-      (#{global-extend\ 126}#
+             #{e\ 3156}#))))
+      (#{global-extend\ 256}#
         'core
         'letrec
-        (lambda (#{e\ 1451}#
-                 #{r\ 1452}#
-                 #{w\ 1453}#
-                 #{s\ 1454}#
-                 #{mod\ 1455}#)
-          ((lambda (#{tmp\ 1456}#)
-             ((lambda (#{tmp\ 1457}#)
-                (if (if #{tmp\ 1457}#
-                      (apply (lambda (#{_\ 1458}#
-                                      #{id\ 1459}#
-                                      #{val\ 1460}#
-                                      #{e1\ 1461}#
-                                      #{e2\ 1462}#)
-                               (and-map #{id?\ 128}# #{id\ 1459}#))
-                             #{tmp\ 1457}#)
+        (lambda (#{e\ 3225}#
+                 #{r\ 3226}#
+                 #{w\ 3227}#
+                 #{s\ 3228}#
+                 #{mod\ 3229}#)
+          ((lambda (#{tmp\ 3235}#)
+             ((lambda (#{tmp\ 3236}#)
+                (if (if #{tmp\ 3236}#
+                      (apply (lambda (#{_\ 3242}#
+                                      #{id\ 3243}#
+                                      #{val\ 3244}#
+                                      #{e1\ 3245}#
+                                      #{e2\ 3246}#)
+                               (and-map #{id?\ 260}# #{id\ 3243}#))
+                             #{tmp\ 3236}#)
                       #f)
-                  (apply (lambda (#{_\ 1464}#
-                                  #{id\ 1465}#
-                                  #{val\ 1466}#
-                                  #{e1\ 1467}#
-                                  #{e2\ 1468}#)
-                           (let ((#{ids\ 1469}# #{id\ 1465}#))
-                             (if (not (#{valid-bound-ids?\ 153}#
-                                        #{ids\ 1469}#))
+                  (apply (lambda (#{_\ 3253}#
+                                  #{id\ 3254}#
+                                  #{val\ 3255}#
+                                  #{e1\ 3256}#
+                                  #{e2\ 3257}#)
+                           (let ((#{ids\ 3259}# #{id\ 3254}#))
+                             (if (not (#{valid-bound-ids?\ 323}#
+                                        #{ids\ 3259}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 1451}#)
-                               (let ((#{labels\ 1471}#
-                                       (#{gen-labels\ 134}# #{ids\ 1469}#))
-                                     (#{new-vars\ 1472}#
-                                       (map #{gen-var\ 178}# #{ids\ 1469}#)))
-                                 (let ((#{w\ 1473}#
-                                         (#{make-binding-wrap\ 145}#
-                                           #{ids\ 1469}#
-                                           #{labels\ 1471}#
-                                           #{w\ 1453}#))
-                                       (#{r\ 1474}#
-                                         (#{extend-var-env\ 123}#
-                                           #{labels\ 1471}#
-                                           #{new-vars\ 1472}#
-                                           #{r\ 1452}#)))
-                                   (#{build-letrec\ 110}#
-                                     #{s\ 1454}#
-                                     (map syntax->datum #{ids\ 1469}#)
-                                     #{new-vars\ 1472}#
-                                     (map (lambda (#{x\ 1475}#)
-                                            (#{chi\ 164}#
-                                              #{x\ 1475}#
-                                              #{r\ 1474}#
-                                              #{w\ 1473}#
-                                              #{mod\ 1455}#))
-                                          #{val\ 1466}#)
-                                     (#{chi-body\ 168}#
-                                       (cons #{e1\ 1467}# #{e2\ 1468}#)
-                                       (#{source-wrap\ 157}#
-                                         #{e\ 1451}#
-                                         #{w\ 1473}#
-                                         #{s\ 1454}#
-                                         #{mod\ 1455}#)
-                                       #{r\ 1474}#
-                                       #{w\ 1473}#
-                                       #{mod\ 1455}#)))))))
-                         #{tmp\ 1457}#)
-                  ((lambda (#{_\ 1478}#)
+                                 #{e\ 3225}#)
+                               (let ((#{labels\ 3263}#
+                                       (#{gen-labels\ 278}# #{ids\ 3259}#))
+                                     (#{new-vars\ 3264}#
+                                       (map #{gen-var\ 373}# #{ids\ 3259}#)))
+                                 (let ((#{w\ 3267}#
+                                         (#{make-binding-wrap\ 307}#
+                                           #{ids\ 3259}#
+                                           #{labels\ 3263}#
+                                           #{w\ 3227}#))
+                                       (#{r\ 3268}#
+                                         (#{extend-var-env\ 250}#
+                                           #{labels\ 3263}#
+                                           #{new-vars\ 3264}#
+                                           #{r\ 3226}#)))
+                                   (#{build-letrec\ 218}#
+                                     #{s\ 3228}#
+                                     (map syntax->datum #{ids\ 3259}#)
+                                     #{new-vars\ 3264}#
+                                     (map (lambda (#{x\ 3269}#)
+                                            (#{chi\ 345}#
+                                              #{x\ 3269}#
+                                              #{r\ 3268}#
+                                              #{w\ 3267}#
+                                              #{mod\ 3229}#))
+                                          #{val\ 3255}#)
+                                     (#{chi-body\ 353}#
+                                       (cons #{e1\ 3256}# #{e2\ 3257}#)
+                                       (#{source-wrap\ 331}#
+                                         #{e\ 3225}#
+                                         #{w\ 3267}#
+                                         #{s\ 3228}#
+                                         #{mod\ 3229}#)
+                                       #{r\ 3268}#
+                                       #{w\ 3267}#
+                                       #{mod\ 3229}#)))))))
+                         #{tmp\ 3236}#)
+                  ((lambda (#{_\ 3274}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 157}#
-                         #{e\ 1451}#
-                         #{w\ 1453}#
-                         #{s\ 1454}#
-                         #{mod\ 1455}#)))
-                   #{tmp\ 1456}#)))
+                       (#{source-wrap\ 331}#
+                         #{e\ 3225}#
+                         #{w\ 3227}#
+                         #{s\ 3228}#
+                         #{mod\ 3229}#)))
+                   #{tmp\ 3235}#)))
               ($sc-dispatch
-                #{tmp\ 1456}#
+                #{tmp\ 3235}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 1451}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3225}#)))
+      (#{global-extend\ 256}#
         'core
         'set!
-        (lambda (#{e\ 1479}#
-                 #{r\ 1480}#
-                 #{w\ 1481}#
-                 #{s\ 1482}#
-                 #{mod\ 1483}#)
-          ((lambda (#{tmp\ 1484}#)
-             ((lambda (#{tmp\ 1485}#)
-                (if (if #{tmp\ 1485}#
-                      (apply (lambda (#{_\ 1486}# #{id\ 1487}# #{val\ 1488}#)
-                               (#{id?\ 128}# #{id\ 1487}#))
-                             #{tmp\ 1485}#)
+        (lambda (#{e\ 3275}#
+                 #{r\ 3276}#
+                 #{w\ 3277}#
+                 #{s\ 3278}#
+                 #{mod\ 3279}#)
+          ((lambda (#{tmp\ 3285}#)
+             ((lambda (#{tmp\ 3286}#)
+                (if (if #{tmp\ 3286}#
+                      (apply (lambda (#{_\ 3290}# #{id\ 3291}# #{val\ 3292}#)
+                               (#{id?\ 260}# #{id\ 3291}#))
+                             #{tmp\ 3286}#)
                       #f)
-                  (apply (lambda (#{_\ 1489}# #{id\ 1490}# #{val\ 1491}#)
-                           (let ((#{val\ 1492}#
-                                   (#{chi\ 164}#
-                                     #{val\ 1491}#
-                                     #{r\ 1480}#
-                                     #{w\ 1481}#
-                                     #{mod\ 1483}#))
-                                 (#{n\ 1493}#
-                                   (#{id-var-name\ 150}#
-                                     #{id\ 1490}#
-                                     #{w\ 1481}#)))
-                             (let ((#{b\ 1494}#
-                                     (#{lookup\ 125}#
-                                       #{n\ 1493}#
-                                       #{r\ 1480}#
-                                       #{mod\ 1483}#)))
-                               (let ((#{atom-key\ 1495}#
-                                       (#{binding-type\ 120}# #{b\ 1494}#)))
-                                 (if (memv #{atom-key\ 1495}#
+                  (apply (lambda (#{_\ 3296}# #{id\ 3297}# #{val\ 3298}#)
+                           (let ((#{val\ 3301}#
+                                   (#{chi\ 345}#
+                                     #{val\ 3298}#
+                                     #{r\ 3276}#
+                                     #{w\ 3277}#
+                                     #{mod\ 3279}#))
+                                 (#{n\ 3302}#
+                                   (#{id-var-name\ 317}#
+                                     #{id\ 3297}#
+                                     #{w\ 3277}#)))
+                             (let ((#{b\ 3304}#
+                                     (#{lookup\ 254}#
+                                       #{n\ 3302}#
+                                       #{r\ 3276}#
+                                       #{mod\ 3279}#)))
+                               (let ((#{atom-key\ 3307}#
+                                       (#{binding-type\ 243}# #{b\ 3304}#)))
+                                 (if (memv #{atom-key\ 3307}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 96}#
-                                     #{s\ 1482}#
-                                     (syntax->datum #{id\ 1490}#)
-                                     (#{binding-value\ 121}# #{b\ 1494}#)
-                                     #{val\ 1492}#)
-                                   (if (memv #{atom-key\ 1495}#
+                                   (#{build-lexical-assignment\ 190}#
+                                     #{s\ 3278}#
+                                     (syntax->datum #{id\ 3297}#)
+                                     (#{binding-value\ 245}# #{b\ 3304}#)
+                                     #{val\ 3301}#)
+                                   (if (memv #{atom-key\ 3307}#
                                              '(global))
-                                     (#{build-global-assignment\ 99}#
-                                       #{s\ 1482}#
-                                       #{n\ 1493}#
-                                       #{val\ 1492}#
-                                       #{mod\ 1483}#)
-                                     (if (memv #{atom-key\ 1495}#
+                                     (#{build-global-assignment\ 196}#
+                                       #{s\ 3278}#
+                                       #{n\ 3302}#
+                                       #{val\ 3301}#
+                                       #{mod\ 3279}#)
+                                     (if (memv #{atom-key\ 3307}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 156}#
-                                           #{id\ 1490}#
-                                           #{w\ 1481}#
-                                           #{mod\ 1483}#))
+                                         (#{wrap\ 329}#
+                                           #{id\ 3297}#
+                                           #{w\ 3277}#
+                                           #{mod\ 3279}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 157}#
-                                           #{e\ 1479}#
-                                           #{w\ 1481}#
-                                           #{s\ 1482}#
-                                           #{mod\ 1483}#)))))))))
-                         #{tmp\ 1485}#)
-                  ((lambda (#{tmp\ 1496}#)
-                     (if #{tmp\ 1496}#
-                       (apply (lambda (#{_\ 1497}#
-                                       #{head\ 1498}#
-                                       #{tail\ 1499}#
-                                       #{val\ 1500}#)
+                                         (#{source-wrap\ 331}#
+                                           #{e\ 3275}#
+                                           #{w\ 3277}#
+                                           #{s\ 3278}#
+                                           #{mod\ 3279}#)))))))))
+                         #{tmp\ 3286}#)
+                  ((lambda (#{tmp\ 3312}#)
+                     (if #{tmp\ 3312}#
+                       (apply (lambda (#{_\ 3317}#
+                                       #{head\ 3318}#
+                                       #{tail\ 3319}#
+                                       #{val\ 3320}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 162}#
-                                      #{head\ 1498}#
-                                      #{r\ 1480}#
+                                    (#{syntax-type\ 341}#
+                                      #{head\ 3318}#
+                                      #{r\ 3276}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 1483}#
+                                      #{mod\ 3279}#
                                       #t))
-                                  (lambda (#{type\ 1501}#
-                                           #{value\ 1502}#
-                                           #{ee\ 1503}#
-                                           #{ww\ 1504}#
-                                           #{ss\ 1505}#
-                                           #{modmod\ 1506}#)
-                                    (if (memv #{type\ 1501}#
+                                  (lambda (#{type\ 3323}#
+                                           #{value\ 3324}#
+                                           #{ee\ 3325}#
+                                           #{ww\ 3326}#
+                                           #{ss\ 3327}#
+                                           #{modmod\ 3328}#)
+                                    (if (memv #{type\ 3323}#
                                               '(module-ref))
-                                      (let ((#{val\ 1507}#
-                                              (#{chi\ 164}#
-                                                #{val\ 1500}#
-                                                #{r\ 1480}#
-                                                #{w\ 1481}#
-                                                #{mod\ 1483}#)))
+                                      (let ((#{val\ 3337}#
+                                              (#{chi\ 345}#
+                                                #{val\ 3320}#
+                                                #{r\ 3276}#
+                                                #{w\ 3277}#
+                                                #{mod\ 3279}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 1502}#
-                                              (cons #{head\ 1498}#
-                                                    #{tail\ 1499}#)))
-                                          (lambda (#{id\ 1509}# #{mod\ 1510}#)
-                                            (#{build-global-assignment\ 99}#
-                                              #{s\ 1482}#
-                                              #{id\ 1509}#
-                                              #{val\ 1507}#
-                                              #{mod\ 1510}#))))
-                                      (#{build-application\ 93}#
-                                        #{s\ 1482}#
-                                        (#{chi\ 164}#
+                                            (#{value\ 3324}#
+                                              (cons #{head\ 3318}#
+                                                    #{tail\ 3319}#)))
+                                          (lambda (#{id\ 3339}# #{mod\ 3340}#)
+                                            (#{build-global-assignment\ 196}#
+                                              #{s\ 3278}#
+                                              #{id\ 3339}#
+                                              #{val\ 3337}#
+                                              #{mod\ 3340}#))))
+                                      (#{build-application\ 184}#
+                                        #{s\ 3278}#
+                                        (#{chi\ 345}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -8985,19 +8948,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i"
-                                                        "i"
-                                                        "i"
-                                                        "i"
-                                                        "i"
-                                                        "i"))
+                                                      #("i3329"
+                                                        "i3330"
+                                                        "i3331"
+                                                        "i3332"
+                                                        "i3333"
+                                                        "i3334"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i" "i" "i" "i"))
+                                                      #("i3313"
+                                                        "i3314"
+                                                        "i3315"
+                                                        "i3316"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -9006,7 +8972,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i" "i" "i" "i" "i"))
+                                                      #("i3280"
+                                                        "i3281"
+                                                        "i3282"
+                                                        "i3283"
+                                                        "i3284"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -9242,176 +9212,176 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"
-                                                       "i"))
+                                                      ("i374"
+                                                       "i372"
+                                                       "i370"
+                                                       "i368"
+                                                       "i366"
+                                                       "i364"
+                                                       "i362"
+                                                       "i360"
+                                                       "i358"
+                                                       "i356"
+                                                       "i354"
+                                                       "i352"
+                                                       "i350"
+                                                       "i348"
+                                                       "i346"
+                                                       "i344"
+                                                       "i342"
+                                                       "i340"
+                                                       "i338"
+                                                       "i336"
+                                                       "i334"
+                                                       "i332"
+                                                       "i330"
+                                                       "i328"
+                                                       "i326"
+                                                       "i324"
+                                                       "i322"
+                                                       "i320"
+                                                       "i318"
+                                                       "i316"
+                                                       "i314"
+                                                       "i312"
+                                                       "i310"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i303"
+                                                       "i302"
+                                                       "i300"
+                                                       "i299"
+                                                       "i298"
+                                                       "i297"
+                                                       "i296"
+                                                       "i294"
+                                                       "i292"
+                                                       "i290"
+                                                       "i288"
+                                                       "i286"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i277"
+                                                       "i275"
+                                                       "i274"
+                                                       "i273"
+                                                       "i272"
+                                                       "i271"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i264"
+                                                       "i262"
+                                                       "i261"
+                                                       "i259"
+                                                       "i257"
+                                                       "i255"
+                                                       "i253"
+                                                       "i251"
+                                                       "i249"
+                                                       "i247"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i241"
+                                                       "i240"
+                                                       "i238"
+                                                       "i237"
+                                                       "i235"
+                                                       "i233"
+                                                       "i231"
+                                                       "i229"
+                                                       "i227"
+                                                       "i225"
+                                                       "i223"
+                                                       "i221"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i207"
+                                                       "i205"
+                                                       "i203"
+                                                       "i201"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i174"
+                                                       "i172"
+                                                       "i170"
+                                                       "i168"
+                                                       "i166"
+                                                       "i164"
+                                                       "i162"
+                                                       "i160"
+                                                       "i158"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i" "i")))
+                                                      ("i61" "i59")))
                                                    (hygiene guile))
-                                                #{head\ 1498}#)
-                                          #{r\ 1480}#
-                                          #{w\ 1481}#
-                                          #{mod\ 1483}#)
-                                        (map (lambda (#{e\ 1511}#)
-                                               (#{chi\ 164}#
-                                                 #{e\ 1511}#
-                                                 #{r\ 1480}#
-                                                 #{w\ 1481}#
-                                                 #{mod\ 1483}#))
+                                                #{head\ 3318}#)
+                                          #{r\ 3276}#
+                                          #{w\ 3277}#
+                                          #{mod\ 3279}#)
+                                        (map (lambda (#{e\ 3344}#)
+                                               (#{chi\ 345}#
+                                                 #{e\ 3344}#
+                                                 #{r\ 3276}#
+                                                 #{w\ 3277}#
+                                                 #{mod\ 3279}#))
                                              (append
-                                               #{tail\ 1499}#
-                                               (list #{val\ 1500}#))))))))
-                              #{tmp\ 1496}#)
-                       ((lambda (#{_\ 1513}#)
+                                               #{tail\ 3319}#
+                                               (list #{val\ 3320}#))))))))
+                              #{tmp\ 3312}#)
+                       ((lambda (#{_\ 3348}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 157}#
-                              #{e\ 1479}#
-                              #{w\ 1481}#
-                              #{s\ 1482}#
-                              #{mod\ 1483}#)))
-                        #{tmp\ 1484}#)))
+                            (#{source-wrap\ 331}#
+                              #{e\ 3275}#
+                              #{w\ 3277}#
+                              #{s\ 3278}#
+                              #{mod\ 3279}#)))
+                        #{tmp\ 3285}#)))
                    ($sc-dispatch
-                     #{tmp\ 1484}#
+                     #{tmp\ 3285}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 1484}#
+                #{tmp\ 3285}#
                 '(any any any))))
-           #{e\ 1479}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3275}#)))
+      (#{global-extend\ 256}#
         'module-ref
         '@
-        (lambda (#{e\ 1514}#)
-          ((lambda (#{tmp\ 1515}#)
-             ((lambda (#{tmp\ 1516}#)
-                (if (if #{tmp\ 1516}#
-                      (apply (lambda (#{_\ 1517}# #{mod\ 1518}# #{id\ 1519}#)
-                               (if (and-map #{id?\ 128}# #{mod\ 1518}#)
-                                 (#{id?\ 128}# #{id\ 1519}#)
+        (lambda (#{e\ 3349}#)
+          ((lambda (#{tmp\ 3351}#)
+             ((lambda (#{tmp\ 3352}#)
+                (if (if #{tmp\ 3352}#
+                      (apply (lambda (#{_\ 3356}# #{mod\ 3357}# #{id\ 3358}#)
+                               (if (and-map #{id?\ 260}# #{mod\ 3357}#)
+                                 (#{id?\ 260}# #{id\ 3358}#)
                                  #f))
-                             #{tmp\ 1516}#)
+                             #{tmp\ 3352}#)
                       #f)
-                  (apply (lambda (#{_\ 1521}# #{mod\ 1522}# #{id\ 1523}#)
+                  (apply (lambda (#{_\ 3365}# #{mod\ 3366}# #{id\ 3367}#)
                            (values
-                             (syntax->datum #{id\ 1523}#)
+                             (syntax->datum #{id\ 3367}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         public
@@ -9419,9 +9389,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i" "i" "i"))
+                                           #("i3362" "i3363" "i3364"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i"))
+                                         #(ribcage #(e) #((top)) #("i3350"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -9657,154 +9627,154 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"))
+                                           ("i374"
+                                            "i372"
+                                            "i370"
+                                            "i368"
+                                            "i366"
+                                            "i364"
+                                            "i362"
+                                            "i360"
+                                            "i358"
+                                            "i356"
+                                            "i354"
+                                            "i352"
+                                            "i350"
+                                            "i348"
+                                            "i346"
+                                            "i344"
+                                            "i342"
+                                            "i340"
+                                            "i338"
+                                            "i336"
+                                            "i334"
+                                            "i332"
+                                            "i330"
+                                            "i328"
+                                            "i326"
+                                            "i324"
+                                            "i322"
+                                            "i320"
+                                            "i318"
+                                            "i316"
+                                            "i314"
+                                            "i312"
+                                            "i310"
+                                            "i308"
+                                            "i306"
+                                            "i304"
+                                            "i303"
+                                            "i302"
+                                            "i300"
+                                            "i299"
+                                            "i298"
+                                            "i297"
+                                            "i296"
+                                            "i294"
+                                            "i292"
+                                            "i290"
+                                            "i288"
+                                            "i286"
+                                            "i284"
+                                            "i282"
+                                            "i280"
+                                            "i277"
+                                            "i275"
+                                            "i274"
+                                            "i273"
+                                            "i272"
+                                            "i271"
+                                            "i270"
+                                            "i268"
+                                            "i266"
+                                            "i264"
+                                            "i262"
+                                            "i261"
+                                            "i259"
+                                            "i257"
+                                            "i255"
+                                            "i253"
+                                            "i251"
+                                            "i249"
+                                            "i247"
+                                            "i246"
+                                            "i244"
+                                            "i242"
+                                            "i241"
+                                            "i240"
+                                            "i238"
+                                            "i237"
+                                            "i235"
+                                            "i233"
+                                            "i231"
+                                            "i229"
+                                            "i227"
+                                            "i225"
+                                            "i223"
+                                            "i221"
+                                            "i219"
+                                            "i217"
+                                            "i215"
+                                            "i213"
+                                            "i211"
+                                            "i209"
+                                            "i207"
+                                            "i205"
+                                            "i203"
+                                            "i201"
+                                            "i199"
+                                            "i197"
+                                            "i195"
+                                            "i193"
+                                            "i191"
+                                            "i189"
+                                            "i187"
+                                            "i185"
+                                            "i183"
+                                            "i181"
+                                            "i179"
+                                            "i177"
+                                            "i175"
+                                            "i174"
+                                            "i172"
+                                            "i170"
+                                            "i168"
+                                            "i166"
+                                            "i164"
+                                            "i162"
+                                            "i160"
+                                            "i158"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i" "i")))
+                                           ("i61" "i59")))
                                         (hygiene guile))
-                                     #{mod\ 1522}#))))
-                         #{tmp\ 1516}#)
+                                     #{mod\ 3366}#))))
+                         #{tmp\ 3352}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 1515}#)))
+                    #{tmp\ 3351}#)))
               ($sc-dispatch
-                #{tmp\ 1515}#
+                #{tmp\ 3351}#
                 '(any each-any any))))
-           #{e\ 1514}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3349}#)))
+      (#{global-extend\ 256}#
         'module-ref
         '@@
-        (lambda (#{e\ 1525}#)
-          ((lambda (#{tmp\ 1526}#)
-             ((lambda (#{tmp\ 1527}#)
-                (if (if #{tmp\ 1527}#
-                      (apply (lambda (#{_\ 1528}# #{mod\ 1529}# #{id\ 1530}#)
-                               (if (and-map #{id?\ 128}# #{mod\ 1529}#)
-                                 (#{id?\ 128}# #{id\ 1530}#)
+        (lambda (#{e\ 3369}#)
+          ((lambda (#{tmp\ 3371}#)
+             ((lambda (#{tmp\ 3372}#)
+                (if (if #{tmp\ 3372}#
+                      (apply (lambda (#{_\ 3376}# #{mod\ 3377}# #{id\ 3378}#)
+                               (if (and-map #{id?\ 260}# #{mod\ 3377}#)
+                                 (#{id?\ 260}# #{id\ 3378}#)
                                  #f))
-                             #{tmp\ 1527}#)
+                             #{tmp\ 3372}#)
                       #f)
-                  (apply (lambda (#{_\ 1532}# #{mod\ 1533}# #{id\ 1534}#)
+                  (apply (lambda (#{_\ 3385}# #{mod\ 3386}# #{id\ 3387}#)
                            (values
-                             (syntax->datum #{id\ 1534}#)
+                             (syntax->datum #{id\ 3387}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         private
@@ -9812,9 +9782,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i" "i" "i"))
+                                           #("i3382" "i3383" "i3384"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i"))
+                                         #(ribcage #(e) #((top)) #("i3370"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10050,252 +10020,252 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"
-                                            "i"))
+                                           ("i374"
+                                            "i372"
+                                            "i370"
+                                            "i368"
+                                            "i366"
+                                            "i364"
+                                            "i362"
+                                            "i360"
+                                            "i358"
+                                            "i356"
+                                            "i354"
+                                            "i352"
+                                            "i350"
+                                            "i348"
+                                            "i346"
+                                            "i344"
+                                            "i342"
+                                            "i340"
+                                            "i338"
+                                            "i336"
+                                            "i334"
+                                            "i332"
+                                            "i330"
+                                            "i328"
+                                            "i326"
+                                            "i324"
+                                            "i322"
+                                            "i320"
+                                            "i318"
+                                            "i316"
+                                            "i314"
+                                            "i312"
+                                            "i310"
+                                            "i308"
+                                            "i306"
+                                            "i304"
+                                            "i303"
+                                            "i302"
+                                            "i300"
+                                            "i299"
+                                            "i298"
+                                            "i297"
+                                            "i296"
+                                            "i294"
+                                            "i292"
+                                            "i290"
+                                            "i288"
+                                            "i286"
+                                            "i284"
+                                            "i282"
+                                            "i280"
+                                            "i277"
+                                            "i275"
+                                            "i274"
+                                            "i273"
+                                            "i272"
+                                            "i271"
+                                            "i270"
+                                            "i268"
+                                            "i266"
+                                            "i264"
+                                            "i262"
+                                            "i261"
+                                            "i259"
+                                            "i257"
+                                            "i255"
+                                            "i253"
+                                            "i251"
+                                            "i249"
+                                            "i247"
+                                            "i246"
+                                            "i244"
+                                            "i242"
+                                            "i241"
+                                            "i240"
+                                            "i238"
+                                            "i237"
+                                            "i235"
+                                            "i233"
+                                            "i231"
+                                            "i229"
+                                            "i227"
+                                            "i225"
+                                            "i223"
+                                            "i221"
+                                            "i219"
+                                            "i217"
+                                            "i215"
+                                            "i213"
+                                            "i211"
+                                            "i209"
+                                            "i207"
+                                            "i205"
+                                            "i203"
+                                            "i201"
+                                            "i199"
+                                            "i197"
+                                            "i195"
+                                            "i193"
+                                            "i191"
+                                            "i189"
+                                            "i187"
+                                            "i185"
+                                            "i183"
+                                            "i181"
+                                            "i179"
+                                            "i177"
+                                            "i175"
+                                            "i174"
+                                            "i172"
+                                            "i170"
+                                            "i168"
+                                            "i166"
+                                            "i164"
+                                            "i162"
+                                            "i160"
+                                            "i158"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i" "i")))
+                                           ("i61" "i59")))
                                         (hygiene guile))
-                                     #{mod\ 1533}#))))
-                         #{tmp\ 1527}#)
+                                     #{mod\ 3386}#))))
+                         #{tmp\ 3372}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 1526}#)))
+                    #{tmp\ 3371}#)))
               ($sc-dispatch
-                #{tmp\ 1526}#
+                #{tmp\ 3371}#
                 '(any each-any any))))
-           #{e\ 1525}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3369}#)))
+      (#{global-extend\ 256}#
         'core
         'if
-        (lambda (#{e\ 1536}#
-                 #{r\ 1537}#
-                 #{w\ 1538}#
-                 #{s\ 1539}#
-                 #{mod\ 1540}#)
-          ((lambda (#{tmp\ 1541}#)
-             ((lambda (#{tmp\ 1542}#)
-                (if #{tmp\ 1542}#
-                  (apply (lambda (#{_\ 1543}# #{test\ 1544}# #{then\ 1545}#)
-                           (#{build-conditional\ 94}#
-                             #{s\ 1539}#
-                             (#{chi\ 164}#
-                               #{test\ 1544}#
-                               #{r\ 1537}#
-                               #{w\ 1538}#
-                               #{mod\ 1540}#)
-                             (#{chi\ 164}#
-                               #{then\ 1545}#
-                               #{r\ 1537}#
-                               #{w\ 1538}#
-                               #{mod\ 1540}#)
-                             (#{build-void\ 92}# #f)))
-                         #{tmp\ 1542}#)
-                  ((lambda (#{tmp\ 1546}#)
-                     (if #{tmp\ 1546}#
-                       (apply (lambda (#{_\ 1547}#
-                                       #{test\ 1548}#
-                                       #{then\ 1549}#
-                                       #{else\ 1550}#)
-                                (#{build-conditional\ 94}#
-                                  #{s\ 1539}#
-                                  (#{chi\ 164}#
-                                    #{test\ 1548}#
-                                    #{r\ 1537}#
-                                    #{w\ 1538}#
-                                    #{mod\ 1540}#)
-                                  (#{chi\ 164}#
-                                    #{then\ 1549}#
-                                    #{r\ 1537}#
-                                    #{w\ 1538}#
-                                    #{mod\ 1540}#)
-                                  (#{chi\ 164}#
-                                    #{else\ 1550}#
-                                    #{r\ 1537}#
-                                    #{w\ 1538}#
-                                    #{mod\ 1540}#)))
-                              #{tmp\ 1546}#)
+        (lambda (#{e\ 3389}#
+                 #{r\ 3390}#
+                 #{w\ 3391}#
+                 #{s\ 3392}#
+                 #{mod\ 3393}#)
+          ((lambda (#{tmp\ 3399}#)
+             ((lambda (#{tmp\ 3400}#)
+                (if #{tmp\ 3400}#
+                  (apply (lambda (#{_\ 3404}# #{test\ 3405}# #{then\ 3406}#)
+                           (#{build-conditional\ 186}#
+                             #{s\ 3392}#
+                             (#{chi\ 345}#
+                               #{test\ 3405}#
+                               #{r\ 3390}#
+                               #{w\ 3391}#
+                               #{mod\ 3393}#)
+                             (#{chi\ 345}#
+                               #{then\ 3406}#
+                               #{r\ 3390}#
+                               #{w\ 3391}#
+                               #{mod\ 3393}#)
+                             (#{build-void\ 182}# #f)))
+                         #{tmp\ 3400}#)
+                  ((lambda (#{tmp\ 3408}#)
+                     (if #{tmp\ 3408}#
+                       (apply (lambda (#{_\ 3413}#
+                                       #{test\ 3414}#
+                                       #{then\ 3415}#
+                                       #{else\ 3416}#)
+                                (#{build-conditional\ 186}#
+                                  #{s\ 3392}#
+                                  (#{chi\ 345}#
+                                    #{test\ 3414}#
+                                    #{r\ 3390}#
+                                    #{w\ 3391}#
+                                    #{mod\ 3393}#)
+                                  (#{chi\ 345}#
+                                    #{then\ 3415}#
+                                    #{r\ 3390}#
+                                    #{w\ 3391}#
+                                    #{mod\ 3393}#)
+                                  (#{chi\ 345}#
+                                    #{else\ 3416}#
+                                    #{r\ 3390}#
+                                    #{w\ 3391}#
+                                    #{mod\ 3393}#)))
+                              #{tmp\ 3408}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 1541}#)))
+                         #{tmp\ 3399}#)))
                    ($sc-dispatch
-                     #{tmp\ 1541}#
+                     #{tmp\ 3399}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 1541}#
+                #{tmp\ 3399}#
                 '(any any any))))
-           #{e\ 1536}#)))
-      (#{global-extend\ 126}#
+           #{e\ 3389}#)))
+      (#{global-extend\ 256}#
         'begin
         'begin
         '())
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'define
         'define
         '())
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 126}#
+      (#{global-extend\ 256}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 1554}#
-                   (lambda (#{x\ 1555}#
-                            #{keys\ 1556}#
-                            #{clauses\ 1557}#
-                            #{r\ 1558}#
-                            #{mod\ 1559}#)
-                     (if (null? #{clauses\ 1557}#)
-                       (#{build-application\ 93}#
+        (letrec ((#{gen-syntax-case\ 3424}#
+                   (lambda (#{x\ 3425}#
+                            #{keys\ 3426}#
+                            #{clauses\ 3427}#
+                            #{r\ 3428}#
+                            #{mod\ 3429}#)
+                     (if (null? #{clauses\ 3427}#)
+                       (#{build-application\ 184}#
                          #f
-                         (#{build-primref\ 105}#
+                         (#{build-primref\ 208}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 106}# #f #f)
-                               (#{build-data\ 106}#
+                         (list (#{build-data\ 210}# #f #f)
+                               (#{build-data\ 210}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 1555}#))
-                       ((lambda (#{tmp\ 1560}#)
-                          ((lambda (#{tmp\ 1561}#)
-                             (if #{tmp\ 1561}#
-                               (apply (lambda (#{pat\ 1562}# #{exp\ 1563}#)
-                                        (if (if (#{id?\ 128}# #{pat\ 1562}#)
+                               #{x\ 3425}#))
+                       ((lambda (#{tmp\ 3439}#)
+                          ((lambda (#{tmp\ 3440}#)
+                             (if #{tmp\ 3440}#
+                               (apply (lambda (#{pat\ 3443}# #{exp\ 3444}#)
+                                        (if (if (#{id?\ 260}# #{pat\ 3443}#)
                                               (and-map
-                                                (lambda (#{x\ 1564}#)
-                                                  (not (#{free-id=?\ 151}#
-                                                         #{pat\ 1562}#
-                                                         #{x\ 1564}#)))
+                                                (lambda (#{x\ 3447}#)
+                                                  (not (#{free-id=?\ 319}#
+                                                         #{pat\ 3443}#
+                                                         #{x\ 3447}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i" "i"))
+                                                            #("i3441" "i3442"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -10308,11 +10278,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i"
-                                                              "i"
-                                                              "i"
-                                                              "i"
-                                                              "i"))
+                                                            #("i3430"
+                                                              "i3431"
+                                                              "i3432"
+                                                              "i3433"
+                                                              "i3434"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -10322,7 +10292,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i" "i" "i" "i"))
+                                                            ("i3423"
+                                                             "i3421"
+                                                             "i3419"
+                                                             "i3417"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -10558,1026 +10531,1026 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"
-                                                             "i"))
+                                                            ("i374"
+                                                             "i372"
+                                                             "i370"
+                                                             "i368"
+                                                             "i366"
+                                                             "i364"
+                                                             "i362"
+                                                             "i360"
+                                                             "i358"
+                                                             "i356"
+                                                             "i354"
+                                                             "i352"
+                                                             "i350"
+                                                             "i348"
+                                                             "i346"
+                                                             "i344"
+                                                             "i342"
+                                                             "i340"
+                                                             "i338"
+                                                             "i336"
+                                                             "i334"
+                                                             "i332"
+                                                             "i330"
+                                                             "i328"
+                                                             "i326"
+                                                             "i324"
+                                                             "i322"
+                                                             "i320"
+                                                             "i318"
+                                                             "i316"
+                                                             "i314"
+                                                             "i312"
+                                                             "i310"
+                                                             "i308"
+                                                             "i306"
+                                                             "i304"
+                                                             "i303"
+                                                             "i302"
+                                                             "i300"
+                                                             "i299"
+                                                             "i298"
+                                                             "i297"
+                                                             "i296"
+                                                             "i294"
+                                                             "i292"
+                                                             "i290"
+                                                             "i288"
+                                                             "i286"
+                                                             "i284"
+                                                             "i282"
+                                                             "i280"
+                                                             "i277"
+                                                             "i275"
+                                                             "i274"
+                                                             "i273"
+                                                             "i272"
+                                                             "i271"
+                                                             "i270"
+                                                             "i268"
+                                                             "i266"
+                                                             "i264"
+                                                             "i262"
+                                                             "i261"
+                                                             "i259"
+                                                             "i257"
+                                                             "i255"
+                                                             "i253"
+                                                             "i251"
+                                                             "i249"
+                                                             "i247"
+                                                             "i246"
+                                                             "i244"
+                                                             "i242"
+                                                             "i241"
+                                                             "i240"
+                                                             "i238"
+                                                             "i237"
+                                                             "i235"
+                                                             "i233"
+                                                             "i231"
+                                                             "i229"
+                                                             "i227"
+                                                             "i225"
+                                                             "i223"
+                                                             "i221"
+                                                             "i219"
+                                                             "i217"
+                                                             "i215"
+                                                             "i213"
+                                                             "i211"
+                                                             "i209"
+                                                             "i207"
+                                                             "i205"
+                                                             "i203"
+                                                             "i201"
+                                                             "i199"
+                                                             "i197"
+                                                             "i195"
+                                                             "i193"
+                                                             "i191"
+                                                             "i189"
+                                                             "i187"
+                                                             "i185"
+                                                             "i183"
+                                                             "i181"
+                                                             "i179"
+                                                             "i177"
+                                                             "i175"
+                                                             "i174"
+                                                             "i172"
+                                                             "i170"
+                                                             "i168"
+                                                             "i166"
+                                                             "i164"
+                                                             "i162"
+                                                             "i160"
+                                                             "i158"))
                                                           #(ribcage
                                                             (define-structure
                                                               and-map*)
                                                             ((top) (top))
-                                                            ("i" "i")))
+                                                            ("i61" "i59")))
                                                          (hygiene guile))
-                                                      #{keys\ 1556}#))
+                                                      #{keys\ 3426}#))
                                               #f)
-                                          (let ((#{labels\ 1565}#
-                                                  (list (#{gen-label\ 133}#)))
-                                                (#{var\ 1566}#
-                                                  (#{gen-var\ 178}#
-                                                    #{pat\ 1562}#)))
-                                            (#{build-application\ 93}#
+                                          (let ((#{labels\ 3451}#
+                                                  (list (#{gen-label\ 276}#)))
+                                                (#{var\ 3452}#
+                                                  (#{gen-var\ 373}#
+                                                    #{pat\ 3443}#)))
+                                            (#{build-application\ 184}#
                                               #f
-                                              (#{build-simple-lambda\ 102}#
+                                              (#{build-simple-lambda\ 202}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 1562}#))
+                                                        #{pat\ 3443}#))
                                                 #f
-                                                (list #{var\ 1566}#)
+                                                (list #{var\ 3452}#)
                                                 #f
-                                                (#{chi\ 164}#
-                                                  #{exp\ 1563}#
-                                                  (#{extend-env\ 122}#
-                                                    #{labels\ 1565}#
+                                                (#{chi\ 345}#
+                                                  #{exp\ 3444}#
+                                                  (#{extend-env\ 248}#
+                                                    #{labels\ 3451}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
1566}#
+                                                                (cons #{var\ 
3452}#
                                                                       0)))
-                                                    #{r\ 1558}#)
-                                                  (#{make-binding-wrap\ 145}#
-                                                    (list #{pat\ 1562}#)
-                                                    #{labels\ 1565}#
+                                                    #{r\ 3428}#)
+                                                  (#{make-binding-wrap\ 307}#
+                                                    (list #{pat\ 3443}#)
+                                                    #{labels\ 3451}#
                                                     '(()))
-                                                  #{mod\ 1559}#))
-                                              (list #{x\ 1555}#)))
-                                          (#{gen-clause\ 1553}#
-                                            #{x\ 1555}#
-                                            #{keys\ 1556}#
-                                            (cdr #{clauses\ 1557}#)
-                                            #{r\ 1558}#
-                                            #{pat\ 1562}#
+                                                  #{mod\ 3429}#))
+                                              (list #{x\ 3425}#)))
+                                          (#{gen-clause\ 3422}#
+                                            #{x\ 3425}#
+                                            #{keys\ 3426}#
+                                            (cdr #{clauses\ 3427}#)
+                                            #{r\ 3428}#
+                                            #{pat\ 3443}#
                                             #t
-                                            #{exp\ 1563}#
-                                            #{mod\ 1559}#)))
-                                      #{tmp\ 1561}#)
-                               ((lambda (#{tmp\ 1567}#)
-                                  (if #{tmp\ 1567}#
-                                    (apply (lambda (#{pat\ 1568}#
-                                                    #{fender\ 1569}#
-                                                    #{exp\ 1570}#)
-                                             (#{gen-clause\ 1553}#
-                                               #{x\ 1555}#
-                                               #{keys\ 1556}#
-                                               (cdr #{clauses\ 1557}#)
-                                               #{r\ 1558}#
-                                               #{pat\ 1568}#
-                                               #{fender\ 1569}#
-                                               #{exp\ 1570}#
-                                               #{mod\ 1559}#))
-                                           #{tmp\ 1567}#)
-                                    ((lambda (#{_\ 1571}#)
+                                            #{exp\ 3444}#
+                                            #{mod\ 3429}#)))
+                                      #{tmp\ 3440}#)
+                               ((lambda (#{tmp\ 3458}#)
+                                  (if #{tmp\ 3458}#
+                                    (apply (lambda (#{pat\ 3462}#
+                                                    #{fender\ 3463}#
+                                                    #{exp\ 3464}#)
+                                             (#{gen-clause\ 3422}#
+                                               #{x\ 3425}#
+                                               #{keys\ 3426}#
+                                               (cdr #{clauses\ 3427}#)
+                                               #{r\ 3428}#
+                                               #{pat\ 3462}#
+                                               #{fender\ 3463}#
+                                               #{exp\ 3464}#
+                                               #{mod\ 3429}#))
+                                           #{tmp\ 3458}#)
+                                    ((lambda (#{_\ 3466}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 1557}#)))
-                                     #{tmp\ 1560}#)))
+                                         (car #{clauses\ 3427}#)))
+                                     #{tmp\ 3439}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 1560}#
+                                  #{tmp\ 3439}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 1560}# (quote (any any)))))
-                        (car #{clauses\ 1557}#)))))
-                 (#{gen-clause\ 1553}#
-                   (lambda (#{x\ 1572}#
-                            #{keys\ 1573}#
-                            #{clauses\ 1574}#
-                            #{r\ 1575}#
-                            #{pat\ 1576}#
-                            #{fender\ 1577}#
-                            #{exp\ 1578}#
-                            #{mod\ 1579}#)
+                           ($sc-dispatch #{tmp\ 3439}# (quote (any any)))))
+                        (car #{clauses\ 3427}#)))))
+                 (#{gen-clause\ 3422}#
+                   (lambda (#{x\ 3467}#
+                            #{keys\ 3468}#
+                            #{clauses\ 3469}#
+                            #{r\ 3470}#
+                            #{pat\ 3471}#
+                            #{fender\ 3472}#
+                            #{exp\ 3473}#
+                            #{mod\ 3474}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 1551}#
-                           #{pat\ 1576}#
-                           #{keys\ 1573}#))
-                       (lambda (#{p\ 1580}# #{pvars\ 1581}#)
-                         (if (not (#{distinct-bound-ids?\ 154}#
-                                    (map car #{pvars\ 1581}#)))
+                         (#{convert-pattern\ 3418}#
+                           #{pat\ 3471}#
+                           #{keys\ 3468}#))
+                       (lambda (#{p\ 3483}# #{pvars\ 3484}#)
+                         (if (not (#{distinct-bound-ids?\ 325}#
+                                    (map car #{pvars\ 3484}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 1576}#)
+                             #{pat\ 3471}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 1582}#)
-                                        (not (#{ellipsis?\ 172}#
-                                               (car #{x\ 1582}#))))
-                                      #{pvars\ 1581}#))
+                                      (lambda (#{x\ 3491}#)
+                                        (not (#{ellipsis?\ 361}#
+                                               (car #{x\ 3491}#))))
+                                      #{pvars\ 3484}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 1576}#)
-                             (let ((#{y\ 1583}#
-                                     (#{gen-var\ 178}# (quote tmp))))
-                               (#{build-application\ 93}#
+                               #{pat\ 3471}#)
+                             (let ((#{y\ 3495}#
+                                     (#{gen-var\ 373}# (quote tmp))))
+                               (#{build-application\ 184}#
                                  #f
-                                 (#{build-simple-lambda\ 102}#
+                                 (#{build-simple-lambda\ 202}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 1583}#)
+                                   (list #{y\ 3495}#)
                                    #f
-                                   (let ((#{y\ 1584}#
-                                           (#{build-lexical-reference\ 95}#
+                                   (let ((#{y\ 3499}#
+                                           (#{build-lexical-reference\ 188}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 1583}#)))
-                                     (#{build-conditional\ 94}#
+                                             #{y\ 3495}#)))
+                                     (#{build-conditional\ 186}#
                                        #f
-                                       ((lambda (#{tmp\ 1585}#)
-                                          ((lambda (#{tmp\ 1586}#)
-                                             (if #{tmp\ 1586}#
-                                               (apply (lambda () #{y\ 1584}#)
-                                                      #{tmp\ 1586}#)
-                                               ((lambda (#{_\ 1587}#)
-                                                  (#{build-conditional\ 94}#
+                                       ((lambda (#{tmp\ 3502}#)
+                                          ((lambda (#{tmp\ 3503}#)
+                                             (if #{tmp\ 3503}#
+                                               (apply (lambda () #{y\ 3499}#)
+                                                      #{tmp\ 3503}#)
+                                               ((lambda (#{_\ 3505}#)
+                                                  (#{build-conditional\ 186}#
                                                     #f
-                                                    #{y\ 1584}#
-                                                    (#{build-dispatch-call\ 
1552}#
-                                                      #{pvars\ 1581}#
-                                                      #{fender\ 1577}#
-                                                      #{y\ 1584}#
-                                                      #{r\ 1575}#
-                                                      #{mod\ 1579}#)
-                                                    (#{build-data\ 106}#
+                                                    #{y\ 3499}#
+                                                    (#{build-dispatch-call\ 
3420}#
+                                                      #{pvars\ 3484}#
+                                                      #{fender\ 3472}#
+                                                      #{y\ 3499}#
+                                                      #{r\ 3470}#
+                                                      #{mod\ 3474}#)
+                                                    (#{build-data\ 210}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 1585}#)))
+                                                #{tmp\ 3502}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 1585}#
+                                             #{tmp\ 3502}#
                                              '#(atom #t))))
-                                        #{fender\ 1577}#)
-                                       (#{build-dispatch-call\ 1552}#
-                                         #{pvars\ 1581}#
-                                         #{exp\ 1578}#
-                                         #{y\ 1584}#
-                                         #{r\ 1575}#
-                                         #{mod\ 1579}#)
-                                       (#{gen-syntax-case\ 1554}#
-                                         #{x\ 1572}#
-                                         #{keys\ 1573}#
-                                         #{clauses\ 1574}#
-                                         #{r\ 1575}#
-                                         #{mod\ 1579}#))))
-                                 (list (if (eq? #{p\ 1580}# (quote any))
-                                         (#{build-application\ 93}#
+                                        #{fender\ 3472}#)
+                                       (#{build-dispatch-call\ 3420}#
+                                         #{pvars\ 3484}#
+                                         #{exp\ 3473}#
+                                         #{y\ 3499}#
+                                         #{r\ 3470}#
+                                         #{mod\ 3474}#)
+                                       (#{gen-syntax-case\ 3424}#
+                                         #{x\ 3467}#
+                                         #{keys\ 3468}#
+                                         #{clauses\ 3469}#
+                                         #{r\ 3470}#
+                                         #{mod\ 3474}#))))
+                                 (list (if (eq? #{p\ 3483}# (quote any))
+                                         (#{build-application\ 184}#
                                            #f
-                                           (#{build-primref\ 105}#
+                                           (#{build-primref\ 208}#
                                              #f
                                              'list)
-                                           (list #{x\ 1572}#))
-                                         (#{build-application\ 93}#
+                                           (list #{x\ 3467}#))
+                                         (#{build-application\ 184}#
                                            #f
-                                           (#{build-primref\ 105}#
+                                           (#{build-primref\ 208}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 1572}#
-                                                 (#{build-data\ 106}#
+                                           (list #{x\ 3467}#
+                                                 (#{build-data\ 210}#
                                                    #f
-                                                   #{p\ 1580}#)))))))))))))
-                 (#{build-dispatch-call\ 1552}#
-                   (lambda (#{pvars\ 1588}#
-                            #{exp\ 1589}#
-                            #{y\ 1590}#
-                            #{r\ 1591}#
-                            #{mod\ 1592}#)
-                     (let ((#{ids\ 1593}# (map car #{pvars\ 1588}#))
-                           (#{levels\ 1594}# (map cdr #{pvars\ 1588}#)))
-                       (let ((#{labels\ 1595}#
-                               (#{gen-labels\ 134}# #{ids\ 1593}#))
-                             (#{new-vars\ 1596}#
-                               (map #{gen-var\ 178}# #{ids\ 1593}#)))
-                         (#{build-application\ 93}#
+                                                   #{p\ 3483}#)))))))))))))
+                 (#{build-dispatch-call\ 3420}#
+                   (lambda (#{pvars\ 3513}#
+                            #{exp\ 3514}#
+                            #{y\ 3515}#
+                            #{r\ 3516}#
+                            #{mod\ 3517}#)
+                     (let ((#{ids\ 3525}# (map car #{pvars\ 3513}#))
+                           (#{levels\ 3526}# (map cdr #{pvars\ 3513}#)))
+                       (let ((#{labels\ 3529}#
+                               (#{gen-labels\ 278}# #{ids\ 3525}#))
+                             (#{new-vars\ 3530}#
+                               (map #{gen-var\ 373}# #{ids\ 3525}#)))
+                         (#{build-application\ 184}#
                            #f
-                           (#{build-primref\ 105}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 102}#
+                           (#{build-primref\ 208}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 202}#
                                    #f
-                                   (map syntax->datum #{ids\ 1593}#)
+                                   (map syntax->datum #{ids\ 3525}#)
                                    #f
-                                   #{new-vars\ 1596}#
+                                   #{new-vars\ 3530}#
                                    #f
-                                   (#{chi\ 164}#
-                                     #{exp\ 1589}#
-                                     (#{extend-env\ 122}#
-                                       #{labels\ 1595}#
-                                       (map (lambda (#{var\ 1597}#
-                                                     #{level\ 1598}#)
+                                   (#{chi\ 345}#
+                                     #{exp\ 3514}#
+                                     (#{extend-env\ 248}#
+                                       #{labels\ 3529}#
+                                       (map (lambda (#{var\ 3534}#
+                                                     #{level\ 3535}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 1597}#
-                                                          #{level\ 1598}#)))
-                                            #{new-vars\ 1596}#
-                                            (map cdr #{pvars\ 1588}#))
-                                       #{r\ 1591}#)
-                                     (#{make-binding-wrap\ 145}#
-                                       #{ids\ 1593}#
-                                       #{labels\ 1595}#
+                                                    (cons #{var\ 3534}#
+                                                          #{level\ 3535}#)))
+                                            #{new-vars\ 3530}#
+                                            (map cdr #{pvars\ 3513}#))
+                                       #{r\ 3516}#)
+                                     (#{make-binding-wrap\ 307}#
+                                       #{ids\ 3525}#
+                                       #{labels\ 3529}#
                                        '(()))
-                                     #{mod\ 1592}#))
-                                 #{y\ 1590}#))))))
-                 (#{convert-pattern\ 1551}#
-                   (lambda (#{pattern\ 1599}# #{keys\ 1600}#)
-                     (letrec ((#{cvt\ 1602}#
-                                (lambda (#{p\ 1603}# #{n\ 1604}# #{ids\ 1605}#)
-                                  (if (#{id?\ 128}# #{p\ 1603}#)
-                                    (if (#{bound-id-member?\ 155}#
-                                          #{p\ 1603}#
-                                          #{keys\ 1600}#)
+                                     #{mod\ 3517}#))
+                                 #{y\ 3515}#))))))
+                 (#{convert-pattern\ 3418}#
+                   (lambda (#{pattern\ 3541}# #{keys\ 3542}#)
+                     (letrec ((#{cvt\ 3548}#
+                                (lambda (#{p\ 3549}# #{n\ 3550}# #{ids\ 3551}#)
+                                  (if (#{id?\ 260}# #{p\ 3549}#)
+                                    (if (#{bound-id-member?\ 327}#
+                                          #{p\ 3549}#
+                                          #{keys\ 3542}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 1603}#)
-                                        #{ids\ 1605}#)
+                                        (vector (quote free-id) #{p\ 3549}#)
+                                        #{ids\ 3551}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 1603}# #{n\ 1604}#)
-                                              #{ids\ 1605}#)))
-                                    ((lambda (#{tmp\ 1606}#)
-                                       ((lambda (#{tmp\ 1607}#)
-                                          (if (if #{tmp\ 1607}#
-                                                (apply (lambda (#{x\ 1608}#
-                                                                #{dots\ 1609}#)
-                                                         (#{ellipsis?\ 172}#
-                                                           #{dots\ 1609}#))
-                                                       #{tmp\ 1607}#)
+                                        (cons (cons #{p\ 3549}# #{n\ 3550}#)
+                                              #{ids\ 3551}#)))
+                                    ((lambda (#{tmp\ 3555}#)
+                                       ((lambda (#{tmp\ 3556}#)
+                                          (if (if #{tmp\ 3556}#
+                                                (apply (lambda (#{x\ 3559}#
+                                                                #{dots\ 3560}#)
+                                                         (#{ellipsis?\ 361}#
+                                                           #{dots\ 3560}#))
+                                                       #{tmp\ 3556}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 1610}#
-                                                            #{dots\ 1611}#)
+                                            (apply (lambda (#{x\ 3563}#
+                                                            #{dots\ 3564}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 1602}#
-                                                           #{x\ 1610}#
-                                                           (#{fx+\ 83}#
-                                                             #{n\ 1604}#
+                                                         (#{cvt\ 3548}#
+                                                           #{x\ 3563}#
+                                                           (#{fx+\ 163}#
+                                                             #{n\ 3550}#
                                                              1)
-                                                           #{ids\ 1605}#))
-                                                       (lambda (#{p\ 1612}#
-                                                                #{ids\ 1613}#)
+                                                           #{ids\ 3551}#))
+                                                       (lambda (#{p\ 3565}#
+                                                                #{ids\ 3566}#)
                                                          (values
-                                                           (if (eq? #{p\ 1612}#
+                                                           (if (eq? #{p\ 3565}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 1612}#))
-                                                           #{ids\ 1613}#))))
-                                                   #{tmp\ 1607}#)
-                                            ((lambda (#{tmp\ 1614}#)
-                                               (if (if #{tmp\ 1614}#
-                                                     (apply (lambda (#{x\ 
1615}#
-                                                                     #{dots\ 
1616}#
-                                                                     #{ys\ 
1617}#)
-                                                              (#{ellipsis?\ 
172}#
-                                                                #{dots\ 
1616}#))
-                                                            #{tmp\ 1614}#)
+                                                               #{p\ 3565}#))
+                                                           #{ids\ 3566}#))))
+                                                   #{tmp\ 3556}#)
+                                            ((lambda (#{tmp\ 3569}#)
+                                               (if (if #{tmp\ 3569}#
+                                                     (apply (lambda (#{x\ 
3573}#
+                                                                     #{dots\ 
3574}#
+                                                                     #{ys\ 
3575}#)
+                                                              (#{ellipsis?\ 
361}#
+                                                                #{dots\ 
3574}#))
+                                                            #{tmp\ 3569}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 1618}#
-                                                                 #{dots\ 1619}#
-                                                                 #{ys\ 1620}#)
+                                                 (apply (lambda (#{x\ 3579}#
+                                                                 #{dots\ 3580}#
+                                                                 #{ys\ 3581}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 1601}#
-                                                                #{ys\ 1620}#
-                                                                #{n\ 1604}#
-                                                                #{ids\ 1605}#))
-                                                            (lambda (#{ys\ 
1622}#
-                                                                     #{ids\ 
1623}#)
+                                                              (#{cvt*\ 3546}#
+                                                                #{ys\ 3581}#
+                                                                #{n\ 3550}#
+                                                                #{ids\ 3551}#))
+                                                            (lambda (#{ys\ 
3583}#
+                                                                     #{ids\ 
3584}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
1602}#
-                                                                    #{x\ 1618}#
-                                                                    (+ #{n\ 
1604}#
+                                                                  (#{cvt\ 
3548}#
+                                                                    #{x\ 3579}#
+                                                                    (+ #{n\ 
3550}#
                                                                        1)
-                                                                    #{ids\ 
1623}#))
-                                                                (lambda (#{x\ 
1624}#
-                                                                         
#{ids\ 1625}#)
+                                                                    #{ids\ 
3584}#))
+                                                                (lambda (#{x\ 
3587}#
+                                                                         
#{ids\ 3588}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 1624}#
+                                                                            
(cons #{x\ 3587}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 1622}#)
+                                                                               
           #{ys\ 3583}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
1625}#))))))
-                                                        #{tmp\ 1614}#)
-                                                 ((lambda (#{tmp\ 1626}#)
-                                                    (if #{tmp\ 1626}#
-                                                      (apply (lambda (#{x\ 
1627}#
-                                                                      #{y\ 
1628}#)
+                                                                    #{ids\ 
3588}#))))))
+                                                        #{tmp\ 3569}#)
+                                                 ((lambda (#{tmp\ 3592}#)
+                                                    (if #{tmp\ 3592}#
+                                                      (apply (lambda (#{x\ 
3595}#
+                                                                      #{y\ 
3596}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
1602}#
-                                                                     #{y\ 
1628}#
-                                                                     #{n\ 
1604}#
-                                                                     #{ids\ 
1605}#))
-                                                                 (lambda (#{y\ 
1629}#
-                                                                          
#{ids\ 1630}#)
+                                                                   (#{cvt\ 
3548}#
+                                                                     #{y\ 
3596}#
+                                                                     #{n\ 
3550}#
+                                                                     #{ids\ 
3551}#))
+                                                                 (lambda (#{y\ 
3597}#
+                                                                          
#{ids\ 3598}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
1602}#
-                                                                         #{x\ 
1627}#
-                                                                         #{n\ 
1604}#
-                                                                         
#{ids\ 1630}#))
-                                                                     (lambda 
(#{x\ 1631}#
-                                                                              
#{ids\ 1632}#)
+                                                                       (#{cvt\ 
3548}#
+                                                                         #{x\ 
3595}#
+                                                                         #{n\ 
3550}#
+                                                                         
#{ids\ 3598}#))
+                                                                     (lambda 
(#{x\ 3601}#
+                                                                              
#{ids\ 3602}#)
                                                                        (values
-                                                                         (cons 
#{x\ 1631}#
-                                                                               
#{y\ 1629}#)
-                                                                         
#{ids\ 1632}#))))))
-                                                             #{tmp\ 1626}#)
-                                                      ((lambda (#{tmp\ 1633}#)
-                                                         (if #{tmp\ 1633}#
+                                                                         (cons 
#{x\ 3601}#
+                                                                               
#{y\ 3597}#)
+                                                                         
#{ids\ 3602}#))))))
+                                                             #{tmp\ 3592}#)
+                                                      ((lambda (#{tmp\ 3605}#)
+                                                         (if #{tmp\ 3605}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
1605}#))
-                                                                  #{tmp\ 
1633}#)
-                                                           ((lambda (#{tmp\ 
1634}#)
-                                                              (if #{tmp\ 1634}#
-                                                                (apply (lambda 
(#{x\ 1635}#)
+                                                                      #{ids\ 
3551}#))
+                                                                  #{tmp\ 
3605}#)
+                                                           ((lambda (#{tmp\ 
3606}#)
+                                                              (if #{tmp\ 3606}#
+                                                                (apply (lambda 
(#{x\ 3608}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 1602}#
-                                                                               
#{x\ 1635}#
-                                                                               
#{n\ 1604}#
-                                                                               
#{ids\ 1605}#))
-                                                                           
(lambda (#{p\ 1637}#
-                                                                               
     #{ids\ 1638}#)
+                                                                             
(#{cvt\ 3548}#
+                                                                               
#{x\ 3608}#
+                                                                               
#{n\ 3550}#
+                                                                               
#{ids\ 3551}#))
+                                                                           
(lambda (#{p\ 3610}#
+                                                                               
     #{ids\ 3611}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 1637}#)
-                                                                               
#{ids\ 1638}#))))
-                                                                       #{tmp\ 
1634}#)
-                                                                ((lambda (#{x\ 
1639}#)
+                                                                               
  #{p\ 3610}#)
+                                                                               
#{ids\ 3611}#))))
+                                                                       #{tmp\ 
3606}#)
+                                                                ((lambda (#{x\ 
3615}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 177}#
-                                                                         #{p\ 
1603}#
+                                                                       
(#{strip\ 371}#
+                                                                         #{p\ 
3549}#
                                                                          
'(())))
-                                                                     #{ids\ 
1605}#))
-                                                                 #{tmp\ 
1606}#)))
+                                                                     #{ids\ 
3551}#))
+                                                                 #{tmp\ 
3555}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 1606}#
+                                                              #{tmp\ 3555}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 1606}#
+                                                         #{tmp\ 3555}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 1606}#
+                                                    #{tmp\ 3555}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 1606}#
+                                               #{tmp\ 3555}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 1606}#
+                                          #{tmp\ 3555}#
                                           '(any any))))
-                                     #{p\ 1603}#))))
-                              (#{cvt*\ 1601}#
-                                (lambda (#{p*\ 1640}#
-                                         #{n\ 1641}#
-                                         #{ids\ 1642}#)
-                                  (if (null? #{p*\ 1640}#)
-                                    (values (quote ()) #{ids\ 1642}#)
+                                     #{p\ 3549}#))))
+                              (#{cvt*\ 3546}#
+                                (lambda (#{p*\ 3617}#
+                                         #{n\ 3618}#
+                                         #{ids\ 3619}#)
+                                  (if (null? #{p*\ 3617}#)
+                                    (values (quote ()) #{ids\ 3619}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 1601}#
-                                          (cdr #{p*\ 1640}#)
-                                          #{n\ 1641}#
-                                          #{ids\ 1642}#))
-                                      (lambda (#{y\ 1643}# #{ids\ 1644}#)
+                                        (#{cvt*\ 3546}#
+                                          (cdr #{p*\ 3617}#)
+                                          #{n\ 3618}#
+                                          #{ids\ 3619}#))
+                                      (lambda (#{y\ 3623}# #{ids\ 3624}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 1602}#
-                                              (car #{p*\ 1640}#)
-                                              #{n\ 1641}#
-                                              #{ids\ 1644}#))
-                                          (lambda (#{x\ 1645}# #{ids\ 1646}#)
+                                            (#{cvt\ 3548}#
+                                              (car #{p*\ 3617}#)
+                                              #{n\ 3618}#
+                                              #{ids\ 3624}#))
+                                          (lambda (#{x\ 3627}# #{ids\ 3628}#)
                                             (values
-                                              (cons #{x\ 1645}# #{y\ 1643}#)
-                                              #{ids\ 1646}#)))))))))
-                       (#{cvt\ 1602}# #{pattern\ 1599}# 0 (quote ()))))))
-          (lambda (#{e\ 1647}#
-                   #{r\ 1648}#
-                   #{w\ 1649}#
-                   #{s\ 1650}#
-                   #{mod\ 1651}#)
-            (let ((#{e\ 1652}#
-                    (#{source-wrap\ 157}#
-                      #{e\ 1647}#
-                      #{w\ 1649}#
-                      #{s\ 1650}#
-                      #{mod\ 1651}#)))
-              ((lambda (#{tmp\ 1653}#)
-                 ((lambda (#{tmp\ 1654}#)
-                    (if #{tmp\ 1654}#
-                      (apply (lambda (#{_\ 1655}#
-                                      #{val\ 1656}#
-                                      #{key\ 1657}#
-                                      #{m\ 1658}#)
+                                              (cons #{x\ 3627}# #{y\ 3623}#)
+                                              #{ids\ 3628}#)))))))))
+                       (#{cvt\ 3548}# #{pattern\ 3541}# 0 (quote ()))))))
+          (lambda (#{e\ 3631}#
+                   #{r\ 3632}#
+                   #{w\ 3633}#
+                   #{s\ 3634}#
+                   #{mod\ 3635}#)
+            (let ((#{e\ 3642}#
+                    (#{source-wrap\ 331}#
+                      #{e\ 3631}#
+                      #{w\ 3633}#
+                      #{s\ 3634}#
+                      #{mod\ 3635}#)))
+              ((lambda (#{tmp\ 3643}#)
+                 ((lambda (#{tmp\ 3644}#)
+                    (if #{tmp\ 3644}#
+                      (apply (lambda (#{_\ 3649}#
+                                      #{val\ 3650}#
+                                      #{key\ 3651}#
+                                      #{m\ 3652}#)
                                (if (and-map
-                                     (lambda (#{x\ 1659}#)
-                                       (if (#{id?\ 128}# #{x\ 1659}#)
-                                         (not (#{ellipsis?\ 172}# #{x\ 1659}#))
+                                     (lambda (#{x\ 3653}#)
+                                       (if (#{id?\ 260}# #{x\ 3653}#)
+                                         (not (#{ellipsis?\ 361}# #{x\ 3653}#))
                                          #f))
-                                     #{key\ 1657}#)
-                                 (let ((#{x\ 1661}#
-                                         (#{gen-var\ 178}# (quote tmp))))
-                                   (#{build-application\ 93}#
-                                     #{s\ 1650}#
-                                     (#{build-simple-lambda\ 102}#
+                                     #{key\ 3651}#)
+                                 (let ((#{x\ 3659}#
+                                         (#{gen-var\ 373}# (quote tmp))))
+                                   (#{build-application\ 184}#
+                                     #{s\ 3634}#
+                                     (#{build-simple-lambda\ 202}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 1661}#)
+                                       (list #{x\ 3659}#)
                                        #f
-                                       (#{gen-syntax-case\ 1554}#
-                                         (#{build-lexical-reference\ 95}#
+                                       (#{gen-syntax-case\ 3424}#
+                                         (#{build-lexical-reference\ 188}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 1661}#)
-                                         #{key\ 1657}#
-                                         #{m\ 1658}#
-                                         #{r\ 1648}#
-                                         #{mod\ 1651}#))
-                                     (list (#{chi\ 164}#
-                                             #{val\ 1656}#
-                                             #{r\ 1648}#
+                                           #{x\ 3659}#)
+                                         #{key\ 3651}#
+                                         #{m\ 3652}#
+                                         #{r\ 3632}#
+                                         #{mod\ 3635}#))
+                                     (list (#{chi\ 345}#
+                                             #{val\ 3650}#
+                                             #{r\ 3632}#
                                              '(())
-                                             #{mod\ 1651}#))))
+                                             #{mod\ 3635}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 1652}#)))
-                             #{tmp\ 1654}#)
+                                   #{e\ 3642}#)))
+                             #{tmp\ 3644}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 1653}#)))
+                        #{tmp\ 3643}#)))
                   ($sc-dispatch
-                    #{tmp\ 1653}#
+                    #{tmp\ 3643}#
                     '(any any each-any . each-any))))
-               #{e\ 1652}#)))))
+               #{e\ 3642}#)))))
       (set! sc-expand
-        (lambda (#{x\ 1664}# . #{rest\ 1665}#)
-          (if (if (pair? #{x\ 1664}#)
-                (equal? (car #{x\ 1664}#) #{noexpand\ 81}#)
+        (lambda (#{x\ 3665}# . #{rest\ 3666}#)
+          (if (if (pair? #{x\ 3665}#)
+                (equal? (car #{x\ 3665}#) #{noexpand\ 159}#)
                 #f)
-            (cadr #{x\ 1664}#)
-            (let ((#{m\ 1666}#
-                    (if (null? #{rest\ 1665}#)
+            (cadr #{x\ 3665}#)
+            (let ((#{m\ 3673}#
+                    (if (null? #{rest\ 3666}#)
                       'e
-                      (car #{rest\ 1665}#)))
-                  (#{esew\ 1667}#
-                    (if (let ((#{t\ 1668}# (null? #{rest\ 1665}#)))
-                          (if #{t\ 1668}#
-                            #{t\ 1668}#
-                            (null? (cdr #{rest\ 1665}#))))
+                      (car #{rest\ 3666}#)))
+                  (#{esew\ 3674}#
+                    (if (let ((#{t\ 3677}# (null? #{rest\ 3