guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, wip-case-lambda, updated. release_1-9-


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, wip-case-lambda, updated. release_1-9-4-19-gca1b0f7
Date: Mon, 19 Oct 2009 20:30:38 +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=ca1b0f760a327a67ae7c822cd825db9bb72880ff

The branch, wip-case-lambda has been updated
       via  ca1b0f760a327a67ae7c822cd825db9bb72880ff (commit)
      from  441382394cbe8ae382b314e6c2199197576dae00 (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 ca1b0f760a327a67ae7c822cd825db9bb72880ff
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 19 22:13:08 2009 +0200

    more work towards compiling and interpreting keyword args
    
    * libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bumparoo
    * libguile/vm-i-system.c (push-rest, bind-rest): Logically there are
      actually two rest binders -- one that pops, conses, and pushes, and
      one that pops, conses, and local-sets. The latter is used on keyword
      arguments, because the keyword arguments themselves have been shuffled
      up on the stack. Renumber ops again.
    
    * module/language/tree-il/compile-glil.scm (flatten): Attempt to handle
      compilation of lambda-case with keyword arguments. Might need some
      help.
    
    * module/ice-9/psyntax.scm (build-lambda-case): An attempt to handle the
      interpreted case correctly. This might need a couple iterations, but
      at least it looks like the compile-glil code.
    
    * module/ice-9/psyntax-pp.scm: Regenerated.
    
    * module/language/glil.scm (<glil>): Rename "rest?" to "rest" in
      <glil-opt-prelude> and <glil-kw-prelude>, as it is no longer a simple
      boolean, but if true is an integer: the index of the local variable to
      which the rest should be bound.
    
    * module/language/glil/compile-assembly.scm (glil->assembly): Adapt to
      "rest" vs "rest?". In the keyword case, use "bind-rest" instead of
      "push-rest".
    
    * test-suite/tests/tree-il.test: Update for opt-prelude change.

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

Summary of changes:
 libguile/_scm.h                           |    2 +-
 libguile/vm-i-system.c                    |   74 +-
 module/ice-9/psyntax-pp.scm               |10918 +++++++++++++++--------------
 module/ice-9/psyntax.scm                  |   62 +-
 module/language/glil.scm                  |   24 +-
 module/language/glil/compile-assembly.scm |   30 +-
 module/language/tree-il/compile-glil.scm  |   76 +-
 test-suite/tests/tree-il.test             |    8 +-
 8 files changed, 5673 insertions(+), 5521 deletions(-)

diff --git a/libguile/_scm.h b/libguile/_scm.h
index a7a5e8f..21fe5bc 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -172,7 +172,7 @@
 
 /* Major and minor versions must be single characters. */
 #define SCM_OBJCODE_MAJOR_VERSION 0
-#define SCM_OBJCODE_MINOR_VERSION I
+#define SCM_OBJCODE_MINOR_VERSION J
 #define SCM_OBJCODE_MAJOR_VERSION_STRING        \
   SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
 #define SCM_OBJCODE_MINOR_VERSION_STRING        \
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 66e4935..f1fdc4d 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -624,7 +624,7 @@ VM_DEFINE_INSTRUCTION (45, bind_kwargs, "bind-kwargs", 5, 
0, 0)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (46, bind_rest, "bind-rest", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (46, push_rest, "push-rest", 2, -1, -1)
 {
   scm_t_ptrdiff n;
   SCM rest = SCM_EOL;
@@ -637,7 +637,23 @@ VM_DEFINE_INSTRUCTION (46, bind_rest, "bind-rest", 2, -1, 
-1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (47, reserve_locals, "reserve-locals", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (47, bind_rest, "bind-rest", 4, -1, -1)
+{
+  scm_t_ptrdiff n;
+  scm_t_uint32 i;
+  SCM rest = SCM_EOL;
+  n = FETCH () << 8;
+  n += FETCH ();
+  i = FETCH () << 8;
+  i += FETCH ();
+  while (sp - (fp - 1) > n)
+    /* No need to check for underflow. */
+    CONS (rest, *sp--, rest);
+  LOCAL_SET (i, rest);
+  NEXT;
+}
+
+VM_DEFINE_INSTRUCTION (48, reserve_locals, "reserve-locals", 2, -1, -1)
 {
   SCM *old_sp;
   scm_t_int32 n;
@@ -658,7 +674,7 @@ VM_DEFINE_INSTRUCTION (47, reserve_locals, 
"reserve-locals", 2, -1, -1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (48, new_frame, "new-frame", 0, 0, 3)
+VM_DEFINE_INSTRUCTION (49, new_frame, "new-frame", 0, 0, 3)
 {
   /* NB: if you change this, see frames.c:vm-frame-num-locals */
   /* and frames.h, vm-engine.c, etc of course */
@@ -668,7 +684,7 @@ VM_DEFINE_INSTRUCTION (48, new_frame, "new-frame", 0, 0, 3)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (49, call, "call", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (50, call, "call", 1, -1, 1)
 {
   SCM x;
   nargs = FETCH ();
@@ -729,7 +745,7 @@ VM_DEFINE_INSTRUCTION (49, call, "call", 1, -1, 1)
   goto vm_error_wrong_type_apply;
 }
 
-VM_DEFINE_INSTRUCTION (50, goto_args, "goto/args", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (51, goto_args, "goto/args", 1, -1, 1)
 {
   register SCM x;
   nargs = FETCH ();
@@ -802,7 +818,7 @@ VM_DEFINE_INSTRUCTION (50, goto_args, "goto/args", 1, -1, 1)
   goto vm_error_wrong_type_apply;
 }
 
-VM_DEFINE_INSTRUCTION (51, goto_nargs, "goto/nargs", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (52, goto_nargs, "goto/nargs", 0, 0, 1)
 {
   SCM x;
   POP (x);
@@ -811,7 +827,7 @@ VM_DEFINE_INSTRUCTION (51, goto_nargs, "goto/nargs", 0, 0, 
1)
   goto vm_goto_args;
 }
 
-VM_DEFINE_INSTRUCTION (52, call_nargs, "call/nargs", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (53, call_nargs, "call/nargs", 0, 0, 1)
 {
   SCM x;
   POP (x);
@@ -820,7 +836,7 @@ VM_DEFINE_INSTRUCTION (52, call_nargs, "call/nargs", 0, 0, 
1)
   goto vm_call;
 }
 
-VM_DEFINE_INSTRUCTION (53, mv_call, "mv-call", 4, -1, 1)
+VM_DEFINE_INSTRUCTION (54, mv_call, "mv-call", 4, -1, 1)
 {
   SCM x;
   scm_t_int32 offset;
@@ -882,7 +898,7 @@ VM_DEFINE_INSTRUCTION (53, mv_call, "mv-call", 4, -1, 1)
   goto vm_error_wrong_type_apply;
 }
 
-VM_DEFINE_INSTRUCTION (54, apply, "apply", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (55, apply, "apply", 1, -1, 1)
 {
   int len;
   SCM ls;
@@ -901,7 +917,7 @@ VM_DEFINE_INSTRUCTION (54, apply, "apply", 1, -1, 1)
   goto vm_call;
 }
 
-VM_DEFINE_INSTRUCTION (55, goto_apply, "goto/apply", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (56, goto_apply, "goto/apply", 1, -1, 1)
 {
   int len;
   SCM ls;
@@ -920,7 +936,7 @@ VM_DEFINE_INSTRUCTION (55, goto_apply, "goto/apply", 1, -1, 
1)
   goto vm_goto_args;
 }
 
-VM_DEFINE_INSTRUCTION (56, call_cc, "call/cc", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (57, call_cc, "call/cc", 0, 1, 1)
 {
   int first;
   SCM proc, cont;
@@ -957,7 +973,7 @@ VM_DEFINE_INSTRUCTION (56, call_cc, "call/cc", 0, 1, 1)
     }
 }
 
-VM_DEFINE_INSTRUCTION (57, goto_cc, "goto/cc", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (58, goto_cc, "goto/cc", 0, 1, 1)
 {
   int first;
   SCM proc, cont;
@@ -989,7 +1005,7 @@ VM_DEFINE_INSTRUCTION (57, goto_cc, "goto/cc", 0, 1, 1)
     }
 }
 
-VM_DEFINE_INSTRUCTION (58, return, "return", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (59, return, "return", 0, 1, 1)
 {
  vm_return:
   EXIT_HOOK ();
@@ -1025,7 +1041,7 @@ VM_DEFINE_INSTRUCTION (58, return, "return", 0, 1, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (59, return_values, "return/values", 1, -1, -1)
+VM_DEFINE_INSTRUCTION (60, return_values, "return/values", 1, -1, -1)
 {
   /* nvalues declared at top level, because for some reason gcc seems to think
      that perhaps it might be used without declaration. Fooey to that, I say. 
*/
@@ -1080,7 +1096,7 @@ VM_DEFINE_INSTRUCTION (59, return_values, 
"return/values", 1, -1, -1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (60, return_values_star, "return/values*", 1, -1, -1)
+VM_DEFINE_INSTRUCTION (61, return_values_star, "return/values*", 1, -1, -1)
 {
   SCM l;
 
@@ -1103,7 +1119,7 @@ VM_DEFINE_INSTRUCTION (60, return_values_star, 
"return/values*", 1, -1, -1)
   goto vm_return_values;
 }
 
-VM_DEFINE_INSTRUCTION (61, truncate_values, "truncate-values", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (62, truncate_values, "truncate-values", 2, -1, -1)
 {
   SCM x;
   int nbinds, rest;
@@ -1126,7 +1142,7 @@ VM_DEFINE_INSTRUCTION (61, truncate_values, 
"truncate-values", 2, -1, -1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (62, box, "box", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (63, box, "box", 1, 1, 0)
 {
   SCM val;
   POP (val);
@@ -1140,7 +1156,7 @@ VM_DEFINE_INSTRUCTION (62, box, "box", 1, 1, 0)
      (set! a (lambda () (b ...)))
      ...)
  */
-VM_DEFINE_INSTRUCTION (63, empty_box, "empty-box", 1, 0, 0)
+VM_DEFINE_INSTRUCTION (64, empty_box, "empty-box", 1, 0, 0)
 {
   SYNC_BEFORE_GC ();
   LOCAL_SET (FETCH (),
@@ -1148,7 +1164,7 @@ VM_DEFINE_INSTRUCTION (63, empty_box, "empty-box", 1, 0, 
0)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (64, local_boxed_ref, "local-boxed-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (65, local_boxed_ref, "local-boxed-ref", 1, 0, 1)
 {
   SCM v = LOCAL_REF (FETCH ());
   ASSERT_BOUND_VARIABLE (v);
@@ -1156,7 +1172,7 @@ VM_DEFINE_INSTRUCTION (64, local_boxed_ref, 
"local-boxed-ref", 1, 0, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (65, local_boxed_set, "local-boxed-set", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (66, local_boxed_set, "local-boxed-set", 1, 1, 0)
 {
   SCM v, val;
   v = LOCAL_REF (FETCH ());
@@ -1166,7 +1182,7 @@ VM_DEFINE_INSTRUCTION (65, local_boxed_set, 
"local-boxed-set", 1, 1, 0)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (66, free_ref, "free-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (67, free_ref, "free-ref", 1, 0, 1)
 {
   scm_t_uint8 idx = FETCH ();
   
@@ -1177,7 +1193,7 @@ VM_DEFINE_INSTRUCTION (66, free_ref, "free-ref", 1, 0, 1)
 
 /* no free-set -- if a var is assigned, it should be in a box */
 
-VM_DEFINE_INSTRUCTION (67, free_boxed_ref, "free-boxed-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (68, free_boxed_ref, "free-boxed-ref", 1, 0, 1)
 {
   SCM v;
   scm_t_uint8 idx = FETCH ();
@@ -1188,7 +1204,7 @@ VM_DEFINE_INSTRUCTION (67, free_boxed_ref, 
"free-boxed-ref", 1, 0, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (68, free_boxed_set, "free-boxed-set", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (69, free_boxed_set, "free-boxed-set", 1, 1, 0)
 {
   SCM v, val;
   scm_t_uint8 idx = FETCH ();
@@ -1200,7 +1216,7 @@ VM_DEFINE_INSTRUCTION (68, free_boxed_set, 
"free-boxed-set", 1, 1, 0)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (69, make_closure, "make-closure", 0, 2, 1)
+VM_DEFINE_INSTRUCTION (70, make_closure, "make-closure", 0, 2, 1)
 {
   SCM vect;
   POP (vect);
@@ -1211,7 +1227,7 @@ VM_DEFINE_INSTRUCTION (69, make_closure, "make-closure", 
0, 2, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (70, make_variable, "make-variable", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (71, make_variable, "make-variable", 0, 0, 1)
 {
   SYNC_BEFORE_GC ();
   /* fixme underflow */
@@ -1219,7 +1235,7 @@ VM_DEFINE_INSTRUCTION (70, make_variable, 
"make-variable", 0, 0, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (71, fix_closure, "fix-closure", 2, 0, 1)
+VM_DEFINE_INSTRUCTION (72, fix_closure, "fix-closure", 2, 0, 1)
 {
   SCM x, vect;
   unsigned int i = FETCH ();
@@ -1233,7 +1249,7 @@ VM_DEFINE_INSTRUCTION (71, fix_closure, "fix-closure", 2, 
0, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (72, define, "define", 0, 0, 2)
+VM_DEFINE_INSTRUCTION (73, define, "define", 0, 0, 2)
 {
   SCM sym, val;
   POP (sym);
@@ -1245,7 +1261,7 @@ VM_DEFINE_INSTRUCTION (72, define, "define", 0, 0, 2)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (73, make_keyword, "make-keyword", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (74, make_keyword, "make-keyword", 0, 1, 1)
 {
   CHECK_UNDERFLOW ();
   SYNC_REGISTER ();
@@ -1253,7 +1269,7 @@ VM_DEFINE_INSTRUCTION (73, make_keyword, "make-keyword", 
0, 1, 1)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (74, make_symbol, "make-symbol", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (75, make_symbol, "make-symbol", 0, 1, 1)
 {
   CHECK_UNDERFLOW ();
   SYNC_REGISTER ();
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 84f6162..b002d75 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,125 +1,122 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 30}#
-           (lambda (#{f\ 68}# #{first\ 69}# . #{rest\ 70}#)
-             (let ((#{t\ 71}# (null? #{first\ 69}#)))
-               (if #{t\ 71}#
-                 #{t\ 71}#
-                 (if (null? #{rest\ 70}#)
-                   (letrec ((#{andmap\ 72}#
-                              (lambda (#{first\ 73}#)
-                                (let ((#{x\ 74}# (car #{first\ 73}#))
-                                      (#{first\ 75}# (cdr #{first\ 73}#)))
-                                  (if (null? #{first\ 75}#)
-                                    (#{f\ 68}# #{x\ 74}#)
-                                    (if (#{f\ 68}# #{x\ 74}#)
-                                      (#{andmap\ 72}# #{first\ 75}#)
+(letrec ((#{and-map*\ 3574}#
+           (lambda (#{f\ 3612}# #{first\ 3613}# . #{rest\ 3614}#)
+             (let ((#{t\ 3615}# (null? #{first\ 3613}#)))
+               (if #{t\ 3615}#
+                 #{t\ 3615}#
+                 (if (null? #{rest\ 3614}#)
+                   (letrec ((#{andmap\ 3616}#
+                              (lambda (#{first\ 3617}#)
+                                (let ((#{x\ 3618}# (car #{first\ 3617}#))
+                                      (#{first\ 3619}# (cdr #{first\ 3617}#)))
+                                  (if (null? #{first\ 3619}#)
+                                    (#{f\ 3612}# #{x\ 3618}#)
+                                    (if (#{f\ 3612}# #{x\ 3618}#)
+                                      (#{andmap\ 3616}# #{first\ 3619}#)
                                       #f))))))
-                     (#{andmap\ 72}# #{first\ 69}#))
-                   (letrec ((#{andmap\ 76}#
-                              (lambda (#{first\ 77}# #{rest\ 78}#)
-                                (let ((#{x\ 79}# (car #{first\ 77}#))
-                                      (#{xr\ 80}# (map car #{rest\ 78}#))
-                                      (#{first\ 81}# (cdr #{first\ 77}#))
-                                      (#{rest\ 82}# (map cdr #{rest\ 78}#)))
-                                  (if (null? #{first\ 81}#)
-                                    (apply #{f\ 68}#
-                                           (cons #{x\ 79}# #{xr\ 80}#))
-                                    (if (apply #{f\ 68}#
-                                               (cons #{x\ 79}# #{xr\ 80}#))
-                                      (#{andmap\ 76}#
-                                        #{first\ 81}#
-                                        #{rest\ 82}#)
+                     (#{andmap\ 3616}# #{first\ 3613}#))
+                   (letrec ((#{andmap\ 3620}#
+                              (lambda (#{first\ 3621}# #{rest\ 3622}#)
+                                (let ((#{x\ 3623}# (car #{first\ 3621}#))
+                                      (#{xr\ 3624}# (map car #{rest\ 3622}#))
+                                      (#{first\ 3625}# (cdr #{first\ 3621}#))
+                                      (#{rest\ 3626}#
+                                        (map cdr #{rest\ 3622}#)))
+                                  (if (null? #{first\ 3625}#)
+                                    (apply #{f\ 3612}#
+                                           (cons #{x\ 3623}# #{xr\ 3624}#))
+                                    (if (apply #{f\ 3612}#
+                                               (cons #{x\ 3623}# #{xr\ 3624}#))
+                                      (#{andmap\ 3620}#
+                                        #{first\ 3625}#
+                                        #{rest\ 3626}#)
                                       #f))))))
-                     (#{andmap\ 76}# #{first\ 69}# #{rest\ 70}#))))))))
-  (letrec ((#{lambda-var-list\ 177}#
-             (lambda (#{vars\ 301}#)
-               (letrec ((#{lvl\ 302}#
-                          (lambda (#{vars\ 303}# #{ls\ 304}# #{w\ 305}#)
-                            (if (pair? #{vars\ 303}#)
-                              (#{lvl\ 302}#
-                                (cdr #{vars\ 303}#)
-                                (cons (#{wrap\ 158}#
-                                        (car #{vars\ 303}#)
-                                        #{w\ 305}#
+                     (#{andmap\ 3620}# #{first\ 3613}# #{rest\ 3614}#))))))))
+  (letrec ((#{lambda-var-list\ 3721}#
+             (lambda (#{vars\ 3845}#)
+               (letrec ((#{lvl\ 3846}#
+                          (lambda (#{vars\ 3847}# #{ls\ 3848}# #{w\ 3849}#)
+                            (if (pair? #{vars\ 3847}#)
+                              (#{lvl\ 3846}#
+                                (cdr #{vars\ 3847}#)
+                                (cons (#{wrap\ 3702}#
+                                        (car #{vars\ 3847}#)
+                                        #{w\ 3849}#
                                         #f)
-                                      #{ls\ 304}#)
-                                #{w\ 305}#)
-                              (if (#{id?\ 130}# #{vars\ 303}#)
-                                (cons (#{wrap\ 158}#
-                                        #{vars\ 303}#
-                                        #{w\ 305}#
+                                      #{ls\ 3848}#)
+                                #{w\ 3849}#)
+                              (if (#{id?\ 3674}# #{vars\ 3847}#)
+                                (cons (#{wrap\ 3702}#
+                                        #{vars\ 3847}#
+                                        #{w\ 3849}#
                                         #f)
-                                      #{ls\ 304}#)
-                                (if (null? #{vars\ 303}#)
-                                  #{ls\ 304}#
-                                  (if (#{syntax-object?\ 114}# #{vars\ 303}#)
-                                    (#{lvl\ 302}#
-                                      (#{syntax-object-expression\ 115}#
-                                        #{vars\ 303}#)
-                                      #{ls\ 304}#
-                                      (#{join-wraps\ 149}#
-                                        #{w\ 305}#
-                                        (#{syntax-object-wrap\ 116}#
-                                          #{vars\ 303}#)))
-                                    (cons #{vars\ 303}# #{ls\ 304}#))))))))
-                 (#{lvl\ 302}#
-                   #{vars\ 301}#
+                                      #{ls\ 3848}#)
+                                (if (null? #{vars\ 3847}#)
+                                  #{ls\ 3848}#
+                                  (if (#{syntax-object?\ 3658}# #{vars\ 3847}#)
+                                    (#{lvl\ 3846}#
+                                      (#{syntax-object-expression\ 3659}#
+                                        #{vars\ 3847}#)
+                                      #{ls\ 3848}#
+                                      (#{join-wraps\ 3693}#
+                                        #{w\ 3849}#
+                                        (#{syntax-object-wrap\ 3660}#
+                                          #{vars\ 3847}#)))
+                                    (cons #{vars\ 3847}# #{ls\ 3848}#))))))))
+                 (#{lvl\ 3846}#
+                   #{vars\ 3845}#
                    '()
                    '(())))))
-           (#{gen-var\ 176}#
-             (lambda (#{id\ 306}#)
-               (let ((#{id\ 307}#
-                       (if (#{syntax-object?\ 114}# #{id\ 306}#)
-                         (#{syntax-object-expression\ 115}# #{id\ 306}#)
-                         #{id\ 306}#)))
+           (#{gen-var\ 3720}#
+             (lambda (#{id\ 3850}#)
+               (let ((#{id\ 3851}#
+                       (if (#{syntax-object?\ 3658}# #{id\ 3850}#)
+                         (#{syntax-object-expression\ 3659}# #{id\ 3850}#)
+                         #{id\ 3850}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 307}#) " ")))))
-           (#{strip\ 175}#
-             (lambda (#{x\ 308}# #{w\ 309}#)
+                   (string-append (symbol->string #{id\ 3851}#) " ")))))
+           (#{strip\ 3719}#
+             (lambda (#{x\ 3852}# #{w\ 3853}#)
                (if (memq 'top
-                         (#{wrap-marks\ 133}# #{w\ 309}#))
-                 #{x\ 308}#
-                 (letrec ((#{f\ 310}# (lambda (#{x\ 311}#)
-                                        (if (#{syntax-object?\ 114}#
-                                              #{x\ 311}#)
-                                          (#{strip\ 175}#
-                                            (#{syntax-object-expression\ 115}#
-                                              #{x\ 311}#)
-                                            (#{syntax-object-wrap\ 116}#
-                                              #{x\ 311}#))
-                                          (if (pair? #{x\ 311}#)
-                                            (let ((#{a\ 312}# (#{f\ 310}# (car 
#{x\ 311}#)))
-                                                  (#{d\ 313}# (#{f\ 310}# (cdr 
#{x\ 311}#))))
-                                              (if (if (eq? #{a\ 312}#
-                                                           (car #{x\ 311}#))
-                                                    (eq? #{d\ 313}#
-                                                         (cdr #{x\ 311}#))
-                                                    #f)
-                                                #{x\ 311}#
-                                                (cons #{a\ 312}# #{d\ 313}#)))
-                                            (if (vector? #{x\ 311}#)
-                                              (let ((#{old\ 314}#
-                                                      (vector->list
-                                                        #{x\ 311}#)))
-                                                (let ((#{new\ 315}#
-                                                        (map #{f\ 310}#
-                                                             #{old\ 314}#)))
-                                                  (if (#{and-map*\ 30}#
-                                                        eq?
-                                                        #{old\ 314}#
-                                                        #{new\ 315}#)
-                                                    #{x\ 311}#
-                                                    (list->vector
-                                                      #{new\ 315}#))))
-                                              #{x\ 311}#))))))
-                   (#{f\ 310}# #{x\ 308}#)))))
-           (#{ellipsis?\ 174}#
-             (lambda (#{x\ 316}#)
-               (if (#{nonsymbol-id?\ 129}# #{x\ 316}#)
-                 (#{free-id=?\ 153}#
-                   #{x\ 316}#
+                         (#{wrap-marks\ 3677}# #{w\ 3853}#))
+                 #{x\ 3852}#
+                 (letrec ((#{f\ 3854}#
+                            (lambda (#{x\ 3855}#)
+                              (if (#{syntax-object?\ 3658}# #{x\ 3855}#)
+                                (#{strip\ 3719}#
+                                  (#{syntax-object-expression\ 3659}#
+                                    #{x\ 3855}#)
+                                  (#{syntax-object-wrap\ 3660}# #{x\ 3855}#))
+                                (if (pair? #{x\ 3855}#)
+                                  (let ((#{a\ 3856}#
+                                          (#{f\ 3854}# (car #{x\ 3855}#)))
+                                        (#{d\ 3857}#
+                                          (#{f\ 3854}# (cdr #{x\ 3855}#))))
+                                    (if (if (eq? #{a\ 3856}# (car #{x\ 3855}#))
+                                          (eq? #{d\ 3857}# (cdr #{x\ 3855}#))
+                                          #f)
+                                      #{x\ 3855}#
+                                      (cons #{a\ 3856}# #{d\ 3857}#)))
+                                  (if (vector? #{x\ 3855}#)
+                                    (let ((#{old\ 3858}#
+                                            (vector->list #{x\ 3855}#)))
+                                      (let ((#{new\ 3859}#
+                                              (map #{f\ 3854}# #{old\ 3858}#)))
+                                        (if (#{and-map*\ 3574}#
+                                              eq?
+                                              #{old\ 3858}#
+                                              #{new\ 3859}#)
+                                          #{x\ 3855}#
+                                          (list->vector #{new\ 3859}#))))
+                                    #{x\ 3855}#))))))
+                   (#{f\ 3854}# #{x\ 3852}#)))))
+           (#{ellipsis?\ 3718}#
+             (lambda (#{x\ 3860}#)
+               (if (#{nonsymbol-id?\ 3673}# #{x\ 3860}#)
+                 (#{free-id=?\ 3697}#
+                   #{x\ 3860}#
                    '#(syntax-object
                       ...
                       ((top)
@@ -472,1223 +469,1248 @@
                          ("i" "i")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 173}#
-             (lambda () (#{build-void\ 94}# #f)))
-           (#{eval-local-transformer\ 172}#
-             (lambda (#{expanded\ 317}# #{mod\ 318}#)
-               (let ((#{p\ 319}# (#{local-eval-hook\ 90}#
-                                   #{expanded\ 317}#
-                                   #{mod\ 318}#)))
-                 (if (procedure? #{p\ 319}#)
-                   #{p\ 319}#
+           (#{chi-void\ 3717}#
+             (lambda () (#{build-void\ 3638}# #f)))
+           (#{eval-local-transformer\ 3716}#
+             (lambda (#{expanded\ 3861}# #{mod\ 3862}#)
+               (let ((#{p\ 3863}#
+                       (#{local-eval-hook\ 3634}#
+                         #{expanded\ 3861}#
+                         #{mod\ 3862}#)))
+                 (if (procedure? #{p\ 3863}#)
+                   #{p\ 3863}#
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 319}#)))))
-           (#{chi-local-syntax\ 171}#
-             (lambda (#{rec?\ 320}#
-                      #{e\ 321}#
-                      #{r\ 322}#
-                      #{w\ 323}#
-                      #{s\ 324}#
-                      #{mod\ 325}#
-                      #{k\ 326}#)
-               ((lambda (#{tmp\ 327}#)
-                  ((lambda (#{tmp\ 328}#)
-                     (if #{tmp\ 328}#
-                       (apply (lambda (#{_\ 329}#
-                                       #{id\ 330}#
-                                       #{val\ 331}#
-                                       #{e1\ 332}#
-                                       #{e2\ 333}#)
-                                (let ((#{ids\ 334}# #{id\ 330}#))
-                                  (if (not (#{valid-bound-ids?\ 155}#
-                                             #{ids\ 334}#))
+                     #{p\ 3863}#)))))
+           (#{chi-local-syntax\ 3715}#
+             (lambda (#{rec?\ 3864}#
+                      #{e\ 3865}#
+                      #{r\ 3866}#
+                      #{w\ 3867}#
+                      #{s\ 3868}#
+                      #{mod\ 3869}#
+                      #{k\ 3870}#)
+               ((lambda (#{tmp\ 3871}#)
+                  ((lambda (#{tmp\ 3872}#)
+                     (if #{tmp\ 3872}#
+                       (apply (lambda (#{_\ 3873}#
+                                       #{id\ 3874}#
+                                       #{val\ 3875}#
+                                       #{e1\ 3876}#
+                                       #{e2\ 3877}#)
+                                (let ((#{ids\ 3878}# #{id\ 3874}#))
+                                  (if (not (#{valid-bound-ids?\ 3699}#
+                                             #{ids\ 3878}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 321}#)
-                                    (let ((#{labels\ 336}#
-                                            (#{gen-labels\ 136}#
-                                              #{ids\ 334}#)))
-                                      (let ((#{new-w\ 337}#
-                                              (#{make-binding-wrap\ 147}#
-                                                #{ids\ 334}#
-                                                #{labels\ 336}#
-                                                #{w\ 323}#)))
-                                        (#{k\ 326}# (cons #{e1\ 332}#
-                                                          #{e2\ 333}#)
-                                                    (#{extend-env\ 124}#
-                                                      #{labels\ 336}#
-                                                      (let ((#{w\ 339}# (if 
#{rec?\ 320}#
-                                                                          
#{new-w\ 337}#
-                                                                          #{w\ 
323}#))
-                                                            (#{trans-r\ 340}#
-                                                              
(#{macros-only-env\ 126}#
-                                                                #{r\ 322}#)))
-                                                        (map (lambda (#{x\ 
341}#)
-                                                               (cons 'macro
-                                                                     
(#{eval-local-transformer\ 172}#
-                                                                       (#{chi\ 
166}#
-                                                                         #{x\ 
341}#
-                                                                         
#{trans-r\ 340}#
-                                                                         #{w\ 
339}#
-                                                                         
#{mod\ 325}#)
-                                                                       #{mod\ 
325}#)))
-                                                             #{val\ 331}#))
-                                                      #{r\ 322}#)
-                                                    #{new-w\ 337}#
-                                                    #{s\ 324}#
-                                                    #{mod\ 325}#))))))
-                              #{tmp\ 328}#)
-                       ((lambda (#{_\ 343}#)
+                                      #{e\ 3865}#)
+                                    (let ((#{labels\ 3880}#
+                                            (#{gen-labels\ 3680}#
+                                              #{ids\ 3878}#)))
+                                      (let ((#{new-w\ 3881}#
+                                              (#{make-binding-wrap\ 3691}#
+                                                #{ids\ 3878}#
+                                                #{labels\ 3880}#
+                                                #{w\ 3867}#)))
+                                        (#{k\ 3870}#
+                                          (cons #{e1\ 3876}# #{e2\ 3877}#)
+                                          (#{extend-env\ 3668}#
+                                            #{labels\ 3880}#
+                                            (let ((#{w\ 3883}#
+                                                    (if #{rec?\ 3864}#
+                                                      #{new-w\ 3881}#
+                                                      #{w\ 3867}#))
+                                                  (#{trans-r\ 3884}#
+                                                    (#{macros-only-env\ 3670}#
+                                                      #{r\ 3866}#)))
+                                              (map (lambda (#{x\ 3885}#)
+                                                     (cons 'macro
+                                                           
(#{eval-local-transformer\ 3716}#
+                                                             (#{chi\ 3710}#
+                                                               #{x\ 3885}#
+                                                               #{trans-r\ 
3884}#
+                                                               #{w\ 3883}#
+                                                               #{mod\ 3869}#)
+                                                             #{mod\ 3869}#)))
+                                                   #{val\ 3875}#))
+                                            #{r\ 3866}#)
+                                          #{new-w\ 3881}#
+                                          #{s\ 3868}#
+                                          #{mod\ 3869}#))))))
+                              #{tmp\ 3872}#)
+                       ((lambda (#{_\ 3887}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 159}#
-                              #{e\ 321}#
-                              #{w\ 323}#
-                              #{s\ 324}#
-                              #{mod\ 325}#)))
-                        #{tmp\ 327}#)))
+                            (#{source-wrap\ 3703}#
+                              #{e\ 3865}#
+                              #{w\ 3867}#
+                              #{s\ 3868}#
+                              #{mod\ 3869}#)))
+                        #{tmp\ 3871}#)))
                    ($sc-dispatch
-                     #{tmp\ 327}#
+                     #{tmp\ 3871}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 321}#)))
-           (#{chi-body\ 170}#
-             (lambda (#{body\ 344}#
-                      #{outer-form\ 345}#
-                      #{r\ 346}#
-                      #{w\ 347}#
-                      #{mod\ 348}#)
-               (let ((#{r\ 349}# (cons '("placeholder" placeholder)
-                                       #{r\ 346}#)))
-                 (let ((#{ribcage\ 350}#
-                         (#{make-ribcage\ 137}#
+                #{e\ 3865}#)))
+           (#{chi-body\ 3714}#
+             (lambda (#{body\ 3888}#
+                      #{outer-form\ 3889}#
+                      #{r\ 3890}#
+                      #{w\ 3891}#
+                      #{mod\ 3892}#)
+               (let ((#{r\ 3893}#
+                       (cons '("placeholder" placeholder)
+                             #{r\ 3890}#)))
+                 (let ((#{ribcage\ 3894}#
+                         (#{make-ribcage\ 3681}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 351}# (#{make-wrap\ 132}#
-                                       (#{wrap-marks\ 133}# #{w\ 347}#)
-                                       (cons #{ribcage\ 350}#
-                                             (#{wrap-subst\ 134}#
-                                               #{w\ 347}#)))))
-                     (letrec ((#{parse\ 352}#
-                                (lambda (#{body\ 353}#
-                                         #{ids\ 354}#
-                                         #{labels\ 355}#
-                                         #{var-ids\ 356}#
-                                         #{vars\ 357}#
-                                         #{vals\ 358}#
-                                         #{bindings\ 359}#)
-                                  (if (null? #{body\ 353}#)
+                   (let ((#{w\ 3895}#
+                           (#{make-wrap\ 3676}#
+                             (#{wrap-marks\ 3677}# #{w\ 3891}#)
+                             (cons #{ribcage\ 3894}#
+                                   (#{wrap-subst\ 3678}# #{w\ 3891}#)))))
+                     (letrec ((#{parse\ 3896}#
+                                (lambda (#{body\ 3897}#
+                                         #{ids\ 3898}#
+                                         #{labels\ 3899}#
+                                         #{var-ids\ 3900}#
+                                         #{vars\ 3901}#
+                                         #{vals\ 3902}#
+                                         #{bindings\ 3903}#)
+                                  (if (null? #{body\ 3897}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 345}#)
-                                    (let ((#{e\ 361}# (cdar #{body\ 353}#))
-                                          (#{er\ 362}# (caar #{body\ 353}#)))
+                                      #{outer-form\ 3889}#)
+                                    (let ((#{e\ 3905}# (cdar #{body\ 3897}#))
+                                          (#{er\ 3906}# (caar #{body\ 3897}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 164}#
-                                            #{e\ 361}#
-                                            #{er\ 362}#
+                                          (#{syntax-type\ 3708}#
+                                            #{e\ 3905}#
+                                            #{er\ 3906}#
                                             '(())
-                                            (#{source-annotation\ 121}#
-                                              #{er\ 362}#)
-                                            #{ribcage\ 350}#
-                                            #{mod\ 348}#
+                                            (#{source-annotation\ 3665}#
+                                              #{er\ 3906}#)
+                                            #{ribcage\ 3894}#
+                                            #{mod\ 3892}#
                                             #f))
-                                        (lambda (#{type\ 363}#
-                                                 #{value\ 364}#
-                                                 #{e\ 365}#
-                                                 #{w\ 366}#
-                                                 #{s\ 367}#
-                                                 #{mod\ 368}#)
-                                          (if (memv #{type\ 363}#
+                                        (lambda (#{type\ 3907}#
+                                                 #{value\ 3908}#
+                                                 #{e\ 3909}#
+                                                 #{w\ 3910}#
+                                                 #{s\ 3911}#
+                                                 #{mod\ 3912}#)
+                                          (if (memv #{type\ 3907}#
                                                     '(define-form))
-                                            (let ((#{id\ 369}#
-                                                    (#{wrap\ 158}#
-                                                      #{value\ 364}#
-                                                      #{w\ 366}#
-                                                      #{mod\ 368}#))
-                                                  (#{label\ 370}#
-                                                    (#{gen-label\ 135}#)))
-                                              (let ((#{var\ 371}#
-                                                      (#{gen-var\ 176}#
-                                                        #{id\ 369}#)))
+                                            (let ((#{id\ 3913}#
+                                                    (#{wrap\ 3702}#
+                                                      #{value\ 3908}#
+                                                      #{w\ 3910}#
+                                                      #{mod\ 3912}#))
+                                                  (#{label\ 3914}#
+                                                    (#{gen-label\ 3679}#)))
+                                              (let ((#{var\ 3915}#
+                                                      (#{gen-var\ 3720}#
+                                                        #{id\ 3913}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 146}#
-                                                    #{ribcage\ 350}#
-                                                    #{id\ 369}#
-                                                    #{label\ 370}#)
-                                                  (#{parse\ 352}#
-                                                    (cdr #{body\ 353}#)
-                                                    (cons #{id\ 369}#
-                                                          #{ids\ 354}#)
-                                                    (cons #{label\ 370}#
-                                                          #{labels\ 355}#)
-                                                    (cons #{id\ 369}#
-                                                          #{var-ids\ 356}#)
-                                                    (cons #{var\ 371}#
-                                                          #{vars\ 357}#)
-                                                    (cons (cons #{er\ 362}#
-                                                                (#{wrap\ 158}#
-                                                                  #{e\ 365}#
-                                                                  #{w\ 366}#
-                                                                  #{mod\ 
368}#))
-                                                          #{vals\ 358}#)
+                                                  (#{extend-ribcage!\ 3690}#
+                                                    #{ribcage\ 3894}#
+                                                    #{id\ 3913}#
+                                                    #{label\ 3914}#)
+                                                  (#{parse\ 3896}#
+                                                    (cdr #{body\ 3897}#)
+                                                    (cons #{id\ 3913}#
+                                                          #{ids\ 3898}#)
+                                                    (cons #{label\ 3914}#
+                                                          #{labels\ 3899}#)
+                                                    (cons #{id\ 3913}#
+                                                          #{var-ids\ 3900}#)
+                                                    (cons #{var\ 3915}#
+                                                          #{vars\ 3901}#)
+                                                    (cons (cons #{er\ 3906}#
+                                                                (#{wrap\ 3702}#
+                                                                  #{e\ 3909}#
+                                                                  #{w\ 3910}#
+                                                                  #{mod\ 
3912}#))
+                                                          #{vals\ 3902}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 371}#)
-                                                          #{bindings\ 
359}#)))))
-                                            (if (memv #{type\ 363}#
+                                                                #{var\ 3915}#)
+                                                          #{bindings\ 
3903}#)))))
+                                            (if (memv #{type\ 3907}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 372}#
-                                                      (#{wrap\ 158}#
-                                                        #{value\ 364}#
-                                                        #{w\ 366}#
-                                                        #{mod\ 368}#))
-                                                    (#{label\ 373}#
-                                                      (#{gen-label\ 135}#)))
+                                              (let ((#{id\ 3916}#
+                                                      (#{wrap\ 3702}#
+                                                        #{value\ 3908}#
+                                                        #{w\ 3910}#
+                                                        #{mod\ 3912}#))
+                                                    (#{label\ 3917}#
+                                                      (#{gen-label\ 3679}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 146}#
-                                                    #{ribcage\ 350}#
-                                                    #{id\ 372}#
-                                                    #{label\ 373}#)
-                                                  (#{parse\ 352}#
-                                                    (cdr #{body\ 353}#)
-                                                    (cons #{id\ 372}#
-                                                          #{ids\ 354}#)
-                                                    (cons #{label\ 373}#
-                                                          #{labels\ 355}#)
-                                                    #{var-ids\ 356}#
-                                                    #{vars\ 357}#
-                                                    #{vals\ 358}#
+                                                  (#{extend-ribcage!\ 3690}#
+                                                    #{ribcage\ 3894}#
+                                                    #{id\ 3916}#
+                                                    #{label\ 3917}#)
+                                                  (#{parse\ 3896}#
+                                                    (cdr #{body\ 3897}#)
+                                                    (cons #{id\ 3916}#
+                                                          #{ids\ 3898}#)
+                                                    (cons #{label\ 3917}#
+                                                          #{labels\ 3899}#)
+                                                    #{var-ids\ 3900}#
+                                                    #{vars\ 3901}#
+                                                    #{vals\ 3902}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
362}#
-                                                                      (#{wrap\ 
158}#
-                                                                        #{e\ 
365}#
-                                                                        #{w\ 
366}#
-                                                                        #{mod\ 
368}#)))
-                                                          #{bindings\ 359}#))))
-                                              (if (memv #{type\ 363}#
+                                                                (cons #{er\ 
3906}#
+                                                                      (#{wrap\ 
3702}#
+                                                                        #{e\ 
3909}#
+                                                                        #{w\ 
3910}#
+                                                                        #{mod\ 
3912}#)))
+                                                          #{bindings\ 
3903}#))))
+                                              (if (memv #{type\ 3907}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 374}#)
-                                                   ((lambda (#{tmp\ 375}#)
-                                                      (if #{tmp\ 375}#
-                                                        (apply (lambda (#{_\ 
376}#
-                                                                        #{e1\ 
377}#)
-                                                                 (#{parse\ 
352}#
-                                                                   (letrec 
((#{f\ 378}# (lambda (#{forms\ 379}#)
-                                                                               
           (if (null? #{forms\ 379}#)
-                                                                               
             (cdr #{body\ 353}#)
-                                                                               
             (cons (cons #{er\ 362}#
-                                                                               
                         (#{wrap\ 158}#
-                                                                               
                           (car #{forms\ 379}#)
-                                                                               
                           #{w\ 366}#
-                                                                               
                           #{mod\ 368}#))
-                                                                               
                   (#{f\ 378}# (cdr #{forms\ 379}#)))))))
-                                                                     (#{f\ 
378}# #{e1\ 377}#))
-                                                                   #{ids\ 354}#
-                                                                   #{labels\ 
355}#
-                                                                   #{var-ids\ 
356}#
-                                                                   #{vars\ 
357}#
-                                                                   #{vals\ 
358}#
-                                                                   #{bindings\ 
359}#))
-                                                               #{tmp\ 375}#)
+                                                ((lambda (#{tmp\ 3918}#)
+                                                   ((lambda (#{tmp\ 3919}#)
+                                                      (if #{tmp\ 3919}#
+                                                        (apply (lambda (#{_\ 
3920}#
+                                                                        #{e1\ 
3921}#)
+                                                                 (#{parse\ 
3896}#
+                                                                   (letrec 
((#{f\ 3922}#
+                                                                              
(lambda (#{forms\ 3923}#)
+                                                                               
 (if (null? #{forms\ 3923}#)
+                                                                               
   (cdr #{body\ 3897}#)
+                                                                               
   (cons (cons #{er\ 3906}#
+                                                                               
               (#{wrap\ 3702}#
+                                                                               
                 (car #{forms\ 3923}#)
+                                                                               
                 #{w\ 3910}#
+                                                                               
                 #{mod\ 3912}#))
+                                                                               
         (#{f\ 3922}#
+                                                                               
           (cdr #{forms\ 3923}#)))))))
+                                                                     (#{f\ 
3922}#
+                                                                       #{e1\ 
3921}#))
+                                                                   #{ids\ 
3898}#
+                                                                   #{labels\ 
3899}#
+                                                                   #{var-ids\ 
3900}#
+                                                                   #{vars\ 
3901}#
+                                                                   #{vals\ 
3902}#
+                                                                   #{bindings\ 
3903}#))
+                                                               #{tmp\ 3919}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 374}#)))
+                                                          #{tmp\ 3918}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 374}#
+                                                      #{tmp\ 3918}#
                                                       '(any . each-any))))
-                                                 #{e\ 365}#)
-                                                (if (memv #{type\ 363}#
+                                                 #{e\ 3909}#)
+                                                (if (memv #{type\ 3907}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 171}#
-                                                    #{value\ 364}#
-                                                    #{e\ 365}#
-                                                    #{er\ 362}#
-                                                    #{w\ 366}#
-                                                    #{s\ 367}#
-                                                    #{mod\ 368}#
-                                                    (lambda (#{forms\ 381}#
-                                                             #{er\ 382}#
-                                                             #{w\ 383}#
-                                                             #{s\ 384}#
-                                                             #{mod\ 385}#)
-                                                      (#{parse\ 352}#
-                                                        (letrec ((#{f\ 386}# 
(lambda (#{forms\ 387}#)
-                                                                               
(if (null? #{forms\ 387}#)
-                                                                               
  (cdr #{body\ 353}#)
-                                                                               
  (cons (cons #{er\ 382}#
-                                                                               
              (#{wrap\ 158}#
-                                                                               
                (car #{forms\ 387}#)
-                                                                               
                #{w\ 383}#
-                                                                               
                #{mod\ 385}#))
-                                                                               
        (#{f\ 386}# (cdr #{forms\ 387}#)))))))
-                                                          (#{f\ 386}# #{forms\ 
381}#))
-                                                        #{ids\ 354}#
-                                                        #{labels\ 355}#
-                                                        #{var-ids\ 356}#
-                                                        #{vars\ 357}#
-                                                        #{vals\ 358}#
-                                                        #{bindings\ 359}#)))
-                                                  (if (null? #{ids\ 354}#)
-                                                    (#{build-sequence\ 109}#
+                                                  (#{chi-local-syntax\ 3715}#
+                                                    #{value\ 3908}#
+                                                    #{e\ 3909}#
+                                                    #{er\ 3906}#
+                                                    #{w\ 3910}#
+                                                    #{s\ 3911}#
+                                                    #{mod\ 3912}#
+                                                    (lambda (#{forms\ 3925}#
+                                                             #{er\ 3926}#
+                                                             #{w\ 3927}#
+                                                             #{s\ 3928}#
+                                                             #{mod\ 3929}#)
+                                                      (#{parse\ 3896}#
+                                                        (letrec ((#{f\ 3930}#
+                                                                   (lambda 
(#{forms\ 3931}#)
+                                                                     (if 
(null? #{forms\ 3931}#)
+                                                                       (cdr 
#{body\ 3897}#)
+                                                                       (cons 
(cons #{er\ 3926}#
+                                                                               
    (#{wrap\ 3702}#
+                                                                               
      (car #{forms\ 3931}#)
+                                                                               
      #{w\ 3927}#
+                                                                               
      #{mod\ 3929}#))
+                                                                             
(#{f\ 3930}#
+                                                                               
(cdr #{forms\ 3931}#)))))))
+                                                          (#{f\ 3930}#
+                                                            #{forms\ 3925}#))
+                                                        #{ids\ 3898}#
+                                                        #{labels\ 3899}#
+                                                        #{var-ids\ 3900}#
+                                                        #{vars\ 3901}#
+                                                        #{vals\ 3902}#
+                                                        #{bindings\ 3903}#)))
+                                                  (if (null? #{ids\ 3898}#)
+                                                    (#{build-sequence\ 3653}#
                                                       #f
-                                                      (map (lambda (#{x\ 388}#)
-                                                             (#{chi\ 166}#
-                                                               (cdr #{x\ 388}#)
-                                                               (car #{x\ 388}#)
+                                                      (map (lambda (#{x\ 
3932}#)
+                                                             (#{chi\ 3710}#
+                                                               (cdr #{x\ 
3932}#)
+                                                               (car #{x\ 
3932}#)
                                                                '(())
-                                                               #{mod\ 368}#))
-                                                           (cons (cons #{er\ 
362}#
-                                                                       
(#{source-wrap\ 159}#
-                                                                         #{e\ 
365}#
-                                                                         #{w\ 
366}#
-                                                                         #{s\ 
367}#
-                                                                         
#{mod\ 368}#))
-                                                                 (cdr #{body\ 
353}#))))
+                                                               #{mod\ 3912}#))
+                                                           (cons (cons #{er\ 
3906}#
+                                                                       
(#{source-wrap\ 3703}#
+                                                                         #{e\ 
3909}#
+                                                                         #{w\ 
3910}#
+                                                                         #{s\ 
3911}#
+                                                                         
#{mod\ 3912}#))
+                                                                 (cdr #{body\ 
3897}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 155}#
-                                                                 #{ids\ 354}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 3699}#
+                                                                 #{ids\ 
3898}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 345}#))
-                                                      (letrec ((#{loop\ 389}#
-                                                                 (lambda 
(#{bs\ 390}#
-                                                                          
#{er-cache\ 391}#
-                                                                          
#{r-cache\ 392}#)
-                                                                   (if (not 
(null? #{bs\ 390}#))
-                                                                     (let 
((#{b\ 393}# (car #{bs\ 390}#)))
-                                                                       (if 
(eq? (car #{b\ 393}#)
+                                                          #{outer-form\ 
3889}#))
+                                                      (letrec ((#{loop\ 3933}#
+                                                                 (lambda 
(#{bs\ 3934}#
+                                                                          
#{er-cache\ 3935}#
+                                                                          
#{r-cache\ 3936}#)
+                                                                   (if (not 
(null? #{bs\ 3934}#))
+                                                                     (let 
((#{b\ 3937}#
+                                                                             
(car #{bs\ 3934}#)))
+                                                                       (if 
(eq? (car #{b\ 3937}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 394}#
-                                                                               
  (cadr #{b\ 393}#)))
-                                                                           
(let ((#{r-cache\ 395}#
-                                                                               
    (if (eq? #{er\ 394}#
-                                                                               
             #{er-cache\ 391}#)
-                                                                               
      #{r-cache\ 392}#
-                                                                               
      (#{macros-only-env\ 126}#
-                                                                               
        #{er\ 394}#))))
+                                                                         (let 
((#{er\ 3938}#
+                                                                               
  (cadr #{b\ 3937}#)))
+                                                                           
(let ((#{r-cache\ 3939}#
+                                                                               
    (if (eq? #{er\ 3938}#
+                                                                               
             #{er-cache\ 3935}#)
+                                                                               
      #{r-cache\ 3936}#
+                                                                               
      (#{macros-only-env\ 3670}#
+                                                                               
        #{er\ 3938}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 393}#
-                                                                               
  (#{eval-local-transformer\ 172}#
-                                                                               
    (#{chi\ 166}#
-                                                                               
      (cddr #{b\ 393}#)
-                                                                               
      #{r-cache\ 395}#
+                                                                               
  #{b\ 3937}#
+                                                                               
  (#{eval-local-transformer\ 3716}#
+                                                                               
    (#{chi\ 3710}#
+                                                                               
      (cddr #{b\ 3937}#)
+                                                                               
      #{r-cache\ 3939}#
                                                                                
      '(())
-                                                                               
      #{mod\ 368}#)
-                                                                               
    #{mod\ 368}#))
-                                                                               
(#{loop\ 389}#
-                                                                               
  (cdr #{bs\ 390}#)
-                                                                               
  #{er\ 394}#
-                                                                               
  #{r-cache\ 395}#))))
-                                                                         
(#{loop\ 389}#
-                                                                           
(cdr #{bs\ 390}#)
-                                                                           
#{er-cache\ 391}#
-                                                                           
#{r-cache\ 392}#)))))))
-                                                        (#{loop\ 389}#
-                                                          #{bindings\ 359}#
+                                                                               
      #{mod\ 3912}#)
+                                                                               
    #{mod\ 3912}#))
+                                                                               
(#{loop\ 3933}#
+                                                                               
  (cdr #{bs\ 3934}#)
+                                                                               
  #{er\ 3938}#
+                                                                               
  #{r-cache\ 3939}#))))
+                                                                         
(#{loop\ 3933}#
+                                                                           
(cdr #{bs\ 3934}#)
+                                                                           
#{er-cache\ 3935}#
+                                                                           
#{r-cache\ 3936}#)))))))
+                                                        (#{loop\ 3933}#
+                                                          #{bindings\ 3903}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 349}#
-                                                        (#{extend-env\ 124}#
-                                                          #{labels\ 355}#
-                                                          #{bindings\ 359}#
-                                                          (cdr #{r\ 349}#)))
-                                                      (#{build-letrec\ 112}#
+                                                        #{r\ 3893}#
+                                                        (#{extend-env\ 3668}#
+                                                          #{labels\ 3899}#
+                                                          #{bindings\ 3903}#
+                                                          (cdr #{r\ 3893}#)))
+                                                      (#{build-letrec\ 3656}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 356}#)
-                                                        #{vars\ 357}#
-                                                        (map (lambda (#{x\ 
396}#)
-                                                               (#{chi\ 166}#
-                                                                 (cdr #{x\ 
396}#)
-                                                                 (car #{x\ 
396}#)
+                                                             #{var-ids\ 3900}#)
+                                                        #{vars\ 3901}#
+                                                        (map (lambda (#{x\ 
3940}#)
+                                                               (#{chi\ 3710}#
+                                                                 (cdr #{x\ 
3940}#)
+                                                                 (car #{x\ 
3940}#)
                                                                  '(())
-                                                                 #{mod\ 368}#))
-                                                             #{vals\ 358}#)
-                                                        (#{build-sequence\ 
109}#
+                                                                 #{mod\ 
3912}#))
+                                                             #{vals\ 3902}#)
+                                                        (#{build-sequence\ 
3653}#
                                                           #f
-                                                          (map (lambda (#{x\ 
397}#)
-                                                                 (#{chi\ 166}#
-                                                                   (cdr #{x\ 
397}#)
-                                                                   (car #{x\ 
397}#)
+                                                          (map (lambda (#{x\ 
3941}#)
+                                                                 (#{chi\ 3710}#
+                                                                   (cdr #{x\ 
3941}#)
+                                                                   (car #{x\ 
3941}#)
                                                                    '(())
-                                                                   #{mod\ 
368}#))
-                                                               (cons (cons 
#{er\ 362}#
-                                                                           
(#{source-wrap\ 159}#
-                                                                             
#{e\ 365}#
-                                                                             
#{w\ 366}#
-                                                                             
#{s\ 367}#
-                                                                             
#{mod\ 368}#))
-                                                                     (cdr 
#{body\ 353}#))))))))))))))))))
-                       (#{parse\ 352}#
-                         (map (lambda (#{x\ 360}#)
-                                (cons #{r\ 349}#
-                                      (#{wrap\ 158}#
-                                        #{x\ 360}#
-                                        #{w\ 351}#
-                                        #{mod\ 348}#)))
-                              #{body\ 344}#)
+                                                                   #{mod\ 
3912}#))
+                                                               (cons (cons 
#{er\ 3906}#
+                                                                           
(#{source-wrap\ 3703}#
+                                                                             
#{e\ 3909}#
+                                                                             
#{w\ 3910}#
+                                                                             
#{s\ 3911}#
+                                                                             
#{mod\ 3912}#))
+                                                                     (cdr 
#{body\ 3897}#))))))))))))))))))
+                       (#{parse\ 3896}#
+                         (map (lambda (#{x\ 3904}#)
+                                (cons #{r\ 3893}#
+                                      (#{wrap\ 3702}#
+                                        #{x\ 3904}#
+                                        #{w\ 3895}#
+                                        #{mod\ 3892}#)))
+                              #{body\ 3888}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 169}#
-             (lambda (#{p\ 398}#
-                      #{e\ 399}#
-                      #{r\ 400}#
-                      #{w\ 401}#
-                      #{rib\ 402}#
-                      #{mod\ 403}#)
-               (letrec ((#{rebuild-macro-output\ 404}#
-                          (lambda (#{x\ 405}# #{m\ 406}#)
-                            (if (pair? #{x\ 405}#)
-                              (cons (#{rebuild-macro-output\ 404}#
-                                      (car #{x\ 405}#)
-                                      #{m\ 406}#)
-                                    (#{rebuild-macro-output\ 404}#
-                                      (cdr #{x\ 405}#)
-                                      #{m\ 406}#))
-                              (if (#{syntax-object?\ 114}# #{x\ 405}#)
-                                (let ((#{w\ 407}# (#{syntax-object-wrap\ 116}#
-                                                    #{x\ 405}#)))
-                                  (let ((#{ms\ 408}#
-                                          (#{wrap-marks\ 133}# #{w\ 407}#))
-                                        (#{s\ 409}# (#{wrap-subst\ 134}#
-                                                      #{w\ 407}#)))
-                                    (if (if (pair? #{ms\ 408}#)
-                                          (eq? (car #{ms\ 408}#) #f)
+           (#{chi-macro\ 3713}#
+             (lambda (#{p\ 3942}#
+                      #{e\ 3943}#
+                      #{r\ 3944}#
+                      #{w\ 3945}#
+                      #{rib\ 3946}#
+                      #{mod\ 3947}#)
+               (letrec ((#{rebuild-macro-output\ 3948}#
+                          (lambda (#{x\ 3949}# #{m\ 3950}#)
+                            (if (pair? #{x\ 3949}#)
+                              (cons (#{rebuild-macro-output\ 3948}#
+                                      (car #{x\ 3949}#)
+                                      #{m\ 3950}#)
+                                    (#{rebuild-macro-output\ 3948}#
+                                      (cdr #{x\ 3949}#)
+                                      #{m\ 3950}#))
+                              (if (#{syntax-object?\ 3658}# #{x\ 3949}#)
+                                (let ((#{w\ 3951}#
+                                        (#{syntax-object-wrap\ 3660}#
+                                          #{x\ 3949}#)))
+                                  (let ((#{ms\ 3952}#
+                                          (#{wrap-marks\ 3677}# #{w\ 3951}#))
+                                        (#{s\ 3953}#
+                                          (#{wrap-subst\ 3678}# #{w\ 3951}#)))
+                                    (if (if (pair? #{ms\ 3952}#)
+                                          (eq? (car #{ms\ 3952}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 113}#
-                                        (#{syntax-object-expression\ 115}#
-                                          #{x\ 405}#)
-                                        (#{make-wrap\ 132}#
-                                          (cdr #{ms\ 408}#)
-                                          (if #{rib\ 402}#
-                                            (cons #{rib\ 402}#
-                                                  (cdr #{s\ 409}#))
-                                            (cdr #{s\ 409}#)))
-                                        (#{syntax-object-module\ 117}#
-                                          #{x\ 405}#))
-                                      (#{make-syntax-object\ 113}#
-                                        (#{syntax-object-expression\ 115}#
-                                          #{x\ 405}#)
-                                        (#{make-wrap\ 132}#
-                                          (cons #{m\ 406}# #{ms\ 408}#)
-                                          (if #{rib\ 402}#
-                                            (cons #{rib\ 402}#
+                                      (#{make-syntax-object\ 3657}#
+                                        (#{syntax-object-expression\ 3659}#
+                                          #{x\ 3949}#)
+                                        (#{make-wrap\ 3676}#
+                                          (cdr #{ms\ 3952}#)
+                                          (if #{rib\ 3946}#
+                                            (cons #{rib\ 3946}#
+                                                  (cdr #{s\ 3953}#))
+                                            (cdr #{s\ 3953}#)))
+                                        (#{syntax-object-module\ 3661}#
+                                          #{x\ 3949}#))
+                                      (#{make-syntax-object\ 3657}#
+                                        (#{syntax-object-expression\ 3659}#
+                                          #{x\ 3949}#)
+                                        (#{make-wrap\ 3676}#
+                                          (cons #{m\ 3950}# #{ms\ 3952}#)
+                                          (if #{rib\ 3946}#
+                                            (cons #{rib\ 3946}#
                                                   (cons 'shift
-                                                        #{s\ 409}#))
-                                            (cons (quote shift) #{s\ 409}#)))
-                                        (let ((#{pmod\ 410}#
-                                                (procedure-module #{p\ 398}#)))
-                                          (if #{pmod\ 410}#
+                                                        #{s\ 3953}#))
+                                            (cons (quote shift) #{s\ 3953}#)))
+                                        (let ((#{pmod\ 3954}#
+                                                (procedure-module
+                                                  #{p\ 3942}#)))
+                                          (if #{pmod\ 3954}#
                                             (cons 'hygiene
-                                                  (module-name #{pmod\ 410}#))
+                                                  (module-name #{pmod\ 3954}#))
                                             '(hygiene guile)))))))
-                                (if (vector? #{x\ 405}#)
-                                  (let ((#{n\ 411}# (vector-length
-                                                      #{x\ 405}#)))
-                                    (let ((#{v\ 412}# (make-vector
-                                                        #{n\ 411}#)))
-                                      (letrec ((#{loop\ 413}#
-                                                 (lambda (#{i\ 414}#)
-                                                   (if (#{fx=\ 87}#
-                                                         #{i\ 414}#
-                                                         #{n\ 411}#)
+                                (if (vector? #{x\ 3949}#)
+                                  (let ((#{n\ 3955}#
+                                          (vector-length #{x\ 3949}#)))
+                                    (let ((#{v\ 3956}#
+                                            (make-vector #{n\ 3955}#)))
+                                      (letrec ((#{loop\ 3957}#
+                                                 (lambda (#{i\ 3958}#)
+                                                   (if (#{fx=\ 3631}#
+                                                         #{i\ 3958}#
+                                                         #{n\ 3955}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 412}#)
+                                                       #{v\ 3956}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 412}#
-                                                         #{i\ 414}#
-                                                         
(#{rebuild-macro-output\ 404}#
+                                                         #{v\ 3956}#
+                                                         #{i\ 3958}#
+                                                         
(#{rebuild-macro-output\ 3948}#
                                                            (vector-ref
-                                                             #{x\ 405}#
-                                                             #{i\ 414}#)
-                                                           #{m\ 406}#))
-                                                       (#{loop\ 413}#
-                                                         (#{fx+\ 85}#
-                                                           #{i\ 414}#
+                                                             #{x\ 3949}#
+                                                             #{i\ 3958}#)
+                                                           #{m\ 3950}#))
+                                                       (#{loop\ 3957}#
+                                                         (#{fx+\ 3629}#
+                                                           #{i\ 3958}#
                                                            1)))))))
-                                        (#{loop\ 413}# 0))))
-                                  (if (symbol? #{x\ 405}#)
+                                        (#{loop\ 3957}# 0))))
+                                  (if (symbol? #{x\ 3949}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 159}#
-                                        #{e\ 399}#
-                                        #{w\ 401}#
+                                      (#{source-wrap\ 3703}#
+                                        #{e\ 3943}#
+                                        #{w\ 3945}#
                                         s
-                                        #{mod\ 403}#)
-                                      #{x\ 405}#)
-                                    #{x\ 405}#)))))))
-                 (#{rebuild-macro-output\ 404}#
-                   (#{p\ 398}# (#{wrap\ 158}#
-                                 #{e\ 399}#
-                                 (#{anti-mark\ 145}# #{w\ 401}#)
-                                 #{mod\ 403}#))
+                                        #{mod\ 3947}#)
+                                      #{x\ 3949}#)
+                                    #{x\ 3949}#)))))))
+                 (#{rebuild-macro-output\ 3948}#
+                   (#{p\ 3942}#
+                     (#{wrap\ 3702}#
+                       #{e\ 3943}#
+                       (#{anti-mark\ 3689}# #{w\ 3945}#)
+                       #{mod\ 3947}#))
                    (string #\m)))))
-           (#{chi-application\ 168}#
-             (lambda (#{x\ 415}#
-                      #{e\ 416}#
-                      #{r\ 417}#
-                      #{w\ 418}#
-                      #{s\ 419}#
-                      #{mod\ 420}#)
-               ((lambda (#{tmp\ 421}#)
-                  ((lambda (#{tmp\ 422}#)
-                     (if #{tmp\ 422}#
-                       (apply (lambda (#{e0\ 423}# #{e1\ 424}#)
-                                (#{build-application\ 95}#
-                                  #{s\ 419}#
-                                  #{x\ 415}#
-                                  (map (lambda (#{e\ 425}#)
-                                         (#{chi\ 166}#
-                                           #{e\ 425}#
-                                           #{r\ 417}#
-                                           #{w\ 418}#
-                                           #{mod\ 420}#))
-                                       #{e1\ 424}#)))
-                              #{tmp\ 422}#)
+           (#{chi-application\ 3712}#
+             (lambda (#{x\ 3959}#
+                      #{e\ 3960}#
+                      #{r\ 3961}#
+                      #{w\ 3962}#
+                      #{s\ 3963}#
+                      #{mod\ 3964}#)
+               ((lambda (#{tmp\ 3965}#)
+                  ((lambda (#{tmp\ 3966}#)
+                     (if #{tmp\ 3966}#
+                       (apply (lambda (#{e0\ 3967}# #{e1\ 3968}#)
+                                (#{build-application\ 3639}#
+                                  #{s\ 3963}#
+                                  #{x\ 3959}#
+                                  (map (lambda (#{e\ 3969}#)
+                                         (#{chi\ 3710}#
+                                           #{e\ 3969}#
+                                           #{r\ 3961}#
+                                           #{w\ 3962}#
+                                           #{mod\ 3964}#))
+                                       #{e1\ 3968}#)))
+                              #{tmp\ 3966}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 421}#)))
+                         #{tmp\ 3965}#)))
                    ($sc-dispatch
-                     #{tmp\ 421}#
+                     #{tmp\ 3965}#
                      '(any . each-any))))
-                #{e\ 416}#)))
-           (#{chi-expr\ 167}#
-             (lambda (#{type\ 427}#
-                      #{value\ 428}#
-                      #{e\ 429}#
-                      #{r\ 430}#
-                      #{w\ 431}#
-                      #{s\ 432}#
-                      #{mod\ 433}#)
-               (if (memv #{type\ 427}# (quote (lexical)))
-                 (#{build-lexical-reference\ 97}#
+                #{e\ 3960}#)))
+           (#{chi-expr\ 3711}#
+             (lambda (#{type\ 3971}#
+                      #{value\ 3972}#
+                      #{e\ 3973}#
+                      #{r\ 3974}#
+                      #{w\ 3975}#
+                      #{s\ 3976}#
+                      #{mod\ 3977}#)
+               (if (memv #{type\ 3971}# (quote (lexical)))
+                 (#{build-lexical-reference\ 3641}#
                    'value
-                   #{s\ 432}#
-                   #{e\ 429}#
-                   #{value\ 428}#)
-                 (if (memv #{type\ 427}# (quote (core core-form)))
-                   (#{value\ 428}#
-                     #{e\ 429}#
-                     #{r\ 430}#
-                     #{w\ 431}#
-                     #{s\ 432}#
-                     #{mod\ 433}#)
-                   (if (memv #{type\ 427}# (quote (module-ref)))
+                   #{s\ 3976}#
+                   #{e\ 3973}#
+                   #{value\ 3972}#)
+                 (if (memv #{type\ 3971}# (quote (core core-form)))
+                   (#{value\ 3972}#
+                     #{e\ 3973}#
+                     #{r\ 3974}#
+                     #{w\ 3975}#
+                     #{s\ 3976}#
+                     #{mod\ 3977}#)
+                   (if (memv #{type\ 3971}# (quote (module-ref)))
                      (call-with-values
-                       (lambda () (#{value\ 428}# #{e\ 429}#))
-                       (lambda (#{id\ 434}# #{mod\ 435}#)
-                         (#{build-global-reference\ 100}#
-                           #{s\ 432}#
-                           #{id\ 434}#
-                           #{mod\ 435}#)))
-                     (if (memv #{type\ 427}# (quote (lexical-call)))
-                       (#{chi-application\ 168}#
-                         (#{build-lexical-reference\ 97}#
+                       (lambda () (#{value\ 3972}# #{e\ 3973}#))
+                       (lambda (#{id\ 3978}# #{mod\ 3979}#)
+                         (#{build-global-reference\ 3644}#
+                           #{s\ 3976}#
+                           #{id\ 3978}#
+                           #{mod\ 3979}#)))
+                     (if (memv #{type\ 3971}# (quote (lexical-call)))
+                       (#{chi-application\ 3712}#
+                         (#{build-lexical-reference\ 3641}#
                            'fun
-                           (#{source-annotation\ 121}# (car #{e\ 429}#))
-                           (car #{e\ 429}#)
-                           #{value\ 428}#)
-                         #{e\ 429}#
-                         #{r\ 430}#
-                         #{w\ 431}#
-                         #{s\ 432}#
-                         #{mod\ 433}#)
-                       (if (memv #{type\ 427}# (quote (global-call)))
-                         (#{chi-application\ 168}#
-                           (#{build-global-reference\ 100}#
-                             (#{source-annotation\ 121}# (car #{e\ 429}#))
-                             (if (#{syntax-object?\ 114}# #{value\ 428}#)
-                               (#{syntax-object-expression\ 115}#
-                                 #{value\ 428}#)
-                               #{value\ 428}#)
-                             (if (#{syntax-object?\ 114}# #{value\ 428}#)
-                               (#{syntax-object-module\ 117}# #{value\ 428}#)
-                               #{mod\ 433}#))
-                           #{e\ 429}#
-                           #{r\ 430}#
-                           #{w\ 431}#
-                           #{s\ 432}#
-                           #{mod\ 433}#)
-                         (if (memv #{type\ 427}# (quote (constant)))
-                           (#{build-data\ 108}#
-                             #{s\ 432}#
-                             (#{strip\ 175}#
-                               (#{source-wrap\ 159}#
-                                 #{e\ 429}#
-                                 #{w\ 431}#
-                                 #{s\ 432}#
-                                 #{mod\ 433}#)
+                           (#{source-annotation\ 3665}# (car #{e\ 3973}#))
+                           (car #{e\ 3973}#)
+                           #{value\ 3972}#)
+                         #{e\ 3973}#
+                         #{r\ 3974}#
+                         #{w\ 3975}#
+                         #{s\ 3976}#
+                         #{mod\ 3977}#)
+                       (if (memv #{type\ 3971}# (quote (global-call)))
+                         (#{chi-application\ 3712}#
+                           (#{build-global-reference\ 3644}#
+                             (#{source-annotation\ 3665}# (car #{e\ 3973}#))
+                             (if (#{syntax-object?\ 3658}# #{value\ 3972}#)
+                               (#{syntax-object-expression\ 3659}#
+                                 #{value\ 3972}#)
+                               #{value\ 3972}#)
+                             (if (#{syntax-object?\ 3658}# #{value\ 3972}#)
+                               (#{syntax-object-module\ 3661}# #{value\ 3972}#)
+                               #{mod\ 3977}#))
+                           #{e\ 3973}#
+                           #{r\ 3974}#
+                           #{w\ 3975}#
+                           #{s\ 3976}#
+                           #{mod\ 3977}#)
+                         (if (memv #{type\ 3971}# (quote (constant)))
+                           (#{build-data\ 3652}#
+                             #{s\ 3976}#
+                             (#{strip\ 3719}#
+                               (#{source-wrap\ 3703}#
+                                 #{e\ 3973}#
+                                 #{w\ 3975}#
+                                 #{s\ 3976}#
+                                 #{mod\ 3977}#)
                                '(())))
-                           (if (memv #{type\ 427}# (quote (global)))
-                             (#{build-global-reference\ 100}#
-                               #{s\ 432}#
-                               #{value\ 428}#
-                               #{mod\ 433}#)
-                             (if (memv #{type\ 427}# (quote (call)))
-                               (#{chi-application\ 168}#
-                                 (#{chi\ 166}#
-                                   (car #{e\ 429}#)
-                                   #{r\ 430}#
-                                   #{w\ 431}#
-                                   #{mod\ 433}#)
-                                 #{e\ 429}#
-                                 #{r\ 430}#
-                                 #{w\ 431}#
-                                 #{s\ 432}#
-                                 #{mod\ 433}#)
-                               (if (memv #{type\ 427}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 436}#)
-                                    ((lambda (#{tmp\ 437}#)
-                                       (if #{tmp\ 437}#
-                                         (apply (lambda (#{_\ 438}#
-                                                         #{e1\ 439}#
-                                                         #{e2\ 440}#)
-                                                  (#{chi-sequence\ 160}#
-                                                    (cons #{e1\ 439}#
-                                                          #{e2\ 440}#)
-                                                    #{r\ 430}#
-                                                    #{w\ 431}#
-                                                    #{s\ 432}#
-                                                    #{mod\ 433}#))
-                                                #{tmp\ 437}#)
+                           (if (memv #{type\ 3971}# (quote (global)))
+                             (#{build-global-reference\ 3644}#
+                               #{s\ 3976}#
+                               #{value\ 3972}#
+                               #{mod\ 3977}#)
+                             (if (memv #{type\ 3971}# (quote (call)))
+                               (#{chi-application\ 3712}#
+                                 (#{chi\ 3710}#
+                                   (car #{e\ 3973}#)
+                                   #{r\ 3974}#
+                                   #{w\ 3975}#
+                                   #{mod\ 3977}#)
+                                 #{e\ 3973}#
+                                 #{r\ 3974}#
+                                 #{w\ 3975}#
+                                 #{s\ 3976}#
+                                 #{mod\ 3977}#)
+                               (if (memv #{type\ 3971}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 3980}#)
+                                    ((lambda (#{tmp\ 3981}#)
+                                       (if #{tmp\ 3981}#
+                                         (apply (lambda (#{_\ 3982}#
+                                                         #{e1\ 3983}#
+                                                         #{e2\ 3984}#)
+                                                  (#{chi-sequence\ 3704}#
+                                                    (cons #{e1\ 3983}#
+                                                          #{e2\ 3984}#)
+                                                    #{r\ 3974}#
+                                                    #{w\ 3975}#
+                                                    #{s\ 3976}#
+                                                    #{mod\ 3977}#))
+                                                #{tmp\ 3981}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 436}#)))
+                                           #{tmp\ 3980}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 436}#
+                                       #{tmp\ 3980}#
                                        '(any any . each-any))))
-                                  #{e\ 429}#)
-                                 (if (memv #{type\ 427}#
+                                  #{e\ 3973}#)
+                                 (if (memv #{type\ 3971}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 171}#
-                                     #{value\ 428}#
-                                     #{e\ 429}#
-                                     #{r\ 430}#
-                                     #{w\ 431}#
-                                     #{s\ 432}#
-                                     #{mod\ 433}#
-                                     #{chi-sequence\ 160}#)
-                                   (if (memv #{type\ 427}#
+                                   (#{chi-local-syntax\ 3715}#
+                                     #{value\ 3972}#
+                                     #{e\ 3973}#
+                                     #{r\ 3974}#
+                                     #{w\ 3975}#
+                                     #{s\ 3976}#
+                                     #{mod\ 3977}#
+                                     #{chi-sequence\ 3704}#)
+                                   (if (memv #{type\ 3971}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 442}#)
-                                        ((lambda (#{tmp\ 443}#)
-                                           (if #{tmp\ 443}#
-                                             (apply (lambda (#{_\ 444}#
-                                                             #{x\ 445}#
-                                                             #{e1\ 446}#
-                                                             #{e2\ 447}#)
-                                                      (let ((#{when-list\ 448}#
-                                                              
(#{chi-when-list\ 163}#
-                                                                #{e\ 429}#
-                                                                #{x\ 445}#
-                                                                #{w\ 431}#)))
+                                     ((lambda (#{tmp\ 3986}#)
+                                        ((lambda (#{tmp\ 3987}#)
+                                           (if #{tmp\ 3987}#
+                                             (apply (lambda (#{_\ 3988}#
+                                                             #{x\ 3989}#
+                                                             #{e1\ 3990}#
+                                                             #{e2\ 3991}#)
+                                                      (let ((#{when-list\ 
3992}#
+                                                              
(#{chi-when-list\ 3707}#
+                                                                #{e\ 3973}#
+                                                                #{x\ 3989}#
+                                                                #{w\ 3975}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
448}#)
-                                                          (#{chi-sequence\ 
160}#
-                                                            (cons #{e1\ 446}#
-                                                                  #{e2\ 447}#)
-                                                            #{r\ 430}#
-                                                            #{w\ 431}#
-                                                            #{s\ 432}#
-                                                            #{mod\ 433}#)
-                                                          (#{chi-void\ 
173}#))))
-                                                    #{tmp\ 443}#)
+                                                                  #{when-list\ 
3992}#)
+                                                          (#{chi-sequence\ 
3704}#
+                                                            (cons #{e1\ 3990}#
+                                                                  #{e2\ 3991}#)
+                                                            #{r\ 3974}#
+                                                            #{w\ 3975}#
+                                                            #{s\ 3976}#
+                                                            #{mod\ 3977}#)
+                                                          (#{chi-void\ 
3717}#))))
+                                                    #{tmp\ 3987}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 442}#)))
+                                               #{tmp\ 3986}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 442}#
+                                           #{tmp\ 3986}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 429}#)
-                                     (if (memv #{type\ 427}#
+                                      #{e\ 3973}#)
+                                     (if (memv #{type\ 3971}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 429}#
-                                         (#{wrap\ 158}#
-                                           #{value\ 428}#
-                                           #{w\ 431}#
-                                           #{mod\ 433}#))
-                                       (if (memv #{type\ 427}#
+                                         #{e\ 3973}#
+                                         (#{wrap\ 3702}#
+                                           #{value\ 3972}#
+                                           #{w\ 3975}#
+                                           #{mod\ 3977}#))
+                                       (if (memv #{type\ 3971}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 159}#
-                                             #{e\ 429}#
-                                             #{w\ 431}#
-                                             #{s\ 432}#
-                                             #{mod\ 433}#))
-                                         (if (memv #{type\ 427}#
+                                           (#{source-wrap\ 3703}#
+                                             #{e\ 3973}#
+                                             #{w\ 3975}#
+                                             #{s\ 3976}#
+                                             #{mod\ 3977}#))
+                                         (if (memv #{type\ 3971}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 159}#
-                                               #{e\ 429}#
-                                               #{w\ 431}#
-                                               #{s\ 432}#
-                                               #{mod\ 433}#))
+                                             (#{source-wrap\ 3703}#
+                                               #{e\ 3973}#
+                                               #{w\ 3975}#
+                                               #{s\ 3976}#
+                                               #{mod\ 3977}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 159}#
-                                               #{e\ 429}#
-                                               #{w\ 431}#
-                                               #{s\ 432}#
-                                               #{mod\ 433}#))))))))))))))))))
-           (#{chi\ 166}#
-             (lambda (#{e\ 451}# #{r\ 452}# #{w\ 453}# #{mod\ 454}#)
+                                             (#{source-wrap\ 3703}#
+                                               #{e\ 3973}#
+                                               #{w\ 3975}#
+                                               #{s\ 3976}#
+                                               #{mod\ 3977}#))))))))))))))))))
+           (#{chi\ 3710}#
+             (lambda (#{e\ 3995}#
+                      #{r\ 3996}#
+                      #{w\ 3997}#
+                      #{mod\ 3998}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 164}#
-                     #{e\ 451}#
-                     #{r\ 452}#
-                     #{w\ 453}#
-                     (#{source-annotation\ 121}# #{e\ 451}#)
+                   (#{syntax-type\ 3708}#
+                     #{e\ 3995}#
+                     #{r\ 3996}#
+                     #{w\ 3997}#
+                     (#{source-annotation\ 3665}# #{e\ 3995}#)
                      #f
-                     #{mod\ 454}#
+                     #{mod\ 3998}#
                      #f))
-                 (lambda (#{type\ 455}#
-                          #{value\ 456}#
-                          #{e\ 457}#
-                          #{w\ 458}#
-                          #{s\ 459}#
-                          #{mod\ 460}#)
-                   (#{chi-expr\ 167}#
-                     #{type\ 455}#
-                     #{value\ 456}#
-                     #{e\ 457}#
-                     #{r\ 452}#
-                     #{w\ 458}#
-                     #{s\ 459}#
-                     #{mod\ 460}#)))))
-           (#{chi-top\ 165}#
-             (lambda (#{e\ 461}#
-                      #{r\ 462}#
-                      #{w\ 463}#
-                      #{m\ 464}#
-                      #{esew\ 465}#
-                      #{mod\ 466}#)
+                 (lambda (#{type\ 3999}#
+                          #{value\ 4000}#
+                          #{e\ 4001}#
+                          #{w\ 4002}#
+                          #{s\ 4003}#
+                          #{mod\ 4004}#)
+                   (#{chi-expr\ 3711}#
+                     #{type\ 3999}#
+                     #{value\ 4000}#
+                     #{e\ 4001}#
+                     #{r\ 3996}#
+                     #{w\ 4002}#
+                     #{s\ 4003}#
+                     #{mod\ 4004}#)))))
+           (#{chi-top\ 3709}#
+             (lambda (#{e\ 4005}#
+                      #{r\ 4006}#
+                      #{w\ 4007}#
+                      #{m\ 4008}#
+                      #{esew\ 4009}#
+                      #{mod\ 4010}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 164}#
-                     #{e\ 461}#
-                     #{r\ 462}#
-                     #{w\ 463}#
-                     (#{source-annotation\ 121}# #{e\ 461}#)
+                   (#{syntax-type\ 3708}#
+                     #{e\ 4005}#
+                     #{r\ 4006}#
+                     #{w\ 4007}#
+                     (#{source-annotation\ 3665}# #{e\ 4005}#)
                      #f
-                     #{mod\ 466}#
+                     #{mod\ 4010}#
                      #f))
-                 (lambda (#{type\ 474}#
-                          #{value\ 475}#
-                          #{e\ 476}#
-                          #{w\ 477}#
-                          #{s\ 478}#
-                          #{mod\ 479}#)
-                   (if (memv #{type\ 474}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 480}#)
-                        ((lambda (#{tmp\ 481}#)
-                           (if #{tmp\ 481}#
-                             (apply (lambda (#{_\ 482}#) (#{chi-void\ 173}#))
-                                    #{tmp\ 481}#)
-                             ((lambda (#{tmp\ 483}#)
-                                (if #{tmp\ 483}#
-                                  (apply (lambda (#{_\ 484}#
-                                                  #{e1\ 485}#
-                                                  #{e2\ 486}#)
-                                           (#{chi-top-sequence\ 161}#
-                                             (cons #{e1\ 485}# #{e2\ 486}#)
-                                             #{r\ 462}#
-                                             #{w\ 477}#
-                                             #{s\ 478}#
-                                             #{m\ 464}#
-                                             #{esew\ 465}#
-                                             #{mod\ 479}#))
-                                         #{tmp\ 483}#)
+                 (lambda (#{type\ 4018}#
+                          #{value\ 4019}#
+                          #{e\ 4020}#
+                          #{w\ 4021}#
+                          #{s\ 4022}#
+                          #{mod\ 4023}#)
+                   (if (memv #{type\ 4018}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 4024}#)
+                        ((lambda (#{tmp\ 4025}#)
+                           (if #{tmp\ 4025}#
+                             (apply (lambda (#{_\ 4026}#) (#{chi-void\ 3717}#))
+                                    #{tmp\ 4025}#)
+                             ((lambda (#{tmp\ 4027}#)
+                                (if #{tmp\ 4027}#
+                                  (apply (lambda (#{_\ 4028}#
+                                                  #{e1\ 4029}#
+                                                  #{e2\ 4030}#)
+                                           (#{chi-top-sequence\ 3705}#
+                                             (cons #{e1\ 4029}# #{e2\ 4030}#)
+                                             #{r\ 4006}#
+                                             #{w\ 4021}#
+                                             #{s\ 4022}#
+                                             #{m\ 4008}#
+                                             #{esew\ 4009}#
+                                             #{mod\ 4023}#))
+                                         #{tmp\ 4027}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 480}#)))
+                                    #{tmp\ 4024}#)))
                               ($sc-dispatch
-                                #{tmp\ 480}#
+                                #{tmp\ 4024}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 480}# (quote (any)))))
-                      #{e\ 476}#)
-                     (if (memv #{type\ 474}# (quote (local-syntax-form)))
-                       (#{chi-local-syntax\ 171}#
-                         #{value\ 475}#
-                         #{e\ 476}#
-                         #{r\ 462}#
-                         #{w\ 477}#
-                         #{s\ 478}#
-                         #{mod\ 479}#
-                         (lambda (#{body\ 488}#
-                                  #{r\ 489}#
-                                  #{w\ 490}#
-                                  #{s\ 491}#
-                                  #{mod\ 492}#)
-                           (#{chi-top-sequence\ 161}#
-                             #{body\ 488}#
-                             #{r\ 489}#
-                             #{w\ 490}#
-                             #{s\ 491}#
-                             #{m\ 464}#
-                             #{esew\ 465}#
-                             #{mod\ 492}#)))
-                       (if (memv #{type\ 474}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 493}#)
-                            ((lambda (#{tmp\ 494}#)
-                               (if #{tmp\ 494}#
-                                 (apply (lambda (#{_\ 495}#
-                                                 #{x\ 496}#
-                                                 #{e1\ 497}#
-                                                 #{e2\ 498}#)
-                                          (let ((#{when-list\ 499}#
-                                                  (#{chi-when-list\ 163}#
-                                                    #{e\ 476}#
-                                                    #{x\ 496}#
-                                                    #{w\ 477}#))
-                                                (#{body\ 500}#
-                                                  (cons #{e1\ 497}#
-                                                        #{e2\ 498}#)))
-                                            (if (eq? #{m\ 464}# (quote e))
+                         ($sc-dispatch #{tmp\ 4024}# (quote (any)))))
+                      #{e\ 4020}#)
+                     (if (memv #{type\ 4018}# (quote (local-syntax-form)))
+                       (#{chi-local-syntax\ 3715}#
+                         #{value\ 4019}#
+                         #{e\ 4020}#
+                         #{r\ 4006}#
+                         #{w\ 4021}#
+                         #{s\ 4022}#
+                         #{mod\ 4023}#
+                         (lambda (#{body\ 4032}#
+                                  #{r\ 4033}#
+                                  #{w\ 4034}#
+                                  #{s\ 4035}#
+                                  #{mod\ 4036}#)
+                           (#{chi-top-sequence\ 3705}#
+                             #{body\ 4032}#
+                             #{r\ 4033}#
+                             #{w\ 4034}#
+                             #{s\ 4035}#
+                             #{m\ 4008}#
+                             #{esew\ 4009}#
+                             #{mod\ 4036}#)))
+                       (if (memv #{type\ 4018}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 4037}#)
+                            ((lambda (#{tmp\ 4038}#)
+                               (if #{tmp\ 4038}#
+                                 (apply (lambda (#{_\ 4039}#
+                                                 #{x\ 4040}#
+                                                 #{e1\ 4041}#
+                                                 #{e2\ 4042}#)
+                                          (let ((#{when-list\ 4043}#
+                                                  (#{chi-when-list\ 3707}#
+                                                    #{e\ 4020}#
+                                                    #{x\ 4040}#
+                                                    #{w\ 4021}#))
+                                                (#{body\ 4044}#
+                                                  (cons #{e1\ 4041}#
+                                                        #{e2\ 4042}#)))
+                                            (if (eq? #{m\ 4008}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 499}#)
-                                                (#{chi-top-sequence\ 161}#
-                                                  #{body\ 500}#
-                                                  #{r\ 462}#
-                                                  #{w\ 477}#
-                                                  #{s\ 478}#
+                                                        #{when-list\ 4043}#)
+                                                (#{chi-top-sequence\ 3705}#
+                                                  #{body\ 4044}#
+                                                  #{r\ 4006}#
+                                                  #{w\ 4021}#
+                                                  #{s\ 4022}#
                                                   'e
                                                   '(eval)
-                                                  #{mod\ 479}#)
-                                                (#{chi-void\ 173}#))
+                                                  #{mod\ 4023}#)
+                                                (#{chi-void\ 3717}#))
                                               (if (memq 'load
-                                                        #{when-list\ 499}#)
-                                                (if (let ((#{t\ 503}# (memq 
'compile
-                                                                            
#{when-list\ 499}#)))
-                                                      (if #{t\ 503}#
-                                                        #{t\ 503}#
-                                                        (if (eq? #{m\ 464}#
+                                                        #{when-list\ 4043}#)
+                                                (if (let ((#{t\ 4047}#
+                                                            (memq 'compile
+                                                                  #{when-list\ 
4043}#)))
+                                                      (if #{t\ 4047}#
+                                                        #{t\ 4047}#
+                                                        (if (eq? #{m\ 4008}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
499}#)
+                                                                #{when-list\ 
4043}#)
                                                           #f)))
-                                                  (#{chi-top-sequence\ 161}#
-                                                    #{body\ 500}#
-                                                    #{r\ 462}#
-                                                    #{w\ 477}#
-                                                    #{s\ 478}#
+                                                  (#{chi-top-sequence\ 3705}#
+                                                    #{body\ 4044}#
+                                                    #{r\ 4006}#
+                                                    #{w\ 4021}#
+                                                    #{s\ 4022}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 479}#)
-                                                  (if (memq #{m\ 464}#
+                                                    #{mod\ 4023}#)
+                                                  (if (memq #{m\ 4008}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 161}#
-                                                      #{body\ 500}#
-                                                      #{r\ 462}#
-                                                      #{w\ 477}#
-                                                      #{s\ 478}#
+                                                    (#{chi-top-sequence\ 3705}#
+                                                      #{body\ 4044}#
+                                                      #{r\ 4006}#
+                                                      #{w\ 4021}#
+                                                      #{s\ 4022}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 479}#)
-                                                    (#{chi-void\ 173}#)))
-                                                (if (let ((#{t\ 504}# (memq 
'compile
-                                                                            
#{when-list\ 499}#)))
-                                                      (if #{t\ 504}#
-                                                        #{t\ 504}#
-                                                        (if (eq? #{m\ 464}#
+                                                      #{mod\ 4023}#)
+                                                    (#{chi-void\ 3717}#)))
+                                                (if (let ((#{t\ 4048}#
+                                                            (memq 'compile
+                                                                  #{when-list\ 
4043}#)))
+                                                      (if #{t\ 4048}#
+                                                        #{t\ 4048}#
+                                                        (if (eq? #{m\ 4008}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
499}#)
+                                                                #{when-list\ 
4043}#)
                                                           #f)))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
89}#
-                                                      (#{chi-top-sequence\ 
161}#
-                                                        #{body\ 500}#
-                                                        #{r\ 462}#
-                                                        #{w\ 477}#
-                                                        #{s\ 478}#
+                                                    (#{top-level-eval-hook\ 
3633}#
+                                                      (#{chi-top-sequence\ 
3705}#
+                                                        #{body\ 4044}#
+                                                        #{r\ 4006}#
+                                                        #{w\ 4021}#
+                                                        #{s\ 4022}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 479}#)
-                                                      #{mod\ 479}#)
-                                                    (#{chi-void\ 173}#))
-                                                  (#{chi-void\ 173}#))))))
-                                        #{tmp\ 494}#)
+                                                        #{mod\ 4023}#)
+                                                      #{mod\ 4023}#)
+                                                    (#{chi-void\ 3717}#))
+                                                  (#{chi-void\ 3717}#))))))
+                                        #{tmp\ 4038}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 493}#)))
+                                   #{tmp\ 4037}#)))
                              ($sc-dispatch
-                               #{tmp\ 493}#
+                               #{tmp\ 4037}#
                                '(any each-any any . each-any))))
-                          #{e\ 476}#)
-                         (if (memv #{type\ 474}# (quote (define-syntax-form)))
-                           (let ((#{n\ 505}# (#{id-var-name\ 152}#
-                                               #{value\ 475}#
-                                               #{w\ 477}#))
-                                 (#{r\ 506}# (#{macros-only-env\ 126}#
-                                               #{r\ 462}#)))
-                             (if (memv #{m\ 464}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 465}#)
-                                 (let ((#{e\ 507}# (#{chi-install-global\ 162}#
-                                                     #{n\ 505}#
-                                                     (#{chi\ 166}#
-                                                       #{e\ 476}#
-                                                       #{r\ 506}#
-                                                       #{w\ 477}#
-                                                       #{mod\ 479}#))))
+                          #{e\ 4020}#)
+                         (if (memv #{type\ 4018}#
+                                   '(define-syntax-form))
+                           (let ((#{n\ 4049}#
+                                   (#{id-var-name\ 3696}#
+                                     #{value\ 4019}#
+                                     #{w\ 4021}#))
+                                 (#{r\ 4050}#
+                                   (#{macros-only-env\ 3670}# #{r\ 4006}#)))
+                             (if (memv #{m\ 4008}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 4009}#)
+                                 (let ((#{e\ 4051}#
+                                         (#{chi-install-global\ 3706}#
+                                           #{n\ 4049}#
+                                           (#{chi\ 3710}#
+                                             #{e\ 4020}#
+                                             #{r\ 4050}#
+                                             #{w\ 4021}#
+                                             #{mod\ 4023}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 89}#
-                                       #{e\ 507}#
-                                       #{mod\ 479}#)
-                                     (if (memq (quote load) #{esew\ 465}#)
-                                       #{e\ 507}#
-                                       (#{chi-void\ 173}#))))
-                                 (if (memq (quote load) #{esew\ 465}#)
-                                   (#{chi-install-global\ 162}#
-                                     #{n\ 505}#
-                                     (#{chi\ 166}#
-                                       #{e\ 476}#
-                                       #{r\ 506}#
-                                       #{w\ 477}#
-                                       #{mod\ 479}#))
-                                   (#{chi-void\ 173}#)))
-                               (if (memv #{m\ 464}# (quote (c&e)))
-                                 (let ((#{e\ 508}# (#{chi-install-global\ 162}#
-                                                     #{n\ 505}#
-                                                     (#{chi\ 166}#
-                                                       #{e\ 476}#
-                                                       #{r\ 506}#
-                                                       #{w\ 477}#
-                                                       #{mod\ 479}#))))
+                                     (#{top-level-eval-hook\ 3633}#
+                                       #{e\ 4051}#
+                                       #{mod\ 4023}#)
+                                     (if (memq (quote load) #{esew\ 4009}#)
+                                       #{e\ 4051}#
+                                       (#{chi-void\ 3717}#))))
+                                 (if (memq (quote load) #{esew\ 4009}#)
+                                   (#{chi-install-global\ 3706}#
+                                     #{n\ 4049}#
+                                     (#{chi\ 3710}#
+                                       #{e\ 4020}#
+                                       #{r\ 4050}#
+                                       #{w\ 4021}#
+                                       #{mod\ 4023}#))
+                                   (#{chi-void\ 3717}#)))
+                               (if (memv #{m\ 4008}# (quote (c&e)))
+                                 (let ((#{e\ 4052}#
+                                         (#{chi-install-global\ 3706}#
+                                           #{n\ 4049}#
+                                           (#{chi\ 3710}#
+                                             #{e\ 4020}#
+                                             #{r\ 4050}#
+                                             #{w\ 4021}#
+                                             #{mod\ 4023}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 89}#
-                                       #{e\ 508}#
-                                       #{mod\ 479}#)
-                                     #{e\ 508}#))
+                                     (#{top-level-eval-hook\ 3633}#
+                                       #{e\ 4052}#
+                                       #{mod\ 4023}#)
+                                     #{e\ 4052}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 465}#)
-                                     (#{top-level-eval-hook\ 89}#
-                                       (#{chi-install-global\ 162}#
-                                         #{n\ 505}#
-                                         (#{chi\ 166}#
-                                           #{e\ 476}#
-                                           #{r\ 506}#
-                                           #{w\ 477}#
-                                           #{mod\ 479}#))
-                                       #{mod\ 479}#))
-                                   (#{chi-void\ 173}#)))))
-                           (if (memv #{type\ 474}# (quote (define-form)))
-                             (let ((#{n\ 509}# (#{id-var-name\ 152}#
-                                                 #{value\ 475}#
-                                                 #{w\ 477}#)))
-                               (let ((#{type\ 510}#
-                                       (#{binding-type\ 122}#
-                                         (#{lookup\ 127}#
-                                           #{n\ 509}#
-                                           #{r\ 462}#
-                                           #{mod\ 479}#))))
-                                 (if (memv #{type\ 510}#
+                                   (if (memq (quote eval) #{esew\ 4009}#)
+                                     (#{top-level-eval-hook\ 3633}#
+                                       (#{chi-install-global\ 3706}#
+                                         #{n\ 4049}#
+                                         (#{chi\ 3710}#
+                                           #{e\ 4020}#
+                                           #{r\ 4050}#
+                                           #{w\ 4021}#
+                                           #{mod\ 4023}#))
+                                       #{mod\ 4023}#))
+                                   (#{chi-void\ 3717}#)))))
+                           (if (memv #{type\ 4018}# (quote (define-form)))
+                             (let ((#{n\ 4053}#
+                                     (#{id-var-name\ 3696}#
+                                       #{value\ 4019}#
+                                       #{w\ 4021}#)))
+                               (let ((#{type\ 4054}#
+                                       (#{binding-type\ 3666}#
+                                         (#{lookup\ 3671}#
+                                           #{n\ 4053}#
+                                           #{r\ 4006}#
+                                           #{mod\ 4023}#))))
+                                 (if (memv #{type\ 4054}#
                                            '(global core macro module-ref))
                                    (begin
                                      (if (if (not (module-local-variable
                                                     (current-module)
-                                                    #{n\ 509}#))
+                                                    #{n\ 4053}#))
                                            (current-module)
                                            #f)
-                                       (let ((#{old\ 511}#
+                                       (let ((#{old\ 4055}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 509}#)))
+                                                 #{n\ 4053}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 509}#
-                                           (if (variable? #{old\ 511}#)
-                                             (variable-ref #{old\ 511}#)
+                                           #{n\ 4053}#
+                                           (if (variable? #{old\ 4055}#)
+                                             (variable-ref #{old\ 4055}#)
                                              #f))))
-                                     (let ((#{x\ 512}# 
(#{build-global-definition\ 103}#
-                                                         #{s\ 478}#
-                                                         #{n\ 509}#
-                                                         (#{chi\ 166}#
-                                                           #{e\ 476}#
-                                                           #{r\ 462}#
-                                                           #{w\ 477}#
-                                                           #{mod\ 479}#))))
+                                     (let ((#{x\ 4056}#
+                                             (#{build-global-definition\ 3647}#
+                                               #{s\ 4022}#
+                                               #{n\ 4053}#
+                                               (#{chi\ 3710}#
+                                                 #{e\ 4020}#
+                                                 #{r\ 4006}#
+                                                 #{w\ 4021}#
+                                                 #{mod\ 4023}#))))
                                        (begin
-                                         (if (eq? #{m\ 464}# (quote c&e))
-                                           (#{top-level-eval-hook\ 89}#
-                                             #{x\ 512}#
-                                             #{mod\ 479}#))
-                                         #{x\ 512}#)))
-                                   (if (memv #{type\ 510}#
+                                         (if (eq? #{m\ 4008}# (quote c&e))
+                                           (#{top-level-eval-hook\ 3633}#
+                                             #{x\ 4056}#
+                                             #{mod\ 4023}#))
+                                         #{x\ 4056}#)))
+                                   (if (memv #{type\ 4054}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 476}#
-                                       (#{wrap\ 158}#
-                                         #{value\ 475}#
-                                         #{w\ 477}#
-                                         #{mod\ 479}#))
+                                       #{e\ 4020}#
+                                       (#{wrap\ 3702}#
+                                         #{value\ 4019}#
+                                         #{w\ 4021}#
+                                         #{mod\ 4023}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 476}#
-                                       (#{wrap\ 158}#
-                                         #{value\ 475}#
-                                         #{w\ 477}#
-                                         #{mod\ 479}#))))))
-                             (let ((#{x\ 513}# (#{chi-expr\ 167}#
-                                                 #{type\ 474}#
-                                                 #{value\ 475}#
-                                                 #{e\ 476}#
-                                                 #{r\ 462}#
-                                                 #{w\ 477}#
-                                                 #{s\ 478}#
-                                                 #{mod\ 479}#)))
+                                       #{e\ 4020}#
+                                       (#{wrap\ 3702}#
+                                         #{value\ 4019}#
+                                         #{w\ 4021}#
+                                         #{mod\ 4023}#))))))
+                             (let ((#{x\ 4057}#
+                                     (#{chi-expr\ 3711}#
+                                       #{type\ 4018}#
+                                       #{value\ 4019}#
+                                       #{e\ 4020}#
+                                       #{r\ 4006}#
+                                       #{w\ 4021}#
+                                       #{s\ 4022}#
+                                       #{mod\ 4023}#)))
                                (begin
-                                 (if (eq? #{m\ 464}# (quote c&e))
-                                   (#{top-level-eval-hook\ 89}#
-                                     #{x\ 513}#
-                                     #{mod\ 479}#))
-                                 #{x\ 513}#)))))))))))
-           (#{syntax-type\ 164}#
-             (lambda (#{e\ 514}#
-                      #{r\ 515}#
-                      #{w\ 516}#
-                      #{s\ 517}#
-                      #{rib\ 518}#
-                      #{mod\ 519}#
-                      #{for-car?\ 520}#)
-               (if (symbol? #{e\ 514}#)
-                 (let ((#{n\ 521}# (#{id-var-name\ 152}#
-                                     #{e\ 514}#
-                                     #{w\ 516}#)))
-                   (let ((#{b\ 522}# (#{lookup\ 127}#
-                                       #{n\ 521}#
-                                       #{r\ 515}#
-                                       #{mod\ 519}#)))
-                     (let ((#{type\ 523}#
-                             (#{binding-type\ 122}# #{b\ 522}#)))
-                       (if (memv #{type\ 523}# (quote (lexical)))
+                                 (if (eq? #{m\ 4008}# (quote c&e))
+                                   (#{top-level-eval-hook\ 3633}#
+                                     #{x\ 4057}#
+                                     #{mod\ 4023}#))
+                                 #{x\ 4057}#)))))))))))
+           (#{syntax-type\ 3708}#
+             (lambda (#{e\ 4058}#
+                      #{r\ 4059}#
+                      #{w\ 4060}#
+                      #{s\ 4061}#
+                      #{rib\ 4062}#
+                      #{mod\ 4063}#
+                      #{for-car?\ 4064}#)
+               (if (symbol? #{e\ 4058}#)
+                 (let ((#{n\ 4065}#
+                         (#{id-var-name\ 3696}# #{e\ 4058}# #{w\ 4060}#)))
+                   (let ((#{b\ 4066}#
+                           (#{lookup\ 3671}#
+                             #{n\ 4065}#
+                             #{r\ 4059}#
+                             #{mod\ 4063}#)))
+                     (let ((#{type\ 4067}#
+                             (#{binding-type\ 3666}# #{b\ 4066}#)))
+                       (if (memv #{type\ 4067}# (quote (lexical)))
                          (values
-                           #{type\ 523}#
-                           (#{binding-value\ 123}# #{b\ 522}#)
-                           #{e\ 514}#
-                           #{w\ 516}#
-                           #{s\ 517}#
-                           #{mod\ 519}#)
-                         (if (memv #{type\ 523}# (quote (global)))
+                           #{type\ 4067}#
+                           (#{binding-value\ 3667}# #{b\ 4066}#)
+                           #{e\ 4058}#
+                           #{w\ 4060}#
+                           #{s\ 4061}#
+                           #{mod\ 4063}#)
+                         (if (memv #{type\ 4067}# (quote (global)))
                            (values
-                             #{type\ 523}#
-                             #{n\ 521}#
-                             #{e\ 514}#
-                             #{w\ 516}#
-                             #{s\ 517}#
-                             #{mod\ 519}#)
-                           (if (memv #{type\ 523}# (quote (macro)))
-                             (if #{for-car?\ 520}#
+                             #{type\ 4067}#
+                             #{n\ 4065}#
+                             #{e\ 4058}#
+                             #{w\ 4060}#
+                             #{s\ 4061}#
+                             #{mod\ 4063}#)
+                           (if (memv #{type\ 4067}# (quote (macro)))
+                             (if #{for-car?\ 4064}#
                                (values
-                                 #{type\ 523}#
-                                 (#{binding-value\ 123}# #{b\ 522}#)
-                                 #{e\ 514}#
-                                 #{w\ 516}#
-                                 #{s\ 517}#
-                                 #{mod\ 519}#)
-                               (#{syntax-type\ 164}#
-                                 (#{chi-macro\ 169}#
-                                   (#{binding-value\ 123}# #{b\ 522}#)
-                                   #{e\ 514}#
-                                   #{r\ 515}#
-                                   #{w\ 516}#
-                                   #{rib\ 518}#
-                                   #{mod\ 519}#)
-                                 #{r\ 515}#
+                                 #{type\ 4067}#
+                                 (#{binding-value\ 3667}# #{b\ 4066}#)
+                                 #{e\ 4058}#
+                                 #{w\ 4060}#
+                                 #{s\ 4061}#
+                                 #{mod\ 4063}#)
+                               (#{syntax-type\ 3708}#
+                                 (#{chi-macro\ 3713}#
+                                   (#{binding-value\ 3667}# #{b\ 4066}#)
+                                   #{e\ 4058}#
+                                   #{r\ 4059}#
+                                   #{w\ 4060}#
+                                   #{rib\ 4062}#
+                                   #{mod\ 4063}#)
+                                 #{r\ 4059}#
                                  '(())
-                                 #{s\ 517}#
-                                 #{rib\ 518}#
-                                 #{mod\ 519}#
+                                 #{s\ 4061}#
+                                 #{rib\ 4062}#
+                                 #{mod\ 4063}#
                                  #f))
                              (values
-                               #{type\ 523}#
-                               (#{binding-value\ 123}# #{b\ 522}#)
-                               #{e\ 514}#
-                               #{w\ 516}#
-                               #{s\ 517}#
-                               #{mod\ 519}#)))))))
-                 (if (pair? #{e\ 514}#)
-                   (let ((#{first\ 524}# (car #{e\ 514}#)))
+                               #{type\ 4067}#
+                               (#{binding-value\ 3667}# #{b\ 4066}#)
+                               #{e\ 4058}#
+                               #{w\ 4060}#
+                               #{s\ 4061}#
+                               #{mod\ 4063}#)))))))
+                 (if (pair? #{e\ 4058}#)
+                   (let ((#{first\ 4068}# (car #{e\ 4058}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 164}#
-                           #{first\ 524}#
-                           #{r\ 515}#
-                           #{w\ 516}#
-                           #{s\ 517}#
-                           #{rib\ 518}#
-                           #{mod\ 519}#
+                         (#{syntax-type\ 3708}#
+                           #{first\ 4068}#
+                           #{r\ 4059}#
+                           #{w\ 4060}#
+                           #{s\ 4061}#
+                           #{rib\ 4062}#
+                           #{mod\ 4063}#
                            #t))
-                       (lambda (#{ftype\ 525}#
-                                #{fval\ 526}#
-                                #{fe\ 527}#
-                                #{fw\ 528}#
-                                #{fs\ 529}#
-                                #{fmod\ 530}#)
-                         (if (memv #{ftype\ 525}# (quote (lexical)))
+                       (lambda (#{ftype\ 4069}#
+                                #{fval\ 4070}#
+                                #{fe\ 4071}#
+                                #{fw\ 4072}#
+                                #{fs\ 4073}#
+                                #{fmod\ 4074}#)
+                         (if (memv #{ftype\ 4069}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 526}#
-                             #{e\ 514}#
-                             #{w\ 516}#
-                             #{s\ 517}#
-                             #{mod\ 519}#)
-                           (if (memv #{ftype\ 525}# (quote (global)))
+                             #{fval\ 4070}#
+                             #{e\ 4058}#
+                             #{w\ 4060}#
+                             #{s\ 4061}#
+                             #{mod\ 4063}#)
+                           (if (memv #{ftype\ 4069}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 113}#
-                                 #{fval\ 526}#
-                                 #{w\ 516}#
-                                 #{fmod\ 530}#)
-                               #{e\ 514}#
-                               #{w\ 516}#
-                               #{s\ 517}#
-                               #{mod\ 519}#)
-                             (if (memv #{ftype\ 525}# (quote (macro)))
-                               (#{syntax-type\ 164}#
-                                 (#{chi-macro\ 169}#
-                                   #{fval\ 526}#
-                                   #{e\ 514}#
-                                   #{r\ 515}#
-                                   #{w\ 516}#
-                                   #{rib\ 518}#
-                                   #{mod\ 519}#)
-                                 #{r\ 515}#
+                               (#{make-syntax-object\ 3657}#
+                                 #{fval\ 4070}#
+                                 #{w\ 4060}#
+                                 #{fmod\ 4074}#)
+                               #{e\ 4058}#
+                               #{w\ 4060}#
+                               #{s\ 4061}#
+                               #{mod\ 4063}#)
+                             (if (memv #{ftype\ 4069}# (quote (macro)))
+                               (#{syntax-type\ 3708}#
+                                 (#{chi-macro\ 3713}#
+                                   #{fval\ 4070}#
+                                   #{e\ 4058}#
+                                   #{r\ 4059}#
+                                   #{w\ 4060}#
+                                   #{rib\ 4062}#
+                                   #{mod\ 4063}#)
+                                 #{r\ 4059}#
                                  '(())
-                                 #{s\ 517}#
-                                 #{rib\ 518}#
-                                 #{mod\ 519}#
-                                 #{for-car?\ 520}#)
-                               (if (memv #{ftype\ 525}# (quote (module-ref)))
+                                 #{s\ 4061}#
+                                 #{rib\ 4062}#
+                                 #{mod\ 4063}#
+                                 #{for-car?\ 4064}#)
+                               (if (memv #{ftype\ 4069}# (quote (module-ref)))
                                  (call-with-values
-                                   (lambda () (#{fval\ 526}# #{e\ 514}#))
-                                   (lambda (#{sym\ 531}# #{mod\ 532}#)
-                                     (#{syntax-type\ 164}#
-                                       #{sym\ 531}#
-                                       #{r\ 515}#
-                                       #{w\ 516}#
-                                       #{s\ 517}#
-                                       #{rib\ 518}#
-                                       #{mod\ 532}#
-                                       #{for-car?\ 520}#)))
-                                 (if (memv #{ftype\ 525}# (quote (core)))
+                                   (lambda () (#{fval\ 4070}# #{e\ 4058}#))
+                                   (lambda (#{sym\ 4075}# #{mod\ 4076}#)
+                                     (#{syntax-type\ 3708}#
+                                       #{sym\ 4075}#
+                                       #{r\ 4059}#
+                                       #{w\ 4060}#
+                                       #{s\ 4061}#
+                                       #{rib\ 4062}#
+                                       #{mod\ 4076}#
+                                       #{for-car?\ 4064}#)))
+                                 (if (memv #{ftype\ 4069}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 526}#
-                                     #{e\ 514}#
-                                     #{w\ 516}#
-                                     #{s\ 517}#
-                                     #{mod\ 519}#)
-                                   (if (memv #{ftype\ 525}#
+                                     #{fval\ 4070}#
+                                     #{e\ 4058}#
+                                     #{w\ 4060}#
+                                     #{s\ 4061}#
+                                     #{mod\ 4063}#)
+                                   (if (memv #{ftype\ 4069}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 526}#
-                                       #{e\ 514}#
-                                       #{w\ 516}#
-                                       #{s\ 517}#
-                                       #{mod\ 519}#)
-                                     (if (memv #{ftype\ 525}# (quote (begin)))
+                                       #{fval\ 4070}#
+                                       #{e\ 4058}#
+                                       #{w\ 4060}#
+                                       #{s\ 4061}#
+                                       #{mod\ 4063}#)
+                                     (if (memv #{ftype\ 4069}# (quote (begin)))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 514}#
-                                         #{w\ 516}#
-                                         #{s\ 517}#
-                                         #{mod\ 519}#)
-                                       (if (memv #{ftype\ 525}#
+                                         #{e\ 4058}#
+                                         #{w\ 4060}#
+                                         #{s\ 4061}#
+                                         #{mod\ 4063}#)
+                                       (if (memv #{ftype\ 4069}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 514}#
-                                           #{w\ 516}#
-                                           #{s\ 517}#
-                                           #{mod\ 519}#)
-                                         (if (memv #{ftype\ 525}#
+                                           #{e\ 4058}#
+                                           #{w\ 4060}#
+                                           #{s\ 4061}#
+                                           #{mod\ 4063}#)
+                                         (if (memv #{ftype\ 4069}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 533}#)
-                                              ((lambda (#{tmp\ 534}#)
-                                                 (if (if #{tmp\ 534}#
-                                                       (apply (lambda (#{_\ 
535}#
-                                                                       #{name\ 
536}#
-                                                                       #{val\ 
537}#)
-                                                                (#{id?\ 130}#
-                                                                  #{name\ 
536}#))
-                                                              #{tmp\ 534}#)
+                                           ((lambda (#{tmp\ 4077}#)
+                                              ((lambda (#{tmp\ 4078}#)
+                                                 (if (if #{tmp\ 4078}#
+                                                       (apply (lambda (#{_\ 
4079}#
+                                                                       #{name\ 
4080}#
+                                                                       #{val\ 
4081}#)
+                                                                (#{id?\ 3674}#
+                                                                  #{name\ 
4080}#))
+                                                              #{tmp\ 4078}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 538}#
-                                                                   #{name\ 
539}#
-                                                                   #{val\ 
540}#)
+                                                   (apply (lambda (#{_\ 4082}#
+                                                                   #{name\ 
4083}#
+                                                                   #{val\ 
4084}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 539}#
-                                                              #{val\ 540}#
-                                                              #{w\ 516}#
-                                                              #{s\ 517}#
-                                                              #{mod\ 519}#))
-                                                          #{tmp\ 534}#)
-                                                   ((lambda (#{tmp\ 541}#)
-                                                      (if (if #{tmp\ 541}#
-                                                            (apply (lambda 
(#{_\ 542}#
-                                                                            
#{name\ 543}#
-                                                                            
#{args\ 544}#
-                                                                            
#{e1\ 545}#
-                                                                            
#{e2\ 546}#)
-                                                                     (if 
(#{id?\ 130}#
-                                                                           
#{name\ 543}#)
-                                                                       
(#{valid-bound-ids?\ 155}#
-                                                                         
(#{lambda-var-list\ 177}#
-                                                                           
#{args\ 544}#))
+                                                              #{name\ 4083}#
+                                                              #{val\ 4084}#
+                                                              #{w\ 4060}#
+                                                              #{s\ 4061}#
+                                                              #{mod\ 4063}#))
+                                                          #{tmp\ 4078}#)
+                                                   ((lambda (#{tmp\ 4085}#)
+                                                      (if (if #{tmp\ 4085}#
+                                                            (apply (lambda 
(#{_\ 4086}#
+                                                                            
#{name\ 4087}#
+                                                                            
#{args\ 4088}#
+                                                                            
#{e1\ 4089}#
+                                                                            
#{e2\ 4090}#)
+                                                                     (if 
(#{id?\ 3674}#
+                                                                           
#{name\ 4087}#)
+                                                                       
(#{valid-bound-ids?\ 3699}#
+                                                                         
(#{lambda-var-list\ 3721}#
+                                                                           
#{args\ 4088}#))
                                                                        #f))
-                                                                   #{tmp\ 
541}#)
+                                                                   #{tmp\ 
4085}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
547}#
-                                                                        
#{name\ 548}#
-                                                                        
#{args\ 549}#
-                                                                        #{e1\ 
550}#
-                                                                        #{e2\ 
551}#)
+                                                        (apply (lambda (#{_\ 
4091}#
+                                                                        
#{name\ 4092}#
+                                                                        
#{args\ 4093}#
+                                                                        #{e1\ 
4094}#
+                                                                        #{e2\ 
4095}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
158}#
-                                                                     #{name\ 
548}#
-                                                                     #{w\ 516}#
-                                                                     #{mod\ 
519}#)
-                                                                   
(#{decorate-source\ 93}#
+                                                                   (#{wrap\ 
3702}#
+                                                                     #{name\ 
4092}#
+                                                                     #{w\ 
4060}#
+                                                                     #{mod\ 
4063}#)
+                                                                   
(#{decorate-source\ 3637}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -2126,33 +2148,33 @@
                                                                                
   "i")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 158}#
-                                                                             
(cons #{args\ 549}#
-                                                                               
    (cons #{e1\ 550}#
-                                                                               
          #{e2\ 551}#))
-                                                                             
#{w\ 516}#
-                                                                             
#{mod\ 519}#))
-                                                                     #{s\ 
517}#)
+                                                                           
(#{wrap\ 3702}#
+                                                                             
(cons #{args\ 4093}#
+                                                                               
    (cons #{e1\ 4094}#
+                                                                               
          #{e2\ 4095}#))
+                                                                             
#{w\ 4060}#
+                                                                             
#{mod\ 4063}#))
+                                                                     #{s\ 
4061}#)
                                                                    '(())
-                                                                   #{s\ 517}#
-                                                                   #{mod\ 
519}#))
-                                                               #{tmp\ 541}#)
-                                                        ((lambda (#{tmp\ 553}#)
-                                                           (if (if #{tmp\ 553}#
-                                                                 (apply 
(lambda (#{_\ 554}#
-                                                                               
  #{name\ 555}#)
-                                                                          
(#{id?\ 130}#
-                                                                            
#{name\ 555}#))
-                                                                        #{tmp\ 
553}#)
+                                                                   #{s\ 4061}#
+                                                                   #{mod\ 
4063}#))
+                                                               #{tmp\ 4085}#)
+                                                        ((lambda (#{tmp\ 
4097}#)
+                                                           (if (if #{tmp\ 
4097}#
+                                                                 (apply 
(lambda (#{_\ 4098}#
+                                                                               
  #{name\ 4099}#)
+                                                                          
(#{id?\ 3674}#
+                                                                            
#{name\ 4099}#))
+                                                                        #{tmp\ 
4097}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 556}#
-                                                                             
#{name\ 557}#)
+                                                             (apply (lambda 
(#{_\ 4100}#
+                                                                             
#{name\ 4101}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 158}#
-                                                                          
#{name\ 557}#
-                                                                          #{w\ 
516}#
-                                                                          
#{mod\ 519}#)
+                                                                        
(#{wrap\ 3702}#
+                                                                          
#{name\ 4101}#
+                                                                          #{w\ 
4060}#
+                                                                          
#{mod\ 4063}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -3438,3472 +3460,3511 @@
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
517}#
-                                                                        #{mod\ 
519}#))
-                                                                    #{tmp\ 
553}#)
+                                                                        #{s\ 
4061}#
+                                                                        #{mod\ 
4063}#))
+                                                                    #{tmp\ 
4097}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 533}#)))
+                                                               #{tmp\ 4077}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 533}#
+                                                           #{tmp\ 4077}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 533}#
+                                                      #{tmp\ 4077}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 533}#
+                                                 #{tmp\ 4077}#
                                                  '(any any any))))
-                                            #{e\ 514}#)
-                                           (if (memv #{ftype\ 525}#
+                                            #{e\ 4058}#)
+                                           (if (memv #{ftype\ 4069}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 558}#)
-                                                ((lambda (#{tmp\ 559}#)
-                                                   (if (if #{tmp\ 559}#
-                                                         (apply (lambda (#{_\ 
560}#
-                                                                         
#{name\ 561}#
-                                                                         
#{val\ 562}#)
-                                                                  (#{id?\ 130}#
-                                                                    #{name\ 
561}#))
-                                                                #{tmp\ 559}#)
+                                             ((lambda (#{tmp\ 4102}#)
+                                                ((lambda (#{tmp\ 4103}#)
+                                                   (if (if #{tmp\ 4103}#
+                                                         (apply (lambda (#{_\ 
4104}#
+                                                                         
#{name\ 4105}#
+                                                                         
#{val\ 4106}#)
+                                                                  (#{id?\ 
3674}#
+                                                                    #{name\ 
4105}#))
+                                                                #{tmp\ 4103}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 563}#
-                                                                     #{name\ 
564}#
-                                                                     #{val\ 
565}#)
+                                                     (apply (lambda (#{_\ 
4107}#
+                                                                     #{name\ 
4108}#
+                                                                     #{val\ 
4109}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 564}#
-                                                                #{val\ 565}#
-                                                                #{w\ 516}#
-                                                                #{s\ 517}#
-                                                                #{mod\ 519}#))
-                                                            #{tmp\ 559}#)
+                                                                #{name\ 4108}#
+                                                                #{val\ 4109}#
+                                                                #{w\ 4060}#
+                                                                #{s\ 4061}#
+                                                                #{mod\ 4063}#))
+                                                            #{tmp\ 4103}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 558}#)))
+                                                       #{tmp\ 4102}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 558}#
+                                                   #{tmp\ 4102}#
                                                    '(any any any))))
-                                              #{e\ 514}#)
+                                              #{e\ 4058}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 514}#
-                                               #{w\ 516}#
-                                               #{s\ 517}#
-                                               #{mod\ 519}#))))))))))))))
-                   (if (#{syntax-object?\ 114}# #{e\ 514}#)
-                     (#{syntax-type\ 164}#
-                       (#{syntax-object-expression\ 115}# #{e\ 514}#)
-                       #{r\ 515}#
-                       (#{join-wraps\ 149}#
-                         #{w\ 516}#
-                         (#{syntax-object-wrap\ 116}# #{e\ 514}#))
-                       #{s\ 517}#
-                       #{rib\ 518}#
-                       (let ((#{t\ 566}# (#{syntax-object-module\ 117}#
-                                           #{e\ 514}#)))
-                         (if #{t\ 566}# #{t\ 566}# #{mod\ 519}#))
-                       #{for-car?\ 520}#)
-                     (if (self-evaluating? #{e\ 514}#)
+                                               #{e\ 4058}#
+                                               #{w\ 4060}#
+                                               #{s\ 4061}#
+                                               #{mod\ 4063}#))))))))))))))
+                   (if (#{syntax-object?\ 3658}# #{e\ 4058}#)
+                     (#{syntax-type\ 3708}#
+                       (#{syntax-object-expression\ 3659}# #{e\ 4058}#)
+                       #{r\ 4059}#
+                       (#{join-wraps\ 3693}#
+                         #{w\ 4060}#
+                         (#{syntax-object-wrap\ 3660}# #{e\ 4058}#))
+                       #{s\ 4061}#
+                       #{rib\ 4062}#
+                       (let ((#{t\ 4110}#
+                               (#{syntax-object-module\ 3661}# #{e\ 4058}#)))
+                         (if #{t\ 4110}# #{t\ 4110}# #{mod\ 4063}#))
+                       #{for-car?\ 4064}#)
+                     (if (self-evaluating? #{e\ 4058}#)
                        (values
                          'constant
                          #f
-                         #{e\ 514}#
-                         #{w\ 516}#
-                         #{s\ 517}#
-                         #{mod\ 519}#)
+                         #{e\ 4058}#
+                         #{w\ 4060}#
+                         #{s\ 4061}#
+                         #{mod\ 4063}#)
                        (values
                          'other
                          #f
-                         #{e\ 514}#
-                         #{w\ 516}#
-                         #{s\ 517}#
-                         #{mod\ 519}#)))))))
-           (#{chi-when-list\ 163}#
-             (lambda (#{e\ 567}# #{when-list\ 568}# #{w\ 569}#)
-               (letrec ((#{f\ 570}# (lambda (#{when-list\ 571}#
-                                             #{situations\ 572}#)
-                                      (if (null? #{when-list\ 571}#)
-                                        #{situations\ 572}#
-                                        (#{f\ 570}# (cdr #{when-list\ 571}#)
-                                                    (cons (let ((#{x\ 573}# 
(car #{when-list\ 571}#)))
-                                                            (if (#{free-id=?\ 
153}#
-                                                                  #{x\ 573}#
-                                                                  
'#(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
-                                                                          
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))
-                                                                        ("i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "i"
-                                                                         "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=?\ 153}#
-                                                                    #{x\ 573}#
-                                                                    
'#(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
-                                                                            
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))
-                                                                          ("i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "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=?\ 153}#
-                                                                      #{x\ 
573}#
-                                                                      
'#(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
-                                                                              
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))
-                                                                            
("i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"i"
-                                                                             
"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\ 567}#
-                                                                    (#{wrap\ 
158}#
-                                                                      #{x\ 
573}#
-                                                                      #{w\ 
569}#
-                                                                      #f))))))
-                                                          #{situations\ 
572}#))))))
-                 (#{f\ 570}# #{when-list\ 568}# (quote ())))))
-           (#{chi-install-global\ 162}#
-             (lambda (#{name\ 574}# #{e\ 575}#)
-               (#{build-global-definition\ 103}#
+                         #{e\ 4058}#
+                         #{w\ 4060}#
+                         #{s\ 4061}#
+                         #{mod\ 4063}#)))))))
+           (#{chi-when-list\ 3707}#
+             (lambda (#{e\ 4111}# #{when-list\ 4112}# #{w\ 4113}#)
+               (letrec ((#{f\ 4114}#
+                          (lambda (#{when-list\ 4115}# #{situations\ 4116}#)
+                            (if (null? #{when-list\ 4115}#)
+                              #{situations\ 4116}#
+                              (#{f\ 4114}#
+                                (cdr #{when-list\ 4115}#)
+                                (cons (let ((#{x\ 4117}#
+                                              (car #{when-list\ 4115}#)))
+                                        (if (#{free-id=?\ 3697}#
+                                              #{x\ 4117}#
+                                              '#(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
+                                                      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))
+                                                    ("i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "i"
+                                                     "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=?\ 3697}#
+                                                #{x\ 4117}#
+                                                '#(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
+                                                        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))
+                                                      ("i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "i"
+                                                       "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=?\ 3697}#
+                                                  #{x\ 4117}#
+                                                  '#(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
+                                                          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))
+                                                        ("i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "i"
+                                                         "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\ 4111}#
+                                                (#{wrap\ 3702}#
+                                                  #{x\ 4117}#
+                                                  #{w\ 4113}#
+                                                  #f))))))
+                                      #{situations\ 4116}#))))))
+                 (#{f\ 4114}# #{when-list\ 4112}# (quote ())))))
+           (#{chi-install-global\ 3706}#
+             (lambda (#{name\ 4118}# #{e\ 4119}#)
+               (#{build-global-definition\ 3647}#
                  #f
-                 #{name\ 574}#
-                 (if (let ((#{v\ 576}# (module-variable
-                                         (current-module)
-                                         #{name\ 574}#)))
-                       (if #{v\ 576}#
-                         (if (variable-bound? #{v\ 576}#)
-                           (if (macro? (variable-ref #{v\ 576}#))
-                             (not (eq? (macro-type (variable-ref #{v\ 576}#))
+                 #{name\ 4118}#
+                 (if (let ((#{v\ 4120}#
+                             (module-variable
+                               (current-module)
+                               #{name\ 4118}#)))
+                       (if #{v\ 4120}#
+                         (if (variable-bound? #{v\ 4120}#)
+                           (if (macro? (variable-ref #{v\ 4120}#))
+                             (not (eq? (macro-type (variable-ref #{v\ 4120}#))
                                        'syncase-macro))
                              #f)
                            #f)
                          #f))
-                   (#{build-application\ 95}#
+                   (#{build-application\ 3639}#
                      #f
-                     (#{build-primref\ 107}#
+                     (#{build-primref\ 3651}#
                        #f
                        'make-extended-syncase-macro)
-                     (list (#{build-application\ 95}#
+                     (list (#{build-application\ 3639}#
                              #f
-                             (#{build-primref\ 107}# #f (quote module-ref))
-                             (list (#{build-application\ 95}#
+                             (#{build-primref\ 3651}# #f (quote module-ref))
+                             (list (#{build-application\ 3639}#
                                      #f
-                                     (#{build-primref\ 107}#
+                                     (#{build-primref\ 3651}#
                                        #f
                                        'current-module)
                                      '())
-                                   (#{build-data\ 108}# #f #{name\ 574}#)))
-                           (#{build-data\ 108}# #f (quote macro))
-                           #{e\ 575}#))
-                   (#{build-application\ 95}#
+                                   (#{build-data\ 3652}# #f #{name\ 4118}#)))
+                           (#{build-data\ 3652}# #f (quote macro))
+                           #{e\ 4119}#))
+                   (#{build-application\ 3639}#
                      #f
-                     (#{build-primref\ 107}#
+                     (#{build-primref\ 3651}#
                        #f
                        'make-syncase-macro)
-                     (list (#{build-data\ 108}# #f (quote macro))
-                           #{e\ 575}#))))))
-           (#{chi-top-sequence\ 161}#
-             (lambda (#{body\ 577}#
-                      #{r\ 578}#
-                      #{w\ 579}#
-                      #{s\ 580}#
-                      #{m\ 581}#
-                      #{esew\ 582}#
-                      #{mod\ 583}#)
-               (#{build-sequence\ 109}#
-                 #{s\ 580}#
-                 (letrec ((#{dobody\ 584}#
-                            (lambda (#{body\ 585}#
-                                     #{r\ 586}#
-                                     #{w\ 587}#
-                                     #{m\ 588}#
-                                     #{esew\ 589}#
-                                     #{mod\ 590}#)
-                              (if (null? #{body\ 585}#)
+                     (list (#{build-data\ 3652}# #f (quote macro))
+                           #{e\ 4119}#))))))
+           (#{chi-top-sequence\ 3705}#
+             (lambda (#{body\ 4121}#
+                      #{r\ 4122}#
+                      #{w\ 4123}#
+                      #{s\ 4124}#
+                      #{m\ 4125}#
+                      #{esew\ 4126}#
+                      #{mod\ 4127}#)
+               (#{build-sequence\ 3653}#
+                 #{s\ 4124}#
+                 (letrec ((#{dobody\ 4128}#
+                            (lambda (#{body\ 4129}#
+                                     #{r\ 4130}#
+                                     #{w\ 4131}#
+                                     #{m\ 4132}#
+                                     #{esew\ 4133}#
+                                     #{mod\ 4134}#)
+                              (if (null? #{body\ 4129}#)
                                 '()
-                                (let ((#{first\ 591}#
-                                        (#{chi-top\ 165}#
-                                          (car #{body\ 585}#)
-                                          #{r\ 586}#
-                                          #{w\ 587}#
-                                          #{m\ 588}#
-                                          #{esew\ 589}#
-                                          #{mod\ 590}#)))
-                                  (cons #{first\ 591}#
-                                        (#{dobody\ 584}#
-                                          (cdr #{body\ 585}#)
-                                          #{r\ 586}#
-                                          #{w\ 587}#
-                                          #{m\ 588}#
-                                          #{esew\ 589}#
-                                          #{mod\ 590}#)))))))
-                   (#{dobody\ 584}#
-                     #{body\ 577}#
-                     #{r\ 578}#
-                     #{w\ 579}#
-                     #{m\ 581}#
-                     #{esew\ 582}#
-                     #{mod\ 583}#)))))
-           (#{chi-sequence\ 160}#
-             (lambda (#{body\ 592}#
-                      #{r\ 593}#
-                      #{w\ 594}#
-                      #{s\ 595}#
-                      #{mod\ 596}#)
-               (#{build-sequence\ 109}#
-                 #{s\ 595}#
-                 (letrec ((#{dobody\ 597}#
-                            (lambda (#{body\ 598}#
-                                     #{r\ 599}#
-                                     #{w\ 600}#
-                                     #{mod\ 601}#)
-                              (if (null? #{body\ 598}#)
+                                (let ((#{first\ 4135}#
+                                        (#{chi-top\ 3709}#
+                                          (car #{body\ 4129}#)
+                                          #{r\ 4130}#
+                                          #{w\ 4131}#
+                                          #{m\ 4132}#
+                                          #{esew\ 4133}#
+                                          #{mod\ 4134}#)))
+                                  (cons #{first\ 4135}#
+                                        (#{dobody\ 4128}#
+                                          (cdr #{body\ 4129}#)
+                                          #{r\ 4130}#
+                                          #{w\ 4131}#
+                                          #{m\ 4132}#
+                                          #{esew\ 4133}#
+                                          #{mod\ 4134}#)))))))
+                   (#{dobody\ 4128}#
+                     #{body\ 4121}#
+                     #{r\ 4122}#
+                     #{w\ 4123}#
+                     #{m\ 4125}#
+                     #{esew\ 4126}#
+                     #{mod\ 4127}#)))))
+           (#{chi-sequence\ 3704}#
+             (lambda (#{body\ 4136}#
+                      #{r\ 4137}#
+                      #{w\ 4138}#
+                      #{s\ 4139}#
+                      #{mod\ 4140}#)
+               (#{build-sequence\ 3653}#
+                 #{s\ 4139}#
+                 (letrec ((#{dobody\ 4141}#
+                            (lambda (#{body\ 4142}#
+                                     #{r\ 4143}#
+                                     #{w\ 4144}#
+                                     #{mod\ 4145}#)
+                              (if (null? #{body\ 4142}#)
                                 '()
-                                (let ((#{first\ 602}#
-                                        (#{chi\ 166}#
-                                          (car #{body\ 598}#)
-                                          #{r\ 599}#
-                                          #{w\ 600}#
-                                          #{mod\ 601}#)))
-                                  (cons #{first\ 602}#
-                                        (#{dobody\ 597}#
-                                          (cdr #{body\ 598}#)
-                                          #{r\ 599}#
-                                          #{w\ 600}#
-                                          #{mod\ 601}#)))))))
-                   (#{dobody\ 597}#
-                     #{body\ 592}#
-                     #{r\ 593}#
-                     #{w\ 594}#
-                     #{mod\ 596}#)))))
-           (#{source-wrap\ 159}#
-             (lambda (#{x\ 603}#
-                      #{w\ 604}#
-                      #{s\ 605}#
-                      #{defmod\ 606}#)
-               (#{wrap\ 158}#
-                 (#{decorate-source\ 93}# #{x\ 603}# #{s\ 605}#)
-                 #{w\ 604}#
-                 #{defmod\ 606}#)))
-           (#{wrap\ 158}#
-             (lambda (#{x\ 607}# #{w\ 608}# #{defmod\ 609}#)
-               (if (if (null? (#{wrap-marks\ 133}# #{w\ 608}#))
-                     (null? (#{wrap-subst\ 134}# #{w\ 608}#))
+                                (let ((#{first\ 4146}#
+                                        (#{chi\ 3710}#
+                                          (car #{body\ 4142}#)
+                                          #{r\ 4143}#
+                                          #{w\ 4144}#
+                                          #{mod\ 4145}#)))
+                                  (cons #{first\ 4146}#
+                                        (#{dobody\ 4141}#
+                                          (cdr #{body\ 4142}#)
+                                          #{r\ 4143}#
+                                          #{w\ 4144}#
+                                          #{mod\ 4145}#)))))))
+                   (#{dobody\ 4141}#
+                     #{body\ 4136}#
+                     #{r\ 4137}#
+                     #{w\ 4138}#
+                     #{mod\ 4140}#)))))
+           (#{source-wrap\ 3703}#
+             (lambda (#{x\ 4147}#
+                      #{w\ 4148}#
+                      #{s\ 4149}#
+                      #{defmod\ 4150}#)
+               (#{wrap\ 3702}#
+                 (#{decorate-source\ 3637}#
+                   #{x\ 4147}#
+                   #{s\ 4149}#)
+                 #{w\ 4148}#
+                 #{defmod\ 4150}#)))
+           (#{wrap\ 3702}#
+             (lambda (#{x\ 4151}# #{w\ 4152}# #{defmod\ 4153}#)
+               (if (if (null? (#{wrap-marks\ 3677}# #{w\ 4152}#))
+                     (null? (#{wrap-subst\ 3678}# #{w\ 4152}#))
                      #f)
-                 #{x\ 607}#
-                 (if (#{syntax-object?\ 114}# #{x\ 607}#)
-                   (#{make-syntax-object\ 113}#
-                     (#{syntax-object-expression\ 115}# #{x\ 607}#)
-                     (#{join-wraps\ 149}#
-                       #{w\ 608}#
-                       (#{syntax-object-wrap\ 116}# #{x\ 607}#))
-                     (#{syntax-object-module\ 117}# #{x\ 607}#))
-                   (if (null? #{x\ 607}#)
-                     #{x\ 607}#
-                     (#{make-syntax-object\ 113}#
-                       #{x\ 607}#
-                       #{w\ 608}#
-                       #{defmod\ 609}#))))))
-           (#{bound-id-member?\ 157}#
-             (lambda (#{x\ 610}# #{list\ 611}#)
-               (if (not (null? #{list\ 611}#))
-                 (let ((#{t\ 612}# (#{bound-id=?\ 154}#
-                                     #{x\ 610}#
-                                     (car #{list\ 611}#))))
-                   (if #{t\ 612}#
-                     #{t\ 612}#
-                     (#{bound-id-member?\ 157}#
-                       #{x\ 610}#
-                       (cdr #{list\ 611}#))))
+                 #{x\ 4151}#
+                 (if (#{syntax-object?\ 3658}# #{x\ 4151}#)
+                   (#{make-syntax-object\ 3657}#
+                     (#{syntax-object-expression\ 3659}# #{x\ 4151}#)
+                     (#{join-wraps\ 3693}#
+                       #{w\ 4152}#
+                       (#{syntax-object-wrap\ 3660}# #{x\ 4151}#))
+                     (#{syntax-object-module\ 3661}# #{x\ 4151}#))
+                   (if (null? #{x\ 4151}#)
+                     #{x\ 4151}#
+                     (#{make-syntax-object\ 3657}#
+                       #{x\ 4151}#
+                       #{w\ 4152}#
+                       #{defmod\ 4153}#))))))
+           (#{bound-id-member?\ 3701}#
+             (lambda (#{x\ 4154}# #{list\ 4155}#)
+               (if (not (null? #{list\ 4155}#))
+                 (let ((#{t\ 4156}#
+                         (#{bound-id=?\ 3698}#
+                           #{x\ 4154}#
+                           (car #{list\ 4155}#))))
+                   (if #{t\ 4156}#
+                     #{t\ 4156}#
+                     (#{bound-id-member?\ 3701}#
+                       #{x\ 4154}#
+                       (cdr #{list\ 4155}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 156}#
-             (lambda (#{ids\ 613}#)
-               (letrec ((#{distinct?\ 614}#
-                          (lambda (#{ids\ 615}#)
-                            (let ((#{t\ 616}# (null? #{ids\ 615}#)))
-                              (if #{t\ 616}#
-                                #{t\ 616}#
-                                (if (not (#{bound-id-member?\ 157}#
-                                           (car #{ids\ 615}#)
-                                           (cdr #{ids\ 615}#)))
-                                  (#{distinct?\ 614}# (cdr #{ids\ 615}#))
+           (#{distinct-bound-ids?\ 3700}#
+             (lambda (#{ids\ 4157}#)
+               (letrec ((#{distinct?\ 4158}#
+                          (lambda (#{ids\ 4159}#)
+                            (let ((#{t\ 4160}# (null? #{ids\ 4159}#)))
+                              (if #{t\ 4160}#
+                                #{t\ 4160}#
+                                (if (not (#{bound-id-member?\ 3701}#
+                                           (car #{ids\ 4159}#)
+                                           (cdr #{ids\ 4159}#)))
+                                  (#{distinct?\ 4158}# (cdr #{ids\ 4159}#))
                                   #f))))))
-                 (#{distinct?\ 614}# #{ids\ 613}#))))
-           (#{valid-bound-ids?\ 155}#
-             (lambda (#{ids\ 617}#)
-               (if (letrec ((#{all-ids?\ 618}#
-                              (lambda (#{ids\ 619}#)
-                                (let ((#{t\ 620}# (null? #{ids\ 619}#)))
-                                  (if #{t\ 620}#
-                                    #{t\ 620}#
-                                    (if (#{id?\ 130}# (car #{ids\ 619}#))
-                                      (#{all-ids?\ 618}# (cdr #{ids\ 619}#))
+                 (#{distinct?\ 4158}# #{ids\ 4157}#))))
+           (#{valid-bound-ids?\ 3699}#
+             (lambda (#{ids\ 4161}#)
+               (if (letrec ((#{all-ids?\ 4162}#
+                              (lambda (#{ids\ 4163}#)
+                                (let ((#{t\ 4164}# (null? #{ids\ 4163}#)))
+                                  (if #{t\ 4164}#
+                                    #{t\ 4164}#
+                                    (if (#{id?\ 3674}# (car #{ids\ 4163}#))
+                                      (#{all-ids?\ 4162}# (cdr #{ids\ 4163}#))
                                       #f))))))
-                     (#{all-ids?\ 618}# #{ids\ 617}#))
-                 (#{distinct-bound-ids?\ 156}# #{ids\ 617}#)
+                     (#{all-ids?\ 4162}# #{ids\ 4161}#))
+                 (#{distinct-bound-ids?\ 3700}# #{ids\ 4161}#)
                  #f)))
-           (#{bound-id=?\ 154}#
-             (lambda (#{i\ 621}# #{j\ 622}#)
-               (if (if (#{syntax-object?\ 114}# #{i\ 621}#)
-                     (#{syntax-object?\ 114}# #{j\ 622}#)
+           (#{bound-id=?\ 3698}#
+             (lambda (#{i\ 4165}# #{j\ 4166}#)
+               (if (if (#{syntax-object?\ 3658}# #{i\ 4165}#)
+                     (#{syntax-object?\ 3658}# #{j\ 4166}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 115}# #{i\ 621}#)
-                          (#{syntax-object-expression\ 115}# #{j\ 622}#))
-                   (#{same-marks?\ 151}#
-                     (#{wrap-marks\ 133}#
-                       (#{syntax-object-wrap\ 116}# #{i\ 621}#))
-                     (#{wrap-marks\ 133}#
-                       (#{syntax-object-wrap\ 116}# #{j\ 622}#)))
+                 (if (eq? (#{syntax-object-expression\ 3659}# #{i\ 4165}#)
+                          (#{syntax-object-expression\ 3659}# #{j\ 4166}#))
+                   (#{same-marks?\ 3695}#
+                     (#{wrap-marks\ 3677}#
+                       (#{syntax-object-wrap\ 3660}# #{i\ 4165}#))
+                     (#{wrap-marks\ 3677}#
+                       (#{syntax-object-wrap\ 3660}# #{j\ 4166}#)))
                    #f)
-                 (eq? #{i\ 621}# #{j\ 622}#))))
-           (#{free-id=?\ 153}#
-             (lambda (#{i\ 623}# #{j\ 624}#)
-               (if (eq? (let ((#{x\ 625}# #{i\ 623}#))
-                          (if (#{syntax-object?\ 114}# #{x\ 625}#)
-                            (#{syntax-object-expression\ 115}# #{x\ 625}#)
-                            #{x\ 625}#))
-                        (let ((#{x\ 626}# #{j\ 624}#))
-                          (if (#{syntax-object?\ 114}# #{x\ 626}#)
-                            (#{syntax-object-expression\ 115}# #{x\ 626}#)
-                            #{x\ 626}#)))
-                 (eq? (#{id-var-name\ 152}# #{i\ 623}# (quote (())))
-                      (#{id-var-name\ 152}# #{j\ 624}# (quote (()))))
+                 (eq? #{i\ 4165}# #{j\ 4166}#))))
+           (#{free-id=?\ 3697}#
+             (lambda (#{i\ 4167}# #{j\ 4168}#)
+               (if (eq? (let ((#{x\ 4169}# #{i\ 4167}#))
+                          (if (#{syntax-object?\ 3658}# #{x\ 4169}#)
+                            (#{syntax-object-expression\ 3659}# #{x\ 4169}#)
+                            #{x\ 4169}#))
+                        (let ((#{x\ 4170}# #{j\ 4168}#))
+                          (if (#{syntax-object?\ 3658}# #{x\ 4170}#)
+                            (#{syntax-object-expression\ 3659}# #{x\ 4170}#)
+                            #{x\ 4170}#)))
+                 (eq? (#{id-var-name\ 3696}# #{i\ 4167}# (quote (())))
+                      (#{id-var-name\ 3696}# #{j\ 4168}# (quote (()))))
                  #f)))
-           (#{id-var-name\ 152}#
-             (lambda (#{id\ 627}# #{w\ 628}#)
-               (letrec ((#{search-vector-rib\ 631}#
-                          (lambda (#{sym\ 637}#
-                                   #{subst\ 638}#
-                                   #{marks\ 639}#
-                                   #{symnames\ 640}#
-                                   #{ribcage\ 641}#)
-                            (let ((#{n\ 642}# (vector-length
-                                                #{symnames\ 640}#)))
-                              (letrec ((#{f\ 643}# (lambda (#{i\ 644}#)
-                                                     (if (#{fx=\ 87}#
-                                                           #{i\ 644}#
-                                                           #{n\ 642}#)
-                                                       (#{search\ 629}#
-                                                         #{sym\ 637}#
-                                                         (cdr #{subst\ 638}#)
-                                                         #{marks\ 639}#)
-                                                       (if (if (eq? (vector-ref
-                                                                      
#{symnames\ 640}#
-                                                                      #{i\ 
644}#)
-                                                                    #{sym\ 
637}#)
-                                                             (#{same-marks?\ 
151}#
-                                                               #{marks\ 639}#
-                                                               (vector-ref
-                                                                 
(#{ribcage-marks\ 140}#
-                                                                   #{ribcage\ 
641}#)
-                                                                 #{i\ 644}#))
-                                                             #f)
-                                                         (values
-                                                           (vector-ref
-                                                             
(#{ribcage-labels\ 141}#
-                                                               #{ribcage\ 
641}#)
-                                                             #{i\ 644}#)
-                                                           #{marks\ 639}#)
-                                                         (#{f\ 643}# (#{fx+\ 
85}#
-                                                                       #{i\ 
644}#
-                                                                       1)))))))
-                                (#{f\ 643}# 0)))))
-                        (#{search-list-rib\ 630}#
-                          (lambda (#{sym\ 645}#
-                                   #{subst\ 646}#
-                                   #{marks\ 647}#
-                                   #{symnames\ 648}#
-                                   #{ribcage\ 649}#)
-                            (letrec ((#{f\ 650}# (lambda (#{symnames\ 651}#
-                                                          #{i\ 652}#)
-                                                   (if (null? #{symnames\ 
651}#)
-                                                     (#{search\ 629}#
-                                                       #{sym\ 645}#
-                                                       (cdr #{subst\ 646}#)
-                                                       #{marks\ 647}#)
-                                                     (if (if (eq? (car 
#{symnames\ 651}#)
-                                                                  #{sym\ 645}#)
-                                                           (#{same-marks?\ 
151}#
-                                                             #{marks\ 647}#
-                                                             (list-ref
-                                                               
(#{ribcage-marks\ 140}#
-                                                                 #{ribcage\ 
649}#)
-                                                               #{i\ 652}#))
-                                                           #f)
-                                                       (values
-                                                         (list-ref
-                                                           (#{ribcage-labels\ 
141}#
-                                                             #{ribcage\ 649}#)
-                                                           #{i\ 652}#)
-                                                         #{marks\ 647}#)
-                                                       (#{f\ 650}# (cdr 
#{symnames\ 651}#)
-                                                                   (#{fx+\ 85}#
-                                                                     #{i\ 652}#
-                                                                     1)))))))
-                              (#{f\ 650}# #{symnames\ 648}# 0))))
-                        (#{search\ 629}#
-                          (lambda (#{sym\ 653}# #{subst\ 654}# #{marks\ 655}#)
-                            (if (null? #{subst\ 654}#)
-                              (values #f #{marks\ 655}#)
-                              (let ((#{fst\ 656}# (car #{subst\ 654}#)))
-                                (if (eq? #{fst\ 656}# (quote shift))
-                                  (#{search\ 629}#
-                                    #{sym\ 653}#
-                                    (cdr #{subst\ 654}#)
-                                    (cdr #{marks\ 655}#))
-                                  (let ((#{symnames\ 657}#
-                                          (#{ribcage-symnames\ 139}#
-                                            #{fst\ 656}#)))
-                                    (if (vector? #{symnames\ 657}#)
-                                      (#{search-vector-rib\ 631}#
-                                        #{sym\ 653}#
-                                        #{subst\ 654}#
-                                        #{marks\ 655}#
-                                        #{symnames\ 657}#
-                                        #{fst\ 656}#)
-                                      (#{search-list-rib\ 630}#
-                                        #{sym\ 653}#
-                                        #{subst\ 654}#
-                                        #{marks\ 655}#
-                                        #{symnames\ 657}#
-                                        #{fst\ 656}#)))))))))
-                 (if (symbol? #{id\ 627}#)
-                   (let ((#{t\ 658}# (call-with-values
-                                       (lambda ()
-                                         (#{search\ 629}#
-                                           #{id\ 627}#
-                                           (#{wrap-subst\ 134}# #{w\ 628}#)
-                                           (#{wrap-marks\ 133}# #{w\ 628}#)))
-                                       (lambda (#{x\ 659}# . #{ignore\ 660}#)
-                                         #{x\ 659}#))))
-                     (if #{t\ 658}# #{t\ 658}# #{id\ 627}#))
-                   (if (#{syntax-object?\ 114}# #{id\ 627}#)
-                     (let ((#{id\ 661}#
-                             (#{syntax-object-expression\ 115}# #{id\ 627}#))
-                           (#{w1\ 662}#
-                             (#{syntax-object-wrap\ 116}# #{id\ 627}#)))
-                       (let ((#{marks\ 663}#
-                               (#{join-marks\ 150}#
-                                 (#{wrap-marks\ 133}# #{w\ 628}#)
-                                 (#{wrap-marks\ 133}# #{w1\ 662}#))))
+           (#{id-var-name\ 3696}#
+             (lambda (#{id\ 4171}# #{w\ 4172}#)
+               (letrec ((#{search-vector-rib\ 4175}#
+                          (lambda (#{sym\ 4181}#
+                                   #{subst\ 4182}#
+                                   #{marks\ 4183}#
+                                   #{symnames\ 4184}#
+                                   #{ribcage\ 4185}#)
+                            (let ((#{n\ 4186}#
+                                    (vector-length #{symnames\ 4184}#)))
+                              (letrec ((#{f\ 4187}#
+                                         (lambda (#{i\ 4188}#)
+                                           (if (#{fx=\ 3631}#
+                                                 #{i\ 4188}#
+                                                 #{n\ 4186}#)
+                                             (#{search\ 4173}#
+                                               #{sym\ 4181}#
+                                               (cdr #{subst\ 4182}#)
+                                               #{marks\ 4183}#)
+                                             (if (if (eq? (vector-ref
+                                                            #{symnames\ 4184}#
+                                                            #{i\ 4188}#)
+                                                          #{sym\ 4181}#)
+                                                   (#{same-marks?\ 3695}#
+                                                     #{marks\ 4183}#
+                                                     (vector-ref
+                                                       (#{ribcage-marks\ 3684}#
+                                                         #{ribcage\ 4185}#)
+                                                       #{i\ 4188}#))
+                                                   #f)
+                                               (values
+                                                 (vector-ref
+                                                   (#{ribcage-labels\ 3685}#
+                                                     #{ribcage\ 4185}#)
+                                                   #{i\ 4188}#)
+                                                 #{marks\ 4183}#)
+                                               (#{f\ 4187}#
+                                                 (#{fx+\ 3629}#
+                                                   #{i\ 4188}#
+                                                   1)))))))
+                                (#{f\ 4187}# 0)))))
+                        (#{search-list-rib\ 4174}#
+                          (lambda (#{sym\ 4189}#
+                                   #{subst\ 4190}#
+                                   #{marks\ 4191}#
+                                   #{symnames\ 4192}#
+                                   #{ribcage\ 4193}#)
+                            (letrec ((#{f\ 4194}#
+                                       (lambda (#{symnames\ 4195}# #{i\ 4196}#)
+                                         (if (null? #{symnames\ 4195}#)
+                                           (#{search\ 4173}#
+                                             #{sym\ 4189}#
+                                             (cdr #{subst\ 4190}#)
+                                             #{marks\ 4191}#)
+                                           (if (if (eq? (car #{symnames\ 
4195}#)
+                                                        #{sym\ 4189}#)
+                                                 (#{same-marks?\ 3695}#
+                                                   #{marks\ 4191}#
+                                                   (list-ref
+                                                     (#{ribcage-marks\ 3684}#
+                                                       #{ribcage\ 4193}#)
+                                                     #{i\ 4196}#))
+                                                 #f)
+                                             (values
+                                               (list-ref
+                                                 (#{ribcage-labels\ 3685}#
+                                                   #{ribcage\ 4193}#)
+                                                 #{i\ 4196}#)
+                                               #{marks\ 4191}#)
+                                             (#{f\ 4194}#
+                                               (cdr #{symnames\ 4195}#)
+                                               (#{fx+\ 3629}#
+                                                 #{i\ 4196}#
+                                                 1)))))))
+                              (#{f\ 4194}# #{symnames\ 4192}# 0))))
+                        (#{search\ 4173}#
+                          (lambda (#{sym\ 4197}#
+                                   #{subst\ 4198}#
+                                   #{marks\ 4199}#)
+                            (if (null? #{subst\ 4198}#)
+                              (values #f #{marks\ 4199}#)
+                              (let ((#{fst\ 4200}# (car #{subst\ 4198}#)))
+                                (if (eq? #{fst\ 4200}# (quote shift))
+                                  (#{search\ 4173}#
+                                    #{sym\ 4197}#
+                                    (cdr #{subst\ 4198}#)
+                                    (cdr #{marks\ 4199}#))
+                                  (let ((#{symnames\ 4201}#
+                                          (#{ribcage-symnames\ 3683}#
+                                            #{fst\ 4200}#)))
+                                    (if (vector? #{symnames\ 4201}#)
+                                      (#{search-vector-rib\ 4175}#
+                                        #{sym\ 4197}#
+                                        #{subst\ 4198}#
+                                        #{marks\ 4199}#
+                                        #{symnames\ 4201}#
+                                        #{fst\ 4200}#)
+                                      (#{search-list-rib\ 4174}#
+                                        #{sym\ 4197}#
+                                        #{subst\ 4198}#
+                                        #{marks\ 4199}#
+                                        #{symnames\ 4201}#
+                                        #{fst\ 4200}#)))))))))
+                 (if (symbol? #{id\ 4171}#)
+                   (let ((#{t\ 4202}#
+                           (call-with-values
+                             (lambda ()
+                               (#{search\ 4173}#
+                                 #{id\ 4171}#
+                                 (#{wrap-subst\ 3678}# #{w\ 4172}#)
+                                 (#{wrap-marks\ 3677}# #{w\ 4172}#)))
+                             (lambda (#{x\ 4203}# . #{ignore\ 4204}#)
+                               #{x\ 4203}#))))
+                     (if #{t\ 4202}# #{t\ 4202}# #{id\ 4171}#))
+                   (if (#{syntax-object?\ 3658}# #{id\ 4171}#)
+                     (let ((#{id\ 4205}#
+                             (#{syntax-object-expression\ 3659}# #{id\ 4171}#))
+                           (#{w1\ 4206}#
+                             (#{syntax-object-wrap\ 3660}# #{id\ 4171}#)))
+                       (let ((#{marks\ 4207}#
+                               (#{join-marks\ 3694}#
+                                 (#{wrap-marks\ 3677}# #{w\ 4172}#)
+                                 (#{wrap-marks\ 3677}# #{w1\ 4206}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 629}#
-                               #{id\ 661}#
-                               (#{wrap-subst\ 134}# #{w\ 628}#)
-                               #{marks\ 663}#))
-                           (lambda (#{new-id\ 664}# #{marks\ 665}#)
-                             (let ((#{t\ 666}# #{new-id\ 664}#))
-                               (if #{t\ 666}#
-                                 #{t\ 666}#
-                                 (let ((#{t\ 667}# (call-with-values
-                                                     (lambda ()
-                                                       (#{search\ 629}#
-                                                         #{id\ 661}#
-                                                         (#{wrap-subst\ 134}#
-                                                           #{w1\ 662}#)
-                                                         #{marks\ 665}#))
-                                                     (lambda (#{x\ 668}#
-                                                              .
-                                                              #{ignore\ 669}#)
-                                                       #{x\ 668}#))))
-                                   (if #{t\ 667}#
-                                     #{t\ 667}#
-                                     #{id\ 661}#))))))))
+                             (#{search\ 4173}#
+                               #{id\ 4205}#
+                               (#{wrap-subst\ 3678}# #{w\ 4172}#)
+                               #{marks\ 4207}#))
+                           (lambda (#{new-id\ 4208}# #{marks\ 4209}#)
+                             (let ((#{t\ 4210}# #{new-id\ 4208}#))
+                               (if #{t\ 4210}#
+                                 #{t\ 4210}#
+                                 (let ((#{t\ 4211}#
+                                         (call-with-values
+                                           (lambda ()
+                                             (#{search\ 4173}#
+                                               #{id\ 4205}#
+                                               (#{wrap-subst\ 3678}#
+                                                 #{w1\ 4206}#)
+                                               #{marks\ 4209}#))
+                                           (lambda (#{x\ 4212}#
+                                                    .
+                                                    #{ignore\ 4213}#)
+                                             #{x\ 4212}#))))
+                                   (if #{t\ 4211}#
+                                     #{t\ 4211}#
+                                     #{id\ 4205}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 627}#))))))
-           (#{same-marks?\ 151}#
-             (lambda (#{x\ 670}# #{y\ 671}#)
-               (let ((#{t\ 672}# (eq? #{x\ 670}# #{y\ 671}#)))
-                 (if #{t\ 672}#
-                   #{t\ 672}#
-                   (if (not (null? #{x\ 670}#))
-                     (if (not (null? #{y\ 671}#))
-                       (if (eq? (car #{x\ 670}#) (car #{y\ 671}#))
-                         (#{same-marks?\ 151}#
-                           (cdr #{x\ 670}#)
-                           (cdr #{y\ 671}#))
+                       #{id\ 4171}#))))))
+           (#{same-marks?\ 3695}#
+             (lambda (#{x\ 4214}# #{y\ 4215}#)
+               (let ((#{t\ 4216}# (eq? #{x\ 4214}# #{y\ 4215}#)))
+                 (if #{t\ 4216}#
+                   #{t\ 4216}#
+                   (if (not (null? #{x\ 4214}#))
+                     (if (not (null? #{y\ 4215}#))
+                       (if (eq? (car #{x\ 4214}#) (car #{y\ 4215}#))
+                         (#{same-marks?\ 3695}#
+                           (cdr #{x\ 4214}#)
+                           (cdr #{y\ 4215}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 150}#
-             (lambda (#{m1\ 673}# #{m2\ 674}#)
-               (#{smart-append\ 148}# #{m1\ 673}# #{m2\ 674}#)))
-           (#{join-wraps\ 149}#
-             (lambda (#{w1\ 675}# #{w2\ 676}#)
-               (let ((#{m1\ 677}# (#{wrap-marks\ 133}# #{w1\ 675}#))
-                     (#{s1\ 678}# (#{wrap-subst\ 134}# #{w1\ 675}#)))
-                 (if (null? #{m1\ 677}#)
-                   (if (null? #{s1\ 678}#)
-                     #{w2\ 676}#
-                     (#{make-wrap\ 132}#
-                       (#{wrap-marks\ 133}# #{w2\ 676}#)
-                       (#{smart-append\ 148}#
-                         #{s1\ 678}#
-                         (#{wrap-subst\ 134}# #{w2\ 676}#))))
-                   (#{make-wrap\ 132}#
-                     (#{smart-append\ 148}#
-                       #{m1\ 677}#
-                       (#{wrap-marks\ 133}# #{w2\ 676}#))
-                     (#{smart-append\ 148}#
-                       #{s1\ 678}#
-                       (#{wrap-subst\ 134}# #{w2\ 676}#)))))))
-           (#{smart-append\ 148}#
-             (lambda (#{m1\ 679}# #{m2\ 680}#)
-               (if (null? #{m2\ 680}#)
-                 #{m1\ 679}#
-                 (append #{m1\ 679}# #{m2\ 680}#))))
-           (#{make-binding-wrap\ 147}#
-             (lambda (#{ids\ 681}# #{labels\ 682}# #{w\ 683}#)
-               (if (null? #{ids\ 681}#)
-                 #{w\ 683}#
-                 (#{make-wrap\ 132}#
-                   (#{wrap-marks\ 133}# #{w\ 683}#)
-                   (cons (let ((#{labelvec\ 684}#
-                                 (list->vector #{labels\ 682}#)))
-                           (let ((#{n\ 685}# (vector-length
-                                               #{labelvec\ 684}#)))
-                             (let ((#{symnamevec\ 686}#
-                                     (make-vector #{n\ 685}#))
-                                   (#{marksvec\ 687}#
-                                     (make-vector #{n\ 685}#)))
+           (#{join-marks\ 3694}#
+             (lambda (#{m1\ 4217}# #{m2\ 4218}#)
+               (#{smart-append\ 3692}#
+                 #{m1\ 4217}#
+                 #{m2\ 4218}#)))
+           (#{join-wraps\ 3693}#
+             (lambda (#{w1\ 4219}# #{w2\ 4220}#)
+               (let ((#{m1\ 4221}#
+                       (#{wrap-marks\ 3677}# #{w1\ 4219}#))
+                     (#{s1\ 4222}#
+                       (#{wrap-subst\ 3678}# #{w1\ 4219}#)))
+                 (if (null? #{m1\ 4221}#)
+                   (if (null? #{s1\ 4222}#)
+                     #{w2\ 4220}#
+                     (#{make-wrap\ 3676}#
+                       (#{wrap-marks\ 3677}# #{w2\ 4220}#)
+                       (#{smart-append\ 3692}#
+                         #{s1\ 4222}#
+                         (#{wrap-subst\ 3678}# #{w2\ 4220}#))))
+                   (#{make-wrap\ 3676}#
+                     (#{smart-append\ 3692}#
+                       #{m1\ 4221}#
+                       (#{wrap-marks\ 3677}# #{w2\ 4220}#))
+                     (#{smart-append\ 3692}#
+                       #{s1\ 4222}#
+                       (#{wrap-subst\ 3678}# #{w2\ 4220}#)))))))
+           (#{smart-append\ 3692}#
+             (lambda (#{m1\ 4223}# #{m2\ 4224}#)
+               (if (null? #{m2\ 4224}#)
+                 #{m1\ 4223}#
+                 (append #{m1\ 4223}# #{m2\ 4224}#))))
+           (#{make-binding-wrap\ 3691}#
+             (lambda (#{ids\ 4225}# #{labels\ 4226}# #{w\ 4227}#)
+               (if (null? #{ids\ 4225}#)
+                 #{w\ 4227}#
+                 (#{make-wrap\ 3676}#
+                   (#{wrap-marks\ 3677}# #{w\ 4227}#)
+                   (cons (let ((#{labelvec\ 4228}#
+                                 (list->vector #{labels\ 4226}#)))
+                           (let ((#{n\ 4229}#
+                                   (vector-length #{labelvec\ 4228}#)))
+                             (let ((#{symnamevec\ 4230}#
+                                     (make-vector #{n\ 4229}#))
+                                   (#{marksvec\ 4231}#
+                                     (make-vector #{n\ 4229}#)))
                                (begin
-                                 (letrec ((#{f\ 688}# (lambda (#{ids\ 689}#
-                                                               #{i\ 690}#)
-                                                        (if (not (null? #{ids\ 
689}#))
-                                                          (call-with-values
-                                                            (lambda ()
-                                                              
(#{id-sym-name&marks\ 131}#
-                                                                (car #{ids\ 
689}#)
-                                                                #{w\ 683}#))
-                                                            (lambda 
(#{symname\ 691}#
-                                                                     #{marks\ 
692}#)
-                                                              (begin
-                                                                (vector-set!
-                                                                  
#{symnamevec\ 686}#
-                                                                  #{i\ 690}#
-                                                                  #{symname\ 
691}#)
-                                                                (vector-set!
-                                                                  #{marksvec\ 
687}#
-                                                                  #{i\ 690}#
-                                                                  #{marks\ 
692}#)
-                                                                (#{f\ 688}# 
(cdr #{ids\ 689}#)
-                                                                            
(#{fx+\ 85}#
-                                                                              
#{i\ 690}#
-                                                                              
1)))))))))
-                                   (#{f\ 688}# #{ids\ 681}# 0))
-                                 (#{make-ribcage\ 137}#
-                                   #{symnamevec\ 686}#
-                                   #{marksvec\ 687}#
-                                   #{labelvec\ 684}#)))))
-                         (#{wrap-subst\ 134}# #{w\ 683}#))))))
-           (#{extend-ribcage!\ 146}#
-             (lambda (#{ribcage\ 693}# #{id\ 694}# #{label\ 695}#)
+                                 (letrec ((#{f\ 4232}#
+                                            (lambda (#{ids\ 4233}# #{i\ 4234}#)
+                                              (if (not (null? #{ids\ 4233}#))
+                                                (call-with-values
+                                                  (lambda ()
+                                                    (#{id-sym-name&marks\ 
3675}#
+                                                      (car #{ids\ 4233}#)
+                                                      #{w\ 4227}#))
+                                                  (lambda (#{symname\ 4235}#
+                                                           #{marks\ 4236}#)
+                                                    (begin
+                                                      (vector-set!
+                                                        #{symnamevec\ 4230}#
+                                                        #{i\ 4234}#
+                                                        #{symname\ 4235}#)
+                                                      (vector-set!
+                                                        #{marksvec\ 4231}#
+                                                        #{i\ 4234}#
+                                                        #{marks\ 4236}#)
+                                                      (#{f\ 4232}#
+                                                        (cdr #{ids\ 4233}#)
+                                                        (#{fx+\ 3629}#
+                                                          #{i\ 4234}#
+                                                          1)))))))))
+                                   (#{f\ 4232}# #{ids\ 4225}# 0))
+                                 (#{make-ribcage\ 3681}#
+                                   #{symnamevec\ 4230}#
+                                   #{marksvec\ 4231}#
+                                   #{labelvec\ 4228}#)))))
+                         (#{wrap-subst\ 3678}# #{w\ 4227}#))))))
+           (#{extend-ribcage!\ 3690}#
+             (lambda (#{ribcage\ 4237}# #{id\ 4238}# #{label\ 4239}#)
                (begin
-                 (#{set-ribcage-symnames!\ 142}#
-                   #{ribcage\ 693}#
-                   (cons (#{syntax-object-expression\ 115}# #{id\ 694}#)
-                         (#{ribcage-symnames\ 139}# #{ribcage\ 693}#)))
-                 (#{set-ribcage-marks!\ 143}#
-                   #{ribcage\ 693}#
-                   (cons (#{wrap-marks\ 133}#
-                           (#{syntax-object-wrap\ 116}# #{id\ 694}#))
-                         (#{ribcage-marks\ 140}# #{ribcage\ 693}#)))
-                 (#{set-ribcage-labels!\ 144}#
-                   #{ribcage\ 693}#
-                   (cons #{label\ 695}#
-                         (#{ribcage-labels\ 141}# #{ribcage\ 693}#))))))
-           (#{anti-mark\ 145}#
-             (lambda (#{w\ 696}#)
-               (#{make-wrap\ 132}#
-                 (cons #f (#{wrap-marks\ 133}# #{w\ 696}#))
+                 (#{set-ribcage-symnames!\ 3686}#
+                   #{ribcage\ 4237}#
+                   (cons (#{syntax-object-expression\ 3659}# #{id\ 4238}#)
+                         (#{ribcage-symnames\ 3683}# #{ribcage\ 4237}#)))
+                 (#{set-ribcage-marks!\ 3687}#
+                   #{ribcage\ 4237}#
+                   (cons (#{wrap-marks\ 3677}#
+                           (#{syntax-object-wrap\ 3660}# #{id\ 4238}#))
+                         (#{ribcage-marks\ 3684}# #{ribcage\ 4237}#)))
+                 (#{set-ribcage-labels!\ 3688}#
+                   #{ribcage\ 4237}#
+                   (cons #{label\ 4239}#
+                         (#{ribcage-labels\ 3685}# #{ribcage\ 4237}#))))))
+           (#{anti-mark\ 3689}#
+             (lambda (#{w\ 4240}#)
+               (#{make-wrap\ 3676}#
+                 (cons #f (#{wrap-marks\ 3677}# #{w\ 4240}#))
                  (cons 'shift
-                       (#{wrap-subst\ 134}# #{w\ 696}#)))))
-           (#{set-ribcage-labels!\ 144}#
-             (lambda (#{x\ 697}# #{update\ 698}#)
-               (vector-set! #{x\ 697}# 3 #{update\ 698}#)))
-           (#{set-ribcage-marks!\ 143}#
-             (lambda (#{x\ 699}# #{update\ 700}#)
-               (vector-set! #{x\ 699}# 2 #{update\ 700}#)))
-           (#{set-ribcage-symnames!\ 142}#
-             (lambda (#{x\ 701}# #{update\ 702}#)
-               (vector-set! #{x\ 701}# 1 #{update\ 702}#)))
-           (#{ribcage-labels\ 141}#
-             (lambda (#{x\ 703}#) (vector-ref #{x\ 703}# 3)))
-           (#{ribcage-marks\ 140}#
-             (lambda (#{x\ 704}#) (vector-ref #{x\ 704}# 2)))
-           (#{ribcage-symnames\ 139}#
-             (lambda (#{x\ 705}#) (vector-ref #{x\ 705}# 1)))
-           (#{ribcage?\ 138}#
-             (lambda (#{x\ 706}#)
-               (if (vector? #{x\ 706}#)
-                 (if (= (vector-length #{x\ 706}#) 4)
-                   (eq? (vector-ref #{x\ 706}# 0) (quote ribcage))
+                       (#{wrap-subst\ 3678}# #{w\ 4240}#)))))
+           (#{set-ribcage-labels!\ 3688}#
+             (lambda (#{x\ 4241}# #{update\ 4242}#)
+               (vector-set! #{x\ 4241}# 3 #{update\ 4242}#)))
+           (#{set-ribcage-marks!\ 3687}#
+             (lambda (#{x\ 4243}# #{update\ 4244}#)
+               (vector-set! #{x\ 4243}# 2 #{update\ 4244}#)))
+           (#{set-ribcage-symnames!\ 3686}#
+             (lambda (#{x\ 4245}# #{update\ 4246}#)
+               (vector-set! #{x\ 4245}# 1 #{update\ 4246}#)))
+           (#{ribcage-labels\ 3685}#
+             (lambda (#{x\ 4247}#) (vector-ref #{x\ 4247}# 3)))
+           (#{ribcage-marks\ 3684}#
+             (lambda (#{x\ 4248}#) (vector-ref #{x\ 4248}# 2)))
+           (#{ribcage-symnames\ 3683}#
+             (lambda (#{x\ 4249}#) (vector-ref #{x\ 4249}# 1)))
+           (#{ribcage?\ 3682}#
+             (lambda (#{x\ 4250}#)
+               (if (vector? #{x\ 4250}#)
+                 (if (= (vector-length #{x\ 4250}#) 4)
+                   (eq? (vector-ref #{x\ 4250}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 137}#
-             (lambda (#{symnames\ 707}#
-                      #{marks\ 708}#
-                      #{labels\ 709}#)
+           (#{make-ribcage\ 3681}#
+             (lambda (#{symnames\ 4251}#
+                      #{marks\ 4252}#
+                      #{labels\ 4253}#)
                (vector
                  'ribcage
-                 #{symnames\ 707}#
-                 #{marks\ 708}#
-                 #{labels\ 709}#)))
-           (#{gen-labels\ 136}#
-             (lambda (#{ls\ 710}#)
-               (if (null? #{ls\ 710}#)
+                 #{symnames\ 4251}#
+                 #{marks\ 4252}#
+                 #{labels\ 4253}#)))
+           (#{gen-labels\ 3680}#
+             (lambda (#{ls\ 4254}#)
+               (if (null? #{ls\ 4254}#)
                  '()
-                 (cons (#{gen-label\ 135}#)
-                       (#{gen-labels\ 136}# (cdr #{ls\ 710}#))))))
-           (#{gen-label\ 135}# (lambda () (string #\i)))
-           (#{wrap-subst\ 134}# cdr)
-           (#{wrap-marks\ 133}# car)
-           (#{make-wrap\ 132}# cons)
-           (#{id-sym-name&marks\ 131}#
-             (lambda (#{x\ 711}# #{w\ 712}#)
-               (if (#{syntax-object?\ 114}# #{x\ 711}#)
+                 (cons (#{gen-label\ 3679}#)
+                       (#{gen-labels\ 3680}# (cdr #{ls\ 4254}#))))))
+           (#{gen-label\ 3679}# (lambda () (string #\i)))
+           (#{wrap-subst\ 3678}# cdr)
+           (#{wrap-marks\ 3677}# car)
+           (#{make-wrap\ 3676}# cons)
+           (#{id-sym-name&marks\ 3675}#
+             (lambda (#{x\ 4255}# #{w\ 4256}#)
+               (if (#{syntax-object?\ 3658}# #{x\ 4255}#)
                  (values
-                   (#{syntax-object-expression\ 115}# #{x\ 711}#)
-                   (#{join-marks\ 150}#
-                     (#{wrap-marks\ 133}# #{w\ 712}#)
-                     (#{wrap-marks\ 133}#
-                       (#{syntax-object-wrap\ 116}# #{x\ 711}#))))
+                   (#{syntax-object-expression\ 3659}# #{x\ 4255}#)
+                   (#{join-marks\ 3694}#
+                     (#{wrap-marks\ 3677}# #{w\ 4256}#)
+                     (#{wrap-marks\ 3677}#
+                       (#{syntax-object-wrap\ 3660}# #{x\ 4255}#))))
                  (values
-                   #{x\ 711}#
-                   (#{wrap-marks\ 133}# #{w\ 712}#)))))
-           (#{id?\ 130}#
-             (lambda (#{x\ 713}#)
-               (if (symbol? #{x\ 713}#)
+                   #{x\ 4255}#
+                   (#{wrap-marks\ 3677}# #{w\ 4256}#)))))
+           (#{id?\ 3674}#
+             (lambda (#{x\ 4257}#)
+               (if (symbol? #{x\ 4257}#)
                  #t
-                 (if (#{syntax-object?\ 114}# #{x\ 713}#)
+                 (if (#{syntax-object?\ 3658}# #{x\ 4257}#)
                    (symbol?
-                     (#{syntax-object-expression\ 115}# #{x\ 713}#))
+                     (#{syntax-object-expression\ 3659}# #{x\ 4257}#))
                    #f))))
-           (#{nonsymbol-id?\ 129}#
-             (lambda (#{x\ 714}#)
-               (if (#{syntax-object?\ 114}# #{x\ 714}#)
+           (#{nonsymbol-id?\ 3673}#
+             (lambda (#{x\ 4258}#)
+               (if (#{syntax-object?\ 3658}# #{x\ 4258}#)
                  (symbol?
-                   (#{syntax-object-expression\ 115}# #{x\ 714}#))
+                   (#{syntax-object-expression\ 3659}# #{x\ 4258}#))
                  #f)))
-           (#{global-extend\ 128}#
-             (lambda (#{type\ 715}# #{sym\ 716}# #{val\ 717}#)
-               (#{put-global-definition-hook\ 91}#
-                 #{sym\ 716}#
-                 #{type\ 715}#
-                 #{val\ 717}#)))
-           (#{lookup\ 127}#
-             (lambda (#{x\ 718}# #{r\ 719}# #{mod\ 720}#)
-               (let ((#{t\ 721}# (assq #{x\ 718}# #{r\ 719}#)))
-                 (if #{t\ 721}#
-                   (cdr #{t\ 721}#)
-                   (if (symbol? #{x\ 718}#)
-                     (let ((#{t\ 722}# (#{get-global-definition-hook\ 92}#
-                                         #{x\ 718}#
-                                         #{mod\ 720}#)))
-                       (if #{t\ 722}# #{t\ 722}# (quote (global))))
+           (#{global-extend\ 3672}#
+             (lambda (#{type\ 4259}# #{sym\ 4260}# #{val\ 4261}#)
+               (#{put-global-definition-hook\ 3635}#
+                 #{sym\ 4260}#
+                 #{type\ 4259}#
+                 #{val\ 4261}#)))
+           (#{lookup\ 3671}#
+             (lambda (#{x\ 4262}# #{r\ 4263}# #{mod\ 4264}#)
+               (let ((#{t\ 4265}# (assq #{x\ 4262}# #{r\ 4263}#)))
+                 (if #{t\ 4265}#
+                   (cdr #{t\ 4265}#)
+                   (if (symbol? #{x\ 4262}#)
+                     (let ((#{t\ 4266}#
+                             (#{get-global-definition-hook\ 3636}#
+                               #{x\ 4262}#
+                               #{mod\ 4264}#)))
+                       (if #{t\ 4266}# #{t\ 4266}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 126}#
-             (lambda (#{r\ 723}#)
-               (if (null? #{r\ 723}#)
+           (#{macros-only-env\ 3670}#
+             (lambda (#{r\ 4267}#)
+               (if (null? #{r\ 4267}#)
                  '()
-                 (let ((#{a\ 724}# (car #{r\ 723}#)))
-                   (if (eq? (cadr #{a\ 724}#) (quote macro))
-                     (cons #{a\ 724}#
-                           (#{macros-only-env\ 126}# (cdr #{r\ 723}#)))
-                     (#{macros-only-env\ 126}# (cdr #{r\ 723}#)))))))
-           (#{extend-var-env\ 125}#
-             (lambda (#{labels\ 725}# #{vars\ 726}# #{r\ 727}#)
-               (if (null? #{labels\ 725}#)
-                 #{r\ 727}#
-                 (#{extend-var-env\ 125}#
-                   (cdr #{labels\ 725}#)
-                   (cdr #{vars\ 726}#)
-                   (cons (cons (car #{labels\ 725}#)
-                               (cons (quote lexical) (car #{vars\ 726}#)))
-                         #{r\ 727}#)))))
-           (#{extend-env\ 124}#
-             (lambda (#{labels\ 728}# #{bindings\ 729}# #{r\ 730}#)
-               (if (null? #{labels\ 728}#)
-                 #{r\ 730}#
-                 (#{extend-env\ 124}#
-                   (cdr #{labels\ 728}#)
-                   (cdr #{bindings\ 729}#)
-                   (cons (cons (car #{labels\ 728}#)
-                               (car #{bindings\ 729}#))
-                         #{r\ 730}#)))))
-           (#{binding-value\ 123}# cdr)
-           (#{binding-type\ 122}# car)
-           (#{source-annotation\ 121}#
-             (lambda (#{x\ 731}#)
-               (if (#{syntax-object?\ 114}# #{x\ 731}#)
-                 (#{source-annotation\ 121}#
-                   (#{syntax-object-expression\ 115}# #{x\ 731}#))
-                 (if (pair? #{x\ 731}#)
-                   (let ((#{props\ 732}# (source-properties #{x\ 731}#)))
-                     (if (pair? #{props\ 732}#) #{props\ 732}# #f))
+                 (let ((#{a\ 4268}# (car #{r\ 4267}#)))
+                   (if (eq? (cadr #{a\ 4268}#) (quote macro))
+                     (cons #{a\ 4268}#
+                           (#{macros-only-env\ 3670}# (cdr #{r\ 4267}#)))
+                     (#{macros-only-env\ 3670}# (cdr #{r\ 4267}#)))))))
+           (#{extend-var-env\ 3669}#
+             (lambda (#{labels\ 4269}# #{vars\ 4270}# #{r\ 4271}#)
+               (if (null? #{labels\ 4269}#)
+                 #{r\ 4271}#
+                 (#{extend-var-env\ 3669}#
+                   (cdr #{labels\ 4269}#)
+                   (cdr #{vars\ 4270}#)
+                   (cons (cons (car #{labels\ 4269}#)
+                               (cons (quote lexical) (car #{vars\ 4270}#)))
+                         #{r\ 4271}#)))))
+           (#{extend-env\ 3668}#
+             (lambda (#{labels\ 4272}# #{bindings\ 4273}# #{r\ 4274}#)
+               (if (null? #{labels\ 4272}#)
+                 #{r\ 4274}#
+                 (#{extend-env\ 3668}#
+                   (cdr #{labels\ 4272}#)
+                   (cdr #{bindings\ 4273}#)
+                   (cons (cons (car #{labels\ 4272}#)
+                               (car #{bindings\ 4273}#))
+                         #{r\ 4274}#)))))
+           (#{binding-value\ 3667}# cdr)
+           (#{binding-type\ 3666}# car)
+           (#{source-annotation\ 3665}#
+             (lambda (#{x\ 4275}#)
+               (if (#{syntax-object?\ 3658}# #{x\ 4275}#)
+                 (#{source-annotation\ 3665}#
+                   (#{syntax-object-expression\ 3659}# #{x\ 4275}#))
+                 (if (pair? #{x\ 4275}#)
+                   (let ((#{props\ 4276}# (source-properties #{x\ 4275}#)))
+                     (if (pair? #{props\ 4276}#) #{props\ 4276}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 120}#
-             (lambda (#{x\ 733}# #{update\ 734}#)
-               (vector-set! #{x\ 733}# 3 #{update\ 734}#)))
-           (#{set-syntax-object-wrap!\ 119}#
-             (lambda (#{x\ 735}# #{update\ 736}#)
-               (vector-set! #{x\ 735}# 2 #{update\ 736}#)))
-           (#{set-syntax-object-expression!\ 118}#
-             (lambda (#{x\ 737}# #{update\ 738}#)
-               (vector-set! #{x\ 737}# 1 #{update\ 738}#)))
-           (#{syntax-object-module\ 117}#
-             (lambda (#{x\ 739}#) (vector-ref #{x\ 739}# 3)))
-           (#{syntax-object-wrap\ 116}#
-             (lambda (#{x\ 740}#) (vector-ref #{x\ 740}# 2)))
-           (#{syntax-object-expression\ 115}#
-             (lambda (#{x\ 741}#) (vector-ref #{x\ 741}# 1)))
-           (#{syntax-object?\ 114}#
-             (lambda (#{x\ 742}#)
-               (if (vector? #{x\ 742}#)
-                 (if (= (vector-length #{x\ 742}#) 4)
-                   (eq? (vector-ref #{x\ 742}# 0)
+           (#{set-syntax-object-module!\ 3664}#
+             (lambda (#{x\ 4277}# #{update\ 4278}#)
+               (vector-set! #{x\ 4277}# 3 #{update\ 4278}#)))
+           (#{set-syntax-object-wrap!\ 3663}#
+             (lambda (#{x\ 4279}# #{update\ 4280}#)
+               (vector-set! #{x\ 4279}# 2 #{update\ 4280}#)))
+           (#{set-syntax-object-expression!\ 3662}#
+             (lambda (#{x\ 4281}# #{update\ 4282}#)
+               (vector-set! #{x\ 4281}# 1 #{update\ 4282}#)))
+           (#{syntax-object-module\ 3661}#
+             (lambda (#{x\ 4283}#) (vector-ref #{x\ 4283}# 3)))
+           (#{syntax-object-wrap\ 3660}#
+             (lambda (#{x\ 4284}#) (vector-ref #{x\ 4284}# 2)))
+           (#{syntax-object-expression\ 3659}#
+             (lambda (#{x\ 4285}#) (vector-ref #{x\ 4285}# 1)))
+           (#{syntax-object?\ 3658}#
+             (lambda (#{x\ 4286}#)
+               (if (vector? #{x\ 4286}#)
+                 (if (= (vector-length #{x\ 4286}#) 4)
+                   (eq? (vector-ref #{x\ 4286}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 113}#
-             (lambda (#{expression\ 743}#
-                      #{wrap\ 744}#
-                      #{module\ 745}#)
+           (#{make-syntax-object\ 3657}#
+             (lambda (#{expression\ 4287}#
+                      #{wrap\ 4288}#
+                      #{module\ 4289}#)
                (vector
                  'syntax-object
-                 #{expression\ 743}#
-                 #{wrap\ 744}#
-                 #{module\ 745}#)))
-           (#{build-letrec\ 112}#
-             (lambda (#{src\ 746}#
-                      #{ids\ 747}#
-                      #{vars\ 748}#
-                      #{val-exps\ 749}#
-                      #{body-exp\ 750}#)
-               (if (null? #{vars\ 748}#)
-                 #{body-exp\ 750}#
-                 (let ((#{atom-key\ 751}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 751}# (quote (c)))
+                 #{expression\ 4287}#
+                 #{wrap\ 4288}#
+                 #{module\ 4289}#)))
+           (#{build-letrec\ 3656}#
+             (lambda (#{src\ 4290}#
+                      #{ids\ 4291}#
+                      #{vars\ 4292}#
+                      #{val-exps\ 4293}#
+                      #{body-exp\ 4294}#)
+               (if (null? #{vars\ 4292}#)
+                 #{body-exp\ 4294}#
+                 (let ((#{atom-key\ 4295}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4295}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 102}#
-                         #{ids\ 747}#
-                         #{val-exps\ 749}#)
+                         #{maybe-name-value!\ 3646}#
+                         #{ids\ 4291}#
+                         #{val-exps\ 4293}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 746}#
-                        #{ids\ 747}#
-                        #{vars\ 748}#
-                        #{val-exps\ 749}#
-                        #{body-exp\ 750}#))
-                     (#{decorate-source\ 93}#
+                        #{src\ 4290}#
+                        #{ids\ 4291}#
+                        #{vars\ 4292}#
+                        #{val-exps\ 4293}#
+                        #{body-exp\ 4294}#))
+                     (#{decorate-source\ 3637}#
                        (list 'letrec
-                             (map list #{vars\ 748}# #{val-exps\ 749}#)
-                             #{body-exp\ 750}#)
-                       #{src\ 746}#))))))
-           (#{build-named-let\ 111}#
-             (lambda (#{src\ 752}#
-                      #{ids\ 753}#
-                      #{vars\ 754}#
-                      #{val-exps\ 755}#
-                      #{body-exp\ 756}#)
-               (let ((#{f\ 757}# (car #{vars\ 754}#))
-                     (#{f-name\ 758}# (car #{ids\ 753}#))
-                     (#{vars\ 759}# (cdr #{vars\ 754}#))
-                     (#{ids\ 760}# (cdr #{ids\ 753}#)))
-                 (let ((#{atom-key\ 761}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 761}# (quote (c)))
-                     (let ((#{proc\ 762}#
-                             (#{build-simple-lambda\ 104}#
-                               #{src\ 752}#
-                               #{ids\ 760}#
+                             (map list #{vars\ 4292}# #{val-exps\ 4293}#)
+                             #{body-exp\ 4294}#)
+                       #{src\ 4290}#))))))
+           (#{build-named-let\ 3655}#
+             (lambda (#{src\ 4296}#
+                      #{ids\ 4297}#
+                      #{vars\ 4298}#
+                      #{val-exps\ 4299}#
+                      #{body-exp\ 4300}#)
+               (let ((#{f\ 4301}# (car #{vars\ 4298}#))
+                     (#{f-name\ 4302}# (car #{ids\ 4297}#))
+                     (#{vars\ 4303}# (cdr #{vars\ 4298}#))
+                     (#{ids\ 4304}# (cdr #{ids\ 4297}#)))
+                 (let ((#{atom-key\ 4305}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4305}# (quote (c)))
+                     (let ((#{proc\ 4306}#
+                             (#{build-simple-lambda\ 3648}#
+                               #{src\ 4296}#
+                               #{ids\ 4304}#
                                #f
-                               #{vars\ 759}#
+                               #{vars\ 4303}#
                                #f
-                               #{body-exp\ 756}#)))
+                               #{body-exp\ 4300}#)))
                        (begin
-                         (#{maybe-name-value!\ 102}#
-                           #{f-name\ 758}#
-                           #{proc\ 762}#)
+                         (#{maybe-name-value!\ 3646}#
+                           #{f-name\ 4302}#
+                           #{proc\ 4306}#)
                          (for-each
-                           #{maybe-name-value!\ 102}#
-                           #{ids\ 760}#
-                           #{val-exps\ 755}#)
+                           #{maybe-name-value!\ 3646}#
+                           #{ids\ 4304}#
+                           #{val-exps\ 4299}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 752}#
-                          (list #{f-name\ 758}#)
-                          (list #{f\ 757}#)
-                          (list #{proc\ 762}#)
-                          (#{build-application\ 95}#
-                            #{src\ 752}#
-                            (#{build-lexical-reference\ 97}#
+                          #{src\ 4296}#
+                          (list #{f-name\ 4302}#)
+                          (list #{f\ 4301}#)
+                          (list #{proc\ 4306}#)
+                          (#{build-application\ 3639}#
+                            #{src\ 4296}#
+                            (#{build-lexical-reference\ 3641}#
                               'fun
-                              #{src\ 752}#
-                              #{f-name\ 758}#
-                              #{f\ 757}#)
-                            #{val-exps\ 755}#))))
-                     (#{decorate-source\ 93}#
+                              #{src\ 4296}#
+                              #{f-name\ 4302}#
+                              #{f\ 4301}#)
+                            #{val-exps\ 4299}#))))
+                     (#{decorate-source\ 3637}#
                        (list 'let
-                             #{f\ 757}#
-                             (map list #{vars\ 759}# #{val-exps\ 755}#)
-                             #{body-exp\ 756}#)
-                       #{src\ 752}#))))))
-           (#{build-let\ 110}#
-             (lambda (#{src\ 763}#
-                      #{ids\ 764}#
-                      #{vars\ 765}#
-                      #{val-exps\ 766}#
-                      #{body-exp\ 767}#)
-               (if (null? #{vars\ 765}#)
-                 #{body-exp\ 767}#
-                 (let ((#{atom-key\ 768}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 768}# (quote (c)))
+                             #{f\ 4301}#
+                             (map list #{vars\ 4303}# #{val-exps\ 4299}#)
+                             #{body-exp\ 4300}#)
+                       #{src\ 4296}#))))))
+           (#{build-let\ 3654}#
+             (lambda (#{src\ 4307}#
+                      #{ids\ 4308}#
+                      #{vars\ 4309}#
+                      #{val-exps\ 4310}#
+                      #{body-exp\ 4311}#)
+               (if (null? #{vars\ 4309}#)
+                 #{body-exp\ 4311}#
+                 (let ((#{atom-key\ 4312}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4312}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 102}#
-                         #{ids\ 764}#
-                         #{val-exps\ 766}#)
+                         #{maybe-name-value!\ 3646}#
+                         #{ids\ 4308}#
+                         #{val-exps\ 4310}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 763}#
-                        #{ids\ 764}#
-                        #{vars\ 765}#
-                        #{val-exps\ 766}#
-                        #{body-exp\ 767}#))
-                     (#{decorate-source\ 93}#
+                        #{src\ 4307}#
+                        #{ids\ 4308}#
+                        #{vars\ 4309}#
+                        #{val-exps\ 4310}#
+                        #{body-exp\ 4311}#))
+                     (#{decorate-source\ 3637}#
                        (list 'let
-                             (map list #{vars\ 765}# #{val-exps\ 766}#)
-                             #{body-exp\ 767}#)
-                       #{src\ 763}#))))))
-           (#{build-sequence\ 109}#
-             (lambda (#{src\ 769}# #{exps\ 770}#)
-               (if (null? (cdr #{exps\ 770}#))
-                 (car #{exps\ 770}#)
-                 (let ((#{atom-key\ 771}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 771}# (quote (c)))
+                             (map list #{vars\ 4309}# #{val-exps\ 4310}#)
+                             #{body-exp\ 4311}#)
+                       #{src\ 4307}#))))))
+           (#{build-sequence\ 3653}#
+             (lambda (#{src\ 4313}# #{exps\ 4314}#)
+               (if (null? (cdr #{exps\ 4314}#))
+                 (car #{exps\ 4314}#)
+                 (let ((#{atom-key\ 4315}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4315}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{src\ 769}#
-                      #{exps\ 770}#)
-                     (#{decorate-source\ 93}#
-                       (cons (quote begin) #{exps\ 770}#)
-                       #{src\ 769}#))))))
-           (#{build-data\ 108}#
-             (lambda (#{src\ 772}# #{exp\ 773}#)
-               (let ((#{atom-key\ 774}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 774}# (quote (c)))
+                      #{src\ 4313}#
+                      #{exps\ 4314}#)
+                     (#{decorate-source\ 3637}#
+                       (cons (quote begin) #{exps\ 4314}#)
+                       #{src\ 4313}#))))))
+           (#{build-data\ 3652}#
+             (lambda (#{src\ 4316}# #{exp\ 4317}#)
+               (let ((#{atom-key\ 4318}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4318}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 772}#
-                    #{exp\ 773}#)
-                   (#{decorate-source\ 93}#
-                     (if (if (self-evaluating? #{exp\ 773}#)
-                           (not (vector? #{exp\ 773}#))
+                    #{src\ 4316}#
+                    #{exp\ 4317}#)
+                   (#{decorate-source\ 3637}#
+                     (if (if (self-evaluating? #{exp\ 4317}#)
+                           (not (vector? #{exp\ 4317}#))
                            #f)
-                       #{exp\ 773}#
-                       (list (quote quote) #{exp\ 773}#))
-                     #{src\ 772}#)))))
-           (#{build-primref\ 107}#
-             (lambda (#{src\ 775}# #{name\ 776}#)
+                       #{exp\ 4317}#
+                       (list (quote quote) #{exp\ 4317}#))
+                     #{src\ 4316}#)))))
+           (#{build-primref\ 3651}#
+             (lambda (#{src\ 4319}# #{name\ 4320}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 777}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 777}# (quote (c)))
+                 (let ((#{atom-key\ 4321}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4321}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{src\ 775}#
-                      #{name\ 776}#)
-                     (#{decorate-source\ 93}#
-                       #{name\ 776}#
-                       #{src\ 775}#)))
-                 (let ((#{atom-key\ 778}# (fluid-ref #{*mode*\ 84}#)))
-                   (if (memv #{atom-key\ 778}# (quote (c)))
+                      #{src\ 4319}#
+                      #{name\ 4320}#)
+                     (#{decorate-source\ 3637}#
+                       #{name\ 4320}#
+                       #{src\ 4319}#)))
+                 (let ((#{atom-key\ 4322}# (fluid-ref #{*mode*\ 3628}#)))
+                   (if (memv #{atom-key\ 4322}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 775}#
+                      #{src\ 4319}#
                       '(guile)
-                      #{name\ 776}#
+                      #{name\ 4320}#
                       #f)
-                     (#{decorate-source\ 93}#
-                       (list (quote @@) (quote (guile)) #{name\ 776}#)
-                       #{src\ 775}#))))))
-           (#{build-lambda-case\ 106}#
-             (lambda (#{src\ 779}#
-                      #{req\ 780}#
-                      #{opt\ 781}#
-                      #{rest\ 782}#
-                      #{kw\ 783}#
-                      #{vars\ 784}#
-                      #{predicate\ 785}#
-                      #{body\ 786}#
-                      #{else-case\ 787}#)
-               (let ((#{atom-key\ 788}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 788}# (quote (c)))
+                     (#{decorate-source\ 3637}#
+                       (list (quote @@) (quote (guile)) #{name\ 4320}#)
+                       #{src\ 4319}#))))))
+           (#{build-lambda-case\ 3650}#
+             (lambda (#{src\ 4323}#
+                      #{req\ 4324}#
+                      #{opt\ 4325}#
+                      #{rest\ 4326}#
+                      #{kw\ 4327}#
+                      #{vars\ 4328}#
+                      #{predicate\ 4329}#
+                      #{body\ 4330}#
+                      #{else-case\ 4331}#)
+               (let ((#{atom-key\ 4332}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4332}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{src\ 779}#
-                    #{req\ 780}#
-                    #{opt\ 781}#
-                    #{rest\ 782}#
-                    #{kw\ 783}#
-                    #{vars\ 784}#
-                    #{predicate\ 785}#
-                    #{body\ 786}#
-                    #{else-case\ 787}#)
-                   (let ((#{nkw\ 789}#
-                           (map (lambda (#{x\ 790}#)
-                                  (list 'list
-                                        (car #{x\ 790}#)
-                                        (letrec ((#{lp\ 791}#
-                                                   (lambda (#{vars\ 792}#
-                                                            #{i\ 793}#)
-                                                     (if (null? #{vars\ 792}#)
-                                                       (error "bad kwarg"
-                                                              #{x\ 790}#)
-                                                       (if (eq? (cadr #{x\ 
790}#)
-                                                                (car #{vars\ 
792}#))
-                                                         #{i\ 793}#
-                                                         (#{lp\ 791}#
-                                                           (cdr #{vars\ 792}#)
-                                                           (1+ #{i\ 
793}#)))))))
-                                          (#{lp\ 791}# #{vars\ 784}# 0))
+                    #{src\ 4323}#
+                    #{req\ 4324}#
+                    #{opt\ 4325}#
+                    #{rest\ 4326}#
+                    #{kw\ 4327}#
+                    #{vars\ 4328}#
+                    #{predicate\ 4329}#
+                    #{body\ 4330}#
+                    #{else-case\ 4331}#)
+                   (let ((#{nreq\ 4333}# (length #{req\ 4324}#)))
+                     (let ((#{nopt\ 4334}#
+                             (if #{opt\ 4325}# (length #{opt\ 4325}#) 0)))
+                       (let ((#{rest-idx\ 4335}#
+                               (if #{rest\ 4326}#
+                                 (+ #{nreq\ 4333}# #{nopt\ 4334}#)
+                                 #f)))
+                         (let ((#{opt-inits\ 4336}#
+                                 (map (lambda (#{x\ 4337}#)
                                         (list 'lambda
-                                              '()
-                                              (caddr #{x\ 790}#))))
-                                #{kw\ 783}#)))
-                     (#{decorate-source\ 93}#
-                       (cons (list (cons '(@@ (ice-9 optargs)
-                                              parse-lambda-case)
-                                         (cons (list 'list
-                                                     (length #{req\ 780}#)
-                                                     (length #{opt\ 781}#)
-                                                     (if #{rest\ 782}# #t #f)
-                                                     #{nkw\ 789}#
-                                                     (if #{predicate\ 785}#
-                                                       (error "not yet 
implemented")
-                                                       #f))
-                                               '(%%args)))
-                                   '=>
-                                   (list 'lambda
-                                         #{vars\ 784}#
-                                         #{body\ 786}#))
-                             (let ((#{t\ 794}# #{else-case\ 787}#))
-                               (if #{t\ 794}#
-                                 #{t\ 794}#
-                                 '((%%args
-                                     (error "wrong number of arguments"
-                                            %%args))))))
-                       #{src\ 779}#))))))
-           (#{build-case-lambda\ 105}#
-             (lambda (#{src\ 795}# #{docstring\ 796}# #{body\ 797}#)
-               (let ((#{atom-key\ 798}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 798}# (quote (c)))
+                                              #{vars\ 4328}#
+                                              (cdr #{x\ 4337}#)))
+                                      (let ((#{t\ 4338}# #{opt\ 4325}#))
+                                        (if #{t\ 4338}#
+                                          #{t\ 4338}#
+                                          '())))))
+                           (let ((#{allow-other-keys?\ 4339}#
+                                   (if #{kw\ 4327}# (car #{kw\ 4327}#) #f)))
+                             (let ((#{kw-indices\ 4340}#
+                                     (map (lambda (#{x\ 4341}#)
+                                            (cons (car #{x\ 4341}#)
+                                                  (list-index
+                                                    #{vars\ 4328}#
+                                                    (caddr #{x\ 4341}#))))
+                                          (if #{kw\ 4327}#
+                                            (cdr #{kw\ 4327}#)
+                                            '()))))
+                               (let ((#{kw-inits\ 4342}#
+                                       (sort (filter
+                                               identity
+                                               (map (lambda (#{x\ 4343}#)
+                                                      (if (pair? (cdddr #{x\ 
4343}#))
+                                                        (let ((#{i\ 4344}#
+                                                                (list-index
+                                                                  #{vars\ 
4328}#
+                                                                  (caddr #{x\ 
4343}#))))
+                                                          (if (> (+ #{nreq\ 
4333}#
+                                                                    #{nopt\ 
4334}#)
+                                                                 #{i\ 4344}#)
+                                                            (error "kw init 
for rest arg"
+                                                                   #{x\ 4343}#)
+                                                            (if (if #{rest\ 
4326}#
+                                                                  (= (+ 
#{nreq\ 4333}#
+                                                                        
#{nopt\ 4334}#)
+                                                                     #{i\ 
4344}#)
+                                                                  #f)
+                                                              (error "kw init 
for positional arg"
+                                                                     #{x\ 
4343}#)
+                                                              (list 'lambda
+                                                                    #{vars\ 
4328}#
+                                                                    (cadddr
+                                                                      #{x\ 
4343}#)))))
+                                                        (let ((#{i\ 4345}#
+                                                                (list-index
+                                                                  #{vars\ 
4328}#
+                                                                  (caddr #{x\ 
4343}#))))
+                                                          (if (< (+ #{nreq\ 
4333}#
+                                                                    #{nopt\ 
4334}#)
+                                                                 #{i\ 4345}#)
+                                                            #f
+                                                            (error "missing 
init for kw arg"
+                                                                   #{x\ 
4343}#)))))
+                                                    (if #{kw\ 4327}#
+                                                      (cdr #{kw\ 4327}#)
+                                                      '())))
+                                             (lambda (#{x\ 4346}# #{y\ 4347}#)
+                                               (< (cdr #{x\ 4346}#)
+                                                  (cdr #{y\ 4347}#))))))
+                                 (let ((#{nargs\ 4348}#
+                                         (apply max
+                                                (pk (+ #{nreq\ 4333}#
+                                                       #{nopt\ 4334}#
+                                                       (if #{rest\ 4326}#
+                                                         1
+                                                         0)))
+                                                (map cdr
+                                                     #{kw-indices\ 4340}#))))
+                                   (begin
+                                     (let ((#{t\ 4349}#
+                                             (= #{nargs\ 4348}#
+                                                (length #{vars\ 4328}#)
+                                                (+ #{nreq\ 4333}#
+                                                   (length #{opt-inits\ 4336}#)
+                                                   (if #{rest\ 4326}# 1 0)
+                                                   (length
+                                                     #{kw-inits\ 4342}#)))))
+                                       (if #{t\ 4349}#
+                                         #{t\ 4349}#
+                                         (error "something went wrong"
+                                                #{req\ 4324}#
+                                                #{opt\ 4325}#
+                                                #{rest\ 4326}#
+                                                #{kw\ 4327}#
+                                                #{vars\ 4328}#
+                                                #{nreq\ 4333}#
+                                                #{nopt\ 4334}#
+                                                #{kw-indices\ 4340}#
+                                                #{kw-inits\ 4342}#
+                                                #{nargs\ 4348}#)))
+                                     (#{decorate-source\ 3637}#
+                                       (cons (list (cons '(@@ (ice-9 optargs)
+                                                              
parse-lambda-case)
+                                                         (cons (list 'quote
+                                                                     (list 
#{nreq\ 4333}#
+                                                                           
#{nopt\ 4334}#
+                                                                           
#{rest-idx\ 4335}#
+                                                                           
#{nargs\ 4348}#
+                                                                           
#{allow-other-keys?\ 4339}#
+                                                                           
#{kw-indices\ 4340}#))
+                                                               (cons (cons 
'list
+                                                                           
(append
+                                                                             
#{opt-inits\ 4336}#
+                                                                             
#{kw-inits\ 4342}#))
+                                                                     (cons (if 
#{predicate\ 4329}#
+                                                                             
(list 'lambda
+                                                                               
    #{vars\ 4328}#
+                                                                               
    #{predicate\ 4329}#)
+                                                                             
#f)
+                                                                           
'(%%args)))))
+                                                   '=>
+                                                   (list 'lambda
+                                                         #{vars\ 4328}#
+                                                         #{body\ 4330}#))
+                                             (let ((#{t\ 4350}#
+                                                     #{else-case\ 4331}#))
+                                               (if #{t\ 4350}#
+                                                 #{t\ 4350}#
+                                                 '((%%args
+                                                     (error "wrong number of 
arguments"
+                                                            %%args))))))
+                                       #{src\ 4323}#))))))))))))))
+           (#{build-case-lambda\ 3649}#
+             (lambda (#{src\ 4351}#
+                      #{docstring\ 4352}#
+                      #{body\ 4353}#)
+               (let ((#{atom-key\ 4354}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4354}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 795}#
-                    (if #{docstring\ 796}#
-                      (list (cons (quote documentation) #{docstring\ 796}#))
+                    #{src\ 4351}#
+                    (if #{docstring\ 4352}#
+                      (list (cons (quote documentation) #{docstring\ 4352}#))
                       '())
-                    #{body\ 797}#)
-                   (#{decorate-source\ 93}#
+                    #{body\ 4353}#)
+                   (#{decorate-source\ 3637}#
                      (cons 'lambda
                            (cons '%%args
                                  (append
-                                   (if #{docstring\ 796}#
-                                     (list #{docstring\ 796}#)
+                                   (if #{docstring\ 4352}#
+                                     (list #{docstring\ 4352}#)
                                      '())
-                                   (list (cons (quote cond) #{body\ 797}#)))))
-                     #{src\ 795}#)))))
-           (#{build-simple-lambda\ 104}#
-             (lambda (#{src\ 799}#
-                      #{req\ 800}#
-                      #{rest\ 801}#
-                      #{vars\ 802}#
-                      #{docstring\ 803}#
-                      #{exp\ 804}#)
-               (let ((#{atom-key\ 805}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 805}# (quote (c)))
+                                   (list (cons (quote cond) #{body\ 4353}#)))))
+                     #{src\ 4351}#)))))
+           (#{build-simple-lambda\ 3648}#
+             (lambda (#{src\ 4355}#
+                      #{req\ 4356}#
+                      #{rest\ 4357}#
+                      #{vars\ 4358}#
+                      #{docstring\ 4359}#
+                      #{exp\ 4360}#)
+               (let ((#{atom-key\ 4361}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4361}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 799}#
-                    (if #{docstring\ 803}#
-                      (list (cons (quote documentation) #{docstring\ 803}#))
+                    #{src\ 4355}#
+                    (if #{docstring\ 4359}#
+                      (list (cons (quote documentation) #{docstring\ 4359}#))
                       '())
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 799}#
-                     #{req\ 800}#
+                     #{src\ 4355}#
+                     #{req\ 4356}#
                      #f
-                     #{rest\ 801}#
+                     #{rest\ 4357}#
                      #f
-                     #{vars\ 802}#
+                     #{vars\ 4358}#
                      #f
-                     #{exp\ 804}#
+                     #{exp\ 4360}#
                      #f))
-                   (#{decorate-source\ 93}#
+                   (#{decorate-source\ 3637}#
                      (cons 'lambda
-                           (cons (if #{rest\ 801}#
-                                   (apply cons* #{vars\ 802}#)
-                                   #{vars\ 802}#)
+                           (cons (if #{rest\ 4357}#
+                                   (apply cons* #{vars\ 4358}#)
+                                   #{vars\ 4358}#)
                                  (append
-                                   (if #{docstring\ 803}#
-                                     (list #{docstring\ 803}#)
+                                   (if #{docstring\ 4359}#
+                                     (list #{docstring\ 4359}#)
                                      '())
-                                   (list #{exp\ 804}#))))
-                     #{src\ 799}#)))))
-           (#{build-global-definition\ 103}#
-             (lambda (#{source\ 806}# #{var\ 807}# #{exp\ 808}#)
-               (let ((#{atom-key\ 809}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 809}# (quote (c)))
+                                   (list #{exp\ 4360}#))))
+                     #{src\ 4355}#)))))
+           (#{build-global-definition\ 3647}#
+             (lambda (#{source\ 4362}# #{var\ 4363}# #{exp\ 4364}#)
+               (let ((#{atom-key\ 4365}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4365}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 102}#
-                       #{var\ 807}#
-                       #{exp\ 808}#)
+                     (#{maybe-name-value!\ 3646}#
+                       #{var\ 4363}#
+                       #{exp\ 4364}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{source\ 806}#
-                      #{var\ 807}#
-                      #{exp\ 808}#))
-                   (#{decorate-source\ 93}#
-                     (list (quote define) #{var\ 807}# #{exp\ 808}#)
-                     #{source\ 806}#)))))
-           (#{maybe-name-value!\ 102}#
-             (lambda (#{name\ 810}# #{val\ 811}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 811}#)
-                 (let ((#{meta\ 812}#
-                         ((@ (language tree-il) lambda-meta) #{val\ 811}#)))
-                   (if (not (assq (quote name) #{meta\ 812}#))
+                      #{source\ 4362}#
+                      #{var\ 4363}#
+                      #{exp\ 4364}#))
+                   (#{decorate-source\ 3637}#
+                     (list (quote define) #{var\ 4363}# #{exp\ 4364}#)
+                     #{source\ 4362}#)))))
+           (#{maybe-name-value!\ 3646}#
+             (lambda (#{name\ 4366}# #{val\ 4367}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 4367}#)
+                 (let ((#{meta\ 4368}#
+                         ((@ (language tree-il) lambda-meta)
+                          #{val\ 4367}#)))
+                   (if (not (assq (quote name) #{meta\ 4368}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 811}#
-                      (acons (quote name) #{name\ 810}# #{meta\ 812}#)))))))
-           (#{build-global-assignment\ 101}#
-             (lambda (#{source\ 813}#
-                      #{var\ 814}#
-                      #{exp\ 815}#
-                      #{mod\ 816}#)
-               (#{analyze-variable\ 99}#
-                 #{mod\ 816}#
-                 #{var\ 814}#
-                 (lambda (#{mod\ 817}# #{var\ 818}# #{public?\ 819}#)
-                   (let ((#{atom-key\ 820}# (fluid-ref #{*mode*\ 84}#)))
-                     (if (memv #{atom-key\ 820}# (quote (c)))
+                      #{val\ 4367}#
+                      (acons 'name
+                             #{name\ 4366}#
+                             #{meta\ 4368}#)))))))
+           (#{build-global-assignment\ 3645}#
+             (lambda (#{source\ 4369}#
+                      #{var\ 4370}#
+                      #{exp\ 4371}#
+                      #{mod\ 4372}#)
+               (#{analyze-variable\ 3643}#
+                 #{mod\ 4372}#
+                 #{var\ 4370}#
+                 (lambda (#{mod\ 4373}# #{var\ 4374}# #{public?\ 4375}#)
+                   (let ((#{atom-key\ 4376}# (fluid-ref #{*mode*\ 3628}#)))
+                     (if (memv #{atom-key\ 4376}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 813}#
-                        #{mod\ 817}#
-                        #{var\ 818}#
-                        #{public?\ 819}#
-                        #{exp\ 815}#)
-                       (#{decorate-source\ 93}#
+                        #{source\ 4369}#
+                        #{mod\ 4373}#
+                        #{var\ 4374}#
+                        #{public?\ 4375}#
+                        #{exp\ 4371}#)
+                       (#{decorate-source\ 3637}#
                          (list 'set!
-                               (list (if #{public?\ 819}# (quote @) (quote @@))
-                                     #{mod\ 817}#
-                                     #{var\ 818}#)
-                               #{exp\ 815}#)
-                         #{source\ 813}#))))
-                 (lambda (#{var\ 821}#)
-                   (let ((#{atom-key\ 822}# (fluid-ref #{*mode*\ 84}#)))
-                     (if (memv #{atom-key\ 822}# (quote (c)))
+                               (list (if #{public?\ 4375}#
+                                       '@
+                                       '@@)
+                                     #{mod\ 4373}#
+                                     #{var\ 4374}#)
+                               #{exp\ 4371}#)
+                         #{source\ 4369}#))))
+                 (lambda (#{var\ 4377}#)
+                   (let ((#{atom-key\ 4378}# (fluid-ref #{*mode*\ 3628}#)))
+                     (if (memv #{atom-key\ 4378}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{source\ 813}#
-                        #{var\ 821}#
-                        #{exp\ 815}#)
-                       (#{decorate-source\ 93}#
-                         (list (quote set!) #{var\ 821}# #{exp\ 815}#)
-                         #{source\ 813}#)))))))
-           (#{build-global-reference\ 100}#
-             (lambda (#{source\ 823}# #{var\ 824}# #{mod\ 825}#)
-               (#{analyze-variable\ 99}#
-                 #{mod\ 825}#
-                 #{var\ 824}#
-                 (lambda (#{mod\ 826}# #{var\ 827}# #{public?\ 828}#)
-                   (let ((#{atom-key\ 829}# (fluid-ref #{*mode*\ 84}#)))
-                     (if (memv #{atom-key\ 829}# (quote (c)))
+                        #{source\ 4369}#
+                        #{var\ 4377}#
+                        #{exp\ 4371}#)
+                       (#{decorate-source\ 3637}#
+                         (list (quote set!) #{var\ 4377}# #{exp\ 4371}#)
+                         #{source\ 4369}#)))))))
+           (#{build-global-reference\ 3644}#
+             (lambda (#{source\ 4379}# #{var\ 4380}# #{mod\ 4381}#)
+               (#{analyze-variable\ 3643}#
+                 #{mod\ 4381}#
+                 #{var\ 4380}#
+                 (lambda (#{mod\ 4382}# #{var\ 4383}# #{public?\ 4384}#)
+                   (let ((#{atom-key\ 4385}# (fluid-ref #{*mode*\ 3628}#)))
+                     (if (memv #{atom-key\ 4385}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{source\ 823}#
-                        #{mod\ 826}#
-                        #{var\ 827}#
-                        #{public?\ 828}#)
-                       (#{decorate-source\ 93}#
-                         (list (if #{public?\ 828}# (quote @) (quote @@))
-                               #{mod\ 826}#
-                               #{var\ 827}#)
-                         #{source\ 823}#))))
-                 (lambda (#{var\ 830}#)
-                   (let ((#{atom-key\ 831}# (fluid-ref #{*mode*\ 84}#)))
-                     (if (memv #{atom-key\ 831}# (quote (c)))
+                        #{source\ 4379}#
+                        #{mod\ 4382}#
+                        #{var\ 4383}#
+                        #{public?\ 4384}#)
+                       (#{decorate-source\ 3637}#
+                         (list (if #{public?\ 4384}# (quote @) (quote @@))
+                               #{mod\ 4382}#
+                               #{var\ 4383}#)
+                         #{source\ 4379}#))))
+                 (lambda (#{var\ 4386}#)
+                   (let ((#{atom-key\ 4387}# (fluid-ref #{*mode*\ 3628}#)))
+                     (if (memv #{atom-key\ 4387}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{source\ 823}#
-                        #{var\ 830}#)
-                       (#{decorate-source\ 93}#
-                         #{var\ 830}#
-                         #{source\ 823}#)))))))
-           (#{analyze-variable\ 99}#
-             (lambda (#{mod\ 832}#
-                      #{var\ 833}#
-                      #{modref-cont\ 834}#
-                      #{bare-cont\ 835}#)
-               (if (not #{mod\ 832}#)
-                 (#{bare-cont\ 835}# #{var\ 833}#)
-                 (let ((#{kind\ 836}# (car #{mod\ 832}#))
-                       (#{mod\ 837}# (cdr #{mod\ 832}#)))
-                   (if (memv #{kind\ 836}# (quote (public)))
-                     (#{modref-cont\ 834}#
-                       #{mod\ 837}#
-                       #{var\ 833}#
+                        #{source\ 4379}#
+                        #{var\ 4386}#)
+                       (#{decorate-source\ 3637}#
+                         #{var\ 4386}#
+                         #{source\ 4379}#)))))))
+           (#{analyze-variable\ 3643}#
+             (lambda (#{mod\ 4388}#
+                      #{var\ 4389}#
+                      #{modref-cont\ 4390}#
+                      #{bare-cont\ 4391}#)
+               (if (not #{mod\ 4388}#)
+                 (#{bare-cont\ 4391}# #{var\ 4389}#)
+                 (let ((#{kind\ 4392}# (car #{mod\ 4388}#))
+                       (#{mod\ 4393}# (cdr #{mod\ 4388}#)))
+                   (if (memv #{kind\ 4392}# (quote (public)))
+                     (#{modref-cont\ 4390}#
+                       #{mod\ 4393}#
+                       #{var\ 4389}#
                        #t)
-                     (if (memv #{kind\ 836}# (quote (private)))
+                     (if (memv #{kind\ 4392}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 837}#
+                                  #{mod\ 4393}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 834}#
-                           #{mod\ 837}#
-                           #{var\ 833}#
+                         (#{modref-cont\ 4390}#
+                           #{mod\ 4393}#
+                           #{var\ 4389}#
                            #f)
-                         (#{bare-cont\ 835}# #{var\ 833}#))
-                       (if (memv #{kind\ 836}# (quote (bare)))
-                         (#{bare-cont\ 835}# #{var\ 833}#)
-                         (if (memv #{kind\ 836}# (quote (hygiene)))
+                         (#{bare-cont\ 4391}# #{var\ 4389}#))
+                       (if (memv #{kind\ 4392}# (quote (bare)))
+                         (#{bare-cont\ 4391}# #{var\ 4389}#)
+                         (if (memv #{kind\ 4392}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 837}#
+                                          #{mod\ 4393}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 837}#)
-                                   #{var\ 833}#)
+                                   (resolve-module #{mod\ 4393}#)
+                                   #{var\ 4389}#)
                                  #f)
-                             (#{modref-cont\ 834}#
-                               #{mod\ 837}#
-                               #{var\ 833}#
+                             (#{modref-cont\ 4390}#
+                               #{mod\ 4393}#
+                               #{var\ 4389}#
                                #f)
-                             (#{bare-cont\ 835}# #{var\ 833}#))
+                             (#{bare-cont\ 4391}# #{var\ 4389}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 833}#
-                             #{mod\ 837}#)))))))))
-           (#{build-lexical-assignment\ 98}#
-             (lambda (#{source\ 838}#
-                      #{name\ 839}#
-                      #{var\ 840}#
-                      #{exp\ 841}#)
-               (let ((#{atom-key\ 842}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 842}# (quote (c)))
+                             #{var\ 4389}#
+                             #{mod\ 4393}#)))))))))
+           (#{build-lexical-assignment\ 3642}#
+             (lambda (#{source\ 4394}#
+                      #{name\ 4395}#
+                      #{var\ 4396}#
+                      #{exp\ 4397}#)
+               (let ((#{atom-key\ 4398}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4398}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{source\ 838}#
-                    #{name\ 839}#
-                    #{var\ 840}#
-                    #{exp\ 841}#)
-                   (#{decorate-source\ 93}#
-                     (list (quote set!) #{var\ 840}# #{exp\ 841}#)
-                     #{source\ 838}#)))))
-           (#{build-lexical-reference\ 97}#
-             (lambda (#{type\ 843}#
-                      #{source\ 844}#
-                      #{name\ 845}#
-                      #{var\ 846}#)
-               (let ((#{atom-key\ 847}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 847}# (quote (c)))
+                    #{source\ 4394}#
+                    #{name\ 4395}#
+                    #{var\ 4396}#
+                    #{exp\ 4397}#)
+                   (#{decorate-source\ 3637}#
+                     (list (quote set!) #{var\ 4396}# #{exp\ 4397}#)
+                     #{source\ 4394}#)))))
+           (#{build-lexical-reference\ 3641}#
+             (lambda (#{type\ 4399}#
+                      #{source\ 4400}#
+                      #{name\ 4401}#
+                      #{var\ 4402}#)
+               (let ((#{atom-key\ 4403}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4403}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{source\ 844}#
-                    #{name\ 845}#
-                    #{var\ 846}#)
-                   (#{decorate-source\ 93}#
-                     #{var\ 846}#
-                     #{source\ 844}#)))))
-           (#{build-conditional\ 96}#
-             (lambda (#{source\ 848}#
-                      #{test-exp\ 849}#
-                      #{then-exp\ 850}#
-                      #{else-exp\ 851}#)
-               (let ((#{atom-key\ 852}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 852}# (quote (c)))
+                    #{source\ 4400}#
+                    #{name\ 4401}#
+                    #{var\ 4402}#)
+                   (#{decorate-source\ 3637}#
+                     #{var\ 4402}#
+                     #{source\ 4400}#)))))
+           (#{build-conditional\ 3640}#
+             (lambda (#{source\ 4404}#
+                      #{test-exp\ 4405}#
+                      #{then-exp\ 4406}#
+                      #{else-exp\ 4407}#)
+               (let ((#{atom-key\ 4408}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4408}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 848}#
-                    #{test-exp\ 849}#
-                    #{then-exp\ 850}#
-                    #{else-exp\ 851}#)
-                   (#{decorate-source\ 93}#
-                     (if (equal? #{else-exp\ 851}# (quote (if #f #f)))
+                    #{source\ 4404}#
+                    #{test-exp\ 4405}#
+                    #{then-exp\ 4406}#
+                    #{else-exp\ 4407}#)
+                   (#{decorate-source\ 3637}#
+                     (if (equal? #{else-exp\ 4407}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 849}#
-                             #{then-exp\ 850}#)
+                             #{test-exp\ 4405}#
+                             #{then-exp\ 4406}#)
                        (list 'if
-                             #{test-exp\ 849}#
-                             #{then-exp\ 850}#
-                             #{else-exp\ 851}#))
-                     #{source\ 848}#)))))
-           (#{build-application\ 95}#
-             (lambda (#{source\ 853}#
-                      #{fun-exp\ 854}#
-                      #{arg-exps\ 855}#)
-               (let ((#{atom-key\ 856}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 856}# (quote (c)))
+                             #{test-exp\ 4405}#
+                             #{then-exp\ 4406}#
+                             #{else-exp\ 4407}#))
+                     #{source\ 4404}#)))))
+           (#{build-application\ 3639}#
+             (lambda (#{source\ 4409}#
+                      #{fun-exp\ 4410}#
+                      #{arg-exps\ 4411}#)
+               (let ((#{atom-key\ 4412}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4412}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{source\ 853}#
-                    #{fun-exp\ 854}#
-                    #{arg-exps\ 855}#)
-                   (#{decorate-source\ 93}#
-                     (cons #{fun-exp\ 854}# #{arg-exps\ 855}#)
-                     #{source\ 853}#)))))
-           (#{build-void\ 94}#
-             (lambda (#{source\ 857}#)
-               (let ((#{atom-key\ 858}# (fluid-ref #{*mode*\ 84}#)))
-                 (if (memv #{atom-key\ 858}# (quote (c)))
+                    #{source\ 4409}#
+                    #{fun-exp\ 4410}#
+                    #{arg-exps\ 4411}#)
+                   (#{decorate-source\ 3637}#
+                     (cons #{fun-exp\ 4410}# #{arg-exps\ 4411}#)
+                     #{source\ 4409}#)))))
+           (#{build-void\ 3638}#
+             (lambda (#{source\ 4413}#)
+               (let ((#{atom-key\ 4414}# (fluid-ref #{*mode*\ 3628}#)))
+                 (if (memv #{atom-key\ 4414}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 857}#)
-                   (#{decorate-source\ 93}#
+                    #{source\ 4413}#)
+                   (#{decorate-source\ 3637}#
                      '(if #f #f)
-                     #{source\ 857}#)))))
-           (#{decorate-source\ 93}#
-             (lambda (#{e\ 859}# #{s\ 860}#)
+                     #{source\ 4413}#)))))
+           (#{decorate-source\ 3637}#
+             (lambda (#{e\ 4415}# #{s\ 4416}#)
                (begin
-                 (if (if (pair? #{e\ 859}#) #{s\ 860}# #f)
-                   (set-source-properties! #{e\ 859}# #{s\ 860}#))
-                 #{e\ 859}#)))
-           (#{get-global-definition-hook\ 92}#
-             (lambda (#{symbol\ 861}# #{module\ 862}#)
+                 (if (if (pair? #{e\ 4415}#) #{s\ 4416}# #f)
+                   (set-source-properties! #{e\ 4415}# #{s\ 4416}#))
+                 #{e\ 4415}#)))
+           (#{get-global-definition-hook\ 3636}#
+             (lambda (#{symbol\ 4417}# #{module\ 4418}#)
                (begin
-                 (if (if (not #{module\ 862}#) (current-module) #f)
+                 (if (if (not #{module\ 4418}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 861}#))
-                 (let ((#{v\ 863}# (module-variable
-                                     (if #{module\ 862}#
-                                       (resolve-module (cdr #{module\ 862}#))
-                                       (current-module))
-                                     #{symbol\ 861}#)))
-                   (if #{v\ 863}#
-                     (if (variable-bound? #{v\ 863}#)
-                       (let ((#{val\ 864}# (variable-ref #{v\ 863}#)))
-                         (if (macro? #{val\ 864}#)
-                           (if (syncase-macro-type #{val\ 864}#)
-                             (cons (syncase-macro-type #{val\ 864}#)
-                                   (syncase-macro-binding #{val\ 864}#))
+                         #{symbol\ 4417}#))
+                 (let ((#{v\ 4419}#
+                         (module-variable
+                           (if #{module\ 4418}#
+                             (resolve-module (cdr #{module\ 4418}#))
+                             (current-module))
+                           #{symbol\ 4417}#)))
+                   (if #{v\ 4419}#
+                     (if (variable-bound? #{v\ 4419}#)
+                       (let ((#{val\ 4420}# (variable-ref #{v\ 4419}#)))
+                         (if (macro? #{val\ 4420}#)
+                           (if (syncase-macro-type #{val\ 4420}#)
+                             (cons (syncase-macro-type #{val\ 4420}#)
+                                   (syncase-macro-binding #{val\ 4420}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 91}#
-             (lambda (#{symbol\ 865}# #{type\ 866}# #{val\ 867}#)
-               (let ((#{existing\ 868}#
-                       (let ((#{v\ 869}# (module-variable
-                                           (current-module)
-                                           #{symbol\ 865}#)))
-                         (if #{v\ 869}#
-                           (if (variable-bound? #{v\ 869}#)
-                             (let ((#{val\ 870}# (variable-ref #{v\ 869}#)))
-                               (if (macro? #{val\ 870}#)
-                                 (if (not (syncase-macro-type #{val\ 870}#))
-                                   #{val\ 870}#
+           (#{put-global-definition-hook\ 3635}#
+             (lambda (#{symbol\ 4421}# #{type\ 4422}# #{val\ 4423}#)
+               (let ((#{existing\ 4424}#
+                       (let ((#{v\ 4425}#
+                               (module-variable
+                                 (current-module)
+                                 #{symbol\ 4421}#)))
+                         (if #{v\ 4425}#
+                           (if (variable-bound? #{v\ 4425}#)
+                             (let ((#{val\ 4426}# (variable-ref #{v\ 4425}#)))
+                               (if (macro? #{val\ 4426}#)
+                                 (if (not (syncase-macro-type #{val\ 4426}#))
+                                   #{val\ 4426}#
                                    #f)
                                  #f))
                              #f)
                            #f))))
                  (module-define!
                    (current-module)
-                   #{symbol\ 865}#
-                   (if #{existing\ 868}#
+                   #{symbol\ 4421}#
+                   (if #{existing\ 4424}#
                      (make-extended-syncase-macro
-                       #{existing\ 868}#
-                       #{type\ 866}#
-                       #{val\ 867}#)
-                     (make-syncase-macro #{type\ 866}# #{val\ 867}#))))))
-           (#{local-eval-hook\ 90}#
-             (lambda (#{x\ 871}# #{mod\ 872}#)
+                       #{existing\ 4424}#
+                       #{type\ 4422}#
+                       #{val\ 4423}#)
+                     (make-syncase-macro #{type\ 4422}# #{val\ 4423}#))))))
+           (#{local-eval-hook\ 3634}#
+             (lambda (#{x\ 4427}# #{mod\ 4428}#)
                (primitive-eval
-                 (list #{noexpand\ 83}#
-                       (let ((#{atom-key\ 873}# (fluid-ref #{*mode*\ 84}#)))
-                         (if (memv #{atom-key\ 873}# (quote (c)))
+                 (list #{noexpand\ 3627}#
+                       (let ((#{atom-key\ 4429}# (fluid-ref #{*mode*\ 3628}#)))
+                         (if (memv #{atom-key\ 4429}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 871}#)
-                           #{x\ 871}#))))))
-           (#{top-level-eval-hook\ 89}#
-             (lambda (#{x\ 874}# #{mod\ 875}#)
+                            #{x\ 4427}#)
+                           #{x\ 4427}#))))))
+           (#{top-level-eval-hook\ 3633}#
+             (lambda (#{x\ 4430}# #{mod\ 4431}#)
                (primitive-eval
-                 (list #{noexpand\ 83}#
-                       (let ((#{atom-key\ 876}# (fluid-ref #{*mode*\ 84}#)))
-                         (if (memv #{atom-key\ 876}# (quote (c)))
+                 (list #{noexpand\ 3627}#
+                       (let ((#{atom-key\ 4432}# (fluid-ref #{*mode*\ 3628}#)))
+                         (if (memv #{atom-key\ 4432}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 874}#)
-                           #{x\ 874}#))))))
-           (#{fx<\ 88}# <)
-           (#{fx=\ 87}# =)
-           (#{fx-\ 86}# -)
-           (#{fx+\ 85}# +)
-           (#{*mode*\ 84}# (make-fluid))
-           (#{noexpand\ 83}# "noexpand"))
+                            #{x\ 4430}#)
+                           #{x\ 4430}#))))))
+           (#{fx<\ 3632}# <)
+           (#{fx=\ 3631}# =)
+           (#{fx-\ 3630}# -)
+           (#{fx+\ 3629}# +)
+           (#{*mode*\ 3628}# (make-fluid))
+           (#{noexpand\ 3627}# "noexpand"))
     (begin
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 877}#
-                 #{r\ 878}#
-                 #{w\ 879}#
-                 #{s\ 880}#
-                 #{mod\ 881}#)
-          ((lambda (#{tmp\ 882}#)
-             ((lambda (#{tmp\ 883}#)
-                (if (if #{tmp\ 883}#
-                      (apply (lambda (#{_\ 884}#
-                                      #{var\ 885}#
-                                      #{val\ 886}#
-                                      #{e1\ 887}#
-                                      #{e2\ 888}#)
-                               (#{valid-bound-ids?\ 155}# #{var\ 885}#))
-                             #{tmp\ 883}#)
+        (lambda (#{e\ 4433}#
+                 #{r\ 4434}#
+                 #{w\ 4435}#
+                 #{s\ 4436}#
+                 #{mod\ 4437}#)
+          ((lambda (#{tmp\ 4438}#)
+             ((lambda (#{tmp\ 4439}#)
+                (if (if #{tmp\ 4439}#
+                      (apply (lambda (#{_\ 4440}#
+                                      #{var\ 4441}#
+                                      #{val\ 4442}#
+                                      #{e1\ 4443}#
+                                      #{e2\ 4444}#)
+                               (#{valid-bound-ids?\ 3699}# #{var\ 4441}#))
+                             #{tmp\ 4439}#)
                       #f)
-                  (apply (lambda (#{_\ 890}#
-                                  #{var\ 891}#
-                                  #{val\ 892}#
-                                  #{e1\ 893}#
-                                  #{e2\ 894}#)
-                           (let ((#{names\ 895}#
-                                   (map (lambda (#{x\ 896}#)
-                                          (#{id-var-name\ 152}#
-                                            #{x\ 896}#
-                                            #{w\ 879}#))
-                                        #{var\ 891}#)))
+                  (apply (lambda (#{_\ 4446}#
+                                  #{var\ 4447}#
+                                  #{val\ 4448}#
+                                  #{e1\ 4449}#
+                                  #{e2\ 4450}#)
+                           (let ((#{names\ 4451}#
+                                   (map (lambda (#{x\ 4452}#)
+                                          (#{id-var-name\ 3696}#
+                                            #{x\ 4452}#
+                                            #{w\ 4435}#))
+                                        #{var\ 4447}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 898}# #{n\ 899}#)
-                                   (let ((#{atom-key\ 900}#
-                                           (#{binding-type\ 122}#
-                                             (#{lookup\ 127}#
-                                               #{n\ 899}#
-                                               #{r\ 878}#
-                                               #{mod\ 881}#))))
-                                     (if (memv #{atom-key\ 900}#
+                                 (lambda (#{id\ 4454}# #{n\ 4455}#)
+                                   (let ((#{atom-key\ 4456}#
+                                           (#{binding-type\ 3666}#
+                                             (#{lookup\ 3671}#
+                                               #{n\ 4455}#
+                                               #{r\ 4434}#
+                                               #{mod\ 4437}#))))
+                                     (if (memv #{atom-key\ 4456}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 877}#
-                                         (#{source-wrap\ 159}#
-                                           #{id\ 898}#
-                                           #{w\ 879}#
-                                           #{s\ 880}#
-                                           #{mod\ 881}#)))))
-                                 #{var\ 891}#
-                                 #{names\ 895}#)
-                               (#{chi-body\ 170}#
-                                 (cons #{e1\ 893}# #{e2\ 894}#)
-                                 (#{source-wrap\ 159}#
-                                   #{e\ 877}#
-                                   #{w\ 879}#
-                                   #{s\ 880}#
-                                   #{mod\ 881}#)
-                                 (#{extend-env\ 124}#
-                                   #{names\ 895}#
-                                   (let ((#{trans-r\ 903}#
-                                           (#{macros-only-env\ 126}#
-                                             #{r\ 878}#)))
-                                     (map (lambda (#{x\ 904}#)
+                                         #{e\ 4433}#
+                                         (#{source-wrap\ 3703}#
+                                           #{id\ 4454}#
+                                           #{w\ 4435}#
+                                           #{s\ 4436}#
+                                           #{mod\ 4437}#)))))
+                                 #{var\ 4447}#
+                                 #{names\ 4451}#)
+                               (#{chi-body\ 3714}#
+                                 (cons #{e1\ 4449}# #{e2\ 4450}#)
+                                 (#{source-wrap\ 3703}#
+                                   #{e\ 4433}#
+                                   #{w\ 4435}#
+                                   #{s\ 4436}#
+                                   #{mod\ 4437}#)
+                                 (#{extend-env\ 3668}#
+                                   #{names\ 4451}#
+                                   (let ((#{trans-r\ 4459}#
+                                           (#{macros-only-env\ 3670}#
+                                             #{r\ 4434}#)))
+                                     (map (lambda (#{x\ 4460}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
172}#
-                                                    (#{chi\ 166}#
-                                                      #{x\ 904}#
-                                                      #{trans-r\ 903}#
-                                                      #{w\ 879}#
-                                                      #{mod\ 881}#)
-                                                    #{mod\ 881}#)))
-                                          #{val\ 892}#))
-                                   #{r\ 878}#)
-                                 #{w\ 879}#
-                                 #{mod\ 881}#))))
-                         #{tmp\ 883}#)
-                  ((lambda (#{_\ 906}#)
+                                                  (#{eval-local-transformer\ 
3716}#
+                                                    (#{chi\ 3710}#
+                                                      #{x\ 4460}#
+                                                      #{trans-r\ 4459}#
+                                                      #{w\ 4435}#
+                                                      #{mod\ 4437}#)
+                                                    #{mod\ 4437}#)))
+                                          #{val\ 4448}#))
+                                   #{r\ 4434}#)
+                                 #{w\ 4435}#
+                                 #{mod\ 4437}#))))
+                         #{tmp\ 4439}#)
+                  ((lambda (#{_\ 4462}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 159}#
-                         #{e\ 877}#
-                         #{w\ 879}#
-                         #{s\ 880}#
-                         #{mod\ 881}#)))
-                   #{tmp\ 882}#)))
+                       (#{source-wrap\ 3703}#
+                         #{e\ 4433}#
+                         #{w\ 4435}#
+                         #{s\ 4436}#
+                         #{mod\ 4437}#)))
+                   #{tmp\ 4438}#)))
               ($sc-dispatch
-                #{tmp\ 882}#
+                #{tmp\ 4438}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 877}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4433}#)))
+      (#{global-extend\ 3672}#
         'core
         'quote
-        (lambda (#{e\ 907}#
-                 #{r\ 908}#
-                 #{w\ 909}#
-                 #{s\ 910}#
-                 #{mod\ 911}#)
-          ((lambda (#{tmp\ 912}#)
-             ((lambda (#{tmp\ 913}#)
-                (if #{tmp\ 913}#
-                  (apply (lambda (#{_\ 914}# #{e\ 915}#)
-                           (#{build-data\ 108}#
-                             #{s\ 910}#
-                             (#{strip\ 175}# #{e\ 915}# #{w\ 909}#)))
-                         #{tmp\ 913}#)
-                  ((lambda (#{_\ 916}#)
+        (lambda (#{e\ 4463}#
+                 #{r\ 4464}#
+                 #{w\ 4465}#
+                 #{s\ 4466}#
+                 #{mod\ 4467}#)
+          ((lambda (#{tmp\ 4468}#)
+             ((lambda (#{tmp\ 4469}#)
+                (if #{tmp\ 4469}#
+                  (apply (lambda (#{_\ 4470}# #{e\ 4471}#)
+                           (#{build-data\ 3652}#
+                             #{s\ 4466}#
+                             (#{strip\ 3719}# #{e\ 4471}# #{w\ 4465}#)))
+                         #{tmp\ 4469}#)
+                  ((lambda (#{_\ 4472}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 159}#
-                         #{e\ 907}#
-                         #{w\ 909}#
-                         #{s\ 910}#
-                         #{mod\ 911}#)))
-                   #{tmp\ 912}#)))
-              ($sc-dispatch #{tmp\ 912}# (quote (any any)))))
-           #{e\ 907}#)))
-      (#{global-extend\ 128}#
+                       (#{source-wrap\ 3703}#
+                         #{e\ 4463}#
+                         #{w\ 4465}#
+                         #{s\ 4466}#
+                         #{mod\ 4467}#)))
+                   #{tmp\ 4468}#)))
+              ($sc-dispatch #{tmp\ 4468}# (quote (any any)))))
+           #{e\ 4463}#)))
+      (#{global-extend\ 3672}#
         'core
         'syntax
-        (letrec ((#{regen\ 924}#
-                   (lambda (#{x\ 925}#)
-                     (let ((#{atom-key\ 926}# (car #{x\ 925}#)))
-                       (if (memv #{atom-key\ 926}# (quote (ref)))
-                         (#{build-lexical-reference\ 97}#
+        (letrec ((#{regen\ 4480}#
+                   (lambda (#{x\ 4481}#)
+                     (let ((#{atom-key\ 4482}# (car #{x\ 4481}#)))
+                       (if (memv #{atom-key\ 4482}# (quote (ref)))
+                         (#{build-lexical-reference\ 3641}#
                            'value
                            #f
-                           (cadr #{x\ 925}#)
-                           (cadr #{x\ 925}#))
-                         (if (memv #{atom-key\ 926}# (quote (primitive)))
-                           (#{build-primref\ 107}# #f (cadr #{x\ 925}#))
-                           (if (memv #{atom-key\ 926}# (quote (quote)))
-                             (#{build-data\ 108}# #f (cadr #{x\ 925}#))
-                             (if (memv #{atom-key\ 926}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 925}#))
-                                 (#{build-simple-lambda\ 104}#
+                           (cadr #{x\ 4481}#)
+                           (cadr #{x\ 4481}#))
+                         (if (memv #{atom-key\ 4482}# (quote (primitive)))
+                           (#{build-primref\ 3651}# #f (cadr #{x\ 4481}#))
+                           (if (memv #{atom-key\ 4482}# (quote (quote)))
+                             (#{build-data\ 3652}# #f (cadr #{x\ 4481}#))
+                             (if (memv #{atom-key\ 4482}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 4481}#))
+                                 (#{build-simple-lambda\ 3648}#
                                    #f
-                                   (cadr #{x\ 925}#)
+                                   (cadr #{x\ 4481}#)
                                    #f
-                                   (cadr #{x\ 925}#)
+                                   (cadr #{x\ 4481}#)
                                    #f
-                                   (#{regen\ 924}# (caddr #{x\ 925}#)))
-                                 (error "how did we get here" #{x\ 925}#))
-                               (#{build-application\ 95}#
+                                   (#{regen\ 4480}# (caddr #{x\ 4481}#)))
+                                 (error "how did we get here" #{x\ 4481}#))
+                               (#{build-application\ 3639}#
                                  #f
-                                 (#{build-primref\ 107}# #f (car #{x\ 925}#))
-                                 (map #{regen\ 924}# (cdr #{x\ 925}#))))))))))
-                 (#{gen-vector\ 923}#
-                   (lambda (#{x\ 927}#)
-                     (if (eq? (car #{x\ 927}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 927}#))
-                       (if (eq? (car #{x\ 927}#) (quote quote))
+                                 (#{build-primref\ 3651}# #f (car #{x\ 4481}#))
+                                 (map #{regen\ 4480}#
+                                      (cdr #{x\ 4481}#))))))))))
+                 (#{gen-vector\ 4479}#
+                   (lambda (#{x\ 4483}#)
+                     (if (eq? (car #{x\ 4483}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 4483}#))
+                       (if (eq? (car #{x\ 4483}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 927}#)))
-                         (list (quote list->vector) #{x\ 927}#)))))
-                 (#{gen-append\ 922}#
-                   (lambda (#{x\ 928}# #{y\ 929}#)
-                     (if (equal? #{y\ 929}# (quote (quote ())))
-                       #{x\ 928}#
-                       (list (quote append) #{x\ 928}# #{y\ 929}#))))
-                 (#{gen-cons\ 921}#
-                   (lambda (#{x\ 930}# #{y\ 931}#)
-                     (let ((#{atom-key\ 932}# (car #{y\ 931}#)))
-                       (if (memv #{atom-key\ 932}# (quote (quote)))
-                         (if (eq? (car #{x\ 930}#) (quote quote))
+                               (list->vector (cadr #{x\ 4483}#)))
+                         (list (quote list->vector) #{x\ 4483}#)))))
+                 (#{gen-append\ 4478}#
+                   (lambda (#{x\ 4484}# #{y\ 4485}#)
+                     (if (equal? #{y\ 4485}# (quote (quote ())))
+                       #{x\ 4484}#
+                       (list (quote append) #{x\ 4484}# #{y\ 4485}#))))
+                 (#{gen-cons\ 4477}#
+                   (lambda (#{x\ 4486}# #{y\ 4487}#)
+                     (let ((#{atom-key\ 4488}# (car #{y\ 4487}#)))
+                       (if (memv #{atom-key\ 4488}# (quote (quote)))
+                         (if (eq? (car #{x\ 4486}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 930}#) (cadr #{y\ 931}#)))
-                           (if (eq? (cadr #{y\ 931}#) (quote ()))
-                             (list (quote list) #{x\ 930}#)
-                             (list (quote cons) #{x\ 930}# #{y\ 931}#)))
-                         (if (memv #{atom-key\ 932}# (quote (list)))
+                                 (cons (cadr #{x\ 4486}#) (cadr #{y\ 4487}#)))
+                           (if (eq? (cadr #{y\ 4487}#) (quote ()))
+                             (list (quote list) #{x\ 4486}#)
+                             (list (quote cons) #{x\ 4486}# #{y\ 4487}#)))
+                         (if (memv #{atom-key\ 4488}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 930}# (cdr #{y\ 931}#)))
-                           (list (quote cons) #{x\ 930}# #{y\ 931}#))))))
-                 (#{gen-map\ 920}#
-                   (lambda (#{e\ 933}# #{map-env\ 934}#)
-                     (let ((#{formals\ 935}# (map cdr #{map-env\ 934}#))
-                           (#{actuals\ 936}#
-                             (map (lambda (#{x\ 937}#)
-                                    (list (quote ref) (car #{x\ 937}#)))
-                                  #{map-env\ 934}#)))
-                       (if (eq? (car #{e\ 933}#) (quote ref))
-                         (car #{actuals\ 936}#)
+                                 (cons #{x\ 4486}# (cdr #{y\ 4487}#)))
+                           (list (quote cons) #{x\ 4486}# #{y\ 4487}#))))))
+                 (#{gen-map\ 4476}#
+                   (lambda (#{e\ 4489}# #{map-env\ 4490}#)
+                     (let ((#{formals\ 4491}# (map cdr #{map-env\ 4490}#))
+                           (#{actuals\ 4492}#
+                             (map (lambda (#{x\ 4493}#)
+                                    (list (quote ref) (car #{x\ 4493}#)))
+                                  #{map-env\ 4490}#)))
+                       (if (eq? (car #{e\ 4489}#) (quote ref))
+                         (car #{actuals\ 4492}#)
                          (if (and-map
-                               (lambda (#{x\ 938}#)
-                                 (if (eq? (car #{x\ 938}#) (quote ref))
-                                   (memq (cadr #{x\ 938}#) #{formals\ 935}#)
+                               (lambda (#{x\ 4494}#)
+                                 (if (eq? (car #{x\ 4494}#) (quote ref))
+                                   (memq (cadr #{x\ 4494}#) #{formals\ 4491}#)
                                    #f))
-                               (cdr #{e\ 933}#))
+                               (cdr #{e\ 4489}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 933}#))
-                                       (map (let ((#{r\ 939}# (map cons
-                                                                   #{formals\ 
935}#
-                                                                   #{actuals\ 
936}#)))
-                                              (lambda (#{x\ 940}#)
-                                                (cdr (assq (cadr #{x\ 940}#)
-                                                           #{r\ 939}#))))
-                                            (cdr #{e\ 933}#))))
+                                             (car #{e\ 4489}#))
+                                       (map (let ((#{r\ 4495}#
+                                                    (map cons
+                                                         #{formals\ 4491}#
+                                                         #{actuals\ 4492}#)))
+                                              (lambda (#{x\ 4496}#)
+                                                (cdr (assq (cadr #{x\ 4496}#)
+                                                           #{r\ 4495}#))))
+                                            (cdr #{e\ 4489}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 935}#
-                                             #{e\ 933}#)
-                                       #{actuals\ 936}#)))))))
-                 (#{gen-mappend\ 919}#
-                   (lambda (#{e\ 941}# #{map-env\ 942}#)
+                                             #{formals\ 4491}#
+                                             #{e\ 4489}#)
+                                       #{actuals\ 4492}#)))))))
+                 (#{gen-mappend\ 4475}#
+                   (lambda (#{e\ 4497}# #{map-env\ 4498}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 920}# #{e\ 941}# #{map-env\ 942}#))))
-                 (#{gen-ref\ 918}#
-                   (lambda (#{src\ 943}#
-                            #{var\ 944}#
-                            #{level\ 945}#
-                            #{maps\ 946}#)
-                     (if (#{fx=\ 87}# #{level\ 945}# 0)
-                       (values #{var\ 944}# #{maps\ 946}#)
-                       (if (null? #{maps\ 946}#)
+                           (#{gen-map\ 4476}# #{e\ 4497}# #{map-env\ 4498}#))))
+                 (#{gen-ref\ 4474}#
+                   (lambda (#{src\ 4499}#
+                            #{var\ 4500}#
+                            #{level\ 4501}#
+                            #{maps\ 4502}#)
+                     (if (#{fx=\ 3631}# #{level\ 4501}# 0)
+                       (values #{var\ 4500}# #{maps\ 4502}#)
+                       (if (null? #{maps\ 4502}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 943}#)
+                           #{src\ 4499}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 918}#
-                               #{src\ 943}#
-                               #{var\ 944}#
-                               (#{fx-\ 86}# #{level\ 945}# 1)
-                               (cdr #{maps\ 946}#)))
-                           (lambda (#{outer-var\ 947}# #{outer-maps\ 948}#)
-                             (let ((#{b\ 949}# (assq #{outer-var\ 947}#
-                                                     (car #{maps\ 946}#))))
-                               (if #{b\ 949}#
-                                 (values (cdr #{b\ 949}#) #{maps\ 946}#)
-                                 (let ((#{inner-var\ 950}#
-                                         (#{gen-var\ 176}# (quote tmp))))
+                             (#{gen-ref\ 4474}#
+                               #{src\ 4499}#
+                               #{var\ 4500}#
+                               (#{fx-\ 3630}# #{level\ 4501}# 1)
+                               (cdr #{maps\ 4502}#)))
+                           (lambda (#{outer-var\ 4503}# #{outer-maps\ 4504}#)
+                             (let ((#{b\ 4505}#
+                                     (assq #{outer-var\ 4503}#
+                                           (car #{maps\ 4502}#))))
+                               (if #{b\ 4505}#
+                                 (values (cdr #{b\ 4505}#) #{maps\ 4502}#)
+                                 (let ((#{inner-var\ 4506}#
+                                         (#{gen-var\ 3720}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 950}#
-                                     (cons (cons (cons #{outer-var\ 947}#
-                                                       #{inner-var\ 950}#)
-                                                 (car #{maps\ 946}#))
-                                           #{outer-maps\ 948}#)))))))))))
-                 (#{gen-syntax\ 917}#
-                   (lambda (#{src\ 951}#
-                            #{e\ 952}#
-                            #{r\ 953}#
-                            #{maps\ 954}#
-                            #{ellipsis?\ 955}#
-                            #{mod\ 956}#)
-                     (if (#{id?\ 130}# #{e\ 952}#)
-                       (let ((#{label\ 957}#
-                               (#{id-var-name\ 152}# #{e\ 952}# (quote (())))))
-                         (let ((#{b\ 958}# (#{lookup\ 127}#
-                                             #{label\ 957}#
-                                             #{r\ 953}#
-                                             #{mod\ 956}#)))
-                           (if (eq? (#{binding-type\ 122}# #{b\ 958}#)
+                                     #{inner-var\ 4506}#
+                                     (cons (cons (cons #{outer-var\ 4503}#
+                                                       #{inner-var\ 4506}#)
+                                                 (car #{maps\ 4502}#))
+                                           #{outer-maps\ 4504}#)))))))))))
+                 (#{gen-syntax\ 4473}#
+                   (lambda (#{src\ 4507}#
+                            #{e\ 4508}#
+                            #{r\ 4509}#
+                            #{maps\ 4510}#
+                            #{ellipsis?\ 4511}#
+                            #{mod\ 4512}#)
+                     (if (#{id?\ 3674}# #{e\ 4508}#)
+                       (let ((#{label\ 4513}#
+                               (#{id-var-name\ 3696}#
+                                 #{e\ 4508}#
+                                 '(()))))
+                         (let ((#{b\ 4514}#
+                                 (#{lookup\ 3671}#
+                                   #{label\ 4513}#
+                                   #{r\ 4509}#
+                                   #{mod\ 4512}#)))
+                           (if (eq? (#{binding-type\ 3666}# #{b\ 4514}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 959}#
-                                         (#{binding-value\ 123}# #{b\ 958}#)))
-                                   (#{gen-ref\ 918}#
-                                     #{src\ 951}#
-                                     (car #{var.lev\ 959}#)
-                                     (cdr #{var.lev\ 959}#)
-                                     #{maps\ 954}#)))
-                               (lambda (#{var\ 960}# #{maps\ 961}#)
+                                 (let ((#{var.lev\ 4515}#
+                                         (#{binding-value\ 3667}#
+                                           #{b\ 4514}#)))
+                                   (#{gen-ref\ 4474}#
+                                     #{src\ 4507}#
+                                     (car #{var.lev\ 4515}#)
+                                     (cdr #{var.lev\ 4515}#)
+                                     #{maps\ 4510}#)))
+                               (lambda (#{var\ 4516}# #{maps\ 4517}#)
                                  (values
-                                   (list (quote ref) #{var\ 960}#)
-                                   #{maps\ 961}#)))
-                             (if (#{ellipsis?\ 955}# #{e\ 952}#)
+                                   (list (quote ref) #{var\ 4516}#)
+                                   #{maps\ 4517}#)))
+                             (if (#{ellipsis?\ 4511}# #{e\ 4508}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 951}#)
+                                 #{src\ 4507}#)
                                (values
-                                 (list (quote quote) #{e\ 952}#)
-                                 #{maps\ 954}#)))))
-                       ((lambda (#{tmp\ 962}#)
-                          ((lambda (#{tmp\ 963}#)
-                             (if (if #{tmp\ 963}#
-                                   (apply (lambda (#{dots\ 964}# #{e\ 965}#)
-                                            (#{ellipsis?\ 955}# #{dots\ 964}#))
-                                          #{tmp\ 963}#)
+                                 (list (quote quote) #{e\ 4508}#)
+                                 #{maps\ 4510}#)))))
+                       ((lambda (#{tmp\ 4518}#)
+                          ((lambda (#{tmp\ 4519}#)
+                             (if (if #{tmp\ 4519}#
+                                   (apply (lambda (#{dots\ 4520}# #{e\ 4521}#)
+                                            (#{ellipsis?\ 4511}#
+                                              #{dots\ 4520}#))
+                                          #{tmp\ 4519}#)
                                    #f)
-                               (apply (lambda (#{dots\ 966}# #{e\ 967}#)
-                                        (#{gen-syntax\ 917}#
-                                          #{src\ 951}#
-                                          #{e\ 967}#
-                                          #{r\ 953}#
-                                          #{maps\ 954}#
-                                          (lambda (#{x\ 968}#) #f)
-                                          #{mod\ 956}#))
-                                      #{tmp\ 963}#)
-                               ((lambda (#{tmp\ 969}#)
-                                  (if (if #{tmp\ 969}#
-                                        (apply (lambda (#{x\ 970}#
-                                                        #{dots\ 971}#
-                                                        #{y\ 972}#)
-                                                 (#{ellipsis?\ 955}#
-                                                   #{dots\ 971}#))
-                                               #{tmp\ 969}#)
+                               (apply (lambda (#{dots\ 4522}# #{e\ 4523}#)
+                                        (#{gen-syntax\ 4473}#
+                                          #{src\ 4507}#
+                                          #{e\ 4523}#
+                                          #{r\ 4509}#
+                                          #{maps\ 4510}#
+                                          (lambda (#{x\ 4524}#) #f)
+                                          #{mod\ 4512}#))
+                                      #{tmp\ 4519}#)
+                               ((lambda (#{tmp\ 4525}#)
+                                  (if (if #{tmp\ 4525}#
+                                        (apply (lambda (#{x\ 4526}#
+                                                        #{dots\ 4527}#
+                                                        #{y\ 4528}#)
+                                                 (#{ellipsis?\ 4511}#
+                                                   #{dots\ 4527}#))
+                                               #{tmp\ 4525}#)
                                         #f)
-                                    (apply (lambda (#{x\ 973}#
-                                                    #{dots\ 974}#
-                                                    #{y\ 975}#)
-                                             (letrec ((#{f\ 976}# (lambda 
(#{y\ 977}#
-                                                                           
#{k\ 978}#)
-                                                                    ((lambda 
(#{tmp\ 982}#)
-                                                                       
((lambda (#{tmp\ 983}#)
-                                                                          (if 
(if #{tmp\ 983}#
-                                                                               
 (apply (lambda (#{dots\ 984}#
-                                                                               
                 #{y\ 985}#)
-                                                                               
          (#{ellipsis?\ 955}#
-                                                                               
            #{dots\ 984}#))
-                                                                               
        #{tmp\ 983}#)
-                                                                               
 #f)
-                                                                            
(apply (lambda (#{dots\ 986}#
-                                                                               
             #{y\ 987}#)
-                                                                               
      (#{f\ 976}# #{y\ 987}#
-                                                                               
                  (lambda (#{maps\ 988}#)
-                                                                               
                    (call-with-values
-                                                                               
                      (lambda ()
-                                                                               
                        (#{k\ 978}# (cons '()
-                                                                               
                                          #{maps\ 988}#)))
-                                                                               
                      (lambda (#{x\ 989}#
-                                                                               
                               #{maps\ 990}#)
-                                                                               
                        (if (null? (car #{maps\ 990}#))
-                                                                               
                          (syntax-violation
-                                                                               
                            'syntax
-                                                                               
                            "extra ellipsis"
-                                                                               
                            #{src\ 951}#)
-                                                                               
                          (values
-                                                                               
                            (#{gen-mappend\ 919}#
-                                                                               
                              #{x\ 989}#
-                                                                               
                              (car #{maps\ 990}#))
-                                                                               
                            (cdr #{maps\ 990}#))))))))
-                                                                               
    #{tmp\ 983}#)
-                                                                            
((lambda (#{_\ 991}#)
+                                    (apply (lambda (#{x\ 4529}#
+                                                    #{dots\ 4530}#
+                                                    #{y\ 4531}#)
+                                             (letrec ((#{f\ 4532}#
+                                                        (lambda (#{y\ 4533}#
+                                                                 #{k\ 4534}#)
+                                                          ((lambda (#{tmp\ 
4538}#)
+                                                             ((lambda (#{tmp\ 
4539}#)
+                                                                (if (if #{tmp\ 
4539}#
+                                                                      (apply 
(lambda (#{dots\ 4540}#
+                                                                               
       #{y\ 4541}#)
+                                                                               
(#{ellipsis?\ 4511}#
+                                                                               
  #{dots\ 4540}#))
+                                                                             
#{tmp\ 4539}#)
+                                                                      #f)
+                                                                  (apply 
(lambda (#{dots\ 4542}#
+                                                                               
   #{y\ 4543}#)
+                                                                           
(#{f\ 4532}#
+                                                                             
#{y\ 4543}#
+                                                                             
(lambda (#{maps\ 4544}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{gen-syntax\ 917}#
-                                                                               
      #{src\ 951}#
-                                                                               
      #{y\ 977}#
-                                                                               
      #{r\ 953}#
-                                                                               
      #{maps\ 954}#
-                                                                               
      #{ellipsis?\ 955}#
-                                                                               
      #{mod\ 956}#))
-                                                                               
  (lambda (#{y\ 992}#
-                                                                               
           #{maps\ 993}#)
-                                                                               
    (call-with-values
-                                                                               
      (lambda ()
-                                                                               
        (#{k\ 978}# #{maps\ 993}#))
-                                                                               
      (lambda (#{x\ 994}#
-                                                                               
               #{maps\ 995}#)
-                                                                               
        (values
-                                                                               
          (#{gen-append\ 922}#
-                                                                               
            #{x\ 994}#
-                                                                               
            #{y\ 992}#)
-                                                                               
          #{maps\ 995}#))))))
-                                                                             
#{tmp\ 982}#)))
-                                                                        
($sc-dispatch
-                                                                          
#{tmp\ 982}#
-                                                                          
'(any .
-                                                                               
 any))))
-                                                                     #{y\ 
977}#))))
-                                               (#{f\ 976}# #{y\ 975}#
-                                                           (lambda (#{maps\ 
979}#)
-                                                             (call-with-values
-                                                               (lambda ()
-                                                                 
(#{gen-syntax\ 917}#
-                                                                   #{src\ 951}#
-                                                                   #{x\ 973}#
-                                                                   #{r\ 953}#
-                                                                   (cons '()
-                                                                         
#{maps\ 979}#)
-                                                                   
#{ellipsis?\ 955}#
-                                                                   #{mod\ 
956}#))
-                                                               (lambda (#{x\ 
980}#
-                                                                        
#{maps\ 981}#)
-                                                                 (if (null? 
(car #{maps\ 981}#))
-                                                                   
(syntax-violation
-                                                                     'syntax
-                                                                     "extra 
ellipsis"
-                                                                     #{src\ 
951}#)
-                                                                   (values
-                                                                     
(#{gen-map\ 920}#
-                                                                       #{x\ 
980}#
-                                                                       (car 
#{maps\ 981}#))
-                                                                     (cdr 
#{maps\ 981}#)))))))))
-                                           #{tmp\ 969}#)
-                                    ((lambda (#{tmp\ 996}#)
-                                       (if #{tmp\ 996}#
-                                         (apply (lambda (#{x\ 997}# #{y\ 998}#)
+                                                                               
    (#{k\ 4534}#
+                                                                               
      (cons '()
+                                                                               
            #{maps\ 4544}#)))
+                                                                               
  (lambda (#{x\ 4545}#
+                                                                               
           #{maps\ 4546}#)
+                                                                               
    (if (null? (car #{maps\ 4546}#))
+                                                                               
      (syntax-violation
+                                                                               
        'syntax
+                                                                               
        "extra ellipsis"
+                                                                               
        #{src\ 4507}#)
+                                                                               
      (values
+                                                                               
        (#{gen-mappend\ 4475}#
+                                                                               
          #{x\ 4545}#
+                                                                               
          (car #{maps\ 4546}#))
+                                                                               
        (cdr #{maps\ 4546}#))))))))
+                                                                         
#{tmp\ 4539}#)
+                                                                  ((lambda 
(#{_\ 4547}#)
+                                                                     
(call-with-values
+                                                                       (lambda 
()
+                                                                         
(#{gen-syntax\ 4473}#
+                                                                           
#{src\ 4507}#
+                                                                           
#{y\ 4533}#
+                                                                           
#{r\ 4509}#
+                                                                           
#{maps\ 4510}#
+                                                                           
#{ellipsis?\ 4511}#
+                                                                           
#{mod\ 4512}#))
+                                                                       (lambda 
(#{y\ 4548}#
+                                                                               
 #{maps\ 4549}#)
+                                                                         
(call-with-values
+                                                                           
(lambda ()
+                                                                             
(#{k\ 4534}#
+                                                                               
#{maps\ 4549}#))
+                                                                           
(lambda (#{x\ 4550}#
+                                                                               
     #{maps\ 4551}#)
+                                                                             
(values
+                                                                               
(#{gen-append\ 4478}#
+                                                                               
  #{x\ 4550}#
+                                                                               
  #{y\ 4548}#)
+                                                                               
#{maps\ 4551}#))))))
+                                                                   #{tmp\ 
4538}#)))
+                                                              ($sc-dispatch
+                                                                #{tmp\ 4538}#
+                                                                '(any . any))))
+                                                           #{y\ 4533}#))))
+                                               (#{f\ 4532}#
+                                                 #{y\ 4531}#
+                                                 (lambda (#{maps\ 4535}#)
+                                                   (call-with-values
+                                                     (lambda ()
+                                                       (#{gen-syntax\ 4473}#
+                                                         #{src\ 4507}#
+                                                         #{x\ 4529}#
+                                                         #{r\ 4509}#
+                                                         (cons '()
+                                                               #{maps\ 4535}#)
+                                                         #{ellipsis?\ 4511}#
+                                                         #{mod\ 4512}#))
+                                                     (lambda (#{x\ 4536}#
+                                                              #{maps\ 4537}#)
+                                                       (if (null? (car #{maps\ 
4537}#))
+                                                         (syntax-violation
+                                                           'syntax
+                                                           "extra ellipsis"
+                                                           #{src\ 4507}#)
+                                                         (values
+                                                           (#{gen-map\ 4476}#
+                                                             #{x\ 4536}#
+                                                             (car #{maps\ 
4537}#))
+                                                           (cdr #{maps\ 
4537}#)))))))))
+                                           #{tmp\ 4525}#)
+                                    ((lambda (#{tmp\ 4552}#)
+                                       (if #{tmp\ 4552}#
+                                         (apply (lambda (#{x\ 4553}#
+                                                         #{y\ 4554}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 917}#
-                                                        #{src\ 951}#
-                                                        #{x\ 997}#
-                                                        #{r\ 953}#
-                                                        #{maps\ 954}#
-                                                        #{ellipsis?\ 955}#
-                                                        #{mod\ 956}#))
-                                                    (lambda (#{x\ 999}#
-                                                             #{maps\ 1000}#)
+                                                      (#{gen-syntax\ 4473}#
+                                                        #{src\ 4507}#
+                                                        #{x\ 4553}#
+                                                        #{r\ 4509}#
+                                                        #{maps\ 4510}#
+                                                        #{ellipsis?\ 4511}#
+                                                        #{mod\ 4512}#))
+                                                    (lambda (#{x\ 4555}#
+                                                             #{maps\ 4556}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 917}#
-                                                            #{src\ 951}#
-                                                            #{y\ 998}#
-                                                            #{r\ 953}#
-                                                            #{maps\ 1000}#
-                                                            #{ellipsis?\ 955}#
-                                                            #{mod\ 956}#))
-                                                        (lambda (#{y\ 1001}#
-                                                                 #{maps\ 
1002}#)
+                                                          (#{gen-syntax\ 4473}#
+                                                            #{src\ 4507}#
+                                                            #{y\ 4554}#
+                                                            #{r\ 4509}#
+                                                            #{maps\ 4556}#
+                                                            #{ellipsis?\ 4511}#
+                                                            #{mod\ 4512}#))
+                                                        (lambda (#{y\ 4557}#
+                                                                 #{maps\ 
4558}#)
                                                           (values
-                                                            (#{gen-cons\ 921}#
-                                                              #{x\ 999}#
-                                                              #{y\ 1001}#)
-                                                            #{maps\ 
1002}#))))))
-                                                #{tmp\ 996}#)
-                                         ((lambda (#{tmp\ 1003}#)
-                                            (if #{tmp\ 1003}#
-                                              (apply (lambda (#{e1\ 1004}#
-                                                              #{e2\ 1005}#)
+                                                            (#{gen-cons\ 4477}#
+                                                              #{x\ 4555}#
+                                                              #{y\ 4557}#)
+                                                            #{maps\ 
4558}#))))))
+                                                #{tmp\ 4552}#)
+                                         ((lambda (#{tmp\ 4559}#)
+                                            (if #{tmp\ 4559}#
+                                              (apply (lambda (#{e1\ 4560}#
+                                                              #{e2\ 4561}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 917}#
-                                                             #{src\ 951}#
-                                                             (cons #{e1\ 1004}#
-                                                                   #{e2\ 
1005}#)
-                                                             #{r\ 953}#
-                                                             #{maps\ 954}#
-                                                             #{ellipsis?\ 955}#
-                                                             #{mod\ 956}#))
-                                                         (lambda (#{e\ 1007}#
-                                                                  #{maps\ 
1008}#)
+                                                           (#{gen-syntax\ 
4473}#
+                                                             #{src\ 4507}#
+                                                             (cons #{e1\ 4560}#
+                                                                   #{e2\ 
4561}#)
+                                                             #{r\ 4509}#
+                                                             #{maps\ 4510}#
+                                                             #{ellipsis?\ 
4511}#
+                                                             #{mod\ 4512}#))
+                                                         (lambda (#{e\ 4563}#
+                                                                  #{maps\ 
4564}#)
                                                            (values
-                                                             (#{gen-vector\ 
923}#
-                                                               #{e\ 1007}#)
-                                                             #{maps\ 1008}#))))
-                                                     #{tmp\ 1003}#)
-                                              ((lambda (#{_\ 1009}#)
+                                                             (#{gen-vector\ 
4479}#
+                                                               #{e\ 4563}#)
+                                                             #{maps\ 4564}#))))
+                                                     #{tmp\ 4559}#)
+                                              ((lambda (#{_\ 4565}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 952}#)
-                                                   #{maps\ 954}#))
-                                               #{tmp\ 962}#)))
+                                                         #{e\ 4508}#)
+                                                   #{maps\ 4510}#))
+                                               #{tmp\ 4518}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 962}#
+                                            #{tmp\ 4518}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 962}#
+                                       #{tmp\ 4518}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 962}#
+                                  #{tmp\ 4518}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 962}# (quote (any any)))))
-                        #{e\ 952}#)))))
-          (lambda (#{e\ 1010}#
-                   #{r\ 1011}#
-                   #{w\ 1012}#
-                   #{s\ 1013}#
-                   #{mod\ 1014}#)
-            (let ((#{e\ 1015}#
-                    (#{source-wrap\ 159}#
-                      #{e\ 1010}#
-                      #{w\ 1012}#
-                      #{s\ 1013}#
-                      #{mod\ 1014}#)))
-              ((lambda (#{tmp\ 1016}#)
-                 ((lambda (#{tmp\ 1017}#)
-                    (if #{tmp\ 1017}#
-                      (apply (lambda (#{_\ 1018}# #{x\ 1019}#)
+                           ($sc-dispatch #{tmp\ 4518}# (quote (any any)))))
+                        #{e\ 4508}#)))))
+          (lambda (#{e\ 4566}#
+                   #{r\ 4567}#
+                   #{w\ 4568}#
+                   #{s\ 4569}#
+                   #{mod\ 4570}#)
+            (let ((#{e\ 4571}#
+                    (#{source-wrap\ 3703}#
+                      #{e\ 4566}#
+                      #{w\ 4568}#
+                      #{s\ 4569}#
+                      #{mod\ 4570}#)))
+              ((lambda (#{tmp\ 4572}#)
+                 ((lambda (#{tmp\ 4573}#)
+                    (if #{tmp\ 4573}#
+                      (apply (lambda (#{_\ 4574}# #{x\ 4575}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 917}#
-                                     #{e\ 1015}#
-                                     #{x\ 1019}#
-                                     #{r\ 1011}#
+                                   (#{gen-syntax\ 4473}#
+                                     #{e\ 4571}#
+                                     #{x\ 4575}#
+                                     #{r\ 4567}#
                                      '()
-                                     #{ellipsis?\ 174}#
-                                     #{mod\ 1014}#))
-                                 (lambda (#{e\ 1020}# #{maps\ 1021}#)
-                                   (#{regen\ 924}# #{e\ 1020}#))))
-                             #{tmp\ 1017}#)
-                      ((lambda (#{_\ 1022}#)
+                                     #{ellipsis?\ 3718}#
+                                     #{mod\ 4570}#))
+                                 (lambda (#{e\ 4576}# #{maps\ 4577}#)
+                                   (#{regen\ 4480}# #{e\ 4576}#))))
+                             #{tmp\ 4573}#)
+                      ((lambda (#{_\ 4578}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 1015}#))
-                       #{tmp\ 1016}#)))
-                  ($sc-dispatch #{tmp\ 1016}# (quote (any any)))))
-               #{e\ 1015}#)))))
-      (#{global-extend\ 128}#
+                           #{e\ 4571}#))
+                       #{tmp\ 4572}#)))
+                  ($sc-dispatch #{tmp\ 4572}# (quote (any any)))))
+               #{e\ 4571}#)))))
+      (#{global-extend\ 3672}#
         'core
         'lambda
-        (lambda (#{e\ 1023}#
-                 #{r\ 1024}#
-                 #{w\ 1025}#
-                 #{s\ 1026}#
-                 #{mod\ 1027}#)
-          (letrec ((#{docstring&body\ 1028}#
-                     (lambda (#{ids\ 1029}#
-                              #{vars\ 1030}#
-                              #{labels\ 1031}#
-                              #{c\ 1032}#)
-                       ((lambda (#{tmp\ 1033}#)
-                          ((lambda (#{tmp\ 1034}#)
-                             (if (if #{tmp\ 1034}#
-                                   (apply (lambda (#{docstring\ 1035}#
-                                                   #{e1\ 1036}#
-                                                   #{e2\ 1037}#)
+        (lambda (#{e\ 4579}#
+                 #{r\ 4580}#
+                 #{w\ 4581}#
+                 #{s\ 4582}#
+                 #{mod\ 4583}#)
+          (letrec ((#{docstring&body\ 4584}#
+                     (lambda (#{ids\ 4585}#
+                              #{vars\ 4586}#
+                              #{labels\ 4587}#
+                              #{c\ 4588}#)
+                       ((lambda (#{tmp\ 4589}#)
+                          ((lambda (#{tmp\ 4590}#)
+                             (if (if #{tmp\ 4590}#
+                                   (apply (lambda (#{docstring\ 4591}#
+                                                   #{e1\ 4592}#
+                                                   #{e2\ 4593}#)
                                             (string?
                                               (syntax->datum
-                                                #{docstring\ 1035}#)))
-                                          #{tmp\ 1034}#)
+                                                #{docstring\ 4591}#)))
+                                          #{tmp\ 4590}#)
                                    #f)
-                               (apply (lambda (#{docstring\ 1038}#
-                                               #{e1\ 1039}#
-                                               #{e2\ 1040}#)
+                               (apply (lambda (#{docstring\ 4594}#
+                                               #{e1\ 4595}#
+                                               #{e2\ 4596}#)
                                         (values
-                                          (syntax->datum #{docstring\ 1038}#)
-                                          (#{chi-body\ 170}#
-                                            (cons #{e1\ 1039}# #{e2\ 1040}#)
-                                            (#{source-wrap\ 159}#
-                                              #{e\ 1023}#
-                                              #{w\ 1025}#
-                                              #{s\ 1026}#
-                                              #{mod\ 1027}#)
-                                            (#{extend-var-env\ 125}#
-                                              #{labels\ 1031}#
-                                              #{vars\ 1030}#
-                                              #{r\ 1024}#)
-                                            (#{make-binding-wrap\ 147}#
-                                              #{ids\ 1029}#
-                                              #{labels\ 1031}#
-                                              #{w\ 1025}#)
-                                            #{mod\ 1027}#)))
-                                      #{tmp\ 1034}#)
-                               ((lambda (#{tmp\ 1042}#)
-                                  (if #{tmp\ 1042}#
-                                    (apply (lambda (#{e1\ 1043}# #{e2\ 1044}#)
+                                          (syntax->datum #{docstring\ 4594}#)
+                                          (#{chi-body\ 3714}#
+                                            (cons #{e1\ 4595}# #{e2\ 4596}#)
+                                            (#{source-wrap\ 3703}#
+                                              #{e\ 4579}#
+                                              #{w\ 4581}#
+                                              #{s\ 4582}#
+                                              #{mod\ 4583}#)
+                                            (#{extend-var-env\ 3669}#
+                                              #{labels\ 4587}#
+                                              #{vars\ 4586}#
+                                              #{r\ 4580}#)
+                                            (#{make-binding-wrap\ 3691}#
+                                              #{ids\ 4585}#
+                                              #{labels\ 4587}#
+                                              #{w\ 4581}#)
+                                            #{mod\ 4583}#)))
+                                      #{tmp\ 4590}#)
+                               ((lambda (#{tmp\ 4598}#)
+                                  (if #{tmp\ 4598}#
+                                    (apply (lambda (#{e1\ 4599}# #{e2\ 4600}#)
                                              (values
                                                #f
-                                               (#{chi-body\ 170}#
-                                                 (cons #{e1\ 1043}#
-                                                       #{e2\ 1044}#)
-                                                 (#{source-wrap\ 159}#
-                                                   #{e\ 1023}#
-                                                   #{w\ 1025}#
-                                                   #{s\ 1026}#
-                                                   #{mod\ 1027}#)
-                                                 (#{extend-var-env\ 125}#
-                                                   #{labels\ 1031}#
-                                                   #{vars\ 1030}#
-                                                   #{r\ 1024}#)
-                                                 (#{make-binding-wrap\ 147}#
-                                                   #{ids\ 1029}#
-                                                   #{labels\ 1031}#
-                                                   #{w\ 1025}#)
-                                                 #{mod\ 1027}#)))
-                                           #{tmp\ 1042}#)
+                                               (#{chi-body\ 3714}#
+                                                 (cons #{e1\ 4599}#
+                                                       #{e2\ 4600}#)
+                                                 (#{source-wrap\ 3703}#
+                                                   #{e\ 4579}#
+                                                   #{w\ 4581}#
+                                                   #{s\ 4582}#
+                                                   #{mod\ 4583}#)
+                                                 (#{extend-var-env\ 3669}#
+                                                   #{labels\ 4587}#
+                                                   #{vars\ 4586}#
+                                                   #{r\ 4580}#)
+                                                 (#{make-binding-wrap\ 3691}#
+                                                   #{ids\ 4585}#
+                                                   #{labels\ 4587}#
+                                                   #{w\ 4581}#)
+                                                 #{mod\ 4583}#)))
+                                           #{tmp\ 4598}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{tmp\ 1033}#)))
+                                      #{tmp\ 4589}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 1033}#
+                                  #{tmp\ 4589}#
                                   '(any . each-any)))))
                            ($sc-dispatch
-                             #{tmp\ 1033}#
+                             #{tmp\ 4589}#
                              '(any any . each-any))))
-                        #{c\ 1032}#))))
-            ((lambda (#{tmp\ 1046}#)
-               ((lambda (#{tmp\ 1047}#)
-                  (if #{tmp\ 1047}#
-                    (apply (lambda (#{_\ 1048}#
-                                    #{id\ 1049}#
-                                    #{e1\ 1050}#
-                                    #{e2\ 1051}#)
-                             (let ((#{ids\ 1052}# #{id\ 1049}#))
-                               (if (not (#{valid-bound-ids?\ 155}#
-                                          #{ids\ 1052}#))
+                        #{c\ 4588}#))))
+            ((lambda (#{tmp\ 4602}#)
+               ((lambda (#{tmp\ 4603}#)
+                  (if #{tmp\ 4603}#
+                    (apply (lambda (#{_\ 4604}#
+                                    #{id\ 4605}#
+                                    #{e1\ 4606}#
+                                    #{e2\ 4607}#)
+                             (let ((#{ids\ 4608}# #{id\ 4605}#))
+                               (if (not (#{valid-bound-ids?\ 3699}#
+                                          #{ids\ 4608}#))
                                  (syntax-violation
                                    'lambda
                                    "invalid parameter list"
-                                   #{e\ 1023}#)
-                                 (let ((#{vars\ 1054}#
-                                         (map #{gen-var\ 176}# #{ids\ 1052}#))
-                                       (#{labels\ 1055}#
-                                         (#{gen-labels\ 136}# #{ids\ 1052}#)))
+                                   #{e\ 4579}#)
+                                 (let ((#{vars\ 4610}#
+                                         (map #{gen-var\ 3720}# #{ids\ 4608}#))
+                                       (#{labels\ 4611}#
+                                         (#{gen-labels\ 3680}# #{ids\ 4608}#)))
                                    (call-with-values
                                      (lambda ()
-                                       (#{docstring&body\ 1028}#
-                                         #{ids\ 1052}#
-                                         #{vars\ 1054}#
-                                         #{labels\ 1055}#
-                                         (cons #{e1\ 1050}# #{e2\ 1051}#)))
-                                     (lambda (#{docstring\ 1057}#
-                                              #{body\ 1058}#)
-                                       (#{build-simple-lambda\ 104}#
-                                         #{s\ 1026}#
-                                         (map syntax->datum #{ids\ 1052}#)
+                                       (#{docstring&body\ 4584}#
+                                         #{ids\ 4608}#
+                                         #{vars\ 4610}#
+                                         #{labels\ 4611}#
+                                         (cons #{e1\ 4606}# #{e2\ 4607}#)))
+                                     (lambda (#{docstring\ 4613}#
+                                              #{body\ 4614}#)
+                                       (#{build-simple-lambda\ 3648}#
+                                         #{s\ 4582}#
+                                         (map syntax->datum #{ids\ 4608}#)
                                          #f
-                                         #{vars\ 1054}#
-                                         #{docstring\ 1057}#
-                                         #{body\ 1058}#)))))))
-                           #{tmp\ 1047}#)
-                    ((lambda (#{tmp\ 1059}#)
-                       (if #{tmp\ 1059}#
-                         (apply (lambda (#{_\ 1060}#
-                                         #{ids\ 1061}#
-                                         #{e1\ 1062}#
-                                         #{e2\ 1063}#)
-                                  (let ((#{rids\ 1064}#
-                                          (#{lambda-var-list\ 177}#
-                                            #{ids\ 1061}#)))
-                                    (if (not (#{valid-bound-ids?\ 155}#
-                                               #{rids\ 1064}#))
+                                         #{vars\ 4610}#
+                                         #{docstring\ 4613}#
+                                         #{body\ 4614}#)))))))
+                           #{tmp\ 4603}#)
+                    ((lambda (#{tmp\ 4615}#)
+                       (if #{tmp\ 4615}#
+                         (apply (lambda (#{_\ 4616}#
+                                         #{ids\ 4617}#
+                                         #{e1\ 4618}#
+                                         #{e2\ 4619}#)
+                                  (let ((#{rids\ 4620}#
+                                          (#{lambda-var-list\ 3721}#
+                                            #{ids\ 4617}#)))
+                                    (if (not (#{valid-bound-ids?\ 3699}#
+                                               #{rids\ 4620}#))
                                       (syntax-violation
                                         'lambda
                                         "invalid parameter list"
-                                        #{e\ 1023}#)
-                                      (let ((#{req\ 1065}#
-                                              (reverse (cdr #{rids\ 1064}#))))
-                                        (let ((#{rest\ 1066}#
-                                                (car #{rids\ 1064}#)))
-                                          (let ((#{rrids\ 1067}#
-                                                  (reverse #{rids\ 1064}#)))
-                                            (let ((#{vars\ 1068}#
-                                                    (map #{gen-var\ 176}#
-                                                         #{rrids\ 1067}#)))
-                                              (let ((#{labels\ 1069}#
-                                                      (#{gen-labels\ 136}#
-                                                        #{rrids\ 1067}#)))
+                                        #{e\ 4579}#)
+                                      (let ((#{req\ 4621}#
+                                              (reverse (cdr #{rids\ 4620}#))))
+                                        (let ((#{rest\ 4622}#
+                                                (car #{rids\ 4620}#)))
+                                          (let ((#{rrids\ 4623}#
+                                                  (reverse #{rids\ 4620}#)))
+                                            (let ((#{vars\ 4624}#
+                                                    (map #{gen-var\ 3720}#
+                                                         #{rrids\ 4623}#)))
+                                              (let ((#{labels\ 4625}#
+                                                      (#{gen-labels\ 3680}#
+                                                        #{rrids\ 4623}#)))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{docstring&body\ 1028}#
-                                                      #{rrids\ 1067}#
-                                                      #{vars\ 1068}#
-                                                      #{labels\ 1069}#
-                                                      (cons #{e1\ 1062}#
-                                                            #{e2\ 1063}#)))
-                                                  (lambda (#{docstring\ 1071}#
-                                                           #{body\ 1072}#)
-                                                    (#{build-simple-lambda\ 
104}#
-                                                      #{s\ 1026}#
+                                                    (#{docstring&body\ 4584}#
+                                                      #{rrids\ 4623}#
+                                                      #{vars\ 4624}#
+                                                      #{labels\ 4625}#
+                                                      (cons #{e1\ 4618}#
+                                                            #{e2\ 4619}#)))
+                                                  (lambda (#{docstring\ 4627}#
+                                                           #{body\ 4628}#)
+                                                    (#{build-simple-lambda\ 
3648}#
+                                                      #{s\ 4582}#
                                                       (map syntax->datum
-                                                           #{req\ 1065}#)
+                                                           #{req\ 4621}#)
                                                       (syntax->datum
-                                                        #{rest\ 1066}#)
-                                                      #{vars\ 1068}#
-                                                      #{docstring\ 1071}#
-                                                      #{body\ 1072}#)))))))))))
-                                #{tmp\ 1059}#)
-                         ((lambda (#{_\ 1073}#)
+                                                        #{rest\ 4622}#)
+                                                      #{vars\ 4624}#
+                                                      #{docstring\ 4627}#
+                                                      #{body\ 4628}#)))))))))))
+                                #{tmp\ 4615}#)
+                         ((lambda (#{_\ 4629}#)
                             (syntax-violation
                               'lambda
                               "bad lambda"
-                              #{e\ 1023}#))
-                          #{tmp\ 1046}#)))
+                              #{e\ 4579}#))
+                          #{tmp\ 4602}#)))
                      ($sc-dispatch
-                       #{tmp\ 1046}#
+                       #{tmp\ 4602}#
                        '(any any any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 1046}#
+                  #{tmp\ 4602}#
                   '(any each-any any . each-any))))
-             #{e\ 1023}#))))
-      (#{global-extend\ 128}#
+             #{e\ 4579}#))))
+      (#{global-extend\ 3672}#
         'core
         'let
-        (letrec ((#{chi-let\ 1074}#
-                   (lambda (#{e\ 1075}#
-                            #{r\ 1076}#
-                            #{w\ 1077}#
-                            #{s\ 1078}#
-                            #{mod\ 1079}#
-                            #{constructor\ 1080}#
-                            #{ids\ 1081}#
-                            #{vals\ 1082}#
-                            #{exps\ 1083}#)
-                     (if (not (#{valid-bound-ids?\ 155}# #{ids\ 1081}#))
+        (letrec ((#{chi-let\ 4630}#
+                   (lambda (#{e\ 4631}#
+                            #{r\ 4632}#
+                            #{w\ 4633}#
+                            #{s\ 4634}#
+                            #{mod\ 4635}#
+                            #{constructor\ 4636}#
+                            #{ids\ 4637}#
+                            #{vals\ 4638}#
+                            #{exps\ 4639}#)
+                     (if (not (#{valid-bound-ids?\ 3699}# #{ids\ 4637}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 1075}#)
-                       (let ((#{labels\ 1084}#
-                               (#{gen-labels\ 136}# #{ids\ 1081}#))
-                             (#{new-vars\ 1085}#
-                               (map #{gen-var\ 176}# #{ids\ 1081}#)))
-                         (let ((#{nw\ 1086}#
-                                 (#{make-binding-wrap\ 147}#
-                                   #{ids\ 1081}#
-                                   #{labels\ 1084}#
-                                   #{w\ 1077}#))
-                               (#{nr\ 1087}#
-                                 (#{extend-var-env\ 125}#
-                                   #{labels\ 1084}#
-                                   #{new-vars\ 1085}#
-                                   #{r\ 1076}#)))
-                           (#{constructor\ 1080}#
-                             #{s\ 1078}#
-                             (map syntax->datum #{ids\ 1081}#)
-                             #{new-vars\ 1085}#
-                             (map (lambda (#{x\ 1088}#)
-                                    (#{chi\ 166}#
-                                      #{x\ 1088}#
-                                      #{r\ 1076}#
-                                      #{w\ 1077}#
-                                      #{mod\ 1079}#))
-                                  #{vals\ 1082}#)
-                             (#{chi-body\ 170}#
-                               #{exps\ 1083}#
-                               (#{source-wrap\ 159}#
-                                 #{e\ 1075}#
-                                 #{nw\ 1086}#
-                                 #{s\ 1078}#
-                                 #{mod\ 1079}#)
-                               #{nr\ 1087}#
-                               #{nw\ 1086}#
-                               #{mod\ 1079}#))))))))
-          (lambda (#{e\ 1089}#
-                   #{r\ 1090}#
-                   #{w\ 1091}#
-                   #{s\ 1092}#
-                   #{mod\ 1093}#)
-            ((lambda (#{tmp\ 1094}#)
-               ((lambda (#{tmp\ 1095}#)
-                  (if (if #{tmp\ 1095}#
-                        (apply (lambda (#{_\ 1096}#
-                                        #{id\ 1097}#
-                                        #{val\ 1098}#
-                                        #{e1\ 1099}#
-                                        #{e2\ 1100}#)
-                                 (and-map #{id?\ 130}# #{id\ 1097}#))
-                               #{tmp\ 1095}#)
+                         #{e\ 4631}#)
+                       (let ((#{labels\ 4640}#
+                               (#{gen-labels\ 3680}# #{ids\ 4637}#))
+                             (#{new-vars\ 4641}#
+                               (map #{gen-var\ 3720}# #{ids\ 4637}#)))
+                         (let ((#{nw\ 4642}#
+                                 (#{make-binding-wrap\ 3691}#
+                                   #{ids\ 4637}#
+                                   #{labels\ 4640}#
+                                   #{w\ 4633}#))
+                               (#{nr\ 4643}#
+                                 (#{extend-var-env\ 3669}#
+                                   #{labels\ 4640}#
+                                   #{new-vars\ 4641}#
+                                   #{r\ 4632}#)))
+                           (#{constructor\ 4636}#
+                             #{s\ 4634}#
+                             (map syntax->datum #{ids\ 4637}#)
+                             #{new-vars\ 4641}#
+                             (map (lambda (#{x\ 4644}#)
+                                    (#{chi\ 3710}#
+                                      #{x\ 4644}#
+                                      #{r\ 4632}#
+                                      #{w\ 4633}#
+                                      #{mod\ 4635}#))
+                                  #{vals\ 4638}#)
+                             (#{chi-body\ 3714}#
+                               #{exps\ 4639}#
+                               (#{source-wrap\ 3703}#
+                                 #{e\ 4631}#
+                                 #{nw\ 4642}#
+                                 #{s\ 4634}#
+                                 #{mod\ 4635}#)
+                               #{nr\ 4643}#
+                               #{nw\ 4642}#
+                               #{mod\ 4635}#))))))))
+          (lambda (#{e\ 4645}#
+                   #{r\ 4646}#
+                   #{w\ 4647}#
+                   #{s\ 4648}#
+                   #{mod\ 4649}#)
+            ((lambda (#{tmp\ 4650}#)
+               ((lambda (#{tmp\ 4651}#)
+                  (if (if #{tmp\ 4651}#
+                        (apply (lambda (#{_\ 4652}#
+                                        #{id\ 4653}#
+                                        #{val\ 4654}#
+                                        #{e1\ 4655}#
+                                        #{e2\ 4656}#)
+                                 (and-map #{id?\ 3674}# #{id\ 4653}#))
+                               #{tmp\ 4651}#)
                         #f)
-                    (apply (lambda (#{_\ 1102}#
-                                    #{id\ 1103}#
-                                    #{val\ 1104}#
-                                    #{e1\ 1105}#
-                                    #{e2\ 1106}#)
-                             (#{chi-let\ 1074}#
-                               #{e\ 1089}#
-                               #{r\ 1090}#
-                               #{w\ 1091}#
-                               #{s\ 1092}#
-                               #{mod\ 1093}#
-                               #{build-let\ 110}#
-                               #{id\ 1103}#
-                               #{val\ 1104}#
-                               (cons #{e1\ 1105}# #{e2\ 1106}#)))
-                           #{tmp\ 1095}#)
-                    ((lambda (#{tmp\ 1110}#)
-                       (if (if #{tmp\ 1110}#
-                             (apply (lambda (#{_\ 1111}#
-                                             #{f\ 1112}#
-                                             #{id\ 1113}#
-                                             #{val\ 1114}#
-                                             #{e1\ 1115}#
-                                             #{e2\ 1116}#)
-                                      (if (#{id?\ 130}# #{f\ 1112}#)
-                                        (and-map #{id?\ 130}# #{id\ 1113}#)
+                    (apply (lambda (#{_\ 4658}#
+                                    #{id\ 4659}#
+                                    #{val\ 4660}#
+                                    #{e1\ 4661}#
+                                    #{e2\ 4662}#)
+                             (#{chi-let\ 4630}#
+                               #{e\ 4645}#
+                               #{r\ 4646}#
+                               #{w\ 4647}#
+                               #{s\ 4648}#
+                               #{mod\ 4649}#
+                               #{build-let\ 3654}#
+                               #{id\ 4659}#
+                               #{val\ 4660}#
+                               (cons #{e1\ 4661}# #{e2\ 4662}#)))
+                           #{tmp\ 4651}#)
+                    ((lambda (#{tmp\ 4666}#)
+                       (if (if #{tmp\ 4666}#
+                             (apply (lambda (#{_\ 4667}#
+                                             #{f\ 4668}#
+                                             #{id\ 4669}#
+                                             #{val\ 4670}#
+                                             #{e1\ 4671}#
+                                             #{e2\ 4672}#)
+                                      (if (#{id?\ 3674}# #{f\ 4668}#)
+                                        (and-map #{id?\ 3674}# #{id\ 4669}#)
                                         #f))
-                                    #{tmp\ 1110}#)
+                                    #{tmp\ 4666}#)
                              #f)
-                         (apply (lambda (#{_\ 1118}#
-                                         #{f\ 1119}#
-                                         #{id\ 1120}#
-                                         #{val\ 1121}#
-                                         #{e1\ 1122}#
-                                         #{e2\ 1123}#)
-                                  (#{chi-let\ 1074}#
-                                    #{e\ 1089}#
-                                    #{r\ 1090}#
-                                    #{w\ 1091}#
-                                    #{s\ 1092}#
-                                    #{mod\ 1093}#
-                                    #{build-named-let\ 111}#
-                                    (cons #{f\ 1119}# #{id\ 1120}#)
-                                    #{val\ 1121}#
-                                    (cons #{e1\ 1122}# #{e2\ 1123}#)))
-                                #{tmp\ 1110}#)
-                         ((lambda (#{_\ 1127}#)
+                         (apply (lambda (#{_\ 4674}#
+                                         #{f\ 4675}#
+                                         #{id\ 4676}#
+                                         #{val\ 4677}#
+                                         #{e1\ 4678}#
+                                         #{e2\ 4679}#)
+                                  (#{chi-let\ 4630}#
+                                    #{e\ 4645}#
+                                    #{r\ 4646}#
+                                    #{w\ 4647}#
+                                    #{s\ 4648}#
+                                    #{mod\ 4649}#
+                                    #{build-named-let\ 3655}#
+                                    (cons #{f\ 4675}# #{id\ 4676}#)
+                                    #{val\ 4677}#
+                                    (cons #{e1\ 4678}# #{e2\ 4679}#)))
+                                #{tmp\ 4666}#)
+                         ((lambda (#{_\ 4683}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 159}#
-                                #{e\ 1089}#
-                                #{w\ 1091}#
-                                #{s\ 1092}#
-                                #{mod\ 1093}#)))
-                          #{tmp\ 1094}#)))
+                              (#{source-wrap\ 3703}#
+                                #{e\ 4645}#
+                                #{w\ 4647}#
+                                #{s\ 4648}#
+                                #{mod\ 4649}#)))
+                          #{tmp\ 4650}#)))
                      ($sc-dispatch
-                       #{tmp\ 1094}#
+                       #{tmp\ 4650}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 1094}#
+                  #{tmp\ 4650}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 1089}#))))
-      (#{global-extend\ 128}#
+             #{e\ 4645}#))))
+      (#{global-extend\ 3672}#
         'core
         'letrec
-        (lambda (#{e\ 1128}#
-                 #{r\ 1129}#
-                 #{w\ 1130}#
-                 #{s\ 1131}#
-                 #{mod\ 1132}#)
-          ((lambda (#{tmp\ 1133}#)
-             ((lambda (#{tmp\ 1134}#)
-                (if (if #{tmp\ 1134}#
-                      (apply (lambda (#{_\ 1135}#
-                                      #{id\ 1136}#
-                                      #{val\ 1137}#
-                                      #{e1\ 1138}#
-                                      #{e2\ 1139}#)
-                               (and-map #{id?\ 130}# #{id\ 1136}#))
-                             #{tmp\ 1134}#)
+        (lambda (#{e\ 4684}#
+                 #{r\ 4685}#
+                 #{w\ 4686}#
+                 #{s\ 4687}#
+                 #{mod\ 4688}#)
+          ((lambda (#{tmp\ 4689}#)
+             ((lambda (#{tmp\ 4690}#)
+                (if (if #{tmp\ 4690}#
+                      (apply (lambda (#{_\ 4691}#
+                                      #{id\ 4692}#
+                                      #{val\ 4693}#
+                                      #{e1\ 4694}#
+                                      #{e2\ 4695}#)
+                               (and-map #{id?\ 3674}# #{id\ 4692}#))
+                             #{tmp\ 4690}#)
                       #f)
-                  (apply (lambda (#{_\ 1141}#
-                                  #{id\ 1142}#
-                                  #{val\ 1143}#
-                                  #{e1\ 1144}#
-                                  #{e2\ 1145}#)
-                           (let ((#{ids\ 1146}# #{id\ 1142}#))
-                             (if (not (#{valid-bound-ids?\ 155}#
-                                        #{ids\ 1146}#))
+                  (apply (lambda (#{_\ 4697}#
+                                  #{id\ 4698}#
+                                  #{val\ 4699}#
+                                  #{e1\ 4700}#
+                                  #{e2\ 4701}#)
+                           (let ((#{ids\ 4702}# #{id\ 4698}#))
+                             (if (not (#{valid-bound-ids?\ 3699}#
+                                        #{ids\ 4702}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 1128}#)
-                               (let ((#{labels\ 1148}#
-                                       (#{gen-labels\ 136}# #{ids\ 1146}#))
-                                     (#{new-vars\ 1149}#
-                                       (map #{gen-var\ 176}# #{ids\ 1146}#)))
-                                 (let ((#{w\ 1150}#
-                                         (#{make-binding-wrap\ 147}#
-                                           #{ids\ 1146}#
-                                           #{labels\ 1148}#
-                                           #{w\ 1130}#))
-                                       (#{r\ 1151}#
-                                         (#{extend-var-env\ 125}#
-                                           #{labels\ 1148}#
-                                           #{new-vars\ 1149}#
-                                           #{r\ 1129}#)))
-                                   (#{build-letrec\ 112}#
-                                     #{s\ 1131}#
-                                     (map syntax->datum #{ids\ 1146}#)
-                                     #{new-vars\ 1149}#
-                                     (map (lambda (#{x\ 1152}#)
-                                            (#{chi\ 166}#
-                                              #{x\ 1152}#
-                                              #{r\ 1151}#
-                                              #{w\ 1150}#
-                                              #{mod\ 1132}#))
-                                          #{val\ 1143}#)
-                                     (#{chi-body\ 170}#
-                                       (cons #{e1\ 1144}# #{e2\ 1145}#)
-                                       (#{source-wrap\ 159}#
-                                         #{e\ 1128}#
-                                         #{w\ 1150}#
-                                         #{s\ 1131}#
-                                         #{mod\ 1132}#)
-                                       #{r\ 1151}#
-                                       #{w\ 1150}#
-                                       #{mod\ 1132}#)))))))
-                         #{tmp\ 1134}#)
-                  ((lambda (#{_\ 1155}#)
+                                 #{e\ 4684}#)
+                               (let ((#{labels\ 4704}#
+                                       (#{gen-labels\ 3680}# #{ids\ 4702}#))
+                                     (#{new-vars\ 4705}#
+                                       (map #{gen-var\ 3720}# #{ids\ 4702}#)))
+                                 (let ((#{w\ 4706}#
+                                         (#{make-binding-wrap\ 3691}#
+                                           #{ids\ 4702}#
+                                           #{labels\ 4704}#
+                                           #{w\ 4686}#))
+                                       (#{r\ 4707}#
+                                         (#{extend-var-env\ 3669}#
+                                           #{labels\ 4704}#
+                                           #{new-vars\ 4705}#
+                                           #{r\ 4685}#)))
+                                   (#{build-letrec\ 3656}#
+                                     #{s\ 4687}#
+                                     (map syntax->datum #{ids\ 4702}#)
+                                     #{new-vars\ 4705}#
+                                     (map (lambda (#{x\ 4708}#)
+                                            (#{chi\ 3710}#
+                                              #{x\ 4708}#
+                                              #{r\ 4707}#
+                                              #{w\ 4706}#
+                                              #{mod\ 4688}#))
+                                          #{val\ 4699}#)
+                                     (#{chi-body\ 3714}#
+                                       (cons #{e1\ 4700}# #{e2\ 4701}#)
+                                       (#{source-wrap\ 3703}#
+                                         #{e\ 4684}#
+                                         #{w\ 4706}#
+                                         #{s\ 4687}#
+                                         #{mod\ 4688}#)
+                                       #{r\ 4707}#
+                                       #{w\ 4706}#
+                                       #{mod\ 4688}#)))))))
+                         #{tmp\ 4690}#)
+                  ((lambda (#{_\ 4711}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 159}#
-                         #{e\ 1128}#
-                         #{w\ 1130}#
-                         #{s\ 1131}#
-                         #{mod\ 1132}#)))
-                   #{tmp\ 1133}#)))
+                       (#{source-wrap\ 3703}#
+                         #{e\ 4684}#
+                         #{w\ 4686}#
+                         #{s\ 4687}#
+                         #{mod\ 4688}#)))
+                   #{tmp\ 4689}#)))
               ($sc-dispatch
-                #{tmp\ 1133}#
+                #{tmp\ 4689}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 1128}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4684}#)))
+      (#{global-extend\ 3672}#
         'core
         'set!
-        (lambda (#{e\ 1156}#
-                 #{r\ 1157}#
-                 #{w\ 1158}#
-                 #{s\ 1159}#
-                 #{mod\ 1160}#)
-          ((lambda (#{tmp\ 1161}#)
-             ((lambda (#{tmp\ 1162}#)
-                (if (if #{tmp\ 1162}#
-                      (apply (lambda (#{_\ 1163}# #{id\ 1164}# #{val\ 1165}#)
-                               (#{id?\ 130}# #{id\ 1164}#))
-                             #{tmp\ 1162}#)
+        (lambda (#{e\ 4712}#
+                 #{r\ 4713}#
+                 #{w\ 4714}#
+                 #{s\ 4715}#
+                 #{mod\ 4716}#)
+          ((lambda (#{tmp\ 4717}#)
+             ((lambda (#{tmp\ 4718}#)
+                (if (if #{tmp\ 4718}#
+                      (apply (lambda (#{_\ 4719}# #{id\ 4720}# #{val\ 4721}#)
+                               (#{id?\ 3674}# #{id\ 4720}#))
+                             #{tmp\ 4718}#)
                       #f)
-                  (apply (lambda (#{_\ 1166}# #{id\ 1167}# #{val\ 1168}#)
-                           (let ((#{val\ 1169}#
-                                   (#{chi\ 166}#
-                                     #{val\ 1168}#
-                                     #{r\ 1157}#
-                                     #{w\ 1158}#
-                                     #{mod\ 1160}#))
-                                 (#{n\ 1170}#
-                                   (#{id-var-name\ 152}#
-                                     #{id\ 1167}#
-                                     #{w\ 1158}#)))
-                             (let ((#{b\ 1171}#
-                                     (#{lookup\ 127}#
-                                       #{n\ 1170}#
-                                       #{r\ 1157}#
-                                       #{mod\ 1160}#)))
-                               (let ((#{atom-key\ 1172}#
-                                       (#{binding-type\ 122}# #{b\ 1171}#)))
-                                 (if (memv #{atom-key\ 1172}#
+                  (apply (lambda (#{_\ 4722}# #{id\ 4723}# #{val\ 4724}#)
+                           (let ((#{val\ 4725}#
+                                   (#{chi\ 3710}#
+                                     #{val\ 4724}#
+                                     #{r\ 4713}#
+                                     #{w\ 4714}#
+                                     #{mod\ 4716}#))
+                                 (#{n\ 4726}#
+                                   (#{id-var-name\ 3696}#
+                                     #{id\ 4723}#
+                                     #{w\ 4714}#)))
+                             (let ((#{b\ 4727}#
+                                     (#{lookup\ 3671}#
+                                       #{n\ 4726}#
+                                       #{r\ 4713}#
+                                       #{mod\ 4716}#)))
+                               (let ((#{atom-key\ 4728}#
+                                       (#{binding-type\ 3666}# #{b\ 4727}#)))
+                                 (if (memv #{atom-key\ 4728}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 98}#
-                                     #{s\ 1159}#
-                                     (syntax->datum #{id\ 1167}#)
-                                     (#{binding-value\ 123}# #{b\ 1171}#)
-                                     #{val\ 1169}#)
-                                   (if (memv #{atom-key\ 1172}#
+                                   (#{build-lexical-assignment\ 3642}#
+                                     #{s\ 4715}#
+                                     (syntax->datum #{id\ 4723}#)
+                                     (#{binding-value\ 3667}# #{b\ 4727}#)
+                                     #{val\ 4725}#)
+                                   (if (memv #{atom-key\ 4728}#
                                              '(global))
-                                     (#{build-global-assignment\ 101}#
-                                       #{s\ 1159}#
-                                       #{n\ 1170}#
-                                       #{val\ 1169}#
-                                       #{mod\ 1160}#)
-                                     (if (memv #{atom-key\ 1172}#
+                                     (#{build-global-assignment\ 3645}#
+                                       #{s\ 4715}#
+                                       #{n\ 4726}#
+                                       #{val\ 4725}#
+                                       #{mod\ 4716}#)
+                                     (if (memv #{atom-key\ 4728}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 158}#
-                                           #{id\ 1167}#
-                                           #{w\ 1158}#
-                                           #{mod\ 1160}#))
+                                         (#{wrap\ 3702}#
+                                           #{id\ 4723}#
+                                           #{w\ 4714}#
+                                           #{mod\ 4716}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 159}#
-                                           #{e\ 1156}#
-                                           #{w\ 1158}#
-                                           #{s\ 1159}#
-                                           #{mod\ 1160}#)))))))))
-                         #{tmp\ 1162}#)
-                  ((lambda (#{tmp\ 1173}#)
-                     (if #{tmp\ 1173}#
-                       (apply (lambda (#{_\ 1174}#
-                                       #{head\ 1175}#
-                                       #{tail\ 1176}#
-                                       #{val\ 1177}#)
+                                         (#{source-wrap\ 3703}#
+                                           #{e\ 4712}#
+                                           #{w\ 4714}#
+                                           #{s\ 4715}#
+                                           #{mod\ 4716}#)))))))))
+                         #{tmp\ 4718}#)
+                  ((lambda (#{tmp\ 4729}#)
+                     (if #{tmp\ 4729}#
+                       (apply (lambda (#{_\ 4730}#
+                                       #{head\ 4731}#
+                                       #{tail\ 4732}#
+                                       #{val\ 4733}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 164}#
-                                      #{head\ 1175}#
-                                      #{r\ 1157}#
+                                    (#{syntax-type\ 3708}#
+                                      #{head\ 4731}#
+                                      #{r\ 4713}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 1160}#
+                                      #{mod\ 4716}#
                                       #t))
-                                  (lambda (#{type\ 1178}#
-                                           #{value\ 1179}#
-                                           #{ee\ 1180}#
-                                           #{ww\ 1181}#
-                                           #{ss\ 1182}#
-                                           #{modmod\ 1183}#)
-                                    (if (memv #{type\ 1178}#
+                                  (lambda (#{type\ 4734}#
+                                           #{value\ 4735}#
+                                           #{ee\ 4736}#
+                                           #{ww\ 4737}#
+                                           #{ss\ 4738}#
+                                           #{modmod\ 4739}#)
+                                    (if (memv #{type\ 4734}#
                                               '(module-ref))
-                                      (let ((#{val\ 1184}#
-                                              (#{chi\ 166}#
-                                                #{val\ 1177}#
-                                                #{r\ 1157}#
-                                                #{w\ 1158}#
-                                                #{mod\ 1160}#)))
+                                      (let ((#{val\ 4740}#
+                                              (#{chi\ 3710}#
+                                                #{val\ 4733}#
+                                                #{r\ 4713}#
+                                                #{w\ 4714}#
+                                                #{mod\ 4716}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 1179}#
-                                              (cons #{head\ 1175}#
-                                                    #{tail\ 1176}#)))
-                                          (lambda (#{id\ 1186}# #{mod\ 1187}#)
-                                            (#{build-global-assignment\ 101}#
-                                              #{s\ 1159}#
-                                              #{id\ 1186}#
-                                              #{val\ 1184}#
-                                              #{mod\ 1187}#))))
-                                      (#{build-application\ 95}#
-                                        #{s\ 1159}#
-                                        (#{chi\ 166}#
+                                            (#{value\ 4735}#
+                                              (cons #{head\ 4731}#
+                                                    #{tail\ 4732}#)))
+                                          (lambda (#{id\ 4742}# #{mod\ 4743}#)
+                                            (#{build-global-assignment\ 3645}#
+                                              #{s\ 4715}#
+                                              #{id\ 4742}#
+                                              #{val\ 4740}#
+                                              #{mod\ 4743}#))))
+                                      (#{build-application\ 3639}#
+                                        #{s\ 4715}#
+                                        (#{chi\ 3710}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -7290,53 +7351,53 @@
                                                       ((top) (top))
                                                       ("i" "i")))
                                                    (hygiene guile))
-                                                #{head\ 1175}#)
-                                          #{r\ 1157}#
-                                          #{w\ 1158}#
-                                          #{mod\ 1160}#)
-                                        (map (lambda (#{e\ 1188}#)
-                                               (#{chi\ 166}#
-                                                 #{e\ 1188}#
-                                                 #{r\ 1157}#
-                                                 #{w\ 1158}#
-                                                 #{mod\ 1160}#))
+                                                #{head\ 4731}#)
+                                          #{r\ 4713}#
+                                          #{w\ 4714}#
+                                          #{mod\ 4716}#)
+                                        (map (lambda (#{e\ 4744}#)
+                                               (#{chi\ 3710}#
+                                                 #{e\ 4744}#
+                                                 #{r\ 4713}#
+                                                 #{w\ 4714}#
+                                                 #{mod\ 4716}#))
                                              (append
-                                               #{tail\ 1176}#
-                                               (list #{val\ 1177}#))))))))
-                              #{tmp\ 1173}#)
-                       ((lambda (#{_\ 1190}#)
+                                               #{tail\ 4732}#
+                                               (list #{val\ 4733}#))))))))
+                              #{tmp\ 4729}#)
+                       ((lambda (#{_\ 4746}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 159}#
-                              #{e\ 1156}#
-                              #{w\ 1158}#
-                              #{s\ 1159}#
-                              #{mod\ 1160}#)))
-                        #{tmp\ 1161}#)))
+                            (#{source-wrap\ 3703}#
+                              #{e\ 4712}#
+                              #{w\ 4714}#
+                              #{s\ 4715}#
+                              #{mod\ 4716}#)))
+                        #{tmp\ 4717}#)))
                    ($sc-dispatch
-                     #{tmp\ 1161}#
+                     #{tmp\ 4717}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 1161}#
+                #{tmp\ 4717}#
                 '(any any any))))
-           #{e\ 1156}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4712}#)))
+      (#{global-extend\ 3672}#
         'module-ref
         '@
-        (lambda (#{e\ 1191}#)
-          ((lambda (#{tmp\ 1192}#)
-             ((lambda (#{tmp\ 1193}#)
-                (if (if #{tmp\ 1193}#
-                      (apply (lambda (#{_\ 1194}# #{mod\ 1195}# #{id\ 1196}#)
-                               (if (and-map #{id?\ 130}# #{mod\ 1195}#)
-                                 (#{id?\ 130}# #{id\ 1196}#)
+        (lambda (#{e\ 4747}#)
+          ((lambda (#{tmp\ 4748}#)
+             ((lambda (#{tmp\ 4749}#)
+                (if (if #{tmp\ 4749}#
+                      (apply (lambda (#{_\ 4750}# #{mod\ 4751}# #{id\ 4752}#)
+                               (if (and-map #{id?\ 3674}# #{mod\ 4751}#)
+                                 (#{id?\ 3674}# #{id\ 4752}#)
                                  #f))
-                             #{tmp\ 1193}#)
+                             #{tmp\ 4749}#)
                       #f)
-                  (apply (lambda (#{_\ 1198}# #{mod\ 1199}# #{id\ 1200}#)
+                  (apply (lambda (#{_\ 4754}# #{mod\ 4755}# #{id\ 4756}#)
                            (values
-                             (syntax->datum #{id\ 1200}#)
+                             (syntax->datum #{id\ 4756}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         public
@@ -7692,32 +7753,32 @@
                                            ((top) (top))
                                            ("i" "i")))
                                         (hygiene guile))
-                                     #{mod\ 1199}#))))
-                         #{tmp\ 1193}#)
+                                     #{mod\ 4755}#))))
+                         #{tmp\ 4749}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 1192}#)))
+                    #{tmp\ 4748}#)))
               ($sc-dispatch
-                #{tmp\ 1192}#
+                #{tmp\ 4748}#
                 '(any each-any any))))
-           #{e\ 1191}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4747}#)))
+      (#{global-extend\ 3672}#
         'module-ref
         '@@
-        (lambda (#{e\ 1202}#)
-          ((lambda (#{tmp\ 1203}#)
-             ((lambda (#{tmp\ 1204}#)
-                (if (if #{tmp\ 1204}#
-                      (apply (lambda (#{_\ 1205}# #{mod\ 1206}# #{id\ 1207}#)
-                               (if (and-map #{id?\ 130}# #{mod\ 1206}#)
-                                 (#{id?\ 130}# #{id\ 1207}#)
+        (lambda (#{e\ 4758}#)
+          ((lambda (#{tmp\ 4759}#)
+             ((lambda (#{tmp\ 4760}#)
+                (if (if #{tmp\ 4760}#
+                      (apply (lambda (#{_\ 4761}# #{mod\ 4762}# #{id\ 4763}#)
+                               (if (and-map #{id?\ 3674}# #{mod\ 4762}#)
+                                 (#{id?\ 3674}# #{id\ 4763}#)
                                  #f))
-                             #{tmp\ 1204}#)
+                             #{tmp\ 4760}#)
                       #f)
-                  (apply (lambda (#{_\ 1209}# #{mod\ 1210}# #{id\ 1211}#)
+                  (apply (lambda (#{_\ 4765}# #{mod\ 4766}# #{id\ 4767}#)
                            (values
-                             (syntax->datum #{id\ 1211}#)
+                             (syntax->datum #{id\ 4767}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         private
@@ -8073,123 +8134,123 @@
                                            ((top) (top))
                                            ("i" "i")))
                                         (hygiene guile))
-                                     #{mod\ 1210}#))))
-                         #{tmp\ 1204}#)
+                                     #{mod\ 4766}#))))
+                         #{tmp\ 4760}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 1203}#)))
+                    #{tmp\ 4759}#)))
               ($sc-dispatch
-                #{tmp\ 1203}#
+                #{tmp\ 4759}#
                 '(any each-any any))))
-           #{e\ 1202}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4758}#)))
+      (#{global-extend\ 3672}#
         'core
         'if
-        (lambda (#{e\ 1213}#
-                 #{r\ 1214}#
-                 #{w\ 1215}#
-                 #{s\ 1216}#
-                 #{mod\ 1217}#)
-          ((lambda (#{tmp\ 1218}#)
-             ((lambda (#{tmp\ 1219}#)
-                (if #{tmp\ 1219}#
-                  (apply (lambda (#{_\ 1220}# #{test\ 1221}# #{then\ 1222}#)
-                           (#{build-conditional\ 96}#
-                             #{s\ 1216}#
-                             (#{chi\ 166}#
-                               #{test\ 1221}#
-                               #{r\ 1214}#
-                               #{w\ 1215}#
-                               #{mod\ 1217}#)
-                             (#{chi\ 166}#
-                               #{then\ 1222}#
-                               #{r\ 1214}#
-                               #{w\ 1215}#
-                               #{mod\ 1217}#)
-                             (#{build-void\ 94}# #f)))
-                         #{tmp\ 1219}#)
-                  ((lambda (#{tmp\ 1223}#)
-                     (if #{tmp\ 1223}#
-                       (apply (lambda (#{_\ 1224}#
-                                       #{test\ 1225}#
-                                       #{then\ 1226}#
-                                       #{else\ 1227}#)
-                                (#{build-conditional\ 96}#
-                                  #{s\ 1216}#
-                                  (#{chi\ 166}#
-                                    #{test\ 1225}#
-                                    #{r\ 1214}#
-                                    #{w\ 1215}#
-                                    #{mod\ 1217}#)
-                                  (#{chi\ 166}#
-                                    #{then\ 1226}#
-                                    #{r\ 1214}#
-                                    #{w\ 1215}#
-                                    #{mod\ 1217}#)
-                                  (#{chi\ 166}#
-                                    #{else\ 1227}#
-                                    #{r\ 1214}#
-                                    #{w\ 1215}#
-                                    #{mod\ 1217}#)))
-                              #{tmp\ 1223}#)
+        (lambda (#{e\ 4769}#
+                 #{r\ 4770}#
+                 #{w\ 4771}#
+                 #{s\ 4772}#
+                 #{mod\ 4773}#)
+          ((lambda (#{tmp\ 4774}#)
+             ((lambda (#{tmp\ 4775}#)
+                (if #{tmp\ 4775}#
+                  (apply (lambda (#{_\ 4776}# #{test\ 4777}# #{then\ 4778}#)
+                           (#{build-conditional\ 3640}#
+                             #{s\ 4772}#
+                             (#{chi\ 3710}#
+                               #{test\ 4777}#
+                               #{r\ 4770}#
+                               #{w\ 4771}#
+                               #{mod\ 4773}#)
+                             (#{chi\ 3710}#
+                               #{then\ 4778}#
+                               #{r\ 4770}#
+                               #{w\ 4771}#
+                               #{mod\ 4773}#)
+                             (#{build-void\ 3638}# #f)))
+                         #{tmp\ 4775}#)
+                  ((lambda (#{tmp\ 4779}#)
+                     (if #{tmp\ 4779}#
+                       (apply (lambda (#{_\ 4780}#
+                                       #{test\ 4781}#
+                                       #{then\ 4782}#
+                                       #{else\ 4783}#)
+                                (#{build-conditional\ 3640}#
+                                  #{s\ 4772}#
+                                  (#{chi\ 3710}#
+                                    #{test\ 4781}#
+                                    #{r\ 4770}#
+                                    #{w\ 4771}#
+                                    #{mod\ 4773}#)
+                                  (#{chi\ 3710}#
+                                    #{then\ 4782}#
+                                    #{r\ 4770}#
+                                    #{w\ 4771}#
+                                    #{mod\ 4773}#)
+                                  (#{chi\ 3710}#
+                                    #{else\ 4783}#
+                                    #{r\ 4770}#
+                                    #{w\ 4771}#
+                                    #{mod\ 4773}#)))
+                              #{tmp\ 4779}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 1218}#)))
+                         #{tmp\ 4774}#)))
                    ($sc-dispatch
-                     #{tmp\ 1218}#
+                     #{tmp\ 4774}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 1218}#
+                #{tmp\ 4774}#
                 '(any any any))))
-           #{e\ 1213}#)))
-      (#{global-extend\ 128}#
+           #{e\ 4769}#)))
+      (#{global-extend\ 3672}#
         'begin
         'begin
         '())
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'define
         'define
         '())
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 128}#
+      (#{global-extend\ 3672}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 1231}#
-                   (lambda (#{x\ 1232}#
-                            #{keys\ 1233}#
-                            #{clauses\ 1234}#
-                            #{r\ 1235}#
-                            #{mod\ 1236}#)
-                     (if (null? #{clauses\ 1234}#)
-                       (#{build-application\ 95}#
+        (letrec ((#{gen-syntax-case\ 4787}#
+                   (lambda (#{x\ 4788}#
+                            #{keys\ 4789}#
+                            #{clauses\ 4790}#
+                            #{r\ 4791}#
+                            #{mod\ 4792}#)
+                     (if (null? #{clauses\ 4790}#)
+                       (#{build-application\ 3639}#
                          #f
-                         (#{build-primref\ 107}#
+                         (#{build-primref\ 3651}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 108}# #f #f)
-                               (#{build-data\ 108}#
+                         (list (#{build-data\ 3652}# #f #f)
+                               (#{build-data\ 3652}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 1232}#))
-                       ((lambda (#{tmp\ 1237}#)
-                          ((lambda (#{tmp\ 1238}#)
-                             (if #{tmp\ 1238}#
-                               (apply (lambda (#{pat\ 1239}# #{exp\ 1240}#)
-                                        (if (if (#{id?\ 130}# #{pat\ 1239}#)
+                               #{x\ 4788}#))
+                       ((lambda (#{tmp\ 4793}#)
+                          ((lambda (#{tmp\ 4794}#)
+                             (if #{tmp\ 4794}#
+                               (apply (lambda (#{pat\ 4795}# #{exp\ 4796}#)
+                                        (if (if (#{id?\ 3674}# #{pat\ 4795}#)
                                               (and-map
-                                                (lambda (#{x\ 1241}#)
-                                                  (not (#{free-id=?\ 153}#
-                                                         #{pat\ 1239}#
-                                                         #{x\ 1241}#)))
+                                                (lambda (#{x\ 4797}#)
+                                                  (not (#{free-id=?\ 3697}#
+                                                         #{pat\ 4795}#
+                                                         #{x\ 4797}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
@@ -8570,734 +8631,735 @@
                                                             ((top) (top))
                                                             ("i" "i")))
                                                          (hygiene guile))
-                                                      #{keys\ 1233}#))
+                                                      #{keys\ 4789}#))
                                               #f)
-                                          (let ((#{labels\ 1242}#
-                                                  (list (#{gen-label\ 135}#)))
-                                                (#{var\ 1243}#
-                                                  (#{gen-var\ 176}#
-                                                    #{pat\ 1239}#)))
-                                            (#{build-application\ 95}#
+                                          (let ((#{labels\ 4798}#
+                                                  (list (#{gen-label\ 3679}#)))
+                                                (#{var\ 4799}#
+                                                  (#{gen-var\ 3720}#
+                                                    #{pat\ 4795}#)))
+                                            (#{build-application\ 3639}#
                                               #f
-                                              (#{build-simple-lambda\ 104}#
+                                              (#{build-simple-lambda\ 3648}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 1239}#))
+                                                        #{pat\ 4795}#))
                                                 #f
-                                                (list #{var\ 1243}#)
+                                                (list #{var\ 4799}#)
                                                 #f
-                                                (#{chi\ 166}#
-                                                  #{exp\ 1240}#
-                                                  (#{extend-env\ 124}#
-                                                    #{labels\ 1242}#
+                                                (#{chi\ 3710}#
+                                                  #{exp\ 4796}#
+                                                  (#{extend-env\ 3668}#
+                                                    #{labels\ 4798}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
1243}#
+                                                                (cons #{var\ 
4799}#
                                                                       0)))
-                                                    #{r\ 1235}#)
-                                                  (#{make-binding-wrap\ 147}#
-                                                    (list #{pat\ 1239}#)
-                                                    #{labels\ 1242}#
+                                                    #{r\ 4791}#)
+                                                  (#{make-binding-wrap\ 3691}#
+                                                    (list #{pat\ 4795}#)
+                                                    #{labels\ 4798}#
                                                     '(()))
-                                                  #{mod\ 1236}#))
-                                              (list #{x\ 1232}#)))
-                                          (#{gen-clause\ 1230}#
-                                            #{x\ 1232}#
-                                            #{keys\ 1233}#
-                                            (cdr #{clauses\ 1234}#)
-                                            #{r\ 1235}#
-                                            #{pat\ 1239}#
+                                                  #{mod\ 4792}#))
+                                              (list #{x\ 4788}#)))
+                                          (#{gen-clause\ 4786}#
+                                            #{x\ 4788}#
+                                            #{keys\ 4789}#
+                                            (cdr #{clauses\ 4790}#)
+                                            #{r\ 4791}#
+                                            #{pat\ 4795}#
                                             #t
-                                            #{exp\ 1240}#
-                                            #{mod\ 1236}#)))
-                                      #{tmp\ 1238}#)
-                               ((lambda (#{tmp\ 1244}#)
-                                  (if #{tmp\ 1244}#
-                                    (apply (lambda (#{pat\ 1245}#
-                                                    #{fender\ 1246}#
-                                                    #{exp\ 1247}#)
-                                             (#{gen-clause\ 1230}#
-                                               #{x\ 1232}#
-                                               #{keys\ 1233}#
-                                               (cdr #{clauses\ 1234}#)
-                                               #{r\ 1235}#
-                                               #{pat\ 1245}#
-                                               #{fender\ 1246}#
-                                               #{exp\ 1247}#
-                                               #{mod\ 1236}#))
-                                           #{tmp\ 1244}#)
-                                    ((lambda (#{_\ 1248}#)
+                                            #{exp\ 4796}#
+                                            #{mod\ 4792}#)))
+                                      #{tmp\ 4794}#)
+                               ((lambda (#{tmp\ 4800}#)
+                                  (if #{tmp\ 4800}#
+                                    (apply (lambda (#{pat\ 4801}#
+                                                    #{fender\ 4802}#
+                                                    #{exp\ 4803}#)
+                                             (#{gen-clause\ 4786}#
+                                               #{x\ 4788}#
+                                               #{keys\ 4789}#
+                                               (cdr #{clauses\ 4790}#)
+                                               #{r\ 4791}#
+                                               #{pat\ 4801}#
+                                               #{fender\ 4802}#
+                                               #{exp\ 4803}#
+                                               #{mod\ 4792}#))
+                                           #{tmp\ 4800}#)
+                                    ((lambda (#{_\ 4804}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 1234}#)))
-                                     #{tmp\ 1237}#)))
+                                         (car #{clauses\ 4790}#)))
+                                     #{tmp\ 4793}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 1237}#
+                                  #{tmp\ 4793}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 1237}# (quote (any any)))))
-                        (car #{clauses\ 1234}#)))))
-                 (#{gen-clause\ 1230}#
-                   (lambda (#{x\ 1249}#
-                            #{keys\ 1250}#
-                            #{clauses\ 1251}#
-                            #{r\ 1252}#
-                            #{pat\ 1253}#
-                            #{fender\ 1254}#
-                            #{exp\ 1255}#
-                            #{mod\ 1256}#)
+                           ($sc-dispatch #{tmp\ 4793}# (quote (any any)))))
+                        (car #{clauses\ 4790}#)))))
+                 (#{gen-clause\ 4786}#
+                   (lambda (#{x\ 4805}#
+                            #{keys\ 4806}#
+                            #{clauses\ 4807}#
+                            #{r\ 4808}#
+                            #{pat\ 4809}#
+                            #{fender\ 4810}#
+                            #{exp\ 4811}#
+                            #{mod\ 4812}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 1228}#
-                           #{pat\ 1253}#
-                           #{keys\ 1250}#))
-                       (lambda (#{p\ 1257}# #{pvars\ 1258}#)
-                         (if (not (#{distinct-bound-ids?\ 156}#
-                                    (map car #{pvars\ 1258}#)))
+                         (#{convert-pattern\ 4784}#
+                           #{pat\ 4809}#
+                           #{keys\ 4806}#))
+                       (lambda (#{p\ 4813}# #{pvars\ 4814}#)
+                         (if (not (#{distinct-bound-ids?\ 3700}#
+                                    (map car #{pvars\ 4814}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 1253}#)
+                             #{pat\ 4809}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 1259}#)
-                                        (not (#{ellipsis?\ 174}#
-                                               (car #{x\ 1259}#))))
-                                      #{pvars\ 1258}#))
+                                      (lambda (#{x\ 4815}#)
+                                        (not (#{ellipsis?\ 3718}#
+                                               (car #{x\ 4815}#))))
+                                      #{pvars\ 4814}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 1253}#)
-                             (let ((#{y\ 1260}#
-                                     (#{gen-var\ 176}# (quote tmp))))
-                               (#{build-application\ 95}#
+                               #{pat\ 4809}#)
+                             (let ((#{y\ 4816}#
+                                     (#{gen-var\ 3720}# (quote tmp))))
+                               (#{build-application\ 3639}#
                                  #f
-                                 (#{build-simple-lambda\ 104}#
+                                 (#{build-simple-lambda\ 3648}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 1260}#)
+                                   (list #{y\ 4816}#)
                                    #f
-                                   (let ((#{y\ 1261}#
-                                           (#{build-lexical-reference\ 97}#
+                                   (let ((#{y\ 4817}#
+                                           (#{build-lexical-reference\ 3641}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 1260}#)))
-                                     (#{build-conditional\ 96}#
+                                             #{y\ 4816}#)))
+                                     (#{build-conditional\ 3640}#
                                        #f
-                                       ((lambda (#{tmp\ 1262}#)
-                                          ((lambda (#{tmp\ 1263}#)
-                                             (if #{tmp\ 1263}#
-                                               (apply (lambda () #{y\ 1261}#)
-                                                      #{tmp\ 1263}#)
-                                               ((lambda (#{_\ 1264}#)
-                                                  (#{build-conditional\ 96}#
+                                       ((lambda (#{tmp\ 4818}#)
+                                          ((lambda (#{tmp\ 4819}#)
+                                             (if #{tmp\ 4819}#
+                                               (apply (lambda () #{y\ 4817}#)
+                                                      #{tmp\ 4819}#)
+                                               ((lambda (#{_\ 4820}#)
+                                                  (#{build-conditional\ 3640}#
                                                     #f
-                                                    #{y\ 1261}#
-                                                    (#{build-dispatch-call\ 
1229}#
-                                                      #{pvars\ 1258}#
-                                                      #{fender\ 1254}#
-                                                      #{y\ 1261}#
-                                                      #{r\ 1252}#
-                                                      #{mod\ 1256}#)
-                                                    (#{build-data\ 108}#
+                                                    #{y\ 4817}#
+                                                    (#{build-dispatch-call\ 
4785}#
+                                                      #{pvars\ 4814}#
+                                                      #{fender\ 4810}#
+                                                      #{y\ 4817}#
+                                                      #{r\ 4808}#
+                                                      #{mod\ 4812}#)
+                                                    (#{build-data\ 3652}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 1262}#)))
+                                                #{tmp\ 4818}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 1262}#
+                                             #{tmp\ 4818}#
                                              '#(atom #t))))
-                                        #{fender\ 1254}#)
-                                       (#{build-dispatch-call\ 1229}#
-                                         #{pvars\ 1258}#
-                                         #{exp\ 1255}#
-                                         #{y\ 1261}#
-                                         #{r\ 1252}#
-                                         #{mod\ 1256}#)
-                                       (#{gen-syntax-case\ 1231}#
-                                         #{x\ 1249}#
-                                         #{keys\ 1250}#
-                                         #{clauses\ 1251}#
-                                         #{r\ 1252}#
-                                         #{mod\ 1256}#))))
-                                 (list (if (eq? #{p\ 1257}# (quote any))
-                                         (#{build-application\ 95}#
+                                        #{fender\ 4810}#)
+                                       (#{build-dispatch-call\ 4785}#
+                                         #{pvars\ 4814}#
+                                         #{exp\ 4811}#
+                                         #{y\ 4817}#
+                                         #{r\ 4808}#
+                                         #{mod\ 4812}#)
+                                       (#{gen-syntax-case\ 4787}#
+                                         #{x\ 4805}#
+                                         #{keys\ 4806}#
+                                         #{clauses\ 4807}#
+                                         #{r\ 4808}#
+                                         #{mod\ 4812}#))))
+                                 (list (if (eq? #{p\ 4813}# (quote any))
+                                         (#{build-application\ 3639}#
                                            #f
-                                           (#{build-primref\ 107}#
+                                           (#{build-primref\ 3651}#
                                              #f
                                              'list)
-                                           (list #{x\ 1249}#))
-                                         (#{build-application\ 95}#
+                                           (list #{x\ 4805}#))
+                                         (#{build-application\ 3639}#
                                            #f
-                                           (#{build-primref\ 107}#
+                                           (#{build-primref\ 3651}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 1249}#
-                                                 (#{build-data\ 108}#
+                                           (list #{x\ 4805}#
+                                                 (#{build-data\ 3652}#
                                                    #f
-                                                   #{p\ 1257}#)))))))))))))
-                 (#{build-dispatch-call\ 1229}#
-                   (lambda (#{pvars\ 1265}#
-                            #{exp\ 1266}#
-                            #{y\ 1267}#
-                            #{r\ 1268}#
-                            #{mod\ 1269}#)
-                     (let ((#{ids\ 1270}# (map car #{pvars\ 1265}#))
-                           (#{levels\ 1271}# (map cdr #{pvars\ 1265}#)))
-                       (let ((#{labels\ 1272}#
-                               (#{gen-labels\ 136}# #{ids\ 1270}#))
-                             (#{new-vars\ 1273}#
-                               (map #{gen-var\ 176}# #{ids\ 1270}#)))
-                         (#{build-application\ 95}#
+                                                   #{p\ 4813}#)))))))))))))
+                 (#{build-dispatch-call\ 4785}#
+                   (lambda (#{pvars\ 4821}#
+                            #{exp\ 4822}#
+                            #{y\ 4823}#
+                            #{r\ 4824}#
+                            #{mod\ 4825}#)
+                     (let ((#{ids\ 4826}# (map car #{pvars\ 4821}#))
+                           (#{levels\ 4827}# (map cdr #{pvars\ 4821}#)))
+                       (let ((#{labels\ 4828}#
+                               (#{gen-labels\ 3680}# #{ids\ 4826}#))
+                             (#{new-vars\ 4829}#
+                               (map #{gen-var\ 3720}# #{ids\ 4826}#)))
+                         (#{build-application\ 3639}#
                            #f
-                           (#{build-primref\ 107}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 104}#
+                           (#{build-primref\ 3651}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 3648}#
                                    #f
-                                   (map syntax->datum #{ids\ 1270}#)
+                                   (map syntax->datum #{ids\ 4826}#)
                                    #f
-                                   #{new-vars\ 1273}#
+                                   #{new-vars\ 4829}#
                                    #f
-                                   (#{chi\ 166}#
-                                     #{exp\ 1266}#
-                                     (#{extend-env\ 124}#
-                                       #{labels\ 1272}#
-                                       (map (lambda (#{var\ 1274}#
-                                                     #{level\ 1275}#)
+                                   (#{chi\ 3710}#
+                                     #{exp\ 4822}#
+                                     (#{extend-env\ 3668}#
+                                       #{labels\ 4828}#
+                                       (map (lambda (#{var\ 4830}#
+                                                     #{level\ 4831}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 1274}#
-                                                          #{level\ 1275}#)))
-                                            #{new-vars\ 1273}#
-                                            (map cdr #{pvars\ 1265}#))
-                                       #{r\ 1268}#)
-                                     (#{make-binding-wrap\ 147}#
-                                       #{ids\ 1270}#
-                                       #{labels\ 1272}#
+                                                    (cons #{var\ 4830}#
+                                                          #{level\ 4831}#)))
+                                            #{new-vars\ 4829}#
+                                            (map cdr #{pvars\ 4821}#))
+                                       #{r\ 4824}#)
+                                     (#{make-binding-wrap\ 3691}#
+                                       #{ids\ 4826}#
+                                       #{labels\ 4828}#
                                        '(()))
-                                     #{mod\ 1269}#))
-                                 #{y\ 1267}#))))))
-                 (#{convert-pattern\ 1228}#
-                   (lambda (#{pattern\ 1276}# #{keys\ 1277}#)
-                     (letrec ((#{cvt\ 1278}#
-                                (lambda (#{p\ 1279}# #{n\ 1280}# #{ids\ 1281}#)
-                                  (if (#{id?\ 130}# #{p\ 1279}#)
-                                    (if (#{bound-id-member?\ 157}#
-                                          #{p\ 1279}#
-                                          #{keys\ 1277}#)
+                                     #{mod\ 4825}#))
+                                 #{y\ 4823}#))))))
+                 (#{convert-pattern\ 4784}#
+                   (lambda (#{pattern\ 4832}# #{keys\ 4833}#)
+                     (letrec ((#{cvt\ 4834}#
+                                (lambda (#{p\ 4835}# #{n\ 4836}# #{ids\ 4837}#)
+                                  (if (#{id?\ 3674}# #{p\ 4835}#)
+                                    (if (#{bound-id-member?\ 3701}#
+                                          #{p\ 4835}#
+                                          #{keys\ 4833}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 1279}#)
-                                        #{ids\ 1281}#)
+                                        (vector (quote free-id) #{p\ 4835}#)
+                                        #{ids\ 4837}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 1279}# #{n\ 1280}#)
-                                              #{ids\ 1281}#)))
-                                    ((lambda (#{tmp\ 1282}#)
-                                       ((lambda (#{tmp\ 1283}#)
-                                          (if (if #{tmp\ 1283}#
-                                                (apply (lambda (#{x\ 1284}#
-                                                                #{dots\ 1285}#)
-                                                         (#{ellipsis?\ 174}#
-                                                           #{dots\ 1285}#))
-                                                       #{tmp\ 1283}#)
+                                        (cons (cons #{p\ 4835}# #{n\ 4836}#)
+                                              #{ids\ 4837}#)))
+                                    ((lambda (#{tmp\ 4838}#)
+                                       ((lambda (#{tmp\ 4839}#)
+                                          (if (if #{tmp\ 4839}#
+                                                (apply (lambda (#{x\ 4840}#
+                                                                #{dots\ 4841}#)
+                                                         (#{ellipsis?\ 3718}#
+                                                           #{dots\ 4841}#))
+                                                       #{tmp\ 4839}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 1286}#
-                                                            #{dots\ 1287}#)
+                                            (apply (lambda (#{x\ 4842}#
+                                                            #{dots\ 4843}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 1278}#
-                                                           #{x\ 1286}#
-                                                           (#{fx+\ 85}#
-                                                             #{n\ 1280}#
+                                                         (#{cvt\ 4834}#
+                                                           #{x\ 4842}#
+                                                           (#{fx+\ 3629}#
+                                                             #{n\ 4836}#
                                                              1)
-                                                           #{ids\ 1281}#))
-                                                       (lambda (#{p\ 1288}#
-                                                                #{ids\ 1289}#)
+                                                           #{ids\ 4837}#))
+                                                       (lambda (#{p\ 4844}#
+                                                                #{ids\ 4845}#)
                                                          (values
-                                                           (if (eq? #{p\ 1288}#
+                                                           (if (eq? #{p\ 4844}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 1288}#))
-                                                           #{ids\ 1289}#))))
-                                                   #{tmp\ 1283}#)
-                                            ((lambda (#{tmp\ 1290}#)
-                                               (if #{tmp\ 1290}#
-                                                 (apply (lambda (#{x\ 1291}#
-                                                                 #{y\ 1292}#)
+                                                               #{p\ 4844}#))
+                                                           #{ids\ 4845}#))))
+                                                   #{tmp\ 4839}#)
+                                            ((lambda (#{tmp\ 4846}#)
+                                               (if #{tmp\ 4846}#
+                                                 (apply (lambda (#{x\ 4847}#
+                                                                 #{y\ 4848}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt\ 1278}#
-                                                                #{y\ 1292}#
-                                                                #{n\ 1280}#
-                                                                #{ids\ 1281}#))
-                                                            (lambda (#{y\ 
1293}#
-                                                                     #{ids\ 
1294}#)
+                                                              (#{cvt\ 4834}#
+                                                                #{y\ 4848}#
+                                                                #{n\ 4836}#
+                                                                #{ids\ 4837}#))
+                                                            (lambda (#{y\ 
4849}#
+                                                                     #{ids\ 
4850}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
1278}#
-                                                                    #{x\ 1291}#
-                                                                    #{n\ 1280}#
-                                                                    #{ids\ 
1294}#))
-                                                                (lambda (#{x\ 
1295}#
-                                                                         
#{ids\ 1296}#)
+                                                                  (#{cvt\ 
4834}#
+                                                                    #{x\ 4847}#
+                                                                    #{n\ 4836}#
+                                                                    #{ids\ 
4850}#))
+                                                                (lambda (#{x\ 
4851}#
+                                                                         
#{ids\ 4852}#)
                                                                   (values
-                                                                    (cons #{x\ 
1295}#
-                                                                          #{y\ 
1293}#)
-                                                                    #{ids\ 
1296}#))))))
-                                                        #{tmp\ 1290}#)
-                                                 ((lambda (#{tmp\ 1297}#)
-                                                    (if #{tmp\ 1297}#
+                                                                    (cons #{x\ 
4851}#
+                                                                          #{y\ 
4849}#)
+                                                                    #{ids\ 
4852}#))))))
+                                                        #{tmp\ 4846}#)
+                                                 ((lambda (#{tmp\ 4853}#)
+                                                    (if #{tmp\ 4853}#
                                                       (apply (lambda ()
                                                                (values
                                                                  '()
-                                                                 #{ids\ 
1281}#))
-                                                             #{tmp\ 1297}#)
-                                                      ((lambda (#{tmp\ 1298}#)
-                                                         (if #{tmp\ 1298}#
-                                                           (apply (lambda 
(#{x\ 1299}#)
+                                                                 #{ids\ 
4837}#))
+                                                             #{tmp\ 4853}#)
+                                                      ((lambda (#{tmp\ 4854}#)
+                                                         (if #{tmp\ 4854}#
+                                                           (apply (lambda 
(#{x\ 4855}#)
                                                                     
(call-with-values
                                                                       (lambda 
()
-                                                                        
(#{cvt\ 1278}#
-                                                                          #{x\ 
1299}#
-                                                                          #{n\ 
1280}#
-                                                                          
#{ids\ 1281}#))
-                                                                      (lambda 
(#{p\ 1301}#
-                                                                               
#{ids\ 1302}#)
+                                                                        
(#{cvt\ 4834}#
+                                                                          #{x\ 
4855}#
+                                                                          #{n\ 
4836}#
+                                                                          
#{ids\ 4837}#))
+                                                                      (lambda 
(#{p\ 4857}#
+                                                                               
#{ids\ 4858}#)
                                                                         (values
                                                                           
(vector
                                                                             
'vector
-                                                                            
#{p\ 1301}#)
-                                                                          
#{ids\ 1302}#))))
-                                                                  #{tmp\ 
1298}#)
-                                                           ((lambda (#{x\ 
1303}#)
+                                                                            
#{p\ 4857}#)
+                                                                          
#{ids\ 4858}#))))
+                                                                  #{tmp\ 
4854}#)
+                                                           ((lambda (#{x\ 
4859}#)
                                                               (values
                                                                 (vector
                                                                   'atom
-                                                                  (#{strip\ 
175}#
-                                                                    #{p\ 1279}#
+                                                                  (#{strip\ 
3719}#
+                                                                    #{p\ 4835}#
                                                                     '(())))
-                                                                #{ids\ 1281}#))
-                                                            #{tmp\ 1282}#)))
+                                                                #{ids\ 4837}#))
+                                                            #{tmp\ 4838}#)))
                                                        ($sc-dispatch
-                                                         #{tmp\ 1282}#
+                                                         #{tmp\ 4838}#
                                                          '#(vector
                                                             each-any)))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 1282}#
+                                                    #{tmp\ 4838}#
                                                     '()))))
                                              ($sc-dispatch
-                                               #{tmp\ 1282}#
+                                               #{tmp\ 4838}#
                                                '(any . any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 1282}#
+                                          #{tmp\ 4838}#
                                           '(any any))))
-                                     #{p\ 1279}#)))))
-                       (#{cvt\ 1278}# #{pattern\ 1276}# 0 (quote ()))))))
-          (lambda (#{e\ 1304}#
-                   #{r\ 1305}#
-                   #{w\ 1306}#
-                   #{s\ 1307}#
-                   #{mod\ 1308}#)
-            (let ((#{e\ 1309}#
-                    (#{source-wrap\ 159}#
-                      #{e\ 1304}#
-                      #{w\ 1306}#
-                      #{s\ 1307}#
-                      #{mod\ 1308}#)))
-              ((lambda (#{tmp\ 1310}#)
-                 ((lambda (#{tmp\ 1311}#)
-                    (if #{tmp\ 1311}#
-                      (apply (lambda (#{_\ 1312}#
-                                      #{val\ 1313}#
-                                      #{key\ 1314}#
-                                      #{m\ 1315}#)
+                                     #{p\ 4835}#)))))
+                       (#{cvt\ 4834}# #{pattern\ 4832}# 0 (quote ()))))))
+          (lambda (#{e\ 4860}#
+                   #{r\ 4861}#
+                   #{w\ 4862}#
+                   #{s\ 4863}#
+                   #{mod\ 4864}#)
+            (let ((#{e\ 4865}#
+                    (#{source-wrap\ 3703}#
+                      #{e\ 4860}#
+                      #{w\ 4862}#
+                      #{s\ 4863}#
+                      #{mod\ 4864}#)))
+              ((lambda (#{tmp\ 4866}#)
+                 ((lambda (#{tmp\ 4867}#)
+                    (if #{tmp\ 4867}#
+                      (apply (lambda (#{_\ 4868}#
+                                      #{val\ 4869}#
+                                      #{key\ 4870}#
+                                      #{m\ 4871}#)
                                (if (and-map
-                                     (lambda (#{x\ 1316}#)
-                                       (if (#{id?\ 130}# #{x\ 1316}#)
-                                         (not (#{ellipsis?\ 174}# #{x\ 1316}#))
+                                     (lambda (#{x\ 4872}#)
+                                       (if (#{id?\ 3674}# #{x\ 4872}#)
+                                         (not (#{ellipsis?\ 3718}#
+                                                #{x\ 4872}#))
                                          #f))
-                                     #{key\ 1314}#)
-                                 (let ((#{x\ 1318}#
-                                         (#{gen-var\ 176}# (quote tmp))))
-                                   (#{build-application\ 95}#
-                                     #{s\ 1307}#
-                                     (#{build-simple-lambda\ 104}#
+                                     #{key\ 4870}#)
+                                 (let ((#{x\ 4874}#
+                                         (#{gen-var\ 3720}# (quote tmp))))
+                                   (#{build-application\ 3639}#
+                                     #{s\ 4863}#
+                                     (#{build-simple-lambda\ 3648}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 1318}#)
+                                       (list #{x\ 4874}#)
                                        #f
-                                       (#{gen-syntax-case\ 1231}#
-                                         (#{build-lexical-reference\ 97}#
+                                       (#{gen-syntax-case\ 4787}#
+                                         (#{build-lexical-reference\ 3641}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 1318}#)
-                                         #{key\ 1314}#
-                                         #{m\ 1315}#
-                                         #{r\ 1305}#
-                                         #{mod\ 1308}#))
-                                     (list (#{chi\ 166}#
-                                             #{val\ 1313}#
-                                             #{r\ 1305}#
+                                           #{x\ 4874}#)
+                                         #{key\ 4870}#
+                                         #{m\ 4871}#
+                                         #{r\ 4861}#
+                                         #{mod\ 4864}#))
+                                     (list (#{chi\ 3710}#
+                                             #{val\ 4869}#
+                                             #{r\ 4861}#
                                              '(())
-                                             #{mod\ 1308}#))))
+                                             #{mod\ 4864}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 1309}#)))
-                             #{tmp\ 1311}#)
+                                   #{e\ 4865}#)))
+                             #{tmp\ 4867}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 1310}#)))
+                        #{tmp\ 4866}#)))
                   ($sc-dispatch
-                    #{tmp\ 1310}#
+                    #{tmp\ 4866}#
                     '(any any each-any . each-any))))
-               #{e\ 1309}#)))))
+               #{e\ 4865}#)))))
       (set! sc-expand
-        (lambda (#{x\ 1321}# . #{rest\ 1322}#)
-          (if (if (pair? #{x\ 1321}#)
-                (equal? (car #{x\ 1321}#) #{noexpand\ 83}#)
+        (lambda (#{x\ 4877}# . #{rest\ 4878}#)
+          (if (if (pair? #{x\ 4877}#)
+                (equal? (car #{x\ 4877}#) #{noexpand\ 3627}#)
                 #f)
-            (cadr #{x\ 1321}#)
-            (let ((#{m\ 1323}#
-                    (if (null? #{rest\ 1322}#)
+            (cadr #{x\ 4877}#)
+            (let ((#{m\ 4879}#
+                    (if (null? #{rest\ 4878}#)
                       'e
-                      (car #{rest\ 1322}#)))
-                  (#{esew\ 1324}#
-                    (if (let ((#{t\ 1325}# (null? #{rest\ 1322}#)))
-                          (if #{t\ 1325}#
-                            #{t\ 1325}#
-                            (null? (cdr #{rest\ 1322}#))))
+                      (car #{rest\ 4878}#)))
+                  (#{esew\ 4880}#
+                    (if (let ((#{t\ 4881}# (null? #{rest\ 4878}#)))
+                          (if #{t\ 4881}#
+                            #{t\ 4881}#
+                            (null? (cdr #{rest\ 4878}#))))
                       '(eval)
-                      (cadr #{rest\ 1322}#))))
+                      (cadr #{rest\ 4878}#))))
               (with-fluid*
-                #{*mode*\ 84}#
-                #{m\ 1323}#
+                #{*mode*\ 3628}#
+                #{m\ 4879}#
                 (lambda ()
-                  (#{chi-top\ 165}#
-                    #{x\ 1321}#
+                  (#{chi-top\ 3709}#
+                    #{x\ 4877}#
                     '()
                     '((top))
-                    #{m\ 1323}#
-                    #{esew\ 1324}#
+                    #{m\ 4879}#
+                    #{esew\ 4880}#
                     (cons 'hygiene
                           (module-name (current-module))))))))))
       (set! identifier?
-        (lambda (#{x\ 1326}#)
-          (#{nonsymbol-id?\ 129}# #{x\ 1326}#)))
+        (lambda (#{x\ 4882}#)
+          (#{nonsymbol-id?\ 3673}# #{x\ 4882}#)))
       (set! datum->syntax
-        (lambda (#{id\ 1327}# #{datum\ 1328}#)
-          (#{make-syntax-object\ 113}#
-            #{datum\ 1328}#
-            (#{syntax-object-wrap\ 116}# #{id\ 1327}#)
+        (lambda (#{id\ 4883}# #{datum\ 4884}#)
+          (#{make-syntax-object\ 3657}#
+            #{datum\ 4884}#
+            (#{syntax-object-wrap\ 3660}# #{id\ 4883}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 1329}#)
-          (#{strip\ 175}# #{x\ 1329}# (quote (())))))
+        (lambda (#{x\ 4885}#)
+          (#{strip\ 3719}# #{x\ 4885}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 1330}#)
+        (lambda (#{ls\ 4886}#)
           (begin
-            (let ((#{x\ 1331}# #{ls\ 1330}#))
-              (if (not (list? #{x\ 1331}#))
+            (let ((#{x\ 4887}# #{ls\ 4886}#))
+              (if (not (list? #{x\ 4887}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 1331}#)))
-            (map (lambda (#{x\ 1332}#)
-                   (#{wrap\ 158}# (gensym) (quote ((top))) #f))
-                 #{ls\ 1330}#))))
+                  #{x\ 4887}#)))
+            (map (lambda (#{x\ 4888}#)
+                   (#{wrap\ 3702}# (gensym) (quote ((top))) #f))
+                 #{ls\ 4886}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 1333}# #{y\ 1334}#)
+        (lambda (#{x\ 4889}# #{y\ 4890}#)
           (begin
-            (let ((#{x\ 1335}# #{x\ 1333}#))
-              (if (not (#{nonsymbol-id?\ 129}# #{x\ 1335}#))
+            (let ((#{x\ 4891}# #{x\ 4889}#))
+              (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4891}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 1335}#)))
-            (let ((#{x\ 1336}# #{y\ 1334}#))
-              (if (not (#{nonsymbol-id?\ 129}# #{x\ 1336}#))
+                  #{x\ 4891}#)))
+            (let ((#{x\ 4892}# #{y\ 4890}#))
+              (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4892}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 1336}#)))
-            (#{free-id=?\ 153}# #{x\ 1333}# #{y\ 1334}#))))
+                  #{x\ 4892}#)))
+            (#{free-id=?\ 3697}# #{x\ 4889}# #{y\ 4890}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 1337}# #{y\ 1338}#)
+        (lambda (#{x\ 4893}# #{y\ 4894}#)
           (begin
-            (let ((#{x\ 1339}# #{x\ 1337}#))
-              (if (not (#{nonsymbol-id?\ 129}# #{x\ 1339}#))
+            (let ((#{x\ 4895}# #{x\ 4893}#))
+              (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4895}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 1339}#)))
-            (let ((#{x\ 1340}# #{y\ 1338}#))
-              (if (not (#{nonsymbol-id?\ 129}# #{x\ 1340}#))
+                  #{x\ 4895}#)))
+            (let ((#{x\ 4896}# #{y\ 4894}#))
+              (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4896}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 1340}#)))
-            (#{bound-id=?\ 154}# #{x\ 1337}# #{y\ 1338}#))))
+                  #{x\ 4896}#)))
+            (#{bound-id=?\ 3698}# #{x\ 4893}# #{y\ 4894}#))))
       (set! syntax-violation
-        (lambda (#{who\ 1341}#
-                 #{message\ 1342}#
-                 #{form\ 1343}#
+        (lambda (#{who\ 4897}#
+                 #{message\ 4898}#
+                 #{form\ 4899}#
                  .
-                 #{subform\ 1344}#)
+                 #{subform\ 4900}#)
           (begin
-            (let ((#{x\ 1345}# #{who\ 1341}#))
-              (if (not ((lambda (#{x\ 1346}#)
-                          (let ((#{t\ 1347}# (not #{x\ 1346}#)))
-                            (if #{t\ 1347}#
-                              #{t\ 1347}#
-                              (let ((#{t\ 1348}# (string? #{x\ 1346}#)))
-                                (if #{t\ 1348}#
-                                  #{t\ 1348}#
-                                  (symbol? #{x\ 1346}#))))))
-                        #{x\ 1345}#))
+            (let ((#{x\ 4901}# #{who\ 4897}#))
+              (if (not ((lambda (#{x\ 4902}#)
+                          (let ((#{t\ 4903}# (not #{x\ 4902}#)))
+                            (if #{t\ 4903}#
+                              #{t\ 4903}#
+                              (let ((#{t\ 4904}# (string? #{x\ 4902}#)))
+                                (if #{t\ 4904}#
+                                  #{t\ 4904}#
+                                  (symbol? #{x\ 4902}#))))))
+                        #{x\ 4901}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 1345}#)))
-            (let ((#{x\ 1349}# #{message\ 1342}#))
-              (if (not (string? #{x\ 1349}#))
+                  #{x\ 4901}#)))
+            (let ((#{x\ 4905}# #{message\ 4898}#))
+              (if (not (string? #{x\ 4905}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 1349}#)))
+                  #{x\ 4905}#)))
             (scm-error
               'syntax-error
               'sc-expand
               (string-append
-                (if #{who\ 1341}# "~a: " "")
+                (if #{who\ 4897}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 1344}#)
+                (if (null? #{subform\ 4900}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 1350}#
-                      (cons #{message\ 1342}#
-                            (map (lambda (#{x\ 1351}#)
-                                   (#{strip\ 175}# #{x\ 1351}# (quote (()))))
+              (let ((#{tail\ 4906}#
+                      (cons #{message\ 4898}#
+                            (map (lambda (#{x\ 4907}#)
+                                   (#{strip\ 3719}# #{x\ 4907}# (quote (()))))
                                  (append
-                                   #{subform\ 1344}#
-                                   (list #{form\ 1343}#))))))
-                (if #{who\ 1341}#
-                  (cons #{who\ 1341}# #{tail\ 1350}#)
-                  #{tail\ 1350}#))
+                                   #{subform\ 4900}#
+                                   (list #{form\ 4899}#))))))
+                (if #{who\ 4897}#
+                  (cons #{who\ 4897}# #{tail\ 4906}#)
+                  #{tail\ 4906}#))
               #f))))
-      (letrec ((#{match\ 1356}#
-                 (lambda (#{e\ 1357}#
-                          #{p\ 1358}#
-                          #{w\ 1359}#
-                          #{r\ 1360}#
-                          #{mod\ 1361}#)
-                   (if (not #{r\ 1360}#)
+      (letrec ((#{match\ 4912}#
+                 (lambda (#{e\ 4913}#
+                          #{p\ 4914}#
+                          #{w\ 4915}#
+                          #{r\ 4916}#
+                          #{mod\ 4917}#)
+                   (if (not #{r\ 4916}#)
                      #f
-                     (if (eq? #{p\ 1358}# (quote any))
-                       (cons (#{wrap\ 158}#
-                               #{e\ 1357}#
-                               #{w\ 1359}#
-                               #{mod\ 1361}#)
-                             #{r\ 1360}#)
-                       (if (#{syntax-object?\ 114}# #{e\ 1357}#)
-                         (#{match*\ 1355}#
-                           (#{syntax-object-expression\ 115}# #{e\ 1357}#)
-                           #{p\ 1358}#
-                           (#{join-wraps\ 149}#
-                             #{w\ 1359}#
-                             (#{syntax-object-wrap\ 116}# #{e\ 1357}#))
-                           #{r\ 1360}#
-                           (#{syntax-object-module\ 117}# #{e\ 1357}#))
-                         (#{match*\ 1355}#
-                           #{e\ 1357}#
-                           #{p\ 1358}#
-                           #{w\ 1359}#
-                           #{r\ 1360}#
-                           #{mod\ 1361}#))))))
-               (#{match*\ 1355}#
-                 (lambda (#{e\ 1362}#
-                          #{p\ 1363}#
-                          #{w\ 1364}#
-                          #{r\ 1365}#
-                          #{mod\ 1366}#)
-                   (if (null? #{p\ 1363}#)
-                     (if (null? #{e\ 1362}#) #{r\ 1365}# #f)
-                     (if (pair? #{p\ 1363}#)
-                       (if (pair? #{e\ 1362}#)
-                         (#{match\ 1356}#
-                           (car #{e\ 1362}#)
-                           (car #{p\ 1363}#)
-                           #{w\ 1364}#
-                           (#{match\ 1356}#
-                             (cdr #{e\ 1362}#)
-                             (cdr #{p\ 1363}#)
-                             #{w\ 1364}#
-                             #{r\ 1365}#
-                             #{mod\ 1366}#)
-                           #{mod\ 1366}#)
+                     (if (eq? #{p\ 4914}# (quote any))
+                       (cons (#{wrap\ 3702}#
+                               #{e\ 4913}#
+                               #{w\ 4915}#
+                               #{mod\ 4917}#)
+                             #{r\ 4916}#)
+                       (if (#{syntax-object?\ 3658}# #{e\ 4913}#)
+                         (#{match*\ 4911}#
+                           (#{syntax-object-expression\ 3659}# #{e\ 4913}#)
+                           #{p\ 4914}#
+                           (#{join-wraps\ 3693}#
+                             #{w\ 4915}#
+                             (#{syntax-object-wrap\ 3660}# #{e\ 4913}#))
+                           #{r\ 4916}#
+                           (#{syntax-object-module\ 3661}# #{e\ 4913}#))
+                         (#{match*\ 4911}#
+                           #{e\ 4913}#
+                           #{p\ 4914}#
+                           #{w\ 4915}#
+                           #{r\ 4916}#
+                           #{mod\ 4917}#))))))
+               (#{match*\ 4911}#
+                 (lambda (#{e\ 4918}#
+                          #{p\ 4919}#
+                          #{w\ 4920}#
+                          #{r\ 4921}#
+                          #{mod\ 4922}#)
+                   (if (null? #{p\ 4919}#)
+                     (if (null? #{e\ 4918}#) #{r\ 4921}# #f)
+                     (if (pair? #{p\ 4919}#)
+                       (if (pair? #{e\ 4918}#)
+                         (#{match\ 4912}#
+                           (car #{e\ 4918}#)
+                           (car #{p\ 4919}#)
+                           #{w\ 4920}#
+                           (#{match\ 4912}#
+                             (cdr #{e\ 4918}#)
+                             (cdr #{p\ 4919}#)
+                             #{w\ 4920}#
+                             #{r\ 4921}#
+                             #{mod\ 4922}#)
+                           #{mod\ 4922}#)
                          #f)
-                       (if (eq? #{p\ 1363}# (quote each-any))
-                         (let ((#{l\ 1367}#
-                                 (#{match-each-any\ 1353}#
-                                   #{e\ 1362}#
-                                   #{w\ 1364}#
-                                   #{mod\ 1366}#)))
-                           (if #{l\ 1367}#
-                             (cons #{l\ 1367}# #{r\ 1365}#)
+                       (if (eq? #{p\ 4919}# (quote each-any))
+                         (let ((#{l\ 4923}#
+                                 (#{match-each-any\ 4909}#
+                                   #{e\ 4918}#
+                                   #{w\ 4920}#
+                                   #{mod\ 4922}#)))
+                           (if #{l\ 4923}#
+                             (cons #{l\ 4923}# #{r\ 4921}#)
                              #f))
-                         (let ((#{atom-key\ 1368}# (vector-ref #{p\ 1363}# 0)))
-                           (if (memv #{atom-key\ 1368}# (quote (each)))
-                             (if (null? #{e\ 1362}#)
-                               (#{match-empty\ 1354}#
-                                 (vector-ref #{p\ 1363}# 1)
-                                 #{r\ 1365}#)
-                               (let ((#{l\ 1369}#
-                                       (#{match-each\ 1352}#
-                                         #{e\ 1362}#
-                                         (vector-ref #{p\ 1363}# 1)
-                                         #{w\ 1364}#
-                                         #{mod\ 1366}#)))
-                                 (if #{l\ 1369}#
-                                   (letrec ((#{collect\ 1370}#
-                                              (lambda (#{l\ 1371}#)
-                                                (if (null? (car #{l\ 1371}#))
-                                                  #{r\ 1365}#
-                                                  (cons (map car #{l\ 1371}#)
-                                                        (#{collect\ 1370}#
+                         (let ((#{atom-key\ 4924}# (vector-ref #{p\ 4919}# 0)))
+                           (if (memv #{atom-key\ 4924}# (quote (each)))
+                             (if (null? #{e\ 4918}#)
+                               (#{match-empty\ 4910}#
+                                 (vector-ref #{p\ 4919}# 1)
+                                 #{r\ 4921}#)
+                               (let ((#{l\ 4925}#
+                                       (#{match-each\ 4908}#
+                                         #{e\ 4918}#
+                                         (vector-ref #{p\ 4919}# 1)
+                                         #{w\ 4920}#
+                                         #{mod\ 4922}#)))
+                                 (if #{l\ 4925}#
+                                   (letrec ((#{collect\ 4926}#
+                                              (lambda (#{l\ 4927}#)
+                                                (if (null? (car #{l\ 4927}#))
+                                                  #{r\ 4921}#
+                                                  (cons (map car #{l\ 4927}#)
+                                                        (#{collect\ 4926}#
                                                           (map cdr
-                                                               #{l\ 
1371}#)))))))
-                                     (#{collect\ 1370}# #{l\ 1369}#))
+                                                               #{l\ 
4927}#)))))))
+                                     (#{collect\ 4926}# #{l\ 4925}#))
                                    #f)))
-                             (if (memv #{atom-key\ 1368}# (quote (free-id)))
-                               (if (#{id?\ 130}# #{e\ 1362}#)
-                                 (if (#{free-id=?\ 153}#
-                                       (#{wrap\ 158}#
-                                         #{e\ 1362}#
-                                         #{w\ 1364}#
-                                         #{mod\ 1366}#)
-                                       (vector-ref #{p\ 1363}# 1))
-                                   #{r\ 1365}#
+                             (if (memv #{atom-key\ 4924}# (quote (free-id)))
+                               (if (#{id?\ 3674}# #{e\ 4918}#)
+                                 (if (#{free-id=?\ 3697}#
+                                       (#{wrap\ 3702}#
+                                         #{e\ 4918}#
+                                         #{w\ 4920}#
+                                         #{mod\ 4922}#)
+                                       (vector-ref #{p\ 4919}# 1))
+                                   #{r\ 4921}#
                                    #f)
                                  #f)
-                               (if (memv #{atom-key\ 1368}# (quote (atom)))
+                               (if (memv #{atom-key\ 4924}# (quote (atom)))
                                  (if (equal?
-                                       (vector-ref #{p\ 1363}# 1)
-                                       (#{strip\ 175}#
-                                         #{e\ 1362}#
-                                         #{w\ 1364}#))
-                                   #{r\ 1365}#
+                                       (vector-ref #{p\ 4919}# 1)
+                                       (#{strip\ 3719}#
+                                         #{e\ 4918}#
+                                         #{w\ 4920}#))
+                                   #{r\ 4921}#
                                    #f)
-                                 (if (memv #{atom-key\ 1368}# (quote (vector)))
-                                   (if (vector? #{e\ 1362}#)
-                                     (#{match\ 1356}#
-                                       (vector->list #{e\ 1362}#)
-                                       (vector-ref #{p\ 1363}# 1)
-                                       #{w\ 1364}#
-                                       #{r\ 1365}#
-                                       #{mod\ 1366}#)
+                                 (if (memv #{atom-key\ 4924}# (quote (vector)))
+                                   (if (vector? #{e\ 4918}#)
+                                     (#{match\ 4912}#
+                                       (vector->list #{e\ 4918}#)
+                                       (vector-ref #{p\ 4919}# 1)
+                                       #{w\ 4920}#
+                                       #{r\ 4921}#
+                                       #{mod\ 4922}#)
                                      #f)))))))))))
-               (#{match-empty\ 1354}#
-                 (lambda (#{p\ 1372}# #{r\ 1373}#)
-                   (if (null? #{p\ 1372}#)
-                     #{r\ 1373}#
-                     (if (eq? #{p\ 1372}# (quote any))
-                       (cons (quote ()) #{r\ 1373}#)
-                       (if (pair? #{p\ 1372}#)
-                         (#{match-empty\ 1354}#
-                           (car #{p\ 1372}#)
-                           (#{match-empty\ 1354}#
-                             (cdr #{p\ 1372}#)
-                             #{r\ 1373}#))
-                         (if (eq? #{p\ 1372}# (quote each-any))
-                           (cons (quote ()) #{r\ 1373}#)
-                           (let ((#{atom-key\ 1374}#
-                                   (vector-ref #{p\ 1372}# 0)))
-                             (if (memv #{atom-key\ 1374}# (quote (each)))
-                               (#{match-empty\ 1354}#
-                                 (vector-ref #{p\ 1372}# 1)
-                                 #{r\ 1373}#)
-                               (if (memv #{atom-key\ 1374}#
+               (#{match-empty\ 4910}#
+                 (lambda (#{p\ 4928}# #{r\ 4929}#)
+                   (if (null? #{p\ 4928}#)
+                     #{r\ 4929}#
+                     (if (eq? #{p\ 4928}# (quote any))
+                       (cons (quote ()) #{r\ 4929}#)
+                       (if (pair? #{p\ 4928}#)
+                         (#{match-empty\ 4910}#
+                           (car #{p\ 4928}#)
+                           (#{match-empty\ 4910}#
+                             (cdr #{p\ 4928}#)
+                             #{r\ 4929}#))
+                         (if (eq? #{p\ 4928}# (quote each-any))
+                           (cons (quote ()) #{r\ 4929}#)
+                           (let ((#{atom-key\ 4930}#
+                                   (vector-ref #{p\ 4928}# 0)))
+                             (if (memv #{atom-key\ 4930}# (quote (each)))
+                               (#{match-empty\ 4910}#
+                                 (vector-ref #{p\ 4928}# 1)
+                                 #{r\ 4929}#)
+                               (if (memv #{atom-key\ 4930}#
                                          '(free-id atom))
-                                 #{r\ 1373}#
-                                 (if (memv #{atom-key\ 1374}# (quote (vector)))
-                                   (#{match-empty\ 1354}#
-                                     (vector-ref #{p\ 1372}# 1)
-                                     #{r\ 1373}#)))))))))))
-               (#{match-each-any\ 1353}#
-                 (lambda (#{e\ 1375}# #{w\ 1376}# #{mod\ 1377}#)
-                   (if (pair? #{e\ 1375}#)
-                     (let ((#{l\ 1378}#
-                             (#{match-each-any\ 1353}#
-                               (cdr #{e\ 1375}#)
-                               #{w\ 1376}#
-                               #{mod\ 1377}#)))
-                       (if #{l\ 1378}#
-                         (cons (#{wrap\ 158}#
-                                 (car #{e\ 1375}#)
-                                 #{w\ 1376}#
-                                 #{mod\ 1377}#)
-                               #{l\ 1378}#)
+                                 #{r\ 4929}#
+                                 (if (memv #{atom-key\ 4930}# (quote (vector)))
+                                   (#{match-empty\ 4910}#
+                                     (vector-ref #{p\ 4928}# 1)
+                                     #{r\ 4929}#)))))))))))
+               (#{match-each-any\ 4909}#
+                 (lambda (#{e\ 4931}# #{w\ 4932}# #{mod\ 4933}#)
+                   (if (pair? #{e\ 4931}#)
+                     (let ((#{l\ 4934}#
+                             (#{match-each-any\ 4909}#
+                               (cdr #{e\ 4931}#)
+                               #{w\ 4932}#
+                               #{mod\ 4933}#)))
+                       (if #{l\ 4934}#
+                         (cons (#{wrap\ 3702}#
+                                 (car #{e\ 4931}#)
+                                 #{w\ 4932}#
+                                 #{mod\ 4933}#)
+                               #{l\ 4934}#)
                          #f))
-                     (if (null? #{e\ 1375}#)
+                     (if (null? #{e\ 4931}#)
                        '()
-                       (if (#{syntax-object?\ 114}# #{e\ 1375}#)
-                         (#{match-each-any\ 1353}#
-                           (#{syntax-object-expression\ 115}# #{e\ 1375}#)
-                           (#{join-wraps\ 149}#
-                             #{w\ 1376}#
-                             (#{syntax-object-wrap\ 116}# #{e\ 1375}#))
-                           #{mod\ 1377}#)
+                       (if (#{syntax-object?\ 3658}# #{e\ 4931}#)
+                         (#{match-each-any\ 4909}#
+                           (#{syntax-object-expression\ 3659}# #{e\ 4931}#)
+                           (#{join-wraps\ 3693}#
+                             #{w\ 4932}#
+                             (#{syntax-object-wrap\ 3660}# #{e\ 4931}#))
+                           #{mod\ 4933}#)
                          #f)))))
-               (#{match-each\ 1352}#
-                 (lambda (#{e\ 1379}#
-                          #{p\ 1380}#
-                          #{w\ 1381}#
-                          #{mod\ 1382}#)
-                   (if (pair? #{e\ 1379}#)
-                     (let ((#{first\ 1383}#
-                             (#{match\ 1356}#
-                               (car #{e\ 1379}#)
-                               #{p\ 1380}#
-                               #{w\ 1381}#
+               (#{match-each\ 4908}#
+                 (lambda (#{e\ 4935}#
+                          #{p\ 4936}#
+                          #{w\ 4937}#
+                          #{mod\ 4938}#)
+                   (if (pair? #{e\ 4935}#)
+                     (let ((#{first\ 4939}#
+                             (#{match\ 4912}#
+                               (car #{e\ 4935}#)
+                               #{p\ 4936}#
+                               #{w\ 4937}#
                                '()
-                               #{mod\ 1382}#)))
-                       (if #{first\ 1383}#
-                         (let ((#{rest\ 1384}#
-                                 (#{match-each\ 1352}#
-                                   (cdr #{e\ 1379}#)
-                                   #{p\ 1380}#
-                                   #{w\ 1381}#
-                                   #{mod\ 1382}#)))
-                           (if #{rest\ 1384}#
-                             (cons #{first\ 1383}# #{rest\ 1384}#)
+                               #{mod\ 4938}#)))
+                       (if #{first\ 4939}#
+                         (let ((#{rest\ 4940}#
+                                 (#{match-each\ 4908}#
+                                   (cdr #{e\ 4935}#)
+                                   #{p\ 4936}#
+                                   #{w\ 4937}#
+                                   #{mod\ 4938}#)))
+                           (if #{rest\ 4940}#
+                             (cons #{first\ 4939}# #{rest\ 4940}#)
                              #f))
                          #f))
-                     (if (null? #{e\ 1379}#)
+                     (if (null? #{e\ 4935}#)
                        '()
-                       (if (#{syntax-object?\ 114}# #{e\ 1379}#)
-                         (#{match-each\ 1352}#
-                           (#{syntax-object-expression\ 115}# #{e\ 1379}#)
-                           #{p\ 1380}#
-                           (#{join-wraps\ 149}#
-                             #{w\ 1381}#
-                             (#{syntax-object-wrap\ 116}# #{e\ 1379}#))
-                           (#{syntax-object-module\ 117}# #{e\ 1379}#))
+                       (if (#{syntax-object?\ 3658}# #{e\ 4935}#)
+                         (#{match-each\ 4908}#
+                           (#{syntax-object-expression\ 3659}# #{e\ 4935}#)
+                           #{p\ 4936}#
+                           (#{join-wraps\ 3693}#
+                             #{w\ 4937}#
+                             (#{syntax-object-wrap\ 3660}# #{e\ 4935}#))
+                           (#{syntax-object-module\ 3661}# #{e\ 4935}#))
                          #f))))))
         (set! $sc-dispatch
-          (lambda (#{e\ 1385}# #{p\ 1386}#)
-            (if (eq? #{p\ 1386}# (quote any))
-              (list #{e\ 1385}#)
-              (if (#{syntax-object?\ 114}# #{e\ 1385}#)
-                (#{match*\ 1355}#
-                  (#{syntax-object-expression\ 115}# #{e\ 1385}#)
-                  #{p\ 1386}#
-                  (#{syntax-object-wrap\ 116}# #{e\ 1385}#)
+          (lambda (#{e\ 4941}# #{p\ 4942}#)
+            (if (eq? #{p\ 4942}# (quote any))
+              (list #{e\ 4941}#)
+              (if (#{syntax-object?\ 3658}# #{e\ 4941}#)
+                (#{match*\ 4911}#
+                  (#{syntax-object-expression\ 3659}# #{e\ 4941}#)
+                  #{p\ 4942}#
+                  (#{syntax-object-wrap\ 3660}# #{e\ 4941}#)
                   '()
-                  (#{syntax-object-module\ 117}# #{e\ 1385}#))
-                (#{match*\ 1355}#
-                  #{e\ 1385}#
-                  #{p\ 1386}#
+                  (#{syntax-object-module\ 3661}# #{e\ 4941}#))
+                (#{match*\ 4911}#
+                  #{e\ 4941}#
+                  #{p\ 4942}#
                   '(())
                   '()
                   #f)))))))))
@@ -9305,11 +9367,11 @@
 (define with-syntax
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1387}#)
-      ((lambda (#{tmp\ 1388}#)
-         ((lambda (#{tmp\ 1389}#)
-            (if #{tmp\ 1389}#
-              (apply (lambda (#{_\ 1390}# #{e1\ 1391}# #{e2\ 1392}#)
+    (lambda (#{x\ 4943}#)
+      ((lambda (#{tmp\ 4944}#)
+         ((lambda (#{tmp\ 4945}#)
+            (if #{tmp\ 4945}#
+              (apply (lambda (#{_\ 4946}# #{e1\ 4947}# #{e2\ 4948}#)
                        (cons '#(syntax-object
                                 begin
                                 ((top)
@@ -9320,15 +9382,15 @@
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i")))
                                 (hygiene guile))
-                             (cons #{e1\ 1391}# #{e2\ 1392}#)))
-                     #{tmp\ 1389}#)
-              ((lambda (#{tmp\ 1394}#)
-                 (if #{tmp\ 1394}#
-                   (apply (lambda (#{_\ 1395}#
-                                   #{out\ 1396}#
-                                   #{in\ 1397}#
-                                   #{e1\ 1398}#
-                                   #{e2\ 1399}#)
+                             (cons #{e1\ 4947}# #{e2\ 4948}#)))
+                     #{tmp\ 4945}#)
+              ((lambda (#{tmp\ 4950}#)
+                 (if #{tmp\ 4950}#
+                   (apply (lambda (#{_\ 4951}#
+                                   #{out\ 4952}#
+                                   #{in\ 4953}#
+                                   #{e1\ 4954}#
+                                   #{e2\ 4955}#)
                             (list '#(syntax-object
                                      syntax-case
                                      ((top)
@@ -9339,9 +9401,9 @@
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i")))
                                      (hygiene guile))
-                                  #{in\ 1397}#
+                                  #{in\ 4953}#
                                   '()
-                                  (list #{out\ 1396}#
+                                  (list #{out\ 4952}#
                                         (cons '#(syntax-object
                                                  begin
                                                  ((top)
@@ -9359,16 +9421,16 @@
                                                     #((top))
                                                     #("i")))
                                                  (hygiene guile))
-                                              (cons #{e1\ 1398}#
-                                                    #{e2\ 1399}#)))))
-                          #{tmp\ 1394}#)
-                   ((lambda (#{tmp\ 1401}#)
-                      (if #{tmp\ 1401}#
-                        (apply (lambda (#{_\ 1402}#
-                                        #{out\ 1403}#
-                                        #{in\ 1404}#
-                                        #{e1\ 1405}#
-                                        #{e2\ 1406}#)
+                                              (cons #{e1\ 4954}#
+                                                    #{e2\ 4955}#)))))
+                          #{tmp\ 4950}#)
+                   ((lambda (#{tmp\ 4957}#)
+                      (if #{tmp\ 4957}#
+                        (apply (lambda (#{_\ 4958}#
+                                        #{out\ 4959}#
+                                        #{in\ 4960}#
+                                        #{e1\ 4961}#
+                                        #{e2\ 4962}#)
                                  (list '#(syntax-object
                                           syntax-case
                                           ((top)
@@ -9396,9 +9458,9 @@
                                                    #((top))
                                                    #("i")))
                                                 (hygiene guile))
-                                             #{in\ 1404}#)
+                                             #{in\ 4960}#)
                                        '()
-                                       (list #{out\ 1403}#
+                                       (list #{out\ 4959}#
                                              (cons '#(syntax-object
                                                       begin
                                                       ((top)
@@ -9420,36 +9482,36 @@
                                                          #((top))
                                                          #("i")))
                                                       (hygiene guile))
-                                                   (cons #{e1\ 1405}#
-                                                         #{e2\ 1406}#)))))
-                               #{tmp\ 1401}#)
+                                                   (cons #{e1\ 4961}#
+                                                         #{e2\ 4962}#)))))
+                               #{tmp\ 4957}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
-                          #{tmp\ 1388}#)))
+                          #{tmp\ 4944}#)))
                     ($sc-dispatch
-                      #{tmp\ 1388}#
+                      #{tmp\ 4944}#
                       '(any #(each (any any)) any . each-any)))))
                ($sc-dispatch
-                 #{tmp\ 1388}#
+                 #{tmp\ 4944}#
                  '(any ((any any)) any . each-any)))))
           ($sc-dispatch
-            #{tmp\ 1388}#
+            #{tmp\ 4944}#
             '(any () any . each-any))))
-       #{x\ 1387}#))))
+       #{x\ 4943}#))))
 
 (define syntax-rules
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1410}#)
-      ((lambda (#{tmp\ 1411}#)
-         ((lambda (#{tmp\ 1412}#)
-            (if #{tmp\ 1412}#
-              (apply (lambda (#{_\ 1413}#
-                              #{k\ 1414}#
-                              #{keyword\ 1415}#
-                              #{pattern\ 1416}#
-                              #{template\ 1417}#)
+    (lambda (#{x\ 4966}#)
+      ((lambda (#{tmp\ 4967}#)
+         ((lambda (#{tmp\ 4968}#)
+            (if #{tmp\ 4968}#
+              (apply (lambda (#{_\ 4969}#
+                              #{k\ 4970}#
+                              #{keyword\ 4971}#
+                              #{pattern\ 4972}#
+                              #{template\ 4973}#)
                        (list '#(syntax-object
                                 lambda
                                 ((top)
@@ -9490,9 +9552,9 @@
                                              #(ribcage () () ())
                                              #(ribcage #(x) #((top)) #("i")))
                                             (hygiene guile))
-                                         (cons #{k\ 1414}#
-                                               (map (lambda (#{tmp\ 1420}#
-                                                             #{tmp\ 1419}#)
+                                         (cons #{k\ 4970}#
+                                               (map (lambda (#{tmp\ 4976}#
+                                                             #{tmp\ 4975}#)
                                                       (list (cons 
'#(syntax-object
                                                                      dummy
                                                                      ((top)
@@ -9522,7 +9584,7 @@
                                                                         
#("i")))
                                                                      (hygiene
                                                                        guile))
-                                                                  #{tmp\ 
1419}#)
+                                                                  #{tmp\ 
4975}#)
                                                             (list 
'#(syntax-object
                                                                      syntax
                                                                      ((top)
@@ -9552,43 +9614,43 @@
                                                                         
#("i")))
                                                                      (hygiene
                                                                        guile))
-                                                                  #{tmp\ 
1420}#)))
-                                                    #{template\ 1417}#
-                                                    #{pattern\ 1416}#))))))
-                     #{tmp\ 1412}#)
+                                                                  #{tmp\ 
4976}#)))
+                                                    #{template\ 4973}#
+                                                    #{pattern\ 4972}#))))))
+                     #{tmp\ 4968}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1411}#)))
+                #{tmp\ 4967}#)))
           ($sc-dispatch
-            #{tmp\ 1411}#
+            #{tmp\ 4967}#
             '(any each-any . #(each ((any . any) any))))))
-       #{x\ 1410}#))))
+       #{x\ 4966}#))))
 
 (define let*
   (make-extended-syncase-macro
     (module-ref (current-module) (quote let*))
     'macro
-    (lambda (#{x\ 1421}#)
-      ((lambda (#{tmp\ 1422}#)
-         ((lambda (#{tmp\ 1423}#)
-            (if (if #{tmp\ 1423}#
-                  (apply (lambda (#{let*\ 1424}#
-                                  #{x\ 1425}#
-                                  #{v\ 1426}#
-                                  #{e1\ 1427}#
-                                  #{e2\ 1428}#)
-                           (and-map identifier? #{x\ 1425}#))
-                         #{tmp\ 1423}#)
+    (lambda (#{x\ 4977}#)
+      ((lambda (#{tmp\ 4978}#)
+         ((lambda (#{tmp\ 4979}#)
+            (if (if #{tmp\ 4979}#
+                  (apply (lambda (#{let*\ 4980}#
+                                  #{x\ 4981}#
+                                  #{v\ 4982}#
+                                  #{e1\ 4983}#
+                                  #{e2\ 4984}#)
+                           (and-map identifier? #{x\ 4981}#))
+                         #{tmp\ 4979}#)
                   #f)
-              (apply (lambda (#{let*\ 1430}#
-                              #{x\ 1431}#
-                              #{v\ 1432}#
-                              #{e1\ 1433}#
-                              #{e2\ 1434}#)
-                       (letrec ((#{f\ 1435}#
-                                  (lambda (#{bindings\ 1436}#)
-                                    (if (null? #{bindings\ 1436}#)
+              (apply (lambda (#{let*\ 4986}#
+                              #{x\ 4987}#
+                              #{v\ 4988}#
+                              #{e1\ 4989}#
+                              #{e2\ 4990}#)
+                       (letrec ((#{f\ 4991}#
+                                  (lambda (#{bindings\ 4992}#)
+                                    (if (null? #{bindings\ 4992}#)
                                       (cons '#(syntax-object
                                                let
                                                ((top)
@@ -9612,13 +9674,13 @@
                                                   #("i")))
                                                (hygiene guile))
                                             (cons '()
-                                                  (cons #{e1\ 1433}#
-                                                        #{e2\ 1434}#)))
-                                      ((lambda (#{tmp\ 1440}#)
-                                         ((lambda (#{tmp\ 1441}#)
-                                            (if #{tmp\ 1441}#
-                                              (apply (lambda (#{body\ 1442}#
-                                                              #{binding\ 
1443}#)
+                                                  (cons #{e1\ 4989}#
+                                                        #{e2\ 4990}#)))
+                                      ((lambda (#{tmp\ 4996}#)
+                                         ((lambda (#{tmp\ 4997}#)
+                                            (if #{tmp\ 4997}#
+                                              (apply (lambda (#{body\ 4998}#
+                                                              #{binding\ 
4999}#)
                                                        (list '#(syntax-object
                                                                 let
                                                                 ((top)
@@ -9664,52 +9726,52 @@
                                                                    #("i")))
                                                                 (hygiene
                                                                   guile))
-                                                             (list #{binding\ 
1443}#)
-                                                             #{body\ 1442}#))
-                                                     #{tmp\ 1441}#)
+                                                             (list #{binding\ 
4999}#)
+                                                             #{body\ 4998}#))
+                                                     #{tmp\ 4997}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to 
match any pattern"
-                                                #{tmp\ 1440}#)))
+                                                #{tmp\ 4996}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 1440}#
+                                            #{tmp\ 4996}#
                                             '(any any))))
-                                       (list (#{f\ 1435}#
-                                               (cdr #{bindings\ 1436}#))
-                                             (car #{bindings\ 1436}#)))))))
-                         (#{f\ 1435}# (map list #{x\ 1431}# #{v\ 1432}#))))
-                     #{tmp\ 1423}#)
+                                       (list (#{f\ 4991}#
+                                               (cdr #{bindings\ 4992}#))
+                                             (car #{bindings\ 4992}#)))))))
+                         (#{f\ 4991}# (map list #{x\ 4987}# #{v\ 4988}#))))
+                     #{tmp\ 4979}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1422}#)))
+                #{tmp\ 4978}#)))
           ($sc-dispatch
-            #{tmp\ 1422}#
+            #{tmp\ 4978}#
             '(any #(each (any any)) any . each-any))))
-       #{x\ 1421}#))))
+       #{x\ 4977}#))))
 
 (define do
   (make-extended-syncase-macro
     (module-ref (current-module) (quote do))
     'macro
-    (lambda (#{orig-x\ 1444}#)
-      ((lambda (#{tmp\ 1445}#)
-         ((lambda (#{tmp\ 1446}#)
-            (if #{tmp\ 1446}#
-              (apply (lambda (#{_\ 1447}#
-                              #{var\ 1448}#
-                              #{init\ 1449}#
-                              #{step\ 1450}#
-                              #{e0\ 1451}#
-                              #{e1\ 1452}#
-                              #{c\ 1453}#)
-                       ((lambda (#{tmp\ 1454}#)
-                          ((lambda (#{tmp\ 1455}#)
-                             (if #{tmp\ 1455}#
-                               (apply (lambda (#{step\ 1456}#)
-                                        ((lambda (#{tmp\ 1457}#)
-                                           ((lambda (#{tmp\ 1458}#)
-                                              (if #{tmp\ 1458}#
+    (lambda (#{orig-x\ 5000}#)
+      ((lambda (#{tmp\ 5001}#)
+         ((lambda (#{tmp\ 5002}#)
+            (if #{tmp\ 5002}#
+              (apply (lambda (#{_\ 5003}#
+                              #{var\ 5004}#
+                              #{init\ 5005}#
+                              #{step\ 5006}#
+                              #{e0\ 5007}#
+                              #{e1\ 5008}#
+                              #{c\ 5009}#)
+                       ((lambda (#{tmp\ 5010}#)
+                          ((lambda (#{tmp\ 5011}#)
+                             (if #{tmp\ 5011}#
+                               (apply (lambda (#{step\ 5012}#)
+                                        ((lambda (#{tmp\ 5013}#)
+                                           ((lambda (#{tmp\ 5014}#)
+                                              (if #{tmp\ 5014}#
                                                 (apply (lambda ()
                                                          (list '#(syntax-object
                                                                   let
@@ -9790,8 +9852,8 @@
                                                                   (hygiene
                                                                     guile))
                                                                (map list
-                                                                    #{var\ 
1448}#
-                                                                    #{init\ 
1449}#)
+                                                                    #{var\ 
5004}#
+                                                                    #{init\ 
5005}#)
                                                                (list 
'#(syntax-object
                                                                         if
                                                                         ((top)
@@ -9870,7 +9932,7 @@
                                                                                
  #("i")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
#{e0\ 1451}#)
+                                                                           
#{e0\ 5007}#)
                                                                      (cons 
'#(syntax-object
                                                                               
begin
                                                                               
((top)
@@ -9911,7 +9973,7 @@
                                                                               
(hygiene
                                                                                
 guile))
                                                                            
(append
-                                                                             
#{c\ 1453}#
+                                                                             
#{c\ 5009}#
                                                                              
(list (cons '#(syntax-object
                                                                                
             doloop
                                                                                
             ((top)
@@ -9951,12 +10013,12 @@
                                                                                
                #("i")))
                                                                                
             (hygiene
                                                                                
               guile))
-                                                                               
          #{step\ 1456}#)))))))
-                                                       #{tmp\ 1458}#)
-                                                ((lambda (#{tmp\ 1463}#)
-                                                   (if #{tmp\ 1463}#
-                                                     (apply (lambda (#{e1\ 
1464}#
-                                                                     #{e2\ 
1465}#)
+                                                                               
          #{step\ 5012}#)))))))
+                                                       #{tmp\ 5014}#)
+                                                ((lambda (#{tmp\ 5019}#)
+                                                   (if #{tmp\ 5019}#
+                                                     (apply (lambda (#{e1\ 
5020}#
+                                                                     #{e2\ 
5021}#)
                                                               (list 
'#(syntax-object
                                                                        let
                                                                        ((top)
@@ -10050,8 +10112,8 @@
                                                                        (hygiene
                                                                          
guile))
                                                                     (map list
-                                                                         
#{var\ 1448}#
-                                                                         
#{init\ 1449}#)
+                                                                         
#{var\ 5004}#
+                                                                         
#{init\ 5005}#)
                                                                     (list 
'#(syntax-object
                                                                              if
                                                                              
((top)
@@ -10098,7 +10160,7 @@
                                                                                
 #("i")))
                                                                              
(hygiene
                                                                                
guile))
-                                                                          
#{e0\ 1451}#
+                                                                          
#{e0\ 5007}#
                                                                           
(cons '#(syntax-object
                                                                                
    begin
                                                                                
    ((top)
@@ -10145,8 +10207,8 @@
                                                                                
       #("i")))
                                                                                
    (hygiene
                                                                                
      guile))
-                                                                               
 (cons #{e1\ 1464}#
-                                                                               
       #{e2\ 1465}#))
+                                                                               
 (cons #{e1\ 5020}#
+                                                                               
       #{e2\ 5021}#))
                                                                           
(cons '#(syntax-object
                                                                                
    begin
                                                                                
    ((top)
@@ -10194,7 +10256,7 @@
                                                                                
    (hygiene
                                                                                
      guile))
                                                                                
 (append
-                                                                               
   #{c\ 1453}#
+                                                                               
   #{c\ 5009}#
                                                                                
   (list (cons '#(syntax-object
                                                                                
                  doloop
                                                                                
                  ((top)
@@ -10241,81 +10303,81 @@
                                                                                
                     #("i")))
                                                                                
                  (hygiene
                                                                                
                    guile))
-                                                                               
               #{step\ 1456}#)))))))
-                                                            #{tmp\ 1463}#)
+                                                                               
               #{step\ 5012}#)))))))
+                                                            #{tmp\ 5019}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 1457}#)))
+                                                       #{tmp\ 5013}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 1457}#
+                                                   #{tmp\ 5013}#
                                                    '(any . each-any)))))
                                             ($sc-dispatch
-                                              #{tmp\ 1457}#
+                                              #{tmp\ 5013}#
                                               '())))
-                                         #{e1\ 1452}#))
-                                      #{tmp\ 1455}#)
+                                         #{e1\ 5008}#))
+                                      #{tmp\ 5011}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any 
pattern"
-                                 #{tmp\ 1454}#)))
-                           ($sc-dispatch #{tmp\ 1454}# (quote each-any))))
-                        (map (lambda (#{v\ 1472}# #{s\ 1473}#)
-                               ((lambda (#{tmp\ 1474}#)
-                                  ((lambda (#{tmp\ 1475}#)
-                                     (if #{tmp\ 1475}#
-                                       (apply (lambda () #{v\ 1472}#)
-                                              #{tmp\ 1475}#)
-                                       ((lambda (#{tmp\ 1476}#)
-                                          (if #{tmp\ 1476}#
-                                            (apply (lambda (#{e\ 1477}#)
-                                                     #{e\ 1477}#)
-                                                   #{tmp\ 1476}#)
-                                            ((lambda (#{_\ 1478}#)
+                                 #{tmp\ 5010}#)))
+                           ($sc-dispatch #{tmp\ 5010}# (quote each-any))))
+                        (map (lambda (#{v\ 5028}# #{s\ 5029}#)
+                               ((lambda (#{tmp\ 5030}#)
+                                  ((lambda (#{tmp\ 5031}#)
+                                     (if #{tmp\ 5031}#
+                                       (apply (lambda () #{v\ 5028}#)
+                                              #{tmp\ 5031}#)
+                                       ((lambda (#{tmp\ 5032}#)
+                                          (if #{tmp\ 5032}#
+                                            (apply (lambda (#{e\ 5033}#)
+                                                     #{e\ 5033}#)
+                                                   #{tmp\ 5032}#)
+                                            ((lambda (#{_\ 5034}#)
                                                (syntax-violation
                                                  'do
                                                  "bad step expression"
-                                                 #{orig-x\ 1444}#
-                                                 #{s\ 1473}#))
-                                             #{tmp\ 1474}#)))
+                                                 #{orig-x\ 5000}#
+                                                 #{s\ 5029}#))
+                                             #{tmp\ 5030}#)))
                                         ($sc-dispatch
-                                          #{tmp\ 1474}#
+                                          #{tmp\ 5030}#
                                           '(any)))))
-                                   ($sc-dispatch #{tmp\ 1474}# (quote ()))))
-                                #{s\ 1473}#))
-                             #{var\ 1448}#
-                             #{step\ 1450}#)))
-                     #{tmp\ 1446}#)
+                                   ($sc-dispatch #{tmp\ 5030}# (quote ()))))
+                                #{s\ 5029}#))
+                             #{var\ 5004}#
+                             #{step\ 5006}#)))
+                     #{tmp\ 5002}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1445}#)))
+                #{tmp\ 5001}#)))
           ($sc-dispatch
-            #{tmp\ 1445}#
+            #{tmp\ 5001}#
             '(any #(each (any any . any))
                   (any . each-any)
                   .
                   each-any))))
-       #{orig-x\ 1444}#))))
+       #{orig-x\ 5000}#))))
 
 (define quasiquote
   (make-extended-syncase-macro
     (module-ref (current-module) (quote quasiquote))
     'macro
-    (letrec ((#{quasicons\ 1481}#
-               (lambda (#{x\ 1485}# #{y\ 1486}#)
-                 ((lambda (#{tmp\ 1487}#)
-                    ((lambda (#{tmp\ 1488}#)
-                       (if #{tmp\ 1488}#
-                         (apply (lambda (#{x\ 1489}# #{y\ 1490}#)
-                                  ((lambda (#{tmp\ 1491}#)
-                                     ((lambda (#{tmp\ 1492}#)
-                                        (if #{tmp\ 1492}#
-                                          (apply (lambda (#{dy\ 1493}#)
-                                                   ((lambda (#{tmp\ 1494}#)
-                                                      ((lambda (#{tmp\ 1495}#)
-                                                         (if #{tmp\ 1495}#
-                                                           (apply (lambda 
(#{dx\ 1496}#)
+    (letrec ((#{quasicons\ 5037}#
+               (lambda (#{x\ 5041}# #{y\ 5042}#)
+                 ((lambda (#{tmp\ 5043}#)
+                    ((lambda (#{tmp\ 5044}#)
+                       (if #{tmp\ 5044}#
+                         (apply (lambda (#{x\ 5045}# #{y\ 5046}#)
+                                  ((lambda (#{tmp\ 5047}#)
+                                     ((lambda (#{tmp\ 5048}#)
+                                        (if #{tmp\ 5048}#
+                                          (apply (lambda (#{dy\ 5049}#)
+                                                   ((lambda (#{tmp\ 5050}#)
+                                                      ((lambda (#{tmp\ 5051}#)
+                                                         (if #{tmp\ 5051}#
+                                                           (apply (lambda 
(#{dx\ 5052}#)
                                                                     (list 
'#(syntax-object
                                                                              
quote
                                                                              
((top)
@@ -10364,11 +10426,11 @@
                                                                                
   "i")))
                                                                              
(hygiene
                                                                                
guile))
-                                                                          
(cons #{dx\ 1496}#
-                                                                               
 #{dy\ 1493}#)))
-                                                                  #{tmp\ 
1495}#)
-                                                           ((lambda (#{_\ 
1497}#)
-                                                              (if (null? #{dy\ 
1493}#)
+                                                                          
(cons #{dx\ 5052}#
+                                                                               
 #{dy\ 5049}#)))
+                                                                  #{tmp\ 
5051}#)
+                                                           ((lambda (#{_\ 
5053}#)
+                                                              (if (null? #{dy\ 
5049}#)
                                                                 (list 
'#(syntax-object
                                                                          list
                                                                          ((top)
@@ -10417,7 +10479,7 @@
                                                                               
"i")))
                                                                          
(hygiene
                                                                            
guile))
-                                                                      #{x\ 
1489}#)
+                                                                      #{x\ 
5045}#)
                                                                 (list 
'#(syntax-object
                                                                          cons
                                                                          ((top)
@@ -10466,11 +10528,11 @@
                                                                               
"i")))
                                                                          
(hygiene
                                                                            
guile))
-                                                                      #{x\ 
1489}#
-                                                                      #{y\ 
1490}#)))
-                                                            #{tmp\ 1494}#)))
+                                                                      #{x\ 
5045}#
+                                                                      #{y\ 
5046}#)))
+                                                            #{tmp\ 5050}#)))
                                                        ($sc-dispatch
-                                                         #{tmp\ 1494}#
+                                                         #{tmp\ 5050}#
                                                          '(#(free-id
                                                              #(syntax-object
                                                                quote
@@ -10513,11 +10575,11 @@
                                                                (hygiene
                                                                  guile)))
                                                            any))))
-                                                    #{x\ 1489}#))
-                                                 #{tmp\ 1492}#)
-                                          ((lambda (#{tmp\ 1498}#)
-                                             (if #{tmp\ 1498}#
-                                               (apply (lambda (#{stuff\ 1499}#)
+                                                    #{x\ 5045}#))
+                                                 #{tmp\ 5048}#)
+                                          ((lambda (#{tmp\ 5054}#)
+                                             (if #{tmp\ 5054}#
+                                               (apply (lambda (#{stuff\ 5055}#)
                                                         (cons '#(syntax-object
                                                                  list
                                                                  ((top)
@@ -10558,10 +10620,10 @@
                                                                       "i")))
                                                                  (hygiene
                                                                    guile))
-                                                              (cons #{x\ 1489}#
-                                                                    #{stuff\ 
1499}#)))
-                                                      #{tmp\ 1498}#)
-                                               ((lambda (#{else\ 1500}#)
+                                                              (cons #{x\ 5045}#
+                                                                    #{stuff\ 
5055}#)))
+                                                      #{tmp\ 5054}#)
+                                               ((lambda (#{else\ 5056}#)
                                                   (list '#(syntax-object
                                                            cons
                                                            ((top)
@@ -10593,11 +10655,11 @@
                                                                 "i"
                                                                 "i")))
                                                            (hygiene guile))
-                                                        #{x\ 1489}#
-                                                        #{y\ 1490}#))
-                                                #{tmp\ 1491}#)))
+                                                        #{x\ 5045}#
+                                                        #{y\ 5046}#))
+                                                #{tmp\ 5047}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 1491}#
+                                             #{tmp\ 5047}#
                                              '(#(free-id
                                                  #(syntax-object
                                                    list
@@ -10626,7 +10688,7 @@
                                                .
                                                any)))))
                                       ($sc-dispatch
-                                        #{tmp\ 1491}#
+                                        #{tmp\ 5047}#
                                         '(#(free-id
                                             #(syntax-object
                                               quote
@@ -10650,26 +10712,26 @@
                                                  #("i" "i" "i" "i")))
                                               (hygiene guile)))
                                           any))))
-                                   #{y\ 1490}#))
-                                #{tmp\ 1488}#)
+                                   #{y\ 5046}#))
+                                #{tmp\ 5044}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
-                           #{tmp\ 1487}#)))
-                     ($sc-dispatch #{tmp\ 1487}# (quote (any any)))))
-                  (list #{x\ 1485}# #{y\ 1486}#))))
-             (#{quasiappend\ 1482}#
-               (lambda (#{x\ 1501}# #{y\ 1502}#)
-                 ((lambda (#{tmp\ 1503}#)
-                    ((lambda (#{tmp\ 1504}#)
-                       (if #{tmp\ 1504}#
-                         (apply (lambda (#{x\ 1505}# #{y\ 1506}#)
-                                  ((lambda (#{tmp\ 1507}#)
-                                     ((lambda (#{tmp\ 1508}#)
-                                        (if #{tmp\ 1508}#
-                                          (apply (lambda () #{x\ 1505}#)
-                                                 #{tmp\ 1508}#)
-                                          ((lambda (#{_\ 1509}#)
+                           #{tmp\ 5043}#)))
+                     ($sc-dispatch #{tmp\ 5043}# (quote (any any)))))
+                  (list #{x\ 5041}# #{y\ 5042}#))))
+             (#{quasiappend\ 5038}#
+               (lambda (#{x\ 5057}# #{y\ 5058}#)
+                 ((lambda (#{tmp\ 5059}#)
+                    ((lambda (#{tmp\ 5060}#)
+                       (if #{tmp\ 5060}#
+                         (apply (lambda (#{x\ 5061}# #{y\ 5062}#)
+                                  ((lambda (#{tmp\ 5063}#)
+                                     ((lambda (#{tmp\ 5064}#)
+                                        (if #{tmp\ 5064}#
+                                          (apply (lambda () #{x\ 5061}#)
+                                                 #{tmp\ 5064}#)
+                                          ((lambda (#{_\ 5065}#)
                                              (list '#(syntax-object
                                                       append
                                                       ((top)
@@ -10698,11 +10760,11 @@
                                                            (top))
                                                          #("i" "i" "i" "i")))
                                                       (hygiene guile))
-                                                   #{x\ 1505}#
-                                                   #{y\ 1506}#))
-                                           #{tmp\ 1507}#)))
+                                                   #{x\ 5061}#
+                                                   #{y\ 5062}#))
+                                           #{tmp\ 5063}#)))
                                       ($sc-dispatch
-                                        #{tmp\ 1507}#
+                                        #{tmp\ 5063}#
                                         '(#(free-id
                                             #(syntax-object
                                               quote
@@ -10726,22 +10788,22 @@
                                                  #("i" "i" "i" "i")))
                                               (hygiene guile)))
                                           ()))))
-                                   #{y\ 1506}#))
-                                #{tmp\ 1504}#)
+                                   #{y\ 5062}#))
+                                #{tmp\ 5060}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
-                           #{tmp\ 1503}#)))
-                     ($sc-dispatch #{tmp\ 1503}# (quote (any any)))))
-                  (list #{x\ 1501}# #{y\ 1502}#))))
-             (#{quasivector\ 1483}#
-               (lambda (#{x\ 1510}#)
-                 ((lambda (#{tmp\ 1511}#)
-                    ((lambda (#{x\ 1512}#)
-                       ((lambda (#{tmp\ 1513}#)
-                          ((lambda (#{tmp\ 1514}#)
-                             (if #{tmp\ 1514}#
-                               (apply (lambda (#{x\ 1515}#)
+                           #{tmp\ 5059}#)))
+                     ($sc-dispatch #{tmp\ 5059}# (quote (any any)))))
+                  (list #{x\ 5057}# #{y\ 5058}#))))
+             (#{quasivector\ 5039}#
+               (lambda (#{x\ 5066}#)
+                 ((lambda (#{tmp\ 5067}#)
+                    ((lambda (#{x\ 5068}#)
+                       ((lambda (#{tmp\ 5069}#)
+                          ((lambda (#{tmp\ 5070}#)
+                             (if #{tmp\ 5070}#
+                               (apply (lambda (#{x\ 5071}#)
                                         (list '#(syntax-object
                                                  quote
                                                  ((top)
@@ -10767,11 +10829,11 @@
                                                     #((top) (top) (top) (top))
                                                     #("i" "i" "i" "i")))
                                                  (hygiene guile))
-                                              (list->vector #{x\ 1515}#)))
-                                      #{tmp\ 1514}#)
-                               ((lambda (#{tmp\ 1517}#)
-                                  (if #{tmp\ 1517}#
-                                    (apply (lambda (#{x\ 1518}#)
+                                              (list->vector #{x\ 5071}#)))
+                                      #{tmp\ 5070}#)
+                               ((lambda (#{tmp\ 5073}#)
+                                  (if #{tmp\ 5073}#
+                                    (apply (lambda (#{x\ 5074}#)
                                              (cons '#(syntax-object
                                                       vector
                                                       ((top)
@@ -10800,9 +10862,9 @@
                                                            (top))
                                                          #("i" "i" "i" "i")))
                                                       (hygiene guile))
-                                                   #{x\ 1518}#))
-                                           #{tmp\ 1517}#)
-                                    ((lambda (#{_\ 1520}#)
+                                                   #{x\ 5074}#))
+                                           #{tmp\ 5073}#)
+                                    ((lambda (#{_\ 5076}#)
                                        (list '#(syntax-object
                                                 list->vector
                                                 ((top)
@@ -10828,10 +10890,10 @@
                                                    #((top) (top) (top) (top))
                                                    #("i" "i" "i" "i")))
                                                 (hygiene guile))
-                                             #{x\ 1512}#))
-                                     #{tmp\ 1513}#)))
+                                             #{x\ 5068}#))
+                                     #{tmp\ 5069}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 1513}#
+                                  #{tmp\ 5069}#
                                   '(#(free-id
                                       #(syntax-object
                                         list
@@ -10851,7 +10913,7 @@
                                     .
                                     each-any)))))
                            ($sc-dispatch
-                             #{tmp\ 1513}#
+                             #{tmp\ 5069}#
                              '(#(free-id
                                  #(syntax-object
                                    quote
@@ -10869,18 +10931,18 @@
                                       #("i" "i" "i" "i")))
                                    (hygiene guile)))
                                each-any))))
-                        #{x\ 1512}#))
-                     #{tmp\ 1511}#))
-                  #{x\ 1510}#)))
-             (#{quasi\ 1484}#
-               (lambda (#{p\ 1521}# #{lev\ 1522}#)
-                 ((lambda (#{tmp\ 1523}#)
-                    ((lambda (#{tmp\ 1524}#)
-                       (if #{tmp\ 1524}#
-                         (apply (lambda (#{p\ 1525}#)
-                                  (if (= #{lev\ 1522}# 0)
-                                    #{p\ 1525}#
-                                    (#{quasicons\ 1481}#
+                        #{x\ 5068}#))
+                     #{tmp\ 5067}#))
+                  #{x\ 5066}#)))
+             (#{quasi\ 5040}#
+               (lambda (#{p\ 5077}# #{lev\ 5078}#)
+                 ((lambda (#{tmp\ 5079}#)
+                    ((lambda (#{tmp\ 5080}#)
+                       (if #{tmp\ 5080}#
+                         (apply (lambda (#{p\ 5081}#)
+                                  (if (= #{lev\ 5078}# 0)
+                                    #{p\ 5081}#
+                                    (#{quasicons\ 5037}#
                                       '(#(syntax-object
                                           quote
                                           ((top)
@@ -10915,21 +10977,21 @@
                                              #((top) (top) (top) (top))
                                              #("i" "i" "i" "i")))
                                           (hygiene guile)))
-                                      (#{quasi\ 1484}#
-                                        (list #{p\ 1525}#)
-                                        (- #{lev\ 1522}# 1)))))
-                                #{tmp\ 1524}#)
-                         ((lambda (#{tmp\ 1526}#)
-                            (if (if #{tmp\ 1526}#
-                                  (apply (lambda (#{args\ 1527}#)
-                                           (= #{lev\ 1522}# 0))
-                                         #{tmp\ 1526}#)
+                                      (#{quasi\ 5040}#
+                                        (list #{p\ 5081}#)
+                                        (- #{lev\ 5078}# 1)))))
+                                #{tmp\ 5080}#)
+                         ((lambda (#{tmp\ 5082}#)
+                            (if (if #{tmp\ 5082}#
+                                  (apply (lambda (#{args\ 5083}#)
+                                           (= #{lev\ 5078}# 0))
+                                         #{tmp\ 5082}#)
                                   #f)
-                              (apply (lambda (#{args\ 1528}#)
+                              (apply (lambda (#{args\ 5084}#)
                                        (syntax-violation
                                          'unquote
                                          "unquote takes exactly one argument"
-                                         #{p\ 1521}#
+                                         #{p\ 5077}#
                                          (cons '#(syntax-object
                                                   unquote
                                                   ((top)
@@ -10950,19 +11012,19 @@
                                                      #((top) (top) (top) (top))
                                                      #("i" "i" "i" "i")))
                                                   (hygiene guile))
-                                               #{args\ 1528}#)))
-                                     #{tmp\ 1526}#)
-                              ((lambda (#{tmp\ 1529}#)
-                                 (if #{tmp\ 1529}#
-                                   (apply (lambda (#{p\ 1530}# #{q\ 1531}#)
-                                            (if (= #{lev\ 1522}# 0)
-                                              (#{quasiappend\ 1482}#
-                                                #{p\ 1530}#
-                                                (#{quasi\ 1484}#
-                                                  #{q\ 1531}#
-                                                  #{lev\ 1522}#))
-                                              (#{quasicons\ 1481}#
-                                                (#{quasicons\ 1481}#
+                                               #{args\ 5084}#)))
+                                     #{tmp\ 5082}#)
+                              ((lambda (#{tmp\ 5085}#)
+                                 (if #{tmp\ 5085}#
+                                   (apply (lambda (#{p\ 5086}# #{q\ 5087}#)
+                                            (if (= #{lev\ 5078}# 0)
+                                              (#{quasiappend\ 5038}#
+                                                #{p\ 5086}#
+                                                (#{quasi\ 5040}#
+                                                  #{q\ 5087}#
+                                                  #{lev\ 5078}#))
+                                              (#{quasicons\ 5037}#
+                                                (#{quasicons\ 5037}#
                                                   '(#(syntax-object
                                                       quote
                                                       ((top)
@@ -11009,26 +11071,26 @@
                                                            (top))
                                                          #("i" "i" "i" "i")))
                                                       (hygiene guile)))
-                                                  (#{quasi\ 1484}#
-                                                    (list #{p\ 1530}#)
-                                                    (- #{lev\ 1522}# 1)))
-                                                (#{quasi\ 1484}#
-                                                  #{q\ 1531}#
-                                                  #{lev\ 1522}#))))
-                                          #{tmp\ 1529}#)
-                                   ((lambda (#{tmp\ 1532}#)
-                                      (if (if #{tmp\ 1532}#
-                                            (apply (lambda (#{args\ 1533}#
-                                                            #{q\ 1534}#)
-                                                     (= #{lev\ 1522}# 0))
-                                                   #{tmp\ 1532}#)
+                                                  (#{quasi\ 5040}#
+                                                    (list #{p\ 5086}#)
+                                                    (- #{lev\ 5078}# 1)))
+                                                (#{quasi\ 5040}#
+                                                  #{q\ 5087}#
+                                                  #{lev\ 5078}#))))
+                                          #{tmp\ 5085}#)
+                                   ((lambda (#{tmp\ 5088}#)
+                                      (if (if #{tmp\ 5088}#
+                                            (apply (lambda (#{args\ 5089}#
+                                                            #{q\ 5090}#)
+                                                     (= #{lev\ 5078}# 0))
+                                                   #{tmp\ 5088}#)
                                             #f)
-                                        (apply (lambda (#{args\ 1535}#
-                                                        #{q\ 1536}#)
+                                        (apply (lambda (#{args\ 5091}#
+                                                        #{q\ 5092}#)
                                                  (syntax-violation
                                                    'unquote-splicing
                                                    "unquote-splicing takes 
exactly one argument"
-                                                   #{p\ 1521}#
+                                                   #{p\ 5077}#
                                                    (cons '#(syntax-object
                                                             unquote-splicing
                                                             ((top)
@@ -11058,12 +11120,12 @@
                                                                  "i"
                                                                  "i")))
                                                             (hygiene guile))
-                                                         #{args\ 1535}#)))
-                                               #{tmp\ 1532}#)
-                                        ((lambda (#{tmp\ 1537}#)
-                                           (if #{tmp\ 1537}#
-                                             (apply (lambda (#{p\ 1538}#)
-                                                      (#{quasicons\ 1481}#
+                                                         #{args\ 5091}#)))
+                                               #{tmp\ 5088}#)
+                                        ((lambda (#{tmp\ 5093}#)
+                                           (if #{tmp\ 5093}#
+                                             (apply (lambda (#{p\ 5094}#)
+                                                      (#{quasicons\ 5037}#
                                                         '(#(syntax-object
                                                             quote
                                                             ((top)
@@ -11122,32 +11184,32 @@
                                                                  "i"
                                                                  "i")))
                                                             (hygiene guile)))
-                                                        (#{quasi\ 1484}#
-                                                          (list #{p\ 1538}#)
-                                                          (+ #{lev\ 1522}#
+                                                        (#{quasi\ 5040}#
+                                                          (list #{p\ 5094}#)
+                                                          (+ #{lev\ 5078}#
                                                              1))))
-                                                    #{tmp\ 1537}#)
-                                             ((lambda (#{tmp\ 1539}#)
-                                                (if #{tmp\ 1539}#
-                                                  (apply (lambda (#{p\ 1540}#
-                                                                  #{q\ 1541}#)
-                                                           (#{quasicons\ 1481}#
-                                                             (#{quasi\ 1484}#
-                                                               #{p\ 1540}#
-                                                               #{lev\ 1522}#)
-                                                             (#{quasi\ 1484}#
-                                                               #{q\ 1541}#
-                                                               #{lev\ 1522}#)))
-                                                         #{tmp\ 1539}#)
-                                                  ((lambda (#{tmp\ 1542}#)
-                                                     (if #{tmp\ 1542}#
-                                                       (apply (lambda (#{x\ 
1543}#)
-                                                                
(#{quasivector\ 1483}#
-                                                                  (#{quasi\ 
1484}#
-                                                                    #{x\ 1543}#
-                                                                    #{lev\ 
1522}#)))
-                                                              #{tmp\ 1542}#)
-                                                       ((lambda (#{p\ 1545}#)
+                                                    #{tmp\ 5093}#)
+                                             ((lambda (#{tmp\ 5095}#)
+                                                (if #{tmp\ 5095}#
+                                                  (apply (lambda (#{p\ 5096}#
+                                                                  #{q\ 5097}#)
+                                                           (#{quasicons\ 5037}#
+                                                             (#{quasi\ 5040}#
+                                                               #{p\ 5096}#
+                                                               #{lev\ 5078}#)
+                                                             (#{quasi\ 5040}#
+                                                               #{q\ 5097}#
+                                                               #{lev\ 5078}#)))
+                                                         #{tmp\ 5095}#)
+                                                  ((lambda (#{tmp\ 5098}#)
+                                                     (if #{tmp\ 5098}#
+                                                       (apply (lambda (#{x\ 
5099}#)
+                                                                
(#{quasivector\ 5039}#
+                                                                  (#{quasi\ 
5040}#
+                                                                    #{x\ 5099}#
+                                                                    #{lev\ 
5078}#)))
+                                                              #{tmp\ 5098}#)
+                                                       ((lambda (#{p\ 5101}#)
                                                           (list 
'#(syntax-object
                                                                    quote
                                                                    ((top)
@@ -11180,16 +11242,16 @@
                                                                         "i")))
                                                                    (hygiene
                                                                      guile))
-                                                                #{p\ 1545}#))
-                                                        #{tmp\ 1523}#)))
+                                                                #{p\ 5101}#))
+                                                        #{tmp\ 5079}#)))
                                                    ($sc-dispatch
-                                                     #{tmp\ 1523}#
+                                                     #{tmp\ 5079}#
                                                      '#(vector each-any)))))
                                               ($sc-dispatch
-                                                #{tmp\ 1523}#
+                                                #{tmp\ 5079}#
                                                 '(any . any)))))
                                          ($sc-dispatch
-                                           #{tmp\ 1523}#
+                                           #{tmp\ 5079}#
                                            '(#(free-id
                                                #(syntax-object
                                                  quasiquote
@@ -11209,7 +11271,7 @@
                                                  (hygiene guile)))
                                              any)))))
                                     ($sc-dispatch
-                                      #{tmp\ 1523}#
+                                      #{tmp\ 5079}#
                                       '((#(free-id
                                            #(syntax-object
                                              unquote-splicing
@@ -11232,7 +11294,7 @@
                                         .
                                         any)))))
                                ($sc-dispatch
-                                 #{tmp\ 1523}#
+                                 #{tmp\ 5079}#
                                  '((#(free-id
                                       #(syntax-object
                                         unquote-splicing
@@ -11254,7 +11316,7 @@
                                    .
                                    any)))))
                           ($sc-dispatch
-                            #{tmp\ 1523}#
+                            #{tmp\ 5079}#
                             '(#(free-id
                                 #(syntax-object
                                   unquote
@@ -11272,7 +11334,7 @@
                               .
                               any)))))
                      ($sc-dispatch
-                       #{tmp\ 1523}#
+                       #{tmp\ 5079}#
                        '(#(free-id
                            #(syntax-object
                              unquote
@@ -11285,49 +11347,49 @@
                                 #("i" "i" "i" "i")))
                              (hygiene guile)))
                          any))))
-                  #{p\ 1521}#))))
-      (lambda (#{x\ 1546}#)
-        ((lambda (#{tmp\ 1547}#)
-           ((lambda (#{tmp\ 1548}#)
-              (if #{tmp\ 1548}#
-                (apply (lambda (#{_\ 1549}# #{e\ 1550}#)
-                         (#{quasi\ 1484}# #{e\ 1550}# 0))
-                       #{tmp\ 1548}#)
+                  #{p\ 5077}#))))
+      (lambda (#{x\ 5102}#)
+        ((lambda (#{tmp\ 5103}#)
+           ((lambda (#{tmp\ 5104}#)
+              (if #{tmp\ 5104}#
+                (apply (lambda (#{_\ 5105}# #{e\ 5106}#)
+                         (#{quasi\ 5040}# #{e\ 5106}# 0))
+                       #{tmp\ 5104}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{tmp\ 1547}#)))
-            ($sc-dispatch #{tmp\ 1547}# (quote (any any)))))
-         #{x\ 1546}#)))))
+                  #{tmp\ 5103}#)))
+            ($sc-dispatch #{tmp\ 5103}# (quote (any any)))))
+         #{x\ 5102}#)))))
 
 (define include
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1551}#)
-      (letrec ((#{read-file\ 1552}#
-                 (lambda (#{fn\ 1553}# #{k\ 1554}#)
-                   (let ((#{p\ 1555}# (open-input-file #{fn\ 1553}#)))
-                     (letrec ((#{f\ 1556}#
-                                (lambda (#{x\ 1557}#)
-                                  (if (eof-object? #{x\ 1557}#)
+    (lambda (#{x\ 5107}#)
+      (letrec ((#{read-file\ 5108}#
+                 (lambda (#{fn\ 5109}# #{k\ 5110}#)
+                   (let ((#{p\ 5111}# (open-input-file #{fn\ 5109}#)))
+                     (letrec ((#{f\ 5112}#
+                                (lambda (#{x\ 5113}#)
+                                  (if (eof-object? #{x\ 5113}#)
                                     (begin
-                                      (close-input-port #{p\ 1555}#)
+                                      (close-input-port #{p\ 5111}#)
                                       '())
                                     (cons (datum->syntax
-                                            #{k\ 1554}#
-                                            #{x\ 1557}#)
-                                          (#{f\ 1556}# (read #{p\ 1555}#)))))))
-                       (#{f\ 1556}# (read #{p\ 1555}#)))))))
-        ((lambda (#{tmp\ 1558}#)
-           ((lambda (#{tmp\ 1559}#)
-              (if #{tmp\ 1559}#
-                (apply (lambda (#{k\ 1560}# #{filename\ 1561}#)
-                         (let ((#{fn\ 1562}#
-                                 (syntax->datum #{filename\ 1561}#)))
-                           ((lambda (#{tmp\ 1563}#)
-                              ((lambda (#{tmp\ 1564}#)
-                                 (if #{tmp\ 1564}#
-                                   (apply (lambda (#{exp\ 1565}#)
+                                            #{k\ 5110}#
+                                            #{x\ 5113}#)
+                                          (#{f\ 5112}# (read #{p\ 5111}#)))))))
+                       (#{f\ 5112}# (read #{p\ 5111}#)))))))
+        ((lambda (#{tmp\ 5114}#)
+           ((lambda (#{tmp\ 5115}#)
+              (if #{tmp\ 5115}#
+                (apply (lambda (#{k\ 5116}# #{filename\ 5117}#)
+                         (let ((#{fn\ 5118}#
+                                 (syntax->datum #{filename\ 5117}#)))
+                           ((lambda (#{tmp\ 5119}#)
+                              ((lambda (#{tmp\ 5120}#)
+                                 (if #{tmp\ 5120}#
+                                   (apply (lambda (#{exp\ 5121}#)
                                             (cons '#(syntax-object
                                                      begin
                                                      ((top)
@@ -11354,76 +11416,76 @@
                                                         #((top))
                                                         #("i")))
                                                      (hygiene guile))
-                                                  #{exp\ 1565}#))
-                                          #{tmp\ 1564}#)
+                                                  #{exp\ 5121}#))
+                                          #{tmp\ 5120}#)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any 
pattern"
-                                     #{tmp\ 1563}#)))
-                               ($sc-dispatch #{tmp\ 1563}# (quote each-any))))
-                            (#{read-file\ 1552}# #{fn\ 1562}# #{k\ 1560}#))))
-                       #{tmp\ 1559}#)
+                                     #{tmp\ 5119}#)))
+                               ($sc-dispatch #{tmp\ 5119}# (quote each-any))))
+                            (#{read-file\ 5108}# #{fn\ 5118}# #{k\ 5116}#))))
+                       #{tmp\ 5115}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{tmp\ 1558}#)))
-            ($sc-dispatch #{tmp\ 1558}# (quote (any any)))))
-         #{x\ 1551}#)))))
+                  #{tmp\ 5114}#)))
+            ($sc-dispatch #{tmp\ 5114}# (quote (any any)))))
+         #{x\ 5107}#)))))
 
 (define unquote
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1567}#)
-      ((lambda (#{tmp\ 1568}#)
-         ((lambda (#{tmp\ 1569}#)
-            (if #{tmp\ 1569}#
-              (apply (lambda (#{_\ 1570}# #{e\ 1571}#)
+    (lambda (#{x\ 5123}#)
+      ((lambda (#{tmp\ 5124}#)
+         ((lambda (#{tmp\ 5125}#)
+            (if #{tmp\ 5125}#
+              (apply (lambda (#{_\ 5126}# #{e\ 5127}#)
                        (syntax-violation
                          'unquote
                          "expression not valid outside of quasiquote"
-                         #{x\ 1567}#))
-                     #{tmp\ 1569}#)
+                         #{x\ 5123}#))
+                     #{tmp\ 5125}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1568}#)))
-          ($sc-dispatch #{tmp\ 1568}# (quote (any any)))))
-       #{x\ 1567}#))))
+                #{tmp\ 5124}#)))
+          ($sc-dispatch #{tmp\ 5124}# (quote (any any)))))
+       #{x\ 5123}#))))
 
 (define unquote-splicing
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1572}#)
-      ((lambda (#{tmp\ 1573}#)
-         ((lambda (#{tmp\ 1574}#)
-            (if #{tmp\ 1574}#
-              (apply (lambda (#{_\ 1575}# #{e\ 1576}#)
+    (lambda (#{x\ 5128}#)
+      ((lambda (#{tmp\ 5129}#)
+         ((lambda (#{tmp\ 5130}#)
+            (if #{tmp\ 5130}#
+              (apply (lambda (#{_\ 5131}# #{e\ 5132}#)
                        (syntax-violation
                          'unquote-splicing
                          "expression not valid outside of quasiquote"
-                         #{x\ 1572}#))
-                     #{tmp\ 1574}#)
+                         #{x\ 5128}#))
+                     #{tmp\ 5130}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1573}#)))
-          ($sc-dispatch #{tmp\ 1573}# (quote (any any)))))
-       #{x\ 1572}#))))
+                #{tmp\ 5129}#)))
+          ($sc-dispatch #{tmp\ 5129}# (quote (any any)))))
+       #{x\ 5128}#))))
 
 (define case
   (make-extended-syncase-macro
     (module-ref (current-module) (quote case))
     'macro
-    (lambda (#{x\ 1577}#)
-      ((lambda (#{tmp\ 1578}#)
-         ((lambda (#{tmp\ 1579}#)
-            (if #{tmp\ 1579}#
-              (apply (lambda (#{_\ 1580}#
-                              #{e\ 1581}#
-                              #{m1\ 1582}#
-                              #{m2\ 1583}#)
-                       ((lambda (#{tmp\ 1584}#)
-                          ((lambda (#{body\ 1585}#)
+    (lambda (#{x\ 5133}#)
+      ((lambda (#{tmp\ 5134}#)
+         ((lambda (#{tmp\ 5135}#)
+            (if #{tmp\ 5135}#
+              (apply (lambda (#{_\ 5136}#
+                              #{e\ 5137}#
+                              #{m1\ 5138}#
+                              #{m2\ 5139}#)
+                       ((lambda (#{tmp\ 5140}#)
+                          ((lambda (#{body\ 5141}#)
                              (list '#(syntax-object
                                       let
                                       ((top)
@@ -11452,17 +11514,17 @@
                                                      #((top))
                                                      #("i")))
                                                   (hygiene guile))
-                                               #{e\ 1581}#))
-                                   #{body\ 1585}#))
-                           #{tmp\ 1584}#))
-                        (letrec ((#{f\ 1586}#
-                                   (lambda (#{clause\ 1587}# #{clauses\ 1588}#)
-                                     (if (null? #{clauses\ 1588}#)
-                                       ((lambda (#{tmp\ 1590}#)
-                                          ((lambda (#{tmp\ 1591}#)
-                                             (if #{tmp\ 1591}#
-                                               (apply (lambda (#{e1\ 1592}#
-                                                               #{e2\ 1593}#)
+                                               #{e\ 5137}#))
+                                   #{body\ 5141}#))
+                           #{tmp\ 5140}#))
+                        (letrec ((#{f\ 5142}#
+                                   (lambda (#{clause\ 5143}# #{clauses\ 5144}#)
+                                     (if (null? #{clauses\ 5144}#)
+                                       ((lambda (#{tmp\ 5146}#)
+                                          ((lambda (#{tmp\ 5147}#)
+                                             (if #{tmp\ 5147}#
+                                               (apply (lambda (#{e1\ 5148}#
+                                                               #{e2\ 5149}#)
                                                         (cons '#(syntax-object
                                                                  begin
                                                                  ((top)
@@ -11508,14 +11570,14 @@
                                                                     #("i")))
                                                                  (hygiene
                                                                    guile))
-                                                              (cons #{e1\ 
1592}#
-                                                                    #{e2\ 
1593}#)))
-                                                      #{tmp\ 1591}#)
-                                               ((lambda (#{tmp\ 1595}#)
-                                                  (if #{tmp\ 1595}#
-                                                    (apply (lambda (#{k\ 1596}#
-                                                                    #{e1\ 
1597}#
-                                                                    #{e2\ 
1598}#)
+                                                              (cons #{e1\ 
5148}#
+                                                                    #{e2\ 
5149}#)))
+                                                      #{tmp\ 5147}#)
+                                               ((lambda (#{tmp\ 5151}#)
+                                                  (if #{tmp\ 5151}#
+                                                    (apply (lambda (#{k\ 5152}#
+                                                                    #{e1\ 
5153}#
+                                                                    #{e2\ 
5154}#)
                                                              (list 
'#(syntax-object
                                                                       if
                                                                       ((top)
@@ -11716,7 +11778,7 @@
                                                                                
      #("i")))
                                                                                
   (hygiene
                                                                                
     guile))
-                                                                               
#{k\ 1596}#))
+                                                                               
#{k\ 5152}#))
                                                                    (cons 
'#(syntax-object
                                                                             
begin
                                                                             
((top)
@@ -11767,24 +11829,24 @@
                                                                                
#("i")))
                                                                             
(hygiene
                                                                               
guile))
-                                                                         (cons 
#{e1\ 1597}#
-                                                                               
#{e2\ 1598}#))))
-                                                           #{tmp\ 1595}#)
-                                                    ((lambda (#{_\ 1601}#)
+                                                                         (cons 
#{e1\ 5153}#
+                                                                               
#{e2\ 5154}#))))
+                                                           #{tmp\ 5151}#)
+                                                    ((lambda (#{_\ 5157}#)
                                                        (syntax-violation
                                                          'case
                                                          "bad clause"
-                                                         #{x\ 1577}#
-                                                         #{clause\ 1587}#))
-                                                     #{tmp\ 1590}#)))
+                                                         #{x\ 5133}#
+                                                         #{clause\ 5143}#))
+                                                     #{tmp\ 5146}#)))
                                                 ($sc-dispatch
-                                                  #{tmp\ 1590}#
+                                                  #{tmp\ 5146}#
                                                   '(each-any
                                                      any
                                                      .
                                                      each-any)))))
                                            ($sc-dispatch
-                                             #{tmp\ 1590}#
+                                             #{tmp\ 5146}#
                                              '(#(free-id
                                                  #(syntax-object
                                                    else
@@ -11810,15 +11872,15 @@
                                                any
                                                .
                                                each-any))))
-                                        #{clause\ 1587}#)
-                                       ((lambda (#{tmp\ 1602}#)
-                                          ((lambda (#{rest\ 1603}#)
-                                             ((lambda (#{tmp\ 1604}#)
-                                                ((lambda (#{tmp\ 1605}#)
-                                                   (if #{tmp\ 1605}#
-                                                     (apply (lambda (#{k\ 
1606}#
-                                                                     #{e1\ 
1607}#
-                                                                     #{e2\ 
1608}#)
+                                        #{clause\ 5143}#)
+                                       ((lambda (#{tmp\ 5158}#)
+                                          ((lambda (#{rest\ 5159}#)
+                                             ((lambda (#{tmp\ 5160}#)
+                                                ((lambda (#{tmp\ 5161}#)
+                                                   (if #{tmp\ 5161}#
+                                                     (apply (lambda (#{k\ 
5162}#
+                                                                     #{e1\ 
5163}#
+                                                                     #{e2\ 
5164}#)
                                                               (list 
'#(syntax-object
                                                                        if
                                                                        ((top)
@@ -12035,7 +12097,7 @@
                                                                                
       #("i")))
                                                                                
    (hygiene
                                                                                
      guile))
-                                                                               
 #{k\ 1606}#))
+                                                                               
 #{k\ 5162}#))
                                                                     (cons 
'#(syntax-object
                                                                              
begin
                                                                              
((top)
@@ -12090,47 +12152,47 @@
                                                                                
 #("i")))
                                                                              
(hygiene
                                                                                
guile))
-                                                                          
(cons #{e1\ 1607}#
-                                                                               
 #{e2\ 1608}#))
-                                                                    #{rest\ 
1603}#))
-                                                            #{tmp\ 1605}#)
-                                                     ((lambda (#{_\ 1611}#)
+                                                                          
(cons #{e1\ 5163}#
+                                                                               
 #{e2\ 5164}#))
+                                                                    #{rest\ 
5159}#))
+                                                            #{tmp\ 5161}#)
+                                                     ((lambda (#{_\ 5167}#)
                                                         (syntax-violation
                                                           'case
                                                           "bad clause"
-                                                          #{x\ 1577}#
-                                                          #{clause\ 1587}#))
-                                                      #{tmp\ 1604}#)))
+                                                          #{x\ 5133}#
+                                                          #{clause\ 5143}#))
+                                                      #{tmp\ 5160}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 1604}#
+                                                   #{tmp\ 5160}#
                                                    '(each-any
                                                       any
                                                       .
                                                       each-any))))
-                                              #{clause\ 1587}#))
-                                           #{tmp\ 1602}#))
-                                        (#{f\ 1586}#
-                                          (car #{clauses\ 1588}#)
-                                          (cdr #{clauses\ 1588}#)))))))
-                          (#{f\ 1586}# #{m1\ 1582}# #{m2\ 1583}#))))
-                     #{tmp\ 1579}#)
+                                              #{clause\ 5143}#))
+                                           #{tmp\ 5158}#))
+                                        (#{f\ 5142}#
+                                          (car #{clauses\ 5144}#)
+                                          (cdr #{clauses\ 5144}#)))))))
+                          (#{f\ 5142}# #{m1\ 5138}# #{m2\ 5139}#))))
+                     #{tmp\ 5135}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1578}#)))
+                #{tmp\ 5134}#)))
           ($sc-dispatch
-            #{tmp\ 1578}#
+            #{tmp\ 5134}#
             '(any any any . each-any))))
-       #{x\ 1577}#))))
+       #{x\ 5133}#))))
 
 (define identifier-syntax
   (make-syncase-macro
     'macro
-    (lambda (#{x\ 1612}#)
-      ((lambda (#{tmp\ 1613}#)
-         ((lambda (#{tmp\ 1614}#)
-            (if #{tmp\ 1614}#
-              (apply (lambda (#{_\ 1615}# #{e\ 1616}#)
+    (lambda (#{x\ 5168}#)
+      ((lambda (#{tmp\ 5169}#)
+         ((lambda (#{tmp\ 5170}#)
+            (if #{tmp\ 5170}#
+              (apply (lambda (#{_\ 5171}# #{e\ 5172}#)
                        (list '#(syntax-object
                                 lambda
                                 ((top)
@@ -12219,8 +12281,8 @@
                                                      #((top))
                                                      #("i")))
                                                   (hygiene guile))
-                                               #{e\ 1616}#))
-                                   (list (cons #{_\ 1615}#
+                                               #{e\ 5172}#))
+                                   (list (cons #{_\ 5171}#
                                                '(#(syntax-object
                                                    x
                                                    ((top)
@@ -12260,7 +12322,7 @@
                                                      #((top))
                                                      #("i")))
                                                   (hygiene guile))
-                                               (cons #{e\ 1616}#
+                                               (cons #{e\ 5172}#
                                                      '(#(syntax-object
                                                          x
                                                          ((top)
@@ -12288,11 +12350,11 @@
                                                             #("i")))
                                                          (hygiene
                                                            guile)))))))))
-                     #{tmp\ 1614}#)
+                     #{tmp\ 5170}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{tmp\ 1613}#)))
-          ($sc-dispatch #{tmp\ 1613}# (quote (any any)))))
-       #{x\ 1612}#))))
+                #{tmp\ 5169}#)))
+          ($sc-dispatch #{tmp\ 5169}# (quote (any any)))))
+       #{x\ 5168}#))))
 
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index c7b2263..62ea24a 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -482,26 +482,64 @@
              src)))))
 
 (define build-lambda-case
-  ;; kw: ((keyword var init) ...)
+  ;; req := (name ...)
+  ;; opt := ((name init) ...) | #f
+  ;; rest := name | #f
+  ;; kw: (allow-other-keys? (keyword name var [init]) ...) | #f
+  ;; vars: (sym ...)
+  ;; vars map to named arguments in the following order:
+  ;;  required, optional (positional), rest, keyword.
+  ;; predicate: something you can stuff in a (lambda ,vars ,pred), already 
expanded
+  ;; the body of a lambda: anything, already expanded
+  ;; else: lambda-case | #f
   (lambda (src req opt rest kw vars predicate body else-case)
     (case (fluid-ref *mode*)
       ((c)
        ((@ (language tree-il) make-lambda-case)
         src req opt rest kw vars predicate body else-case))
       (else
-       (let ((nkw (map (lambda (x)
-                         `(list ,(car x)
-                                ;; grr
-                                ,(let lp ((vars vars) (i 0))
-                                   (cond ((null? vars) (error "bad kwarg" x))
-                                         ((eq? (cadr x) (car vars)) i)
-                                         (else (lp (cdr vars) (1+ i)))))
-                                (lambda () ,(caddr x))))
-                       kw)))
+       ;; Very much like the logic of (language tree-il compile-glil).
+       (let* ((nreq (length req))
+              (nopt (if opt (length opt) 0))
+              (rest-idx (and rest (+ nreq nopt)))
+              (opt-inits (map (lambda (x) `(lambda ,vars ,(cdr x)))
+                              (or opt '())))
+              (allow-other-keys? (if kw (car kw) #f))
+              (kw-indices (map (lambda (x)
+                                 ;; (,key ,name ,var . _)
+                                 (cons (car x) (list-index vars (caddr x))))
+                               (if kw (cdr kw) '())))
+              (kw-inits (sort
+                         (filter
+                          identity
+                          (map (lambda (x)
+                                 (if (pair? (cdddr x))
+                                     ;; (,key ,name ,var ,init)
+                                     (let ((i (list-index vars (caddr x))))
+                                       (if (> (+ nreq nopt) i)
+                                           (error "kw init for rest arg" x)
+                                           (if (and rest (= (+ nreq nopt) i))
+                                               (error "kw init for positional 
arg" x)
+                                               `(lambda ,vars ,(cadddr x)))))
+                                     ;; (,key ,name ,var)
+                                     (let ((i (list-index vars (caddr x))))
+                                       (if (< (+ nreq nopt) i)
+                                           #f
+                                           (error "missing init for kw arg" 
x)))))
+                               (if kw (cdr kw) '())))
+                         (lambda (x y) (< (cdr x) (cdr y)))))
+              (nargs (apply max (pk (+ nreq nopt (if rest 1 0)))
+                            (map cdr kw-indices))))
+         (or (= nargs
+                (length vars)
+                (+ nreq (length opt-inits) (if rest 1 0) (length kw-inits)))
+             (error "something went wrong"
+                    req opt rest kw vars nreq nopt kw-indices kw-inits nargs))
          (decorate-source
           `((((@@ (ice-9 optargs) parse-lambda-case)
-              (list ,(length req) ,(length opt) ,(and rest #t) ,nkw
-                    ,(if predicate (error "not yet implemented") #f))
+              '(,nreq ,nopt ,rest-idx ,nargs ,allow-other-keys? ,kw-indices)
+              (list ,@opt-inits ,@kw-inits)
+              ,(if predicate `(lambda ,vars ,predicate) #f)
               %%args)
              => (lambda ,vars ,body))
             ,@(or else-case
diff --git a/module/language/glil.scm b/module/language/glil.scm
index 0f0e9b0..b7b3fb7 100644
--- a/module/language/glil.scm
+++ b/module/language/glil.scm
@@ -30,12 +30,12 @@
    glil-std-prelude-nreq glil-std-prelude-nlocs glil-std-prelude-else-label
 
    <glil-opt-prelude> make-glil-opt-prelude glil-opt-prelude?
-   glil-opt-prelude-nreq glil-opt-prelude-nopt glil-opt-prelude-rest?
+   glil-opt-prelude-nreq glil-opt-prelude-nopt glil-opt-prelude-rest
    glil-opt-prelude-nlocs glil-opt-prelude-else-label
 
    <glil-kw-prelude> make-glil-kw-prelude glil-kw-prelude?
    glil-kw-prelude-nreq glil-kw-prelude-nopt glil-kw-prelude-kw
-   glil-kw-prelude-allow-other-keys? glil-kw-prelude-rest?
+   glil-kw-prelude-allow-other-keys? glil-kw-prelude-rest
    glil-kw-prelude-nlocs glil-kw-prelude-else-label
 
    <glil-bind> make-glil-bind glil-bind?
@@ -84,8 +84,8 @@
   ;; Meta operations
   (<glil-program> meta body)
   (<glil-std-prelude> nreq nlocs else-label)
-  (<glil-opt-prelude> nreq nopt rest? nlocs else-label)
-  (<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
+  (<glil-opt-prelude> nreq nopt rest nlocs else-label)
+  (<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
   (<glil-bind> vars)
   (<glil-mv-bind> vars rest)
   (<glil-unbind>)
@@ -111,10 +111,10 @@
      (make-glil-program meta (map parse-glil body)))
     ((std-prelude ,nreq ,nlocs ,else-label)
      (make-glil-std-prelude nreq nlocs else-label))
-    ((opt-prelude ,nreq ,nopt ,rest? ,nlocs ,else-label)
-     (make-glil-opt-prelude nreq nopt rest? nlocs else-label))
-    ((kw-prelude ,nreq ,nopt ,rest? ,kw ,allow-other-keys? ,nlocs ,else-label)
-     (make-glil-kw-prelude nreq nopt rest? kw allow-other-keys? nlocs 
else-label))
+    ((opt-prelude ,nreq ,nopt ,rest ,nlocs ,else-label)
+     (make-glil-opt-prelude nreq nopt rest nlocs else-label))
+    ((kw-prelude ,nreq ,nopt ,rest ,kw ,allow-other-keys? ,nlocs ,else-label)
+     (make-glil-kw-prelude nreq nopt rest kw allow-other-keys? nlocs 
else-label))
     ((bind . ,vars) (make-glil-bind vars))
     ((mv-bind ,vars ,rest) (make-glil-mv-bind vars rest))
     ((unbind) (make-glil-unbind))
@@ -138,10 +138,10 @@
      `(program ,meta ,@(map unparse-glil body)))
     ((<glil-std-prelude> nreq nlocs else-label)
      `(std-prelude ,nreq ,nlocs ,else-label))
-    ((<glil-opt-prelude> nreq nopt rest? nlocs else-label)
-     `(opt-prelude ,nreq ,nopt ,rest? ,nlocs ,else-label))
-    ((<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
-     `(kw-prelude ,nreq ,nopt ,rest? ,kw ,allow-other-keys? ,nlocs 
,else-label))
+    ((<glil-opt-prelude> nreq nopt rest nlocs else-label)
+     `(opt-prelude ,nreq ,nopt ,rest ,nlocs ,else-label))
+    ((<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
+     `(kw-prelude ,nreq ,nopt ,rest ,kw ,allow-other-keys? ,nlocs ,else-label))
     ((<glil-bind> vars) `(bind ,@vars))
     ((<glil-mv-bind> vars rest) `(mv-bind ,vars ,rest))
     ((<glil-unbind>) `(unbind))
diff --git a/module/language/glil/compile-assembly.scm 
b/module/language/glil/compile-assembly.scm
index 7069522..07c9b36 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -134,12 +134,12 @@
   (and (not (null? objects))
        (list->vector (cons #f objects))))
 
-;; arities := ((ip nreq [[nopt] [[rest?] [kw]]]]) ...)
-(define (begin-arity addr nreq nopt rest? kw arities)
+;; arities := ((ip nreq [[nopt] [[rest] [kw]]]]) ...)
+(define (begin-arity addr nreq nopt rest kw arities)
   (cons
    (cond
-    (kw (list addr nreq nopt rest? kw))
-    (rest? (list addr nreq nopt rest?))
+    (kw (list addr nreq nopt rest kw))
+    (rest (list addr nreq nopt rest))
     (nopt (list addr nreq nopt))
     (nreq (list addr nreq))
     (else (list addr)))
@@ -151,9 +151,9 @@
     (values x bindings source-alist label-alist object-alist arities))
   (define (emit-code/object x object-alist)
     (values x bindings source-alist label-alist object-alist arities))
-  (define (emit-code/arity x nreq nopt rest? kw)
+  (define (emit-code/arity x nreq nopt rest kw)
     (values x bindings source-alist label-alist object-alist
-            (begin-arity (addr+ addr x) nreq nopt rest? kw arities)))
+            (begin-arity (addr+ addr x) nreq nopt rest kw arities)))
   
   (record-case glil
     ((<glil-program> meta body)
@@ -230,7 +230,7 @@
                         ,(modulo nlocs 256)))
       nreq #f #f #f))
 
-    ((<glil-opt-prelude> nreq nopt rest? nlocs else-label)
+    ((<glil-opt-prelude> nreq nopt rest nlocs else-label)
      (let ((bind-required
             (if else-label
                 `((br-if-nargs-lt ,(quotient nreq 256)
@@ -245,8 +245,8 @@
                                   ,(modulo (+ nreq nopt) 256)))))
            (bind-rest
             (cond
-             (rest?
-              `((bind-rest ,(quotient (+ nreq nopt) 256)
+             (rest
+              `((push-rest ,(quotient (+ nreq nopt) 256)
                            ,(modulo (+ nreq nopt) 256))))
              (else
               (if else-label
@@ -261,9 +261,9 @@
           ,@bind-rest
           (reserve-locals ,(quotient nlocs 256)
                           ,(modulo nlocs 256)))
-        nreq nopt rest? #f)))
+        nreq nopt rest #f)))
     
-    ((<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
+    ((<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
      (receive (kw-idx object-alist)
          (object-index-and-alist object-alist kw)
        (let ((bind-required
@@ -293,9 +293,11 @@
                  ,(modulo (apply max (+ nreq nopt) (map cdr kw)) 256)
                  ,(if allow-other-keys? 1 0))))
              (bind-rest
-              (if rest?
+              (if rest
                   `((bind-rest ,(quotient (apply max (+ nreq nopt) (map cdr 
kw)) 256)
-                               ,(modulo (apply max (+ nreq nopt) (map cdr kw)) 
256)))
+                               ,(modulo (apply max (+ nreq nopt) (map cdr kw)) 
256)
+                               ,(quotient rest 256)
+                               ,(modulo rest 256)))
                   '())))
          
          (let ((code `(,@bind-required
@@ -305,7 +307,7 @@
                        (reserve-locals ,(quotient nlocs 256)
                                        ,(modulo nlocs 256)))))
            (values code bindings source-alist label-alist object-alist
-                   (begin-arity (addr+ addr code) nreq nopt rest? kw 
arities))))))
+                   (begin-arity (addr+ addr code) nreq nopt rest kw 
arities))))))
     
     ((<glil-bind> vars)
      (values '()
diff --git a/module/language/tree-il/compile-glil.scm 
b/module/language/tree-il/compile-glil.scm
index 9a16f0c..ae44ee6 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -600,32 +600,65 @@
        (maybe-emit-return))
       
       ((<lambda-case> src req opt rest kw vars predicate else body)
-       (let ((nlocs (cdr (hashq-ref allocation x)))
-             (else-label (and else (make-label))))
+       ;; o/~ feature on top of feature o/~
+       ;; req := (name ...)
+       ;; opt := ((name init) ...) | #f
+       ;; rest := name | #f
+       ;; kw: (allow-other-keys? (keyword name var [init]) ...) | #f
+       ;; vars: (sym ...)
+       ;; predicate: tree-il in context of vars
+       ;; init: tree-il in context of vars
+       ;; vars map to named arguments in the following order:
+       ;;  required, optional (positional), rest, keyword.
+       (let* ((nreq (length req))
+              (nopt (if opt (length opt) 0))
+              (rest-idx (and rest (+ nreq nopt)))
+              (opt-inits (map cdr (or opt '())))
+              (allow-other-keys? (if kw (car kw) #f))
+              (kw-indices (map (lambda (x)
+                                 (pmatch x
+                                   ((,key ,name ,var . _)
+                                    (cons key (list-index vars var)))
+                                   (else (error "bad kwarg" x))))
+                               (if kw (cdr kw) '())))
+              (kw-inits (filter
+                         identity
+                         (map (lambda (x)
+                                (pmatch x
+                                  ((,key ,name ,var ,init)
+                                   (let ((i (list-index vars var)))
+                                     (if (> (+ nreq nopt) i)
+                                         (error "kw init for rest arg" x)
+                                         (if (and rest (= rest-idx i))
+                                             (error "kw init for positional 
arg" x)
+                                             (cons i init)))))
+                                  ((,key ,name ,var)
+                                   (let ((i (list-index vars var)))
+                                     (if (< (+ nreq nopt) i)
+                                         #f
+                                         (error "missing init for kw arg" x))))
+                                  (else (error "bad kwarg" x))))
+                              (if kw (cdr kw) '()))))
+              (nargs (apply max (+ nreq nopt (if rest 1 0)) (map cdr 
kw-indices)))
+              (nlocs (cdr (hashq-ref allocation x)))
+              (else-label (and else (make-label))))
+         (or (= nargs
+                (length vars)
+                (+ nreq (length opt-inits) (if rest 1 0) (length kw-inits)))
+             (error "something went wrong"
+                    req opt rest kw vars nreq nopt kw-indices kw-inits nargs))
          ;; the prelude, to check args & reset the stack pointer,
          ;; allowing room for locals
          (emit-code
           src
           (cond
-           ;; kw := (allow-other-keys? (#:key name var) ...)
            (kw
-            (make-glil-kw-prelude
-             (length req) (length (or opt '())) (and rest #t)
-             (map (lambda (x)
-                    (pmatch x
-                      ((,key ,name ,var)
-                       (cons key
-                             (pmatch (hashq-ref (hashq-ref allocation var) 
self)
-                               ((#t ,boxed . ,n) n)
-                               (,a (error "bad keyword allocation" x a)))))
-                      (,x (error "bad keyword" x))))
-                  (cdr kw))
-             (car kw) nlocs else-label))
+            (make-glil-kw-prelude nreq nopt rest-idx kw-indices
+                                  allow-other-keys? nlocs else-label))
            ((or rest opt)
-            (make-glil-opt-prelude
-             (length req) (length (or opt '())) (and rest #t) nlocs 
else-label))
+            (make-glil-opt-prelude nreq nopt rest-idx nlocs else-label))
            (#t
-            (make-glil-std-prelude (length req) nlocs else-label))))
+            (make-glil-std-prelude nreq nlocs else-label))))
          ;; box args if necessary
          (for-each
           (lambda (v)
@@ -641,11 +674,12 @@
               (let lp ((kw (if kw (cdr kw) '()))
                        (names (append (if opt (reverse opt) '())
                                       (reverse req)))
-                       (vars (list-tail vars (+ (length req)
-                                                (if opt (length opt) 0)
+                       (vars (list-tail vars (+ nreq nopt
                                                 (if rest 1 0)))))
                 (pmatch kw
-                  (() (reverse (if rest (cons rest names) names)))
+                  (()
+                   ;; fixme: check that vars is empty
+                   (reverse (if rest (cons rest names) names)))
                   (((,key ,name ,var) . ,kw)
                    (if (memq var vars)
                        (lp kw (cons name names) (delq var vars))
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index c25c844..d6e8468 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -349,7 +349,7 @@
      (lambda-case ((() #f x #f (y) #f) (const 2))
                   #f))
    (program () (std-prelude 0 0 #f) (label _)
-            (program () (opt-prelude 0 0 #t 1 #f) 
+            (program () (opt-prelude 0 0 0 1 #f) 
                      (bind (x #f 0)) (label _)
                      (const 2) (call return 1)
                      (unbind))
@@ -360,7 +360,7 @@
      (lambda-case (((x) #f x1 #f (y y1) #f) (const 2))
                   #f))
    (program () (std-prelude 0 0 #f) (label _)
-            (program () (opt-prelude 1 0 #t 2 #f)
+            (program () (opt-prelude 1 0 1 2 #f)
                      (bind (x #f 0) (x1 #f 1)) (label _)
                      (const 2) (call return 1)
                      (unbind))
@@ -371,7 +371,7 @@
      (lambda-case (((x) #f x1 #f (y y1) #f) (lexical x y))
                   #f))
    (program () (std-prelude 0 0 #f) (label _)
-            (program () (opt-prelude 1 0 #t 2 #f)
+            (program () (opt-prelude 1 0 1 2 #f)
                      (bind (x #f 0) (x1 #f 1)) (label _)
                      (lexical #t #f ref 0) (call return 1)
                      (unbind))
@@ -382,7 +382,7 @@
      (lambda-case (((x) #f x1 #f (y y1) #f) (lexical x1 y1))
                   #f))
    (program () (std-prelude 0 0 #f) (label _)
-            (program () (opt-prelude 1 0 #t 2 #f)
+            (program () (opt-prelude 1 0 1 2 #f)
                      (bind (x #f 0) (x1 #f 1)) (label _)
                      (lexical #t #f ref 1) (call return 1)
                      (unbind))


hooks/post-receive
-- 
GNU Guile




reply via email to

[Prev in Thread] Current Thread [Next in Thread]