guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-133-ge


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-133-ge6c7e9e
Date: Thu, 20 May 2010 12:03:57 +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=e6c7e9ed9cb47caa9dc1ef07c872795398279d37

The branch, master has been updated
       via  e6c7e9ed9cb47caa9dc1ef07c872795398279d37 (commit)
       via  4ffa82758478927db4e2cf18379c296ef5f20c06 (commit)
       via  82c45730afe0f1ad139c305fe7e1abbe9c59853b (commit)
       via  cc63545b3e5d89cb6e3235627fcacccae741afdc (commit)
       via  131ae7b49de8c723fafaa3f867dc9804c587f375 (commit)
       via  632ddbf02b6983a93a3a8f1268772b78354a335a (commit)
       via  a310a1d12e9b44ba77bb28d5491f0bd378a90886 (commit)
      from  3e5ea35c2fa1bb3d21373723e9a51d213cf79187 (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 e6c7e9ed9cb47caa9dc1ef07c872795398279d37
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 13:59:34 2010 +0200

    pure r6rs modules
    
    * module/ice-9/r6rs-libraries.scm (library): Make pure modules.
      (import): Also process imports at expand time, for the `eval' case.

commit 4ffa82758478927db4e2cf18379c296ef5f20c06
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 13:47:49 2010 +0200

    macroexpanded pretty-printer
    
    * module/language/tree-il.scm (print-tree-il):
      (borrow-core-vtables, <tree-il>): When tree-il loads, override the
      printers for macroexpanded structures.

commit 82c45730afe0f1ad139c305fe7e1abbe9c59853b
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 13:28:25 2010 +0200

    lambda* usage in psyntax.scm
    
    * module/ice-9/psyntax.scm (macroexpand): Use lambda*.
    * module/ice-9/psyntax-pp.scm: Regenerated.

commit cc63545b3e5d89cb6e3235627fcacccae741afdc
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 13:27:49 2010 +0200

    tree-il->scheme for lambda* et al
    
    * module/language/tree-il.scm (tree-il->scheme): Fix lambda* /
      case-lambda / case-lambda* transformation.

commit 131ae7b49de8c723fafaa3f867dc9804c587f375
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 12:54:47 2010 +0200

    remove *mode* fluid from psyntax
    
    * module/ice-9/psyntax.scm: Remove the *mode* fluid. Whee :)
      (macroexpand): No need to bind aa *mode* fluid.
    
    * module/ice-9/psyntax-pp.scm: Regenerated.

commit 632ddbf02b6983a93a3a8f1268772b78354a335a
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 12:53:21 2010 +0200

    iron out inconsistency between eval and compile expansion
    
    * libguile/expand.c (expand_lambda_star_case): Harmonize with tree-il,
      expanding keywords to (aok? (kw name gensym) ...), not
      (aok? (kw . index) ...).
    
    * libguile/memoize.c (memoize): Process the (kw name gensym) format into
      (kw . index).
    
    * module/ice-9/psyntax.scm (build-lambda-case): Remove a
      compile-versus-eval special case.
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit a310a1d12e9b44ba77bb28d5491f0bd378a90886
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 12:25:52 2010 +0200

    primitive-eval takes expanded, not memoized, source
    
    * module/ice-9/eval.scm (primitive-eval):
    * libguile/eval.c (scm_c_primitive_eval): Don't expect a memoized
      expression -- expect either raw source or an *expanded* expression. We
      handle memoization ourselves.
    
    * libguile/expand.c (scm_macroexpand): Settle down into its proper name,
      "macroexpand", even as we comment that it is but a fleeting boot
      expander.
      (scm_macroexpanded_p): New predicate for expanded code.
    
    * libguile/expand.h: Add scm_macroexpanded_p.
    
    * libguile/memoize.c (scm_memoize_expression): Require that the
      expression be expanded.
      (scm_init_memoize): Don't alias memoize-expression to macroexpand.
    
    * module/ice-9/psyntax-pp.scm:
    * module/ice-9/psyntax.scm: Always produce macroexpanded expressions,
      and hand them to primitive-eval. No more calls to memoize-expression
      here.
    
    * test-suite/tests/optargs.test: Remove some tests, as unfortunately we
      have no way to invoke the boot expander after boot.

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

Summary of changes:
 libguile/eval.c                 |    9 +-
 libguile/expand.c               |   26 +-
 libguile/expand.h               |    1 +
 libguile/memoize.c              |   24 +-
 module/ice-9/eval.scm           |    7 +-
 module/ice-9/psyntax-pp.scm     |16724 +++++++++++++++++++--------------------
 module/ice-9/psyntax.scm        |   48 +-
 module/ice-9/r6rs-libraries.scm |    3 +-
 module/language/tree-il.scm     |   72 +-
 test-suite/tests/optargs.test   |   25 +-
 10 files changed, 8345 insertions(+), 8594 deletions(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index 63808c6..752ba2c 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -37,6 +37,7 @@
 #include "libguile/deprecation.h"
 #include "libguile/dynwind.h"
 #include "libguile/eq.h"
+#include "libguile/expand.h"
 #include "libguile/feature.h"
 #include "libguile/fluids.h"
 #include "libguile/goops.h"
@@ -832,13 +833,9 @@ scm_for_each (SCM proc, SCM arg1, SCM args)
 static SCM
 scm_c_primitive_eval (SCM exp)
 {
-  if (!SCM_MEMOIZED_P (exp))
+  if (!SCM_EXPANDED_P (exp))
     exp = scm_call_1 (scm_current_module_transformer (), exp);
-  if (!SCM_MEMOIZED_P (exp))
-    scm_misc_error ("primitive-eval",
-                    "expander did not return a memoized expression",
-                    scm_list_1 (exp));
-  return eval (exp, SCM_EOL);
+  return eval (scm_memoize_expression (exp), SCM_EOL);
 }
 
 static SCM var_primitive_eval;
diff --git a/libguile/expand.c b/libguile/expand.c
index 80bc48d..2dd93ec 100644
--- a/libguile/expand.c
+++ b/libguile/expand.c
@@ -693,7 +693,7 @@ static SCM
 expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
 {
   SCM req, opt, kw, allow_other_keys, rest, formals, vars, body, tmp;
-  SCM inits, kw_indices;
+  SCM inits;
   int nreq, nopt;
 
   const long length = scm_ilength (clause);
@@ -807,14 +807,12 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM 
env)
       env = scm_acons (rest, CAR (vars), env);
     }
 
-  /* Build up kw inits, env, and kw-indices alist */
+  /* Build up kw inits, env, and kw-canon list */
   if (scm_is_null (kw))
     kw = SCM_BOOL_F;
   else
     {
-      int idx = nreq + nopt + (scm_is_true (rest) ? 1 : 0);
-
-      kw_indices = SCM_EOL;
+      SCM kw_canon = SCM_EOL;
       kw = scm_reverse_x (kw, SCM_UNDEFINED);
       for (tmp = kw; scm_is_pair (tmp); tmp = scm_cdr (tmp))
         {
@@ -842,13 +840,13 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM 
env)
           else
             syntax_error (s_bad_formals, CAR (clause), SCM_UNDEFINED);
 
-          kw_indices = scm_acons (k, SCM_I_MAKINUM (idx++), kw_indices);
           inits = scm_cons (expand (init, env), inits);
           vars = scm_cons (scm_gensym (SCM_UNDEFINED), vars);
+          kw_canon = scm_cons (scm_list_3 (k, sym, CAR (vars)), kw_canon);
           env = scm_acons (sym, CAR (vars), env);
         }
-      kw_indices = scm_reverse_x (kw_indices, SCM_UNDEFINED);
-      kw = scm_cons (allow_other_keys, kw_indices);
+      kw_canon = scm_reverse_x (kw_canon, SCM_UNDEFINED);
+      kw = scm_cons (allow_other_keys, kw_canon);
     }
 
   /* We should check for no duplicates, but given that psyntax does this
@@ -1162,7 +1160,8 @@ expand_set_x (SCM expr, SCM env)
 
 
 
-SCM_DEFINE (scm_macroexpand, "macroexpand*", 1, 0, 0, 
+/* This is the boot expander. It is later replaced with psyntax's sc-expand. */
+SCM_DEFINE (scm_macroexpand, "macroexpand", 1, 0, 0, 
             (SCM exp),
            "Expand the expression @var{exp}.")
 #define FUNC_NAME s_scm_macroexpand
@@ -1171,6 +1170,15 @@ SCM_DEFINE (scm_macroexpand, "macroexpand*", 1, 0, 0,
 }
 #undef FUNC_NAME
 
+SCM_DEFINE (scm_macroexpanded_p, "macroexpanded?", 1, 0, 0, 
+            (SCM exp),
+           "Return @code{#t} if @var{exp} is an expanded expression.")
+#define FUNC_NAME s_scm_macroexpanded_p
+{
+  return scm_from_bool (SCM_EXPANDED_P (exp));
+}
+#undef FUNC_NAME
+
 
  
 
diff --git a/libguile/expand.h b/libguile/expand.h
index 32b978b..d137020 100644
--- a/libguile/expand.h
+++ b/libguile/expand.h
@@ -333,6 +333,7 @@ enum
 
 
 SCM_INTERNAL SCM scm_macroexpand (SCM exp);
+SCM_INTERNAL SCM scm_macroexpanded_p (SCM exp);
 
 SCM_INTERNAL void scm_init_expand (void);
 
diff --git a/libguile/memoize.c b/libguile/memoize.c
index bacd097..393598e 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -273,7 +273,7 @@ memoize (SCM exp, SCM env)
       {
         SCM req, rest, opt, kw, inits, vars, body, alt;
         SCM walk, minits, arity, new_env;
-        int nreq, nopt;
+        int nreq, nopt, ntotal;
 
         req = REF (exp, LAMBDA_CASE, REQ);
         rest = REF (exp, LAMBDA_CASE, REST);
@@ -286,6 +286,7 @@ memoize (SCM exp, SCM env)
 
         nreq = scm_ilength (req);
         nopt = scm_is_pair (opt) ? scm_ilength (opt) : 0;
+        ntotal = scm_ilength (vars);
 
         /* The vars are the gensyms, according to the divine plan. But we need
            to memoize the inits within their appropriate environment,
@@ -319,6 +320,22 @@ memoize (SCM exp, SCM env)
 
         minits = scm_reverse_x (minits, SCM_UNDEFINED);
 
+        if (scm_is_true (kw))
+          {
+            /* (aok? (kw name sym) ...) -> (aok? (kw . index) ...) */
+            SCM aok = CAR (kw), indices = SCM_EOL;
+            for (kw = CDR (kw); scm_is_pair (kw); kw = CDR (kw))
+              {
+                SCM k;
+                int idx;
+
+                k = CAR (CAR (kw));
+                idx = ntotal - 1 - lookup (CADDR (CAR (kw)), new_env);
+                indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
+              }
+            kw = scm_cons (aok, scm_reverse_x (indices, SCM_UNDEFINED));
+          }
+
         if (scm_is_false (alt) && scm_is_false (kw) && scm_is_false (opt))
           {
             if (scm_is_false (rest))
@@ -404,8 +421,7 @@ SCM_DEFINE (scm_memoize_expression, "memoize-expression", 
1, 0, 0,
            "Memoize the expression @var{exp}.")
 #define FUNC_NAME s_scm_memoize_expression
 {
-  if (!SCM_EXPANDED_P (exp))
-    exp = scm_macroexpand (exp);
+  SCM_ASSERT_TYPE (SCM_EXPANDED_P (exp), exp, 1, FUNC_NAME, "expanded");
   return memoize (exp, scm_current_module ());
 }
 #undef FUNC_NAME
@@ -803,8 +819,6 @@ scm_init_memoize ()
 
 #include "libguile/memoize.x"
 
-  scm_c_define ("macroexpand",
-                scm_variable_ref (scm_c_lookup ("memoize-expression")));
   list_of_guile = scm_list_1 (scm_from_locale_symbol ("guile"));
 }
 
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index 460369e..c16f08e 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -455,7 +455,8 @@
     (lambda (exp)
       "Evaluate @var{exp} in the current module."
       (eval 
-       (if (memoized? exp)
-           exp
-           ((module-transformer (current-module)) exp))
+       (memoize-expression 
+        (if (macroexpanded? exp)
+            exp
+            ((module-transformer (current-module)) exp)))
        '()))))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 8145801..76f409c 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,657 +1,638 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 12627}#
-           (lambda (#{f\ 12741}# #{first\ 12742}# . #{rest\ 12743}#)
-             (let ((#{t\ 12749}# (null? #{first\ 12742}#)))
-               (if #{t\ 12749}#
-                 #{t\ 12749}#
-                 (if (null? #{rest\ 12743}#)
-                   (letrec ((#{andmap\ 12753}#
-                              (lambda (#{first\ 12754}#)
-                                (let ((#{x\ 12757}# (car #{first\ 12754}#))
-                                      (#{first\ 12758}#
-                                        (cdr #{first\ 12754}#)))
-                                  (if (null? #{first\ 12758}#)
-                                    (#{f\ 12741}# #{x\ 12757}#)
-                                    (if (#{f\ 12741}# #{x\ 12757}#)
-                                      (#{andmap\ 12753}# #{first\ 12758}#)
+(letrec ((#{and-map*\ 20}#
+           (lambda (#{f\ 134}# #{first\ 135}# . #{rest\ 136}#)
+             (let ((#{t\ 142}# (null? #{first\ 135}#)))
+               (if #{t\ 142}#
+                 #{t\ 142}#
+                 (if (null? #{rest\ 136}#)
+                   (letrec ((#{andmap\ 146}#
+                              (lambda (#{first\ 147}#)
+                                (let ((#{x\ 150}# (car #{first\ 147}#))
+                                      (#{first\ 151}# (cdr #{first\ 147}#)))
+                                  (if (null? #{first\ 151}#)
+                                    (#{f\ 134}# #{x\ 150}#)
+                                    (if (#{f\ 134}# #{x\ 150}#)
+                                      (#{andmap\ 146}# #{first\ 151}#)
                                       #f))))))
-                     (#{andmap\ 12753}# #{first\ 12742}#))
-                   (letrec ((#{andmap\ 12764}#
-                              (lambda (#{first\ 12765}# #{rest\ 12766}#)
-                                (let ((#{x\ 12771}# (car #{first\ 12765}#))
-                                      (#{xr\ 12772}# (map car #{rest\ 12766}#))
-                                      (#{first\ 12773}# (cdr #{first\ 12765}#))
-                                      (#{rest\ 12774}#
-                                        (map cdr #{rest\ 12766}#)))
-                                  (if (null? #{first\ 12773}#)
-                                    (apply #{f\ 12741}#
-                                           (cons #{x\ 12771}# #{xr\ 12772}#))
-                                    (if (apply #{f\ 12741}#
-                                               (cons #{x\ 12771}#
-                                                     #{xr\ 12772}#))
-                                      (#{andmap\ 12764}#
-                                        #{first\ 12773}#
-                                        #{rest\ 12774}#)
+                     (#{andmap\ 146}# #{first\ 135}#))
+                   (letrec ((#{andmap\ 157}#
+                              (lambda (#{first\ 158}# #{rest\ 159}#)
+                                (let ((#{x\ 164}# (car #{first\ 158}#))
+                                      (#{xr\ 165}# (map car #{rest\ 159}#))
+                                      (#{first\ 166}# (cdr #{first\ 158}#))
+                                      (#{rest\ 167}# (map cdr #{rest\ 159}#)))
+                                  (if (null? #{first\ 166}#)
+                                    (apply #{f\ 134}#
+                                           (cons #{x\ 164}# #{xr\ 165}#))
+                                    (if (apply #{f\ 134}#
+                                               (cons #{x\ 164}# #{xr\ 165}#))
+                                      (#{andmap\ 157}#
+                                        #{first\ 166}#
+                                        #{rest\ 167}#)
                                       #f))))))
-                     (#{andmap\ 12764}#
-                       #{first\ 12742}#
-                       #{rest\ 12743}#))))))))
-  (letrec ((#{lambda-var-list\ 13031}#
-             (lambda (#{vars\ 13246}#)
-               (letrec ((#{lvl\ 13252}#
-                          (lambda (#{vars\ 13253}# #{ls\ 13254}# #{w\ 13255}#)
-                            (if (pair? #{vars\ 13253}#)
-                              (#{lvl\ 13252}#
-                                (cdr #{vars\ 13253}#)
-                                (cons (#{wrap\ 12985}#
-                                        (car #{vars\ 13253}#)
-                                        #{w\ 13255}#
+                     (#{andmap\ 157}# #{first\ 135}# #{rest\ 136}#))))))))
+  (letrec ((#{lambda-var-list\ 422}#
+             (lambda (#{vars\ 637}#)
+               (letrec ((#{lvl\ 643}#
+                          (lambda (#{vars\ 644}# #{ls\ 645}# #{w\ 646}#)
+                            (if (pair? #{vars\ 644}#)
+                              (#{lvl\ 643}#
+                                (cdr #{vars\ 644}#)
+                                (cons (#{wrap\ 376}#
+                                        (car #{vars\ 644}#)
+                                        #{w\ 646}#
                                         #f)
-                                      #{ls\ 13254}#)
-                                #{w\ 13255}#)
-                              (if (#{id?\ 12916}# #{vars\ 13253}#)
-                                (cons (#{wrap\ 12985}#
-                                        #{vars\ 13253}#
-                                        #{w\ 13255}#
+                                      #{ls\ 645}#)
+                                #{w\ 646}#)
+                              (if (#{id?\ 307}# #{vars\ 644}#)
+                                (cons (#{wrap\ 376}#
+                                        #{vars\ 644}#
+                                        #{w\ 646}#
                                         #f)
-                                      #{ls\ 13254}#)
-                                (if (null? #{vars\ 13253}#)
-                                  #{ls\ 13254}#
-                                  (if (#{syntax-object?\ 12880}#
-                                        #{vars\ 13253}#)
-                                    (#{lvl\ 13252}#
-                                      (#{syntax-object-expression\ 12882}#
-                                        #{vars\ 13253}#)
-                                      #{ls\ 13254}#
-                                      (#{join-wraps\ 12967}#
-                                        #{w\ 13255}#
-                                        (#{syntax-object-wrap\ 12884}#
-                                          #{vars\ 13253}#)))
-                                    (cons #{vars\ 13253}# #{ls\ 13254}#))))))))
-                 (#{lvl\ 13252}#
-                   #{vars\ 13246}#
+                                      #{ls\ 645}#)
+                                (if (null? #{vars\ 644}#)
+                                  #{ls\ 645}#
+                                  (if (#{syntax-object?\ 271}# #{vars\ 644}#)
+                                    (#{lvl\ 643}#
+                                      (#{syntax-object-expression\ 273}#
+                                        #{vars\ 644}#)
+                                      #{ls\ 645}#
+                                      (#{join-wraps\ 358}#
+                                        #{w\ 646}#
+                                        (#{syntax-object-wrap\ 275}#
+                                          #{vars\ 644}#)))
+                                    (cons #{vars\ 644}# #{ls\ 645}#))))))))
+                 (#{lvl\ 643}#
+                   #{vars\ 637}#
                    '()
                    '(())))))
-           (#{gen-var\ 13029}#
-             (lambda (#{id\ 13266}#)
-               (let ((#{id\ 13269}#
-                       (if (#{syntax-object?\ 12880}# #{id\ 13266}#)
-                         (#{syntax-object-expression\ 12882}#
-                           #{id\ 13266}#)
-                         #{id\ 13266}#)))
+           (#{gen-var\ 420}#
+             (lambda (#{id\ 657}#)
+               (let ((#{id\ 660}#
+                       (if (#{syntax-object?\ 271}# #{id\ 657}#)
+                         (#{syntax-object-expression\ 273}# #{id\ 657}#)
+                         #{id\ 657}#)))
                  (gensym
-                   (string-append
-                     (symbol->string #{id\ 13269}#)
-                     " ")))))
-           (#{strip\ 13027}#
-             (lambda (#{x\ 13271}# #{w\ 13272}#)
+                   (string-append (symbol->string #{id\ 660}#) " ")))))
+           (#{strip\ 418}#
+             (lambda (#{x\ 662}# #{w\ 663}#)
                (if (memq 'top
-                         (#{wrap-marks\ 12923}# #{w\ 13272}#))
-                 #{x\ 13271}#
-                 (letrec ((#{f\ 13278}#
-                            (lambda (#{x\ 13279}#)
-                              (if (#{syntax-object?\ 12880}# #{x\ 13279}#)
-                                (#{strip\ 13027}#
-                                  (#{syntax-object-expression\ 12882}#
-                                    #{x\ 13279}#)
-                                  (#{syntax-object-wrap\ 12884}# #{x\ 13279}#))
-                                (if (pair? #{x\ 13279}#)
-                                  (let ((#{a\ 13286}#
-                                          (#{f\ 13278}# (car #{x\ 13279}#)))
-                                        (#{d\ 13287}#
-                                          (#{f\ 13278}# (cdr #{x\ 13279}#))))
-                                    (if (if (eq? #{a\ 13286}#
-                                                 (car #{x\ 13279}#))
-                                          (eq? #{d\ 13287}# (cdr #{x\ 13279}#))
-                                          #f)
-                                      #{x\ 13279}#
-                                      (cons #{a\ 13286}# #{d\ 13287}#)))
-                                  (if (vector? #{x\ 13279}#)
-                                    (let ((#{old\ 13293}#
-                                            (vector->list #{x\ 13279}#)))
-                                      (let ((#{new\ 13295}#
-                                              (map #{f\ 13278}#
-                                                   #{old\ 13293}#)))
-                                        (if (#{and-map*\ 12627}#
-                                              eq?
-                                              #{old\ 13293}#
-                                              #{new\ 13295}#)
-                                          #{x\ 13279}#
-                                          (list->vector #{new\ 13295}#))))
-                                    #{x\ 13279}#))))))
-                   (#{f\ 13278}# #{x\ 13271}#)))))
-           (#{chi-lambda-case\ 13025}#
-             (lambda (#{e\ 13297}#
-                      #{r\ 13298}#
-                      #{w\ 13299}#
-                      #{s\ 13300}#
-                      #{mod\ 13301}#
-                      #{get-formals\ 13302}#
-                      #{clauses\ 13303}#)
-               (letrec ((#{expand-body\ 13318}#
-                          (lambda (#{req\ 13319}#
-                                   #{opt\ 13320}#
-                                   #{rest\ 13321}#
-                                   #{kw\ 13322}#
-                                   #{body\ 13323}#
-                                   #{vars\ 13324}#
-                                   #{r*\ 13325}#
-                                   #{w*\ 13326}#
-                                   #{inits\ 13327}#
-                                   #{meta\ 13328}#)
-                            ((lambda (#{tmp\ 13339}#)
-                               ((lambda (#{tmp\ 13340}#)
-                                  (if (if #{tmp\ 13340}#
-                                        (apply (lambda (#{docstring\ 13344}#
-                                                        #{e1\ 13345}#
-                                                        #{e2\ 13346}#)
+                         (#{wrap-marks\ 314}# #{w\ 663}#))
+                 #{x\ 662}#
+                 (letrec ((#{f\ 669}# (lambda (#{x\ 670}#)
+                                        (if (#{syntax-object?\ 271}#
+                                              #{x\ 670}#)
+                                          (#{strip\ 418}#
+                                            (#{syntax-object-expression\ 273}#
+                                              #{x\ 670}#)
+                                            (#{syntax-object-wrap\ 275}#
+                                              #{x\ 670}#))
+                                          (if (pair? #{x\ 670}#)
+                                            (let ((#{a\ 677}# (#{f\ 669}# (car 
#{x\ 670}#)))
+                                                  (#{d\ 678}# (#{f\ 669}# (cdr 
#{x\ 670}#))))
+                                              (if (if (eq? #{a\ 677}#
+                                                           (car #{x\ 670}#))
+                                                    (eq? #{d\ 678}#
+                                                         (cdr #{x\ 670}#))
+                                                    #f)
+                                                #{x\ 670}#
+                                                (cons #{a\ 677}# #{d\ 678}#)))
+                                            (if (vector? #{x\ 670}#)
+                                              (let ((#{old\ 684}#
+                                                      (vector->list
+                                                        #{x\ 670}#)))
+                                                (let ((#{new\ 686}#
+                                                        (map #{f\ 669}#
+                                                             #{old\ 684}#)))
+                                                  (if (#{and-map*\ 20}#
+                                                        eq?
+                                                        #{old\ 684}#
+                                                        #{new\ 686}#)
+                                                    #{x\ 670}#
+                                                    (list->vector
+                                                      #{new\ 686}#))))
+                                              #{x\ 670}#))))))
+                   (#{f\ 669}# #{x\ 662}#)))))
+           (#{chi-lambda-case\ 416}#
+             (lambda (#{e\ 688}#
+                      #{r\ 689}#
+                      #{w\ 690}#
+                      #{s\ 691}#
+                      #{mod\ 692}#
+                      #{get-formals\ 693}#
+                      #{clauses\ 694}#)
+               (letrec ((#{expand-body\ 709}#
+                          (lambda (#{req\ 710}#
+                                   #{opt\ 711}#
+                                   #{rest\ 712}#
+                                   #{kw\ 713}#
+                                   #{body\ 714}#
+                                   #{vars\ 715}#
+                                   #{r*\ 716}#
+                                   #{w*\ 717}#
+                                   #{inits\ 718}#
+                                   #{meta\ 719}#)
+                            ((lambda (#{tmp\ 730}#)
+                               ((lambda (#{tmp\ 731}#)
+                                  (if (if #{tmp\ 731}#
+                                        (apply (lambda (#{docstring\ 735}#
+                                                        #{e1\ 736}#
+                                                        #{e2\ 737}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 13344}#)))
-                                               #{tmp\ 13340}#)
+                                                     #{docstring\ 735}#)))
+                                               #{tmp\ 731}#)
                                         #f)
-                                    (apply (lambda (#{docstring\ 13350}#
-                                                    #{e1\ 13351}#
-                                                    #{e2\ 13352}#)
-                                             (#{expand-body\ 13318}#
-                                               #{req\ 13319}#
-                                               #{opt\ 13320}#
-                                               #{rest\ 13321}#
-                                               #{kw\ 13322}#
-                                               (cons #{e1\ 13351}#
-                                                     #{e2\ 13352}#)
-                                               #{vars\ 13324}#
-                                               #{r*\ 13325}#
-                                               #{w*\ 13326}#
-                                               #{inits\ 13327}#
+                                    (apply (lambda (#{docstring\ 741}#
+                                                    #{e1\ 742}#
+                                                    #{e2\ 743}#)
+                                             (#{expand-body\ 709}#
+                                               #{req\ 710}#
+                                               #{opt\ 711}#
+                                               #{rest\ 712}#
+                                               #{kw\ 713}#
+                                               (cons #{e1\ 742}# #{e2\ 743}#)
+                                               #{vars\ 715}#
+                                               #{r*\ 716}#
+                                               #{w*\ 717}#
+                                               #{inits\ 718}#
                                                (append
-                                                 #{meta\ 13328}#
+                                                 #{meta\ 719}#
                                                  (list (cons 'documentation
                                                              (syntax->datum
-                                                               #{docstring\ 
13350}#))))))
-                                           #{tmp\ 13340}#)
-                                    ((lambda (#{tmp\ 13355}#)
-                                       (if #{tmp\ 13355}#
-                                         (apply (lambda (#{k\ 13360}#
-                                                         #{v\ 13361}#
-                                                         #{e1\ 13362}#
-                                                         #{e2\ 13363}#)
-                                                  (#{expand-body\ 13318}#
-                                                    #{req\ 13319}#
-                                                    #{opt\ 13320}#
-                                                    #{rest\ 13321}#
-                                                    #{kw\ 13322}#
-                                                    (cons #{e1\ 13362}#
-                                                          #{e2\ 13363}#)
-                                                    #{vars\ 13324}#
-                                                    #{r*\ 13325}#
-                                                    #{w*\ 13326}#
-                                                    #{inits\ 13327}#
+                                                               #{docstring\ 
741}#))))))
+                                           #{tmp\ 731}#)
+                                    ((lambda (#{tmp\ 746}#)
+                                       (if #{tmp\ 746}#
+                                         (apply (lambda (#{k\ 751}#
+                                                         #{v\ 752}#
+                                                         #{e1\ 753}#
+                                                         #{e2\ 754}#)
+                                                  (#{expand-body\ 709}#
+                                                    #{req\ 710}#
+                                                    #{opt\ 711}#
+                                                    #{rest\ 712}#
+                                                    #{kw\ 713}#
+                                                    (cons #{e1\ 753}#
+                                                          #{e2\ 754}#)
+                                                    #{vars\ 715}#
+                                                    #{r*\ 716}#
+                                                    #{w*\ 717}#
+                                                    #{inits\ 718}#
                                                     (append
-                                                      #{meta\ 13328}#
+                                                      #{meta\ 719}#
                                                       (syntax->datum
                                                         (map cons
-                                                             #{k\ 13360}#
-                                                             #{v\ 13361}#)))))
-                                                #{tmp\ 13355}#)
-                                         ((lambda (#{tmp\ 13367}#)
-                                            (if #{tmp\ 13367}#
-                                              (apply (lambda (#{e1\ 13370}#
-                                                              #{e2\ 13371}#)
+                                                             #{k\ 751}#
+                                                             #{v\ 752}#)))))
+                                                #{tmp\ 746}#)
+                                         ((lambda (#{tmp\ 758}#)
+                                            (if #{tmp\ 758}#
+                                              (apply (lambda (#{e1\ 761}#
+                                                              #{e2\ 762}#)
                                                        (values
-                                                         #{meta\ 13328}#
-                                                         #{req\ 13319}#
-                                                         #{opt\ 13320}#
-                                                         #{rest\ 13321}#
-                                                         #{kw\ 13322}#
-                                                         #{inits\ 13327}#
-                                                         #{vars\ 13324}#
-                                                         (#{chi-body\ 13009}#
-                                                           (cons #{e1\ 13370}#
-                                                                 #{e2\ 13371}#)
-                                                           (#{source-wrap\ 
12987}#
-                                                             #{e\ 13297}#
-                                                             #{w\ 13299}#
-                                                             #{s\ 13300}#
-                                                             #{mod\ 13301}#)
-                                                           #{r*\ 13325}#
-                                                           #{w*\ 13326}#
-                                                           #{mod\ 13301}#)))
-                                                     #{tmp\ 13367}#)
+                                                         #{meta\ 719}#
+                                                         #{req\ 710}#
+                                                         #{opt\ 711}#
+                                                         #{rest\ 712}#
+                                                         #{kw\ 713}#
+                                                         #{inits\ 718}#
+                                                         #{vars\ 715}#
+                                                         (#{chi-body\ 400}#
+                                                           (cons #{e1\ 761}#
+                                                                 #{e2\ 762}#)
+                                                           (#{source-wrap\ 
378}#
+                                                             #{e\ 688}#
+                                                             #{w\ 690}#
+                                                             #{s\ 691}#
+                                                             #{mod\ 692}#)
+                                                           #{r*\ 716}#
+                                                           #{w*\ 717}#
+                                                           #{mod\ 692}#)))
+                                                     #{tmp\ 758}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to 
match any pattern"
-                                                #{tmp\ 13339}#)))
+                                                #{tmp\ 730}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 13339}#
+                                            #{tmp\ 730}#
                                             '(any . each-any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 13339}#
+                                       #{tmp\ 730}#
                                        '(#(vector #(each (any . any)))
                                          any
                                          .
                                          each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 13339}#
+                                  #{tmp\ 730}#
                                   '(any any . each-any))))
-                             #{body\ 13323}#)))
-                        (#{expand-kw\ 13316}#
-                          (lambda (#{req\ 13373}#
-                                   #{opt\ 13374}#
-                                   #{rest\ 13375}#
-                                   #{kw\ 13376}#
-                                   #{body\ 13377}#
-                                   #{vars\ 13378}#
-                                   #{r*\ 13379}#
-                                   #{w*\ 13380}#
-                                   #{aok\ 13381}#
-                                   #{out\ 13382}#
-                                   #{inits\ 13383}#)
-                            (if (pair? #{kw\ 13376}#)
-                              ((lambda (#{tmp\ 13397}#)
-                                 ((lambda (#{tmp\ 13398}#)
-                                    (if #{tmp\ 13398}#
-                                      (apply (lambda (#{k\ 13402}#
-                                                      #{id\ 13403}#
-                                                      #{i\ 13404}#)
-                                               (let ((#{v\ 13407}#
-                                                       (#{gen-var\ 13029}#
-                                                         #{id\ 13403}#)))
-                                                 (let ((#{l\ 13409}#
-                                                         (#{gen-labels\ 12934}#
-                                                           (list #{v\ 
13407}#))))
-                                                   (let ((#{r**\ 13411}#
-                                                           (#{extend-var-env\ 
12906}#
-                                                             #{l\ 13409}#
-                                                             (list #{v\ 
13407}#)
-                                                             #{r*\ 13379}#)))
-                                                     (let ((#{w**\ 13413}#
-                                                             
(#{make-binding-wrap\ 12963}#
-                                                               (list #{id\ 
13403}#)
-                                                               #{l\ 13409}#
-                                                               #{w*\ 13380}#)))
-                                                       (#{expand-kw\ 13316}#
-                                                         #{req\ 13373}#
-                                                         #{opt\ 13374}#
-                                                         #{rest\ 13375}#
-                                                         (cdr #{kw\ 13376}#)
-                                                         #{body\ 13377}#
-                                                         (cons #{v\ 13407}#
-                                                               #{vars\ 13378}#)
-                                                         #{r**\ 13411}#
-                                                         #{w**\ 13413}#
-                                                         #{aok\ 13381}#
+                             #{body\ 714}#)))
+                        (#{expand-kw\ 707}#
+                          (lambda (#{req\ 764}#
+                                   #{opt\ 765}#
+                                   #{rest\ 766}#
+                                   #{kw\ 767}#
+                                   #{body\ 768}#
+                                   #{vars\ 769}#
+                                   #{r*\ 770}#
+                                   #{w*\ 771}#
+                                   #{aok\ 772}#
+                                   #{out\ 773}#
+                                   #{inits\ 774}#)
+                            (if (pair? #{kw\ 767}#)
+                              ((lambda (#{tmp\ 788}#)
+                                 ((lambda (#{tmp\ 789}#)
+                                    (if #{tmp\ 789}#
+                                      (apply (lambda (#{k\ 793}#
+                                                      #{id\ 794}#
+                                                      #{i\ 795}#)
+                                               (let ((#{v\ 798}# (#{gen-var\ 
420}#
+                                                                   #{id\ 
794}#)))
+                                                 (let ((#{l\ 800}# 
(#{gen-labels\ 325}#
+                                                                     (list 
#{v\ 798}#))))
+                                                   (let ((#{r**\ 802}#
+                                                           (#{extend-var-env\ 
297}#
+                                                             #{l\ 800}#
+                                                             (list #{v\ 798}#)
+                                                             #{r*\ 770}#)))
+                                                     (let ((#{w**\ 804}#
+                                                             
(#{make-binding-wrap\ 354}#
+                                                               (list #{id\ 
794}#)
+                                                               #{l\ 800}#
+                                                               #{w*\ 771}#)))
+                                                       (#{expand-kw\ 707}#
+                                                         #{req\ 764}#
+                                                         #{opt\ 765}#
+                                                         #{rest\ 766}#
+                                                         (cdr #{kw\ 767}#)
+                                                         #{body\ 768}#
+                                                         (cons #{v\ 798}#
+                                                               #{vars\ 769}#)
+                                                         #{r**\ 802}#
+                                                         #{w**\ 804}#
+                                                         #{aok\ 772}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
13402}#)
+                                                                       #{k\ 
793}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
13403}#)
-                                                                     #{v\ 
13407}#)
-                                                               #{out\ 13382}#)
-                                                         (cons (#{chi\ 13001}#
-                                                                 #{i\ 13404}#
-                                                                 #{r*\ 13379}#
-                                                                 #{w*\ 13380}#
-                                                                 #{mod\ 
13301}#)
-                                                               #{inits\ 
13383}#)))))))
-                                             #{tmp\ 13398}#)
+                                                                       #{id\ 
794}#)
+                                                                     #{v\ 
798}#)
+                                                               #{out\ 773}#)
+                                                         (cons (#{chi\ 392}#
+                                                                 #{i\ 795}#
+                                                                 #{r*\ 770}#
+                                                                 #{w*\ 771}#
+                                                                 #{mod\ 692}#)
+                                                               #{inits\ 
774}#)))))))
+                                             #{tmp\ 789}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 13397}#)))
+                                        #{tmp\ 788}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 13397}#
+                                    #{tmp\ 788}#
                                     '(any any any))))
-                               (car #{kw\ 13376}#))
-                              (#{expand-body\ 13318}#
-                                #{req\ 13373}#
-                                #{opt\ 13374}#
-                                #{rest\ 13375}#
-                                (if (let ((#{t\ 13417}# #{aok\ 13381}#))
-                                      (if #{t\ 13417}#
-                                        #{t\ 13417}#
-                                        (pair? #{out\ 13382}#)))
-                                  (cons #{aok\ 13381}#
-                                        (reverse #{out\ 13382}#))
+                               (car #{kw\ 767}#))
+                              (#{expand-body\ 709}#
+                                #{req\ 764}#
+                                #{opt\ 765}#
+                                #{rest\ 766}#
+                                (if (let ((#{t\ 808}# #{aok\ 772}#))
+                                      (if #{t\ 808}#
+                                        #{t\ 808}#
+                                        (pair? #{out\ 773}#)))
+                                  (cons #{aok\ 772}# (reverse #{out\ 773}#))
                                   #f)
-                                #{body\ 13377}#
-                                (reverse #{vars\ 13378}#)
-                                #{r*\ 13379}#
-                                #{w*\ 13380}#
-                                (reverse #{inits\ 13383}#)
+                                #{body\ 768}#
+                                (reverse #{vars\ 769}#)
+                                #{r*\ 770}#
+                                #{w*\ 771}#
+                                (reverse #{inits\ 774}#)
                                 '()))))
-                        (#{expand-opt\ 13314}#
-                          (lambda (#{req\ 13419}#
-                                   #{opt\ 13420}#
-                                   #{rest\ 13421}#
-                                   #{kw\ 13422}#
-                                   #{body\ 13423}#
-                                   #{vars\ 13424}#
-                                   #{r*\ 13425}#
-                                   #{w*\ 13426}#
-                                   #{out\ 13427}#
-                                   #{inits\ 13428}#)
-                            (if (pair? #{opt\ 13420}#)
-                              ((lambda (#{tmp\ 13441}#)
-                                 ((lambda (#{tmp\ 13442}#)
-                                    (if #{tmp\ 13442}#
-                                      (apply (lambda (#{id\ 13445}#
-                                                      #{i\ 13446}#)
-                                               (let ((#{v\ 13449}#
-                                                       (#{gen-var\ 13029}#
-                                                         #{id\ 13445}#)))
-                                                 (let ((#{l\ 13451}#
-                                                         (#{gen-labels\ 12934}#
-                                                           (list #{v\ 
13449}#))))
-                                                   (let ((#{r**\ 13453}#
-                                                           (#{extend-var-env\ 
12906}#
-                                                             #{l\ 13451}#
-                                                             (list #{v\ 
13449}#)
-                                                             #{r*\ 13425}#)))
-                                                     (let ((#{w**\ 13455}#
-                                                             
(#{make-binding-wrap\ 12963}#
-                                                               (list #{id\ 
13445}#)
-                                                               #{l\ 13451}#
-                                                               #{w*\ 13426}#)))
-                                                       (#{expand-opt\ 13314}#
-                                                         #{req\ 13419}#
-                                                         (cdr #{opt\ 13420}#)
-                                                         #{rest\ 13421}#
-                                                         #{kw\ 13422}#
-                                                         #{body\ 13423}#
-                                                         (cons #{v\ 13449}#
-                                                               #{vars\ 13424}#)
-                                                         #{r**\ 13453}#
-                                                         #{w**\ 13455}#
+                        (#{expand-opt\ 705}#
+                          (lambda (#{req\ 810}#
+                                   #{opt\ 811}#
+                                   #{rest\ 812}#
+                                   #{kw\ 813}#
+                                   #{body\ 814}#
+                                   #{vars\ 815}#
+                                   #{r*\ 816}#
+                                   #{w*\ 817}#
+                                   #{out\ 818}#
+                                   #{inits\ 819}#)
+                            (if (pair? #{opt\ 811}#)
+                              ((lambda (#{tmp\ 832}#)
+                                 ((lambda (#{tmp\ 833}#)
+                                    (if #{tmp\ 833}#
+                                      (apply (lambda (#{id\ 836}# #{i\ 837}#)
+                                               (let ((#{v\ 840}# (#{gen-var\ 
420}#
+                                                                   #{id\ 
836}#)))
+                                                 (let ((#{l\ 842}# 
(#{gen-labels\ 325}#
+                                                                     (list 
#{v\ 840}#))))
+                                                   (let ((#{r**\ 844}#
+                                                           (#{extend-var-env\ 
297}#
+                                                             #{l\ 842}#
+                                                             (list #{v\ 840}#)
+                                                             #{r*\ 816}#)))
+                                                     (let ((#{w**\ 846}#
+                                                             
(#{make-binding-wrap\ 354}#
+                                                               (list #{id\ 
836}#)
+                                                               #{l\ 842}#
+                                                               #{w*\ 817}#)))
+                                                       (#{expand-opt\ 705}#
+                                                         #{req\ 810}#
+                                                         (cdr #{opt\ 811}#)
+                                                         #{rest\ 812}#
+                                                         #{kw\ 813}#
+                                                         #{body\ 814}#
+                                                         (cons #{v\ 840}#
+                                                               #{vars\ 815}#)
+                                                         #{r**\ 844}#
+                                                         #{w**\ 846}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 13445}#)
-                                                               #{out\ 13427}#)
-                                                         (cons (#{chi\ 13001}#
-                                                                 #{i\ 13446}#
-                                                                 #{r*\ 13425}#
-                                                                 #{w*\ 13426}#
-                                                                 #{mod\ 
13301}#)
-                                                               #{inits\ 
13428}#)))))))
-                                             #{tmp\ 13442}#)
+                                                                 #{id\ 836}#)
+                                                               #{out\ 818}#)
+                                                         (cons (#{chi\ 392}#
+                                                                 #{i\ 837}#
+                                                                 #{r*\ 816}#
+                                                                 #{w*\ 817}#
+                                                                 #{mod\ 692}#)
+                                                               #{inits\ 
819}#)))))))
+                                             #{tmp\ 833}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 13441}#)))
+                                        #{tmp\ 832}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 13441}#
+                                    #{tmp\ 832}#
                                     '(any any))))
-                               (car #{opt\ 13420}#))
-                              (if #{rest\ 13421}#
-                                (let ((#{v\ 13460}#
-                                        (#{gen-var\ 13029}# #{rest\ 13421}#)))
-                                  (let ((#{l\ 13462}#
-                                          (#{gen-labels\ 12934}#
-                                            (list #{v\ 13460}#))))
-                                    (let ((#{r*\ 13464}#
-                                            (#{extend-var-env\ 12906}#
-                                              #{l\ 13462}#
-                                              (list #{v\ 13460}#)
-                                              #{r*\ 13425}#)))
-                                      (let ((#{w*\ 13466}#
-                                              (#{make-binding-wrap\ 12963}#
-                                                (list #{rest\ 13421}#)
-                                                #{l\ 13462}#
-                                                #{w*\ 13426}#)))
-                                        (#{expand-kw\ 13316}#
-                                          #{req\ 13419}#
-                                          (if (pair? #{out\ 13427}#)
-                                            (reverse #{out\ 13427}#)
+                               (car #{opt\ 811}#))
+                              (if #{rest\ 812}#
+                                (let ((#{v\ 851}# (#{gen-var\ 420}#
+                                                    #{rest\ 812}#)))
+                                  (let ((#{l\ 853}# (#{gen-labels\ 325}#
+                                                      (list #{v\ 851}#))))
+                                    (let ((#{r*\ 855}#
+                                            (#{extend-var-env\ 297}#
+                                              #{l\ 853}#
+                                              (list #{v\ 851}#)
+                                              #{r*\ 816}#)))
+                                      (let ((#{w*\ 857}#
+                                              (#{make-binding-wrap\ 354}#
+                                                (list #{rest\ 812}#)
+                                                #{l\ 853}#
+                                                #{w*\ 817}#)))
+                                        (#{expand-kw\ 707}#
+                                          #{req\ 810}#
+                                          (if (pair? #{out\ 818}#)
+                                            (reverse #{out\ 818}#)
                                             #f)
-                                          (syntax->datum #{rest\ 13421}#)
-                                          (if (pair? #{kw\ 13422}#)
-                                            (cdr #{kw\ 13422}#)
-                                            #{kw\ 13422}#)
-                                          #{body\ 13423}#
-                                          (cons #{v\ 13460}# #{vars\ 13424}#)
-                                          #{r*\ 13464}#
-                                          #{w*\ 13466}#
-                                          (if (pair? #{kw\ 13422}#)
-                                            (car #{kw\ 13422}#)
+                                          (syntax->datum #{rest\ 812}#)
+                                          (if (pair? #{kw\ 813}#)
+                                            (cdr #{kw\ 813}#)
+                                            #{kw\ 813}#)
+                                          #{body\ 814}#
+                                          (cons #{v\ 851}# #{vars\ 815}#)
+                                          #{r*\ 855}#
+                                          #{w*\ 857}#
+                                          (if (pair? #{kw\ 813}#)
+                                            (car #{kw\ 813}#)
                                             #f)
                                           '()
-                                          #{inits\ 13428}#)))))
-                                (#{expand-kw\ 13316}#
-                                  #{req\ 13419}#
-                                  (if (pair? #{out\ 13427}#)
-                                    (reverse #{out\ 13427}#)
+                                          #{inits\ 819}#)))))
+                                (#{expand-kw\ 707}#
+                                  #{req\ 810}#
+                                  (if (pair? #{out\ 818}#)
+                                    (reverse #{out\ 818}#)
                                     #f)
                                   #f
-                                  (if (pair? #{kw\ 13422}#)
-                                    (cdr #{kw\ 13422}#)
-                                    #{kw\ 13422}#)
-                                  #{body\ 13423}#
-                                  #{vars\ 13424}#
-                                  #{r*\ 13425}#
-                                  #{w*\ 13426}#
-                                  (if (pair? #{kw\ 13422}#)
-                                    (car #{kw\ 13422}#)
-                                    #f)
+                                  (if (pair? #{kw\ 813}#)
+                                    (cdr #{kw\ 813}#)
+                                    #{kw\ 813}#)
+                                  #{body\ 814}#
+                                  #{vars\ 815}#
+                                  #{r*\ 816}#
+                                  #{w*\ 817}#
+                                  (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f)
                                   '()
-                                  #{inits\ 13428}#)))))
-                        (#{expand-req\ 13312}#
-                          (lambda (#{req\ 13468}#
-                                   #{opt\ 13469}#
-                                   #{rest\ 13470}#
-                                   #{kw\ 13471}#
-                                   #{body\ 13472}#)
-                            (let ((#{vars\ 13480}#
-                                    (map #{gen-var\ 13029}# #{req\ 13468}#))
-                                  (#{labels\ 13481}#
-                                    (#{gen-labels\ 12934}# #{req\ 13468}#)))
-                              (let ((#{r*\ 13484}#
-                                      (#{extend-var-env\ 12906}#
-                                        #{labels\ 13481}#
-                                        #{vars\ 13480}#
-                                        #{r\ 13298}#))
-                                    (#{w*\ 13485}#
-                                      (#{make-binding-wrap\ 12963}#
-                                        #{req\ 13468}#
-                                        #{labels\ 13481}#
-                                        #{w\ 13299}#)))
-                                (#{expand-opt\ 13314}#
-                                  (map syntax->datum #{req\ 13468}#)
-                                  #{opt\ 13469}#
-                                  #{rest\ 13470}#
-                                  #{kw\ 13471}#
-                                  #{body\ 13472}#
-                                  (reverse #{vars\ 13480}#)
-                                  #{r*\ 13484}#
-                                  #{w*\ 13485}#
+                                  #{inits\ 819}#)))))
+                        (#{expand-req\ 703}#
+                          (lambda (#{req\ 859}#
+                                   #{opt\ 860}#
+                                   #{rest\ 861}#
+                                   #{kw\ 862}#
+                                   #{body\ 863}#)
+                            (let ((#{vars\ 871}#
+                                    (map #{gen-var\ 420}# #{req\ 859}#))
+                                  (#{labels\ 872}#
+                                    (#{gen-labels\ 325}# #{req\ 859}#)))
+                              (let ((#{r*\ 875}#
+                                      (#{extend-var-env\ 297}#
+                                        #{labels\ 872}#
+                                        #{vars\ 871}#
+                                        #{r\ 689}#))
+                                    (#{w*\ 876}#
+                                      (#{make-binding-wrap\ 354}#
+                                        #{req\ 859}#
+                                        #{labels\ 872}#
+                                        #{w\ 690}#)))
+                                (#{expand-opt\ 705}#
+                                  (map syntax->datum #{req\ 859}#)
+                                  #{opt\ 860}#
+                                  #{rest\ 861}#
+                                  #{kw\ 862}#
+                                  #{body\ 863}#
+                                  (reverse #{vars\ 871}#)
+                                  #{r*\ 875}#
+                                  #{w*\ 876}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 13486}#)
-                    ((lambda (#{tmp\ 13487}#)
-                       (if #{tmp\ 13487}#
+                 ((lambda (#{tmp\ 877}#)
+                    ((lambda (#{tmp\ 878}#)
+                       (if #{tmp\ 878}#
                          (apply (lambda () (values (quote ()) #f))
-                                #{tmp\ 13487}#)
-                         ((lambda (#{tmp\ 13488}#)
-                            (if #{tmp\ 13488}#
-                              (apply (lambda (#{args\ 13495}#
-                                              #{e1\ 13496}#
-                                              #{e2\ 13497}#
-                                              #{args*\ 13498}#
-                                              #{e1*\ 13499}#
-                                              #{e2*\ 13500}#)
+                                #{tmp\ 878}#)
+                         ((lambda (#{tmp\ 879}#)
+                            (if #{tmp\ 879}#
+                              (apply (lambda (#{args\ 886}#
+                                              #{e1\ 887}#
+                                              #{e2\ 888}#
+                                              #{args*\ 889}#
+                                              #{e1*\ 890}#
+                                              #{e2*\ 891}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 13302}#
-                                             #{args\ 13495}#))
-                                         (lambda (#{req\ 13501}#
-                                                  #{opt\ 13502}#
-                                                  #{rest\ 13503}#
-                                                  #{kw\ 13504}#)
+                                           (#{get-formals\ 693}#
+                                             #{args\ 886}#))
+                                         (lambda (#{req\ 892}#
+                                                  #{opt\ 893}#
+                                                  #{rest\ 894}#
+                                                  #{kw\ 895}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{expand-req\ 13312}#
-                                                 #{req\ 13501}#
-                                                 #{opt\ 13502}#
-                                                 #{rest\ 13503}#
-                                                 #{kw\ 13504}#
-                                                 (cons #{e1\ 13496}#
-                                                       #{e2\ 13497}#)))
-                                             (lambda (#{meta\ 13510}#
-                                                      #{req\ 13511}#
-                                                      #{opt\ 13512}#
-                                                      #{rest\ 13513}#
-                                                      #{kw\ 13514}#
-                                                      #{inits\ 13515}#
-                                                      #{vars\ 13516}#
-                                                      #{body\ 13517}#)
+                                               (#{expand-req\ 703}#
+                                                 #{req\ 892}#
+                                                 #{opt\ 893}#
+                                                 #{rest\ 894}#
+                                                 #{kw\ 895}#
+                                                 (cons #{e1\ 887}#
+                                                       #{e2\ 888}#)))
+                                             (lambda (#{meta\ 901}#
+                                                      #{req\ 902}#
+                                                      #{opt\ 903}#
+                                                      #{rest\ 904}#
+                                                      #{kw\ 905}#
+                                                      #{inits\ 906}#
+                                                      #{vars\ 907}#
+                                                      #{body\ 908}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{chi-lambda-case\ 13025}#
-                                                     #{e\ 13297}#
-                                                     #{r\ 13298}#
-                                                     #{w\ 13299}#
-                                                     #{s\ 13300}#
-                                                     #{mod\ 13301}#
-                                                     #{get-formals\ 13302}#
-                                                     (map (lambda (#{tmp\ 
13528}#
-                                                                   #{tmp\ 
13527}#
-                                                                   #{tmp\ 
13526}#)
-                                                            (cons #{tmp\ 
13526}#
-                                                                  (cons #{tmp\ 
13527}#
-                                                                        #{tmp\ 
13528}#)))
-                                                          #{e2*\ 13500}#
-                                                          #{e1*\ 13499}#
-                                                          #{args*\ 13498}#)))
-                                                 (lambda (#{meta*\ 13530}#
-                                                          #{else*\ 13531}#)
+                                                   (#{chi-lambda-case\ 416}#
+                                                     #{e\ 688}#
+                                                     #{r\ 689}#
+                                                     #{w\ 690}#
+                                                     #{s\ 691}#
+                                                     #{mod\ 692}#
+                                                     #{get-formals\ 693}#
+                                                     (map (lambda (#{tmp\ 919}#
+                                                                   #{tmp\ 918}#
+                                                                   #{tmp\ 
917}#)
+                                                            (cons #{tmp\ 917}#
+                                                                  (cons #{tmp\ 
918}#
+                                                                        #{tmp\ 
919}#)))
+                                                          #{e2*\ 891}#
+                                                          #{e1*\ 890}#
+                                                          #{args*\ 889}#)))
+                                                 (lambda (#{meta*\ 921}#
+                                                          #{else*\ 922}#)
                                                    (values
                                                      (append
-                                                       #{meta\ 13510}#
-                                                       #{meta*\ 13530}#)
-                                                     (#{build-lambda-case\ 
12862}#
-                                                       #{s\ 13300}#
-                                                       #{req\ 13511}#
-                                                       #{opt\ 13512}#
-                                                       #{rest\ 13513}#
-                                                       #{kw\ 13514}#
-                                                       #{inits\ 13515}#
-                                                       #{vars\ 13516}#
-                                                       #{body\ 13517}#
-                                                       #{else*\ 
13531}#)))))))))
-                                     #{tmp\ 13488}#)
+                                                       #{meta\ 901}#
+                                                       #{meta*\ 921}#)
+                                                     (#{build-lambda-case\ 
253}#
+                                                       #{s\ 691}#
+                                                       #{req\ 902}#
+                                                       #{opt\ 903}#
+                                                       #{rest\ 904}#
+                                                       #{kw\ 905}#
+                                                       #{inits\ 906}#
+                                                       #{vars\ 907}#
+                                                       #{body\ 908}#
+                                                       #{else*\ 922}#)))))))))
+                                     #{tmp\ 879}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 13486}#)))
+                                #{tmp\ 877}#)))
                           ($sc-dispatch
-                            #{tmp\ 13486}#
+                            #{tmp\ 877}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($sc-dispatch #{tmp\ 13486}# (quote ()))))
-                  #{clauses\ 13303}#))))
-           (#{lambda*-formals\ 13023}#
-             (lambda (#{orig-args\ 13534}#)
-               (letrec ((#{check\ 13545}#
-                          (lambda (#{req\ 13546}#
-                                   #{opt\ 13547}#
-                                   #{rest\ 13548}#
-                                   #{kw\ 13549}#)
-                            (if (#{distinct-bound-ids?\ 12981}#
+                     ($sc-dispatch #{tmp\ 877}# (quote ()))))
+                  #{clauses\ 694}#))))
+           (#{lambda*-formals\ 414}#
+             (lambda (#{orig-args\ 925}#)
+               (letrec ((#{check\ 936}#
+                          (lambda (#{req\ 937}#
+                                   #{opt\ 938}#
+                                   #{rest\ 939}#
+                                   #{kw\ 940}#)
+                            (if (#{distinct-bound-ids?\ 372}#
                                   (append
-                                    #{req\ 13546}#
-                                    (map car #{opt\ 13547}#)
-                                    (if #{rest\ 13548}#
-                                      (list #{rest\ 13548}#)
+                                    #{req\ 937}#
+                                    (map car #{opt\ 938}#)
+                                    (if #{rest\ 939}#
+                                      (list #{rest\ 939}#)
                                       '())
-                                    (if (pair? #{kw\ 13549}#)
-                                      (map cadr (cdr #{kw\ 13549}#))
+                                    (if (pair? #{kw\ 940}#)
+                                      (map cadr (cdr #{kw\ 940}#))
                                       '())))
                               (values
-                                #{req\ 13546}#
-                                #{opt\ 13547}#
-                                #{rest\ 13548}#
-                                #{kw\ 13549}#)
+                                #{req\ 937}#
+                                #{opt\ 938}#
+                                #{rest\ 939}#
+                                #{kw\ 940}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 13534}#))))
-                        (#{rest\ 13543}#
-                          (lambda (#{args\ 13557}#
-                                   #{req\ 13558}#
-                                   #{opt\ 13559}#
-                                   #{kw\ 13560}#)
-                            ((lambda (#{tmp\ 13565}#)
-                               ((lambda (#{tmp\ 13566}#)
-                                  (if (if #{tmp\ 13566}#
-                                        (apply (lambda (#{r\ 13568}#)
-                                                 (#{id?\ 12916}# #{r\ 13568}#))
-                                               #{tmp\ 13566}#)
+                                #{orig-args\ 925}#))))
+                        (#{rest\ 934}#
+                          (lambda (#{args\ 948}#
+                                   #{req\ 949}#
+                                   #{opt\ 950}#
+                                   #{kw\ 951}#)
+                            ((lambda (#{tmp\ 956}#)
+                               ((lambda (#{tmp\ 957}#)
+                                  (if (if #{tmp\ 957}#
+                                        (apply (lambda (#{r\ 959}#)
+                                                 (#{id?\ 307}# #{r\ 959}#))
+                                               #{tmp\ 957}#)
                                         #f)
-                                    (apply (lambda (#{r\ 13570}#)
-                                             (#{check\ 13545}#
-                                               #{req\ 13558}#
-                                               #{opt\ 13559}#
-                                               #{r\ 13570}#
-                                               #{kw\ 13560}#))
-                                           #{tmp\ 13566}#)
-                                    ((lambda (#{else\ 13572}#)
+                                    (apply (lambda (#{r\ 961}#)
+                                             (#{check\ 936}#
+                                               #{req\ 949}#
+                                               #{opt\ 950}#
+                                               #{r\ 961}#
+                                               #{kw\ 951}#))
+                                           #{tmp\ 957}#)
+                                    ((lambda (#{else\ 963}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{orig-args\ 13534}#
-                                         #{args\ 13557}#))
-                                     #{tmp\ 13565}#)))
-                                (list #{tmp\ 13565}#)))
-                             #{args\ 13557}#)))
-                        (#{key\ 13541}#
-                          (lambda (#{args\ 13573}#
-                                   #{req\ 13574}#
-                                   #{opt\ 13575}#
-                                   #{rkey\ 13576}#)
-                            ((lambda (#{tmp\ 13581}#)
-                               ((lambda (#{tmp\ 13582}#)
-                                  (if #{tmp\ 13582}#
+                                         #{orig-args\ 925}#
+                                         #{args\ 948}#))
+                                     #{tmp\ 956}#)))
+                                (list #{tmp\ 956}#)))
+                             #{args\ 948}#)))
+                        (#{key\ 932}#
+                          (lambda (#{args\ 964}#
+                                   #{req\ 965}#
+                                   #{opt\ 966}#
+                                   #{rkey\ 967}#)
+                            ((lambda (#{tmp\ 972}#)
+                               ((lambda (#{tmp\ 973}#)
+                                  (if #{tmp\ 973}#
                                     (apply (lambda ()
-                                             (#{check\ 13545}#
-                                               #{req\ 13574}#
-                                               #{opt\ 13575}#
+                                             (#{check\ 936}#
+                                               #{req\ 965}#
+                                               #{opt\ 966}#
                                                #f
                                                (cons #f
-                                                     (reverse
-                                                       #{rkey\ 13576}#))))
-                                           #{tmp\ 13582}#)
-                                    ((lambda (#{tmp\ 13583}#)
-                                       (if (if #{tmp\ 13583}#
-                                             (apply (lambda (#{a\ 13586}#
-                                                             #{b\ 13587}#)
-                                                      (#{id?\ 12916}#
-                                                        #{a\ 13586}#))
-                                                    #{tmp\ 13583}#)
+                                                     (reverse #{rkey\ 967}#))))
+                                           #{tmp\ 973}#)
+                                    ((lambda (#{tmp\ 974}#)
+                                       (if (if #{tmp\ 974}#
+                                             (apply (lambda (#{a\ 977}#
+                                                             #{b\ 978}#)
+                                                      (#{id?\ 307}#
+                                                        #{a\ 977}#))
+                                                    #{tmp\ 974}#)
                                              #f)
-                                         (apply (lambda (#{a\ 13590}#
-                                                         #{b\ 13591}#)
-                                                  ((lambda (#{tmp\ 13593}#)
-                                                     ((lambda (#{k\ 13595}#)
-                                                        (#{key\ 13541}#
-                                                          #{b\ 13591}#
-                                                          #{req\ 13574}#
-                                                          #{opt\ 13575}#
-                                                          (cons (cons #{k\ 
13595}#
-                                                                      (cons 
#{a\ 13590}#
+                                         (apply (lambda (#{a\ 981}# #{b\ 982}#)
+                                                  ((lambda (#{tmp\ 984}#)
+                                                     ((lambda (#{k\ 986}#)
+                                                        (#{key\ 932}#
+                                                          #{b\ 982}#
+                                                          #{req\ 965}#
+                                                          #{opt\ 966}#
+                                                          (cons (cons #{k\ 
986}#
+                                                                      (cons 
#{a\ 981}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i13594"))
+                                                                               
    #("i985"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i13588"
-                                                                               
      "i13589"))
+                                                                               
    #("i979"
+                                                                               
      "i980"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -665,10 +646,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i13577"
-                                                                               
      "i13578"
-                                                                               
      "i13579"
-                                                                               
      "i13580"))
+                                                                               
    #("i968"
+                                                                               
      "i969"
+                                                                               
      "i970"
+                                                                               
      "i971"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -679,15 +660,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i13544"
-                                                                               
     "i13542"
-                                                                               
     "i13540"
-                                                                               
     "i13538"
-                                                                               
     "i13536"))
+                                                                               
    ("i935"
+                                                                               
     "i933"
+                                                                               
     "i931"
+                                                                               
     "i929"
+                                                                               
     "i927"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i13535"))
+                                                                               
    #("i926"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -822,8 +803,7 @@
                                                                                
      make-lexical-ref
                                                                                
      make-primitive-ref
                                                                                
      make-const
-                                                                               
      make-void
-                                                                               
      *mode*)
+                                                                               
      make-void)
                                                                                
    ((top)
                                                                                
     (top)
                                                                                
     (top)
@@ -957,143 +937,141 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top)
-                                                                               
     (top)
                                                                                
     (top))
-                                                                               
    ("i13030"
-                                                                               
     "i13028"
-                                                                               
     "i13026"
-                                                                               
     "i13024"
-                                                                               
     "i13022"
-                                                                               
     "i13020"
-                                                                               
     "i13018"
-                                                                               
     "i13016"
-                                                                               
     "i13014"
-                                                                               
     "i13012"
-                                                                               
     "i13010"
-                                                                               
     "i13008"
-                                                                               
     "i13006"
-                                                                               
     "i13004"
-                                                                               
     "i13002"
-                                                                               
     "i13000"
-                                                                               
     "i12998"
-                                                                               
     "i12996"
-                                                                               
     "i12994"
-                                                                               
     "i12992"
-                                                                               
     "i12990"
-                                                                               
     "i12988"
-                                                                               
     "i12986"
-                                                                               
     "i12984"
-                                                                               
     "i12982"
-                                                                               
     "i12980"
-                                                                               
     "i12978"
-                                                                               
     "i12976"
-                                                                               
     "i12974"
-                                                                               
     "i12972"
-                                                                               
     "i12970"
-                                                                               
     "i12968"
-                                                                               
     "i12966"
-                                                                               
     "i12964"
-                                                                               
     "i12962"
-                                                                               
     "i12960"
-                                                                               
     "i12959"
-                                                                               
     "i12958"
-                                                                               
     "i12956"
-                                                                               
     "i12955"
-                                                                               
     "i12954"
-                                                                               
     "i12953"
-                                                                               
     "i12952"
-                                                                               
     "i12950"
-                                                                               
     "i12948"
-                                                                               
     "i12946"
-                                                                               
     "i12944"
-                                                                               
     "i12942"
-                                                                               
     "i12940"
-                                                                               
     "i12938"
-                                                                               
     "i12936"
-                                                                               
     "i12933"
-                                                                               
     "i12931"
-                                                                               
     "i12930"
-                                                                               
     "i12929"
-                                                                               
     "i12928"
-                                                                               
     "i12927"
-                                                                               
     "i12926"
-                                                                               
     "i12924"
-                                                                               
     "i12922"
-                                                                               
     "i12920"
-                                                                               
     "i12918"
-                                                                               
     "i12917"
-                                                                               
     "i12915"
-                                                                               
     "i12913"
-                                                                               
     "i12911"
-                                                                               
     "i12909"
-                                                                               
     "i12907"
-                                                                               
     "i12905"
-                                                                               
     "i12903"
-                                                                               
     "i12902"
-                                                                               
     "i12900"
-                                                                               
     "i12898"
-                                                                               
     "i12897"
-                                                                               
     "i12896"
-                                                                               
     "i12894"
-                                                                               
     "i12893"
-                                                                               
     "i12891"
-                                                                               
     "i12889"
-                                                                               
     "i12887"
-                                                                               
     "i12885"
-                                                                               
     "i12883"
-                                                                               
     "i12881"
-                                                                               
     "i12879"
-                                                                               
     "i12877"
-                                                                               
     "i12875"
-                                                                               
     "i12873"
-                                                                               
     "i12871"
-                                                                               
     "i12869"
-                                                                               
     "i12867"
-                                                                               
     "i12865"
-                                                                               
     "i12863"
-                                                                               
     "i12861"
-                                                                               
     "i12859"
-                                                                               
     "i12857"
-                                                                               
     "i12855"
-                                                                               
     "i12853"
-                                                                               
     "i12851"
-                                                                               
     "i12849"
-                                                                               
     "i12847"
-                                                                               
     "i12845"
-                                                                               
     "i12843"
-                                                                               
     "i12841"
-                                                                               
     "i12839"
-                                                                               
     "i12837"
-                                                                               
     "i12835"
-                                                                               
     "i12833"
-                                                                               
     "i12831"
-                                                                               
     "i12829"
-                                                                               
     "i12828"
-                                                                               
     "i12826"
-                                                                               
     "i12824"
-                                                                               
     "i12822"
-                                                                               
     "i12820"
-                                                                               
     "i12818"
-                                                                               
     "i12816"
-                                                                               
     "i12814"
-                                                                               
     "i12812"
-                                                                               
     "i12810"
-                                                                               
     "i12808"
-                                                                               
     "i12806"
-                                                                               
     "i12804"
-                                                                               
     "i12802"
-                                                                               
     "i12800"
-                                                                               
     "i12798"
-                                                                               
     "i12796"
-                                                                               
     "i12794"
-                                                                               
     "i12792"
-                                                                               
     "i12790"
-                                                                               
     "i12788"
-                                                                               
     "i12786"
-                                                                               
     "i12784"
-                                                                               
     "i12782"
-                                                                               
     "i12780"
-                                                                               
     "i12777"))
+                                                                               
    ("i421"
+                                                                               
     "i419"
+                                                                               
     "i417"
+                                                                               
     "i415"
+                                                                               
     "i413"
+                                                                               
     "i411"
+                                                                               
     "i409"
+                                                                               
     "i407"
+                                                                               
     "i405"
+                                                                               
     "i403"
+                                                                               
     "i401"
+                                                                               
     "i399"
+                                                                               
     "i397"
+                                                                               
     "i395"
+                                                                               
     "i393"
+                                                                               
     "i391"
+                                                                               
     "i389"
+                                                                               
     "i387"
+                                                                               
     "i385"
+                                                                               
     "i383"
+                                                                               
     "i381"
+                                                                               
     "i379"
+                                                                               
     "i377"
+                                                                               
     "i375"
+                                                                               
     "i373"
+                                                                               
     "i371"
+                                                                               
     "i369"
+                                                                               
     "i367"
+                                                                               
     "i365"
+                                                                               
     "i363"
+                                                                               
     "i361"
+                                                                               
     "i359"
+                                                                               
     "i357"
+                                                                               
     "i355"
+                                                                               
     "i353"
+                                                                               
     "i351"
+                                                                               
     "i350"
+                                                                               
     "i349"
+                                                                               
     "i347"
+                                                                               
     "i346"
+                                                                               
     "i345"
+                                                                               
     "i344"
+                                                                               
     "i343"
+                                                                               
     "i341"
+                                                                               
     "i339"
+                                                                               
     "i337"
+                                                                               
     "i335"
+                                                                               
     "i333"
+                                                                               
     "i331"
+                                                                               
     "i329"
+                                                                               
     "i327"
+                                                                               
     "i324"
+                                                                               
     "i322"
+                                                                               
     "i321"
+                                                                               
     "i320"
+                                                                               
     "i319"
+                                                                               
     "i318"
+                                                                               
     "i317"
+                                                                               
     "i315"
+                                                                               
     "i313"
+                                                                               
     "i311"
+                                                                               
     "i309"
+                                                                               
     "i308"
+                                                                               
     "i306"
+                                                                               
     "i304"
+                                                                               
     "i302"
+                                                                               
     "i300"
+                                                                               
     "i298"
+                                                                               
     "i296"
+                                                                               
     "i294"
+                                                                               
     "i293"
+                                                                               
     "i291"
+                                                                               
     "i289"
+                                                                               
     "i288"
+                                                                               
     "i287"
+                                                                               
     "i285"
+                                                                               
     "i284"
+                                                                               
     "i282"
+                                                                               
     "i280"
+                                                                               
     "i278"
+                                                                               
     "i276"
+                                                                               
     "i274"
+                                                                               
     "i272"
+                                                                               
     "i270"
+                                                                               
     "i268"
+                                                                               
     "i266"
+                                                                               
     "i264"
+                                                                               
     "i262"
+                                                                               
     "i260"
+                                                                               
     "i258"
+                                                                               
     "i256"
+                                                                               
     "i254"
+                                                                               
     "i252"
+                                                                               
     "i250"
+                                                                               
     "i248"
+                                                                               
     "i246"
+                                                                               
     "i244"
+                                                                               
     "i242"
+                                                                               
     "i240"
+                                                                               
     "i238"
+                                                                               
     "i236"
+                                                                               
     "i234"
+                                                                               
     "i232"
+                                                                               
     "i230"
+                                                                               
     "i228"
+                                                                               
     "i226"
+                                                                               
     "i224"
+                                                                               
     "i222"
+                                                                               
     "i220"
+                                                                               
     "i219"
+                                                                               
     "i217"
+                                                                               
     "i215"
+                                                                               
     "i213"
+                                                                               
     "i211"
+                                                                               
     "i209"
+                                                                               
     "i207"
+                                                                               
     "i205"
+                                                                               
     "i203"
+                                                                               
     "i201"
+                                                                               
     "i199"
+                                                                               
     "i197"
+                                                                               
     "i195"
+                                                                               
     "i193"
+                                                                               
     "i191"
+                                                                               
     "i189"
+                                                                               
     "i187"
+                                                                               
     "i185"
+                                                                               
     "i183"
+                                                                               
     "i181"
+                                                                               
     "i179"
+                                                                               
     "i177"
+                                                                               
     "i175"
+                                                                               
     "i173"
+                                                                               
     "i171"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      define-expansion-constructors
@@ -1101,230 +1079,228 @@
                                                                                
    ((top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i12629"
-                                                                               
     "i12628"
-                                                                               
     "i12626")))
+                                                                               
    ("i22"
+                                                                               
     "i21"
+                                                                               
     "i19")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
13576}#)))
-                                                      #{tmp\ 13593}#))
+                                                                #{rkey\ 
967}#)))
+                                                      #{tmp\ 984}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{a\ 13590}#))))
-                                                #{tmp\ 13583}#)
-                                         ((lambda (#{tmp\ 13596}#)
-                                            (if (if #{tmp\ 13596}#
-                                                  (apply (lambda (#{a\ 13600}#
-                                                                  #{init\ 
13601}#
-                                                                  #{b\ 13602}#)
-                                                           (#{id?\ 12916}#
-                                                             #{a\ 13600}#))
-                                                         #{tmp\ 13596}#)
+                                                       #{a\ 981}#))))
+                                                #{tmp\ 974}#)
+                                         ((lambda (#{tmp\ 987}#)
+                                            (if (if #{tmp\ 987}#
+                                                  (apply (lambda (#{a\ 991}#
+                                                                  #{init\ 992}#
+                                                                  #{b\ 993}#)
+                                                           (#{id?\ 307}#
+                                                             #{a\ 991}#))
+                                                         #{tmp\ 987}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 13606}#
-                                                              #{init\ 13607}#
-                                                              #{b\ 13608}#)
-                                                       ((lambda (#{tmp\ 
13610}#)
-                                                          ((lambda (#{k\ 
13612}#)
-                                                             (#{key\ 13541}#
-                                                               #{b\ 13608}#
-                                                               #{req\ 13574}#
-                                                               #{opt\ 13575}#
-                                                               (cons (list 
#{k\ 13612}#
-                                                                           
#{a\ 13606}#
-                                                                           
#{init\ 13607}#)
-                                                                     #{rkey\ 
13576}#)))
-                                                           #{tmp\ 13610}#))
+                                              (apply (lambda (#{a\ 997}#
+                                                              #{init\ 998}#
+                                                              #{b\ 999}#)
+                                                       ((lambda (#{tmp\ 1001}#)
+                                                          ((lambda (#{k\ 
1003}#)
+                                                             (#{key\ 932}#
+                                                               #{b\ 999}#
+                                                               #{req\ 965}#
+                                                               #{opt\ 966}#
+                                                               (cons (list 
#{k\ 1003}#
+                                                                           
#{a\ 997}#
+                                                                           
#{init\ 998}#)
+                                                                     #{rkey\ 
967}#)))
+                                                           #{tmp\ 1001}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{a\ 13606}#))))
-                                                     #{tmp\ 13596}#)
-                                              ((lambda (#{tmp\ 13613}#)
-                                                 (if (if #{tmp\ 13613}#
-                                                       (apply (lambda (#{a\ 
13618}#
-                                                                       #{init\ 
13619}#
-                                                                       #{k\ 
13620}#
-                                                                       #{b\ 
13621}#)
-                                                                (if (#{id?\ 
12916}#
-                                                                      #{a\ 
13618}#)
+                                                            #{a\ 997}#))))
+                                                     #{tmp\ 987}#)
+                                              ((lambda (#{tmp\ 1004}#)
+                                                 (if (if #{tmp\ 1004}#
+                                                       (apply (lambda (#{a\ 
1009}#
+                                                                       #{init\ 
1010}#
+                                                                       #{k\ 
1011}#
+                                                                       #{b\ 
1012}#)
+                                                                (if (#{id?\ 
307}#
+                                                                      #{a\ 
1009}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
13620}#))
+                                                                      #{k\ 
1011}#))
                                                                   #f))
-                                                              #{tmp\ 13613}#)
+                                                              #{tmp\ 1004}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 13628}#
-                                                                   #{init\ 
13629}#
-                                                                   #{k\ 13630}#
-                                                                   #{b\ 
13631}#)
-                                                            (#{key\ 13541}#
-                                                              #{b\ 13631}#
-                                                              #{req\ 13574}#
-                                                              #{opt\ 13575}#
-                                                              (cons (list #{k\ 
13630}#
-                                                                          #{a\ 
13628}#
-                                                                          
#{init\ 13629}#)
-                                                                    #{rkey\ 
13576}#)))
-                                                          #{tmp\ 13613}#)
-                                                   ((lambda (#{tmp\ 13632}#)
-                                                      (if (if #{tmp\ 13632}#
-                                                            (apply (lambda 
(#{aok\ 13634}#)
+                                                   (apply (lambda (#{a\ 1019}#
+                                                                   #{init\ 
1020}#
+                                                                   #{k\ 1021}#
+                                                                   #{b\ 1022}#)
+                                                            (#{key\ 932}#
+                                                              #{b\ 1022}#
+                                                              #{req\ 965}#
+                                                              #{opt\ 966}#
+                                                              (cons (list #{k\ 
1021}#
+                                                                          #{a\ 
1019}#
+                                                                          
#{init\ 1020}#)
+                                                                    #{rkey\ 
967}#)))
+                                                          #{tmp\ 1004}#)
+                                                   ((lambda (#{tmp\ 1023}#)
+                                                      (if (if #{tmp\ 1023}#
+                                                            (apply (lambda 
(#{aok\ 1025}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 13634}#)
+                                                                            
#{aok\ 1025}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
13632}#)
+                                                                   #{tmp\ 
1023}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
13636}#)
-                                                                 (#{check\ 
13545}#
-                                                                   #{req\ 
13574}#
-                                                                   #{opt\ 
13575}#
+                                                        (apply (lambda (#{aok\ 
1027}#)
+                                                                 (#{check\ 
936}#
+                                                                   #{req\ 965}#
+                                                                   #{opt\ 966}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 13576}#))))
-                                                               #{tmp\ 13632}#)
-                                                        ((lambda (#{tmp\ 
13637}#)
-                                                           (if (if #{tmp\ 
13637}#
-                                                                 (apply 
(lambda (#{aok\ 13641}#
-                                                                               
  #{a\ 13642}#
-                                                                               
  #{b\ 13643}#)
+                                                                           
#{rkey\ 967}#))))
+                                                               #{tmp\ 1023}#)
+                                                        ((lambda (#{tmp\ 
1028}#)
+                                                           (if (if #{tmp\ 
1028}#
+                                                                 (apply 
(lambda (#{aok\ 1032}#
+                                                                               
  #{a\ 1033}#
+                                                                               
  #{b\ 1034}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 13641}#)
+                                                                               
      #{aok\ 1032}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 13642}#)
+                                                                               
    #{a\ 1033}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
13637}#)
+                                                                        #{tmp\ 
1028}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 13649}#
-                                                                             
#{a\ 13650}#
-                                                                             
#{b\ 13651}#)
-                                                                      (#{rest\ 
13543}#
-                                                                        #{b\ 
13651}#
-                                                                        #{req\ 
13574}#
-                                                                        #{opt\ 
13575}#
+                                                             (apply (lambda 
(#{aok\ 1040}#
+                                                                             
#{a\ 1041}#
+                                                                             
#{b\ 1042}#)
+                                                                      (#{rest\ 
934}#
+                                                                        #{b\ 
1042}#
+                                                                        #{req\ 
965}#
+                                                                        #{opt\ 
966}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 13576}#))))
-                                                                    #{tmp\ 
13637}#)
-                                                             ((lambda (#{tmp\ 
13652}#)
-                                                                (if (if #{tmp\ 
13652}#
-                                                                      (apply 
(lambda (#{aok\ 13655}#
-                                                                               
       #{r\ 13656}#)
+                                                                               
 #{rkey\ 967}#))))
+                                                                    #{tmp\ 
1028}#)
+                                                             ((lambda (#{tmp\ 
1043}#)
+                                                                (if (if #{tmp\ 
1043}#
+                                                                      (apply 
(lambda (#{aok\ 1046}#
+                                                                               
       #{r\ 1047}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 13655}#)
+                                                                               
           #{aok\ 1046}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 12916}#
-                                                                               
    #{r\ 13656}#)
+                                                                               
  (#{id?\ 307}#
+                                                                               
    #{r\ 1047}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 13652}#)
+                                                                             
#{tmp\ 1043}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 13661}#
-                                                                               
   #{r\ 13662}#)
-                                                                           
(#{rest\ 13543}#
-                                                                             
#{r\ 13662}#
-                                                                             
#{req\ 13574}#
-                                                                             
#{opt\ 13575}#
+                                                                  (apply 
(lambda (#{aok\ 1052}#
+                                                                               
   #{r\ 1053}#)
+                                                                           
(#{rest\ 934}#
+                                                                             
#{r\ 1053}#
+                                                                             
#{req\ 965}#
+                                                                             
#{opt\ 966}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 13576}#))))
-                                                                         
#{tmp\ 13652}#)
-                                                                  ((lambda 
(#{tmp\ 13663}#)
-                                                                     (if (if 
#{tmp\ 13663}#
-                                                                           
(apply (lambda (#{a\ 13666}#
-                                                                               
            #{b\ 13667}#)
+                                                                               
      #{rkey\ 967}#))))
+                                                                         
#{tmp\ 1043}#)
+                                                                  ((lambda 
(#{tmp\ 1054}#)
+                                                                     (if (if 
#{tmp\ 1054}#
+                                                                           
(apply (lambda (#{a\ 1057}#
+                                                                               
            #{b\ 1058}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 13666}#)
+                                                                               
            #{a\ 1057}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 13663}#)
+                                                                               
   #{tmp\ 1054}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 13670}#
-                                                                               
        #{b\ 13671}#)
-                                                                               
 (#{rest\ 13543}#
-                                                                               
   #{b\ 13671}#
-                                                                               
   #{req\ 13574}#
-                                                                               
   #{opt\ 13575}#
+                                                                       (apply 
(lambda (#{a\ 1061}#
+                                                                               
        #{b\ 1062}#)
+                                                                               
 (#{rest\ 934}#
+                                                                               
   #{b\ 1062}#
+                                                                               
   #{req\ 965}#
+                                                                               
   #{opt\ 966}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 13576}#))))
-                                                                              
#{tmp\ 13663}#)
-                                                                       
((lambda (#{tmp\ 13672}#)
-                                                                          (if 
(if #{tmp\ 13672}#
-                                                                               
 (apply (lambda (#{r\ 13674}#)
-                                                                               
          (#{id?\ 12916}#
-                                                                               
            #{r\ 13674}#))
-                                                                               
        #{tmp\ 13672}#)
+                                                                               
           #{rkey\ 967}#))))
+                                                                              
#{tmp\ 1054}#)
+                                                                       
((lambda (#{tmp\ 1063}#)
+                                                                          (if 
(if #{tmp\ 1063}#
+                                                                               
 (apply (lambda (#{r\ 1065}#)
+                                                                               
          (#{id?\ 307}#
+                                                                               
            #{r\ 1065}#))
+                                                                               
        #{tmp\ 1063}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 13676}#)
-                                                                               
      (#{rest\ 13543}#
-                                                                               
        #{r\ 13676}#
-                                                                               
        #{req\ 13574}#
-                                                                               
        #{opt\ 13575}#
+                                                                            
(apply (lambda (#{r\ 1067}#)
+                                                                               
      (#{rest\ 934}#
+                                                                               
        #{r\ 1067}#
+                                                                               
        #{req\ 965}#
+                                                                               
        #{opt\ 966}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 13576}#))))
-                                                                               
    #{tmp\ 13672}#)
-                                                                            
((lambda (#{else\ 13678}#)
+                                                                               
                #{rkey\ 967}#))))
+                                                                               
    #{tmp\ 1063}#)
+                                                                            
((lambda (#{else\ 1069}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 13534}#
-                                                                               
  #{args\ 13573}#))
-                                                                             
#{tmp\ 13581}#)))
-                                                                        (list 
#{tmp\ 13581}#))))
+                                                                               
  #{orig-args\ 925}#
+                                                                               
  #{args\ 964}#))
+                                                                             
#{tmp\ 972}#)))
+                                                                        (list 
#{tmp\ 972}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
13581}#
+                                                                     #{tmp\ 
972}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 13581}#
+                                                                #{tmp\ 972}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 13581}#
+                                                           #{tmp\ 972}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 13581}#
+                                                      #{tmp\ 972}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 13581}#
+                                                 #{tmp\ 972}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 13581}#
+                                            #{tmp\ 972}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 13581}#
+                                       #{tmp\ 972}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 13581}# (quote ()))))
-                             #{args\ 13573}#)))
-                        (#{opt\ 13539}#
-                          (lambda (#{args\ 13679}#
-                                   #{req\ 13680}#
-                                   #{ropt\ 13681}#)
-                            ((lambda (#{tmp\ 13685}#)
-                               ((lambda (#{tmp\ 13686}#)
-                                  (if #{tmp\ 13686}#
+                                ($sc-dispatch #{tmp\ 972}# (quote ()))))
+                             #{args\ 964}#)))
+                        (#{opt\ 930}#
+                          (lambda (#{args\ 1070}# #{req\ 1071}# #{ropt\ 1072}#)
+                            ((lambda (#{tmp\ 1076}#)
+                               ((lambda (#{tmp\ 1077}#)
+                                  (if #{tmp\ 1077}#
                                     (apply (lambda ()
-                                             (#{check\ 13545}#
-                                               #{req\ 13680}#
-                                               (reverse #{ropt\ 13681}#)
+                                             (#{check\ 936}#
+                                               #{req\ 1071}#
+                                               (reverse #{ropt\ 1072}#)
                                                #f
                                                '()))
-                                           #{tmp\ 13686}#)
-                                    ((lambda (#{tmp\ 13687}#)
-                                       (if (if #{tmp\ 13687}#
-                                             (apply (lambda (#{a\ 13690}#
-                                                             #{b\ 13691}#)
-                                                      (#{id?\ 12916}#
-                                                        #{a\ 13690}#))
-                                                    #{tmp\ 13687}#)
+                                           #{tmp\ 1077}#)
+                                    ((lambda (#{tmp\ 1078}#)
+                                       (if (if #{tmp\ 1078}#
+                                             (apply (lambda (#{a\ 1081}#
+                                                             #{b\ 1082}#)
+                                                      (#{id?\ 307}#
+                                                        #{a\ 1081}#))
+                                                    #{tmp\ 1078}#)
                                              #f)
-                                         (apply (lambda (#{a\ 13694}#
-                                                         #{b\ 13695}#)
-                                                  (#{opt\ 13539}#
-                                                    #{b\ 13695}#
-                                                    #{req\ 13680}#
-                                                    (cons (cons #{a\ 13694}#
+                                         (apply (lambda (#{a\ 1085}#
+                                                         #{b\ 1086}#)
+                                                  (#{opt\ 930}#
+                                                    #{b\ 1086}#
+                                                    #{req\ 1071}#
+                                                    (cons (cons #{a\ 1085}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1332,8 +1308,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       
#("i13692"
-                                                                         
"i13693"))
+                                                                       
#("i1083"
+                                                                         
"i1084"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1345,9 +1321,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       
#("i13682"
-                                                                         
"i13683"
-                                                                         
"i13684"))
+                                                                       
#("i1073"
+                                                                         
"i1074"
+                                                                         
"i1075"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1358,15 +1334,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       
("i13544"
-                                                                        
"i13542"
-                                                                        
"i13540"
-                                                                        
"i13538"
-                                                                        
"i13536"))
+                                                                       ("i935"
+                                                                        "i933"
+                                                                        "i931"
+                                                                        "i929"
+                                                                        
"i927"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       
#("i13535"))
+                                                                       
#("i926"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1501,8 +1477,7 @@
                                                                          
make-lexical-ref
                                                                          
make-primitive-ref
                                                                          
make-const
-                                                                         
make-void
-                                                                         
*mode*)
+                                                                         
make-void)
                                                                        ((top)
                                                                         (top)
                                                                         (top)
@@ -1636,143 +1611,141 @@
                                                                         (top)
                                                                         (top)
                                                                         (top)
-                                                                        (top)
                                                                         (top))
-                                                                       
("i13030"
-                                                                        
"i13028"
-                                                                        
"i13026"
-                                                                        
"i13024"
-                                                                        
"i13022"
-                                                                        
"i13020"
-                                                                        
"i13018"
-                                                                        
"i13016"
-                                                                        
"i13014"
-                                                                        
"i13012"
-                                                                        
"i13010"
-                                                                        
"i13008"
-                                                                        
"i13006"
-                                                                        
"i13004"
-                                                                        
"i13002"
-                                                                        
"i13000"
-                                                                        
"i12998"
-                                                                        
"i12996"
-                                                                        
"i12994"
-                                                                        
"i12992"
-                                                                        
"i12990"
-                                                                        
"i12988"
-                                                                        
"i12986"
-                                                                        
"i12984"
-                                                                        
"i12982"
-                                                                        
"i12980"
-                                                                        
"i12978"
-                                                                        
"i12976"
-                                                                        
"i12974"
-                                                                        
"i12972"
-                                                                        
"i12970"
-                                                                        
"i12968"
-                                                                        
"i12966"
-                                                                        
"i12964"
-                                                                        
"i12962"
-                                                                        
"i12960"
-                                                                        
"i12959"
-                                                                        
"i12958"
-                                                                        
"i12956"
-                                                                        
"i12955"
-                                                                        
"i12954"
-                                                                        
"i12953"
-                                                                        
"i12952"
-                                                                        
"i12950"
-                                                                        
"i12948"
-                                                                        
"i12946"
-                                                                        
"i12944"
-                                                                        
"i12942"
-                                                                        
"i12940"
-                                                                        
"i12938"
-                                                                        
"i12936"
-                                                                        
"i12933"
-                                                                        
"i12931"
-                                                                        
"i12930"
-                                                                        
"i12929"
-                                                                        
"i12928"
-                                                                        
"i12927"
-                                                                        
"i12926"
-                                                                        
"i12924"
-                                                                        
"i12922"
-                                                                        
"i12920"
-                                                                        
"i12918"
-                                                                        
"i12917"
-                                                                        
"i12915"
-                                                                        
"i12913"
-                                                                        
"i12911"
-                                                                        
"i12909"
-                                                                        
"i12907"
-                                                                        
"i12905"
-                                                                        
"i12903"
-                                                                        
"i12902"
-                                                                        
"i12900"
-                                                                        
"i12898"
-                                                                        
"i12897"
-                                                                        
"i12896"
-                                                                        
"i12894"
-                                                                        
"i12893"
-                                                                        
"i12891"
-                                                                        
"i12889"
-                                                                        
"i12887"
-                                                                        
"i12885"
-                                                                        
"i12883"
-                                                                        
"i12881"
-                                                                        
"i12879"
-                                                                        
"i12877"
-                                                                        
"i12875"
-                                                                        
"i12873"
-                                                                        
"i12871"
-                                                                        
"i12869"
-                                                                        
"i12867"
-                                                                        
"i12865"
-                                                                        
"i12863"
-                                                                        
"i12861"
-                                                                        
"i12859"
-                                                                        
"i12857"
-                                                                        
"i12855"
-                                                                        
"i12853"
-                                                                        
"i12851"
-                                                                        
"i12849"
-                                                                        
"i12847"
-                                                                        
"i12845"
-                                                                        
"i12843"
-                                                                        
"i12841"
-                                                                        
"i12839"
-                                                                        
"i12837"
-                                                                        
"i12835"
-                                                                        
"i12833"
-                                                                        
"i12831"
-                                                                        
"i12829"
-                                                                        
"i12828"
-                                                                        
"i12826"
-                                                                        
"i12824"
-                                                                        
"i12822"
-                                                                        
"i12820"
-                                                                        
"i12818"
-                                                                        
"i12816"
-                                                                        
"i12814"
-                                                                        
"i12812"
-                                                                        
"i12810"
-                                                                        
"i12808"
-                                                                        
"i12806"
-                                                                        
"i12804"
-                                                                        
"i12802"
-                                                                        
"i12800"
-                                                                        
"i12798"
-                                                                        
"i12796"
-                                                                        
"i12794"
-                                                                        
"i12792"
-                                                                        
"i12790"
-                                                                        
"i12788"
-                                                                        
"i12786"
-                                                                        
"i12784"
-                                                                        
"i12782"
-                                                                        
"i12780"
-                                                                        
"i12777"))
+                                                                       ("i421"
+                                                                        "i419"
+                                                                        "i417"
+                                                                        "i415"
+                                                                        "i413"
+                                                                        "i411"
+                                                                        "i409"
+                                                                        "i407"
+                                                                        "i405"
+                                                                        "i403"
+                                                                        "i401"
+                                                                        "i399"
+                                                                        "i397"
+                                                                        "i395"
+                                                                        "i393"
+                                                                        "i391"
+                                                                        "i389"
+                                                                        "i387"
+                                                                        "i385"
+                                                                        "i383"
+                                                                        "i381"
+                                                                        "i379"
+                                                                        "i377"
+                                                                        "i375"
+                                                                        "i373"
+                                                                        "i371"
+                                                                        "i369"
+                                                                        "i367"
+                                                                        "i365"
+                                                                        "i363"
+                                                                        "i361"
+                                                                        "i359"
+                                                                        "i357"
+                                                                        "i355"
+                                                                        "i353"
+                                                                        "i351"
+                                                                        "i350"
+                                                                        "i349"
+                                                                        "i347"
+                                                                        "i346"
+                                                                        "i345"
+                                                                        "i344"
+                                                                        "i343"
+                                                                        "i341"
+                                                                        "i339"
+                                                                        "i337"
+                                                                        "i335"
+                                                                        "i333"
+                                                                        "i331"
+                                                                        "i329"
+                                                                        "i327"
+                                                                        "i324"
+                                                                        "i322"
+                                                                        "i321"
+                                                                        "i320"
+                                                                        "i319"
+                                                                        "i318"
+                                                                        "i317"
+                                                                        "i315"
+                                                                        "i313"
+                                                                        "i311"
+                                                                        "i309"
+                                                                        "i308"
+                                                                        "i306"
+                                                                        "i304"
+                                                                        "i302"
+                                                                        "i300"
+                                                                        "i298"
+                                                                        "i296"
+                                                                        "i294"
+                                                                        "i293"
+                                                                        "i291"
+                                                                        "i289"
+                                                                        "i288"
+                                                                        "i287"
+                                                                        "i285"
+                                                                        "i284"
+                                                                        "i282"
+                                                                        "i280"
+                                                                        "i278"
+                                                                        "i276"
+                                                                        "i274"
+                                                                        "i272"
+                                                                        "i270"
+                                                                        "i268"
+                                                                        "i266"
+                                                                        "i264"
+                                                                        "i262"
+                                                                        "i260"
+                                                                        "i258"
+                                                                        "i256"
+                                                                        "i254"
+                                                                        "i252"
+                                                                        "i250"
+                                                                        "i248"
+                                                                        "i246"
+                                                                        "i244"
+                                                                        "i242"
+                                                                        "i240"
+                                                                        "i238"
+                                                                        "i236"
+                                                                        "i234"
+                                                                        "i232"
+                                                                        "i230"
+                                                                        "i228"
+                                                                        "i226"
+                                                                        "i224"
+                                                                        "i222"
+                                                                        "i220"
+                                                                        "i219"
+                                                                        "i217"
+                                                                        "i215"
+                                                                        "i213"
+                                                                        "i211"
+                                                                        "i209"
+                                                                        "i207"
+                                                                        "i205"
+                                                                        "i203"
+                                                                        "i201"
+                                                                        "i199"
+                                                                        "i197"
+                                                                        "i195"
+                                                                        "i193"
+                                                                        "i191"
+                                                                        "i189"
+                                                                        "i187"
+                                                                        "i185"
+                                                                        "i183"
+                                                                        "i181"
+                                                                        "i179"
+                                                                        "i177"
+                                                                        "i175"
+                                                                        "i173"
+                                                                        
"i171"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
define-expansion-constructors
@@ -1780,341 +1753,341 @@
                                                                        ((top)
                                                                         (top)
                                                                         (top))
-                                                                       
("i12629"
-                                                                        
"i12628"
-                                                                        
"i12626")))
+                                                                       ("i22"
+                                                                        "i21"
+                                                                        
"i19")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{ropt\ 13681}#)))
-                                                #{tmp\ 13687}#)
-                                         ((lambda (#{tmp\ 13696}#)
-                                            (if (if #{tmp\ 13696}#
-                                                  (apply (lambda (#{a\ 13700}#
-                                                                  #{init\ 
13701}#
-                                                                  #{b\ 13702}#)
-                                                           (#{id?\ 12916}#
-                                                             #{a\ 13700}#))
-                                                         #{tmp\ 13696}#)
+                                                          #{ropt\ 1072}#)))
+                                                #{tmp\ 1078}#)
+                                         ((lambda (#{tmp\ 1087}#)
+                                            (if (if #{tmp\ 1087}#
+                                                  (apply (lambda (#{a\ 1091}#
+                                                                  #{init\ 
1092}#
+                                                                  #{b\ 1093}#)
+                                                           (#{id?\ 307}#
+                                                             #{a\ 1091}#))
+                                                         #{tmp\ 1087}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 13706}#
-                                                              #{init\ 13707}#
-                                                              #{b\ 13708}#)
-                                                       (#{opt\ 13539}#
-                                                         #{b\ 13708}#
-                                                         #{req\ 13680}#
-                                                         (cons (list #{a\ 
13706}#
-                                                                     #{init\ 
13707}#)
-                                                               #{ropt\ 
13681}#)))
-                                                     #{tmp\ 13696}#)
-                                              ((lambda (#{tmp\ 13709}#)
-                                                 (if (if #{tmp\ 13709}#
-                                                       (apply (lambda (#{a\ 
13712}#
-                                                                       #{b\ 
13713}#)
+                                              (apply (lambda (#{a\ 1097}#
+                                                              #{init\ 1098}#
+                                                              #{b\ 1099}#)
+                                                       (#{opt\ 930}#
+                                                         #{b\ 1099}#
+                                                         #{req\ 1071}#
+                                                         (cons (list #{a\ 
1097}#
+                                                                     #{init\ 
1098}#)
+                                                               #{ropt\ 
1072}#)))
+                                                     #{tmp\ 1087}#)
+                                              ((lambda (#{tmp\ 1100}#)
+                                                 (if (if #{tmp\ 1100}#
+                                                       (apply (lambda (#{a\ 
1103}#
+                                                                       #{b\ 
1104}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
13712}#)
+                                                                       #{a\ 
1103}#)
                                                                      #:key))
-                                                              #{tmp\ 13709}#)
+                                                              #{tmp\ 1100}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 13716}#
-                                                                   #{b\ 
13717}#)
-                                                            (#{key\ 13541}#
-                                                              #{b\ 13717}#
-                                                              #{req\ 13680}#
+                                                   (apply (lambda (#{a\ 1107}#
+                                                                   #{b\ 1108}#)
+                                                            (#{key\ 932}#
+                                                              #{b\ 1108}#
+                                                              #{req\ 1071}#
                                                               (reverse
-                                                                #{ropt\ 
13681}#)
+                                                                #{ropt\ 1072}#)
                                                               '()))
-                                                          #{tmp\ 13709}#)
-                                                   ((lambda (#{tmp\ 13718}#)
-                                                      (if (if #{tmp\ 13718}#
-                                                            (apply (lambda 
(#{a\ 13721}#
-                                                                            
#{b\ 13722}#)
+                                                          #{tmp\ 1100}#)
+                                                   ((lambda (#{tmp\ 1109}#)
+                                                      (if (if #{tmp\ 1109}#
+                                                            (apply (lambda 
(#{a\ 1112}#
+                                                                            
#{b\ 1113}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 13721}#)
+                                                                            
#{a\ 1112}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
13718}#)
+                                                                   #{tmp\ 
1109}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
13725}#
-                                                                        #{b\ 
13726}#)
-                                                                 (#{rest\ 
13543}#
-                                                                   #{b\ 13726}#
-                                                                   #{req\ 
13680}#
+                                                        (apply (lambda (#{a\ 
1116}#
+                                                                        #{b\ 
1117}#)
+                                                                 (#{rest\ 934}#
+                                                                   #{b\ 1117}#
+                                                                   #{req\ 
1071}#
                                                                    (reverse
-                                                                     #{ropt\ 
13681}#)
+                                                                     #{ropt\ 
1072}#)
                                                                    '()))
-                                                               #{tmp\ 13718}#)
-                                                        ((lambda (#{tmp\ 
13727}#)
-                                                           (if (if #{tmp\ 
13727}#
-                                                                 (apply 
(lambda (#{r\ 13729}#)
-                                                                          
(#{id?\ 12916}#
-                                                                            
#{r\ 13729}#))
-                                                                        #{tmp\ 
13727}#)
+                                                               #{tmp\ 1109}#)
+                                                        ((lambda (#{tmp\ 
1118}#)
+                                                           (if (if #{tmp\ 
1118}#
+                                                                 (apply 
(lambda (#{r\ 1120}#)
+                                                                          
(#{id?\ 307}#
+                                                                            
#{r\ 1120}#))
+                                                                        #{tmp\ 
1118}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 13731}#)
-                                                                      (#{rest\ 
13543}#
-                                                                        #{r\ 
13731}#
-                                                                        #{req\ 
13680}#
+                                                             (apply (lambda 
(#{r\ 1122}#)
+                                                                      (#{rest\ 
934}#
+                                                                        #{r\ 
1122}#
+                                                                        #{req\ 
1071}#
                                                                         
(reverse
-                                                                          
#{ropt\ 13681}#)
+                                                                          
#{ropt\ 1072}#)
                                                                         '()))
-                                                                    #{tmp\ 
13727}#)
-                                                             ((lambda (#{else\ 
13733}#)
+                                                                    #{tmp\ 
1118}#)
+                                                             ((lambda (#{else\ 
1124}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
13534}#
-                                                                  #{args\ 
13679}#))
-                                                              #{tmp\ 13685}#)))
-                                                         (list #{tmp\ 
13685}#))))
+                                                                  #{orig-args\ 
925}#
+                                                                  #{args\ 
1070}#))
+                                                              #{tmp\ 1076}#)))
+                                                         (list #{tmp\ 
1076}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 13685}#
+                                                      #{tmp\ 1076}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 13685}#
+                                                 #{tmp\ 1076}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 13685}#
+                                            #{tmp\ 1076}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 13685}#
+                                       #{tmp\ 1076}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 13685}# (quote ()))))
-                             #{args\ 13679}#)))
-                        (#{req\ 13537}#
-                          (lambda (#{args\ 13734}# #{rreq\ 13735}#)
-                            ((lambda (#{tmp\ 13738}#)
-                               ((lambda (#{tmp\ 13739}#)
-                                  (if #{tmp\ 13739}#
+                                ($sc-dispatch #{tmp\ 1076}# (quote ()))))
+                             #{args\ 1070}#)))
+                        (#{req\ 928}#
+                          (lambda (#{args\ 1125}# #{rreq\ 1126}#)
+                            ((lambda (#{tmp\ 1129}#)
+                               ((lambda (#{tmp\ 1130}#)
+                                  (if #{tmp\ 1130}#
                                     (apply (lambda ()
-                                             (#{check\ 13545}#
-                                               (reverse #{rreq\ 13735}#)
+                                             (#{check\ 936}#
+                                               (reverse #{rreq\ 1126}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 13739}#)
-                                    ((lambda (#{tmp\ 13740}#)
-                                       (if (if #{tmp\ 13740}#
-                                             (apply (lambda (#{a\ 13743}#
-                                                             #{b\ 13744}#)
-                                                      (#{id?\ 12916}#
-                                                        #{a\ 13743}#))
-                                                    #{tmp\ 13740}#)
+                                           #{tmp\ 1130}#)
+                                    ((lambda (#{tmp\ 1131}#)
+                                       (if (if #{tmp\ 1131}#
+                                             (apply (lambda (#{a\ 1134}#
+                                                             #{b\ 1135}#)
+                                                      (#{id?\ 307}#
+                                                        #{a\ 1134}#))
+                                                    #{tmp\ 1131}#)
                                              #f)
-                                         (apply (lambda (#{a\ 13747}#
-                                                         #{b\ 13748}#)
-                                                  (#{req\ 13537}#
-                                                    #{b\ 13748}#
-                                                    (cons #{a\ 13747}#
-                                                          #{rreq\ 13735}#)))
-                                                #{tmp\ 13740}#)
-                                         ((lambda (#{tmp\ 13749}#)
-                                            (if (if #{tmp\ 13749}#
-                                                  (apply (lambda (#{a\ 13752}#
-                                                                  #{b\ 13753}#)
+                                         (apply (lambda (#{a\ 1138}#
+                                                         #{b\ 1139}#)
+                                                  (#{req\ 928}#
+                                                    #{b\ 1139}#
+                                                    (cons #{a\ 1138}#
+                                                          #{rreq\ 1126}#)))
+                                                #{tmp\ 1131}#)
+                                         ((lambda (#{tmp\ 1140}#)
+                                            (if (if #{tmp\ 1140}#
+                                                  (apply (lambda (#{a\ 1143}#
+                                                                  #{b\ 1144}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 13752}#)
+                                                                  #{a\ 1143}#)
                                                                 #:optional))
-                                                         #{tmp\ 13749}#)
+                                                         #{tmp\ 1140}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 13756}#
-                                                              #{b\ 13757}#)
-                                                       (#{opt\ 13539}#
-                                                         #{b\ 13757}#
+                                              (apply (lambda (#{a\ 1147}#
+                                                              #{b\ 1148}#)
+                                                       (#{opt\ 930}#
+                                                         #{b\ 1148}#
                                                          (reverse
-                                                           #{rreq\ 13735}#)
+                                                           #{rreq\ 1126}#)
                                                          '()))
-                                                     #{tmp\ 13749}#)
-                                              ((lambda (#{tmp\ 13758}#)
-                                                 (if (if #{tmp\ 13758}#
-                                                       (apply (lambda (#{a\ 
13761}#
-                                                                       #{b\ 
13762}#)
+                                                     #{tmp\ 1140}#)
+                                              ((lambda (#{tmp\ 1149}#)
+                                                 (if (if #{tmp\ 1149}#
+                                                       (apply (lambda (#{a\ 
1152}#
+                                                                       #{b\ 
1153}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
13761}#)
+                                                                       #{a\ 
1152}#)
                                                                      #:key))
-                                                              #{tmp\ 13758}#)
+                                                              #{tmp\ 1149}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 13765}#
-                                                                   #{b\ 
13766}#)
-                                                            (#{key\ 13541}#
-                                                              #{b\ 13766}#
+                                                   (apply (lambda (#{a\ 1156}#
+                                                                   #{b\ 1157}#)
+                                                            (#{key\ 932}#
+                                                              #{b\ 1157}#
                                                               (reverse
-                                                                #{rreq\ 
13735}#)
+                                                                #{rreq\ 1126}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 13758}#)
-                                                   ((lambda (#{tmp\ 13767}#)
-                                                      (if (if #{tmp\ 13767}#
-                                                            (apply (lambda 
(#{a\ 13770}#
-                                                                            
#{b\ 13771}#)
+                                                          #{tmp\ 1149}#)
+                                                   ((lambda (#{tmp\ 1158}#)
+                                                      (if (if #{tmp\ 1158}#
+                                                            (apply (lambda 
(#{a\ 1161}#
+                                                                            
#{b\ 1162}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 13770}#)
+                                                                            
#{a\ 1161}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
13767}#)
+                                                                   #{tmp\ 
1158}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
13774}#
-                                                                        #{b\ 
13775}#)
-                                                                 (#{rest\ 
13543}#
-                                                                   #{b\ 13775}#
+                                                        (apply (lambda (#{a\ 
1165}#
+                                                                        #{b\ 
1166}#)
+                                                                 (#{rest\ 934}#
+                                                                   #{b\ 1166}#
                                                                    (reverse
-                                                                     #{rreq\ 
13735}#)
+                                                                     #{rreq\ 
1126}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 13767}#)
-                                                        ((lambda (#{tmp\ 
13776}#)
-                                                           (if (if #{tmp\ 
13776}#
-                                                                 (apply 
(lambda (#{r\ 13778}#)
-                                                                          
(#{id?\ 12916}#
-                                                                            
#{r\ 13778}#))
-                                                                        #{tmp\ 
13776}#)
+                                                               #{tmp\ 1158}#)
+                                                        ((lambda (#{tmp\ 
1167}#)
+                                                           (if (if #{tmp\ 
1167}#
+                                                                 (apply 
(lambda (#{r\ 1169}#)
+                                                                          
(#{id?\ 307}#
+                                                                            
#{r\ 1169}#))
+                                                                        #{tmp\ 
1167}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 13780}#)
-                                                                      (#{rest\ 
13543}#
-                                                                        #{r\ 
13780}#
+                                                             (apply (lambda 
(#{r\ 1171}#)
+                                                                      (#{rest\ 
934}#
+                                                                        #{r\ 
1171}#
                                                                         
(reverse
-                                                                          
#{rreq\ 13735}#)
+                                                                          
#{rreq\ 1126}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
13776}#)
-                                                             ((lambda (#{else\ 
13782}#)
+                                                                    #{tmp\ 
1167}#)
+                                                             ((lambda (#{else\ 
1173}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
13534}#
-                                                                  #{args\ 
13734}#))
-                                                              #{tmp\ 13738}#)))
-                                                         (list #{tmp\ 
13738}#))))
+                                                                  #{orig-args\ 
925}#
+                                                                  #{args\ 
1125}#))
+                                                              #{tmp\ 1129}#)))
+                                                         (list #{tmp\ 
1129}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 13738}#
+                                                      #{tmp\ 1129}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 13738}#
+                                                 #{tmp\ 1129}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 13738}#
+                                            #{tmp\ 1129}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 13738}#
+                                       #{tmp\ 1129}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 13738}# (quote ()))))
-                             #{args\ 13734}#))))
-                 (#{req\ 13537}# #{orig-args\ 13534}# (quote ())))))
-           (#{chi-simple-lambda\ 13021}#
-             (lambda (#{e\ 13783}#
-                      #{r\ 13784}#
-                      #{w\ 13785}#
-                      #{s\ 13786}#
-                      #{mod\ 13787}#
-                      #{req\ 13788}#
-                      #{rest\ 13789}#
-                      #{meta\ 13790}#
-                      #{body\ 13791}#)
-               (let ((#{ids\ 13803}#
-                       (if #{rest\ 13789}#
-                         (append #{req\ 13788}# (list #{rest\ 13789}#))
-                         #{req\ 13788}#)))
-                 (let ((#{vars\ 13805}#
-                         (map #{gen-var\ 13029}# #{ids\ 13803}#)))
-                   (let ((#{labels\ 13807}#
-                           (#{gen-labels\ 12934}# #{ids\ 13803}#)))
-                     (#{build-simple-lambda\ 12858}#
-                       #{s\ 13786}#
-                       (map syntax->datum #{req\ 13788}#)
-                       (if #{rest\ 13789}#
-                         (syntax->datum #{rest\ 13789}#)
+                                ($sc-dispatch #{tmp\ 1129}# (quote ()))))
+                             #{args\ 1125}#))))
+                 (#{req\ 928}# #{orig-args\ 925}# (quote ())))))
+           (#{chi-simple-lambda\ 412}#
+             (lambda (#{e\ 1174}#
+                      #{r\ 1175}#
+                      #{w\ 1176}#
+                      #{s\ 1177}#
+                      #{mod\ 1178}#
+                      #{req\ 1179}#
+                      #{rest\ 1180}#
+                      #{meta\ 1181}#
+                      #{body\ 1182}#)
+               (let ((#{ids\ 1194}#
+                       (if #{rest\ 1180}#
+                         (append #{req\ 1179}# (list #{rest\ 1180}#))
+                         #{req\ 1179}#)))
+                 (let ((#{vars\ 1196}#
+                         (map #{gen-var\ 420}# #{ids\ 1194}#)))
+                   (let ((#{labels\ 1198}#
+                           (#{gen-labels\ 325}# #{ids\ 1194}#)))
+                     (#{build-simple-lambda\ 249}#
+                       #{s\ 1177}#
+                       (map syntax->datum #{req\ 1179}#)
+                       (if #{rest\ 1180}#
+                         (syntax->datum #{rest\ 1180}#)
                          #f)
-                       #{vars\ 13805}#
-                       #{meta\ 13790}#
-                       (#{chi-body\ 13009}#
-                         #{body\ 13791}#
-                         (#{source-wrap\ 12987}#
-                           #{e\ 13783}#
-                           #{w\ 13785}#
-                           #{s\ 13786}#
-                           #{mod\ 13787}#)
-                         (#{extend-var-env\ 12906}#
-                           #{labels\ 13807}#
-                           #{vars\ 13805}#
-                           #{r\ 13784}#)
-                         (#{make-binding-wrap\ 12963}#
-                           #{ids\ 13803}#
-                           #{labels\ 13807}#
-                           #{w\ 13785}#)
-                         #{mod\ 13787}#)))))))
-           (#{lambda-formals\ 13019}#
-             (lambda (#{orig-args\ 13810}#)
-               (letrec ((#{check\ 13815}#
-                          (lambda (#{req\ 13816}# #{rest\ 13817}#)
-                            (if (#{distinct-bound-ids?\ 12981}#
-                                  (if #{rest\ 13817}#
-                                    (cons #{rest\ 13817}# #{req\ 13816}#)
-                                    #{req\ 13816}#))
-                              (values #{req\ 13816}# #f #{rest\ 13817}# #f)
+                       #{vars\ 1196}#
+                       #{meta\ 1181}#
+                       (#{chi-body\ 400}#
+                         #{body\ 1182}#
+                         (#{source-wrap\ 378}#
+                           #{e\ 1174}#
+                           #{w\ 1176}#
+                           #{s\ 1177}#
+                           #{mod\ 1178}#)
+                         (#{extend-var-env\ 297}#
+                           #{labels\ 1198}#
+                           #{vars\ 1196}#
+                           #{r\ 1175}#)
+                         (#{make-binding-wrap\ 354}#
+                           #{ids\ 1194}#
+                           #{labels\ 1198}#
+                           #{w\ 1176}#)
+                         #{mod\ 1178}#)))))))
+           (#{lambda-formals\ 410}#
+             (lambda (#{orig-args\ 1201}#)
+               (letrec ((#{check\ 1206}#
+                          (lambda (#{req\ 1207}# #{rest\ 1208}#)
+                            (if (#{distinct-bound-ids?\ 372}#
+                                  (if #{rest\ 1208}#
+                                    (cons #{rest\ 1208}# #{req\ 1207}#)
+                                    #{req\ 1207}#))
+                              (values #{req\ 1207}# #f #{rest\ 1208}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 13810}#))))
-                        (#{req\ 13813}#
-                          (lambda (#{args\ 13823}# #{rreq\ 13824}#)
-                            ((lambda (#{tmp\ 13827}#)
-                               ((lambda (#{tmp\ 13828}#)
-                                  (if #{tmp\ 13828}#
+                                #{orig-args\ 1201}#))))
+                        (#{req\ 1204}#
+                          (lambda (#{args\ 1214}# #{rreq\ 1215}#)
+                            ((lambda (#{tmp\ 1218}#)
+                               ((lambda (#{tmp\ 1219}#)
+                                  (if #{tmp\ 1219}#
                                     (apply (lambda ()
-                                             (#{check\ 13815}#
-                                               (reverse #{rreq\ 13824}#)
+                                             (#{check\ 1206}#
+                                               (reverse #{rreq\ 1215}#)
                                                #f))
-                                           #{tmp\ 13828}#)
-                                    ((lambda (#{tmp\ 13829}#)
-                                       (if (if #{tmp\ 13829}#
-                                             (apply (lambda (#{a\ 13832}#
-                                                             #{b\ 13833}#)
-                                                      (#{id?\ 12916}#
-                                                        #{a\ 13832}#))
-                                                    #{tmp\ 13829}#)
+                                           #{tmp\ 1219}#)
+                                    ((lambda (#{tmp\ 1220}#)
+                                       (if (if #{tmp\ 1220}#
+                                             (apply (lambda (#{a\ 1223}#
+                                                             #{b\ 1224}#)
+                                                      (#{id?\ 307}#
+                                                        #{a\ 1223}#))
+                                                    #{tmp\ 1220}#)
                                              #f)
-                                         (apply (lambda (#{a\ 13836}#
-                                                         #{b\ 13837}#)
-                                                  (#{req\ 13813}#
-                                                    #{b\ 13837}#
-                                                    (cons #{a\ 13836}#
-                                                          #{rreq\ 13824}#)))
-                                                #{tmp\ 13829}#)
-                                         ((lambda (#{tmp\ 13838}#)
-                                            (if (if #{tmp\ 13838}#
-                                                  (apply (lambda (#{r\ 13840}#)
-                                                           (#{id?\ 12916}#
-                                                             #{r\ 13840}#))
-                                                         #{tmp\ 13838}#)
+                                         (apply (lambda (#{a\ 1227}#
+                                                         #{b\ 1228}#)
+                                                  (#{req\ 1204}#
+                                                    #{b\ 1228}#
+                                                    (cons #{a\ 1227}#
+                                                          #{rreq\ 1215}#)))
+                                                #{tmp\ 1220}#)
+                                         ((lambda (#{tmp\ 1229}#)
+                                            (if (if #{tmp\ 1229}#
+                                                  (apply (lambda (#{r\ 1231}#)
+                                                           (#{id?\ 307}#
+                                                             #{r\ 1231}#))
+                                                         #{tmp\ 1229}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 13842}#)
-                                                       (#{check\ 13815}#
+                                              (apply (lambda (#{r\ 1233}#)
+                                                       (#{check\ 1206}#
                                                          (reverse
-                                                           #{rreq\ 13824}#)
-                                                         #{r\ 13842}#))
-                                                     #{tmp\ 13838}#)
-                                              ((lambda (#{else\ 13844}#)
+                                                           #{rreq\ 1215}#)
+                                                         #{r\ 1233}#))
+                                                     #{tmp\ 1229}#)
+                                              ((lambda (#{else\ 1235}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 13810}#
-                                                   #{args\ 13823}#))
-                                               #{tmp\ 13827}#)))
-                                          (list #{tmp\ 13827}#))))
+                                                   #{orig-args\ 1201}#
+                                                   #{args\ 1214}#))
+                                               #{tmp\ 1218}#)))
+                                          (list #{tmp\ 1218}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 13827}#
+                                       #{tmp\ 1218}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 13827}# (quote ()))))
-                             #{args\ 13823}#))))
-                 (#{req\ 13813}# #{orig-args\ 13810}# (quote ())))))
-           (#{ellipsis?\ 13017}#
-             (lambda (#{x\ 13845}#)
-               (if (#{nonsymbol-id?\ 12914}# #{x\ 13845}#)
-                 (#{free-id=?\ 12975}#
-                   #{x\ 13845}#
+                                ($sc-dispatch #{tmp\ 1218}# (quote ()))))
+                             #{args\ 1214}#))))
+                 (#{req\ 1204}# #{orig-args\ 1201}# (quote ())))))
+           (#{ellipsis?\ 408}#
+             (lambda (#{x\ 1236}#)
+               (if (#{nonsymbol-id?\ 305}# #{x\ 1236}#)
+                 (#{free-id=?\ 366}#
+                   #{x\ 1236}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i13846"))
+                       #(ribcage #(x) #((top)) #("i1237"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2249,8 +2222,7 @@
                            make-lexical-ref
                            make-primitive-ref
                            make-const
-                           make-void
-                           *mode*)
+                           make-void)
                          ((top)
                           (top)
                           (top)
@@ -2384,1443 +2356,1431 @@
                           (top)
                           (top)
                           (top)
-                          (top)
                           (top))
-                         ("i13030"
-                          "i13028"
-                          "i13026"
-                          "i13024"
-                          "i13022"
-                          "i13020"
-                          "i13018"
-                          "i13016"
-                          "i13014"
-                          "i13012"
-                          "i13010"
-                          "i13008"
-                          "i13006"
-                          "i13004"
-                          "i13002"
-                          "i13000"
-                          "i12998"
-                          "i12996"
-                          "i12994"
-                          "i12992"
-                          "i12990"
-                          "i12988"
-                          "i12986"
-                          "i12984"
-                          "i12982"
-                          "i12980"
-                          "i12978"
-                          "i12976"
-                          "i12974"
-                          "i12972"
-                          "i12970"
-                          "i12968"
-                          "i12966"
-                          "i12964"
-                          "i12962"
-                          "i12960"
-                          "i12959"
-                          "i12958"
-                          "i12956"
-                          "i12955"
-                          "i12954"
-                          "i12953"
-                          "i12952"
-                          "i12950"
-                          "i12948"
-                          "i12946"
-                          "i12944"
-                          "i12942"
-                          "i12940"
-                          "i12938"
-                          "i12936"
-                          "i12933"
-                          "i12931"
-                          "i12930"
-                          "i12929"
-                          "i12928"
-                          "i12927"
-                          "i12926"
-                          "i12924"
-                          "i12922"
-                          "i12920"
-                          "i12918"
-                          "i12917"
-                          "i12915"
-                          "i12913"
-                          "i12911"
-                          "i12909"
-                          "i12907"
-                          "i12905"
-                          "i12903"
-                          "i12902"
-                          "i12900"
-                          "i12898"
-                          "i12897"
-                          "i12896"
-                          "i12894"
-                          "i12893"
-                          "i12891"
-                          "i12889"
-                          "i12887"
-                          "i12885"
-                          "i12883"
-                          "i12881"
-                          "i12879"
-                          "i12877"
-                          "i12875"
-                          "i12873"
-                          "i12871"
-                          "i12869"
-                          "i12867"
-                          "i12865"
-                          "i12863"
-                          "i12861"
-                          "i12859"
-                          "i12857"
-                          "i12855"
-                          "i12853"
-                          "i12851"
-                          "i12849"
-                          "i12847"
-                          "i12845"
-                          "i12843"
-                          "i12841"
-                          "i12839"
-                          "i12837"
-                          "i12835"
-                          "i12833"
-                          "i12831"
-                          "i12829"
-                          "i12828"
-                          "i12826"
-                          "i12824"
-                          "i12822"
-                          "i12820"
-                          "i12818"
-                          "i12816"
-                          "i12814"
-                          "i12812"
-                          "i12810"
-                          "i12808"
-                          "i12806"
-                          "i12804"
-                          "i12802"
-                          "i12800"
-                          "i12798"
-                          "i12796"
-                          "i12794"
-                          "i12792"
-                          "i12790"
-                          "i12788"
-                          "i12786"
-                          "i12784"
-                          "i12782"
-                          "i12780"
-                          "i12777"))
+                         ("i421"
+                          "i419"
+                          "i417"
+                          "i415"
+                          "i413"
+                          "i411"
+                          "i409"
+                          "i407"
+                          "i405"
+                          "i403"
+                          "i401"
+                          "i399"
+                          "i397"
+                          "i395"
+                          "i393"
+                          "i391"
+                          "i389"
+                          "i387"
+                          "i385"
+                          "i383"
+                          "i381"
+                          "i379"
+                          "i377"
+                          "i375"
+                          "i373"
+                          "i371"
+                          "i369"
+                          "i367"
+                          "i365"
+                          "i363"
+                          "i361"
+                          "i359"
+                          "i357"
+                          "i355"
+                          "i353"
+                          "i351"
+                          "i350"
+                          "i349"
+                          "i347"
+                          "i346"
+                          "i345"
+                          "i344"
+                          "i343"
+                          "i341"
+                          "i339"
+                          "i337"
+                          "i335"
+                          "i333"
+                          "i331"
+                          "i329"
+                          "i327"
+                          "i324"
+                          "i322"
+                          "i321"
+                          "i320"
+                          "i319"
+                          "i318"
+                          "i317"
+                          "i315"
+                          "i313"
+                          "i311"
+                          "i309"
+                          "i308"
+                          "i306"
+                          "i304"
+                          "i302"
+                          "i300"
+                          "i298"
+                          "i296"
+                          "i294"
+                          "i293"
+                          "i291"
+                          "i289"
+                          "i288"
+                          "i287"
+                          "i285"
+                          "i284"
+                          "i282"
+                          "i280"
+                          "i278"
+                          "i276"
+                          "i274"
+                          "i272"
+                          "i270"
+                          "i268"
+                          "i266"
+                          "i264"
+                          "i262"
+                          "i260"
+                          "i258"
+                          "i256"
+                          "i254"
+                          "i252"
+                          "i250"
+                          "i248"
+                          "i246"
+                          "i244"
+                          "i242"
+                          "i240"
+                          "i238"
+                          "i236"
+                          "i234"
+                          "i232"
+                          "i230"
+                          "i228"
+                          "i226"
+                          "i224"
+                          "i222"
+                          "i220"
+                          "i219"
+                          "i217"
+                          "i215"
+                          "i213"
+                          "i211"
+                          "i209"
+                          "i207"
+                          "i205"
+                          "i203"
+                          "i201"
+                          "i199"
+                          "i197"
+                          "i195"
+                          "i193"
+                          "i191"
+                          "i189"
+                          "i187"
+                          "i185"
+                          "i183"
+                          "i181"
+                          "i179"
+                          "i177"
+                          "i175"
+                          "i173"
+                          "i171"))
                        #(ribcage
                          (define-structure
                            define-expansion-constructors
                            and-map*)
                          ((top) (top) (top))
-                         ("i12629" "i12628" "i12626")))
+                         ("i22" "i21" "i19")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 13015}#
-             (lambda () (#{build-void\ 12836}# #f)))
-           (#{eval-local-transformer\ 13013}#
-             (lambda (#{expanded\ 13850}# #{mod\ 13851}#)
-               (let ((#{p\ 13855}#
-                       (#{local-eval-hook\ 12827}#
-                         #{expanded\ 13850}#
-                         #{mod\ 13851}#)))
-                 (if (procedure? #{p\ 13855}#)
-                   (cons #{p\ 13855}#
-                         (module-name (current-module)))
+           (#{chi-void\ 406}#
+             (lambda () (#{build-void\ 227}# #f)))
+           (#{eval-local-transformer\ 404}#
+             (lambda (#{expanded\ 1241}# #{mod\ 1242}#)
+               (let ((#{p\ 1246}#
+                       (#{local-eval-hook\ 218}#
+                         #{expanded\ 1241}#
+                         #{mod\ 1242}#)))
+                 (if (procedure? #{p\ 1246}#)
+                   (cons #{p\ 1246}# (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 13855}#)))))
-           (#{chi-local-syntax\ 13011}#
-             (lambda (#{rec?\ 13856}#
-                      #{e\ 13857}#
-                      #{r\ 13858}#
-                      #{w\ 13859}#
-                      #{s\ 13860}#
-                      #{mod\ 13861}#
-                      #{k\ 13862}#)
-               ((lambda (#{tmp\ 13870}#)
-                  ((lambda (#{tmp\ 13871}#)
-                     (if #{tmp\ 13871}#
-                       (apply (lambda (#{_\ 13877}#
-                                       #{id\ 13878}#
-                                       #{val\ 13879}#
-                                       #{e1\ 13880}#
-                                       #{e2\ 13881}#)
-                                (let ((#{ids\ 13883}# #{id\ 13878}#))
-                                  (if (not (#{valid-bound-ids?\ 12979}#
-                                             #{ids\ 13883}#))
+                     #{p\ 1246}#)))))
+           (#{chi-local-syntax\ 402}#
+             (lambda (#{rec?\ 1247}#
+                      #{e\ 1248}#
+                      #{r\ 1249}#
+                      #{w\ 1250}#
+                      #{s\ 1251}#
+                      #{mod\ 1252}#
+                      #{k\ 1253}#)
+               ((lambda (#{tmp\ 1261}#)
+                  ((lambda (#{tmp\ 1262}#)
+                     (if #{tmp\ 1262}#
+                       (apply (lambda (#{_\ 1268}#
+                                       #{id\ 1269}#
+                                       #{val\ 1270}#
+                                       #{e1\ 1271}#
+                                       #{e2\ 1272}#)
+                                (let ((#{ids\ 1274}# #{id\ 1269}#))
+                                  (if (not (#{valid-bound-ids?\ 370}#
+                                             #{ids\ 1274}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 13857}#)
-                                    (let ((#{labels\ 13886}#
-                                            (#{gen-labels\ 12934}#
-                                              #{ids\ 13883}#)))
-                                      (let ((#{new-w\ 13888}#
-                                              (#{make-binding-wrap\ 12963}#
-                                                #{ids\ 13883}#
-                                                #{labels\ 13886}#
-                                                #{w\ 13859}#)))
-                                        (#{k\ 13862}#
-                                          (cons #{e1\ 13880}# #{e2\ 13881}#)
-                                          (#{extend-env\ 12904}#
-                                            #{labels\ 13886}#
-                                            (let ((#{w\ 13892}#
-                                                    (if #{rec?\ 13856}#
-                                                      #{new-w\ 13888}#
-                                                      #{w\ 13859}#))
-                                                  (#{trans-r\ 13893}#
-                                                    (#{macros-only-env\ 12908}#
-                                                      #{r\ 13858}#)))
-                                              (map (lambda (#{x\ 13894}#)
+                                      #{e\ 1248}#)
+                                    (let ((#{labels\ 1277}#
+                                            (#{gen-labels\ 325}#
+                                              #{ids\ 1274}#)))
+                                      (let ((#{new-w\ 1279}#
+                                              (#{make-binding-wrap\ 354}#
+                                                #{ids\ 1274}#
+                                                #{labels\ 1277}#
+                                                #{w\ 1250}#)))
+                                        (#{k\ 1253}#
+                                          (cons #{e1\ 1271}# #{e2\ 1272}#)
+                                          (#{extend-env\ 295}#
+                                            #{labels\ 1277}#
+                                            (let ((#{w\ 1283}#
+                                                    (if #{rec?\ 1247}#
+                                                      #{new-w\ 1279}#
+                                                      #{w\ 1250}#))
+                                                  (#{trans-r\ 1284}#
+                                                    (#{macros-only-env\ 299}#
+                                                      #{r\ 1249}#)))
+                                              (map (lambda (#{x\ 1285}#)
                                                      (cons 'macro
-                                                           
(#{eval-local-transformer\ 13013}#
-                                                             (#{chi\ 13001}#
-                                                               #{x\ 13894}#
-                                                               #{trans-r\ 
13893}#
-                                                               #{w\ 13892}#
-                                                               #{mod\ 13861}#)
-                                                             #{mod\ 13861}#)))
-                                                   #{val\ 13879}#))
-                                            #{r\ 13858}#)
-                                          #{new-w\ 13888}#
-                                          #{s\ 13860}#
-                                          #{mod\ 13861}#))))))
-                              #{tmp\ 13871}#)
-                       ((lambda (#{_\ 13899}#)
+                                                           
(#{eval-local-transformer\ 404}#
+                                                             (#{chi\ 392}#
+                                                               #{x\ 1285}#
+                                                               #{trans-r\ 
1284}#
+                                                               #{w\ 1283}#
+                                                               #{mod\ 1252}#)
+                                                             #{mod\ 1252}#)))
+                                                   #{val\ 1270}#))
+                                            #{r\ 1249}#)
+                                          #{new-w\ 1279}#
+                                          #{s\ 1251}#
+                                          #{mod\ 1252}#))))))
+                              #{tmp\ 1262}#)
+                       ((lambda (#{_\ 1290}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 12987}#
-                              #{e\ 13857}#
-                              #{w\ 13859}#
-                              #{s\ 13860}#
-                              #{mod\ 13861}#)))
-                        #{tmp\ 13870}#)))
+                            (#{source-wrap\ 378}#
+                              #{e\ 1248}#
+                              #{w\ 1250}#
+                              #{s\ 1251}#
+                              #{mod\ 1252}#)))
+                        #{tmp\ 1261}#)))
                    ($sc-dispatch
-                     #{tmp\ 13870}#
+                     #{tmp\ 1261}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 13857}#)))
-           (#{chi-body\ 13009}#
-             (lambda (#{body\ 13900}#
-                      #{outer-form\ 13901}#
-                      #{r\ 13902}#
-                      #{w\ 13903}#
-                      #{mod\ 13904}#)
-               (let ((#{r\ 13912}#
+                #{e\ 1248}#)))
+           (#{chi-body\ 400}#
+             (lambda (#{body\ 1291}#
+                      #{outer-form\ 1292}#
+                      #{r\ 1293}#
+                      #{w\ 1294}#
+                      #{mod\ 1295}#)
+               (let ((#{r\ 1303}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 13902}#)))
-                 (let ((#{ribcage\ 13914}#
-                         (#{make-ribcage\ 12937}#
+                             #{r\ 1293}#)))
+                 (let ((#{ribcage\ 1305}#
+                         (#{make-ribcage\ 328}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 13917}#
-                           (#{make-wrap\ 12921}#
-                             (#{wrap-marks\ 12923}# #{w\ 13903}#)
-                             (cons #{ribcage\ 13914}#
-                                   (#{wrap-subst\ 12925}# #{w\ 13903}#)))))
-                     (letrec ((#{parse\ 13926}#
-                                (lambda (#{body\ 13927}#
-                                         #{ids\ 13928}#
-                                         #{labels\ 13929}#
-                                         #{var-ids\ 13930}#
-                                         #{vars\ 13931}#
-                                         #{vals\ 13932}#
-                                         #{bindings\ 13933}#)
-                                  (if (null? #{body\ 13927}#)
+                   (let ((#{w\ 1308}#
+                           (#{make-wrap\ 312}#
+                             (#{wrap-marks\ 314}# #{w\ 1294}#)
+                             (cons #{ribcage\ 1305}#
+                                   (#{wrap-subst\ 316}# #{w\ 1294}#)))))
+                     (letrec ((#{parse\ 1317}#
+                                (lambda (#{body\ 1318}#
+                                         #{ids\ 1319}#
+                                         #{labels\ 1320}#
+                                         #{var-ids\ 1321}#
+                                         #{vars\ 1322}#
+                                         #{vals\ 1323}#
+                                         #{bindings\ 1324}#)
+                                  (if (null? #{body\ 1318}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 13901}#)
-                                    (let ((#{e\ 13938}# (cdar #{body\ 13927}#))
-                                          (#{er\ 13939}#
-                                            (caar #{body\ 13927}#)))
+                                      #{outer-form\ 1292}#)
+                                    (let ((#{e\ 1329}# (cdar #{body\ 1318}#))
+                                          (#{er\ 1330}# (caar #{body\ 1318}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 12997}#
-                                            #{e\ 13938}#
-                                            #{er\ 13939}#
+                                          (#{syntax-type\ 388}#
+                                            #{e\ 1329}#
+                                            #{er\ 1330}#
                                             '(())
-                                            (#{source-annotation\ 12895}#
-                                              #{er\ 13939}#)
-                                            #{ribcage\ 13914}#
-                                            #{mod\ 13904}#
+                                            (#{source-annotation\ 286}#
+                                              #{er\ 1330}#)
+                                            #{ribcage\ 1305}#
+                                            #{mod\ 1295}#
                                             #f))
-                                        (lambda (#{type\ 13941}#
-                                                 #{value\ 13942}#
-                                                 #{e\ 13943}#
-                                                 #{w\ 13944}#
-                                                 #{s\ 13945}#
-                                                 #{mod\ 13946}#)
-                                          (if (memv #{type\ 13941}#
+                                        (lambda (#{type\ 1332}#
+                                                 #{value\ 1333}#
+                                                 #{e\ 1334}#
+                                                 #{w\ 1335}#
+                                                 #{s\ 1336}#
+                                                 #{mod\ 1337}#)
+                                          (if (memv #{type\ 1332}#
                                                     '(define-form))
-                                            (let ((#{id\ 13956}#
-                                                    (#{wrap\ 12985}#
-                                                      #{value\ 13942}#
-                                                      #{w\ 13944}#
-                                                      #{mod\ 13946}#))
-                                                  (#{label\ 13957}#
-                                                    (#{gen-label\ 12932}#)))
-                                              (let ((#{var\ 13959}#
-                                                      (#{gen-var\ 13029}#
-                                                        #{id\ 13956}#)))
+                                            (let ((#{id\ 1347}#
+                                                    (#{wrap\ 376}#
+                                                      #{value\ 1333}#
+                                                      #{w\ 1335}#
+                                                      #{mod\ 1337}#))
+                                                  (#{label\ 1348}#
+                                                    (#{gen-label\ 323}#)))
+                                              (let ((#{var\ 1350}#
+                                                      (#{gen-var\ 420}#
+                                                        #{id\ 1347}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 12961}#
-                                                    #{ribcage\ 13914}#
-                                                    #{id\ 13956}#
-                                                    #{label\ 13957}#)
-                                                  (#{parse\ 13926}#
-                                                    (cdr #{body\ 13927}#)
-                                                    (cons #{id\ 13956}#
-                                                          #{ids\ 13928}#)
-                                                    (cons #{label\ 13957}#
-                                                          #{labels\ 13929}#)
-                                                    (cons #{id\ 13956}#
-                                                          #{var-ids\ 13930}#)
-                                                    (cons #{var\ 13959}#
-                                                          #{vars\ 13931}#)
-                                                    (cons (cons #{er\ 13939}#
-                                                                (#{wrap\ 
12985}#
-                                                                  #{e\ 13943}#
-                                                                  #{w\ 13944}#
-                                                                  #{mod\ 
13946}#))
-                                                          #{vals\ 13932}#)
+                                                  (#{extend-ribcage!\ 352}#
+                                                    #{ribcage\ 1305}#
+                                                    #{id\ 1347}#
+                                                    #{label\ 1348}#)
+                                                  (#{parse\ 1317}#
+                                                    (cdr #{body\ 1318}#)
+                                                    (cons #{id\ 1347}#
+                                                          #{ids\ 1319}#)
+                                                    (cons #{label\ 1348}#
+                                                          #{labels\ 1320}#)
+                                                    (cons #{id\ 1347}#
+                                                          #{var-ids\ 1321}#)
+                                                    (cons #{var\ 1350}#
+                                                          #{vars\ 1322}#)
+                                                    (cons (cons #{er\ 1330}#
+                                                                (#{wrap\ 376}#
+                                                                  #{e\ 1334}#
+                                                                  #{w\ 1335}#
+                                                                  #{mod\ 
1337}#))
+                                                          #{vals\ 1323}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 13959}#)
-                                                          #{bindings\ 
13933}#)))))
-                                            (if (memv #{type\ 13941}#
+                                                                #{var\ 1350}#)
+                                                          #{bindings\ 
1324}#)))))
+                                            (if (memv #{type\ 1332}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 13964}#
-                                                      (#{wrap\ 12985}#
-                                                        #{value\ 13942}#
-                                                        #{w\ 13944}#
-                                                        #{mod\ 13946}#))
-                                                    (#{label\ 13965}#
-                                                      (#{gen-label\ 12932}#)))
+                                              (let ((#{id\ 1355}#
+                                                      (#{wrap\ 376}#
+                                                        #{value\ 1333}#
+                                                        #{w\ 1335}#
+                                                        #{mod\ 1337}#))
+                                                    (#{label\ 1356}#
+                                                      (#{gen-label\ 323}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 12961}#
-                                                    #{ribcage\ 13914}#
-                                                    #{id\ 13964}#
-                                                    #{label\ 13965}#)
-                                                  (#{parse\ 13926}#
-                                                    (cdr #{body\ 13927}#)
-                                                    (cons #{id\ 13964}#
-                                                          #{ids\ 13928}#)
-                                                    (cons #{label\ 13965}#
-                                                          #{labels\ 13929}#)
-                                                    #{var-ids\ 13930}#
-                                                    #{vars\ 13931}#
-                                                    #{vals\ 13932}#
+                                                  (#{extend-ribcage!\ 352}#
+                                                    #{ribcage\ 1305}#
+                                                    #{id\ 1355}#
+                                                    #{label\ 1356}#)
+                                                  (#{parse\ 1317}#
+                                                    (cdr #{body\ 1318}#)
+                                                    (cons #{id\ 1355}#
+                                                          #{ids\ 1319}#)
+                                                    (cons #{label\ 1356}#
+                                                          #{labels\ 1320}#)
+                                                    #{var-ids\ 1321}#
+                                                    #{vars\ 1322}#
+                                                    #{vals\ 1323}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
13939}#
-                                                                      (#{wrap\ 
12985}#
-                                                                        #{e\ 
13943}#
-                                                                        #{w\ 
13944}#
-                                                                        #{mod\ 
13946}#)))
-                                                          #{bindings\ 
13933}#))))
-                                              (if (memv #{type\ 13941}#
+                                                                (cons #{er\ 
1330}#
+                                                                      (#{wrap\ 
376}#
+                                                                        #{e\ 
1334}#
+                                                                        #{w\ 
1335}#
+                                                                        #{mod\ 
1337}#)))
+                                                          #{bindings\ 
1324}#))))
+                                              (if (memv #{type\ 1332}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 13968}#)
-                                                   ((lambda (#{tmp\ 13969}#)
-                                                      (if #{tmp\ 13969}#
-                                                        (apply (lambda (#{_\ 
13972}#
-                                                                        #{e1\ 
13973}#)
-                                                                 (#{parse\ 
13926}#
-                                                                   (letrec 
((#{f\ 13976}#
-                                                                              
(lambda (#{forms\ 13977}#)
-                                                                               
 (if (null? #{forms\ 13977}#)
-                                                                               
   (cdr #{body\ 13927}#)
-                                                                               
   (cons (cons #{er\ 13939}#
-                                                                               
               (#{wrap\ 12985}#
-                                                                               
                 (car #{forms\ 13977}#)
-                                                                               
                 #{w\ 13944}#
-                                                                               
                 #{mod\ 13946}#))
-                                                                               
         (#{f\ 13976}#
-                                                                               
           (cdr #{forms\ 13977}#)))))))
-                                                                     (#{f\ 
13976}#
-                                                                       #{e1\ 
13973}#))
-                                                                   #{ids\ 
13928}#
-                                                                   #{labels\ 
13929}#
-                                                                   #{var-ids\ 
13930}#
-                                                                   #{vars\ 
13931}#
-                                                                   #{vals\ 
13932}#
-                                                                   #{bindings\ 
13933}#))
-                                                               #{tmp\ 13969}#)
+                                                ((lambda (#{tmp\ 1359}#)
+                                                   ((lambda (#{tmp\ 1360}#)
+                                                      (if #{tmp\ 1360}#
+                                                        (apply (lambda (#{_\ 
1363}#
+                                                                        #{e1\ 
1364}#)
+                                                                 (#{parse\ 
1317}#
+                                                                   (letrec 
((#{f\ 1367}#
+                                                                              
(lambda (#{forms\ 1368}#)
+                                                                               
 (if (null? #{forms\ 1368}#)
+                                                                               
   (cdr #{body\ 1318}#)
+                                                                               
   (cons (cons #{er\ 1330}#
+                                                                               
               (#{wrap\ 376}#
+                                                                               
                 (car #{forms\ 1368}#)
+                                                                               
                 #{w\ 1335}#
+                                                                               
                 #{mod\ 1337}#))
+                                                                               
         (#{f\ 1367}#
+                                                                               
           (cdr #{forms\ 1368}#)))))))
+                                                                     (#{f\ 
1367}#
+                                                                       #{e1\ 
1364}#))
+                                                                   #{ids\ 
1319}#
+                                                                   #{labels\ 
1320}#
+                                                                   #{var-ids\ 
1321}#
+                                                                   #{vars\ 
1322}#
+                                                                   #{vals\ 
1323}#
+                                                                   #{bindings\ 
1324}#))
+                                                               #{tmp\ 1360}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 13968}#)))
+                                                          #{tmp\ 1359}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 13968}#
+                                                      #{tmp\ 1359}#
                                                       '(any . each-any))))
-                                                 #{e\ 13943}#)
-                                                (if (memv #{type\ 13941}#
+                                                 #{e\ 1334}#)
+                                                (if (memv #{type\ 1332}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 13011}#
-                                                    #{value\ 13942}#
-                                                    #{e\ 13943}#
-                                                    #{er\ 13939}#
-                                                    #{w\ 13944}#
-                                                    #{s\ 13945}#
-                                                    #{mod\ 13946}#
-                                                    (lambda (#{forms\ 13980}#
-                                                             #{er\ 13981}#
-                                                             #{w\ 13982}#
-                                                             #{s\ 13983}#
-                                                             #{mod\ 13984}#)
-                                                      (#{parse\ 13926}#
-                                                        (letrec ((#{f\ 13992}#
-                                                                   (lambda 
(#{forms\ 13993}#)
-                                                                     (if 
(null? #{forms\ 13993}#)
-                                                                       (cdr 
#{body\ 13927}#)
-                                                                       (cons 
(cons #{er\ 13981}#
-                                                                               
    (#{wrap\ 12985}#
-                                                                               
      (car #{forms\ 13993}#)
-                                                                               
      #{w\ 13982}#
-                                                                               
      #{mod\ 13984}#))
-                                                                             
(#{f\ 13992}#
-                                                                               
(cdr #{forms\ 13993}#)))))))
-                                                          (#{f\ 13992}#
-                                                            #{forms\ 13980}#))
-                                                        #{ids\ 13928}#
-                                                        #{labels\ 13929}#
-                                                        #{var-ids\ 13930}#
-                                                        #{vars\ 13931}#
-                                                        #{vals\ 13932}#
-                                                        #{bindings\ 13933}#)))
-                                                  (if (null? #{ids\ 13928}#)
-                                                    (#{build-sequence\ 12868}#
+                                                  (#{chi-local-syntax\ 402}#
+                                                    #{value\ 1333}#
+                                                    #{e\ 1334}#
+                                                    #{er\ 1330}#
+                                                    #{w\ 1335}#
+                                                    #{s\ 1336}#
+                                                    #{mod\ 1337}#
+                                                    (lambda (#{forms\ 1371}#
+                                                             #{er\ 1372}#
+                                                             #{w\ 1373}#
+                                                             #{s\ 1374}#
+                                                             #{mod\ 1375}#)
+                                                      (#{parse\ 1317}#
+                                                        (letrec ((#{f\ 1383}#
+                                                                   (lambda 
(#{forms\ 1384}#)
+                                                                     (if 
(null? #{forms\ 1384}#)
+                                                                       (cdr 
#{body\ 1318}#)
+                                                                       (cons 
(cons #{er\ 1372}#
+                                                                               
    (#{wrap\ 376}#
+                                                                               
      (car #{forms\ 1384}#)
+                                                                               
      #{w\ 1373}#
+                                                                               
      #{mod\ 1375}#))
+                                                                             
(#{f\ 1383}#
+                                                                               
(cdr #{forms\ 1384}#)))))))
+                                                          (#{f\ 1383}#
+                                                            #{forms\ 1371}#))
+                                                        #{ids\ 1319}#
+                                                        #{labels\ 1320}#
+                                                        #{var-ids\ 1321}#
+                                                        #{vars\ 1322}#
+                                                        #{vals\ 1323}#
+                                                        #{bindings\ 1324}#)))
+                                                  (if (null? #{ids\ 1319}#)
+                                                    (#{build-sequence\ 259}#
                                                       #f
-                                                      (map (lambda (#{x\ 
13996}#)
-                                                             (#{chi\ 13001}#
-                                                               (cdr #{x\ 
13996}#)
-                                                               (car #{x\ 
13996}#)
+                                                      (map (lambda (#{x\ 
1387}#)
+                                                             (#{chi\ 392}#
+                                                               (cdr #{x\ 
1387}#)
+                                                               (car #{x\ 
1387}#)
                                                                '(())
-                                                               #{mod\ 13946}#))
-                                                           (cons (cons #{er\ 
13939}#
-                                                                       
(#{source-wrap\ 12987}#
-                                                                         #{e\ 
13943}#
-                                                                         #{w\ 
13944}#
-                                                                         #{s\ 
13945}#
-                                                                         
#{mod\ 13946}#))
-                                                                 (cdr #{body\ 
13927}#))))
+                                                               #{mod\ 1337}#))
+                                                           (cons (cons #{er\ 
1330}#
+                                                                       
(#{source-wrap\ 378}#
+                                                                         #{e\ 
1334}#
+                                                                         #{w\ 
1335}#
+                                                                         #{s\ 
1336}#
+                                                                         
#{mod\ 1337}#))
+                                                                 (cdr #{body\ 
1318}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 12979}#
-                                                                 #{ids\ 
13928}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 370}#
+                                                                 #{ids\ 
1319}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
13901}#))
-                                                      (letrec ((#{loop\ 14003}#
-                                                                 (lambda 
(#{bs\ 14004}#
-                                                                          
#{er-cache\ 14005}#
-                                                                          
#{r-cache\ 14006}#)
-                                                                   (if (not 
(null? #{bs\ 14004}#))
-                                                                     (let 
((#{b\ 14009}#
-                                                                             
(car #{bs\ 14004}#)))
-                                                                       (if 
(eq? (car #{b\ 14009}#)
+                                                          #{outer-form\ 
1292}#))
+                                                      (letrec ((#{loop\ 1394}#
+                                                                 (lambda 
(#{bs\ 1395}#
+                                                                          
#{er-cache\ 1396}#
+                                                                          
#{r-cache\ 1397}#)
+                                                                   (if (not 
(null? #{bs\ 1395}#))
+                                                                     (let 
((#{b\ 1400}#
+                                                                             
(car #{bs\ 1395}#)))
+                                                                       (if 
(eq? (car #{b\ 1400}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 14012}#
-                                                                               
  (cadr #{b\ 14009}#)))
-                                                                           
(let ((#{r-cache\ 14014}#
-                                                                               
    (if (eq? #{er\ 14012}#
-                                                                               
             #{er-cache\ 14005}#)
-                                                                               
      #{r-cache\ 14006}#
-                                                                               
      (#{macros-only-env\ 12908}#
-                                                                               
        #{er\ 14012}#))))
+                                                                         (let 
((#{er\ 1403}#
+                                                                               
  (cadr #{b\ 1400}#)))
+                                                                           
(let ((#{r-cache\ 1405}#
+                                                                               
    (if (eq? #{er\ 1403}#
+                                                                               
             #{er-cache\ 1396}#)
+                                                                               
      #{r-cache\ 1397}#
+                                                                               
      (#{macros-only-env\ 299}#
+                                                                               
        #{er\ 1403}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 14009}#
-                                                                               
  (#{eval-local-transformer\ 13013}#
-                                                                               
    (#{chi\ 13001}#
-                                                                               
      (cddr #{b\ 14009}#)
-                                                                               
      #{r-cache\ 14014}#
+                                                                               
  #{b\ 1400}#
+                                                                               
  (#{eval-local-transformer\ 404}#
+                                                                               
    (#{chi\ 392}#
+                                                                               
      (cddr #{b\ 1400}#)
+                                                                               
      #{r-cache\ 1405}#
                                                                                
      '(())
-                                                                               
      #{mod\ 13946}#)
-                                                                               
    #{mod\ 13946}#))
-                                                                               
(#{loop\ 14003}#
-                                                                               
  (cdr #{bs\ 14004}#)
-                                                                               
  #{er\ 14012}#
-                                                                               
  #{r-cache\ 14014}#))))
-                                                                         
(#{loop\ 14003}#
-                                                                           
(cdr #{bs\ 14004}#)
-                                                                           
#{er-cache\ 14005}#
-                                                                           
#{r-cache\ 14006}#)))))))
-                                                        (#{loop\ 14003}#
-                                                          #{bindings\ 13933}#
+                                                                               
      #{mod\ 1337}#)
+                                                                               
    #{mod\ 1337}#))
+                                                                               
(#{loop\ 1394}#
+                                                                               
  (cdr #{bs\ 1395}#)
+                                                                               
  #{er\ 1403}#
+                                                                               
  #{r-cache\ 1405}#))))
+                                                                         
(#{loop\ 1394}#
+                                                                           
(cdr #{bs\ 1395}#)
+                                                                           
#{er-cache\ 1396}#
+                                                                           
#{r-cache\ 1397}#)))))))
+                                                        (#{loop\ 1394}#
+                                                          #{bindings\ 1324}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 13912}#
-                                                        (#{extend-env\ 12904}#
-                                                          #{labels\ 13929}#
-                                                          #{bindings\ 13933}#
-                                                          (cdr #{r\ 13912}#)))
-                                                      (#{build-letrec\ 12874}#
+                                                        #{r\ 1303}#
+                                                        (#{extend-env\ 295}#
+                                                          #{labels\ 1320}#
+                                                          #{bindings\ 1324}#
+                                                          (cdr #{r\ 1303}#)))
+                                                      (#{build-letrec\ 265}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 
13930}#)
-                                                        #{vars\ 13931}#
-                                                        (map (lambda (#{x\ 
14017}#)
-                                                               (#{chi\ 13001}#
-                                                                 (cdr #{x\ 
14017}#)
-                                                                 (car #{x\ 
14017}#)
+                                                             #{var-ids\ 1321}#)
+                                                        #{vars\ 1322}#
+                                                        (map (lambda (#{x\ 
1408}#)
+                                                               (#{chi\ 392}#
+                                                                 (cdr #{x\ 
1408}#)
+                                                                 (car #{x\ 
1408}#)
                                                                  '(())
-                                                                 #{mod\ 
13946}#))
-                                                             #{vals\ 13932}#)
-                                                        (#{build-sequence\ 
12868}#
+                                                                 #{mod\ 
1337}#))
+                                                             #{vals\ 1323}#)
+                                                        (#{build-sequence\ 
259}#
                                                           #f
-                                                          (map (lambda (#{x\ 
14021}#)
-                                                                 (#{chi\ 
13001}#
-                                                                   (cdr #{x\ 
14021}#)
-                                                                   (car #{x\ 
14021}#)
+                                                          (map (lambda (#{x\ 
1412}#)
+                                                                 (#{chi\ 392}#
+                                                                   (cdr #{x\ 
1412}#)
+                                                                   (car #{x\ 
1412}#)
                                                                    '(())
-                                                                   #{mod\ 
13946}#))
-                                                               (cons (cons 
#{er\ 13939}#
-                                                                           
(#{source-wrap\ 12987}#
-                                                                             
#{e\ 13943}#
-                                                                             
#{w\ 13944}#
-                                                                             
#{s\ 13945}#
-                                                                             
#{mod\ 13946}#))
-                                                                     (cdr 
#{body\ 13927}#))))))))))))))))))
-                       (#{parse\ 13926}#
-                         (map (lambda (#{x\ 13934}#)
-                                (cons #{r\ 13912}#
-                                      (#{wrap\ 12985}#
-                                        #{x\ 13934}#
-                                        #{w\ 13917}#
-                                        #{mod\ 13904}#)))
-                              #{body\ 13900}#)
+                                                                   #{mod\ 
1337}#))
+                                                               (cons (cons 
#{er\ 1330}#
+                                                                           
(#{source-wrap\ 378}#
+                                                                             
#{e\ 1334}#
+                                                                             
#{w\ 1335}#
+                                                                             
#{s\ 1336}#
+                                                                             
#{mod\ 1337}#))
+                                                                     (cdr 
#{body\ 1318}#))))))))))))))))))
+                       (#{parse\ 1317}#
+                         (map (lambda (#{x\ 1325}#)
+                                (cons #{r\ 1303}#
+                                      (#{wrap\ 376}#
+                                        #{x\ 1325}#
+                                        #{w\ 1308}#
+                                        #{mod\ 1295}#)))
+                              #{body\ 1291}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 13007}#
-             (lambda (#{p\ 14024}#
-                      #{e\ 14025}#
-                      #{r\ 14026}#
-                      #{w\ 14027}#
-                      #{rib\ 14028}#
-                      #{mod\ 14029}#)
-               (letrec ((#{rebuild-macro-output\ 14037}#
-                          (lambda (#{x\ 14038}# #{m\ 14039}#)
-                            (if (pair? #{x\ 14038}#)
-                              (cons (#{rebuild-macro-output\ 14037}#
-                                      (car #{x\ 14038}#)
-                                      #{m\ 14039}#)
-                                    (#{rebuild-macro-output\ 14037}#
-                                      (cdr #{x\ 14038}#)
-                                      #{m\ 14039}#))
-                              (if (#{syntax-object?\ 12880}# #{x\ 14038}#)
-                                (let ((#{w\ 14047}#
-                                        (#{syntax-object-wrap\ 12884}#
-                                          #{x\ 14038}#)))
-                                  (let ((#{ms\ 14050}#
-                                          (#{wrap-marks\ 12923}# #{w\ 14047}#))
-                                        (#{s\ 14051}#
-                                          (#{wrap-subst\ 12925}#
-                                            #{w\ 14047}#)))
-                                    (if (if (pair? #{ms\ 14050}#)
-                                          (eq? (car #{ms\ 14050}#) #f)
+           (#{chi-macro\ 398}#
+             (lambda (#{p\ 1415}#
+                      #{e\ 1416}#
+                      #{r\ 1417}#
+                      #{w\ 1418}#
+                      #{rib\ 1419}#
+                      #{mod\ 1420}#)
+               (letrec ((#{rebuild-macro-output\ 1428}#
+                          (lambda (#{x\ 1429}# #{m\ 1430}#)
+                            (if (pair? #{x\ 1429}#)
+                              (cons (#{rebuild-macro-output\ 1428}#
+                                      (car #{x\ 1429}#)
+                                      #{m\ 1430}#)
+                                    (#{rebuild-macro-output\ 1428}#
+                                      (cdr #{x\ 1429}#)
+                                      #{m\ 1430}#))
+                              (if (#{syntax-object?\ 271}# #{x\ 1429}#)
+                                (let ((#{w\ 1438}#
+                                        (#{syntax-object-wrap\ 275}#
+                                          #{x\ 1429}#)))
+                                  (let ((#{ms\ 1441}#
+                                          (#{wrap-marks\ 314}# #{w\ 1438}#))
+                                        (#{s\ 1442}#
+                                          (#{wrap-subst\ 316}# #{w\ 1438}#)))
+                                    (if (if (pair? #{ms\ 1441}#)
+                                          (eq? (car #{ms\ 1441}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 12878}#
-                                        (#{syntax-object-expression\ 12882}#
-                                          #{x\ 14038}#)
-                                        (#{make-wrap\ 12921}#
-                                          (cdr #{ms\ 14050}#)
-                                          (if #{rib\ 14028}#
-                                            (cons #{rib\ 14028}#
-                                                  (cdr #{s\ 14051}#))
-                                            (cdr #{s\ 14051}#)))
-                                        (#{syntax-object-module\ 12886}#
-                                          #{x\ 14038}#))
-                                      (#{make-syntax-object\ 12878}#
-                                        (#{syntax-object-expression\ 12882}#
-                                          #{x\ 14038}#)
-                                        (#{make-wrap\ 12921}#
-                                          (cons #{m\ 14039}# #{ms\ 14050}#)
-                                          (if #{rib\ 14028}#
-                                            (cons #{rib\ 14028}#
+                                      (#{make-syntax-object\ 269}#
+                                        (#{syntax-object-expression\ 273}#
+                                          #{x\ 1429}#)
+                                        (#{make-wrap\ 312}#
+                                          (cdr #{ms\ 1441}#)
+                                          (if #{rib\ 1419}#
+                                            (cons #{rib\ 1419}#
+                                                  (cdr #{s\ 1442}#))
+                                            (cdr #{s\ 1442}#)))
+                                        (#{syntax-object-module\ 277}#
+                                          #{x\ 1429}#))
+                                      (#{make-syntax-object\ 269}#
+                                        (#{syntax-object-expression\ 273}#
+                                          #{x\ 1429}#)
+                                        (#{make-wrap\ 312}#
+                                          (cons #{m\ 1430}# #{ms\ 1441}#)
+                                          (if #{rib\ 1419}#
+                                            (cons #{rib\ 1419}#
                                                   (cons 'shift
-                                                        #{s\ 14051}#))
-                                            (cons (quote shift) #{s\ 14051}#)))
+                                                        #{s\ 1442}#))
+                                            (cons (quote shift) #{s\ 1442}#)))
                                         (cons 'hygiene
-                                              (cdr #{p\ 14024}#))))))
-                                (if (vector? #{x\ 14038}#)
-                                  (let ((#{n\ 14059}#
-                                          (vector-length #{x\ 14038}#)))
-                                    (let ((#{v\ 14061}#
-                                            (make-vector #{n\ 14059}#)))
-                                      (letrec ((#{loop\ 14064}#
-                                                 (lambda (#{i\ 14065}#)
-                                                   (if (#{fx=\ 12821}#
-                                                         #{i\ 14065}#
-                                                         #{n\ 14059}#)
+                                              (cdr #{p\ 1415}#))))))
+                                (if (vector? #{x\ 1429}#)
+                                  (let ((#{n\ 1450}#
+                                          (vector-length #{x\ 1429}#)))
+                                    (let ((#{v\ 1452}#
+                                            (make-vector #{n\ 1450}#)))
+                                      (letrec ((#{loop\ 1455}#
+                                                 (lambda (#{i\ 1456}#)
+                                                   (if (#{fx=\ 212}#
+                                                         #{i\ 1456}#
+                                                         #{n\ 1450}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 14061}#)
+                                                       #{v\ 1452}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 14061}#
-                                                         #{i\ 14065}#
-                                                         
(#{rebuild-macro-output\ 14037}#
+                                                         #{v\ 1452}#
+                                                         #{i\ 1456}#
+                                                         
(#{rebuild-macro-output\ 1428}#
                                                            (vector-ref
-                                                             #{x\ 14038}#
-                                                             #{i\ 14065}#)
-                                                           #{m\ 14039}#))
-                                                       (#{loop\ 14064}#
-                                                         (#{fx+\ 12817}#
-                                                           #{i\ 14065}#
+                                                             #{x\ 1429}#
+                                                             #{i\ 1456}#)
+                                                           #{m\ 1430}#))
+                                                       (#{loop\ 1455}#
+                                                         (#{fx+\ 208}#
+                                                           #{i\ 1456}#
                                                            1)))))))
-                                        (#{loop\ 14064}# 0))))
-                                  (if (symbol? #{x\ 14038}#)
+                                        (#{loop\ 1455}# 0))))
+                                  (if (symbol? #{x\ 1429}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 12987}#
-                                        #{e\ 14025}#
-                                        #{w\ 14027}#
-                                        (#{wrap-subst\ 12925}# #{w\ 14027}#)
-                                        #{mod\ 14029}#)
-                                      #{x\ 14038}#)
-                                    #{x\ 14038}#)))))))
-                 (#{rebuild-macro-output\ 14037}#
-                   ((car #{p\ 14024}#)
-                    (#{wrap\ 12985}#
-                      #{e\ 14025}#
-                      (#{anti-mark\ 12957}# #{w\ 14027}#)
-                      #{mod\ 14029}#))
+                                      (#{source-wrap\ 378}#
+                                        #{e\ 1416}#
+                                        #{w\ 1418}#
+                                        (#{wrap-subst\ 316}# #{w\ 1418}#)
+                                        #{mod\ 1420}#)
+                                      #{x\ 1429}#)
+                                    #{x\ 1429}#)))))))
+                 (#{rebuild-macro-output\ 1428}#
+                   ((car #{p\ 1415}#)
+                    (#{wrap\ 376}#
+                      #{e\ 1416}#
+                      (#{anti-mark\ 348}# #{w\ 1418}#)
+                      #{mod\ 1420}#))
                    (gensym "m")))))
-           (#{chi-application\ 13005}#
-             (lambda (#{x\ 14072}#
-                      #{e\ 14073}#
-                      #{r\ 14074}#
-                      #{w\ 14075}#
-                      #{s\ 14076}#
-                      #{mod\ 14077}#)
-               ((lambda (#{tmp\ 14084}#)
-                  ((lambda (#{tmp\ 14085}#)
-                     (if #{tmp\ 14085}#
-                       (apply (lambda (#{e0\ 14088}# #{e1\ 14089}#)
-                                (#{build-application\ 12838}#
-                                  #{s\ 14076}#
-                                  #{x\ 14072}#
-                                  (map (lambda (#{e\ 14090}#)
-                                         (#{chi\ 13001}#
-                                           #{e\ 14090}#
-                                           #{r\ 14074}#
-                                           #{w\ 14075}#
-                                           #{mod\ 14077}#))
-                                       #{e1\ 14089}#)))
-                              #{tmp\ 14085}#)
+           (#{chi-application\ 396}#
+             (lambda (#{x\ 1463}#
+                      #{e\ 1464}#
+                      #{r\ 1465}#
+                      #{w\ 1466}#
+                      #{s\ 1467}#
+                      #{mod\ 1468}#)
+               ((lambda (#{tmp\ 1475}#)
+                  ((lambda (#{tmp\ 1476}#)
+                     (if #{tmp\ 1476}#
+                       (apply (lambda (#{e0\ 1479}# #{e1\ 1480}#)
+                                (#{build-application\ 229}#
+                                  #{s\ 1467}#
+                                  #{x\ 1463}#
+                                  (map (lambda (#{e\ 1481}#)
+                                         (#{chi\ 392}#
+                                           #{e\ 1481}#
+                                           #{r\ 1465}#
+                                           #{w\ 1466}#
+                                           #{mod\ 1468}#))
+                                       #{e1\ 1480}#)))
+                              #{tmp\ 1476}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 14084}#)))
+                         #{tmp\ 1475}#)))
                    ($sc-dispatch
-                     #{tmp\ 14084}#
+                     #{tmp\ 1475}#
                      '(any . each-any))))
-                #{e\ 14073}#)))
-           (#{chi-expr\ 13003}#
-             (lambda (#{type\ 14093}#
-                      #{value\ 14094}#
-                      #{e\ 14095}#
-                      #{r\ 14096}#
-                      #{w\ 14097}#
-                      #{s\ 14098}#
-                      #{mod\ 14099}#)
-               (if (memv #{type\ 14093}# (quote (lexical)))
-                 (#{build-lexical-reference\ 12844}#
+                #{e\ 1464}#)))
+           (#{chi-expr\ 394}#
+             (lambda (#{type\ 1484}#
+                      #{value\ 1485}#
+                      #{e\ 1486}#
+                      #{r\ 1487}#
+                      #{w\ 1488}#
+                      #{s\ 1489}#
+                      #{mod\ 1490}#)
+               (if (memv #{type\ 1484}# (quote (lexical)))
+                 (#{build-lexical-reference\ 235}#
                    'value
-                   #{s\ 14098}#
-                   #{e\ 14095}#
-                   #{value\ 14094}#)
-                 (if (memv #{type\ 14093}# (quote (core core-form)))
-                   (#{value\ 14094}#
-                     #{e\ 14095}#
-                     #{r\ 14096}#
-                     #{w\ 14097}#
-                     #{s\ 14098}#
-                     #{mod\ 14099}#)
-                   (if (memv #{type\ 14093}# (quote (module-ref)))
+                   #{s\ 1489}#
+                   #{e\ 1486}#
+                   #{value\ 1485}#)
+                 (if (memv #{type\ 1484}# (quote (core core-form)))
+                   (#{value\ 1485}#
+                     #{e\ 1486}#
+                     #{r\ 1487}#
+                     #{w\ 1488}#
+                     #{s\ 1489}#
+                     #{mod\ 1490}#)
+                   (if (memv #{type\ 1484}# (quote (module-ref)))
                      (call-with-values
                        (lambda ()
-                         (#{value\ 14094}#
-                           #{e\ 14095}#
-                           #{r\ 14096}#
-                           #{w\ 14097}#))
-                       (lambda (#{e\ 14110}#
-                                #{r\ 14111}#
-                                #{w\ 14112}#
-                                #{s\ 14113}#
-                                #{mod\ 14114}#)
-                         (#{chi\ 13001}#
-                           #{e\ 14110}#
-                           #{r\ 14111}#
-                           #{w\ 14112}#
-                           #{mod\ 14114}#)))
-                     (if (memv #{type\ 14093}# (quote (lexical-call)))
-                       (#{chi-application\ 13005}#
-                         (#{build-lexical-reference\ 12844}#
+                         (#{value\ 1485}#
+                           #{e\ 1486}#
+                           #{r\ 1487}#
+                           #{w\ 1488}#))
+                       (lambda (#{e\ 1501}#
+                                #{r\ 1502}#
+                                #{w\ 1503}#
+                                #{s\ 1504}#
+                                #{mod\ 1505}#)
+                         (#{chi\ 392}#
+                           #{e\ 1501}#
+                           #{r\ 1502}#
+                           #{w\ 1503}#
+                           #{mod\ 1505}#)))
+                     (if (memv #{type\ 1484}# (quote (lexical-call)))
+                       (#{chi-application\ 396}#
+                         (#{build-lexical-reference\ 235}#
                            'fun
-                           (#{source-annotation\ 12895}# (car #{e\ 14095}#))
-                           (car #{e\ 14095}#)
-                           #{value\ 14094}#)
-                         #{e\ 14095}#
-                         #{r\ 14096}#
-                         #{w\ 14097}#
-                         #{s\ 14098}#
-                         #{mod\ 14099}#)
-                       (if (memv #{type\ 14093}# (quote (global-call)))
-                         (#{chi-application\ 13005}#
-                           (#{build-global-reference\ 12850}#
-                             (#{source-annotation\ 12895}# (car #{e\ 14095}#))
-                             (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
-                               (#{syntax-object-expression\ 12882}#
-                                 #{value\ 14094}#)
-                               #{value\ 14094}#)
-                             (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
-                               (#{syntax-object-module\ 12886}#
-                                 #{value\ 14094}#)
-                               #{mod\ 14099}#))
-                           #{e\ 14095}#
-                           #{r\ 14096}#
-                           #{w\ 14097}#
-                           #{s\ 14098}#
-                           #{mod\ 14099}#)
-                         (if (memv #{type\ 14093}# (quote (constant)))
-                           (#{build-data\ 12866}#
-                             #{s\ 14098}#
-                             (#{strip\ 13027}#
-                               (#{source-wrap\ 12987}#
-                                 #{e\ 14095}#
-                                 #{w\ 14097}#
-                                 #{s\ 14098}#
-                                 #{mod\ 14099}#)
+                           (#{source-annotation\ 286}# (car #{e\ 1486}#))
+                           (car #{e\ 1486}#)
+                           #{value\ 1485}#)
+                         #{e\ 1486}#
+                         #{r\ 1487}#
+                         #{w\ 1488}#
+                         #{s\ 1489}#
+                         #{mod\ 1490}#)
+                       (if (memv #{type\ 1484}# (quote (global-call)))
+                         (#{chi-application\ 396}#
+                           (#{build-global-reference\ 241}#
+                             (#{source-annotation\ 286}# (car #{e\ 1486}#))
+                             (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+                               (#{syntax-object-expression\ 273}#
+                                 #{value\ 1485}#)
+                               #{value\ 1485}#)
+                             (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+                               (#{syntax-object-module\ 277}# #{value\ 1485}#)
+                               #{mod\ 1490}#))
+                           #{e\ 1486}#
+                           #{r\ 1487}#
+                           #{w\ 1488}#
+                           #{s\ 1489}#
+                           #{mod\ 1490}#)
+                         (if (memv #{type\ 1484}# (quote (constant)))
+                           (#{build-data\ 257}#
+                             #{s\ 1489}#
+                             (#{strip\ 418}#
+                               (#{source-wrap\ 378}#
+                                 #{e\ 1486}#
+                                 #{w\ 1488}#
+                                 #{s\ 1489}#
+                                 #{mod\ 1490}#)
                                '(())))
-                           (if (memv #{type\ 14093}# (quote (global)))
-                             (#{build-global-reference\ 12850}#
-                               #{s\ 14098}#
-                               #{value\ 14094}#
-                               #{mod\ 14099}#)
-                             (if (memv #{type\ 14093}# (quote (call)))
-                               (#{chi-application\ 13005}#
-                                 (#{chi\ 13001}#
-                                   (car #{e\ 14095}#)
-                                   #{r\ 14096}#
-                                   #{w\ 14097}#
-                                   #{mod\ 14099}#)
-                                 #{e\ 14095}#
-                                 #{r\ 14096}#
-                                 #{w\ 14097}#
-                                 #{s\ 14098}#
-                                 #{mod\ 14099}#)
-                               (if (memv #{type\ 14093}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 14127}#)
-                                    ((lambda (#{tmp\ 14128}#)
-                                       (if #{tmp\ 14128}#
-                                         (apply (lambda (#{_\ 14132}#
-                                                         #{e1\ 14133}#
-                                                         #{e2\ 14134}#)
-                                                  (#{chi-sequence\ 12989}#
-                                                    (cons #{e1\ 14133}#
-                                                          #{e2\ 14134}#)
-                                                    #{r\ 14096}#
-                                                    #{w\ 14097}#
-                                                    #{s\ 14098}#
-                                                    #{mod\ 14099}#))
-                                                #{tmp\ 14128}#)
+                           (if (memv #{type\ 1484}# (quote (global)))
+                             (#{build-global-reference\ 241}#
+                               #{s\ 1489}#
+                               #{value\ 1485}#
+                               #{mod\ 1490}#)
+                             (if (memv #{type\ 1484}# (quote (call)))
+                               (#{chi-application\ 396}#
+                                 (#{chi\ 392}#
+                                   (car #{e\ 1486}#)
+                                   #{r\ 1487}#
+                                   #{w\ 1488}#
+                                   #{mod\ 1490}#)
+                                 #{e\ 1486}#
+                                 #{r\ 1487}#
+                                 #{w\ 1488}#
+                                 #{s\ 1489}#
+                                 #{mod\ 1490}#)
+                               (if (memv #{type\ 1484}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 1518}#)
+                                    ((lambda (#{tmp\ 1519}#)
+                                       (if #{tmp\ 1519}#
+                                         (apply (lambda (#{_\ 1523}#
+                                                         #{e1\ 1524}#
+                                                         #{e2\ 1525}#)
+                                                  (#{chi-sequence\ 380}#
+                                                    (cons #{e1\ 1524}#
+                                                          #{e2\ 1525}#)
+                                                    #{r\ 1487}#
+                                                    #{w\ 1488}#
+                                                    #{s\ 1489}#
+                                                    #{mod\ 1490}#))
+                                                #{tmp\ 1519}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 14127}#)))
+                                           #{tmp\ 1518}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 14127}#
+                                       #{tmp\ 1518}#
                                        '(any any . each-any))))
-                                  #{e\ 14095}#)
-                                 (if (memv #{type\ 14093}#
+                                  #{e\ 1486}#)
+                                 (if (memv #{type\ 1484}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 13011}#
-                                     #{value\ 14094}#
-                                     #{e\ 14095}#
-                                     #{r\ 14096}#
-                                     #{w\ 14097}#
-                                     #{s\ 14098}#
-                                     #{mod\ 14099}#
-                                     #{chi-sequence\ 12989}#)
-                                   (if (memv #{type\ 14093}#
+                                   (#{chi-local-syntax\ 402}#
+                                     #{value\ 1485}#
+                                     #{e\ 1486}#
+                                     #{r\ 1487}#
+                                     #{w\ 1488}#
+                                     #{s\ 1489}#
+                                     #{mod\ 1490}#
+                                     #{chi-sequence\ 380}#)
+                                   (if (memv #{type\ 1484}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 14138}#)
-                                        ((lambda (#{tmp\ 14139}#)
-                                           (if #{tmp\ 14139}#
-                                             (apply (lambda (#{_\ 14144}#
-                                                             #{x\ 14145}#
-                                                             #{e1\ 14146}#
-                                                             #{e2\ 14147}#)
-                                                      (let ((#{when-list\ 
14149}#
-                                                              
(#{chi-when-list\ 12995}#
-                                                                #{e\ 14095}#
-                                                                #{x\ 14145}#
-                                                                #{w\ 14097}#)))
+                                     ((lambda (#{tmp\ 1529}#)
+                                        ((lambda (#{tmp\ 1530}#)
+                                           (if #{tmp\ 1530}#
+                                             (apply (lambda (#{_\ 1535}#
+                                                             #{x\ 1536}#
+                                                             #{e1\ 1537}#
+                                                             #{e2\ 1538}#)
+                                                      (let ((#{when-list\ 
1540}#
+                                                              
(#{chi-when-list\ 386}#
+                                                                #{e\ 1486}#
+                                                                #{x\ 1536}#
+                                                                #{w\ 1488}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
14149}#)
-                                                          (#{chi-sequence\ 
12989}#
-                                                            (cons #{e1\ 14146}#
-                                                                  #{e2\ 
14147}#)
-                                                            #{r\ 14096}#
-                                                            #{w\ 14097}#
-                                                            #{s\ 14098}#
-                                                            #{mod\ 14099}#)
-                                                          (#{chi-void\ 
13015}#))))
-                                                    #{tmp\ 14139}#)
+                                                                  #{when-list\ 
1540}#)
+                                                          (#{chi-sequence\ 
380}#
+                                                            (cons #{e1\ 1537}#
+                                                                  #{e2\ 1538}#)
+                                                            #{r\ 1487}#
+                                                            #{w\ 1488}#
+                                                            #{s\ 1489}#
+                                                            #{mod\ 1490}#)
+                                                          (#{chi-void\ 
406}#))))
+                                                    #{tmp\ 1530}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 14138}#)))
+                                               #{tmp\ 1529}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 14138}#
+                                           #{tmp\ 1529}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 14095}#)
-                                     (if (memv #{type\ 14093}#
+                                      #{e\ 1486}#)
+                                     (if (memv #{type\ 1484}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 14095}#
-                                         (#{wrap\ 12985}#
-                                           #{value\ 14094}#
-                                           #{w\ 14097}#
-                                           #{mod\ 14099}#))
-                                       (if (memv #{type\ 14093}#
+                                         #{e\ 1486}#
+                                         (#{wrap\ 376}#
+                                           #{value\ 1485}#
+                                           #{w\ 1488}#
+                                           #{mod\ 1490}#))
+                                       (if (memv #{type\ 1484}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 12987}#
-                                             #{e\ 14095}#
-                                             #{w\ 14097}#
-                                             #{s\ 14098}#
-                                             #{mod\ 14099}#))
-                                         (if (memv #{type\ 14093}#
+                                           (#{source-wrap\ 378}#
+                                             #{e\ 1486}#
+                                             #{w\ 1488}#
+                                             #{s\ 1489}#
+                                             #{mod\ 1490}#))
+                                         (if (memv #{type\ 1484}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 12987}#
-                                               #{e\ 14095}#
-                                               #{w\ 14097}#
-                                               #{s\ 14098}#
-                                               #{mod\ 14099}#))
+                                             (#{source-wrap\ 378}#
+                                               #{e\ 1486}#
+                                               #{w\ 1488}#
+                                               #{s\ 1489}#
+                                               #{mod\ 1490}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 12987}#
-                                               #{e\ 14095}#
-                                               #{w\ 14097}#
-                                               #{s\ 14098}#
-                                               #{mod\ 14099}#))))))))))))))))))
-           (#{chi\ 13001}#
-             (lambda (#{e\ 14156}#
-                      #{r\ 14157}#
-                      #{w\ 14158}#
-                      #{mod\ 14159}#)
+                                             (#{source-wrap\ 378}#
+                                               #{e\ 1486}#
+                                               #{w\ 1488}#
+                                               #{s\ 1489}#
+                                               #{mod\ 1490}#))))))))))))))))))
+           (#{chi\ 392}#
+             (lambda (#{e\ 1547}#
+                      #{r\ 1548}#
+                      #{w\ 1549}#
+                      #{mod\ 1550}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 12997}#
-                     #{e\ 14156}#
-                     #{r\ 14157}#
-                     #{w\ 14158}#
-                     (#{source-annotation\ 12895}# #{e\ 14156}#)
+                   (#{syntax-type\ 388}#
+                     #{e\ 1547}#
+                     #{r\ 1548}#
+                     #{w\ 1549}#
+                     (#{source-annotation\ 286}# #{e\ 1547}#)
                      #f
-                     #{mod\ 14159}#
+                     #{mod\ 1550}#
                      #f))
-                 (lambda (#{type\ 14164}#
-                          #{value\ 14165}#
-                          #{e\ 14166}#
-                          #{w\ 14167}#
-                          #{s\ 14168}#
-                          #{mod\ 14169}#)
-                   (#{chi-expr\ 13003}#
-                     #{type\ 14164}#
-                     #{value\ 14165}#
-                     #{e\ 14166}#
-                     #{r\ 14157}#
-                     #{w\ 14167}#
-                     #{s\ 14168}#
-                     #{mod\ 14169}#)))))
-           (#{chi-top\ 12999}#
-             (lambda (#{e\ 14176}#
-                      #{r\ 14177}#
-                      #{w\ 14178}#
-                      #{m\ 14179}#
-                      #{esew\ 14180}#
-                      #{mod\ 14181}#)
+                 (lambda (#{type\ 1555}#
+                          #{value\ 1556}#
+                          #{e\ 1557}#
+                          #{w\ 1558}#
+                          #{s\ 1559}#
+                          #{mod\ 1560}#)
+                   (#{chi-expr\ 394}#
+                     #{type\ 1555}#
+                     #{value\ 1556}#
+                     #{e\ 1557}#
+                     #{r\ 1548}#
+                     #{w\ 1558}#
+                     #{s\ 1559}#
+                     #{mod\ 1560}#)))))
+           (#{chi-top\ 390}#
+             (lambda (#{e\ 1567}#
+                      #{r\ 1568}#
+                      #{w\ 1569}#
+                      #{m\ 1570}#
+                      #{esew\ 1571}#
+                      #{mod\ 1572}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 12997}#
-                     #{e\ 14176}#
-                     #{r\ 14177}#
-                     #{w\ 14178}#
-                     (#{source-annotation\ 12895}# #{e\ 14176}#)
+                   (#{syntax-type\ 388}#
+                     #{e\ 1567}#
+                     #{r\ 1568}#
+                     #{w\ 1569}#
+                     (#{source-annotation\ 286}# #{e\ 1567}#)
                      #f
-                     #{mod\ 14181}#
+                     #{mod\ 1572}#
                      #f))
-                 (lambda (#{type\ 14202}#
-                          #{value\ 14203}#
-                          #{e\ 14204}#
-                          #{w\ 14205}#
-                          #{s\ 14206}#
-                          #{mod\ 14207}#)
-                   (if (memv #{type\ 14202}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 14215}#)
-                        ((lambda (#{tmp\ 14216}#)
-                           (if #{tmp\ 14216}#
-                             (apply (lambda (#{_\ 14218}#)
-                                      (#{chi-void\ 13015}#))
-                                    #{tmp\ 14216}#)
-                             ((lambda (#{tmp\ 14219}#)
-                                (if #{tmp\ 14219}#
-                                  (apply (lambda (#{_\ 14223}#
-                                                  #{e1\ 14224}#
-                                                  #{e2\ 14225}#)
-                                           (#{chi-top-sequence\ 12991}#
-                                             (cons #{e1\ 14224}# #{e2\ 14225}#)
-                                             #{r\ 14177}#
-                                             #{w\ 14205}#
-                                             #{s\ 14206}#
-                                             #{m\ 14179}#
-                                             #{esew\ 14180}#
-                                             #{mod\ 14207}#))
-                                         #{tmp\ 14219}#)
+                 (lambda (#{type\ 1593}#
+                          #{value\ 1594}#
+                          #{e\ 1595}#
+                          #{w\ 1596}#
+                          #{s\ 1597}#
+                          #{mod\ 1598}#)
+                   (if (memv #{type\ 1593}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 1606}#)
+                        ((lambda (#{tmp\ 1607}#)
+                           (if #{tmp\ 1607}#
+                             (apply (lambda (#{_\ 1609}#) (#{chi-void\ 406}#))
+                                    #{tmp\ 1607}#)
+                             ((lambda (#{tmp\ 1610}#)
+                                (if #{tmp\ 1610}#
+                                  (apply (lambda (#{_\ 1614}#
+                                                  #{e1\ 1615}#
+                                                  #{e2\ 1616}#)
+                                           (#{chi-top-sequence\ 382}#
+                                             (cons #{e1\ 1615}# #{e2\ 1616}#)
+                                             #{r\ 1568}#
+                                             #{w\ 1596}#
+                                             #{s\ 1597}#
+                                             #{m\ 1570}#
+                                             #{esew\ 1571}#
+                                             #{mod\ 1598}#))
+                                         #{tmp\ 1610}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 14215}#)))
+                                    #{tmp\ 1606}#)))
                               ($sc-dispatch
-                                #{tmp\ 14215}#
+                                #{tmp\ 1606}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 14215}# (quote (any)))))
-                      #{e\ 14204}#)
-                     (if (memv #{type\ 14202}#
-                               '(local-syntax-form))
-                       (#{chi-local-syntax\ 13011}#
-                         #{value\ 14203}#
-                         #{e\ 14204}#
-                         #{r\ 14177}#
-                         #{w\ 14205}#
-                         #{s\ 14206}#
-                         #{mod\ 14207}#
-                         (lambda (#{body\ 14228}#
-                                  #{r\ 14229}#
-                                  #{w\ 14230}#
-                                  #{s\ 14231}#
-                                  #{mod\ 14232}#)
-                           (#{chi-top-sequence\ 12991}#
-                             #{body\ 14228}#
-                             #{r\ 14229}#
-                             #{w\ 14230}#
-                             #{s\ 14231}#
-                             #{m\ 14179}#
-                             #{esew\ 14180}#
-                             #{mod\ 14232}#)))
-                       (if (memv #{type\ 14202}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 14239}#)
-                            ((lambda (#{tmp\ 14240}#)
-                               (if #{tmp\ 14240}#
-                                 (apply (lambda (#{_\ 14245}#
-                                                 #{x\ 14246}#
-                                                 #{e1\ 14247}#
-                                                 #{e2\ 14248}#)
-                                          (let ((#{when-list\ 14251}#
-                                                  (#{chi-when-list\ 12995}#
-                                                    #{e\ 14204}#
-                                                    #{x\ 14246}#
-                                                    #{w\ 14205}#))
-                                                (#{body\ 14252}#
-                                                  (cons #{e1\ 14247}#
-                                                        #{e2\ 14248}#)))
-                                            (if (eq? #{m\ 14179}# (quote e))
+                         ($sc-dispatch #{tmp\ 1606}# (quote (any)))))
+                      #{e\ 1595}#)
+                     (if (memv #{type\ 1593}# (quote (local-syntax-form)))
+                       (#{chi-local-syntax\ 402}#
+                         #{value\ 1594}#
+                         #{e\ 1595}#
+                         #{r\ 1568}#
+                         #{w\ 1596}#
+                         #{s\ 1597}#
+                         #{mod\ 1598}#
+                         (lambda (#{body\ 1619}#
+                                  #{r\ 1620}#
+                                  #{w\ 1621}#
+                                  #{s\ 1622}#
+                                  #{mod\ 1623}#)
+                           (#{chi-top-sequence\ 382}#
+                             #{body\ 1619}#
+                             #{r\ 1620}#
+                             #{w\ 1621}#
+                             #{s\ 1622}#
+                             #{m\ 1570}#
+                             #{esew\ 1571}#
+                             #{mod\ 1623}#)))
+                       (if (memv #{type\ 1593}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 1630}#)
+                            ((lambda (#{tmp\ 1631}#)
+                               (if #{tmp\ 1631}#
+                                 (apply (lambda (#{_\ 1636}#
+                                                 #{x\ 1637}#
+                                                 #{e1\ 1638}#
+                                                 #{e2\ 1639}#)
+                                          (let ((#{when-list\ 1642}#
+                                                  (#{chi-when-list\ 386}#
+                                                    #{e\ 1595}#
+                                                    #{x\ 1637}#
+                                                    #{w\ 1596}#))
+                                                (#{body\ 1643}#
+                                                  (cons #{e1\ 1638}#
+                                                        #{e2\ 1639}#)))
+                                            (if (eq? #{m\ 1570}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 14251}#)
-                                                (#{chi-top-sequence\ 12991}#
-                                                  #{body\ 14252}#
-                                                  #{r\ 14177}#
-                                                  #{w\ 14205}#
-                                                  #{s\ 14206}#
+                                                        #{when-list\ 1642}#)
+                                                (#{chi-top-sequence\ 382}#
+                                                  #{body\ 1643}#
+                                                  #{r\ 1568}#
+                                                  #{w\ 1596}#
+                                                  #{s\ 1597}#
                                                   (if (memq 'expand
-                                                            #{when-list\ 
14251}#)
+                                                            #{when-list\ 
1642}#)
                                                     'c&e
                                                     'e)
                                                   '(eval)
-                                                  #{mod\ 14207}#)
+                                                  #{mod\ 1598}#)
                                                 (begin
                                                   (if (memq 'expand
-                                                            #{when-list\ 
14251}#)
-                                                    (#{top-level-eval-hook\ 
12825}#
-                                                      (#{chi-top-sequence\ 
12991}#
-                                                        #{body\ 14252}#
-                                                        #{r\ 14177}#
-                                                        #{w\ 14205}#
-                                                        #{s\ 14206}#
+                                                            #{when-list\ 
1642}#)
+                                                    (#{top-level-eval-hook\ 
216}#
+                                                      (#{chi-top-sequence\ 
382}#
+                                                        #{body\ 1643}#
+                                                        #{r\ 1568}#
+                                                        #{w\ 1596}#
+                                                        #{s\ 1597}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 14207}#)
-                                                      #{mod\ 14207}#))
-                                                  (#{chi-void\ 13015}#)))
+                                                        #{mod\ 1598}#)
+                                                      #{mod\ 1598}#))
+                                                  (#{chi-void\ 406}#)))
                                               (if (memq 'load
-                                                        #{when-list\ 14251}#)
-                                                (if (let ((#{t\ 14261}#
+                                                        #{when-list\ 1642}#)
+                                                (if (let ((#{t\ 1652}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
14251}#)))
-                                                      (if #{t\ 14261}#
-                                                        #{t\ 14261}#
-                                                        (let ((#{t\ 14264}#
+                                                                  #{when-list\ 
1642}#)))
+                                                      (if #{t\ 1652}#
+                                                        #{t\ 1652}#
+                                                        (let ((#{t\ 1655}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 14251}#)))
-                                                          (if #{t\ 14264}#
-                                                            #{t\ 14264}#
-                                                            (if (eq? #{m\ 
14179}#
+                                                                      
#{when-list\ 1642}#)))
+                                                          (if #{t\ 1655}#
+                                                            #{t\ 1655}#
+                                                            (if (eq? #{m\ 
1570}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 14251}#)
+                                                                    
#{when-list\ 1642}#)
                                                               #f)))))
-                                                  (#{chi-top-sequence\ 12991}#
-                                                    #{body\ 14252}#
-                                                    #{r\ 14177}#
-                                                    #{w\ 14205}#
-                                                    #{s\ 14206}#
+                                                  (#{chi-top-sequence\ 382}#
+                                                    #{body\ 1643}#
+                                                    #{r\ 1568}#
+                                                    #{w\ 1596}#
+                                                    #{s\ 1597}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 14207}#)
-                                                  (if (memq #{m\ 14179}#
+                                                    #{mod\ 1598}#)
+                                                  (if (memq #{m\ 1570}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 
12991}#
-                                                      #{body\ 14252}#
-                                                      #{r\ 14177}#
-                                                      #{w\ 14205}#
-                                                      #{s\ 14206}#
+                                                    (#{chi-top-sequence\ 382}#
+                                                      #{body\ 1643}#
+                                                      #{r\ 1568}#
+                                                      #{w\ 1596}#
+                                                      #{s\ 1597}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 14207}#)
-                                                    (#{chi-void\ 13015}#)))
-                                                (if (let ((#{t\ 14272}#
+                                                      #{mod\ 1598}#)
+                                                    (#{chi-void\ 406}#)))
+                                                (if (let ((#{t\ 1663}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
14251}#)))
-                                                      (if #{t\ 14272}#
-                                                        #{t\ 14272}#
-                                                        (let ((#{t\ 14275}#
+                                                                  #{when-list\ 
1642}#)))
+                                                      (if #{t\ 1663}#
+                                                        #{t\ 1663}#
+                                                        (let ((#{t\ 1666}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 14251}#)))
-                                                          (if #{t\ 14275}#
-                                                            #{t\ 14275}#
-                                                            (if (eq? #{m\ 
14179}#
+                                                                      
#{when-list\ 1642}#)))
+                                                          (if #{t\ 1666}#
+                                                            #{t\ 1666}#
+                                                            (if (eq? #{m\ 
1570}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 14251}#)
+                                                                    
#{when-list\ 1642}#)
                                                               #f)))))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
12825}#
-                                                      (#{chi-top-sequence\ 
12991}#
-                                                        #{body\ 14252}#
-                                                        #{r\ 14177}#
-                                                        #{w\ 14205}#
-                                                        #{s\ 14206}#
+                                                    (#{top-level-eval-hook\ 
216}#
+                                                      (#{chi-top-sequence\ 
382}#
+                                                        #{body\ 1643}#
+                                                        #{r\ 1568}#
+                                                        #{w\ 1596}#
+                                                        #{s\ 1597}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 14207}#)
-                                                      #{mod\ 14207}#)
-                                                    (#{chi-void\ 13015}#))
-                                                  (#{chi-void\ 13015}#))))))
-                                        #{tmp\ 14240}#)
+                                                        #{mod\ 1598}#)
+                                                      #{mod\ 1598}#)
+                                                    (#{chi-void\ 406}#))
+                                                  (#{chi-void\ 406}#))))))
+                                        #{tmp\ 1631}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 14239}#)))
+                                   #{tmp\ 1630}#)))
                              ($sc-dispatch
-                               #{tmp\ 14239}#
+                               #{tmp\ 1630}#
                                '(any each-any any . each-any))))
-                          #{e\ 14204}#)
-                         (if (memv #{type\ 14202}#
+                          #{e\ 1595}#)
+                         (if (memv #{type\ 1593}#
                                    '(define-syntax-form))
-                           (let ((#{n\ 14283}#
-                                   (#{id-var-name\ 12973}#
-                                     #{value\ 14203}#
-                                     #{w\ 14205}#))
-                                 (#{r\ 14284}#
-                                   (#{macros-only-env\ 12908}# #{r\ 14177}#)))
-                             (if (memv #{m\ 14179}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 14180}#)
-                                 (let ((#{e\ 14287}#
-                                         (#{chi-install-global\ 12993}#
-                                           #{n\ 14283}#
-                                           (#{chi\ 13001}#
-                                             #{e\ 14204}#
-                                             #{r\ 14284}#
-                                             #{w\ 14205}#
-                                             #{mod\ 14207}#))))
+                           (let ((#{n\ 1674}#
+                                   (#{id-var-name\ 364}#
+                                     #{value\ 1594}#
+                                     #{w\ 1596}#))
+                                 (#{r\ 1675}#
+                                   (#{macros-only-env\ 299}# #{r\ 1568}#)))
+                             (if (memv #{m\ 1570}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 1571}#)
+                                 (let ((#{e\ 1678}#
+                                         (#{chi-install-global\ 384}#
+                                           #{n\ 1674}#
+                                           (#{chi\ 392}#
+                                             #{e\ 1595}#
+                                             #{r\ 1675}#
+                                             #{w\ 1596}#
+                                             #{mod\ 1598}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 12825}#
-                                       #{e\ 14287}#
-                                       #{mod\ 14207}#)
-                                     (if (memq (quote load) #{esew\ 14180}#)
-                                       #{e\ 14287}#
-                                       (#{chi-void\ 13015}#))))
-                                 (if (memq (quote load) #{esew\ 14180}#)
-                                   (#{chi-install-global\ 12993}#
-                                     #{n\ 14283}#
-                                     (#{chi\ 13001}#
-                                       #{e\ 14204}#
-                                       #{r\ 14284}#
-                                       #{w\ 14205}#
-                                       #{mod\ 14207}#))
-                                   (#{chi-void\ 13015}#)))
-                               (if (memv #{m\ 14179}# (quote (c&e)))
-                                 (let ((#{e\ 14290}#
-                                         (#{chi-install-global\ 12993}#
-                                           #{n\ 14283}#
-                                           (#{chi\ 13001}#
-                                             #{e\ 14204}#
-                                             #{r\ 14284}#
-                                             #{w\ 14205}#
-                                             #{mod\ 14207}#))))
+                                     (#{top-level-eval-hook\ 216}#
+                                       #{e\ 1678}#
+                                       #{mod\ 1598}#)
+                                     (if (memq (quote load) #{esew\ 1571}#)
+                                       #{e\ 1678}#
+                                       (#{chi-void\ 406}#))))
+                                 (if (memq (quote load) #{esew\ 1571}#)
+                                   (#{chi-install-global\ 384}#
+                                     #{n\ 1674}#
+                                     (#{chi\ 392}#
+                                       #{e\ 1595}#
+                                       #{r\ 1675}#
+                                       #{w\ 1596}#
+                                       #{mod\ 1598}#))
+                                   (#{chi-void\ 406}#)))
+                               (if (memv #{m\ 1570}# (quote (c&e)))
+                                 (let ((#{e\ 1681}#
+                                         (#{chi-install-global\ 384}#
+                                           #{n\ 1674}#
+                                           (#{chi\ 392}#
+                                             #{e\ 1595}#
+                                             #{r\ 1675}#
+                                             #{w\ 1596}#
+                                             #{mod\ 1598}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 12825}#
-                                       #{e\ 14290}#
-                                       #{mod\ 14207}#)
-                                     #{e\ 14290}#))
+                                     (#{top-level-eval-hook\ 216}#
+                                       #{e\ 1681}#
+                                       #{mod\ 1598}#)
+                                     #{e\ 1681}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 14180}#)
-                                     (#{top-level-eval-hook\ 12825}#
-                                       (#{chi-install-global\ 12993}#
-                                         #{n\ 14283}#
-                                         (#{chi\ 13001}#
-                                           #{e\ 14204}#
-                                           #{r\ 14284}#
-                                           #{w\ 14205}#
-                                           #{mod\ 14207}#))
-                                       #{mod\ 14207}#))
-                                   (#{chi-void\ 13015}#)))))
-                           (if (memv #{type\ 14202}# (quote (define-form)))
-                             (let ((#{n\ 14295}#
-                                     (#{id-var-name\ 12973}#
-                                       #{value\ 14203}#
-                                       #{w\ 14205}#)))
-                               (let ((#{type\ 14297}#
-                                       (#{binding-type\ 12899}#
-                                         (#{lookup\ 12910}#
-                                           #{n\ 14295}#
-                                           #{r\ 14177}#
-                                           #{mod\ 14207}#))))
-                                 (if (memv #{type\ 14297}#
+                                   (if (memq (quote eval) #{esew\ 1571}#)
+                                     (#{top-level-eval-hook\ 216}#
+                                       (#{chi-install-global\ 384}#
+                                         #{n\ 1674}#
+                                         (#{chi\ 392}#
+                                           #{e\ 1595}#
+                                           #{r\ 1675}#
+                                           #{w\ 1596}#
+                                           #{mod\ 1598}#))
+                                       #{mod\ 1598}#))
+                                   (#{chi-void\ 406}#)))))
+                           (if (memv #{type\ 1593}# (quote (define-form)))
+                             (let ((#{n\ 1686}#
+                                     (#{id-var-name\ 364}#
+                                       #{value\ 1594}#
+                                       #{w\ 1596}#)))
+                               (let ((#{type\ 1688}#
+                                       (#{binding-type\ 290}#
+                                         (#{lookup\ 301}#
+                                           #{n\ 1686}#
+                                           #{r\ 1568}#
+                                           #{mod\ 1598}#))))
+                                 (if (memv #{type\ 1688}#
                                            '(global core macro module-ref))
                                    (begin
-                                     (if (if (memq #{m\ 14179}#
-                                                   '(c c&e))
+                                     (if (if (memq #{m\ 1570}# (quote (c c&e)))
                                            (if (not (module-local-variable
                                                       (current-module)
-                                                      #{n\ 14295}#))
+                                                      #{n\ 1686}#))
                                              (current-module)
                                              #f)
                                            #f)
-                                       (let ((#{old\ 14303}#
+                                       (let ((#{old\ 1694}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 14295}#)))
+                                                 #{n\ 1686}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 14295}#
-                                           (if (variable? #{old\ 14303}#)
-                                             (variable-ref #{old\ 14303}#)
+                                           #{n\ 1686}#
+                                           (if (variable? #{old\ 1694}#)
+                                             (variable-ref #{old\ 1694}#)
                                              #f))))
-                                     (let ((#{x\ 14306}#
-                                             (#{build-global-definition\ 
12856}#
-                                               #{s\ 14206}#
-                                               #{n\ 14295}#
-                                               (#{chi\ 13001}#
-                                                 #{e\ 14204}#
-                                                 #{r\ 14177}#
-                                                 #{w\ 14205}#
-                                                 #{mod\ 14207}#))))
+                                     (let ((#{x\ 1697}#
+                                             (#{build-global-definition\ 247}#
+                                               #{s\ 1597}#
+                                               #{n\ 1686}#
+                                               (#{chi\ 392}#
+                                                 #{e\ 1595}#
+                                                 #{r\ 1568}#
+                                                 #{w\ 1596}#
+                                                 #{mod\ 1598}#))))
                                        (begin
-                                         (if (eq? #{m\ 14179}# (quote c&e))
-                                           (#{top-level-eval-hook\ 12825}#
-                                             #{x\ 14306}#
-                                             #{mod\ 14207}#))
-                                         #{x\ 14306}#)))
-                                   (if (memv #{type\ 14297}#
+                                         (if (eq? #{m\ 1570}# (quote c&e))
+                                           (#{top-level-eval-hook\ 216}#
+                                             #{x\ 1697}#
+                                             #{mod\ 1598}#))
+                                         #{x\ 1697}#)))
+                                   (if (memv #{type\ 1688}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 14204}#
-                                       (#{wrap\ 12985}#
-                                         #{value\ 14203}#
-                                         #{w\ 14205}#
-                                         #{mod\ 14207}#))
+                                       #{e\ 1595}#
+                                       (#{wrap\ 376}#
+                                         #{value\ 1594}#
+                                         #{w\ 1596}#
+                                         #{mod\ 1598}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 14204}#
-                                       (#{wrap\ 12985}#
-                                         #{value\ 14203}#
-                                         #{w\ 14205}#
-                                         #{mod\ 14207}#))))))
-                             (let ((#{x\ 14312}#
-                                     (#{chi-expr\ 13003}#
-                                       #{type\ 14202}#
-                                       #{value\ 14203}#
-                                       #{e\ 14204}#
-                                       #{r\ 14177}#
-                                       #{w\ 14205}#
-                                       #{s\ 14206}#
-                                       #{mod\ 14207}#)))
+                                       #{e\ 1595}#
+                                       (#{wrap\ 376}#
+                                         #{value\ 1594}#
+                                         #{w\ 1596}#
+                                         #{mod\ 1598}#))))))
+                             (let ((#{x\ 1703}#
+                                     (#{chi-expr\ 394}#
+                                       #{type\ 1593}#
+                                       #{value\ 1594}#
+                                       #{e\ 1595}#
+                                       #{r\ 1568}#
+                                       #{w\ 1596}#
+                                       #{s\ 1597}#
+                                       #{mod\ 1598}#)))
                                (begin
-                                 (if (eq? #{m\ 14179}# (quote c&e))
-                                   (#{top-level-eval-hook\ 12825}#
-                                     #{x\ 14312}#
-                                     #{mod\ 14207}#))
-                                 #{x\ 14312}#)))))))))))
-           (#{syntax-type\ 12997}#
-             (lambda (#{e\ 14313}#
-                      #{r\ 14314}#
-                      #{w\ 14315}#
-                      #{s\ 14316}#
-                      #{rib\ 14317}#
-                      #{mod\ 14318}#
-                      #{for-car?\ 14319}#)
-               (if (symbol? #{e\ 14313}#)
-                 (let ((#{n\ 14331}#
-                         (#{id-var-name\ 12973}#
-                           #{e\ 14313}#
-                           #{w\ 14315}#)))
-                   (let ((#{b\ 14333}#
-                           (#{lookup\ 12910}#
-                             #{n\ 14331}#
-                             #{r\ 14314}#
-                             #{mod\ 14318}#)))
-                     (let ((#{type\ 14335}#
-                             (#{binding-type\ 12899}# #{b\ 14333}#)))
-                       (if (memv #{type\ 14335}# (quote (lexical)))
+                                 (if (eq? #{m\ 1570}# (quote c&e))
+                                   (#{top-level-eval-hook\ 216}#
+                                     #{x\ 1703}#
+                                     #{mod\ 1598}#))
+                                 #{x\ 1703}#)))))))))))
+           (#{syntax-type\ 388}#
+             (lambda (#{e\ 1704}#
+                      #{r\ 1705}#
+                      #{w\ 1706}#
+                      #{s\ 1707}#
+                      #{rib\ 1708}#
+                      #{mod\ 1709}#
+                      #{for-car?\ 1710}#)
+               (if (symbol? #{e\ 1704}#)
+                 (let ((#{n\ 1722}#
+                         (#{id-var-name\ 364}# #{e\ 1704}# #{w\ 1706}#)))
+                   (let ((#{b\ 1724}#
+                           (#{lookup\ 301}#
+                             #{n\ 1722}#
+                             #{r\ 1705}#
+                             #{mod\ 1709}#)))
+                     (let ((#{type\ 1726}#
+                             (#{binding-type\ 290}# #{b\ 1724}#)))
+                       (if (memv #{type\ 1726}# (quote (lexical)))
                          (values
-                           #{type\ 14335}#
-                           (#{binding-value\ 12901}# #{b\ 14333}#)
-                           #{e\ 14313}#
-                           #{w\ 14315}#
-                           #{s\ 14316}#
-                           #{mod\ 14318}#)
-                         (if (memv #{type\ 14335}# (quote (global)))
+                           #{type\ 1726}#
+                           (#{binding-value\ 292}# #{b\ 1724}#)
+                           #{e\ 1704}#
+                           #{w\ 1706}#
+                           #{s\ 1707}#
+                           #{mod\ 1709}#)
+                         (if (memv #{type\ 1726}# (quote (global)))
                            (values
-                             #{type\ 14335}#
-                             #{n\ 14331}#
-                             #{e\ 14313}#
-                             #{w\ 14315}#
-                             #{s\ 14316}#
-                             #{mod\ 14318}#)
-                           (if (memv #{type\ 14335}# (quote (macro)))
-                             (if #{for-car?\ 14319}#
+                             #{type\ 1726}#
+                             #{n\ 1722}#
+                             #{e\ 1704}#
+                             #{w\ 1706}#
+                             #{s\ 1707}#
+                             #{mod\ 1709}#)
+                           (if (memv #{type\ 1726}# (quote (macro)))
+                             (if #{for-car?\ 1710}#
                                (values
-                                 #{type\ 14335}#
-                                 (#{binding-value\ 12901}# #{b\ 14333}#)
-                                 #{e\ 14313}#
-                                 #{w\ 14315}#
-                                 #{s\ 14316}#
-                                 #{mod\ 14318}#)
-                               (#{syntax-type\ 12997}#
-                                 (#{chi-macro\ 13007}#
-                                   (#{binding-value\ 12901}# #{b\ 14333}#)
-                                   #{e\ 14313}#
-                                   #{r\ 14314}#
-                                   #{w\ 14315}#
-                                   #{rib\ 14317}#
-                                   #{mod\ 14318}#)
-                                 #{r\ 14314}#
+                                 #{type\ 1726}#
+                                 (#{binding-value\ 292}# #{b\ 1724}#)
+                                 #{e\ 1704}#
+                                 #{w\ 1706}#
+                                 #{s\ 1707}#
+                                 #{mod\ 1709}#)
+                               (#{syntax-type\ 388}#
+                                 (#{chi-macro\ 398}#
+                                   (#{binding-value\ 292}# #{b\ 1724}#)
+                                   #{e\ 1704}#
+                                   #{r\ 1705}#
+                                   #{w\ 1706}#
+                                   #{rib\ 1708}#
+                                   #{mod\ 1709}#)
+                                 #{r\ 1705}#
                                  '(())
-                                 #{s\ 14316}#
-                                 #{rib\ 14317}#
-                                 #{mod\ 14318}#
+                                 #{s\ 1707}#
+                                 #{rib\ 1708}#
+                                 #{mod\ 1709}#
                                  #f))
                              (values
-                               #{type\ 14335}#
-                               (#{binding-value\ 12901}# #{b\ 14333}#)
-                               #{e\ 14313}#
-                               #{w\ 14315}#
-                               #{s\ 14316}#
-                               #{mod\ 14318}#)))))))
-                 (if (pair? #{e\ 14313}#)
-                   (let ((#{first\ 14344}# (car #{e\ 14313}#)))
+                               #{type\ 1726}#
+                               (#{binding-value\ 292}# #{b\ 1724}#)
+                               #{e\ 1704}#
+                               #{w\ 1706}#
+                               #{s\ 1707}#
+                               #{mod\ 1709}#)))))))
+                 (if (pair? #{e\ 1704}#)
+                   (let ((#{first\ 1735}# (car #{e\ 1704}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 12997}#
-                           #{first\ 14344}#
-                           #{r\ 14314}#
-                           #{w\ 14315}#
-                           #{s\ 14316}#
-                           #{rib\ 14317}#
-                           #{mod\ 14318}#
+                         (#{syntax-type\ 388}#
+                           #{first\ 1735}#
+                           #{r\ 1705}#
+                           #{w\ 1706}#
+                           #{s\ 1707}#
+                           #{rib\ 1708}#
+                           #{mod\ 1709}#
                            #t))
-                       (lambda (#{ftype\ 14345}#
-                                #{fval\ 14346}#
-                                #{fe\ 14347}#
-                                #{fw\ 14348}#
-                                #{fs\ 14349}#
-                                #{fmod\ 14350}#)
-                         (if (memv #{ftype\ 14345}# (quote (lexical)))
+                       (lambda (#{ftype\ 1736}#
+                                #{fval\ 1737}#
+                                #{fe\ 1738}#
+                                #{fw\ 1739}#
+                                #{fs\ 1740}#
+                                #{fmod\ 1741}#)
+                         (if (memv #{ftype\ 1736}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 14346}#
-                             #{e\ 14313}#
-                             #{w\ 14315}#
-                             #{s\ 14316}#
-                             #{mod\ 14318}#)
-                           (if (memv #{ftype\ 14345}# (quote (global)))
+                             #{fval\ 1737}#
+                             #{e\ 1704}#
+                             #{w\ 1706}#
+                             #{s\ 1707}#
+                             #{mod\ 1709}#)
+                           (if (memv #{ftype\ 1736}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 12878}#
-                                 #{fval\ 14346}#
-                                 #{w\ 14315}#
-                                 #{fmod\ 14350}#)
-                               #{e\ 14313}#
-                               #{w\ 14315}#
-                               #{s\ 14316}#
-                               #{mod\ 14318}#)
-                             (if (memv #{ftype\ 14345}# (quote (macro)))
-                               (#{syntax-type\ 12997}#
-                                 (#{chi-macro\ 13007}#
-                                   #{fval\ 14346}#
-                                   #{e\ 14313}#
-                                   #{r\ 14314}#
-                                   #{w\ 14315}#
-                                   #{rib\ 14317}#
-                                   #{mod\ 14318}#)
-                                 #{r\ 14314}#
+                               (#{make-syntax-object\ 269}#
+                                 #{fval\ 1737}#
+                                 #{w\ 1706}#
+                                 #{fmod\ 1741}#)
+                               #{e\ 1704}#
+                               #{w\ 1706}#
+                               #{s\ 1707}#
+                               #{mod\ 1709}#)
+                             (if (memv #{ftype\ 1736}# (quote (macro)))
+                               (#{syntax-type\ 388}#
+                                 (#{chi-macro\ 398}#
+                                   #{fval\ 1737}#
+                                   #{e\ 1704}#
+                                   #{r\ 1705}#
+                                   #{w\ 1706}#
+                                   #{rib\ 1708}#
+                                   #{mod\ 1709}#)
+                                 #{r\ 1705}#
                                  '(())
-                                 #{s\ 14316}#
-                                 #{rib\ 14317}#
-                                 #{mod\ 14318}#
-                                 #{for-car?\ 14319}#)
-                               (if (memv #{ftype\ 14345}# (quote (module-ref)))
+                                 #{s\ 1707}#
+                                 #{rib\ 1708}#
+                                 #{mod\ 1709}#
+                                 #{for-car?\ 1710}#)
+                               (if (memv #{ftype\ 1736}# (quote (module-ref)))
                                  (call-with-values
                                    (lambda ()
-                                     (#{fval\ 14346}#
-                                       #{e\ 14313}#
-                                       #{r\ 14314}#
-                                       #{w\ 14315}#))
-                                   (lambda (#{e\ 14362}#
-                                            #{r\ 14363}#
-                                            #{w\ 14364}#
-                                            #{s\ 14365}#
-                                            #{mod\ 14366}#)
-                                     (#{syntax-type\ 12997}#
-                                       #{e\ 14362}#
-                                       #{r\ 14363}#
-                                       #{w\ 14364}#
-                                       #{s\ 14365}#
-                                       #{rib\ 14317}#
-                                       #{mod\ 14366}#
-                                       #{for-car?\ 14319}#)))
-                                 (if (memv #{ftype\ 14345}# (quote (core)))
+                                     (#{fval\ 1737}#
+                                       #{e\ 1704}#
+                                       #{r\ 1705}#
+                                       #{w\ 1706}#))
+                                   (lambda (#{e\ 1753}#
+                                            #{r\ 1754}#
+                                            #{w\ 1755}#
+                                            #{s\ 1756}#
+                                            #{mod\ 1757}#)
+                                     (#{syntax-type\ 388}#
+                                       #{e\ 1753}#
+                                       #{r\ 1754}#
+                                       #{w\ 1755}#
+                                       #{s\ 1756}#
+                                       #{rib\ 1708}#
+                                       #{mod\ 1757}#
+                                       #{for-car?\ 1710}#)))
+                                 (if (memv #{ftype\ 1736}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 14346}#
-                                     #{e\ 14313}#
-                                     #{w\ 14315}#
-                                     #{s\ 14316}#
-                                     #{mod\ 14318}#)
-                                   (if (memv #{ftype\ 14345}#
+                                     #{fval\ 1737}#
+                                     #{e\ 1704}#
+                                     #{w\ 1706}#
+                                     #{s\ 1707}#
+                                     #{mod\ 1709}#)
+                                   (if (memv #{ftype\ 1736}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 14346}#
-                                       #{e\ 14313}#
-                                       #{w\ 14315}#
-                                       #{s\ 14316}#
-                                       #{mod\ 14318}#)
-                                     (if (memv #{ftype\ 14345}#
-                                               '(begin))
+                                       #{fval\ 1737}#
+                                       #{e\ 1704}#
+                                       #{w\ 1706}#
+                                       #{s\ 1707}#
+                                       #{mod\ 1709}#)
+                                     (if (memv #{ftype\ 1736}# (quote (begin)))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 14313}#
-                                         #{w\ 14315}#
-                                         #{s\ 14316}#
-                                         #{mod\ 14318}#)
-                                       (if (memv #{ftype\ 14345}#
+                                         #{e\ 1704}#
+                                         #{w\ 1706}#
+                                         #{s\ 1707}#
+                                         #{mod\ 1709}#)
+                                       (if (memv #{ftype\ 1736}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 14313}#
-                                           #{w\ 14315}#
-                                           #{s\ 14316}#
-                                           #{mod\ 14318}#)
-                                         (if (memv #{ftype\ 14345}#
+                                           #{e\ 1704}#
+                                           #{w\ 1706}#
+                                           #{s\ 1707}#
+                                           #{mod\ 1709}#)
+                                         (if (memv #{ftype\ 1736}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 14377}#)
-                                              ((lambda (#{tmp\ 14378}#)
-                                                 (if (if #{tmp\ 14378}#
-                                                       (apply (lambda (#{_\ 
14382}#
-                                                                       #{name\ 
14383}#
-                                                                       #{val\ 
14384}#)
-                                                                (#{id?\ 12916}#
-                                                                  #{name\ 
14383}#))
-                                                              #{tmp\ 14378}#)
+                                           ((lambda (#{tmp\ 1768}#)
+                                              ((lambda (#{tmp\ 1769}#)
+                                                 (if (if #{tmp\ 1769}#
+                                                       (apply (lambda (#{_\ 
1773}#
+                                                                       #{name\ 
1774}#
+                                                                       #{val\ 
1775}#)
+                                                                (#{id?\ 307}#
+                                                                  #{name\ 
1774}#))
+                                                              #{tmp\ 1769}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 14388}#
-                                                                   #{name\ 
14389}#
-                                                                   #{val\ 
14390}#)
+                                                   (apply (lambda (#{_\ 1779}#
+                                                                   #{name\ 
1780}#
+                                                                   #{val\ 
1781}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 14389}#
-                                                              #{val\ 14390}#
-                                                              #{w\ 14315}#
-                                                              #{s\ 14316}#
-                                                              #{mod\ 14318}#))
-                                                          #{tmp\ 14378}#)
-                                                   ((lambda (#{tmp\ 14391}#)
-                                                      (if (if #{tmp\ 14391}#
-                                                            (apply (lambda 
(#{_\ 14397}#
-                                                                            
#{name\ 14398}#
-                                                                            
#{args\ 14399}#
-                                                                            
#{e1\ 14400}#
-                                                                            
#{e2\ 14401}#)
-                                                                     (if 
(#{id?\ 12916}#
-                                                                           
#{name\ 14398}#)
-                                                                       
(#{valid-bound-ids?\ 12979}#
-                                                                         
(#{lambda-var-list\ 13031}#
-                                                                           
#{args\ 14399}#))
+                                                              #{name\ 1780}#
+                                                              #{val\ 1781}#
+                                                              #{w\ 1706}#
+                                                              #{s\ 1707}#
+                                                              #{mod\ 1709}#))
+                                                          #{tmp\ 1769}#)
+                                                   ((lambda (#{tmp\ 1782}#)
+                                                      (if (if #{tmp\ 1782}#
+                                                            (apply (lambda 
(#{_\ 1788}#
+                                                                            
#{name\ 1789}#
+                                                                            
#{args\ 1790}#
+                                                                            
#{e1\ 1791}#
+                                                                            
#{e2\ 1792}#)
+                                                                     (if 
(#{id?\ 307}#
+                                                                           
#{name\ 1789}#)
+                                                                       
(#{valid-bound-ids?\ 370}#
+                                                                         
(#{lambda-var-list\ 422}#
+                                                                           
#{args\ 1790}#))
                                                                        #f))
-                                                                   #{tmp\ 
14391}#)
+                                                                   #{tmp\ 
1782}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
14409}#
-                                                                        
#{name\ 14410}#
-                                                                        
#{args\ 14411}#
-                                                                        #{e1\ 
14412}#
-                                                                        #{e2\ 
14413}#)
+                                                        (apply (lambda (#{_\ 
1800}#
+                                                                        
#{name\ 1801}#
+                                                                        
#{args\ 1802}#
+                                                                        #{e1\ 
1803}#
+                                                                        #{e2\ 
1804}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
12985}#
-                                                                     #{name\ 
14410}#
-                                                                     #{w\ 
14315}#
-                                                                     #{mod\ 
14318}#)
-                                                                   
(#{decorate-source\ 12834}#
+                                                                   (#{wrap\ 
376}#
+                                                                     #{name\ 
1801}#
+                                                                     #{w\ 
1706}#
+                                                                     #{mod\ 
1709}#)
+                                                                   
(#{decorate-source\ 225}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3835,11 +3795,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i14404"
-                                                                               
    "i14405"
-                                                                               
    "i14406"
-                                                                               
    "i14407"
-                                                                               
    "i14408"))
+                                                                               
  #("i1795"
+                                                                               
    "i1796"
+                                                                               
    "i1797"
+                                                                               
    "i1798"
+                                                                               
    "i1799"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3861,12 +3821,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i14351"
-                                                                               
    "i14352"
-                                                                               
    "i14353"
-                                                                               
    "i14354"
-                                                                               
    "i14355"
-                                                                               
    "i14356"))
+                                                                               
  #("i1742"
+                                                                               
    "i1743"
+                                                                               
    "i1744"
+                                                                               
    "i1745"
+                                                                               
    "i1746"
+                                                                               
    "i1747"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3874,7 +3834,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i14343"))
+                                                                               
  #("i1734"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3902,13 +3862,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i14320"
-                                                                               
    "i14321"
-                                                                               
    "i14322"
-                                                                               
    "i14323"
-                                                                               
    "i14324"
-                                                                               
    "i14325"
-                                                                               
    "i14326"))
+                                                                               
  #("i1711"
+                                                                               
    "i1712"
+                                                                               
    "i1713"
+                                                                               
    "i1714"
+                                                                               
    "i1715"
+                                                                               
    "i1716"
+                                                                               
    "i1717"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -4043,8 +4003,7 @@
                                                                                
    make-lexical-ref
                                                                                
    make-primitive-ref
                                                                                
    make-const
-                                                                               
    make-void
-                                                                               
    *mode*)
+                                                                               
    make-void)
                                                                                
  ((top)
                                                                                
   (top)
                                                                                
   (top)
@@ -4178,143 +4137,141 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top)
-                                                                               
   (top)
                                                                                
   (top))
-                                                                               
  ("i13030"
-                                                                               
   "i13028"
-                                                                               
   "i13026"
-                                                                               
   "i13024"
-                                                                               
   "i13022"
-                                                                               
   "i13020"
-                                                                               
   "i13018"
-                                                                               
   "i13016"
-                                                                               
   "i13014"
-                                                                               
   "i13012"
-                                                                               
   "i13010"
-                                                                               
   "i13008"
-                                                                               
   "i13006"
-                                                                               
   "i13004"
-                                                                               
   "i13002"
-                                                                               
   "i13000"
-                                                                               
   "i12998"
-                                                                               
   "i12996"
-                                                                               
   "i12994"
-                                                                               
   "i12992"
-                                                                               
   "i12990"
-                                                                               
   "i12988"
-                                                                               
   "i12986"
-                                                                               
   "i12984"
-                                                                               
   "i12982"
-                                                                               
   "i12980"
-                                                                               
   "i12978"
-                                                                               
   "i12976"
-                                                                               
   "i12974"
-                                                                               
   "i12972"
-                                                                               
   "i12970"
-                                                                               
   "i12968"
-                                                                               
   "i12966"
-                                                                               
   "i12964"
-                                                                               
   "i12962"
-                                                                               
   "i12960"
-                                                                               
   "i12959"
-                                                                               
   "i12958"
-                                                                               
   "i12956"
-                                                                               
   "i12955"
-                                                                               
   "i12954"
-                                                                               
   "i12953"
-                                                                               
   "i12952"
-                                                                               
   "i12950"
-                                                                               
   "i12948"
-                                                                               
   "i12946"
-                                                                               
   "i12944"
-                                                                               
   "i12942"
-                                                                               
   "i12940"
-                                                                               
   "i12938"
-                                                                               
   "i12936"
-                                                                               
   "i12933"
-                                                                               
   "i12931"
-                                                                               
   "i12930"
-                                                                               
   "i12929"
-                                                                               
   "i12928"
-                                                                               
   "i12927"
-                                                                               
   "i12926"
-                                                                               
   "i12924"
-                                                                               
   "i12922"
-                                                                               
   "i12920"
-                                                                               
   "i12918"
-                                                                               
   "i12917"
-                                                                               
   "i12915"
-                                                                               
   "i12913"
-                                                                               
   "i12911"
-                                                                               
   "i12909"
-                                                                               
   "i12907"
-                                                                               
   "i12905"
-                                                                               
   "i12903"
-                                                                               
   "i12902"
-                                                                               
   "i12900"
-                                                                               
   "i12898"
-                                                                               
   "i12897"
-                                                                               
   "i12896"
-                                                                               
   "i12894"
-                                                                               
   "i12893"
-                                                                               
   "i12891"
-                                                                               
   "i12889"
-                                                                               
   "i12887"
-                                                                               
   "i12885"
-                                                                               
   "i12883"
-                                                                               
   "i12881"
-                                                                               
   "i12879"
-                                                                               
   "i12877"
-                                                                               
   "i12875"
-                                                                               
   "i12873"
-                                                                               
   "i12871"
-                                                                               
   "i12869"
-                                                                               
   "i12867"
-                                                                               
   "i12865"
-                                                                               
   "i12863"
-                                                                               
   "i12861"
-                                                                               
   "i12859"
-                                                                               
   "i12857"
-                                                                               
   "i12855"
-                                                                               
   "i12853"
-                                                                               
   "i12851"
-                                                                               
   "i12849"
-                                                                               
   "i12847"
-                                                                               
   "i12845"
-                                                                               
   "i12843"
-                                                                               
   "i12841"
-                                                                               
   "i12839"
-                                                                               
   "i12837"
-                                                                               
   "i12835"
-                                                                               
   "i12833"
-                                                                               
   "i12831"
-                                                                               
   "i12829"
-                                                                               
   "i12828"
-                                                                               
   "i12826"
-                                                                               
   "i12824"
-                                                                               
   "i12822"
-                                                                               
   "i12820"
-                                                                               
   "i12818"
-                                                                               
   "i12816"
-                                                                               
   "i12814"
-                                                                               
   "i12812"
-                                                                               
   "i12810"
-                                                                               
   "i12808"
-                                                                               
   "i12806"
-                                                                               
   "i12804"
-                                                                               
   "i12802"
-                                                                               
   "i12800"
-                                                                               
   "i12798"
-                                                                               
   "i12796"
-                                                                               
   "i12794"
-                                                                               
   "i12792"
-                                                                               
   "i12790"
-                                                                               
   "i12788"
-                                                                               
   "i12786"
-                                                                               
   "i12784"
-                                                                               
   "i12782"
-                                                                               
   "i12780"
-                                                                               
   "i12777"))
+                                                                               
  ("i421"
+                                                                               
   "i419"
+                                                                               
   "i417"
+                                                                               
   "i415"
+                                                                               
   "i413"
+                                                                               
   "i411"
+                                                                               
   "i409"
+                                                                               
   "i407"
+                                                                               
   "i405"
+                                                                               
   "i403"
+                                                                               
   "i401"
+                                                                               
   "i399"
+                                                                               
   "i397"
+                                                                               
   "i395"
+                                                                               
   "i393"
+                                                                               
   "i391"
+                                                                               
   "i389"
+                                                                               
   "i387"
+                                                                               
   "i385"
+                                                                               
   "i383"
+                                                                               
   "i381"
+                                                                               
   "i379"
+                                                                               
   "i377"
+                                                                               
   "i375"
+                                                                               
   "i373"
+                                                                               
   "i371"
+                                                                               
   "i369"
+                                                                               
   "i367"
+                                                                               
   "i365"
+                                                                               
   "i363"
+                                                                               
   "i361"
+                                                                               
   "i359"
+                                                                               
   "i357"
+                                                                               
   "i355"
+                                                                               
   "i353"
+                                                                               
   "i351"
+                                                                               
   "i350"
+                                                                               
   "i349"
+                                                                               
   "i347"
+                                                                               
   "i346"
+                                                                               
   "i345"
+                                                                               
   "i344"
+                                                                               
   "i343"
+                                                                               
   "i341"
+                                                                               
   "i339"
+                                                                               
   "i337"
+                                                                               
   "i335"
+                                                                               
   "i333"
+                                                                               
   "i331"
+                                                                               
   "i329"
+                                                                               
   "i327"
+                                                                               
   "i324"
+                                                                               
   "i322"
+                                                                               
   "i321"
+                                                                               
   "i320"
+                                                                               
   "i319"
+                                                                               
   "i318"
+                                                                               
   "i317"
+                                                                               
   "i315"
+                                                                               
   "i313"
+                                                                               
   "i311"
+                                                                               
   "i309"
+                                                                               
   "i308"
+                                                                               
   "i306"
+                                                                               
   "i304"
+                                                                               
   "i302"
+                                                                               
   "i300"
+                                                                               
   "i298"
+                                                                               
   "i296"
+                                                                               
   "i294"
+                                                                               
   "i293"
+                                                                               
   "i291"
+                                                                               
   "i289"
+                                                                               
   "i288"
+                                                                               
   "i287"
+                                                                               
   "i285"
+                                                                               
   "i284"
+                                                                               
   "i282"
+                                                                               
   "i280"
+                                                                               
   "i278"
+                                                                               
   "i276"
+                                                                               
   "i274"
+                                                                               
   "i272"
+                                                                               
   "i270"
+                                                                               
   "i268"
+                                                                               
   "i266"
+                                                                               
   "i264"
+                                                                               
   "i262"
+                                                                               
   "i260"
+                                                                               
   "i258"
+                                                                               
   "i256"
+                                                                               
   "i254"
+                                                                               
   "i252"
+                                                                               
   "i250"
+                                                                               
   "i248"
+                                                                               
   "i246"
+                                                                               
   "i244"
+                                                                               
   "i242"
+                                                                               
   "i240"
+                                                                               
   "i238"
+                                                                               
   "i236"
+                                                                               
   "i234"
+                                                                               
   "i232"
+                                                                               
   "i230"
+                                                                               
   "i228"
+                                                                               
   "i226"
+                                                                               
   "i224"
+                                                                               
   "i222"
+                                                                               
   "i220"
+                                                                               
   "i219"
+                                                                               
   "i217"
+                                                                               
   "i215"
+                                                                               
   "i213"
+                                                                               
   "i211"
+                                                                               
   "i209"
+                                                                               
   "i207"
+                                                                               
   "i205"
+                                                                               
   "i203"
+                                                                               
   "i201"
+                                                                               
   "i199"
+                                                                               
   "i197"
+                                                                               
   "i195"
+                                                                               
   "i193"
+                                                                               
   "i191"
+                                                                               
   "i189"
+                                                                               
   "i187"
+                                                                               
   "i185"
+                                                                               
   "i183"
+                                                                               
   "i181"
+                                                                               
   "i179"
+                                                                               
   "i177"
+                                                                               
   "i175"
+                                                                               
   "i173"
+                                                                               
   "i171"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    define-expansion-constructors
@@ -4322,38 +4279,38 @@
                                                                                
  ((top)
                                                                                
   (top)
                                                                                
   (top))
-                                                                               
  ("i12629"
-                                                                               
   "i12628"
-                                                                               
   "i12626")))
+                                                                               
  ("i22"
+                                                                               
   "i21"
+                                                                               
   "i19")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 12985}#
-                                                                             
(cons #{args\ 14411}#
-                                                                               
    (cons #{e1\ 14412}#
-                                                                               
          #{e2\ 14413}#))
-                                                                             
#{w\ 14315}#
-                                                                             
#{mod\ 14318}#))
-                                                                     #{s\ 
14316}#)
+                                                                           
(#{wrap\ 376}#
+                                                                             
(cons #{args\ 1802}#
+                                                                               
    (cons #{e1\ 1803}#
+                                                                               
          #{e2\ 1804}#))
+                                                                             
#{w\ 1706}#
+                                                                             
#{mod\ 1709}#))
+                                                                     #{s\ 
1707}#)
                                                                    '(())
-                                                                   #{s\ 14316}#
-                                                                   #{mod\ 
14318}#))
-                                                               #{tmp\ 14391}#)
-                                                        ((lambda (#{tmp\ 
14416}#)
-                                                           (if (if #{tmp\ 
14416}#
-                                                                 (apply 
(lambda (#{_\ 14419}#
-                                                                               
  #{name\ 14420}#)
-                                                                          
(#{id?\ 12916}#
-                                                                            
#{name\ 14420}#))
-                                                                        #{tmp\ 
14416}#)
+                                                                   #{s\ 1707}#
+                                                                   #{mod\ 
1709}#))
+                                                               #{tmp\ 1782}#)
+                                                        ((lambda (#{tmp\ 
1807}#)
+                                                           (if (if #{tmp\ 
1807}#
+                                                                 (apply 
(lambda (#{_\ 1810}#
+                                                                               
  #{name\ 1811}#)
+                                                                          
(#{id?\ 307}#
+                                                                            
#{name\ 1811}#))
+                                                                        #{tmp\ 
1807}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 14423}#
-                                                                             
#{name\ 14424}#)
+                                                             (apply (lambda 
(#{_\ 1814}#
+                                                                             
#{name\ 1815}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 12985}#
-                                                                          
#{name\ 14424}#
-                                                                          #{w\ 
14315}#
-                                                                          
#{mod\ 14318}#)
+                                                                        
(#{wrap\ 376}#
+                                                                          
#{name\ 1815}#
+                                                                          #{w\ 
1706}#
+                                                                          
#{mod\ 1709}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4362,8 +4319,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i14421"
-                                                                               
  "i14422"))
+                                                                               
#("i1812"
+                                                                               
  "i1813"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4385,12 +4342,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14351"
-                                                                               
  "i14352"
-                                                                               
  "i14353"
-                                                                               
  "i14354"
-                                                                               
  "i14355"
-                                                                               
  "i14356"))
+                                                                               
#("i1742"
+                                                                               
  "i1743"
+                                                                               
  "i1744"
+                                                                               
  "i1745"
+                                                                               
  "i1746"
+                                                                               
  "i1747"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4398,7 +4355,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i14343"))
+                                                                               
#("i1734"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4426,13 +4383,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14320"
-                                                                               
  "i14321"
-                                                                               
  "i14322"
-                                                                               
  "i14323"
-                                                                               
  "i14324"
-                                                                               
  "i14325"
-                                                                               
  "i14326"))
+                                                                               
#("i1711"
+                                                                               
  "i1712"
+                                                                               
  "i1713"
+                                                                               
  "i1714"
+                                                                               
  "i1715"
+                                                                               
  "i1716"
+                                                                               
  "i1717"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4567,8 +4524,7 @@
                                                                                
  make-lexical-ref
                                                                                
  make-primitive-ref
                                                                                
  make-const
-                                                                               
  make-void
-                                                                               
  *mode*)
+                                                                               
  make-void)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -4702,143 +4658,141 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i13030"
-                                                                               
 "i13028"
-                                                                               
 "i13026"
-                                                                               
 "i13024"
-                                                                               
 "i13022"
-                                                                               
 "i13020"
-                                                                               
 "i13018"
-                                                                               
 "i13016"
-                                                                               
 "i13014"
-                                                                               
 "i13012"
-                                                                               
 "i13010"
-                                                                               
 "i13008"
-                                                                               
 "i13006"
-                                                                               
 "i13004"
-                                                                               
 "i13002"
-                                                                               
 "i13000"
-                                                                               
 "i12998"
-                                                                               
 "i12996"
-                                                                               
 "i12994"
-                                                                               
 "i12992"
-                                                                               
 "i12990"
-                                                                               
 "i12988"
-                                                                               
 "i12986"
-                                                                               
 "i12984"
-                                                                               
 "i12982"
-                                                                               
 "i12980"
-                                                                               
 "i12978"
-                                                                               
 "i12976"
-                                                                               
 "i12974"
-                                                                               
 "i12972"
-                                                                               
 "i12970"
-                                                                               
 "i12968"
-                                                                               
 "i12966"
-                                                                               
 "i12964"
-                                                                               
 "i12962"
-                                                                               
 "i12960"
-                                                                               
 "i12959"
-                                                                               
 "i12958"
-                                                                               
 "i12956"
-                                                                               
 "i12955"
-                                                                               
 "i12954"
-                                                                               
 "i12953"
-                                                                               
 "i12952"
-                                                                               
 "i12950"
-                                                                               
 "i12948"
-                                                                               
 "i12946"
-                                                                               
 "i12944"
-                                                                               
 "i12942"
-                                                                               
 "i12940"
-                                                                               
 "i12938"
-                                                                               
 "i12936"
-                                                                               
 "i12933"
-                                                                               
 "i12931"
-                                                                               
 "i12930"
-                                                                               
 "i12929"
-                                                                               
 "i12928"
-                                                                               
 "i12927"
-                                                                               
 "i12926"
-                                                                               
 "i12924"
-                                                                               
 "i12922"
-                                                                               
 "i12920"
-                                                                               
 "i12918"
-                                                                               
 "i12917"
-                                                                               
 "i12915"
-                                                                               
 "i12913"
-                                                                               
 "i12911"
-                                                                               
 "i12909"
-                                                                               
 "i12907"
-                                                                               
 "i12905"
-                                                                               
 "i12903"
-                                                                               
 "i12902"
-                                                                               
 "i12900"
-                                                                               
 "i12898"
-                                                                               
 "i12897"
-                                                                               
 "i12896"
-                                                                               
 "i12894"
-                                                                               
 "i12893"
-                                                                               
 "i12891"
-                                                                               
 "i12889"
-                                                                               
 "i12887"
-                                                                               
 "i12885"
-                                                                               
 "i12883"
-                                                                               
 "i12881"
-                                                                               
 "i12879"
-                                                                               
 "i12877"
-                                                                               
 "i12875"
-                                                                               
 "i12873"
-                                                                               
 "i12871"
-                                                                               
 "i12869"
-                                                                               
 "i12867"
-                                                                               
 "i12865"
-                                                                               
 "i12863"
-                                                                               
 "i12861"
-                                                                               
 "i12859"
-                                                                               
 "i12857"
-                                                                               
 "i12855"
-                                                                               
 "i12853"
-                                                                               
 "i12851"
-                                                                               
 "i12849"
-                                                                               
 "i12847"
-                                                                               
 "i12845"
-                                                                               
 "i12843"
-                                                                               
 "i12841"
-                                                                               
 "i12839"
-                                                                               
 "i12837"
-                                                                               
 "i12835"
-                                                                               
 "i12833"
-                                                                               
 "i12831"
-                                                                               
 "i12829"
-                                                                               
 "i12828"
-                                                                               
 "i12826"
-                                                                               
 "i12824"
-                                                                               
 "i12822"
-                                                                               
 "i12820"
-                                                                               
 "i12818"
-                                                                               
 "i12816"
-                                                                               
 "i12814"
-                                                                               
 "i12812"
-                                                                               
 "i12810"
-                                                                               
 "i12808"
-                                                                               
 "i12806"
-                                                                               
 "i12804"
-                                                                               
 "i12802"
-                                                                               
 "i12800"
-                                                                               
 "i12798"
-                                                                               
 "i12796"
-                                                                               
 "i12794"
-                                                                               
 "i12792"
-                                                                               
 "i12790"
-                                                                               
 "i12788"
-                                                                               
 "i12786"
-                                                                               
 "i12784"
-                                                                               
 "i12782"
-                                                                               
 "i12780"
-                                                                               
 "i12777"))
+                                                                               
("i421"
+                                                                               
 "i419"
+                                                                               
 "i417"
+                                                                               
 "i415"
+                                                                               
 "i413"
+                                                                               
 "i411"
+                                                                               
 "i409"
+                                                                               
 "i407"
+                                                                               
 "i405"
+                                                                               
 "i403"
+                                                                               
 "i401"
+                                                                               
 "i399"
+                                                                               
 "i397"
+                                                                               
 "i395"
+                                                                               
 "i393"
+                                                                               
 "i391"
+                                                                               
 "i389"
+                                                                               
 "i387"
+                                                                               
 "i385"
+                                                                               
 "i383"
+                                                                               
 "i381"
+                                                                               
 "i379"
+                                                                               
 "i377"
+                                                                               
 "i375"
+                                                                               
 "i373"
+                                                                               
 "i371"
+                                                                               
 "i369"
+                                                                               
 "i367"
+                                                                               
 "i365"
+                                                                               
 "i363"
+                                                                               
 "i361"
+                                                                               
 "i359"
+                                                                               
 "i357"
+                                                                               
 "i355"
+                                                                               
 "i353"
+                                                                               
 "i351"
+                                                                               
 "i350"
+                                                                               
 "i349"
+                                                                               
 "i347"
+                                                                               
 "i346"
+                                                                               
 "i345"
+                                                                               
 "i344"
+                                                                               
 "i343"
+                                                                               
 "i341"
+                                                                               
 "i339"
+                                                                               
 "i337"
+                                                                               
 "i335"
+                                                                               
 "i333"
+                                                                               
 "i331"
+                                                                               
 "i329"
+                                                                               
 "i327"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i321"
+                                                                               
 "i320"
+                                                                               
 "i319"
+                                                                               
 "i318"
+                                                                               
 "i317"
+                                                                               
 "i315"
+                                                                               
 "i313"
+                                                                               
 "i311"
+                                                                               
 "i309"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i293"
+                                                                               
 "i291"
+                                                                               
 "i289"
+                                                                               
 "i288"
+                                                                               
 "i287"
+                                                                               
 "i285"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i260"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i236"
+                                                                               
 "i234"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i222"
+                                                                               
 "i220"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  define-expansion-constructors
@@ -4846,9 +4800,9 @@
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i12629"
-                                                                               
 "i12628"
-                                                                               
 "i12626")))
+                                                                               
("i22"
+                                                                               
 "i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4859,8 +4813,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i14421"
-                                                                               
  "i14422"))
+                                                                               
#("i1812"
+                                                                               
  "i1813"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4882,12 +4836,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14351"
-                                                                               
  "i14352"
-                                                                               
  "i14353"
-                                                                               
  "i14354"
-                                                                               
  "i14355"
-                                                                               
  "i14356"))
+                                                                               
#("i1742"
+                                                                               
  "i1743"
+                                                                               
  "i1744"
+                                                                               
  "i1745"
+                                                                               
  "i1746"
+                                                                               
  "i1747"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4895,7 +4849,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i14343"))
+                                                                               
#("i1734"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4923,13 +4877,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14320"
-                                                                               
  "i14321"
-                                                                               
  "i14322"
-                                                                               
  "i14323"
-                                                                               
  "i14324"
-                                                                               
  "i14325"
-                                                                               
  "i14326"))
+                                                                               
#("i1711"
+                                                                               
  "i1712"
+                                                                               
  "i1713"
+                                                                               
  "i1714"
+                                                                               
  "i1715"
+                                                                               
  "i1716"
+                                                                               
  "i1717"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5064,8 +5018,7 @@
                                                                                
  make-lexical-ref
                                                                                
  make-primitive-ref
                                                                                
  make-const
-                                                                               
  make-void
-                                                                               
  *mode*)
+                                                                               
  make-void)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -5199,143 +5152,141 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i13030"
-                                                                               
 "i13028"
-                                                                               
 "i13026"
-                                                                               
 "i13024"
-                                                                               
 "i13022"
-                                                                               
 "i13020"
-                                                                               
 "i13018"
-                                                                               
 "i13016"
-                                                                               
 "i13014"
-                                                                               
 "i13012"
-                                                                               
 "i13010"
-                                                                               
 "i13008"
-                                                                               
 "i13006"
-                                                                               
 "i13004"
-                                                                               
 "i13002"
-                                                                               
 "i13000"
-                                                                               
 "i12998"
-                                                                               
 "i12996"
-                                                                               
 "i12994"
-                                                                               
 "i12992"
-                                                                               
 "i12990"
-                                                                               
 "i12988"
-                                                                               
 "i12986"
-                                                                               
 "i12984"
-                                                                               
 "i12982"
-                                                                               
 "i12980"
-                                                                               
 "i12978"
-                                                                               
 "i12976"
-                                                                               
 "i12974"
-                                                                               
 "i12972"
-                                                                               
 "i12970"
-                                                                               
 "i12968"
-                                                                               
 "i12966"
-                                                                               
 "i12964"
-                                                                               
 "i12962"
-                                                                               
 "i12960"
-                                                                               
 "i12959"
-                                                                               
 "i12958"
-                                                                               
 "i12956"
-                                                                               
 "i12955"
-                                                                               
 "i12954"
-                                                                               
 "i12953"
-                                                                               
 "i12952"
-                                                                               
 "i12950"
-                                                                               
 "i12948"
-                                                                               
 "i12946"
-                                                                               
 "i12944"
-                                                                               
 "i12942"
-                                                                               
 "i12940"
-                                                                               
 "i12938"
-                                                                               
 "i12936"
-                                                                               
 "i12933"
-                                                                               
 "i12931"
-                                                                               
 "i12930"
-                                                                               
 "i12929"
-                                                                               
 "i12928"
-                                                                               
 "i12927"
-                                                                               
 "i12926"
-                                                                               
 "i12924"
-                                                                               
 "i12922"
-                                                                               
 "i12920"
-                                                                               
 "i12918"
-                                                                               
 "i12917"
-                                                                               
 "i12915"
-                                                                               
 "i12913"
-                                                                               
 "i12911"
-                                                                               
 "i12909"
-                                                                               
 "i12907"
-                                                                               
 "i12905"
-                                                                               
 "i12903"
-                                                                               
 "i12902"
-                                                                               
 "i12900"
-                                                                               
 "i12898"
-                                                                               
 "i12897"
-                                                                               
 "i12896"
-                                                                               
 "i12894"
-                                                                               
 "i12893"
-                                                                               
 "i12891"
-                                                                               
 "i12889"
-                                                                               
 "i12887"
-                                                                               
 "i12885"
-                                                                               
 "i12883"
-                                                                               
 "i12881"
-                                                                               
 "i12879"
-                                                                               
 "i12877"
-                                                                               
 "i12875"
-                                                                               
 "i12873"
-                                                                               
 "i12871"
-                                                                               
 "i12869"
-                                                                               
 "i12867"
-                                                                               
 "i12865"
-                                                                               
 "i12863"
-                                                                               
 "i12861"
-                                                                               
 "i12859"
-                                                                               
 "i12857"
-                                                                               
 "i12855"
-                                                                               
 "i12853"
-                                                                               
 "i12851"
-                                                                               
 "i12849"
-                                                                               
 "i12847"
-                                                                               
 "i12845"
-                                                                               
 "i12843"
-                                                                               
 "i12841"
-                                                                               
 "i12839"
-                                                                               
 "i12837"
-                                                                               
 "i12835"
-                                                                               
 "i12833"
-                                                                               
 "i12831"
-                                                                               
 "i12829"
-                                                                               
 "i12828"
-                                                                               
 "i12826"
-                                                                               
 "i12824"
-                                                                               
 "i12822"
-                                                                               
 "i12820"
-                                                                               
 "i12818"
-                                                                               
 "i12816"
-                                                                               
 "i12814"
-                                                                               
 "i12812"
-                                                                               
 "i12810"
-                                                                               
 "i12808"
-                                                                               
 "i12806"
-                                                                               
 "i12804"
-                                                                               
 "i12802"
-                                                                               
 "i12800"
-                                                                               
 "i12798"
-                                                                               
 "i12796"
-                                                                               
 "i12794"
-                                                                               
 "i12792"
-                                                                               
 "i12790"
-                                                                               
 "i12788"
-                                                                               
 "i12786"
-                                                                               
 "i12784"
-                                                                               
 "i12782"
-                                                                               
 "i12780"
-                                                                               
 "i12777"))
+                                                                               
("i421"
+                                                                               
 "i419"
+                                                                               
 "i417"
+                                                                               
 "i415"
+                                                                               
 "i413"
+                                                                               
 "i411"
+                                                                               
 "i409"
+                                                                               
 "i407"
+                                                                               
 "i405"
+                                                                               
 "i403"
+                                                                               
 "i401"
+                                                                               
 "i399"
+                                                                               
 "i397"
+                                                                               
 "i395"
+                                                                               
 "i393"
+                                                                               
 "i391"
+                                                                               
 "i389"
+                                                                               
 "i387"
+                                                                               
 "i385"
+                                                                               
 "i383"
+                                                                               
 "i381"
+                                                                               
 "i379"
+                                                                               
 "i377"
+                                                                               
 "i375"
+                                                                               
 "i373"
+                                                                               
 "i371"
+                                                                               
 "i369"
+                                                                               
 "i367"
+                                                                               
 "i365"
+                                                                               
 "i363"
+                                                                               
 "i361"
+                                                                               
 "i359"
+                                                                               
 "i357"
+                                                                               
 "i355"
+                                                                               
 "i353"
+                                                                               
 "i351"
+                                                                               
 "i350"
+                                                                               
 "i349"
+                                                                               
 "i347"
+                                                                               
 "i346"
+                                                                               
 "i345"
+                                                                               
 "i344"
+                                                                               
 "i343"
+                                                                               
 "i341"
+                                                                               
 "i339"
+                                                                               
 "i337"
+                                                                               
 "i335"
+                                                                               
 "i333"
+                                                                               
 "i331"
+                                                                               
 "i329"
+                                                                               
 "i327"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i321"
+                                                                               
 "i320"
+                                                                               
 "i319"
+                                                                               
 "i318"
+                                                                               
 "i317"
+                                                                               
 "i315"
+                                                                               
 "i313"
+                                                                               
 "i311"
+                                                                               
 "i309"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i293"
+                                                                               
 "i291"
+                                                                               
 "i289"
+                                                                               
 "i288"
+                                                                               
 "i287"
+                                                                               
 "i285"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i260"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i236"
+                                                                               
 "i234"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i222"
+                                                                               
 "i220"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  define-expansion-constructors
@@ -5343,9 +5294,9 @@
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i12629"
-                                                                               
 "i12628"
-                                                                               
 "i12626")))
+                                                                               
("i22"
+                                                                               
 "i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -5356,8 +5307,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i14421"
-                                                                               
  "i14422"))
+                                                                               
#("i1812"
+                                                                               
  "i1813"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5379,12 +5330,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14351"
-                                                                               
  "i14352"
-                                                                               
  "i14353"
-                                                                               
  "i14354"
-                                                                               
  "i14355"
-                                                                               
  "i14356"))
+                                                                               
#("i1742"
+                                                                               
  "i1743"
+                                                                               
  "i1744"
+                                                                               
  "i1745"
+                                                                               
  "i1746"
+                                                                               
  "i1747"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5392,7 +5343,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i14343"))
+                                                                               
#("i1734"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5420,13 +5371,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i14320"
-                                                                               
  "i14321"
-                                                                               
  "i14322"
-                                                                               
  "i14323"
-                                                                               
  "i14324"
-                                                                               
  "i14325"
-                                                                               
  "i14326"))
+                                                                               
#("i1711"
+                                                                               
  "i1712"
+                                                                               
  "i1713"
+                                                                               
  "i1714"
+                                                                               
  "i1715"
+                                                                               
  "i1716"
+                                                                               
  "i1717"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5561,8 +5512,7 @@
                                                                                
  make-lexical-ref
                                                                                
  make-primitive-ref
                                                                                
  make-const
-                                                                               
  make-void
-                                                                               
  *mode*)
+                                                                               
  make-void)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -5696,143 +5646,141 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i13030"
-                                                                               
 "i13028"
-                                                                               
 "i13026"
-                                                                               
 "i13024"
-                                                                               
 "i13022"
-                                                                               
 "i13020"
-                                                                               
 "i13018"
-                                                                               
 "i13016"
-                                                                               
 "i13014"
-                                                                               
 "i13012"
-                                                                               
 "i13010"
-                                                                               
 "i13008"
-                                                                               
 "i13006"
-                                                                               
 "i13004"
-                                                                               
 "i13002"
-                                                                               
 "i13000"
-                                                                               
 "i12998"
-                                                                               
 "i12996"
-                                                                               
 "i12994"
-                                                                               
 "i12992"
-                                                                               
 "i12990"
-                                                                               
 "i12988"
-                                                                               
 "i12986"
-                                                                               
 "i12984"
-                                                                               
 "i12982"
-                                                                               
 "i12980"
-                                                                               
 "i12978"
-                                                                               
 "i12976"
-                                                                               
 "i12974"
-                                                                               
 "i12972"
-                                                                               
 "i12970"
-                                                                               
 "i12968"
-                                                                               
 "i12966"
-                                                                               
 "i12964"
-                                                                               
 "i12962"
-                                                                               
 "i12960"
-                                                                               
 "i12959"
-                                                                               
 "i12958"
-                                                                               
 "i12956"
-                                                                               
 "i12955"
-                                                                               
 "i12954"
-                                                                               
 "i12953"
-                                                                               
 "i12952"
-                                                                               
 "i12950"
-                                                                               
 "i12948"
-                                                                               
 "i12946"
-                                                                               
 "i12944"
-                                                                               
 "i12942"
-                                                                               
 "i12940"
-                                                                               
 "i12938"
-                                                                               
 "i12936"
-                                                                               
 "i12933"
-                                                                               
 "i12931"
-                                                                               
 "i12930"
-                                                                               
 "i12929"
-                                                                               
 "i12928"
-                                                                               
 "i12927"
-                                                                               
 "i12926"
-                                                                               
 "i12924"
-                                                                               
 "i12922"
-                                                                               
 "i12920"
-                                                                               
 "i12918"
-                                                                               
 "i12917"
-                                                                               
 "i12915"
-                                                                               
 "i12913"
-                                                                               
 "i12911"
-                                                                               
 "i12909"
-                                                                               
 "i12907"
-                                                                               
 "i12905"
-                                                                               
 "i12903"
-                                                                               
 "i12902"
-                                                                               
 "i12900"
-                                                                               
 "i12898"
-                                                                               
 "i12897"
-                                                                               
 "i12896"
-                                                                               
 "i12894"
-                                                                               
 "i12893"
-                                                                               
 "i12891"
-                                                                               
 "i12889"
-                                                                               
 "i12887"
-                                                                               
 "i12885"
-                                                                               
 "i12883"
-                                                                               
 "i12881"
-                                                                               
 "i12879"
-                                                                               
 "i12877"
-                                                                               
 "i12875"
-                                                                               
 "i12873"
-                                                                               
 "i12871"
-                                                                               
 "i12869"
-                                                                               
 "i12867"
-                                                                               
 "i12865"
-                                                                               
 "i12863"
-                                                                               
 "i12861"
-                                                                               
 "i12859"
-                                                                               
 "i12857"
-                                                                               
 "i12855"
-                                                                               
 "i12853"
-                                                                               
 "i12851"
-                                                                               
 "i12849"
-                                                                               
 "i12847"
-                                                                               
 "i12845"
-                                                                               
 "i12843"
-                                                                               
 "i12841"
-                                                                               
 "i12839"
-                                                                               
 "i12837"
-                                                                               
 "i12835"
-                                                                               
 "i12833"
-                                                                               
 "i12831"
-                                                                               
 "i12829"
-                                                                               
 "i12828"
-                                                                               
 "i12826"
-                                                                               
 "i12824"
-                                                                               
 "i12822"
-                                                                               
 "i12820"
-                                                                               
 "i12818"
-                                                                               
 "i12816"
-                                                                               
 "i12814"
-                                                                               
 "i12812"
-                                                                               
 "i12810"
-                                                                               
 "i12808"
-                                                                               
 "i12806"
-                                                                               
 "i12804"
-                                                                               
 "i12802"
-                                                                               
 "i12800"
-                                                                               
 "i12798"
-                                                                               
 "i12796"
-                                                                               
 "i12794"
-                                                                               
 "i12792"
-                                                                               
 "i12790"
-                                                                               
 "i12788"
-                                                                               
 "i12786"
-                                                                               
 "i12784"
-                                                                               
 "i12782"
-                                                                               
 "i12780"
-                                                                               
 "i12777"))
+                                                                               
("i421"
+                                                                               
 "i419"
+                                                                               
 "i417"
+                                                                               
 "i415"
+                                                                               
 "i413"
+                                                                               
 "i411"
+                                                                               
 "i409"
+                                                                               
 "i407"
+                                                                               
 "i405"
+                                                                               
 "i403"
+                                                                               
 "i401"
+                                                                               
 "i399"
+                                                                               
 "i397"
+                                                                               
 "i395"
+                                                                               
 "i393"
+                                                                               
 "i391"
+                                                                               
 "i389"
+                                                                               
 "i387"
+                                                                               
 "i385"
+                                                                               
 "i383"
+                                                                               
 "i381"
+                                                                               
 "i379"
+                                                                               
 "i377"
+                                                                               
 "i375"
+                                                                               
 "i373"
+                                                                               
 "i371"
+                                                                               
 "i369"
+                                                                               
 "i367"
+                                                                               
 "i365"
+                                                                               
 "i363"
+                                                                               
 "i361"
+                                                                               
 "i359"
+                                                                               
 "i357"
+                                                                               
 "i355"
+                                                                               
 "i353"
+                                                                               
 "i351"
+                                                                               
 "i350"
+                                                                               
 "i349"
+                                                                               
 "i347"
+                                                                               
 "i346"
+                                                                               
 "i345"
+                                                                               
 "i344"
+                                                                               
 "i343"
+                                                                               
 "i341"
+                                                                               
 "i339"
+                                                                               
 "i337"
+                                                                               
 "i335"
+                                                                               
 "i333"
+                                                                               
 "i331"
+                                                                               
 "i329"
+                                                                               
 "i327"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i321"
+                                                                               
 "i320"
+                                                                               
 "i319"
+                                                                               
 "i318"
+                                                                               
 "i317"
+                                                                               
 "i315"
+                                                                               
 "i313"
+                                                                               
 "i311"
+                                                                               
 "i309"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i293"
+                                                                               
 "i291"
+                                                                               
 "i289"
+                                                                               
 "i288"
+                                                                               
 "i287"
+                                                                               
 "i285"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i260"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i240"
+                                                                               
 "i238"
+                                                                               
 "i236"
+                                                                               
 "i234"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i222"
+                                                                               
 "i220"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i207"
+                                                                               
 "i205"
+                                                                               
 "i203"
+                                                                               
 "i201"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  define-expansion-constructors
@@ -5840,111 +5788,110 @@
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i12629"
-                                                                               
 "i12628"
-                                                                               
 "i12626")))
+                                                                               
("i22"
+                                                                               
 "i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
14316}#
-                                                                        #{mod\ 
14318}#))
-                                                                    #{tmp\ 
14416}#)
+                                                                        #{s\ 
1707}#
+                                                                        #{mod\ 
1709}#))
+                                                                    #{tmp\ 
1807}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 
14377}#)))
+                                                               #{tmp\ 1768}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 14377}#
+                                                           #{tmp\ 1768}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 14377}#
+                                                      #{tmp\ 1768}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 14377}#
+                                                 #{tmp\ 1768}#
                                                  '(any any any))))
-                                            #{e\ 14313}#)
-                                           (if (memv #{ftype\ 14345}#
+                                            #{e\ 1704}#)
+                                           (if (memv #{ftype\ 1736}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 14427}#)
-                                                ((lambda (#{tmp\ 14428}#)
-                                                   (if (if #{tmp\ 14428}#
-                                                         (apply (lambda (#{_\ 
14432}#
-                                                                         
#{name\ 14433}#
-                                                                         
#{val\ 14434}#)
-                                                                  (#{id?\ 
12916}#
-                                                                    #{name\ 
14433}#))
-                                                                #{tmp\ 14428}#)
+                                             ((lambda (#{tmp\ 1818}#)
+                                                ((lambda (#{tmp\ 1819}#)
+                                                   (if (if #{tmp\ 1819}#
+                                                         (apply (lambda (#{_\ 
1823}#
+                                                                         
#{name\ 1824}#
+                                                                         
#{val\ 1825}#)
+                                                                  (#{id?\ 307}#
+                                                                    #{name\ 
1824}#))
+                                                                #{tmp\ 1819}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 
14438}#
-                                                                     #{name\ 
14439}#
-                                                                     #{val\ 
14440}#)
+                                                     (apply (lambda (#{_\ 
1829}#
+                                                                     #{name\ 
1830}#
+                                                                     #{val\ 
1831}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 14439}#
-                                                                #{val\ 14440}#
-                                                                #{w\ 14315}#
-                                                                #{s\ 14316}#
-                                                                #{mod\ 
14318}#))
-                                                            #{tmp\ 14428}#)
+                                                                #{name\ 1830}#
+                                                                #{val\ 1831}#
+                                                                #{w\ 1706}#
+                                                                #{s\ 1707}#
+                                                                #{mod\ 1709}#))
+                                                            #{tmp\ 1819}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 14427}#)))
+                                                       #{tmp\ 1818}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 14427}#
+                                                   #{tmp\ 1818}#
                                                    '(any any any))))
-                                              #{e\ 14313}#)
+                                              #{e\ 1704}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 14313}#
-                                               #{w\ 14315}#
-                                               #{s\ 14316}#
-                                               #{mod\ 14318}#))))))))))))))
-                   (if (#{syntax-object?\ 12880}# #{e\ 14313}#)
-                     (#{syntax-type\ 12997}#
-                       (#{syntax-object-expression\ 12882}#
-                         #{e\ 14313}#)
-                       #{r\ 14314}#
-                       (#{join-wraps\ 12967}#
-                         #{w\ 14315}#
-                         (#{syntax-object-wrap\ 12884}# #{e\ 14313}#))
-                       #{s\ 14316}#
-                       #{rib\ 14317}#
-                       (let ((#{t\ 14446}#
-                               (#{syntax-object-module\ 12886}# #{e\ 14313}#)))
-                         (if #{t\ 14446}# #{t\ 14446}# #{mod\ 14318}#))
-                       #{for-car?\ 14319}#)
-                     (if (self-evaluating? #{e\ 14313}#)
+                                               #{e\ 1704}#
+                                               #{w\ 1706}#
+                                               #{s\ 1707}#
+                                               #{mod\ 1709}#))))))))))))))
+                   (if (#{syntax-object?\ 271}# #{e\ 1704}#)
+                     (#{syntax-type\ 388}#
+                       (#{syntax-object-expression\ 273}# #{e\ 1704}#)
+                       #{r\ 1705}#
+                       (#{join-wraps\ 358}#
+                         #{w\ 1706}#
+                         (#{syntax-object-wrap\ 275}# #{e\ 1704}#))
+                       #{s\ 1707}#
+                       #{rib\ 1708}#
+                       (let ((#{t\ 1837}#
+                               (#{syntax-object-module\ 277}# #{e\ 1704}#)))
+                         (if #{t\ 1837}# #{t\ 1837}# #{mod\ 1709}#))
+                       #{for-car?\ 1710}#)
+                     (if (self-evaluating? #{e\ 1704}#)
                        (values
                          'constant
                          #f
-                         #{e\ 14313}#
-                         #{w\ 14315}#
-                         #{s\ 14316}#
-                         #{mod\ 14318}#)
+                         #{e\ 1704}#
+                         #{w\ 1706}#
+                         #{s\ 1707}#
+                         #{mod\ 1709}#)
                        (values
                          'other
                          #f
-                         #{e\ 14313}#
-                         #{w\ 14315}#
-                         #{s\ 14316}#
-                         #{mod\ 14318}#)))))))
-           (#{chi-when-list\ 12995}#
-             (lambda (#{e\ 14451}# #{when-list\ 14452}# #{w\ 14453}#)
-               (letrec ((#{f\ 14460}#
-                          (lambda (#{when-list\ 14461}# #{situations\ 14462}#)
-                            (if (null? #{when-list\ 14461}#)
-                              #{situations\ 14462}#
-                              (#{f\ 14460}#
-                                (cdr #{when-list\ 14461}#)
-                                (cons (let ((#{x\ 14464}#
-                                              (car #{when-list\ 14461}#)))
-                                        (if (#{free-id=?\ 12975}#
-                                              #{x\ 14464}#
+                         #{e\ 1704}#
+                         #{w\ 1706}#
+                         #{s\ 1707}#
+                         #{mod\ 1709}#)))))))
+           (#{chi-when-list\ 386}#
+             (lambda (#{e\ 1842}# #{when-list\ 1843}# #{w\ 1844}#)
+               (letrec ((#{f\ 1851}#
+                          (lambda (#{when-list\ 1852}# #{situations\ 1853}#)
+                            (if (null? #{when-list\ 1852}#)
+                              #{situations\ 1853}#
+                              (#{f\ 1851}#
+                                (cdr #{when-list\ 1852}#)
+                                (cons (let ((#{x\ 1855}#
+                                              (car #{when-list\ 1852}#)))
+                                        (if (#{free-id=?\ 366}#
+                                              #{x\ 1855}#
                                               '#(syntax-object
                                                  compile
                                                  ((top)
@@ -5954,21 +5901,17 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i14463"))
+                                                    #("i1854"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i14457"
-                                                      "i14458"
-                                                      "i14459"))
+                                                    #("i1848" "i1849" "i1850"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i14454"
-                                                      "i14455"
-                                                      "i14456"))
+                                                    #("i1845" "i1846" "i1847"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -6103,8 +6046,7 @@
                                                       make-lexical-ref
                                                       make-primitive-ref
                                                       make-const
-                                                      make-void
-                                                      *mode*)
+                                                      make-void)
                                                     ((top)
                                                      (top)
                                                      (top)
@@ -6238,155 +6180,151 @@
                                                      (top)
                                                      (top)
                                                      (top)
-                                                     (top)
                                                      (top))
-                                                    ("i13030"
-                                                     "i13028"
-                                                     "i13026"
-                                                     "i13024"
-                                                     "i13022"
-                                                     "i13020"
-                                                     "i13018"
-                                                     "i13016"
-                                                     "i13014"
-                                                     "i13012"
-                                                     "i13010"
-                                                     "i13008"
-                                                     "i13006"
-                                                     "i13004"
-                                                     "i13002"
-                                                     "i13000"
-                                                     "i12998"
-                                                     "i12996"
-                                                     "i12994"
-                                                     "i12992"
-                                                     "i12990"
-                                                     "i12988"
-                                                     "i12986"
-                                                     "i12984"
-                                                     "i12982"
-                                                     "i12980"
-                                                     "i12978"
-                                                     "i12976"
-                                                     "i12974"
-                                                     "i12972"
-                                                     "i12970"
-                                                     "i12968"
-                                                     "i12966"
-                                                     "i12964"
-                                                     "i12962"
-                                                     "i12960"
-                                                     "i12959"
-                                                     "i12958"
-                                                     "i12956"
-                                                     "i12955"
-                                                     "i12954"
-                                                     "i12953"
-                                                     "i12952"
-                                                     "i12950"
-                                                     "i12948"
-                                                     "i12946"
-                                                     "i12944"
-                                                     "i12942"
-                                                     "i12940"
-                                                     "i12938"
-                                                     "i12936"
-                                                     "i12933"
-                                                     "i12931"
-                                                     "i12930"
-                                                     "i12929"
-                                                     "i12928"
-                                                     "i12927"
-                                                     "i12926"
-                                                     "i12924"
-                                                     "i12922"
-                                                     "i12920"
-                                                     "i12918"
-                                                     "i12917"
-                                                     "i12915"
-                                                     "i12913"
-                                                     "i12911"
-                                                     "i12909"
-                                                     "i12907"
-                                                     "i12905"
-                                                     "i12903"
-                                                     "i12902"
-                                                     "i12900"
-                                                     "i12898"
-                                                     "i12897"
-                                                     "i12896"
-                                                     "i12894"
-                                                     "i12893"
-                                                     "i12891"
-                                                     "i12889"
-                                                     "i12887"
-                                                     "i12885"
-                                                     "i12883"
-                                                     "i12881"
-                                                     "i12879"
-                                                     "i12877"
-                                                     "i12875"
-                                                     "i12873"
-                                                     "i12871"
-                                                     "i12869"
-                                                     "i12867"
-                                                     "i12865"
-                                                     "i12863"
-                                                     "i12861"
-                                                     "i12859"
-                                                     "i12857"
-                                                     "i12855"
-                                                     "i12853"
-                                                     "i12851"
-                                                     "i12849"
-                                                     "i12847"
-                                                     "i12845"
-                                                     "i12843"
-                                                     "i12841"
-                                                     "i12839"
-                                                     "i12837"
-                                                     "i12835"
-                                                     "i12833"
-                                                     "i12831"
-                                                     "i12829"
-                                                     "i12828"
-                                                     "i12826"
-                                                     "i12824"
-                                                     "i12822"
-                                                     "i12820"
-                                                     "i12818"
-                                                     "i12816"
-                                                     "i12814"
-                                                     "i12812"
-                                                     "i12810"
-                                                     "i12808"
-                                                     "i12806"
-                                                     "i12804"
-                                                     "i12802"
-                                                     "i12800"
-                                                     "i12798"
-                                                     "i12796"
-                                                     "i12794"
-                                                     "i12792"
-                                                     "i12790"
-                                                     "i12788"
-                                                     "i12786"
-                                                     "i12784"
-                                                     "i12782"
-                                                     "i12780"
-                                                     "i12777"))
+                                                    ("i421"
+                                                     "i419"
+                                                     "i417"
+                                                     "i415"
+                                                     "i413"
+                                                     "i411"
+                                                     "i409"
+                                                     "i407"
+                                                     "i405"
+                                                     "i403"
+                                                     "i401"
+                                                     "i399"
+                                                     "i397"
+                                                     "i395"
+                                                     "i393"
+                                                     "i391"
+                                                     "i389"
+                                                     "i387"
+                                                     "i385"
+                                                     "i383"
+                                                     "i381"
+                                                     "i379"
+                                                     "i377"
+                                                     "i375"
+                                                     "i373"
+                                                     "i371"
+                                                     "i369"
+                                                     "i367"
+                                                     "i365"
+                                                     "i363"
+                                                     "i361"
+                                                     "i359"
+                                                     "i357"
+                                                     "i355"
+                                                     "i353"
+                                                     "i351"
+                                                     "i350"
+                                                     "i349"
+                                                     "i347"
+                                                     "i346"
+                                                     "i345"
+                                                     "i344"
+                                                     "i343"
+                                                     "i341"
+                                                     "i339"
+                                                     "i337"
+                                                     "i335"
+                                                     "i333"
+                                                     "i331"
+                                                     "i329"
+                                                     "i327"
+                                                     "i324"
+                                                     "i322"
+                                                     "i321"
+                                                     "i320"
+                                                     "i319"
+                                                     "i318"
+                                                     "i317"
+                                                     "i315"
+                                                     "i313"
+                                                     "i311"
+                                                     "i309"
+                                                     "i308"
+                                                     "i306"
+                                                     "i304"
+                                                     "i302"
+                                                     "i300"
+                                                     "i298"
+                                                     "i296"
+                                                     "i294"
+                                                     "i293"
+                                                     "i291"
+                                                     "i289"
+                                                     "i288"
+                                                     "i287"
+                                                     "i285"
+                                                     "i284"
+                                                     "i282"
+                                                     "i280"
+                                                     "i278"
+                                                     "i276"
+                                                     "i274"
+                                                     "i272"
+                                                     "i270"
+                                                     "i268"
+                                                     "i266"
+                                                     "i264"
+                                                     "i262"
+                                                     "i260"
+                                                     "i258"
+                                                     "i256"
+                                                     "i254"
+                                                     "i252"
+                                                     "i250"
+                                                     "i248"
+                                                     "i246"
+                                                     "i244"
+                                                     "i242"
+                                                     "i240"
+                                                     "i238"
+                                                     "i236"
+                                                     "i234"
+                                                     "i232"
+                                                     "i230"
+                                                     "i228"
+                                                     "i226"
+                                                     "i224"
+                                                     "i222"
+                                                     "i220"
+                                                     "i219"
+                                                     "i217"
+                                                     "i215"
+                                                     "i213"
+                                                     "i211"
+                                                     "i209"
+                                                     "i207"
+                                                     "i205"
+                                                     "i203"
+                                                     "i201"
+                                                     "i199"
+                                                     "i197"
+                                                     "i195"
+                                                     "i193"
+                                                     "i191"
+                                                     "i189"
+                                                     "i187"
+                                                     "i185"
+                                                     "i183"
+                                                     "i181"
+                                                     "i179"
+                                                     "i177"
+                                                     "i175"
+                                                     "i173"
+                                                     "i171"))
                                                   #(ribcage
                                                     (define-structure
                                                       
define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top))
-                                                    ("i12629"
-                                                     "i12628"
-                                                     "i12626")))
+                                                    ("i22" "i21" "i19")))
                                                  (hygiene guile)))
                                           'compile
-                                          (if (#{free-id=?\ 12975}#
-                                                #{x\ 14464}#
+                                          (if (#{free-id=?\ 366}#
+                                                #{x\ 1855}#
                                                 '#(syntax-object
                                                    load
                                                    ((top)
@@ -6396,21 +6334,21 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i14463"))
+                                                      #("i1854"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f when-list situations)
                                                       #((top) (top) (top))
-                                                      #("i14457"
-                                                        "i14458"
-                                                        "i14459"))
+                                                      #("i1848"
+                                                        "i1849"
+                                                        "i1850"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e when-list w)
                                                       #((top) (top) (top))
-                                                      #("i14454"
-                                                        "i14455"
-                                                        "i14456"))
+                                                      #("i1845"
+                                                        "i1846"
+                                                        "i1847"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -6545,8 +6483,7 @@
                                                         make-lexical-ref
                                                         make-primitive-ref
                                                         make-const
-                                                        make-void
-                                                        *mode*)
+                                                        make-void)
                                                       ((top)
                                                        (top)
                                                        (top)
@@ -6680,155 +6617,151 @@
                                                        (top)
                                                        (top)
                                                        (top)
-                                                       (top)
                                                        (top))
-                                                      ("i13030"
-                                                       "i13028"
-                                                       "i13026"
-                                                       "i13024"
-                                                       "i13022"
-                                                       "i13020"
-                                                       "i13018"
-                                                       "i13016"
-                                                       "i13014"
-                                                       "i13012"
-                                                       "i13010"
-                                                       "i13008"
-                                                       "i13006"
-                                                       "i13004"
-                                                       "i13002"
-                                                       "i13000"
-                                                       "i12998"
-                                                       "i12996"
-                                                       "i12994"
-                                                       "i12992"
-                                                       "i12990"
-                                                       "i12988"
-                                                       "i12986"
-                                                       "i12984"
-                                                       "i12982"
-                                                       "i12980"
-                                                       "i12978"
-                                                       "i12976"
-                                                       "i12974"
-                                                       "i12972"
-                                                       "i12970"
-                                                       "i12968"
-                                                       "i12966"
-                                                       "i12964"
-                                                       "i12962"
-                                                       "i12960"
-                                                       "i12959"
-                                                       "i12958"
-                                                       "i12956"
-                                                       "i12955"
-                                                       "i12954"
-                                                       "i12953"
-                                                       "i12952"
-                                                       "i12950"
-                                                       "i12948"
-                                                       "i12946"
-                                                       "i12944"
-                                                       "i12942"
-                                                       "i12940"
-                                                       "i12938"
-                                                       "i12936"
-                                                       "i12933"
-                                                       "i12931"
-                                                       "i12930"
-                                                       "i12929"
-                                                       "i12928"
-                                                       "i12927"
-                                                       "i12926"
-                                                       "i12924"
-                                                       "i12922"
-                                                       "i12920"
-                                                       "i12918"
-                                                       "i12917"
-                                                       "i12915"
-                                                       "i12913"
-                                                       "i12911"
-                                                       "i12909"
-                                                       "i12907"
-                                                       "i12905"
-                                                       "i12903"
-                                                       "i12902"
-                                                       "i12900"
-                                                       "i12898"
-                                                       "i12897"
-                                                       "i12896"
-                                                       "i12894"
-                                                       "i12893"
-                                                       "i12891"
-                                                       "i12889"
-                                                       "i12887"
-                                                       "i12885"
-                                                       "i12883"
-                                                       "i12881"
-                                                       "i12879"
-                                                       "i12877"
-                                                       "i12875"
-                                                       "i12873"
-                                                       "i12871"
-                                                       "i12869"
-                                                       "i12867"
-                                                       "i12865"
-                                                       "i12863"
-                                                       "i12861"
-                                                       "i12859"
-                                                       "i12857"
-                                                       "i12855"
-                                                       "i12853"
-                                                       "i12851"
-                                                       "i12849"
-                                                       "i12847"
-                                                       "i12845"
-                                                       "i12843"
-                                                       "i12841"
-                                                       "i12839"
-                                                       "i12837"
-                                                       "i12835"
-                                                       "i12833"
-                                                       "i12831"
-                                                       "i12829"
-                                                       "i12828"
-                                                       "i12826"
-                                                       "i12824"
-                                                       "i12822"
-                                                       "i12820"
-                                                       "i12818"
-                                                       "i12816"
-                                                       "i12814"
-                                                       "i12812"
-                                                       "i12810"
-                                                       "i12808"
-                                                       "i12806"
-                                                       "i12804"
-                                                       "i12802"
-                                                       "i12800"
-                                                       "i12798"
-                                                       "i12796"
-                                                       "i12794"
-                                                       "i12792"
-                                                       "i12790"
-                                                       "i12788"
-                                                       "i12786"
-                                                       "i12784"
-                                                       "i12782"
-                                                       "i12780"
-                                                       "i12777"))
+                                                      ("i421"
+                                                       "i419"
+                                                       "i417"
+                                                       "i415"
+                                                       "i413"
+                                                       "i411"
+                                                       "i409"
+                                                       "i407"
+                                                       "i405"
+                                                       "i403"
+                                                       "i401"
+                                                       "i399"
+                                                       "i397"
+                                                       "i395"
+                                                       "i393"
+                                                       "i391"
+                                                       "i389"
+                                                       "i387"
+                                                       "i385"
+                                                       "i383"
+                                                       "i381"
+                                                       "i379"
+                                                       "i377"
+                                                       "i375"
+                                                       "i373"
+                                                       "i371"
+                                                       "i369"
+                                                       "i367"
+                                                       "i365"
+                                                       "i363"
+                                                       "i361"
+                                                       "i359"
+                                                       "i357"
+                                                       "i355"
+                                                       "i353"
+                                                       "i351"
+                                                       "i350"
+                                                       "i349"
+                                                       "i347"
+                                                       "i346"
+                                                       "i345"
+                                                       "i344"
+                                                       "i343"
+                                                       "i341"
+                                                       "i339"
+                                                       "i337"
+                                                       "i335"
+                                                       "i333"
+                                                       "i331"
+                                                       "i329"
+                                                       "i327"
+                                                       "i324"
+                                                       "i322"
+                                                       "i321"
+                                                       "i320"
+                                                       "i319"
+                                                       "i318"
+                                                       "i317"
+                                                       "i315"
+                                                       "i313"
+                                                       "i311"
+                                                       "i309"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i302"
+                                                       "i300"
+                                                       "i298"
+                                                       "i296"
+                                                       "i294"
+                                                       "i293"
+                                                       "i291"
+                                                       "i289"
+                                                       "i288"
+                                                       "i287"
+                                                       "i285"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i278"
+                                                       "i276"
+                                                       "i274"
+                                                       "i272"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i264"
+                                                       "i262"
+                                                       "i260"
+                                                       "i258"
+                                                       "i256"
+                                                       "i254"
+                                                       "i252"
+                                                       "i250"
+                                                       "i248"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i240"
+                                                       "i238"
+                                                       "i236"
+                                                       "i234"
+                                                       "i232"
+                                                       "i230"
+                                                       "i228"
+                                                       "i226"
+                                                       "i224"
+                                                       "i222"
+                                                       "i220"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i207"
+                                                       "i205"
+                                                       "i203"
+                                                       "i201"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i173"
+                                                       "i171"))
                                                     #(ribcage
                                                       (define-structure
                                                         
define-expansion-constructors
                                                         and-map*)
                                                       ((top) (top) (top))
-                                                      ("i12629"
-                                                       "i12628"
-                                                       "i12626")))
+                                                      ("i22" "i21" "i19")))
                                                    (hygiene guile)))
                                             'load
-                                            (if (#{free-id=?\ 12975}#
-                                                  #{x\ 14464}#
+                                            (if (#{free-id=?\ 366}#
+                                                  #{x\ 1855}#
                                                   '#(syntax-object
                                                      eval
                                                      ((top)
@@ -6838,23 +6771,23 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i14463"))
+                                                        #("i1854"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f
                                                           when-list
                                                           situations)
                                                         #((top) (top) (top))
-                                                        #("i14457"
-                                                          "i14458"
-                                                          "i14459"))
+                                                        #("i1848"
+                                                          "i1849"
+                                                          "i1850"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(e when-list w)
                                                         #((top) (top) (top))
-                                                        #("i14454"
-                                                          "i14455"
-                                                          "i14456"))
+                                                        #("i1845"
+                                                          "i1846"
+                                                          "i1847"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -6989,8 +6922,7 @@
                                                           make-lexical-ref
                                                           make-primitive-ref
                                                           make-const
-                                                          make-void
-                                                          *mode*)
+                                                          make-void)
                                                         ((top)
                                                          (top)
                                                          (top)
@@ -7124,155 +7056,151 @@
                                                          (top)
                                                          (top)
                                                          (top)
-                                                         (top)
                                                          (top))
-                                                        ("i13030"
-                                                         "i13028"
-                                                         "i13026"
-                                                         "i13024"
-                                                         "i13022"
-                                                         "i13020"
-                                                         "i13018"
-                                                         "i13016"
-                                                         "i13014"
-                                                         "i13012"
-                                                         "i13010"
-                                                         "i13008"
-                                                         "i13006"
-                                                         "i13004"
-                                                         "i13002"
-                                                         "i13000"
-                                                         "i12998"
-                                                         "i12996"
-                                                         "i12994"
-                                                         "i12992"
-                                                         "i12990"
-                                                         "i12988"
-                                                         "i12986"
-                                                         "i12984"
-                                                         "i12982"
-                                                         "i12980"
-                                                         "i12978"
-                                                         "i12976"
-                                                         "i12974"
-                                                         "i12972"
-                                                         "i12970"
-                                                         "i12968"
-                                                         "i12966"
-                                                         "i12964"
-                                                         "i12962"
-                                                         "i12960"
-                                                         "i12959"
-                                                         "i12958"
-                                                         "i12956"
-                                                         "i12955"
-                                                         "i12954"
-                                                         "i12953"
-                                                         "i12952"
-                                                         "i12950"
-                                                         "i12948"
-                                                         "i12946"
-                                                         "i12944"
-                                                         "i12942"
-                                                         "i12940"
-                                                         "i12938"
-                                                         "i12936"
-                                                         "i12933"
-                                                         "i12931"
-                                                         "i12930"
-                                                         "i12929"
-                                                         "i12928"
-                                                         "i12927"
-                                                         "i12926"
-                                                         "i12924"
-                                                         "i12922"
-                                                         "i12920"
-                                                         "i12918"
-                                                         "i12917"
-                                                         "i12915"
-                                                         "i12913"
-                                                         "i12911"
-                                                         "i12909"
-                                                         "i12907"
-                                                         "i12905"
-                                                         "i12903"
-                                                         "i12902"
-                                                         "i12900"
-                                                         "i12898"
-                                                         "i12897"
-                                                         "i12896"
-                                                         "i12894"
-                                                         "i12893"
-                                                         "i12891"
-                                                         "i12889"
-                                                         "i12887"
-                                                         "i12885"
-                                                         "i12883"
-                                                         "i12881"
-                                                         "i12879"
-                                                         "i12877"
-                                                         "i12875"
-                                                         "i12873"
-                                                         "i12871"
-                                                         "i12869"
-                                                         "i12867"
-                                                         "i12865"
-                                                         "i12863"
-                                                         "i12861"
-                                                         "i12859"
-                                                         "i12857"
-                                                         "i12855"
-                                                         "i12853"
-                                                         "i12851"
-                                                         "i12849"
-                                                         "i12847"
-                                                         "i12845"
-                                                         "i12843"
-                                                         "i12841"
-                                                         "i12839"
-                                                         "i12837"
-                                                         "i12835"
-                                                         "i12833"
-                                                         "i12831"
-                                                         "i12829"
-                                                         "i12828"
-                                                         "i12826"
-                                                         "i12824"
-                                                         "i12822"
-                                                         "i12820"
-                                                         "i12818"
-                                                         "i12816"
-                                                         "i12814"
-                                                         "i12812"
-                                                         "i12810"
-                                                         "i12808"
-                                                         "i12806"
-                                                         "i12804"
-                                                         "i12802"
-                                                         "i12800"
-                                                         "i12798"
-                                                         "i12796"
-                                                         "i12794"
-                                                         "i12792"
-                                                         "i12790"
-                                                         "i12788"
-                                                         "i12786"
-                                                         "i12784"
-                                                         "i12782"
-                                                         "i12780"
-                                                         "i12777"))
+                                                        ("i421"
+                                                         "i419"
+                                                         "i417"
+                                                         "i415"
+                                                         "i413"
+                                                         "i411"
+                                                         "i409"
+                                                         "i407"
+                                                         "i405"
+                                                         "i403"
+                                                         "i401"
+                                                         "i399"
+                                                         "i397"
+                                                         "i395"
+                                                         "i393"
+                                                         "i391"
+                                                         "i389"
+                                                         "i387"
+                                                         "i385"
+                                                         "i383"
+                                                         "i381"
+                                                         "i379"
+                                                         "i377"
+                                                         "i375"
+                                                         "i373"
+                                                         "i371"
+                                                         "i369"
+                                                         "i367"
+                                                         "i365"
+                                                         "i363"
+                                                         "i361"
+                                                         "i359"
+                                                         "i357"
+                                                         "i355"
+                                                         "i353"
+                                                         "i351"
+                                                         "i350"
+                                                         "i349"
+                                                         "i347"
+                                                         "i346"
+                                                         "i345"
+                                                         "i344"
+                                                         "i343"
+                                                         "i341"
+                                                         "i339"
+                                                         "i337"
+                                                         "i335"
+                                                         "i333"
+                                                         "i331"
+                                                         "i329"
+                                                         "i327"
+                                                         "i324"
+                                                         "i322"
+                                                         "i321"
+                                                         "i320"
+                                                         "i319"
+                                                         "i318"
+                                                         "i317"
+                                                         "i315"
+                                                         "i313"
+                                                         "i311"
+                                                         "i309"
+                                                         "i308"
+                                                         "i306"
+                                                         "i304"
+                                                         "i302"
+                                                         "i300"
+                                                         "i298"
+                                                         "i296"
+                                                         "i294"
+                                                         "i293"
+                                                         "i291"
+                                                         "i289"
+                                                         "i288"
+                                                         "i287"
+                                                         "i285"
+                                                         "i284"
+                                                         "i282"
+                                                         "i280"
+                                                         "i278"
+                                                         "i276"
+                                                         "i274"
+                                                         "i272"
+                                                         "i270"
+                                                         "i268"
+                                                         "i266"
+                                                         "i264"
+                                                         "i262"
+                                                         "i260"
+                                                         "i258"
+                                                         "i256"
+                                                         "i254"
+                                                         "i252"
+                                                         "i250"
+                                                         "i248"
+                                                         "i246"
+                                                         "i244"
+                                                         "i242"
+                                                         "i240"
+                                                         "i238"
+                                                         "i236"
+                                                         "i234"
+                                                         "i232"
+                                                         "i230"
+                                                         "i228"
+                                                         "i226"
+                                                         "i224"
+                                                         "i222"
+                                                         "i220"
+                                                         "i219"
+                                                         "i217"
+                                                         "i215"
+                                                         "i213"
+                                                         "i211"
+                                                         "i209"
+                                                         "i207"
+                                                         "i205"
+                                                         "i203"
+                                                         "i201"
+                                                         "i199"
+                                                         "i197"
+                                                         "i195"
+                                                         "i193"
+                                                         "i191"
+                                                         "i189"
+                                                         "i187"
+                                                         "i185"
+                                                         "i183"
+                                                         "i181"
+                                                         "i179"
+                                                         "i177"
+                                                         "i175"
+                                                         "i173"
+                                                         "i171"))
                                                       #(ribcage
                                                         (define-structure
                                                           
define-expansion-constructors
                                                           and-map*)
                                                         ((top) (top) (top))
-                                                        ("i12629"
-                                                         "i12628"
-                                                         "i12626")))
+                                                        ("i22" "i21" "i19")))
                                                      (hygiene guile)))
                                               'eval
-                                              (if (#{free-id=?\ 12975}#
-                                                    #{x\ 14464}#
+                                              (if (#{free-id=?\ 366}#
+                                                    #{x\ 1855}#
                                                     '#(syntax-object
                                                        expand
                                                        ((top)
@@ -7282,23 +7210,23 @@
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i14463"))
+                                                          #("i1854"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f
                                                             when-list
                                                             situations)
                                                           #((top) (top) (top))
-                                                          #("i14457"
-                                                            "i14458"
-                                                            "i14459"))
+                                                          #("i1848"
+                                                            "i1849"
+                                                            "i1850"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(e when-list w)
                                                           #((top) (top) (top))
-                                                          #("i14454"
-                                                            "i14455"
-                                                            "i14456"))
+                                                          #("i1845"
+                                                            "i1846"
+                                                            "i1847"))
                                                         #(ribcage
                                                           (lambda-var-list
                                                             gen-var
@@ -7433,8 +7361,7 @@
                                                             make-lexical-ref
                                                             make-primitive-ref
                                                             make-const
-                                                            make-void
-                                                            *mode*)
+                                                            make-void)
                                                           ((top)
                                                            (top)
                                                            (top)
@@ -7568,2530 +7495,2403 @@
                                                            (top)
                                                            (top)
                                                            (top)
-                                                           (top)
                                                            (top))
-                                                          ("i13030"
-                                                           "i13028"
-                                                           "i13026"
-                                                           "i13024"
-                                                           "i13022"
-                                                           "i13020"
-                                                           "i13018"
-                                                           "i13016"
-                                                           "i13014"
-                                                           "i13012"
-                                                           "i13010"
-                                                           "i13008"
-                                                           "i13006"
-                                                           "i13004"
-                                                           "i13002"
-                                                           "i13000"
-                                                           "i12998"
-                                                           "i12996"
-                                                           "i12994"
-                                                           "i12992"
-                                                           "i12990"
-                                                           "i12988"
-                                                           "i12986"
-                                                           "i12984"
-                                                           "i12982"
-                                                           "i12980"
-                                                           "i12978"
-                                                           "i12976"
-                                                           "i12974"
-                                                           "i12972"
-                                                           "i12970"
-                                                           "i12968"
-                                                           "i12966"
-                                                           "i12964"
-                                                           "i12962"
-                                                           "i12960"
-                                                           "i12959"
-                                                           "i12958"
-                                                           "i12956"
-                                                           "i12955"
-                                                           "i12954"
-                                                           "i12953"
-                                                           "i12952"
-                                                           "i12950"
-                                                           "i12948"
-                                                           "i12946"
-                                                           "i12944"
-                                                           "i12942"
-                                                           "i12940"
-                                                           "i12938"
-                                                           "i12936"
-                                                           "i12933"
-                                                           "i12931"
-                                                           "i12930"
-                                                           "i12929"
-                                                           "i12928"
-                                                           "i12927"
-                                                           "i12926"
-                                                           "i12924"
-                                                           "i12922"
-                                                           "i12920"
-                                                           "i12918"
-                                                           "i12917"
-                                                           "i12915"
-                                                           "i12913"
-                                                           "i12911"
-                                                           "i12909"
-                                                           "i12907"
-                                                           "i12905"
-                                                           "i12903"
-                                                           "i12902"
-                                                           "i12900"
-                                                           "i12898"
-                                                           "i12897"
-                                                           "i12896"
-                                                           "i12894"
-                                                           "i12893"
-                                                           "i12891"
-                                                           "i12889"
-                                                           "i12887"
-                                                           "i12885"
-                                                           "i12883"
-                                                           "i12881"
-                                                           "i12879"
-                                                           "i12877"
-                                                           "i12875"
-                                                           "i12873"
-                                                           "i12871"
-                                                           "i12869"
-                                                           "i12867"
-                                                           "i12865"
-                                                           "i12863"
-                                                           "i12861"
-                                                           "i12859"
-                                                           "i12857"
-                                                           "i12855"
-                                                           "i12853"
-                                                           "i12851"
-                                                           "i12849"
-                                                           "i12847"
-                                                           "i12845"
-                                                           "i12843"
-                                                           "i12841"
-                                                           "i12839"
-                                                           "i12837"
-                                                           "i12835"
-                                                           "i12833"
-                                                           "i12831"
-                                                           "i12829"
-                                                           "i12828"
-                                                           "i12826"
-                                                           "i12824"
-                                                           "i12822"
-                                                           "i12820"
-                                                           "i12818"
-                                                           "i12816"
-                                                           "i12814"
-                                                           "i12812"
-                                                           "i12810"
-                                                           "i12808"
-                                                           "i12806"
-                                                           "i12804"
-                                                           "i12802"
-                                                           "i12800"
-                                                           "i12798"
-                                                           "i12796"
-                                                           "i12794"
-                                                           "i12792"
-                                                           "i12790"
-                                                           "i12788"
-                                                           "i12786"
-                                                           "i12784"
-                                                           "i12782"
-                                                           "i12780"
-                                                           "i12777"))
+                                                          ("i421"
+                                                           "i419"
+                                                           "i417"
+                                                           "i415"
+                                                           "i413"
+                                                           "i411"
+                                                           "i409"
+                                                           "i407"
+                                                           "i405"
+                                                           "i403"
+                                                           "i401"
+                                                           "i399"
+                                                           "i397"
+                                                           "i395"
+                                                           "i393"
+                                                           "i391"
+                                                           "i389"
+                                                           "i387"
+                                                           "i385"
+                                                           "i383"
+                                                           "i381"
+                                                           "i379"
+                                                           "i377"
+                                                           "i375"
+                                                           "i373"
+                                                           "i371"
+                                                           "i369"
+                                                           "i367"
+                                                           "i365"
+                                                           "i363"
+                                                           "i361"
+                                                           "i359"
+                                                           "i357"
+                                                           "i355"
+                                                           "i353"
+                                                           "i351"
+                                                           "i350"
+                                                           "i349"
+                                                           "i347"
+                                                           "i346"
+                                                           "i345"
+                                                           "i344"
+                                                           "i343"
+                                                           "i341"
+                                                           "i339"
+                                                           "i337"
+                                                           "i335"
+                                                           "i333"
+                                                           "i331"
+                                                           "i329"
+                                                           "i327"
+                                                           "i324"
+                                                           "i322"
+                                                           "i321"
+                                                           "i320"
+                                                           "i319"
+                                                           "i318"
+                                                           "i317"
+                                                           "i315"
+                                                           "i313"
+                                                           "i311"
+                                                           "i309"
+                                                           "i308"
+                                                           "i306"
+                                                           "i304"
+                                                           "i302"
+                                                           "i300"
+                                                           "i298"
+                                                           "i296"
+                                                           "i294"
+                                                           "i293"
+                                                           "i291"
+                                                           "i289"
+                                                           "i288"
+                                                           "i287"
+                                                           "i285"
+                                                           "i284"
+                                                           "i282"
+                                                           "i280"
+                                                           "i278"
+                                                           "i276"
+                                                           "i274"
+                                                           "i272"
+                                                           "i270"
+                                                           "i268"
+                                                           "i266"
+                                                           "i264"
+                                                           "i262"
+                                                           "i260"
+                                                           "i258"
+                                                           "i256"
+                                                           "i254"
+                                                           "i252"
+                                                           "i250"
+                                                           "i248"
+                                                           "i246"
+                                                           "i244"
+                                                           "i242"
+                                                           "i240"
+                                                           "i238"
+                                                           "i236"
+                                                           "i234"
+                                                           "i232"
+                                                           "i230"
+                                                           "i228"
+                                                           "i226"
+                                                           "i224"
+                                                           "i222"
+                                                           "i220"
+                                                           "i219"
+                                                           "i217"
+                                                           "i215"
+                                                           "i213"
+                                                           "i211"
+                                                           "i209"
+                                                           "i207"
+                                                           "i205"
+                                                           "i203"
+                                                           "i201"
+                                                           "i199"
+                                                           "i197"
+                                                           "i195"
+                                                           "i193"
+                                                           "i191"
+                                                           "i189"
+                                                           "i187"
+                                                           "i185"
+                                                           "i183"
+                                                           "i181"
+                                                           "i179"
+                                                           "i177"
+                                                           "i175"
+                                                           "i173"
+                                                           "i171"))
                                                         #(ribcage
                                                           (define-structure
                                                             
define-expansion-constructors
                                                             and-map*)
                                                           ((top) (top) (top))
-                                                          ("i12629"
-                                                           "i12628"
-                                                           "i12626")))
+                                                          ("i22" "i21" "i19")))
                                                        (hygiene guile)))
                                                 'expand
                                                 (syntax-violation
                                                   'eval-when
                                                   "invalid situation"
-                                                  #{e\ 14451}#
-                                                  (#{wrap\ 12985}#
-                                                    #{x\ 14464}#
-                                                    #{w\ 14453}#
+                                                  #{e\ 1842}#
+                                                  (#{wrap\ 376}#
+                                                    #{x\ 1855}#
+                                                    #{w\ 1844}#
                                                     #f)))))))
-                                      #{situations\ 14462}#))))))
-                 (#{f\ 14460}# #{when-list\ 14452}# (quote ())))))
-           (#{chi-install-global\ 12993}#
-             (lambda (#{name\ 14474}# #{e\ 14475}#)
-               (#{build-global-definition\ 12856}#
+                                      #{situations\ 1853}#))))))
+                 (#{f\ 1851}# #{when-list\ 1843}# (quote ())))))
+           (#{chi-install-global\ 384}#
+             (lambda (#{name\ 1865}# #{e\ 1866}#)
+               (#{build-global-definition\ 247}#
                  #f
-                 #{name\ 14474}#
-                 (#{build-application\ 12838}#
+                 #{name\ 1865}#
+                 (#{build-application\ 229}#
                    #f
-                   (#{build-primref\ 12864}#
+                   (#{build-primref\ 255}#
                      #f
                      'make-syntax-transformer)
-                   (list (#{build-data\ 12866}# #f #{name\ 14474}#)
-                         (#{build-data\ 12866}# #f (quote macro))
-                         (#{build-application\ 12838}#
+                   (list (#{build-data\ 257}# #f #{name\ 1865}#)
+                         (#{build-data\ 257}# #f (quote macro))
+                         (#{build-application\ 229}#
                            #f
-                           (#{build-primref\ 12864}# #f (quote cons))
-                           (list #{e\ 14475}#
-                                 (#{build-application\ 12838}#
+                           (#{build-primref\ 255}# #f (quote cons))
+                           (list #{e\ 1866}#
+                                 (#{build-application\ 229}#
                                    #f
-                                   (#{build-primref\ 12864}#
+                                   (#{build-primref\ 255}#
                                      #f
                                      'module-name)
-                                   (list (#{build-application\ 12838}#
+                                   (list (#{build-application\ 229}#
                                            #f
-                                           (#{build-primref\ 12864}#
+                                           (#{build-primref\ 255}#
                                              #f
                                              'current-module)
                                            '()))))))))))
-           (#{chi-top-sequence\ 12991}#
-             (lambda (#{body\ 14489}#
-                      #{r\ 14490}#
-                      #{w\ 14491}#
-                      #{s\ 14492}#
-                      #{m\ 14493}#
-                      #{esew\ 14494}#
-                      #{mod\ 14495}#)
-               (#{build-sequence\ 12868}#
-                 #{s\ 14492}#
-                 (letrec ((#{dobody\ 14511}#
-                            (lambda (#{body\ 14512}#
-                                     #{r\ 14513}#
-                                     #{w\ 14514}#
-                                     #{m\ 14515}#
-                                     #{esew\ 14516}#
-                                     #{mod\ 14517}#
-                                     #{out\ 14518}#)
-                              (if (null? #{body\ 14512}#)
-                                (reverse #{out\ 14518}#)
-                                (#{dobody\ 14511}#
-                                  (cdr #{body\ 14512}#)
-                                  #{r\ 14513}#
-                                  #{w\ 14514}#
-                                  #{m\ 14515}#
-                                  #{esew\ 14516}#
-                                  #{mod\ 14517}#
-                                  (cons (#{chi-top\ 12999}#
-                                          (car #{body\ 14512}#)
-                                          #{r\ 14513}#
-                                          #{w\ 14514}#
-                                          #{m\ 14515}#
-                                          #{esew\ 14516}#
-                                          #{mod\ 14517}#)
-                                        #{out\ 14518}#))))))
-                   (#{dobody\ 14511}#
-                     #{body\ 14489}#
-                     #{r\ 14490}#
-                     #{w\ 14491}#
-                     #{m\ 14493}#
-                     #{esew\ 14494}#
-                     #{mod\ 14495}#
+           (#{chi-top-sequence\ 382}#
+             (lambda (#{body\ 1880}#
+                      #{r\ 1881}#
+                      #{w\ 1882}#
+                      #{s\ 1883}#
+                      #{m\ 1884}#
+                      #{esew\ 1885}#
+                      #{mod\ 1886}#)
+               (#{build-sequence\ 259}#
+                 #{s\ 1883}#
+                 (letrec ((#{dobody\ 1902}#
+                            (lambda (#{body\ 1903}#
+                                     #{r\ 1904}#
+                                     #{w\ 1905}#
+                                     #{m\ 1906}#
+                                     #{esew\ 1907}#
+                                     #{mod\ 1908}#
+                                     #{out\ 1909}#)
+                              (if (null? #{body\ 1903}#)
+                                (reverse #{out\ 1909}#)
+                                (#{dobody\ 1902}#
+                                  (cdr #{body\ 1903}#)
+                                  #{r\ 1904}#
+                                  #{w\ 1905}#
+                                  #{m\ 1906}#
+                                  #{esew\ 1907}#
+                                  #{mod\ 1908}#
+                                  (cons (#{chi-top\ 390}#
+                                          (car #{body\ 1903}#)
+                                          #{r\ 1904}#
+                                          #{w\ 1905}#
+                                          #{m\ 1906}#
+                                          #{esew\ 1907}#
+                                          #{mod\ 1908}#)
+                                        #{out\ 1909}#))))))
+                   (#{dobody\ 1902}#
+                     #{body\ 1880}#
+                     #{r\ 1881}#
+                     #{w\ 1882}#
+                     #{m\ 1884}#
+                     #{esew\ 1885}#
+                     #{mod\ 1886}#
                      '())))))
-           (#{chi-sequence\ 12989}#
-             (lambda (#{body\ 14519}#
-                      #{r\ 14520}#
-                      #{w\ 14521}#
-                      #{s\ 14522}#
-                      #{mod\ 14523}#)
-               (#{build-sequence\ 12868}#
-                 #{s\ 14522}#
-                 (letrec ((#{dobody\ 14534}#
-                            (lambda (#{body\ 14535}#
-                                     #{r\ 14536}#
-                                     #{w\ 14537}#
-                                     #{mod\ 14538}#)
-                              (if (null? #{body\ 14535}#)
+           (#{chi-sequence\ 380}#
+             (lambda (#{body\ 1910}#
+                      #{r\ 1911}#
+                      #{w\ 1912}#
+                      #{s\ 1913}#
+                      #{mod\ 1914}#)
+               (#{build-sequence\ 259}#
+                 #{s\ 1913}#
+                 (letrec ((#{dobody\ 1925}#
+                            (lambda (#{body\ 1926}#
+                                     #{r\ 1927}#
+                                     #{w\ 1928}#
+                                     #{mod\ 1929}#)
+                              (if (null? #{body\ 1926}#)
                                 '()
-                                (let ((#{first\ 14540}#
-                                        (#{chi\ 13001}#
-                                          (car #{body\ 14535}#)
-                                          #{r\ 14536}#
-                                          #{w\ 14537}#
-                                          #{mod\ 14538}#)))
-                                  (cons #{first\ 14540}#
-                                        (#{dobody\ 14534}#
-                                          (cdr #{body\ 14535}#)
-                                          #{r\ 14536}#
-                                          #{w\ 14537}#
-                                          #{mod\ 14538}#)))))))
-                   (#{dobody\ 14534}#
-                     #{body\ 14519}#
-                     #{r\ 14520}#
-                     #{w\ 14521}#
-                     #{mod\ 14523}#)))))
-           (#{source-wrap\ 12987}#
-             (lambda (#{x\ 14541}#
-                      #{w\ 14542}#
-                      #{s\ 14543}#
-                      #{defmod\ 14544}#)
-               (#{wrap\ 12985}#
-                 (#{decorate-source\ 12834}#
-                   #{x\ 14541}#
-                   #{s\ 14543}#)
-                 #{w\ 14542}#
-                 #{defmod\ 14544}#)))
-           (#{wrap\ 12985}#
-             (lambda (#{x\ 14549}# #{w\ 14550}# #{defmod\ 14551}#)
-               (if (if (null? (#{wrap-marks\ 12923}# #{w\ 14550}#))
-                     (null? (#{wrap-subst\ 12925}# #{w\ 14550}#))
+                                (let ((#{first\ 1931}#
+                                        (#{chi\ 392}#
+                                          (car #{body\ 1926}#)
+                                          #{r\ 1927}#
+                                          #{w\ 1928}#
+                                          #{mod\ 1929}#)))
+                                  (cons #{first\ 1931}#
+                                        (#{dobody\ 1925}#
+                                          (cdr #{body\ 1926}#)
+                                          #{r\ 1927}#
+                                          #{w\ 1928}#
+                                          #{mod\ 1929}#)))))))
+                   (#{dobody\ 1925}#
+                     #{body\ 1910}#
+                     #{r\ 1911}#
+                     #{w\ 1912}#
+                     #{mod\ 1914}#)))))
+           (#{source-wrap\ 378}#
+             (lambda (#{x\ 1932}#
+                      #{w\ 1933}#
+                      #{s\ 1934}#
+                      #{defmod\ 1935}#)
+               (#{wrap\ 376}#
+                 (#{decorate-source\ 225}#
+                   #{x\ 1932}#
+                   #{s\ 1934}#)
+                 #{w\ 1933}#
+                 #{defmod\ 1935}#)))
+           (#{wrap\ 376}#
+             (lambda (#{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#)
+               (if (if (null? (#{wrap-marks\ 314}# #{w\ 1941}#))
+                     (null? (#{wrap-subst\ 316}# #{w\ 1941}#))
                      #f)
-                 #{x\ 14549}#
-                 (if (#{syntax-object?\ 12880}# #{x\ 14549}#)
-                   (#{make-syntax-object\ 12878}#
-                     (#{syntax-object-expression\ 12882}#
-                       #{x\ 14549}#)
-                     (#{join-wraps\ 12967}#
-                       #{w\ 14550}#
-                       (#{syntax-object-wrap\ 12884}# #{x\ 14549}#))
-                     (#{syntax-object-module\ 12886}# #{x\ 14549}#))
-                   (if (null? #{x\ 14549}#)
-                     #{x\ 14549}#
-                     (#{make-syntax-object\ 12878}#
-                       #{x\ 14549}#
-                       #{w\ 14550}#
-                       #{defmod\ 14551}#))))))
-           (#{bound-id-member?\ 12983}#
-             (lambda (#{x\ 14564}# #{list\ 14565}#)
-               (if (not (null? #{list\ 14565}#))
-                 (let ((#{t\ 14572}#
-                         (#{bound-id=?\ 12977}#
-                           #{x\ 14564}#
-                           (car #{list\ 14565}#))))
-                   (if #{t\ 14572}#
-                     #{t\ 14572}#
-                     (#{bound-id-member?\ 12983}#
-                       #{x\ 14564}#
-                       (cdr #{list\ 14565}#))))
+                 #{x\ 1940}#
+                 (if (#{syntax-object?\ 271}# #{x\ 1940}#)
+                   (#{make-syntax-object\ 269}#
+                     (#{syntax-object-expression\ 273}# #{x\ 1940}#)
+                     (#{join-wraps\ 358}#
+                       #{w\ 1941}#
+                       (#{syntax-object-wrap\ 275}# #{x\ 1940}#))
+                     (#{syntax-object-module\ 277}# #{x\ 1940}#))
+                   (if (null? #{x\ 1940}#)
+                     #{x\ 1940}#
+                     (#{make-syntax-object\ 269}#
+                       #{x\ 1940}#
+                       #{w\ 1941}#
+                       #{defmod\ 1942}#))))))
+           (#{bound-id-member?\ 374}#
+             (lambda (#{x\ 1955}# #{list\ 1956}#)
+               (if (not (null? #{list\ 1956}#))
+                 (let ((#{t\ 1963}#
+                         (#{bound-id=?\ 368}#
+                           #{x\ 1955}#
+                           (car #{list\ 1956}#))))
+                   (if #{t\ 1963}#
+                     #{t\ 1963}#
+                     (#{bound-id-member?\ 374}#
+                       #{x\ 1955}#
+                       (cdr #{list\ 1956}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 12981}#
-             (lambda (#{ids\ 14574}#)
-               (letrec ((#{distinct?\ 14578}#
-                          (lambda (#{ids\ 14579}#)
-                            (let ((#{t\ 14582}# (null? #{ids\ 14579}#)))
-                              (if #{t\ 14582}#
-                                #{t\ 14582}#
-                                (if (not (#{bound-id-member?\ 12983}#
-                                           (car #{ids\ 14579}#)
-                                           (cdr #{ids\ 14579}#)))
-                                  (#{distinct?\ 14578}# (cdr #{ids\ 14579}#))
+           (#{distinct-bound-ids?\ 372}#
+             (lambda (#{ids\ 1965}#)
+               (letrec ((#{distinct?\ 1969}#
+                          (lambda (#{ids\ 1970}#)
+                            (let ((#{t\ 1973}# (null? #{ids\ 1970}#)))
+                              (if #{t\ 1973}#
+                                #{t\ 1973}#
+                                (if (not (#{bound-id-member?\ 374}#
+                                           (car #{ids\ 1970}#)
+                                           (cdr #{ids\ 1970}#)))
+                                  (#{distinct?\ 1969}# (cdr #{ids\ 1970}#))
                                   #f))))))
-                 (#{distinct?\ 14578}# #{ids\ 14574}#))))
-           (#{valid-bound-ids?\ 12979}#
-             (lambda (#{ids\ 14586}#)
-               (if (letrec ((#{all-ids?\ 14591}#
-                              (lambda (#{ids\ 14592}#)
-                                (let ((#{t\ 14595}# (null? #{ids\ 14592}#)))
-                                  (if #{t\ 14595}#
-                                    #{t\ 14595}#
-                                    (if (#{id?\ 12916}# (car #{ids\ 14592}#))
-                                      (#{all-ids?\ 14591}#
-                                        (cdr #{ids\ 14592}#))
+                 (#{distinct?\ 1969}# #{ids\ 1965}#))))
+           (#{valid-bound-ids?\ 370}#
+             (lambda (#{ids\ 1977}#)
+               (if (letrec ((#{all-ids?\ 1982}#
+                              (lambda (#{ids\ 1983}#)
+                                (let ((#{t\ 1986}# (null? #{ids\ 1983}#)))
+                                  (if #{t\ 1986}#
+                                    #{t\ 1986}#
+                                    (if (#{id?\ 307}# (car #{ids\ 1983}#))
+                                      (#{all-ids?\ 1982}# (cdr #{ids\ 1983}#))
                                       #f))))))
-                     (#{all-ids?\ 14591}# #{ids\ 14586}#))
-                 (#{distinct-bound-ids?\ 12981}# #{ids\ 14586}#)
+                     (#{all-ids?\ 1982}# #{ids\ 1977}#))
+                 (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#)
                  #f)))
-           (#{bound-id=?\ 12977}#
-             (lambda (#{i\ 14600}# #{j\ 14601}#)
-               (if (if (#{syntax-object?\ 12880}# #{i\ 14600}#)
-                     (#{syntax-object?\ 12880}# #{j\ 14601}#)
+           (#{bound-id=?\ 368}#
+             (lambda (#{i\ 1991}# #{j\ 1992}#)
+               (if (if (#{syntax-object?\ 271}# #{i\ 1991}#)
+                     (#{syntax-object?\ 271}# #{j\ 1992}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 12882}#
-                            #{i\ 14600}#)
-                          (#{syntax-object-expression\ 12882}#
-                            #{j\ 14601}#))
-                   (#{same-marks?\ 12971}#
-                     (#{wrap-marks\ 12923}#
-                       (#{syntax-object-wrap\ 12884}# #{i\ 14600}#))
-                     (#{wrap-marks\ 12923}#
-                       (#{syntax-object-wrap\ 12884}# #{j\ 14601}#)))
+                 (if (eq? (#{syntax-object-expression\ 273}# #{i\ 1991}#)
+                          (#{syntax-object-expression\ 273}# #{j\ 1992}#))
+                   (#{same-marks?\ 362}#
+                     (#{wrap-marks\ 314}#
+                       (#{syntax-object-wrap\ 275}# #{i\ 1991}#))
+                     (#{wrap-marks\ 314}#
+                       (#{syntax-object-wrap\ 275}# #{j\ 1992}#)))
                    #f)
-                 (eq? #{i\ 14600}# #{j\ 14601}#))))
-           (#{free-id=?\ 12975}#
-             (lambda (#{i\ 14608}# #{j\ 14609}#)
-               (if (eq? (let ((#{x\ 14615}# #{i\ 14608}#))
-                          (if (#{syntax-object?\ 12880}# #{x\ 14615}#)
-                            (#{syntax-object-expression\ 12882}#
-                              #{x\ 14615}#)
-                            #{x\ 14615}#))
-                        (let ((#{x\ 14618}# #{j\ 14609}#))
-                          (if (#{syntax-object?\ 12880}# #{x\ 14618}#)
-                            (#{syntax-object-expression\ 12882}#
-                              #{x\ 14618}#)
-                            #{x\ 14618}#)))
-                 (eq? (#{id-var-name\ 12973}#
-                        #{i\ 14608}#
-                        '(()))
-                      (#{id-var-name\ 12973}#
-                        #{j\ 14609}#
-                        '(())))
+                 (eq? #{i\ 1991}# #{j\ 1992}#))))
+           (#{free-id=?\ 366}#
+             (lambda (#{i\ 1999}# #{j\ 2000}#)
+               (if (eq? (let ((#{x\ 2006}# #{i\ 1999}#))
+                          (if (#{syntax-object?\ 271}# #{x\ 2006}#)
+                            (#{syntax-object-expression\ 273}# #{x\ 2006}#)
+                            #{x\ 2006}#))
+                        (let ((#{x\ 2009}# #{j\ 2000}#))
+                          (if (#{syntax-object?\ 271}# #{x\ 2009}#)
+                            (#{syntax-object-expression\ 273}# #{x\ 2009}#)
+                            #{x\ 2009}#)))
+                 (eq? (#{id-var-name\ 364}# #{i\ 1999}# (quote (())))
+                      (#{id-var-name\ 364}# #{j\ 2000}# (quote (()))))
                  #f)))
-           (#{id-var-name\ 12973}#
-             (lambda (#{id\ 14622}# #{w\ 14623}#)
-               (letrec ((#{search-vector-rib\ 14632}#
-                          (lambda (#{sym\ 14644}#
-                                   #{subst\ 14645}#
-                                   #{marks\ 14646}#
-                                   #{symnames\ 14647}#
-                                   #{ribcage\ 14648}#)
-                            (let ((#{n\ 14655}#
-                                    (vector-length #{symnames\ 14647}#)))
-                              (letrec ((#{f\ 14658}#
-                                         (lambda (#{i\ 14659}#)
-                                           (if (#{fx=\ 12821}#
-                                                 #{i\ 14659}#
-                                                 #{n\ 14655}#)
-                                             (#{search\ 14628}#
-                                               #{sym\ 14644}#
-                                               (cdr #{subst\ 14645}#)
-                                               #{marks\ 14646}#)
+           (#{id-var-name\ 364}#
+             (lambda (#{id\ 2013}# #{w\ 2014}#)
+               (letrec ((#{search-vector-rib\ 2023}#
+                          (lambda (#{sym\ 2035}#
+                                   #{subst\ 2036}#
+                                   #{marks\ 2037}#
+                                   #{symnames\ 2038}#
+                                   #{ribcage\ 2039}#)
+                            (let ((#{n\ 2046}#
+                                    (vector-length #{symnames\ 2038}#)))
+                              (letrec ((#{f\ 2049}#
+                                         (lambda (#{i\ 2050}#)
+                                           (if (#{fx=\ 212}#
+                                                 #{i\ 2050}#
+                                                 #{n\ 2046}#)
+                                             (#{search\ 2019}#
+                                               #{sym\ 2035}#
+                                               (cdr #{subst\ 2036}#)
+                                               #{marks\ 2037}#)
                                              (if (if (eq? (vector-ref
-                                                            #{symnames\ 14647}#
-                                                            #{i\ 14659}#)
-                                                          #{sym\ 14644}#)
-                                                   (#{same-marks?\ 12971}#
-                                                     #{marks\ 14646}#
+                                                            #{symnames\ 2038}#
+                                                            #{i\ 2050}#)
+                                                          #{sym\ 2035}#)
+                                                   (#{same-marks?\ 362}#
+                                                     #{marks\ 2037}#
                                                      (vector-ref
-                                                       (#{ribcage-marks\ 
12943}#
-                                                         #{ribcage\ 14648}#)
-                                                       #{i\ 14659}#))
+                                                       (#{ribcage-marks\ 334}#
+                                                         #{ribcage\ 2039}#)
+                                                       #{i\ 2050}#))
                                                    #f)
                                                (values
                                                  (vector-ref
-                                                   (#{ribcage-labels\ 12945}#
-                                                     #{ribcage\ 14648}#)
-                                                   #{i\ 14659}#)
-                                                 #{marks\ 14646}#)
-                                               (#{f\ 14658}#
-                                                 (#{fx+\ 12817}#
-                                                   #{i\ 14659}#
+                                                   (#{ribcage-labels\ 336}#
+                                                     #{ribcage\ 2039}#)
+                                                   #{i\ 2050}#)
+                                                 #{marks\ 2037}#)
+                                               (#{f\ 2049}#
+                                                 (#{fx+\ 208}#
+                                                   #{i\ 2050}#
                                                    1)))))))
-                                (#{f\ 14658}# 0)))))
-                        (#{search-list-rib\ 14630}#
-                          (lambda (#{sym\ 14667}#
-                                   #{subst\ 14668}#
-                                   #{marks\ 14669}#
-                                   #{symnames\ 14670}#
-                                   #{ribcage\ 14671}#)
-                            (letrec ((#{f\ 14680}#
-                                       (lambda (#{symnames\ 14681}#
-                                                #{i\ 14682}#)
-                                         (if (null? #{symnames\ 14681}#)
-                                           (#{search\ 14628}#
-                                             #{sym\ 14667}#
-                                             (cdr #{subst\ 14668}#)
-                                             #{marks\ 14669}#)
-                                           (if (if (eq? (car #{symnames\ 
14681}#)
-                                                        #{sym\ 14667}#)
-                                                 (#{same-marks?\ 12971}#
-                                                   #{marks\ 14669}#
+                                (#{f\ 2049}# 0)))))
+                        (#{search-list-rib\ 2021}#
+                          (lambda (#{sym\ 2058}#
+                                   #{subst\ 2059}#
+                                   #{marks\ 2060}#
+                                   #{symnames\ 2061}#
+                                   #{ribcage\ 2062}#)
+                            (letrec ((#{f\ 2071}#
+                                       (lambda (#{symnames\ 2072}# #{i\ 2073}#)
+                                         (if (null? #{symnames\ 2072}#)
+                                           (#{search\ 2019}#
+                                             #{sym\ 2058}#
+                                             (cdr #{subst\ 2059}#)
+                                             #{marks\ 2060}#)
+                                           (if (if (eq? (car #{symnames\ 
2072}#)
+                                                        #{sym\ 2058}#)
+                                                 (#{same-marks?\ 362}#
+                                                   #{marks\ 2060}#
                                                    (list-ref
-                                                     (#{ribcage-marks\ 12943}#
-                                                       #{ribcage\ 14671}#)
-                                                     #{i\ 14682}#))
+                                                     (#{ribcage-marks\ 334}#
+                                                       #{ribcage\ 2062}#)
+                                                     #{i\ 2073}#))
                                                  #f)
                                              (values
                                                (list-ref
-                                                 (#{ribcage-labels\ 12945}#
-                                                   #{ribcage\ 14671}#)
-                                                 #{i\ 14682}#)
-                                               #{marks\ 14669}#)
-                                             (#{f\ 14680}#
-                                               (cdr #{symnames\ 14681}#)
-                                               (#{fx+\ 12817}#
-                                                 #{i\ 14682}#
+                                                 (#{ribcage-labels\ 336}#
+                                                   #{ribcage\ 2062}#)
+                                                 #{i\ 2073}#)
+                                               #{marks\ 2060}#)
+                                             (#{f\ 2071}#
+                                               (cdr #{symnames\ 2072}#)
+                                               (#{fx+\ 208}#
+                                                 #{i\ 2073}#
                                                  1)))))))
-                              (#{f\ 14680}# #{symnames\ 14670}# 0))))
-                        (#{search\ 14628}#
-                          (lambda (#{sym\ 14690}#
-                                   #{subst\ 14691}#
-                                   #{marks\ 14692}#)
-                            (if (null? #{subst\ 14691}#)
-                              (values #f #{marks\ 14692}#)
-                              (let ((#{fst\ 14697}# (car #{subst\ 14691}#)))
-                                (if (eq? #{fst\ 14697}# (quote shift))
-                                  (#{search\ 14628}#
-                                    #{sym\ 14690}#
-                                    (cdr #{subst\ 14691}#)
-                                    (cdr #{marks\ 14692}#))
-                                  (let ((#{symnames\ 14699}#
-                                          (#{ribcage-symnames\ 12941}#
-                                            #{fst\ 14697}#)))
-                                    (if (vector? #{symnames\ 14699}#)
-                                      (#{search-vector-rib\ 14632}#
-                                        #{sym\ 14690}#
-                                        #{subst\ 14691}#
-                                        #{marks\ 14692}#
-                                        #{symnames\ 14699}#
-                                        #{fst\ 14697}#)
-                                      (#{search-list-rib\ 14630}#
-                                        #{sym\ 14690}#
-                                        #{subst\ 14691}#
-                                        #{marks\ 14692}#
-                                        #{symnames\ 14699}#
-                                        #{fst\ 14697}#)))))))))
-                 (if (symbol? #{id\ 14622}#)
-                   (let ((#{t\ 14702}#
+                              (#{f\ 2071}# #{symnames\ 2061}# 0))))
+                        (#{search\ 2019}#
+                          (lambda (#{sym\ 2081}#
+                                   #{subst\ 2082}#
+                                   #{marks\ 2083}#)
+                            (if (null? #{subst\ 2082}#)
+                              (values #f #{marks\ 2083}#)
+                              (let ((#{fst\ 2088}# (car #{subst\ 2082}#)))
+                                (if (eq? #{fst\ 2088}# (quote shift))
+                                  (#{search\ 2019}#
+                                    #{sym\ 2081}#
+                                    (cdr #{subst\ 2082}#)
+                                    (cdr #{marks\ 2083}#))
+                                  (let ((#{symnames\ 2090}#
+                                          (#{ribcage-symnames\ 332}#
+                                            #{fst\ 2088}#)))
+                                    (if (vector? #{symnames\ 2090}#)
+                                      (#{search-vector-rib\ 2023}#
+                                        #{sym\ 2081}#
+                                        #{subst\ 2082}#
+                                        #{marks\ 2083}#
+                                        #{symnames\ 2090}#
+                                        #{fst\ 2088}#)
+                                      (#{search-list-rib\ 2021}#
+                                        #{sym\ 2081}#
+                                        #{subst\ 2082}#
+                                        #{marks\ 2083}#
+                                        #{symnames\ 2090}#
+                                        #{fst\ 2088}#)))))))))
+                 (if (symbol? #{id\ 2013}#)
+                   (let ((#{t\ 2093}#
                            (call-with-values
                              (lambda ()
-                               (#{search\ 14628}#
-                                 #{id\ 14622}#
-                                 (#{wrap-subst\ 12925}# #{w\ 14623}#)
-                                 (#{wrap-marks\ 12923}# #{w\ 14623}#)))
-                             (lambda (#{x\ 14704}# . #{ignore\ 14705}#)
-                               #{x\ 14704}#))))
-                     (if #{t\ 14702}# #{t\ 14702}# #{id\ 14622}#))
-                   (if (#{syntax-object?\ 12880}# #{id\ 14622}#)
-                     (let ((#{id\ 14713}#
-                             (#{syntax-object-expression\ 12882}#
-                               #{id\ 14622}#))
-                           (#{w1\ 14714}#
-                             (#{syntax-object-wrap\ 12884}# #{id\ 14622}#)))
-                       (let ((#{marks\ 14716}#
-                               (#{join-marks\ 12969}#
-                                 (#{wrap-marks\ 12923}# #{w\ 14623}#)
-                                 (#{wrap-marks\ 12923}# #{w1\ 14714}#))))
+                               (#{search\ 2019}#
+                                 #{id\ 2013}#
+                                 (#{wrap-subst\ 316}# #{w\ 2014}#)
+                                 (#{wrap-marks\ 314}# #{w\ 2014}#)))
+                             (lambda (#{x\ 2095}# . #{ignore\ 2096}#)
+                               #{x\ 2095}#))))
+                     (if #{t\ 2093}# #{t\ 2093}# #{id\ 2013}#))
+                   (if (#{syntax-object?\ 271}# #{id\ 2013}#)
+                     (let ((#{id\ 2104}#
+                             (#{syntax-object-expression\ 273}# #{id\ 2013}#))
+                           (#{w1\ 2105}#
+                             (#{syntax-object-wrap\ 275}# #{id\ 2013}#)))
+                       (let ((#{marks\ 2107}#
+                               (#{join-marks\ 360}#
+                                 (#{wrap-marks\ 314}# #{w\ 2014}#)
+                                 (#{wrap-marks\ 314}# #{w1\ 2105}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 14628}#
-                               #{id\ 14713}#
-                               (#{wrap-subst\ 12925}# #{w\ 14623}#)
-                               #{marks\ 14716}#))
-                           (lambda (#{new-id\ 14717}# #{marks\ 14718}#)
-                             (let ((#{t\ 14723}# #{new-id\ 14717}#))
-                               (if #{t\ 14723}#
-                                 #{t\ 14723}#
-                                 (let ((#{t\ 14726}#
+                             (#{search\ 2019}#
+                               #{id\ 2104}#
+                               (#{wrap-subst\ 316}# #{w\ 2014}#)
+                               #{marks\ 2107}#))
+                           (lambda (#{new-id\ 2108}# #{marks\ 2109}#)
+                             (let ((#{t\ 2114}# #{new-id\ 2108}#))
+                               (if #{t\ 2114}#
+                                 #{t\ 2114}#
+                                 (let ((#{t\ 2117}#
                                          (call-with-values
                                            (lambda ()
-                                             (#{search\ 14628}#
-                                               #{id\ 14713}#
-                                               (#{wrap-subst\ 12925}#
-                                                 #{w1\ 14714}#)
-                                               #{marks\ 14718}#))
-                                           (lambda (#{x\ 14728}#
+                                             (#{search\ 2019}#
+                                               #{id\ 2104}#
+                                               (#{wrap-subst\ 316}#
+                                                 #{w1\ 2105}#)
+                                               #{marks\ 2109}#))
+                                           (lambda (#{x\ 2119}#
                                                     .
-                                                    #{ignore\ 14729}#)
-                                             #{x\ 14728}#))))
-                                   (if #{t\ 14726}#
-                                     #{t\ 14726}#
-                                     #{id\ 14713}#))))))))
+                                                    #{ignore\ 2120}#)
+                                             #{x\ 2119}#))))
+                                   (if #{t\ 2117}#
+                                     #{t\ 2117}#
+                                     #{id\ 2104}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 14622}#))))))
-           (#{same-marks?\ 12971}#
-             (lambda (#{x\ 14734}# #{y\ 14735}#)
-               (let ((#{t\ 14740}# (eq? #{x\ 14734}# #{y\ 14735}#)))
-                 (if #{t\ 14740}#
-                   #{t\ 14740}#
-                   (if (not (null? #{x\ 14734}#))
-                     (if (not (null? #{y\ 14735}#))
-                       (if (eq? (car #{x\ 14734}#) (car #{y\ 14735}#))
-                         (#{same-marks?\ 12971}#
-                           (cdr #{x\ 14734}#)
-                           (cdr #{y\ 14735}#))
+                       #{id\ 2013}#))))))
+           (#{same-marks?\ 362}#
+             (lambda (#{x\ 2125}# #{y\ 2126}#)
+               (let ((#{t\ 2131}# (eq? #{x\ 2125}# #{y\ 2126}#)))
+                 (if #{t\ 2131}#
+                   #{t\ 2131}#
+                   (if (not (null? #{x\ 2125}#))
+                     (if (not (null? #{y\ 2126}#))
+                       (if (eq? (car #{x\ 2125}#) (car #{y\ 2126}#))
+                         (#{same-marks?\ 362}#
+                           (cdr #{x\ 2125}#)
+                           (cdr #{y\ 2126}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 12969}#
-             (lambda (#{m1\ 14746}# #{m2\ 14747}#)
-               (#{smart-append\ 12965}#
-                 #{m1\ 14746}#
-                 #{m2\ 14747}#)))
-           (#{join-wraps\ 12967}#
-             (lambda (#{w1\ 14750}# #{w2\ 14751}#)
-               (let ((#{m1\ 14756}#
-                       (#{wrap-marks\ 12923}# #{w1\ 14750}#))
-                     (#{s1\ 14757}#
-                       (#{wrap-subst\ 12925}# #{w1\ 14750}#)))
-                 (if (null? #{m1\ 14756}#)
-                   (if (null? #{s1\ 14757}#)
-                     #{w2\ 14751}#
-                     (#{make-wrap\ 12921}#
-                       (#{wrap-marks\ 12923}# #{w2\ 14751}#)
-                       (#{smart-append\ 12965}#
-                         #{s1\ 14757}#
-                         (#{wrap-subst\ 12925}# #{w2\ 14751}#))))
-                   (#{make-wrap\ 12921}#
-                     (#{smart-append\ 12965}#
-                       #{m1\ 14756}#
-                       (#{wrap-marks\ 12923}# #{w2\ 14751}#))
-                     (#{smart-append\ 12965}#
-                       #{s1\ 14757}#
-                       (#{wrap-subst\ 12925}# #{w2\ 14751}#)))))))
-           (#{smart-append\ 12965}#
-             (lambda (#{m1\ 14758}# #{m2\ 14759}#)
-               (if (null? #{m2\ 14759}#)
-                 #{m1\ 14758}#
-                 (append #{m1\ 14758}# #{m2\ 14759}#))))
-           (#{make-binding-wrap\ 12963}#
-             (lambda (#{ids\ 14762}# #{labels\ 14763}# #{w\ 14764}#)
-               (if (null? #{ids\ 14762}#)
-                 #{w\ 14764}#
-                 (#{make-wrap\ 12921}#
-                   (#{wrap-marks\ 12923}# #{w\ 14764}#)
-                   (cons (let ((#{labelvec\ 14769}#
-                                 (list->vector #{labels\ 14763}#)))
-                           (let ((#{n\ 14771}#
-                                   (vector-length #{labelvec\ 14769}#)))
-                             (let ((#{symnamevec\ 14774}#
-                                     (make-vector #{n\ 14771}#))
-                                   (#{marksvec\ 14775}#
-                                     (make-vector #{n\ 14771}#)))
+           (#{join-marks\ 360}#
+             (lambda (#{m1\ 2137}# #{m2\ 2138}#)
+               (#{smart-append\ 356}# #{m1\ 2137}# #{m2\ 2138}#)))
+           (#{join-wraps\ 358}#
+             (lambda (#{w1\ 2141}# #{w2\ 2142}#)
+               (let ((#{m1\ 2147}# (#{wrap-marks\ 314}# #{w1\ 2141}#))
+                     (#{s1\ 2148}# (#{wrap-subst\ 316}# #{w1\ 2141}#)))
+                 (if (null? #{m1\ 2147}#)
+                   (if (null? #{s1\ 2148}#)
+                     #{w2\ 2142}#
+                     (#{make-wrap\ 312}#
+                       (#{wrap-marks\ 314}# #{w2\ 2142}#)
+                       (#{smart-append\ 356}#
+                         #{s1\ 2148}#
+                         (#{wrap-subst\ 316}# #{w2\ 2142}#))))
+                   (#{make-wrap\ 312}#
+                     (#{smart-append\ 356}#
+                       #{m1\ 2147}#
+                       (#{wrap-marks\ 314}# #{w2\ 2142}#))
+                     (#{smart-append\ 356}#
+                       #{s1\ 2148}#
+                       (#{wrap-subst\ 316}# #{w2\ 2142}#)))))))
+           (#{smart-append\ 356}#
+             (lambda (#{m1\ 2149}# #{m2\ 2150}#)
+               (if (null? #{m2\ 2150}#)
+                 #{m1\ 2149}#
+                 (append #{m1\ 2149}# #{m2\ 2150}#))))
+           (#{make-binding-wrap\ 354}#
+             (lambda (#{ids\ 2153}# #{labels\ 2154}# #{w\ 2155}#)
+               (if (null? #{ids\ 2153}#)
+                 #{w\ 2155}#
+                 (#{make-wrap\ 312}#
+                   (#{wrap-marks\ 314}# #{w\ 2155}#)
+                   (cons (let ((#{labelvec\ 2160}#
+                                 (list->vector #{labels\ 2154}#)))
+                           (let ((#{n\ 2162}#
+                                   (vector-length #{labelvec\ 2160}#)))
+                             (let ((#{symnamevec\ 2165}#
+                                     (make-vector #{n\ 2162}#))
+                                   (#{marksvec\ 2166}#
+                                     (make-vector #{n\ 2162}#)))
                                (begin
-                                 (letrec ((#{f\ 14779}#
-                                            (lambda (#{ids\ 14780}#
-                                                     #{i\ 14781}#)
-                                              (if (not (null? #{ids\ 14780}#))
+                                 (letrec ((#{f\ 2170}#
+                                            (lambda (#{ids\ 2171}# #{i\ 2172}#)
+                                              (if (not (null? #{ids\ 2171}#))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{id-sym-name&marks\ 
12919}#
-                                                      (car #{ids\ 14780}#)
-                                                      #{w\ 14764}#))
-                                                  (lambda (#{symname\ 14782}#
-                                                           #{marks\ 14783}#)
+                                                    (#{id-sym-name&marks\ 310}#
+                                                      (car #{ids\ 2171}#)
+                                                      #{w\ 2155}#))
+                                                  (lambda (#{symname\ 2173}#
+                                                           #{marks\ 2174}#)
                                                     (begin
                                                       (vector-set!
-                                                        #{symnamevec\ 14774}#
-                                                        #{i\ 14781}#
-                                                        #{symname\ 14782}#)
+                                                        #{symnamevec\ 2165}#
+                                                        #{i\ 2172}#
+                                                        #{symname\ 2173}#)
                                                       (vector-set!
-                                                        #{marksvec\ 14775}#
-                                                        #{i\ 14781}#
-                                                        #{marks\ 14783}#)
-                                                      (#{f\ 14779}#
-                                                        (cdr #{ids\ 14780}#)
-                                                        (#{fx+\ 12817}#
-                                                          #{i\ 14781}#
+                                                        #{marksvec\ 2166}#
+                                                        #{i\ 2172}#
+                                                        #{marks\ 2174}#)
+                                                      (#{f\ 2170}#
+                                                        (cdr #{ids\ 2171}#)
+                                                        (#{fx+\ 208}#
+                                                          #{i\ 2172}#
                                                           1)))))))))
-                                   (#{f\ 14779}# #{ids\ 14762}# 0))
-                                 (#{make-ribcage\ 12937}#
-                                   #{symnamevec\ 14774}#
-                                   #{marksvec\ 14775}#
-                                   #{labelvec\ 14769}#)))))
-                         (#{wrap-subst\ 12925}# #{w\ 14764}#))))))
-           (#{extend-ribcage!\ 12961}#
-             (lambda (#{ribcage\ 14786}#
-                      #{id\ 14787}#
-                      #{label\ 14788}#)
+                                   (#{f\ 2170}# #{ids\ 2153}# 0))
+                                 (#{make-ribcage\ 328}#
+                                   #{symnamevec\ 2165}#
+                                   #{marksvec\ 2166}#
+                                   #{labelvec\ 2160}#)))))
+                         (#{wrap-subst\ 316}# #{w\ 2155}#))))))
+           (#{extend-ribcage!\ 352}#
+             (lambda (#{ribcage\ 2177}# #{id\ 2178}# #{label\ 2179}#)
                (begin
-                 (#{set-ribcage-symnames!\ 12947}#
-                   #{ribcage\ 14786}#
-                   (cons (#{syntax-object-expression\ 12882}#
-                           #{id\ 14787}#)
-                         (#{ribcage-symnames\ 12941}# #{ribcage\ 14786}#)))
-                 (#{set-ribcage-marks!\ 12949}#
-                   #{ribcage\ 14786}#
-                   (cons (#{wrap-marks\ 12923}#
-                           (#{syntax-object-wrap\ 12884}# #{id\ 14787}#))
-                         (#{ribcage-marks\ 12943}# #{ribcage\ 14786}#)))
-                 (#{set-ribcage-labels!\ 12951}#
-                   #{ribcage\ 14786}#
-                   (cons #{label\ 14788}#
-                         (#{ribcage-labels\ 12945}# #{ribcage\ 14786}#))))))
-           (#{anti-mark\ 12957}#
-             (lambda (#{w\ 14792}#)
-               (#{make-wrap\ 12921}#
-                 (cons #f (#{wrap-marks\ 12923}# #{w\ 14792}#))
+                 (#{set-ribcage-symnames!\ 338}#
+                   #{ribcage\ 2177}#
+                   (cons (#{syntax-object-expression\ 273}# #{id\ 2178}#)
+                         (#{ribcage-symnames\ 332}# #{ribcage\ 2177}#)))
+                 (#{set-ribcage-marks!\ 340}#
+                   #{ribcage\ 2177}#
+                   (cons (#{wrap-marks\ 314}#
+                           (#{syntax-object-wrap\ 275}# #{id\ 2178}#))
+                         (#{ribcage-marks\ 334}# #{ribcage\ 2177}#)))
+                 (#{set-ribcage-labels!\ 342}#
+                   #{ribcage\ 2177}#
+                   (cons #{label\ 2179}#
+                         (#{ribcage-labels\ 336}# #{ribcage\ 2177}#))))))
+           (#{anti-mark\ 348}#
+             (lambda (#{w\ 2183}#)
+               (#{make-wrap\ 312}#
+                 (cons #f (#{wrap-marks\ 314}# #{w\ 2183}#))
                  (cons 'shift
-                       (#{wrap-subst\ 12925}# #{w\ 14792}#)))))
-           (#{set-ribcage-labels!\ 12951}#
-             (lambda (#{x\ 14795}# #{update\ 14796}#)
-               (vector-set! #{x\ 14795}# 3 #{update\ 14796}#)))
-           (#{set-ribcage-marks!\ 12949}#
-             (lambda (#{x\ 14799}# #{update\ 14800}#)
-               (vector-set! #{x\ 14799}# 2 #{update\ 14800}#)))
-           (#{set-ribcage-symnames!\ 12947}#
-             (lambda (#{x\ 14803}# #{update\ 14804}#)
-               (vector-set! #{x\ 14803}# 1 #{update\ 14804}#)))
-           (#{ribcage-labels\ 12945}#
-             (lambda (#{x\ 14807}#)
-               (vector-ref #{x\ 14807}# 3)))
-           (#{ribcage-marks\ 12943}#
-             (lambda (#{x\ 14809}#)
-               (vector-ref #{x\ 14809}# 2)))
-           (#{ribcage-symnames\ 12941}#
-             (lambda (#{x\ 14811}#)
-               (vector-ref #{x\ 14811}# 1)))
-           (#{ribcage?\ 12939}#
-             (lambda (#{x\ 14813}#)
-               (if (vector? #{x\ 14813}#)
-                 (if (= (vector-length #{x\ 14813}#) 4)
-                   (eq? (vector-ref #{x\ 14813}# 0) (quote ribcage))
+                       (#{wrap-subst\ 316}# #{w\ 2183}#)))))
+           (#{set-ribcage-labels!\ 342}#
+             (lambda (#{x\ 2186}# #{update\ 2187}#)
+               (vector-set! #{x\ 2186}# 3 #{update\ 2187}#)))
+           (#{set-ribcage-marks!\ 340}#
+             (lambda (#{x\ 2190}# #{update\ 2191}#)
+               (vector-set! #{x\ 2190}# 2 #{update\ 2191}#)))
+           (#{set-ribcage-symnames!\ 338}#
+             (lambda (#{x\ 2194}# #{update\ 2195}#)
+               (vector-set! #{x\ 2194}# 1 #{update\ 2195}#)))
+           (#{ribcage-labels\ 336}#
+             (lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 3)))
+           (#{ribcage-marks\ 334}#
+             (lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 2)))
+           (#{ribcage-symnames\ 332}#
+             (lambda (#{x\ 2202}#) (vector-ref #{x\ 2202}# 1)))
+           (#{ribcage?\ 330}#
+             (lambda (#{x\ 2204}#)
+               (if (vector? #{x\ 2204}#)
+                 (if (= (vector-length #{x\ 2204}#) 4)
+                   (eq? (vector-ref #{x\ 2204}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 12937}#
-             (lambda (#{symnames\ 14818}#
-                      #{marks\ 14819}#
-                      #{labels\ 14820}#)
+           (#{make-ribcage\ 328}#
+             (lambda (#{symnames\ 2209}#
+                      #{marks\ 2210}#
+                      #{labels\ 2211}#)
                (vector
                  'ribcage
-                 #{symnames\ 14818}#
-                 #{marks\ 14819}#
-                 #{labels\ 14820}#)))
-           (#{gen-labels\ 12934}#
-             (lambda (#{ls\ 14824}#)
-               (if (null? #{ls\ 14824}#)
+                 #{symnames\ 2209}#
+                 #{marks\ 2210}#
+                 #{labels\ 2211}#)))
+           (#{gen-labels\ 325}#
+             (lambda (#{ls\ 2215}#)
+               (if (null? #{ls\ 2215}#)
                  '()
-                 (cons (#{gen-label\ 12932}#)
-                       (#{gen-labels\ 12934}# (cdr #{ls\ 14824}#))))))
-           (#{gen-label\ 12932}#
+                 (cons (#{gen-label\ 323}#)
+                       (#{gen-labels\ 325}# (cdr #{ls\ 2215}#))))))
+           (#{gen-label\ 323}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{wrap-subst\ 12925}# cdr)
-           (#{wrap-marks\ 12923}# car)
-           (#{make-wrap\ 12921}# cons)
-           (#{id-sym-name&marks\ 12919}#
-             (lambda (#{x\ 14826}# #{w\ 14827}#)
-               (if (#{syntax-object?\ 12880}# #{x\ 14826}#)
+           (#{wrap-subst\ 316}# cdr)
+           (#{wrap-marks\ 314}# car)
+           (#{make-wrap\ 312}# cons)
+           (#{id-sym-name&marks\ 310}#
+             (lambda (#{x\ 2217}# #{w\ 2218}#)
+               (if (#{syntax-object?\ 271}# #{x\ 2217}#)
                  (values
-                   (#{syntax-object-expression\ 12882}#
-                     #{x\ 14826}#)
-                   (#{join-marks\ 12969}#
-                     (#{wrap-marks\ 12923}# #{w\ 14827}#)
-                     (#{wrap-marks\ 12923}#
-                       (#{syntax-object-wrap\ 12884}# #{x\ 14826}#))))
+                   (#{syntax-object-expression\ 273}# #{x\ 2217}#)
+                   (#{join-marks\ 360}#
+                     (#{wrap-marks\ 314}# #{w\ 2218}#)
+                     (#{wrap-marks\ 314}#
+                       (#{syntax-object-wrap\ 275}# #{x\ 2217}#))))
                  (values
-                   #{x\ 14826}#
-                   (#{wrap-marks\ 12923}# #{w\ 14827}#)))))
-           (#{id?\ 12916}#
-             (lambda (#{x\ 14830}#)
-               (if (symbol? #{x\ 14830}#)
+                   #{x\ 2217}#
+                   (#{wrap-marks\ 314}# #{w\ 2218}#)))))
+           (#{id?\ 307}#
+             (lambda (#{x\ 2221}#)
+               (if (symbol? #{x\ 2221}#)
                  #t
-                 (if (#{syntax-object?\ 12880}# #{x\ 14830}#)
+                 (if (#{syntax-object?\ 271}# #{x\ 2221}#)
                    (symbol?
-                     (#{syntax-object-expression\ 12882}#
-                       #{x\ 14830}#))
+                     (#{syntax-object-expression\ 273}# #{x\ 2221}#))
                    #f))))
-           (#{nonsymbol-id?\ 12914}#
-             (lambda (#{x\ 14837}#)
-               (if (#{syntax-object?\ 12880}# #{x\ 14837}#)
+           (#{nonsymbol-id?\ 305}#
+             (lambda (#{x\ 2228}#)
+               (if (#{syntax-object?\ 271}# #{x\ 2228}#)
                  (symbol?
-                   (#{syntax-object-expression\ 12882}#
-                     #{x\ 14837}#))
+                   (#{syntax-object-expression\ 273}# #{x\ 2228}#))
                  #f)))
-           (#{global-extend\ 12912}#
-             (lambda (#{type\ 14841}# #{sym\ 14842}# #{val\ 14843}#)
-               (#{put-global-definition-hook\ 12830}#
-                 #{sym\ 14842}#
-                 #{type\ 14841}#
-                 #{val\ 14843}#)))
-           (#{lookup\ 12910}#
-             (lambda (#{x\ 14847}# #{r\ 14848}# #{mod\ 14849}#)
-               (let ((#{t\ 14855}# (assq #{x\ 14847}# #{r\ 14848}#)))
-                 (if #{t\ 14855}#
-                   (cdr #{t\ 14855}#)
-                   (if (symbol? #{x\ 14847}#)
-                     (let ((#{t\ 14861}#
-                             (#{get-global-definition-hook\ 12832}#
-                               #{x\ 14847}#
-                               #{mod\ 14849}#)))
-                       (if #{t\ 14861}# #{t\ 14861}# (quote (global))))
+           (#{global-extend\ 303}#
+             (lambda (#{type\ 2232}# #{sym\ 2233}# #{val\ 2234}#)
+               (#{put-global-definition-hook\ 221}#
+                 #{sym\ 2233}#
+                 #{type\ 2232}#
+                 #{val\ 2234}#)))
+           (#{lookup\ 301}#
+             (lambda (#{x\ 2238}# #{r\ 2239}# #{mod\ 2240}#)
+               (let ((#{t\ 2246}# (assq #{x\ 2238}# #{r\ 2239}#)))
+                 (if #{t\ 2246}#
+                   (cdr #{t\ 2246}#)
+                   (if (symbol? #{x\ 2238}#)
+                     (let ((#{t\ 2252}#
+                             (#{get-global-definition-hook\ 223}#
+                               #{x\ 2238}#
+                               #{mod\ 2240}#)))
+                       (if #{t\ 2252}# #{t\ 2252}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 12908}#
-             (lambda (#{r\ 14866}#)
-               (if (null? #{r\ 14866}#)
+           (#{macros-only-env\ 299}#
+             (lambda (#{r\ 2257}#)
+               (if (null? #{r\ 2257}#)
                  '()
-                 (let ((#{a\ 14869}# (car #{r\ 14866}#)))
-                   (if (eq? (cadr #{a\ 14869}#) (quote macro))
-                     (cons #{a\ 14869}#
-                           (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))
-                     (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))))))
-           (#{extend-var-env\ 12906}#
-             (lambda (#{labels\ 14870}# #{vars\ 14871}# #{r\ 14872}#)
-               (if (null? #{labels\ 14870}#)
-                 #{r\ 14872}#
-                 (#{extend-var-env\ 12906}#
-                   (cdr #{labels\ 14870}#)
-                   (cdr #{vars\ 14871}#)
-                   (cons (cons (car #{labels\ 14870}#)
-                               (cons (quote lexical) (car #{vars\ 14871}#)))
-                         #{r\ 14872}#)))))
-           (#{extend-env\ 12904}#
-             (lambda (#{labels\ 14877}#
-                      #{bindings\ 14878}#
-                      #{r\ 14879}#)
-               (if (null? #{labels\ 14877}#)
-                 #{r\ 14879}#
-                 (#{extend-env\ 12904}#
-                   (cdr #{labels\ 14877}#)
-                   (cdr #{bindings\ 14878}#)
-                   (cons (cons (car #{labels\ 14877}#)
-                               (car #{bindings\ 14878}#))
-                         #{r\ 14879}#)))))
-           (#{binding-value\ 12901}# cdr)
-           (#{binding-type\ 12899}# car)
-           (#{source-annotation\ 12895}#
-             (lambda (#{x\ 14883}#)
-               (if (#{syntax-object?\ 12880}# #{x\ 14883}#)
-                 (#{source-annotation\ 12895}#
-                   (#{syntax-object-expression\ 12882}#
-                     #{x\ 14883}#))
-                 (if (pair? #{x\ 14883}#)
-                   (let ((#{props\ 14890}#
-                           (source-properties #{x\ 14883}#)))
-                     (if (pair? #{props\ 14890}#) #{props\ 14890}# #f))
+                 (let ((#{a\ 2260}# (car #{r\ 2257}#)))
+                   (if (eq? (cadr #{a\ 2260}#) (quote macro))
+                     (cons #{a\ 2260}#
+                           (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))
+                     (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))))))
+           (#{extend-var-env\ 297}#
+             (lambda (#{labels\ 2261}# #{vars\ 2262}# #{r\ 2263}#)
+               (if (null? #{labels\ 2261}#)
+                 #{r\ 2263}#
+                 (#{extend-var-env\ 297}#
+                   (cdr #{labels\ 2261}#)
+                   (cdr #{vars\ 2262}#)
+                   (cons (cons (car #{labels\ 2261}#)
+                               (cons (quote lexical) (car #{vars\ 2262}#)))
+                         #{r\ 2263}#)))))
+           (#{extend-env\ 295}#
+             (lambda (#{labels\ 2268}# #{bindings\ 2269}# #{r\ 2270}#)
+               (if (null? #{labels\ 2268}#)
+                 #{r\ 2270}#
+                 (#{extend-env\ 295}#
+                   (cdr #{labels\ 2268}#)
+                   (cdr #{bindings\ 2269}#)
+                   (cons (cons (car #{labels\ 2268}#)
+                               (car #{bindings\ 2269}#))
+                         #{r\ 2270}#)))))
+           (#{binding-value\ 292}# cdr)
+           (#{binding-type\ 290}# car)
+           (#{source-annotation\ 286}#
+             (lambda (#{x\ 2274}#)
+               (if (#{syntax-object?\ 271}# #{x\ 2274}#)
+                 (#{source-annotation\ 286}#
+                   (#{syntax-object-expression\ 273}# #{x\ 2274}#))
+                 (if (pair? #{x\ 2274}#)
+                   (let ((#{props\ 2281}# (source-properties #{x\ 2274}#)))
+                     (if (pair? #{props\ 2281}#) #{props\ 2281}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 12892}#
-             (lambda (#{x\ 14892}# #{update\ 14893}#)
-               (vector-set! #{x\ 14892}# 3 #{update\ 14893}#)))
-           (#{set-syntax-object-wrap!\ 12890}#
-             (lambda (#{x\ 14896}# #{update\ 14897}#)
-               (vector-set! #{x\ 14896}# 2 #{update\ 14897}#)))
-           (#{set-syntax-object-expression!\ 12888}#
-             (lambda (#{x\ 14900}# #{update\ 14901}#)
-               (vector-set! #{x\ 14900}# 1 #{update\ 14901}#)))
-           (#{syntax-object-module\ 12886}#
-             (lambda (#{x\ 14904}#)
-               (vector-ref #{x\ 14904}# 3)))
-           (#{syntax-object-wrap\ 12884}#
-             (lambda (#{x\ 14906}#)
-               (vector-ref #{x\ 14906}# 2)))
-           (#{syntax-object-expression\ 12882}#
-             (lambda (#{x\ 14908}#)
-               (vector-ref #{x\ 14908}# 1)))
-           (#{syntax-object?\ 12880}#
-             (lambda (#{x\ 14910}#)
-               (if (vector? #{x\ 14910}#)
-                 (if (= (vector-length #{x\ 14910}#) 4)
-                   (eq? (vector-ref #{x\ 14910}# 0)
+           (#{set-syntax-object-module!\ 283}#
+             (lambda (#{x\ 2283}# #{update\ 2284}#)
+               (vector-set! #{x\ 2283}# 3 #{update\ 2284}#)))
+           (#{set-syntax-object-wrap!\ 281}#
+             (lambda (#{x\ 2287}# #{update\ 2288}#)
+               (vector-set! #{x\ 2287}# 2 #{update\ 2288}#)))
+           (#{set-syntax-object-expression!\ 279}#
+             (lambda (#{x\ 2291}# #{update\ 2292}#)
+               (vector-set! #{x\ 2291}# 1 #{update\ 2292}#)))
+           (#{syntax-object-module\ 277}#
+             (lambda (#{x\ 2295}#) (vector-ref #{x\ 2295}# 3)))
+           (#{syntax-object-wrap\ 275}#
+             (lambda (#{x\ 2297}#) (vector-ref #{x\ 2297}# 2)))
+           (#{syntax-object-expression\ 273}#
+             (lambda (#{x\ 2299}#) (vector-ref #{x\ 2299}# 1)))
+           (#{syntax-object?\ 271}#
+             (lambda (#{x\ 2301}#)
+               (if (vector? #{x\ 2301}#)
+                 (if (= (vector-length #{x\ 2301}#) 4)
+                   (eq? (vector-ref #{x\ 2301}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 12878}#
-             (lambda (#{expression\ 14915}#
-                      #{wrap\ 14916}#
-                      #{module\ 14917}#)
+           (#{make-syntax-object\ 269}#
+             (lambda (#{expression\ 2306}#
+                      #{wrap\ 2307}#
+                      #{module\ 2308}#)
                (vector
                  'syntax-object
-                 #{expression\ 14915}#
-                 #{wrap\ 14916}#
-                 #{module\ 14917}#)))
-           (#{build-letrec\ 12874}#
-             (lambda (#{src\ 14921}#
-                      #{ids\ 14922}#
-                      #{vars\ 14923}#
-                      #{val-exps\ 14924}#
-                      #{body-exp\ 14925}#)
-               (if (null? #{vars\ 14923}#)
-                 #{body-exp\ 14925}#
-                 (#{make-letrec\ 12813}#
-                   #{src\ 14921}#
-                   #{ids\ 14922}#
-                   #{vars\ 14923}#
-                   #{val-exps\ 14924}#
-                   #{body-exp\ 14925}#))))
-           (#{build-named-let\ 12872}#
-             (lambda (#{src\ 14931}#
-                      #{ids\ 14932}#
-                      #{vars\ 14933}#
-                      #{val-exps\ 14934}#
-                      #{body-exp\ 14935}#)
-               (let ((#{f\ 14945}# (car #{vars\ 14933}#))
-                     (#{f-name\ 14946}# (car #{ids\ 14932}#))
-                     (#{vars\ 14947}# (cdr #{vars\ 14933}#))
-                     (#{ids\ 14948}# (cdr #{ids\ 14932}#)))
-                 (let ((#{proc\ 14950}#
-                         (#{build-simple-lambda\ 12858}#
-                           #{src\ 14931}#
-                           #{ids\ 14948}#
+                 #{expression\ 2306}#
+                 #{wrap\ 2307}#
+                 #{module\ 2308}#)))
+           (#{build-letrec\ 265}#
+             (lambda (#{src\ 2312}#
+                      #{ids\ 2313}#
+                      #{vars\ 2314}#
+                      #{val-exps\ 2315}#
+                      #{body-exp\ 2316}#)
+               (if (null? #{vars\ 2314}#)
+                 #{body-exp\ 2316}#
+                 (#{make-letrec\ 204}#
+                   #{src\ 2312}#
+                   #{ids\ 2313}#
+                   #{vars\ 2314}#
+                   #{val-exps\ 2315}#
+                   #{body-exp\ 2316}#))))
+           (#{build-named-let\ 263}#
+             (lambda (#{src\ 2322}#
+                      #{ids\ 2323}#
+                      #{vars\ 2324}#
+                      #{val-exps\ 2325}#
+                      #{body-exp\ 2326}#)
+               (let ((#{f\ 2336}# (car #{vars\ 2324}#))
+                     (#{f-name\ 2337}# (car #{ids\ 2323}#))
+                     (#{vars\ 2338}# (cdr #{vars\ 2324}#))
+                     (#{ids\ 2339}# (cdr #{ids\ 2323}#)))
+                 (let ((#{proc\ 2341}#
+                         (#{build-simple-lambda\ 249}#
+                           #{src\ 2322}#
+                           #{ids\ 2339}#
                            #f
-                           #{vars\ 14947}#
+                           #{vars\ 2338}#
                            '()
-                           #{body-exp\ 14935}#)))
-                   (#{make-letrec\ 12813}#
-                     #{src\ 14931}#
-                     (list #{f-name\ 14946}#)
-                     (list #{f\ 14945}#)
-                     (list #{proc\ 14950}#)
-                     (#{build-application\ 12838}#
-                       #{src\ 14931}#
-                       (#{build-lexical-reference\ 12844}#
+                           #{body-exp\ 2326}#)))
+                   (#{make-letrec\ 204}#
+                     #{src\ 2322}#
+                     (list #{f-name\ 2337}#)
+                     (list #{f\ 2336}#)
+                     (list #{proc\ 2341}#)
+                     (#{build-application\ 229}#
+                       #{src\ 2322}#
+                       (#{build-lexical-reference\ 235}#
                          'fun
-                         #{src\ 14931}#
-                         #{f-name\ 14946}#
-                         #{f\ 14945}#)
-                       #{val-exps\ 14934}#))))))
-           (#{build-let\ 12870}#
-             (lambda (#{src\ 14951}#
-                      #{ids\ 14952}#
-                      #{vars\ 14953}#
-                      #{val-exps\ 14954}#
-                      #{body-exp\ 14955}#)
-               (if (null? #{vars\ 14953}#)
-                 #{body-exp\ 14955}#
-                 (#{make-let\ 12811}#
-                   #{src\ 14951}#
-                   #{ids\ 14952}#
-                   #{vars\ 14953}#
-                   #{val-exps\ 14954}#
-                   #{body-exp\ 14955}#))))
-           (#{build-sequence\ 12868}#
-             (lambda (#{src\ 14961}# #{exps\ 14962}#)
-               (if (null? (cdr #{exps\ 14962}#))
-                 (car #{exps\ 14962}#)
-                 (#{make-sequence\ 12805}#
-                   #{src\ 14961}#
-                   #{exps\ 14962}#))))
-           (#{build-data\ 12866}#
-             (lambda (#{src\ 14965}# #{exp\ 14966}#)
-               (#{make-const\ 12783}#
-                 #{src\ 14965}#
-                 #{exp\ 14966}#)))
-           (#{build-primref\ 12864}#
-             (lambda (#{src\ 14969}# #{name\ 14970}#)
+                         #{src\ 2322}#
+                         #{f-name\ 2337}#
+                         #{f\ 2336}#)
+                       #{val-exps\ 2325}#))))))
+           (#{build-let\ 261}#
+             (lambda (#{src\ 2342}#
+                      #{ids\ 2343}#
+                      #{vars\ 2344}#
+                      #{val-exps\ 2345}#
+                      #{body-exp\ 2346}#)
+               (if (null? #{vars\ 2344}#)
+                 #{body-exp\ 2346}#
+                 (#{make-let\ 202}#
+                   #{src\ 2342}#
+                   #{ids\ 2343}#
+                   #{vars\ 2344}#
+                   #{val-exps\ 2345}#
+                   #{body-exp\ 2346}#))))
+           (#{build-sequence\ 259}#
+             (lambda (#{src\ 2352}# #{exps\ 2353}#)
+               (if (null? (cdr #{exps\ 2353}#))
+                 (car #{exps\ 2353}#)
+                 (#{make-sequence\ 196}#
+                   #{src\ 2352}#
+                   #{exps\ 2353}#))))
+           (#{build-data\ 257}#
+             (lambda (#{src\ 2356}# #{exp\ 2357}#)
+               (#{make-const\ 174}# #{src\ 2356}# #{exp\ 2357}#)))
+           (#{build-primref\ 255}#
+             (lambda (#{src\ 2360}# #{name\ 2361}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (#{make-toplevel-ref\ 12795}#
-                   #{src\ 14969}#
-                   #{name\ 14970}#)
-                 (#{make-module-ref\ 12791}#
-                   #{src\ 14969}#
+                 (#{make-toplevel-ref\ 186}#
+                   #{src\ 2360}#
+                   #{name\ 2361}#)
+                 (#{make-module-ref\ 182}#
+                   #{src\ 2360}#
                    '(guile)
-                   #{name\ 14970}#
+                   #{name\ 2361}#
                    #f))))
-           (#{build-lambda-case\ 12862}#
-             (lambda (#{src\ 14973}#
-                      #{req\ 14974}#
-                      #{opt\ 14975}#
-                      #{rest\ 14976}#
-                      #{kw\ 14977}#
-                      #{inits\ 14978}#
-                      #{vars\ 14979}#
-                      #{body\ 14980}#
-                      #{else-case\ 14981}#)
-               (let ((#{atom-key\ 14993}#
-                       (fluid-ref #{*mode*\ 12778}#)))
-                 (if (memv #{atom-key\ 14993}# (quote (c)))
-                   (#{make-lambda-case\ 12809}#
-                     #{src\ 14973}#
-                     #{req\ 14974}#
-                     #{opt\ 14975}#
-                     #{rest\ 14976}#
-                     #{kw\ 14977}#
-                     #{inits\ 14978}#
-                     #{vars\ 14979}#
-                     #{body\ 14980}#
-                     #{else-case\ 14981}#)
-                   (let ((#{nreq\ 14998}# (length #{req\ 14974}#)))
-                     (let ((#{nopt\ 15000}#
-                             (if #{opt\ 14975}# (length #{opt\ 14975}#) 0)))
-                       (let ((#{rest-idx\ 15002}#
-                               (if #{rest\ 14976}#
-                                 (+ #{nreq\ 14998}# #{nopt\ 15000}#)
-                                 #f)))
-                         (let ((#{allow-other-keys?\ 15006}#
-                                 (if #{kw\ 14977}# (car #{kw\ 14977}#) #f)))
-                           (let ((#{kw-indices\ 15008}#
-                                   (map (lambda (#{x\ 15009}#)
-                                          (cons (car #{x\ 15009}#)
-                                                (list-index
-                                                  #{vars\ 14979}#
-                                                  (caddr #{x\ 15009}#))))
-                                        (if #{kw\ 14977}#
-                                          (cdr #{kw\ 14977}#)
-                                          '()))))
-                             (let ((#{nargs\ 15012}#
-                                     (apply max
-                                            (+ #{nreq\ 14998}#
-                                               #{nopt\ 15000}#
-                                               (if #{rest\ 14976}# 1 0))
-                                            (map 1+
-                                                 (map cdr
-                                                      #{kw-indices\ 
15008}#)))))
-                               (begin
-                                 (let ((#{t\ 15015}#
-                                         (= #{nargs\ 15012}#
-                                            (length #{vars\ 14979}#)
-                                            (+ #{nreq\ 14998}#
-                                               (length #{inits\ 14978}#)
-                                               (if #{rest\ 14976}# 1 0)))))
-                                   (if #{t\ 15015}#
-                                     #{t\ 15015}#
-                                     (error "something went wrong"
-                                            #{req\ 14974}#
-                                            #{opt\ 14975}#
-                                            #{rest\ 14976}#
-                                            #{kw\ 14977}#
-                                            #{inits\ 14978}#
-                                            #{vars\ 14979}#
-                                            #{nreq\ 14998}#
-                                            #{nopt\ 15000}#
-                                            #{kw-indices\ 15008}#
-                                            #{nargs\ 15012}#)))
-                                 (#{make-lambda-case\ 12809}#
-                                   #{src\ 14973}#
-                                   #{req\ 14974}#
-                                   #{opt\ 14975}#
-                                   #{rest\ 14976}#
-                                   (if #{kw\ 14977}#
-                                     (cons #{allow-other-keys?\ 15006}#
-                                           #{kw-indices\ 15008}#)
-                                     #f)
-                                   #{inits\ 14978}#
-                                   #{vars\ 14979}#
-                                   #{body\ 14980}#
-                                   #{else-case\ 14981}#))))))))))))
-           (#{build-case-lambda\ 12860}#
-             (lambda (#{src\ 15019}# #{meta\ 15020}# #{body\ 15021}#)
-               (#{make-lambda\ 12807}#
-                 #{src\ 15019}#
-                 #{meta\ 15020}#
-                 #{body\ 15021}#)))
-           (#{build-simple-lambda\ 12858}#
-             (lambda (#{src\ 15025}#
-                      #{req\ 15026}#
-                      #{rest\ 15027}#
-                      #{vars\ 15028}#
-                      #{meta\ 15029}#
-                      #{exp\ 15030}#)
-               (#{make-lambda\ 12807}#
-                 #{src\ 15025}#
-                 #{meta\ 15029}#
-                 (#{make-lambda-case\ 12809}#
-                   #{src\ 15025}#
-                   #{req\ 15026}#
+           (#{build-lambda-case\ 253}#
+             (lambda (#{src\ 2364}#
+                      #{req\ 2365}#
+                      #{opt\ 2366}#
+                      #{rest\ 2367}#
+                      #{kw\ 2368}#
+                      #{inits\ 2369}#
+                      #{vars\ 2370}#
+                      #{body\ 2371}#
+                      #{else-case\ 2372}#)
+               (#{make-lambda-case\ 200}#
+                 #{src\ 2364}#
+                 #{req\ 2365}#
+                 #{opt\ 2366}#
+                 #{rest\ 2367}#
+                 #{kw\ 2368}#
+                 #{inits\ 2369}#
+                 #{vars\ 2370}#
+                 #{body\ 2371}#
+                 #{else-case\ 2372}#)))
+           (#{build-case-lambda\ 251}#
+             (lambda (#{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#)
+               (#{make-lambda\ 198}#
+                 #{src\ 2382}#
+                 #{meta\ 2383}#
+                 #{body\ 2384}#)))
+           (#{build-simple-lambda\ 249}#
+             (lambda (#{src\ 2388}#
+                      #{req\ 2389}#
+                      #{rest\ 2390}#
+                      #{vars\ 2391}#
+                      #{meta\ 2392}#
+                      #{exp\ 2393}#)
+               (#{make-lambda\ 198}#
+                 #{src\ 2388}#
+                 #{meta\ 2392}#
+                 (#{make-lambda-case\ 200}#
+                   #{src\ 2388}#
+                   #{req\ 2389}#
                    #f
-                   #{rest\ 15027}#
+                   #{rest\ 2390}#
                    #f
                    '()
-                   #{vars\ 15028}#
-                   #{exp\ 15030}#
+                   #{vars\ 2391}#
+                   #{exp\ 2393}#
                    #f))))
-           (#{build-global-definition\ 12856}#
-             (lambda (#{source\ 15037}# #{var\ 15038}# #{exp\ 15039}#)
-               (#{make-toplevel-define\ 12799}#
-                 #{source\ 15037}#
-                 #{var\ 15038}#
-                 #{exp\ 15039}#)))
-           (#{maybe-name-value!\ 12854}#
-             (lambda (#{name\ 15043}# #{val\ 15044}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 15044}#)
-                 (let ((#{meta\ 15050}#
+           (#{build-global-definition\ 247}#
+             (lambda (#{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#)
+               (#{make-toplevel-define\ 190}#
+                 #{source\ 2400}#
+                 #{var\ 2401}#
+                 #{exp\ 2402}#)))
+           (#{maybe-name-value!\ 245}#
+             (lambda (#{name\ 2406}# #{val\ 2407}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 2407}#)
+                 (let ((#{meta\ 2413}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 15044}#)))
-                   (if (not (assq (quote name) #{meta\ 15050}#))
+                          #{val\ 2407}#)))
+                   (if (not (assq (quote name) #{meta\ 2413}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 15044}#
+                      #{val\ 2407}#
                       (acons 'name
-                             #{name\ 15043}#
-                             #{meta\ 15050}#)))))))
-           (#{build-global-assignment\ 12852}#
-             (lambda (#{source\ 15051}#
-                      #{var\ 15052}#
-                      #{exp\ 15053}#
-                      #{mod\ 15054}#)
-               (#{analyze-variable\ 12848}#
-                 #{mod\ 15054}#
-                 #{var\ 15052}#
-                 (lambda (#{mod\ 15059}#
-                          #{var\ 15060}#
-                          #{public?\ 15061}#)
-                   (#{make-module-set\ 12793}#
-                     #{source\ 15051}#
-                     #{mod\ 15059}#
-                     #{var\ 15060}#
-                     #{public?\ 15061}#
-                     #{exp\ 15053}#))
-                 (lambda (#{var\ 15065}#)
-                   (#{make-toplevel-set\ 12797}#
-                     #{source\ 15051}#
-                     #{var\ 15065}#
-                     #{exp\ 15053}#)))))
-           (#{build-global-reference\ 12850}#
-             (lambda (#{source\ 15067}# #{var\ 15068}# #{mod\ 15069}#)
-               (#{analyze-variable\ 12848}#
-                 #{mod\ 15069}#
-                 #{var\ 15068}#
-                 (lambda (#{mod\ 15073}#
-                          #{var\ 15074}#
-                          #{public?\ 15075}#)
-                   (#{make-module-ref\ 12791}#
-                     #{source\ 15067}#
-                     #{mod\ 15073}#
-                     #{var\ 15074}#
-                     #{public?\ 15075}#))
-                 (lambda (#{var\ 15079}#)
-                   (#{make-toplevel-ref\ 12795}#
-                     #{source\ 15067}#
-                     #{var\ 15079}#)))))
-           (#{analyze-variable\ 12848}#
-             (lambda (#{mod\ 15081}#
-                      #{var\ 15082}#
-                      #{modref-cont\ 15083}#
-                      #{bare-cont\ 15084}#)
-               (if (not #{mod\ 15081}#)
-                 (#{bare-cont\ 15084}# #{var\ 15082}#)
-                 (let ((#{kind\ 15091}# (car #{mod\ 15081}#))
-                       (#{mod\ 15092}# (cdr #{mod\ 15081}#)))
-                   (if (memv #{kind\ 15091}# (quote (public)))
-                     (#{modref-cont\ 15083}#
-                       #{mod\ 15092}#
-                       #{var\ 15082}#
+                             #{name\ 2406}#
+                             #{meta\ 2413}#)))))))
+           (#{build-global-assignment\ 243}#
+             (lambda (#{source\ 2414}#
+                      #{var\ 2415}#
+                      #{exp\ 2416}#
+                      #{mod\ 2417}#)
+               (#{analyze-variable\ 239}#
+                 #{mod\ 2417}#
+                 #{var\ 2415}#
+                 (lambda (#{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}#)
+                   (#{make-module-set\ 184}#
+                     #{source\ 2414}#
+                     #{mod\ 2422}#
+                     #{var\ 2423}#
+                     #{public?\ 2424}#
+                     #{exp\ 2416}#))
+                 (lambda (#{var\ 2428}#)
+                   (#{make-toplevel-set\ 188}#
+                     #{source\ 2414}#
+                     #{var\ 2428}#
+                     #{exp\ 2416}#)))))
+           (#{build-global-reference\ 241}#
+             (lambda (#{source\ 2430}# #{var\ 2431}# #{mod\ 2432}#)
+               (#{analyze-variable\ 239}#
+                 #{mod\ 2432}#
+                 #{var\ 2431}#
+                 (lambda (#{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#)
+                   (#{make-module-ref\ 182}#
+                     #{source\ 2430}#
+                     #{mod\ 2436}#
+                     #{var\ 2437}#
+                     #{public?\ 2438}#))
+                 (lambda (#{var\ 2442}#)
+                   (#{make-toplevel-ref\ 186}#
+                     #{source\ 2430}#
+                     #{var\ 2442}#)))))
+           (#{analyze-variable\ 239}#
+             (lambda (#{mod\ 2444}#
+                      #{var\ 2445}#
+                      #{modref-cont\ 2446}#
+                      #{bare-cont\ 2447}#)
+               (if (not #{mod\ 2444}#)
+                 (#{bare-cont\ 2447}# #{var\ 2445}#)
+                 (let ((#{kind\ 2454}# (car #{mod\ 2444}#))
+                       (#{mod\ 2455}# (cdr #{mod\ 2444}#)))
+                   (if (memv #{kind\ 2454}# (quote (public)))
+                     (#{modref-cont\ 2446}#
+                       #{mod\ 2455}#
+                       #{var\ 2445}#
                        #t)
-                     (if (memv #{kind\ 15091}# (quote (private)))
+                     (if (memv #{kind\ 2454}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 15092}#
+                                  #{mod\ 2455}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 15083}#
-                           #{mod\ 15092}#
-                           #{var\ 15082}#
+                         (#{modref-cont\ 2446}#
+                           #{mod\ 2455}#
+                           #{var\ 2445}#
                            #f)
-                         (#{bare-cont\ 15084}# #{var\ 15082}#))
-                       (if (memv #{kind\ 15091}# (quote (bare)))
-                         (#{bare-cont\ 15084}# #{var\ 15082}#)
-                         (if (memv #{kind\ 15091}# (quote (hygiene)))
+                         (#{bare-cont\ 2447}# #{var\ 2445}#))
+                       (if (memv #{kind\ 2454}# (quote (bare)))
+                         (#{bare-cont\ 2447}# #{var\ 2445}#)
+                         (if (memv #{kind\ 2454}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 15092}#
+                                          #{mod\ 2455}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 15092}#)
-                                   #{var\ 15082}#)
+                                   (resolve-module #{mod\ 2455}#)
+                                   #{var\ 2445}#)
                                  #f)
-                             (#{modref-cont\ 15083}#
-                               #{mod\ 15092}#
-                               #{var\ 15082}#
+                             (#{modref-cont\ 2446}#
+                               #{mod\ 2455}#
+                               #{var\ 2445}#
                                #f)
-                             (#{bare-cont\ 15084}# #{var\ 15082}#))
+                             (#{bare-cont\ 2447}# #{var\ 2445}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 15082}#
-                             #{mod\ 15092}#)))))))))
-           (#{build-lexical-assignment\ 12846}#
-             (lambda (#{source\ 15100}#
-                      #{name\ 15101}#
-                      #{var\ 15102}#
-                      #{exp\ 15103}#)
-               (#{make-lexical-set\ 12789}#
-                 #{source\ 15100}#
-                 #{name\ 15101}#
-                 #{var\ 15102}#
-                 #{exp\ 15103}#)))
-           (#{build-lexical-reference\ 12844}#
-             (lambda (#{type\ 15108}#
-                      #{source\ 15109}#
-                      #{name\ 15110}#
-                      #{var\ 15111}#)
-               (#{make-lexical-ref\ 12787}#
-                 #{source\ 15109}#
-                 #{name\ 15110}#
-                 #{var\ 15111}#)))
-           (#{build-dynlet\ 12842}#
-             (lambda (#{source\ 15116}#
-                      #{fluids\ 15117}#
-                      #{vals\ 15118}#
-                      #{body\ 15119}#)
-               (#{make-dynlet\ 12815}#
-                 #{source\ 15116}#
-                 #{fluids\ 15117}#
-                 #{vals\ 15118}#
-                 #{body\ 15119}#)))
-           (#{build-conditional\ 12840}#
-             (lambda (#{source\ 15124}#
-                      #{test-exp\ 15125}#
-                      #{then-exp\ 15126}#
-                      #{else-exp\ 15127}#)
-               (#{make-conditional\ 12801}#
-                 #{source\ 15124}#
-                 #{test-exp\ 15125}#
-                 #{then-exp\ 15126}#
-                 #{else-exp\ 15127}#)))
-           (#{build-application\ 12838}#
-             (lambda (#{source\ 15132}#
-                      #{fun-exp\ 15133}#
-                      #{arg-exps\ 15134}#)
-               (#{make-application\ 12803}#
-                 #{source\ 15132}#
-                 #{fun-exp\ 15133}#
-                 #{arg-exps\ 15134}#)))
-           (#{build-void\ 12836}#
-             (lambda (#{source\ 15138}#)
-               (#{make-void\ 12781}# #{source\ 15138}#)))
-           (#{decorate-source\ 12834}#
-             (lambda (#{e\ 15140}# #{s\ 15141}#)
+                             #{var\ 2445}#
+                             #{mod\ 2455}#)))))))))
+           (#{build-lexical-assignment\ 237}#
+             (lambda (#{source\ 2463}#
+                      #{name\ 2464}#
+                      #{var\ 2465}#
+                      #{exp\ 2466}#)
+               (#{make-lexical-set\ 180}#
+                 #{source\ 2463}#
+                 #{name\ 2464}#
+                 #{var\ 2465}#
+                 #{exp\ 2466}#)))
+           (#{build-lexical-reference\ 235}#
+             (lambda (#{type\ 2471}#
+                      #{source\ 2472}#
+                      #{name\ 2473}#
+                      #{var\ 2474}#)
+               (#{make-lexical-ref\ 178}#
+                 #{source\ 2472}#
+                 #{name\ 2473}#
+                 #{var\ 2474}#)))
+           (#{build-dynlet\ 233}#
+             (lambda (#{source\ 2479}#
+                      #{fluids\ 2480}#
+                      #{vals\ 2481}#
+                      #{body\ 2482}#)
+               (#{make-dynlet\ 206}#
+                 #{source\ 2479}#
+                 #{fluids\ 2480}#
+                 #{vals\ 2481}#
+                 #{body\ 2482}#)))
+           (#{build-conditional\ 231}#
+             (lambda (#{source\ 2487}#
+                      #{test-exp\ 2488}#
+                      #{then-exp\ 2489}#
+                      #{else-exp\ 2490}#)
+               (#{make-conditional\ 192}#
+                 #{source\ 2487}#
+                 #{test-exp\ 2488}#
+                 #{then-exp\ 2489}#
+                 #{else-exp\ 2490}#)))
+           (#{build-application\ 229}#
+             (lambda (#{source\ 2495}#
+                      #{fun-exp\ 2496}#
+                      #{arg-exps\ 2497}#)
+               (#{make-application\ 194}#
+                 #{source\ 2495}#
+                 #{fun-exp\ 2496}#
+                 #{arg-exps\ 2497}#)))
+           (#{build-void\ 227}#
+             (lambda (#{source\ 2501}#)
+               (#{make-void\ 172}# #{source\ 2501}#)))
+           (#{decorate-source\ 225}#
+             (lambda (#{e\ 2503}# #{s\ 2504}#)
                (begin
-                 (if (if (pair? #{e\ 15140}#) #{s\ 15141}# #f)
-                   (set-source-properties!
-                     #{e\ 15140}#
-                     #{s\ 15141}#))
-                 #{e\ 15140}#)))
-           (#{get-global-definition-hook\ 12832}#
-             (lambda (#{symbol\ 15146}# #{module\ 15147}#)
+                 (if (if (pair? #{e\ 2503}#) #{s\ 2504}# #f)
+                   (set-source-properties! #{e\ 2503}# #{s\ 2504}#))
+                 #{e\ 2503}#)))
+           (#{get-global-definition-hook\ 223}#
+             (lambda (#{symbol\ 2509}# #{module\ 2510}#)
                (begin
-                 (if (if (not #{module\ 15147}#) (current-module) #f)
+                 (if (if (not #{module\ 2510}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 15146}#))
-                 (let ((#{v\ 15153}#
+                         #{symbol\ 2509}#))
+                 (let ((#{v\ 2516}#
                          (module-variable
-                           (if #{module\ 15147}#
-                             (resolve-module (cdr #{module\ 15147}#))
+                           (if #{module\ 2510}#
+                             (resolve-module (cdr #{module\ 2510}#))
                              (current-module))
-                           #{symbol\ 15146}#)))
-                   (if #{v\ 15153}#
-                     (if (variable-bound? #{v\ 15153}#)
-                       (let ((#{val\ 15158}# (variable-ref #{v\ 15153}#)))
-                         (if (macro? #{val\ 15158}#)
-                           (if (macro-type #{val\ 15158}#)
-                             (cons (macro-type #{val\ 15158}#)
-                                   (macro-binding #{val\ 15158}#))
+                           #{symbol\ 2509}#)))
+                   (if #{v\ 2516}#
+                     (if (variable-bound? #{v\ 2516}#)
+                       (let ((#{val\ 2521}# (variable-ref #{v\ 2516}#)))
+                         (if (macro? #{val\ 2521}#)
+                           (if (macro-type #{val\ 2521}#)
+                             (cons (macro-type #{val\ 2521}#)
+                                   (macro-binding #{val\ 2521}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 12830}#
-             (lambda (#{symbol\ 15162}#
-                      #{type\ 15163}#
-                      #{val\ 15164}#)
+           (#{put-global-definition-hook\ 221}#
+             (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#)
                (module-define!
                  (current-module)
-                 #{symbol\ 15162}#
+                 #{symbol\ 2525}#
                  (make-syntax-transformer
-                   #{symbol\ 15162}#
-                   #{type\ 15163}#
-                   #{val\ 15164}#))))
-           (#{local-eval-hook\ 12827}#
-             (lambda (#{x\ 15168}# #{mod\ 15169}#)
-               (primitive-eval
-                 (memoize-expression #{x\ 15168}#))))
-           (#{top-level-eval-hook\ 12825}#
-             (lambda (#{x\ 15172}# #{mod\ 15173}#)
-               (primitive-eval
-                 (memoize-expression #{x\ 15172}#))))
-           (#{fx<\ 12823}# <)
-           (#{fx=\ 12821}# =)
-           (#{fx-\ 12819}# -)
-           (#{fx+\ 12817}# +)
-           (#{make-dynlet\ 12815}#
-             (lambda (#{src\ 15176}#
-                      #{fluids\ 15177}#
-                      #{vals\ 15178}#
-                      #{body\ 15179}#)
+                   #{symbol\ 2525}#
+                   #{type\ 2526}#
+                   #{val\ 2527}#))))
+           (#{local-eval-hook\ 218}#
+             (lambda (#{x\ 2531}# #{mod\ 2532}#)
+               (primitive-eval #{x\ 2531}#)))
+           (#{top-level-eval-hook\ 216}#
+             (lambda (#{x\ 2535}# #{mod\ 2536}#)
+               (primitive-eval #{x\ 2535}#)))
+           (#{fx<\ 214}# <)
+           (#{fx=\ 212}# =)
+           (#{fx-\ 210}# -)
+           (#{fx+\ 208}# +)
+           (#{make-dynlet\ 206}#
+             (lambda (#{src\ 2539}#
+                      #{fluids\ 2540}#
+                      #{vals\ 2541}#
+                      #{body\ 2542}#)
                (make-struct
                  (vector-ref %expanded-vtables 17)
                  0
-                 #{src\ 15176}#
-                 #{fluids\ 15177}#
-                 #{vals\ 15178}#
-                 #{body\ 15179}#)))
-           (#{make-letrec\ 12813}#
-             (lambda (#{src\ 15184}#
-                      #{names\ 15185}#
-                      #{gensyms\ 15186}#
-                      #{vals\ 15187}#
-                      #{body\ 15188}#)
+                 #{src\ 2539}#
+                 #{fluids\ 2540}#
+                 #{vals\ 2541}#
+                 #{body\ 2542}#)))
+           (#{make-letrec\ 204}#
+             (lambda (#{src\ 2547}#
+                      #{names\ 2548}#
+                      #{gensyms\ 2549}#
+                      #{vals\ 2550}#
+                      #{body\ 2551}#)
                (make-struct
                  (vector-ref %expanded-vtables 16)
                  0
-                 #{src\ 15184}#
-                 #{names\ 15185}#
-                 #{gensyms\ 15186}#
-                 #{vals\ 15187}#
-                 #{body\ 15188}#)))
-           (#{make-let\ 12811}#
-             (lambda (#{src\ 15194}#
-                      #{names\ 15195}#
-                      #{gensyms\ 15196}#
-                      #{vals\ 15197}#
-                      #{body\ 15198}#)
+                 #{src\ 2547}#
+                 #{names\ 2548}#
+                 #{gensyms\ 2549}#
+                 #{vals\ 2550}#
+                 #{body\ 2551}#)))
+           (#{make-let\ 202}#
+             (lambda (#{src\ 2557}#
+                      #{names\ 2558}#
+                      #{gensyms\ 2559}#
+                      #{vals\ 2560}#
+                      #{body\ 2561}#)
                (make-struct
                  (vector-ref %expanded-vtables 15)
                  0
-                 #{src\ 15194}#
-                 #{names\ 15195}#
-                 #{gensyms\ 15196}#
-                 #{vals\ 15197}#
-                 #{body\ 15198}#)))
-           (#{make-lambda-case\ 12809}#
-             (lambda (#{src\ 15204}#
-                      #{req\ 15205}#
-                      #{opt\ 15206}#
-                      #{rest\ 15207}#
-                      #{kw\ 15208}#
-                      #{inits\ 15209}#
-                      #{gensyms\ 15210}#
-                      #{body\ 15211}#
-                      #{alternate\ 15212}#)
+                 #{src\ 2557}#
+                 #{names\ 2558}#
+                 #{gensyms\ 2559}#
+                 #{vals\ 2560}#
+                 #{body\ 2561}#)))
+           (#{make-lambda-case\ 200}#
+             (lambda (#{src\ 2567}#
+                      #{req\ 2568}#
+                      #{opt\ 2569}#
+                      #{rest\ 2570}#
+                      #{kw\ 2571}#
+                      #{inits\ 2572}#
+                      #{gensyms\ 2573}#
+                      #{body\ 2574}#
+                      #{alternate\ 2575}#)
                (make-struct
                  (vector-ref %expanded-vtables 14)
                  0
-                 #{src\ 15204}#
-                 #{req\ 15205}#
-                 #{opt\ 15206}#
-                 #{rest\ 15207}#
-                 #{kw\ 15208}#
-                 #{inits\ 15209}#
-                 #{gensyms\ 15210}#
-                 #{body\ 15211}#
-                 #{alternate\ 15212}#)))
-           (#{make-lambda\ 12807}#
-             (lambda (#{src\ 15222}# #{meta\ 15223}# #{body\ 15224}#)
+                 #{src\ 2567}#
+                 #{req\ 2568}#
+                 #{opt\ 2569}#
+                 #{rest\ 2570}#
+                 #{kw\ 2571}#
+                 #{inits\ 2572}#
+                 #{gensyms\ 2573}#
+                 #{body\ 2574}#
+                 #{alternate\ 2575}#)))
+           (#{make-lambda\ 198}#
+             (lambda (#{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#)
                (make-struct
                  (vector-ref %expanded-vtables 13)
                  0
-                 #{src\ 15222}#
-                 #{meta\ 15223}#
-                 #{body\ 15224}#)))
-           (#{make-sequence\ 12805}#
-             (lambda (#{src\ 15228}# #{exps\ 15229}#)
+                 #{src\ 2585}#
+                 #{meta\ 2586}#
+                 #{body\ 2587}#)))
+           (#{make-sequence\ 196}#
+             (lambda (#{src\ 2591}# #{exps\ 2592}#)
                (make-struct
                  (vector-ref %expanded-vtables 12)
                  0
-                 #{src\ 15228}#
-                 #{exps\ 15229}#)))
-           (#{make-application\ 12803}#
-             (lambda (#{src\ 15232}# #{proc\ 15233}# #{args\ 15234}#)
+                 #{src\ 2591}#
+                 #{exps\ 2592}#)))
+           (#{make-application\ 194}#
+             (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#)
                (make-struct
                  (vector-ref %expanded-vtables 11)
                  0
-                 #{src\ 15232}#
-                 #{proc\ 15233}#
-                 #{args\ 15234}#)))
-           (#{make-conditional\ 12801}#
-             (lambda (#{src\ 15238}#
-                      #{test\ 15239}#
-                      #{consequent\ 15240}#
-                      #{alternate\ 15241}#)
+                 #{src\ 2595}#
+                 #{proc\ 2596}#
+                 #{args\ 2597}#)))
+           (#{make-conditional\ 192}#
+             (lambda (#{src\ 2601}#
+                      #{test\ 2602}#
+                      #{consequent\ 2603}#
+                      #{alternate\ 2604}#)
                (make-struct
                  (vector-ref %expanded-vtables 10)
                  0
-                 #{src\ 15238}#
-                 #{test\ 15239}#
-                 #{consequent\ 15240}#
-                 #{alternate\ 15241}#)))
-           (#{make-toplevel-define\ 12799}#
-             (lambda (#{src\ 15246}# #{name\ 15247}# #{exp\ 15248}#)
+                 #{src\ 2601}#
+                 #{test\ 2602}#
+                 #{consequent\ 2603}#
+                 #{alternate\ 2604}#)))
+           (#{make-toplevel-define\ 190}#
+             (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#)
                (make-struct
                  (vector-ref %expanded-vtables 9)
                  0
-                 #{src\ 15246}#
-                 #{name\ 15247}#
-                 #{exp\ 15248}#)))
-           (#{make-toplevel-set\ 12797}#
-             (lambda (#{src\ 15252}# #{name\ 15253}# #{exp\ 15254}#)
+                 #{src\ 2609}#
+                 #{name\ 2610}#
+                 #{exp\ 2611}#)))
+           (#{make-toplevel-set\ 188}#
+             (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#)
                (make-struct
                  (vector-ref %expanded-vtables 8)
                  0
-                 #{src\ 15252}#
-                 #{name\ 15253}#
-                 #{exp\ 15254}#)))
-           (#{make-toplevel-ref\ 12795}#
-             (lambda (#{src\ 15258}# #{name\ 15259}#)
+                 #{src\ 2615}#
+                 #{name\ 2616}#
+                 #{exp\ 2617}#)))
+           (#{make-toplevel-ref\ 186}#
+             (lambda (#{src\ 2621}# #{name\ 2622}#)
                (make-struct
                  (vector-ref %expanded-vtables 7)
                  0
-                 #{src\ 15258}#
-                 #{name\ 15259}#)))
-           (#{make-module-set\ 12793}#
-             (lambda (#{src\ 15262}#
-                      #{mod\ 15263}#
-                      #{name\ 15264}#
-                      #{public?\ 15265}#
-                      #{exp\ 15266}#)
+                 #{src\ 2621}#
+                 #{name\ 2622}#)))
+           (#{make-module-set\ 184}#
+             (lambda (#{src\ 2625}#
+                      #{mod\ 2626}#
+                      #{name\ 2627}#
+                      #{public?\ 2628}#
+                      #{exp\ 2629}#)
                (make-struct
                  (vector-ref %expanded-vtables 6)
                  0
-                 #{src\ 15262}#
-                 #{mod\ 15263}#
-                 #{name\ 15264}#
-                 #{public?\ 15265}#
-                 #{exp\ 15266}#)))
-           (#{make-module-ref\ 12791}#
-             (lambda (#{src\ 15272}#
-                      #{mod\ 15273}#
-                      #{name\ 15274}#
-                      #{public?\ 15275}#)
+                 #{src\ 2625}#
+                 #{mod\ 2626}#
+                 #{name\ 2627}#
+                 #{public?\ 2628}#
+                 #{exp\ 2629}#)))
+           (#{make-module-ref\ 182}#
+             (lambda (#{src\ 2635}#
+                      #{mod\ 2636}#
+                      #{name\ 2637}#
+                      #{public?\ 2638}#)
                (make-struct
                  (vector-ref %expanded-vtables 5)
                  0
-                 #{src\ 15272}#
-                 #{mod\ 15273}#
-                 #{name\ 15274}#
-                 #{public?\ 15275}#)))
-           (#{make-lexical-set\ 12789}#
-             (lambda (#{src\ 15280}#
-                      #{name\ 15281}#
-                      #{gensym\ 15282}#
-                      #{exp\ 15283}#)
+                 #{src\ 2635}#
+                 #{mod\ 2636}#
+                 #{name\ 2637}#
+                 #{public?\ 2638}#)))
+           (#{make-lexical-set\ 180}#
+             (lambda (#{src\ 2643}#
+                      #{name\ 2644}#
+                      #{gensym\ 2645}#
+                      #{exp\ 2646}#)
                (make-struct
                  (vector-ref %expanded-vtables 4)
                  0
-                 #{src\ 15280}#
-                 #{name\ 15281}#
-                 #{gensym\ 15282}#
-                 #{exp\ 15283}#)))
-           (#{make-lexical-ref\ 12787}#
-             (lambda (#{src\ 15288}#
-                      #{name\ 15289}#
-                      #{gensym\ 15290}#)
+                 #{src\ 2643}#
+                 #{name\ 2644}#
+                 #{gensym\ 2645}#
+                 #{exp\ 2646}#)))
+           (#{make-lexical-ref\ 178}#
+             (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#)
                (make-struct
                  (vector-ref %expanded-vtables 3)
                  0
-                 #{src\ 15288}#
-                 #{name\ 15289}#
-                 #{gensym\ 15290}#)))
-           (#{make-primitive-ref\ 12785}#
-             (lambda (#{src\ 15294}# #{name\ 15295}#)
+                 #{src\ 2651}#
+                 #{name\ 2652}#
+                 #{gensym\ 2653}#)))
+           (#{make-primitive-ref\ 176}#
+             (lambda (#{src\ 2657}# #{name\ 2658}#)
                (make-struct
                  (vector-ref %expanded-vtables 2)
                  0
-                 #{src\ 15294}#
-                 #{name\ 15295}#)))
-           (#{make-const\ 12783}#
-             (lambda (#{src\ 15298}# #{exp\ 15299}#)
+                 #{src\ 2657}#
+                 #{name\ 2658}#)))
+           (#{make-const\ 174}#
+             (lambda (#{src\ 2661}# #{exp\ 2662}#)
                (make-struct
                  (vector-ref %expanded-vtables 1)
                  0
-                 #{src\ 15298}#
-                 #{exp\ 15299}#)))
-           (#{make-void\ 12781}#
-             (lambda (#{src\ 15302}#)
+                 #{src\ 2661}#
+                 #{exp\ 2662}#)))
+           (#{make-void\ 172}#
+             (lambda (#{src\ 2665}#)
                (make-struct
                  (vector-ref %expanded-vtables 0)
                  0
-                 #{src\ 15302}#)))
-           (#{*mode*\ 12778}# (make-fluid)))
+                 #{src\ 2665}#))))
     (begin
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 15304}#
-                 #{r\ 15305}#
-                 #{w\ 15306}#
-                 #{s\ 15307}#
-                 #{mod\ 15308}#)
-          ((lambda (#{tmp\ 15314}#)
-             ((lambda (#{tmp\ 15315}#)
-                (if (if #{tmp\ 15315}#
-                      (apply (lambda (#{_\ 15321}#
-                                      #{var\ 15322}#
-                                      #{val\ 15323}#
-                                      #{e1\ 15324}#
-                                      #{e2\ 15325}#)
-                               (#{valid-bound-ids?\ 12979}# #{var\ 15322}#))
-                             #{tmp\ 15315}#)
+        (lambda (#{e\ 2667}#
+                 #{r\ 2668}#
+                 #{w\ 2669}#
+                 #{s\ 2670}#
+                 #{mod\ 2671}#)
+          ((lambda (#{tmp\ 2677}#)
+             ((lambda (#{tmp\ 2678}#)
+                (if (if #{tmp\ 2678}#
+                      (apply (lambda (#{_\ 2684}#
+                                      #{var\ 2685}#
+                                      #{val\ 2686}#
+                                      #{e1\ 2687}#
+                                      #{e2\ 2688}#)
+                               (#{valid-bound-ids?\ 370}# #{var\ 2685}#))
+                             #{tmp\ 2678}#)
                       #f)
-                  (apply (lambda (#{_\ 15332}#
-                                  #{var\ 15333}#
-                                  #{val\ 15334}#
-                                  #{e1\ 15335}#
-                                  #{e2\ 15336}#)
-                           (let ((#{names\ 15338}#
-                                   (map (lambda (#{x\ 15339}#)
-                                          (#{id-var-name\ 12973}#
-                                            #{x\ 15339}#
-                                            #{w\ 15306}#))
-                                        #{var\ 15333}#)))
+                  (apply (lambda (#{_\ 2695}#
+                                  #{var\ 2696}#
+                                  #{val\ 2697}#
+                                  #{e1\ 2698}#
+                                  #{e2\ 2699}#)
+                           (let ((#{names\ 2701}#
+                                   (map (lambda (#{x\ 2702}#)
+                                          (#{id-var-name\ 364}#
+                                            #{x\ 2702}#
+                                            #{w\ 2669}#))
+                                        #{var\ 2696}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 15342}# #{n\ 15343}#)
-                                   (let ((#{atom-key\ 15348}#
-                                           (#{binding-type\ 12899}#
-                                             (#{lookup\ 12910}#
-                                               #{n\ 15343}#
-                                               #{r\ 15305}#
-                                               #{mod\ 15308}#))))
-                                     (if (memv #{atom-key\ 15348}#
+                                 (lambda (#{id\ 2705}# #{n\ 2706}#)
+                                   (let ((#{atom-key\ 2711}#
+                                           (#{binding-type\ 290}#
+                                             (#{lookup\ 301}#
+                                               #{n\ 2706}#
+                                               #{r\ 2668}#
+                                               #{mod\ 2671}#))))
+                                     (if (memv #{atom-key\ 2711}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 15304}#
-                                         (#{source-wrap\ 12987}#
-                                           #{id\ 15342}#
-                                           #{w\ 15306}#
-                                           #{s\ 15307}#
-                                           #{mod\ 15308}#)))))
-                                 #{var\ 15333}#
-                                 #{names\ 15338}#)
-                               (#{chi-body\ 13009}#
-                                 (cons #{e1\ 15335}# #{e2\ 15336}#)
-                                 (#{source-wrap\ 12987}#
-                                   #{e\ 15304}#
-                                   #{w\ 15306}#
-                                   #{s\ 15307}#
-                                   #{mod\ 15308}#)
-                                 (#{extend-env\ 12904}#
-                                   #{names\ 15338}#
-                                   (let ((#{trans-r\ 15353}#
-                                           (#{macros-only-env\ 12908}#
-                                             #{r\ 15305}#)))
-                                     (map (lambda (#{x\ 15354}#)
+                                         #{e\ 2667}#
+                                         (#{source-wrap\ 378}#
+                                           #{id\ 2705}#
+                                           #{w\ 2669}#
+                                           #{s\ 2670}#
+                                           #{mod\ 2671}#)))))
+                                 #{var\ 2696}#
+                                 #{names\ 2701}#)
+                               (#{chi-body\ 400}#
+                                 (cons #{e1\ 2698}# #{e2\ 2699}#)
+                                 (#{source-wrap\ 378}#
+                                   #{e\ 2667}#
+                                   #{w\ 2669}#
+                                   #{s\ 2670}#
+                                   #{mod\ 2671}#)
+                                 (#{extend-env\ 295}#
+                                   #{names\ 2701}#
+                                   (let ((#{trans-r\ 2716}#
+                                           (#{macros-only-env\ 299}#
+                                             #{r\ 2668}#)))
+                                     (map (lambda (#{x\ 2717}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
13013}#
-                                                    (#{chi\ 13001}#
-                                                      #{x\ 15354}#
-                                                      #{trans-r\ 15353}#
-                                                      #{w\ 15306}#
-                                                      #{mod\ 15308}#)
-                                                    #{mod\ 15308}#)))
-                                          #{val\ 15334}#))
-                                   #{r\ 15305}#)
-                                 #{w\ 15306}#
-                                 #{mod\ 15308}#))))
-                         #{tmp\ 15315}#)
-                  ((lambda (#{_\ 15359}#)
+                                                  (#{eval-local-transformer\ 
404}#
+                                                    (#{chi\ 392}#
+                                                      #{x\ 2717}#
+                                                      #{trans-r\ 2716}#
+                                                      #{w\ 2669}#
+                                                      #{mod\ 2671}#)
+                                                    #{mod\ 2671}#)))
+                                          #{val\ 2697}#))
+                                   #{r\ 2668}#)
+                                 #{w\ 2669}#
+                                 #{mod\ 2671}#))))
+                         #{tmp\ 2678}#)
+                  ((lambda (#{_\ 2722}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 12987}#
-                         #{e\ 15304}#
-                         #{w\ 15306}#
-                         #{s\ 15307}#
-                         #{mod\ 15308}#)))
-                   #{tmp\ 15314}#)))
+                       (#{source-wrap\ 378}#
+                         #{e\ 2667}#
+                         #{w\ 2669}#
+                         #{s\ 2670}#
+                         #{mod\ 2671}#)))
+                   #{tmp\ 2677}#)))
               ($sc-dispatch
-                #{tmp\ 15314}#
+                #{tmp\ 2677}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 15304}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 2667}#)))
+      (#{global-extend\ 303}#
         'core
         'quote
-        (lambda (#{e\ 15360}#
-                 #{r\ 15361}#
-                 #{w\ 15362}#
-                 #{s\ 15363}#
-                 #{mod\ 15364}#)
-          ((lambda (#{tmp\ 15370}#)
-             ((lambda (#{tmp\ 15371}#)
-                (if #{tmp\ 15371}#
-                  (apply (lambda (#{_\ 15374}# #{e\ 15375}#)
-                           (#{build-data\ 12866}#
-                             #{s\ 15363}#
-                             (#{strip\ 13027}# #{e\ 15375}# #{w\ 15362}#)))
-                         #{tmp\ 15371}#)
-                  ((lambda (#{_\ 15377}#)
+        (lambda (#{e\ 2723}#
+                 #{r\ 2724}#
+                 #{w\ 2725}#
+                 #{s\ 2726}#
+                 #{mod\ 2727}#)
+          ((lambda (#{tmp\ 2733}#)
+             ((lambda (#{tmp\ 2734}#)
+                (if #{tmp\ 2734}#
+                  (apply (lambda (#{_\ 2737}# #{e\ 2738}#)
+                           (#{build-data\ 257}#
+                             #{s\ 2726}#
+                             (#{strip\ 418}# #{e\ 2738}# #{w\ 2725}#)))
+                         #{tmp\ 2734}#)
+                  ((lambda (#{_\ 2740}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 12987}#
-                         #{e\ 15360}#
-                         #{w\ 15362}#
-                         #{s\ 15363}#
-                         #{mod\ 15364}#)))
-                   #{tmp\ 15370}#)))
-              ($sc-dispatch #{tmp\ 15370}# (quote (any any)))))
-           #{e\ 15360}#)))
-      (#{global-extend\ 12912}#
+                       (#{source-wrap\ 378}#
+                         #{e\ 2723}#
+                         #{w\ 2725}#
+                         #{s\ 2726}#
+                         #{mod\ 2727}#)))
+                   #{tmp\ 2733}#)))
+              ($sc-dispatch #{tmp\ 2733}# (quote (any any)))))
+           #{e\ 2723}#)))
+      (#{global-extend\ 303}#
         'core
         'syntax
-        (letrec ((#{regen\ 15393}#
-                   (lambda (#{x\ 15394}#)
-                     (let ((#{atom-key\ 15398}# (car #{x\ 15394}#)))
-                       (if (memv #{atom-key\ 15398}# (quote (ref)))
-                         (#{build-lexical-reference\ 12844}#
+        (letrec ((#{regen\ 2756}#
+                   (lambda (#{x\ 2757}#)
+                     (let ((#{atom-key\ 2761}# (car #{x\ 2757}#)))
+                       (if (memv #{atom-key\ 2761}# (quote (ref)))
+                         (#{build-lexical-reference\ 235}#
                            'value
                            #f
-                           (cadr #{x\ 15394}#)
-                           (cadr #{x\ 15394}#))
-                         (if (memv #{atom-key\ 15398}# (quote (primitive)))
-                           (#{build-primref\ 12864}# #f (cadr #{x\ 15394}#))
-                           (if (memv #{atom-key\ 15398}# (quote (quote)))
-                             (#{build-data\ 12866}# #f (cadr #{x\ 15394}#))
-                             (if (memv #{atom-key\ 15398}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 15394}#))
-                                 (#{build-simple-lambda\ 12858}#
+                           (cadr #{x\ 2757}#)
+                           (cadr #{x\ 2757}#))
+                         (if (memv #{atom-key\ 2761}# (quote (primitive)))
+                           (#{build-primref\ 255}# #f (cadr #{x\ 2757}#))
+                           (if (memv #{atom-key\ 2761}# (quote (quote)))
+                             (#{build-data\ 257}# #f (cadr #{x\ 2757}#))
+                             (if (memv #{atom-key\ 2761}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 2757}#))
+                                 (#{build-simple-lambda\ 249}#
                                    #f
-                                   (cadr #{x\ 15394}#)
+                                   (cadr #{x\ 2757}#)
                                    #f
-                                   (cadr #{x\ 15394}#)
+                                   (cadr #{x\ 2757}#)
                                    '()
-                                   (#{regen\ 15393}# (caddr #{x\ 15394}#)))
-                                 (error "how did we get here" #{x\ 15394}#))
-                               (#{build-application\ 12838}#
+                                   (#{regen\ 2756}# (caddr #{x\ 2757}#)))
+                                 (error "how did we get here" #{x\ 2757}#))
+                               (#{build-application\ 229}#
                                  #f
-                                 (#{build-primref\ 12864}#
-                                   #f
-                                   (car #{x\ 15394}#))
-                                 (map #{regen\ 15393}#
-                                      (cdr #{x\ 15394}#))))))))))
-                 (#{gen-vector\ 15391}#
-                   (lambda (#{x\ 15410}#)
-                     (if (eq? (car #{x\ 15410}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 15410}#))
-                       (if (eq? (car #{x\ 15410}#) (quote quote))
+                                 (#{build-primref\ 255}# #f (car #{x\ 2757}#))
+                                 (map #{regen\ 2756}#
+                                      (cdr #{x\ 2757}#))))))))))
+                 (#{gen-vector\ 2754}#
+                   (lambda (#{x\ 2773}#)
+                     (if (eq? (car #{x\ 2773}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 2773}#))
+                       (if (eq? (car #{x\ 2773}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 15410}#)))
-                         (list (quote list->vector) #{x\ 15410}#)))))
-                 (#{gen-append\ 15389}#
-                   (lambda (#{x\ 15420}# #{y\ 15421}#)
-                     (if (equal? #{y\ 15421}# (quote (quote ())))
-                       #{x\ 15420}#
-                       (list (quote append) #{x\ 15420}# #{y\ 15421}#))))
-                 (#{gen-cons\ 15387}#
-                   (lambda (#{x\ 15425}# #{y\ 15426}#)
-                     (let ((#{atom-key\ 15431}# (car #{y\ 15426}#)))
-                       (if (memv #{atom-key\ 15431}# (quote (quote)))
-                         (if (eq? (car #{x\ 15425}#) (quote quote))
+                               (list->vector (cadr #{x\ 2773}#)))
+                         (list (quote list->vector) #{x\ 2773}#)))))
+                 (#{gen-append\ 2752}#
+                   (lambda (#{x\ 2783}# #{y\ 2784}#)
+                     (if (equal? #{y\ 2784}# (quote (quote ())))
+                       #{x\ 2783}#
+                       (list (quote append) #{x\ 2783}# #{y\ 2784}#))))
+                 (#{gen-cons\ 2750}#
+                   (lambda (#{x\ 2788}# #{y\ 2789}#)
+                     (let ((#{atom-key\ 2794}# (car #{y\ 2789}#)))
+                       (if (memv #{atom-key\ 2794}# (quote (quote)))
+                         (if (eq? (car #{x\ 2788}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 15425}#)
-                                       (cadr #{y\ 15426}#)))
-                           (if (eq? (cadr #{y\ 15426}#) (quote ()))
-                             (list (quote list) #{x\ 15425}#)
-                             (list (quote cons) #{x\ 15425}# #{y\ 15426}#)))
-                         (if (memv #{atom-key\ 15431}# (quote (list)))
+                                 (cons (cadr #{x\ 2788}#) (cadr #{y\ 2789}#)))
+                           (if (eq? (cadr #{y\ 2789}#) (quote ()))
+                             (list (quote list) #{x\ 2788}#)
+                             (list (quote cons) #{x\ 2788}# #{y\ 2789}#)))
+                         (if (memv #{atom-key\ 2794}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 15425}# (cdr #{y\ 15426}#)))
-                           (list (quote cons) #{x\ 15425}# #{y\ 15426}#))))))
-                 (#{gen-map\ 15385}#
-                   (lambda (#{e\ 15440}# #{map-env\ 15441}#)
-                     (let ((#{formals\ 15446}# (map cdr #{map-env\ 15441}#))
-                           (#{actuals\ 15447}#
-                             (map (lambda (#{x\ 15448}#)
-                                    (list (quote ref) (car #{x\ 15448}#)))
-                                  #{map-env\ 15441}#)))
-                       (if (eq? (car #{e\ 15440}#) (quote ref))
-                         (car #{actuals\ 15447}#)
+                                 (cons #{x\ 2788}# (cdr #{y\ 2789}#)))
+                           (list (quote cons) #{x\ 2788}# #{y\ 2789}#))))))
+                 (#{gen-map\ 2748}#
+                   (lambda (#{e\ 2803}# #{map-env\ 2804}#)
+                     (let ((#{formals\ 2809}# (map cdr #{map-env\ 2804}#))
+                           (#{actuals\ 2810}#
+                             (map (lambda (#{x\ 2811}#)
+                                    (list (quote ref) (car #{x\ 2811}#)))
+                                  #{map-env\ 2804}#)))
+                       (if (eq? (car #{e\ 2803}#) (quote ref))
+                         (car #{actuals\ 2810}#)
                          (if (and-map
-                               (lambda (#{x\ 15455}#)
-                                 (if (eq? (car #{x\ 15455}#) (quote ref))
-                                   (memq (cadr #{x\ 15455}#)
-                                         #{formals\ 15446}#)
+                               (lambda (#{x\ 2818}#)
+                                 (if (eq? (car #{x\ 2818}#) (quote ref))
+                                   (memq (cadr #{x\ 2818}#) #{formals\ 2809}#)
                                    #f))
-                               (cdr #{e\ 15440}#))
+                               (cdr #{e\ 2803}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 15440}#))
-                                       (map (let ((#{r\ 15461}#
+                                             (car #{e\ 2803}#))
+                                       (map (let ((#{r\ 2824}#
                                                     (map cons
-                                                         #{formals\ 15446}#
-                                                         #{actuals\ 15447}#)))
-                                              (lambda (#{x\ 15462}#)
-                                                (cdr (assq (cadr #{x\ 15462}#)
-                                                           #{r\ 15461}#))))
-                                            (cdr #{e\ 15440}#))))
+                                                         #{formals\ 2809}#
+                                                         #{actuals\ 2810}#)))
+                                              (lambda (#{x\ 2825}#)
+                                                (cdr (assq (cadr #{x\ 2825}#)
+                                                           #{r\ 2824}#))))
+                                            (cdr #{e\ 2803}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 15446}#
-                                             #{e\ 15440}#)
-                                       #{actuals\ 15447}#)))))))
-                 (#{gen-mappend\ 15383}#
-                   (lambda (#{e\ 15466}# #{map-env\ 15467}#)
+                                             #{formals\ 2809}#
+                                             #{e\ 2803}#)
+                                       #{actuals\ 2810}#)))))))
+                 (#{gen-mappend\ 2746}#
+                   (lambda (#{e\ 2829}# #{map-env\ 2830}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 15385}#
-                             #{e\ 15466}#
-                             #{map-env\ 15467}#))))
-                 (#{gen-ref\ 15381}#
-                   (lambda (#{src\ 15471}#
-                            #{var\ 15472}#
-                            #{level\ 15473}#
-                            #{maps\ 15474}#)
-                     (if (#{fx=\ 12821}# #{level\ 15473}# 0)
-                       (values #{var\ 15472}# #{maps\ 15474}#)
-                       (if (null? #{maps\ 15474}#)
+                           (#{gen-map\ 2748}# #{e\ 2829}# #{map-env\ 2830}#))))
+                 (#{gen-ref\ 2744}#
+                   (lambda (#{src\ 2834}#
+                            #{var\ 2835}#
+                            #{level\ 2836}#
+                            #{maps\ 2837}#)
+                     (if (#{fx=\ 212}# #{level\ 2836}# 0)
+                       (values #{var\ 2835}# #{maps\ 2837}#)
+                       (if (null? #{maps\ 2837}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 15471}#)
+                           #{src\ 2834}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 15381}#
-                               #{src\ 15471}#
-                               #{var\ 15472}#
-                               (#{fx-\ 12819}# #{level\ 15473}# 1)
-                               (cdr #{maps\ 15474}#)))
-                           (lambda (#{outer-var\ 15479}# #{outer-maps\ 15480}#)
-                             (let ((#{b\ 15484}#
-                                     (assq #{outer-var\ 15479}#
-                                           (car #{maps\ 15474}#))))
-                               (if #{b\ 15484}#
-                                 (values (cdr #{b\ 15484}#) #{maps\ 15474}#)
-                                 (let ((#{inner-var\ 15486}#
-                                         (#{gen-var\ 13029}# (quote tmp))))
+                             (#{gen-ref\ 2744}#
+                               #{src\ 2834}#
+                               #{var\ 2835}#
+                               (#{fx-\ 210}# #{level\ 2836}# 1)
+                               (cdr #{maps\ 2837}#)))
+                           (lambda (#{outer-var\ 2842}# #{outer-maps\ 2843}#)
+                             (let ((#{b\ 2847}#
+                                     (assq #{outer-var\ 2842}#
+                                           (car #{maps\ 2837}#))))
+                               (if #{b\ 2847}#
+                                 (values (cdr #{b\ 2847}#) #{maps\ 2837}#)
+                                 (let ((#{inner-var\ 2849}#
+                                         (#{gen-var\ 420}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 15486}#
-                                     (cons (cons (cons #{outer-var\ 15479}#
-                                                       #{inner-var\ 15486}#)
-                                                 (car #{maps\ 15474}#))
-                                           #{outer-maps\ 15480}#)))))))))))
-                 (#{gen-syntax\ 15379}#
-                   (lambda (#{src\ 15487}#
-                            #{e\ 15488}#
-                            #{r\ 15489}#
-                            #{maps\ 15490}#
-                            #{ellipsis?\ 15491}#
-                            #{mod\ 15492}#)
-                     (if (#{id?\ 12916}# #{e\ 15488}#)
-                       (let ((#{label\ 15500}#
-                               (#{id-var-name\ 12973}#
-                                 #{e\ 15488}#
+                                     #{inner-var\ 2849}#
+                                     (cons (cons (cons #{outer-var\ 2842}#
+                                                       #{inner-var\ 2849}#)
+                                                 (car #{maps\ 2837}#))
+                                           #{outer-maps\ 2843}#)))))))))))
+                 (#{gen-syntax\ 2742}#
+                   (lambda (#{src\ 2850}#
+                            #{e\ 2851}#
+                            #{r\ 2852}#
+                            #{maps\ 2853}#
+                            #{ellipsis?\ 2854}#
+                            #{mod\ 2855}#)
+                     (if (#{id?\ 307}# #{e\ 2851}#)
+                       (let ((#{label\ 2863}#
+                               (#{id-var-name\ 364}#
+                                 #{e\ 2851}#
                                  '(()))))
-                         (let ((#{b\ 15503}#
-                                 (#{lookup\ 12910}#
-                                   #{label\ 15500}#
-                                   #{r\ 15489}#
-                                   #{mod\ 15492}#)))
-                           (if (eq? (#{binding-type\ 12899}# #{b\ 15503}#)
+                         (let ((#{b\ 2866}#
+                                 (#{lookup\ 301}#
+                                   #{label\ 2863}#
+                                   #{r\ 2852}#
+                                   #{mod\ 2855}#)))
+                           (if (eq? (#{binding-type\ 290}# #{b\ 2866}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 15505}#
-                                         (#{binding-value\ 12901}#
-                                           #{b\ 15503}#)))
-                                   (#{gen-ref\ 15381}#
-                                     #{src\ 15487}#
-                                     (car #{var.lev\ 15505}#)
-                                     (cdr #{var.lev\ 15505}#)
-                                     #{maps\ 15490}#)))
-                               (lambda (#{var\ 15506}# #{maps\ 15507}#)
+                                 (let ((#{var.lev\ 2868}#
+                                         (#{binding-value\ 292}# #{b\ 2866}#)))
+                                   (#{gen-ref\ 2744}#
+                                     #{src\ 2850}#
+                                     (car #{var.lev\ 2868}#)
+                                     (cdr #{var.lev\ 2868}#)
+                                     #{maps\ 2853}#)))
+                               (lambda (#{var\ 2869}# #{maps\ 2870}#)
                                  (values
-                                   (list (quote ref) #{var\ 15506}#)
-                                   #{maps\ 15507}#)))
-                             (if (#{ellipsis?\ 15491}# #{e\ 15488}#)
+                                   (list (quote ref) #{var\ 2869}#)
+                                   #{maps\ 2870}#)))
+                             (if (#{ellipsis?\ 2854}# #{e\ 2851}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 15487}#)
+                                 #{src\ 2850}#)
                                (values
-                                 (list (quote quote) #{e\ 15488}#)
-                                 #{maps\ 15490}#)))))
-                       ((lambda (#{tmp\ 15512}#)
-                          ((lambda (#{tmp\ 15513}#)
-                             (if (if #{tmp\ 15513}#
-                                   (apply (lambda (#{dots\ 15516}#
-                                                   #{e\ 15517}#)
-                                            (#{ellipsis?\ 15491}#
-                                              #{dots\ 15516}#))
-                                          #{tmp\ 15513}#)
+                                 (list (quote quote) #{e\ 2851}#)
+                                 #{maps\ 2853}#)))))
+                       ((lambda (#{tmp\ 2875}#)
+                          ((lambda (#{tmp\ 2876}#)
+                             (if (if #{tmp\ 2876}#
+                                   (apply (lambda (#{dots\ 2879}# #{e\ 2880}#)
+                                            (#{ellipsis?\ 2854}#
+                                              #{dots\ 2879}#))
+                                          #{tmp\ 2876}#)
                                    #f)
-                               (apply (lambda (#{dots\ 15520}# #{e\ 15521}#)
-                                        (#{gen-syntax\ 15379}#
-                                          #{src\ 15487}#
-                                          #{e\ 15521}#
-                                          #{r\ 15489}#
-                                          #{maps\ 15490}#
-                                          (lambda (#{x\ 15522}#) #f)
-                                          #{mod\ 15492}#))
-                                      #{tmp\ 15513}#)
-                               ((lambda (#{tmp\ 15524}#)
-                                  (if (if #{tmp\ 15524}#
-                                        (apply (lambda (#{x\ 15528}#
-                                                        #{dots\ 15529}#
-                                                        #{y\ 15530}#)
-                                                 (#{ellipsis?\ 15491}#
-                                                   #{dots\ 15529}#))
-                                               #{tmp\ 15524}#)
+                               (apply (lambda (#{dots\ 2883}# #{e\ 2884}#)
+                                        (#{gen-syntax\ 2742}#
+                                          #{src\ 2850}#
+                                          #{e\ 2884}#
+                                          #{r\ 2852}#
+                                          #{maps\ 2853}#
+                                          (lambda (#{x\ 2885}#) #f)
+                                          #{mod\ 2855}#))
+                                      #{tmp\ 2876}#)
+                               ((lambda (#{tmp\ 2887}#)
+                                  (if (if #{tmp\ 2887}#
+                                        (apply (lambda (#{x\ 2891}#
+                                                        #{dots\ 2892}#
+                                                        #{y\ 2893}#)
+                                                 (#{ellipsis?\ 2854}#
+                                                   #{dots\ 2892}#))
+                                               #{tmp\ 2887}#)
                                         #f)
-                                    (apply (lambda (#{x\ 15534}#
-                                                    #{dots\ 15535}#
-                                                    #{y\ 15536}#)
-                                             (letrec ((#{f\ 15540}#
-                                                        (lambda (#{y\ 15541}#
-                                                                 #{k\ 15542}#)
-                                                          ((lambda (#{tmp\ 
15549}#)
-                                                             ((lambda (#{tmp\ 
15550}#)
-                                                                (if (if #{tmp\ 
15550}#
-                                                                      (apply 
(lambda (#{dots\ 15553}#
-                                                                               
       #{y\ 15554}#)
-                                                                               
(#{ellipsis?\ 15491}#
-                                                                               
  #{dots\ 15553}#))
-                                                                             
#{tmp\ 15550}#)
+                                    (apply (lambda (#{x\ 2897}#
+                                                    #{dots\ 2898}#
+                                                    #{y\ 2899}#)
+                                             (letrec ((#{f\ 2903}#
+                                                        (lambda (#{y\ 2904}#
+                                                                 #{k\ 2905}#)
+                                                          ((lambda (#{tmp\ 
2912}#)
+                                                             ((lambda (#{tmp\ 
2913}#)
+                                                                (if (if #{tmp\ 
2913}#
+                                                                      (apply 
(lambda (#{dots\ 2916}#
+                                                                               
       #{y\ 2917}#)
+                                                                               
(#{ellipsis?\ 2854}#
+                                                                               
  #{dots\ 2916}#))
+                                                                             
#{tmp\ 2913}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 15557}#
-                                                                               
   #{y\ 15558}#)
-                                                                           
(#{f\ 15540}#
-                                                                             
#{y\ 15558}#
-                                                                             
(lambda (#{maps\ 15559}#)
+                                                                  (apply 
(lambda (#{dots\ 2920}#
+                                                                               
   #{y\ 2921}#)
+                                                                           
(#{f\ 2903}#
+                                                                             
#{y\ 2921}#
+                                                                             
(lambda (#{maps\ 2922}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 15542}#
+                                                                               
    (#{k\ 2905}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 15559}#)))
-                                                                               
  (lambda (#{x\ 15561}#
-                                                                               
           #{maps\ 15562}#)
-                                                                               
    (if (null? (car #{maps\ 15562}#))
+                                                                               
            #{maps\ 2922}#)))
+                                                                               
  (lambda (#{x\ 2924}#
+                                                                               
           #{maps\ 2925}#)
+                                                                               
    (if (null? (car #{maps\ 2925}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 15487}#)
+                                                                               
        #{src\ 2850}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 15383}#
-                                                                               
          #{x\ 15561}#
-                                                                               
          (car #{maps\ 15562}#))
-                                                                               
        (cdr #{maps\ 15562}#))))))))
-                                                                         
#{tmp\ 15550}#)
-                                                                  ((lambda 
(#{_\ 15566}#)
+                                                                               
        (#{gen-mappend\ 2746}#
+                                                                               
          #{x\ 2924}#
+                                                                               
          (car #{maps\ 2925}#))
+                                                                               
        (cdr #{maps\ 2925}#))))))))
+                                                                         
#{tmp\ 2913}#)
+                                                                  ((lambda 
(#{_\ 2929}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 15379}#
-                                                                           
#{src\ 15487}#
-                                                                           
#{y\ 15541}#
-                                                                           
#{r\ 15489}#
-                                                                           
#{maps\ 15490}#
-                                                                           
#{ellipsis?\ 15491}#
-                                                                           
#{mod\ 15492}#))
-                                                                       (lambda 
(#{y\ 15567}#
-                                                                               
 #{maps\ 15568}#)
+                                                                         
(#{gen-syntax\ 2742}#
+                                                                           
#{src\ 2850}#
+                                                                           
#{y\ 2904}#
+                                                                           
#{r\ 2852}#
+                                                                           
#{maps\ 2853}#
+                                                                           
#{ellipsis?\ 2854}#
+                                                                           
#{mod\ 2855}#))
+                                                                       (lambda 
(#{y\ 2930}#
+                                                                               
 #{maps\ 2931}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 15542}#
-                                                                               
#{maps\ 15568}#))
-                                                                           
(lambda (#{x\ 15571}#
-                                                                               
     #{maps\ 15572}#)
+                                                                             
(#{k\ 2905}#
+                                                                               
#{maps\ 2931}#))
+                                                                           
(lambda (#{x\ 2934}#
+                                                                               
     #{maps\ 2935}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 15389}#
-                                                                               
  #{x\ 15571}#
-                                                                               
  #{y\ 15567}#)
-                                                                               
#{maps\ 15572}#))))))
-                                                                   #{tmp\ 
15549}#)))
+                                                                               
(#{gen-append\ 2752}#
+                                                                               
  #{x\ 2934}#
+                                                                               
  #{y\ 2930}#)
+                                                                               
#{maps\ 2935}#))))))
+                                                                   #{tmp\ 
2912}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 15549}#
+                                                                #{tmp\ 2912}#
                                                                 '(any . any))))
-                                                           #{y\ 15541}#))))
-                                               (#{f\ 15540}#
-                                                 #{y\ 15536}#
-                                                 (lambda (#{maps\ 15543}#)
+                                                           #{y\ 2904}#))))
+                                               (#{f\ 2903}#
+                                                 #{y\ 2899}#
+                                                 (lambda (#{maps\ 2906}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 15379}#
-                                                         #{src\ 15487}#
-                                                         #{x\ 15534}#
-                                                         #{r\ 15489}#
+                                                       (#{gen-syntax\ 2742}#
+                                                         #{src\ 2850}#
+                                                         #{x\ 2897}#
+                                                         #{r\ 2852}#
                                                          (cons '()
-                                                               #{maps\ 15543}#)
-                                                         #{ellipsis?\ 15491}#
-                                                         #{mod\ 15492}#))
-                                                     (lambda (#{x\ 15545}#
-                                                              #{maps\ 15546}#)
-                                                       (if (null? (car #{maps\ 
15546}#))
+                                                               #{maps\ 2906}#)
+                                                         #{ellipsis?\ 2854}#
+                                                         #{mod\ 2855}#))
+                                                     (lambda (#{x\ 2908}#
+                                                              #{maps\ 2909}#)
+                                                       (if (null? (car #{maps\ 
2909}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 15487}#)
+                                                           #{src\ 2850}#)
                                                          (values
-                                                           (#{gen-map\ 15385}#
-                                                             #{x\ 15545}#
-                                                             (car #{maps\ 
15546}#))
-                                                           (cdr #{maps\ 
15546}#)))))))))
-                                           #{tmp\ 15524}#)
-                                    ((lambda (#{tmp\ 15575}#)
-                                       (if #{tmp\ 15575}#
-                                         (apply (lambda (#{x\ 15578}#
-                                                         #{y\ 15579}#)
+                                                           (#{gen-map\ 2748}#
+                                                             #{x\ 2908}#
+                                                             (car #{maps\ 
2909}#))
+                                                           (cdr #{maps\ 
2909}#)))))))))
+                                           #{tmp\ 2887}#)
+                                    ((lambda (#{tmp\ 2938}#)
+                                       (if #{tmp\ 2938}#
+                                         (apply (lambda (#{x\ 2941}#
+                                                         #{y\ 2942}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 15379}#
-                                                        #{src\ 15487}#
-                                                        #{x\ 15578}#
-                                                        #{r\ 15489}#
-                                                        #{maps\ 15490}#
-                                                        #{ellipsis?\ 15491}#
-                                                        #{mod\ 15492}#))
-                                                    (lambda (#{x\ 15580}#
-                                                             #{maps\ 15581}#)
+                                                      (#{gen-syntax\ 2742}#
+                                                        #{src\ 2850}#
+                                                        #{x\ 2941}#
+                                                        #{r\ 2852}#
+                                                        #{maps\ 2853}#
+                                                        #{ellipsis?\ 2854}#
+                                                        #{mod\ 2855}#))
+                                                    (lambda (#{x\ 2943}#
+                                                             #{maps\ 2944}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 
15379}#
-                                                            #{src\ 15487}#
-                                                            #{y\ 15579}#
-                                                            #{r\ 15489}#
-                                                            #{maps\ 15581}#
-                                                            #{ellipsis?\ 
15491}#
-                                                            #{mod\ 15492}#))
-                                                        (lambda (#{y\ 15584}#
-                                                                 #{maps\ 
15585}#)
+                                                          (#{gen-syntax\ 2742}#
+                                                            #{src\ 2850}#
+                                                            #{y\ 2942}#
+                                                            #{r\ 2852}#
+                                                            #{maps\ 2944}#
+                                                            #{ellipsis?\ 2854}#
+                                                            #{mod\ 2855}#))
+                                                        (lambda (#{y\ 2947}#
+                                                                 #{maps\ 
2948}#)
                                                           (values
-                                                            (#{gen-cons\ 
15387}#
-                                                              #{x\ 15580}#
-                                                              #{y\ 15584}#)
-                                                            #{maps\ 
15585}#))))))
-                                                #{tmp\ 15575}#)
-                                         ((lambda (#{tmp\ 15588}#)
-                                            (if #{tmp\ 15588}#
-                                              (apply (lambda (#{e1\ 15591}#
-                                                              #{e2\ 15592}#)
+                                                            (#{gen-cons\ 2750}#
+                                                              #{x\ 2943}#
+                                                              #{y\ 2947}#)
+                                                            #{maps\ 
2948}#))))))
+                                                #{tmp\ 2938}#)
+                                         ((lambda (#{tmp\ 2951}#)
+                                            (if #{tmp\ 2951}#
+                                              (apply (lambda (#{e1\ 2954}#
+                                                              #{e2\ 2955}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
15379}#
-                                                             #{src\ 15487}#
-                                                             (cons #{e1\ 
15591}#
-                                                                   #{e2\ 
15592}#)
-                                                             #{r\ 15489}#
-                                                             #{maps\ 15490}#
-                                                             #{ellipsis?\ 
15491}#
-                                                             #{mod\ 15492}#))
-                                                         (lambda (#{e\ 15594}#
-                                                                  #{maps\ 
15595}#)
+                                                           (#{gen-syntax\ 
2742}#
+                                                             #{src\ 2850}#
+                                                             (cons #{e1\ 2954}#
+                                                                   #{e2\ 
2955}#)
+                                                             #{r\ 2852}#
+                                                             #{maps\ 2853}#
+                                                             #{ellipsis?\ 
2854}#
+                                                             #{mod\ 2855}#))
+                                                         (lambda (#{e\ 2957}#
+                                                                  #{maps\ 
2958}#)
                                                            (values
-                                                             (#{gen-vector\ 
15391}#
-                                                               #{e\ 15594}#)
-                                                             #{maps\ 
15595}#))))
-                                                     #{tmp\ 15588}#)
-                                              ((lambda (#{_\ 15599}#)
+                                                             (#{gen-vector\ 
2754}#
+                                                               #{e\ 2957}#)
+                                                             #{maps\ 2958}#))))
+                                                     #{tmp\ 2951}#)
+                                              ((lambda (#{_\ 2962}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 15488}#)
-                                                   #{maps\ 15490}#))
-                                               #{tmp\ 15512}#)))
+                                                         #{e\ 2851}#)
+                                                   #{maps\ 2853}#))
+                                               #{tmp\ 2875}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 15512}#
+                                            #{tmp\ 2875}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 15512}#
+                                       #{tmp\ 2875}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 15512}#
+                                  #{tmp\ 2875}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 15512}# (quote (any any)))))
-                        #{e\ 15488}#)))))
-          (lambda (#{e\ 15601}#
-                   #{r\ 15602}#
-                   #{w\ 15603}#
-                   #{s\ 15604}#
-                   #{mod\ 15605}#)
-            (let ((#{e\ 15612}#
-                    (#{source-wrap\ 12987}#
-                      #{e\ 15601}#
-                      #{w\ 15603}#
-                      #{s\ 15604}#
-                      #{mod\ 15605}#)))
-              ((lambda (#{tmp\ 15613}#)
-                 ((lambda (#{tmp\ 15614}#)
-                    (if #{tmp\ 15614}#
-                      (apply (lambda (#{_\ 15617}# #{x\ 15618}#)
+                           ($sc-dispatch #{tmp\ 2875}# (quote (any any)))))
+                        #{e\ 2851}#)))))
+          (lambda (#{e\ 2964}#
+                   #{r\ 2965}#
+                   #{w\ 2966}#
+                   #{s\ 2967}#
+                   #{mod\ 2968}#)
+            (let ((#{e\ 2975}#
+                    (#{source-wrap\ 378}#
+                      #{e\ 2964}#
+                      #{w\ 2966}#
+                      #{s\ 2967}#
+                      #{mod\ 2968}#)))
+              ((lambda (#{tmp\ 2976}#)
+                 ((lambda (#{tmp\ 2977}#)
+                    (if #{tmp\ 2977}#
+                      (apply (lambda (#{_\ 2980}# #{x\ 2981}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 15379}#
-                                     #{e\ 15612}#
-                                     #{x\ 15618}#
-                                     #{r\ 15602}#
+                                   (#{gen-syntax\ 2742}#
+                                     #{e\ 2975}#
+                                     #{x\ 2981}#
+                                     #{r\ 2965}#
                                      '()
-                                     #{ellipsis?\ 13017}#
-                                     #{mod\ 15605}#))
-                                 (lambda (#{e\ 15619}# #{maps\ 15620}#)
-                                   (#{regen\ 15393}# #{e\ 15619}#))))
-                             #{tmp\ 15614}#)
-                      ((lambda (#{_\ 15624}#)
+                                     #{ellipsis?\ 408}#
+                                     #{mod\ 2968}#))
+                                 (lambda (#{e\ 2982}# #{maps\ 2983}#)
+                                   (#{regen\ 2756}# #{e\ 2982}#))))
+                             #{tmp\ 2977}#)
+                      ((lambda (#{_\ 2987}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 15612}#))
-                       #{tmp\ 15613}#)))
-                  ($sc-dispatch #{tmp\ 15613}# (quote (any any)))))
-               #{e\ 15612}#)))))
-      (#{global-extend\ 12912}#
+                           #{e\ 2975}#))
+                       #{tmp\ 2976}#)))
+                  ($sc-dispatch #{tmp\ 2976}# (quote (any any)))))
+               #{e\ 2975}#)))))
+      (#{global-extend\ 303}#
         'core
         'lambda
-        (lambda (#{e\ 15625}#
-                 #{r\ 15626}#
-                 #{w\ 15627}#
-                 #{s\ 15628}#
-                 #{mod\ 15629}#)
-          ((lambda (#{tmp\ 15635}#)
-             ((lambda (#{tmp\ 15636}#)
-                (if #{tmp\ 15636}#
-                  (apply (lambda (#{_\ 15641}#
-                                  #{args\ 15642}#
-                                  #{e1\ 15643}#
-                                  #{e2\ 15644}#)
+        (lambda (#{e\ 2988}#
+                 #{r\ 2989}#
+                 #{w\ 2990}#
+                 #{s\ 2991}#
+                 #{mod\ 2992}#)
+          ((lambda (#{tmp\ 2998}#)
+             ((lambda (#{tmp\ 2999}#)
+                (if #{tmp\ 2999}#
+                  (apply (lambda (#{_\ 3004}#
+                                  #{args\ 3005}#
+                                  #{e1\ 3006}#
+                                  #{e2\ 3007}#)
                            (call-with-values
                              (lambda ()
-                               (#{lambda-formals\ 13019}# #{args\ 15642}#))
-                             (lambda (#{req\ 15645}#
-                                      #{opt\ 15646}#
-                                      #{rest\ 15647}#
-                                      #{kw\ 15648}#)
-                               (letrec ((#{lp\ 15656}#
-                                          (lambda (#{body\ 15657}#
-                                                   #{meta\ 15658}#)
-                                            ((lambda (#{tmp\ 15660}#)
-                                               ((lambda (#{tmp\ 15661}#)
-                                                  (if (if #{tmp\ 15661}#
-                                                        (apply (lambda 
(#{docstring\ 15665}#
-                                                                        #{e1\ 
15666}#
-                                                                        #{e2\ 
15667}#)
+                               (#{lambda-formals\ 410}# #{args\ 3005}#))
+                             (lambda (#{req\ 3008}#
+                                      #{opt\ 3009}#
+                                      #{rest\ 3010}#
+                                      #{kw\ 3011}#)
+                               (letrec ((#{lp\ 3019}#
+                                          (lambda (#{body\ 3020}#
+                                                   #{meta\ 3021}#)
+                                            ((lambda (#{tmp\ 3023}#)
+                                               ((lambda (#{tmp\ 3024}#)
+                                                  (if (if #{tmp\ 3024}#
+                                                        (apply (lambda 
(#{docstring\ 3028}#
+                                                                        #{e1\ 
3029}#
+                                                                        #{e2\ 
3030}#)
                                                                  (string?
                                                                    
(syntax->datum
-                                                                     
#{docstring\ 15665}#)))
-                                                               #{tmp\ 15661}#)
+                                                                     
#{docstring\ 3028}#)))
+                                                               #{tmp\ 3024}#)
                                                         #f)
-                                                    (apply (lambda 
(#{docstring\ 15671}#
-                                                                    #{e1\ 
15672}#
-                                                                    #{e2\ 
15673}#)
-                                                             (#{lp\ 15656}#
-                                                               (cons #{e1\ 
15672}#
-                                                                     #{e2\ 
15673}#)
+                                                    (apply (lambda 
(#{docstring\ 3034}#
+                                                                    #{e1\ 
3035}#
+                                                                    #{e2\ 
3036}#)
+                                                             (#{lp\ 3019}#
+                                                               (cons #{e1\ 
3035}#
+                                                                     #{e2\ 
3036}#)
                                                                (append
-                                                                 #{meta\ 
15658}#
+                                                                 #{meta\ 3021}#
                                                                  (list (cons 
'documentation
                                                                              
(syntax->datum
-                                                                               
#{docstring\ 15671}#))))))
-                                                           #{tmp\ 15661}#)
-                                                    ((lambda (#{tmp\ 15676}#)
-                                                       (if #{tmp\ 15676}#
-                                                         (apply (lambda (#{k\ 
15681}#
-                                                                         #{v\ 
15682}#
-                                                                         #{e1\ 
15683}#
-                                                                         #{e2\ 
15684}#)
-                                                                  (#{lp\ 
15656}#
-                                                                    (cons 
#{e1\ 15683}#
-                                                                          
#{e2\ 15684}#)
+                                                                               
#{docstring\ 3034}#))))))
+                                                           #{tmp\ 3024}#)
+                                                    ((lambda (#{tmp\ 3039}#)
+                                                       (if #{tmp\ 3039}#
+                                                         (apply (lambda (#{k\ 
3044}#
+                                                                         #{v\ 
3045}#
+                                                                         #{e1\ 
3046}#
+                                                                         #{e2\ 
3047}#)
+                                                                  (#{lp\ 3019}#
+                                                                    (cons 
#{e1\ 3046}#
+                                                                          
#{e2\ 3047}#)
                                                                     (append
-                                                                      #{meta\ 
15658}#
+                                                                      #{meta\ 
3021}#
                                                                       
(syntax->datum
                                                                         (map 
cons
-                                                                             
#{k\ 15681}#
-                                                                             
#{v\ 15682}#)))))
-                                                                #{tmp\ 15676}#)
-                                                         ((lambda (#{_\ 
15689}#)
-                                                            
(#{chi-simple-lambda\ 13021}#
-                                                              #{e\ 15625}#
-                                                              #{r\ 15626}#
-                                                              #{w\ 15627}#
-                                                              #{s\ 15628}#
-                                                              #{mod\ 15629}#
-                                                              #{req\ 15645}#
-                                                              #{rest\ 15647}#
-                                                              #{meta\ 15658}#
-                                                              #{body\ 15657}#))
-                                                          #{tmp\ 15660}#)))
+                                                                             
#{k\ 3044}#
+                                                                             
#{v\ 3045}#)))))
+                                                                #{tmp\ 3039}#)
+                                                         ((lambda (#{_\ 3052}#)
+                                                            
(#{chi-simple-lambda\ 412}#
+                                                              #{e\ 2988}#
+                                                              #{r\ 2989}#
+                                                              #{w\ 2990}#
+                                                              #{s\ 2991}#
+                                                              #{mod\ 2992}#
+                                                              #{req\ 3008}#
+                                                              #{rest\ 3010}#
+                                                              #{meta\ 3021}#
+                                                              #{body\ 3020}#))
+                                                          #{tmp\ 3023}#)))
                                                      ($sc-dispatch
-                                                       #{tmp\ 15660}#
+                                                       #{tmp\ 3023}#
                                                        '(#(vector
                                                            #(each (any . any)))
                                                          any
                                                          .
                                                          each-any)))))
                                                 ($sc-dispatch
-                                                  #{tmp\ 15660}#
+                                                  #{tmp\ 3023}#
                                                   '(any any . each-any))))
-                                             #{body\ 15657}#))))
-                                 (#{lp\ 15656}#
-                                   (cons #{e1\ 15643}# #{e2\ 15644}#)
+                                             #{body\ 3020}#))))
+                                 (#{lp\ 3019}#
+                                   (cons #{e1\ 3006}# #{e2\ 3007}#)
                                    '())))))
-                         #{tmp\ 15636}#)
-                  ((lambda (#{_\ 15691}#)
+                         #{tmp\ 2999}#)
+                  ((lambda (#{_\ 3054}#)
                      (syntax-violation
                        'lambda
                        "bad lambda"
-                       #{e\ 15625}#))
-                   #{tmp\ 15635}#)))
+                       #{e\ 2988}#))
+                   #{tmp\ 2998}#)))
               ($sc-dispatch
-                #{tmp\ 15635}#
+                #{tmp\ 2998}#
                 '(any any any . each-any))))
-           #{e\ 15625}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 2988}#)))
+      (#{global-extend\ 303}#
         'core
         'lambda*
-        (lambda (#{e\ 15692}#
-                 #{r\ 15693}#
-                 #{w\ 15694}#
-                 #{s\ 15695}#
-                 #{mod\ 15696}#)
-          ((lambda (#{tmp\ 15702}#)
-             ((lambda (#{tmp\ 15703}#)
-                (if #{tmp\ 15703}#
-                  (apply (lambda (#{_\ 15708}#
-                                  #{args\ 15709}#
-                                  #{e1\ 15710}#
-                                  #{e2\ 15711}#)
+        (lambda (#{e\ 3055}#
+                 #{r\ 3056}#
+                 #{w\ 3057}#
+                 #{s\ 3058}#
+                 #{mod\ 3059}#)
+          ((lambda (#{tmp\ 3065}#)
+             ((lambda (#{tmp\ 3066}#)
+                (if #{tmp\ 3066}#
+                  (apply (lambda (#{_\ 3071}#
+                                  #{args\ 3072}#
+                                  #{e1\ 3073}#
+                                  #{e2\ 3074}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 13025}#
-                                 #{e\ 15692}#
-                                 #{r\ 15693}#
-                                 #{w\ 15694}#
-                                 #{s\ 15695}#
-                                 #{mod\ 15696}#
-                                 #{lambda*-formals\ 13023}#
-                                 (list (cons #{args\ 15709}#
-                                             (cons #{e1\ 15710}#
-                                                   #{e2\ 15711}#)))))
-                             (lambda (#{meta\ 15713}# #{lcase\ 15714}#)
-                               (#{build-case-lambda\ 12860}#
-                                 #{s\ 15695}#
-                                 #{meta\ 15713}#
-                                 #{lcase\ 15714}#))))
-                         #{tmp\ 15703}#)
-                  ((lambda (#{_\ 15718}#)
+                               (#{chi-lambda-case\ 416}#
+                                 #{e\ 3055}#
+                                 #{r\ 3056}#
+                                 #{w\ 3057}#
+                                 #{s\ 3058}#
+                                 #{mod\ 3059}#
+                                 #{lambda*-formals\ 414}#
+                                 (list (cons #{args\ 3072}#
+                                             (cons #{e1\ 3073}#
+                                                   #{e2\ 3074}#)))))
+                             (lambda (#{meta\ 3076}# #{lcase\ 3077}#)
+                               (#{build-case-lambda\ 251}#
+                                 #{s\ 3058}#
+                                 #{meta\ 3076}#
+                                 #{lcase\ 3077}#))))
+                         #{tmp\ 3066}#)
+                  ((lambda (#{_\ 3081}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 15692}#))
-                   #{tmp\ 15702}#)))
+                       #{e\ 3055}#))
+                   #{tmp\ 3065}#)))
               ($sc-dispatch
-                #{tmp\ 15702}#
+                #{tmp\ 3065}#
                 '(any any any . each-any))))
-           #{e\ 15692}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3055}#)))
+      (#{global-extend\ 303}#
         'core
         'case-lambda
-        (lambda (#{e\ 15719}#
-                 #{r\ 15720}#
-                 #{w\ 15721}#
-                 #{s\ 15722}#
-                 #{mod\ 15723}#)
-          ((lambda (#{tmp\ 15729}#)
-             ((lambda (#{tmp\ 15730}#)
-                (if #{tmp\ 15730}#
-                  (apply (lambda (#{_\ 15738}#
-                                  #{args\ 15739}#
-                                  #{e1\ 15740}#
-                                  #{e2\ 15741}#
-                                  #{args*\ 15742}#
-                                  #{e1*\ 15743}#
-                                  #{e2*\ 15744}#)
+        (lambda (#{e\ 3082}#
+                 #{r\ 3083}#
+                 #{w\ 3084}#
+                 #{s\ 3085}#
+                 #{mod\ 3086}#)
+          ((lambda (#{tmp\ 3092}#)
+             ((lambda (#{tmp\ 3093}#)
+                (if #{tmp\ 3093}#
+                  (apply (lambda (#{_\ 3101}#
+                                  #{args\ 3102}#
+                                  #{e1\ 3103}#
+                                  #{e2\ 3104}#
+                                  #{args*\ 3105}#
+                                  #{e1*\ 3106}#
+                                  #{e2*\ 3107}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 13025}#
-                                 #{e\ 15719}#
-                                 #{r\ 15720}#
-                                 #{w\ 15721}#
-                                 #{s\ 15722}#
-                                 #{mod\ 15723}#
-                                 #{lambda-formals\ 13019}#
-                                 (cons (cons #{args\ 15739}#
-                                             (cons #{e1\ 15740}#
-                                                   #{e2\ 15741}#))
-                                       (map (lambda (#{tmp\ 15748}#
-                                                     #{tmp\ 15747}#
-                                                     #{tmp\ 15746}#)
-                                              (cons #{tmp\ 15746}#
-                                                    (cons #{tmp\ 15747}#
-                                                          #{tmp\ 15748}#)))
-                                            #{e2*\ 15744}#
-                                            #{e1*\ 15743}#
-                                            #{args*\ 15742}#))))
-                             (lambda (#{meta\ 15750}# #{lcase\ 15751}#)
-                               (#{build-case-lambda\ 12860}#
-                                 #{s\ 15722}#
-                                 #{meta\ 15750}#
-                                 #{lcase\ 15751}#))))
-                         #{tmp\ 15730}#)
-                  ((lambda (#{_\ 15755}#)
+                               (#{chi-lambda-case\ 416}#
+                                 #{e\ 3082}#
+                                 #{r\ 3083}#
+                                 #{w\ 3084}#
+                                 #{s\ 3085}#
+                                 #{mod\ 3086}#
+                                 #{lambda-formals\ 410}#
+                                 (cons (cons #{args\ 3102}#
+                                             (cons #{e1\ 3103}# #{e2\ 3104}#))
+                                       (map (lambda (#{tmp\ 3111}#
+                                                     #{tmp\ 3110}#
+                                                     #{tmp\ 3109}#)
+                                              (cons #{tmp\ 3109}#
+                                                    (cons #{tmp\ 3110}#
+                                                          #{tmp\ 3111}#)))
+                                            #{e2*\ 3107}#
+                                            #{e1*\ 3106}#
+                                            #{args*\ 3105}#))))
+                             (lambda (#{meta\ 3113}# #{lcase\ 3114}#)
+                               (#{build-case-lambda\ 251}#
+                                 #{s\ 3085}#
+                                 #{meta\ 3113}#
+                                 #{lcase\ 3114}#))))
+                         #{tmp\ 3093}#)
+                  ((lambda (#{_\ 3118}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 15719}#))
-                   #{tmp\ 15729}#)))
+                       #{e\ 3082}#))
+                   #{tmp\ 3092}#)))
               ($sc-dispatch
-                #{tmp\ 15729}#
+                #{tmp\ 3092}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 15719}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3082}#)))
+      (#{global-extend\ 303}#
         'core
         'case-lambda*
-        (lambda (#{e\ 15756}#
-                 #{r\ 15757}#
-                 #{w\ 15758}#
-                 #{s\ 15759}#
-                 #{mod\ 15760}#)
-          ((lambda (#{tmp\ 15766}#)
-             ((lambda (#{tmp\ 15767}#)
-                (if #{tmp\ 15767}#
-                  (apply (lambda (#{_\ 15775}#
-                                  #{args\ 15776}#
-                                  #{e1\ 15777}#
-                                  #{e2\ 15778}#
-                                  #{args*\ 15779}#
-                                  #{e1*\ 15780}#
-                                  #{e2*\ 15781}#)
+        (lambda (#{e\ 3119}#
+                 #{r\ 3120}#
+                 #{w\ 3121}#
+                 #{s\ 3122}#
+                 #{mod\ 3123}#)
+          ((lambda (#{tmp\ 3129}#)
+             ((lambda (#{tmp\ 3130}#)
+                (if #{tmp\ 3130}#
+                  (apply (lambda (#{_\ 3138}#
+                                  #{args\ 3139}#
+                                  #{e1\ 3140}#
+                                  #{e2\ 3141}#
+                                  #{args*\ 3142}#
+                                  #{e1*\ 3143}#
+                                  #{e2*\ 3144}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 13025}#
-                                 #{e\ 15756}#
-                                 #{r\ 15757}#
-                                 #{w\ 15758}#
-                                 #{s\ 15759}#
-                                 #{mod\ 15760}#
-                                 #{lambda*-formals\ 13023}#
-                                 (cons (cons #{args\ 15776}#
-                                             (cons #{e1\ 15777}#
-                                                   #{e2\ 15778}#))
-                                       (map (lambda (#{tmp\ 15785}#
-                                                     #{tmp\ 15784}#
-                                                     #{tmp\ 15783}#)
-                                              (cons #{tmp\ 15783}#
-                                                    (cons #{tmp\ 15784}#
-                                                          #{tmp\ 15785}#)))
-                                            #{e2*\ 15781}#
-                                            #{e1*\ 15780}#
-                                            #{args*\ 15779}#))))
-                             (lambda (#{meta\ 15787}# #{lcase\ 15788}#)
-                               (#{build-case-lambda\ 12860}#
-                                 #{s\ 15759}#
-                                 #{meta\ 15787}#
-                                 #{lcase\ 15788}#))))
-                         #{tmp\ 15767}#)
-                  ((lambda (#{_\ 15792}#)
+                               (#{chi-lambda-case\ 416}#
+                                 #{e\ 3119}#
+                                 #{r\ 3120}#
+                                 #{w\ 3121}#
+                                 #{s\ 3122}#
+                                 #{mod\ 3123}#
+                                 #{lambda*-formals\ 414}#
+                                 (cons (cons #{args\ 3139}#
+                                             (cons #{e1\ 3140}# #{e2\ 3141}#))
+                                       (map (lambda (#{tmp\ 3148}#
+                                                     #{tmp\ 3147}#
+                                                     #{tmp\ 3146}#)
+                                              (cons #{tmp\ 3146}#
+                                                    (cons #{tmp\ 3147}#
+                                                          #{tmp\ 3148}#)))
+                                            #{e2*\ 3144}#
+                                            #{e1*\ 3143}#
+                                            #{args*\ 3142}#))))
+                             (lambda (#{meta\ 3150}# #{lcase\ 3151}#)
+                               (#{build-case-lambda\ 251}#
+                                 #{s\ 3122}#
+                                 #{meta\ 3150}#
+                                 #{lcase\ 3151}#))))
+                         #{tmp\ 3130}#)
+                  ((lambda (#{_\ 3155}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 15756}#))
-                   #{tmp\ 15766}#)))
+                       #{e\ 3119}#))
+                   #{tmp\ 3129}#)))
               ($sc-dispatch
-                #{tmp\ 15766}#
+                #{tmp\ 3129}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 15756}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3119}#)))
+      (#{global-extend\ 303}#
         'core
         'let
-        (letrec ((#{chi-let\ 15794}#
-                   (lambda (#{e\ 15795}#
-                            #{r\ 15796}#
-                            #{w\ 15797}#
-                            #{s\ 15798}#
-                            #{mod\ 15799}#
-                            #{constructor\ 15800}#
-                            #{ids\ 15801}#
-                            #{vals\ 15802}#
-                            #{exps\ 15803}#)
-                     (if (not (#{valid-bound-ids?\ 12979}# #{ids\ 15801}#))
+        (letrec ((#{chi-let\ 3157}#
+                   (lambda (#{e\ 3158}#
+                            #{r\ 3159}#
+                            #{w\ 3160}#
+                            #{s\ 3161}#
+                            #{mod\ 3162}#
+                            #{constructor\ 3163}#
+                            #{ids\ 3164}#
+                            #{vals\ 3165}#
+                            #{exps\ 3166}#)
+                     (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3164}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 15795}#)
-                       (let ((#{labels\ 15815}#
-                               (#{gen-labels\ 12934}# #{ids\ 15801}#))
-                             (#{new-vars\ 15816}#
-                               (map #{gen-var\ 13029}# #{ids\ 15801}#)))
-                         (let ((#{nw\ 15819}#
-                                 (#{make-binding-wrap\ 12963}#
-                                   #{ids\ 15801}#
-                                   #{labels\ 15815}#
-                                   #{w\ 15797}#))
-                               (#{nr\ 15820}#
-                                 (#{extend-var-env\ 12906}#
-                                   #{labels\ 15815}#
-                                   #{new-vars\ 15816}#
-                                   #{r\ 15796}#)))
-                           (#{constructor\ 15800}#
-                             #{s\ 15798}#
-                             (map syntax->datum #{ids\ 15801}#)
-                             #{new-vars\ 15816}#
-                             (map (lambda (#{x\ 15821}#)
-                                    (#{chi\ 13001}#
-                                      #{x\ 15821}#
-                                      #{r\ 15796}#
-                                      #{w\ 15797}#
-                                      #{mod\ 15799}#))
-                                  #{vals\ 15802}#)
-                             (#{chi-body\ 13009}#
-                               #{exps\ 15803}#
-                               (#{source-wrap\ 12987}#
-                                 #{e\ 15795}#
-                                 #{nw\ 15819}#
-                                 #{s\ 15798}#
-                                 #{mod\ 15799}#)
-                               #{nr\ 15820}#
-                               #{nw\ 15819}#
-                               #{mod\ 15799}#))))))))
-          (lambda (#{e\ 15823}#
-                   #{r\ 15824}#
-                   #{w\ 15825}#
-                   #{s\ 15826}#
-                   #{mod\ 15827}#)
-            ((lambda (#{tmp\ 15833}#)
-               ((lambda (#{tmp\ 15834}#)
-                  (if (if #{tmp\ 15834}#
-                        (apply (lambda (#{_\ 15840}#
-                                        #{id\ 15841}#
-                                        #{val\ 15842}#
-                                        #{e1\ 15843}#
-                                        #{e2\ 15844}#)
-                                 (and-map #{id?\ 12916}# #{id\ 15841}#))
-                               #{tmp\ 15834}#)
+                         #{e\ 3158}#)
+                       (let ((#{labels\ 3178}#
+                               (#{gen-labels\ 325}# #{ids\ 3164}#))
+                             (#{new-vars\ 3179}#
+                               (map #{gen-var\ 420}# #{ids\ 3164}#)))
+                         (let ((#{nw\ 3182}#
+                                 (#{make-binding-wrap\ 354}#
+                                   #{ids\ 3164}#
+                                   #{labels\ 3178}#
+                                   #{w\ 3160}#))
+                               (#{nr\ 3183}#
+                                 (#{extend-var-env\ 297}#
+                                   #{labels\ 3178}#
+                                   #{new-vars\ 3179}#
+                                   #{r\ 3159}#)))
+                           (#{constructor\ 3163}#
+                             #{s\ 3161}#
+                             (map syntax->datum #{ids\ 3164}#)
+                             #{new-vars\ 3179}#
+                             (map (lambda (#{x\ 3184}#)
+                                    (#{chi\ 392}#
+                                      #{x\ 3184}#
+                                      #{r\ 3159}#
+                                      #{w\ 3160}#
+                                      #{mod\ 3162}#))
+                                  #{vals\ 3165}#)
+                             (#{chi-body\ 400}#
+                               #{exps\ 3166}#
+                               (#{source-wrap\ 378}#
+                                 #{e\ 3158}#
+                                 #{nw\ 3182}#
+                                 #{s\ 3161}#
+                                 #{mod\ 3162}#)
+                               #{nr\ 3183}#
+                               #{nw\ 3182}#
+                               #{mod\ 3162}#))))))))
+          (lambda (#{e\ 3186}#
+                   #{r\ 3187}#
+                   #{w\ 3188}#
+                   #{s\ 3189}#
+                   #{mod\ 3190}#)
+            ((lambda (#{tmp\ 3196}#)
+               ((lambda (#{tmp\ 3197}#)
+                  (if (if #{tmp\ 3197}#
+                        (apply (lambda (#{_\ 3203}#
+                                        #{id\ 3204}#
+                                        #{val\ 3205}#
+                                        #{e1\ 3206}#
+                                        #{e2\ 3207}#)
+                                 (and-map #{id?\ 307}# #{id\ 3204}#))
+                               #{tmp\ 3197}#)
                         #f)
-                    (apply (lambda (#{_\ 15851}#
-                                    #{id\ 15852}#
-                                    #{val\ 15853}#
-                                    #{e1\ 15854}#
-                                    #{e2\ 15855}#)
-                             (#{chi-let\ 15794}#
-                               #{e\ 15823}#
-                               #{r\ 15824}#
-                               #{w\ 15825}#
-                               #{s\ 15826}#
-                               #{mod\ 15827}#
-                               #{build-let\ 12870}#
-                               #{id\ 15852}#
-                               #{val\ 15853}#
-                               (cons #{e1\ 15854}# #{e2\ 15855}#)))
-                           #{tmp\ 15834}#)
-                    ((lambda (#{tmp\ 15859}#)
-                       (if (if #{tmp\ 15859}#
-                             (apply (lambda (#{_\ 15866}#
-                                             #{f\ 15867}#
-                                             #{id\ 15868}#
-                                             #{val\ 15869}#
-                                             #{e1\ 15870}#
-                                             #{e2\ 15871}#)
-                                      (if (#{id?\ 12916}# #{f\ 15867}#)
-                                        (and-map #{id?\ 12916}# #{id\ 15868}#)
+                    (apply (lambda (#{_\ 3214}#
+                                    #{id\ 3215}#
+                                    #{val\ 3216}#
+                                    #{e1\ 3217}#
+                                    #{e2\ 3218}#)
+                             (#{chi-let\ 3157}#
+                               #{e\ 3186}#
+                               #{r\ 3187}#
+                               #{w\ 3188}#
+                               #{s\ 3189}#
+                               #{mod\ 3190}#
+                               #{build-let\ 261}#
+                               #{id\ 3215}#
+                               #{val\ 3216}#
+                               (cons #{e1\ 3217}# #{e2\ 3218}#)))
+                           #{tmp\ 3197}#)
+                    ((lambda (#{tmp\ 3222}#)
+                       (if (if #{tmp\ 3222}#
+                             (apply (lambda (#{_\ 3229}#
+                                             #{f\ 3230}#
+                                             #{id\ 3231}#
+                                             #{val\ 3232}#
+                                             #{e1\ 3233}#
+                                             #{e2\ 3234}#)
+                                      (if (#{id?\ 307}# #{f\ 3230}#)
+                                        (and-map #{id?\ 307}# #{id\ 3231}#)
                                         #f))
-                                    #{tmp\ 15859}#)
+                                    #{tmp\ 3222}#)
                              #f)
-                         (apply (lambda (#{_\ 15881}#
-                                         #{f\ 15882}#
-                                         #{id\ 15883}#
-                                         #{val\ 15884}#
-                                         #{e1\ 15885}#
-                                         #{e2\ 15886}#)
-                                  (#{chi-let\ 15794}#
-                                    #{e\ 15823}#
-                                    #{r\ 15824}#
-                                    #{w\ 15825}#
-                                    #{s\ 15826}#
-                                    #{mod\ 15827}#
-                                    #{build-named-let\ 12872}#
-                                    (cons #{f\ 15882}# #{id\ 15883}#)
-                                    #{val\ 15884}#
-                                    (cons #{e1\ 15885}# #{e2\ 15886}#)))
-                                #{tmp\ 15859}#)
-                         ((lambda (#{_\ 15891}#)
+                         (apply (lambda (#{_\ 3244}#
+                                         #{f\ 3245}#
+                                         #{id\ 3246}#
+                                         #{val\ 3247}#
+                                         #{e1\ 3248}#
+                                         #{e2\ 3249}#)
+                                  (#{chi-let\ 3157}#
+                                    #{e\ 3186}#
+                                    #{r\ 3187}#
+                                    #{w\ 3188}#
+                                    #{s\ 3189}#
+                                    #{mod\ 3190}#
+                                    #{build-named-let\ 263}#
+                                    (cons #{f\ 3245}# #{id\ 3246}#)
+                                    #{val\ 3247}#
+                                    (cons #{e1\ 3248}# #{e2\ 3249}#)))
+                                #{tmp\ 3222}#)
+                         ((lambda (#{_\ 3254}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 12987}#
-                                #{e\ 15823}#
-                                #{w\ 15825}#
-                                #{s\ 15826}#
-                                #{mod\ 15827}#)))
-                          #{tmp\ 15833}#)))
+                              (#{source-wrap\ 378}#
+                                #{e\ 3186}#
+                                #{w\ 3188}#
+                                #{s\ 3189}#
+                                #{mod\ 3190}#)))
+                          #{tmp\ 3196}#)))
                      ($sc-dispatch
-                       #{tmp\ 15833}#
+                       #{tmp\ 3196}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 15833}#
+                  #{tmp\ 3196}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 15823}#))))
-      (#{global-extend\ 12912}#
+             #{e\ 3186}#))))
+      (#{global-extend\ 303}#
         'core
         'letrec
-        (lambda (#{e\ 15892}#
-                 #{r\ 15893}#
-                 #{w\ 15894}#
-                 #{s\ 15895}#
-                 #{mod\ 15896}#)
-          ((lambda (#{tmp\ 15902}#)
-             ((lambda (#{tmp\ 15903}#)
-                (if (if #{tmp\ 15903}#
-                      (apply (lambda (#{_\ 15909}#
-                                      #{id\ 15910}#
-                                      #{val\ 15911}#
-                                      #{e1\ 15912}#
-                                      #{e2\ 15913}#)
-                               (and-map #{id?\ 12916}# #{id\ 15910}#))
-                             #{tmp\ 15903}#)
+        (lambda (#{e\ 3255}#
+                 #{r\ 3256}#
+                 #{w\ 3257}#
+                 #{s\ 3258}#
+                 #{mod\ 3259}#)
+          ((lambda (#{tmp\ 3265}#)
+             ((lambda (#{tmp\ 3266}#)
+                (if (if #{tmp\ 3266}#
+                      (apply (lambda (#{_\ 3272}#
+                                      #{id\ 3273}#
+                                      #{val\ 3274}#
+                                      #{e1\ 3275}#
+                                      #{e2\ 3276}#)
+                               (and-map #{id?\ 307}# #{id\ 3273}#))
+                             #{tmp\ 3266}#)
                       #f)
-                  (apply (lambda (#{_\ 15920}#
-                                  #{id\ 15921}#
-                                  #{val\ 15922}#
-                                  #{e1\ 15923}#
-                                  #{e2\ 15924}#)
-                           (let ((#{ids\ 15926}# #{id\ 15921}#))
-                             (if (not (#{valid-bound-ids?\ 12979}#
-                                        #{ids\ 15926}#))
+                  (apply (lambda (#{_\ 3283}#
+                                  #{id\ 3284}#
+                                  #{val\ 3285}#
+                                  #{e1\ 3286}#
+                                  #{e2\ 3287}#)
+                           (let ((#{ids\ 3289}# #{id\ 3284}#))
+                             (if (not (#{valid-bound-ids?\ 370}#
+                                        #{ids\ 3289}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 15892}#)
-                               (let ((#{labels\ 15930}#
-                                       (#{gen-labels\ 12934}# #{ids\ 15926}#))
-                                     (#{new-vars\ 15931}#
-                                       (map #{gen-var\ 13029}#
-                                            #{ids\ 15926}#)))
-                                 (let ((#{w\ 15934}#
-                                         (#{make-binding-wrap\ 12963}#
-                                           #{ids\ 15926}#
-                                           #{labels\ 15930}#
-                                           #{w\ 15894}#))
-                                       (#{r\ 15935}#
-                                         (#{extend-var-env\ 12906}#
-                                           #{labels\ 15930}#
-                                           #{new-vars\ 15931}#
-                                           #{r\ 15893}#)))
-                                   (#{build-letrec\ 12874}#
-                                     #{s\ 15895}#
-                                     (map syntax->datum #{ids\ 15926}#)
-                                     #{new-vars\ 15931}#
-                                     (map (lambda (#{x\ 15936}#)
-                                            (#{chi\ 13001}#
-                                              #{x\ 15936}#
-                                              #{r\ 15935}#
-                                              #{w\ 15934}#
-                                              #{mod\ 15896}#))
-                                          #{val\ 15922}#)
-                                     (#{chi-body\ 13009}#
-                                       (cons #{e1\ 15923}# #{e2\ 15924}#)
-                                       (#{source-wrap\ 12987}#
-                                         #{e\ 15892}#
-                                         #{w\ 15934}#
-                                         #{s\ 15895}#
-                                         #{mod\ 15896}#)
-                                       #{r\ 15935}#
-                                       #{w\ 15934}#
-                                       #{mod\ 15896}#)))))))
-                         #{tmp\ 15903}#)
-                  ((lambda (#{_\ 15941}#)
+                                 #{e\ 3255}#)
+                               (let ((#{labels\ 3293}#
+                                       (#{gen-labels\ 325}# #{ids\ 3289}#))
+                                     (#{new-vars\ 3294}#
+                                       (map #{gen-var\ 420}# #{ids\ 3289}#)))
+                                 (let ((#{w\ 3297}#
+                                         (#{make-binding-wrap\ 354}#
+                                           #{ids\ 3289}#
+                                           #{labels\ 3293}#
+                                           #{w\ 3257}#))
+                                       (#{r\ 3298}#
+                                         (#{extend-var-env\ 297}#
+                                           #{labels\ 3293}#
+                                           #{new-vars\ 3294}#
+                                           #{r\ 3256}#)))
+                                   (#{build-letrec\ 265}#
+                                     #{s\ 3258}#
+                                     (map syntax->datum #{ids\ 3289}#)
+                                     #{new-vars\ 3294}#
+                                     (map (lambda (#{x\ 3299}#)
+                                            (#{chi\ 392}#
+                                              #{x\ 3299}#
+                                              #{r\ 3298}#
+                                              #{w\ 3297}#
+                                              #{mod\ 3259}#))
+                                          #{val\ 3285}#)
+                                     (#{chi-body\ 400}#
+                                       (cons #{e1\ 3286}# #{e2\ 3287}#)
+                                       (#{source-wrap\ 378}#
+                                         #{e\ 3255}#
+                                         #{w\ 3297}#
+                                         #{s\ 3258}#
+                                         #{mod\ 3259}#)
+                                       #{r\ 3298}#
+                                       #{w\ 3297}#
+                                       #{mod\ 3259}#)))))))
+                         #{tmp\ 3266}#)
+                  ((lambda (#{_\ 3304}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 12987}#
-                         #{e\ 15892}#
-                         #{w\ 15894}#
-                         #{s\ 15895}#
-                         #{mod\ 15896}#)))
-                   #{tmp\ 15902}#)))
+                       (#{source-wrap\ 378}#
+                         #{e\ 3255}#
+                         #{w\ 3257}#
+                         #{s\ 3258}#
+                         #{mod\ 3259}#)))
+                   #{tmp\ 3265}#)))
               ($sc-dispatch
-                #{tmp\ 15902}#
+                #{tmp\ 3265}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 15892}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3255}#)))
+      (#{global-extend\ 303}#
         'core
         'set!
-        (lambda (#{e\ 15942}#
-                 #{r\ 15943}#
-                 #{w\ 15944}#
-                 #{s\ 15945}#
-                 #{mod\ 15946}#)
-          ((lambda (#{tmp\ 15952}#)
-             ((lambda (#{tmp\ 15953}#)
-                (if (if #{tmp\ 15953}#
-                      (apply (lambda (#{_\ 15957}#
-                                      #{id\ 15958}#
-                                      #{val\ 15959}#)
-                               (#{id?\ 12916}# #{id\ 15958}#))
-                             #{tmp\ 15953}#)
+        (lambda (#{e\ 3305}#
+                 #{r\ 3306}#
+                 #{w\ 3307}#
+                 #{s\ 3308}#
+                 #{mod\ 3309}#)
+          ((lambda (#{tmp\ 3315}#)
+             ((lambda (#{tmp\ 3316}#)
+                (if (if #{tmp\ 3316}#
+                      (apply (lambda (#{_\ 3320}# #{id\ 3321}# #{val\ 3322}#)
+                               (#{id?\ 307}# #{id\ 3321}#))
+                             #{tmp\ 3316}#)
                       #f)
-                  (apply (lambda (#{_\ 15963}# #{id\ 15964}# #{val\ 15965}#)
-                           (let ((#{val\ 15968}#
-                                   (#{chi\ 13001}#
-                                     #{val\ 15965}#
-                                     #{r\ 15943}#
-                                     #{w\ 15944}#
-                                     #{mod\ 15946}#))
-                                 (#{n\ 15969}#
-                                   (#{id-var-name\ 12973}#
-                                     #{id\ 15964}#
-                                     #{w\ 15944}#)))
-                             (let ((#{b\ 15971}#
-                                     (#{lookup\ 12910}#
-                                       #{n\ 15969}#
-                                       #{r\ 15943}#
-                                       #{mod\ 15946}#)))
-                               (let ((#{atom-key\ 15974}#
-                                       (#{binding-type\ 12899}# #{b\ 15971}#)))
-                                 (if (memv #{atom-key\ 15974}#
+                  (apply (lambda (#{_\ 3326}# #{id\ 3327}# #{val\ 3328}#)
+                           (let ((#{val\ 3331}#
+                                   (#{chi\ 392}#
+                                     #{val\ 3328}#
+                                     #{r\ 3306}#
+                                     #{w\ 3307}#
+                                     #{mod\ 3309}#))
+                                 (#{n\ 3332}#
+                                   (#{id-var-name\ 364}#
+                                     #{id\ 3327}#
+                                     #{w\ 3307}#)))
+                             (let ((#{b\ 3334}#
+                                     (#{lookup\ 301}#
+                                       #{n\ 3332}#
+                                       #{r\ 3306}#
+                                       #{mod\ 3309}#)))
+                               (let ((#{atom-key\ 3337}#
+                                       (#{binding-type\ 290}# #{b\ 3334}#)))
+                                 (if (memv #{atom-key\ 3337}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 12846}#
-                                     #{s\ 15945}#
-                                     (syntax->datum #{id\ 15964}#)
-                                     (#{binding-value\ 12901}# #{b\ 15971}#)
-                                     #{val\ 15968}#)
-                                   (if (memv #{atom-key\ 15974}#
+                                   (#{build-lexical-assignment\ 237}#
+                                     #{s\ 3308}#
+                                     (syntax->datum #{id\ 3327}#)
+                                     (#{binding-value\ 292}# #{b\ 3334}#)
+                                     #{val\ 3331}#)
+                                   (if (memv #{atom-key\ 3337}#
                                              '(global))
-                                     (#{build-global-assignment\ 12852}#
-                                       #{s\ 15945}#
-                                       #{n\ 15969}#
-                                       #{val\ 15968}#
-                                       #{mod\ 15946}#)
-                                     (if (memv #{atom-key\ 15974}#
+                                     (#{build-global-assignment\ 243}#
+                                       #{s\ 3308}#
+                                       #{n\ 3332}#
+                                       #{val\ 3331}#
+                                       #{mod\ 3309}#)
+                                     (if (memv #{atom-key\ 3337}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 12985}#
-                                           #{id\ 15964}#
-                                           #{w\ 15944}#
-                                           #{mod\ 15946}#))
+                                         (#{wrap\ 376}#
+                                           #{id\ 3327}#
+                                           #{w\ 3307}#
+                                           #{mod\ 3309}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 12987}#
-                                           #{e\ 15942}#
-                                           #{w\ 15944}#
-                                           #{s\ 15945}#
-                                           #{mod\ 15946}#)))))))))
-                         #{tmp\ 15953}#)
-                  ((lambda (#{tmp\ 15979}#)
-                     (if #{tmp\ 15979}#
-                       (apply (lambda (#{_\ 15984}#
-                                       #{head\ 15985}#
-                                       #{tail\ 15986}#
-                                       #{val\ 15987}#)
+                                         (#{source-wrap\ 378}#
+                                           #{e\ 3305}#
+                                           #{w\ 3307}#
+                                           #{s\ 3308}#
+                                           #{mod\ 3309}#)))))))))
+                         #{tmp\ 3316}#)
+                  ((lambda (#{tmp\ 3342}#)
+                     (if #{tmp\ 3342}#
+                       (apply (lambda (#{_\ 3347}#
+                                       #{head\ 3348}#
+                                       #{tail\ 3349}#
+                                       #{val\ 3350}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 12997}#
-                                      #{head\ 15985}#
-                                      #{r\ 15943}#
+                                    (#{syntax-type\ 388}#
+                                      #{head\ 3348}#
+                                      #{r\ 3306}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 15946}#
+                                      #{mod\ 3309}#
                                       #t))
-                                  (lambda (#{type\ 15990}#
-                                           #{value\ 15991}#
-                                           #{ee\ 15992}#
-                                           #{ww\ 15993}#
-                                           #{ss\ 15994}#
-                                           #{modmod\ 15995}#)
-                                    (if (memv #{type\ 15990}#
+                                  (lambda (#{type\ 3353}#
+                                           #{value\ 3354}#
+                                           #{ee\ 3355}#
+                                           #{ww\ 3356}#
+                                           #{ss\ 3357}#
+                                           #{modmod\ 3358}#)
+                                    (if (memv #{type\ 3353}#
                                               '(module-ref))
-                                      (let ((#{val\ 16004}#
-                                              (#{chi\ 13001}#
-                                                #{val\ 15987}#
-                                                #{r\ 15943}#
-                                                #{w\ 15944}#
-                                                #{mod\ 15946}#)))
+                                      (let ((#{val\ 3367}#
+                                              (#{chi\ 392}#
+                                                #{val\ 3350}#
+                                                #{r\ 3306}#
+                                                #{w\ 3307}#
+                                                #{mod\ 3309}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 15991}#
-                                              (cons #{head\ 15985}#
-                                                    #{tail\ 15986}#)
-                                              #{r\ 15943}#
-                                              #{w\ 15944}#))
-                                          (lambda (#{e\ 16006}#
-                                                   #{r\ 16007}#
-                                                   #{w\ 16008}#
-                                                   #{s*\ 16009}#
-                                                   #{mod\ 16010}#)
-                                            ((lambda (#{tmp\ 16016}#)
-                                               ((lambda (#{tmp\ 16017}#)
-                                                  (if (if #{tmp\ 16017}#
-                                                        (apply (lambda (#{e\ 
16019}#)
-                                                                 (#{id?\ 
12916}#
-                                                                   #{e\ 
16019}#))
-                                                               #{tmp\ 16017}#)
+                                            (#{value\ 3354}#
+                                              (cons #{head\ 3348}#
+                                                    #{tail\ 3349}#)
+                                              #{r\ 3306}#
+                                              #{w\ 3307}#))
+                                          (lambda (#{e\ 3369}#
+                                                   #{r\ 3370}#
+                                                   #{w\ 3371}#
+                                                   #{s*\ 3372}#
+                                                   #{mod\ 3373}#)
+                                            ((lambda (#{tmp\ 3379}#)
+                                               ((lambda (#{tmp\ 3380}#)
+                                                  (if (if #{tmp\ 3380}#
+                                                        (apply (lambda (#{e\ 
3382}#)
+                                                                 (#{id?\ 307}#
+                                                                   #{e\ 
3382}#))
+                                                               #{tmp\ 3380}#)
                                                         #f)
-                                                    (apply (lambda (#{e\ 
16021}#)
-                                                             
(#{build-global-assignment\ 12852}#
-                                                               #{s\ 15945}#
+                                                    (apply (lambda (#{e\ 
3384}#)
+                                                             
(#{build-global-assignment\ 243}#
+                                                               #{s\ 3308}#
                                                                (syntax->datum
-                                                                 #{e\ 16021}#)
-                                                               #{val\ 16004}#
-                                                               #{mod\ 16010}#))
-                                                           #{tmp\ 16017}#)
+                                                                 #{e\ 3384}#)
+                                                               #{val\ 3367}#
+                                                               #{mod\ 3373}#))
+                                                           #{tmp\ 3380}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression 
failed to match any pattern"
-                                                      #{tmp\ 16016}#)))
-                                                (list #{tmp\ 16016}#)))
-                                             #{e\ 16006}#))))
-                                      (#{build-application\ 12838}#
-                                        #{s\ 15945}#
-                                        (#{chi\ 13001}#
+                                                      #{tmp\ 3379}#)))
+                                                (list #{tmp\ 3379}#)))
+                                             #{e\ 3369}#))))
+                                      (#{build-application\ 229}#
+                                        #{s\ 3308}#
+                                        (#{chi\ 392}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -10110,22 +9910,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i15996"
-                                                        "i15997"
-                                                        "i15998"
-                                                        "i15999"
-                                                        "i16000"
-                                                        "i16001"))
+                                                      #("i3359"
+                                                        "i3360"
+                                                        "i3361"
+                                                        "i3362"
+                                                        "i3363"
+                                                        "i3364"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i15980"
-                                                        "i15981"
-                                                        "i15982"
-                                                        "i15983"))
+                                                      #("i3343"
+                                                        "i3344"
+                                                        "i3345"
+                                                        "i3346"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -10134,11 +9934,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i15947"
-                                                        "i15948"
-                                                        "i15949"
-                                                        "i15950"
-                                                        "i15951"))
+                                                      #("i3310"
+                                                        "i3311"
+                                                        "i3312"
+                                                        "i3313"
+                                                        "i3314"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -10273,8 +10073,7 @@
                                                         make-lexical-ref
                                                         make-primitive-ref
                                                         make-const
-                                                        make-void
-                                                        *mode*)
+                                                        make-void)
                                                       ((top)
                                                        (top)
                                                        (top)
@@ -10408,203 +10207,197 @@
                                                        (top)
                                                        (top)
                                                        (top)
-                                                       (top)
                                                        (top))
-                                                      ("i13030"
-                                                       "i13028"
-                                                       "i13026"
-                                                       "i13024"
-                                                       "i13022"
-                                                       "i13020"
-                                                       "i13018"
-                                                       "i13016"
-                                                       "i13014"
-                                                       "i13012"
-                                                       "i13010"
-                                                       "i13008"
-                                                       "i13006"
-                                                       "i13004"
-                                                       "i13002"
-                                                       "i13000"
-                                                       "i12998"
-                                                       "i12996"
-                                                       "i12994"
-                                                       "i12992"
-                                                       "i12990"
-                                                       "i12988"
-                                                       "i12986"
-                                                       "i12984"
-                                                       "i12982"
-                                                       "i12980"
-                                                       "i12978"
-                                                       "i12976"
-                                                       "i12974"
-                                                       "i12972"
-                                                       "i12970"
-                                                       "i12968"
-                                                       "i12966"
-                                                       "i12964"
-                                                       "i12962"
-                                                       "i12960"
-                                                       "i12959"
-                                                       "i12958"
-                                                       "i12956"
-                                                       "i12955"
-                                                       "i12954"
-                                                       "i12953"
-                                                       "i12952"
-                                                       "i12950"
-                                                       "i12948"
-                                                       "i12946"
-                                                       "i12944"
-                                                       "i12942"
-                                                       "i12940"
-                                                       "i12938"
-                                                       "i12936"
-                                                       "i12933"
-                                                       "i12931"
-                                                       "i12930"
-                                                       "i12929"
-                                                       "i12928"
-                                                       "i12927"
-                                                       "i12926"
-                                                       "i12924"
-                                                       "i12922"
-                                                       "i12920"
-                                                       "i12918"
-                                                       "i12917"
-                                                       "i12915"
-                                                       "i12913"
-                                                       "i12911"
-                                                       "i12909"
-                                                       "i12907"
-                                                       "i12905"
-                                                       "i12903"
-                                                       "i12902"
-                                                       "i12900"
-                                                       "i12898"
-                                                       "i12897"
-                                                       "i12896"
-                                                       "i12894"
-                                                       "i12893"
-                                                       "i12891"
-                                                       "i12889"
-                                                       "i12887"
-                                                       "i12885"
-                                                       "i12883"
-                                                       "i12881"
-                                                       "i12879"
-                                                       "i12877"
-                                                       "i12875"
-                                                       "i12873"
-                                                       "i12871"
-                                                       "i12869"
-                                                       "i12867"
-                                                       "i12865"
-                                                       "i12863"
-                                                       "i12861"
-                                                       "i12859"
-                                                       "i12857"
-                                                       "i12855"
-                                                       "i12853"
-                                                       "i12851"
-                                                       "i12849"
-                                                       "i12847"
-                                                       "i12845"
-                                                       "i12843"
-                                                       "i12841"
-                                                       "i12839"
-                                                       "i12837"
-                                                       "i12835"
-                                                       "i12833"
-                                                       "i12831"
-                                                       "i12829"
-                                                       "i12828"
-                                                       "i12826"
-                                                       "i12824"
-                                                       "i12822"
-                                                       "i12820"
-                                                       "i12818"
-                                                       "i12816"
-                                                       "i12814"
-                                                       "i12812"
-                                                       "i12810"
-                                                       "i12808"
-                                                       "i12806"
-                                                       "i12804"
-                                                       "i12802"
-                                                       "i12800"
-                                                       "i12798"
-                                                       "i12796"
-                                                       "i12794"
-                                                       "i12792"
-                                                       "i12790"
-                                                       "i12788"
-                                                       "i12786"
-                                                       "i12784"
-                                                       "i12782"
-                                                       "i12780"
-                                                       "i12777"))
+                                                      ("i421"
+                                                       "i419"
+                                                       "i417"
+                                                       "i415"
+                                                       "i413"
+                                                       "i411"
+                                                       "i409"
+                                                       "i407"
+                                                       "i405"
+                                                       "i403"
+                                                       "i401"
+                                                       "i399"
+                                                       "i397"
+                                                       "i395"
+                                                       "i393"
+                                                       "i391"
+                                                       "i389"
+                                                       "i387"
+                                                       "i385"
+                                                       "i383"
+                                                       "i381"
+                                                       "i379"
+                                                       "i377"
+                                                       "i375"
+                                                       "i373"
+                                                       "i371"
+                                                       "i369"
+                                                       "i367"
+                                                       "i365"
+                                                       "i363"
+                                                       "i361"
+                                                       "i359"
+                                                       "i357"
+                                                       "i355"
+                                                       "i353"
+                                                       "i351"
+                                                       "i350"
+                                                       "i349"
+                                                       "i347"
+                                                       "i346"
+                                                       "i345"
+                                                       "i344"
+                                                       "i343"
+                                                       "i341"
+                                                       "i339"
+                                                       "i337"
+                                                       "i335"
+                                                       "i333"
+                                                       "i331"
+                                                       "i329"
+                                                       "i327"
+                                                       "i324"
+                                                       "i322"
+                                                       "i321"
+                                                       "i320"
+                                                       "i319"
+                                                       "i318"
+                                                       "i317"
+                                                       "i315"
+                                                       "i313"
+                                                       "i311"
+                                                       "i309"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i302"
+                                                       "i300"
+                                                       "i298"
+                                                       "i296"
+                                                       "i294"
+                                                       "i293"
+                                                       "i291"
+                                                       "i289"
+                                                       "i288"
+                                                       "i287"
+                                                       "i285"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i278"
+                                                       "i276"
+                                                       "i274"
+                                                       "i272"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i264"
+                                                       "i262"
+                                                       "i260"
+                                                       "i258"
+                                                       "i256"
+                                                       "i254"
+                                                       "i252"
+                                                       "i250"
+                                                       "i248"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i240"
+                                                       "i238"
+                                                       "i236"
+                                                       "i234"
+                                                       "i232"
+                                                       "i230"
+                                                       "i228"
+                                                       "i226"
+                                                       "i224"
+                                                       "i222"
+                                                       "i220"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i207"
+                                                       "i205"
+                                                       "i203"
+                                                       "i201"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i173"
+                                                       "i171"))
                                                     #(ribcage
                                                       (define-structure
                                                         
define-expansion-constructors
                                                         and-map*)
                                                       ((top) (top) (top))
-                                                      ("i12629"
-                                                       "i12628"
-                                                       "i12626")))
+                                                      ("i22" "i21" "i19")))
                                                    (hygiene guile))
-                                                #{head\ 15985}#)
-                                          #{r\ 15943}#
-                                          #{w\ 15944}#
-                                          #{mod\ 15946}#)
-                                        (map (lambda (#{e\ 16023}#)
-                                               (#{chi\ 13001}#
-                                                 #{e\ 16023}#
-                                                 #{r\ 15943}#
-                                                 #{w\ 15944}#
-                                                 #{mod\ 15946}#))
+                                                #{head\ 3348}#)
+                                          #{r\ 3306}#
+                                          #{w\ 3307}#
+                                          #{mod\ 3309}#)
+                                        (map (lambda (#{e\ 3386}#)
+                                               (#{chi\ 392}#
+                                                 #{e\ 3386}#
+                                                 #{r\ 3306}#
+                                                 #{w\ 3307}#
+                                                 #{mod\ 3309}#))
                                              (append
-                                               #{tail\ 15986}#
-                                               (list #{val\ 15987}#))))))))
-                              #{tmp\ 15979}#)
-                       ((lambda (#{_\ 16027}#)
+                                               #{tail\ 3349}#
+                                               (list #{val\ 3350}#))))))))
+                              #{tmp\ 3342}#)
+                       ((lambda (#{_\ 3390}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 12987}#
-                              #{e\ 15942}#
-                              #{w\ 15944}#
-                              #{s\ 15945}#
-                              #{mod\ 15946}#)))
-                        #{tmp\ 15952}#)))
+                            (#{source-wrap\ 378}#
+                              #{e\ 3305}#
+                              #{w\ 3307}#
+                              #{s\ 3308}#
+                              #{mod\ 3309}#)))
+                        #{tmp\ 3315}#)))
                    ($sc-dispatch
-                     #{tmp\ 15952}#
+                     #{tmp\ 3315}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 15952}#
+                #{tmp\ 3315}#
                 '(any any any))))
-           #{e\ 15942}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3305}#)))
+      (#{global-extend\ 303}#
         'module-ref
         '@
-        (lambda (#{e\ 16028}# #{r\ 16029}# #{w\ 16030}#)
-          ((lambda (#{tmp\ 16034}#)
-             ((lambda (#{tmp\ 16035}#)
-                (if (if #{tmp\ 16035}#
-                      (apply (lambda (#{_\ 16039}#
-                                      #{mod\ 16040}#
-                                      #{id\ 16041}#)
-                               (if (and-map #{id?\ 12916}# #{mod\ 16040}#)
-                                 (#{id?\ 12916}# #{id\ 16041}#)
+        (lambda (#{e\ 3391}# #{r\ 3392}# #{w\ 3393}#)
+          ((lambda (#{tmp\ 3397}#)
+             ((lambda (#{tmp\ 3398}#)
+                (if (if #{tmp\ 3398}#
+                      (apply (lambda (#{_\ 3402}# #{mod\ 3403}# #{id\ 3404}#)
+                               (if (and-map #{id?\ 307}# #{mod\ 3403}#)
+                                 (#{id?\ 307}# #{id\ 3404}#)
                                  #f))
-                             #{tmp\ 16035}#)
+                             #{tmp\ 3398}#)
                       #f)
-                  (apply (lambda (#{_\ 16048}# #{mod\ 16049}# #{id\ 16050}#)
+                  (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#)
                            (values
-                             (syntax->datum #{id\ 16050}#)
-                             #{r\ 16029}#
-                             #{w\ 16030}#
+                             (syntax->datum #{id\ 3413}#)
+                             #{r\ 3392}#
+                             #{w\ 3393}#
                              #f
                              (syntax->datum
                                (cons '#(syntax-object
@@ -10613,12 +10406,12 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i16045" "i16046" "i16047"))
+                                           #("i3408" "i3409" "i3410"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(e r w)
                                            #((top) (top) (top))
-                                           #("i16031" "i16032" "i16033"))
+                                           #("i3394" "i3395" "i3396"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10753,8 +10546,7 @@
                                              make-lexical-ref
                                              make-primitive-ref
                                              make-const
-                                             make-void
-                                             *mode*)
+                                             make-void)
                                            ((top)
                                             (top)
                                             (top)
@@ -10888,216 +10680,213 @@
                                             (top)
                                             (top)
                                             (top)
-                                            (top)
                                             (top))
-                                           ("i13030"
-                                            "i13028"
-                                            "i13026"
-                                            "i13024"
-                                            "i13022"
-                                            "i13020"
-                                            "i13018"
-                                            "i13016"
-                                            "i13014"
-                                            "i13012"
-                                            "i13010"
-                                            "i13008"
-                                            "i13006"
-                                            "i13004"
-                                            "i13002"
-                                            "i13000"
-                                            "i12998"
-                                            "i12996"
-                                            "i12994"
-                                            "i12992"
-                                            "i12990"
-                                            "i12988"
-                                            "i12986"
-                                            "i12984"
-                                            "i12982"
-                                            "i12980"
-                                            "i12978"
-                                            "i12976"
-                                            "i12974"
-                                            "i12972"
-                                            "i12970"
-                                            "i12968"
-                                            "i12966"
-                                            "i12964"
-                                            "i12962"
-                                            "i12960"
-                                            "i12959"
-                                            "i12958"
-                                            "i12956"
-                                            "i12955"
-                                            "i12954"
-                                            "i12953"
-                                            "i12952"
-                                            "i12950"
-                                            "i12948"
-                                            "i12946"
-                                            "i12944"
-                                            "i12942"
-                                            "i12940"
-                                            "i12938"
-                                            "i12936"
-                                            "i12933"
-                                            "i12931"
-                                            "i12930"
-                                            "i12929"
-                                            "i12928"
-                                            "i12927"
-                                            "i12926"
-                                            "i12924"
-                                            "i12922"
-                                            "i12920"
-                                            "i12918"
-                                            "i12917"
-                                            "i12915"
-                                            "i12913"
-                                            "i12911"
-                                            "i12909"
-                                            "i12907"
-                                            "i12905"
-                                            "i12903"
-                                            "i12902"
-                                            "i12900"
-                                            "i12898"
-                                            "i12897"
-                                            "i12896"
-                                            "i12894"
-                                            "i12893"
-                                            "i12891"
-                                            "i12889"
-                                            "i12887"
-                                            "i12885"
-                                            "i12883"
-                                            "i12881"
-                                            "i12879"
-                                            "i12877"
-                                            "i12875"
-                                            "i12873"
-                                            "i12871"
-                                            "i12869"
-                                            "i12867"
-                                            "i12865"
-                                            "i12863"
-                                            "i12861"
-                                            "i12859"
-                                            "i12857"
-                                            "i12855"
-                                            "i12853"
-                                            "i12851"
-                                            "i12849"
-                                            "i12847"
-                                            "i12845"
-                                            "i12843"
-                                            "i12841"
-                                            "i12839"
-                                            "i12837"
-                                            "i12835"
-                                            "i12833"
-                                            "i12831"
-                                            "i12829"
-                                            "i12828"
-                                            "i12826"
-                                            "i12824"
-                                            "i12822"
-                                            "i12820"
-                                            "i12818"
-                                            "i12816"
-                                            "i12814"
-                                            "i12812"
-                                            "i12810"
-                                            "i12808"
-                                            "i12806"
-                                            "i12804"
-                                            "i12802"
-                                            "i12800"
-                                            "i12798"
-                                            "i12796"
-                                            "i12794"
-                                            "i12792"
-                                            "i12790"
-                                            "i12788"
-                                            "i12786"
-                                            "i12784"
-                                            "i12782"
-                                            "i12780"
-                                            "i12777"))
+                                           ("i421"
+                                            "i419"
+                                            "i417"
+                                            "i415"
+                                            "i413"
+                                            "i411"
+                                            "i409"
+                                            "i407"
+                                            "i405"
+                                            "i403"
+                                            "i401"
+                                            "i399"
+                                            "i397"
+                                            "i395"
+                                            "i393"
+                                            "i391"
+                                            "i389"
+                                            "i387"
+                                            "i385"
+                                            "i383"
+                                            "i381"
+                                            "i379"
+                                            "i377"
+                                            "i375"
+                                            "i373"
+                                            "i371"
+                                            "i369"
+                                            "i367"
+                                            "i365"
+                                            "i363"
+                                            "i361"
+                                            "i359"
+                                            "i357"
+                                            "i355"
+                                            "i353"
+                                            "i351"
+                                            "i350"
+                                            "i349"
+                                            "i347"
+                                            "i346"
+                                            "i345"
+                                            "i344"
+                                            "i343"
+                                            "i341"
+                                            "i339"
+                                            "i337"
+                                            "i335"
+                                            "i333"
+                                            "i331"
+                                            "i329"
+                                            "i327"
+                                            "i324"
+                                            "i322"
+                                            "i321"
+                                            "i320"
+                                            "i319"
+                                            "i318"
+                                            "i317"
+                                            "i315"
+                                            "i313"
+                                            "i311"
+                                            "i309"
+                                            "i308"
+                                            "i306"
+                                            "i304"
+                                            "i302"
+                                            "i300"
+                                            "i298"
+                                            "i296"
+                                            "i294"
+                                            "i293"
+                                            "i291"
+                                            "i289"
+                                            "i288"
+                                            "i287"
+                                            "i285"
+                                            "i284"
+                                            "i282"
+                                            "i280"
+                                            "i278"
+                                            "i276"
+                                            "i274"
+                                            "i272"
+                                            "i270"
+                                            "i268"
+                                            "i266"
+                                            "i264"
+                                            "i262"
+                                            "i260"
+                                            "i258"
+                                            "i256"
+                                            "i254"
+                                            "i252"
+                                            "i250"
+                                            "i248"
+                                            "i246"
+                                            "i244"
+                                            "i242"
+                                            "i240"
+                                            "i238"
+                                            "i236"
+                                            "i234"
+                                            "i232"
+                                            "i230"
+                                            "i228"
+                                            "i226"
+                                            "i224"
+                                            "i222"
+                                            "i220"
+                                            "i219"
+                                            "i217"
+                                            "i215"
+                                            "i213"
+                                            "i211"
+                                            "i209"
+                                            "i207"
+                                            "i205"
+                                            "i203"
+                                            "i201"
+                                            "i199"
+                                            "i197"
+                                            "i195"
+                                            "i193"
+                                            "i191"
+                                            "i189"
+                                            "i187"
+                                            "i185"
+                                            "i183"
+                                            "i181"
+                                            "i179"
+                                            "i177"
+                                            "i175"
+                                            "i173"
+                                            "i171"))
                                          #(ribcage
                                            (define-structure
                                              define-expansion-constructors
                                              and-map*)
                                            ((top) (top) (top))
-                                           ("i12629" "i12628" "i12626")))
+                                           ("i22" "i21" "i19")))
                                         (hygiene guile))
-                                     #{mod\ 16049}#))))
-                         #{tmp\ 16035}#)
+                                     #{mod\ 3412}#))))
+                         #{tmp\ 3398}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 16034}#)))
+                    #{tmp\ 3397}#)))
               ($sc-dispatch
-                #{tmp\ 16034}#
+                #{tmp\ 3397}#
                 '(any each-any any))))
-           #{e\ 16028}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3391}#)))
+      (#{global-extend\ 303}#
         'module-ref
         '@@
-        (lambda (#{e\ 16052}# #{r\ 16053}# #{w\ 16054}#)
-          (letrec ((#{remodulate\ 16059}#
-                     (lambda (#{x\ 16060}# #{mod\ 16061}#)
-                       (if (pair? #{x\ 16060}#)
-                         (cons (#{remodulate\ 16059}#
-                                 (car #{x\ 16060}#)
-                                 #{mod\ 16061}#)
-                               (#{remodulate\ 16059}#
-                                 (cdr #{x\ 16060}#)
-                                 #{mod\ 16061}#))
-                         (if (#{syntax-object?\ 12880}# #{x\ 16060}#)
-                           (#{make-syntax-object\ 12878}#
-                             (#{remodulate\ 16059}#
-                               (#{syntax-object-expression\ 12882}#
-                                 #{x\ 16060}#)
-                               #{mod\ 16061}#)
-                             (#{syntax-object-wrap\ 12884}# #{x\ 16060}#)
-                             #{mod\ 16061}#)
-                           (if (vector? #{x\ 16060}#)
-                             (let ((#{n\ 16072}# (vector-length #{x\ 16060}#)))
-                               (let ((#{v\ 16074}# (make-vector #{n\ 16072}#)))
-                                 (letrec ((#{loop\ 16077}#
-                                            (lambda (#{i\ 16078}#)
-                                              (if (#{fx=\ 12821}#
-                                                    #{i\ 16078}#
-                                                    #{n\ 16072}#)
-                                                (begin (if #f #f) #{v\ 16074}#)
+        (lambda (#{e\ 3415}# #{r\ 3416}# #{w\ 3417}#)
+          (letrec ((#{remodulate\ 3422}#
+                     (lambda (#{x\ 3423}# #{mod\ 3424}#)
+                       (if (pair? #{x\ 3423}#)
+                         (cons (#{remodulate\ 3422}#
+                                 (car #{x\ 3423}#)
+                                 #{mod\ 3424}#)
+                               (#{remodulate\ 3422}#
+                                 (cdr #{x\ 3423}#)
+                                 #{mod\ 3424}#))
+                         (if (#{syntax-object?\ 271}# #{x\ 3423}#)
+                           (#{make-syntax-object\ 269}#
+                             (#{remodulate\ 3422}#
+                               (#{syntax-object-expression\ 273}# #{x\ 3423}#)
+                               #{mod\ 3424}#)
+                             (#{syntax-object-wrap\ 275}# #{x\ 3423}#)
+                             #{mod\ 3424}#)
+                           (if (vector? #{x\ 3423}#)
+                             (let ((#{n\ 3435}# (vector-length #{x\ 3423}#)))
+                               (let ((#{v\ 3437}# (make-vector #{n\ 3435}#)))
+                                 (letrec ((#{loop\ 3440}#
+                                            (lambda (#{i\ 3441}#)
+                                              (if (#{fx=\ 212}#
+                                                    #{i\ 3441}#
+                                                    #{n\ 3435}#)
+                                                (begin (if #f #f) #{v\ 3437}#)
                                                 (begin
                                                   (vector-set!
-                                                    #{v\ 16074}#
-                                                    #{i\ 16078}#
-                                                    (#{remodulate\ 16059}#
+                                                    #{v\ 3437}#
+                                                    #{i\ 3441}#
+                                                    (#{remodulate\ 3422}#
                                                       (vector-ref
-                                                        #{x\ 16060}#
-                                                        #{i\ 16078}#)
-                                                      #{mod\ 16061}#))
-                                                  (#{loop\ 16077}#
-                                                    (#{fx+\ 12817}#
-                                                      #{i\ 16078}#
+                                                        #{x\ 3423}#
+                                                        #{i\ 3441}#)
+                                                      #{mod\ 3424}#))
+                                                  (#{loop\ 3440}#
+                                                    (#{fx+\ 208}#
+                                                      #{i\ 3441}#
                                                       1)))))))
-                                   (#{loop\ 16077}# 0))))
-                             #{x\ 16060}#))))))
-            ((lambda (#{tmp\ 16082}#)
-               ((lambda (#{tmp\ 16083}#)
-                  (if (if #{tmp\ 16083}#
-                        (apply (lambda (#{_\ 16087}#
-                                        #{mod\ 16088}#
-                                        #{exp\ 16089}#)
-                                 (and-map #{id?\ 12916}# #{mod\ 16088}#))
-                               #{tmp\ 16083}#)
+                                   (#{loop\ 3440}# 0))))
+                             #{x\ 3423}#))))))
+            ((lambda (#{tmp\ 3445}#)
+               ((lambda (#{tmp\ 3446}#)
+                  (if (if #{tmp\ 3446}#
+                        (apply (lambda (#{_\ 3450}#
+                                        #{mod\ 3451}#
+                                        #{exp\ 3452}#)
+                                 (and-map #{id?\ 307}# #{mod\ 3451}#))
+                               #{tmp\ 3446}#)
                         #f)
-                    (apply (lambda (#{_\ 16094}# #{mod\ 16095}# #{exp\ 16096}#)
-                             (let ((#{mod\ 16098}#
+                    (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#)
+                             (let ((#{mod\ 3461}#
                                      (syntax->datum
                                        (cons '#(syntax-object
                                                 private
@@ -11105,19 +10894,15 @@
                                                  #(ribcage
                                                    #(_ mod exp)
                                                    #((top) (top) (top))
-                                                   #("i16091"
-                                                     "i16092"
-                                                     "i16093"))
+                                                   #("i3454" "i3455" "i3456"))
                                                  #(ribcage
                                                    (remodulate)
                                                    ((top))
-                                                   ("i16058"))
+                                                   ("i3421"))
                                                  #(ribcage
                                                    #(e r w)
                                                    #((top) (top) (top))
-                                                   #("i16055"
-                                                     "i16056"
-                                                     "i16057"))
+                                                   #("i3418" "i3419" "i3420"))
                                                  #(ribcage
                                                    (lambda-var-list
                                                      gen-var
@@ -11252,8 +11037,7 @@
                                                      make-lexical-ref
                                                      make-primitive-ref
                                                      make-const
-                                                     make-void
-                                                     *mode*)
+                                                     make-void)
                                                    ((top)
                                                     (top)
                                                     (top)
@@ -11387,336 +11171,331 @@
                                                     (top)
                                                     (top)
                                                     (top)
-                                                    (top)
                                                     (top))
-                                                   ("i13030"
-                                                    "i13028"
-                                                    "i13026"
-                                                    "i13024"
-                                                    "i13022"
-                                                    "i13020"
-                                                    "i13018"
-                                                    "i13016"
-                                                    "i13014"
-                                                    "i13012"
-                                                    "i13010"
-                                                    "i13008"
-                                                    "i13006"
-                                                    "i13004"
-                                                    "i13002"
-                                                    "i13000"
-                                                    "i12998"
-                                                    "i12996"
-                                                    "i12994"
-                                                    "i12992"
-                                                    "i12990"
-                                                    "i12988"
-                                                    "i12986"
-                                                    "i12984"
-                                                    "i12982"
-                                                    "i12980"
-                                                    "i12978"
-                                                    "i12976"
-                                                    "i12974"
-                                                    "i12972"
-                                                    "i12970"
-                                                    "i12968"
-                                                    "i12966"
-                                                    "i12964"
-                                                    "i12962"
-                                                    "i12960"
-                                                    "i12959"
-                                                    "i12958"
-                                                    "i12956"
-                                                    "i12955"
-                                                    "i12954"
-                                                    "i12953"
-                                                    "i12952"
-                                                    "i12950"
-                                                    "i12948"
-                                                    "i12946"
-                                                    "i12944"
-                                                    "i12942"
-                                                    "i12940"
-                                                    "i12938"
-                                                    "i12936"
-                                                    "i12933"
-                                                    "i12931"
-                                                    "i12930"
-                                                    "i12929"
-                                                    "i12928"
-                                                    "i12927"
-                                                    "i12926"
-                                                    "i12924"
-                                                    "i12922"
-                                                    "i12920"
-                                                    "i12918"
-                                                    "i12917"
-                                                    "i12915"
-                                                    "i12913"
-                                                    "i12911"
-                                                    "i12909"
-                                                    "i12907"
-                                                    "i12905"
-                                                    "i12903"
-                                                    "i12902"
-                                                    "i12900"
-                                                    "i12898"
-                                                    "i12897"
-                                                    "i12896"
-                                                    "i12894"
-                                                    "i12893"
-                                                    "i12891"
-                                                    "i12889"
-                                                    "i12887"
-                                                    "i12885"
-                                                    "i12883"
-                                                    "i12881"
-                                                    "i12879"
-                                                    "i12877"
-                                                    "i12875"
-                                                    "i12873"
-                                                    "i12871"
-                                                    "i12869"
-                                                    "i12867"
-                                                    "i12865"
-                                                    "i12863"
-                                                    "i12861"
-                                                    "i12859"
-                                                    "i12857"
-                                                    "i12855"
-                                                    "i12853"
-                                                    "i12851"
-                                                    "i12849"
-                                                    "i12847"
-                                                    "i12845"
-                                                    "i12843"
-                                                    "i12841"
-                                                    "i12839"
-                                                    "i12837"
-                                                    "i12835"
-                                                    "i12833"
-                                                    "i12831"
-                                                    "i12829"
-                                                    "i12828"
-                                                    "i12826"
-                                                    "i12824"
-                                                    "i12822"
-                                                    "i12820"
-                                                    "i12818"
-                                                    "i12816"
-                                                    "i12814"
-                                                    "i12812"
-                                                    "i12810"
-                                                    "i12808"
-                                                    "i12806"
-                                                    "i12804"
-                                                    "i12802"
-                                                    "i12800"
-                                                    "i12798"
-                                                    "i12796"
-                                                    "i12794"
-                                                    "i12792"
-                                                    "i12790"
-                                                    "i12788"
-                                                    "i12786"
-                                                    "i12784"
-                                                    "i12782"
-                                                    "i12780"
-                                                    "i12777"))
+                                                   ("i421"
+                                                    "i419"
+                                                    "i417"
+                                                    "i415"
+                                                    "i413"
+                                                    "i411"
+                                                    "i409"
+                                                    "i407"
+                                                    "i405"
+                                                    "i403"
+                                                    "i401"
+                                                    "i399"
+                                                    "i397"
+                                                    "i395"
+                                                    "i393"
+                                                    "i391"
+                                                    "i389"
+                                                    "i387"
+                                                    "i385"
+                                                    "i383"
+                                                    "i381"
+                                                    "i379"
+                                                    "i377"
+                                                    "i375"
+                                                    "i373"
+                                                    "i371"
+                                                    "i369"
+                                                    "i367"
+                                                    "i365"
+                                                    "i363"
+                                                    "i361"
+                                                    "i359"
+                                                    "i357"
+                                                    "i355"
+                                                    "i353"
+                                                    "i351"
+                                                    "i350"
+                                                    "i349"
+                                                    "i347"
+                                                    "i346"
+                                                    "i345"
+                                                    "i344"
+                                                    "i343"
+                                                    "i341"
+                                                    "i339"
+                                                    "i337"
+                                                    "i335"
+                                                    "i333"
+                                                    "i331"
+                                                    "i329"
+                                                    "i327"
+                                                    "i324"
+                                                    "i322"
+                                                    "i321"
+                                                    "i320"
+                                                    "i319"
+                                                    "i318"
+                                                    "i317"
+                                                    "i315"
+                                                    "i313"
+                                                    "i311"
+                                                    "i309"
+                                                    "i308"
+                                                    "i306"
+                                                    "i304"
+                                                    "i302"
+                                                    "i300"
+                                                    "i298"
+                                                    "i296"
+                                                    "i294"
+                                                    "i293"
+                                                    "i291"
+                                                    "i289"
+                                                    "i288"
+                                                    "i287"
+                                                    "i285"
+                                                    "i284"
+                                                    "i282"
+                                                    "i280"
+                                                    "i278"
+                                                    "i276"
+                                                    "i274"
+                                                    "i272"
+                                                    "i270"
+                                                    "i268"
+                                                    "i266"
+                                                    "i264"
+                                                    "i262"
+                                                    "i260"
+                                                    "i258"
+                                                    "i256"
+                                                    "i254"
+                                                    "i252"
+                                                    "i250"
+                                                    "i248"
+                                                    "i246"
+                                                    "i244"
+                                                    "i242"
+                                                    "i240"
+                                                    "i238"
+                                                    "i236"
+                                                    "i234"
+                                                    "i232"
+                                                    "i230"
+                                                    "i228"
+                                                    "i226"
+                                                    "i224"
+                                                    "i222"
+                                                    "i220"
+                                                    "i219"
+                                                    "i217"
+                                                    "i215"
+                                                    "i213"
+                                                    "i211"
+                                                    "i209"
+                                                    "i207"
+                                                    "i205"
+                                                    "i203"
+                                                    "i201"
+                                                    "i199"
+                                                    "i197"
+                                                    "i195"
+                                                    "i193"
+                                                    "i191"
+                                                    "i189"
+                                                    "i187"
+                                                    "i185"
+                                                    "i183"
+                                                    "i181"
+                                                    "i179"
+                                                    "i177"
+                                                    "i175"
+                                                    "i173"
+                                                    "i171"))
                                                  #(ribcage
                                                    (define-structure
                                                      
define-expansion-constructors
                                                      and-map*)
                                                    ((top) (top) (top))
-                                                   ("i12629"
-                                                    "i12628"
-                                                    "i12626")))
+                                                   ("i22" "i21" "i19")))
                                                 (hygiene guile))
-                                             #{mod\ 16095}#))))
+                                             #{mod\ 3458}#))))
                                (values
-                                 (#{remodulate\ 16059}#
-                                   #{exp\ 16096}#
-                                   #{mod\ 16098}#)
-                                 #{r\ 16053}#
-                                 #{w\ 16054}#
-                                 (#{source-annotation\ 12895}# #{exp\ 16096}#)
-                                 #{mod\ 16098}#)))
-                           #{tmp\ 16083}#)
+                                 (#{remodulate\ 3422}#
+                                   #{exp\ 3459}#
+                                   #{mod\ 3461}#)
+                                 #{r\ 3416}#
+                                 #{w\ 3417}#
+                                 (#{source-annotation\ 286}# #{exp\ 3459}#)
+                                 #{mod\ 3461}#)))
+                           #{tmp\ 3446}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 16082}#)))
+                      #{tmp\ 3445}#)))
                 ($sc-dispatch
-                  #{tmp\ 16082}#
+                  #{tmp\ 3445}#
                   '(any each-any any))))
-             #{e\ 16052}#))))
-      (#{global-extend\ 12912}#
+             #{e\ 3415}#))))
+      (#{global-extend\ 303}#
         'core
         'if
-        (lambda (#{e\ 16100}#
-                 #{r\ 16101}#
-                 #{w\ 16102}#
-                 #{s\ 16103}#
-                 #{mod\ 16104}#)
-          ((lambda (#{tmp\ 16110}#)
-             ((lambda (#{tmp\ 16111}#)
-                (if #{tmp\ 16111}#
-                  (apply (lambda (#{_\ 16115}# #{test\ 16116}# #{then\ 16117}#)
-                           (#{build-conditional\ 12840}#
-                             #{s\ 16103}#
-                             (#{chi\ 13001}#
-                               #{test\ 16116}#
-                               #{r\ 16101}#
-                               #{w\ 16102}#
-                               #{mod\ 16104}#)
-                             (#{chi\ 13001}#
-                               #{then\ 16117}#
-                               #{r\ 16101}#
-                               #{w\ 16102}#
-                               #{mod\ 16104}#)
-                             (#{build-void\ 12836}# #f)))
-                         #{tmp\ 16111}#)
-                  ((lambda (#{tmp\ 16119}#)
-                     (if #{tmp\ 16119}#
-                       (apply (lambda (#{_\ 16124}#
-                                       #{test\ 16125}#
-                                       #{then\ 16126}#
-                                       #{else\ 16127}#)
-                                (#{build-conditional\ 12840}#
-                                  #{s\ 16103}#
-                                  (#{chi\ 13001}#
-                                    #{test\ 16125}#
-                                    #{r\ 16101}#
-                                    #{w\ 16102}#
-                                    #{mod\ 16104}#)
-                                  (#{chi\ 13001}#
-                                    #{then\ 16126}#
-                                    #{r\ 16101}#
-                                    #{w\ 16102}#
-                                    #{mod\ 16104}#)
-                                  (#{chi\ 13001}#
-                                    #{else\ 16127}#
-                                    #{r\ 16101}#
-                                    #{w\ 16102}#
-                                    #{mod\ 16104}#)))
-                              #{tmp\ 16119}#)
+        (lambda (#{e\ 3463}#
+                 #{r\ 3464}#
+                 #{w\ 3465}#
+                 #{s\ 3466}#
+                 #{mod\ 3467}#)
+          ((lambda (#{tmp\ 3473}#)
+             ((lambda (#{tmp\ 3474}#)
+                (if #{tmp\ 3474}#
+                  (apply (lambda (#{_\ 3478}# #{test\ 3479}# #{then\ 3480}#)
+                           (#{build-conditional\ 231}#
+                             #{s\ 3466}#
+                             (#{chi\ 392}#
+                               #{test\ 3479}#
+                               #{r\ 3464}#
+                               #{w\ 3465}#
+                               #{mod\ 3467}#)
+                             (#{chi\ 392}#
+                               #{then\ 3480}#
+                               #{r\ 3464}#
+                               #{w\ 3465}#
+                               #{mod\ 3467}#)
+                             (#{build-void\ 227}# #f)))
+                         #{tmp\ 3474}#)
+                  ((lambda (#{tmp\ 3482}#)
+                     (if #{tmp\ 3482}#
+                       (apply (lambda (#{_\ 3487}#
+                                       #{test\ 3488}#
+                                       #{then\ 3489}#
+                                       #{else\ 3490}#)
+                                (#{build-conditional\ 231}#
+                                  #{s\ 3466}#
+                                  (#{chi\ 392}#
+                                    #{test\ 3488}#
+                                    #{r\ 3464}#
+                                    #{w\ 3465}#
+                                    #{mod\ 3467}#)
+                                  (#{chi\ 392}#
+                                    #{then\ 3489}#
+                                    #{r\ 3464}#
+                                    #{w\ 3465}#
+                                    #{mod\ 3467}#)
+                                  (#{chi\ 392}#
+                                    #{else\ 3490}#
+                                    #{r\ 3464}#
+                                    #{w\ 3465}#
+                                    #{mod\ 3467}#)))
+                              #{tmp\ 3482}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 16110}#)))
+                         #{tmp\ 3473}#)))
                    ($sc-dispatch
-                     #{tmp\ 16110}#
+                     #{tmp\ 3473}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 16110}#
+                #{tmp\ 3473}#
                 '(any any any))))
-           #{e\ 16100}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3463}#)))
+      (#{global-extend\ 303}#
         'core
         'with-fluids
-        (lambda (#{e\ 16128}#
-                 #{r\ 16129}#
-                 #{w\ 16130}#
-                 #{s\ 16131}#
-                 #{mod\ 16132}#)
-          ((lambda (#{tmp\ 16138}#)
-             ((lambda (#{tmp\ 16139}#)
-                (if #{tmp\ 16139}#
-                  (apply (lambda (#{_\ 16145}#
-                                  #{fluid\ 16146}#
-                                  #{val\ 16147}#
-                                  #{b\ 16148}#
-                                  #{b*\ 16149}#)
-                           (#{build-dynlet\ 12842}#
-                             #{s\ 16131}#
-                             (map (lambda (#{x\ 16150}#)
-                                    (#{chi\ 13001}#
-                                      #{x\ 16150}#
-                                      #{r\ 16129}#
-                                      #{w\ 16130}#
-                                      #{mod\ 16132}#))
-                                  #{fluid\ 16146}#)
-                             (map (lambda (#{x\ 16153}#)
-                                    (#{chi\ 13001}#
-                                      #{x\ 16153}#
-                                      #{r\ 16129}#
-                                      #{w\ 16130}#
-                                      #{mod\ 16132}#))
-                                  #{val\ 16147}#)
-                             (#{chi-body\ 13009}#
-                               (cons #{b\ 16148}# #{b*\ 16149}#)
-                               (#{source-wrap\ 12987}#
-                                 #{e\ 16128}#
-                                 #{w\ 16130}#
-                                 #{s\ 16131}#
-                                 #{mod\ 16132}#)
-                               #{r\ 16129}#
-                               #{w\ 16130}#
-                               #{mod\ 16132}#)))
-                         #{tmp\ 16139}#)
+        (lambda (#{e\ 3491}#
+                 #{r\ 3492}#
+                 #{w\ 3493}#
+                 #{s\ 3494}#
+                 #{mod\ 3495}#)
+          ((lambda (#{tmp\ 3501}#)
+             ((lambda (#{tmp\ 3502}#)
+                (if #{tmp\ 3502}#
+                  (apply (lambda (#{_\ 3508}#
+                                  #{fluid\ 3509}#
+                                  #{val\ 3510}#
+                                  #{b\ 3511}#
+                                  #{b*\ 3512}#)
+                           (#{build-dynlet\ 233}#
+                             #{s\ 3494}#
+                             (map (lambda (#{x\ 3513}#)
+                                    (#{chi\ 392}#
+                                      #{x\ 3513}#
+                                      #{r\ 3492}#
+                                      #{w\ 3493}#
+                                      #{mod\ 3495}#))
+                                  #{fluid\ 3509}#)
+                             (map (lambda (#{x\ 3516}#)
+                                    (#{chi\ 392}#
+                                      #{x\ 3516}#
+                                      #{r\ 3492}#
+                                      #{w\ 3493}#
+                                      #{mod\ 3495}#))
+                                  #{val\ 3510}#)
+                             (#{chi-body\ 400}#
+                               (cons #{b\ 3511}# #{b*\ 3512}#)
+                               (#{source-wrap\ 378}#
+                                 #{e\ 3491}#
+                                 #{w\ 3493}#
+                                 #{s\ 3494}#
+                                 #{mod\ 3495}#)
+                               #{r\ 3492}#
+                               #{w\ 3493}#
+                               #{mod\ 3495}#)))
+                         #{tmp\ 3502}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 16138}#)))
+                    #{tmp\ 3501}#)))
               ($sc-dispatch
-                #{tmp\ 16138}#
+                #{tmp\ 3501}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 16128}#)))
-      (#{global-extend\ 12912}#
+           #{e\ 3491}#)))
+      (#{global-extend\ 303}#
         'begin
         'begin
         '())
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'define
         'define
         '())
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 12912}#
+      (#{global-extend\ 303}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 16164}#
-                   (lambda (#{x\ 16165}#
-                            #{keys\ 16166}#
-                            #{clauses\ 16167}#
-                            #{r\ 16168}#
-                            #{mod\ 16169}#)
-                     (if (null? #{clauses\ 16167}#)
-                       (#{build-application\ 12838}#
+        (letrec ((#{gen-syntax-case\ 3527}#
+                   (lambda (#{x\ 3528}#
+                            #{keys\ 3529}#
+                            #{clauses\ 3530}#
+                            #{r\ 3531}#
+                            #{mod\ 3532}#)
+                     (if (null? #{clauses\ 3530}#)
+                       (#{build-application\ 229}#
                          #f
-                         (#{build-primref\ 12864}#
+                         (#{build-primref\ 255}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 12866}# #f #f)
-                               (#{build-data\ 12866}#
+                         (list (#{build-data\ 257}# #f #f)
+                               (#{build-data\ 257}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 16165}#))
-                       ((lambda (#{tmp\ 16179}#)
-                          ((lambda (#{tmp\ 16180}#)
-                             (if #{tmp\ 16180}#
-                               (apply (lambda (#{pat\ 16183}# #{exp\ 16184}#)
-                                        (if (if (#{id?\ 12916}# #{pat\ 16183}#)
+                               #{x\ 3528}#))
+                       ((lambda (#{tmp\ 3542}#)
+                          ((lambda (#{tmp\ 3543}#)
+                             (if #{tmp\ 3543}#
+                               (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#)
+                                        (if (if (#{id?\ 307}# #{pat\ 3546}#)
                                               (and-map
-                                                (lambda (#{x\ 16187}#)
-                                                  (not (#{free-id=?\ 12975}#
-                                                         #{pat\ 16183}#
-                                                         #{x\ 16187}#)))
+                                                (lambda (#{x\ 3550}#)
+                                                  (not (#{free-id=?\ 366}#
+                                                         #{pat\ 3546}#
+                                                         #{x\ 3550}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i16181"
-                                                              "i16182"))
+                                                            #("i3544" "i3545"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -11729,11 +11508,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i16170"
-                                                              "i16171"
-                                                              "i16172"
-                                                              "i16173"
-                                                              "i16174"))
+                                                            #("i3533"
+                                                              "i3534"
+                                                              "i3535"
+                                                              "i3536"
+                                                              "i3537"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -11743,10 +11522,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i16163"
-                                                             "i16161"
-                                                             "i16159"
-                                                             "i16157"))
+                                                            ("i3526"
+                                                             "i3524"
+                                                             "i3522"
+                                                             "i3520"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -11881,8 +11660,7 @@
                                                               make-lexical-ref
                                                               
make-primitive-ref
                                                               make-const
-                                                              make-void
-                                                              *mode*)
+                                                              make-void)
                                                             ((top)
                                                              (top)
                                                              (top)
@@ -12016,1064 +11794,1032 @@
                                                              (top)
                                                              (top)
                                                              (top)
-                                                             (top)
                                                              (top))
-                                                            ("i13030"
-                                                             "i13028"
-                                                             "i13026"
-                                                             "i13024"
-                                                             "i13022"
-                                                             "i13020"
-                                                             "i13018"
-                                                             "i13016"
-                                                             "i13014"
-                                                             "i13012"
-                                                             "i13010"
-                                                             "i13008"
-                                                             "i13006"
-                                                             "i13004"
-                                                             "i13002"
-                                                             "i13000"
-                                                             "i12998"
-                                                             "i12996"
-                                                             "i12994"
-                                                             "i12992"
-                                                             "i12990"
-                                                             "i12988"
-                                                             "i12986"
-                                                             "i12984"
-                                                             "i12982"
-                                                             "i12980"
-                                                             "i12978"
-                                                             "i12976"
-                                                             "i12974"
-                                                             "i12972"
-                                                             "i12970"
-                                                             "i12968"
-                                                             "i12966"
-                                                             "i12964"
-                                                             "i12962"
-                                                             "i12960"
-                                                             "i12959"
-                                                             "i12958"
-                                                             "i12956"
-                                                             "i12955"
-                                                             "i12954"
-                                                             "i12953"
-                                                             "i12952"
-                                                             "i12950"
-                                                             "i12948"
-                                                             "i12946"
-                                                             "i12944"
-                                                             "i12942"
-                                                             "i12940"
-                                                             "i12938"
-                                                             "i12936"
-                                                             "i12933"
-                                                             "i12931"
-                                                             "i12930"
-                                                             "i12929"
-                                                             "i12928"
-                                                             "i12927"
-                                                             "i12926"
-                                                             "i12924"
-                                                             "i12922"
-                                                             "i12920"
-                                                             "i12918"
-                                                             "i12917"
-                                                             "i12915"
-                                                             "i12913"
-                                                             "i12911"
-                                                             "i12909"
-                                                             "i12907"
-                                                             "i12905"
-                                                             "i12903"
-                                                             "i12902"
-                                                             "i12900"
-                                                             "i12898"
-                                                             "i12897"
-                                                             "i12896"
-                                                             "i12894"
-                                                             "i12893"
-                                                             "i12891"
-                                                             "i12889"
-                                                             "i12887"
-                                                             "i12885"
-                                                             "i12883"
-                                                             "i12881"
-                                                             "i12879"
-                                                             "i12877"
-                                                             "i12875"
-                                                             "i12873"
-                                                             "i12871"
-                                                             "i12869"
-                                                             "i12867"
-                                                             "i12865"
-                                                             "i12863"
-                                                             "i12861"
-                                                             "i12859"
-                                                             "i12857"
-                                                             "i12855"
-                                                             "i12853"
-                                                             "i12851"
-                                                             "i12849"
-                                                             "i12847"
-                                                             "i12845"
-                                                             "i12843"
-                                                             "i12841"
-                                                             "i12839"
-                                                             "i12837"
-                                                             "i12835"
-                                                             "i12833"
-                                                             "i12831"
-                                                             "i12829"
-                                                             "i12828"
-                                                             "i12826"
-                                                             "i12824"
-                                                             "i12822"
-                                                             "i12820"
-                                                             "i12818"
-                                                             "i12816"
-                                                             "i12814"
-                                                             "i12812"
-                                                             "i12810"
-                                                             "i12808"
-                                                             "i12806"
-                                                             "i12804"
-                                                             "i12802"
-                                                             "i12800"
-                                                             "i12798"
-                                                             "i12796"
-                                                             "i12794"
-                                                             "i12792"
-                                                             "i12790"
-                                                             "i12788"
-                                                             "i12786"
-                                                             "i12784"
-                                                             "i12782"
-                                                             "i12780"
-                                                             "i12777"))
+                                                            ("i421"
+                                                             "i419"
+                                                             "i417"
+                                                             "i415"
+                                                             "i413"
+                                                             "i411"
+                                                             "i409"
+                                                             "i407"
+                                                             "i405"
+                                                             "i403"
+                                                             "i401"
+                                                             "i399"
+                                                             "i397"
+                                                             "i395"
+                                                             "i393"
+                                                             "i391"
+                                                             "i389"
+                                                             "i387"
+                                                             "i385"
+                                                             "i383"
+                                                             "i381"
+                                                             "i379"
+                                                             "i377"
+                                                             "i375"
+                                                             "i373"
+                                                             "i371"
+                                                             "i369"
+                                                             "i367"
+                                                             "i365"
+                                                             "i363"
+                                                             "i361"
+                                                             "i359"
+                                                             "i357"
+                                                             "i355"
+                                                             "i353"
+                                                             "i351"
+                                                             "i350"
+                                                             "i349"
+                                                             "i347"
+                                                             "i346"
+                                                             "i345"
+                                                             "i344"
+                                                             "i343"
+                                                             "i341"
+                                                             "i339"
+                                                             "i337"
+                                                             "i335"
+                                                             "i333"
+                                                             "i331"
+                                                             "i329"
+                                                             "i327"
+                                                             "i324"
+                                                             "i322"
+                                                             "i321"
+                                                             "i320"
+                                                             "i319"
+                                                             "i318"
+                                                             "i317"
+                                                             "i315"
+                                                             "i313"
+                                                             "i311"
+                                                             "i309"
+                                                             "i308"
+                                                             "i306"
+                                                             "i304"
+                                                             "i302"
+                                                             "i300"
+                                                             "i298"
+                                                             "i296"
+                                                             "i294"
+                                                             "i293"
+                                                             "i291"
+                                                             "i289"
+                                                             "i288"
+                                                             "i287"
+                                                             "i285"
+                                                             "i284"
+                                                             "i282"
+                                                             "i280"
+                                                             "i278"
+                                                             "i276"
+                                                             "i274"
+                                                             "i272"
+                                                             "i270"
+                                                             "i268"
+                                                             "i266"
+                                                             "i264"
+                                                             "i262"
+                                                             "i260"
+                                                             "i258"
+                                                             "i256"
+                                                             "i254"
+                                                             "i252"
+                                                             "i250"
+                                                             "i248"
+                                                             "i246"
+                                                             "i244"
+                                                             "i242"
+                                                             "i240"
+                                                             "i238"
+                                                             "i236"
+                                                             "i234"
+                                                             "i232"
+                                                             "i230"
+                                                             "i228"
+                                                             "i226"
+                                                             "i224"
+                                                             "i222"
+                                                             "i220"
+                                                             "i219"
+                                                             "i217"
+                                                             "i215"
+                                                             "i213"
+                                                             "i211"
+                                                             "i209"
+                                                             "i207"
+                                                             "i205"
+                                                             "i203"
+                                                             "i201"
+                                                             "i199"
+                                                             "i197"
+                                                             "i195"
+                                                             "i193"
+                                                             "i191"
+                                                             "i189"
+                                                             "i187"
+                                                             "i185"
+                                                             "i183"
+                                                             "i181"
+                                                             "i179"
+                                                             "i177"
+                                                             "i175"
+                                                             "i173"
+                                                             "i171"))
                                                           #(ribcage
                                                             (define-structure
                                                               
define-expansion-constructors
                                                               and-map*)
                                                             ((top) (top) (top))
-                                                            ("i12629"
-                                                             "i12628"
-                                                             "i12626")))
+                                                            ("i22"
+                                                             "i21"
+                                                             "i19")))
                                                          (hygiene guile))
-                                                      #{keys\ 16166}#))
+                                                      #{keys\ 3529}#))
                                               #f)
-                                          (let ((#{labels\ 16191}#
-                                                  (list (#{gen-label\ 
12932}#)))
-                                                (#{var\ 16192}#
-                                                  (#{gen-var\ 13029}#
-                                                    #{pat\ 16183}#)))
-                                            (#{build-application\ 12838}#
+                                          (let ((#{labels\ 3554}#
+                                                  (list (#{gen-label\ 323}#)))
+                                                (#{var\ 3555}#
+                                                  (#{gen-var\ 420}#
+                                                    #{pat\ 3546}#)))
+                                            (#{build-application\ 229}#
                                               #f
-                                              (#{build-simple-lambda\ 12858}#
+                                              (#{build-simple-lambda\ 249}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 16183}#))
+                                                        #{pat\ 3546}#))
                                                 #f
-                                                (list #{var\ 16192}#)
+                                                (list #{var\ 3555}#)
                                                 '()
-                                                (#{chi\ 13001}#
-                                                  #{exp\ 16184}#
-                                                  (#{extend-env\ 12904}#
-                                                    #{labels\ 16191}#
+                                                (#{chi\ 392}#
+                                                  #{exp\ 3547}#
+                                                  (#{extend-env\ 295}#
+                                                    #{labels\ 3554}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
16192}#
+                                                                (cons #{var\ 
3555}#
                                                                       0)))
-                                                    #{r\ 16168}#)
-                                                  (#{make-binding-wrap\ 12963}#
-                                                    (list #{pat\ 16183}#)
-                                                    #{labels\ 16191}#
+                                                    #{r\ 3531}#)
+                                                  (#{make-binding-wrap\ 354}#
+                                                    (list #{pat\ 3546}#)
+                                                    #{labels\ 3554}#
                                                     '(()))
-                                                  #{mod\ 16169}#))
-                                              (list #{x\ 16165}#)))
-                                          (#{gen-clause\ 16162}#
-                                            #{x\ 16165}#
-                                            #{keys\ 16166}#
-                                            (cdr #{clauses\ 16167}#)
-                                            #{r\ 16168}#
-                                            #{pat\ 16183}#
+                                                  #{mod\ 3532}#))
+                                              (list #{x\ 3528}#)))
+                                          (#{gen-clause\ 3525}#
+                                            #{x\ 3528}#
+                                            #{keys\ 3529}#
+                                            (cdr #{clauses\ 3530}#)
+                                            #{r\ 3531}#
+                                            #{pat\ 3546}#
                                             #t
-                                            #{exp\ 16184}#
-                                            #{mod\ 16169}#)))
-                                      #{tmp\ 16180}#)
-                               ((lambda (#{tmp\ 16198}#)
-                                  (if #{tmp\ 16198}#
-                                    (apply (lambda (#{pat\ 16202}#
-                                                    #{fender\ 16203}#
-                                                    #{exp\ 16204}#)
-                                             (#{gen-clause\ 16162}#
-                                               #{x\ 16165}#
-                                               #{keys\ 16166}#
-                                               (cdr #{clauses\ 16167}#)
-                                               #{r\ 16168}#
-                                               #{pat\ 16202}#
-                                               #{fender\ 16203}#
-                                               #{exp\ 16204}#
-                                               #{mod\ 16169}#))
-                                           #{tmp\ 16198}#)
-                                    ((lambda (#{_\ 16206}#)
+                                            #{exp\ 3547}#
+                                            #{mod\ 3532}#)))
+                                      #{tmp\ 3543}#)
+                               ((lambda (#{tmp\ 3561}#)
+                                  (if #{tmp\ 3561}#
+                                    (apply (lambda (#{pat\ 3565}#
+                                                    #{fender\ 3566}#
+                                                    #{exp\ 3567}#)
+                                             (#{gen-clause\ 3525}#
+                                               #{x\ 3528}#
+                                               #{keys\ 3529}#
+                                               (cdr #{clauses\ 3530}#)
+                                               #{r\ 3531}#
+                                               #{pat\ 3565}#
+                                               #{fender\ 3566}#
+                                               #{exp\ 3567}#
+                                               #{mod\ 3532}#))
+                                           #{tmp\ 3561}#)
+                                    ((lambda (#{_\ 3569}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 16167}#)))
-                                     #{tmp\ 16179}#)))
+                                         (car #{clauses\ 3530}#)))
+                                     #{tmp\ 3542}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 16179}#
+                                  #{tmp\ 3542}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 16179}# (quote (any any)))))
-                        (car #{clauses\ 16167}#)))))
-                 (#{gen-clause\ 16162}#
-                   (lambda (#{x\ 16207}#
-                            #{keys\ 16208}#
-                            #{clauses\ 16209}#
-                            #{r\ 16210}#
-                            #{pat\ 16211}#
-                            #{fender\ 16212}#
-                            #{exp\ 16213}#
-                            #{mod\ 16214}#)
+                           ($sc-dispatch #{tmp\ 3542}# (quote (any any)))))
+                        (car #{clauses\ 3530}#)))))
+                 (#{gen-clause\ 3525}#
+                   (lambda (#{x\ 3570}#
+                            #{keys\ 3571}#
+                            #{clauses\ 3572}#
+                            #{r\ 3573}#
+                            #{pat\ 3574}#
+                            #{fender\ 3575}#
+                            #{exp\ 3576}#
+                            #{mod\ 3577}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 16158}#
-                           #{pat\ 16211}#
-                           #{keys\ 16208}#))
-                       (lambda (#{p\ 16223}# #{pvars\ 16224}#)
-                         (if (not (#{distinct-bound-ids?\ 12981}#
-                                    (map car #{pvars\ 16224}#)))
+                         (#{convert-pattern\ 3521}#
+                           #{pat\ 3574}#
+                           #{keys\ 3571}#))
+                       (lambda (#{p\ 3586}# #{pvars\ 3587}#)
+                         (if (not (#{distinct-bound-ids?\ 372}#
+                                    (map car #{pvars\ 3587}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 16211}#)
+                             #{pat\ 3574}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 16231}#)
-                                        (not (#{ellipsis?\ 13017}#
-                                               (car #{x\ 16231}#))))
-                                      #{pvars\ 16224}#))
+                                      (lambda (#{x\ 3594}#)
+                                        (not (#{ellipsis?\ 408}#
+                                               (car #{x\ 3594}#))))
+                                      #{pvars\ 3587}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 16211}#)
-                             (let ((#{y\ 16235}#
-                                     (#{gen-var\ 13029}# (quote tmp))))
-                               (#{build-application\ 12838}#
+                               #{pat\ 3574}#)
+                             (let ((#{y\ 3598}#
+                                     (#{gen-var\ 420}# (quote tmp))))
+                               (#{build-application\ 229}#
                                  #f
-                                 (#{build-simple-lambda\ 12858}#
+                                 (#{build-simple-lambda\ 249}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 16235}#)
+                                   (list #{y\ 3598}#)
                                    '()
-                                   (let ((#{y\ 16239}#
-                                           (#{build-lexical-reference\ 12844}#
+                                   (let ((#{y\ 3602}#
+                                           (#{build-lexical-reference\ 235}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 16235}#)))
-                                     (#{build-conditional\ 12840}#
+                                             #{y\ 3598}#)))
+                                     (#{build-conditional\ 231}#
                                        #f
-                                       ((lambda (#{tmp\ 16242}#)
-                                          ((lambda (#{tmp\ 16243}#)
-                                             (if #{tmp\ 16243}#
-                                               (apply (lambda () #{y\ 16239}#)
-                                                      #{tmp\ 16243}#)
-                                               ((lambda (#{_\ 16245}#)
-                                                  (#{build-conditional\ 12840}#
+                                       ((lambda (#{tmp\ 3605}#)
+                                          ((lambda (#{tmp\ 3606}#)
+                                             (if #{tmp\ 3606}#
+                                               (apply (lambda () #{y\ 3602}#)
+                                                      #{tmp\ 3606}#)
+                                               ((lambda (#{_\ 3608}#)
+                                                  (#{build-conditional\ 231}#
                                                     #f
-                                                    #{y\ 16239}#
-                                                    (#{build-dispatch-call\ 
16160}#
-                                                      #{pvars\ 16224}#
-                                                      #{fender\ 16212}#
-                                                      #{y\ 16239}#
-                                                      #{r\ 16210}#
-                                                      #{mod\ 16214}#)
-                                                    (#{build-data\ 12866}#
+                                                    #{y\ 3602}#
+                                                    (#{build-dispatch-call\ 
3523}#
+                                                      #{pvars\ 3587}#
+                                                      #{fender\ 3575}#
+                                                      #{y\ 3602}#
+                                                      #{r\ 3573}#
+                                                      #{mod\ 3577}#)
+                                                    (#{build-data\ 257}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 16242}#)))
+                                                #{tmp\ 3605}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 16242}#
+                                             #{tmp\ 3605}#
                                              '#(atom #t))))
-                                        #{fender\ 16212}#)
-                                       (#{build-dispatch-call\ 16160}#
-                                         #{pvars\ 16224}#
-                                         #{exp\ 16213}#
-                                         #{y\ 16239}#
-                                         #{r\ 16210}#
-                                         #{mod\ 16214}#)
-                                       (#{gen-syntax-case\ 16164}#
-                                         #{x\ 16207}#
-                                         #{keys\ 16208}#
-                                         #{clauses\ 16209}#
-                                         #{r\ 16210}#
-                                         #{mod\ 16214}#))))
-                                 (list (if (eq? #{p\ 16223}# (quote any))
-                                         (#{build-application\ 12838}#
+                                        #{fender\ 3575}#)
+                                       (#{build-dispatch-call\ 3523}#
+                                         #{pvars\ 3587}#
+                                         #{exp\ 3576}#
+                                         #{y\ 3602}#
+                                         #{r\ 3573}#
+                                         #{mod\ 3577}#)
+                                       (#{gen-syntax-case\ 3527}#
+                                         #{x\ 3570}#
+                                         #{keys\ 3571}#
+                                         #{clauses\ 3572}#
+                                         #{r\ 3573}#
+                                         #{mod\ 3577}#))))
+                                 (list (if (eq? #{p\ 3586}# (quote any))
+                                         (#{build-application\ 229}#
                                            #f
-                                           (#{build-primref\ 12864}#
+                                           (#{build-primref\ 255}#
                                              #f
                                              'list)
-                                           (list #{x\ 16207}#))
-                                         (#{build-application\ 12838}#
+                                           (list #{x\ 3570}#))
+                                         (#{build-application\ 229}#
                                            #f
-                                           (#{build-primref\ 12864}#
+                                           (#{build-primref\ 255}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 16207}#
-                                                 (#{build-data\ 12866}#
+                                           (list #{x\ 3570}#
+                                                 (#{build-data\ 257}#
                                                    #f
-                                                   #{p\ 16223}#)))))))))))))
-                 (#{build-dispatch-call\ 16160}#
-                   (lambda (#{pvars\ 16253}#
-                            #{exp\ 16254}#
-                            #{y\ 16255}#
-                            #{r\ 16256}#
-                            #{mod\ 16257}#)
-                     (let ((#{ids\ 16265}# (map car #{pvars\ 16253}#))
-                           (#{levels\ 16266}# (map cdr #{pvars\ 16253}#)))
-                       (let ((#{labels\ 16269}#
-                               (#{gen-labels\ 12934}# #{ids\ 16265}#))
-                             (#{new-vars\ 16270}#
-                               (map #{gen-var\ 13029}# #{ids\ 16265}#)))
-                         (#{build-application\ 12838}#
+                                                   #{p\ 3586}#)))))))))))))
+                 (#{build-dispatch-call\ 3523}#
+                   (lambda (#{pvars\ 3616}#
+                            #{exp\ 3617}#
+                            #{y\ 3618}#
+                            #{r\ 3619}#
+                            #{mod\ 3620}#)
+                     (let ((#{ids\ 3628}# (map car #{pvars\ 3616}#))
+                           (#{levels\ 3629}# (map cdr #{pvars\ 3616}#)))
+                       (let ((#{labels\ 3632}#
+                               (#{gen-labels\ 325}# #{ids\ 3628}#))
+                             (#{new-vars\ 3633}#
+                               (map #{gen-var\ 420}# #{ids\ 3628}#)))
+                         (#{build-application\ 229}#
                            #f
-                           (#{build-primref\ 12864}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 12858}#
+                           (#{build-primref\ 255}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 249}#
                                    #f
-                                   (map syntax->datum #{ids\ 16265}#)
+                                   (map syntax->datum #{ids\ 3628}#)
                                    #f
-                                   #{new-vars\ 16270}#
+                                   #{new-vars\ 3633}#
                                    '()
-                                   (#{chi\ 13001}#
-                                     #{exp\ 16254}#
-                                     (#{extend-env\ 12904}#
-                                       #{labels\ 16269}#
-                                       (map (lambda (#{var\ 16274}#
-                                                     #{level\ 16275}#)
+                                   (#{chi\ 392}#
+                                     #{exp\ 3617}#
+                                     (#{extend-env\ 295}#
+                                       #{labels\ 3632}#
+                                       (map (lambda (#{var\ 3637}#
+                                                     #{level\ 3638}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 16274}#
-                                                          #{level\ 16275}#)))
-                                            #{new-vars\ 16270}#
-                                            (map cdr #{pvars\ 16253}#))
-                                       #{r\ 16256}#)
-                                     (#{make-binding-wrap\ 12963}#
-                                       #{ids\ 16265}#
-                                       #{labels\ 16269}#
+                                                    (cons #{var\ 3637}#
+                                                          #{level\ 3638}#)))
+                                            #{new-vars\ 3633}#
+                                            (map cdr #{pvars\ 3616}#))
+                                       #{r\ 3619}#)
+                                     (#{make-binding-wrap\ 354}#
+                                       #{ids\ 3628}#
+                                       #{labels\ 3632}#
                                        '(()))
-                                     #{mod\ 16257}#))
-                                 #{y\ 16255}#))))))
-                 (#{convert-pattern\ 16158}#
-                   (lambda (#{pattern\ 16281}# #{keys\ 16282}#)
-                     (letrec ((#{cvt\ 16288}#
-                                (lambda (#{p\ 16289}#
-                                         #{n\ 16290}#
-                                         #{ids\ 16291}#)
-                                  (if (#{id?\ 12916}# #{p\ 16289}#)
-                                    (if (#{bound-id-member?\ 12983}#
-                                          #{p\ 16289}#
-                                          #{keys\ 16282}#)
+                                     #{mod\ 3620}#))
+                                 #{y\ 3618}#))))))
+                 (#{convert-pattern\ 3521}#
+                   (lambda (#{pattern\ 3644}# #{keys\ 3645}#)
+                     (letrec ((#{cvt\ 3651}#
+                                (lambda (#{p\ 3652}# #{n\ 3653}# #{ids\ 3654}#)
+                                  (if (#{id?\ 307}# #{p\ 3652}#)
+                                    (if (#{bound-id-member?\ 374}#
+                                          #{p\ 3652}#
+                                          #{keys\ 3645}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 16289}#)
-                                        #{ids\ 16291}#)
+                                        (vector (quote free-id) #{p\ 3652}#)
+                                        #{ids\ 3654}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 16289}# #{n\ 16290}#)
-                                              #{ids\ 16291}#)))
-                                    ((lambda (#{tmp\ 16295}#)
-                                       ((lambda (#{tmp\ 16296}#)
-                                          (if (if #{tmp\ 16296}#
-                                                (apply (lambda (#{x\ 16299}#
-                                                                #{dots\ 
16300}#)
-                                                         (#{ellipsis?\ 13017}#
-                                                           #{dots\ 16300}#))
-                                                       #{tmp\ 16296}#)
+                                        (cons (cons #{p\ 3652}# #{n\ 3653}#)
+                                              #{ids\ 3654}#)))
+                                    ((lambda (#{tmp\ 3658}#)
+                                       ((lambda (#{tmp\ 3659}#)
+                                          (if (if #{tmp\ 3659}#
+                                                (apply (lambda (#{x\ 3662}#
+                                                                #{dots\ 3663}#)
+                                                         (#{ellipsis?\ 408}#
+                                                           #{dots\ 3663}#))
+                                                       #{tmp\ 3659}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 16303}#
-                                                            #{dots\ 16304}#)
+                                            (apply (lambda (#{x\ 3666}#
+                                                            #{dots\ 3667}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 16288}#
-                                                           #{x\ 16303}#
-                                                           (#{fx+\ 12817}#
-                                                             #{n\ 16290}#
+                                                         (#{cvt\ 3651}#
+                                                           #{x\ 3666}#
+                                                           (#{fx+\ 208}#
+                                                             #{n\ 3653}#
                                                              1)
-                                                           #{ids\ 16291}#))
-                                                       (lambda (#{p\ 16305}#
-                                                                #{ids\ 16306}#)
+                                                           #{ids\ 3654}#))
+                                                       (lambda (#{p\ 3668}#
+                                                                #{ids\ 3669}#)
                                                          (values
-                                                           (if (eq? #{p\ 
16305}#
+                                                           (if (eq? #{p\ 3668}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 16305}#))
-                                                           #{ids\ 16306}#))))
-                                                   #{tmp\ 16296}#)
-                                            ((lambda (#{tmp\ 16309}#)
-                                               (if (if #{tmp\ 16309}#
-                                                     (apply (lambda (#{x\ 
16313}#
-                                                                     #{dots\ 
16314}#
-                                                                     #{ys\ 
16315}#)
-                                                              (#{ellipsis?\ 
13017}#
-                                                                #{dots\ 
16314}#))
-                                                            #{tmp\ 16309}#)
+                                                               #{p\ 3668}#))
+                                                           #{ids\ 3669}#))))
+                                                   #{tmp\ 3659}#)
+                                            ((lambda (#{tmp\ 3672}#)
+                                               (if (if #{tmp\ 3672}#
+                                                     (apply (lambda (#{x\ 
3676}#
+                                                                     #{dots\ 
3677}#
+                                                                     #{ys\ 
3678}#)
+                                                              (#{ellipsis?\ 
408}#
+                                                                #{dots\ 
3677}#))
+                                                            #{tmp\ 3672}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 16319}#
-                                                                 #{dots\ 
16320}#
-                                                                 #{ys\ 16321}#)
+                                                 (apply (lambda (#{x\ 3682}#
+                                                                 #{dots\ 3683}#
+                                                                 #{ys\ 3684}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 16286}#
-                                                                #{ys\ 16321}#
-                                                                #{n\ 16290}#
-                                                                #{ids\ 
16291}#))
-                                                            (lambda (#{ys\ 
16323}#
-                                                                     #{ids\ 
16324}#)
+                                                              (#{cvt*\ 3649}#
+                                                                #{ys\ 3684}#
+                                                                #{n\ 3653}#
+                                                                #{ids\ 3654}#))
+                                                            (lambda (#{ys\ 
3686}#
+                                                                     #{ids\ 
3687}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
16288}#
-                                                                    #{x\ 
16319}#
-                                                                    (+ #{n\ 
16290}#
+                                                                  (#{cvt\ 
3651}#
+                                                                    #{x\ 3682}#
+                                                                    (+ #{n\ 
3653}#
                                                                        1)
-                                                                    #{ids\ 
16324}#))
-                                                                (lambda (#{x\ 
16327}#
-                                                                         
#{ids\ 16328}#)
+                                                                    #{ids\ 
3687}#))
+                                                                (lambda (#{x\ 
3690}#
+                                                                         
#{ids\ 3691}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 16327}#
+                                                                            
(cons #{x\ 3690}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 16323}#)
+                                                                               
           #{ys\ 3686}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
16328}#))))))
-                                                        #{tmp\ 16309}#)
-                                                 ((lambda (#{tmp\ 16332}#)
-                                                    (if #{tmp\ 16332}#
-                                                      (apply (lambda (#{x\ 
16335}#
-                                                                      #{y\ 
16336}#)
+                                                                    #{ids\ 
3691}#))))))
+                                                        #{tmp\ 3672}#)
+                                                 ((lambda (#{tmp\ 3695}#)
+                                                    (if #{tmp\ 3695}#
+                                                      (apply (lambda (#{x\ 
3698}#
+                                                                      #{y\ 
3699}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
16288}#
-                                                                     #{y\ 
16336}#
-                                                                     #{n\ 
16290}#
-                                                                     #{ids\ 
16291}#))
-                                                                 (lambda (#{y\ 
16337}#
-                                                                          
#{ids\ 16338}#)
+                                                                   (#{cvt\ 
3651}#
+                                                                     #{y\ 
3699}#
+                                                                     #{n\ 
3653}#
+                                                                     #{ids\ 
3654}#))
+                                                                 (lambda (#{y\ 
3700}#
+                                                                          
#{ids\ 3701}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
16288}#
-                                                                         #{x\ 
16335}#
-                                                                         #{n\ 
16290}#
-                                                                         
#{ids\ 16338}#))
-                                                                     (lambda 
(#{x\ 16341}#
-                                                                              
#{ids\ 16342}#)
+                                                                       (#{cvt\ 
3651}#
+                                                                         #{x\ 
3698}#
+                                                                         #{n\ 
3653}#
+                                                                         
#{ids\ 3701}#))
+                                                                     (lambda 
(#{x\ 3704}#
+                                                                              
#{ids\ 3705}#)
                                                                        (values
-                                                                         (cons 
#{x\ 16341}#
-                                                                               
#{y\ 16337}#)
-                                                                         
#{ids\ 16342}#))))))
-                                                             #{tmp\ 16332}#)
-                                                      ((lambda (#{tmp\ 16345}#)
-                                                         (if #{tmp\ 16345}#
+                                                                         (cons 
#{x\ 3704}#
+                                                                               
#{y\ 3700}#)
+                                                                         
#{ids\ 3705}#))))))
+                                                             #{tmp\ 3695}#)
+                                                      ((lambda (#{tmp\ 3708}#)
+                                                         (if #{tmp\ 3708}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
16291}#))
-                                                                  #{tmp\ 
16345}#)
-                                                           ((lambda (#{tmp\ 
16346}#)
-                                                              (if #{tmp\ 
16346}#
-                                                                (apply (lambda 
(#{x\ 16348}#)
+                                                                      #{ids\ 
3654}#))
+                                                                  #{tmp\ 
3708}#)
+                                                           ((lambda (#{tmp\ 
3709}#)
+                                                              (if #{tmp\ 3709}#
+                                                                (apply (lambda 
(#{x\ 3711}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 16288}#
-                                                                               
#{x\ 16348}#
-                                                                               
#{n\ 16290}#
-                                                                               
#{ids\ 16291}#))
-                                                                           
(lambda (#{p\ 16350}#
-                                                                               
     #{ids\ 16351}#)
+                                                                             
(#{cvt\ 3651}#
+                                                                               
#{x\ 3711}#
+                                                                               
#{n\ 3653}#
+                                                                               
#{ids\ 3654}#))
+                                                                           
(lambda (#{p\ 3713}#
+                                                                               
     #{ids\ 3714}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 16350}#)
-                                                                               
#{ids\ 16351}#))))
-                                                                       #{tmp\ 
16346}#)
-                                                                ((lambda (#{x\ 
16355}#)
+                                                                               
  #{p\ 3713}#)
+                                                                               
#{ids\ 3714}#))))
+                                                                       #{tmp\ 
3709}#)
+                                                                ((lambda (#{x\ 
3718}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 13027}#
-                                                                         #{p\ 
16289}#
+                                                                       
(#{strip\ 418}#
+                                                                         #{p\ 
3652}#
                                                                          
'(())))
-                                                                     #{ids\ 
16291}#))
-                                                                 #{tmp\ 
16295}#)))
+                                                                     #{ids\ 
3654}#))
+                                                                 #{tmp\ 
3658}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 16295}#
+                                                              #{tmp\ 3658}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 16295}#
+                                                         #{tmp\ 3658}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 16295}#
+                                                    #{tmp\ 3658}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 16295}#
+                                               #{tmp\ 3658}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 16295}#
+                                          #{tmp\ 3658}#
                                           '(any any))))
-                                     #{p\ 16289}#))))
-                              (#{cvt*\ 16286}#
-                                (lambda (#{p*\ 16357}#
-                                         #{n\ 16358}#
-                                         #{ids\ 16359}#)
-                                  (if (null? #{p*\ 16357}#)
-                                    (values (quote ()) #{ids\ 16359}#)
+                                     #{p\ 3652}#))))
+                              (#{cvt*\ 3649}#
+                                (lambda (#{p*\ 3720}#
+                                         #{n\ 3721}#
+                                         #{ids\ 3722}#)
+                                  (if (null? #{p*\ 3720}#)
+                                    (values (quote ()) #{ids\ 3722}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 16286}#
-                                          (cdr #{p*\ 16357}#)
-                                          #{n\ 16358}#
-                                          #{ids\ 16359}#))
-                                      (lambda (#{y\ 16363}# #{ids\ 16364}#)
+                                        (#{cvt*\ 3649}#
+                                          (cdr #{p*\ 3720}#)
+                                          #{n\ 3721}#
+                                          #{ids\ 3722}#))
+                                      (lambda (#{y\ 3726}# #{ids\ 3727}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 16288}#
-                                              (car #{p*\ 16357}#)
-                                              #{n\ 16358}#
-                                              #{ids\ 16364}#))
-                                          (lambda (#{x\ 16367}# #{ids\ 16368}#)
+                                            (#{cvt\ 3651}#
+                                              (car #{p*\ 3720}#)
+                                              #{n\ 3721}#
+                                              #{ids\ 3727}#))
+                                          (lambda (#{x\ 3730}# #{ids\ 3731}#)
                                             (values
-                                              (cons #{x\ 16367}# #{y\ 16363}#)
-                                              #{ids\ 16368}#)))))))))
-                       (#{cvt\ 16288}# #{pattern\ 16281}# 0 (quote ()))))))
-          (lambda (#{e\ 16371}#
-                   #{r\ 16372}#
-                   #{w\ 16373}#
-                   #{s\ 16374}#
-                   #{mod\ 16375}#)
-            (let ((#{e\ 16382}#
-                    (#{source-wrap\ 12987}#
-                      #{e\ 16371}#
-                      #{w\ 16373}#
-                      #{s\ 16374}#
-                      #{mod\ 16375}#)))
-              ((lambda (#{tmp\ 16383}#)
-                 ((lambda (#{tmp\ 16384}#)
-                    (if #{tmp\ 16384}#
-                      (apply (lambda (#{_\ 16389}#
-                                      #{val\ 16390}#
-                                      #{key\ 16391}#
-                                      #{m\ 16392}#)
+                                              (cons #{x\ 3730}# #{y\ 3726}#)
+                                              #{ids\ 3731}#)))))))))
+                       (#{cvt\ 3651}# #{pattern\ 3644}# 0 (quote ()))))))
+          (lambda (#{e\ 3734}#
+                   #{r\ 3735}#
+                   #{w\ 3736}#
+                   #{s\ 3737}#
+                   #{mod\ 3738}#)
+            (let ((#{e\ 3745}#
+                    (#{source-wrap\ 378}#
+                      #{e\ 3734}#
+                      #{w\ 3736}#
+                      #{s\ 3737}#
+                      #{mod\ 3738}#)))
+              ((lambda (#{tmp\ 3746}#)
+                 ((lambda (#{tmp\ 3747}#)
+                    (if #{tmp\ 3747}#
+                      (apply (lambda (#{_\ 3752}#
+                                      #{val\ 3753}#
+                                      #{key\ 3754}#
+                                      #{m\ 3755}#)
                                (if (and-map
-                                     (lambda (#{x\ 16393}#)
-                                       (if (#{id?\ 12916}# #{x\ 16393}#)
-                                         (not (#{ellipsis?\ 13017}#
-                                                #{x\ 16393}#))
+                                     (lambda (#{x\ 3756}#)
+                                       (if (#{id?\ 307}# #{x\ 3756}#)
+                                         (not (#{ellipsis?\ 408}# #{x\ 3756}#))
                                          #f))
-                                     #{key\ 16391}#)
-                                 (let ((#{x\ 16399}#
-                                         (#{gen-var\ 13029}# (quote tmp))))
-                                   (#{build-application\ 12838}#
-                                     #{s\ 16374}#
-                                     (#{build-simple-lambda\ 12858}#
+                                     #{key\ 3754}#)
+                                 (let ((#{x\ 3762}#
+                                         (#{gen-var\ 420}# (quote tmp))))
+                                   (#{build-application\ 229}#
+                                     #{s\ 3737}#
+                                     (#{build-simple-lambda\ 249}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 16399}#)
+                                       (list #{x\ 3762}#)
                                        '()
-                                       (#{gen-syntax-case\ 16164}#
-                                         (#{build-lexical-reference\ 12844}#
+                                       (#{gen-syntax-case\ 3527}#
+                                         (#{build-lexical-reference\ 235}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 16399}#)
-                                         #{key\ 16391}#
-                                         #{m\ 16392}#
-                                         #{r\ 16372}#
-                                         #{mod\ 16375}#))
-                                     (list (#{chi\ 13001}#
-                                             #{val\ 16390}#
-                                             #{r\ 16372}#
+                                           #{x\ 3762}#)
+                                         #{key\ 3754}#
+                                         #{m\ 3755}#
+                                         #{r\ 3735}#
+                                         #{mod\ 3738}#))
+                                     (list (#{chi\ 392}#
+                                             #{val\ 3753}#
+                                             #{r\ 3735}#
                                              '(())
-                                             #{mod\ 16375}#))))
+                                             #{mod\ 3738}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 16382}#)))
-                             #{tmp\ 16384}#)
+                                   #{e\ 3745}#)))
+                             #{tmp\ 3747}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 16383}#)))
+                        #{tmp\ 3746}#)))
                   ($sc-dispatch
-                    #{tmp\ 16383}#
+                    #{tmp\ 3746}#
                     '(any any each-any . each-any))))
-               #{e\ 16382}#)))))
+               #{e\ 3745}#)))))
       (set! macroexpand
-        (lambda (#{x\ 16405}# . #{rest\ 16406}#)
-          (let ((#{m\ 16412}#
-                  (if (null? #{rest\ 16406}#)
-                    'e
-                    (car #{rest\ 16406}#)))
-                (#{esew\ 16413}#
-                  (if (let ((#{t\ 16417}# (null? #{rest\ 16406}#)))
-                        (if #{t\ 16417}#
-                          #{t\ 16417}#
-                          (null? (cdr #{rest\ 16406}#))))
-                    '(eval)
-                    (cadr #{rest\ 16406}#)))
-                (#{mod\ 16414}#
-                  (cons 'hygiene
-                        (module-name (current-module)))))
-            (with-fluids
-              ((#{*mode*\ 12778}# #{m\ 16412}#))
-              (if (eq? #{m\ 16412}# (quote e))
-                (memoize-expression
-                  (#{chi-top\ 12999}#
-                    #{x\ 16405}#
-                    '()
-                    '((top))
-                    #{m\ 16412}#
-                    #{esew\ 16413}#
-                    #{mod\ 16414}#))
-                (#{chi-top\ 12999}#
-                  #{x\ 16405}#
-                  '()
-                  '((top))
-                  #{m\ 16412}#
-                  #{esew\ 16413}#
-                  #{mod\ 16414}#))))))
+        (lambda*
+          (#{x\ 3768}#
+            #:optional
+            (#{m\ 3770}# (quote e))
+            (#{esew\ 3772}# (quote (eval))))
+          (#{chi-top\ 390}#
+            #{x\ 3768}#
+            '()
+            '((top))
+            #{m\ 3770}#
+            #{esew\ 3772}#
+            (cons 'hygiene
+                  (module-name (current-module))))))
       (set! identifier?
-        (lambda (#{x\ 16423}#)
-          (#{nonsymbol-id?\ 12914}# #{x\ 16423}#)))
+        (lambda (#{x\ 3776}#)
+          (#{nonsymbol-id?\ 305}# #{x\ 3776}#)))
       (set! datum->syntax
-        (lambda (#{id\ 16425}# #{datum\ 16426}#)
-          (#{make-syntax-object\ 12878}#
-            #{datum\ 16426}#
-            (#{syntax-object-wrap\ 12884}# #{id\ 16425}#)
+        (lambda (#{id\ 3778}# #{datum\ 3779}#)
+          (#{make-syntax-object\ 269}#
+            #{datum\ 3779}#
+            (#{syntax-object-wrap\ 275}# #{id\ 3778}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 16429}#)
-          (#{strip\ 13027}# #{x\ 16429}# (quote (())))))
+        (lambda (#{x\ 3782}#)
+          (#{strip\ 418}# #{x\ 3782}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 16432}#)
+        (lambda (#{ls\ 3785}#)
           (begin
-            (let ((#{x\ 16436}# #{ls\ 16432}#))
-              (if (not (list? #{x\ 16436}#))
+            (let ((#{x\ 3789}# #{ls\ 3785}#))
+              (if (not (list? #{x\ 3789}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 16436}#)))
-            (map (lambda (#{x\ 16437}#)
-                   (#{wrap\ 12985}# (gensym) (quote ((top))) #f))
-                 #{ls\ 16432}#))))
+                  #{x\ 3789}#)))
+            (map (lambda (#{x\ 3790}#)
+                   (#{wrap\ 376}# (gensym) (quote ((top))) #f))
+                 #{ls\ 3785}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 16441}# #{y\ 16442}#)
+        (lambda (#{x\ 3794}# #{y\ 3795}#)
           (begin
-            (let ((#{x\ 16447}# #{x\ 16441}#))
-              (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16447}#))
+            (let ((#{x\ 3800}# #{x\ 3794}#))
+              (if (not (#{nonsymbol-id?\ 305}# #{x\ 3800}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 16447}#)))
-            (let ((#{x\ 16450}# #{y\ 16442}#))
-              (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16450}#))
+                  #{x\ 3800}#)))
+            (let ((#{x\ 3803}# #{y\ 3795}#))
+              (if (not (#{nonsymbol-id?\ 305}# #{x\ 3803}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 16450}#)))
-            (#{free-id=?\ 12975}# #{x\ 16441}# #{y\ 16442}#))))
+                  #{x\ 3803}#)))
+            (#{free-id=?\ 366}# #{x\ 3794}# #{y\ 3795}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 16451}# #{y\ 16452}#)
+        (lambda (#{x\ 3804}# #{y\ 3805}#)
           (begin
-            (let ((#{x\ 16457}# #{x\ 16451}#))
-              (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16457}#))
+            (let ((#{x\ 3810}# #{x\ 3804}#))
+              (if (not (#{nonsymbol-id?\ 305}# #{x\ 3810}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 16457}#)))
-            (let ((#{x\ 16460}# #{y\ 16452}#))
-              (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16460}#))
+                  #{x\ 3810}#)))
+            (let ((#{x\ 3813}# #{y\ 3805}#))
+              (if (not (#{nonsymbol-id?\ 305}# #{x\ 3813}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 16460}#)))
-            (#{bound-id=?\ 12977}# #{x\ 16451}# #{y\ 16452}#))))
+                  #{x\ 3813}#)))
+            (#{bound-id=?\ 368}# #{x\ 3804}# #{y\ 3805}#))))
       (set! syntax-violation
-        (lambda (#{who\ 16461}#
-                 #{message\ 16462}#
-                 #{form\ 16463}#
+        (lambda (#{who\ 3814}#
+                 #{message\ 3815}#
+                 #{form\ 3816}#
                  .
-                 #{subform\ 16464}#)
+                 #{subform\ 3817}#)
           (begin
-            (let ((#{x\ 16471}# #{who\ 16461}#))
-              (if (not ((lambda (#{x\ 16472}#)
-                          (let ((#{t\ 16476}# (not #{x\ 16472}#)))
-                            (if #{t\ 16476}#
-                              #{t\ 16476}#
-                              (let ((#{t\ 16479}# (string? #{x\ 16472}#)))
-                                (if #{t\ 16479}#
-                                  #{t\ 16479}#
-                                  (symbol? #{x\ 16472}#))))))
-                        #{x\ 16471}#))
+            (let ((#{x\ 3824}# #{who\ 3814}#))
+              (if (not ((lambda (#{x\ 3825}#)
+                          (let ((#{t\ 3829}# (not #{x\ 3825}#)))
+                            (if #{t\ 3829}#
+                              #{t\ 3829}#
+                              (let ((#{t\ 3832}# (string? #{x\ 3825}#)))
+                                (if #{t\ 3832}#
+                                  #{t\ 3832}#
+                                  (symbol? #{x\ 3825}#))))))
+                        #{x\ 3824}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 16471}#)))
-            (let ((#{x\ 16483}# #{message\ 16462}#))
-              (if (not (string? #{x\ 16483}#))
+                  #{x\ 3824}#)))
+            (let ((#{x\ 3836}# #{message\ 3815}#))
+              (if (not (string? #{x\ 3836}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 16483}#)))
+                  #{x\ 3836}#)))
             (scm-error
               'syntax-error
               'macroexpand
               (string-append
-                (if #{who\ 16461}# "~a: " "")
+                (if #{who\ 3814}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 16464}#)
+                (if (null? #{subform\ 3817}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 16485}#
-                      (cons #{message\ 16462}#
-                            (map (lambda (#{x\ 16486}#)
-                                   (#{strip\ 13027}#
-                                     #{x\ 16486}#
-                                     '(())))
+              (let ((#{tail\ 3838}#
+                      (cons #{message\ 3815}#
+                            (map (lambda (#{x\ 3839}#)
+                                   (#{strip\ 418}# #{x\ 3839}# (quote (()))))
                                  (append
-                                   #{subform\ 16464}#
-                                   (list #{form\ 16463}#))))))
-                (if #{who\ 16461}#
-                  (cons #{who\ 16461}# #{tail\ 16485}#)
-                  #{tail\ 16485}#))
+                                   #{subform\ 3817}#
+                                   (list #{form\ 3816}#))))))
+                (if #{who\ 3814}#
+                  (cons #{who\ 3814}# #{tail\ 3838}#)
+                  #{tail\ 3838}#))
               #f))))
-      (letrec ((#{match\ 16502}#
-                 (lambda (#{e\ 16503}#
-                          #{p\ 16504}#
-                          #{w\ 16505}#
-                          #{r\ 16506}#
-                          #{mod\ 16507}#)
-                   (if (not #{r\ 16506}#)
+      (letrec ((#{match\ 3855}#
+                 (lambda (#{e\ 3856}#
+                          #{p\ 3857}#
+                          #{w\ 3858}#
+                          #{r\ 3859}#
+                          #{mod\ 3860}#)
+                   (if (not #{r\ 3859}#)
                      #f
-                     (if (eq? #{p\ 16504}# (quote any))
-                       (cons (#{wrap\ 12985}#
-                               #{e\ 16503}#
-                               #{w\ 16505}#
-                               #{mod\ 16507}#)
-                             #{r\ 16506}#)
-                       (if (#{syntax-object?\ 12880}# #{e\ 16503}#)
-                         (#{match*\ 16500}#
-                           (#{syntax-object-expression\ 12882}#
-                             #{e\ 16503}#)
-                           #{p\ 16504}#
-                           (#{join-wraps\ 12967}#
-                             #{w\ 16505}#
-                             (#{syntax-object-wrap\ 12884}# #{e\ 16503}#))
-                           #{r\ 16506}#
-                           (#{syntax-object-module\ 12886}# #{e\ 16503}#))
-                         (#{match*\ 16500}#
-                           #{e\ 16503}#
-                           #{p\ 16504}#
-                           #{w\ 16505}#
-                           #{r\ 16506}#
-                           #{mod\ 16507}#))))))
-               (#{match*\ 16500}#
-                 (lambda (#{e\ 16520}#
-                          #{p\ 16521}#
-                          #{w\ 16522}#
-                          #{r\ 16523}#
-                          #{mod\ 16524}#)
-                   (if (null? #{p\ 16521}#)
-                     (if (null? #{e\ 16520}#) #{r\ 16523}# #f)
-                     (if (pair? #{p\ 16521}#)
-                       (if (pair? #{e\ 16520}#)
-                         (#{match\ 16502}#
-                           (car #{e\ 16520}#)
-                           (car #{p\ 16521}#)
-                           #{w\ 16522}#
-                           (#{match\ 16502}#
-                             (cdr #{e\ 16520}#)
-                             (cdr #{p\ 16521}#)
-                             #{w\ 16522}#
-                             #{r\ 16523}#
-                             #{mod\ 16524}#)
-                           #{mod\ 16524}#)
+                     (if (eq? #{p\ 3857}# (quote any))
+                       (cons (#{wrap\ 376}#
+                               #{e\ 3856}#
+                               #{w\ 3858}#
+                               #{mod\ 3860}#)
+                             #{r\ 3859}#)
+                       (if (#{syntax-object?\ 271}# #{e\ 3856}#)
+                         (#{match*\ 3853}#
+                           (#{syntax-object-expression\ 273}# #{e\ 3856}#)
+                           #{p\ 3857}#
+