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-110-g3


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-110-g384012a
Date: Fri, 07 May 2010 21:18:29 +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=384012a197ae388ad764234b20e2dbceb056b603

The branch, master has been updated
       via  384012a197ae388ad764234b20e2dbceb056b603 (commit)
       via  2cd72a849f9fd6faa066861210844cc99b56949a (commit)
       via  4f692ace90f2dc75b83aa9e10d9cd107d2ea924e (commit)
      from  b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1 (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 384012a197ae388ad764234b20e2dbceb056b603
Author: Andy Wingo <address@hidden>
Date:   Fri May 7 23:12:34 2010 +0200

    add memoize-begin, memoize-let, etc functions
    
    * libguile/memoize.h:
    * libguile/memoize.c (scm_memoize_begin, scm_memoize_if,
      scm_memoize_lambda, scm_memoize_let, scm_memoize_quote,
      scm_memoize_define, scm_memoize_with_fluids, scm_memoize_call,
      scm_memoize_lexical_ref, scm_memoize_lexical_set,
      scm_memoize_toplevel_ref, scm_memoize_toplevel_set,
      scm_memoize_module_ref, scm_memoize_module_set): New functions, public
      to Scheme but private to C. For use by psyntax, in the future.

commit 2cd72a849f9fd6faa066861210844cc99b56949a
Author: Andy Wingo <address@hidden>
Date:   Fri May 7 22:19:36 2010 +0200

    add "memoizer" data type
    
    * libguile/memoize.h:
    * libguile/memoize.c (MAKMEMO_APPLY): Take the proc and args separately.
      (scm_tc16_memoizer, SCM_MEMOIZER_P, SCM_MEMOIZER): New smob type, for
      "syntax" like @apply that have normal evaluation order.
      (memoize_env_ref_macro, memoize): Refactor to handle "memoizers"
      generically.
    
      Reorganize the list of SCM_SYNTAX forms.
    
      Move @apply, @dynamic-wind, @call-with-current-continuation,
      @call-with-values, @prompt handling down to be generic "memoizer" data
      types.
    
      (scm_memoizer_p, scm_memoizer): New functions, exposed to Scheme. Will
      be used by psyntax.

commit 4f692ace90f2dc75b83aa9e10d9cd107d2ea924e
Author: Andy Wingo <address@hidden>
Date:   Fri May 7 10:51:28 2010 +0200

    macro expanders return memoized expressions
    
    * libguile/eval.c (scm_c_primitive_eval):
    * module/ice-9/eval.scm (primitive-eval): Rely on the expander to
      produce a memoized expression. If the expression is already memoized,
      just pass it through (the equivalent of the old "noexpand" hack).
    
    * libguile/memoize.c (scm_init_memoize): Initialize `memoize-expression'
      as the initial binding of `macroexpand'.
    
    * libguile/modules.c (scm_module_transformer): Before modules are
      booted, look for `macroexpand', not `%pre-modules-transformer'.
    
    * module/ice-9/boot-9.scm: No more %pre-modules-transformer. Loading
      psyntax extends `macroexpand'.
      (make-module): `macroexpand' is the default transformer.
    
    * module/ice-9/psyntax.scm: No more `noexpand'.
      (top-level-eval-hook, local-eval-hook): Instead of annotating with
      noexpand, memoize the expression before handing it to primitive-eval.
      (macroexpand): No more noexpand hack -- in its place we have another
      hack, to memoize the result when running in eval mode.
    * module/ice-9/psyntax-pp.scm: Regenerated.

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

Summary of changes:
 libguile/eval.c             |   10 +-
 libguile/memoize.c          |  374 +-
 libguile/memoize.h          |   18 +
 libguile/modules.c          |   12 +-
 module/ice-9/boot-9.scm     |    9 +-
 module/ice-9/eval.scm       |    7 +-
 module/ice-9/psyntax-pp.scm |16261 ++++++++++++++++++++++---------------------
 module/ice-9/psyntax.scm    |   38 +-
 8 files changed, 8525 insertions(+), 8204 deletions(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index f775d31..f2cbebe 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -844,10 +844,12 @@ scm_for_each (SCM proc, SCM arg1, SCM args)
 static SCM
 scm_c_primitive_eval (SCM exp)
 {
-  SCM transformer = scm_current_module_transformer ();
-  if (scm_is_true (transformer))
-    exp = scm_call_1 (transformer, exp);
-  exp = scm_memoize_expression (exp);
+  if (!SCM_MEMOIZED_P (exp))
+    exp = scm_call_1 (scm_current_module_transformer (), exp);
+  if (!SCM_MEMOIZED_P (exp))
+    scm_misc_error ("primitive-eval",
+                    "expander did not return a memoized expression",
+                    scm_list_1 (exp));
   return eval (exp, SCM_EOL);
 }
 
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 0427cea..75b9c7e 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -191,8 +191,8 @@ scm_t_bits scm_tc16_memoized;
   MAKMEMO (SCM_M_DYNWIND, scm_cons (in, scm_cons (expr, out)))
 #define MAKMEMO_WITH_FLUIDS(fluids, vals, expr) \
   MAKMEMO (SCM_M_WITH_FLUIDS, scm_cons (fluids, scm_cons (vals, expr)))
-#define MAKMEMO_APPLY(exp) \
-  MAKMEMO (SCM_M_APPLY, exp)
+#define MAKMEMO_APPLY(proc, args)\
+  MAKMEMO (SCM_M_APPLY, scm_list_2 (proc, args))
 #define MAKMEMO_CONT(proc) \
   MAKMEMO (SCM_M_CONT, proc)
 #define MAKMEMO_CALL_WITH_VALUES(prod, cons) \
@@ -214,6 +214,12 @@ scm_t_bits scm_tc16_memoized;
 #define MAKMEMO_PROMPT(tag, exp, handler) \
   MAKMEMO (SCM_M_PROMPT, scm_cons (tag, scm_cons (exp, handler)))
 
+
+/* Primitives for the evaluator */
+scm_t_bits scm_tc16_memoizer;
+#define SCM_MEMOIZER_P(x) (SCM_SMOB_PREDICATE (scm_tc16_memoizer, (x)))
+#define SCM_MEMOIZER(M) (SCM_SMOB_OBJECT_1 (M))
+
 
 
 /* This table must agree with the list of M_ constants in memoize.h */
@@ -252,13 +258,9 @@ scm_print_memoized (SCM memoized, SCM port, 
scm_print_state *pstate)
 static SCM scm_m_at (SCM xorig, SCM env);
 static SCM scm_m_atat (SCM xorig, SCM env);
 static SCM scm_m_and (SCM xorig, SCM env);
-static SCM scm_m_apply (SCM xorig, SCM env);
 static SCM scm_m_begin (SCM xorig, SCM env);
-static SCM scm_m_cont (SCM xorig, SCM env);
-static SCM scm_m_at_call_with_values (SCM xorig, SCM env);
 static SCM scm_m_cond (SCM xorig, SCM env);
 static SCM scm_m_define (SCM x, SCM env);
-static SCM scm_m_at_dynamic_wind (SCM xorig, SCM env);
 static SCM scm_m_with_fluids (SCM xorig, SCM env);
 static SCM scm_m_eval_when (SCM xorig, SCM env);
 static SCM scm_m_if (SCM xorig, SCM env);
@@ -267,28 +269,27 @@ static SCM scm_m_let (SCM xorig, SCM env);
 static SCM scm_m_letrec (SCM xorig, SCM env);
 static SCM scm_m_letstar (SCM xorig, SCM env);
 static SCM scm_m_or (SCM xorig, SCM env);
-static SCM scm_m_at_prompt (SCM xorig, SCM env);
 static SCM scm_m_quote (SCM xorig, SCM env);
 static SCM scm_m_set_x (SCM xorig, SCM env);
 
-
 
 
 
-static scm_t_macro_primitive
-memoize_env_ref_transformer (SCM env, SCM x)
+static SCM
+memoize_env_ref_macro (SCM env, SCM x)
 {
   SCM var;
   for (; scm_is_pair (env); env = CDR (env))
     if (scm_is_eq (x, CAR (env)))
-      return NULL; /* lexical */
+      return SCM_BOOL_F; /* lexical */
 
   var = scm_module_variable (env, x);
   if (scm_is_true (var) && scm_is_true (scm_variable_bound_p (var))
-      && scm_is_true (scm_macro_p (scm_variable_ref (var))))
-    return scm_i_macro_primitive (scm_variable_ref (var));
+      && (scm_is_true (scm_macro_p (scm_variable_ref (var)))
+          || SCM_MEMOIZER_P (scm_variable_ref (var))))
+    return scm_variable_ref (var);
   else
-    return NULL; /* anything else */
+    return SCM_BOOL_F; /* anything else */
 }
 
 static int
@@ -321,28 +322,40 @@ memoize (SCM exp, SCM env)
 {
   if (scm_is_pair (exp))
     {
-      SCM CAR;
-      scm_t_macro_primitive trans;
+      SCM car;
+      scm_t_macro_primitive trans = NULL;
+      SCM macro = SCM_BOOL_F, memoizer = SCM_BOOL_F;
       
-      CAR = CAR (exp);
-      if (scm_is_symbol (CAR))
-        trans = memoize_env_ref_transformer (env, CAR);
-      else
-        trans = NULL;
+      car = CAR (exp);
+      if (scm_is_symbol (car))
+        macro = memoize_env_ref_macro (env, car);
       
+      if (scm_is_true (scm_macro_p (macro)))
+        trans = scm_i_macro_primitive (macro);
+      else if (SCM_MEMOIZER_P (macro))
+        memoizer = SCM_MEMOIZER (macro);
+
       if (trans)
         return trans (exp, env);
       else
         {
-          SCM proc;
           SCM args = SCM_EOL;
           int nargs = 0;
-          proc = memoize (CAR (exp), env);
+          SCM proc = CAR (exp);
+          
           for (exp = CDR (exp); scm_is_pair (exp); exp = CDR (exp), nargs++)
             args = scm_cons (memoize (CAR (exp), env), args);
           if (scm_is_null (exp))
-            return MAKMEMO_CALL (proc, nargs,
-                                 scm_reverse_x (args, SCM_UNDEFINED));
+            {
+              if (scm_is_true (memoizer))
+                return scm_apply (memoizer, scm_reverse_x (args, 
SCM_UNDEFINED),
+                                  SCM_EOL);
+              else
+                return MAKMEMO_CALL (memoize (proc, env),
+                                     nargs,
+                                     scm_reverse_x (args, SCM_UNDEFINED));
+            }
+        
           else
             syntax_error ("expected a proper list", exp, SCM_UNDEFINED);
         }
@@ -388,28 +401,27 @@ memoize_sequence (const SCM forms, const SCM env)
 SCM_SNARF_HERE(static const char RANAME[]=STR)\
 SCM_SNARF_INIT(scm_c_define (RANAME, scm_i_make_primitive_macro (RANAME, CFN)))
 
+
+/* True primitive syntax */
 SCM_SYNTAX (s_at, "@", scm_m_at);
 SCM_SYNTAX (s_atat, "@@", scm_m_atat);
-SCM_SYNTAX (s_and, "and", scm_m_and);
 SCM_SYNTAX (s_begin, "begin", scm_m_begin);
-SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_m_cont);
-SCM_SYNTAX (s_at_call_with_values, "@call-with-values", 
scm_m_at_call_with_values);
-SCM_SYNTAX (s_cond, "cond", scm_m_cond);
 SCM_SYNTAX (s_define, "define", scm_m_define);
-SCM_SYNTAX (s_at_dynamic_wind, "@dynamic-wind", scm_m_at_dynamic_wind);
 SCM_SYNTAX (s_with_fluids, "with-fluids", scm_m_with_fluids);
 SCM_SYNTAX (s_eval_when, "eval-when", scm_m_eval_when);
 SCM_SYNTAX (s_if, "if", scm_m_if);
 SCM_SYNTAX (s_lambda, "lambda", scm_m_lambda);
 SCM_SYNTAX (s_let, "let", scm_m_let);
-SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
-SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
-SCM_SYNTAX (s_or, "or", scm_m_or);
-SCM_SYNTAX (s_at_prompt, "@prompt", scm_m_at_prompt);
 SCM_SYNTAX (s_quote, "quote", scm_m_quote);
 SCM_SYNTAX (s_set_x, "set!", scm_m_set_x);
-SCM_SYNTAX (s_atapply, "@apply", scm_m_apply);
 
+/* Convenient syntax during boot, expands to primitive syntax. Replaced after
+   psyntax boots. */
+SCM_SYNTAX (s_and, "and", scm_m_and);
+SCM_SYNTAX (s_cond, "cond", scm_m_cond);
+SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
+SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
+SCM_SYNTAX (s_or, "or", scm_m_or);
 
 SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
 SCM_GLOBAL_SYMBOL (scm_sym_arrow, "=>");
@@ -481,16 +493,6 @@ scm_m_and (SCM expr, SCM env)
 }
 
 static SCM
-scm_m_apply (SCM expr, SCM env)
-{
-  const SCM cdr_expr = CDR (expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) == 2, s_missing_expression, expr);
-
-  return MAKMEMO_APPLY (memoize_exprs (cdr_expr, env));
-}
-
-static SCM
 scm_m_begin (SCM expr, SCM env)
 {
   const SCM cdr_expr = CDR (expr);
@@ -499,27 +501,6 @@ scm_m_begin (SCM expr, SCM env)
 }
 
 static SCM
-scm_m_cont (SCM expr, SCM env)
-{
-  const SCM cdr_expr = CDR (expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) == 1, s_expression, expr);
-
-  return MAKMEMO_CONT (memoize (CADR (expr), env));
-}
-
-static SCM
-scm_m_at_call_with_values (SCM expr, SCM env)
-{
-  const SCM cdr_expr = CDR (expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) == 2, s_expression, expr);
-
-  return MAKMEMO_CALL_WITH_VALUES (memoize (CADR (expr), env),
-                                   memoize (CADDR (expr), env));
-}
-
-static SCM
 scm_m_cond (SCM expr, SCM env)
 {
   /* Check, whether 'else or '=> is a literal, i. e. not bound to a value. */
@@ -625,17 +606,6 @@ scm_m_define (SCM expr, SCM env)
 }
 
 static SCM
-scm_m_at_dynamic_wind (SCM expr, SCM env)
-{
-  const SCM cdr_expr = CDR (expr);
-  ASSERT_SYNTAX (scm_ilength (cdr_expr) == 3, s_bad_expression, expr);
-
-  return MAKMEMO_DYNWIND (memoize (CADR (expr), env),
-                          memoize (CADDR (expr), env),
-                          memoize (CADDDR (expr), env));
-}
-
-static SCM
 scm_m_with_fluids (SCM expr, SCM env)
 {
   SCM binds, fluids, vals;
@@ -975,17 +945,6 @@ scm_m_or (SCM expr, SCM env SCM_UNUSED)
 }
 
 static SCM
-scm_m_at_prompt (SCM expr, SCM env)
-{
-  ASSERT_SYNTAX (scm_ilength (expr) >= 0, s_bad_expression, expr);
-  ASSERT_SYNTAX (scm_ilength (expr) == 4, s_expression, expr);
-
-  return MAKMEMO_PROMPT (memoize (CADR (expr), env),
-                         memoize (CADDR (expr), env),
-                         memoize (CADDDR (expr), env));
-}
-
-static SCM
 scm_m_quote (SCM expr, SCM env SCM_UNUSED)
 {
   SCM quotee;
@@ -1039,8 +998,239 @@ SCM_DEFINE (scm_memoize_expression, 
"memoize-expression", 1, 0, 0,
 }
 #undef FUNC_NAME
 
+
+
+
+#define SCM_MAKE_MEMOIZER(STR, MEMOIZER, N)                             \
+  (scm_cell (scm_tc16_memoizer,                                         \
+             (scm_t_bits)(scm_c_make_gsubr (STR, N, 0, 0, MEMOIZER))))
+#define SCM_DEFINE_MEMOIZER(STR, MEMOIZER, N)                           \
+SCM_SNARF_INIT(scm_c_define (STR, SCM_MAKE_MEMOIZER (STR, MEMOIZER, N)))
+
+static SCM m_apply (SCM proc, SCM args);
+static SCM m_call_cc (SCM proc);
+static SCM m_call_values (SCM prod, SCM cons);
+static SCM m_dynamic_wind (SCM pre, SCM exp, SCM post);
+static SCM m_prompt (SCM tag, SCM exp, SCM handler);
+
+SCM_DEFINE_MEMOIZER ("@apply", m_apply, 2);
+SCM_DEFINE_MEMOIZER ("@call-with-current-continuation", m_call_cc, 1);
+SCM_DEFINE_MEMOIZER ("@call-with-values", m_call_values, 2);
+SCM_DEFINE_MEMOIZER ("@dynamic-wind", m_dynamic_wind, 3);
+SCM_DEFINE_MEMOIZER ("@prompt", m_prompt, 3);
+
+
+
+
+static SCM m_apply (SCM proc, SCM args)
+#define FUNC_NAME "@apply"
+{
+  SCM_VALIDATE_MEMOIZED (1, proc);
+  SCM_VALIDATE_MEMOIZED (2, args);
+  return MAKMEMO_APPLY (proc, args);
+}
+#undef FUNC_NAME
+
+static SCM m_call_cc (SCM proc)
+#define FUNC_NAME "@call-with-current-continuation"
+{
+  SCM_VALIDATE_MEMOIZED (1, proc);
+  return MAKMEMO_CONT (proc);
+}
+#undef FUNC_NAME
+
+static SCM m_call_values (SCM prod, SCM cons)
+#define FUNC_NAME "@call-with-values"
+{
+  SCM_VALIDATE_MEMOIZED (1, prod);
+  SCM_VALIDATE_MEMOIZED (2, cons);
+  return MAKMEMO_CALL_WITH_VALUES (prod, cons);
+}
+#undef FUNC_NAME
+
+static SCM m_dynamic_wind (SCM in, SCM expr, SCM out)
+#define FUNC_NAME "memoize-dynwind"
+{
+  SCM_VALIDATE_MEMOIZED (1, in);
+  SCM_VALIDATE_MEMOIZED (2, expr);
+  SCM_VALIDATE_MEMOIZED (3, out);
+  return MAKMEMO_DYNWIND (in, expr, out);
+}
+#undef FUNC_NAME
+
+static SCM m_prompt (SCM tag, SCM exp, SCM handler)
+#define FUNC_NAME "@prompt"
+{
+  SCM_VALIDATE_MEMOIZED (1, tag);
+  SCM_VALIDATE_MEMOIZED (2, exp);
+  SCM_VALIDATE_MEMOIZED (3, handler);
+  return MAKMEMO_PROMPT (tag, exp, handler);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoizer_p, "memoizer?", 1, 0, 0,
+            (SCM x), "")
+{
+  return scm_from_bool (SCM_MEMOIZER_P (x));
+}
+
+SCM_DEFINE (scm_memoizer, "memoizer", 1, 0, 0,
+            (SCM memoizer), "")
+{
+  SCM_ASSERT (SCM_MEMOIZER_P (memoizer), memoizer, 1, "memoizer?");
+  return SCM_MEMOIZER (memoizer);
+}
+
+
 
 
+#define SCM_VALIDATE_MEMOIZED_LIST(n, exps)                             \
+  {                                                                     \
+    SCM walk;                                                           \
+    for (walk = exps; scm_is_pair (walk); walk = scm_cdr (walk))        \
+      SCM_ASSERT (SCM_MEMOIZED_P (scm_car (walk)), exps, n, FUNC_NAME); \
+    SCM_ASSERT (scm_is_null (walk), exps, n, FUNC_NAME);                \
+  }
+
+SCM_DEFINE (scm_memoize_begin, "memoize-begin", 1, 0, 0,
+            (SCM exps), "")
+#define FUNC_NAME s_scm_memoize_begin
+{
+  SCM_VALIDATE_MEMOIZED_LIST (1, exps);
+  return MAKMEMO_BEGIN (exps);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_if, "memoize-if", 3, 0, 0,
+            (SCM test, SCM then, SCM else_), "")
+#define FUNC_NAME s_scm_memoize_if
+{
+  SCM_VALIDATE_MEMOIZED (1, test);
+  SCM_VALIDATE_MEMOIZED (2, then);
+  SCM_VALIDATE_MEMOIZED (3, else_);
+  return MAKMEMO_IF (test, then, else_);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lambda, "memoize-lambda", 3, 0, 0,
+            (SCM nreq, SCM rest, SCM body), "")
+#define FUNC_NAME s_scm_memoize_lambda
+{
+  SCM_VALIDATE_BOOL (2, rest);
+  SCM_VALIDATE_MEMOIZED (3, body);
+  return MAKMEMO_LAMBDA (scm_to_uint16 (nreq), rest, body);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_let, "memoize-let", 2, 0, 0,
+            (SCM inits, SCM body), "")
+#define FUNC_NAME s_scm_memoize_let
+{
+  SCM_VALIDATE_MEMOIZED_LIST (1, inits);
+  SCM_VALIDATE_MEMOIZED (2, body);
+  return MAKMEMO_LET (inits, body);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_quote, "memoize-quote", 1, 0, 0,
+            (SCM exp), "")
+#define FUNC_NAME s_scm_memoize_quote
+{
+  return MAKMEMO_QUOTE (exp);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_define, "memoize-define", 2, 0, 0,
+            (SCM var, SCM val), "")
+#define FUNC_NAME s_scm_memoize_define
+{
+  SCM_VALIDATE_SYMBOL (1, var);
+  SCM_VALIDATE_MEMOIZED (2, val);
+  return MAKMEMO_DEFINE (var, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_with_fluids, "memoize-with-fluids", 3, 0, 0,
+            (SCM fluids, SCM vals, SCM expr), "")
+#define FUNC_NAME s_scm_memoize_with_fluids
+{
+  SCM_VALIDATE_MEMOIZED_LIST (1, fluids);
+  SCM_VALIDATE_MEMOIZED_LIST (2, vals);
+  SCM_ASSERT (scm_ilength (fluids) == scm_ilength (vals), vals, 2, FUNC_NAME);
+  SCM_VALIDATE_MEMOIZED (3, expr);
+  return MAKMEMO_WITH_FLUIDS (fluids, vals, expr);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_call, "memoize-call", 3, 0, 0,
+            (SCM proc, SCM nargs, SCM args), "")
+#define FUNC_NAME s_scm_memoize_call
+{
+  SCM_VALIDATE_MEMOIZED (1, proc);
+  SCM_VALIDATE_MEMOIZED_LIST (3, args);
+  return MAKMEMO_CALL (proc, scm_to_uint16 (nargs), args);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lexical_ref, "memoize-lexical-ref", 1, 0, 0,
+            (SCM n), "")
+#define FUNC_NAME s_scm_memoize_lexical_ref
+{
+  return MAKMEMO_LEX_REF (scm_to_uint16 (n));
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lexical_set, "memoize-lexical-set!", 2, 0, 0,
+            (SCM n, SCM val), "")
+#define FUNC_NAME s_scm_memoize_lexical_set
+{
+  SCM_VALIDATE_MEMOIZED (1, val);
+  return MAKMEMO_LEX_SET (n, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_toplevel_ref, "memoize-toplevel-ref", 1, 0, 0,
+            (SCM var), "")
+#define FUNC_NAME s_scm_memoize_toplevel_ref
+{
+  SCM_VALIDATE_SYMBOL (1, var);
+  return MAKMEMO_TOP_REF (var);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_toplevel_set, "memoize-toplevel-set!", 2, 0, 0,
+            (SCM var, SCM val), "")
+#define FUNC_NAME s_scm_memoize_toplevel_set
+{
+  SCM_VALIDATE_SYMBOL (1, var);
+  SCM_VALIDATE_MEMOIZED (2, val);
+  return MAKMEMO_TOP_SET (var, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_module_ref, "memoize-module-ref", 3, 0, 0,
+            (SCM mod, SCM var, SCM public), "")
+#define FUNC_NAME s_scm_memoize_module_ref
+{
+  SCM_VALIDATE_SYMBOL (2, var);
+  SCM_VALIDATE_BOOL (3, public);
+  return MAKMEMO_MOD_REF (mod, var, public);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_module_set, "memoize-module-set!", 4, 0, 0,
+            (SCM val, SCM mod, SCM var, SCM public), "")
+#define FUNC_NAME s_scm_memoize_module_set
+{
+  SCM_VALIDATE_MEMOIZED (1, val);
+  SCM_VALIDATE_SYMBOL (3, var);
+  SCM_VALIDATE_BOOL (4, public);
+  return MAKMEMO_MOD_SET (val, mod, var, public);
+}
+#undef FUNC_NAME
+
+
+
 
 SCM_SYMBOL (sym_placeholder, "_");
 
@@ -1174,6 +1364,9 @@ unmemoize (const SCM expr)
     }
 }
 
+
+
+
 SCM_DEFINE (scm_memoized_p, "memoized?", 1, 0, 0, 
             (SCM obj),
            "Return @code{#t} if @var{obj} is memoized.")
@@ -1325,7 +1518,12 @@ scm_init_memoize ()
   scm_set_smob_mark (scm_tc16_memoized, scm_markcdr);
   scm_set_smob_print (scm_tc16_memoized, scm_print_memoized);
 
+  scm_tc16_memoizer = scm_make_smob_type ("memoizer", 0);
+
 #include "libguile/memoize.x"
+
+  scm_c_define ("macroexpand",
+                scm_variable_ref (scm_c_lookup ("memoize-expression")));
 }
 
 /*
diff --git a/libguile/memoize.h b/libguile/memoize.h
index 26bd5b1..c04031e 100644
--- a/libguile/memoize.h
+++ b/libguile/memoize.h
@@ -104,6 +104,24 @@ SCM_INTERNAL SCM scm_memoized_typecode (SCM sym);
 SCM_INTERNAL SCM scm_memoize_variable_access_x (SCM memoized, SCM module);
 SCM_API SCM scm_memoized_p (SCM obj);
 
+SCM_INTERNAL SCM scm_memoizer_p (SCM obj);
+SCM_INTERNAL SCM scm_memoizer (SCM obj);
+
+SCM_INTERNAL SCM scm_memoize_begin (SCM exps);
+SCM_INTERNAL SCM scm_memoize_if (SCM test, SCM then, SCM else_);
+SCM_INTERNAL SCM scm_memoize_lambda (SCM nreq, SCM rest, SCM body);
+SCM_INTERNAL SCM scm_memoize_let (SCM inits, SCM body);
+SCM_INTERNAL SCM scm_memoize_quote (SCM exp);
+SCM_INTERNAL SCM scm_memoize_define (SCM var, SCM val);
+SCM_INTERNAL SCM scm_memoize_with_fluids (SCM fluids, SCM vals, SCM expr);
+SCM_INTERNAL SCM scm_memoize_call (SCM proc, SCM nargs, SCM args);
+SCM_INTERNAL SCM scm_memoize_lexical_ref (SCM n);
+SCM_INTERNAL SCM scm_memoize_lexical_set (SCM n, SCM val);
+SCM_INTERNAL SCM scm_memoize_toplevel_ref (SCM var);
+SCM_INTERNAL SCM scm_memoize_toplevel_set (SCM var, SCM val);
+SCM_INTERNAL SCM scm_memoize_module_ref (SCM mod, SCM var, SCM public);
+SCM_INTERNAL SCM scm_memoize_module_set (SCM val, SCM mod, SCM var, SCM 
public);
+
 SCM_INTERNAL void scm_init_memoize (void);
 
 
diff --git a/libguile/modules.c b/libguile/modules.c
index ac15eaa..a0c47f2 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -564,7 +564,7 @@ scm_current_module_lookup_closure ()
     return SCM_BOOL_F;
 }
 
-SCM_SYMBOL (sym_sys_pre_modules_transformer, "%pre-modules-transformer");
+SCM_SYMBOL (sym_macroexpand, "macroexpand");
 
 SCM_DEFINE (scm_module_transformer, "module-transformer", 1, 0, 0,
            (SCM module),
@@ -572,13 +572,13 @@ SCM_DEFINE (scm_module_transformer, "module-transformer", 
1, 0, 0,
 #define FUNC_NAME s_scm_module_transformer
 {
   if (SCM_UNLIKELY (scm_is_false (module)))
-    { SCM v = scm_hashq_ref (scm_pre_modules_obarray,
-                             sym_sys_pre_modules_transformer,
+    {
+      SCM v = scm_hashq_ref (scm_pre_modules_obarray,
+                             sym_macroexpand,
                              SCM_BOOL_F);
       if (scm_is_false (v))
-        return SCM_BOOL_F;
-      else
-        return SCM_VARIABLE_REF (v);
+        SCM_MISC_ERROR ("no module, and `macroexpand' unbound", SCM_EOL);
+      return SCM_VARIABLE_REF (v);
     }
   else
     {
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 794e929..b2ca4ac 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -357,7 +357,6 @@ If there is no handler at all, Guile prints an error and 
then exits."
 (define generate-temporaries #f)
 (define bound-identifier=? #f)
 (define free-identifier=? #f)
-(define macroexpand #f)
 
 ;; $sc-dispatch is an implementation detail of psyntax. It is used by
 ;; expanded macros, to dispatch an input against a set of patterns.
@@ -365,10 +364,8 @@ If there is no handler at all, Guile prints an error and 
then exits."
 
 ;; Load it up!
 (primitive-load-path "ice-9/psyntax-pp")
-
-;; %pre-modules-transformer is the Scheme expander from now until the
-;; module system has booted up.
-(define %pre-modules-transformer macroexpand)
+;; The binding for `macroexpand' has now been overridden, making psyntax the
+;; expander now.
 
 (define-syntax and
   (syntax-rules ()
@@ -1606,7 +1603,7 @@ If there is no handler at all, Guile prints an error and 
then exits."
              "Lazy-binder expected to be a procedure or #f." binder))
 
         (let ((module (module-constructor (make-hash-table size)
-                                          uses binder #f 
%pre-modules-transformer
+                                          uses binder #f macroexpand
                                           #f #f #f
                                           (make-hash-table 
%default-import-size)
                                           '()
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index e38f2df..a5f885c 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -332,8 +332,7 @@
     (lambda (exp)
       "Evaluate @var{exp} in the current module."
       (eval 
-       (memoize-expression ((or (module-transformer (current-module))
-                                (lambda (x) x))
-                            exp))
+       (if (memoized? exp)
+           exp
+           ((module-transformer (current-module)) exp))
        '()))))
-
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 1ccc7bd..a0446d7 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,638 +1,657 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 20}#
-           (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#)
-             (let ((#{t\ 90}# (null? #{first\ 83}#)))
-               (if #{t\ 90}#
-                 #{t\ 90}#
-                 (if (null? #{rest\ 84}#)
-                   (letrec ((#{andmap\ 94}#
-                              (lambda (#{first\ 95}#)
-                                (let ((#{x\ 98}# (car #{first\ 95}#))
-                                      (#{first\ 99}# (cdr #{first\ 95}#)))
-                                  (if (null? #{first\ 99}#)
-                                    (#{f\ 82}# #{x\ 98}#)
-                                    (if (#{f\ 82}# #{x\ 98}#)
-                                      (#{andmap\ 94}# #{first\ 99}#)
+(letrec ((#{and-map*\ 10951}#
+           (lambda (#{f\ 11013}# #{first\ 11014}# . #{rest\ 11015}#)
+             (let ((#{t\ 11021}# (null? #{first\ 11014}#)))
+               (if #{t\ 11021}#
+                 #{t\ 11021}#
+                 (if (null? #{rest\ 11015}#)
+                   (letrec ((#{andmap\ 11025}#
+                              (lambda (#{first\ 11026}#)
+                                (let ((#{x\ 11029}# (car #{first\ 11026}#))
+                                      (#{first\ 11030}#
+                                        (cdr #{first\ 11026}#)))
+                                  (if (null? #{first\ 11030}#)
+                                    (#{f\ 11013}# #{x\ 11029}#)
+                                    (if (#{f\ 11013}# #{x\ 11029}#)
+                                      (#{andmap\ 11025}# #{first\ 11030}#)
                                       #f))))))
-                     (#{andmap\ 94}# #{first\ 83}#))
-                   (letrec ((#{andmap\ 105}#
-                              (lambda (#{first\ 106}# #{rest\ 107}#)
-                                (let ((#{x\ 112}# (car #{first\ 106}#))
-                                      (#{xr\ 113}# (map car #{rest\ 107}#))
-                                      (#{first\ 114}# (cdr #{first\ 106}#))
-                                      (#{rest\ 115}# (map cdr #{rest\ 107}#)))
-                                  (if (null? #{first\ 114}#)
-                                    (apply #{f\ 82}#
-                                           (cons #{x\ 112}# #{xr\ 113}#))
-                                    (if (apply #{f\ 82}#
-                                               (cons #{x\ 112}# #{xr\ 113}#))
-                                      (#{andmap\ 105}#
-                                        #{first\ 114}#
-                                        #{rest\ 115}#)
+                     (#{andmap\ 11025}# #{first\ 11014}#))
+                   (letrec ((#{andmap\ 11036}#
+                              (lambda (#{first\ 11037}# #{rest\ 11038}#)
+                                (let ((#{x\ 11043}# (car #{first\ 11037}#))
+                                      (#{xr\ 11044}# (map car #{rest\ 11038}#))
+                                      (#{first\ 11045}# (cdr #{first\ 11037}#))
+                                      (#{rest\ 11046}#
+                                        (map cdr #{rest\ 11038}#)))
+                                  (if (null? #{first\ 11045}#)
+                                    (apply #{f\ 11013}#
+                                           (cons #{x\ 11043}# #{xr\ 11044}#))
+                                    (if (apply #{f\ 11013}#
+                                               (cons #{x\ 11043}#
+                                                     #{xr\ 11044}#))
+                                      (#{andmap\ 11036}#
+                                        #{first\ 11045}#
+                                        #{rest\ 11046}#)
                                       #f))))))
-                     (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#))))))))
-  (letrec ((#{lambda-var-list\ 337}#
-             (lambda (#{vars\ 552}#)
-               (letrec ((#{lvl\ 558}#
-                          (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#)
-                            (if (pair? #{vars\ 559}#)
-                              (#{lvl\ 558}#
-                                (cdr #{vars\ 559}#)
-                                (cons (#{wrap\ 291}#
-                                        (car #{vars\ 559}#)
-                                        #{w\ 561}#
+                     (#{andmap\ 11036}#
+                       #{first\ 11014}#
+                       #{rest\ 11015}#))))))))
+  (letrec ((#{lambda-var-list\ 11266}#
+             (lambda (#{vars\ 11481}#)
+               (letrec ((#{lvl\ 11487}#
+                          (lambda (#{vars\ 11488}# #{ls\ 11489}# #{w\ 11490}#)
+                            (if (pair? #{vars\ 11488}#)
+                              (#{lvl\ 11487}#
+                                (cdr #{vars\ 11488}#)
+                                (cons (#{wrap\ 11220}#
+                                        (car #{vars\ 11488}#)
+                                        #{w\ 11490}#
                                         #f)
-                                      #{ls\ 560}#)
-                                #{w\ 561}#)
-                              (if (#{id?\ 222}# #{vars\ 559}#)
-                                (cons (#{wrap\ 291}#
-                                        #{vars\ 559}#
-                                        #{w\ 561}#
+                                      #{ls\ 11489}#)
+                                #{w\ 11490}#)
+                              (if (#{id?\ 11151}# #{vars\ 11488}#)
+                                (cons (#{wrap\ 11220}#
+                                        #{vars\ 11488}#
+                                        #{w\ 11490}#
                                         #f)
-                                      #{ls\ 560}#)
-                                (if (null? #{vars\ 559}#)
-                                  #{ls\ 560}#
-                                  (if (#{syntax-object?\ 186}# #{vars\ 559}#)
-                                    (#{lvl\ 558}#
-                                      (#{syntax-object-expression\ 188}#
-                                        #{vars\ 559}#)
-                                      #{ls\ 560}#
-                                      (#{join-wraps\ 273}#
-                                        #{w\ 561}#
-                                        (#{syntax-object-wrap\ 190}#
-                                          #{vars\ 559}#)))
-                                    (cons #{vars\ 559}# #{ls\ 560}#))))))))
-                 (#{lvl\ 558}#
-                   #{vars\ 552}#
+                                      #{ls\ 11489}#)
+                                (if (null? #{vars\ 11488}#)
+                                  #{ls\ 11489}#
+                                  (if (#{syntax-object?\ 11115}#
+                                        #{vars\ 11488}#)
+                                    (#{lvl\ 11487}#
+                                      (#{syntax-object-expression\ 11117}#
+                                        #{vars\ 11488}#)
+                                      #{ls\ 11489}#
+                                      (#{join-wraps\ 11202}#
+                                        #{w\ 11490}#
+                                        (#{syntax-object-wrap\ 11119}#
+                                          #{vars\ 11488}#)))
+                                    (cons #{vars\ 11488}# #{ls\ 11489}#))))))))
+                 (#{lvl\ 11487}#
+                   #{vars\ 11481}#
                    '()
                    '(())))))
-           (#{gen-var\ 335}#
-             (lambda (#{id\ 572}#)
-               (let ((#{id\ 575}#
-                       (if (#{syntax-object?\ 186}# #{id\ 572}#)
-                         (#{syntax-object-expression\ 188}# #{id\ 572}#)
-                         #{id\ 572}#)))
+           (#{gen-var\ 11264}#
+             (lambda (#{id\ 11501}#)
+               (let ((#{id\ 11504}#
+                       (if (#{syntax-object?\ 11115}# #{id\ 11501}#)
+                         (#{syntax-object-expression\ 11117}#
+                           #{id\ 11501}#)
+                         #{id\ 11501}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 575}#) " ")))))
-           (#{strip\ 333}#
-             (lambda (#{x\ 577}# #{w\ 578}#)
+                   (string-append
+                     (symbol->string #{id\ 11504}#)
+                     " ")))))
+           (#{strip\ 11262}#
+             (lambda (#{x\ 11506}# #{w\ 11507}#)
                (if (memq 'top
-                         (#{wrap-marks\ 229}# #{w\ 578}#))
-                 #{x\ 577}#
-                 (letrec ((#{f\ 584}# (lambda (#{x\ 585}#)
-                                        (if (#{syntax-object?\ 186}#
-                                              #{x\ 585}#)
-                                          (#{strip\ 333}#
-                                            (#{syntax-object-expression\ 188}#
-                                              #{x\ 585}#)
-                                            (#{syntax-object-wrap\ 190}#
-                                              #{x\ 585}#))
-                                          (if (pair? #{x\ 585}#)
-                                            (let ((#{a\ 592}# (#{f\ 584}# (car 
#{x\ 585}#)))
-                                                  (#{d\ 593}# (#{f\ 584}# (cdr 
#{x\ 585}#))))
-                                              (if (if (eq? #{a\ 592}#
-                                                           (car #{x\ 585}#))
-                                                    (eq? #{d\ 593}#
-                                                         (cdr #{x\ 585}#))
-                                                    #f)
-                                                #{x\ 585}#
-                                                (cons #{a\ 592}# #{d\ 593}#)))
-                                            (if (vector? #{x\ 585}#)
-                                              (let ((#{old\ 599}#
-                                                      (vector->list
-                                                        #{x\ 585}#)))
-                                                (let ((#{new\ 601}#
-                                                        (map #{f\ 584}#
-                                                             #{old\ 599}#)))
-                                                  (if (#{and-map*\ 20}#
-                                                        eq?
-                                                        #{old\ 599}#
-                                                        #{new\ 601}#)
-                                                    #{x\ 585}#
-                                                    (list->vector
-                                                      #{new\ 601}#))))
-                                              #{x\ 585}#))))))
-                   (#{f\ 584}# #{x\ 577}#)))))
-           (#{chi-lambda-case\ 331}#
-             (lambda (#{e\ 603}#
-                      #{r\ 604}#
-                      #{w\ 605}#
-                      #{s\ 606}#
-                      #{mod\ 607}#
-                      #{get-formals\ 608}#
-                      #{clauses\ 609}#)
-               (letrec ((#{expand-body\ 624}#
-                          (lambda (#{req\ 625}#
-                                   #{opt\ 626}#
-                                   #{rest\ 627}#
-                                   #{kw\ 628}#
-                                   #{body\ 629}#
-                                   #{vars\ 630}#
-                                   #{r*\ 631}#
-                                   #{w*\ 632}#
-                                   #{inits\ 633}#
-                                   #{meta\ 634}#)
-                            ((lambda (#{tmp\ 645}#)
-                               ((lambda (#{tmp\ 646}#)
-                                  (if (if #{tmp\ 646}#
-                                        (apply (lambda (#{docstring\ 650}#
-                                                        #{e1\ 651}#
-                                                        #{e2\ 652}#)
+                         (#{wrap-marks\ 11158}# #{w\ 11507}#))
+                 #{x\ 11506}#
+                 (letrec ((#{f\ 11513}#
+                            (lambda (#{x\ 11514}#)
+                              (if (#{syntax-object?\ 11115}# #{x\ 11514}#)
+                                (#{strip\ 11262}#
+                                  (#{syntax-object-expression\ 11117}#
+                                    #{x\ 11514}#)
+                                  (#{syntax-object-wrap\ 11119}# #{x\ 11514}#))
+                                (if (pair? #{x\ 11514}#)
+                                  (let ((#{a\ 11521}#
+                                          (#{f\ 11513}# (car #{x\ 11514}#)))
+                                        (#{d\ 11522}#
+                                          (#{f\ 11513}# (cdr #{x\ 11514}#))))
+                                    (if (if (eq? #{a\ 11521}#
+                                                 (car #{x\ 11514}#))
+                                          (eq? #{d\ 11522}# (cdr #{x\ 11514}#))
+                                          #f)
+                                      #{x\ 11514}#
+                                      (cons #{a\ 11521}# #{d\ 11522}#)))
+                                  (if (vector? #{x\ 11514}#)
+                                    (let ((#{old\ 11528}#
+                                            (vector->list #{x\ 11514}#)))
+                                      (let ((#{new\ 11530}#
+                                              (map #{f\ 11513}#
+                                                   #{old\ 11528}#)))
+                                        (if (#{and-map*\ 10951}#
+                                              eq?
+                                              #{old\ 11528}#
+                                              #{new\ 11530}#)
+                                          #{x\ 11514}#
+                                          (list->vector #{new\ 11530}#))))
+                                    #{x\ 11514}#))))))
+                   (#{f\ 11513}# #{x\ 11506}#)))))
+           (#{chi-lambda-case\ 11260}#
+             (lambda (#{e\ 11532}#
+                      #{r\ 11533}#
+                      #{w\ 11534}#
+                      #{s\ 11535}#
+                      #{mod\ 11536}#
+                      #{get-formals\ 11537}#
+                      #{clauses\ 11538}#)
+               (letrec ((#{expand-body\ 11553}#
+                          (lambda (#{req\ 11554}#
+                                   #{opt\ 11555}#
+                                   #{rest\ 11556}#
+                                   #{kw\ 11557}#
+                                   #{body\ 11558}#
+                                   #{vars\ 11559}#
+                                   #{r*\ 11560}#
+                                   #{w*\ 11561}#
+                                   #{inits\ 11562}#
+                                   #{meta\ 11563}#)
+                            ((lambda (#{tmp\ 11574}#)
+                               ((lambda (#{tmp\ 11575}#)
+                                  (if (if #{tmp\ 11575}#
+                                        (apply (lambda (#{docstring\ 11579}#
+                                                        #{e1\ 11580}#
+                                                        #{e2\ 11581}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 650}#)))
-                                               #{tmp\ 646}#)
+                                                     #{docstring\ 11579}#)))
+                                               #{tmp\ 11575}#)
                                         #f)
-                                    (apply (lambda (#{docstring\ 656}#
-                                                    #{e1\ 657}#
-                                                    #{e2\ 658}#)
-                                             (#{expand-body\ 624}#
-                                               #{req\ 625}#
-                                               #{opt\ 626}#
-                                               #{rest\ 627}#
-                                               #{kw\ 628}#
-                                               (cons #{e1\ 657}# #{e2\ 658}#)
-                                               #{vars\ 630}#
-                                               #{r*\ 631}#
-                                               #{w*\ 632}#
-                                               #{inits\ 633}#
+                                    (apply (lambda (#{docstring\ 11585}#
+                                                    #{e1\ 11586}#
+                                                    #{e2\ 11587}#)
+                                             (#{expand-body\ 11553}#
+                                               #{req\ 11554}#
+                                               #{opt\ 11555}#
+                                               #{rest\ 11556}#
+                                               #{kw\ 11557}#
+                                               (cons #{e1\ 11586}#
+                                                     #{e2\ 11587}#)
+                                               #{vars\ 11559}#
+                                               #{r*\ 11560}#
+                                               #{w*\ 11561}#
+                                               #{inits\ 11562}#
                                                (append
-                                                 #{meta\ 634}#
+                                                 #{meta\ 11563}#
                                                  (list (cons 'documentation
                                                              (syntax->datum
-                                                               #{docstring\ 
656}#))))))
-                                           #{tmp\ 646}#)
-                                    ((lambda (#{tmp\ 661}#)
-                                       (if #{tmp\ 661}#
-                                         (apply (lambda (#{k\ 666}#
-                                                         #{v\ 667}#
-                                                         #{e1\ 668}#
-                                                         #{e2\ 669}#)
-                                                  (#{expand-body\ 624}#
-                                                    #{req\ 625}#
-                                                    #{opt\ 626}#
-                                                    #{rest\ 627}#
-                                                    #{kw\ 628}#
-                                                    (cons #{e1\ 668}#
-                                                          #{e2\ 669}#)
-                                                    #{vars\ 630}#
-                                                    #{r*\ 631}#
-                                                    #{w*\ 632}#
-                                                    #{inits\ 633}#
+                                                               #{docstring\ 
11585}#))))))
+                                           #{tmp\ 11575}#)
+                                    ((lambda (#{tmp\ 11590}#)
+                                       (if #{tmp\ 11590}#
+                                         (apply (lambda (#{k\ 11595}#
+                                                         #{v\ 11596}#
+                                                         #{e1\ 11597}#
+                                                         #{e2\ 11598}#)
+                                                  (#{expand-body\ 11553}#
+                                                    #{req\ 11554}#
+                                                    #{opt\ 11555}#
+                                                    #{rest\ 11556}#
+                                                    #{kw\ 11557}#
+                                                    (cons #{e1\ 11597}#
+                                                          #{e2\ 11598}#)
+                                                    #{vars\ 11559}#
+                                                    #{r*\ 11560}#
+                                                    #{w*\ 11561}#
+                                                    #{inits\ 11562}#
                                                     (append
-                                                      #{meta\ 634}#
+                                                      #{meta\ 11563}#
                                                       (syntax->datum
                                                         (map cons
-                                                             #{k\ 666}#
-                                                             #{v\ 667}#)))))
-                                                #{tmp\ 661}#)
-                                         ((lambda (#{tmp\ 673}#)
-                                            (if #{tmp\ 673}#
-                                              (apply (lambda (#{e1\ 676}#
-                                                              #{e2\ 677}#)
+                                                             #{k\ 11595}#
+                                                             #{v\ 11596}#)))))
+                                                #{tmp\ 11590}#)
+                                         ((lambda (#{tmp\ 11602}#)
+                                            (if #{tmp\ 11602}#
+                                              (apply (lambda (#{e1\ 11605}#
+                                                              #{e2\ 11606}#)
                                                        (values
-                                                         #{meta\ 634}#
-                                                         #{req\ 625}#
-                                                         #{opt\ 626}#
-                                                         #{rest\ 627}#
-                                                         #{kw\ 628}#
-                                                         #{inits\ 633}#
-                                                         #{vars\ 630}#
-                                                         (#{chi-body\ 315}#
-                                                           (cons #{e1\ 676}#
-                                                                 #{e2\ 677}#)
-                                                           (#{source-wrap\ 
293}#
-                                                             #{e\ 603}#
-                                                             #{w\ 605}#
-                                                             #{s\ 606}#
-                                                             #{mod\ 607}#)
-                                                           #{r*\ 631}#
-                                                           #{w*\ 632}#
-                                                           #{mod\ 607}#)))
-                                                     #{tmp\ 673}#)
+                                                         #{meta\ 11563}#
+                                                         #{req\ 11554}#
+                                                         #{opt\ 11555}#
+                                                         #{rest\ 11556}#
+                                                         #{kw\ 11557}#
+                                                         #{inits\ 11562}#
+                                                         #{vars\ 11559}#
+                                                         (#{chi-body\ 11244}#
+                                                           (cons #{e1\ 11605}#
+                                                                 #{e2\ 11606}#)
+                                                           (#{source-wrap\ 
11222}#
+                                                             #{e\ 11532}#
+                                                             #{w\ 11534}#
+                                                             #{s\ 11535}#
+                                                             #{mod\ 11536}#)
+                                                           #{r*\ 11560}#
+                                                           #{w*\ 11561}#
+                                                           #{mod\ 11536}#)))
+                                                     #{tmp\ 11602}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to 
match any pattern"
-                                                #{tmp\ 645}#)))
+                                                #{tmp\ 11574}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 645}#
+                                            #{tmp\ 11574}#
                                             '(any . each-any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 645}#
+                                       #{tmp\ 11574}#
                                        '(#(vector #(each (any . any)))
                                          any
                                          .
                                          each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 645}#
+                                  #{tmp\ 11574}#
                                   '(any any . each-any))))
-                             #{body\ 629}#)))
-                        (#{expand-kw\ 622}#
-                          (lambda (#{req\ 679}#
-                                   #{opt\ 680}#
-                                   #{rest\ 681}#
-                                   #{kw\ 682}#
-                                   #{body\ 683}#
-                                   #{vars\ 684}#
-                                   #{r*\ 685}#
-                                   #{w*\ 686}#
-                                   #{aok\ 687}#
-                                   #{out\ 688}#
-                                   #{inits\ 689}#)
-                            (if (pair? #{kw\ 682}#)
-                              ((lambda (#{tmp\ 703}#)
-                                 ((lambda (#{tmp\ 704}#)
-                                    (if #{tmp\ 704}#
-                                      (apply (lambda (#{k\ 708}#
-                                                      #{id\ 709}#
-                                                      #{i\ 710}#)
-                                               (let ((#{v\ 713}# (#{gen-var\ 
335}#
-                                                                   #{id\ 
709}#)))
-                                                 (let ((#{l\ 715}# 
(#{gen-labels\ 240}#
-                                                                     (list 
#{v\ 713}#))))
-                                                   (let ((#{r**\ 717}#
-                                                           (#{extend-var-env\ 
212}#
-                                                             #{l\ 715}#
-                                                             (list #{v\ 713}#)
-                                                             #{r*\ 685}#)))
-                                                     (let ((#{w**\ 719}#
-                                                             
(#{make-binding-wrap\ 269}#
-                                                               (list #{id\ 
709}#)
-                                                               #{l\ 715}#
-                                                               #{w*\ 686}#)))
-                                                       (#{expand-kw\ 622}#
-                                                         #{req\ 679}#
-                                                         #{opt\ 680}#
-                                                         #{rest\ 681}#
-                                                         (cdr #{kw\ 682}#)
-                                                         #{body\ 683}#
-                                                         (cons #{v\ 713}#
-                                                               #{vars\ 684}#)
-                                                         #{r**\ 717}#
-                                                         #{w**\ 719}#
-                                                         #{aok\ 687}#
+                             #{body\ 11558}#)))
+                        (#{expand-kw\ 11551}#
+                          (lambda (#{req\ 11608}#
+                                   #{opt\ 11609}#
+                                   #{rest\ 11610}#
+                                   #{kw\ 11611}#
+                                   #{body\ 11612}#
+                                   #{vars\ 11613}#
+                                   #{r*\ 11614}#
+                                   #{w*\ 11615}#
+                                   #{aok\ 11616}#
+                                   #{out\ 11617}#
+                                   #{inits\ 11618}#)
+                            (if (pair? #{kw\ 11611}#)
+                              ((lambda (#{tmp\ 11632}#)
+                                 ((lambda (#{tmp\ 11633}#)
+                                    (if #{tmp\ 11633}#
+                                      (apply (lambda (#{k\ 11637}#
+                                                      #{id\ 11638}#
+                                                      #{i\ 11639}#)
+                                               (let ((#{v\ 11642}#
+                                                       (#{gen-var\ 11264}#
+                                                         #{id\ 11638}#)))
+                                                 (let ((#{l\ 11644}#
+                                                         (#{gen-labels\ 11169}#
+                                                           (list #{v\ 
11642}#))))
+                                                   (let ((#{r**\ 11646}#
+                                                           (#{extend-var-env\ 
11141}#
+                                                             #{l\ 11644}#
+                                                             (list #{v\ 
11642}#)
+                                                             #{r*\ 11614}#)))
+                                                     (let ((#{w**\ 11648}#
+                                                             
(#{make-binding-wrap\ 11198}#
+                                                               (list #{id\ 
11638}#)
+                                                               #{l\ 11644}#
+                                                               #{w*\ 11615}#)))
+                                                       (#{expand-kw\ 11551}#
+                                                         #{req\ 11608}#
+                                                         #{opt\ 11609}#
+                                                         #{rest\ 11610}#
+                                                         (cdr #{kw\ 11611}#)
+                                                         #{body\ 11612}#
+                                                         (cons #{v\ 11642}#
+                                                               #{vars\ 11613}#)
+                                                         #{r**\ 11646}#
+                                                         #{w**\ 11648}#
+                                                         #{aok\ 11616}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
708}#)
+                                                                       #{k\ 
11637}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
709}#)
-                                                                     #{v\ 
713}#)
-                                                               #{out\ 688}#)
-                                                         (cons (#{chi\ 307}#
-                                                                 #{i\ 710}#
-                                                                 #{r*\ 685}#
-                                                                 #{w*\ 686}#
-                                                                 #{mod\ 607}#)
-                                                               #{inits\ 
689}#)))))))
-                                             #{tmp\ 704}#)
+                                                                       #{id\ 
11638}#)
+                                                                     #{v\ 
11642}#)
+                                                               #{out\ 11617}#)
+                                                         (cons (#{chi\ 11236}#
+                                                                 #{i\ 11639}#
+                                                                 #{r*\ 11614}#
+                                                                 #{w*\ 11615}#
+                                                                 #{mod\ 
11536}#)
+                                                               #{inits\ 
11618}#)))))))
+                                             #{tmp\ 11633}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 703}#)))
+                                        #{tmp\ 11632}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 703}#
+                                    #{tmp\ 11632}#
                                     '(any any any))))
-                               (car #{kw\ 682}#))
-                              (#{expand-body\ 624}#
-                                #{req\ 679}#
-                                #{opt\ 680}#
-                                #{rest\ 681}#
-                                (if (let ((#{t\ 723}# #{aok\ 687}#))
-                                      (if #{t\ 723}#
-                                        #{t\ 723}#
-                                        (pair? #{out\ 688}#)))
-                                  (cons #{aok\ 687}# (reverse #{out\ 688}#))
+                               (car #{kw\ 11611}#))
+                              (#{expand-body\ 11553}#
+                                #{req\ 11608}#
+                                #{opt\ 11609}#
+                                #{rest\ 11610}#
+                                (if (let ((#{t\ 11652}# #{aok\ 11616}#))
+                                      (if #{t\ 11652}#
+                                        #{t\ 11652}#
+                                        (pair? #{out\ 11617}#)))
+                                  (cons #{aok\ 11616}#
+                                        (reverse #{out\ 11617}#))
                                   #f)
-                                #{body\ 683}#
-                                (reverse #{vars\ 684}#)
-                                #{r*\ 685}#
-                                #{w*\ 686}#
-                                (reverse #{inits\ 689}#)
+                                #{body\ 11612}#
+                                (reverse #{vars\ 11613}#)
+                                #{r*\ 11614}#
+                                #{w*\ 11615}#
+                                (reverse #{inits\ 11618}#)
                                 '()))))
-                        (#{expand-opt\ 620}#
-                          (lambda (#{req\ 725}#
-                                   #{opt\ 726}#
-                                   #{rest\ 727}#
-                                   #{kw\ 728}#
-                                   #{body\ 729}#
-                                   #{vars\ 730}#
-                                   #{r*\ 731}#
-                                   #{w*\ 732}#
-                                   #{out\ 733}#
-                                   #{inits\ 734}#)
-                            (if (pair? #{opt\ 726}#)
-                              ((lambda (#{tmp\ 747}#)
-                                 ((lambda (#{tmp\ 748}#)
-                                    (if #{tmp\ 748}#
-                                      (apply (lambda (#{id\ 751}# #{i\ 752}#)
-                                               (let ((#{v\ 755}# (#{gen-var\ 
335}#
-                                                                   #{id\ 
751}#)))
-                                                 (let ((#{l\ 757}# 
(#{gen-labels\ 240}#
-                                                                     (list 
#{v\ 755}#))))
-                                                   (let ((#{r**\ 759}#
-                                                           (#{extend-var-env\ 
212}#
-                                                             #{l\ 757}#
-                                                             (list #{v\ 755}#)
-                                                             #{r*\ 731}#)))
-                                                     (let ((#{w**\ 761}#
-                                                             
(#{make-binding-wrap\ 269}#
-                                                               (list #{id\ 
751}#)
-                                                               #{l\ 757}#
-                                                               #{w*\ 732}#)))
-                                                       (#{expand-opt\ 620}#
-                                                         #{req\ 725}#
-                                                         (cdr #{opt\ 726}#)
-                                                         #{rest\ 727}#
-                                                         #{kw\ 728}#
-                                                         #{body\ 729}#
-                                                         (cons #{v\ 755}#
-                                                               #{vars\ 730}#)
-                                                         #{r**\ 759}#
-                                                         #{w**\ 761}#
+                        (#{expand-opt\ 11549}#
+                          (lambda (#{req\ 11654}#
+                                   #{opt\ 11655}#
+                                   #{rest\ 11656}#
+                                   #{kw\ 11657}#
+                                   #{body\ 11658}#
+                                   #{vars\ 11659}#
+                                   #{r*\ 11660}#
+                                   #{w*\ 11661}#
+                                   #{out\ 11662}#
+                                   #{inits\ 11663}#)
+                            (if (pair? #{opt\ 11655}#)
+                              ((lambda (#{tmp\ 11676}#)
+                                 ((lambda (#{tmp\ 11677}#)
+                                    (if #{tmp\ 11677}#
+                                      (apply (lambda (#{id\ 11680}#
+                                                      #{i\ 11681}#)
+                                               (let ((#{v\ 11684}#
+                                                       (#{gen-var\ 11264}#
+                                                         #{id\ 11680}#)))
+                                                 (let ((#{l\ 11686}#
+                                                         (#{gen-labels\ 11169}#
+                                                           (list #{v\ 
11684}#))))
+                                                   (let ((#{r**\ 11688}#
+                                                           (#{extend-var-env\ 
11141}#
+                                                             #{l\ 11686}#
+                                                             (list #{v\ 
11684}#)
+                                                             #{r*\ 11660}#)))
+                                                     (let ((#{w**\ 11690}#
+                                                             
(#{make-binding-wrap\ 11198}#
+                                                               (list #{id\ 
11680}#)
+                                                               #{l\ 11686}#
+                                                               #{w*\ 11661}#)))
+                                                       (#{expand-opt\ 11549}#
+                                                         #{req\ 11654}#
+                                                         (cdr #{opt\ 11655}#)
+                                                         #{rest\ 11656}#
+                                                         #{kw\ 11657}#
+                                                         #{body\ 11658}#
+                                                         (cons #{v\ 11684}#
+                                                               #{vars\ 11659}#)
+                                                         #{r**\ 11688}#
+                                                         #{w**\ 11690}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 751}#)
-                                                               #{out\ 733}#)
-                                                         (cons (#{chi\ 307}#
-                                                                 #{i\ 752}#
-                                                                 #{r*\ 731}#
-                                                                 #{w*\ 732}#
-                                                                 #{mod\ 607}#)
-                                                               #{inits\ 
734}#)))))))
-                                             #{tmp\ 748}#)
+                                                                 #{id\ 11680}#)
+                                                               #{out\ 11662}#)
+                                                         (cons (#{chi\ 11236}#
+                                                                 #{i\ 11681}#
+                                                                 #{r*\ 11660}#
+                                                                 #{w*\ 11661}#
+                                                                 #{mod\ 
11536}#)
+                                                               #{inits\ 
11663}#)))))))
+                                             #{tmp\ 11677}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 747}#)))
+                                        #{tmp\ 11676}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 747}#
+                                    #{tmp\ 11676}#
                                     '(any any))))
-                               (car #{opt\ 726}#))
-                              (if #{rest\ 727}#
-                                (let ((#{v\ 766}# (#{gen-var\ 335}#
-                                                    #{rest\ 727}#)))
-                                  (let ((#{l\ 768}# (#{gen-labels\ 240}#
-                                                      (list #{v\ 766}#))))
-                                    (let ((#{r*\ 770}#
-                                            (#{extend-var-env\ 212}#
-                                              #{l\ 768}#
-                                              (list #{v\ 766}#)
-                                              #{r*\ 731}#)))
-                                      (let ((#{w*\ 772}#
-                                              (#{make-binding-wrap\ 269}#
-                                                (list #{rest\ 727}#)
-                                                #{l\ 768}#
-                                                #{w*\ 732}#)))
-                                        (#{expand-kw\ 622}#
-                                          #{req\ 725}#
-                                          (if (pair? #{out\ 733}#)
-                                            (reverse #{out\ 733}#)
+                               (car #{opt\ 11655}#))
+                              (if #{rest\ 11656}#
+                                (let ((#{v\ 11695}#
+                                        (#{gen-var\ 11264}# #{rest\ 11656}#)))
+                                  (let ((#{l\ 11697}#
+                                          (#{gen-labels\ 11169}#
+                                            (list #{v\ 11695}#))))
+                                    (let ((#{r*\ 11699}#
+                                            (#{extend-var-env\ 11141}#
+                                              #{l\ 11697}#
+                                              (list #{v\ 11695}#)
+                                              #{r*\ 11660}#)))
+                                      (let ((#{w*\ 11701}#
+                                              (#{make-binding-wrap\ 11198}#
+                                                (list #{rest\ 11656}#)
+                                                #{l\ 11697}#
+                                                #{w*\ 11661}#)))
+                                        (#{expand-kw\ 11551}#
+                                          #{req\ 11654}#
+                                          (if (pair? #{out\ 11662}#)
+                                            (reverse #{out\ 11662}#)
                                             #f)
-                                          (syntax->datum #{rest\ 727}#)
-                                          (if (pair? #{kw\ 728}#)
-                                            (cdr #{kw\ 728}#)
-                                            #{kw\ 728}#)
-                                          #{body\ 729}#
-                                          (cons #{v\ 766}# #{vars\ 730}#)
-                                          #{r*\ 770}#
-                                          #{w*\ 772}#
-                                          (if (pair? #{kw\ 728}#)
-                                            (car #{kw\ 728}#)
+                                          (syntax->datum #{rest\ 11656}#)
+                                          (if (pair? #{kw\ 11657}#)
+                                            (cdr #{kw\ 11657}#)
+                                            #{kw\ 11657}#)
+                                          #{body\ 11658}#
+                                          (cons #{v\ 11695}# #{vars\ 11659}#)
+                                          #{r*\ 11699}#
+                                          #{w*\ 11701}#
+                                          (if (pair? #{kw\ 11657}#)
+                                            (car #{kw\ 11657}#)
                                             #f)
                                           '()
-                                          #{inits\ 734}#)))))
-                                (#{expand-kw\ 622}#
-                                  #{req\ 725}#
-                                  (if (pair? #{out\ 733}#)
-                                    (reverse #{out\ 733}#)
+                                          #{inits\ 11663}#)))))
+                                (#{expand-kw\ 11551}#
+                                  #{req\ 11654}#
+                                  (if (pair? #{out\ 11662}#)
+                                    (reverse #{out\ 11662}#)
                                     #f)
                                   #f
-                                  (if (pair? #{kw\ 728}#)
-                                    (cdr #{kw\ 728}#)
-                                    #{kw\ 728}#)
-                                  #{body\ 729}#
-                                  #{vars\ 730}#
-                                  #{r*\ 731}#
-                                  #{w*\ 732}#
-                                  (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f)
+                                  (if (pair? #{kw\ 11657}#)
+                                    (cdr #{kw\ 11657}#)
+                                    #{kw\ 11657}#)
+                                  #{body\ 11658}#
+                                  #{vars\ 11659}#
+                                  #{r*\ 11660}#
+                                  #{w*\ 11661}#
+                                  (if (pair? #{kw\ 11657}#)
+                                    (car #{kw\ 11657}#)
+                                    #f)
                                   '()
-                                  #{inits\ 734}#)))))
-                        (#{expand-req\ 618}#
-                          (lambda (#{req\ 774}#
-                                   #{opt\ 775}#
-                                   #{rest\ 776}#
-                                   #{kw\ 777}#
-                                   #{body\ 778}#)
-                            (let ((#{vars\ 786}#
-                                    (map #{gen-var\ 335}# #{req\ 774}#))
-                                  (#{labels\ 787}#
-                                    (#{gen-labels\ 240}# #{req\ 774}#)))
-                              (let ((#{r*\ 790}#
-                                      (#{extend-var-env\ 212}#
-                                        #{labels\ 787}#
-                                        #{vars\ 786}#
-                                        #{r\ 604}#))
-                                    (#{w*\ 791}#
-                                      (#{make-binding-wrap\ 269}#
-                                        #{req\ 774}#
-                                        #{labels\ 787}#
-                                        #{w\ 605}#)))
-                                (#{expand-opt\ 620}#
-                                  (map syntax->datum #{req\ 774}#)
-                                  #{opt\ 775}#
-                                  #{rest\ 776}#
-                                  #{kw\ 777}#
-                                  #{body\ 778}#
-                                  (reverse #{vars\ 786}#)
-                                  #{r*\ 790}#
-                                  #{w*\ 791}#
+                                  #{inits\ 11663}#)))))
+                        (#{expand-req\ 11547}#
+                          (lambda (#{req\ 11703}#
+                                   #{opt\ 11704}#
+                                   #{rest\ 11705}#
+                                   #{kw\ 11706}#
+                                   #{body\ 11707}#)
+                            (let ((#{vars\ 11715}#
+                                    (map #{gen-var\ 11264}# #{req\ 11703}#))
+                                  (#{labels\ 11716}#
+                                    (#{gen-labels\ 11169}# #{req\ 11703}#)))
+                              (let ((#{r*\ 11719}#
+                                      (#{extend-var-env\ 11141}#
+                                        #{labels\ 11716}#
+                                        #{vars\ 11715}#
+                                        #{r\ 11533}#))
+                                    (#{w*\ 11720}#
+                                      (#{make-binding-wrap\ 11198}#
+                                        #{req\ 11703}#
+                                        #{labels\ 11716}#
+                                        #{w\ 11534}#)))
+                                (#{expand-opt\ 11549}#
+                                  (map syntax->datum #{req\ 11703}#)
+                                  #{opt\ 11704}#
+                                  #{rest\ 11705}#
+                                  #{kw\ 11706}#
+                                  #{body\ 11707}#
+                                  (reverse #{vars\ 11715}#)
+                                  #{r*\ 11719}#
+                                  #{w*\ 11720}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 792}#)
-                    ((lambda (#{tmp\ 793}#)
-                       (if #{tmp\ 793}#
+                 ((lambda (#{tmp\ 11721}#)
+                    ((lambda (#{tmp\ 11722}#)
+                       (if #{tmp\ 11722}#
                          (apply (lambda () (values (quote ()) #f))
-                                #{tmp\ 793}#)
-                         ((lambda (#{tmp\ 794}#)
-                            (if #{tmp\ 794}#
-                              (apply (lambda (#{args\ 801}#
-                                              #{e1\ 802}#
-                                              #{e2\ 803}#
-                                              #{args*\ 804}#
-                                              #{e1*\ 805}#
-                                              #{e2*\ 806}#)
+                                #{tmp\ 11722}#)
+                         ((lambda (#{tmp\ 11723}#)
+                            (if #{tmp\ 11723}#
+                              (apply (lambda (#{args\ 11730}#
+                                              #{e1\ 11731}#
+                                              #{e2\ 11732}#
+                                              #{args*\ 11733}#
+                                              #{e1*\ 11734}#
+                                              #{e2*\ 11735}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 608}#
-                                             #{args\ 801}#))
-                                         (lambda (#{req\ 807}#
-                                                  #{opt\ 808}#
-                                                  #{rest\ 809}#
-                                                  #{kw\ 810}#)
+                                           (#{get-formals\ 11537}#
+                                             #{args\ 11730}#))
+                                         (lambda (#{req\ 11736}#
+                                                  #{opt\ 11737}#
+                                                  #{rest\ 11738}#
+                                                  #{kw\ 11739}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{expand-req\ 618}#
-                                                 #{req\ 807}#
-                                                 #{opt\ 808}#
-                                                 #{rest\ 809}#
-                                                 #{kw\ 810}#
-                                                 (cons #{e1\ 802}#
-                                                       #{e2\ 803}#)))
-                                             (lambda (#{meta\ 816}#
-                                                      #{req\ 817}#
-                                                      #{opt\ 818}#
-                                                      #{rest\ 819}#
-                                                      #{kw\ 820}#
-                                                      #{inits\ 821}#
-                                                      #{vars\ 822}#
-                                                      #{body\ 823}#)
+                                               (#{expand-req\ 11547}#
+                                                 #{req\ 11736}#
+                                                 #{opt\ 11737}#
+                                                 #{rest\ 11738}#
+                                                 #{kw\ 11739}#
+                                                 (cons #{e1\ 11731}#
+                                                       #{e2\ 11732}#)))
+                                             (lambda (#{meta\ 11745}#
+                                                      #{req\ 11746}#
+                                                      #{opt\ 11747}#
+                                                      #{rest\ 11748}#
+                                                      #{kw\ 11749}#
+                                                      #{inits\ 11750}#
+                                                      #{vars\ 11751}#
+                                                      #{body\ 11752}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{chi-lambda-case\ 331}#
-                                                     #{e\ 603}#
-                                                     #{r\ 604}#
-                                                     #{w\ 605}#
-                                                     #{s\ 606}#
-                                                     #{mod\ 607}#
-                                                     #{get-formals\ 608}#
-                                                     (map (lambda (#{tmp\ 834}#
-                                                                   #{tmp\ 833}#
-                                                                   #{tmp\ 
832}#)
-                                                            (cons #{tmp\ 832}#
-                                                                  (cons #{tmp\ 
833}#
-                                                                        #{tmp\ 
834}#)))
-                                                          #{e2*\ 806}#
-                                                          #{e1*\ 805}#
-                                                          #{args*\ 804}#)))
-                                                 (lambda (#{meta*\ 836}#
-                                                          #{else*\ 837}#)
+                                                   (#{chi-lambda-case\ 11260}#
+                                                     #{e\ 11532}#
+                                                     #{r\ 11533}#
+                                                     #{w\ 11534}#
+                                                     #{s\ 11535}#
+                                                     #{mod\ 11536}#
+                                                     #{get-formals\ 11537}#
+                                                     (map (lambda (#{tmp\ 
11763}#
+                                                                   #{tmp\ 
11762}#
+                                                                   #{tmp\ 
11761}#)
+                                                            (cons #{tmp\ 
11761}#
+                                                                  (cons #{tmp\ 
11762}#
+                                                                        #{tmp\ 
11763}#)))
+                                                          #{e2*\ 11735}#
+                                                          #{e1*\ 11734}#
+                                                          #{args*\ 11733}#)))
+                                                 (lambda (#{meta*\ 11765}#
+                                                          #{else*\ 11766}#)
                                                    (values
                                                      (append
-                                                       #{meta\ 816}#
-                                                       #{meta*\ 836}#)
-                                                     (#{build-lambda-case\ 
168}#
-                                                       #{s\ 606}#
-                                                       #{req\ 817}#
-                                                       #{opt\ 818}#
-                                                       #{rest\ 819}#
-                                                       #{kw\ 820}#
-                                                       #{inits\ 821}#
-                                                       #{vars\ 822}#
-                                                       #{body\ 823}#
-                                                       #{else*\ 837}#)))))))))
-                                     #{tmp\ 794}#)
+                                                       #{meta\ 11745}#
+                                                       #{meta*\ 11765}#)
+                                                     (#{build-lambda-case\ 
11097}#
+                                                       #{s\ 11535}#
+                                                       #{req\ 11746}#
+                                                       #{opt\ 11747}#
+                                                       #{rest\ 11748}#
+                                                       #{kw\ 11749}#
+                                                       #{inits\ 11750}#
+                                                       #{vars\ 11751}#
+                                                       #{body\ 11752}#
+                                                       #{else*\ 
11766}#)))))))))
+                                     #{tmp\ 11723}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 792}#)))
+                                #{tmp\ 11721}#)))
                           ($sc-dispatch
-                            #{tmp\ 792}#
+                            #{tmp\ 11721}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($sc-dispatch #{tmp\ 792}# (quote ()))))
-                  #{clauses\ 609}#))))
-           (#{lambda*-formals\ 329}#
-             (lambda (#{orig-args\ 840}#)
-               (letrec ((#{check\ 851}#
-                          (lambda (#{req\ 852}#
-                                   #{opt\ 853}#
-                                   #{rest\ 854}#
-                                   #{kw\ 855}#)
-                            (if (#{distinct-bound-ids?\ 287}#
+                     ($sc-dispatch #{tmp\ 11721}# (quote ()))))
+                  #{clauses\ 11538}#))))
+           (#{lambda*-formals\ 11258}#
+             (lambda (#{orig-args\ 11769}#)
+               (letrec ((#{check\ 11780}#
+                          (lambda (#{req\ 11781}#
+                                   #{opt\ 11782}#
+                                   #{rest\ 11783}#
+                                   #{kw\ 11784}#)
+                            (if (#{distinct-bound-ids?\ 11216}#
                                   (append
-                                    #{req\ 852}#
-                                    (map car #{opt\ 853}#)
-                                    (if #{rest\ 854}#
-                                      (list #{rest\ 854}#)
+                                    #{req\ 11781}#
+                                    (map car #{opt\ 11782}#)
+                                    (if #{rest\ 11783}#
+                                      (list #{rest\ 11783}#)
                                       '())
-                                    (if (pair? #{kw\ 855}#)
-                                      (map cadr (cdr #{kw\ 855}#))
+                                    (if (pair? #{kw\ 11784}#)
+                                      (map cadr (cdr #{kw\ 11784}#))
                                       '())))
                               (values
-                                #{req\ 852}#
-                                #{opt\ 853}#
-                                #{rest\ 854}#
-                                #{kw\ 855}#)
+                                #{req\ 11781}#
+                                #{opt\ 11782}#
+                                #{rest\ 11783}#
+                                #{kw\ 11784}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 840}#))))
-                        (#{rest\ 849}#
-                          (lambda (#{args\ 863}#
-                                   #{req\ 864}#
-                                   #{opt\ 865}#
-                                   #{kw\ 866}#)
-                            ((lambda (#{tmp\ 871}#)
-                               ((lambda (#{tmp\ 872}#)
-                                  (if (if #{tmp\ 872}#
-                                        (apply (lambda (#{r\ 874}#)
-                                                 (#{id?\ 222}# #{r\ 874}#))
-                                               #{tmp\ 872}#)
+                                #{orig-args\ 11769}#))))
+                        (#{rest\ 11778}#
+                          (lambda (#{args\ 11792}#
+                                   #{req\ 11793}#
+                                   #{opt\ 11794}#
+                                   #{kw\ 11795}#)
+                            ((lambda (#{tmp\ 11800}#)
+                               ((lambda (#{tmp\ 11801}#)
+                                  (if (if #{tmp\ 11801}#
+                                        (apply (lambda (#{r\ 11803}#)
+                                                 (#{id?\ 11151}# #{r\ 11803}#))
+                                               #{tmp\ 11801}#)
                                         #f)
-                                    (apply (lambda (#{r\ 876}#)
-                                             (#{check\ 851}#
-                                               #{req\ 864}#
-                                               #{opt\ 865}#
-                                               #{r\ 876}#
-                                               #{kw\ 866}#))
-                                           #{tmp\ 872}#)
-                                    ((lambda (#{else\ 878}#)
+                                    (apply (lambda (#{r\ 11805}#)
+                                             (#{check\ 11780}#
+                                               #{req\ 11793}#
+                                               #{opt\ 11794}#
+                                               #{r\ 11805}#
+                                               #{kw\ 11795}#))
+                                           #{tmp\ 11801}#)
+                                    ((lambda (#{else\ 11807}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{orig-args\ 840}#
-                                         #{args\ 863}#))
-                                     #{tmp\ 871}#)))
-                                (list #{tmp\ 871}#)))
-                             #{args\ 863}#)))
-                        (#{key\ 847}#
-                          (lambda (#{args\ 879}#
-                                   #{req\ 880}#
-                                   #{opt\ 881}#
-                                   #{rkey\ 882}#)
-                            ((lambda (#{tmp\ 887}#)
-                               ((lambda (#{tmp\ 888}#)
-                                  (if #{tmp\ 888}#
+                                         #{orig-args\ 11769}#
+                                         #{args\ 11792}#))
+                                     #{tmp\ 11800}#)))
+                                (list #{tmp\ 11800}#)))
+                             #{args\ 11792}#)))
+                        (#{key\ 11776}#
+                          (lambda (#{args\ 11808}#
+                                   #{req\ 11809}#
+                                   #{opt\ 11810}#
+                                   #{rkey\ 11811}#)
+                            ((lambda (#{tmp\ 11816}#)
+                               ((lambda (#{tmp\ 11817}#)
+                                  (if #{tmp\ 11817}#
                                     (apply (lambda ()
-                                             (#{check\ 851}#
-                                               #{req\ 880}#
-                                               #{opt\ 881}#
+                                             (#{check\ 11780}#
+                                               #{req\ 11809}#
+                                               #{opt\ 11810}#
                                                #f
                                                (cons #f
-                                                     (reverse #{rkey\ 882}#))))
-                                           #{tmp\ 888}#)
-                                    ((lambda (#{tmp\ 889}#)
-                                       (if (if #{tmp\ 889}#
-                                             (apply (lambda (#{a\ 892}#
-                                                             #{b\ 893}#)
-                                                      (#{id?\ 222}#
-                                                        #{a\ 892}#))
-                                                    #{tmp\ 889}#)
+                                                     (reverse
+                                                       #{rkey\ 11811}#))))
+                                           #{tmp\ 11817}#)
+                                    ((lambda (#{tmp\ 11818}#)
+                                       (if (if #{tmp\ 11818}#
+                                             (apply (lambda (#{a\ 11821}#
+                                                             #{b\ 11822}#)
+                                                      (#{id?\ 11151}#
+                                                        #{a\ 11821}#))
+                                                    #{tmp\ 11818}#)
                                              #f)
-                                         (apply (lambda (#{a\ 896}# #{b\ 897}#)
-                                                  ((lambda (#{tmp\ 899}#)
-                                                     ((lambda (#{k\ 901}#)
-                                                        (#{key\ 847}#
-                                                          #{b\ 897}#
-                                                          #{req\ 880}#
-                                                          #{opt\ 881}#
-                                                          (cons (cons #{k\ 
901}#
-                                                                      (cons 
#{a\ 896}#
+                                         (apply (lambda (#{a\ 11825}#
+                                                         #{b\ 11826}#)
+                                                  ((lambda (#{tmp\ 11828}#)
+                                                     ((lambda (#{k\ 11830}#)
+                                                        (#{key\ 11776}#
+                                                          #{b\ 11826}#
+                                                          #{req\ 11809}#
+                                                          #{opt\ 11810}#
+                                                          (cons (cons #{k\ 
11830}#
+                                                                      (cons 
#{a\ 11825}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i900"))
+                                                                               
    #("i11829"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i894"
-                                                                               
      "i895"))
+                                                                               
    #("i11823"
+                                                                               
      "i11824"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -646,10 +665,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i883"
-                                                                               
      "i884"
-                                                                               
      "i885"
-                                                                               
      "i886"))
+                                                                               
    #("i11812"
+                                                                               
      "i11813"
+                                                                               
      "i11814"
+                                                                               
      "i11815"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -660,15 +679,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i850"
-                                                                               
     "i848"
-                                                                               
     "i846"
-                                                                               
     "i844"
-                                                                               
     "i842"))
+                                                                               
    ("i11779"
+                                                                               
     "i11777"
+                                                                               
     "i11775"
+                                                                               
     "i11773"
+                                                                               
     "i11771"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i841"))
+                                                                               
    #("i11770"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -786,8 +805,7 @@
                                                                                
      fx=
                                                                                
      fx-
                                                                                
      fx+
-                                                                               
      *mode*
-                                                                               
      noexpand)
+                                                                               
      *mode*)
                                                                                
    ((top)
                                                                                
     (top)
                                                                                
     (top)
@@ -904,352 +922,352 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top)
-                                                                               
     (top)
                                                                                
     (top))
-                                                                               
    ("i336"
-                                                                               
     "i334"
-                                                                               
     "i332"
-                                                                               
     "i330"
-                                                                               
     "i328"
-                                                                               
     "i326"
-                                                                               
     "i324"
-                                                                               
     "i322"
-                                                                               
     "i320"
-                                                                               
     "i318"
-                                                                               
     "i316"
-                                                                               
     "i314"
-                                                                               
     "i312"
-                                                                               
     "i310"
-                                                                               
     "i308"
-                                                                               
     "i306"
-                                                                               
     "i304"
-                                                                               
     "i302"
-                                                                               
     "i300"
-                                                                               
     "i298"
-                                                                               
     "i296"
-                                                                               
     "i294"
-                                                                               
     "i292"
-                                                                               
     "i290"
-                                                                               
     "i288"
-                                                                               
     "i286"
-                                                                               
     "i284"
-                                                                               
     "i282"
-                                                                               
     "i280"
-                                                                               
     "i278"
-                                                                               
     "i276"
-                                                                               
     "i274"
-                                                                               
     "i272"
-                                                                               
     "i270"
-                                                                               
     "i268"
-                                                                               
     "i266"
-                                                                               
     "i265"
-                                                                               
     "i264"
-                                                                               
     "i262"
-                                                                               
     "i261"
-                                                                               
     "i260"
-                                                                               
     "i259"
-                                                                               
     "i258"
-                                                                               
     "i256"
-                                                                               
     "i254"
-                                                                               
     "i252"
-                                                                               
     "i250"
-                                                                               
     "i248"
-                                                                               
     "i246"
-                                                                               
     "i244"
-                                                                               
     "i242"
-                                                                               
     "i239"
-                                                                               
     "i237"
-                                                                               
     "i236"
-                                                                               
     "i235"
-                                                                               
     "i234"
-                                                                               
     "i233"
-                                                                               
     "i232"
-                                                                               
     "i230"
-                                                                               
     "i228"
-                                                                               
     "i226"
-                                                                               
     "i224"
-                                                                               
     "i223"
-                                                                               
     "i221"
-                                                                               
     "i219"
-                                                                               
     "i217"
-                                                                               
     "i215"
-                                                                               
     "i213"
-                                                                               
     "i211"
-                                                                               
     "i209"
-                                                                               
     "i208"
-                                                                               
     "i206"
-                                                                               
     "i204"
-                                                                               
     "i203"
-                                                                               
     "i202"
-                                                                               
     "i200"
-                                                                               
     "i199"
-                                                                               
     "i197"
-                                                                               
     "i195"
-                                                                               
     "i193"
-                                                                               
     "i191"
-                                                                               
     "i189"
-                                                                               
     "i187"
-                                                                               
     "i185"
-                                                                               
     "i183"
-                                                                               
     "i181"
-                                                                               
     "i179"
-                                                                               
     "i177"
-                                                                               
     "i175"
-                                                                               
     "i173"
-                                                                               
     "i171"
-                                                                               
     "i169"
-                                                                               
     "i167"
-                                                                               
     "i165"
-                                                                               
     "i163"
-                                                                               
     "i161"
-                                                                               
     "i159"
-                                                                               
     "i157"
-                                                                               
     "i155"
-                                                                               
     "i153"
-                                                                               
     "i151"
-                                                                               
     "i149"
-                                                                               
     "i147"
-                                                                               
     "i145"
-                                                                               
     "i143"
-                                                                               
     "i141"
-                                                                               
     "i139"
-                                                                               
     "i137"
-                                                                               
     "i135"
-                                                                               
     "i134"
-                                                                               
     "i132"
-                                                                               
     "i130"
-                                                                               
     "i128"
-                                                                               
     "i126"
-                                                                               
     "i124"
-                                                                               
     "i122"
-                                                                               
     "i120"
-                                                                               
     "i118"))
+                                                                               
    ("i11265"
+                                                                               
     "i11263"
+                                                                               
     "i11261"
+                                                                               
     "i11259"
+                                                                               
     "i11257"
+                                                                               
     "i11255"
+                                                                               
     "i11253"
+                                                                               
     "i11251"
+                                                                               
     "i11249"
+                                                                               
     "i11247"
+                                                                               
     "i11245"
+                                                                               
     "i11243"
+                                                                               
     "i11241"
+                                                                               
     "i11239"
+                                                                               
     "i11237"
+                                                                               
     "i11235"
+                                                                               
     "i11233"
+                                                                               
     "i11231"
+                                                                               
     "i11229"
+                                                                               
     "i11227"
+                                                                               
     "i11225"
+                                                                               
     "i11223"
+                                                                               
     "i11221"
+                                                                               
     "i11219"
+                                                                               
     "i11217"
+                                                                               
     "i11215"
+                                                                               
     "i11213"
+                                                                               
     "i11211"
+                                                                               
     "i11209"
+                                                                               
     "i11207"
+                                                                               
     "i11205"
+                                                                               
     "i11203"
+                                                                               
     "i11201"
+                                                                               
     "i11199"
+                                                                               
     "i11197"
+                                                                               
     "i11195"
+                                                                               
     "i11194"
+                                                                               
     "i11193"
+                                                                               
     "i11191"
+                                                                               
     "i11190"
+                                                                               
     "i11189"
+                                                                               
     "i11188"
+                                                                               
     "i11187"
+                                                                               
     "i11185"
+                                                                               
     "i11183"
+                                                                               
     "i11181"
+                                                                               
     "i11179"
+                                                                               
     "i11177"
+                                                                               
     "i11175"
+                                                                               
     "i11173"
+                                                                               
     "i11171"
+                                                                               
     "i11168"
+                                                                               
     "i11166"
+                                                                               
     "i11165"
+                                                                               
     "i11164"
+                                                                               
     "i11163"
+                                                                               
     "i11162"
+                                                                               
     "i11161"
+                                                                               
     "i11159"
+                                                                               
     "i11157"
+                                                                               
     "i11155"
+                                                                               
     "i11153"
+                                                                               
     "i11152"
+                                                                               
     "i11150"
+                                                                               
     "i11148"
+                                                                               
     "i11146"
+                                                                               
     "i11144"
+                                                                               
     "i11142"
+                                                                               
     "i11140"
+                                                                               
     "i11138"
+                                                                               
     "i11137"
+                                                                               
     "i11135"
+                                                                               
     "i11133"
+                                                                               
     "i11132"
+                                                                               
     "i11131"
+                                                                               
     "i11129"
+                                                                               
     "i11128"
+                                                                               
     "i11126"
+                                                                               
     "i11124"
+                                                                               
     "i11122"
+                                                                               
     "i11120"
+                                                                               
     "i11118"
+                                                                               
     "i11116"
+                                                                               
     "i11114"
+                                                                               
     "i11112"
+                                                                               
     "i11110"
+                                                                               
     "i11108"
+                                                                               
     "i11106"
+                                                                               
     "i11104"
+                                                                               
     "i11102"
+                                                                               
     "i11100"
+                                                                               
     "i11098"
+                                                                               
     "i11096"
+                                                                               
     "i11094"
+                                                                               
     "i11092"
+                                                                               
     "i11090"
+                                                                               
     "i11088"
+                                                                               
     "i11086"
+                                                                               
     "i11084"
+                                                                               
     "i11082"
+                                                                               
     "i11080"
+                                                                               
     "i11078"
+                                                                               
     "i11076"
+                                                                               
     "i11074"
+                                                                               
     "i11072"
+                                                                               
     "i11070"
+                                                                               
     "i11068"
+                                                                               
     "i11066"
+                                                                               
     "i11064"
+                                                                               
     "i11063"
+                                                                               
     "i11061"
+                                                                               
     "i11059"
+                                                                               
     "i11057"
+                                                                               
     "i11055"
+                                                                               
     "i11053"
+                                                                               
     "i11051"
+                                                                               
     "i11049"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      and-map*)
                                                                                
    ((top)
                                                                                
     (top))
-                                                                               
    ("i21"
-                                                                               
     "i19")))
+                                                                               
    ("i10952"
+                                                                               
     "i10950")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
882}#)))
-                                                      #{tmp\ 899}#))
+                                                                #{rkey\ 
11811}#)))
+                                                      #{tmp\ 11828}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{a\ 896}#))))
-                                                #{tmp\ 889}#)
-                                         ((lambda (#{tmp\ 902}#)
-                                            (if (if #{tmp\ 902}#
-                                                  (apply (lambda (#{a\ 906}#
-                                                                  #{init\ 907}#
-                                                                  #{b\ 908}#)
-                                                           (#{id?\ 222}#
-                                                             #{a\ 906}#))
-                                                         #{tmp\ 902}#)
+                                                       #{a\ 11825}#))))
+                                                #{tmp\ 11818}#)
+                                         ((lambda (#{tmp\ 11831}#)
+                                            (if (if #{tmp\ 11831}#
+                                                  (apply (lambda (#{a\ 11835}#
+                                                                  #{init\ 
11836}#
+                                                                  #{b\ 11837}#)
+                                                           (#{id?\ 11151}#
+                                                             #{a\ 11835}#))
+                                                         #{tmp\ 11831}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 912}#
-                                                              #{init\ 913}#
-                                                              #{b\ 914}#)
-                                                       ((lambda (#{tmp\ 916}#)
-                                                          ((lambda (#{k\ 918}#)
-                                                             (#{key\ 847}#
-                                                               #{b\ 914}#
-                                                               #{req\ 880}#
-                                                               #{opt\ 881}#
-                                                               (cons (list 
#{k\ 918}#
-                                                                           
#{a\ 912}#
-                                                                           
#{init\ 913}#)
-                                                                     #{rkey\ 
882}#)))
-                                                           #{tmp\ 916}#))
+                                              (apply (lambda (#{a\ 11841}#
+                                                              #{init\ 11842}#
+                                                              #{b\ 11843}#)
+                                                       ((lambda (#{tmp\ 
11845}#)
+                                                          ((lambda (#{k\ 
11847}#)
+                                                             (#{key\ 11776}#
+                                                               #{b\ 11843}#
+                                                               #{req\ 11809}#
+                                                               #{opt\ 11810}#
+                                                               (cons (list 
#{k\ 11847}#
+                                                                           
#{a\ 11841}#
+                                                                           
#{init\ 11842}#)
+                                                                     #{rkey\ 
11811}#)))
+                                                           #{tmp\ 11845}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{a\ 912}#))))
-                                                     #{tmp\ 902}#)
-                                              ((lambda (#{tmp\ 919}#)
-                                                 (if (if #{tmp\ 919}#
-                                                       (apply (lambda (#{a\ 
924}#
-                                                                       #{init\ 
925}#
-                                                                       #{k\ 
926}#
-                                                                       #{b\ 
927}#)
-                                                                (if (#{id?\ 
222}#
-                                                                      #{a\ 
924}#)
+                                                            #{a\ 11841}#))))
+                                                     #{tmp\ 11831}#)
+                                              ((lambda (#{tmp\ 11848}#)
+                                                 (if (if #{tmp\ 11848}#
+                                                       (apply (lambda (#{a\ 
11853}#
+                                                                       #{init\ 
11854}#
+                                                                       #{k\ 
11855}#
+                                                                       #{b\ 
11856}#)
+                                                                (if (#{id?\ 
11151}#
+                                                                      #{a\ 
11853}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
926}#))
+                                                                      #{k\ 
11855}#))
                                                                   #f))
-                                                              #{tmp\ 919}#)
+                                                              #{tmp\ 11848}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 934}#
-                                                                   #{init\ 
935}#
-                                                                   #{k\ 936}#
-                                                                   #{b\ 937}#)
-                                                            (#{key\ 847}#
-                                                              #{b\ 937}#
-                                                              #{req\ 880}#
-                                                              #{opt\ 881}#
-                                                              (cons (list #{k\ 
936}#
-                                                                          #{a\ 
934}#
-                                                                          
#{init\ 935}#)
-                                                                    #{rkey\ 
882}#)))
-                                                          #{tmp\ 919}#)
-                                                   ((lambda (#{tmp\ 938}#)
-                                                      (if (if #{tmp\ 938}#
-                                                            (apply (lambda 
(#{aok\ 940}#)
+                                                   (apply (lambda (#{a\ 11863}#
+                                                                   #{init\ 
11864}#
+                                                                   #{k\ 11865}#
+                                                                   #{b\ 
11866}#)
+                                                            (#{key\ 11776}#
+                                                              #{b\ 11866}#
+                                                              #{req\ 11809}#
+                                                              #{opt\ 11810}#
+                                                              (cons (list #{k\ 
11865}#
+                                                                          #{a\ 
11863}#
+                                                                          
#{init\ 11864}#)
+                                                                    #{rkey\ 
11811}#)))
+                                                          #{tmp\ 11848}#)
+                                                   ((lambda (#{tmp\ 11867}#)
+                                                      (if (if #{tmp\ 11867}#
+                                                            (apply (lambda 
(#{aok\ 11869}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 940}#)
+                                                                            
#{aok\ 11869}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
938}#)
+                                                                   #{tmp\ 
11867}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
942}#)
-                                                                 (#{check\ 
851}#
-                                                                   #{req\ 880}#
-                                                                   #{opt\ 881}#
+                                                        (apply (lambda (#{aok\ 
11871}#)
+                                                                 (#{check\ 
11780}#
+                                                                   #{req\ 
11809}#
+                                                                   #{opt\ 
11810}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 882}#))))
-                                                               #{tmp\ 938}#)
-                                                        ((lambda (#{tmp\ 943}#)
-                                                           (if (if #{tmp\ 943}#
-                                                                 (apply 
(lambda (#{aok\ 947}#
-                                                                               
  #{a\ 948}#
-                                                                               
  #{b\ 949}#)
+                                                                           
#{rkey\ 11811}#))))
+                                                               #{tmp\ 11867}#)
+                                                        ((lambda (#{tmp\ 
11872}#)
+                                                           (if (if #{tmp\ 
11872}#
+                                                                 (apply 
(lambda (#{aok\ 11876}#
+                                                                               
  #{a\ 11877}#
+                                                                               
  #{b\ 11878}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 947}#)
+                                                                               
      #{aok\ 11876}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 948}#)
+                                                                               
    #{a\ 11877}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
943}#)
+                                                                        #{tmp\ 
11872}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 955}#
-                                                                             
#{a\ 956}#
-                                                                             
#{b\ 957}#)
-                                                                      (#{rest\ 
849}#
-                                                                        #{b\ 
957}#
-                                                                        #{req\ 
880}#
-                                                                        #{opt\ 
881}#
+                                                             (apply (lambda 
(#{aok\ 11884}#
+                                                                             
#{a\ 11885}#
+                                                                             
#{b\ 11886}#)
+                                                                      (#{rest\ 
11778}#
+                                                                        #{b\ 
11886}#
+                                                                        #{req\ 
11809}#
+                                                                        #{opt\ 
11810}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 882}#))))
-                                                                    #{tmp\ 
943}#)
-                                                             ((lambda (#{tmp\ 
958}#)
-                                                                (if (if #{tmp\ 
958}#
-                                                                      (apply 
(lambda (#{aok\ 961}#
-                                                                               
       #{r\ 962}#)
+                                                                               
 #{rkey\ 11811}#))))
+                                                                    #{tmp\ 
11872}#)
+                                                             ((lambda (#{tmp\ 
11887}#)
+                                                                (if (if #{tmp\ 
11887}#
+                                                                      (apply 
(lambda (#{aok\ 11890}#
+                                                                               
       #{r\ 11891}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 961}#)
+                                                                               
           #{aok\ 11890}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 222}#
-                                                                               
    #{r\ 962}#)
+                                                                               
  (#{id?\ 11151}#
+                                                                               
    #{r\ 11891}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 958}#)
+                                                                             
#{tmp\ 11887}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 967}#
-                                                                               
   #{r\ 968}#)
-                                                                           
(#{rest\ 849}#
-                                                                             
#{r\ 968}#
-                                                                             
#{req\ 880}#
-                                                                             
#{opt\ 881}#
+                                                                  (apply 
(lambda (#{aok\ 11896}#
+                                                                               
   #{r\ 11897}#)
+                                                                           
(#{rest\ 11778}#
+                                                                             
#{r\ 11897}#
+                                                                             
#{req\ 11809}#
+                                                                             
#{opt\ 11810}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 882}#))))
-                                                                         
#{tmp\ 958}#)
-                                                                  ((lambda 
(#{tmp\ 969}#)
-                                                                     (if (if 
#{tmp\ 969}#
-                                                                           
(apply (lambda (#{a\ 972}#
-                                                                               
            #{b\ 973}#)
+                                                                               
      #{rkey\ 11811}#))))
+                                                                         
#{tmp\ 11887}#)
+                                                                  ((lambda 
(#{tmp\ 11898}#)
+                                                                     (if (if 
#{tmp\ 11898}#
+                                                                           
(apply (lambda (#{a\ 11901}#
+                                                                               
            #{b\ 11902}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 972}#)
+                                                                               
            #{a\ 11901}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 969}#)
+                                                                               
   #{tmp\ 11898}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 976}#
-                                                                               
        #{b\ 977}#)
-                                                                               
 (#{rest\ 849}#
-                                                                               
   #{b\ 977}#
-                                                                               
   #{req\ 880}#
-                                                                               
   #{opt\ 881}#
+                                                                       (apply 
(lambda (#{a\ 11905}#
+                                                                               
        #{b\ 11906}#)
+                                                                               
 (#{rest\ 11778}#
+                                                                               
   #{b\ 11906}#
+                                                                               
   #{req\ 11809}#
+                                                                               
   #{opt\ 11810}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 882}#))))
-                                                                              
#{tmp\ 969}#)
-                                                                       
((lambda (#{tmp\ 978}#)
-                                                                          (if 
(if #{tmp\ 978}#
-                                                                               
 (apply (lambda (#{r\ 980}#)
-                                                                               
          (#{id?\ 222}#
-                                                                               
            #{r\ 980}#))
-                                                                               
        #{tmp\ 978}#)
+                                                                               
           #{rkey\ 11811}#))))
+                                                                              
#{tmp\ 11898}#)
+                                                                       
((lambda (#{tmp\ 11907}#)
+                                                                          (if 
(if #{tmp\ 11907}#
+                                                                               
 (apply (lambda (#{r\ 11909}#)
+                                                                               
          (#{id?\ 11151}#
+                                                                               
            #{r\ 11909}#))
+                                                                               
        #{tmp\ 11907}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 982}#)
-                                                                               
      (#{rest\ 849}#
-                                                                               
        #{r\ 982}#
-                                                                               
        #{req\ 880}#
-                                                                               
        #{opt\ 881}#
+                                                                            
(apply (lambda (#{r\ 11911}#)
+                                                                               
      (#{rest\ 11778}#
+                                                                               
        #{r\ 11911}#
+                                                                               
        #{req\ 11809}#
+                                                                               
        #{opt\ 11810}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 882}#))))
-                                                                               
    #{tmp\ 978}#)
-                                                                            
((lambda (#{else\ 984}#)
+                                                                               
                #{rkey\ 11811}#))))
+                                                                               
    #{tmp\ 11907}#)
+                                                                            
((lambda (#{else\ 11913}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 840}#
-                                                                               
  #{args\ 879}#))
-                                                                             
#{tmp\ 887}#)))
-                                                                        (list 
#{tmp\ 887}#))))
+                                                                               
  #{orig-args\ 11769}#
+                                                                               
  #{args\ 11808}#))
+                                                                             
#{tmp\ 11816}#)))
+                                                                        (list 
#{tmp\ 11816}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
887}#
+                                                                     #{tmp\ 
11816}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 887}#
+                                                                #{tmp\ 11816}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 887}#
+                                                           #{tmp\ 11816}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 887}#
+                                                      #{tmp\ 11816}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 887}#
+                                                 #{tmp\ 11816}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 887}#
+                                            #{tmp\ 11816}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 887}#
+                                       #{tmp\ 11816}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 887}# (quote ()))))
-                             #{args\ 879}#)))
-                        (#{opt\ 845}#
-                          (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#)
-                            ((lambda (#{tmp\ 991}#)
-                               ((lambda (#{tmp\ 992}#)
-                                  (if #{tmp\ 992}#
+                                ($sc-dispatch #{tmp\ 11816}# (quote ()))))
+                             #{args\ 11808}#)))
+                        (#{opt\ 11774}#
+                          (lambda (#{args\ 11914}#
+                                   #{req\ 11915}#
+                                   #{ropt\ 11916}#)
+                            ((lambda (#{tmp\ 11920}#)
+                               ((lambda (#{tmp\ 11921}#)
+                                  (if #{tmp\ 11921}#
                                     (apply (lambda ()
-                                             (#{check\ 851}#
-                                               #{req\ 986}#
-                                               (reverse #{ropt\ 987}#)
+                                             (#{check\ 11780}#
+                                               #{req\ 11915}#
+                                               (reverse #{ropt\ 11916}#)
                                                #f
                                                '()))
-                                           #{tmp\ 992}#)
-                                    ((lambda (#{tmp\ 993}#)
-                                       (if (if #{tmp\ 993}#
-                                             (apply (lambda (#{a\ 996}#
-                                                             #{b\ 997}#)
-                                                      (#{id?\ 222}#
-                                                        #{a\ 996}#))
-                                                    #{tmp\ 993}#)
+                                           #{tmp\ 11921}#)
+                                    ((lambda (#{tmp\ 11922}#)
+                                       (if (if #{tmp\ 11922}#
+                                             (apply (lambda (#{a\ 11925}#
+                                                             #{b\ 11926}#)
+                                                      (#{id?\ 11151}#
+                                                        #{a\ 11925}#))
+                                                    #{tmp\ 11922}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1000}#
-                                                         #{b\ 1001}#)
-                                                  (#{opt\ 845}#
-                                                    #{b\ 1001}#
-                                                    #{req\ 986}#
-                                                    (cons (cons #{a\ 1000}#
+                                         (apply (lambda (#{a\ 11929}#
+                                                         #{b\ 11930}#)
+                                                  (#{opt\ 11774}#
+                                                    #{b\ 11930}#
+                                                    #{req\ 11915}#
+                                                    (cons (cons #{a\ 11929}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1257,8 +1275,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       #("i998"
-                                                                         
"i999"))
+                                                                       
#("i11927"
+                                                                         
"i11928"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1270,9 +1288,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       #("i988"
-                                                                         "i989"
-                                                                         
"i990"))
+                                                                       
#("i11917"
+                                                                         
"i11918"
+                                                                         
"i11919"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1283,15 +1301,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i850"
-                                                                        "i848"
-                                                                        "i846"
-                                                                        "i844"
-                                                                        
"i842"))
+                                                                       
("i11779"
+                                                                        
"i11777"
+                                                                        
"i11775"
+                                                                        
"i11773"
+                                                                        
"i11771"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       
#("i841"))
+                                                                       
#("i11770"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1409,8 +1427,7 @@
                                                                          fx=
                                                                          fx-
                                                                          fx+
-                                                                         *mode*
-                                                                         
noexpand)
+                                                                         
*mode*)
                                                                        ((top)
                                                                         (top)
                                                                         (top)
@@ -1527,465 +1544,463 @@
                                                                         (top)
                                                                         (top)
                                                                         (top)
-                                                                        (top)
                                                                         (top))
-                                                                       ("i336"
-                                                                        "i334"
-                                                                        "i332"
-                                                                        "i330"
-                                                                        "i328"
-                                                                        "i326"
-                                                                        "i324"
-                                                                        "i322"
-                                                                        "i320"
-                                                                        "i318"
-                                                                        "i316"
-                                                                        "i314"
-                                                                        "i312"
-                                                                        "i310"
-                                                                        "i308"
-                                                                        "i306"
-                                                                        "i304"
-                                                                        "i302"
-                                                                        "i300"
-                                                                        "i298"
-                                                                        "i296"
-                                                                        "i294"
-                                                                        "i292"
-                                                                        "i290"
-                                                                        "i288"
-                                                                        "i286"
-                                                                        "i284"
-                                                                        "i282"
-                                                                        "i280"
-                                                                        "i278"
-                                                                        "i276"
-                                                                        "i274"
-                                                                        "i272"
-                                                                        "i270"
-                                                                        "i268"
-                                                                        "i266"
-                                                                        "i265"
-                                                                        "i264"
-                                                                        "i262"
-                                                                        "i261"
-                                                                        "i260"
-                                                                        "i259"
-                                                                        "i258"
-                                                                        "i256"
-                                                                        "i254"
-                                                                        "i252"
-                                                                        "i250"
-                                                                        "i248"
-                                                                        "i246"
-                                                                        "i244"
-                                                                        "i242"
-                                                                        "i239"
-                                                                        "i237"
-                                                                        "i236"
-                                                                        "i235"
-                                                                        "i234"
-                                                                        "i233"
-                                                                        "i232"
-                                                                        "i230"
-                                                                        "i228"
-                                                                        "i226"
-                                                                        "i224"
-                                                                        "i223"
-                                                                        "i221"
-                                                                        "i219"
-                                                                        "i217"
-                                                                        "i215"
-                                                                        "i213"
-                                                                        "i211"
-                                                                        "i209"
-                                                                        "i208"
-                                                                        "i206"
-                                                                        "i204"
-                                                                        "i203"
-                                                                        "i202"
-                                                                        "i200"
-                                                                        "i199"
-                                                                        "i197"
-                                                                        "i195"
-                                                                        "i193"
-                                                                        "i191"
-                                                                        "i189"
-                                                                        "i187"
-                                                                        "i185"
-                                                                        "i183"
-                                                                        "i181"
-                                                                        "i179"
-                                                                        "i177"
-                                                                        "i175"
-                                                                        "i173"
-                                                                        "i171"
-                                                                        "i169"
-                                                                        "i167"
-                                                                        "i165"
-                                                                        "i163"
-                                                                        "i161"
-                                                                        "i159"
-                                                                        "i157"
-                                                                        "i155"
-                                                                        "i153"
-                                                                        "i151"
-                                                                        "i149"
-                                                                        "i147"
-                                                                        "i145"
-                                                                        "i143"
-                                                                        "i141"
-                                                                        "i139"
-                                                                        "i137"
-                                                                        "i135"
-                                                                        "i134"
-                                                                        "i132"
-                                                                        "i130"
-                                                                        "i128"
-                                                                        "i126"
-                                                                        "i124"
-                                                                        "i122"
-                                                                        "i120"
-                                                                        
"i118"))
+                                                                       
("i11265"
+                                                                        
"i11263"
+                                                                        
"i11261"
+                                                                        
"i11259"
+                                                                        
"i11257"
+                                                                        
"i11255"
+                                                                        
"i11253"
+                                                                        
"i11251"
+                                                                        
"i11249"
+                                                                        
"i11247"
+                                                                        
"i11245"
+                                                                        
"i11243"
+                                                                        
"i11241"
+                                                                        
"i11239"
+                                                                        
"i11237"
+                                                                        
"i11235"
+                                                                        
"i11233"
+                                                                        
"i11231"
+                                                                        
"i11229"
+                                                                        
"i11227"
+                                                                        
"i11225"
+                                                                        
"i11223"
+                                                                        
"i11221"
+                                                                        
"i11219"
+                                                                        
"i11217"
+                                                                        
"i11215"
+                                                                        
"i11213"
+                                                                        
"i11211"
+                                                                        
"i11209"
+                                                                        
"i11207"
+                                                                        
"i11205"
+                                                                        
"i11203"
+                                                                        
"i11201"
+                                                                        
"i11199"
+                                                                        
"i11197"
+                                                                        
"i11195"
+                                                                        
"i11194"
+                                                                        
"i11193"
+                                                                        
"i11191"
+                                                                        
"i11190"
+                                                                        
"i11189"
+                                                                        
"i11188"
+                                                                        
"i11187"
+                                                                        
"i11185"
+                                                                        
"i11183"
+                                                                        
"i11181"
+                                                                        
"i11179"
+                                                                        
"i11177"
+                                                                        
"i11175"
+                                                                        
"i11173"
+                                                                        
"i11171"
+                                                                        
"i11168"
+                                                                        
"i11166"
+                                                                        
"i11165"
+                                                                        
"i11164"
+                                                                        
"i11163"
+                                                                        
"i11162"
+                                                                        
"i11161"
+                                                                        
"i11159"
+                                                                        
"i11157"
+                                                                        
"i11155"
+                                                                        
"i11153"
+                                                                        
"i11152"
+                                                                        
"i11150"
+                                                                        
"i11148"
+                                                                        
"i11146"
+                                                                        
"i11144"
+                                                                        
"i11142"
+                                                                        
"i11140"
+                                                                        
"i11138"
+                                                                        
"i11137"
+                                                                        
"i11135"
+                                                                        
"i11133"
+                                                                        
"i11132"
+                                                                        
"i11131"
+                                                                        
"i11129"
+                                                                        
"i11128"
+                                                                        
"i11126"
+                                                                        
"i11124"
+                                                                        
"i11122"
+                                                                        
"i11120"
+                                                                        
"i11118"
+                                                                        
"i11116"
+                                                                        
"i11114"
+                                                                        
"i11112"
+                                                                        
"i11110"
+                                                                        
"i11108"
+                                                                        
"i11106"
+                                                                        
"i11104"
+                                                                        
"i11102"
+                                                                        
"i11100"
+                                                                        
"i11098"
+                                                                        
"i11096"
+                                                                        
"i11094"
+                                                                        
"i11092"
+                                                                        
"i11090"
+                                                                        
"i11088"
+                                                                        
"i11086"
+                                                                        
"i11084"
+                                                                        
"i11082"
+                                                                        
"i11080"
+                                                                        
"i11078"
+                                                                        
"i11076"
+                                                                        
"i11074"
+                                                                        
"i11072"
+                                                                        
"i11070"
+                                                                        
"i11068"
+                                                                        
"i11066"
+                                                                        
"i11064"
+                                                                        
"i11063"
+                                                                        
"i11061"
+                                                                        
"i11059"
+                                                                        
"i11057"
+                                                                        
"i11055"
+                                                                        
"i11053"
+                                                                        
"i11051"
+                                                                        
"i11049"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
and-map*)
                                                                        ((top)
                                                                         (top))
-                                                                       ("i21"
-                                                                        
"i19")))
+                                                                       
("i10952"
+                                                                        
"i10950")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{ropt\ 987}#)))
-                                                #{tmp\ 993}#)
-                                         ((lambda (#{tmp\ 1002}#)
-                                            (if (if #{tmp\ 1002}#
-                                                  (apply (lambda (#{a\ 1006}#
-                                                                  #{init\ 
1007}#
-                                                                  #{b\ 1008}#)
-                                                           (#{id?\ 222}#
-                                                             #{a\ 1006}#))
-                                                         #{tmp\ 1002}#)
+                                                          #{ropt\ 11916}#)))
+                                                #{tmp\ 11922}#)
+                                         ((lambda (#{tmp\ 11931}#)
+                                            (if (if #{tmp\ 11931}#
+                                                  (apply (lambda (#{a\ 11935}#
+                                                                  #{init\ 
11936}#
+                                                                  #{b\ 11937}#)
+                                                           (#{id?\ 11151}#
+                                                             #{a\ 11935}#))
+                                                         #{tmp\ 11931}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 1012}#
-                                                              #{init\ 1013}#
-                                                              #{b\ 1014}#)
-                                                       (#{opt\ 845}#
-                                                         #{b\ 1014}#
-                                                         #{req\ 986}#
-                                                         (cons (list #{a\ 
1012}#
-                                                                     #{init\ 
1013}#)
-                                                               #{ropt\ 987}#)))
-                                                     #{tmp\ 1002}#)
-                                              ((lambda (#{tmp\ 1015}#)
-                                                 (if (if #{tmp\ 1015}#
-                                                       (apply (lambda (#{a\ 
1018}#
-                                                                       #{b\ 
1019}#)
+                                              (apply (lambda (#{a\ 11941}#
+                                                              #{init\ 11942}#
+                                                              #{b\ 11943}#)
+                                                       (#{opt\ 11774}#
+                                                         #{b\ 11943}#
+                                                         #{req\ 11915}#
+                                                         (cons (list #{a\ 
11941}#
+                                                                     #{init\ 
11942}#)
+                                                               #{ropt\ 
11916}#)))
+                                                     #{tmp\ 11931}#)
+                                              ((lambda (#{tmp\ 11944}#)
+                                                 (if (if #{tmp\ 11944}#
+                                                       (apply (lambda (#{a\ 
11947}#
+                                                                       #{b\ 
11948}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
1018}#)
+                                                                       #{a\ 
11947}#)
                                                                      #:key))
-                                                              #{tmp\ 1015}#)
+                                                              #{tmp\ 11944}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 1022}#
-                                                                   #{b\ 1023}#)
-                                                            (#{key\ 847}#
-                                                              #{b\ 1023}#
-                                                              #{req\ 986}#
+                                                   (apply (lambda (#{a\ 11951}#
+                                                                   #{b\ 
11952}#)
+                                                            (#{key\ 11776}#
+                                                              #{b\ 11952}#
+                                                              #{req\ 11915}#
                                                               (reverse
-                                                                #{ropt\ 987}#)
+                                                                #{ropt\ 
11916}#)
                                                               '()))
-                                                          #{tmp\ 1015}#)
-                                                   ((lambda (#{tmp\ 1024}#)
-                                                      (if (if #{tmp\ 1024}#
-                                                            (apply (lambda 
(#{a\ 1027}#
-                                                                            
#{b\ 1028}#)
+                                                          #{tmp\ 11944}#)
+                                                   ((lambda (#{tmp\ 11953}#)
+                                                      (if (if #{tmp\ 11953}#
+                                                            (apply (lambda 
(#{a\ 11956}#
+                                                                            
#{b\ 11957}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 1027}#)
+                                                                            
#{a\ 11956}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
1024}#)
+                                                                   #{tmp\ 
11953}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
1031}#
-                                                                        #{b\ 
1032}#)
-                                                                 (#{rest\ 849}#
-                                                                   #{b\ 1032}#
-                                                                   #{req\ 986}#
+                                                        (apply (lambda (#{a\ 
11960}#
+                                                                        #{b\ 
11961}#)
+                                                                 (#{rest\ 
11778}#
+                                                                   #{b\ 11961}#
+                                                                   #{req\ 
11915}#
                                                                    (reverse
-                                                                     #{ropt\ 
987}#)
+                                                                     #{ropt\ 
11916}#)
                                                                    '()))
-                                                               #{tmp\ 1024}#)
-                                                        ((lambda (#{tmp\ 
1033}#)
-                                                           (if (if #{tmp\ 
1033}#
-                                                                 (apply 
(lambda (#{r\ 1035}#)
-                                                                          
(#{id?\ 222}#
-                                                                            
#{r\ 1035}#))
-                                                                        #{tmp\ 
1033}#)
+                                                               #{tmp\ 11953}#)
+                                                        ((lambda (#{tmp\ 
11962}#)
+                                                           (if (if #{tmp\ 
11962}#
+                                                                 (apply 
(lambda (#{r\ 11964}#)
+                                                                          
(#{id?\ 11151}#
+                                                                            
#{r\ 11964}#))
+                                                                        #{tmp\ 
11962}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 1037}#)
-                                                                      (#{rest\ 
849}#
-                                                                        #{r\ 
1037}#
-                                                                        #{req\ 
986}#
+                                                             (apply (lambda 
(#{r\ 11966}#)
+                                                                      (#{rest\ 
11778}#
+                                                                        #{r\ 
11966}#
+                                                                        #{req\ 
11915}#
                                                                         
(reverse
-                                                                          
#{ropt\ 987}#)
+                                                                          
#{ropt\ 11916}#)
                                                                         '()))
-                                                                    #{tmp\ 
1033}#)
-                                                             ((lambda (#{else\ 
1039}#)
+                                                                    #{tmp\ 
11962}#)
+                                                             ((lambda (#{else\ 
11968}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
840}#
-                                                                  #{args\ 
985}#))
-                                                              #{tmp\ 991}#)))
-                                                         (list #{tmp\ 991}#))))
+                                                                  #{orig-args\ 
11769}#
+                                                                  #{args\ 
11914}#))
+                                                              #{tmp\ 11920}#)))
+                                                         (list #{tmp\ 
11920}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 991}#
+                                                      #{tmp\ 11920}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 991}#
+                                                 #{tmp\ 11920}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 991}#
+                                            #{tmp\ 11920}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 991}#
+                                       #{tmp\ 11920}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 991}# (quote ()))))
-                             #{args\ 985}#)))
-                        (#{req\ 843}#
-                          (lambda (#{args\ 1040}# #{rreq\ 1041}#)
-                            ((lambda (#{tmp\ 1044}#)
-                               ((lambda (#{tmp\ 1045}#)
-                                  (if #{tmp\ 1045}#
+                                ($sc-dispatch #{tmp\ 11920}# (quote ()))))
+                             #{args\ 11914}#)))
+                        (#{req\ 11772}#
+                          (lambda (#{args\ 11969}# #{rreq\ 11970}#)
+                            ((lambda (#{tmp\ 11973}#)
+                               ((lambda (#{tmp\ 11974}#)
+                                  (if #{tmp\ 11974}#
                                     (apply (lambda ()
-                                             (#{check\ 851}#
-                                               (reverse #{rreq\ 1041}#)
+                                             (#{check\ 11780}#
+                                               (reverse #{rreq\ 11970}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 1045}#)
-                                    ((lambda (#{tmp\ 1046}#)
-                                       (if (if #{tmp\ 1046}#
-                                             (apply (lambda (#{a\ 1049}#
-                                                             #{b\ 1050}#)
-                                                      (#{id?\ 222}#
-                                                        #{a\ 1049}#))
-                                                    #{tmp\ 1046}#)
+                                           #{tmp\ 11974}#)
+                                    ((lambda (#{tmp\ 11975}#)
+                                       (if (if #{tmp\ 11975}#
+                                             (apply (lambda (#{a\ 11978}#
+                                                             #{b\ 11979}#)
+                                                      (#{id?\ 11151}#
+                                                        #{a\ 11978}#))
+                                                    #{tmp\ 11975}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1053}#
-                                                         #{b\ 1054}#)
-                                                  (#{req\ 843}#
-                                                    #{b\ 1054}#
-                                                    (cons #{a\ 1053}#
-                                                          #{rreq\ 1041}#)))
-                                                #{tmp\ 1046}#)
-                                         ((lambda (#{tmp\ 1055}#)
-                                            (if (if #{tmp\ 1055}#
-                                                  (apply (lambda (#{a\ 1058}#
-                                                                  #{b\ 1059}#)
+                                         (apply (lambda (#{a\ 11982}#
+                                                         #{b\ 11983}#)
+                                                  (#{req\ 11772}#
+                                                    #{b\ 11983}#
+                                                    (cons #{a\ 11982}#
+                                                          #{rreq\ 11970}#)))
+                                                #{tmp\ 11975}#)
+                                         ((lambda (#{tmp\ 11984}#)
+                                            (if (if #{tmp\ 11984}#
+                                                  (apply (lambda (#{a\ 11987}#
+                                                                  #{b\ 11988}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 1058}#)
+                                                                  #{a\ 11987}#)
                                                                 #:optional))
-                                                         #{tmp\ 1055}#)
+                                                         #{tmp\ 11984}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 1062}#
-                                                              #{b\ 1063}#)
-                                                       (#{opt\ 845}#
-                                                         #{b\ 1063}#
+                                              (apply (lambda (#{a\ 11991}#
+                                                              #{b\ 11992}#)
+                                                       (#{opt\ 11774}#
+                                                         #{b\ 11992}#
                                                          (reverse
-                                                           #{rreq\ 1041}#)
+                                                           #{rreq\ 11970}#)
                                                          '()))
-                                                     #{tmp\ 1055}#)
-                                              ((lambda (#{tmp\ 1064}#)
-                                                 (if (if #{tmp\ 1064}#
-                                                       (apply (lambda (#{a\ 
1067}#
-                                                                       #{b\ 
1068}#)
+                                                     #{tmp\ 11984}#)
+                                              ((lambda (#{tmp\ 11993}#)
+                                                 (if (if #{tmp\ 11993}#
+                                                       (apply (lambda (#{a\ 
11996}#
+                                                                       #{b\ 
11997}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
1067}#)
+                                                                       #{a\ 
11996}#)
                                                                      #:key))
-                                                              #{tmp\ 1064}#)
+                                                              #{tmp\ 11993}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 1071}#
-                                                                   #{b\ 1072}#)
-                                                            (#{key\ 847}#
-                                                              #{b\ 1072}#
+                                                   (apply (lambda (#{a\ 12000}#
+                                                                   #{b\ 
12001}#)
+                                                            (#{key\ 11776}#
+                                                              #{b\ 12001}#
                                                               (reverse
-                                                                #{rreq\ 1041}#)
+                                                                #{rreq\ 
11970}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 1064}#)
-                                                   ((lambda (#{tmp\ 1073}#)
-                                                      (if (if #{tmp\ 1073}#
-                                                            (apply (lambda 
(#{a\ 1076}#
-                                                                            
#{b\ 1077}#)
+                                                          #{tmp\ 11993}#)
+                                                   ((lambda (#{tmp\ 12002}#)
+                                                      (if (if #{tmp\ 12002}#
+                                                            (apply (lambda 
(#{a\ 12005}#
+                                                                            
#{b\ 12006}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 1076}#)
+                                                                            
#{a\ 12005}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
1073}#)
+                                                                   #{tmp\ 
12002}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
1080}#
-                                                                        #{b\ 
1081}#)
-                                                                 (#{rest\ 849}#
-                                                                   #{b\ 1081}#
+                                                        (apply (lambda (#{a\ 
12009}#
+                                                                        #{b\ 
12010}#)
+                                                                 (#{rest\ 
11778}#
+                                                                   #{b\ 12010}#
                                                                    (reverse
-                                                                     #{rreq\ 
1041}#)
+                                                                     #{rreq\ 
11970}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 1073}#)
-                                                        ((lambda (#{tmp\ 
1082}#)
-                                                           (if (if #{tmp\ 
1082}#
-                                                                 (apply 
(lambda (#{r\ 1084}#)
-                                                                          
(#{id?\ 222}#
-                                                                            
#{r\ 1084}#))
-                                                                        #{tmp\ 
1082}#)
+                                                               #{tmp\ 12002}#)
+                                                        ((lambda (#{tmp\ 
12011}#)
+                                                           (if (if #{tmp\ 
12011}#
+                                                                 (apply 
(lambda (#{r\ 12013}#)
+                                                                          
(#{id?\ 11151}#
+                                                                            
#{r\ 12013}#))
+                                                                        #{tmp\ 
12011}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 1086}#)
-                                                                      (#{rest\ 
849}#
-                                                                        #{r\ 
1086}#
+                                                             (apply (lambda 
(#{r\ 12015}#)
+                                                                      (#{rest\ 
11778}#
+                                                                        #{r\ 
12015}#
                                                                         
(reverse
-                                                                          
#{rreq\ 1041}#)
+                                                                          
#{rreq\ 11970}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
1082}#)
-                                                             ((lambda (#{else\ 
1088}#)
+                                                                    #{tmp\ 
12011}#)
+                                                             ((lambda (#{else\ 
12017}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
840}#
-                                                                  #{args\ 
1040}#))
-                                                              #{tmp\ 1044}#)))
-                                                         (list #{tmp\ 
1044}#))))
+                                                                  #{orig-args\ 
11769}#
+                                                                  #{args\ 
11969}#))
+                                                              #{tmp\ 11973}#)))
+                                                         (list #{tmp\ 
11973}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1044}#
+                                                      #{tmp\ 11973}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 1044}#
+                                                 #{tmp\ 11973}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 1044}#
+                                            #{tmp\ 11973}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 1044}#
+                                       #{tmp\ 11973}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 1044}# (quote ()))))
-                             #{args\ 1040}#))))
-                 (#{req\ 843}# #{orig-args\ 840}# (quote ())))))
-           (#{chi-simple-lambda\ 327}#
-             (lambda (#{e\ 1089}#
-                      #{r\ 1090}#
-                      #{w\ 1091}#
-                      #{s\ 1092}#
-                      #{mod\ 1093}#
-                      #{req\ 1094}#
-                      #{rest\ 1095}#
-                      #{meta\ 1096}#
-                      #{body\ 1097}#)
-               (let ((#{ids\ 1109}#
-                       (if #{rest\ 1095}#
-                         (append #{req\ 1094}# (list #{rest\ 1095}#))
-                         #{req\ 1094}#)))
-                 (let ((#{vars\ 1111}#
-                         (map #{gen-var\ 335}# #{ids\ 1109}#)))
-                   (let ((#{labels\ 1113}#
-                           (#{gen-labels\ 240}# #{ids\ 1109}#)))
-                     (#{build-simple-lambda\ 164}#
-                       #{s\ 1092}#
-                       (map syntax->datum #{req\ 1094}#)
-                       (if #{rest\ 1095}#
-                         (syntax->datum #{rest\ 1095}#)
+                                ($sc-dispatch #{tmp\ 11973}# (quote ()))))
+                             #{args\ 11969}#))))
+                 (#{req\ 11772}# #{orig-args\ 11769}# (quote ())))))
+           (#{chi-simple-lambda\ 11256}#
+             (lambda (#{e\ 12018}#
+                      #{r\ 12019}#
+                      #{w\ 12020}#
+                      #{s\ 12021}#
+                      #{mod\ 12022}#
+                      #{req\ 12023}#
+                      #{rest\ 12024}#
+                      #{meta\ 12025}#
+                      #{body\ 12026}#)
+               (let ((#{ids\ 12038}#
+                       (if #{rest\ 12024}#
+                         (append #{req\ 12023}# (list #{rest\ 12024}#))
+                         #{req\ 12023}#)))
+                 (let ((#{vars\ 12040}#
+                         (map #{gen-var\ 11264}# #{ids\ 12038}#)))
+                   (let ((#{labels\ 12042}#
+                           (#{gen-labels\ 11169}# #{ids\ 12038}#)))
+                     (#{build-simple-lambda\ 11093}#
+                       #{s\ 12021}#
+                       (map syntax->datum #{req\ 12023}#)
+                       (if #{rest\ 12024}#
+                         (syntax->datum #{rest\ 12024}#)
                          #f)
-                       #{vars\ 1111}#
-                       #{meta\ 1096}#
-                       (#{chi-body\ 315}#
-                         #{body\ 1097}#
-                         (#{source-wrap\ 293}#
-                           #{e\ 1089}#
-                           #{w\ 1091}#
-                           #{s\ 1092}#
-                           #{mod\ 1093}#)
-                         (#{extend-var-env\ 212}#
-                           #{labels\ 1113}#
-                           #{vars\ 1111}#
-                           #{r\ 1090}#)
-                         (#{make-binding-wrap\ 269}#
-                           #{ids\ 1109}#
-                           #{labels\ 1113}#
-                           #{w\ 1091}#)
-                         #{mod\ 1093}#)))))))
-           (#{lambda-formals\ 325}#
-             (lambda (#{orig-args\ 1116}#)
-               (letrec ((#{check\ 1121}#
-                          (lambda (#{req\ 1122}# #{rest\ 1123}#)
-                            (if (#{distinct-bound-ids?\ 287}#
-                                  (if #{rest\ 1123}#
-                                    (cons #{rest\ 1123}# #{req\ 1122}#)
-                                    #{req\ 1122}#))
-                              (values #{req\ 1122}# #f #{rest\ 1123}# #f)
+                       #{vars\ 12040}#
+                       #{meta\ 12025}#
+                       (#{chi-body\ 11244}#
+                         #{body\ 12026}#
+                         (#{source-wrap\ 11222}#
+                           #{e\ 12018}#
+                           #{w\ 12020}#
+                           #{s\ 12021}#
+                           #{mod\ 12022}#)
+                         (#{extend-var-env\ 11141}#
+                           #{labels\ 12042}#
+                           #{vars\ 12040}#
+                           #{r\ 12019}#)
+                         (#{make-binding-wrap\ 11198}#
+                           #{ids\ 12038}#
+                           #{labels\ 12042}#
+                           #{w\ 12020}#)
+                         #{mod\ 12022}#)))))))
+           (#{lambda-formals\ 11254}#
+             (lambda (#{orig-args\ 12045}#)
+               (letrec ((#{check\ 12050}#
+                          (lambda (#{req\ 12051}# #{rest\ 12052}#)
+                            (if (#{distinct-bound-ids?\ 11216}#
+                                  (if #{rest\ 12052}#
+                                    (cons #{rest\ 12052}# #{req\ 12051}#)
+                                    #{req\ 12051}#))
+                              (values #{req\ 12051}# #f #{rest\ 12052}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 1116}#))))
-                        (#{req\ 1119}#
-                          (lambda (#{args\ 1129}# #{rreq\ 1130}#)
-                            ((lambda (#{tmp\ 1133}#)
-                               ((lambda (#{tmp\ 1134}#)
-                                  (if #{tmp\ 1134}#
+                                #{orig-args\ 12045}#))))
+                        (#{req\ 12048}#
+                          (lambda (#{args\ 12058}# #{rreq\ 12059}#)
+                            ((lambda (#{tmp\ 12062}#)
+                               ((lambda (#{tmp\ 12063}#)
+                                  (if #{tmp\ 12063}#
                                     (apply (lambda ()
-                                             (#{check\ 1121}#
-                                               (reverse #{rreq\ 1130}#)
+                                             (#{check\ 12050}#
+                                               (reverse #{rreq\ 12059}#)
                                                #f))
-                                           #{tmp\ 1134}#)
-                                    ((lambda (#{tmp\ 1135}#)
-                                       (if (if #{tmp\ 1135}#
-                                             (apply (lambda (#{a\ 1138}#
-                                                             #{b\ 1139}#)
-                                                      (#{id?\ 222}#
-                                                        #{a\ 1138}#))
-                                                    #{tmp\ 1135}#)
+                                           #{tmp\ 12063}#)
+                                    ((lambda (#{tmp\ 12064}#)
+                                       (if (if #{tmp\ 12064}#
+                                             (apply (lambda (#{a\ 12067}#
+                                                             #{b\ 12068}#)
+                                                      (#{id?\ 11151}#
+                                                        #{a\ 12067}#))
+                                                    #{tmp\ 12064}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1142}#
-                                                         #{b\ 1143}#)
-                                                  (#{req\ 1119}#
-                                                    #{b\ 1143}#
-                                                    (cons #{a\ 1142}#
-                                                          #{rreq\ 1130}#)))
-                                                #{tmp\ 1135}#)
-                                         ((lambda (#{tmp\ 1144}#)
-                                            (if (if #{tmp\ 1144}#
-                                                  (apply (lambda (#{r\ 1146}#)
-                                                           (#{id?\ 222}#
-                                                             #{r\ 1146}#))
-                                                         #{tmp\ 1144}#)
+                                         (apply (lambda (#{a\ 12071}#
+                                                         #{b\ 12072}#)
+                                                  (#{req\ 12048}#
+                                                    #{b\ 12072}#
+                                                    (cons #{a\ 12071}#
+                                                          #{rreq\ 12059}#)))
+                                                #{tmp\ 12064}#)
+                                         ((lambda (#{tmp\ 12073}#)
+                                            (if (if #{tmp\ 12073}#
+                                                  (apply (lambda (#{r\ 12075}#)
+                                                           (#{id?\ 11151}#
+                                                             #{r\ 12075}#))
+                                                         #{tmp\ 12073}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 1148}#)
-                                                       (#{check\ 1121}#
+                                              (apply (lambda (#{r\ 12077}#)
+                                                       (#{check\ 12050}#
                                                          (reverse
-                                                           #{rreq\ 1130}#)
-                                                         #{r\ 1148}#))
-                                                     #{tmp\ 1144}#)
-                                              ((lambda (#{else\ 1150}#)
+                                                           #{rreq\ 12059}#)
+                                                         #{r\ 12077}#))
+                                                     #{tmp\ 12073}#)
+                                              ((lambda (#{else\ 12079}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 1116}#
-                                                   #{args\ 1129}#))
-                                               #{tmp\ 1133}#)))
-                                          (list #{tmp\ 1133}#))))
+                                                   #{orig-args\ 12045}#
+                                                   #{args\ 12058}#))
+                                               #{tmp\ 12062}#)))
+                                          (list #{tmp\ 12062}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 1133}#
+                                       #{tmp\ 12062}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 1133}# (quote ()))))
-                             #{args\ 1129}#))))
-                 (#{req\ 1119}# #{orig-args\ 1116}# (quote ())))))
-           (#{ellipsis?\ 323}#
-             (lambda (#{x\ 1151}#)
-               (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#)
-                 (#{free-id=?\ 281}#
-                   #{x\ 1151}#
+                                ($sc-dispatch #{tmp\ 12062}# (quote ()))))
+                             #{args\ 12058}#))))
+                 (#{req\ 12048}# #{orig-args\ 12045}# (quote ())))))
+           (#{ellipsis?\ 11252}#
+             (lambda (#{x\ 12080}#)
+               (if (#{nonsymbol-id?\ 11149}# #{x\ 12080}#)
+                 (#{free-id=?\ 11210}#
+                   #{x\ 12080}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i1152"))
+                       #(ribcage #(x) #((top)) #("i12081"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2103,8 +2118,7 @@
                            fx=
                            fx-
                            fx+
-                           *mode*
-                           noexpand)
+                           *mode*)
                          ((top)
                           (top)
                           (top)
@@ -2221,1414 +2235,1422 @@
                           (top)
                           (top)
                           (top)
-                          (top)
                           (top))
-                         ("i336"
-                          "i334"
-                          "i332"
-                          "i330"
-                          "i328"
-                          "i326"
-                          "i324"
-                          "i322"
-                          "i320"
-                          "i318"
-                          "i316"
-                          "i314"
-                          "i312"
-                          "i310"
-                          "i308"
-                          "i306"
-                          "i304"
-                          "i302"
-                          "i300"
-                          "i298"
-                          "i296"
-                          "i294"
-                          "i292"
-                          "i290"
-                          "i288"
-                          "i286"
-                          "i284"
-                          "i282"
-                          "i280"
-                          "i278"
-                          "i276"
-                          "i274"
-                          "i272"
-                          "i270"
-                          "i268"
-                          "i266"
-                          "i265"
-                          "i264"
-                          "i262"
-                          "i261"
-                          "i260"
-                          "i259"
-                          "i258"
-                          "i256"
-                          "i254"
-                          "i252"
-                          "i250"
-                          "i248"
-                          "i246"
-                          "i244"
-                          "i242"
-                          "i239"
-                          "i237"
-                          "i236"
-                          "i235"
-                          "i234"
-                          "i233"
-                          "i232"
-                          "i230"
-                          "i228"
-                          "i226"
-                          "i224"
-                          "i223"
-                          "i221"
-                          "i219"
-                          "i217"
-                          "i215"
-                          "i213"
-                          "i211"
-                          "i209"
-                          "i208"
-                          "i206"
-                          "i204"
-                          "i203"
-                          "i202"
-                          "i200"
-                          "i199"
-                          "i197"
-                          "i195"
-                          "i193"
-                          "i191"
-                          "i189"
-                          "i187"
-                          "i185"
-                          "i183"
-                          "i181"
-                          "i179"
-                          "i177"
-                          "i175"
-                          "i173"
-                          "i171"
-                          "i169"
-                          "i167"
-                          "i165"
-                          "i163"
-                          "i161"
-                          "i159"
-                          "i157"
-                          "i155"
-                          "i153"
-                          "i151"
-                          "i149"
-                          "i147"
-                          "i145"
-                          "i143"
-                          "i141"
-                          "i139"
-                          "i137"
-                          "i135"
-                          "i134"
-                          "i132"
-                          "i130"
-                          "i128"
-                          "i126"
-                          "i124"
-                          "i122"
-                          "i120"
-                          "i118"))
+                         ("i11265"
+                          "i11263"
+                          "i11261"
+                          "i11259"
+                          "i11257"
+                          "i11255"
+                          "i11253"
+                          "i11251"
+                          "i11249"
+                          "i11247"
+                          "i11245"
+                          "i11243"
+                          "i11241"
+                          "i11239"
+                          "i11237"
+                          "i11235"
+                          "i11233"
+                          "i11231"
+                          "i11229"
+                          "i11227"
+                          "i11225"
+                          "i11223"
+                          "i11221"
+                          "i11219"
+                          "i11217"
+                          "i11215"
+                          "i11213"
+                          "i11211"
+                          "i11209"
+                          "i11207"
+                          "i11205"
+                          "i11203"
+                          "i11201"
+                          "i11199"
+                          "i11197"
+                          "i11195"
+                          "i11194"
+                          "i11193"
+                          "i11191"
+                          "i11190"
+                          "i11189"
+                          "i11188"
+                          "i11187"
+                          "i11185"
+                          "i11183"
+                          "i11181"
+                          "i11179"
+                          "i11177"
+                          "i11175"
+                          "i11173"
+                          "i11171"
+                          "i11168"
+                          "i11166"
+                          "i11165"
+                          "i11164"
+                          "i11163"
+                          "i11162"
+                          "i11161"
+                          "i11159"
+                          "i11157"
+                          "i11155"
+                          "i11153"
+                          "i11152"
+                          "i11150"
+                          "i11148"
+                          "i11146"
+                          "i11144"
+                          "i11142"
+                          "i11140"
+                          "i11138"
+                          "i11137"
+                          "i11135"
+                          "i11133"
+                          "i11132"
+                          "i11131"
+                          "i11129"
+                          "i11128"
+                          "i11126"
+                          "i11124"
+                          "i11122"
+                          "i11120"
+                          "i11118"
+                          "i11116"
+                          "i11114"
+                          "i11112"
+                          "i11110"
+                          "i11108"
+                          "i11106"
+                          "i11104"
+                          "i11102"
+                          "i11100"
+                          "i11098"
+                          "i11096"
+                          "i11094"
+                          "i11092"
+                          "i11090"
+                          "i11088"
+                          "i11086"
+                          "i11084"
+                          "i11082"
+                          "i11080"
+                          "i11078"
+                          "i11076"
+                          "i11074"
+                          "i11072"
+                          "i11070"
+                          "i11068"
+                          "i11066"
+                          "i11064"
+                          "i11063"
+                          "i11061"
+                          "i11059"
+                          "i11057"
+                          "i11055"
+                          "i11053"
+                          "i11051"
+                          "i11049"))
                        #(ribcage
                          (define-structure and-map*)
                          ((top) (top))
-                         ("i21" "i19")))
+                         ("i10952" "i10950")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 321}#
-             (lambda () (#{build-void\ 142}# #f)))
-           (#{eval-local-transformer\ 319}#
-             (lambda (#{expanded\ 1156}# #{mod\ 1157}#)
-               (let ((#{p\ 1161}#
-                       (#{local-eval-hook\ 133}#
-                         #{expanded\ 1156}#
-                         #{mod\ 1157}#)))
-                 (if (procedure? #{p\ 1161}#)
-                   (cons #{p\ 1161}# (module-name (current-module)))
+           (#{chi-void\ 11250}#
+             (lambda () (#{build-void\ 11071}# #f)))
+           (#{eval-local-transformer\ 11248}#
+             (lambda (#{expanded\ 12085}# #{mod\ 12086}#)
+               (let ((#{p\ 12090}#
+                       (#{local-eval-hook\ 11062}#
+                         #{expanded\ 12085}#
+                         #{mod\ 12086}#)))
+                 (if (procedure? #{p\ 12090}#)
+                   (cons #{p\ 12090}#
+                         (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 1161}#)))))
-           (#{chi-local-syntax\ 317}#
-             (lambda (#{rec?\ 1162}#
-                      #{e\ 1163}#
-                      #{r\ 1164}#
-                      #{w\ 1165}#
-                      #{s\ 1166}#
-                      #{mod\ 1167}#
-                      #{k\ 1168}#)
-               ((lambda (#{tmp\ 1176}#)
-                  ((lambda (#{tmp\ 1177}#)
-                     (if #{tmp\ 1177}#
-                       (apply (lambda (#{_\ 1183}#
-                                       #{id\ 1184}#
-                                       #{val\ 1185}#
-                                       #{e1\ 1186}#
-                                       #{e2\ 1187}#)
-                                (let ((#{ids\ 1189}# #{id\ 1184}#))
-                                  (if (not (#{valid-bound-ids?\ 285}#
-                                             #{ids\ 1189}#))
+                     #{p\ 12090}#)))))
+           (#{chi-local-syntax\ 11246}#
+             (lambda (#{rec?\ 12091}#
+                      #{e\ 12092}#
+                      #{r\ 12093}#
+                      #{w\ 12094}#
+                      #{s\ 12095}#
+                      #{mod\ 12096}#
+                      #{k\ 12097}#)
+               ((lambda (#{tmp\ 12105}#)
+                  ((lambda (#{tmp\ 12106}#)
+                     (if #{tmp\ 12106}#
+                       (apply (lambda (#{_\ 12112}#
+                                       #{id\ 12113}#
+                                       #{val\ 12114}#
+                                       #{e1\ 12115}#
+                                       #{e2\ 12116}#)
+                                (let ((#{ids\ 12118}# #{id\ 12113}#))
+                                  (if (not (#{valid-bound-ids?\ 11214}#
+                                             #{ids\ 12118}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 1163}#)
-                                    (let ((#{labels\ 1192}#
-                                            (#{gen-labels\ 240}#
-                                              #{ids\ 1189}#)))
-                                      (let ((#{new-w\ 1194}#
-                                              (#{make-binding-wrap\ 269}#
-                                                #{ids\ 1189}#
-                                                #{labels\ 1192}#
-                                                #{w\ 1165}#)))
-                                        (#{k\ 1168}#
-                                          (cons #{e1\ 1186}# #{e2\ 1187}#)
-                                          (#{extend-env\ 210}#
-                                            #{labels\ 1192}#
-                                            (let ((#{w\ 1198}#
-                                                    (if #{rec?\ 1162}#
-                                                      #{new-w\ 1194}#
-                                                      #{w\ 1165}#))
-                                                  (#{trans-r\ 1199}#
-                                                    (#{macros-only-env\ 214}#
-                                                      #{r\ 1164}#)))
-                                              (map (lambda (#{x\ 1200}#)
+                                      #{e\ 12092}#)
+                                    (let ((#{labels\ 12121}#
+                                            (#{gen-labels\ 11169}#
+                                              #{ids\ 12118}#)))
+                                      (let ((#{new-w\ 12123}#
+                                              (#{make-binding-wrap\ 11198}#
+                                                #{ids\ 12118}#
+                                                #{labels\ 12121}#
+                                                #{w\ 12094}#)))
+                                        (#{k\ 12097}#
+                                          (cons #{e1\ 12115}# #{e2\ 12116}#)
+                                          (#{extend-env\ 11139}#
+                                            #{labels\ 12121}#
+                                            (let ((#{w\ 12127}#
+                                                    (if #{rec?\ 12091}#
+                                                      #{new-w\ 12123}#
+                                                      #{w\ 12094}#))
+                                                  (#{trans-r\ 12128}#
+                                                    (#{macros-only-env\ 11143}#
+                                                      #{r\ 12093}#)))
+                                              (map (lambda (#{x\ 12129}#)
                                                      (cons 'macro
-                                                           
(#{eval-local-transformer\ 319}#
-                                                             (#{chi\ 307}#
-                                                               #{x\ 1200}#
-                                                               #{trans-r\ 
1199}#
-                                                               #{w\ 1198}#
-                                                               #{mod\ 1167}#)
-                                                             #{mod\ 1167}#)))
-                                                   #{val\ 1185}#))
-                                            #{r\ 1164}#)
-                                          #{new-w\ 1194}#
-                                          #{s\ 1166}#
-                                          #{mod\ 1167}#))))))
-                              #{tmp\ 1177}#)
-                       ((lambda (#{_\ 1205}#)
+                                                           
(#{eval-local-transformer\ 11248}#
+                                                             (#{chi\ 11236}#
+                                                               #{x\ 12129}#
+                                                               #{trans-r\ 
12128}#
+                                                               #{w\ 12127}#
+                                                               #{mod\ 12096}#)
+                                                             #{mod\ 12096}#)))
+                                                   #{val\ 12114}#))
+                                            #{r\ 12093}#)
+                                          #{new-w\ 12123}#
+                                          #{s\ 12095}#
+                                          #{mod\ 12096}#))))))
+                              #{tmp\ 12106}#)
+                       ((lambda (#{_\ 12134}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 293}#
-                              #{e\ 1163}#
-                              #{w\ 1165}#
-                              #{s\ 1166}#
-                              #{mod\ 1167}#)))
-                        #{tmp\ 1176}#)))
+                            (#{source-wrap\ 11222}#
+                              #{e\ 12092}#
+                              #{w\ 12094}#
+                              #{s\ 12095}#
+                              #{mod\ 12096}#)))
+                        #{tmp\ 12105}#)))
                    ($sc-dispatch
-                     #{tmp\ 1176}#
+                     #{tmp\ 12105}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 1163}#)))
-           (#{chi-body\ 315}#
-             (lambda (#{body\ 1206}#
-                      #{outer-form\ 1207}#
-                      #{r\ 1208}#
-                      #{w\ 1209}#
-                      #{mod\ 1210}#)
-               (let ((#{r\ 1218}#
+                #{e\ 12092}#)))
+           (#{chi-body\ 11244}#
+             (lambda (#{body\ 12135}#
+                      #{outer-form\ 12136}#
+                      #{r\ 12137}#
+                      #{w\ 12138}#
+                      #{mod\ 12139}#)
+               (let ((#{r\ 12147}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 1208}#)))
-                 (let ((#{ribcage\ 1220}#
-                         (#{make-ribcage\ 243}#
+                             #{r\ 12137}#)))
+                 (let ((#{ribcage\ 12149}#
+                         (#{make-ribcage\ 11172}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 1223}#
-                           (#{make-wrap\ 227}#
-                             (#{wrap-marks\ 229}# #{w\ 1209}#)
-                             (cons #{ribcage\ 1220}#
-                                   (#{wrap-subst\ 231}# #{w\ 1209}#)))))
-                     (letrec ((#{parse\ 1232}#
-                                (lambda (#{body\ 1233}#
-                                         #{ids\ 1234}#
-                                         #{labels\ 1235}#
-                                         #{var-ids\ 1236}#
-                                         #{vars\ 1237}#
-                                         #{vals\ 1238}#
-                                         #{bindings\ 1239}#)
-                                  (if (null? #{body\ 1233}#)
+                   (let ((#{w\ 12152}#
+                           (#{make-wrap\ 11156}#
+                             (#{wrap-marks\ 11158}# #{w\ 12138}#)
+                             (cons #{ribcage\ 12149}#
+                                   (#{wrap-subst\ 11160}# #{w\ 12138}#)))))
+                     (letrec ((#{parse\ 12161}#
+                                (lambda (#{body\ 12162}#
+                                         #{ids\ 12163}#
+                                         #{labels\ 12164}#
+                                         #{var-ids\ 12165}#
+                                         #{vars\ 12166}#
+                                         #{vals\ 12167}#
+                                         #{bindings\ 12168}#)
+                                  (if (null? #{body\ 12162}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 1207}#)
-                                    (let ((#{e\ 1244}# (cdar #{body\ 1233}#))
-                                          (#{er\ 1245}# (caar #{body\ 1233}#)))
+                                      #{outer-form\ 12136}#)
+                                    (let ((#{e\ 12173}# (cdar #{body\ 12162}#))
+                                          (#{er\ 12174}#
+                                            (caar #{body\ 12162}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 303}#
-                                            #{e\ 1244}#
-                                            #{er\ 1245}#
+                                          (#{syntax-type\ 11232}#
+                                            #{e\ 12173}#
+                                            #{er\ 12174}#
                                             '(())
-                                            (#{source-annotation\ 201}#
-                                              #{er\ 1245}#)
-                                            #{ribcage\ 1220}#
-                                            #{mod\ 1210}#
+                                            (#{source-annotation\ 11130}#
+                                              #{er\ 12174}#)
+                                            #{ribcage\ 12149}#
+                                            #{mod\ 12139}#
                                             #f))
-                                        (lambda (#{type\ 1247}#
-                                                 #{value\ 1248}#
-                                                 #{e\ 1249}#
-                                                 #{w\ 1250}#
-                                                 #{s\ 1251}#
-                                                 #{mod\ 1252}#)
-                                          (if (memv #{type\ 1247}#
+                                        (lambda (#{type\ 12176}#
+                                                 #{value\ 12177}#
+                                                 #{e\ 12178}#
+                                                 #{w\ 12179}#
+                                                 #{s\ 12180}#
+                                                 #{mod\ 12181}#)
+                                          (if (memv #{type\ 12176}#
                                                     '(define-form))
-                                            (let ((#{id\ 1262}#
-                                                    (#{wrap\ 291}#
-                                                      #{value\ 1248}#
-                                                      #{w\ 1250}#
-                                                      #{mod\ 1252}#))
-                                                  (#{label\ 1263}#
-                                                    (#{gen-label\ 238}#)))
-                                              (let ((#{var\ 1265}#
-                                                      (#{gen-var\ 335}#
-                                                        #{id\ 1262}#)))
+                                            (let ((#{id\ 12191}#
+                                                    (#{wrap\ 11220}#
+                                                      #{value\ 12177}#
+                                                      #{w\ 12179}#
+                                                      #{mod\ 12181}#))
+                                                  (#{label\ 12192}#
+                                                    (#{gen-label\ 11167}#)))
+                                              (let ((#{var\ 12194}#
+                                                      (#{gen-var\ 11264}#
+                                                        #{id\ 12191}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 267}#
-                                                    #{ribcage\ 1220}#
-                                                    #{id\ 1262}#
-                                                    #{label\ 1263}#)
-                                                  (#{parse\ 1232}#
-                                                    (cdr #{body\ 1233}#)
-                                                    (cons #{id\ 1262}#
-                                                          #{ids\ 1234}#)
-                                                    (cons #{label\ 1263}#
-                                                          #{labels\ 1235}#)
-                                                    (cons #{id\ 1262}#
-                                                          #{var-ids\ 1236}#)
-                                                    (cons #{var\ 1265}#
-                                                          #{vars\ 1237}#)
-                                                    (cons (cons #{er\ 1245}#
-                                                                (#{wrap\ 291}#
-                                                                  #{e\ 1249}#
-                                                                  #{w\ 1250}#
-                                                                  #{mod\ 
1252}#))
-                                                          #{vals\ 1238}#)
+                                                  (#{extend-ribcage!\ 11196}#
+                                                    #{ribcage\ 12149}#
+                                                    #{id\ 12191}#
+                                                    #{label\ 12192}#)
+                                                  (#{parse\ 12161}#
+                                                    (cdr #{body\ 12162}#)
+                                                    (cons #{id\ 12191}#
+                                                          #{ids\ 12163}#)
+                                                    (cons #{label\ 12192}#
+                                                          #{labels\ 12164}#)
+                                                    (cons #{id\ 12191}#
+                                                          #{var-ids\ 12165}#)
+                                                    (cons #{var\ 12194}#
+                                                          #{vars\ 12166}#)
+                                                    (cons (cons #{er\ 12174}#
+                                                                (#{wrap\ 
11220}#
+                                                                  #{e\ 12178}#
+                                                                  #{w\ 12179}#
+                                                                  #{mod\ 
12181}#))
+                                                          #{vals\ 12167}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 1265}#)
-                                                          #{bindings\ 
1239}#)))))
-                                            (if (memv #{type\ 1247}#
+                                                                #{var\ 12194}#)
+                                                          #{bindings\ 
12168}#)))))
+                                            (if (memv #{type\ 12176}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 1270}#
-                                                      (#{wrap\ 291}#
-                                                        #{value\ 1248}#
-                                                        #{w\ 1250}#
-                                                        #{mod\ 1252}#))
-                                                    (#{label\ 1271}#
-                                                      (#{gen-label\ 238}#)))
+                                              (let ((#{id\ 12199}#
+                                                      (#{wrap\ 11220}#
+                                                        #{value\ 12177}#
+                                                        #{w\ 12179}#
+                                                        #{mod\ 12181}#))
+                                                    (#{label\ 12200}#
+                                                      (#{gen-label\ 11167}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 267}#
-                                                    #{ribcage\ 1220}#
-                                                    #{id\ 1270}#
-                                                    #{label\ 1271}#)
-                                                  (#{parse\ 1232}#
-                                                    (cdr #{body\ 1233}#)
-                                                    (cons #{id\ 1270}#
-                                                          #{ids\ 1234}#)
-                                                    (cons #{label\ 1271}#
-                                                          #{labels\ 1235}#)
-                                                    #{var-ids\ 1236}#
-                                                    #{vars\ 1237}#
-                                                    #{vals\ 1238}#
+                                                  (#{extend-ribcage!\ 11196}#
+                                                    #{ribcage\ 12149}#
+                                                    #{id\ 12199}#
+                                                    #{label\ 12200}#)
+                                                  (#{parse\ 12161}#
+                                                    (cdr #{body\ 12162}#)
+                                                    (cons #{id\ 12199}#
+                                                          #{ids\ 12163}#)
+                                                    (cons #{label\ 12200}#
+                                                          #{labels\ 12164}#)
+                                                    #{var-ids\ 12165}#
+                                                    #{vars\ 12166}#
+                                                    #{vals\ 12167}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
1245}#
-                                                                      (#{wrap\ 
291}#
-                                                                        #{e\ 
1249}#
-                                                                        #{w\ 
1250}#
-                                                                        #{mod\ 
1252}#)))
-                                                          #{bindings\ 
1239}#))))
-                                              (if (memv #{type\ 1247}#
+                                                                (cons #{er\ 
12174}#
+                                                                      (#{wrap\ 
11220}#
+                                                                        #{e\ 
12178}#
+                                                                        #{w\ 
12179}#
+                                                                        #{mod\ 
12181}#)))
+                                                          #{bindings\ 
12168}#))))
+                                              (if (memv #{type\ 12176}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 1274}#)
-                                                   ((lambda (#{tmp\ 1275}#)
-                                                      (if #{tmp\ 1275}#
-                                                        (apply (lambda (#{_\ 
1278}#
-                                                                        #{e1\ 
1279}#)
-                                                                 (#{parse\ 
1232}#
-                                                                   (letrec 
((#{f\ 1282}#
-                                                                              
(lambda (#{forms\ 1283}#)
-                                                                               
 (if (null? #{forms\ 1283}#)
-                                                                               
   (cdr #{body\ 1233}#)
-                                                                               
   (cons (cons #{er\ 1245}#
-                                                                               
               (#{wrap\ 291}#
-                                                                               
                 (car #{forms\ 1283}#)
-                                                                               
                 #{w\ 1250}#
-                                                                               
                 #{mod\ 1252}#))
-                                                                               
         (#{f\ 1282}#
-                                                                               
           (cdr #{forms\ 1283}#)))))))
-                                                                     (#{f\ 
1282}#
-                                                                       #{e1\ 
1279}#))
-                                                                   #{ids\ 
1234}#
-                                                                   #{labels\ 
1235}#
-                                                                   #{var-ids\ 
1236}#
-                                                                   #{vars\ 
1237}#
-                                                                   #{vals\ 
1238}#
-                                                                   #{bindings\ 
1239}#))
-                                                               #{tmp\ 1275}#)
+                                                ((lambda (#{tmp\ 12203}#)
+                                                   ((lambda (#{tmp\ 12204}#)
+                                                      (if #{tmp\ 12204}#
+                                                        (apply (lambda (#{_\ 
12207}#
+                                                                        #{e1\ 
12208}#)
+                                                                 (#{parse\ 
12161}#
+                                                                   (letrec 
((#{f\ 12211}#
+                                                                              
(lambda (#{forms\ 12212}#)
+                                                                               
 (if (null? #{forms\ 12212}#)
+                                                                               
   (cdr #{body\ 12162}#)
+                                                                               
   (cons (cons #{er\ 12174}#
+                                                                               
               (#{wrap\ 11220}#
+                                                                               
                 (car #{forms\ 12212}#)
+                                                                               
                 #{w\ 12179}#
+                                                                               
                 #{mod\ 12181}#))
+                                                                               
         (#{f\ 12211}#
+                                                                               
           (cdr #{forms\ 12212}#)))))))
+                                                                     (#{f\ 
12211}#
+                                                                       #{e1\ 
12208}#))
+                                                                   #{ids\ 
12163}#
+                                                                   #{labels\ 
12164}#
+                                                                   #{var-ids\ 
12165}#
+                                                                   #{vars\ 
12166}#
+                                                                   #{vals\ 
12167}#
+                                                                   #{bindings\ 
12168}#))
+                                                               #{tmp\ 12204}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 1274}#)))
+                                                          #{tmp\ 12203}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1274}#
+                                                      #{tmp\ 12203}#
                                                       '(any . each-any))))
-                                                 #{e\ 1249}#)
-                                                (if (memv #{type\ 1247}#
+                                                 #{e\ 12178}#)
+                                                (if (memv #{type\ 12176}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 317}#
-                                                    #{value\ 1248}#
-                                                    #{e\ 1249}#
-                                                    #{er\ 1245}#
-                                                    #{w\ 1250}#
-                                                    #{s\ 1251}#
-                                                    #{mod\ 1252}#
-                                                    (lambda (#{forms\ 1286}#
-                                                             #{er\ 1287}#
-                                                             #{w\ 1288}#
-                                                             #{s\ 1289}#
-                                                             #{mod\ 1290}#)
-                                                      (#{parse\ 1232}#
-                                                        (letrec ((#{f\ 1298}#
-                                                                   (lambda 
(#{forms\ 1299}#)
-                                                                     (if 
(null? #{forms\ 1299}#)
-                                                                       (cdr 
#{body\ 1233}#)
-                                                                       (cons 
(cons #{er\ 1287}#
-                                                                               
    (#{wrap\ 291}#
-                                                                               
      (car #{forms\ 1299}#)
-                                                                               
      #{w\ 1288}#
-                                                                               
      #{mod\ 1290}#))
-                                                                             
(#{f\ 1298}#
-                                                                               
(cdr #{forms\ 1299}#)))))))
-                                                          (#{f\ 1298}#
-                                                            #{forms\ 1286}#))
-                                                        #{ids\ 1234}#
-                                                        #{labels\ 1235}#
-                                                        #{var-ids\ 1236}#
-                                                        #{vars\ 1237}#
-                                                        #{vals\ 1238}#
-                                                        #{bindings\ 1239}#)))
-                                                  (if (null? #{ids\ 1234}#)
-                                                    (#{build-sequence\ 174}#
+                                                  (#{chi-local-syntax\ 11246}#
+                                                    #{value\ 12177}#
+                                                    #{e\ 12178}#
+                                                    #{er\ 12174}#
+                                                    #{w\ 12179}#
+                                                    #{s\ 12180}#
+                                                    #{mod\ 12181}#
+                                                    (lambda (#{forms\ 12215}#
+                                                             #{er\ 12216}#
+                                                             #{w\ 12217}#
+                                                             #{s\ 12218}#
+                                                             #{mod\ 12219}#)
+                                                      (#{parse\ 12161}#
+                                                        (letrec ((#{f\ 12227}#
+                                                                   (lambda 
(#{forms\ 12228}#)
+                                                                     (if 
(null? #{forms\ 12228}#)
+                                                                       (cdr 
#{body\ 12162}#)
+                                                                       (cons 
(cons #{er\ 12216}#
+                                                                               
    (#{wrap\ 11220}#
+                                                                               
      (car #{forms\ 12228}#)
+                                                                               
      #{w\ 12217}#
+                                                                               
      #{mod\ 12219}#))
+                                                                             
(#{f\ 12227}#
+                                                                               
(cdr #{forms\ 12228}#)))))))
+                                                          (#{f\ 12227}#
+                                                            #{forms\ 12215}#))
+                                                        #{ids\ 12163}#
+                                                        #{labels\ 12164}#
+                                                        #{var-ids\ 12165}#
+                                                        #{vars\ 12166}#
+                                                        #{vals\ 12167}#
+                                                        #{bindings\ 12168}#)))
+                                                  (if (null? #{ids\ 12163}#)
+                                                    (#{build-sequence\ 11103}#
                                                       #f
-                                                      (map (lambda (#{x\ 
1302}#)
-                                                             (#{chi\ 307}#
-                                                               (cdr #{x\ 
1302}#)
-                                                               (car #{x\ 
1302}#)
+                                                      (map (lambda (#{x\ 
12231}#)
+                                                             (#{chi\ 11236}#
+                                                               (cdr #{x\ 
12231}#)
+                                                               (car #{x\ 
12231}#)
                                                                '(())
-                                                               #{mod\ 1252}#))
-                                                           (cons (cons #{er\ 
1245}#
-                                                                       
(#{source-wrap\ 293}#
-                                                                         #{e\ 
1249}#
-                                                                         #{w\ 
1250}#
-                                                                         #{s\ 
1251}#
-                                                                         
#{mod\ 1252}#))
-                                                                 (cdr #{body\ 
1233}#))))
+                                                               #{mod\ 12181}#))
+                                                           (cons (cons #{er\ 
12174}#
+                                                                       
(#{source-wrap\ 11222}#
+                                                                         #{e\ 
12178}#
+                                                                         #{w\ 
12179}#
+                                                                         #{s\ 
12180}#
+                                                                         
#{mod\ 12181}#))
+                                                                 (cdr #{body\ 
12162}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 285}#
-                                                                 #{ids\ 
1234}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 11214}#
+                                                                 #{ids\ 
12163}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
1207}#))
-                                                      (letrec ((#{loop\ 1309}#
-                                                                 (lambda 
(#{bs\ 1310}#
-                                                                          
#{er-cache\ 1311}#
-                                                                          
#{r-cache\ 1312}#)
-                                                                   (if (not 
(null? #{bs\ 1310}#))
-                                                                     (let 
((#{b\ 1315}#
-                                                                             
(car #{bs\ 1310}#)))
-                                                                       (if 
(eq? (car #{b\ 1315}#)
+                                                          #{outer-form\ 
12136}#))
+                                                      (letrec ((#{loop\ 12238}#
+                                                                 (lambda 
(#{bs\ 12239}#
+                                                                          
#{er-cache\ 12240}#
+                                                                          
#{r-cache\ 12241}#)
+                                                                   (if (not 
(null? #{bs\ 12239}#))
+                                                                     (let 
((#{b\ 12244}#
+                                                                             
(car #{bs\ 12239}#)))
+                                                                       (if 
(eq? (car #{b\ 12244}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 1318}#
-                                                                               
  (cadr #{b\ 1315}#)))
-                                                                           
(let ((#{r-cache\ 1320}#
-                                                                               
    (if (eq? #{er\ 1318}#
-                                                                               
             #{er-cache\ 1311}#)
-                                                                               
      #{r-cache\ 1312}#
-                                                                               
      (#{macros-only-env\ 214}#
-                                                                               
        #{er\ 1318}#))))
+                                                                         (let 
((#{er\ 12247}#
+                                                                               
  (cadr #{b\ 12244}#)))
+                                                                           
(let ((#{r-cache\ 12249}#
+                                                                               
    (if (eq? #{er\ 12247}#
+                                                                               
             #{er-cache\ 12240}#)
+                                                                               
      #{r-cache\ 12241}#
+                                                                               
      (#{macros-only-env\ 11143}#
+                                                                               
        #{er\ 12247}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 1315}#
-                                                                               
  (#{eval-local-transformer\ 319}#
-                                                                               
    (#{chi\ 307}#
-                                                                               
      (cddr #{b\ 1315}#)
-                                                                               
      #{r-cache\ 1320}#
+                                                                               
  #{b\ 12244}#
+                                                                               
  (#{eval-local-transformer\ 11248}#
+                                                                               
    (#{chi\ 11236}#
+                                                                               
      (cddr #{b\ 12244}#)
+                                                                               
      #{r-cache\ 12249}#
                                                                                
      '(())
-                                                                               
      #{mod\ 1252}#)
-                                                                               
    #{mod\ 1252}#))
-                                                                               
(#{loop\ 1309}#
-                                                                               
  (cdr #{bs\ 1310}#)
-                                                                               
  #{er\ 1318}#
-                                                                               
  #{r-cache\ 1320}#))))
-                                                                         
(#{loop\ 1309}#
-                                                                           
(cdr #{bs\ 1310}#)
-                                                                           
#{er-cache\ 1311}#
-                                                                           
#{r-cache\ 1312}#)))))))
-                                                        (#{loop\ 1309}#
-                                                          #{bindings\ 1239}#
+                                                                               
      #{mod\ 12181}#)
+                                                                               
    #{mod\ 12181}#))
+                                                                               
(#{loop\ 12238}#
+                                                                               
  (cdr #{bs\ 12239}#)
+                                                                               
  #{er\ 12247}#
+                                                                               
  #{r-cache\ 12249}#))))
+                                                                         
(#{loop\ 12238}#
+                                                                           
(cdr #{bs\ 12239}#)
+                                                                           
#{er-cache\ 12240}#
+                                                                           
#{r-cache\ 12241}#)))))))
+                                                        (#{loop\ 12238}#
+                                                          #{bindings\ 12168}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 1218}#
-                                                        (#{extend-env\ 210}#
-                                                          #{labels\ 1235}#
-                                                          #{bindings\ 1239}#
-                                                          (cdr #{r\ 1218}#)))
-                                                      (#{build-letrec\ 180}#
+                                                        #{r\ 12147}#
+                                                        (#{extend-env\ 11139}#
+                                                          #{labels\ 12164}#
+                                                          #{bindings\ 12168}#
+                                                          (cdr #{r\ 12147}#)))
+                                                      (#{build-letrec\ 11109}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 1236}#)
-                                                        #{vars\ 1237}#
-                                                        (map (lambda (#{x\ 
1323}#)
-                                                               (#{chi\ 307}#
-                                                                 (cdr #{x\ 
1323}#)
-                                                                 (car #{x\ 
1323}#)
+                                                             #{var-ids\ 
12165}#)
+                                                        #{vars\ 12166}#
+                                                        (map (lambda (#{x\ 
12252}#)
+                                                               (#{chi\ 11236}#
+                                                                 (cdr #{x\ 
12252}#)
+                                                                 (car #{x\ 
12252}#)
                                                                  '(())
-                                                                 #{mod\ 
1252}#))
-                                                             #{vals\ 1238}#)
-                                                        (#{build-sequence\ 
174}#
+                                                                 #{mod\ 
12181}#))
+                                                             #{vals\ 12167}#)
+                                                        (#{build-sequence\ 
11103}#
                                                           #f
-                                                          (map (lambda (#{x\ 
1327}#)
-                                                                 (#{chi\ 307}#
-                                                                   (cdr #{x\ 
1327}#)
-                                                                   (car #{x\ 
1327}#)
+                                                          (map (lambda (#{x\ 
12256}#)
+                                                                 (#{chi\ 
11236}#
+                                                                   (cdr #{x\ 
12256}#)
+                                                                   (car #{x\ 
12256}#)
                                                                    '(())
-                                                                   #{mod\ 
1252}#))
-                                                               (cons (cons 
#{er\ 1245}#
-                                                                           
(#{source-wrap\ 293}#
-                                                                             
#{e\ 1249}#
-                                                                             
#{w\ 1250}#
-                                                                             
#{s\ 1251}#
-                                                                             
#{mod\ 1252}#))
-                                                                     (cdr 
#{body\ 1233}#))))))))))))))))))
-                       (#{parse\ 1232}#
-                         (map (lambda (#{x\ 1240}#)
-                                (cons #{r\ 1218}#
-                                      (#{wrap\ 291}#
-                                        #{x\ 1240}#
-                                        #{w\ 1223}#
-                                        #{mod\ 1210}#)))
-                              #{body\ 1206}#)
+                                                                   #{mod\ 
12181}#))
+                                                               (cons (cons 
#{er\ 12174}#
+                                                                           
(#{source-wrap\ 11222}#
+                                                                             
#{e\ 12178}#
+                                                                             
#{w\ 12179}#
+                                                                             
#{s\ 12180}#
+                                                                             
#{mod\ 12181}#))
+                                                                     (cdr 
#{body\ 12162}#))))))))))))))))))
+                       (#{parse\ 12161}#
+                         (map (lambda (#{x\ 12169}#)
+                                (cons #{r\ 12147}#
+                                      (#{wrap\ 11220}#
+                                        #{x\ 12169}#
+                                        #{w\ 12152}#
+                                        #{mod\ 12139}#)))
+                              #{body\ 12135}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 313}#
-             (lambda (#{p\ 1330}#
-                      #{e\ 1331}#
-                      #{r\ 1332}#
-                      #{w\ 1333}#
-                      #{rib\ 1334}#
-                      #{mod\ 1335}#)
-               (letrec ((#{rebuild-macro-output\ 1343}#
-                          (lambda (#{x\ 1344}# #{m\ 1345}#)
-                            (if (pair? #{x\ 1344}#)
-                              (cons (#{rebuild-macro-output\ 1343}#
-                                      (car #{x\ 1344}#)
-                                      #{m\ 1345}#)
-                                    (#{rebuild-macro-output\ 1343}#
-                                      (cdr #{x\ 1344}#)
-                                      #{m\ 1345}#))
-                              (if (#{syntax-object?\ 186}# #{x\ 1344}#)
-                                (let ((#{w\ 1353}#
-                                        (#{syntax-object-wrap\ 190}#
-                                          #{x\ 1344}#)))
-                                  (let ((#{ms\ 1356}#
-                                          (#{wrap-marks\ 229}# #{w\ 1353}#))
-                                        (#{s\ 1357}#
-                                          (#{wrap-subst\ 231}# #{w\ 1353}#)))
-                                    (if (if (pair? #{ms\ 1356}#)
-                                          (eq? (car #{ms\ 1356}#) #f)
+           (#{chi-macro\ 11242}#
+             (lambda (#{p\ 12259}#
+                      #{e\ 12260}#
+                      #{r\ 12261}#
+                      #{w\ 12262}#
+                      #{rib\ 12263}#
+                      #{mod\ 12264}#)
+               (letrec ((#{rebuild-macro-output\ 12272}#
+                          (lambda (#{x\ 12273}# #{m\ 12274}#)
+                            (if (pair? #{x\ 12273}#)
+                              (cons (#{rebuild-macro-output\ 12272}#
+                                      (car #{x\ 12273}#)
+                                      #{m\ 12274}#)
+                                    (#{rebuild-macro-output\ 12272}#
+                                      (cdr #{x\ 12273}#)
+                                      #{m\ 12274}#))
+                              (if (#{syntax-object?\ 11115}# #{x\ 12273}#)
+                                (let ((#{w\ 12282}#
+                                        (#{syntax-object-wrap\ 11119}#
+                                          #{x\ 12273}#)))
+                                  (let ((#{ms\ 12285}#
+                                          (#{wrap-marks\ 11158}# #{w\ 12282}#))
+                                        (#{s\ 12286}#
+                                          (#{wrap-subst\ 11160}#
+                                            #{w\ 12282}#)))
+                                    (if (if (pair? #{ms\ 12285}#)
+                                          (eq? (car #{ms\ 12285}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 184}#
-                                        (#{syntax-object-expression\ 188}#
-                                          #{x\ 1344}#)
-                                        (#{make-wrap\ 227}#
-                                          (cdr #{ms\ 1356}#)
-                                          (if #{rib\ 1334}#
-                                            (cons #{rib\ 1334}#
-                                                  (cdr #{s\ 1357}#))
-                                            (cdr #{s\ 1357}#)))
-                                        (#{syntax-object-module\ 192}#
-                                          #{x\ 1344}#))
-                                      (#{make-syntax-object\ 184}#
-                                        (#{syntax-object-expression\ 188}#
-                                          #{x\ 1344}#)
-                                        (#{make-wrap\ 227}#
-                                          (cons #{m\ 1345}# #{ms\ 1356}#)
-                                          (if #{rib\ 1334}#
-                                            (cons #{rib\ 1334}#
+                                      (#{make-syntax-object\ 11113}#
+                                        (#{syntax-object-expression\ 11117}#
+                                          #{x\ 12273}#)
+                                        (#{make-wrap\ 11156}#
+                                          (cdr #{ms\ 12285}#)
+                                          (if #{rib\ 12263}#
+                                            (cons #{rib\ 12263}#
+                                                  (cdr #{s\ 12286}#))
+                                            (cdr #{s\ 12286}#)))
+                                        (#{syntax-object-module\ 11121}#
+                                          #{x\ 12273}#))
+                                      (#{make-syntax-object\ 11113}#
+                                        (#{syntax-object-expression\ 11117}#
+                                          #{x\ 12273}#)
+                                        (#{make-wrap\ 11156}#
+                                          (cons #{m\ 12274}# #{ms\ 12285}#)
+                                          (if #{rib\ 12263}#
+                                            (cons #{rib\ 12263}#
                                                   (cons 'shift
-                                                        #{s\ 1357}#))
-                                            (cons (quote shift) #{s\ 1357}#)))
+                                                        #{s\ 12286}#))
+                                            (cons (quote shift) #{s\ 12286}#)))
                                         (cons 'hygiene
-                                              (cdr #{p\ 1330}#))))))
-                                (if (vector? #{x\ 1344}#)
-                                  (let ((#{n\ 1365}#
-                                          (vector-length #{x\ 1344}#)))
-                                    (let ((#{v\ 1367}#
-                                            (make-vector #{n\ 1365}#)))
-                                      (letrec ((#{loop\ 1370}#
-                                                 (lambda (#{i\ 1371}#)
-                                                   (if (#{fx=\ 127}#
-                                                         #{i\ 1371}#
-                                                         #{n\ 1365}#)
+                                              (cdr #{p\ 12259}#))))))
+                                (if (vector? #{x\ 12273}#)
+                                  (let ((#{n\ 12294}#
+                                          (vector-length #{x\ 12273}#)))
+                                    (let ((#{v\ 12296}#
+                                            (make-vector #{n\ 12294}#)))
+                                      (letrec ((#{loop\ 12299}#
+                                                 (lambda (#{i\ 12300}#)
+                                                   (if (#{fx=\ 11056}#
+                                                         #{i\ 12300}#
+                                                         #{n\ 12294}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 1367}#)
+                                                       #{v\ 12296}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 1367}#
-                                                         #{i\ 1371}#
-                                                         
(#{rebuild-macro-output\ 1343}#
+                                                         #{v\ 12296}#
+                                                         #{i\ 12300}#
+                                                         
(#{rebuild-macro-output\ 12272}#
                                                            (vector-ref
-                                                             #{x\ 1344}#
-                                                             #{i\ 1371}#)
-                                                           #{m\ 1345}#))
-                                                       (#{loop\ 1370}#
-                                                         (#{fx+\ 123}#
-                                                           #{i\ 1371}#
+                                                             #{x\ 12273}#
+                                                             #{i\ 12300}#)
+                                                           #{m\ 12274}#))
+                                                       (#{loop\ 12299}#
+                                                         (#{fx+\ 11052}#
+                                                           #{i\ 12300}#
                                                            1)))))))
-                                        (#{loop\ 1370}# 0))))
-                                  (if (symbol? #{x\ 1344}#)
+                                        (#{loop\ 12299}# 0))))
+                                  (if (symbol? #{x\ 12273}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 293}#
-                                        #{e\ 1331}#
-                                        #{w\ 1333}#
-                                        (#{wrap-subst\ 231}# #{w\ 1333}#)
-                                        #{mod\ 1335}#)
-                                      #{x\ 1344}#)
-                                    #{x\ 1344}#)))))))
-                 (#{rebuild-macro-output\ 1343}#
-                   ((car #{p\ 1330}#)
-                    (#{wrap\ 291}#
-                      #{e\ 1331}#
-                      (#{anti-mark\ 263}# #{w\ 1333}#)
-                      #{mod\ 1335}#))
+                                      (#{source-wrap\ 11222}#
+                                        #{e\ 12260}#
+                                        #{w\ 12262}#
+                                        (#{wrap-subst\ 11160}# #{w\ 12262}#)
+                                        #{mod\ 12264}#)
+                                      #{x\ 12273}#)
+                                    #{x\ 12273}#)))))))
+                 (#{rebuild-macro-output\ 12272}#
+                   ((car #{p\ 12259}#)
+                    (#{wrap\ 11220}#
+                      #{e\ 12260}#
+                      (#{anti-mark\ 11192}# #{w\ 12262}#)
+                      #{mod\ 12264}#))
                    (gensym "m")))))
-           (#{chi-application\ 311}#
-             (lambda (#{x\ 1378}#
-                      #{e\ 1379}#
-                      #{r\ 1380}#
-                      #{w\ 1381}#
-                      #{s\ 1382}#
-                      #{mod\ 1383}#)
-               ((lambda (#{tmp\ 1390}#)
-                  ((lambda (#{tmp\ 1391}#)
-                     (if #{tmp\ 1391}#
-                       (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#)
-                                (#{build-application\ 144}#
-                                  #{s\ 1382}#
-                                  #{x\ 1378}#
-                                  (map (lambda (#{e\ 1396}#)
-                                         (#{chi\ 307}#
-                                           #{e\ 1396}#
-                                           #{r\ 1380}#
-                                           #{w\ 1381}#
-                                           #{mod\ 1383}#))
-                                       #{e1\ 1395}#)))
-                              #{tmp\ 1391}#)
+           (#{chi-application\ 11240}#
+             (lambda (#{x\ 12307}#
+                      #{e\ 12308}#
+                      #{r\ 12309}#
+                      #{w\ 12310}#
+                      #{s\ 12311}#
+                      #{mod\ 12312}#)
+               ((lambda (#{tmp\ 12319}#)
+                  ((lambda (#{tmp\ 12320}#)
+                     (if #{tmp\ 12320}#
+                       (apply (lambda (#{e0\ 12323}# #{e1\ 12324}#)
+                                (#{build-application\ 11073}#
+                                  #{s\ 12311}#
+                                  #{x\ 12307}#
+                                  (map (lambda (#{e\ 12325}#)
+                                         (#{chi\ 11236}#
+                                           #{e\ 12325}#
+                                           #{r\ 12309}#
+                                           #{w\ 12310}#
+                                           #{mod\ 12312}#))
+                                       #{e1\ 12324}#)))
+                              #{tmp\ 12320}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 1390}#)))
+                         #{tmp\ 12319}#)))
                    ($sc-dispatch
-                     #{tmp\ 1390}#
+                     #{tmp\ 12319}#
                      '(any . each-any))))
-                #{e\ 1379}#)))
-           (#{chi-expr\ 309}#
-             (lambda (#{type\ 1399}#
-                      #{value\ 1400}#
-                      #{e\ 1401}#
-                      #{r\ 1402}#
-                      #{w\ 1403}#
-                      #{s\ 1404}#
-                      #{mod\ 1405}#)
-               (if (memv #{type\ 1399}# (quote (lexical)))
-                 (#{build-lexical-reference\ 150}#
+                #{e\ 12308}#)))
+           (#{chi-expr\ 11238}#
+             (lambda (#{type\ 12328}#
+                      #{value\ 12329}#
+                      #{e\ 12330}#
+                      #{r\ 12331}#
+                      #{w\ 12332}#
+                      #{s\ 12333}#
+                      #{mod\ 12334}#)
+               (if (memv #{type\ 12328}# (quote (lexical)))
+                 (#{build-lexical-reference\ 11079}#
                    'value
-                   #{s\ 1404}#
-                   #{e\ 1401}#
-                   #{value\ 1400}#)
-                 (if (memv #{type\ 1399}# (quote (core core-form)))
-                   (#{value\ 1400}#
-                     #{e\ 1401}#
-                     #{r\ 1402}#
-                     #{w\ 1403}#
-                     #{s\ 1404}#
-                     #{mod\ 1405}#)
-                   (if (memv #{type\ 1399}# (quote (module-ref)))
+                   #{s\ 12333}#
+                   #{e\ 12330}#
+                   #{value\ 12329}#)
+                 (if (memv #{type\ 12328}# (quote (core core-form)))
+                   (#{value\ 12329}#
+                     #{e\ 12330}#
+                     #{r\ 12331}#
+                     #{w\ 12332}#
+                     #{s\ 12333}#
+                     #{mod\ 12334}#)
+                   (if (memv #{type\ 12328}# (quote (module-ref)))
                      (call-with-values
                        (lambda ()
-                         (#{value\ 1400}#
-                           #{e\ 1401}#
-                           #{r\ 1402}#
-                           #{w\ 1403}#))
-                       (lambda (#{e\ 1416}#
-                                #{r\ 1417}#
-                                #{w\ 1418}#
-                                #{s\ 1419}#
-                                #{mod\ 1420}#)
-                         (#{chi\ 307}#
-                           #{e\ 1416}#
-                           #{r\ 1417}#
-                           #{w\ 1418}#
-                           #{mod\ 1420}#)))
-                     (if (memv #{type\ 1399}# (quote (lexical-call)))
-                       (#{chi-application\ 311}#
-                         (#{build-lexical-reference\ 150}#
+                         (#{value\ 12329}#
+                           #{e\ 12330}#
+                           #{r\ 12331}#
+                           #{w\ 12332}#))
+                       (lambda (#{e\ 12345}#
+                                #{r\ 12346}#
+                                #{w\ 12347}#
+                                #{s\ 12348}#
+                                #{mod\ 12349}#)
+                         (#{chi\ 11236}#
+                           #{e\ 12345}#
+                           #{r\ 12346}#
+                           #{w\ 12347}#
+                           #{mod\ 12349}#)))
+                     (if (memv #{type\ 12328}# (quote (lexical-call)))
+                       (#{chi-application\ 11240}#
+                         (#{build-lexical-reference\ 11079}#
                            'fun
-                           (#{source-annotation\ 201}# (car #{e\ 1401}#))
-                           (car #{e\ 1401}#)
-                           #{value\ 1400}#)
-                         #{e\ 1401}#
-                         #{r\ 1402}#
-                         #{w\ 1403}#
-                         #{s\ 1404}#
-                         #{mod\ 1405}#)
-                       (if (memv #{type\ 1399}# (quote (global-call)))
-                         (#{chi-application\ 311}#
-                           (#{build-global-reference\ 156}#
-                             (#{source-annotation\ 201}# (car #{e\ 1401}#))
-                             (if (#{syntax-object?\ 186}# #{value\ 1400}#)
-                               (#{syntax-object-expression\ 188}#
-                                 #{value\ 1400}#)
-                               #{value\ 1400}#)
-                             (if (#{syntax-object?\ 186}# #{value\ 1400}#)
-                               (#{syntax-object-module\ 192}# #{value\ 1400}#)
-                               #{mod\ 1405}#))
-                           #{e\ 1401}#
-                           #{r\ 1402}#
-                           #{w\ 1403}#
-                           #{s\ 1404}#
-                           #{mod\ 1405}#)
-                         (if (memv #{type\ 1399}# (quote (constant)))
-                           (#{build-data\ 172}#
-                             #{s\ 1404}#
-                             (#{strip\ 333}#
-                               (#{source-wrap\ 293}#
-                                 #{e\ 1401}#
-                                 #{w\ 1403}#
-                                 #{s\ 1404}#
-                                 #{mod\ 1405}#)
+                           (#{source-annotation\ 11130}# (car #{e\ 12330}#))
+                           (car #{e\ 12330}#)
+                           #{value\ 12329}#)
+                         #{e\ 12330}#
+                         #{r\ 12331}#
+                         #{w\ 12332}#
+                         #{s\ 12333}#
+                         #{mod\ 12334}#)
+                       (if (memv #{type\ 12328}# (quote (global-call)))
+                         (#{chi-application\ 11240}#
+                           (#{build-global-reference\ 11085}#
+                             (#{source-annotation\ 11130}# (car #{e\ 12330}#))
+                             (if (#{syntax-object?\ 11115}# #{value\ 12329}#)
+                               (#{syntax-object-expression\ 11117}#
+                                 #{value\ 12329}#)
+                               #{value\ 12329}#)
+                             (if (#{syntax-object?\ 11115}# #{value\ 12329}#)
+                               (#{syntax-object-module\ 11121}#
+                                 #{value\ 12329}#)
+                               #{mod\ 12334}#))
+                           #{e\ 12330}#
+                           #{r\ 12331}#
+                           #{w\ 12332}#
+                           #{s\ 12333}#
+                           #{mod\ 12334}#)
+                         (if (memv #{type\ 12328}# (quote (constant)))
+                           (#{build-data\ 11101}#
+                             #{s\ 12333}#
+                             (#{strip\ 11262}#
+                               (#{source-wrap\ 11222}#
+                                 #{e\ 12330}#
+                                 #{w\ 12332}#
+                                 #{s\ 12333}#
+                                 #{mod\ 12334}#)
                                '(())))
-                           (if (memv #{type\ 1399}# (quote (global)))
-                             (#{build-global-reference\ 156}#
-                               #{s\ 1404}#
-                               #{value\ 1400}#
-                               #{mod\ 1405}#)
-                             (if (memv #{type\ 1399}# (quote (call)))
-                               (#{chi-application\ 311}#
-                                 (#{chi\ 307}#
-                                   (car #{e\ 1401}#)
-                                   #{r\ 1402}#
-                                   #{w\ 1403}#
-                                   #{mod\ 1405}#)
-                                 #{e\ 1401}#
-                                 #{r\ 1402}#
-                                 #{w\ 1403}#
-                                 #{s\ 1404}#
-                                 #{mod\ 1405}#)
-                               (if (memv #{type\ 1399}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 1433}#)
-                                    ((lambda (#{tmp\ 1434}#)
-                                       (if #{tmp\ 1434}#
-                                         (apply (lambda (#{_\ 1438}#
-                                                         #{e1\ 1439}#
-                                                         #{e2\ 1440}#)
-                                                  (#{chi-sequence\ 295}#
-                                                    (cons #{e1\ 1439}#
-                                                          #{e2\ 1440}#)
-                                                    #{r\ 1402}#
-                                                    #{w\ 1403}#
-                                                    #{s\ 1404}#
-                                                    #{mod\ 1405}#))
-                                                #{tmp\ 1434}#)
+                           (if (memv #{type\ 12328}# (quote (global)))
+                             (#{build-global-reference\ 11085}#
+                               #{s\ 12333}#
+                               #{value\ 12329}#
+                               #{mod\ 12334}#)
+                             (if (memv #{type\ 12328}# (quote (call)))
+                               (#{chi-application\ 11240}#
+                                 (#{chi\ 11236}#
+                                   (car #{e\ 12330}#)
+                                   #{r\ 12331}#
+                                   #{w\ 12332}#
+                                   #{mod\ 12334}#)
+                                 #{e\ 12330}#
+                                 #{r\ 12331}#
+                                 #{w\ 12332}#
+                                 #{s\ 12333}#
+                                 #{mod\ 12334}#)
+                               (if (memv #{type\ 12328}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 12362}#)
+                                    ((lambda (#{tmp\ 12363}#)
+                                       (if #{tmp\ 12363}#
+                                         (apply (lambda (#{_\ 12367}#
+                                                         #{e1\ 12368}#
+                                                         #{e2\ 12369}#)
+                                                  (#{chi-sequence\ 11224}#
+                                                    (cons #{e1\ 12368}#
+                                                          #{e2\ 12369}#)
+                                                    #{r\ 12331}#
+                                                    #{w\ 12332}#
+                                                    #{s\ 12333}#
+                                                    #{mod\ 12334}#))
+                                                #{tmp\ 12363}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 1433}#)))
+                                           #{tmp\ 12362}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 1433}#
+                                       #{tmp\ 12362}#
                                        '(any any . each-any))))
-                                  #{e\ 1401}#)
-                                 (if (memv #{type\ 1399}#
+                                  #{e\ 12330}#)
+                                 (if (memv #{type\ 12328}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 317}#
-                                     #{value\ 1400}#
-                                     #{e\ 1401}#
-                                     #{r\ 1402}#
-                                     #{w\ 1403}#
-                                     #{s\ 1404}#
-                                     #{mod\ 1405}#
-                                     #{chi-sequence\ 295}#)
-                                   (if (memv #{type\ 1399}#
+                                   (#{chi-local-syntax\ 11246}#
+                                     #{value\ 12329}#
+                                     #{e\ 12330}#
+                                     #{r\ 12331}#
+                                     #{w\ 12332}#
+                                     #{s\ 12333}#
+                                     #{mod\ 12334}#
+                                     #{chi-sequence\ 11224}#)
+                                   (if (memv #{type\ 12328}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 1444}#)
-                                        ((lambda (#{tmp\ 1445}#)
-                                           (if #{tmp\ 1445}#
-                                             (apply (lambda (#{_\ 1450}#
-                                                             #{x\ 1451}#
-                                                             #{e1\ 1452}#
-                                                             #{e2\ 1453}#)
-                                                      (let ((#{when-list\ 
1455}#
-                                                              
(#{chi-when-list\ 301}#
-                                                                #{e\ 1401}#
-                                                                #{x\ 1451}#
-                                                                #{w\ 1403}#)))
+                                     ((lambda (#{tmp\ 12373}#)
+                                        ((lambda (#{tmp\ 12374}#)
+                                           (if #{tmp\ 12374}#
+                                             (apply (lambda (#{_\ 12379}#
+                                                             #{x\ 12380}#
+                                                             #{e1\ 12381}#
+                                                             #{e2\ 12382}#)
+                                                      (let ((#{when-list\ 
12384}#
+                                                              
(#{chi-when-list\ 11230}#
+                                                                #{e\ 12330}#
+                                                                #{x\ 12380}#
+                                                                #{w\ 12332}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
1455}#)
-                                                          (#{chi-sequence\ 
295}#
-                                                            (cons #{e1\ 1452}#
-                                                                  #{e2\ 1453}#)
-                                                            #{r\ 1402}#
-                                                            #{w\ 1403}#
-                                                            #{s\ 1404}#
-                                                            #{mod\ 1405}#)
-                                                          (#{chi-void\ 
321}#))))
-                                                    #{tmp\ 1445}#)
+                                                                  #{when-list\ 
12384}#)
+                                                          (#{chi-sequence\ 
11224}#
+                                                            (cons #{e1\ 12381}#
+                                                                  #{e2\ 
12382}#)
+                                                            #{r\ 12331}#
+                                                            #{w\ 12332}#
+                                                            #{s\ 12333}#
+                                                            #{mod\ 12334}#)
+                                                          (#{chi-void\ 
11250}#))))
+                                                    #{tmp\ 12374}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 1444}#)))
+                                               #{tmp\ 12373}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 1444}#
+                                           #{tmp\ 12373}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 1401}#)
-                                     (if (memv #{type\ 1399}#
+                                      #{e\ 12330}#)
+                                     (if (memv #{type\ 12328}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 1401}#
-                                         (#{wrap\ 291}#
-                                           #{value\ 1400}#
-                                           #{w\ 1403}#
-                                           #{mod\ 1405}#))
-                                       (if (memv #{type\ 1399}#
+                                         #{e\ 12330}#
+                                         (#{wrap\ 11220}#
+                                           #{value\ 12329}#
+                                           #{w\ 12332}#
+                                           #{mod\ 12334}#))
+                                       (if (memv #{type\ 12328}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 293}#
-                                             #{e\ 1401}#
-                                             #{w\ 1403}#
-                                             #{s\ 1404}#
-                                             #{mod\ 1405}#))
-                                         (if (memv #{type\ 1399}#
+                                           (#{source-wrap\ 11222}#
+                                             #{e\ 12330}#
+                                             #{w\ 12332}#
+                                             #{s\ 12333}#
+                                             #{mod\ 12334}#))
+                                         (if (memv #{type\ 12328}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 293}#
-                                               #{e\ 1401}#
-                                               #{w\ 1403}#
-                                               #{s\ 1404}#
-                                               #{mod\ 1405}#))
+                                             (#{source-wrap\ 11222}#
+                                               #{e\ 12330}#
+                                               #{w\ 12332}#
+                                               #{s\ 12333}#
+                                               #{mod\ 12334}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 293}#
-                                               #{e\ 1401}#
-                                               #{w\ 1403}#
-                                               #{s\ 1404}#
-                                               #{mod\ 1405}#))))))))))))))))))
-           (#{chi\ 307}#
-             (lambda (#{e\ 1462}#
-                      #{r\ 1463}#
-                      #{w\ 1464}#
-                      #{mod\ 1465}#)
+                                             (#{source-wrap\ 11222}#
+                                               #{e\ 12330}#
+                                               #{w\ 12332}#
+                                               #{s\ 12333}#
+                                               #{mod\ 12334}#))))))))))))))))))
+           (#{chi\ 11236}#
+             (lambda (#{e\ 12391}#
+                      #{r\ 12392}#
+                      #{w\ 12393}#
+                      #{mod\ 12394}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 303}#
-                     #{e\ 1462}#
-                     #{r\ 1463}#
-                     #{w\ 1464}#
-                     (#{source-annotation\ 201}# #{e\ 1462}#)
+                   (#{syntax-type\ 11232}#
+                     #{e\ 12391}#
+                     #{r\ 12392}#
+                     #{w\ 12393}#
+                     (#{source-annotation\ 11130}# #{e\ 12391}#)
                      #f
-                     #{mod\ 1465}#
+                     #{mod\ 12394}#
                      #f))
-                 (lambda (#{type\ 1470}#
-                          #{value\ 1471}#
-                          #{e\ 1472}#
-                          #{w\ 1473}#
-                          #{s\ 1474}#
-                          #{mod\ 1475}#)
-                   (#{chi-expr\ 309}#
-                     #{type\ 1470}#
-                     #{value\ 1471}#
-                     #{e\ 1472}#
-                     #{r\ 1463}#
-                     #{w\ 1473}#
-                     #{s\ 1474}#
-                     #{mod\ 1475}#)))))
-           (#{chi-top\ 305}#
-             (lambda (#{e\ 1482}#
-                      #{r\ 1483}#
-                      #{w\ 1484}#
-                      #{m\ 1485}#
-                      #{esew\ 1486}#
-                      #{mod\ 1487}#)
+                 (lambda (#{type\ 12399}#
+                          #{value\ 12400}#
+                          #{e\ 12401}#
+                          #{w\ 12402}#
+                          #{s\ 12403}#
+                          #{mod\ 12404}#)
+                   (#{chi-expr\ 11238}#
+                     #{type\ 12399}#
+                     #{value\ 12400}#
+                     #{e\ 12401}#
+                     #{r\ 12392}#
+                     #{w\ 12402}#
+                     #{s\ 12403}#
+                     #{mod\ 12404}#)))))
+           (#{chi-top\ 11234}#
+             (lambda (#{e\ 12411}#
+                      #{r\ 12412}#
+                      #{w\ 12413}#
+                      #{m\ 12414}#
+                      #{esew\ 12415}#
+                      #{mod\ 12416}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 303}#
-                     #{e\ 1482}#
-                     #{r\ 1483}#
-                     #{w\ 1484}#
-                     (#{source-annotation\ 201}# #{e\ 1482}#)
+                   (#{syntax-type\ 11232}#
+                     #{e\ 12411}#
+                     #{r\ 12412}#
+                     #{w\ 12413}#
+                     (#{source-annotation\ 11130}# #{e\ 12411}#)
                      #f
-                     #{mod\ 1487}#
+                     #{mod\ 12416}#
                      #f))
-                 (lambda (#{type\ 1508}#
-                          #{value\ 1509}#
-                          #{e\ 1510}#
-                          #{w\ 1511}#
-                          #{s\ 1512}#
-                          #{mod\ 1513}#)
-                   (if (memv #{type\ 1508}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 1521}#)
-                        ((lambda (#{tmp\ 1522}#)
-                           (if #{tmp\ 1522}#
-                             (apply (lambda (#{_\ 1524}#) (#{chi-void\ 321}#))
-                                    #{tmp\ 1522}#)
-                             ((lambda (#{tmp\ 1525}#)
-                                (if #{tmp\ 1525}#
-                                  (apply (lambda (#{_\ 1529}#
-                                                  #{e1\ 1530}#
-                                                  #{e2\ 1531}#)
-                                           (#{chi-top-sequence\ 297}#
-                                             (cons #{e1\ 1530}# #{e2\ 1531}#)
-                                             #{r\ 1483}#
-                                             #{w\ 1511}#
-                                             #{s\ 1512}#
-                                             #{m\ 1485}#
-                                             #{esew\ 1486}#
-                                             #{mod\ 1513}#))
-                                         #{tmp\ 1525}#)
+                 (lambda (#{type\ 12437}#
+                          #{value\ 12438}#
+                          #{e\ 12439}#
+                          #{w\ 12440}#
+                          #{s\ 12441}#
+                          #{mod\ 12442}#)
+                   (if (memv #{type\ 12437}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 12450}#)
+                        ((lambda (#{tmp\ 12451}#)
+                           (if #{tmp\ 12451}#
+                             (apply (lambda (#{_\ 12453}#)
+                                      (#{chi-void\ 11250}#))
+                                    #{tmp\ 12451}#)
+                             ((lambda (#{tmp\ 12454}#)
+                                (if #{tmp\ 12454}#
+                                  (apply (lambda (#{_\ 12458}#
+                                                  #{e1\ 12459}#
+                                                  #{e2\ 12460}#)
+                                           (#{chi-top-sequence\ 11226}#
+                                             (cons #{e1\ 12459}# #{e2\ 12460}#)
+                                             #{r\ 12412}#
+                                             #{w\ 12440}#
+                                             #{s\ 12441}#
+                                             #{m\ 12414}#
+                                             #{esew\ 12415}#
+                                             #{mod\ 12442}#))
+                                         #{tmp\ 12454}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 1521}#)))
+                                    #{tmp\ 12450}#)))
                               ($sc-dispatch
-                                #{tmp\ 1521}#
+                                #{tmp\ 12450}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 1521}# (quote (any)))))
-                      #{e\ 1510}#)
-                     (if (memv #{type\ 1508}# (quote (local-syntax-form)))
-                       (#{chi-local-syntax\ 317}#
-                         #{value\ 1509}#
-                         #{e\ 1510}#
-                         #{r\ 1483}#
-                         #{w\ 1511}#
-                         #{s\ 1512}#
-                         #{mod\ 1513}#
-                         (lambda (#{body\ 1534}#
-                                  #{r\ 1535}#
-                                  #{w\ 1536}#
-                                  #{s\ 1537}#
-                                  #{mod\ 1538}#)
-                           (#{chi-top-sequence\ 297}#
-                             #{body\ 1534}#
-                             #{r\ 1535}#
-                             #{w\ 1536}#
-                             #{s\ 1537}#
-                             #{m\ 1485}#
-                             #{esew\ 1486}#
-                             #{mod\ 1538}#)))
-                       (if (memv #{type\ 1508}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 1545}#)
-                            ((lambda (#{tmp\ 1546}#)
-                               (if #{tmp\ 1546}#
-                                 (apply (lambda (#{_\ 1551}#
-                                                 #{x\ 1552}#
-                                                 #{e1\ 1553}#
-                                                 #{e2\ 1554}#)
-                                          (let ((#{when-list\ 1557}#
-                                                  (#{chi-when-list\ 301}#
-                                                    #{e\ 1510}#
-                                                    #{x\ 1552}#
-                                                    #{w\ 1511}#))
-                                                (#{body\ 1558}#
-                                                  (cons #{e1\ 1553}#
-                                                        #{e2\ 1554}#)))
-                                            (if (eq? #{m\ 1485}# (quote e))
+                         ($sc-dispatch #{tmp\ 12450}# (quote (any)))))
+                      #{e\ 12439}#)
+                     (if (memv #{type\ 12437}#
+                               '(local-syntax-form))
+                       (#{chi-local-syntax\ 11246}#
+                         #{value\ 12438}#
+                         #{e\ 12439}#
+                         #{r\ 12412}#
+                         #{w\ 12440}#
+                         #{s\ 12441}#
+                         #{mod\ 12442}#
+                         (lambda (#{body\ 12463}#
+                                  #{r\ 12464}#
+                                  #{w\ 12465}#
+                                  #{s\ 12466}#
+                                  #{mod\ 12467}#)
+                           (#{chi-top-sequence\ 11226}#
+                             #{body\ 12463}#
+                             #{r\ 12464}#
+                             #{w\ 12465}#
+                             #{s\ 12466}#
+                             #{m\ 12414}#
+                             #{esew\ 12415}#
+                             #{mod\ 12467}#)))
+                       (if (memv #{type\ 12437}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 12474}#)
+                            ((lambda (#{tmp\ 12475}#)
+                               (if #{tmp\ 12475}#
+                                 (apply (lambda (#{_\ 12480}#
+                                                 #{x\ 12481}#
+                                                 #{e1\ 12482}#
+                                                 #{e2\ 12483}#)
+                                          (let ((#{when-list\ 12486}#
+                                                  (#{chi-when-list\ 11230}#
+                                                    #{e\ 12439}#
+                                                    #{x\ 12481}#
+                                                    #{w\ 12440}#))
+                                                (#{body\ 12487}#
+                                                  (cons #{e1\ 12482}#
+                                                        #{e2\ 12483}#)))
+                                            (if (eq? #{m\ 12414}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 1557}#)
-                                                (#{chi-top-sequence\ 297}#
-                                                  #{body\ 1558}#
-                                                  #{r\ 1483}#
-                                                  #{w\ 1511}#
-                                                  #{s\ 1512}#
+                                                        #{when-list\ 12486}#)
+                                                (#{chi-top-sequence\ 11226}#
+                                                  #{body\ 12487}#
+                                                  #{r\ 12412}#
+                                                  #{w\ 12440}#
+                                                  #{s\ 12441}#
                                                   (if (memq 'expand
-                                                            #{when-list\ 
1557}#)
+                                                            #{when-list\ 
12486}#)
                                                     'c&e
                                                     'e)
                                                   '(eval)
-                                                  #{mod\ 1513}#)
+                                                  #{mod\ 12442}#)
                                                 (begin
                                                   (if (memq 'expand
-                                                            #{when-list\ 
1557}#)
-                                                    (#{top-level-eval-hook\ 
131}#
-                                                      (#{chi-top-sequence\ 
297}#
-                                                        #{body\ 1558}#
-                                                        #{r\ 1483}#
-                                                        #{w\ 1511}#
-                                                        #{s\ 1512}#
+                                                            #{when-list\ 
12486}#)
+                                                    (#{top-level-eval-hook\ 
11060}#
+                                                      (#{chi-top-sequence\ 
11226}#
+                                                        #{body\ 12487}#
+                                                        #{r\ 12412}#
+                                                        #{w\ 12440}#
+                                                        #{s\ 12441}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 1513}#)
-                                                      #{mod\ 1513}#))
-                                                  (#{chi-void\ 321}#)))
+                                                        #{mod\ 12442}#)
+                                                      #{mod\ 12442}#))
+                                                  (#{chi-void\ 11250}#)))
                                               (if (memq 'load
-                                                        #{when-list\ 1557}#)
-                                                (if (let ((#{t\ 1567}#
+                                                        #{when-list\ 12486}#)
+                                                (if (let ((#{t\ 12496}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
1557}#)))
-                                                      (if #{t\ 1567}#
-                                                        #{t\ 1567}#
-                                                        (let ((#{t\ 1570}#
+                                                                  #{when-list\ 
12486}#)))
+                                                      (if #{t\ 12496}#
+                                                        #{t\ 12496}#
+                                                        (let ((#{t\ 12499}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 1557}#)))
-                                                          (if #{t\ 1570}#
-                                                            #{t\ 1570}#
-                                                            (if (eq? #{m\ 
1485}#
+                                                                      
#{when-list\ 12486}#)))
+                                                          (if #{t\ 12499}#
+                                                            #{t\ 12499}#
+                                                            (if (eq? #{m\ 
12414}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 1557}#)
+                                                                    
#{when-list\ 12486}#)
                                                               #f)))))
-                                                  (#{chi-top-sequence\ 297}#
-                                                    #{body\ 1558}#
-                                                    #{r\ 1483}#
-                                                    #{w\ 1511}#
-                                                    #{s\ 1512}#
+                                                  (#{chi-top-sequence\ 11226}#
+                                                    #{body\ 12487}#
+                                                    #{r\ 12412}#
+                                                    #{w\ 12440}#
+                                                    #{s\ 12441}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 1513}#)
-                                                  (if (memq #{m\ 1485}#
+                                                    #{mod\ 12442}#)
+                                                  (if (memq #{m\ 12414}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 297}#
-                                                      #{body\ 1558}#
-                                                      #{r\ 1483}#
-                                                      #{w\ 1511}#
-                                                      #{s\ 1512}#
+                                                    (#{chi-top-sequence\ 
11226}#
+                                                      #{body\ 12487}#
+                                                      #{r\ 12412}#
+                                                      #{w\ 12440}#
+                                                      #{s\ 12441}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 1513}#)
-                                                    (#{chi-void\ 321}#)))
-                                                (if (let ((#{t\ 1578}#
+                                                      #{mod\ 12442}#)
+                                                    (#{chi-void\ 11250}#)))
+                                                (if (let ((#{t\ 12507}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
1557}#)))
-                                                      (if #{t\ 1578}#
-                                                        #{t\ 1578}#
-                                                        (let ((#{t\ 1581}#
+                                                                  #{when-list\ 
12486}#)))
+                                                      (if #{t\ 12507}#
+                                                        #{t\ 12507}#
+                                                        (let ((#{t\ 12510}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 1557}#)))
-                                                          (if #{t\ 1581}#
-                                                            #{t\ 1581}#
-                                                            (if (eq? #{m\ 
1485}#
+                                                                      
#{when-list\ 12486}#)))
+                                                          (if #{t\ 12510}#
+                                                            #{t\ 12510}#
+                                                            (if (eq? #{m\ 
12414}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 1557}#)
+                                                                    
#{when-list\ 12486}#)
                                                               #f)))))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
131}#
-                                                      (#{chi-top-sequence\ 
297}#
-                                                        #{body\ 1558}#
-                                                        #{r\ 1483}#
-                                                        #{w\ 1511}#
-                                                        #{s\ 1512}#
+                                                    (#{top-level-eval-hook\ 
11060}#
+                                                      (#{chi-top-sequence\ 
11226}#
+                                                        #{body\ 12487}#
+                                                        #{r\ 12412}#
+                                                        #{w\ 12440}#
+                                                        #{s\ 12441}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 1513}#)
-                                                      #{mod\ 1513}#)
-                                                    (#{chi-void\ 321}#))
-                                                  (#{chi-void\ 321}#))))))
-                                        #{tmp\ 1546}#)
+                                                        #{mod\ 12442}#)
+                                                      #{mod\ 12442}#)
+                                                    (#{chi-void\ 11250}#))
+                                                  (#{chi-void\ 11250}#))))))
+                                        #{tmp\ 12475}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 1545}#)))
+                                   #{tmp\ 12474}#)))
                              ($sc-dispatch
-                               #{tmp\ 1545}#
+                               #{tmp\ 12474}#
                                '(any each-any any . each-any))))
-                          #{e\ 1510}#)
-                         (if (memv #{type\ 1508}#
+                          #{e\ 12439}#)
+                         (if (memv #{type\ 12437}#
                                    '(define-syntax-form))
-                           (let ((#{n\ 1589}#
-                                   (#{id-var-name\ 279}#
-                                     #{value\ 1509}#
-                                     #{w\ 1511}#))
-                                 (#{r\ 1590}#
-                                   (#{macros-only-env\ 214}# #{r\ 1483}#)))
-                             (if (memv #{m\ 1485}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 1486}#)
-                                 (let ((#{e\ 1593}#
-                                         (#{chi-install-global\ 299}#
-                                           #{n\ 1589}#
-                                           (#{chi\ 307}#
-                                             #{e\ 1510}#
-                                             #{r\ 1590}#
-                                             #{w\ 1511}#
-                                             #{mod\ 1513}#))))
+                           (let ((#{n\ 12518}#
+                                   (#{id-var-name\ 11208}#
+                                     #{value\ 12438}#
+                                     #{w\ 12440}#))
+                                 (#{r\ 12519}#
+                                   (#{macros-only-env\ 11143}# #{r\ 12412}#)))
+                             (if (memv #{m\ 12414}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 12415}#)
+                                 (let ((#{e\ 12522}#
+                                         (#{chi-install-global\ 11228}#
+                                           #{n\ 12518}#
+                                           (#{chi\ 11236}#
+                                             #{e\ 12439}#
+                                             #{r\ 12519}#
+                                             #{w\ 12440}#
+                                             #{mod\ 12442}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 131}#
-                                       #{e\ 1593}#
-                                       #{mod\ 1513}#)
-                                     (if (memq (quote load) #{esew\ 1486}#)
-                                       #{e\ 1593}#
-                                       (#{chi-void\ 321}#))))
-                                 (if (memq (quote load) #{esew\ 1486}#)
-                                   (#{chi-install-global\ 299}#
-                                     #{n\ 1589}#
-                                     (#{chi\ 307}#
-                                       #{e\ 1510}#
-                                       #{r\ 1590}#
-                                       #{w\ 1511}#
-                                       #{mod\ 1513}#))
-                                   (#{chi-void\ 321}#)))
-                               (if (memv #{m\ 1485}# (quote (c&e)))
-                                 (let ((#{e\ 1596}#
-                                         (#{chi-install-global\ 299}#
-                                           #{n\ 1589}#
-                                           (#{chi\ 307}#
-                                             #{e\ 1510}#
-                                             #{r\ 1590}#
-                                             #{w\ 1511}#
-                                             #{mod\ 1513}#))))
+                                     (#{top-level-eval-hook\ 11060}#
+                                       #{e\ 12522}#
+                                       #{mod\ 12442}#)
+                                     (if (memq (quote load) #{esew\ 12415}#)
+                                       #{e\ 12522}#
+                                       (#{chi-void\ 11250}#))))
+                                 (if (memq (quote load) #{esew\ 12415}#)
+                                   (#{chi-install-global\ 11228}#
+                                     #{n\ 12518}#
+                                     (#{chi\ 11236}#
+                                       #{e\ 12439}#
+                                       #{r\ 12519}#
+                                       #{w\ 12440}#
+                                       #{mod\ 12442}#))
+                                   (#{chi-void\ 11250}#)))
+                               (if (memv #{m\ 12414}# (quote (c&e)))
+                                 (let ((#{e\ 12525}#
+                                         (#{chi-install-global\ 11228}#
+                                           #{n\ 12518}#
+                                           (#{chi\ 11236}#
+                                             #{e\ 12439}#
+                                             #{r\ 12519}#
+                                             #{w\ 12440}#
+                                             #{mod\ 12442}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 131}#
-                                       #{e\ 1596}#
-                                       #{mod\ 1513}#)
-                                     #{e\ 1596}#))
+                                     (#{top-level-eval-hook\ 11060}#
+                                       #{e\ 12525}#
+                                       #{mod\ 12442}#)
+                                     #{e\ 12525}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 1486}#)
-                                     (#{top-level-eval-hook\ 131}#
-                                       (#{chi-install-global\ 299}#
-                                         #{n\ 1589}#
-                                         (#{chi\ 307}#
-                                           #{e\ 1510}#
-                                           #{r\ 1590}#
-                                           #{w\ 1511}#
-                                           #{mod\ 1513}#))
-                                       #{mod\ 1513}#))
-                                   (#{chi-void\ 321}#)))))
-                           (if (memv #{type\ 1508}# (quote (define-form)))
-                             (let ((#{n\ 1601}#
-                                     (#{id-var-name\ 279}#
-                                       #{value\ 1509}#
-                                       #{w\ 1511}#)))
-                               (let ((#{type\ 1603}#
-                                       (#{binding-type\ 205}#
-                                         (#{lookup\ 216}#
-                                           #{n\ 1601}#
-                                           #{r\ 1483}#
-                                           #{mod\ 1513}#))))
-                                 (if (memv #{type\ 1603}#
+                                   (if (memq (quote eval) #{esew\ 12415}#)
+                                     (#{top-level-eval-hook\ 11060}#
+                                       (#{chi-install-global\ 11228}#
+                                         #{n\ 12518}#
+                                         (#{chi\ 11236}#
+                                           #{e\ 12439}#
+                                           #{r\ 12519}#
+                                           #{w\ 12440}#
+                                           #{mod\ 12442}#))
+                                       #{mod\ 12442}#))
+                                   (#{chi-void\ 11250}#)))))
+                           (if (memv #{type\ 12437}# (quote (define-form)))
+                             (let ((#{n\ 12530}#
+                                     (#{id-var-name\ 11208}#
+                                       #{value\ 12438}#
+                                       #{w\ 12440}#)))
+                               (let ((#{type\ 12532}#
+                                       (#{binding-type\ 11134}#
+                                         (#{lookup\ 11145}#
+                                           #{n\ 12530}#
+                                           #{r\ 12412}#
+                                           #{mod\ 12442}#))))
+                                 (if (memv #{type\ 12532}#
                                            '(global core macro module-ref))
                                    (begin
-                                     (if (if (memq #{m\ 1485}# (quote (c c&e)))
+                                     (if (if (memq #{m\ 12414}#
+                                                   '(c c&e))
                                            (if (not (module-local-variable
                                                       (current-module)
-                                                      #{n\ 1601}#))
+                                                      #{n\ 12530}#))
                                              (current-module)
                                              #f)
                                            #f)
-                                       (let ((#{old\ 1609}#
+                                       (let ((#{old\ 12538}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 1601}#)))
+                                                 #{n\ 12530}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 1601}#
-                                           (if (variable? #{old\ 1609}#)
-                                             (variable-ref #{old\ 1609}#)
+                                           #{n\ 12530}#
+                                           (if (variable? #{old\ 12538}#)
+                                             (variable-ref #{old\ 12538}#)
                                              #f))))
-                                     (let ((#{x\ 1612}#
-                                             (#{build-global-definition\ 162}#
-                                               #{s\ 1512}#
-                                               #{n\ 1601}#
-                                               (#{chi\ 307}#
-                                                 #{e\ 1510}#
-                                                 #{r\ 1483}#
-                                                 #{w\ 1511}#
-                                                 #{mod\ 1513}#))))
+                                     (let ((#{x\ 12541}#
+                                             (#{build-global-definition\ 
11091}#
+                                               #{s\ 12441}#
+                                               #{n\ 12530}#
+                                               (#{chi\ 11236}#
+                                                 #{e\ 12439}#
+                                                 #{r\ 12412}#
+                                                 #{w\ 12440}#
+                                                 #{mod\ 12442}#))))
                                        (begin
-                                         (if (eq? #{m\ 1485}# (quote c&e))
-                                           (#{top-level-eval-hook\ 131}#
-                                             #{x\ 1612}#
-                                             #{mod\ 1513}#))
-                                         #{x\ 1612}#)))
-                                   (if (memv #{type\ 1603}#
+                                         (if (eq? #{m\ 12414}# (quote c&e))
+                                           (#{top-level-eval-hook\ 11060}#
+                                             #{x\ 12541}#
+                                             #{mod\ 12442}#))
+                                         #{x\ 12541}#)))
+                                   (if (memv #{type\ 12532}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 1510}#
-                                       (#{wrap\ 291}#
-                                         #{value\ 1509}#
-                                         #{w\ 1511}#
-                                         #{mod\ 1513}#))
+                                       #{e\ 12439}#
+                                       (#{wrap\ 11220}#
+                                         #{value\ 12438}#
+                                         #{w\ 12440}#
+                                         #{mod\ 12442}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 1510}#
-                                       (#{wrap\ 291}#
-                                         #{value\ 1509}#
-                                         #{w\ 1511}#
-                                         #{mod\ 1513}#))))))
-                             (let ((#{x\ 1618}#
-                                     (#{chi-expr\ 309}#
-                                       #{type\ 1508}#
-                                       #{value\ 1509}#
-                                       #{e\ 1510}#
-                                       #{r\ 1483}#
-                                       #{w\ 1511}#
-                                       #{s\ 1512}#
-                                       #{mod\ 1513}#)))
+                                       #{e\ 12439}#
+                                       (#{wrap\ 11220}#
+                                         #{value\ 12438}#
+                                         #{w\ 12440}#
+                                         #{mod\ 12442}#))))))
+                             (let ((#{x\ 12547}#
+                                     (#{chi-expr\ 11238}#
+                                       #{type\ 12437}#
+                                       #{value\ 12438}#
+                                       #{e\ 12439}#
+                                       #{r\ 12412}#
+                                       #{w\ 12440}#
+                                       #{s\ 12441}#
+                                       #{mod\ 12442}#)))
                                (begin
-                                 (if (eq? #{m\ 1485}# (quote c&e))
-                                   (#{top-level-eval-hook\ 131}#
-                                     #{x\ 1618}#
-                                     #{mod\ 1513}#))
-                                 #{x\ 1618}#)))))))))))
-           (#{syntax-type\ 303}#
-             (lambda (#{e\ 1619}#
-                      #{r\ 1620}#
-                      #{w\ 1621}#
-                      #{s\ 1622}#
-                      #{rib\ 1623}#
-                      #{mod\ 1624}#
-                      #{for-car?\ 1625}#)
-               (if (symbol? #{e\ 1619}#)
-                 (let ((#{n\ 1637}#
-                         (#{id-var-name\ 279}# #{e\ 1619}# #{w\ 1621}#)))
-                   (let ((#{b\ 1639}#
-                           (#{lookup\ 216}#
-                             #{n\ 1637}#
-                             #{r\ 1620}#
-                             #{mod\ 1624}#)))
-                     (let ((#{type\ 1641}#
-                             (#{binding-type\ 205}# #{b\ 1639}#)))
-                       (if (memv #{type\ 1641}# (quote (lexical)))
+                                 (if (eq? #{m\ 12414}# (quote c&e))
+                                   (#{top-level-eval-hook\ 11060}#
+                                     #{x\ 12547}#
+                                     #{mod\ 12442}#))
+                                 #{x\ 12547}#)))))))))))
+           (#{syntax-type\ 11232}#
+             (lambda (#{e\ 12548}#
+                      #{r\ 12549}#
+                      #{w\ 12550}#
+                      #{s\ 12551}#
+                      #{rib\ 12552}#
+                      #{mod\ 12553}#
+                      #{for-car?\ 12554}#)
+               (if (symbol? #{e\ 12548}#)
+                 (let ((#{n\ 12566}#
+                         (#{id-var-name\ 11208}#
+                           #{e\ 12548}#
+                           #{w\ 12550}#)))
+                   (let ((#{b\ 12568}#
+                           (#{lookup\ 11145}#
+                             #{n\ 12566}#
+                             #{r\ 12549}#
+                             #{mod\ 12553}#)))
+                     (let ((#{type\ 12570}#
+                             (#{binding-type\ 11134}# #{b\ 12568}#)))
+                       (if (memv #{type\ 12570}# (quote (lexical)))
                          (values
-                           #{type\ 1641}#
-                           (#{binding-value\ 207}# #{b\ 1639}#)
-                           #{e\ 1619}#
-                           #{w\ 1621}#
-                           #{s\ 1622}#
-                           #{mod\ 1624}#)
-                         (if (memv #{type\ 1641}# (quote (global)))
+                           #{type\ 12570}#
+                           (#{binding-value\ 11136}# #{b\ 12568}#)
+                           #{e\ 12548}#
+                           #{w\ 12550}#
+                           #{s\ 12551}#
+                           #{mod\ 12553}#)
+                         (if (memv #{type\ 12570}# (quote (global)))
                            (values
-                             #{type\ 1641}#
-                             #{n\ 1637}#
-                             #{e\ 1619}#
-                             #{w\ 1621}#
-                             #{s\ 1622}#
-                             #{mod\ 1624}#)
-                           (if (memv #{type\ 1641}# (quote (macro)))
-                             (if #{for-car?\ 1625}#
+                             #{type\ 12570}#
+                             #{n\ 12566}#
+                             #{e\ 12548}#
+                             #{w\ 12550}#
+                             #{s\ 12551}#
+                             #{mod\ 12553}#)
+                           (if (memv #{type\ 12570}# (quote (macro)))
+                             (if #{for-car?\ 12554}#
                                (values
-                                 #{type\ 1641}#
-                                 (#{binding-value\ 207}# #{b\ 1639}#)
-                                 #{e\ 1619}#
-                                 #{w\ 1621}#
-                                 #{s\ 1622}#
-                                 #{mod\ 1624}#)
-                               (#{syntax-type\ 303}#
-                                 (#{chi-macro\ 313}#
-                                   (#{binding-value\ 207}# #{b\ 1639}#)
-                                   #{e\ 1619}#
-                                   #{r\ 1620}#
-                                   #{w\ 1621}#
-                                   #{rib\ 1623}#
-                                   #{mod\ 1624}#)
-                                 #{r\ 1620}#
+                                 #{type\ 12570}#
+                                 (#{binding-value\ 11136}# #{b\ 12568}#)
+                                 #{e\ 12548}#
+                                 #{w\ 12550}#
+                                 #{s\ 12551}#
+                                 #{mod\ 12553}#)
+                               (#{syntax-type\ 11232}#
+                                 (#{chi-macro\ 11242}#
+                                   (#{binding-value\ 11136}# #{b\ 12568}#)
+                                   #{e\ 12548}#
+                                   #{r\ 12549}#
+                                   #{w\ 12550}#
+                                   #{rib\ 12552}#
+                                   #{mod\ 12553}#)
+                                 #{r\ 12549}#
                                  '(())
-                                 #{s\ 1622}#
-                                 #{rib\ 1623}#
-                                 #{mod\ 1624}#
+                                 #{s\ 12551}#
+                                 #{rib\ 12552}#
+                                 #{mod\ 12553}#
                                  #f))
                              (values
-                               #{type\ 1641}#
-                               (#{binding-value\ 207}# #{b\ 1639}#)
-                               #{e\ 1619}#
-                               #{w\ 1621}#
-                               #{s\ 1622}#
-                               #{mod\ 1624}#)))))))
-                 (if (pair? #{e\ 1619}#)
-                   (let ((#{first\ 1650}# (car #{e\ 1619}#)))
+                               #{type\ 12570}#
+                               (#{binding-value\ 11136}# #{b\ 12568}#)
+                               #{e\ 12548}#
+                               #{w\ 12550}#
+                               #{s\ 12551}#
+                               #{mod\ 12553}#)))))))
+                 (if (pair? #{e\ 12548}#)
+                   (let ((#{first\ 12579}# (car #{e\ 12548}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 303}#
-                           #{first\ 1650}#
-                           #{r\ 1620}#
-                           #{w\ 1621}#
-                           #{s\ 1622}#
-                           #{rib\ 1623}#
-                           #{mod\ 1624}#
+                         (#{syntax-type\ 11232}#
+                           #{first\ 12579}#
+                           #{r\ 12549}#
+                           #{w\ 12550}#
+                           #{s\ 12551}#
+                           #{rib\ 12552}#
+                           #{mod\ 12553}#
                            #t))
-                       (lambda (#{ftype\ 1651}#
-                                #{fval\ 1652}#
-                                #{fe\ 1653}#
-                                #{fw\ 1654}#
-                                #{fs\ 1655}#
-                                #{fmod\ 1656}#)
-                         (if (memv #{ftype\ 1651}# (quote (lexical)))
+                       (lambda (#{ftype\ 12580}#
+                                #{fval\ 12581}#
+                                #{fe\ 12582}#
+                                #{fw\ 12583}#
+                                #{fs\ 12584}#
+                                #{fmod\ 12585}#)
+                         (if (memv #{ftype\ 12580}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 1652}#
-                             #{e\ 1619}#
-                             #{w\ 1621}#
-                             #{s\ 1622}#
-                             #{mod\ 1624}#)
-                           (if (memv #{ftype\ 1651}# (quote (global)))
+                             #{fval\ 12581}#
+                             #{e\ 12548}#
+                             #{w\ 12550}#
+                             #{s\ 12551}#
+                             #{mod\ 12553}#)
+                           (if (memv #{ftype\ 12580}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 184}#
-                                 #{fval\ 1652}#
-                                 #{w\ 1621}#
-                                 #{fmod\ 1656}#)
-                               #{e\ 1619}#
-                               #{w\ 1621}#
-                               #{s\ 1622}#
-                               #{mod\ 1624}#)
-                             (if (memv #{ftype\ 1651}# (quote (macro)))
-                               (#{syntax-type\ 303}#
-                                 (#{chi-macro\ 313}#
-                                   #{fval\ 1652}#
-                                   #{e\ 1619}#
-                                   #{r\ 1620}#
-                                   #{w\ 1621}#
-                                   #{rib\ 1623}#
-                                   #{mod\ 1624}#)
-                                 #{r\ 1620}#
+                               (#{make-syntax-object\ 11113}#
+                                 #{fval\ 12581}#
+                                 #{w\ 12550}#
+                                 #{fmod\ 12585}#)
+                               #{e\ 12548}#
+                               #{w\ 12550}#
+                               #{s\ 12551}#
+                               #{mod\ 12553}#)
+                             (if (memv #{ftype\ 12580}# (quote (macro)))
+                               (#{syntax-type\ 11232}#
+                                 (#{chi-macro\ 11242}#
+                                   #{fval\ 12581}#
+                                   #{e\ 12548}#
+                                   #{r\ 12549}#
+                                   #{w\ 12550}#
+                                   #{rib\ 12552}#
+                                   #{mod\ 12553}#)
+                                 #{r\ 12549}#
                                  '(())
-                                 #{s\ 1622}#
-                                 #{rib\ 1623}#
-                                 #{mod\ 1624}#
-                                 #{for-car?\ 1625}#)
-                               (if (memv #{ftype\ 1651}# (quote (module-ref)))
+                                 #{s\ 12551}#
+                                 #{rib\ 12552}#
+                                 #{mod\ 12553}#
+                                 #{for-car?\ 12554}#)
+                               (if (memv #{ftype\ 12580}# (quote (module-ref)))
                                  (call-with-values
                                    (lambda ()
-                                     (#{fval\ 1652}#
-                                       #{e\ 1619}#
-                                       #{r\ 1620}#
-                                       #{w\ 1621}#))
-                                   (lambda (#{e\ 1668}#
-                                            #{r\ 1669}#
-                                            #{w\ 1670}#
-                                            #{s\ 1671}#
-                                            #{mod\ 1672}#)
-                                     (#{syntax-type\ 303}#
-                                       #{e\ 1668}#
-                                       #{r\ 1669}#
-                                       #{w\ 1670}#
-                                       #{s\ 1671}#
-                                       #{rib\ 1623}#
-                                       #{mod\ 1672}#
-                                       #{for-car?\ 1625}#)))
-                                 (if (memv #{ftype\ 1651}# (quote (core)))
+                                     (#{fval\ 12581}#
+                                       #{e\ 12548}#
+                                       #{r\ 12549}#
+                                       #{w\ 12550}#))
+                                   (lambda (#{e\ 12597}#
+                                            #{r\ 12598}#
+                                            #{w\ 12599}#
+                                            #{s\ 12600}#
+                                            #{mod\ 12601}#)
+                                     (#{syntax-type\ 11232}#
+                                       #{e\ 12597}#
+                                       #{r\ 12598}#
+                                       #{w\ 12599}#
+                                       #{s\ 12600}#
+                                       #{rib\ 12552}#
+                                       #{mod\ 12601}#
+                                       #{for-car?\ 12554}#)))
+                                 (if (memv #{ftype\ 12580}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 1652}#
-                                     #{e\ 1619}#
-                                     #{w\ 1621}#
-                                     #{s\ 1622}#
-                                     #{mod\ 1624}#)
-                                   (if (memv #{ftype\ 1651}#
+                                     #{fval\ 12581}#
+                                     #{e\ 12548}#
+                                     #{w\ 12550}#
+                                     #{s\ 12551}#
+                                     #{mod\ 12553}#)
+                                   (if (memv #{ftype\ 12580}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 1652}#
-                                       #{e\ 1619}#
-                                       #{w\ 1621}#
-                                       #{s\ 1622}#
-                                       #{mod\ 1624}#)
-                                     (if (memv #{ftype\ 1651}# (quote (begin)))
+                                       #{fval\ 12581}#
+                                       #{e\ 12548}#
+                                       #{w\ 12550}#
+                                       #{s\ 12551}#
+                                       #{mod\ 12553}#)
+                                     (if (memv #{ftype\ 12580}#
+                                               '(begin))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 1619}#
-                                         #{w\ 1621}#
-                                         #{s\ 1622}#
-                                         #{mod\ 1624}#)
-                                       (if (memv #{ftype\ 1651}#
+                                         #{e\ 12548}#
+                                         #{w\ 12550}#
+                                         #{s\ 12551}#
+                                         #{mod\ 12553}#)
+                                       (if (memv #{ftype\ 12580}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 1619}#
-                                           #{w\ 1621}#
-                                           #{s\ 1622}#
-                                           #{mod\ 1624}#)
-                                         (if (memv #{ftype\ 1651}#
+                                           #{e\ 12548}#
+                                           #{w\ 12550}#
+                                           #{s\ 12551}#
+                                           #{mod\ 12553}#)
+                                         (if (memv #{ftype\ 12580}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 1683}#)
-                                              ((lambda (#{tmp\ 1684}#)
-                                                 (if (if #{tmp\ 1684}#
-                                                       (apply (lambda (#{_\ 
1688}#
-                                                                       #{name\ 
1689}#
-                                                                       #{val\ 
1690}#)
-                                                                (#{id?\ 222}#
-                                                                  #{name\ 
1689}#))
-                                                              #{tmp\ 1684}#)
+                                           ((lambda (#{tmp\ 12612}#)
+                                              ((lambda (#{tmp\ 12613}#)
+                                                 (if (if #{tmp\ 12613}#
+                                                       (apply (lambda (#{_\ 
12617}#
+                                                                       #{name\ 
12618}#
+                                                                       #{val\ 
12619}#)
+                                                                (#{id?\ 11151}#
+                                                                  #{name\ 
12618}#))
+                                                              #{tmp\ 12613}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 1694}#
-                                                                   #{name\ 
1695}#
-                                                                   #{val\ 
1696}#)
+                                                   (apply (lambda (#{_\ 12623}#
+                                                                   #{name\ 
12624}#
+                                                                   #{val\ 
12625}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 1695}#
-                                                              #{val\ 1696}#
-                                                              #{w\ 1621}#
-                                                              #{s\ 1622}#
-                                                              #{mod\ 1624}#))
-                                                          #{tmp\ 1684}#)
-                                                   ((lambda (#{tmp\ 1697}#)
-                                                      (if (if #{tmp\ 1697}#
-                                                            (apply (lambda 
(#{_\ 1703}#
-                                                                            
#{name\ 1704}#
-                                                                            
#{args\ 1705}#
-                                                                            
#{e1\ 1706}#
-                                                                            
#{e2\ 1707}#)
-                                                                     (if 
(#{id?\ 222}#
-                                                                           
#{name\ 1704}#)
-                                                                       
(#{valid-bound-ids?\ 285}#
-                                                                         
(#{lambda-var-list\ 337}#
-                                                                           
#{args\ 1705}#))
+                                                              #{name\ 12624}#
+                                                              #{val\ 12625}#
+                                                              #{w\ 12550}#
+                                                              #{s\ 12551}#
+                                                              #{mod\ 12553}#))
+                                                          #{tmp\ 12613}#)
+                                                   ((lambda (#{tmp\ 12626}#)
+                                                      (if (if #{tmp\ 12626}#
+                                                            (apply (lambda 
(#{_\ 12632}#
+                                                                            
#{name\ 12633}#
+                                                                            
#{args\ 12634}#
+                                                                            
#{e1\ 12635}#
+                                                                            
#{e2\ 12636}#)
+                                                                     (if 
(#{id?\ 11151}#
+                                                                           
#{name\ 12633}#)
+                                                                       
(#{valid-bound-ids?\ 11214}#
+                                                                         
(#{lambda-var-list\ 11266}#
+                                                                           
#{args\ 12634}#))
                                                                        #f))
-                                                                   #{tmp\ 
1697}#)
+                                                                   #{tmp\ 
12626}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
1715}#
-                                                                        
#{name\ 1716}#
-                                                                        
#{args\ 1717}#
-                                                                        #{e1\ 
1718}#
-                                                                        #{e2\ 
1719}#)
+                                                        (apply (lambda (#{_\ 
12644}#
+                                                                        
#{name\ 12645}#
+                                                                        
#{args\ 12646}#
+                                                                        #{e1\ 
12647}#
+                                                                        #{e2\ 
12648}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
291}#
-                                                                     #{name\ 
1716}#
-                                                                     #{w\ 
1621}#
-                                                                     #{mod\ 
1624}#)
-                                                                   
(#{decorate-source\ 140}#
+                                                                   (#{wrap\ 
11220}#
+                                                                     #{name\ 
12645}#
+                                                                     #{w\ 
12550}#
+                                                                     #{mod\ 
12553}#)
+                                                                   
(#{decorate-source\ 11069}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3643,11 +3665,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1710"
-                                                                               
    "i1711"
-                                                                               
    "i1712"
-                                                                               
    "i1713"
-                                                                               
    "i1714"))
+                                                                               
  #("i12639"
+                                                                               
    "i12640"
+                                                                               
    "i12641"
+                                                                               
    "i12642"
+                                                                               
    "i12643"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3669,12 +3691,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1657"
-                                                                               
    "i1658"
-                                                                               
    "i1659"
-                                                                               
    "i1660"
-                                                                               
    "i1661"
-                                                                               
    "i1662"))
+                                                                               
  #("i12586"
+                                                                               
    "i12587"
+                                                                               
    "i12588"
+                                                                               
    "i12589"
+                                                                               
    "i12590"
+                                                                               
    "i12591"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3682,7 +3704,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i1649"))
+                                                                               
  #("i12578"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3710,13 +3732,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1626"
-                                                                               
    "i1627"
-                                                                               
    "i1628"
-                                                                               
    "i1629"
-                                                                               
    "i1630"
-                                                                               
    "i1631"
-                                                                               
    "i1632"))
+                                                                               
  #("i12555"
+                                                                               
    "i12556"
+                                                                               
    "i12557"
+                                                                               
    "i12558"
+                                                                               
    "i12559"
+                                                                               
    "i12560"
+                                                                               
    "i12561"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -3834,8 +3856,7 @@
                                                                                
    fx=
                                                                                
    fx-
                                                                                
    fx+
-                                                                               
    *mode*
-                                                                               
    noexpand)
+                                                                               
    *mode*)
                                                                                
  ((top)
                                                                                
   (top)
                                                                                
   (top)
@@ -3952,162 +3973,160 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top)
-                                                                               
   (top)
                                                                                
   (top))
-                                                                               
  ("i336"
-                                                                               
   "i334"
-                                                                               
   "i332"
-                                                                               
   "i330"
-                                                                               
   "i328"
-                                                                               
   "i326"
-                                                                               
   "i324"
-                                                                               
   "i322"
-                                                                               
   "i320"
-                                                                               
   "i318"
-                                                                               
   "i316"
-                                                                               
   "i314"
-                                                                               
   "i312"
-                                                                               
   "i310"
-                                                                               
   "i308"
-                                                                               
   "i306"
-                                                                               
   "i304"
-                                                                               
   "i302"
-                                                                               
   "i300"
-                                                                               
   "i298"
-                                                                               
   "i296"
-                                                                               
   "i294"
-                                                                               
   "i292"
-                                                                               
   "i290"
-                                                                               
   "i288"
-                                                                               
   "i286"
-                                                                               
   "i284"
-                                                                               
   "i282"
-                                                                               
   "i280"
-                                                                               
   "i278"
-                                                                               
   "i276"
-                                                                               
   "i274"
-                                                                               
   "i272"
-                                                                               
   "i270"
-                                                                               
   "i268"
-                                                                               
   "i266"
-                                                                               
   "i265"
-                                                                               
   "i264"
-                                                                               
   "i262"
-                                                                               
   "i261"
-                                                                               
   "i260"
-                                                                               
   "i259"
-                                                                               
   "i258"
-                                                                               
   "i256"
-                                                                               
   "i254"
-                                                                               
   "i252"
-                                                                               
   "i250"
-                                                                               
   "i248"
-                                                                               
   "i246"
-                                                                               
   "i244"
-                                                                               
   "i242"
-                                                                               
   "i239"
-                                                                               
   "i237"
-                                                                               
   "i236"
-                                                                               
   "i235"
-                                                                               
   "i234"
-                                                                               
   "i233"
-                                                                               
   "i232"
-                                                                               
   "i230"
-                                                                               
   "i228"
-                                                                               
   "i226"
-                                                                               
   "i224"
-                                                                               
   "i223"
-                                                                               
   "i221"
-                                                                               
   "i219"
-                                                                               
   "i217"
-                                                                               
   "i215"
-                                                                               
   "i213"
-                                                                               
   "i211"
-                                                                               
   "i209"
-                                                                               
   "i208"
-                                                                               
   "i206"
-                                                                               
   "i204"
-                                                                               
   "i203"
-                                                                               
   "i202"
-                                                                               
   "i200"
-                                                                               
   "i199"
-                                                                               
   "i197"
-                                                                               
   "i195"
-                                                                               
   "i193"
-                                                                               
   "i191"
-                                                                               
   "i189"
-                                                                               
   "i187"
-                                                                               
   "i185"
-                                                                               
   "i183"
-                                                                               
   "i181"
-                                                                               
   "i179"
-                                                                               
   "i177"
-                                                                               
   "i175"
-                                                                               
   "i173"
-                                                                               
   "i171"
-                                                                               
   "i169"
-                                                                               
   "i167"
-                                                                               
   "i165"
-                                                                               
   "i163"
-                                                                               
   "i161"
-                                                                               
   "i159"
-                                                                               
   "i157"
-                                                                               
   "i155"
-                                                                               
   "i153"
-                                                                               
   "i151"
-                                                                               
   "i149"
-                                                                               
   "i147"
-                                                                               
   "i145"
-                                                                               
   "i143"
-                                                                               
   "i141"
-                                                                               
   "i139"
-                                                                               
   "i137"
-                                                                               
   "i135"
-                                                                               
   "i134"
-                                                                               
   "i132"
-                                                                               
   "i130"
-                                                                               
   "i128"
-                                                                               
   "i126"
-                                                                               
   "i124"
-                                                                               
   "i122"
-                                                                               
   "i120"
-                                                                               
   "i118"))
+                                                                               
  ("i11265"
+                                                                               
   "i11263"
+                                                                               
   "i11261"
+                                                                               
   "i11259"
+                                                                               
   "i11257"
+                                                                               
   "i11255"
+                                                                               
   "i11253"
+                                                                               
   "i11251"
+                                                                               
   "i11249"
+                                                                               
   "i11247"
+                                                                               
   "i11245"
+                                                                               
   "i11243"
+                                                                               
   "i11241"
+                                                                               
   "i11239"
+                                                                               
   "i11237"
+                                                                               
   "i11235"
+                                                                               
   "i11233"
+                                                                               
   "i11231"
+                                                                               
   "i11229"
+                                                                               
   "i11227"
+                                                                               
   "i11225"
+                                                                               
   "i11223"
+                                                                               
   "i11221"
+                                                                               
   "i11219"
+                                                                               
   "i11217"
+                                                                               
   "i11215"
+                                                                               
   "i11213"
+                                                                               
   "i11211"
+                                                                               
   "i11209"
+                                                                               
   "i11207"
+                                                                               
   "i11205"
+                                                                               
   "i11203"
+                                                                               
   "i11201"
+                                                                               
   "i11199"
+                                                                               
   "i11197"
+                                                                               
   "i11195"
+                                                                               
   "i11194"
+                                                                               
   "i11193"
+                                                                               
   "i11191"
+                                                                               
   "i11190"
+                                                                               
   "i11189"
+                                                                               
   "i11188"
+                                                                               
   "i11187"
+                                                                               
   "i11185"
+                                                                               
   "i11183"
+                                                                               
   "i11181"
+                                                                               
   "i11179"
+                                                                               
   "i11177"
+                                                                               
   "i11175"
+                                                                               
   "i11173"
+                                                                               
   "i11171"
+                                                                               
   "i11168"
+                                                                               
   "i11166"
+                                                                               
   "i11165"
+                                                                               
   "i11164"
+                                                                               
   "i11163"
+                                                                               
   "i11162"
+                                                                               
   "i11161"
+                                                                               
   "i11159"
+                                                                               
   "i11157"
+                                                                               
   "i11155"
+                                                                               
   "i11153"
+                                                                               
   "i11152"
+                                                                               
   "i11150"
+                                                                               
   "i11148"
+                                                                               
   "i11146"
+                                                                               
   "i11144"
+                                                                               
   "i11142"
+                                                                               
   "i11140"
+                                                                               
   "i11138"
+                                                                               
   "i11137"
+                                                                               
   "i11135"
+                                                                               
   "i11133"
+                                                                               
   "i11132"
+                                                                               
   "i11131"
+                                                                               
   "i11129"
+                                                                               
   "i11128"
+                                                                               
   "i11126"
+                                                                               
   "i11124"
+                                                                               
   "i11122"
+                                                                               
   "i11120"
+                                                                               
   "i11118"
+                                                                               
   "i11116"
+                                                                               
   "i11114"
+                                                                               
   "i11112"
+                                                                               
   "i11110"
+                                                                               
   "i11108"
+                                                                               
   "i11106"
+                                                                               
   "i11104"
+                                                                               
   "i11102"
+                                                                               
   "i11100"
+                                                                               
   "i11098"
+                                                                               
   "i11096"
+                                                                               
   "i11094"
+                                                                               
   "i11092"
+                                                                               
   "i11090"
+                                                                               
   "i11088"
+                                                                               
   "i11086"
+                                                                               
   "i11084"
+                                                                               
   "i11082"
+                                                                               
   "i11080"
+                                                                               
   "i11078"
+                                                                               
   "i11076"
+                                                                               
   "i11074"
+                                                                               
   "i11072"
+                                                                               
   "i11070"
+                                                                               
   "i11068"
+                                                                               
   "i11066"
+                                                                               
   "i11064"
+                                                                               
   "i11063"
+                                                                               
   "i11061"
+                                                                               
   "i11059"
+                                                                               
   "i11057"
+                                                                               
   "i11055"
+                                                                               
   "i11053"
+                                                                               
   "i11051"
+                                                                               
   "i11049"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    and-map*)
                                                                                
  ((top)
                                                                                
   (top))
-                                                                               
  ("i21"
-                                                                               
   "i19")))
+                                                                               
  ("i10952"
+                                                                               
   "i10950")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 291}#
-                                                                             
(cons #{args\ 1717}#
-                                                                               
    (cons #{e1\ 1718}#
-                                                                               
          #{e2\ 1719}#))
-                                                                             
#{w\ 1621}#
-                                                                             
#{mod\ 1624}#))
-                                                                     #{s\ 
1622}#)
+                                                                           
(#{wrap\ 11220}#
+                                                                             
(cons #{args\ 12646}#
+                                                                               
    (cons #{e1\ 12647}#
+                                                                               
          #{e2\ 12648}#))
+                                                                             
#{w\ 12550}#
+                                                                             
#{mod\ 12553}#))
+                                                                     #{s\ 
12551}#)
                                                                    '(())
-                                                                   #{s\ 1622}#
-                                                                   #{mod\ 
1624}#))
-                                                               #{tmp\ 1697}#)
-                                                        ((lambda (#{tmp\ 
1722}#)
-                                                           (if (if #{tmp\ 
1722}#
-                                                                 (apply 
(lambda (#{_\ 1725}#
-                                                                               
  #{name\ 1726}#)
-                                                                          
(#{id?\ 222}#
-                                                                            
#{name\ 1726}#))
-                                                                        #{tmp\ 
1722}#)
+                                                                   #{s\ 12551}#
+                                                                   #{mod\ 
12553}#))
+                                                               #{tmp\ 12626}#)
+                                                        ((lambda (#{tmp\ 
12651}#)
+                                                           (if (if #{tmp\ 
12651}#
+                                                                 (apply 
(lambda (#{_\ 12654}#
+                                                                               
  #{name\ 12655}#)
+                                                                          
(#{id?\ 11151}#
+                                                                            
#{name\ 12655}#))
+                                                                        #{tmp\ 
12651}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 1729}#
-                                                                             
#{name\ 1730}#)
+                                                             (apply (lambda 
(#{_\ 12658}#
+                                                                             
#{name\ 12659}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 291}#
-                                                                          
#{name\ 1730}#
-                                                                          #{w\ 
1621}#
-                                                                          
#{mod\ 1624}#)
+                                                                        
(#{wrap\ 11220}#
+                                                                          
#{name\ 12659}#
+                                                                          #{w\ 
12550}#
+                                                                          
#{mod\ 12553}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4116,8 +4135,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1727"
-                                                                               
  "i1728"))
+                                                                               
#("i12656"
+                                                                               
  "i12657"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4139,12 +4158,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1657"
-                                                                               
  "i1658"
-                                                                               
  "i1659"
-                                                                               
  "i1660"
-                                                                               
  "i1661"
-                                                                               
  "i1662"))
+                                                                               
#("i12586"
+                                                                               
  "i12587"
+                                                                               
  "i12588"
+                                                                               
  "i12589"
+                                                                               
  "i12590"
+                                                                               
  "i12591"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4152,7 +4171,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1649"))
+                                                                               
#("i12578"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4180,13 +4199,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1626"
-                                                                               
  "i1627"
-                                                                               
  "i1628"
-                                                                               
  "i1629"
-                                                                               
  "i1630"
-                                                                               
  "i1631"
-                                                                               
  "i1632"))
+                                                                               
#("i12555"
+                                                                               
  "i12556"
+                                                                               
  "i12557"
+                                                                               
  "i12558"
+                                                                               
  "i12559"
+                                                                               
  "i12560"
+                                                                               
  "i12561"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4304,8 +4323,7 @@
                                                                                
  fx=
                                                                                
  fx-
                                                                                
  fx+
-                                                                               
  *mode*
-                                                                               
  noexpand)
+                                                                               
  *mode*)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -4422,133 +4440,131 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i298"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i278"
-                                                                               
 "i276"
-                                                                               
 "i274"
-                                                                               
 "i272"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i265"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i260"
-                                                                               
 "i259"
-                                                                               
 "i258"
-                                                                               
 "i256"
-                                                                               
 "i254"
-                                                                               
 "i252"
-                                                                               
 "i250"
-                                                                               
 "i248"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i239"
-                                                                               
 "i237"
-                                                                               
 "i236"
-                                                                               
 "i235"
-                                                                               
 "i234"
-                                                                               
 "i233"
-                                                                               
 "i232"
-                                                                               
 "i230"
-                                                                               
 "i228"
-                                                                               
 "i226"
-                                                                               
 "i224"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i208"
-                                                                               
 "i206"
-                                                                               
 "i204"
-                                                                               
 "i203"
-                                                                               
 "i202"
-                                                                               
 "i200"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i173"
-                                                                               
 "i171"
-                                                                               
 "i169"
-                                                                               
 "i167"
-                                                                               
 "i165"
-                                                                               
 "i163"
-                                                                               
 "i161"
-                                                                               
 "i159"
-                                                                               
 "i157"
-                                                                               
 "i155"
-                                                                               
 "i153"
-                                                                               
 "i151"
-                                                                               
 "i149"
-                                                                               
 "i147"
-                                                                               
 "i145"
-                                                                               
 "i143"
-                                                                               
 "i141"
-                                                                               
 "i139"
-                                                                               
 "i137"
-                                                                               
 "i135"
-                                                                               
 "i134"
-                                                                               
 "i132"
-                                                                               
 "i130"
-                                                                               
 "i128"
-                                                                               
 "i126"
-                                                                               
 "i124"
-                                                                               
 "i122"
-                                                                               
 "i120"
-                                                                               
 "i118"))
+                                                                               
("i11265"
+                                                                               
 "i11263"
+                                                                               
 "i11261"
+                                                                               
 "i11259"
+                                                                               
 "i11257"
+                                                                               
 "i11255"
+                                                                               
 "i11253"
+                                                                               
 "i11251"
+                                                                               
 "i11249"
+                                                                               
 "i11247"
+                                                                               
 "i11245"
+                                                                               
 "i11243"
+                                                                               
 "i11241"
+                                                                               
 "i11239"
+                                                                               
 "i11237"
+                                                                               
 "i11235"
+                                                                               
 "i11233"
+                                                                               
 "i11231"
+                                                                               
 "i11229"
+                                                                               
 "i11227"
+                                                                               
 "i11225"
+                                                                               
 "i11223"
+                                                                               
 "i11221"
+                                                                               
 "i11219"
+                                                                               
 "i11217"
+                                                                               
 "i11215"
+                                                                               
 "i11213"
+                                                                               
 "i11211"
+                                                                               
 "i11209"
+                                                                               
 "i11207"
+                                                                               
 "i11205"
+                                                                               
 "i11203"
+                                                                               
 "i11201"
+                                                                               
 "i11199"
+                                                                               
 "i11197"
+                                                                               
 "i11195"
+                                                                               
 "i11194"
+                                                                               
 "i11193"
+                                                                               
 "i11191"
+                                                                               
 "i11190"
+                                                                               
 "i11189"
+                                                                               
 "i11188"
+                                                                               
 "i11187"
+                                                                               
 "i11185"
+                                                                               
 "i11183"
+                                                                               
 "i11181"
+                                                                               
 "i11179"
+                                                                               
 "i11177"
+                                                                               
 "i11175"
+                                                                               
 "i11173"
+                                                                               
 "i11171"
+                                                                               
 "i11168"
+                                                                               
 "i11166"
+                                                                               
 "i11165"
+                                                                               
 "i11164"
+                                                                               
 "i11163"
+                                                                               
 "i11162"
+                                                                               
 "i11161"
+                                                                               
 "i11159"
+                                                                               
 "i11157"
+                                                                               
 "i11155"
+                                                                               
 "i11153"
+                                                                               
 "i11152"
+                                                                               
 "i11150"
+                                                                               
 "i11148"
+                                                                               
 "i11146"
+                                                                               
 "i11144"
+                                                                               
 "i11142"
+                                                                               
 "i11140"
+                                                                               
 "i11138"
+                                                                               
 "i11137"
+                                                                               
 "i11135"
+                                                                               
 "i11133"
+                                                                               
 "i11132"
+                                                                               
 "i11131"
+                                                                               
 "i11129"
+                                                                               
 "i11128"
+                                                                               
 "i11126"
+                                                                               
 "i11124"
+                                                                               
 "i11122"
+                                                                               
 "i11120"
+                                                                               
 "i11118"
+                                                                               
 "i11116"
+                                                                               
 "i11114"
+                                                                               
 "i11112"
+                                                                               
 "i11110"
+                                                                               
 "i11108"
+                                                                               
 "i11106"
+                                                                               
 "i11104"
+                                                                               
 "i11102"
+                                                                               
 "i11100"
+                                                                               
 "i11098"
+                                                                               
 "i11096"
+                                                                               
 "i11094"
+                                                                               
 "i11092"
+                                                                               
 "i11090"
+                                                                               
 "i11088"
+                                                                               
 "i11086"
+                                                                               
 "i11084"
+                                                                               
 "i11082"
+                                                                               
 "i11080"
+                                                                               
 "i11078"
+                                                                               
 "i11076"
+                                                                               
 "i11074"
+                                                                               
 "i11072"
+                                                                               
 "i11070"
+                                                                               
 "i11068"
+                                                                               
 "i11066"
+                                                                               
 "i11064"
+                                                                               
 "i11063"
+                                                                               
 "i11061"
+                                                                               
 "i11059"
+                                                                               
 "i11057"
+                                                                               
 "i11055"
+                                                                               
 "i11053"
+                                                                               
 "i11051"
+                                                                               
 "i11049"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i21"
-                                                                               
 "i19")))
+                                                                               
("i10952"
+                                                                               
 "i10950")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4559,8 +4575,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1727"
-                                                                               
  "i1728"))
+                                                                               
#("i12656"
+                                                                               
  "i12657"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4582,12 +4598,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1657"
-                                                                               
  "i1658"
-                                                                               
  "i1659"
-                                                                               
  "i1660"
-                                                                               
  "i1661"
-                                                                               
  "i1662"))
+                                                                               
#("i12586"
+                                                                               
  "i12587"
+                                                                               
  "i12588"
+                                                                               
  "i12589"
+                                                                               
  "i12590"
+                                                                               
  "i12591"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4595,7 +4611,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1649"))
+                                                                               
#("i12578"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4623,13 +4639,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1626"
-                                                                               
  "i1627"
-                                                                               
  "i1628"
-                                                                               
  "i1629"
-                                                                               
  "i1630"
-                                                                               
  "i1631"
-                                                                               
  "i1632"))
+                                                                               
#("i12555"
+                                                                               
  "i12556"
+                                                                               
  "i12557"
+                                                                               
  "i12558"
+                                                                               
  "i12559"
+                                                                               
  "i12560"
+                                                                               
  "i12561"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4747,8 +4763,7 @@
                                                                                
  fx=
                                                                                
  fx-
                                                                                
  fx+
-                                                                               
  *mode*
-                                                                               
  noexpand)
+                                                                               
  *mode*)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -4865,133 +4880,131 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i298"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i278"
-                                                                               
 "i276"
-                                                                               
 "i274"
-                                                                               
 "i272"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i265"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i260"
-                                                                               
 "i259"
-                                                                               
 "i258"
-                                                                               
 "i256"
-                                                                               
 "i254"
-                                                                               
 "i252"
-                                                                               
 "i250"
-                                                                               
 "i248"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i239"
-                                                                               
 "i237"
-                                                                               
 "i236"
-                                                                               
 "i235"
-                                                                               
 "i234"
-                                                                               
 "i233"
-                                                                               
 "i232"
-                                                                               
 "i230"
-                                                                               
 "i228"
-                                                                               
 "i226"
-                                                                               
 "i224"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i208"
-                                                                               
 "i206"
-                                                                               
 "i204"
-                                                                               
 "i203"
-                                                                               
 "i202"
-                                                                               
 "i200"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i173"
-                                                                               
 "i171"
-                                                                               
 "i169"
-                                                                               
 "i167"
-                                                                               
 "i165"
-                                                                               
 "i163"
-                                                                               
 "i161"
-                                                                               
 "i159"
-                                                                               
 "i157"
-                                                                               
 "i155"
-                                                                               
 "i153"
-                                                                               
 "i151"
-                                                                               
 "i149"
-                                                                               
 "i147"
-                                                                               
 "i145"
-                                                                               
 "i143"
-                                                                               
 "i141"
-                                                                               
 "i139"
-                                                                               
 "i137"
-                                                                               
 "i135"
-                                                                               
 "i134"
-                                                                               
 "i132"
-                                                                               
 "i130"
-                                                                               
 "i128"
-                                                                               
 "i126"
-                                                                               
 "i124"
-                                                                               
 "i122"
-                                                                               
 "i120"
-                                                                               
 "i118"))
+                                                                               
("i11265"
+                                                                               
 "i11263"
+                                                                               
 "i11261"
+                                                                               
 "i11259"
+                                                                               
 "i11257"
+                                                                               
 "i11255"
+                                                                               
 "i11253"
+                                                                               
 "i11251"
+                                                                               
 "i11249"
+                                                                               
 "i11247"
+                                                                               
 "i11245"
+                                                                               
 "i11243"
+                                                                               
 "i11241"
+                                                                               
 "i11239"
+                                                                               
 "i11237"
+                                                                               
 "i11235"
+                                                                               
 "i11233"
+                                                                               
 "i11231"
+                                                                               
 "i11229"
+                                                                               
 "i11227"
+                                                                               
 "i11225"
+                                                                               
 "i11223"
+                                                                               
 "i11221"
+                                                                               
 "i11219"
+                                                                               
 "i11217"
+                                                                               
 "i11215"
+                                                                               
 "i11213"
+                                                                               
 "i11211"
+                                                                               
 "i11209"
+                                                                               
 "i11207"
+                                                                               
 "i11205"
+                                                                               
 "i11203"
+                                                                               
 "i11201"
+                                                                               
 "i11199"
+                                                                               
 "i11197"
+                                                                               
 "i11195"
+                                                                               
 "i11194"
+                                                                               
 "i11193"
+                                                                               
 "i11191"
+                                                                               
 "i11190"
+                                                                               
 "i11189"
+                                                                               
 "i11188"
+                                                                               
 "i11187"
+                                                                               
 "i11185"
+                                                                               
 "i11183"
+                                                                               
 "i11181"
+                                                                               
 "i11179"
+                                                                               
 "i11177"
+                                                                               
 "i11175"
+                                                                               
 "i11173"
+                                                                               
 "i11171"
+                                                                               
 "i11168"
+                                                                               
 "i11166"
+                                                                               
 "i11165"
+                                                                               
 "i11164"
+                                                                               
 "i11163"
+                                                                               
 "i11162"
+                                                                               
 "i11161"
+                                                                               
 "i11159"
+                                                                               
 "i11157"
+                                                                               
 "i11155"
+                                                                               
 "i11153"
+                                                                               
 "i11152"
+                                                                               
 "i11150"
+                                                                               
 "i11148"
+                                                                               
 "i11146"
+                                                                               
 "i11144"
+                                                                               
 "i11142"
+                                                                               
 "i11140"
+                                                                               
 "i11138"
+                                                                               
 "i11137"
+                                                                               
 "i11135"
+                                                                               
 "i11133"
+                                                                               
 "i11132"
+                                                                               
 "i11131"
+                                                                               
 "i11129"
+                                                                               
 "i11128"
+                                                                               
 "i11126"
+                                                                               
 "i11124"
+                                                                               
 "i11122"
+                                                                               
 "i11120"
+                                                                               
 "i11118"
+                                                                               
 "i11116"
+                                                                               
 "i11114"
+                                                                               
 "i11112"
+                                                                               
 "i11110"
+                                                                               
 "i11108"
+                                                                               
 "i11106"
+                                                                               
 "i11104"
+                                                                               
 "i11102"
+                                                                               
 "i11100"
+                                                                               
 "i11098"
+                                                                               
 "i11096"
+                                                                               
 "i11094"
+                                                                               
 "i11092"
+                                                                               
 "i11090"
+                                                                               
 "i11088"
+                                                                               
 "i11086"
+                                                                               
 "i11084"
+                                                                               
 "i11082"
+                                                                               
 "i11080"
+                                                                               
 "i11078"
+                                                                               
 "i11076"
+                                                                               
 "i11074"
+                                                                               
 "i11072"
+                                                                               
 "i11070"
+                                                                               
 "i11068"
+                                                                               
 "i11066"
+                                                                               
 "i11064"
+                                                                               
 "i11063"
+                                                                               
 "i11061"
+                                                                               
 "i11059"
+                                                                               
 "i11057"
+                                                                               
 "i11055"
+                                                                               
 "i11053"
+                                                                               
 "i11051"
+                                                                               
 "i11049"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i21"
-                                                                               
 "i19")))
+                                                                               
("i10952"
+                                                                               
 "i10950")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -5002,8 +5015,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1727"
-                                                                               
  "i1728"))
+                                                                               
#("i12656"
+                                                                               
  "i12657"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5025,12 +5038,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1657"
-                                                                               
  "i1658"
-                                                                               
  "i1659"
-                                                                               
  "i1660"
-                                                                               
  "i1661"
-                                                                               
  "i1662"))
+                                                                               
#("i12586"
+                                                                               
  "i12587"
+                                                                               
  "i12588"
+                                                                               
  "i12589"
+                                                                               
  "i12590"
+                                                                               
  "i12591"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5038,7 +5051,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1649"))
+                                                                               
#("i12578"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5066,13 +5079,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1626"
-                                                                               
  "i1627"
-                                                                               
  "i1628"
-                                                                               
  "i1629"
-                                                                               
  "i1630"
-                                                                               
  "i1631"
-                                                                               
  "i1632"))
+                                                                               
#("i12555"
+                                                                               
  "i12556"
+                                                                               
  "i12557"
+                                                                               
  "i12558"
+                                                                               
  "i12559"
+                                                                               
  "i12560"
+                                                                               
  "i12561"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5190,8 +5203,7 @@
                                                                                
  fx=
                                                                                
  fx-
                                                                                
  fx+
-                                                                               
  *mode*
-                                                                               
  noexpand)
+                                                                               
  *mode*)
                                                                                
((top)
                                                                                
 (top)
                                                                                
 (top)
@@ -5308,234 +5320,233 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top)
-                                                                               
 (top)
                                                                                
 (top))
-                                                                               
("i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i298"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i278"
-                                                                               
 "i276"
-                                                                               
 "i274"
-                                                                               
 "i272"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i265"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i260"
-                                                                               
 "i259"
-                                                                               
 "i258"
-                                                                               
 "i256"
-                                                                               
 "i254"
-                                                                               
 "i252"
-                                                                               
 "i250"
-                                                                               
 "i248"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i239"
-                                                                               
 "i237"
-                                                                               
 "i236"
-                                                                               
 "i235"
-                                                                               
 "i234"
-                                                                               
 "i233"
-                                                                               
 "i232"
-                                                                               
 "i230"
-                                                                               
 "i228"
-                                                                               
 "i226"
-                                                                               
 "i224"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i208"
-                                                                               
 "i206"
-                                                                               
 "i204"
-                                                                               
 "i203"
-                                                                               
 "i202"
-                                                                               
 "i200"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i173"
-                                                                               
 "i171"
-                                                                               
 "i169"
-                                                                               
 "i167"
-                                                                               
 "i165"
-                                                                               
 "i163"
-                                                                               
 "i161"
-                                                                               
 "i159"
-                                                                               
 "i157"
-                                                                               
 "i155"
-                                                                               
 "i153"
-                                                                               
 "i151"
-                                                                               
 "i149"
-                                                                               
 "i147"
-                                                                               
 "i145"
-                                                                               
 "i143"
-                                                                               
 "i141"
-                                                                               
 "i139"
-                                                                               
 "i137"
-                                                                               
 "i135"
-                                                                               
 "i134"
-                                                                               
 "i132"
-                                                                               
 "i130"
-                                                                               
 "i128"
-                                                                               
 "i126"
-                                                                               
 "i124"
-                                                                               
 "i122"
-                                                                               
 "i120"
-                                                                               
 "i118"))
+                                                                               
("i11265"
+                                                                               
 "i11263"
+                                                                               
 "i11261"
+                                                                               
 "i11259"
+                                                                               
 "i11257"
+                                                                               
 "i11255"
+                                                                               
 "i11253"
+                                                                               
 "i11251"
+                                                                               
 "i11249"
+                                                                               
 "i11247"
+                                                                               
 "i11245"
+                                                                               
 "i11243"
+                                                                               
 "i11241"
+                                                                               
 "i11239"
+                                                                               
 "i11237"
+                                                                               
 "i11235"
+                                                                               
 "i11233"
+                                                                               
 "i11231"
+                                                                               
 "i11229"
+                                                                               
 "i11227"
+                                                                               
 "i11225"
+                                                                               
 "i11223"
+                                                                               
 "i11221"
+                                                                               
 "i11219"
+                                                                               
 "i11217"
+                                                                               
 "i11215"
+                                                                               
 "i11213"
+                                                                               
 "i11211"
+                                                                               
 "i11209"
+                                                                               
 "i11207"
+                                                                               
 "i11205"
+                                                                               
 "i11203"
+                                                                               
 "i11201"
+                                                                               
 "i11199"
+                                                                               
 "i11197"
+                                                                               
 "i11195"
+                                                                               
 "i11194"
+                                                                               
 "i11193"
+                                                                               
 "i11191"
+                                                                               
 "i11190"
+                                                                               
 "i11189"
+                                                                               
 "i11188"
+                                                                               
 "i11187"
+                                                                               
 "i11185"
+                                                                               
 "i11183"
+                                                                               
 "i11181"
+                                                                               
 "i11179"
+                                                                               
 "i11177"
+                                                                               
 "i11175"
+                                                                               
 "i11173"
+                                                                               
 "i11171"
+                                                                               
 "i11168"
+                                                                               
 "i11166"
+                                                                               
 "i11165"
+                                                                               
 "i11164"
+                                                                               
 "i11163"
+                                                                               
 "i11162"
+                                                                               
 "i11161"
+                                                                               
 "i11159"
+                                                                               
 "i11157"
+                                                                               
 "i11155"
+                                                                               
 "i11153"
+                                                                               
 "i11152"
+                                                                               
 "i11150"
+                                                                               
 "i11148"
+                                                                               
 "i11146"
+                                                                               
 "i11144"
+                                                                               
 "i11142"
+                                                                               
 "i11140"
+                                                                               
 "i11138"
+                                                                               
 "i11137"
+                                                                               
 "i11135"
+                                                                               
 "i11133"
+                                                                               
 "i11132"
+                                                                               
 "i11131"
+                                                                               
 "i11129"
+                                                                               
 "i11128"
+                                                                               
 "i11126"
+                                                                               
 "i11124"
+                                                                               
 "i11122"
+                                                                               
 "i11120"
+                                                                               
 "i11118"
+                                                                               
 "i11116"
+                                                                               
 "i11114"
+                                                                               
 "i11112"
+                                                                               
 "i11110"
+                                                                               
 "i11108"
+                                                                               
 "i11106"
+                                                                               
 "i11104"
+                                                                               
 "i11102"
+                                                                               
 "i11100"
+                                                                               
 "i11098"
+                                                                               
 "i11096"
+                                                                               
 "i11094"
+                                                                               
 "i11092"
+                                                                               
 "i11090"
+                                                                               
 "i11088"
+                                                                               
 "i11086"
+                                                                               
 "i11084"
+                                                                               
 "i11082"
+                                                                               
 "i11080"
+                                                                               
 "i11078"
+                                                                               
 "i11076"
+                                                                               
 "i11074"
+                                                                               
 "i11072"
+                                                                               
 "i11070"
+                                                                               
 "i11068"
+                                                                               
 "i11066"
+                                                                               
 "i11064"
+                                                                               
 "i11063"
+                                                                               
 "i11061"
+                                                                               
 "i11059"
+                                                                               
 "i11057"
+                                                                               
 "i11055"
+                                                                               
 "i11053"
+                                                                               
 "i11051"
+                                                                               
 "i11049"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i21"
-                                                                               
 "i19")))
+                                                                               
("i10952"
+                                                                               
 "i10950")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
1622}#
-                                                                        #{mod\ 
1624}#))
-                                                                    #{tmp\ 
1722}#)
+                                                                        #{s\ 
12551}#
+                                                                        #{mod\ 
12553}#))
+                                                                    #{tmp\ 
12651}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 1683}#)))
+                                                               #{tmp\ 
12612}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 1683}#
+                                                           #{tmp\ 12612}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1683}#
+                                                      #{tmp\ 12612}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 1683}#
+                                                 #{tmp\ 12612}#
                                                  '(any any any))))
-                                            #{e\ 1619}#)
-                                           (if (memv #{ftype\ 1651}#
+                                            #{e\ 12548}#)
+                                           (if (memv #{ftype\ 12580}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 1733}#)
-                                                ((lambda (#{tmp\ 1734}#)
-                                                   (if (if #{tmp\ 1734}#
-                                                         (apply (lambda (#{_\ 
1738}#
-                                                                         
#{name\ 1739}#
-                                                                         
#{val\ 1740}#)
-                                                                  (#{id?\ 222}#
-                                                                    #{name\ 
1739}#))
-                                                                #{tmp\ 1734}#)
+                                             ((lambda (#{tmp\ 12662}#)
+                                                ((lambda (#{tmp\ 12663}#)
+                                                   (if (if #{tmp\ 12663}#
+                                                         (apply (lambda (#{_\ 
12667}#
+                                                                         
#{name\ 12668}#
+                                                                         
#{val\ 12669}#)
+                                                                  (#{id?\ 
11151}#
+                                                                    #{name\ 
12668}#))
+                                                                #{tmp\ 12663}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 
1744}#
-                                                                     #{name\ 
1745}#
-                                                                     #{val\ 
1746}#)
+                                                     (apply (lambda (#{_\ 
12673}#
+                                                                     #{name\ 
12674}#
+                                                                     #{val\ 
12675}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 1745}#
-                                                                #{val\ 1746}#
-                                                                #{w\ 1621}#
-                                                                #{s\ 1622}#
-                                                                #{mod\ 1624}#))
-                                                            #{tmp\ 1734}#)
+                                                                #{name\ 12674}#
+                                                                #{val\ 12675}#
+                                                                #{w\ 12550}#
+                                                                #{s\ 12551}#
+                                                                #{mod\ 
12553}#))
+                                                            #{tmp\ 12663}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 1733}#)))
+                                                       #{tmp\ 12662}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 1733}#
+                                                   #{tmp\ 12662}#
                                                    '(any any any))))
-                                              #{e\ 1619}#)
+                                              #{e\ 12548}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 1619}#
-                                               #{w\ 1621}#
-                                               #{s\ 1622}#
-                                               #{mod\ 1624}#))))))))))))))
-                   (if (#{syntax-object?\ 186}# #{e\ 1619}#)
-                     (#{syntax-type\ 303}#
-                       (#{syntax-object-expression\ 188}# #{e\ 1619}#)
-                       #{r\ 1620}#
-                       (#{join-wraps\ 273}#
-                         #{w\ 1621}#
-                         (#{syntax-object-wrap\ 190}# #{e\ 1619}#))
-                       #{s\ 1622}#
-                       #{rib\ 1623}#
-                       (let ((#{t\ 1752}#
-                               (#{syntax-object-module\ 192}# #{e\ 1619}#)))
-                         (if #{t\ 1752}# #{t\ 1752}# #{mod\ 1624}#))
-                       #{for-car?\ 1625}#)
-                     (if (self-evaluating? #{e\ 1619}#)
+                                               #{e\ 12548}#
+                                               #{w\ 12550}#
+                                               #{s\ 12551}#
+                                               #{mod\ 12553}#))))))))))))))
+                   (if (#{syntax-object?\ 11115}# #{e\ 12548}#)
+                     (#{syntax-type\ 11232}#
+                       (#{syntax-object-expression\ 11117}#
+                         #{e\ 12548}#)
+                       #{r\ 12549}#
+                       (#{join-wraps\ 11202}#
+                         #{w\ 12550}#
+                         (#{syntax-object-wrap\ 11119}# #{e\ 12548}#))
+                       #{s\ 12551}#
+                       #{rib\ 12552}#
+                       (let ((#{t\ 12681}#
+                               (#{syntax-object-module\ 11121}# #{e\ 12548}#)))
+                         (if #{t\ 12681}# #{t\ 12681}# #{mod\ 12553}#))
+                       #{for-car?\ 12554}#)
+                     (if (self-evaluating? #{e\ 12548}#)
                        (values
                          'constant
                          #f
-                         #{e\ 1619}#
-                         #{w\ 1621}#
-                         #{s\ 1622}#
-                         #{mod\ 1624}#)
+                         #{e\ 12548}#
+                         #{w\ 12550}#
+                         #{s\ 12551}#
+                         #{mod\ 12553}#)
                        (values
                          'other
                          #f
-                         #{e\ 1619}#
-                         #{w\ 1621}#
-                         #{s\ 1622}#
-                         #{mod\ 1624}#)))))))
-           (#{chi-when-list\ 301}#
-             (lambda (#{e\ 1757}# #{when-list\ 1758}# #{w\ 1759}#)
-               (letrec ((#{f\ 1766}#
-                          (lambda (#{when-list\ 1767}# #{situations\ 1768}#)
-                            (if (null? #{when-list\ 1767}#)
-                              #{situations\ 1768}#
-                              (#{f\ 1766}#
-                                (cdr #{when-list\ 1767}#)
-                                (cons (let ((#{x\ 1770}#
-                                              (car #{when-list\ 1767}#)))
-                                        (if (#{free-id=?\ 281}#
-                                              #{x\ 1770}#
+                         #{e\ 12548}#
+                         #{w\ 12550}#
+                         #{s\ 12551}#
+                         #{mod\ 12553}#)))))))
+           (#{chi-when-list\ 11230}#
+             (lambda (#{e\ 12686}# #{when-list\ 12687}# #{w\ 12688}#)
+               (letrec ((#{f\ 12695}#
+                          (lambda (#{when-list\ 12696}# #{situations\ 12697}#)
+                            (if (null? #{when-list\ 12696}#)
+                              #{situations\ 12697}#
+                              (#{f\ 12695}#
+                                (cdr #{when-list\ 12696}#)
+                                (cons (let ((#{x\ 12699}#
+                                              (car #{when-list\ 12696}#)))
+                                        (if (#{free-id=?\ 11210}#
+                                              #{x\ 12699}#
                                               '#(syntax-object
                                                  compile
                                                  ((top)
@@ -5545,17 +5556,21 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i1769"))
+                                                    #("i12698"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i1763" "i1764" "i1765"))
+                                                    #("i12692"
+                                                      "i12693"
+                                                      "i12694"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i1760" "i1761" "i1762"))
+                                                    #("i12689"
+                                                      "i12690"
+                                                      "i12691"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -5673,8 +5688,7 @@
                                                       fx=
                                                       fx-
                                                       fx+
-                                                      *mode*
-                                                      noexpand)
+                                                      *mode*)
                                                     ((top)
                                                      (top)
                                                      (top)
@@ -5791,134 +5805,132 @@
                                                      (top)
                                                      (top)
                                                      (top)
-                                                     (top)
                                                      (top))
-                                                    ("i336"
-                                                     "i334"
-                                                     "i332"
-                                                     "i330"
-                                                     "i328"
-                                                     "i326"
-                                                     "i324"
-                                                     "i322"
-                                                     "i320"
-                                                     "i318"
-                                                     "i316"
-                                                     "i314"
-                                                     "i312"
-                                                     "i310"
-                                                     "i308"
-                                                     "i306"
-                                                     "i304"
-                                                     "i302"
-                                                     "i300"
-                                                     "i298"
-                                                     "i296"
-                                                     "i294"
-                                                     "i292"
-                                                     "i290"
-                                                     "i288"
-                                                     "i286"
-                                                     "i284"
-                                                     "i282"
-                                                     "i280"
-                                                     "i278"
-                                                     "i276"
-                                                     "i274"
-                                                     "i272"
-                                                     "i270"
-                                                     "i268"
-                                                     "i266"
-                                                     "i265"
-                                                     "i264"
-                                                     "i262"
-                                                     "i261"
-                                                     "i260"
-                                                     "i259"
-                                                     "i258"
-                                                     "i256"
-                                                     "i254"
-                                                     "i252"
-                                                     "i250"
-                                                     "i248"
-                                                     "i246"
-                                                     "i244"
-                                                     "i242"
-                                                     "i239"
-                                                     "i237"
-                                                     "i236"
-                                                     "i235"
-                                                     "i234"
-                                                     "i233"
-                                                     "i232"
-                                                     "i230"
-                                                     "i228"
-                                                     "i226"
-                                                     "i224"
-                                                     "i223"
-                                                     "i221"
-                                                     "i219"
-                                                     "i217"
-                                                     "i215"
-                                                     "i213"
-                                                     "i211"
-                                                     "i209"
-                                                     "i208"
-                                                     "i206"
-                                                     "i204"
-                                                     "i203"
-                                                     "i202"
-                                                     "i200"
-                                                     "i199"
-                                                     "i197"
-                                                     "i195"
-                                                     "i193"
-                                                     "i191"
-                                                     "i189"
-                                                     "i187"
-                                                     "i185"
-                                                     "i183"
-                                                     "i181"
-                                                     "i179"
-                                                     "i177"
-                                                     "i175"
-                                                     "i173"
-                                                     "i171"
-                                                     "i169"
-                                                     "i167"
-                                                     "i165"
-                                                     "i163"
-                                                     "i161"
-                                                     "i159"
-                                                     "i157"
-                                                     "i155"
-                                                     "i153"
-                                                     "i151"
-                                                     "i149"
-                                                     "i147"
-                                                     "i145"
-                                                     "i143"
-                                                     "i141"
-                                                     "i139"
-                                                     "i137"
-                                                     "i135"
-                                                     "i134"
-                                                     "i132"
-                                                     "i130"
-                                                     "i128"
-                                                     "i126"
-                                                     "i124"
-                                                     "i122"
-                                                     "i120"
-                                                     "i118"))
+                                                    ("i11265"
+                                                     "i11263"
+                                                     "i11261"
+                                                     "i11259"
+                                                     "i11257"
+                                                     "i11255"
+                                                     "i11253"
+                                                     "i11251"
+                                                     "i11249"
+                                                     "i11247"
+                                                     "i11245"
+                                                     "i11243"
+                                                     "i11241"
+                                                     "i11239"
+                                                     "i11237"
+                                                     "i11235"
+                                                     "i11233"
+                                                     "i11231"
+                                                     "i11229"
+                                                     "i11227"
+                                                     "i11225"
+                                                     "i11223"
+                                                     "i11221"
+                                                     "i11219"
+                                                     "i11217"
+                                                     "i11215"
+                                                     "i11213"
+                                                     "i11211"
+                                                     "i11209"
+                                                     "i11207"
+                                                     "i11205"
+                                                     "i11203"
+                                                     "i11201"
+                                                     "i11199"
+                                                     "i11197"
+                                                     "i11195"
+                                                     "i11194"
+                                                     "i11193"
+                                                     "i11191"
+                                                     "i11190"
+                                                     "i11189"
+                                                     "i11188"
+                                                     "i11187"
+                                                     "i11185"
+                                                     "i11183"
+                                                     "i11181"
+                                                     "i11179"
+                                                     "i11177"
+                                                     "i11175"
+                                                     "i11173"
+                                                     "i11171"
+                                                     "i11168"
+                                                     "i11166"
+                                                     "i11165"
+                                                     "i11164"
+                                                     "i11163"
+                                                     "i11162"
+                                                     "i11161"
+                                                     "i11159"
+                                                     "i11157"
+                                                     "i11155"
+                                                     "i11153"
+                                                     "i11152"
+                                                     "i11150"
+                                                     "i11148"
+                                                     "i11146"
+                                                     "i11144"
+                                                     "i11142"
+                                                     "i11140"
+                                                     "i11138"
+                                                     "i11137"
+                                                     "i11135"
+                                                     "i11133"
+                                                     "i11132"
+                                                     "i11131"
+                                                     "i11129"
+                                                     "i11128"
+                                                     "i11126"
+                                                     "i11124"
+                                                     "i11122"
+                                                     "i11120"
+                                                     "i11118"
+                                                     "i11116"
+                                                     "i11114"
+                                                     "i11112"
+                                                     "i11110"
+                                                     "i11108"
+                                                     "i11106"
+                                                     "i11104"
+                                                     "i11102"
+                                                     "i11100"
+                                                     "i11098"
+                                                     "i11096"
+                                                     "i11094"
+                                                     "i11092"
+                                                     "i11090"
+                                                     "i11088"
+                                                     "i11086"
+                                                     "i11084"
+                                                     "i11082"
+                                                     "i11080"
+                                                     "i11078"
+                                                     "i11076"
+                                                     "i11074"
+                                                     "i11072"
+                                                     "i11070"
+                                                     "i11068"
+                                                     "i11066"
+                                                     "i11064"
+                                                     "i11063"
+                                                     "i11061"
+                                                     "i11059"
+                                                     "i11057"
+                                                     "i11055"
+                                                     "i11053"
+                                                     "i11051"
+                                                     "i11049"))
                                                   #(ribcage
                                                     (define-structure and-map*)
                                                     ((top) (top))
-                                                    ("i21" "i19")))
+                                                    ("i10952" "i10950")))
                                                  (hygiene guile)))
                                           'compile
-                                          (if (#{free-id=?\ 281}#
-                                                #{x\ 1770}#
+                                          (if (#{free-id=?\ 11210}#
+                                                #{x\ 12699}#
                                                 '#(syntax-object
                                                    load
                                                    ((top)
@@ -5928,21 +5940,21 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i1769"))
+                                                      #("i12698"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f when-list situations)
                                                       #((top) (top) (top))
-                                                      #("i1763"
-                                                        "i1764"
-                                                        "i1765"))
+                                                      #("i12692"
+                                                        "i12693"
+                                                        "i12694"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e when-list w)
                                                       #((top) (top) (top))
-                                                      #("i1760"
-                                                        "i1761"
-                                                        "i1762"))
+                                                      #("i12689"
+                                                        "i12690"
+                                                        "i12691"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -6060,8 +6072,7 @@
                                                         fx=
                                                         fx-
                                                         fx+
-                                                        *mode*
-                                                        noexpand)
+                                                        *mode*)
                                                       ((top)
                                                        (top)
                                                        (top)
@@ -6178,135 +6189,133 @@
                                                        (top)
                                                        (top)
                                                        (top)
-                                                       (top)
                                                        (top))
-                                                      ("i336"
-                                                       "i334"
-                                                       "i332"
-                                                       "i330"
-                                                       "i328"
-                                                       "i326"
-                                                       "i324"
-                                                       "i322"
-                                                       "i320"
-                                                       "i318"
-                                                       "i316"
-                                                       "i314"
-                                                       "i312"
-                                                       "i310"
-                                                       "i308"
-                                                       "i306"
-                                                       "i304"
-                                                       "i302"
-                                                       "i300"
-                                                       "i298"
-                                                       "i296"
-                                                       "i294"
-                                                       "i292"
-                                                       "i290"
-                                                       "i288"
-                                                       "i286"
-                                                       "i284"
-                                                       "i282"
-                                                       "i280"
-                                                       "i278"
-                                                       "i276"
-                                                       "i274"
-                                                       "i272"
-                                                       "i270"
-                                                       "i268"
-                                                       "i266"
-                                                       "i265"
-                                                       "i264"
-                                                       "i262"
-                                                       "i261"
-                                                       "i260"
-                                                       "i259"
-                                                       "i258"
-                                                       "i256"
-                                                       "i254"
-                                                       "i252"
-                                                       "i250"
-                                                       "i248"
-                                                       "i246"
-                                                       "i244"
-                                                       "i242"
-                                                       "i239"
-                                                       "i237"
-                                                       "i236"
-                                                       "i235"
-                                                       "i234"
-                                                       "i233"
-                                                       "i232"
-                                                       "i230"
-                                                       "i228"
-                                                       "i226"
-                                                       "i224"
-                                                       "i223"
-                                                       "i221"
-                                                       "i219"
-                                                       "i217"
-                                                       "i215"
-                                                       "i213"
-                                                       "i211"
-                                                       "i209"
-                                                       "i208"
-                                                       "i206"
-                                                       "i204"
-                                                       "i203"
-                                                       "i202"
-                                                       "i200"
-                                                       "i199"
-                                                       "i197"
-                                                       "i195"
-                                                       "i193"
-                                                       "i191"
-                                                       "i189"
-                                                       "i187"
-                                                       "i185"
-                                                       "i183"
-                                                       "i181"
-                                                       "i179"
-                                                       "i177"
-                                                       "i175"
-                                                       "i173"
-                                                       "i171"
-                                                       "i169"
-                                                       "i167"
-                                                       "i165"
-                                                       "i163"
-                                                       "i161"
-                                                       "i159"
-                                                       "i157"
-                                                       "i155"
-                                                       "i153"
-                                                       "i151"
-                                                       "i149"
-                                                       "i147"
-                                                       "i145"
-                                                       "i143"
-                                                       "i141"
-                                                       "i139"
-                                                       "i137"
-                                                       "i135"
-                                                       "i134"
-                                                       "i132"
-                                                       "i130"
-                                                       "i128"
-                                                       "i126"
-                                                       "i124"
-                                                       "i122"
-                                                       "i120"
-                                                       "i118"))
+                                                      ("i11265"
+                                                       "i11263"
+                                                       "i11261"
+                                                       "i11259"
+                                                       "i11257"
+                                                       "i11255"
+                                                       "i11253"
+                                                       "i11251"
+                                                       "i11249"
+                                                       "i11247"
+                                                       "i11245"
+                                                       "i11243"
+                                                       "i11241"
+                                                       "i11239"
+                                                       "i11237"
+                                                       "i11235"
+                                                       "i11233"
+                                                       "i11231"
+                                                       "i11229"
+                                                       "i11227"
+                                                       "i11225"
+                                                       "i11223"
+                                                       "i11221"
+                                                       "i11219"
+                                                       "i11217"
+                                                       "i11215"
+                                                       "i11213"
+                                                       "i11211"
+                                                       "i11209"
+                                                       "i11207"
+                                                       "i11205"
+                                                       "i11203"
+                                                       "i11201"
+                                                       "i11199"
+                                                       "i11197"
+                                                       "i11195"
+                                                       "i11194"
+                                                       "i11193"
+                                                       "i11191"
+                                                       "i11190"
+                                                       "i11189"
+                                                       "i11188"
+                                                       "i11187"
+                                                       "i11185"
+                                                       "i11183"
+                                                       "i11181"
+                                                       "i11179"
+                                                       "i11177"
+                                                       "i11175"
+                                                       "i11173"
+                                                       "i11171"
+                                                       "i11168"
+                                                       "i11166"
+                                                       "i11165"
+                                                       "i11164"
+                                                       "i11163"
+                                                       "i11162"
+                                                       "i11161"
+                                                       "i11159"
+                                                       "i11157"
+                                                       "i11155"
+                                                       "i11153"
+                                                       "i11152"
+                                                       "i11150"
+                                                       "i11148"
+                                                       "i11146"
+                                                       "i11144"
+                                                       "i11142"
+                                                       "i11140"
+                                                       "i11138"
+                                                       "i11137"
+                                                       "i11135"
+                                                       "i11133"
+                                                       "i11132"
+                                                       "i11131"
+                                                       "i11129"
+                                                       "i11128"
+                                                       "i11126"
+                                                       "i11124"
+                                                       "i11122"
+                                                       "i11120"
+                                                       "i11118"
+                                                       "i11116"
+                                                       "i11114"
+                                                       "i11112"
+                                                       "i11110"
+                                                       "i11108"
+                                                       "i11106"
+                                                       "i11104"
+                                                       "i11102"
+                                                       "i11100"
+                                                       "i11098"
+                                                       "i11096"
+                                                       "i11094"
+                                                       "i11092"
+                                                       "i11090"
+                                                       "i11088"
+                                                       "i11086"
+                                                       "i11084"
+                                                       "i11082"
+                                                       "i11080"
+                                                       "i11078"
+                                                       "i11076"
+                                                       "i11074"
+                                                       "i11072"
+                                                       "i11070"
+                                                       "i11068"
+                                                       "i11066"
+                                                       "i11064"
+                                                       "i11063"
+                                                       "i11061"
+                                                       "i11059"
+                                                       "i11057"
+                                                       "i11055"
+                                                       "i11053"
+                                                       "i11051"
+                                                       "i11049"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i21" "i19")))
+                                                      ("i10952" "i10950")))
                                                    (hygiene guile)))
                                             'load
-                                            (if (#{free-id=?\ 281}#
-                                                  #{x\ 1770}#
+                                            (if (#{free-id=?\ 11210}#
+                                                  #{x\ 12699}#
                                                   '#(syntax-object
                                                      eval
                                                      ((top)
@@ -6316,23 +6325,23 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i1769"))
+                                                        #("i12698"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f
                                                           when-list
                                                           situations)
                                                         #((top) (top) (top))
-                                                        #("i1763"
-                                                          "i1764"
-                                                          "i1765"))
+                                                        #("i12692"
+                                                          "i12693"
+                                                          "i12694"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(e when-list w)
                                                         #((top) (top) (top))
-                                                        #("i1760"
-                                                          "i1761"
-                                                          "i1762"))
+                                                        #("i12689"
+                                                          "i12690"
+                                                          "i12691"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -6450,8 +6459,7 @@
                                                           fx=
                                                           fx-
                                                           fx+
-                                                          *mode*
-                                                          noexpand)
+                                                          *mode*)
                                                         ((top)
                                                          (top)
                                                          (top)
@@ -6568,135 +6576,133 @@
                                                          (top)
                                                          (top)
                                                          (top)
-                                                         (top)
                                                          (top))
-                                                        ("i336"
-                                                         "i334"
-                                                         "i332"
-                                                         "i330"
-                                                         "i328"
-                                                         "i326"
-                                                         "i324"
-                                                         "i322"
-                                                         "i320"
-                                                         "i318"
-                                                         "i316"
-                                                         "i314"
-                                                         "i312"
-                                                         "i310"
-                                                         "i308"
-                                                         "i306"
-                                                         "i304"
-                                                         "i302"
-                                                         "i300"
-                                                         "i298"
-                                                         "i296"
-                                                         "i294"
-                                                         "i292"
-                                                         "i290"
-                                                         "i288"
-                                                         "i286"
-                                                         "i284"
-                                                         "i282"
-                                                         "i280"
-                                                         "i278"
-                                                         "i276"
-                                                         "i274"
-                                                         "i272"
-                                                         "i270"
-                                                         "i268"
-                                                         "i266"
-                                                         "i265"
-                                                         "i264"
-                                                         "i262"
-                                                         "i261"
-                                                         "i260"
-                                                         "i259"
-                                                         "i258"
-                                                         "i256"
-                                                         "i254"
-                                                         "i252"
-                                                         "i250"
-                                                         "i248"
-                                                         "i246"
-                                                         "i244"
-                                                         "i242"
-                                                         "i239"
-                                                         "i237"
-                                                         "i236"
-                                                         "i235"
-                                                         "i234"
-                                                         "i233"
-                                                         "i232"
-                                                         "i230"
-                                                         "i228"
-                                                         "i226"
-                                                         "i224"
-                                                         "i223"
-                                                         "i221"
-                                                         "i219"
-                                                         "i217"
-                                                         "i215"
-                                                         "i213"
-                                                         "i211"
-                                                         "i209"
-                                                         "i208"
-                                                         "i206"
-                                                         "i204"
-                                                         "i203"
-                                                         "i202"
-                                                         "i200"
-                                                         "i199"
-                                                         "i197"
-                                                         "i195"
-                                                         "i193"
-                                                         "i191"
-                                                         "i189"
-                                                         "i187"
-                                                         "i185"
-                                                         "i183"
-                                                         "i181"
-                                                         "i179"
-                                                         "i177"
-                                                         "i175"
-                                                         "i173"
-                                                         "i171"
-                                                         "i169"
-                                                         "i167"
-                                                         "i165"
-                                                         "i163"
-                                                         "i161"
-                                                         "i159"
-                                                         "i157"
-                                                         "i155"
-                                                         "i153"
-                                                         "i151"
-                                                         "i149"
-                                                         "i147"
-                                                         "i145"
-                                                         "i143"
-                                                         "i141"
-                                                         "i139"
-                                                         "i137"
-                                                         "i135"
-                                                         "i134"
-                                                         "i132"
-                                                         "i130"
-                                                         "i128"
-                                                         "i126"
-                                                         "i124"
-                                                         "i122"
-                                                         "i120"
-                                                         "i118"))
+                                                        ("i11265"
+                                                         "i11263"
+                                                         "i11261"
+                                                         "i11259"
+                                                         "i11257"
+                                                         "i11255"
+                                                         "i11253"
+                                                         "i11251"
+                                                         "i11249"
+                                                         "i11247"
+                                                         "i11245"
+                                                         "i11243"
+                                                         "i11241"
+                                                         "i11239"
+                                                         "i11237"
+                                                         "i11235"
+                                                         "i11233"
+                                                         "i11231"
+                                                         "i11229"
+                                                         "i11227"
+                                                         "i11225"
+                                                         "i11223"
+                                                         "i11221"
+                                                         "i11219"
+                                                         "i11217"
+                                                         "i11215"
+                                                         "i11213"
+                                                         "i11211"
+                                                         "i11209"
+                                                         "i11207"
+                                                         "i11205"
+                                                         "i11203"
+                                                         "i11201"
+                                                         "i11199"
+                                                         "i11197"
+                                                         "i11195"
+                                                         "i11194"
+                                                         "i11193"
+                                                         "i11191"
+                                                         "i11190"
+                                                         "i11189"
+                                                         "i11188"
+                                                         "i11187"
+                                                         "i11185"
+                                                         "i11183"
+                                                         "i11181"
+                                                         "i11179"
+                                                         "i11177"
+                                                         "i11175"
+                                                         "i11173"
+                                                         "i11171"
+                                                         "i11168"
+                                                         "i11166"
+                                                         "i11165"
+                                                         "i11164"
+                                                         "i11163"
+                                                         "i11162"
+                                                         "i11161"
+                                                         "i11159"
+                                                         "i11157"
+                                                         "i11155"
+                                                         "i11153"
+                                                         "i11152"
+                                                         "i11150"
+                                                         "i11148"
+                                                         "i11146"
+                                                         "i11144"
+                                                         "i11142"
+                                                         "i11140"
+                                                         "i11138"
+                                                         "i11137"
+                                                         "i11135"
+                                                         "i11133"
+                                                         "i11132"
+                                                         "i11131"
+                                                         "i11129"
+                                                         "i11128"
+                                                         "i11126"
+                                                         "i11124"
+                                                         "i11122"
+                                                         "i11120"
+                                                         "i11118"
+                                                         "i11116"
+                                                         "i11114"
+                                                         "i11112"
+                                                         "i11110"
+                                                         "i11108"
+                                                         "i11106"
+                                                         "i11104"
+                                                         "i11102"
+                                                         "i11100"
+                                                         "i11098"
+                                                         "i11096"
+                                                         "i11094"
+                                                         "i11092"
+                                                         "i11090"
+                                                         "i11088"
+                                                         "i11086"
+                                                         "i11084"
+                                                         "i11082"
+                                                         "i11080"
+                                                         "i11078"
+                                                         "i11076"
+                                                         "i11074"
+                                                         "i11072"
+                                                         "i11070"
+                                                         "i11068"
+                                                         "i11066"
+                                                         "i11064"
+                                                         "i11063"
+                                                         "i11061"
+                                                         "i11059"
+                                                         "i11057"
+                                                         "i11055"
+                                                         "i11053"
+                                                         "i11051"
+                                                         "i11049"))
                                                       #(ribcage
                                                         (define-structure
                                                           and-map*)
                                                         ((top) (top))
-                                                        ("i21" "i19")))
+                                                        ("i10952" "i10950")))
                                                      (hygiene guile)))
                                               'eval
-                                              (if (#{free-id=?\ 281}#
-                                                    #{x\ 1770}#
+                                              (if (#{free-id=?\ 11210}#
+                                                    #{x\ 12699}#
                                                     '#(syntax-object
                                                        expand
                                                        ((top)
@@ -6706,23 +6712,23 @@
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i1769"))
+                                                          #("i12698"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f
                                                             when-list
                                                             situations)
                                                           #((top) (top) (top))
-                                                          #("i1763"
-                                                            "i1764"
-                                                            "i1765"))
+                                                          #("i12692"
+                                                            "i12693"
+                                                            "i12694"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(e when-list w)
                                                           #((top) (top) (top))
-                                                          #("i1760"
-                                                            "i1761"
-                                                            "i1762"))
+                                                          #("i12689"
+                                                            "i12690"
+                                                            "i12691"))
                                                         #(ribcage
                                                           (lambda-var-list
                                                             gen-var
@@ -6840,8 +6846,7 @@
                                                             fx=
                                                             fx-
                                                             fx+
-                                                            *mode*
-                                                            noexpand)
+                                                            *mode*)
                                                           ((top)
                                                            (top)
                                                            (top)
@@ -6958,1006 +6963,1045 @@
                                                            (top)
                                                            (top)
                                                            (top)
-                                                           (top)
                                                            (top))
-                                                          ("i336"
-                                                           "i334"
-                                                           "i332"
-                                                           "i330"
-                                                           "i328"
-                                                           "i326"
-                                                           "i324"
-                                                           "i322"
-                                                           "i320"
-                                                           "i318"
-                                                           "i316"
-                                                           "i314"
-                                                           "i312"
-                                                           "i310"
-                                                           "i308"
-                                                           "i306"
-                                                           "i304"
-                                                           "i302"
-                                                           "i300"
-                                                           "i298"
-                                                           "i296"
-                                                           "i294"
-                                                           "i292"
-                                                           "i290"
-                                                           "i288"
-                                                           "i286"
-                                                           "i284"
-                                                           "i282"
-                                                           "i280"
-                                                           "i278"
-                                                           "i276"
-                                                           "i274"
-                                                           "i272"
-                                                           "i270"
-                                                           "i268"
-                                                           "i266"
-                                                           "i265"
-                                                           "i264"
-                                                           "i262"
-                                                           "i261"
-                                                           "i260"
-                                                           "i259"
-                                                           "i258"
-                                                           "i256"
-                                                           "i254"
-                                                           "i252"
-                                                           "i250"
-                                                           "i248"
-                                                           "i246"
-                                                           "i244"
-                                                           "i242"
-                                                           "i239"
-                                                           "i237"
-                                                           "i236"
-                                                           "i235"
-                                                           "i234"
-                                                           "i233"
-                                                           "i232"
-                                                           "i230"
-                                                           "i228"
-                                                           "i226"
-                                                           "i224"
-                                                           "i223"
-                                                           "i221"
-                                                           "i219"
-                                                           "i217"
-                                                           "i215"
-                                                           "i213"
-                                                           "i211"
-                                                           "i209"
-                                                           "i208"
-                                                           "i206"
-                                                           "i204"
-                                                           "i203"
-                                                           "i202"
-                                                           "i200"
-                                                           "i199"
-                                                           "i197"
-                                                           "i195"
-                                                           "i193"
-                                                           "i191"
-                                                           "i189"
-                                                           "i187"
-                                                           "i185"
-                                                           "i183"
-                                                           "i181"
-                                                           "i179"
-                                                           "i177"
-                                                           "i175"
-                                                           "i173"
-                                                           "i171"
-                                                           "i169"
-                                                           "i167"
-                                                           "i165"
-                                                           "i163"
-                                                           "i161"
-                                                           "i159"
-                                                           "i157"
-                                                           "i155"
-                                                           "i153"
-                                                           "i151"
-                                                           "i149"
-                                                           "i147"
-                                                           "i145"
-                                                           "i143"
-                                                           "i141"
-                                                           "i139"
-                                                           "i137"
-                                                           "i135"
-                                                           "i134"
-                                                           "i132"
-                                                           "i130"
-                                                           "i128"
-                                                           "i126"
-                                                           "i124"
-                                                           "i122"
-                                                           "i120"
-                                                           "i118"))
+                                                          ("i11265"
+                                                           "i11263"
+                                                           "i11261"
+                                                           "i11259"
+                                                           "i11257"
+                                                           "i11255"
+                                                           "i11253"
+                                                           "i11251"
+                                                           "i11249"
+                                                           "i11247"
+                                                           "i11245"
+                                                           "i11243"
+                                                           "i11241"
+                                                           "i11239"
+                                                           "i11237"
+                                                           "i11235"
+                                                           "i11233"
+                                                           "i11231"
+                                                           "i11229"
+                                                           "i11227"
+                                                           "i11225"
+                                                           "i11223"
+                                                           "i11221"
+                                                           "i11219"
+                                                           "i11217"
+                                                           "i11215"
+                                                           "i11213"
+                                                           "i11211"
+                                                           "i11209"
+                                                           "i11207"
+                                                           "i11205"
+                                                           "i11203"
+                                                           "i11201"
+                                                           "i11199"
+                                                           "i11197"
+                                                           "i11195"
+                                                           "i11194"
+                                                           "i11193"
+                                                           "i11191"
+                                                           "i11190"
+                                                           "i11189"
+                                                           "i11188"
+                                                           "i11187"
+                                                           "i11185"
+                                                           "i11183"
+                                                           "i11181"
+                                                           "i11179"
+                                                           "i11177"
+                                                           "i11175"
+                                                           "i11173"
+                                                           "i11171"
+                                                           "i11168"
+                                                           "i11166"
+                                                           "i11165"
+                                                           "i11164"
+                                                           "i11163"
+                                                           "i11162"
+                                                           "i11161"
+                                                           "i11159"
+                                                           "i11157"
+                                                           "i11155"
+                                                           "i11153"
+                                                           "i11152"
+                                                           "i11150"
+                                                           "i11148"
+                                                           "i11146"
+                                                           "i11144"
+                                                           "i11142"
+                                                           "i11140"
+                                                           "i11138"
+                                                           "i11137"
+                                                           "i11135"
+                                                           "i11133"
+                                                           "i11132"
+                                                           "i11131"
+                                                           "i11129"
+                                                           "i11128"
+                                                           "i11126"
+                                                           "i11124"
+                                                           "i11122"
+                                                           "i11120"
+                                                           "i11118"
+                                                           "i11116"
+                                                           "i11114"
+                                                           "i11112"
+                                                           "i11110"
+                                                           "i11108"
+                                                           "i11106"
+                                                           "i11104"
+                                                           "i11102"
+                                                           "i11100"
+                                                           "i11098"
+                                                           "i11096"
+                                                           "i11094"
+                                                           "i11092"
+                                                           "i11090"
+                                                           "i11088"
+                                                           "i11086"
+                                                           "i11084"
+                                                           "i11082"
+                                                           "i11080"
+                                                           "i11078"
+                                                           "i11076"
+                                                           "i11074"
+                                                           "i11072"
+                                                           "i11070"
+                                                           "i11068"
+                                                           "i11066"
+                                                           "i11064"
+                                                           "i11063"
+                                                           "i11061"
+                                                           "i11059"
+                                                           "i11057"
+                                                           "i11055"
+                                                           "i11053"
+                                                           "i11051"
+                                                           "i11049"))
                                                         #(ribcage
                                                           (define-structure
                                                             and-map*)
                                                           ((top) (top))
-                                                          ("i21" "i19")))
+                                                          ("i10952" "i10950")))
                                                        (hygiene guile)))
                                                 'expand
                                                 (syntax-violation
                                                   'eval-when
                                                   "invalid situation"
-                                                  #{e\ 1757}#
-                                                  (#{wrap\ 291}#
-                                                    #{x\ 1770}#
-                                                    #{w\ 1759}#
+                                                  #{e\ 12686}#
+                                                  (#{wrap\ 11220}#
+                                                    #{x\ 12699}#
+                                                    #{w\ 12688}#
                                                     #f)))))))
-                                      #{situations\ 1768}#))))))
-                 (#{f\ 1766}# #{when-list\ 1758}# (quote ())))))
-           (#{chi-install-global\ 299}#
-             (lambda (#{name\ 1780}# #{e\ 1781}#)
-               (#{build-global-definition\ 162}#
+                                      #{situations\ 12697}#))))))
+                 (#{f\ 12695}# #{when-list\ 12687}# (quote ())))))
+           (#{chi-install-global\ 11228}#
+             (lambda (#{name\ 12709}# #{e\ 12710}#)
+               (#{build-global-definition\ 11091}#
                  #f
-                 #{name\ 1780}#
-                 (#{build-application\ 144}#
+                 #{name\ 12709}#
+                 (#{build-application\ 11073}#
                    #f
-                   (#{build-primref\ 170}#
+                   (#{build-primref\ 11099}#
                      #f
                      'make-syntax-transformer)
-                   (list (#{build-data\ 172}# #f #{name\ 1780}#)
-                         (#{build-data\ 172}# #f (quote macro))
-                         (#{build-application\ 144}#
+                   (list (#{build-data\ 11101}# #f #{name\ 12709}#)
+                         (#{build-data\ 11101}# #f (quote macro))
+                         (#{build-application\ 11073}#
                            #f
-                           (#{build-primref\ 170}# #f (quote cons))
-                           (list #{e\ 1781}#
-                                 (#{build-application\ 144}#
+                           (#{build-primref\ 11099}# #f (quote cons))
+                           (list #{e\ 12710}#
+                                 (#{build-application\ 11073}#
                                    #f
-                                   (#{build-primref\ 170}#
+                                   (#{build-primref\ 11099}#
                                      #f
                                      'module-name)
-                                   (list (#{build-application\ 144}#
+                                   (list (#{build-application\ 11073}#
                                            #f
-                                           (#{build-primref\ 170}#
+                                           (#{build-primref\ 11099}#
                                              #f
                                              'current-module)
                                            '()))))))))))
-           (#{chi-top-sequence\ 297}#
-             (lambda (#{body\ 1795}#
-                      #{r\ 1796}#
-                      #{w\ 1797}#
-                      #{s\ 1798}#
-                      #{m\ 1799}#
-                      #{esew\ 1800}#
-                      #{mod\ 1801}#)
-               (#{build-sequence\ 174}#
-                 #{s\ 1798}#
-                 (letrec ((#{dobody\ 1817}#
-                            (lambda (#{body\ 1818}#
-                                     #{r\ 1819}#
-                                     #{w\ 1820}#
-                                     #{m\ 1821}#
-                                     #{esew\ 1822}#
-                                     #{mod\ 1823}#
-                                     #{out\ 1824}#)
-                              (if (null? #{body\ 1818}#)
-                                (reverse #{out\ 1824}#)
-                                (#{dobody\ 1817}#
-                                  (cdr #{body\ 1818}#)
-                                  #{r\ 1819}#
-                                  #{w\ 1820}#
-                                  #{m\ 1821}#
-                                  #{esew\ 1822}#
-                                  #{mod\ 1823}#
-                                  (cons (#{chi-top\ 305}#
-                                          (car #{body\ 1818}#)
-                                          #{r\ 1819}#
-                                          #{w\ 1820}#
-                                          #{m\ 1821}#
-                                          #{esew\ 1822}#
-                                          #{mod\ 1823}#)
-                                        #{out\ 1824}#))))))
-                   (#{dobody\ 1817}#
-                     #{body\ 1795}#
-                     #{r\ 1796}#
-                     #{w\ 1797}#
-                     #{m\ 1799}#
-                     #{esew\ 1800}#
-                     #{mod\ 1801}#
+           (#{chi-top-sequence\ 11226}#
+             (lambda (#{body\ 12724}#
+                      #{r\ 12725}#
+                      #{w\ 12726}#
+                      #{s\ 12727}#
+                      #{m\ 12728}#
+                      #{esew\ 12729}#
+                      #{mod\ 12730}#)
+               (#{build-sequence\ 11103}#
+                 #{s\ 12727}#
+                 (letrec ((#{dobody\ 12746}#
+                            (lambda (#{body\ 12747}#
+                                     #{r\ 12748}#
+                                     #{w\ 12749}#
+                                     #{m\ 12750}#
+                                     #{esew\ 12751}#
+                                     #{mod\ 12752}#
+                                     #{out\ 12753}#)
+                              (if (null? #{body\ 12747}#)
+                                (reverse #{out\ 12753}#)
+                                (#{dobody\ 12746}#
+                                  (cdr #{body\ 12747}#)
+                                  #{r\ 12748}#
+                                  #{w\ 12749}#
+                                  #{m\ 12750}#
+                                  #{esew\ 12751}#
+                                  #{mod\ 12752}#
+                                  (cons (#{chi-top\ 11234}#
+                                          (car #{body\ 12747}#)
+                                          #{r\ 12748}#
+                                          #{w\ 12749}#
+                                          #{m\ 12750}#
+                                          #{esew\ 12751}#
+                                          #{mod\ 12752}#)
+                                        #{out\ 12753}#))))))
+                   (#{dobody\ 12746}#
+                     #{body\ 12724}#
+                     #{r\ 12725}#
+                     #{w\ 12726}#
+                     #{m\ 12728}#
+                     #{esew\ 12729}#
+                     #{mod\ 12730}#
                      '())))))
-           (#{chi-sequence\ 295}#
-             (lambda (#{body\ 1825}#
-                      #{r\ 1826}#
-                      #{w\ 1827}#
-                      #{s\ 1828}#
-                      #{mod\ 1829}#)
-               (#{build-sequence\ 174}#
-                 #{s\ 1828}#
-                 (letrec ((#{dobody\ 1840}#
-                            (lambda (#{body\ 1841}#
-                                     #{r\ 1842}#
-                                     #{w\ 1843}#
-                                     #{mod\ 1844}#)
-                              (if (null? #{body\ 1841}#)
+           (#{chi-sequence\ 11224}#
+             (lambda (#{body\ 12754}#
+                      #{r\ 12755}#
+                      #{w\ 12756}#
+                      #{s\ 12757}#
+                      #{mod\ 12758}#)
+               (#{build-sequence\ 11103}#
+                 #{s\ 12757}#
+                 (letrec ((#{dobody\ 12769}#
+                            (lambda (#{body\ 12770}#
+                                     #{r\ 12771}#
+                                     #{w\ 12772}#
+                                     #{mod\ 12773}#)
+                              (if (null? #{body\ 12770}#)
                                 '()
-                                (let ((#{first\ 1846}#
-                                        (#{chi\ 307}#
-                                          (car #{body\ 1841}#)
-                                          #{r\ 1842}#
-                                          #{w\ 1843}#
-                                          #{mod\ 1844}#)))
-                                  (cons #{first\ 1846}#
-                                        (#{dobody\ 1840}#
-                                          (cdr #{body\ 1841}#)
-                                          #{r\ 1842}#
-                                          #{w\ 1843}#
-                                          #{mod\ 1844}#)))))))
-                   (#{dobody\ 1840}#
-                     #{body\ 1825}#
-                     #{r\ 1826}#
-                     #{w\ 1827}#
-                     #{mod\ 1829}#)))))
-           (#{source-wrap\ 293}#
-             (lambda (#{x\ 1847}#
-                      #{w\ 1848}#
-                      #{s\ 1849}#
-                      #{defmod\ 1850}#)
-               (#{wrap\ 291}#
-                 (#{decorate-source\ 140}#
-                   #{x\ 1847}#
-                   #{s\ 1849}#)
-                 #{w\ 1848}#
-                 #{defmod\ 1850}#)))
-           (#{wrap\ 291}#
-             (lambda (#{x\ 1855}# #{w\ 1856}# #{defmod\ 1857}#)
-               (if (if (null? (#{wrap-marks\ 229}# #{w\ 1856}#))
-                     (null? (#{wrap-subst\ 231}# #{w\ 1856}#))
+                                (let ((#{first\ 12775}#
+                                        (#{chi\ 11236}#
+                                          (car #{body\ 12770}#)
+                                          #{r\ 12771}#
+                                          #{w\ 12772}#
+                                          #{mod\ 12773}#)))
+                                  (cons #{first\ 12775}#
+                                        (#{dobody\ 12769}#
+                                          (cdr #{body\ 12770}#)
+                                          #{r\ 12771}#
+                                          #{w\ 12772}#
+                                          #{mod\ 12773}#)))))))
+                   (#{dobody\ 12769}#
+                     #{body\ 12754}#
+                     #{r\ 12755}#
+                     #{w\ 12756}#
+                     #{mod\ 12758}#)))))
+           (#{source-wrap\ 11222}#
+             (lambda (#{x\ 12776}#
+                      #{w\ 12777}#
+                      #{s\ 12778}#
+                      #{defmod\ 12779}#)
+               (#{wrap\ 11220}#
+                 (#{decorate-source\ 11069}#
+                   #{x\ 12776}#
+                   #{s\ 12778}#)
+                 #{w\ 12777}#
+                 #{defmod\ 12779}#)))
+           (#{wrap\ 11220}#
+             (lambda (#{x\ 12784}# #{w\ 12785}# #{defmod\ 12786}#)
+               (if (if (null? (#{wrap-marks\ 11158}# #{w\ 12785}#))
+                     (null? (#{wrap-subst\ 11160}# #{w\ 12785}#))
                      #f)
-                 #{x\ 1855}#
-                 (if (#{syntax-object?\ 186}# #{x\ 1855}#)
-                   (#{make-syntax-object\ 184}#
-                     (#{syntax-object-expression\ 188}# #{x\ 1855}#)
-                     (#{join-wraps\ 273}#
-                       #{w\ 1856}#
-                       (#{syntax-object-wrap\ 190}# #{x\ 1855}#))
-                     (#{syntax-object-module\ 192}# #{x\ 1855}#))
-                   (if (null? #{x\ 1855}#)
-                     #{x\ 1855}#
-                     (#{make-syntax-object\ 184}#
-                       #{x\ 1855}#
-                       #{w\ 1856}#
-                       #{defmod\ 1857}#))))))
-           (#{bound-id-member?\ 289}#
-             (lambda (#{x\ 1870}# #{list\ 1871}#)
-               (if (not (null? #{list\ 1871}#))
-                 (let ((#{t\ 1878}#
-                         (#{bound-id=?\ 283}#
-                           #{x\ 1870}#
-                           (car #{list\ 1871}#))))
-                   (if #{t\ 1878}#
-                     #{t\ 1878}#
-                     (#{bound-id-member?\ 289}#
-                       #{x\ 1870}#
-                       (cdr #{list\ 1871}#))))
+                 #{x\ 12784}#
+                 (if (#{syntax-object?\ 11115}# #{x\ 12784}#)
+                   (#{make-syntax-object\ 11113}#
+                     (#{syntax-object-expression\ 11117}#
+                       #{x\ 12784}#)
+                     (#{join-wraps\ 11202}#
+                       #{w\ 12785}#
+                       (#{syntax-object-wrap\ 11119}# #{x\ 12784}#))
+                     (#{syntax-object-module\ 11121}# #{x\ 12784}#))
+                   (if (null? #{x\ 12784}#)
+                     #{x\ 12784}#
+                     (#{make-syntax-object\ 11113}#
+                       #{x\ 12784}#
+                       #{w\ 12785}#
+                       #{defmod\ 12786}#))))))
+           (#{bound-id-member?\ 11218}#
+             (lambda (#{x\ 12799}# #{list\ 12800}#)
+               (if (not (null? #{list\ 12800}#))
+                 (let ((#{t\ 12807}#
+                         (#{bound-id=?\ 11212}#
+                           #{x\ 12799}#
+                           (car #{list\ 12800}#))))
+                   (if #{t\ 12807}#
+                     #{t\ 12807}#
+                     (#{bound-id-member?\ 11218}#
+                       #{x\ 12799}#
+                       (cdr #{list\ 12800}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 287}#
-             (lambda (#{ids\ 1880}#)
-               (letrec ((#{distinct?\ 1884}#
-                          (lambda (#{ids\ 1885}#)
-                            (let ((#{t\ 1888}# (null? #{ids\ 1885}#)))
-                              (if #{t\ 1888}#
-                                #{t\ 1888}#
-                                (if (not (#{bound-id-member?\ 289}#
-                                           (car #{ids\ 1885}#)
-                                           (cdr #{ids\ 1885}#)))
-                                  (#{distinct?\ 1884}# (cdr #{ids\ 1885}#))
+           (#{distinct-bound-ids?\ 11216}#
+             (lambda (#{ids\ 12809}#)
+               (letrec ((#{distinct?\ 12813}#
+                          (lambda (#{ids\ 12814}#)
+                            (let ((#{t\ 12817}# (null? #{ids\ 12814}#)))
+                              (if #{t\ 12817}#
+                                #{t\ 12817}#
+                                (if (not (#{bound-id-member?\ 11218}#
+                                           (car #{ids\ 12814}#)
+                                           (cdr #{ids\ 12814}#)))
+                                  (#{distinct?\ 12813}# (cdr #{ids\ 12814}#))
                                   #f))))))
-                 (#{distinct?\ 1884}# #{ids\ 1880}#))))
-           (#{valid-bound-ids?\ 285}#
-             (lambda (#{ids\ 1892}#)
-               (if (letrec ((#{all-ids?\ 1897}#
-                              (lambda (#{ids\ 1898}#)
-                                (let ((#{t\ 1901}# (null? #{ids\ 1898}#)))
-                                  (if #{t\ 1901}#
-                                    #{t\ 1901}#
-                                    (if (#{id?\ 222}# (car #{ids\ 1898}#))
-                                      (#{all-ids?\ 1897}# (cdr #{ids\ 1898}#))
+                 (#{distinct?\ 12813}# #{ids\ 12809}#))))
+           (#{valid-bound-ids?\ 11214}#
+             (lambda (#{ids\ 12821}#)
+               (if (letrec ((#{all-ids?\ 12826}#
+                              (lambda (#{ids\ 12827}#)
+                                (let ((#{t\ 12830}# (null? #{ids\ 12827}#)))
+                                  (if #{t\ 12830}#
+                                    #{t\ 12830}#
+                                    (if (#{id?\ 11151}# (car #{ids\ 12827}#))
+                                      (#{all-ids?\ 12826}#
+                                        (cdr #{ids\ 12827}#))
                                       #f))))))
-                     (#{all-ids?\ 1897}# #{ids\ 1892}#))
-                 (#{distinct-bound-ids?\ 287}# #{ids\ 1892}#)
+                     (#{all-ids?\ 12826}# #{ids\ 12821}#))
+                 (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#)
                  #f)))
-           (#{bound-id=?\ 283}#
-             (lambda (#{i\ 1906}# #{j\ 1907}#)
-               (if (if (#{syntax-object?\ 186}# #{i\ 1906}#)
-                     (#{syntax-object?\ 186}# #{j\ 1907}#)
+           (#{bound-id=?\ 11212}#
+             (lambda (#{i\ 12835}# #{j\ 12836}#)
+               (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#)
+                     (#{syntax-object?\ 11115}# #{j\ 12836}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1906}#)
-                          (#{syntax-object-expression\ 188}# #{j\ 1907}#))
-                   (#{same-marks?\ 277}#
-                     (#{wrap-marks\ 229}#
-                       (#{syntax-object-wrap\ 190}# #{i\ 1906}#))
-                     (#{wrap-marks\ 229}#
-                       (#{syntax-object-wrap\ 190}# #{j\ 1907}#)))
+                 (if (eq? (#{syntax-object-expression\ 11117}#
+                            #{i\ 12835}#)
+                          (#{syntax-object-expression\ 11117}#
+                            #{j\ 12836}#))
+                   (#{same-marks?\ 11206}#
+                     (#{wrap-marks\ 11158}#
+                       (#{syntax-object-wrap\ 11119}# #{i\ 12835}#))
+                     (#{wrap-marks\ 11158}#
+                       (#{syntax-object-wrap\ 11119}# #{j\ 12836}#)))
                    #f)
-                 (eq? #{i\ 1906}# #{j\ 1907}#))))
-           (#{free-id=?\ 281}#
-             (lambda (#{i\ 1914}# #{j\ 1915}#)
-               (if (eq? (let ((#{x\ 1921}# #{i\ 1914}#))
-                          (if (#{syntax-object?\ 186}# #{x\ 1921}#)
-                            (#{syntax-object-expression\ 188}# #{x\ 1921}#)
-                            #{x\ 1921}#))
-                        (let ((#{x\ 1924}# #{j\ 1915}#))
-                          (if (#{syntax-object?\ 186}# #{x\ 1924}#)
-                            (#{syntax-object-expression\ 188}# #{x\ 1924}#)
-                            #{x\ 1924}#)))
-                 (eq? (#{id-var-name\ 279}# #{i\ 1914}# (quote (())))
-                      (#{id-var-name\ 279}# #{j\ 1915}# (quote (()))))
+                 (eq? #{i\ 12835}# #{j\ 12836}#))))
+           (#{free-id=?\ 11210}#
+             (lambda (#{i\ 12843}# #{j\ 12844}#)
+               (if (eq? (let ((#{x\ 12850}# #{i\ 12843}#))
+                          (if (#{syntax-object?\ 11115}# #{x\ 12850}#)
+                            (#{syntax-object-expression\ 11117}#
+                              #{x\ 12850}#)
+                            #{x\ 12850}#))
+                        (let ((#{x\ 12853}# #{j\ 12844}#))
+                          (if (#{syntax-object?\ 11115}# #{x\ 12853}#)
+                            (#{syntax-object-expression\ 11117}#
+                              #{x\ 12853}#)
+                            #{x\ 12853}#)))
+                 (eq? (#{id-var-name\ 11208}#
+                        #{i\ 12843}#
+                        '(()))
+                      (#{id-var-name\ 11208}#
+                        #{j\ 12844}#
+                        '(())))
                  #f)))
-           (#{id-var-name\ 279}#
-             (lambda (#{id\ 1928}# #{w\ 1929}#)
-               (letrec ((#{search-vector-rib\ 1938}#
-                          (lambda (#{sym\ 1950}#
-                                   #{subst\ 1951}#
-                                   #{marks\ 1952}#
-                                   #{symnames\ 1953}#
-                                   #{ribcage\ 1954}#)
-                            (let ((#{n\ 1961}#
-                                    (vector-length #{symnames\ 1953}#)))
-                              (letrec ((#{f\ 1964}#
-                                         (lambda (#{i\ 1965}#)
-                                           (if (#{fx=\ 127}#
-                                                 #{i\ 1965}#
-                                                 #{n\ 1961}#)
-                                             (#{search\ 1934}#
-                                               #{sym\ 1950}#
-                                               (cdr #{subst\ 1951}#)
-                                               #{marks\ 1952}#)
+           (#{id-var-name\ 11208}#
+             (lambda (#{id\ 12857}# #{w\ 12858}#)
+               (letrec ((#{search-vector-rib\ 12867}#
+                          (lambda (#{sym\ 12879}#
+                                   #{subst\ 12880}#
+                                   #{marks\ 12881}#
+                                   #{symnames\ 12882}#
+                                   #{ribcage\ 12883}#)
+                            (let ((#{n\ 12890}#
+                                    (vector-length #{symnames\ 12882}#)))
+                              (letrec ((#{f\ 12893}#
+                                         (lambda (#{i\ 12894}#)
+                                           (if (#{fx=\ 11056}#
+                                                 #{i\ 12894}#
+                                                 #{n\ 12890}#)
+                                             (#{search\ 12863}#
+                                               #{sym\ 12879}#
+                                               (cdr #{subst\ 12880}#)
+                                               #{marks\ 12881}#)
                                              (if (if (eq? (vector-ref
-                                                            #{symnames\ 1953}#
-                                                            #{i\ 1965}#)
-                                                          #{sym\ 1950}#)
-                                                   (#{same-marks?\ 277}#
-                                                     #{marks\ 1952}#
+                                                            #{symnames\ 12882}#
+                                                            #{i\ 12894}#)
+                                                          #{sym\ 12879}#)
+                                                   (#{same-marks?\ 11206}#
+                                                     #{marks\ 12881}#
                                                      (vector-ref
-                                                       (#{ribcage-marks\ 249}#
-                                                         #{ribcage\ 1954}#)
-                                                       #{i\ 1965}#))
+                                                       (#{ribcage-marks\ 
11178}#
+                                                         #{ribcage\ 12883}#)
+                                                       #{i\ 12894}#))
                                                    #f)
                                                (values
                                                  (vector-ref
-                                                   (#{ribcage-labels\ 251}#
-                                                     #{ribcage\ 1954}#)
-                                                   #{i\ 1965}#)
-                                                 #{marks\ 1952}#)
-                                               (#{f\ 1964}#
-                                                 (#{fx+\ 123}#
-                                                   #{i\ 1965}#
+                                                   (#{ribcage-labels\ 11180}#
+                                                     #{ribcage\ 12883}#)
+                                                   #{i\ 12894}#)
+                                                 #{marks\ 12881}#)
+                                               (#{f\ 12893}#
+                                                 (#{fx+\ 11052}#
+                                                   #{i\ 12894}#
                                                    1)))))))
-                                (#{f\ 1964}# 0)))))
-                        (#{search-list-rib\ 1936}#
-                          (lambda (#{sym\ 1973}#
-                                   #{subst\ 1974}#
-                                   #{marks\ 1975}#
-                                   #{symnames\ 1976}#
-                                   #{ribcage\ 1977}#)
-                            (letrec ((#{f\ 1986}#
-                                       (lambda (#{symnames\ 1987}# #{i\ 1988}#)
-                                         (if (null? #{symnames\ 1987}#)
-                                           (#{search\ 1934}#
-                                             #{sym\ 1973}#
-                                             (cdr #{subst\ 1974}#)
-                                             #{marks\ 1975}#)
-                                           (if (if (eq? (car #{symnames\ 
1987}#)
-                                                        #{sym\ 1973}#)
-                                                 (#{same-marks?\ 277}#
-                                                   #{marks\ 1975}#
+                                (#{f\ 12893}# 0)))))
+                        (#{search-list-rib\ 12865}#
+                          (lambda (#{sym\ 12902}#
+                                   #{subst\ 12903}#
+                                   #{marks\ 12904}#
+                                   #{symnames\ 12905}#
+                                   #{ribcage\ 12906}#)
+                            (letrec ((#{f\ 12915}#
+                                       (lambda (#{symnames\ 12916}#
+                                                #{i\ 12917}#)
+                                         (if (null? #{symnames\ 12916}#)
+                                           (#{search\ 12863}#
+                                             #{sym\ 12902}#
+                                             (cdr #{subst\ 12903}#)
+                                             #{marks\ 12904}#)
+                                           (if (if (eq? (car #{symnames\ 
12916}#)
+                                                        #{sym\ 12902}#)
+                                                 (#{same-marks?\ 11206}#
+                                                   #{marks\ 12904}#
                                                    (list-ref
-                                                     (#{ribcage-marks\ 249}#
-                                                       #{ribcage\ 1977}#)
-                                                     #{i\ 1988}#))
+                                                     (#{ribcage-marks\ 11178}#
+                                                       #{ribcage\ 12906}#)
+                                                     #{i\ 12917}#))
                                                  #f)
                                              (values
                                                (list-ref
-                                                 (#{ribcage-labels\ 251}#
-                                                   #{ribcage\ 1977}#)
-                                                 #{i\ 1988}#)
-                                               #{marks\ 1975}#)
-                                             (#{f\ 1986}#
-                                               (cdr #{symnames\ 1987}#)
-                                               (#{fx+\ 123}#
-                                                 #{i\ 1988}#
+                                                 (#{ribcage-labels\ 11180}#
+                                                   #{ribcage\ 12906}#)
+                                                 #{i\ 12917}#)
+                                               #{marks\ 12904}#)
+                                             (#{f\ 12915}#
+                                               (cdr #{symnames\ 12916}#)
+                                               (#{fx+\ 11052}#
+                                                 #{i\ 12917}#
                                                  1)))))))
-                              (#{f\ 1986}# #{symnames\ 1976}# 0))))
-                        (#{search\ 1934}#
-                          (lambda (#{sym\ 1996}#
-                                   #{subst\ 1997}#
-                                   #{marks\ 1998}#)
-                            (if (null? #{subst\ 1997}#)
-                              (values #f #{marks\ 1998}#)
-                              (let ((#{fst\ 2003}# (car #{subst\ 1997}#)))
-                                (if (eq? #{fst\ 2003}# (quote shift))
-                                  (#{search\ 1934}#
-                                    #{sym\ 1996}#
-                                    (cdr #{subst\ 1997}#)
-                                    (cdr #{marks\ 1998}#))
-                                  (let ((#{symnames\ 2005}#
-                                          (#{ribcage-symnames\ 247}#
-                                            #{fst\ 2003}#)))
-                                    (if (vector? #{symnames\ 2005}#)
-                                      (#{search-vector-rib\ 1938}#
-                                        #{sym\ 1996}#
-                                        #{subst\ 1997}#
-                                        #{marks\ 1998}#
-                                        #{symnames\ 2005}#
-                                        #{fst\ 2003}#)
-                                      (#{search-list-rib\ 1936}#
-                                        #{sym\ 1996}#
-                                        #{subst\ 1997}#
-                                        #{marks\ 1998}#
-                                        #{symnames\ 2005}#
-                                        #{fst\ 2003}#)))))))))
-                 (if (symbol? #{id\ 1928}#)
-                   (let ((#{t\ 2008}#
+                              (#{f\ 12915}# #{symnames\ 12905}# 0))))
+                        (#{search\ 12863}#
+                          (lambda (#{sym\ 12925}#
+                                   #{subst\ 12926}#
+                                   #{marks\ 12927}#)
+                            (if (null? #{subst\ 12926}#)
+                              (values #f #{marks\ 12927}#)
+                              (let ((#{fst\ 12932}# (car #{subst\ 12926}#)))
+                                (if (eq? #{fst\ 12932}# (quote shift))
+                                  (#{search\ 12863}#
+                                    #{sym\ 12925}#
+                                    (cdr #{subst\ 12926}#)
+                                    (cdr #{marks\ 12927}#))
+                                  (let ((#{symnames\ 12934}#
+                                          (#{ribcage-symnames\ 11176}#
+                                            #{fst\ 12932}#)))
+                                    (if (vector? #{symnames\ 12934}#)
+                                      (#{search-vector-rib\ 12867}#
+                                        #{sym\ 12925}#
+                                        #{subst\ 12926}#
+                                        #{marks\ 12927}#
+                                        #{symnames\ 12934}#
+                                        #{fst\ 12932}#)
+                                      (#{search-list-rib\ 12865}#
+                                        #{sym\ 12925}#
+                                        #{subst\ 12926}#
+                                        #{marks\ 12927}#
+                                        #{symnames\ 12934}#
+                                        #{fst\ 12932}#)))))))))
+                 (if (symbol? #{id\ 12857}#)
+                   (let ((#{t\ 12937}#
                            (call-with-values
                              (lambda ()
-                               (#{search\ 1934}#
-                                 #{id\ 1928}#
-                                 (#{wrap-subst\ 231}# #{w\ 1929}#)
-                                 (#{wrap-marks\ 229}# #{w\ 1929}#)))
-                             (lambda (#{x\ 2010}# . #{ignore\ 2011}#)
-                               #{x\ 2010}#))))
-                     (if #{t\ 2008}# #{t\ 2008}# #{id\ 1928}#))
-                   (if (#{syntax-object?\ 186}# #{id\ 1928}#)
-                     (let ((#{id\ 2019}#
-                             (#{syntax-object-expression\ 188}# #{id\ 1928}#))
-                           (#{w1\ 2020}#
-                             (#{syntax-object-wrap\ 190}# #{id\ 1928}#)))
-                       (let ((#{marks\ 2022}#
-                               (#{join-marks\ 275}#
-                                 (#{wrap-marks\ 229}# #{w\ 1929}#)
-                                 (#{wrap-marks\ 229}# #{w1\ 2020}#))))
+                               (#{search\ 12863}#
+                                 #{id\ 12857}#
+                                 (#{wrap-subst\ 11160}# #{w\ 12858}#)
+                                 (#{wrap-marks\ 11158}# #{w\ 12858}#)))
+                             (lambda (#{x\ 12939}# . #{ignore\ 12940}#)
+                               #{x\ 12939}#))))
+                     (if #{t\ 12937}# #{t\ 12937}# #{id\ 12857}#))
+                   (if (#{syntax-object?\ 11115}# #{id\ 12857}#)
+                     (let ((#{id\ 12948}#
+                             (#{syntax-object-expression\ 11117}#
+                               #{id\ 12857}#))
+                           (#{w1\ 12949}#
+                             (#{syntax-object-wrap\ 11119}# #{id\ 12857}#)))
+                       (let ((#{marks\ 12951}#
+                               (#{join-marks\ 11204}#
+                                 (#{wrap-marks\ 11158}# #{w\ 12858}#)
+                                 (#{wrap-marks\ 11158}# #{w1\ 12949}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 1934}#
-                               #{id\ 2019}#
-                               (#{wrap-subst\ 231}# #{w\ 1929}#)
-                               #{marks\ 2022}#))
-                           (lambda (#{new-id\ 2023}# #{marks\ 2024}#)
-                             (let ((#{t\ 2029}# #{new-id\ 2023}#))
-                               (if #{t\ 2029}#
-                                 #{t\ 2029}#
-                                 (let ((#{t\ 2032}#
+                             (#{search\ 12863}#
+                               #{id\ 12948}#
+                               (#{wrap-subst\ 11160}# #{w\ 12858}#)
+                               #{marks\ 12951}#))
+                           (lambda (#{new-id\ 12952}# #{marks\ 12953}#)
+                             (let ((#{t\ 12958}# #{new-id\ 12952}#))
+                               (if #{t\ 12958}#
+                                 #{t\ 12958}#
+                                 (let ((#{t\ 12961}#
                                          (call-with-values
                                            (lambda ()
-                                             (#{search\ 1934}#
-                                               #{id\ 2019}#
-                                               (#{wrap-subst\ 231}#
-                                                 #{w1\ 2020}#)
-                                               #{marks\ 2024}#))
-                                           (lambda (#{x\ 2034}#
+                                             (#{search\ 12863}#
+                                               #{id\ 12948}#
+                                               (#{wrap-subst\ 11160}#
+                                                 #{w1\ 12949}#)
+                                               #{marks\ 12953}#))
+                                           (lambda (#{x\ 12963}#
                                                     .
-                                                    #{ignore\ 2035}#)
-                                             #{x\ 2034}#))))
-                                   (if #{t\ 2032}#
-                                     #{t\ 2032}#
-                                     #{id\ 2019}#))))))))
+                                                    #{ignore\ 12964}#)
+                                             #{x\ 12963}#))))
+                                   (if #{t\ 12961}#
+                                     #{t\ 12961}#
+                                     #{id\ 12948}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 1928}#))))))
-           (#{same-marks?\ 277}#
-             (lambda (#{x\ 2040}# #{y\ 2041}#)
-               (let ((#{t\ 2046}# (eq? #{x\ 2040}# #{y\ 2041}#)))
-                 (if #{t\ 2046}#
-                   #{t\ 2046}#
-                   (if (not (null? #{x\ 2040}#))
-                     (if (not (null? #{y\ 2041}#))
-                       (if (eq? (car #{x\ 2040}#) (car #{y\ 2041}#))
-                         (#{same-marks?\ 277}#
-                           (cdr #{x\ 2040}#)
-                           (cdr #{y\ 2041}#))
+                       #{id\ 12857}#))))))
+           (#{same-marks?\ 11206}#
+             (lambda (#{x\ 12969}# #{y\ 12970}#)
+               (let ((#{t\ 12975}# (eq? #{x\ 12969}# #{y\ 12970}#)))
+                 (if #{t\ 12975}#
+                   #{t\ 12975}#
+                   (if (not (null? #{x\ 12969}#))
+                     (if (not (null? #{y\ 12970}#))
+                       (if (eq? (car #{x\ 12969}#) (car #{y\ 12970}#))
+                         (#{same-marks?\ 11206}#
+                           (cdr #{x\ 12969}#)
+                           (cdr #{y\ 12970}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 275}#
-             (lambda (#{m1\ 2052}# #{m2\ 2053}#)
-               (#{smart-append\ 271}# #{m1\ 2052}# #{m2\ 2053}#)))
-           (#{join-wraps\ 273}#
-             (lambda (#{w1\ 2056}# #{w2\ 2057}#)
-               (let ((#{m1\ 2062}# (#{wrap-marks\ 229}# #{w1\ 2056}#))
-                     (#{s1\ 2063}# (#{wrap-subst\ 231}# #{w1\ 2056}#)))
-                 (if (null? #{m1\ 2062}#)
-                   (if (null? #{s1\ 2063}#)
-                     #{w2\ 2057}#
-                     (#{make-wrap\ 227}#
-                       (#{wrap-marks\ 229}# #{w2\ 2057}#)
-                       (#{smart-append\ 271}#
-                         #{s1\ 2063}#
-                         (#{wrap-subst\ 231}# #{w2\ 2057}#))))
-                   (#{make-wrap\ 227}#
-                     (#{smart-append\ 271}#
-                       #{m1\ 2062}#
-                       (#{wrap-marks\ 229}# #{w2\ 2057}#))
-                     (#{smart-append\ 271}#
-                       #{s1\ 2063}#
-                       (#{wrap-subst\ 231}# #{w2\ 2057}#)))))))
-           (#{smart-append\ 271}#
-             (lambda (#{m1\ 2064}# #{m2\ 2065}#)
-               (if (null? #{m2\ 2065}#)
-                 #{m1\ 2064}#
-                 (append #{m1\ 2064}# #{m2\ 2065}#))))
-           (#{make-binding-wrap\ 269}#
-             (lambda (#{ids\ 2068}# #{labels\ 2069}# #{w\ 2070}#)
-               (if (null? #{ids\ 2068}#)
-                 #{w\ 2070}#
-                 (#{make-wrap\ 227}#
-                   (#{wrap-marks\ 229}# #{w\ 2070}#)
-                   (cons (let ((#{labelvec\ 2075}#
-                                 (list->vector #{labels\ 2069}#)))
-                           (let ((#{n\ 2077}#
-                                   (vector-length #{labelvec\ 2075}#)))
-                             (let ((#{symnamevec\ 2080}#
-                                     (make-vector #{n\ 2077}#))
-                                   (#{marksvec\ 2081}#
-                                     (make-vector #{n\ 2077}#)))
+           (#{join-marks\ 11204}#
+             (lambda (#{m1\ 12981}# #{m2\ 12982}#)
+               (#{smart-append\ 11200}#
+                 #{m1\ 12981}#
+                 #{m2\ 12982}#)))
+           (#{join-wraps\ 11202}#
+             (lambda (#{w1\ 12985}# #{w2\ 12986}#)
+               (let ((#{m1\ 12991}#
+                       (#{wrap-marks\ 11158}# #{w1\ 12985}#))
+                     (#{s1\ 12992}#
+                       (#{wrap-subst\ 11160}# #{w1\ 12985}#)))
+                 (if (null? #{m1\ 12991}#)
+                   (if (null? #{s1\ 12992}#)
+                     #{w2\ 12986}#
+                     (#{make-wrap\ 11156}#
+                       (#{wrap-marks\ 11158}# #{w2\ 12986}#)
+                       (#{smart-append\ 11200}#
+                         #{s1\ 12992}#
+                         (#{wrap-subst\ 11160}# #{w2\ 12986}#))))
+                   (#{make-wrap\ 11156}#
+                     (#{smart-append\ 11200}#
+                       #{m1\ 12991}#
+                       (#{wrap-marks\ 11158}# #{w2\ 12986}#))
+                     (#{smart-append\ 11200}#
+                       #{s1\ 12992}#
+                       (#{wrap-subst\ 11160}# #{w2\ 12986}#)))))))
+           (#{smart-append\ 11200}#
+             (lambda (#{m1\ 12993}# #{m2\ 12994}#)
+               (if (null? #{m2\ 12994}#)
+                 #{m1\ 12993}#
+                 (append #{m1\ 12993}# #{m2\ 12994}#))))
+           (#{make-binding-wrap\ 11198}#
+             (lambda (#{ids\ 12997}# #{labels\ 12998}# #{w\ 12999}#)
+               (if (null? #{ids\ 12997}#)
+                 #{w\ 12999}#
+                 (#{make-wrap\ 11156}#
+                   (#{wrap-marks\ 11158}# #{w\ 12999}#)
+                   (cons (let ((#{labelvec\ 13004}#
+                                 (list->vector #{labels\ 12998}#)))
+                           (let ((#{n\ 13006}#
+                                   (vector-length #{labelvec\ 13004}#)))
+                             (let ((#{symnamevec\ 13009}#
+                                     (make-vector #{n\ 13006}#))
+                                   (#{marksvec\ 13010}#
+                                     (make-vector #{n\ 13006}#)))
                                (begin
-                                 (letrec ((#{f\ 2085}#
-                                            (lambda (#{ids\ 2086}# #{i\ 2087}#)
-                                              (if (not (null? #{ids\ 2086}#))
+                                 (letrec ((#{f\ 13014}#
+                                            (lambda (#{ids\ 13015}#
+                                                     #{i\ 13016}#)
+                                              (if (not (null? #{ids\ 13015}#))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{id-sym-name&marks\ 225}#
-                                                      (car #{ids\ 2086}#)
-                                                      #{w\ 2070}#))
-                                                  (lambda (#{symname\ 2088}#
-                                                           #{marks\ 2089}#)
+                                                    (#{id-sym-name&marks\ 
11154}#
+                                                      (car #{ids\ 13015}#)
+                                                      #{w\ 12999}#))
+                                                  (lambda (#{symname\ 13017}#
+                                                           #{marks\ 13018}#)
                                                     (begin
                                                       (vector-set!
-                                                        #{symnamevec\ 2080}#
-                                                        #{i\ 2087}#
-                                                        #{symname\ 2088}#)
+                                                        #{symnamevec\ 13009}#
+                                                        #{i\ 13016}#
+                                                        #{symname\ 13017}#)
                                                       (vector-set!
-                                                        #{marksvec\ 2081}#
-                                                        #{i\ 2087}#
-                                                        #{marks\ 2089}#)
-                                                      (#{f\ 2085}#
-                                                        (cdr #{ids\ 2086}#)
-                                                        (#{fx+\ 123}#
-                                                          #{i\ 2087}#
+                                                        #{marksvec\ 13010}#
+                                                        #{i\ 13016}#
+                                                        #{marks\ 13018}#)
+                                                      (#{f\ 13014}#
+                                                        (cdr #{ids\ 13015}#)
+                                                        (#{fx+\ 11052}#
+                                                          #{i\ 13016}#
                                                           1)))))))))
-                                   (#{f\ 2085}# #{ids\ 2068}# 0))
-                                 (#{make-ribcage\ 243}#
-                                   #{symnamevec\ 2080}#
-                                   #{marksvec\ 2081}#
-                                   #{labelvec\ 2075}#)))))
-                         (#{wrap-subst\ 231}# #{w\ 2070}#))))))
-           (#{extend-ribcage!\ 267}#
-             (lambda (#{ribcage\ 2092}# #{id\ 2093}# #{label\ 2094}#)
+                                   (#{f\ 13014}# #{ids\ 12997}# 0))
+                                 (#{make-ribcage\ 11172}#
+                                   #{symnamevec\ 13009}#
+                                   #{marksvec\ 13010}#
+                                   #{labelvec\ 13004}#)))))
+                         (#{wrap-subst\ 11160}# #{w\ 12999}#))))))
+           (#{extend-ribcage!\ 11196}#
+             (lambda (#{ribcage\ 13021}#
+                      #{id\ 13022}#
+                      #{label\ 13023}#)
                (begin
-                 (#{set-ribcage-symnames!\ 253}#
-                   #{ribcage\ 2092}#
-                   (cons (#{syntax-object-expression\ 188}# #{id\ 2093}#)
-                         (#{ribcage-symnames\ 247}# #{ribcage\ 2092}#)))
-                 (#{set-ribcage-marks!\ 255}#
-                   #{ribcage\ 2092}#
-                   (cons (#{wrap-marks\ 229}#
-                           (#{syntax-object-wrap\ 190}# #{id\ 2093}#))
-                         (#{ribcage-marks\ 249}# #{ribcage\ 2092}#)))
-                 (#{set-ribcage-labels!\ 257}#
-                   #{ribcage\ 2092}#
-                   (cons #{label\ 2094}#
-                         (#{ribcage-labels\ 251}# #{ribcage\ 2092}#))))))
-           (#{anti-mark\ 263}#
-             (lambda (#{w\ 2098}#)
-               (#{make-wrap\ 227}#
-                 (cons #f (#{wrap-marks\ 229}# #{w\ 2098}#))
+                 (#{set-ribcage-symnames!\ 11182}#
+                   #{ribcage\ 13021}#
+                   (cons (#{syntax-object-expression\ 11117}#
+                           #{id\ 13022}#)
+                         (#{ribcage-symnames\ 11176}# #{ribcage\ 13021}#)))
+                 (#{set-ribcage-marks!\ 11184}#
+                   #{ribcage\ 13021}#
+                   (cons (#{wrap-marks\ 11158}#
+                           (#{syntax-object-wrap\ 11119}# #{id\ 13022}#))
+                         (#{ribcage-marks\ 11178}# #{ribcage\ 13021}#)))
+                 (#{set-ribcage-labels!\ 11186}#
+                   #{ribcage\ 13021}#
+                   (cons #{label\ 13023}#
+                         (#{ribcage-labels\ 11180}# #{ribcage\ 13021}#))))))
+           (#{anti-mark\ 11192}#
+             (lambda (#{w\ 13027}#)
+               (#{make-wrap\ 11156}#
+                 (cons #f (#{wrap-marks\ 11158}# #{w\ 13027}#))
                  (cons 'shift
-                       (#{wrap-subst\ 231}# #{w\ 2098}#)))))
-           (#{set-ribcage-labels!\ 257}#
-             (lambda (#{x\ 2101}# #{update\ 2102}#)
-               (vector-set! #{x\ 2101}# 3 #{update\ 2102}#)))
-           (#{set-ribcage-marks!\ 255}#
-             (lambda (#{x\ 2105}# #{update\ 2106}#)
-               (vector-set! #{x\ 2105}# 2 #{update\ 2106}#)))
-           (#{set-ribcage-symnames!\ 253}#
-             (lambda (#{x\ 2109}# #{update\ 2110}#)
-               (vector-set! #{x\ 2109}# 1 #{update\ 2110}#)))
-           (#{ribcage-labels\ 251}#
-             (lambda (#{x\ 2113}#) (vector-ref #{x\ 2113}# 3)))
-           (#{ribcage-marks\ 249}#
-             (lambda (#{x\ 2115}#) (vector-ref #{x\ 2115}# 2)))
-           (#{ribcage-symnames\ 247}#
-             (lambda (#{x\ 2117}#) (vector-ref #{x\ 2117}# 1)))
-           (#{ribcage?\ 245}#
-             (lambda (#{x\ 2119}#)
-               (if (vector? #{x\ 2119}#)
-                 (if (= (vector-length #{x\ 2119}#) 4)
-                   (eq? (vector-ref #{x\ 2119}# 0) (quote ribcage))
+                       (#{wrap-subst\ 11160}# #{w\ 13027}#)))))
+           (#{set-ribcage-labels!\ 11186}#
+             (lambda (#{x\ 13030}# #{update\ 13031}#)
+               (vector-set! #{x\ 13030}# 3 #{update\ 13031}#)))
+           (#{set-ribcage-marks!\ 11184}#
+             (lambda (#{x\ 13034}# #{update\ 13035}#)
+               (vector-set! #{x\ 13034}# 2 #{update\ 13035}#)))
+           (#{set-ribcage-symnames!\ 11182}#
+             (lambda (#{x\ 13038}# #{update\ 13039}#)
+               (vector-set! #{x\ 13038}# 1 #{update\ 13039}#)))
+           (#{ribcage-labels\ 11180}#
+             (lambda (#{x\ 13042}#)
+               (vector-ref #{x\ 13042}# 3)))
+           (#{ribcage-marks\ 11178}#
+             (lambda (#{x\ 13044}#)
+               (vector-ref #{x\ 13044}# 2)))
+           (#{ribcage-symnames\ 11176}#
+             (lambda (#{x\ 13046}#)
+               (vector-ref #{x\ 13046}# 1)))
+           (#{ribcage?\ 11174}#
+             (lambda (#{x\ 13048}#)
+               (if (vector? #{x\ 13048}#)
+                 (if (= (vector-length #{x\ 13048}#) 4)
+                   (eq? (vector-ref #{x\ 13048}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 243}#
-             (lambda (#{symnames\ 2124}#
-                      #{marks\ 2125}#
-                      #{labels\ 2126}#)
+           (#{make-ribcage\ 11172}#
+             (lambda (#{symnames\ 13053}#
+                      #{marks\ 13054}#
+                      #{labels\ 13055}#)
                (vector
                  'ribcage
-                 #{symnames\ 2124}#
-                 #{marks\ 2125}#
-                 #{labels\ 2126}#)))
-           (#{gen-labels\ 240}#
-             (lambda (#{ls\ 2130}#)
-               (if (null? #{ls\ 2130}#)
+                 #{symnames\ 13053}#
+                 #{marks\ 13054}#
+                 #{labels\ 13055}#)))
+           (#{gen-labels\ 11169}#
+             (lambda (#{ls\ 13059}#)
+               (if (null? #{ls\ 13059}#)
                  '()
-                 (cons (#{gen-label\ 238}#)
-                       (#{gen-labels\ 240}# (cdr #{ls\ 2130}#))))))
-           (#{gen-label\ 238}#
+                 (cons (#{gen-label\ 11167}#)
+                       (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#))))))
+           (#{gen-label\ 11167}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{wrap-subst\ 231}# cdr)
-           (#{wrap-marks\ 229}# car)
-           (#{make-wrap\ 227}# cons)
-           (#{id-sym-name&marks\ 225}#
-             (lambda (#{x\ 2132}# #{w\ 2133}#)
-               (if (#{syntax-object?\ 186}# #{x\ 2132}#)
+           (#{wrap-subst\ 11160}# cdr)
+           (#{wrap-marks\ 11158}# car)
+           (#{make-wrap\ 11156}# cons)
+           (#{id-sym-name&marks\ 11154}#
+             (lambda (#{x\ 13061}# #{w\ 13062}#)
+               (if (#{syntax-object?\ 11115}# #{x\ 13061}#)
                  (values
-                   (#{syntax-object-expression\ 188}# #{x\ 2132}#)
-                   (#{join-marks\ 275}#
-                     (#{wrap-marks\ 229}# #{w\ 2133}#)
-                     (#{wrap-marks\ 229}#
-                       (#{syntax-object-wrap\ 190}# #{x\ 2132}#))))
+                   (#{syntax-object-expression\ 11117}#
+                     #{x\ 13061}#)
+                   (#{join-marks\ 11204}#
+                     (#{wrap-marks\ 11158}# #{w\ 13062}#)
+                     (#{wrap-marks\ 11158}#
+                       (#{syntax-object-wrap\ 11119}# #{x\ 13061}#))))
                  (values
-                   #{x\ 2132}#
-                   (#{wrap-marks\ 229}# #{w\ 2133}#)))))
-           (#{id?\ 222}#
-             (lambda (#{x\ 2136}#)
-               (if (symbol? #{x\ 2136}#)
+                   #{x\ 13061}#
+                   (#{wrap-marks\ 11158}# #{w\ 13062}#)))))
+           (#{id?\ 11151}#
+             (lambda (#{x\ 13065}#)
+               (if (symbol? #{x\ 13065}#)
                  #t
-                 (if (#{syntax-object?\ 186}# #{x\ 2136}#)
+                 (if (#{syntax-object?\ 11115}# #{x\ 13065}#)
                    (symbol?
-                     (#{syntax-object-expression\ 188}# #{x\ 2136}#))
+                     (#{syntax-object-expression\ 11117}#
+                       #{x\ 13065}#))
                    #f))))
-           (#{nonsymbol-id?\ 220}#
-             (lambda (#{x\ 2143}#)
-               (if (#{syntax-object?\ 186}# #{x\ 2143}#)
+           (#{nonsymbol-id?\ 11149}#
+             (lambda (#{x\ 13072}#)
+               (if (#{syntax-object?\ 11115}# #{x\ 13072}#)
                  (symbol?
-                   (#{syntax-object-expression\ 188}# #{x\ 2143}#))
+                   (#{syntax-object-expression\ 11117}#
+                     #{x\ 13072}#))
                  #f)))
-           (#{global-extend\ 218}#
-             (lambda (#{type\ 2147}# #{sym\ 2148}# #{val\ 2149}#)
-               (#{put-global-definition-hook\ 136}#
-                 #{sym\ 2148}#
-                 #{type\ 2147}#
-                 #{val\ 2149}#)))
-           (#{lookup\ 216}#
-             (lambda (#{x\ 2153}# #{r\ 2154}# #{mod\ 2155}#)
-               (let ((#{t\ 2161}# (assq #{x\ 2153}# #{r\ 2154}#)))
-                 (if #{t\ 2161}#
-                   (cdr #{t\ 2161}#)
-                   (if (symbol? #{x\ 2153}#)
-                     (let ((#{t\ 2167}#
-                             (#{get-global-definition-hook\ 138}#
-                               #{x\ 2153}#
-                               #{mod\ 2155}#)))
-                       (if #{t\ 2167}# #{t\ 2167}# (quote (global))))
+           (#{global-extend\ 11147}#
+             (lambda (#{type\ 13076}# #{sym\ 13077}# #{val\ 13078}#)
+               (#{put-global-definition-hook\ 11065}#
+                 #{sym\ 13077}#
+                 #{type\ 13076}#
+                 #{val\ 13078}#)))
+           (#{lookup\ 11145}#
+             (lambda (#{x\ 13082}# #{r\ 13083}# #{mod\ 13084}#)
+               (let ((#{t\ 13090}# (assq #{x\ 13082}# #{r\ 13083}#)))
+                 (if #{t\ 13090}#
+                   (cdr #{t\ 13090}#)
+                   (if (symbol? #{x\ 13082}#)
+                     (let ((#{t\ 13096}#
+                             (#{get-global-definition-hook\ 11067}#
+                               #{x\ 13082}#
+                               #{mod\ 13084}#)))
+                       (if #{t\ 13096}# #{t\ 13096}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 214}#
-             (lambda (#{r\ 2172}#)
-               (if (null? #{r\ 2172}#)
+           (#{macros-only-env\ 11143}#
+             (lambda (#{r\ 13101}#)
+               (if (null? #{r\ 13101}#)
                  '()
-                 (let ((#{a\ 2175}# (car #{r\ 2172}#)))
-                   (if (eq? (cadr #{a\ 2175}#) (quote macro))
-                     (cons #{a\ 2175}#
-                           (#{macros-only-env\ 214}# (cdr #{r\ 2172}#)))
-                     (#{macros-only-env\ 214}# (cdr #{r\ 2172}#)))))))
-           (#{extend-var-env\ 212}#
-             (lambda (#{labels\ 2176}# #{vars\ 2177}# #{r\ 2178}#)
-               (if (null? #{labels\ 2176}#)
-                 #{r\ 2178}#
-                 (#{extend-var-env\ 212}#
-                   (cdr #{labels\ 2176}#)
-                   (cdr #{vars\ 2177}#)
-                   (cons (cons (car #{labels\ 2176}#)
-                               (cons (quote lexical) (car #{vars\ 2177}#)))
-                         #{r\ 2178}#)))))
-           (#{extend-env\ 210}#
-             (lambda (#{labels\ 2183}# #{bindings\ 2184}# #{r\ 2185}#)
-               (if (null? #{labels\ 2183}#)
-                 #{r\ 2185}#
-                 (#{extend-env\ 210}#
-                   (cdr #{labels\ 2183}#)
-                   (cdr #{bindings\ 2184}#)
-                   (cons (cons (car #{labels\ 2183}#)
-                               (car #{bindings\ 2184}#))
-                         #{r\ 2185}#)))))
-           (#{binding-value\ 207}# cdr)
-           (#{binding-type\ 205}# car)
-           (#{source-annotation\ 201}#
-             (lambda (#{x\ 2189}#)
-               (if (#{syntax-object?\ 186}# #{x\ 2189}#)
-                 (#{source-annotation\ 201}#
-                   (#{syntax-object-expression\ 188}# #{x\ 2189}#))
-                 (if (pair? #{x\ 2189}#)
-                   (let ((#{props\ 2196}# (source-properties #{x\ 2189}#)))
-                     (if (pair? #{props\ 2196}#) #{props\ 2196}# #f))
+                 (let ((#{a\ 13104}# (car #{r\ 13101}#)))
+                   (if (eq? (cadr #{a\ 13104}#) (quote macro))
+                     (cons #{a\ 13104}#
+                           (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#)))
+                     (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#)))))))
+           (#{extend-var-env\ 11141}#
+             (lambda (#{labels\ 13105}# #{vars\ 13106}# #{r\ 13107}#)
+               (if (null? #{labels\ 13105}#)
+                 #{r\ 13107}#
+                 (#{extend-var-env\ 11141}#
+                   (cdr #{labels\ 13105}#)
+                   (cdr #{vars\ 13106}#)
+                   (cons (cons (car #{labels\ 13105}#)
+                               (cons (quote lexical) (car #{vars\ 13106}#)))
+                         #{r\ 13107}#)))))
+           (#{extend-env\ 11139}#
+             (lambda (#{labels\ 13112}#
+                      #{bindings\ 13113}#
+                      #{r\ 13114}#)
+               (if (null? #{labels\ 13112}#)
+                 #{r\ 13114}#
+                 (#{extend-env\ 11139}#
+                   (cdr #{labels\ 13112}#)
+                   (cdr #{bindings\ 13113}#)
+                   (cons (cons (car #{labels\ 13112}#)
+                               (car #{bindings\ 13113}#))
+                         #{r\ 13114}#)))))
+           (#{binding-value\ 11136}# cdr)
+           (#{binding-type\ 11134}# car)
+           (#{source-annotation\ 11130}#
+             (lambda (#{x\ 13118}#)
+               (if (#{syntax-object?\ 11115}# #{x\ 13118}#)
+                 (#{source-annotation\ 11130}#
+                   (#{syntax-object-expression\ 11117}#
+                     #{x\ 13118}#))
+                 (if (pair? #{x\ 13118}#)
+                   (let ((#{props\ 13125}#
+                           (source-properties #{x\ 13118}#)))
+                     (if (pair? #{props\ 13125}#) #{props\ 13125}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 198}#
-             (lambda (#{x\ 2198}# #{update\ 2199}#)
-               (vector-set! #{x\ 2198}# 3 #{update\ 2199}#)))
-           (#{set-syntax-object-wrap!\ 196}#
-             (lambda (#{x\ 2202}# #{update\ 2203}#)
-               (vector-set! #{x\ 2202}# 2 #{update\ 2203}#)))
-           (#{set-syntax-object-expression!\ 194}#
-             (lambda (#{x\ 2206}# #{update\ 2207}#)
-               (vector-set! #{x\ 2206}# 1 #{update\ 2207}#)))
-           (#{syntax-object-module\ 192}#
-             (lambda (#{x\ 2210}#) (vector-ref #{x\ 2210}# 3)))
-           (#{syntax-object-wrap\ 190}#
-             (lambda (#{x\ 2212}#) (vector-ref #{x\ 2212}# 2)))
-           (#{syntax-object-expression\ 188}#
-             (lambda (#{x\ 2214}#) (vector-ref #{x\ 2214}# 1)))
-           (#{syntax-object?\ 186}#
-             (lambda (#{x\ 2216}#)
-               (if (vector? #{x\ 2216}#)
-                 (if (= (vector-length #{x\ 2216}#) 4)
-                   (eq? (vector-ref #{x\ 2216}# 0)
+           (#{set-syntax-object-module!\ 11127}#
+             (lambda (#{x\ 13127}# #{update\ 13128}#)
+               (vector-set! #{x\ 13127}# 3 #{update\ 13128}#)))
+           (#{set-syntax-object-wrap!\ 11125}#
+             (lambda (#{x\ 13131}# #{update\ 13132}#)
+               (vector-set! #{x\ 13131}# 2 #{update\ 13132}#)))
+           (#{set-syntax-object-expression!\ 11123}#
+             (lambda (#{x\ 13135}# #{update\ 13136}#)
+               (vector-set! #{x\ 13135}# 1 #{update\ 13136}#)))
+           (#{syntax-object-module\ 11121}#
+             (lambda (#{x\ 13139}#)
+               (vector-ref #{x\ 13139}# 3)))
+           (#{syntax-object-wrap\ 11119}#
+             (lambda (#{x\ 13141}#)
+               (vector-ref #{x\ 13141}# 2)))
+           (#{syntax-object-expression\ 11117}#
+             (lambda (#{x\ 13143}#)
+               (vector-ref #{x\ 13143}# 1)))
+           (#{syntax-object?\ 11115}#
+             (lambda (#{x\ 13145}#)
+               (if (vector? #{x\ 13145}#)
+                 (if (= (vector-length #{x\ 13145}#) 4)
+                   (eq? (vector-ref #{x\ 13145}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 184}#
-             (lambda (#{expression\ 2221}#
-                      #{wrap\ 2222}#
-                      #{module\ 2223}#)
+           (#{make-syntax-object\ 11113}#
+             (lambda (#{expression\ 13150}#
+                      #{wrap\ 13151}#
+                      #{module\ 13152}#)
                (vector
                  'syntax-object
-                 #{expression\ 2221}#
-                 #{wrap\ 2222}#
-                 #{module\ 2223}#)))
-           (#{build-letrec\ 180}#
-             (lambda (#{src\ 2227}#
-                      #{ids\ 2228}#
-                      #{vars\ 2229}#
-                      #{val-exps\ 2230}#
-                      #{body-exp\ 2231}#)
-               (if (null? #{vars\ 2229}#)
-                 #{body-exp\ 2231}#
-                 (let ((#{atom-key\ 2239}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2239}# (quote (c)))
+                 #{expression\ 13150}#
+                 #{wrap\ 13151}#
+                 #{module\ 13152}#)))
+           (#{build-letrec\ 11109}#
+             (lambda (#{src\ 13156}#
+                      #{ids\ 13157}#
+                      #{vars\ 13158}#
+                      #{val-exps\ 13159}#
+                      #{body-exp\ 13160}#)
+               (if (null? #{vars\ 13158}#)
+                 #{body-exp\ 13160}#
+                 (let ((#{atom-key\ 13168}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13168}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 160}#
-                         #{ids\ 2228}#
-                         #{val-exps\ 2230}#)
+                         #{maybe-name-value!\ 11089}#
+                         #{ids\ 13157}#
+                         #{val-exps\ 13159}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 2227}#
-                        #{ids\ 2228}#
-                        #{vars\ 2229}#
-                        #{val-exps\ 2230}#
-                        #{body-exp\ 2231}#))
-                     (#{decorate-source\ 140}#
+                        #{src\ 13156}#
+                        #{ids\ 13157}#
+                        #{vars\ 13158}#
+                        #{val-exps\ 13159}#
+                        #{body-exp\ 13160}#))
+                     (#{decorate-source\ 11069}#
                        (list 'letrec
-                             (map list #{vars\ 2229}# #{val-exps\ 2230}#)
-                             #{body-exp\ 2231}#)
-                       #{src\ 2227}#))))))
-           (#{build-named-let\ 178}#
-             (lambda (#{src\ 2243}#
-                      #{ids\ 2244}#
-                      #{vars\ 2245}#
-                      #{val-exps\ 2246}#
-                      #{body-exp\ 2247}#)
-               (let ((#{f\ 2257}# (car #{vars\ 2245}#))
-                     (#{f-name\ 2258}# (car #{ids\ 2244}#))
-                     (#{vars\ 2259}# (cdr #{vars\ 2245}#))
-                     (#{ids\ 2260}# (cdr #{ids\ 2244}#)))
-                 (let ((#{atom-key\ 2263}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2263}# (quote (c)))
-                     (let ((#{proc\ 2266}#
-                             (#{build-simple-lambda\ 164}#
-                               #{src\ 2243}#
-                               #{ids\ 2260}#
+                             (map list #{vars\ 13158}# #{val-exps\ 13159}#)
+                             #{body-exp\ 13160}#)
+                       #{src\ 13156}#))))))
+           (#{build-named-let\ 11107}#
+             (lambda (#{src\ 13172}#
+                      #{ids\ 13173}#
+                      #{vars\ 13174}#
+                      #{val-exps\ 13175}#
+                      #{body-exp\ 13176}#)
+               (let ((#{f\ 13186}# (car #{vars\ 13174}#))
+                     (#{f-name\ 13187}# (car #{ids\ 13173}#))
+                     (#{vars\ 13188}# (cdr #{vars\ 13174}#))
+                     (#{ids\ 13189}# (cdr #{ids\ 13173}#)))
+                 (let ((#{atom-key\ 13192}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13192}# (quote (c)))
+                     (let ((#{proc\ 13195}#
+                             (#{build-simple-lambda\ 11093}#
+                               #{src\ 13172}#
+                               #{ids\ 13189}#
                                #f
-                               #{vars\ 2259}#
+                               #{vars\ 13188}#
                                '()
-                               #{body-exp\ 2247}#)))
+                               #{body-exp\ 13176}#)))
                        (begin
-                         (#{maybe-name-value!\ 160}#
-                           #{f-name\ 2258}#
-                           #{proc\ 2266}#)
+                         (#{maybe-name-value!\ 11089}#
+                           #{f-name\ 13187}#
+                           #{proc\ 13195}#)
                          (for-each
-                           #{maybe-name-value!\ 160}#
-                           #{ids\ 2260}#
-                           #{val-exps\ 2246}#)
+                           #{maybe-name-value!\ 11089}#
+                           #{ids\ 13189}#
+                           #{val-exps\ 13175}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 2243}#
-                          (list #{f-name\ 2258}#)
-                          (list #{f\ 2257}#)
-                          (list #{proc\ 2266}#)
-                          (#{build-application\ 144}#
-                            #{src\ 2243}#
-                            (#{build-lexical-reference\ 150}#
+                          #{src\ 13172}#
+                          (list #{f-name\ 13187}#)
+                          (list #{f\ 13186}#)
+                          (list #{proc\ 13195}#)
+                          (#{build-application\ 11073}#
+                            #{src\ 13172}#
+                            (#{build-lexical-reference\ 11079}#
                               'fun
-                              #{src\ 2243}#
-                              #{f-name\ 2258}#
-                              #{f\ 2257}#)
-                            #{val-exps\ 2246}#))))
-                     (#{decorate-source\ 140}#
+                              #{src\ 13172}#
+                              #{f-name\ 13187}#
+                              #{f\ 13186}#)
+                            #{val-exps\ 13175}#))))
+                     (#{decorate-source\ 11069}#
                        (list 'letrec
-                             (list (list #{f\ 2257}#
+                             (list (list #{f\ 13186}#
                                          (list 'lambda
-                                               #{vars\ 2259}#
-                                               #{body-exp\ 2247}#)))
-                             (cons #{f\ 2257}# #{val-exps\ 2246}#))
-                       #{src\ 2243}#))))))
-           (#{build-let\ 176}#
-             (lambda (#{src\ 2269}#
-                      #{ids\ 2270}#
-                      #{vars\ 2271}#
-                      #{val-exps\ 2272}#
-                      #{body-exp\ 2273}#)
-               (if (null? #{vars\ 2271}#)
-                 #{body-exp\ 2273}#
-                 (let ((#{atom-key\ 2281}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2281}# (quote (c)))
+                                               #{vars\ 13188}#
+                                               #{body-exp\ 13176}#)))
+                             (cons #{f\ 13186}# #{val-exps\ 13175}#))
+                       #{src\ 13172}#))))))
+           (#{build-let\ 11105}#
+             (lambda (#{src\ 13198}#
+                      #{ids\ 13199}#
+                      #{vars\ 13200}#
+                      #{val-exps\ 13201}#
+                      #{body-exp\ 13202}#)
+               (if (null? #{vars\ 13200}#)
+                 #{body-exp\ 13202}#
+                 (let ((#{atom-key\ 13210}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13210}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 160}#
-                         #{ids\ 2270}#
-                         #{val-exps\ 2272}#)
+                         #{maybe-name-value!\ 11089}#
+                         #{ids\ 13199}#
+                         #{val-exps\ 13201}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 2269}#
-                        #{ids\ 2270}#
-                        #{vars\ 2271}#
-                        #{val-exps\ 2272}#
-                        #{body-exp\ 2273}#))
-                     (#{decorate-source\ 140}#
+                        #{src\ 13198}#
+                        #{ids\ 13199}#
+                        #{vars\ 13200}#
+                        #{val-exps\ 13201}#
+                        #{body-exp\ 13202}#))
+                     (#{decorate-source\ 11069}#
                        (list 'let
-                             (map list #{vars\ 2271}# #{val-exps\ 2272}#)
-                             #{body-exp\ 2273}#)
-                       #{src\ 2269}#))))))
-           (#{build-sequence\ 174}#
-             (lambda (#{src\ 2285}# #{exps\ 2286}#)
-               (if (null? (cdr #{exps\ 2286}#))
-                 (car #{exps\ 2286}#)
-                 (let ((#{atom-key\ 2291}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2291}# (quote (c)))
+                             (map list #{vars\ 13200}# #{val-exps\ 13201}#)
+                             #{body-exp\ 13202}#)
+                       #{src\ 13198}#))))))
+           (#{build-sequence\ 11103}#
+             (lambda (#{src\ 13214}# #{exps\ 13215}#)
+               (if (null? (cdr #{exps\ 13215}#))
+                 (car #{exps\ 13215}#)
+                 (let ((#{atom-key\ 13220}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13220}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{src\ 2285}#
-                      #{exps\ 2286}#)
-                     (#{decorate-source\ 140}#
-                       (cons (quote begin) #{exps\ 2286}#)
-                       #{src\ 2285}#))))))
-           (#{build-data\ 172}#
-             (lambda (#{src\ 2295}# #{exp\ 2296}#)
-               (let ((#{atom-key\ 2301}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2301}# (quote (c)))
+                      #{src\ 13214}#
+                      #{exps\ 13215}#)
+                     (#{decorate-source\ 11069}#
+                       (cons (quote begin) #{exps\ 13215}#)
+                       #{src\ 13214}#))))))
+           (#{build-data\ 11101}#
+             (lambda (#{src\ 13224}# #{exp\ 13225}#)
+               (let ((#{atom-key\ 13230}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13230}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 2295}#
-                    #{exp\ 2296}#)
-                   (#{decorate-source\ 140}#
-                     (if (if (self-evaluating? #{exp\ 2296}#)
-                           (not (vector? #{exp\ 2296}#))
+                    #{src\ 13224}#
+                    #{exp\ 13225}#)
+                   (#{decorate-source\ 11069}#
+                     (if (if (self-evaluating? #{exp\ 13225}#)
+                           (not (vector? #{exp\ 13225}#))
                            #f)
-                       #{exp\ 2296}#
-                       (list (quote quote) #{exp\ 2296}#))
-                     #{src\ 2295}#)))))
-           (#{build-primref\ 170}#
-             (lambda (#{src\ 2306}# #{name\ 2307}#)
+                       #{exp\ 13225}#
+                       (list (quote quote) #{exp\ 13225}#))
+                     #{src\ 13224}#)))))
+           (#{build-primref\ 11099}#
+             (lambda (#{src\ 13235}# #{name\ 13236}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 2312}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2312}# (quote (c)))
+                 (let ((#{atom-key\ 13241}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13241}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{src\ 2306}#
-                      #{name\ 2307}#)
-                     (#{decorate-source\ 140}#
-                       #{name\ 2307}#
-                       #{src\ 2306}#)))
-                 (let ((#{atom-key\ 2317}# (fluid-ref #{*mode*\ 121}#)))
-                   (if (memv #{atom-key\ 2317}# (quote (c)))
+                      #{src\ 13235}#
+                      #{name\ 13236}#)
+                     (#{decorate-source\ 11069}#
+                       #{name\ 13236}#
+                       #{src\ 13235}#)))
+                 (let ((#{atom-key\ 13246}#
+                         (fluid-ref #{*mode*\ 11050}#)))
+                   (if (memv #{atom-key\ 13246}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 2306}#
+                      #{src\ 13235}#
                       '(guile)
-                      #{name\ 2307}#
+                      #{name\ 13236}#
                       #f)
-                     (#{decorate-source\ 140}#
-                       (list (quote @@) (quote (guile)) #{name\ 2307}#)
-                       #{src\ 2306}#))))))
-           (#{build-lambda-case\ 168}#
-             (lambda (#{src\ 2321}#
-                      #{req\ 2322}#
-                      #{opt\ 2323}#
-                      #{rest\ 2324}#
-                      #{kw\ 2325}#
-                      #{inits\ 2326}#
-                      #{vars\ 2327}#
-                      #{body\ 2328}#
-                      #{else-case\ 2329}#)
-               (let ((#{atom-key\ 2341}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2341}# (quote (c)))
+                     (#{decorate-source\ 11069}#
+                       (list (quote @@) (quote (guile)) #{name\ 13236}#)
+                       #{src\ 13235}#))))))
+           (#{build-lambda-case\ 11097}#
+             (lambda (#{src\ 13250}#
+                      #{req\ 13251}#
+                      #{opt\ 13252}#
+                      #{rest\ 13253}#
+                      #{kw\ 13254}#
+                      #{inits\ 13255}#
+                      #{vars\ 13256}#
+                      #{body\ 13257}#
+                      #{else-case\ 13258}#)
+               (let ((#{atom-key\ 13270}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13270}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{src\ 2321}#
-                    #{req\ 2322}#
-                    #{opt\ 2323}#
-                    #{rest\ 2324}#
-                    #{kw\ 2325}#
-                    #{inits\ 2326}#
-                    #{vars\ 2327}#
-                    #{body\ 2328}#
-                    #{else-case\ 2329}#)
-                   (let ((#{nreq\ 2346}# (length #{req\ 2322}#)))
-                     (let ((#{nopt\ 2348}#
-                             (if #{opt\ 2323}# (length #{opt\ 2323}#) 0)))
-                       (let ((#{rest-idx\ 2350}#
-                               (if #{rest\ 2324}#
-                                 (+ #{nreq\ 2346}# #{nopt\ 2348}#)
+                    #{src\ 13250}#
+                    #{req\ 13251}#
+                    #{opt\ 13252}#
+                    #{rest\ 13253}#
+                    #{kw\ 13254}#
+                    #{inits\ 13255}#
+                    #{vars\ 13256}#
+                    #{body\ 13257}#
+                    #{else-case\ 13258}#)
+                   (let ((#{nreq\ 13275}# (length #{req\ 13251}#)))
+                     (let ((#{nopt\ 13277}#
+                             (if #{opt\ 13252}# (length #{opt\ 13252}#) 0)))
+                       (let ((#{rest-idx\ 13279}#
+                               (if #{rest\ 13253}#
+                                 (+ #{nreq\ 13275}# #{nopt\ 13277}#)
                                  #f)))
-                         (let ((#{allow-other-keys?\ 2354}#
-                                 (if #{kw\ 2325}# (car #{kw\ 2325}#) #f)))
-                           (let ((#{kw-indices\ 2356}#
-                                   (map (lambda (#{x\ 2357}#)
-                                          (cons (car #{x\ 2357}#)
+                         (let ((#{allow-other-keys?\ 13283}#
+                                 (if #{kw\ 13254}# (car #{kw\ 13254}#) #f)))
+                           (let ((#{kw-indices\ 13285}#
+                                   (map (lambda (#{x\ 13286}#)
+                                          (cons (car #{x\ 13286}#)
                                                 (list-index
-                                                  #{vars\ 2327}#
-                                                  (caddr #{x\ 2357}#))))
-                                        (if #{kw\ 2325}#
-                                          (cdr #{kw\ 2325}#)
+                                                  #{vars\ 13256}#
+                                                  (caddr #{x\ 13286}#))))
+                                        (if #{kw\ 13254}#
+                                          (cdr #{kw\ 13254}#)
                                           '()))))
-                             (let ((#{nargs\ 2360}#
+                             (let ((#{nargs\ 13289}#
                                      (apply max
-                                            (+ #{nreq\ 2346}#
-                                               #{nopt\ 2348}#
-                                               (if #{rest\ 2324}# 1 0))
+                                            (+ #{nreq\ 13275}#
+                                               #{nopt\ 13277}#
+                                               (if #{rest\ 13253}# 1 0))
                                             (map 1+
                                                  (map cdr
-                                                      #{kw-indices\ 2356}#)))))
+                                                      #{kw-indices\ 
13285}#)))))
                                (begin
-                                 (let ((#{t\ 2363}#
-                                         (= #{nargs\ 2360}#
-                                            (length #{vars\ 2327}#)
-                                            (+ #{nreq\ 2346}#
-                                               (length #{inits\ 2326}#)
-                                               (if #{rest\ 2324}# 1 0)))))
-                                   (if #{t\ 2363}#
-                                     #{t\ 2363}#
+                                 (let ((#{t\ 13292}#
+                                         (= #{nargs\ 13289}#
+                                            (length #{vars\ 13256}#)
+                                            (+ #{nreq\ 13275}#
+                                               (length #{inits\ 13255}#)
+                                               (if #{rest\ 13253}# 1 0)))))
+                                   (if #{t\ 13292}#
+                                     #{t\ 13292}#
                                      (error "something went wrong"
-                                            #{req\ 2322}#
-                                            #{opt\ 2323}#
-                                            #{rest\ 2324}#
-                                            #{kw\ 2325}#
-                                            #{inits\ 2326}#
-                                            #{vars\ 2327}#
-                                            #{nreq\ 2346}#
-                                            #{nopt\ 2348}#
-                                            #{kw-indices\ 2356}#
-                                            #{nargs\ 2360}#)))
-                                 (#{decorate-source\ 140}#
+                                            #{req\ 13251}#
+                                            #{opt\ 13252}#
+                                            #{rest\ 13253}#
+                                            #{kw\ 13254}#
+                                            #{inits\ 13255}#
+                                            #{vars\ 13256}#
+                                            #{nreq\ 13275}#
+                                            #{nopt\ 13277}#
+                                            #{kw-indices\ 13285}#
+                                            #{nargs\ 13289}#)))
+                                 (#{decorate-source\ 11069}#
                                    (cons (list (cons '(@@ (ice-9 optargs)
                                                           parse-lambda-case)
                                                      (cons (list 'quote
-                                                                 (list #{nreq\ 
2346}#
-                                                                       #{nopt\ 
2348}#
-                                                                       
#{rest-idx\ 2350}#
-                                                                       
#{nargs\ 2360}#
-                                                                       
#{allow-other-keys?\ 2354}#
-                                                                       
#{kw-indices\ 2356}#))
+                                                                 (list #{nreq\ 
13275}#
+                                                                       #{nopt\ 
13277}#
+                                                                       
#{rest-idx\ 13279}#
+                                                                       
#{nargs\ 13289}#
+                                                                       
#{allow-other-keys?\ 13283}#
+                                                                       
#{kw-indices\ 13285}#))
                                                            (cons (cons 'list
-                                                                       (map 
(lambda (#{i\ 2366}#)
+                                                                       (map 
(lambda (#{i\ 13295}#)
                                                                               
(list 'lambda
-                                                                               
     #{vars\ 2327}#
-                                                                               
     #{i\ 2366}#))
-                                                                            
#{inits\ 2326}#))
+                                                                               
     #{vars\ 13256}#
+                                                                               
     #{i\ 13295}#))
+                                                                            
#{inits\ 13255}#))
                                                                  '(%%args))))
                                                '=>
                                                (list 'lambda
                                                      '(%%args)
                                                      (cons 'apply
                                                            (cons (list 'lambda
-                                                                       #{vars\ 
2327}#
-                                                                       #{body\ 
2328}#)
+                                                                       #{vars\ 
13256}#
+                                                                       #{body\ 
13257}#)
                                                                  '(%%args)))))
-                                         (let ((#{t\ 2371}#
-                                                 #{else-case\ 2329}#))
-                                           (if #{t\ 2371}#
-                                             #{t\ 2371}#
+                                         (let ((#{t\ 13300}#
+                                                 #{else-case\ 13258}#))
+                                           (if #{t\ 13300}#
+                                             #{t\ 13300}#
                                              '((%%args
                                                  (scm-error
                                                    'wrong-number-of-args
@@ -7965,1454 +8009,1491 @@
                                                    "Wrong number of arguments"
                                                    '()
                                                    %%args))))))
-                                   #{src\ 2321}#))))))))))))
-           (#{build-case-lambda\ 166}#
-             (lambda (#{src\ 2374}# #{meta\ 2375}# #{body\ 2376}#)
-               (let ((#{atom-key\ 2382}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2382}# (quote (c)))
+                                   #{src\ 13250}#))))))))))))
+           (#{build-case-lambda\ 11095}#
+             (lambda (#{src\ 13303}# #{meta\ 13304}# #{body\ 13305}#)
+               (let ((#{atom-key\ 13311}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13311}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 2374}#
-                    #{meta\ 2375}#
-                    #{body\ 2376}#)
-                   (#{decorate-source\ 140}#
+                    #{src\ 13303}#
+                    #{meta\ 13304}#
+                    #{body\ 13305}#)
+                   (#{decorate-source\ 11069}#
                      (list 'lambda
                            '%%args
-                           (cons (quote cond) #{body\ 2376}#))
-                     #{src\ 2374}#)))))
-           (#{build-simple-lambda\ 164}#
-             (lambda (#{src\ 2386}#
-                      #{req\ 2387}#
-                      #{rest\ 2388}#
-                      #{vars\ 2389}#
-                      #{meta\ 2390}#
-                      #{exp\ 2391}#)
-               (let ((#{atom-key\ 2400}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2400}# (quote (c)))
+                           (cons (quote cond) #{body\ 13305}#))
+                     #{src\ 13303}#)))))
+           (#{build-simple-lambda\ 11093}#
+             (lambda (#{src\ 13315}#
+                      #{req\ 13316}#
+                      #{rest\ 13317}#
+                      #{vars\ 13318}#
+                      #{meta\ 13319}#
+                      #{exp\ 13320}#)
+               (let ((#{atom-key\ 13329}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13329}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 2386}#
-                    #{meta\ 2390}#
+                    #{src\ 13315}#
+                    #{meta\ 13319}#
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 2386}#
-                     #{req\ 2387}#
+                     #{src\ 13315}#
+                     #{req\ 13316}#
                      #f
-                     #{rest\ 2388}#
+                     #{rest\ 13317}#
                      #f
                      '()
-                     #{vars\ 2389}#
-                     #{exp\ 2391}#
+                     #{vars\ 13318}#
+                     #{exp\ 13320}#
                      #f))
-                   (#{decorate-source\ 140}#
+                   (#{decorate-source\ 11069}#
                      (list 'lambda
-                           (if #{rest\ 2388}#
-                             (apply cons* #{vars\ 2389}#)
-                             #{vars\ 2389}#)
-                           #{exp\ 2391}#)
-                     #{src\ 2386}#)))))
-           (#{build-global-definition\ 162}#
-             (lambda (#{source\ 2404}# #{var\ 2405}# #{exp\ 2406}#)
-               (let ((#{atom-key\ 2412}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2412}# (quote (c)))
+                           (if #{rest\ 13317}#
+                             (apply cons* #{vars\ 13318}#)
+                             #{vars\ 13318}#)
+                           #{exp\ 13320}#)
+                     #{src\ 13315}#)))))
+           (#{build-global-definition\ 11091}#
+             (lambda (#{source\ 13333}# #{var\ 13334}# #{exp\ 13335}#)
+               (let ((#{atom-key\ 13341}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13341}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 160}#
-                       #{var\ 2405}#
-                       #{exp\ 2406}#)
+                     (#{maybe-name-value!\ 11089}#
+                       #{var\ 13334}#
+                       #{exp\ 13335}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{source\ 2404}#
-                      #{var\ 2405}#
-                      #{exp\ 2406}#))
-                   (#{decorate-source\ 140}#
-                     (list (quote define) #{var\ 2405}# #{exp\ 2406}#)
-                     #{source\ 2404}#)))))
-           (#{maybe-name-value!\ 160}#
-             (lambda (#{name\ 2416}# #{val\ 2417}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 2417}#)
-                 (let ((#{meta\ 2423}#
+                      #{source\ 13333}#
+                      #{var\ 13334}#
+                      #{exp\ 13335}#))
+                   (#{decorate-source\ 11069}#
+                     (list 'define
+                           #{var\ 13334}#
+                           #{exp\ 13335}#)
+                     #{source\ 13333}#)))))
+           (#{maybe-name-value!\ 11089}#
+             (lambda (#{name\ 13345}# #{val\ 13346}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 13346}#)
+                 (let ((#{meta\ 13352}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 2417}#)))
-                   (if (not (assq (quote name) #{meta\ 2423}#))
+                          #{val\ 13346}#)))
+                   (if (not (assq (quote name) #{meta\ 13352}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 2417}#
+                      #{val\ 13346}#
                       (acons 'name
-                             #{name\ 2416}#
-                             #{meta\ 2423}#)))))))
-           (#{build-global-assignment\ 158}#
-             (lambda (#{source\ 2424}#
-                      #{var\ 2425}#
-                      #{exp\ 2426}#
-                      #{mod\ 2427}#)
-               (#{analyze-variable\ 154}#
-                 #{mod\ 2427}#
-                 #{var\ 2425}#
-                 (lambda (#{mod\ 2432}# #{var\ 2433}# #{public?\ 2434}#)
-                   (let ((#{atom-key\ 2440}# (fluid-ref #{*mode*\ 121}#)))
-                     (if (memv #{atom-key\ 2440}# (quote (c)))
+                             #{name\ 13345}#
+                             #{meta\ 13352}#)))))))
+           (#{build-global-assignment\ 11087}#
+             (lambda (#{source\ 13353}#
+                      #{var\ 13354}#
+                      #{exp\ 13355}#
+                      #{mod\ 13356}#)
+               (#{analyze-variable\ 11083}#
+                 #{mod\ 13356}#
+                 #{var\ 13354}#
+                 (lambda (#{mod\ 13361}#
+                          #{var\ 13362}#
+                          #{public?\ 13363}#)
+                   (let ((#{atom-key\ 13369}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13369}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 2424}#
-                        #{mod\ 2432}#
-                        #{var\ 2433}#
-                        #{public?\ 2434}#
-                        #{exp\ 2426}#)
-                       (#{decorate-source\ 140}#
+                        #{source\ 13353}#
+                        #{mod\ 13361}#
+                        #{var\ 13362}#
+                        #{public?\ 13363}#
+                        #{exp\ 13355}#)
+                       (#{decorate-source\ 11069}#
                          (list 'set!
-                               (list (if #{public?\ 2434}#
+                               (list (if #{public?\ 13363}#
                                        '@
                                        '@@)
-                                     #{mod\ 2432}#
-                                     #{var\ 2433}#)
-                               #{exp\ 2426}#)
-                         #{source\ 2424}#))))
-                 (lambda (#{var\ 2444}#)
-                   (let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 121}#)))
-                     (if (memv #{atom-key\ 2448}# (quote (c)))
+                                     #{mod\ 13361}#
+                                     #{var\ 13362}#)
+                               #{exp\ 13355}#)
+                         #{source\ 13353}#))))
+                 (lambda (#{var\ 13373}#)
+                   (let ((#{atom-key\ 13377}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13377}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{source\ 2424}#
-                        #{var\ 2444}#
-                        #{exp\ 2426}#)
-                       (#{decorate-source\ 140}#
-                         (list (quote set!) #{var\ 2444}# #{exp\ 2426}#)
-                         #{source\ 2424}#)))))))
-           (#{build-global-reference\ 156}#
-             (lambda (#{source\ 2452}# #{var\ 2453}# #{mod\ 2454}#)
-               (#{analyze-variable\ 154}#
-                 #{mod\ 2454}#
-                 #{var\ 2453}#
-                 (lambda (#{mod\ 2458}# #{var\ 2459}# #{public?\ 2460}#)
-                   (let ((#{atom-key\ 2466}# (fluid-ref #{*mode*\ 121}#)))
-                     (if (memv #{atom-key\ 2466}# (quote (c)))
+                        #{source\ 13353}#
+                        #{var\ 13373}#
+                        #{exp\ 13355}#)
+                       (#{decorate-source\ 11069}#
+                         (list (quote set!) #{var\ 13373}# #{exp\ 13355}#)
+                         #{source\ 13353}#)))))))
+           (#{build-global-reference\ 11085}#
+             (lambda (#{source\ 13381}# #{var\ 13382}# #{mod\ 13383}#)
+               (#{analyze-variable\ 11083}#
+                 #{mod\ 13383}#
+                 #{var\ 13382}#
+                 (lambda (#{mod\ 13387}#
+                          #{var\ 13388}#
+                          #{public?\ 13389}#)
+                   (let ((#{atom-key\ 13395}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13395}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{source\ 2452}#
-                        #{mod\ 2458}#
-                        #{var\ 2459}#
-                        #{public?\ 2460}#)
-                       (#{decorate-source\ 140}#
-                         (list (if #{public?\ 2460}# (quote @) (quote @@))
-                               #{mod\ 2458}#
-                               #{var\ 2459}#)
-                         #{source\ 2452}#))))
-                 (lambda (#{var\ 2469}#)
-                   (let ((#{atom-key\ 2473}# (fluid-ref #{*mode*\ 121}#)))
-                     (if (memv #{atom-key\ 2473}# (quote (c)))
+                        #{source\ 13381}#
+                        #{mod\ 13387}#
+                        #{var\ 13388}#
+                        #{public?\ 13389}#)
+                       (#{decorate-source\ 11069}#
+                         (list (if #{public?\ 13389}# (quote @) (quote @@))
+                               #{mod\ 13387}#
+                               #{var\ 13388}#)
+                         #{source\ 13381}#))))
+                 (lambda (#{var\ 13398}#)
+                   (let ((#{atom-key\ 13402}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13402}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{source\ 2452}#
-                        #{var\ 2469}#)
-                       (#{decorate-source\ 140}#
-                         #{var\ 2469}#
-                         #{source\ 2452}#)))))))
-           (#{analyze-variable\ 154}#
-             (lambda (#{mod\ 2476}#
-                      #{var\ 2477}#
-                      #{modref-cont\ 2478}#
-                      #{bare-cont\ 2479}#)
-               (if (not #{mod\ 2476}#)
-                 (#{bare-cont\ 2479}# #{var\ 2477}#)
-                 (let ((#{kind\ 2486}# (car #{mod\ 2476}#))
-                       (#{mod\ 2487}# (cdr #{mod\ 2476}#)))
-                   (if (memv #{kind\ 2486}# (quote (public)))
-                     (#{modref-cont\ 2478}#
-                       #{mod\ 2487}#
-                       #{var\ 2477}#
+                        #{source\ 13381}#
+                        #{var\ 13398}#)
+                       (#{decorate-source\ 11069}#
+                         #{var\ 13398}#
+                         #{source\ 13381}#)))))))
+           (#{analyze-variable\ 11083}#
+             (lambda (#{mod\ 13405}#
+                      #{var\ 13406}#
+                      #{modref-cont\ 13407}#
+                      #{bare-cont\ 13408}#)
+               (if (not #{mod\ 13405}#)
+                 (#{bare-cont\ 13408}# #{var\ 13406}#)
+                 (let ((#{kind\ 13415}# (car #{mod\ 13405}#))
+                       (#{mod\ 13416}# (cdr #{mod\ 13405}#)))
+                   (if (memv #{kind\ 13415}# (quote (public)))
+                     (#{modref-cont\ 13407}#
+                       #{mod\ 13416}#
+                       #{var\ 13406}#
                        #t)
-                     (if (memv #{kind\ 2486}# (quote (private)))
+                     (if (memv #{kind\ 13415}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 2487}#
+                                  #{mod\ 13416}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 2478}#
-                           #{mod\ 2487}#
-                           #{var\ 2477}#
+                         (#{modref-cont\ 13407}#
+                           #{mod\ 13416}#
+                           #{var\ 13406}#
                            #f)
-                         (#{bare-cont\ 2479}# #{var\ 2477}#))
-                       (if (memv #{kind\ 2486}# (quote (bare)))
-                         (#{bare-cont\ 2479}# #{var\ 2477}#)
-                         (if (memv #{kind\ 2486}# (quote (hygiene)))
+                         (#{bare-cont\ 13408}# #{var\ 13406}#))
+                       (if (memv #{kind\ 13415}# (quote (bare)))
+                         (#{bare-cont\ 13408}# #{var\ 13406}#)
+                         (if (memv #{kind\ 13415}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 2487}#
+                                          #{mod\ 13416}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 2487}#)
-                                   #{var\ 2477}#)
+                                   (resolve-module #{mod\ 13416}#)
+                                   #{var\ 13406}#)
                                  #f)
-                             (#{modref-cont\ 2478}#
-                               #{mod\ 2487}#
-                               #{var\ 2477}#
+                             (#{modref-cont\ 13407}#
+                               #{mod\ 13416}#
+                               #{var\ 13406}#
                                #f)
-                             (#{bare-cont\ 2479}# #{var\ 2477}#))
+                             (#{bare-cont\ 13408}# #{var\ 13406}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 2477}#
-                             #{mod\ 2487}#)))))))))
-           (#{build-lexical-assignment\ 152}#
-             (lambda (#{source\ 2495}#
-                      #{name\ 2496}#
-                      #{var\ 2497}#
-                      #{exp\ 2498}#)
-               (let ((#{atom-key\ 2505}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2505}# (quote (c)))
+                             #{var\ 13406}#
+                             #{mod\ 13416}#)))))))))
+           (#{build-lexical-assignment\ 11081}#
+             (lambda (#{source\ 13424}#
+                      #{name\ 13425}#
+                      #{var\ 13426}#
+                      #{exp\ 13427}#)
+               (let ((#{atom-key\ 13434}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13434}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{source\ 2495}#
-                    #{name\ 2496}#
-                    #{var\ 2497}#
-                    #{exp\ 2498}#)
-                   (#{decorate-source\ 140}#
-                     (list (quote set!) #{var\ 2497}# #{exp\ 2498}#)
-                     #{source\ 2495}#)))))
-           (#{build-lexical-reference\ 150}#
-             (lambda (#{type\ 2509}#
-                      #{source\ 2510}#
-                      #{name\ 2511}#
-                      #{var\ 2512}#)
-               (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2519}# (quote (c)))
+                    #{source\ 13424}#
+                    #{name\ 13425}#
+                    #{var\ 13426}#
+                    #{exp\ 13427}#)
+                   (#{decorate-source\ 11069}#
+                     (list (quote set!) #{var\ 13426}# #{exp\ 13427}#)
+                     #{source\ 13424}#)))))
+           (#{build-lexical-reference\ 11079}#
+             (lambda (#{type\ 13438}#
+                      #{source\ 13439}#
+                      #{name\ 13440}#
+                      #{var\ 13441}#)
+               (let ((#{atom-key\ 13448}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13448}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{source\ 2510}#
-                    #{name\ 2511}#
-                    #{var\ 2512}#)
-                   (#{decorate-source\ 140}#
-                     #{var\ 2512}#
-                     #{source\ 2510}#)))))
-           (#{build-dynlet\ 148}#
-             (lambda (#{source\ 2522}#
-                      #{fluids\ 2523}#
-                      #{vals\ 2524}#
-                      #{body\ 2525}#)
-               (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2532}# (quote (c)))
+                    #{source\ 13439}#
+                    #{name\ 13440}#
+                    #{var\ 13441}#)
+                   (#{decorate-source\ 11069}#
+                     #{var\ 13441}#
+                     #{source\ 13439}#)))))
+           (#{build-dynlet\ 11077}#
+             (lambda (#{source\ 13451}#
+                      #{fluids\ 13452}#
+                      #{vals\ 13453}#
+                      #{body\ 13454}#)
+               (let ((#{atom-key\ 13461}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13461}# (quote (c)))
                    ((@ (language tree-il) make-dynlet)
-                    #{source\ 2522}#
-                    #{fluids\ 2523}#
-                    #{vals\ 2524}#
-                    #{body\ 2525}#)
-                   (#{decorate-source\ 140}#
+                    #{source\ 13451}#
+                    #{fluids\ 13452}#
+                    #{vals\ 13453}#
+                    #{body\ 13454}#)
+                   (#{decorate-source\ 11069}#
                      (list 'with-fluids
-                           (map list #{fluids\ 2523}# #{vals\ 2524}#)
-                           #{body\ 2525}#)
-                     #{source\ 2522}#)))))
-           (#{build-conditional\ 146}#
-             (lambda (#{source\ 2536}#
-                      #{test-exp\ 2537}#
-                      #{then-exp\ 2538}#
-                      #{else-exp\ 2539}#)
-               (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2546}# (quote (c)))
+                           (map list #{fluids\ 13452}# #{vals\ 13453}#)
+                           #{body\ 13454}#)
+                     #{source\ 13451}#)))))
+           (#{build-conditional\ 11075}#
+             (lambda (#{source\ 13465}#
+                      #{test-exp\ 13466}#
+                      #{then-exp\ 13467}#
+                      #{else-exp\ 13468}#)
+               (let ((#{atom-key\ 13475}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13475}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 2536}#
-                    #{test-exp\ 2537}#
-                    #{then-exp\ 2538}#
-                    #{else-exp\ 2539}#)
-                   (#{decorate-source\ 140}#
-                     (if (equal? #{else-exp\ 2539}# (quote (if #f #f)))
+                    #{source\ 13465}#
+                    #{test-exp\ 13466}#
+                    #{then-exp\ 13467}#
+                    #{else-exp\ 13468}#)
+                   (#{decorate-source\ 11069}#
+                     (if (equal? #{else-exp\ 13468}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 2537}#
-                             #{then-exp\ 2538}#)
+                             #{test-exp\ 13466}#
+                             #{then-exp\ 13467}#)
                        (list 'if
-                             #{test-exp\ 2537}#
-                             #{then-exp\ 2538}#
-                             #{else-exp\ 2539}#))
-                     #{source\ 2536}#)))))
-           (#{build-application\ 144}#
-             (lambda (#{source\ 2551}#
-                      #{fun-exp\ 2552}#
-                      #{arg-exps\ 2553}#)
-               (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2559}# (quote (c)))
+                             #{test-exp\ 13466}#
+                             #{then-exp\ 13467}#
+                             #{else-exp\ 13468}#))
+                     #{source\ 13465}#)))))
+           (#{build-application\ 11073}#
+             (lambda (#{source\ 13480}#
+                      #{fun-exp\ 13481}#
+                      #{arg-exps\ 13482}#)
+               (let ((#{atom-key\ 13488}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13488}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{source\ 2551}#
-                    #{fun-exp\ 2552}#
-                    #{arg-exps\ 2553}#)
-                   (#{decorate-source\ 140}#
-                     (cons #{fun-exp\ 2552}# #{arg-exps\ 2553}#)
-                     #{source\ 2551}#)))))
-           (#{build-void\ 142}#
-             (lambda (#{source\ 2563}#)
-               (let ((#{atom-key\ 2567}# (fluid-ref #{*mode*\ 121}#)))
-                 (if (memv #{atom-key\ 2567}# (quote (c)))
+                    #{source\ 13480}#
+                    #{fun-exp\ 13481}#
+                    #{arg-exps\ 13482}#)
+                   (#{decorate-source\ 11069}#
+                     (cons #{fun-exp\ 13481}# #{arg-exps\ 13482}#)
+                     #{source\ 13480}#)))))
+           (#{build-void\ 11071}#
+             (lambda (#{source\ 13492}#)
+               (let ((#{atom-key\ 13496}#
+                       (fluid-ref #{*mode*\ 11050}#)))
+                 (if (memv #{atom-key\ 13496}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 2563}#)
-                   (#{decorate-source\ 140}#
+                    #{source\ 13492}#)
+                   (#{decorate-source\ 11069}#
                      '(if #f #f)
-                     #{source\ 2563}#)))))
-           (#{decorate-source\ 140}#
-             (lambda (#{e\ 2570}# #{s\ 2571}#)
+                     #{source\ 13492}#)))))
+           (#{decorate-source\ 11069}#
+             (lambda (#{e\ 13499}# #{s\ 13500}#)
                (begin
-                 (if (if (pair? #{e\ 2570}#) #{s\ 2571}# #f)
-                   (set-source-properties! #{e\ 2570}# #{s\ 2571}#))
-                 #{e\ 2570}#)))
-           (#{get-global-definition-hook\ 138}#
-             (lambda (#{symbol\ 2576}# #{module\ 2577}#)
+                 (if (if (pair? #{e\ 13499}#) #{s\ 13500}# #f)
+                   (set-source-properties!
+                     #{e\ 13499}#
+                     #{s\ 13500}#))
+                 #{e\ 13499}#)))
+           (#{get-global-definition-hook\ 11067}#
+             (lambda (#{symbol\ 13505}# #{module\ 13506}#)
                (begin
-                 (if (if (not #{module\ 2577}#) (current-module) #f)
+                 (if (if (not #{module\ 13506}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 2576}#))
-                 (let ((#{v\ 2583}#
+                         #{symbol\ 13505}#))
+                 (let ((#{v\ 13512}#
                          (module-variable
-                           (if #{module\ 2577}#
-                             (resolve-module (cdr #{module\ 2577}#))
+                           (if #{module\ 13506}#
+                             (resolve-module (cdr #{module\ 13506}#))
                              (current-module))
-                           #{symbol\ 2576}#)))
-                   (if #{v\ 2583}#
-                     (if (variable-bound? #{v\ 2583}#)
-                       (let ((#{val\ 2588}# (variable-ref #{v\ 2583}#)))
-                         (if (macro? #{val\ 2588}#)
-                           (if (macro-type #{val\ 2588}#)
-                             (cons (macro-type #{val\ 2588}#)
-                                   (macro-binding #{val\ 2588}#))
+                           #{symbol\ 13505}#)))
+                   (if #{v\ 13512}#
+                     (if (variable-bound? #{v\ 13512}#)
+                       (let ((#{val\ 13517}# (variable-ref #{v\ 13512}#)))
+                         (if (macro? #{val\ 13517}#)
+                           (if (macro-type #{val\ 13517}#)
+                             (cons (macro-type #{val\ 13517}#)
+                                   (macro-binding #{val\ 13517}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 136}#
-             (lambda (#{symbol\ 2592}# #{type\ 2593}# #{val\ 2594}#)
+           (#{put-global-definition-hook\ 11065}#
+             (lambda (#{symbol\ 13521}#
+                      #{type\ 13522}#
+                      #{val\ 13523}#)
                (module-define!
                  (current-module)
-                 #{symbol\ 2592}#
+                 #{symbol\ 13521}#
                  (make-syntax-transformer
-                   #{symbol\ 2592}#
-                   #{type\ 2593}#
-                   #{val\ 2594}#))))
-           (#{local-eval-hook\ 133}#
-             (lambda (#{x\ 2598}# #{mod\ 2599}#)
+                   #{symbol\ 13521}#
+                   #{type\ 13522}#
+                   #{val\ 13523}#))))
+           (#{local-eval-hook\ 11062}#
+             (lambda (#{x\ 13527}# #{mod\ 13528}#)
                (primitive-eval
-                 (list #{noexpand\ 119}#
-                       (let ((#{atom-key\ 2605}# (fluid-ref #{*mode*\ 121}#)))
-                         (if (memv #{atom-key\ 2605}# (quote (c)))
-                           ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 2598}#)
-                           #{x\ 2598}#))))))
-           (#{top-level-eval-hook\ 131}#
-             (lambda (#{x\ 2608}# #{mod\ 2609}#)
+                 (memoize-expression
+                   (let ((#{atom-key\ 13533}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13533}# (quote (c)))
+                       ((@ (language tree-il) tree-il->scheme)
+                        #{x\ 13527}#)
+                       #{x\ 13527}#))))))
+           (#{top-level-eval-hook\ 11060}#
+             (lambda (#{x\ 13536}# #{mod\ 13537}#)
                (primitive-eval
-                 (list #{noexpand\ 119}#
-                       (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 121}#)))
-                         (if (memv #{atom-key\ 2615}# (quote (c)))
-                           ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 2608}#)
-                           #{x\ 2608}#))))))
-           (#{fx<\ 129}# <)
-           (#{fx=\ 127}# =)
-           (#{fx-\ 125}# -)
-           (#{fx+\ 123}# +)
-           (#{*mode*\ 121}# (make-fluid))
-           (#{noexpand\ 119}# "noexpand"))
+                 (memoize-expression
+                   (let ((#{atom-key\ 13542}#
+                           (fluid-ref #{*mode*\ 11050}#)))
+                     (if (memv #{atom-key\ 13542}# (quote (c)))
+                       ((@ (language tree-il) tree-il->scheme)
+                        #{x\ 13536}#)
+                       #{x\ 13536}#))))))
+           (#{fx<\ 11058}# <)
+           (#{fx=\ 11056}# =)
+           (#{fx-\ 11054}# -)
+           (#{fx+\ 11052}# +)
+           (#{*mode*\ 11050}# (make-fluid)))
     (begin
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 2618}#
-                 #{r\ 2619}#
-                 #{w\ 2620}#
-                 #{s\ 2621}#
-                 #{mod\ 2622}#)
-          ((lambda (#{tmp\ 2628}#)
-             ((lambda (#{tmp\ 2629}#)
-                (if (if #{tmp\ 2629}#
-                      (apply (lambda (#{_\ 2635}#
-                                      #{var\ 2636}#
-                                      #{val\ 2637}#
-                                      #{e1\ 2638}#
-                                      #{e2\ 2639}#)
-                               (#{valid-bound-ids?\ 285}# #{var\ 2636}#))
-                             #{tmp\ 2629}#)
+        (lambda (#{e\ 13545}#
+                 #{r\ 13546}#
+                 #{w\ 13547}#
+                 #{s\ 13548}#
+                 #{mod\ 13549}#)
+          ((lambda (#{tmp\ 13555}#)
+             ((lambda (#{tmp\ 13556}#)
+                (if (if #{tmp\ 13556}#
+                      (apply (lambda (#{_\ 13562}#
+                                      #{var\ 13563}#
+                                      #{val\ 13564}#
+                                      #{e1\ 13565}#
+                                      #{e2\ 13566}#)
+                               (#{valid-bound-ids?\ 11214}# #{var\ 13563}#))
+                             #{tmp\ 13556}#)
                       #f)
-                  (apply (lambda (#{_\ 2646}#
-                                  #{var\ 2647}#
-                                  #{val\ 2648}#
-                                  #{e1\ 2649}#
-                                  #{e2\ 2650}#)
-                           (let ((#{names\ 2652}#
-                                   (map (lambda (#{x\ 2653}#)
-                                          (#{id-var-name\ 279}#
-                                            #{x\ 2653}#
-                                            #{w\ 2620}#))
-                                        #{var\ 2647}#)))
+                  (apply (lambda (#{_\ 13573}#
+                                  #{var\ 13574}#
+                                  #{val\ 13575}#
+                                  #{e1\ 13576}#
+                                  #{e2\ 13577}#)
+                           (let ((#{names\ 13579}#
+                                   (map (lambda (#{x\ 13580}#)
+                                          (#{id-var-name\ 11208}#
+                                            #{x\ 13580}#
+                                            #{w\ 13547}#))
+                                        #{var\ 13574}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 2656}# #{n\ 2657}#)
-                                   (let ((#{atom-key\ 2662}#
-                                           (#{binding-type\ 205}#
-                                             (#{lookup\ 216}#
-                                               #{n\ 2657}#
-                                               #{r\ 2619}#
-                                               #{mod\ 2622}#))))
-                                     (if (memv #{atom-key\ 2662}#
+                                 (lambda (#{id\ 13583}# #{n\ 13584}#)
+                                   (let ((#{atom-key\ 13589}#
+                                           (#{binding-type\ 11134}#
+                                             (#{lookup\ 11145}#
+                                               #{n\ 13584}#
+                                               #{r\ 13546}#
+                                               #{mod\ 13549}#))))
+                                     (if (memv #{atom-key\ 13589}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 2618}#
-                                         (#{source-wrap\ 293}#
-                                           #{id\ 2656}#
-                                           #{w\ 2620}#
-                                           #{s\ 2621}#
-                                           #{mod\ 2622}#)))))
-                                 #{var\ 2647}#
-                                 #{names\ 2652}#)
-                               (#{chi-body\ 315}#
-                                 (cons #{e1\ 2649}# #{e2\ 2650}#)
-                                 (#{source-wrap\ 293}#
-                                   #{e\ 2618}#
-                                   #{w\ 2620}#
-                                   #{s\ 2621}#
-                                   #{mod\ 2622}#)
-                                 (#{extend-env\ 210}#
-                                   #{names\ 2652}#
-                                   (let ((#{trans-r\ 2667}#
-                                           (#{macros-only-env\ 214}#
-                                             #{r\ 2619}#)))
-                                     (map (lambda (#{x\ 2668}#)
+                                         #{e\ 13545}#
+                                         (#{source-wrap\ 11222}#
+                                           #{id\ 13583}#
+                                           #{w\ 13547}#
+                                           #{s\ 13548}#
+                                           #{mod\ 13549}#)))))
+                                 #{var\ 13574}#
+                                 #{names\ 13579}#)
+                               (#{chi-body\ 11244}#
+                                 (cons #{e1\ 13576}# #{e2\ 13577}#)
+                                 (#{source-wrap\ 11222}#
+                                   #{e\ 13545}#
+                                   #{w\ 13547}#
+                                   #{s\ 13548}#
+                                   #{mod\ 13549}#)
+                                 (#{extend-env\ 11139}#
+                                   #{names\ 13579}#
+                                   (let ((#{trans-r\ 13594}#
+                                           (#{macros-only-env\ 11143}#
+                                             #{r\ 13546}#)))
+                                     (map (lambda (#{x\ 13595}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
319}#
-                                                    (#{chi\ 307}#
-                                                      #{x\ 2668}#
-                                                      #{trans-r\ 2667}#
-                                                      #{w\ 2620}#
-                                                      #{mod\ 2622}#)
-                                                    #{mod\ 2622}#)))
-                                          #{val\ 2648}#))
-                                   #{r\ 2619}#)
-                                 #{w\ 2620}#
-                                 #{mod\ 2622}#))))
-                         #{tmp\ 2629}#)
-                  ((lambda (#{_\ 2673}#)
+                                                  (#{eval-local-transformer\ 
11248}#
+                                                    (#{chi\ 11236}#
+                                                      #{x\ 13595}#
+                                                      #{trans-r\ 13594}#
+                                                      #{w\ 13547}#
+                                                      #{mod\ 13549}#)
+                                                    #{mod\ 13549}#)))
+                                          #{val\ 13575}#))
+                                   #{r\ 13546}#)
+                                 #{w\ 13547}#
+                                 #{mod\ 13549}#))))
+                         #{tmp\ 13556}#)
+                  ((lambda (#{_\ 13600}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 293}#
-                         #{e\ 2618}#
-                         #{w\ 2620}#
-                         #{s\ 2621}#
-                         #{mod\ 2622}#)))
-                   #{tmp\ 2628}#)))
+                       (#{source-wrap\ 11222}#
+                         #{e\ 13545}#
+                         #{w\ 13547}#
+                         #{s\ 13548}#
+                         #{mod\ 13549}#)))
+                   #{tmp\ 13555}#)))
               ($sc-dispatch
-                #{tmp\ 2628}#
+                #{tmp\ 13555}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 2618}#)))
-      (#{global-extend\ 218}#
+           #{e\ 13545}#)))
+      (#{global-extend\ 11147}#
         'core
         'quote
-        (lambda (#{e\ 2674}#
-                 #{r\ 2675}#
-                 #{w\ 2676}#
-                 #{s\ 2677}#
-                 #{mod\ 2678}#)
-          ((lambda (#{tmp\ 2684}#)
-             ((lambda (#{tmp\ 2685}#)
-                (if #{tmp\ 2685}#
-                  (apply (lambda (#{_\ 2688}# #{e\ 2689}#)
-                           (#{build-data\ 172}#
-                             #{s\ 2677}#
-                             (#{strip\ 333}# #{e\ 2689}# #{w\ 2676}#)))
-                         #{tmp\ 2685}#)
-                  ((lambda (#{_\ 2691}#)
+        (lambda (#{e\ 13601}#
+                 #{r\ 13602}#
+                 #{w\ 13603}#
+                 #{s\ 13604}#
+                 #{mod\ 13605}#)
+          ((lambda (#{tmp\ 13611}#)
+             ((lambda (#{tmp\ 13612}#)
+                (if #{tmp\ 13612}#
+                  (apply (lambda (#{_\ 13615}# #{e\ 13616}#)
+                           (#{build-data\ 11101}#
+                             #{s\ 13604}#
+                             (#{strip\ 11262}# #{e\ 13616}# #{w\ 13603}#)))
+                         #{tmp\ 13612}#)
+                  ((lambda (#{_\ 13618}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 293}#
-                         #{e\ 2674}#
-                         #{w\ 2676}#
-                         #{s\ 2677}#
-                         #{mod\ 2678}#)))
-                   #{tmp\ 2684}#)))
-              ($sc-dispatch #{tmp\ 2684}# (quote (any any)))))
-           #{e\ 2674}#)))
-      (#{global-extend\ 218}#
+                       (#{source-wrap\ 11222}#
+                         #{e\ 13601}#
+                         #{w\ 13603}#
+                         #{s\ 13604}#
+                         #{mod\ 13605}#)))
+                   #{tmp\ 13611}#)))
+              ($sc-dispatch #{tmp\ 13611}# (quote (any any)))))
+           #{e\ 13601}#)))
+      (#{global-extend\ 11147}#
         'core
         'syntax
-        (letrec ((#{regen\ 2707}#
-                   (lambda (#{x\ 2708}#)
-                     (let ((#{atom-key\ 2712}# (car #{x\ 2708}#)))
-                       (if (memv #{atom-key\ 2712}# (quote (ref)))
-                         (#{build-lexical-reference\ 150}#
+        (letrec ((#{regen\ 13634}#
+                   (lambda (#{x\ 13635}#)
+                     (let ((#{atom-key\ 13639}# (car #{x\ 13635}#)))
+                       (if (memv #{atom-key\ 13639}# (quote (ref)))
+                         (#{build-lexical-reference\ 11079}#
                            'value
                            #f
-                           (cadr #{x\ 2708}#)
-                           (cadr #{x\ 2708}#))
-                         (if (memv #{atom-key\ 2712}# (quote (primitive)))
-                           (#{build-primref\ 170}# #f (cadr #{x\ 2708}#))
-                           (if (memv #{atom-key\ 2712}# (quote (quote)))
-                             (#{build-data\ 172}# #f (cadr #{x\ 2708}#))
-                             (if (memv #{atom-key\ 2712}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 2708}#))
-                                 (#{build-simple-lambda\ 164}#
+                           (cadr #{x\ 13635}#)
+                           (cadr #{x\ 13635}#))
+                         (if (memv #{atom-key\ 13639}# (quote (primitive)))
+                           (#{build-primref\ 11099}# #f (cadr #{x\ 13635}#))
+                           (if (memv #{atom-key\ 13639}# (quote (quote)))
+                             (#{build-data\ 11101}# #f (cadr #{x\ 13635}#))
+                             (if (memv #{atom-key\ 13639}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 13635}#))
+                                 (#{build-simple-lambda\ 11093}#
                                    #f
-                                   (cadr #{x\ 2708}#)
+                                   (cadr #{x\ 13635}#)
                                    #f
-                                   (cadr #{x\ 2708}#)
+                                   (cadr #{x\ 13635}#)
                                    '()
-                                   (#{regen\ 2707}# (caddr #{x\ 2708}#)))
-                                 (error "how did we get here" #{x\ 2708}#))
-                               (#{build-application\ 144}#
+                                   (#{regen\ 13634}# (caddr #{x\ 13635}#)))
+                                 (error "how did we get here" #{x\ 13635}#))
+                               (#{build-application\ 11073}#
                                  #f
-                                 (#{build-primref\ 170}# #f (car #{x\ 2708}#))
-                                 (map #{regen\ 2707}#
-                                      (cdr #{x\ 2708}#))))))))))
-                 (#{gen-vector\ 2705}#
-                   (lambda (#{x\ 2724}#)
-                     (if (eq? (car #{x\ 2724}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 2724}#))
-                       (if (eq? (car #{x\ 2724}#) (quote quote))
+                                 (#{build-primref\ 11099}#
+                                   #f
+                                   (car #{x\ 13635}#))
+                                 (map #{regen\ 13634}#
+                                      (cdr #{x\ 13635}#))))))))))
+                 (#{gen-vector\ 13632}#
+                   (lambda (#{x\ 13651}#)
+                     (if (eq? (car #{x\ 13651}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 13651}#))
+                       (if (eq? (car #{x\ 13651}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 2724}#)))
-                         (list (quote list->vector) #{x\ 2724}#)))))
-                 (#{gen-append\ 2703}#
-                   (lambda (#{x\ 2734}# #{y\ 2735}#)
-                     (if (equal? #{y\ 2735}# (quote (quote ())))
-                       #{x\ 2734}#
-                       (list (quote append) #{x\ 2734}# #{y\ 2735}#))))
-                 (#{gen-cons\ 2701}#
-                   (lambda (#{x\ 2739}# #{y\ 2740}#)
-                     (let ((#{atom-key\ 2745}# (car #{y\ 2740}#)))
-                       (if (memv #{atom-key\ 2745}# (quote (quote)))
-                         (if (eq? (car #{x\ 2739}#) (quote quote))
+                               (list->vector (cadr #{x\ 13651}#)))
+                         (list (quote list->vector) #{x\ 13651}#)))))
+                 (#{gen-append\ 13630}#
+                   (lambda (#{x\ 13661}# #{y\ 13662}#)
+                     (if (equal? #{y\ 13662}# (quote (quote ())))
+                       #{x\ 13661}#
+                       (list (quote append) #{x\ 13661}# #{y\ 13662}#))))
+                 (#{gen-cons\ 13628}#
+                   (lambda (#{x\ 13666}# #{y\ 13667}#)
+                     (let ((#{atom-key\ 13672}# (car #{y\ 13667}#)))
+                       (if (memv #{atom-key\ 13672}# (quote (quote)))
+                         (if (eq? (car #{x\ 13666}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 2739}#) (cadr #{y\ 2740}#)))
-                           (if (eq? (cadr #{y\ 2740}#) (quote ()))
-                             (list (quote list) #{x\ 2739}#)
-                             (list (quote cons) #{x\ 2739}# #{y\ 2740}#)))
-                         (if (memv #{atom-key\ 2745}# (quote (list)))
+                                 (cons (cadr #{x\ 13666}#)
+                                       (cadr #{y\ 13667}#)))
+                           (if (eq? (cadr #{y\ 13667}#) (quote ()))
+                             (list (quote list) #{x\ 13666}#)
+                             (list (quote cons) #{x\ 13666}# #{y\ 13667}#)))
+                         (if (memv #{atom-key\ 13672}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 2739}# (cdr #{y\ 2740}#)))
-                           (list (quote cons) #{x\ 2739}# #{y\ 2740}#))))))
-                 (#{gen-map\ 2699}#
-                   (lambda (#{e\ 2754}# #{map-env\ 2755}#)
-                     (let ((#{formals\ 2760}# (map cdr #{map-env\ 2755}#))
-                           (#{actuals\ 2761}#
-                             (map (lambda (#{x\ 2762}#)
-                                    (list (quote ref) (car #{x\ 2762}#)))
-                                  #{map-env\ 2755}#)))
-                       (if (eq? (car #{e\ 2754}#) (quote ref))
-                         (car #{actuals\ 2761}#)
+                                 (cons #{x\ 13666}# (cdr #{y\ 13667}#)))
+                           (list (quote cons) #{x\ 13666}# #{y\ 13667}#))))))
+                 (#{gen-map\ 13626}#
+                   (lambda (#{e\ 13681}# #{map-env\ 13682}#)
+                     (let ((#{formals\ 13687}# (map cdr #{map-env\ 13682}#))
+                           (#{actuals\ 13688}#
+                             (map (lambda (#{x\ 13689}#)
+                                    (list (quote ref) (car #{x\ 13689}#)))
+                                  #{map-env\ 13682}#)))
+                       (if (eq? (car #{e\ 13681}#) (quote ref))
+                         (car #{actuals\ 13688}#)
                          (if (and-map
-                               (lambda (#{x\ 2769}#)
-                                 (if (eq? (car #{x\ 2769}#) (quote ref))
-                                   (memq (cadr #{x\ 2769}#) #{formals\ 2760}#)
+                               (lambda (#{x\ 13696}#)
+                                 (if (eq? (car #{x\ 13696}#) (quote ref))
+                                   (memq (cadr #{x\ 13696}#)
+                                         #{formals\ 13687}#)
                                    #f))
-                               (cdr #{e\ 2754}#))
+                               (cdr #{e\ 13681}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 2754}#))
-                                       (map (let ((#{r\ 2775}#
+                                             (car #{e\ 13681}#))
+                                       (map (let ((#{r\ 13702}#
                                                     (map cons
-                                                         #{formals\ 2760}#
-                                                         #{actuals\ 2761}#)))
-                                              (lambda (#{x\ 2776}#)
-                                                (cdr (assq (cadr #{x\ 2776}#)
-                                                           #{r\ 2775}#))))
-                                            (cdr #{e\ 2754}#))))
+                                                         #{formals\ 13687}#
+                                                         #{actuals\ 13688}#)))
+                                              (lambda (#{x\ 13703}#)
+                                                (cdr (assq (cadr #{x\ 13703}#)
+                                                           #{r\ 13702}#))))
+                                            (cdr #{e\ 13681}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 2760}#
-                                             #{e\ 2754}#)
-                                       #{actuals\ 2761}#)))))))
-                 (#{gen-mappend\ 2697}#
-                   (lambda (#{e\ 2780}# #{map-env\ 2781}#)
+                                             #{formals\ 13687}#
+                                             #{e\ 13681}#)
+                                       #{actuals\ 13688}#)))))))
+                 (#{gen-mappend\ 13624}#
+                   (lambda (#{e\ 13707}# #{map-env\ 13708}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 2699}# #{e\ 2780}# #{map-env\ 2781}#))))
-                 (#{gen-ref\ 2695}#
-                   (lambda (#{src\ 2785}#
-                            #{var\ 2786}#
-                            #{level\ 2787}#
-                            #{maps\ 2788}#)
-                     (if (#{fx=\ 127}# #{level\ 2787}# 0)
-                       (values #{var\ 2786}# #{maps\ 2788}#)
-                       (if (null? #{maps\ 2788}#)
+                           (#{gen-map\ 13626}#
+                             #{e\ 13707}#
+                             #{map-env\ 13708}#))))
+                 (#{gen-ref\ 13622}#
+                   (lambda (#{src\ 13712}#
+                            #{var\ 13713}#
+                            #{level\ 13714}#
+                            #{maps\ 13715}#)
+                     (if (#{fx=\ 11056}# #{level\ 13714}# 0)
+                       (values #{var\ 13713}# #{maps\ 13715}#)
+                       (if (null? #{maps\ 13715}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 2785}#)
+                           #{src\ 13712}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 2695}#
-                               #{src\ 2785}#
-                               #{var\ 2786}#
-                               (#{fx-\ 125}# #{level\ 2787}# 1)
-                               (cdr #{maps\ 2788}#)))
-                           (lambda (#{outer-var\ 2793}# #{outer-maps\ 2794}#)
-                             (let ((#{b\ 2798}#
-                                     (assq #{outer-var\ 2793}#
-                                           (car #{maps\ 2788}#))))
-                               (if #{b\ 2798}#
-                                 (values (cdr #{b\ 2798}#) #{maps\ 2788}#)
-                                 (let ((#{inner-var\ 2800}#
-                                         (#{gen-var\ 335}# (quote tmp))))
+                             (#{gen-ref\ 13622}#
+                               #{src\ 13712}#
+                               #{var\ 13713}#
+                               (#{fx-\ 11054}# #{level\ 13714}# 1)
+                               (cdr #{maps\ 13715}#)))
+                           (lambda (#{outer-var\ 13720}# #{outer-maps\ 13721}#)
+                             (let ((#{b\ 13725}#
+                                     (assq #{outer-var\ 13720}#
+                                           (car #{maps\ 13715}#))))
+                               (if #{b\ 13725}#
+                                 (values (cdr #{b\ 13725}#) #{maps\ 13715}#)
+                                 (let ((#{inner-var\ 13727}#
+                                         (#{gen-var\ 11264}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 2800}#
-                                     (cons (cons (cons #{outer-var\ 2793}#
-                                                       #{inner-var\ 2800}#)
-                                                 (car #{maps\ 2788}#))
-                                           #{outer-maps\ 2794}#)))))))))))
-                 (#{gen-syntax\ 2693}#
-                   (lambda (#{src\ 2801}#
-                            #{e\ 2802}#
-                            #{r\ 2803}#
-                            #{maps\ 2804}#
-                            #{ellipsis?\ 2805}#
-                            #{mod\ 2806}#)
-                     (if (#{id?\ 222}# #{e\ 2802}#)
-                       (let ((#{label\ 2814}#
-                               (#{id-var-name\ 279}#
-                                 #{e\ 2802}#
+                                     #{inner-var\ 13727}#
+                                     (cons (cons (cons #{outer-var\ 13720}#
+                                                       #{inner-var\ 13727}#)
+                                                 (car #{maps\ 13715}#))
+                                           #{outer-maps\ 13721}#)))))))))))
+                 (#{gen-syntax\ 13620}#
+                   (lambda (#{src\ 13728}#
+                            #{e\ 13729}#
+                            #{r\ 13730}#
+                            #{maps\ 13731}#
+                            #{ellipsis?\ 13732}#
+                            #{mod\ 13733}#)
+                     (if (#{id?\ 11151}# #{e\ 13729}#)
+                       (let ((#{label\ 13741}#
+                               (#{id-var-name\ 11208}#
+                                 #{e\ 13729}#
                                  '(()))))
-                         (let ((#{b\ 2817}#
-                                 (#{lookup\ 216}#
-                                   #{label\ 2814}#
-                                   #{r\ 2803}#
-                                   #{mod\ 2806}#)))
-                           (if (eq? (#{binding-type\ 205}# #{b\ 2817}#)
+                         (let ((#{b\ 13744}#
+                                 (#{lookup\ 11145}#
+                                   #{label\ 13741}#
+                                   #{r\ 13730}#
+                                   #{mod\ 13733}#)))
+                           (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 2819}#
-                                         (#{binding-value\ 207}# #{b\ 2817}#)))
-                                   (#{gen-ref\ 2695}#
-                                     #{src\ 2801}#
-                                     (car #{var.lev\ 2819}#)
-                                     (cdr #{var.lev\ 2819}#)
-                                     #{maps\ 2804}#)))
-                               (lambda (#{var\ 2820}# #{maps\ 2821}#)
+                                 (let ((#{var.lev\ 13746}#
+                                         (#{binding-value\ 11136}#
+                                           #{b\ 13744}#)))
+                                   (#{gen-ref\ 13622}#
+                                     #{src\ 13728}#
+                                     (car #{var.lev\ 13746}#)
+                                     (cdr #{var.lev\ 13746}#)
+                                     #{maps\ 13731}#)))
+                               (lambda (#{var\ 13747}# #{maps\ 13748}#)
                                  (values
-                                   (list (quote ref) #{var\ 2820}#)
-                                   #{maps\ 2821}#)))
-                             (if (#{ellipsis?\ 2805}# #{e\ 2802}#)
+                                   (list (quote ref) #{var\ 13747}#)
+                                   #{maps\ 13748}#)))
+                             (if (#{ellipsis?\ 13732}# #{e\ 13729}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 2801}#)
+                                 #{src\ 13728}#)
                                (values
-                                 (list (quote quote) #{e\ 2802}#)
-                                 #{maps\ 2804}#)))))
-                       ((lambda (#{tmp\ 2826}#)
-                          ((lambda (#{tmp\ 2827}#)
-                             (if (if #{tmp\ 2827}#
-                                   (apply (lambda (#{dots\ 2830}# #{e\ 2831}#)
-                                            (#{ellipsis?\ 2805}#
-                                              #{dots\ 2830}#))
-                                          #{tmp\ 2827}#)
+                                 (list (quote quote) #{e\ 13729}#)
+                                 #{maps\ 13731}#)))))
+                       ((lambda (#{tmp\ 13753}#)
+                          ((lambda (#{tmp\ 13754}#)
+                             (if (if #{tmp\ 13754}#
+                                   (apply (lambda (#{dots\ 13757}#
+                                                   #{e\ 13758}#)
+                                            (#{ellipsis?\ 13732}#
+                                              #{dots\ 13757}#))
+                                          #{tmp\ 13754}#)
                                    #f)
-                               (apply (lambda (#{dots\ 2834}# #{e\ 2835}#)
-                                        (#{gen-syntax\ 2693}#
-                                          #{src\ 2801}#
-                                          #{e\ 2835}#
-                                          #{r\ 2803}#
-                                          #{maps\ 2804}#
-                                          (lambda (#{x\ 2836}#) #f)
-                                          #{mod\ 2806}#))
-                                      #{tmp\ 2827}#)
-                               ((lambda (#{tmp\ 2838}#)
-                                  (if (if #{tmp\ 2838}#
-                                        (apply (lambda (#{x\ 2842}#
-                                                        #{dots\ 2843}#
-                                                        #{y\ 2844}#)
-                                                 (#{ellipsis?\ 2805}#
-                                                   #{dots\ 2843}#))
-                                               #{tmp\ 2838}#)
+                               (apply (lambda (#{dots\ 13761}# #{e\ 13762}#)
+                                        (#{gen-syntax\ 13620}#
+                                          #{src\ 13728}#
+                                          #{e\ 13762}#
+                                          #{r\ 13730}#
+                                          #{maps\ 13731}#
+                                          (lambda (#{x\ 13763}#) #f)
+                                          #{mod\ 13733}#))
+                                      #{tmp\ 13754}#)
+                               ((lambda (#{tmp\ 13765}#)
+                                  (if (if #{tmp\ 13765}#
+                                        (apply (lambda (#{x\ 13769}#
+                                                        #{dots\ 13770}#
+                                                        #{y\ 13771}#)
+                                                 (#{ellipsis?\ 13732}#
+                                                   #{dots\ 13770}#))
+                                               #{tmp\ 13765}#)
                                         #f)
-                                    (apply (lambda (#{x\ 2848}#
-                                                    #{dots\ 2849}#
-                                                    #{y\ 2850}#)
-                                             (letrec ((#{f\ 2854}#
-                                                        (lambda (#{y\ 2855}#
-                                                                 #{k\ 2856}#)
-                                                          ((lambda (#{tmp\ 
2863}#)
-                                                             ((lambda (#{tmp\ 
2864}#)
-                                                                (if (if #{tmp\ 
2864}#
-                                                                      (apply 
(lambda (#{dots\ 2867}#
-                                                                               
       #{y\ 2868}#)
-                                                                               
(#{ellipsis?\ 2805}#
-                                                                               
  #{dots\ 2867}#))
-                                                                             
#{tmp\ 2864}#)
+                                    (apply (lambda (#{x\ 13775}#
+                                                    #{dots\ 13776}#
+                                                    #{y\ 13777}#)
+                                             (letrec ((#{f\ 13781}#
+                                                        (lambda (#{y\ 13782}#
+                                                                 #{k\ 13783}#)
+                                                          ((lambda (#{tmp\ 
13790}#)
+                                                             ((lambda (#{tmp\ 
13791}#)
+                                                                (if (if #{tmp\ 
13791}#
+                                                                      (apply 
(lambda (#{dots\ 13794}#
+                                                                               
       #{y\ 13795}#)
+                                                                               
(#{ellipsis?\ 13732}#
+                                                                               
  #{dots\ 13794}#))
+                                                                             
#{tmp\ 13791}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 2871}#
-                                                                               
   #{y\ 2872}#)
-                                                                           
(#{f\ 2854}#
-                                                                             
#{y\ 2872}#
-                                                                             
(lambda (#{maps\ 2873}#)
+                                                                  (apply 
(lambda (#{dots\ 13798}#
+                                                                               
   #{y\ 13799}#)
+                                                                           
(#{f\ 13781}#
+                                                                             
#{y\ 13799}#
+                                                                             
(lambda (#{maps\ 13800}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 2856}#
+                                                                               
    (#{k\ 13783}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 2873}#)))
-                                                                               
  (lambda (#{x\ 2875}#
-                                                                               
           #{maps\ 2876}#)
-                                                                               
    (if (null? (car #{maps\ 2876}#))
+                                                                               
            #{maps\ 13800}#)))
+                                                                               
  (lambda (#{x\ 13802}#
+                                                                               
           #{maps\ 13803}#)
+                                                                               
    (if (null? (car #{maps\ 13803}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 2801}#)
+                                                                               
        #{src\ 13728}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 2697}#
-                                                                               
          #{x\ 2875}#
-                                                                               
          (car #{maps\ 2876}#))
-                                                                               
        (cdr #{maps\ 2876}#))))))))
-                                                                         
#{tmp\ 2864}#)
-                                                                  ((lambda 
(#{_\ 2880}#)
+                                                                               
        (#{gen-mappend\ 13624}#
+                                                                               
          #{x\ 13802}#
+                                                                               
          (car #{maps\ 13803}#))
+                                                                               
        (cdr #{maps\ 13803}#))))))))
+                                                                         
#{tmp\ 13791}#)
+                                                                  ((lambda 
(#{_\ 13807}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 2693}#
-                                                                           
#{src\ 2801}#
-                                                                           
#{y\ 2855}#
-                                                                           
#{r\ 2803}#
-                                                                           
#{maps\ 2804}#
-                                                                           
#{ellipsis?\ 2805}#
-                                                                           
#{mod\ 2806}#))
-                                                                       (lambda 
(#{y\ 2881}#
-                                                                               
 #{maps\ 2882}#)
+                                                                         
(#{gen-syntax\ 13620}#
+                                                                           
#{src\ 13728}#
+                                                                           
#{y\ 13782}#
+                                                                           
#{r\ 13730}#
+                                                                           
#{maps\ 13731}#
+                                                                           
#{ellipsis?\ 13732}#
+                                                                           
#{mod\ 13733}#))
+                                                                       (lambda 
(#{y\ 13808}#
+                                                                               
 #{maps\ 13809}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 2856}#
-                                                                               
#{maps\ 2882}#))
-                                                                           
(lambda (#{x\ 2885}#
-                                                                               
     #{maps\ 2886}#)
+                                                                             
(#{k\ 13783}#
+                                                                               
#{maps\ 13809}#))
+                                                                           
(lambda (#{x\ 13812}#
+                                                                               
     #{maps\ 13813}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 2703}#
-                                                                               
  #{x\ 2885}#
-                                                                               
  #{y\ 2881}#)
-                                                                               
#{maps\ 2886}#))))))
-                                                                   #{tmp\ 
2863}#)))
+                                                                               
(#{gen-append\ 13630}#
+                                                                               
  #{x\ 13812}#
+                                                                               
  #{y\ 13808}#)
+                                                                               
#{maps\ 13813}#))))))
+                                                                   #{tmp\ 
13790}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 2863}#
+                                                                #{tmp\ 13790}#
                                                                 '(any . any))))
-                                                           #{y\ 2855}#))))
-                                               (#{f\ 2854}#
-                                                 #{y\ 2850}#
-                                                 (lambda (#{maps\ 2857}#)
+                                                           #{y\ 13782}#))))
+                                               (#{f\ 13781}#
+                                                 #{y\ 13777}#
+                                                 (lambda (#{maps\ 13784}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 2693}#
-                                                         #{src\ 2801}#
-                                                         #{x\ 2848}#
-                                                         #{r\ 2803}#
+                                                       (#{gen-syntax\ 13620}#
+                                                         #{src\ 13728}#
+                                                         #{x\ 13775}#
+                                                         #{r\ 13730}#
                                                          (cons '()
-                                                               #{maps\ 2857}#)
-                                                         #{ellipsis?\ 2805}#
-                                                         #{mod\ 2806}#))
-                                                     (lambda (#{x\ 2859}#
-                                                              #{maps\ 2860}#)
-                                                       (if (null? (car #{maps\ 
2860}#))
+                                                               #{maps\ 13784}#)
+                                                         #{ellipsis?\ 13732}#
+                                                         #{mod\ 13733}#))
+                                                     (lambda (#{x\ 13786}#
+                                                              #{maps\ 13787}#)
+                                                       (if (null? (car #{maps\ 
13787}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 2801}#)
+                                                           #{src\ 13728}#)
                                                          (values
-                                                           (#{gen-map\ 2699}#
-                                                             #{x\ 2859}#
-                                                             (car #{maps\ 
2860}#))
-                                                           (cdr #{maps\ 
2860}#)))))))))
-                                           #{tmp\ 2838}#)
-                                    ((lambda (#{tmp\ 2889}#)
-                                       (if #{tmp\ 2889}#
-                                         (apply (lambda (#{x\ 2892}#
-                                                         #{y\ 2893}#)
+                                                           (#{gen-map\ 13626}#
+                                                             #{x\ 13786}#
+                                                             (car #{maps\ 
13787}#))
+                                                           (cdr #{maps\ 
13787}#)))))))))
+                                           #{tmp\ 13765}#)
+                                    ((lambda (#{tmp\ 13816}#)
+                                       (if #{tmp\ 13816}#
+                                         (apply (lambda (#{x\ 13819}#
+                                                         #{y\ 13820}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 2693}#
-                                                        #{src\ 2801}#
-                                                        #{x\ 2892}#
-                                                        #{r\ 2803}#
-                                                        #{maps\ 2804}#
-                                                        #{ellipsis?\ 2805}#
-                                                        #{mod\ 2806}#))
-                                                    (lambda (#{x\ 2894}#
-                                                             #{maps\ 2895}#)
+                                                      (#{gen-syntax\ 13620}#
+                                                        #{src\ 13728}#
+                                                        #{x\ 13819}#
+                                                        #{r\ 13730}#
+                                                        #{maps\ 13731}#
+                                                        #{ellipsis?\ 13732}#
+                                                        #{mod\ 13733}#))
+                                                    (lambda (#{x\ 13821}#
+                                                             #{maps\ 13822}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 2693}#
-                                                            #{src\ 2801}#
-                                                            #{y\ 2893}#
-                                                            #{r\ 2803}#
-                                                            #{maps\ 2895}#
-                                                            #{ellipsis?\ 2805}#
-                                                            #{mod\ 2806}#))
-                                                        (lambda (#{y\ 2898}#
-                                                                 #{maps\ 
2899}#)
+                                                          (#{gen-syntax\ 
13620}#
+                                                            #{src\ 13728}#
+                                                            #{y\ 13820}#
+                                                            #{r\ 13730}#
+                                                            #{maps\ 13822}#
+                                                            #{ellipsis?\ 
13732}#
+                                                            #{mod\ 13733}#))
+                                                        (lambda (#{y\ 13825}#
+                                                                 #{maps\ 
13826}#)
                                                           (values
-                                                            (#{gen-cons\ 2701}#
-                                                              #{x\ 2894}#
-                                                              #{y\ 2898}#)
-                                                            #{maps\ 
2899}#))))))
-                                                #{tmp\ 2889}#)
-                                         ((lambda (#{tmp\ 2902}#)
-                                            (if #{tmp\ 2902}#
-                                              (apply (lambda (#{e1\ 2905}#
-                                                              #{e2\ 2906}#)
+                                                            (#{gen-cons\ 
13628}#
+                                                              #{x\ 13821}#
+                                                              #{y\ 13825}#)
+                                                            #{maps\ 
13826}#))))))
+                                                #{tmp\ 13816}#)
+                                         ((lambda (#{tmp\ 13829}#)
+                                            (if #{tmp\ 13829}#
+                                              (apply (lambda (#{e1\ 13832}#
+                                                              #{e2\ 13833}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
2693}#
-                                                             #{src\ 2801}#
-                                                             (cons #{e1\ 2905}#
-                                                                   #{e2\ 
2906}#)
-                                                             #{r\ 2803}#
-                                                             #{maps\ 2804}#
-                                                             #{ellipsis?\ 
2805}#
-                                                             #{mod\ 2806}#))
-                                                         (lambda (#{e\ 2908}#
-                                                                  #{maps\ 
2909}#)
+                                                           (#{gen-syntax\ 
13620}#
+                                                             #{src\ 13728}#
+                                                             (cons #{e1\ 
13832}#
+                                                                   #{e2\ 
13833}#)
+                                                             #{r\ 13730}#
+                                                             #{maps\ 13731}#
+                                                             #{ellipsis?\ 
13732}#
+                                                             #{mod\ 13733}#))
+                                                         (lambda (#{e\ 13835}#
+                                                                  #{maps\ 
13836}#)
                                                            (values
-                                                             (#{gen-vector\ 
2705}#
-                                                               #{e\ 2908}#)
-                                                             #{maps\ 2909}#))))
-                                                     #{tmp\ 2902}#)
-                                              ((lambda (#{_\ 2913}#)
+                                                             (#{gen-vector\ 
13632}#
+                                                               #{e\ 13835}#)
+                                                             #{maps\ 
13836}#))))
+                                                     #{tmp\ 13829}#)
+                                              ((lambda (#{_\ 13840}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 2802}#)
-                                                   #{maps\ 2804}#))
-                                               #{tmp\ 2826}#)))
+                                                         #{e\ 13729}#)
+                                                   #{maps\ 13731}#))
+                                               #{tmp\ 13753}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 2826}#
+                                            #{tmp\ 13753}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 2826}#
+                                       #{tmp\ 13753}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 2826}#
+                                  #{tmp\ 13753}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 2826}# (quote (any any)))))
-                        #{e\ 2802}#)))))
-          (lambda (#{e\ 2915}#
-                   #{r\ 2916}#
-                   #{w\ 2917}#
-                   #{s\ 2918}#
-                   #{mod\ 2919}#)
-            (let ((#{e\ 2926}#
-                    (#{source-wrap\ 293}#
-                      #{e\ 2915}#
-                      #{w\ 2917}#
-                      #{s\ 2918}#
-                      #{mod\ 2919}#)))
-              ((lambda (#{tmp\ 2927}#)
-                 ((lambda (#{tmp\ 2928}#)
-                    (if #{tmp\ 2928}#
-                      (apply (lambda (#{_\ 2931}# #{x\ 2932}#)
+                           ($sc-dispatch #{tmp\ 13753}# (quote (any any)))))
+                        #{e\ 13729}#)))))
+          (lambda (#{e\ 13842}#
+                   #{r\ 13843}#
+                   #{w\ 13844}#
+                   #{s\ 13845}#
+                   #{mod\ 13846}#)
+            (let ((#{e\ 13853}#
+                    (#{source-wrap\ 11222}#
+                      #{e\ 13842}#
+                      #{w\ 13844}#
+                      #{s\ 13845}#
+                      #{mod\ 13846}#)))
+              ((lambda (#{tmp\ 13854}#)
+                 ((lambda (#{tmp\ 13855}#)
+                    (if #{tmp\ 13855}#
+                      (apply (lambda (#{_\ 13858}# #{x\ 13859}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 2693}#
-                                     #{e\ 2926}#
-                                     #{x\ 2932}#
-                                     #{r\ 2916}#
+                                   (#{gen-syntax\ 13620}#
+                                     #{e\ 13853}#
+                                     #{x\ 13859}#
+                                     #{r\ 13843}#
                                      '()
-                                     #{ellipsis?\ 323}#
-                                     #{mod\ 2919}#))
-                                 (lambda (#{e\ 2933}# #{maps\ 2934}#)
-                                   (#{regen\ 2707}# #{e\ 2933}#))))
-                             #{tmp\ 2928}#)
-                      ((lambda (#{_\ 2938}#)
+                                     #{ellipsis?\ 11252}#
+                                     #{mod\ 13846}#))
+                                 (lambda (#{e\ 13860}# #{maps\ 13861}#)
+                                   (#{regen\ 13634}# #{e\ 13860}#))))
+                             #{tmp\ 13855}#)
+                      ((lambda (#{_\ 13865}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 2926}#))
-                       #{tmp\ 2927}#)))
-                  ($sc-dispatch #{tmp\ 2927}# (quote (any any)))))
-               #{e\ 2926}#)))))
-      (#{global-extend\ 218}#
+                           #{e\ 13853}#))
+                       #{tmp\ 13854}#)))
+                  ($sc-dispatch #{tmp\ 13854}# (quote (any any)))))
+               #{e\ 13853}#)))))
+      (#{global-extend\ 11147}#
         'core
         'lambda
-        (lambda (#{e\ 2939}#
-                 #{r\ 2940}#
-                 #{w\ 2941}#
-                 #{s\ 2942}#
-                 #{mod\ 2943}#)
-          ((lambda (#{tmp\ 2949}#)
-             ((lambda (#{tmp\ 2950}#)
-                (if #{tmp\ 2950}#
-                  (apply (lambda (#{_\ 2955}#
-                                  #{args\ 2956}#
-                                  #{e1\ 2957}#
-                                  #{e2\ 2958}#)
+        (lambda (#{e\ 13866}#
+                 #{r\ 13867}#
+                 #{w\ 13868}#
+                 #{s\ 13869}#
+                 #{mod\ 13870}#)
+          ((lambda (#{tmp\ 13876}#)
+             ((lambda (#{tmp\ 13877}#)
+                (if #{tmp\ 13877}#
+                  (apply (lambda (#{_\ 13882}#
+                                  #{args\ 13883}#
+                                  #{e1\ 13884}#
+                                  #{e2\ 13885}#)
                            (call-with-values
                              (lambda ()
-                               (#{lambda-formals\ 325}# #{args\ 2956}#))
-                             (lambda (#{req\ 2959}#
-                                      #{opt\ 2960}#
-                                      #{rest\ 2961}#
-                                      #{kw\ 2962}#)
-                               (letrec ((#{lp\ 2970}#
-                                          (lambda (#{body\ 2971}#
-                                                   #{meta\ 2972}#)
-                                            ((lambda (#{tmp\ 2974}#)
-                                               ((lambda (#{tmp\ 2975}#)
-                                                  (if (if #{tmp\ 2975}#
-                                                        (apply (lambda 
(#{docstring\ 2979}#
-                                                                        #{e1\ 
2980}#
-                                                                        #{e2\ 
2981}#)
+                               (#{lambda-formals\ 11254}# #{args\ 13883}#))
+                             (lambda (#{req\ 13886}#
+                                      #{opt\ 13887}#
+                                      #{rest\ 13888}#
+                                      #{kw\ 13889}#)
+                               (letrec ((#{lp\ 13897}#
+                                          (lambda (#{body\ 13898}#
+                                                   #{meta\ 13899}#)
+                                            ((lambda (#{tmp\ 13901}#)
+                                               ((lambda (#{tmp\ 13902}#)
+                                                  (if (if #{tmp\ 13902}#
+                                                        (apply (lambda 
(#{docstring\ 13906}#
+                                                                        #{e1\ 
13907}#
+                                                                        #{e2\ 
13908}#)
                                                                  (string?
                                                                    
(syntax->datum
-                                                                     
#{docstring\ 2979}#)))
-                                                               #{tmp\ 2975}#)
+                                                                     
#{docstring\ 13906}#)))
+                                                               #{tmp\ 13902}#)
                                                         #f)
-                                                    (apply (lambda 
(#{docstring\ 2985}#
-                                                                    #{e1\ 
2986}#
-                                                                    #{e2\ 
2987}#)
-                                                             (#{lp\ 2970}#
-                                                               (cons #{e1\ 
2986}#
-                                                                     #{e2\ 
2987}#)
+                                                    (apply (lambda 
(#{docstring\ 13912}#
+                                                                    #{e1\ 
13913}#
+                                                                    #{e2\ 
13914}#)
+                                                             (#{lp\ 13897}#
+                                                               (cons #{e1\ 
13913}#
+                                                                     #{e2\ 
13914}#)
                                                                (append
-                                                                 #{meta\ 2972}#
+                                                                 #{meta\ 
13899}#
                                                                  (list (cons 
'documentation
                                                                              
(syntax->datum
-                                                                               
#{docstring\ 2985}#))))))
-                                                           #{tmp\ 2975}#)
-                                                    ((lambda (#{tmp\ 2990}#)
-                                                       (if #{tmp\ 2990}#
-                                                         (apply (lambda (#{k\ 
2995}#
-                                                                         #{v\ 
2996}#
-                                                                         #{e1\ 
2997}#
-                                                                         #{e2\ 
2998}#)
-                                                                  (#{lp\ 2970}#
-                                                                    (cons 
#{e1\ 2997}#
-                                                                          
#{e2\ 2998}#)
+                                                                               
#{docstring\ 13912}#))))))
+                                                           #{tmp\ 13902}#)
+                                                    ((lambda (#{tmp\ 13917}#)
+                                                       (if #{tmp\ 13917}#
+                                                         (apply (lambda (#{k\ 
13922}#
+                                                                         #{v\ 
13923}#
+                                                                         #{e1\ 
13924}#
+                                                                         #{e2\ 
13925}#)
+                                                                  (#{lp\ 
13897}#
+                                                                    (cons 
#{e1\ 13924}#
+                                                                          
#{e2\ 13925}#)
                                                                     (append
-                                                                      #{meta\ 
2972}#
+                                                                      #{meta\ 
13899}#
                                                                       
(syntax->datum
                                                                         (map 
cons
-                                                                             
#{k\ 2995}#
-                                                                             
#{v\ 2996}#)))))
-                                                                #{tmp\ 2990}#)
-                                                         ((lambda (#{_\ 3003}#)
-                                                            
(#{chi-simple-lambda\ 327}#
-                                                              #{e\ 2939}#
-                                                              #{r\ 2940}#
-                                                              #{w\ 2941}#
-                                                              #{s\ 2942}#
-                                                              #{mod\ 2943}#
-                                                              #{req\ 2959}#
-                                                              #{rest\ 2961}#
-                                                              #{meta\ 2972}#
-                                                              #{body\ 2971}#))
-                                                          #{tmp\ 2974}#)))
+                                                                             
#{k\ 13922}#
+                                                                             
#{v\ 13923}#)))))
+                                                                #{tmp\ 13917}#)
+                                                         ((lambda (#{_\ 
13930}#)
+                                                            
(#{chi-simple-lambda\ 11256}#
+                                                              #{e\ 13866}#
+                                                              #{r\ 13867}#
+                                                              #{w\ 13868}#
+                                                              #{s\ 13869}#
+                                                              #{mod\ 13870}#
+                                                              #{req\ 13886}#
+                                                              #{rest\ 13888}#
+                                                              #{meta\ 13899}#
+                                                              #{body\ 13898}#))
+                                                          #{tmp\ 13901}#)))
                                                      ($sc-dispatch
-                                                       #{tmp\ 2974}#
+                                                       #{tmp\ 13901}#
                                                        '(#(vector
                                                            #(each (any . any)))
                                                          any
                                                          .
                                                          each-any)))))
                                                 ($sc-dispatch
-                                                  #{tmp\ 2974}#
+                                                  #{tmp\ 13901}#
                                                   '(any any . each-any))))
-                                             #{body\ 2971}#))))
-                                 (#{lp\ 2970}#
-                                   (cons #{e1\ 2957}# #{e2\ 2958}#)
+                                             #{body\ 13898}#))))
+                                 (#{lp\ 13897}#
+                                   (cons #{e1\ 13884}# #{e2\ 13885}#)
                                    '())))))
-                         #{tmp\ 2950}#)
-                  ((lambda (#{_\ 3005}#)
+                         #{tmp\ 13877}#)
+                  ((lambda (#{_\ 13932}#)
                      (syntax-violation
                        'lambda
                        "bad lambda"
-                       #{e\ 2939}#))
-                   #{tmp\ 2949}#)))
+                       #{e\ 13866}#))
+                   #{tmp\ 13876}#)))
               ($sc-dispatch
-                #{tmp\ 2949}#
+                #{tmp\ 13876}#
                 '(any any any . each-any))))
-           #{e\ 2939}#)))
-      (#{global-extend\ 218}#
+           #{e\ 13866}#)))
+      (#{global-extend\ 11147}#
         'core
         'lambda*
-        (lambda (#{e\ 3006}#
-                 #{r\ 3007}#
-                 #{w\ 3008}#
-                 #{s\ 3009}#
-                 #{mod\ 3010}#)
-          ((lambda (#{tmp\ 3016}#)
-             ((lambda (#{tmp\ 3017}#)
-                (if #{tmp\ 3017}#
-                  (apply (lambda (#{_\ 3022}#
-                                  #{args\ 3023}#
-                                  #{e1\ 3024}#
-                                  #{e2\ 3025}#)
+        (lambda (#{e\ 13933}#
+                 #{r\ 13934}#
+                 #{w\ 13935}#
+                 #{s\ 13936}#
+                 #{mod\ 13937}#)
+          ((lambda (#{tmp\ 13943}#)
+             ((lambda (#{tmp\ 13944}#)
+                (if #{tmp\ 13944}#
+                  (apply (lambda (#{_\ 13949}#
+                                  #{args\ 13950}#
+                                  #{e1\ 13951}#
+                                  #{e2\ 13952}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 331}#
-                                 #{e\ 3006}#
-                                 #{r\ 3007}#
-                                 #{w\ 3008}#
-                                 #{s\ 3009}#
-                                 #{mod\ 3010}#
-                                 #{lambda*-formals\ 329}#
-                                 (list (cons #{args\ 3023}#
-                                             (cons #{e1\ 3024}#
-                                                   #{e2\ 3025}#)))))
-                             (lambda (#{meta\ 3027}# #{lcase\ 3028}#)
-                               (#{build-case-lambda\ 166}#
-                                 #{s\ 3009}#
-                                 #{meta\ 3027}#
-                                 #{lcase\ 3028}#))))
-                         #{tmp\ 3017}#)
-                  ((lambda (#{_\ 3032}#)
+                               (#{chi-lambda-case\ 11260}#
+                                 #{e\ 13933}#
+                                 #{r\ 13934}#
+                                 #{w\ 13935}#
+                                 #{s\ 13936}#
+                                 #{mod\ 13937}#
+                                 #{lambda*-formals\ 11258}#
+                                 (list (cons #{args\ 13950}#
+                                             (cons #{e1\ 13951}#
+                                                   #{e2\ 13952}#)))))
+                             (lambda (#{meta\ 13954}# #{lcase\ 13955}#)
+                               (#{build-case-lambda\ 11095}#
+                                 #{s\ 13936}#
+                                 #{meta\ 13954}#
+                                 #{lcase\ 13955}#))))
+                         #{tmp\ 13944}#)
+                  ((lambda (#{_\ 13959}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 3006}#))
-                   #{tmp\ 3016}#)))
+                       #{e\ 13933}#))
+                   #{tmp\ 13943}#)))
               ($sc-dispatch
-                #{tmp\ 3016}#
+                #{tmp\ 13943}#
                 '(any any any . each-any))))
-           #{e\ 3006}#)))
-      (#{global-extend\ 218}#
+           #{e\ 13933}#)))
+      (#{global-extend\ 11147}#
         'core
         'case-lambda
-        (lambda (#{e\ 3033}#
-                 #{r\ 3034}#
-                 #{w\ 3035}#
-                 #{s\ 3036}#
-                 #{mod\ 3037}#)
-          ((lambda (#{tmp\ 3043}#)
-             ((lambda (#{tmp\ 3044}#)
-                (if #{tmp\ 3044}#
-                  (apply (lambda (#{_\ 3052}#
-                                  #{args\ 3053}#
-                                  #{e1\ 3054}#
-                                  #{e2\ 3055}#
-                                  #{args*\ 3056}#
-                                  #{e1*\ 3057}#
-                                  #{e2*\ 3058}#)
+        (lambda (#{e\ 13960}#
+                 #{r\ 13961}#
+                 #{w\ 13962}#
+                 #{s\ 13963}#
+                 #{mod\ 13964}#)
+          ((lambda (#{tmp\ 13970}#)
+             ((lambda (#{tmp\ 13971}#)
+                (if #{tmp\ 13971}#
+                  (apply (lambda (#{_\ 13979}#
+                                  #{args\ 13980}#
+                                  #{e1\ 13981}#
+                                  #{e2\ 13982}#
+                                  #{args*\ 13983}#
+                                  #{e1*\ 13984}#
+                                  #{e2*\ 13985}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 331}#
-                                 #{e\ 3033}#
-                                 #{r\ 3034}#
-                                 #{w\ 3035}#
-                                 #{s\ 3036}#
-                                 #{mod\ 3037}#
-                                 #{lambda-formals\ 325}#
-                                 (cons (cons #{args\ 3053}#
-                                             (cons #{e1\ 3054}# #{e2\ 3055}#))
-                                       (map (lambda (#{tmp\ 3062}#
-                                                     #{tmp\ 3061}#
-                                                     #{tmp\ 3060}#)
-                                              (cons #{tmp\ 3060}#
-                                                    (cons #{tmp\ 3061}#
-                                                          #{tmp\ 3062}#)))
-                                            #{e2*\ 3058}#
-                                            #{e1*\ 3057}#
-                                            #{args*\ 3056}#))))
-                             (lambda (#{meta\ 3064}# #{lcase\ 3065}#)
-                               (#{build-case-lambda\ 166}#
-                                 #{s\ 3036}#
-                                 #{meta\ 3064}#
-                                 #{lcase\ 3065}#))))
-                         #{tmp\ 3044}#)
-                  ((lambda (#{_\ 3069}#)
+                               (#{chi-lambda-case\ 11260}#
+                                 #{e\ 13960}#
+                                 #{r\ 13961}#
+                                 #{w\ 13962}#
+                                 #{s\ 13963}#
+                                 #{mod\ 13964}#
+                                 #{lambda-formals\ 11254}#
+                                 (cons (cons #{args\ 13980}#
+                                             (cons #{e1\ 13981}#
+                                                   #{e2\ 13982}#))
+                                       (map (lambda (#{tmp\ 13989}#
+                                                     #{tmp\ 13988}#
+                                                     #{tmp\ 13987}#)
+                                              (cons #{tmp\ 13987}#
+                                                    (cons #{tmp\ 13988}#
+                                                          #{tmp\ 13989}#)))
+                                            #{e2*\ 13985}#
+                                            #{e1*\ 13984}#
+                                            #{args*\ 13983}#))))
+                             (lambda (#{meta\ 13991}# #{lcase\ 13992}#)
+                               (#{build-case-lambda\ 11095}#
+                                 #{s\ 13963}#
+                                 #{meta\ 13991}#
+                                 #{lcase\ 13992}#))))
+                         #{tmp\ 13971}#)
+                  ((lambda (#{_\ 13996}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 3033}#))
-                   #{tmp\ 3043}#)))
+                       #{e\ 13960}#))
+                   #{tmp\ 13970}#)))
               ($sc-dispatch
-                #{tmp\ 3043}#
+                #{tmp\ 13970}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 3033}#)))
-      (#{global-extend\ 218}#
+           #{e\ 13960}#)))
+      (#{global-extend\ 11147}#
         'core
         'case-lambda*
-        (lambda (#{e\ 3070}#
-                 #{r\ 3071}#
-                 #{w\ 3072}#
-                 #{s\ 3073}#
-                 #{mod\ 3074}#)
-          ((lambda (#{tmp\ 3080}#)
-             ((lambda (#{tmp\ 3081}#)
-                (if #{tmp\ 3081}#
-                  (apply (lambda (#{_\ 3089}#
-                                  #{args\ 3090}#
-                                  #{e1\ 3091}#
-                                  #{e2\ 3092}#
-                                  #{args*\ 3093}#
-                                  #{e1*\ 3094}#
-                                  #{e2*\ 3095}#)
+        (lambda (#{e\ 13997}#
+                 #{r\ 13998}#
+                 #{w\ 13999}#
+                 #{s\ 14000}#
+                 #{mod\ 14001}#)
+          ((lambda (#{tmp\ 14007}#)
+             ((lambda (#{tmp\ 14008}#)
+                (if #{tmp\ 14008}#
+                  (apply (lambda (#{_\ 14016}#
+                                  #{args\ 14017}#
+                                  #{e1\ 14018}#
+                                  #{e2\ 14019}#
+                                  #{args*\ 14020}#
+                                  #{e1*\ 14021}#
+                                  #{e2*\ 14022}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 331}#
-                                 #{e\ 3070}#
-                                 #{r\ 3071}#
-                                 #{w\ 3072}#
-                                 #{s\ 3073}#
-                                 #{mod\ 3074}#
-                                 #{lambda*-formals\ 329}#
-                                 (cons (cons #{args\ 3090}#
-                                             (cons #{e1\ 3091}# #{e2\ 3092}#))
-                                       (map (lambda (#{tmp\ 3099}#
-                                                     #{tmp\ 3098}#
-                                                     #{tmp\ 3097}#)
-                                              (cons #{tmp\ 3097}#
-                                                    (cons #{tmp\ 3098}#
-                                                          #{tmp\ 3099}#)))
-                                            #{e2*\ 3095}#
-                                            #{e1*\ 3094}#
-                                            #{args*\ 3093}#))))
-                             (lambda (#{meta\ 3101}# #{lcase\ 3102}#)
-                               (#{build-case-lambda\ 166}#
-                                 #{s\ 3073}#
-                                 #{meta\ 3101}#
-                                 #{lcase\ 3102}#))))
-                         #{tmp\ 3081}#)
-                  ((lambda (#{_\ 3106}#)
+                               (#{chi-lambda-case\ 11260}#
+                                 #{e\ 13997}#
+                                 #{r\ 13998}#
+                                 #{w\ 13999}#
+                                 #{s\ 14000}#
+                                 #{mod\ 14001}#
+                                 #{lambda*-formals\ 11258}#
+                                 (cons (cons #{args\ 14017}#
+                                             (cons #{e1\ 14018}#
+                                                   #{e2\ 14019}#))
+                                       (map (lambda (#{tmp\ 14026}#
+                                                     #{tmp\ 14025}#
+                                                     #{tmp\ 14024}#)
+                                              (cons #{tmp\ 14024}#
+                                                    (cons #{tmp\ 14025}#
+                                                          #{tmp\ 14026}#)))
+                                            #{e2*\ 14022}#
+                                            #{e1*\ 14021}#
+                                            #{args*\ 14020}#))))
+                             (lambda (#{meta\ 14028}# #{lcase\ 14029}#)
+                               (#{build-case-lambda\ 11095}#
+                                 #{s\ 14000}#
+                                 #{meta\ 14028}#
+                                 #{lcase\ 14029}#))))
+                         #{tmp\ 14008}#)
+                  ((lambda (#{_\ 14033}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 3070}#))
-                   #{tmp\ 3080}#)))
+                       #{e\ 13997}#))
+                   #{tmp\ 14007}#)))
               ($sc-dispatch
-                #{tmp\ 3080}#
+                #{tmp\ 14007}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 3070}#)))
-      (#{global-extend\ 218}#
+           #{e\ 13997}#)))
+      (#{global-extend\ 11147}#
         'core
         'let
-        (letrec ((#{chi-let\ 3108}#
-                   (lambda (#{e\ 3109}#
-                            #{r\ 3110}#
-                            #{w\ 3111}#
-                            #{s\ 3112}#
-                            #{mod\ 3113}#
-                            #{constructor\ 3114}#
-                            #{ids\ 3115}#
-                            #{vals\ 3116}#
-                            #{exps\ 3117}#)
-                     (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3115}#))
+        (letrec ((#{chi-let\ 14035}#
+                   (lambda (#{e\ 14036}#
+                            #{r\ 14037}#
+                            #{w\ 14038}#
+                            #{s\ 14039}#
+                            #{mod\ 14040}#
+                            #{constructor\ 14041}#
+                            #{ids\ 14042}#
+                            #{vals\ 14043}#
+                            #{exps\ 14044}#)
+                     (if (not (#{valid-bound-ids?\ 11214}# #{ids\ 14042}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 3109}#)
-                       (let ((#{labels\ 3129}#
-                               (#{gen-labels\ 240}# #{ids\ 3115}#))
-                             (#{new-vars\ 3130}#
-                               (map #{gen-var\ 335}# #{ids\ 3115}#)))
-                         (let ((#{nw\ 3133}#
-                                 (#{make-binding-wrap\ 269}#
-                                   #{ids\ 3115}#
-                                   #{labels\ 3129}#
-                                   #{w\ 3111}#))
-                               (#{nr\ 3134}#
-                                 (#{extend-var-env\ 212}#
-                                   #{labels\ 3129}#
-                                   #{new-vars\ 3130}#
-                                   #{r\ 3110}#)))
-                           (#{constructor\ 3114}#
-                             #{s\ 3112}#
-                             (map syntax->datum #{ids\ 3115}#)
-                             #{new-vars\ 3130}#
-                             (map (lambda (#{x\ 3135}#)
-                                    (#{chi\ 307}#
-                                      #{x\ 3135}#
-                                      #{r\ 3110}#
-                                      #{w\ 3111}#
-                                      #{mod\ 3113}#))
-                                  #{vals\ 3116}#)
-                             (#{chi-body\ 315}#
-                               #{exps\ 3117}#
-                               (#{source-wrap\ 293}#
-                                 #{e\ 3109}#
-                                 #{nw\ 3133}#
-                                 #{s\ 3112}#
-                                 #{mod\ 3113}#)
-                               #{nr\ 3134}#
-                               #{nw\ 3133}#
-                               #{mod\ 3113}#))))))))
-          (lambda (#{e\ 3137}#
-                   #{r\ 3138}#
-                   #{w\ 3139}#
-                   #{s\ 3140}#
-                   #{mod\ 3141}#)
-            ((lambda (#{tmp\ 3147}#)
-               ((lambda (#{tmp\ 3148}#)
-                  (if (if #{tmp\ 3148}#
-                        (apply (lambda (#{_\ 3154}#
-                                        #{id\ 3155}#
-                                        #{val\ 3156}#
-                                        #{e1\ 3157}#
-                                        #{e2\ 3158}#)
-                                 (and-map #{id?\ 222}# #{id\ 3155}#))
-                               #{tmp\ 3148}#)
+                         #{e\ 14036}#)
+                       (let ((#{labels\ 14056}#
+                               (#{gen-labels\ 11169}# #{ids\ 14042}#))
+                             (#{new-vars\ 14057}#
+                               (map #{gen-var\ 11264}# #{ids\ 14042}#)))
+                         (let ((#{nw\ 14060}#
+                                 (#{make-binding-wrap\ 11198}#
+                                   #{ids\ 14042}#
+                                   #{labels\ 14056}#
+                                   #{w\ 14038}#))
+                               (#{nr\ 14061}#
+                                 (#{extend-var-env\ 11141}#
+                                   #{labels\ 14056}#
+                                   #{new-vars\ 14057}#
+                                   #{r\ 14037}#)))
+                           (#{constructor\ 14041}#
+                             #{s\ 14039}#
+                             (map syntax->datum #{ids\ 14042}#)
+                             #{new-vars\ 14057}#
+                             (map (lambda (#{x\ 14062}#)
+                                    (#{chi\ 11236}#
+                                      #{x\ 14062}#
+                                      #{r\ 14037}#
+                                      #{w\ 14038}#
+                                      #{mod\ 14040}#))
+                                  #{vals\ 14043}#)
+                             (#{chi-body\ 11244}#
+                               #{exps\ 14044}#
+                               (#{source-wrap\ 11222}#
+                                 #{e\ 14036}#
+                                 #{nw\ 14060}#
+                                 #{s\ 14039}#
+                                 #{mod\ 14040}#)
+                               #{nr\ 14061}#
+                               #{nw\ 14060}#
+                               #{mod\ 14040}#))))))))
+          (lambda (#{e\ 14064}#
+                   #{r\ 14065}#
+                   #{w\ 14066}#
+                   #{s\ 14067}#
+                   #{mod\ 14068}#)
+            ((lambda (#{tmp\ 14074}#)
+               ((lambda (#{tmp\ 14075}#)
+                  (if (if #{tmp\ 14075}#
+                        (apply (lambda (#{_\ 14081}#
+                                        #{id\ 14082}#
+                                        #{val\ 14083}#
+                                        #{e1\ 14084}#
+                                        #{e2\ 14085}#)
+                                 (and-map #{id?\ 11151}# #{id\ 14082}#))
+                               #{tmp\ 14075}#)
                         #f)
-                    (apply (lambda (#{_\ 3165}#
-                                    #{id\ 3166}#
-                                    #{val\ 3167}#
-                                    #{e1\ 3168}#
-                                    #{e2\ 3169}#)
-                             (#{chi-let\ 3108}#
-                               #{e\ 3137}#
-                               #{r\ 3138}#
-                               #{w\ 3139}#
-                               #{s\ 3140}#
-                               #{mod\ 3141}#
-                               #{build-let\ 176}#
-                               #{id\ 3166}#
-                               #{val\ 3167}#
-                               (cons #{e1\ 3168}# #{e2\ 3169}#)))
-                           #{tmp\ 3148}#)
-                    ((lambda (#{tmp\ 3173}#)
-                       (if (if #{tmp\ 3173}#
-                             (apply (lambda (#{_\ 3180}#
-                                             #{f\ 3181}#
-                                             #{id\ 3182}#
-                                             #{val\ 3183}#
-                                             #{e1\ 3184}#
-                                             #{e2\ 3185}#)
-                                      (if (#{id?\ 222}# #{f\ 3181}#)
-                                        (and-map #{id?\ 222}# #{id\ 3182}#)
+                    (apply (lambda (#{_\ 14092}#
+                                    #{id\ 14093}#
+                                    #{val\ 14094}#
+                                    #{e1\ 14095}#
+                                    #{e2\ 14096}#)
+                             (#{chi-let\ 14035}#
+                               #{e\ 14064}#
+                               #{r\ 14065}#
+                               #{w\ 14066}#
+                               #{s\ 14067}#
+                               #{mod\ 14068}#
+                               #{build-let\ 11105}#
+                               #{id\ 14093}#
+                               #{val\ 14094}#
+                               (cons #{e1\ 14095}# #{e2\ 14096}#)))
+                           #{tmp\ 14075}#)
+                    ((lambda (#{tmp\ 14100}#)
+                       (if (if #{tmp\ 14100}#
+                             (apply (lambda (#{_\ 14107}#
+                                             #{f\ 14108}#
+                                             #{id\ 14109}#
+                                             #{val\ 14110}#
+                                             #{e1\ 14111}#
+                                             #{e2\ 14112}#)
+                                      (if (#{id?\ 11151}# #{f\ 14108}#)
+                                        (and-map #{id?\ 11151}# #{id\ 14109}#)
                                         #f))
-                                    #{tmp\ 3173}#)
+                                    #{tmp\ 14100}#)
                              #f)
-                         (apply (lambda (#{_\ 3195}#
-                                         #{f\ 3196}#
-                                         #{id\ 3197}#
-                                         #{val\ 3198}#
-                                         #{e1\ 3199}#
-                                         #{e2\ 3200}#)
-                                  (#{chi-let\ 3108}#
-                                    #{e\ 3137}#
-                                    #{r\ 3138}#
-                                    #{w\ 3139}#
-                                    #{s\ 3140}#
-                                    #{mod\ 3141}#
-                                    #{build-named-let\ 178}#
-                                    (cons #{f\ 3196}# #{id\ 3197}#)
-                                    #{val\ 3198}#
-                                    (cons #{e1\ 3199}# #{e2\ 3200}#)))
-                                #{tmp\ 3173}#)
-                         ((lambda (#{_\ 3205}#)
+                         (apply (lambda (#{_\ 14122}#
+                                         #{f\ 14123}#
+                                         #{id\ 14124}#
+                                         #{val\ 14125}#
+                                         #{e1\ 14126}#
+                                         #{e2\ 14127}#)
+                                  (#{chi-let\ 14035}#
+                                    #{e\ 14064}#
+                                    #{r\ 14065}#
+                                    #{w\ 14066}#
+                                    #{s\ 14067}#
+                                    #{mod\ 14068}#
+                                    #{build-named-let\ 11107}#
+                                    (cons #{f\ 14123}# #{id\ 14124}#)
+                                    #{val\ 14125}#
+                                    (cons #{e1\ 14126}# #{e2\ 14127}#)))
+                                #{tmp\ 14100}#)
+                         ((lambda (#{_\ 14132}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 293}#
-                                #{e\ 3137}#
-                                #{w\ 3139}#
-                                #{s\ 3140}#
-                                #{mod\ 3141}#)))
-                          #{tmp\ 3147}#)))
+                              (#{source-wrap\ 11222}#
+                                #{e\ 14064}#
+                                #{w\ 14066}#
+                                #{s\ 14067}#
+                                #{mod\ 14068}#)))
+                          #{tmp\ 14074}#)))
                      ($sc-dispatch
-                       #{tmp\ 3147}#
+                       #{tmp\ 14074}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 3147}#
+                  #{tmp\ 14074}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 3137}#))))
-      (#{global-extend\ 218}#
+             #{e\ 14064}#))))
+      (#{global-extend\ 11147}#
         'core
         'letrec
-        (lambda (#{e\ 3206}#
-                 #{r\ 3207}#
-                 #{w\ 3208}#
-                 #{s\ 3209}#
-                 #{mod\ 3210}#)
-          ((lambda (#{tmp\ 3216}#)
-             ((lambda (#{tmp\ 3217}#)
-                (if (if #{tmp\ 3217}#
-                      (apply (lambda (#{_\ 3223}#
-                                      #{id\ 3224}#
-                                      #{val\ 3225}#
-                                      #{e1\ 3226}#
-                                      #{e2\ 3227}#)
-                               (and-map #{id?\ 222}# #{id\ 3224}#))
-                             #{tmp\ 3217}#)
+        (lambda (#{e\ 14133}#
+                 #{r\ 14134}#
+                 #{w\ 14135}#
+                 #{s\ 14136}#
+                 #{mod\ 14137}#)
+          ((lambda (#{tmp\ 14143}#)
+             ((lambda (#{tmp\ 14144}#)
+                (if (if #{tmp\ 14144}#
+                      (apply (lambda (#{_\ 14150}#
+                                      #{id\ 14151}#
+                                      #{val\ 14152}#
+                                      #{e1\ 14153}#
+                                      #{e2\ 14154}#)
+                               (and-map #{id?\ 11151}# #{id\ 14151}#))
+                             #{tmp\ 14144}#)
                       #f)
-                  (apply (lambda (#{_\ 3234}#
-                                  #{id\ 3235}#
-                                  #{val\ 3236}#
-                                  #{e1\ 3237}#
-                                  #{e2\ 3238}#)
-                           (let ((#{ids\ 3240}# #{id\ 3235}#))
-                             (if (not (#{valid-bound-ids?\ 285}#
-                                        #{ids\ 3240}#))
+                  (apply (lambda (#{_\ 14161}#
+                                  #{id\ 14162}#
+                                  #{val\ 14163}#
+                                  #{e1\ 14164}#
+                                  #{e2\ 14165}#)
+                           (let ((#{ids\ 14167}# #{id\ 14162}#))
+                             (if (not (#{valid-bound-ids?\ 11214}#
+                                        #{ids\ 14167}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 3206}#)
-                               (let ((#{labels\ 3244}#
-                                       (#{gen-labels\ 240}# #{ids\ 3240}#))
-                                     (#{new-vars\ 3245}#
-                                       (map #{gen-var\ 335}# #{ids\ 3240}#)))
-                                 (let ((#{w\ 3248}#
-                                         (#{make-binding-wrap\ 269}#
-                                           #{ids\ 3240}#
-                                           #{labels\ 3244}#
-                                           #{w\ 3208}#))
-                                       (#{r\ 3249}#
-                                         (#{extend-var-env\ 212}#
-                                           #{labels\ 3244}#
-                                           #{new-vars\ 3245}#
-                                           #{r\ 3207}#)))
-                                   (#{build-letrec\ 180}#
-                                     #{s\ 3209}#
-                                     (map syntax->datum #{ids\ 3240}#)
-                                     #{new-vars\ 3245}#
-                                     (map (lambda (#{x\ 3250}#)
-                                            (#{chi\ 307}#
-                                              #{x\ 3250}#
-                                              #{r\ 3249}#
-                                              #{w\ 3248}#
-                                              #{mod\ 3210}#))
-                                          #{val\ 3236}#)
-                                     (#{chi-body\ 315}#
-                                       (cons #{e1\ 3237}# #{e2\ 3238}#)
-                                       (#{source-wrap\ 293}#
-                                         #{e\ 3206}#
-                                         #{w\ 3248}#
-                                         #{s\ 3209}#
-                                         #{mod\ 3210}#)
-                                       #{r\ 3249}#
-                                       #{w\ 3248}#
-                                       #{mod\ 3210}#)))))))
-                         #{tmp\ 3217}#)
-                  ((lambda (#{_\ 3255}#)
+                                 #{e\ 14133}#)
+                               (let ((#{labels\ 14171}#
+                                       (#{gen-labels\ 11169}# #{ids\ 14167}#))
+                                     (#{new-vars\ 14172}#
+                                       (map #{gen-var\ 11264}#
+                                            #{ids\ 14167}#)))
+                                 (let ((#{w\ 14175}#
+                                         (#{make-binding-wrap\ 11198}#
+                                           #{ids\ 14167}#
+                                           #{labels\ 14171}#
+                                           #{w\ 14135}#))
+                                       (#{r\ 14176}#
+                                         (#{extend-var-env\ 11141}#
+                                           #{labels\ 14171}#
+                                           #{new-vars\ 14172}#
+                                           #{r\ 14134}#)))
+                                   (#{build-letrec\ 11109}#
+                                     #{s\ 14136}#
+                                     (map syntax->datum #{ids\ 14167}#)
+                                     #{new-vars\ 14172}#
+                                     (map (lambda (#{x\ 14177}#)
+                                            (#{chi\ 11236}#
+                                              #{x\ 14177}#
+                                              #{r\ 14176}#
+                                              #{w\ 14175}#
+                                              #{mod\ 14137}#))
+                                          #{val\ 14163}#)
+                                     (#{chi-body\ 11244}#
+                                       (cons #{e1\ 14164}# #{e2\ 14165}#)
+                                       (#{source-wrap\ 11222}#
+                                         #{e\ 14133}#
+                                         #{w\ 14175}#
+                                         #{s\ 14136}#
+                                         #{mod\ 14137}#)
+                                       #{r\ 14176}#
+                                       #{w\ 14175}#
+                                       #{mod\ 14137}#)))))))
+                         #{tmp\ 14144}#)
+                  ((lambda (#{_\ 14182}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 293}#
-                         #{e\ 3206}#
-                         #{w\ 3208}#
-                         #{s\ 3209}#
-                         #{mod\ 3210}#)))
-                   #{tmp\ 3216}#)))
+                       (#{source-wrap\ 11222}#
+                         #{e\ 14133}#
+                         #{w\ 14135}#
+                         #{s\ 14136}#
+                         #{mod\ 14137}#)))
+                   #{tmp\ 14143}#)))
               ($sc-dispatch
-                #{tmp\ 3216}#
+                #{tmp\ 14143}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 3206}#)))
-      (#{global-extend\ 218}#
+           #{e\ 14133}#)))
+      (#{global-extend\ 11147}#
         'core
         'set!
-        (lambda (#{e\ 3256}#
-                 #{r\ 3257}#
-                 #{w\ 3258}#
-                 #{s\ 3259}#
-                 #{mod\ 3260}#)
-          ((lambda (#{tmp\ 3266}#)
-             ((lambda (#{tmp\ 3267}#)
-                (if (if #{tmp\ 3267}#
-                      (apply (lambda (#{_\ 3271}# #{id\ 3272}# #{val\ 3273}#)
-                               (#{id?\ 222}# #{id\ 3272}#))
-                             #{tmp\ 3267}#)
+        (lambda (#{e\ 14183}#
+                 #{r\ 14184}#
+                 #{w\ 14185}#
+                 #{s\ 14186}#
+                 #{mod\ 14187}#)
+          ((lambda (#{tmp\ 14193}#)
+             ((lambda (#{tmp\ 14194}#)
+                (if (if #{tmp\ 14194}#
+                      (apply (lambda (#{_\ 14198}#
+                                      #{id\ 14199}#
+                                      #{val\ 14200}#)
+                               (#{id?\ 11151}# #{id\ 14199}#))
+                             #{tmp\ 14194}#)
                       #f)
-                  (apply (lambda (#{_\ 3277}# #{id\ 3278}# #{val\ 3279}#)
-                           (let ((#{val\ 3282}#
-                                   (#{chi\ 307}#
-                                     #{val\ 3279}#
-                                     #{r\ 3257}#
-                                     #{w\ 3258}#
-                                     #{mod\ 3260}#))
-                                 (#{n\ 3283}#
-                                   (#{id-var-name\ 279}#
-                                     #{id\ 3278}#
-                                     #{w\ 3258}#)))
-                             (let ((#{b\ 3285}#
-                                     (#{lookup\ 216}#
-                                       #{n\ 3283}#
-                                       #{r\ 3257}#
-                                       #{mod\ 3260}#)))
-                               (let ((#{atom-key\ 3288}#
-                                       (#{binding-type\ 205}# #{b\ 3285}#)))
-                                 (if (memv #{atom-key\ 3288}#
+                  (apply (lambda (#{_\ 14204}# #{id\ 14205}# #{val\ 14206}#)
+                           (let ((#{val\ 14209}#
+                                   (#{chi\ 11236}#
+                                     #{val\ 14206}#
+                                     #{r\ 14184}#
+                                     #{w\ 14185}#
+                                     #{mod\ 14187}#))
+                                 (#{n\ 14210}#
+                                   (#{id-var-name\ 11208}#
+                                     #{id\ 14205}#
+                                     #{w\ 14185}#)))
+                             (let ((#{b\ 14212}#
+                                     (#{lookup\ 11145}#
+                                       #{n\ 14210}#
+                                       #{r\ 14184}#
+                                       #{mod\ 14187}#)))
+                               (let ((#{atom-key\ 14215}#
+                                       (#{binding-type\ 11134}# #{b\ 14212}#)))
+                                 (if (memv #{atom-key\ 14215}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 152}#
-                                     #{s\ 3259}#
-                                     (syntax->datum #{id\ 3278}#)
-                                     (#{binding-value\ 207}# #{b\ 3285}#)
-                                     #{val\ 3282}#)
-                                   (if (memv #{atom-key\ 3288}#
+                                   (#{build-lexical-assignment\ 11081}#
+                                     #{s\ 14186}#
+                                     (syntax->datum #{id\ 14205}#)
+                                     (#{binding-value\ 11136}# #{b\ 14212}#)
+                                     #{val\ 14209}#)
+                                   (if (memv #{atom-key\ 14215}#
                                              '(global))
-                                     (#{build-global-assignment\ 158}#
-                                       #{s\ 3259}#
-                                       #{n\ 3283}#
-                                       #{val\ 3282}#
-                                       #{mod\ 3260}#)
-                                     (if (memv #{atom-key\ 3288}#
+                                     (#{build-global-assignment\ 11087}#
+                                       #{s\ 14186}#
+                                       #{n\ 14210}#
+                                       #{val\ 14209}#
+                                       #{mod\ 14187}#)
+                                     (if (memv #{atom-key\ 14215}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 291}#
-                                           #{id\ 3278}#
-                                           #{w\ 3258}#
-                                           #{mod\ 3260}#))
+                                         (#{wrap\ 11220}#
+                                           #{id\ 14205}#
+                                           #{w\ 14185}#
+                                           #{mod\ 14187}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 293}#
-                                           #{e\ 3256}#
-                                           #{w\ 3258}#
-                                           #{s\ 3259}#
-                                           #{mod\ 3260}#)))))))))
-                         #{tmp\ 3267}#)
-                  ((lambda (#{tmp\ 3293}#)
-                     (if #{tmp\ 3293}#
-                       (apply (lambda (#{_\ 3298}#
-                                       #{head\ 3299}#
-                                       #{tail\ 3300}#
-                                       #{val\ 3301}#)
+                                         (#{source-wrap\ 11222}#
+                                           #{e\ 14183}#
+                                           #{w\ 14185}#
+                                           #{s\ 14186}#
+                                           #{mod\ 14187}#)))))))))
+                         #{tmp\ 14194}#)
+                  ((lambda (#{tmp\ 14220}#)
+                     (if #{tmp\ 14220}#
+                       (apply (lambda (#{_\ 14225}#
+                                       #{head\ 14226}#
+                                       #{tail\ 14227}#
+                                       #{val\ 14228}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 303}#
-                                      #{head\ 3299}#
-                                      #{r\ 3257}#
+                                    (#{syntax-type\ 11232}#
+                                      #{head\ 14226}#
+                                      #{r\ 14184}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 3260}#
+                                      #{mod\ 14187}#
                                       #t))
-                                  (lambda (#{type\ 3304}#
-                                           #{value\ 3305}#
-                                           #{ee\ 3306}#
-                                           #{ww\ 3307}#
-                                           #{ss\ 3308}#
-                                           #{modmod\ 3309}#)
-                                    (if (memv #{type\ 3304}#
+                                  (lambda (#{type\ 14231}#
+                                           #{value\ 14232}#
+                                           #{ee\ 14233}#
+                                           #{ww\ 14234}#
+                                           #{ss\ 14235}#
+                                           #{modmod\ 14236}#)
+                                    (if (memv #{type\ 14231}#
                                               '(module-ref))
-                                      (let ((#{val\ 3318}#
-                                              (#{chi\ 307}#
-                                                #{val\ 3301}#
-                                                #{r\ 3257}#
-                                                #{w\ 3258}#
-                                                #{mod\ 3260}#)))
+                                      (let ((#{val\ 14245}#
+                                              (#{chi\ 11236}#
+                                                #{val\ 14228}#
+                                                #{r\ 14184}#
+                                                #{w\ 14185}#
+                                                #{mod\ 14187}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 3305}#
-                                              (cons #{head\ 3299}#
-                                                    #{tail\ 3300}#)
-                                              #{r\ 3257}#
-                                              #{w\ 3258}#))
-                                          (lambda (#{e\ 3320}#
-                                                   #{r\ 3321}#
-                                                   #{w\ 3322}#
-                                                   #{s*\ 3323}#
-                                                   #{mod\ 3324}#)
-                                            ((lambda (#{tmp\ 3330}#)
-                                               ((lambda (#{tmp\ 3331}#)
-                                                  (if (if #{tmp\ 3331}#
-                                                        (apply (lambda (#{e\ 
3333}#)
-                                                                 (#{id?\ 222}#
-                                                                   #{e\ 
3333}#))
-                                                               #{tmp\ 3331}#)
+                                            (#{value\ 14232}#
+                                              (cons #{head\ 14226}#
+                                                    #{tail\ 14227}#)
+                                              #{r\ 14184}#
+                                              #{w\ 14185}#))
+                                          (lambda (#{e\ 14247}#
+                                                   #{r\ 14248}#
+                                                   #{w\ 14249}#
+                                                   #{s*\ 14250}#
+                                                   #{mod\ 14251}#)
+                                            ((lambda (#{tmp\ 14257}#)
+                                               ((lambda (#{tmp\ 14258}#)
+                                                  (if (if #{tmp\ 14258}#
+                                                        (apply (lambda (#{e\ 
14260}#)
+                                                                 (#{id?\ 
11151}#
+                                                                   #{e\ 
14260}#))
+                                                               #{tmp\ 14258}#)
                                                         #f)
-                                                    (apply (lambda (#{e\ 
3335}#)
-                                                             
(#{build-global-assignment\ 158}#
-                                                               #{s\ 3259}#
+                                                    (apply (lambda (#{e\ 
14262}#)
+                                                             
(#{build-global-assignment\ 11087}#
+                                                               #{s\ 14186}#
                                                                (syntax->datum
-                                                                 #{e\ 3335}#)
-                                                               #{val\ 3318}#
-                                                               #{mod\ 3324}#))
-                                                           #{tmp\ 3331}#)
+                                                                 #{e\ 14262}#)
+                                                               #{val\ 14245}#
+                                                               #{mod\ 14251}#))
+                                                           #{tmp\ 14258}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression 
failed to match any pattern"
-                                                      #{tmp\ 3330}#)))
-                                                (list #{tmp\ 3330}#)))
-                                             #{e\ 3320}#))))
-                                      (#{build-application\ 144}#
-                                        #{s\ 3259}#
-                                        (#{chi\ 307}#
+                                                      #{tmp\ 14257}#)))
+                                                (list #{tmp\ 14257}#)))
+                                             #{e\ 14247}#))))
+                                      (#{build-application\ 11073}#
+                                        #{s\ 14186}#
+                                        (#{chi\ 11236}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -9431,22 +9512,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3310"
-                                                        "i3311"
-                                                        "i3312"
-                                                        "i3313"
-                                                        "i3314"
-                                                        "i3315"))
+                                                      #("i14237"
+                                                        "i14238"
+                                                        "i14239"
+                                                        "i14240"
+                                                        "i14241"
+                                                        "i14242"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3294"
-                                                        "i3295"
-                                                        "i3296"
-                                                        "i3297"))
+                                                      #("i14221"
+                                                        "i14222"
+                                                        "i14223"
+                                                        "i14224"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -9455,11 +9536,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3261"
-                                                        "i3262"
-                                                        "i3263"
-                                                        "i3264"
-                                                        "i3265"))
+                                                      #("i14188"
+                                                        "i14189"
+                                                        "i14190"
+                                                        "i14191"
+                                                        "i14192"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -9577,8 +9658,7 @@
                                                         fx=
                                                         fx-
                                                         fx+
-                                                        *mode*
-                                                        noexpand)
+                                                        *mode*)
                                                       ((top)
                                                        (top)
                                                        (top)
@@ -9695,181 +9775,181 @@
                                                        (top)
                                                        (top)
                                                        (top)
-                                                       (top)
                                                        (top))
-                                                      ("i336"
-                                                       "i334"
-                                                       "i332"
-                                                       "i330"
-                                                       "i328"
-                                                       "i326"
-                                                       "i324"
-                                                       "i322"
-                                                       "i320"
-                                                       "i318"
-                                                       "i316"
-                                                       "i314"
-                                                       "i312"
-                                                       "i310"
-                                                       "i308"
-                                                       "i306"
-                                                       "i304"
-                                                       "i302"
-                                                       "i300"
-                                                       "i298"
-                                                       "i296"
-                                                       "i294"
-                                                       "i292"
-                                                       "i290"
-                                                       "i288"
-                                                       "i286"
-                                                       "i284"
-                                                       "i282"
-                                                       "i280"
-                                                       "i278"
-                                                       "i276"
-                                                       "i274"
-                                                       "i272"
-                                                       "i270"
-                                                       "i268"
-                                                       "i266"
-                                                       "i265"
-                                                       "i264"
-                                                       "i262"
-                                                       "i261"
-                                                       "i260"
-                                                       "i259"
-                                                       "i258"
-                                                       "i256"
-                                                       "i254"
-                                                       "i252"
-                                                       "i250"
-                                                       "i248"
-                                                       "i246"
-                                                       "i244"
-                                                       "i242"
-                                                       "i239"
-                                                       "i237"
-                                                       "i236"
-                                                       "i235"
-                                                       "i234"
-                                                       "i233"
-                                                       "i232"
-                                                       "i230"
-                                                       "i228"
-                                                       "i226"
-                                                       "i224"
-                                                       "i223"
-                                                       "i221"
-                                                       "i219"
-                                                       "i217"
-                                                       "i215"
-                                                       "i213"
-                                                       "i211"
-                                                       "i209"
-                                                       "i208"
-                                                       "i206"
-                                                       "i204"
-                                                       "i203"
-                                                       "i202"
-                                                       "i200"
-                                                       "i199"
-                                                       "i197"
-                                                       "i195"
-                                                       "i193"
-                                                       "i191"
-                                                       "i189"
-                                                       "i187"
-                                                       "i185"
-                                                       "i183"
-                                                       "i181"
-                                                       "i179"
-                                                       "i177"
-                                                       "i175"
-                                                       "i173"
-                                                       "i171"
-                                                       "i169"
-                                                       "i167"
-                                                       "i165"
-                                                       "i163"
-                                                       "i161"
-                                                       "i159"
-                                                       "i157"
-                                                       "i155"
-                                                       "i153"
-                                                       "i151"
-                                                       "i149"
-                                                       "i147"
-                                                       "i145"
-                                                       "i143"
-                                                       "i141"
-                                                       "i139"
-                                                       "i137"
-                                                       "i135"
-                                                       "i134"
-                                                       "i132"
-                                                       "i130"
-                                                       "i128"
-                                                       "i126"
-                                                       "i124"
-                                                       "i122"
-                                                       "i120"
-                                                       "i118"))
+                                                      ("i11265"
+                                                       "i11263"
+                                                       "i11261"
+                                                       "i11259"
+                                                       "i11257"
+                                                       "i11255"
+                                                       "i11253"
+                                                       "i11251"
+                                                       "i11249"
+                                                       "i11247"
+                                                       "i11245"
+                                                       "i11243"
+                                                       "i11241"
+                                                       "i11239"
+                                                       "i11237"
+                                                       "i11235"
+                                                       "i11233"
+                                                       "i11231"
+                                                       "i11229"
+                                                       "i11227"
+                                                       "i11225"
+                                                       "i11223"
+                                                       "i11221"
+                                                       "i11219"
+                                                       "i11217"
+                                                       "i11215"
+                                                       "i11213"
+                                                       "i11211"
+                                                       "i11209"
+                                                       "i11207"
+                                                       "i11205"
+                                                       "i11203"
+                                                       "i11201"
+                                                       "i11199"
+                                                       "i11197"
+                                                       "i11195"
+                                                       "i11194"
+                                                       "i11193"
+                                                       "i11191"
+                                                       "i11190"
+                                                       "i11189"
+                                                       "i11188"
+                                                       "i11187"
+                                                       "i11185"
+                                                       "i11183"
+                                                       "i11181"
+                                                       "i11179"
+                                                       "i11177"
+                                                       "i11175"
+                                                       "i11173"
+                                                       "i11171"
+                                                       "i11168"
+                                                       "i11166"
+                                                       "i11165"
+                                                       "i11164"
+                                                       "i11163"
+                                                       "i11162"
+                                                       "i11161"
+                                                       "i11159"
+                                                       "i11157"
+                                                       "i11155"
+                                                       "i11153"
+                                                       "i11152"
+                                                       "i11150"
+                                                       "i11148"
+                                                       "i11146"
+                                                       "i11144"
+                                                       "i11142"
+                                                       "i11140"
+                                                       "i11138"
+                                                       "i11137"
+                                                       "i11135"
+                                                       "i11133"
+                                                       "i11132"
+                                                       "i11131"
+                                                       "i11129"
+                                                       "i11128"
+                                                       "i11126"
+                                                       "i11124"
+                                                       "i11122"
+                                                       "i11120"
+                                                       "i11118"
+                                                       "i11116"
+                                                       "i11114"
+                                                       "i11112"
+                                                       "i11110"
+                                                       "i11108"
+                                                       "i11106"
+                                                       "i11104"
+                                                       "i11102"
+                                                       "i11100"
+                                                       "i11098"
+                                                       "i11096"
+                                                       "i11094"
+                                                       "i11092"
+                                                       "i11090"
+                                                       "i11088"
+                                                       "i11086"
+                                                       "i11084"
+                                                       "i11082"
+                                                       "i11080"
+                                                       "i11078"
+                                                       "i11076"
+                                                       "i11074"
+                                                       "i11072"
+                                                       "i11070"
+                                                       "i11068"
+                                                       "i11066"
+                                                       "i11064"
+                                                       "i11063"
+                                                       "i11061"
+                                                       "i11059"
+                                                       "i11057"
+                                                       "i11055"
+                                                       "i11053"
+                                                       "i11051"
+                                                       "i11049"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i21" "i19")))
+                                                      ("i10952" "i10950")))
                                                    (hygiene guile))
-                                                #{head\ 3299}#)
-                                          #{r\ 3257}#
-                                          #{w\ 3258}#
-                                          #{mod\ 3260}#)
-                                        (map (lambda (#{e\ 3337}#)
-                                               (#{chi\ 307}#
-                                                 #{e\ 3337}#
-                                                 #{r\ 3257}#
-                                                 #{w\ 3258}#
-                                                 #{mod\ 3260}#))
+                                                #{head\ 14226}#)
+                                          #{r\ 14184}#
+                                          #{w\ 14185}#
+                                          #{mod\ 14187}#)
+                                        (map (lambda (#{e\ 14264}#)
+                                               (#{chi\ 11236}#
+                                                 #{e\ 14264}#
+                                                 #{r\ 14184}#
+                                                 #{w\ 14185}#
+                                                 #{mod\ 14187}#))
                                              (append
-                                               #{tail\ 3300}#
-                                               (list #{val\ 3301}#))))))))
-                              #{tmp\ 3293}#)
-                       ((lambda (#{_\ 3341}#)
+                                               #{tail\ 14227}#
+                                               (list #{val\ 14228}#))))))))
+                              #{tmp\ 14220}#)
+                       ((lambda (#{_\ 14268}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 293}#
-                              #{e\ 3256}#
-                              #{w\ 3258}#
-                              #{s\ 3259}#
-                              #{mod\ 3260}#)))
-                        #{tmp\ 3266}#)))
+                            (#{source-wrap\ 11222}#
+                              #{e\ 14183}#
+                              #{w\ 14185}#
+                              #{s\ 14186}#
+                              #{mod\ 14187}#)))
+                        #{tmp\ 14193}#)))
                    ($sc-dispatch
-                     #{tmp\ 3266}#
+                     #{tmp\ 14193}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 3266}#
+                #{tmp\ 14193}#
                 '(any any any))))
-           #{e\ 3256}#)))
-      (#{global-extend\ 218}#
+           #{e\ 14183}#)))
+      (#{global-extend\ 11147}#
         'module-ref
         '@
-        (lambda (#{e\ 3342}# #{r\ 3343}# #{w\ 3344}#)
-          ((lambda (#{tmp\ 3348}#)
-             ((lambda (#{tmp\ 3349}#)
-                (if (if #{tmp\ 3349}#
-                      (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#)
-                               (if (and-map #{id?\ 222}# #{mod\ 3354}#)
-                                 (#{id?\ 222}# #{id\ 3355}#)
+        (lambda (#{e\ 14269}# #{r\ 14270}# #{w\ 14271}#)
+          ((lambda (#{tmp\ 14275}#)
+             ((lambda (#{tmp\ 14276}#)
+                (if (if #{tmp\ 14276}#
+                      (apply (lambda (#{_\ 14280}#
+                                      #{mod\ 14281}#
+                                      #{id\ 14282}#)
+                               (if (and-map #{id?\ 11151}# #{mod\ 14281}#)
+                                 (#{id?\ 11151}# #{id\ 14282}#)
                                  #f))
-                             #{tmp\ 3349}#)
+                             #{tmp\ 14276}#)
                       #f)
-                  (apply (lambda (#{_\ 3362}# #{mod\ 3363}# #{id\ 3364}#)
+                  (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#)
                            (values
-                             (syntax->datum #{id\ 3364}#)
-                             #{r\ 3343}#
-                             #{w\ 3344}#
+                             (syntax->datum #{id\ 14291}#)
+                             #{r\ 14270}#
+                             #{w\ 14271}#
                              #f
                              (syntax->datum
                                (cons '#(syntax-object
@@ -9878,12 +9958,12 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i3359" "i3360" "i3361"))
+                                           #("i14286" "i14287" "i14288"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(e r w)
                                            #((top) (top) (top))
-                                           #("i3345" "i3346" "i3347"))
+                                           #("i14272" "i14273" "i14274"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10001,8 +10081,7 @@
                                              fx=
                                              fx-
                                              fx+
-                                             *mode*
-                                             noexpand)
+                                             *mode*)
                                            ((top)
                                             (top)
                                             (top)
@@ -10119,196 +10198,195 @@
                                             (top)
                                             (top)
                                             (top)
-                                            (top)
                                             (top))
-                                           ("i336"
-                                            "i334"
-                                            "i332"
-                                            "i330"
-                                            "i328"
-                                            "i326"
-                                            "i324"
-                                            "i322"
-                                            "i320"
-                                            "i318"
-                                            "i316"
-                                            "i314"
-                                            "i312"
-                                            "i310"
-                                            "i308"
-                                            "i306"
-                                            "i304"
-                                            "i302"
-                                            "i300"
-                                            "i298"
-                                            "i296"
-                                            "i294"
-                                            "i292"
-                                            "i290"
-                                            "i288"
-                                            "i286"
-                                            "i284"
-                                            "i282"
-                                            "i280"
-                                            "i278"
-                                            "i276"
-                                            "i274"
-                                            "i272"
-                                            "i270"
-                                            "i268"
-                                            "i266"
-                                            "i265"
-                                            "i264"
-                                            "i262"
-                                            "i261"
-                                            "i260"
-                                            "i259"
-                                            "i258"
-                                            "i256"
-                                            "i254"
-                                            "i252"
-                                            "i250"
-                                            "i248"
-                                            "i246"
-                                            "i244"
-                                            "i242"
-                                            "i239"
-                                            "i237"
-                                            "i236"
-                                            "i235"
-                                            "i234"
-                                            "i233"
-                                            "i232"
-                                            "i230"
-                                            "i228"
-                                            "i226"
-                                            "i224"
-                                            "i223"
-                                            "i221"
-                                            "i219"
-                                            "i217"
-                                            "i215"
-                                            "i213"
-                                            "i211"
-                                            "i209"
-                                            "i208"
-                                            "i206"
-                                            "i204"
-                                            "i203"
-                                            "i202"
-                                            "i200"
-                                            "i199"
-                                            "i197"
-                                            "i195"
-                                            "i193"
-                                            "i191"
-                                            "i189"
-                                            "i187"
-                                            "i185"
-                                            "i183"
-                                            "i181"
-                                            "i179"
-                                            "i177"
-                                            "i175"
-                                            "i173"
-                                            "i171"
-                                            "i169"
-                                            "i167"
-                                            "i165"
-                                            "i163"
-                                            "i161"
-                                            "i159"
-                                            "i157"
-                                            "i155"
-                                            "i153"
-                                            "i151"
-                                            "i149"
-                                            "i147"
-                                            "i145"
-                                            "i143"
-                                            "i141"
-                                            "i139"
-                                            "i137"
-                                            "i135"
-                                            "i134"
-                                            "i132"
-                                            "i130"
-                                            "i128"
-                                            "i126"
-                                            "i124"
-                                            "i122"
-                                            "i120"
-                                            "i118"))
+                                           ("i11265"
+                                            "i11263"
+                                            "i11261"
+                                            "i11259"
+                                            "i11257"
+                                            "i11255"
+                                            "i11253"
+                                            "i11251"
+                                            "i11249"
+                                            "i11247"
+                                            "i11245"
+                                            "i11243"
+                                            "i11241"
+                                            "i11239"
+                                            "i11237"
+                                            "i11235"
+                                            "i11233"
+                                            "i11231"
+                                            "i11229"
+                                            "i11227"
+                                            "i11225"
+                                            "i11223"
+                                            "i11221"
+                                            "i11219"
+                                            "i11217"
+                                            "i11215"
+                                            "i11213"
+                                            "i11211"
+                                            "i11209"
+                                            "i11207"
+                                            "i11205"
+                                            "i11203"
+                                            "i11201"
+                                            "i11199"
+                                            "i11197"
+                                            "i11195"
+                                            "i11194"
+                                            "i11193"
+                                            "i11191"
+                                            "i11190"
+                                            "i11189"
+                                            "i11188"
+                                            "i11187"
+                                            "i11185"
+                                            "i11183"
+                                            "i11181"
+                                            "i11179"
+                                            "i11177"
+                                            "i11175"
+                                            "i11173"
+                                            "i11171"
+                                            "i11168"
+                                            "i11166"
+                                            "i11165"
+                                            "i11164"
+                                            "i11163"
+                                            "i11162"
+                                            "i11161"
+                                            "i11159"
+                                            "i11157"
+                                            "i11155"
+                                            "i11153"
+                                            "i11152"
+                                            "i11150"
+                                            "i11148"
+                                            "i11146"
+                                            "i11144"
+                                            "i11142"
+                                            "i11140"
+                                            "i11138"
+                                            "i11137"
+                                            "i11135"
+                                            "i11133"
+                                            "i11132"
+                                            "i11131"
+                                            "i11129"
+                                            "i11128"
+                                            "i11126"
+                                            "i11124"
+                                            "i11122"
+                                            "i11120"
+                                            "i11118"
+                                            "i11116"
+                                            "i11114"
+                                            "i11112"
+                                            "i11110"
+                                            "i11108"
+                                            "i11106"
+                                            "i11104"
+                                            "i11102"
+                                            "i11100"
+                                            "i11098"
+                                            "i11096"
+                                            "i11094"
+                                            "i11092"
+                                            "i11090"
+                                            "i11088"
+                                            "i11086"
+                                            "i11084"
+                                            "i11082"
+                                            "i11080"
+                                            "i11078"
+                                            "i11076"
+                                            "i11074"
+                                            "i11072"
+                                            "i11070"
+                                            "i11068"
+                                            "i11066"
+                                            "i11064"
+                                            "i11063"
+                                            "i11061"
+                                            "i11059"
+                                            "i11057"
+                                            "i11055"
+                                            "i11053"
+                                            "i11051"
+                                            "i11049"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i21" "i19")))
+                                           ("i10952" "i10950")))
                                         (hygiene guile))
-                                     #{mod\ 3363}#))))
-                         #{tmp\ 3349}#)
+                                     #{mod\ 14290}#))))
+                         #{tmp\ 14276}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 3348}#)))
+                    #{tmp\ 14275}#)))
               ($sc-dispatch
-                #{tmp\ 3348}#
+                #{tmp\ 14275}#
                 '(any each-any any))))
-           #{e\ 3342}#)))
-      (#{global-extend\ 218}#
+           #{e\ 14269}#)))
+      (#{global-extend\ 11147}#
         'module-ref
         '@@
-        (lambda (#{e\ 3366}# #{r\ 3367}# #{w\ 3368}#)
-          (letrec ((#{remodulate\ 3373}#
-                     (lambda (#{x\ 3374}# #{mod\ 3375}#)
-                       (if (pair? #{x\ 3374}#)
-                         (cons (#{remodulate\ 3373}#
-                                 (car #{x\ 3374}#)
-                                 #{mod\ 3375}#)
-                               (#{remodulate\ 3373}#
-                                 (cdr #{x\ 3374}#)
-                                 #{mod\ 3375}#))
-                         (if (#{syntax-object?\ 186}# #{x\ 3374}#)
-                           (#{make-syntax-object\ 184}#
-                             (#{remodulate\ 3373}#
-                               (#{syntax-object-expression\ 188}# #{x\ 3374}#)
-                               #{mod\ 3375}#)
-                             (#{syntax-object-wrap\ 190}# #{x\ 3374}#)
-                             #{mod\ 3375}#)
-                           (if (vector? #{x\ 3374}#)
-                             (let ((#{n\ 3386}# (vector-length #{x\ 3374}#)))
-                               (let ((#{v\ 3388}# (make-vector #{n\ 3386}#)))
-                                 (letrec ((#{loop\ 3391}#
-                                            (lambda (#{i\ 3392}#)
-                                              (if (#{fx=\ 127}#
-                                                    #{i\ 3392}#
-                                                    #{n\ 3386}#)
-                                                (begin (if #f #f) #{v\ 3388}#)
+        (lambda (#{e\ 14293}# #{r\ 14294}# #{w\ 14295}#)
+          (letrec ((#{remodulate\ 14300}#
+                     (lambda (#{x\ 14301}# #{mod\ 14302}#)
+                       (if (pair? #{x\ 14301}#)
+                         (cons (#{remodulate\ 14300}#
+                                 (car #{x\ 14301}#)
+                                 #{mod\ 14302}#)
+                               (#{remodulate\ 14300}#
+                                 (cdr #{x\ 14301}#)
+                                 #{mod\ 14302}#))
+                         (if (#{syntax-object?\ 11115}# #{x\ 14301}#)
+                           (#{make-syntax-object\ 11113}#
+                             (#{remodulate\ 14300}#
+                               (#{syntax-object-expression\ 11117}#
+                                 #{x\ 14301}#)
+                               #{mod\ 14302}#)
+                             (#{syntax-object-wrap\ 11119}# #{x\ 14301}#)
+                             #{mod\ 14302}#)
+                           (if (vector? #{x\ 14301}#)
+                             (let ((#{n\ 14313}# (vector-length #{x\ 14301}#)))
+                               (let ((#{v\ 14315}# (make-vector #{n\ 14313}#)))
+                                 (letrec ((#{loop\ 14318}#
+                                            (lambda (#{i\ 14319}#)
+                                              (if (#{fx=\ 11056}#
+                                                    #{i\ 14319}#
+                                                    #{n\ 14313}#)
+                                                (begin (if #f #f) #{v\ 14315}#)
                                                 (begin
                                                   (vector-set!
-                                                    #{v\ 3388}#
-                                                    #{i\ 3392}#
-                                                    (#{remodulate\ 3373}#
+                                                    #{v\ 14315}#
+                                                    #{i\ 14319}#
+                                                    (#{remodulate\ 14300}#
                                                       (vector-ref
-                                                        #{x\ 3374}#
-                                                        #{i\ 3392}#)
-                                                      #{mod\ 3375}#))
-                                                  (#{loop\ 3391}#
-                                                    (#{fx+\ 123}#
-                                                      #{i\ 3392}#
+                                                        #{x\ 14301}#
+                                                        #{i\ 14319}#)
+                                                      #{mod\ 14302}#))
+                                                  (#{loop\ 14318}#
+                                                    (#{fx+\ 11052}#
+                                                      #{i\ 14319}#
                                                       1)))))))
-                                   (#{loop\ 3391}# 0))))
-                             #{x\ 3374}#))))))
-            ((lambda (#{tmp\ 3396}#)
-               ((lambda (#{tmp\ 3397}#)
-                  (if (if #{tmp\ 3397}#
-                        (apply (lambda (#{_\ 3401}#
-                                        #{mod\ 3402}#
-                                        #{exp\ 3403}#)
-                                 (and-map #{id?\ 222}# #{mod\ 3402}#))
-                               #{tmp\ 3397}#)
+                                   (#{loop\ 14318}# 0))))
+                             #{x\ 14301}#))))))
+            ((lambda (#{tmp\ 14323}#)
+               ((lambda (#{tmp\ 14324}#)
+                  (if (if #{tmp\ 14324}#
+                        (apply (lambda (#{_\ 14328}#
+                                        #{mod\ 14329}#
+                                        #{exp\ 14330}#)
+                                 (and-map #{id?\ 11151}# #{mod\ 14329}#))
+                               #{tmp\ 14324}#)
                         #f)
-                    (apply (lambda (#{_\ 3408}# #{mod\ 3409}# #{exp\ 3410}#)
-                             (let ((#{mod\ 3412}#
+                    (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#)
+                             (let ((#{mod\ 14339}#
                                      (syntax->datum
                                        (cons '#(syntax-object
                                                 private
@@ -10316,15 +10394,19 @@
                                                  #(ribcage
                                                    #(_ mod exp)
                                                    #((top) (top) (top))
-                                                   #("i3405" "i3406" "i3407"))
+                                                   #("i14332"
+                                                     "i14333"
+                                                     "i14334"))
                                                  #(ribcage
                                                    (remodulate)
                                                    ((top))
-                                                   ("i3372"))
+                                                   ("i14299"))
                                                  #(ribcage
                                                    #(e r w)
                                                    #((top) (top) (top))
-                                                   #("i3369" "i3370" "i3371"))
+                                                   #("i14296"
+                                                     "i14297"
+                                                     "i14298"))
                                                  #(ribcage
                                                    (lambda-var-list
                                                      gen-var
@@ -10442,8 +10524,7 @@
                                                      fx=
                                                      fx-
                                                      fx+
-                                                     *mode*
-                                                     noexpand)
+                                                     *mode*)
                                                    ((top)
                                                     (top)
                                                     (top)
@@ -10560,314 +10641,313 @@
                                                     (top)
                                                     (top)
                                                     (top)
-                                                    (top)
                                                     (top))
-                                                   ("i336"
-                                                    "i334"
-                                                    "i332"
-                                                    "i330"
-                                                    "i328"
-                                                    "i326"
-                                                    "i324"
-                                                    "i322"
-                                                    "i320"
-                                                    "i318"
-                                                    "i316"
-                                                    "i314"
-                                                    "i312"
-                                                    "i310"
-                                                    "i308"
-                                                    "i306"
-                                                    "i304"
-                                                    "i302"
-                                                    "i300"
-                                                    "i298"
-                                                    "i296"
-                                                    "i294"
-                                                    "i292"
-                                                    "i290"
-                                                    "i288"
-                                                    "i286"
-                                                    "i284"
-                                                    "i282"
-                                                    "i280"
-                                                    "i278"
-                                                    "i276"
-                                                    "i274"
-                                                    "i272"
-                                                    "i270"
-                                                    "i268"
-                                                    "i266"
-                                                    "i265"
-                                                    "i264"
-                                                    "i262"
-                                                    "i261"
-                                                    "i260"
-                                                    "i259"
-                                                    "i258"
-                                                    "i256"
-                                                    "i254"
-                                                    "i252"
-                                                    "i250"
-                                                    "i248"
-                                                    "i246"
-                                                    "i244"
-                                                    "i242"
-                                                    "i239"
-                                                    "i237"
-                                                    "i236"
-                                                    "i235"
-                                                    "i234"
-                                                    "i233"
-                                                    "i232"
-                                                    "i230"
-                                                    "i228"
-                                                    "i226"
-                                                    "i224"
-                                                    "i223"
-                                                    "i221"
-                                                    "i219"
-                                                    "i217"
-                                                    "i215"
-                                                    "i213"
-                                                    "i211"
-                                                    "i209"
-                                                    "i208"
-                                                    "i206"
-                                                    "i204"
-                                                    "i203"
-                                                    "i202"
-                                                    "i200"
-                                                    "i199"
-                                                    "i197"
-                                                    "i195"
-                                                    "i193"
-                                                    "i191"
-                                                    "i189"
-                                                    "i187"
-                                                    "i185"
-                                                    "i183"
-                                                    "i181"
-                                                    "i179"
-                                                    "i177"
-                                                    "i175"
-                                                    "i173"
-                                                    "i171"
-                                                    "i169"
-                                                    "i167"
-                                                    "i165"
-                                                    "i163"
-                                                    "i161"
-                                                    "i159"
-                                                    "i157"
-                                                    "i155"
-                                                    "i153"
-                                                    "i151"
-                                                    "i149"
-                                                    "i147"
-                                                    "i145"
-                                                    "i143"
-                                                    "i141"
-                                                    "i139"
-                                                    "i137"
-                                                    "i135"
-                                                    "i134"
-                                                    "i132"
-                                                    "i130"
-                                                    "i128"
-                                                    "i126"
-                                                    "i124"
-                                                    "i122"
-                                                    "i120"
-                                                    "i118"))
+                                                   ("i11265"
+                                                    "i11263"
+                                                    "i11261"
+                                                    "i11259"
+                                                    "i11257"
+                                                    "i11255"
+                                                    "i11253"
+                                                    "i11251"
+                                                    "i11249"
+                                                    "i11247"
+                                                    "i11245"
+                                                    "i11243"
+                                                    "i11241"
+                                                    "i11239"
+                                                    "i11237"
+                                                    "i11235"
+                                                    "i11233"
+                                                    "i11231"
+                                                    "i11229"
+                                                    "i11227"
+                                                    "i11225"
+                                                    "i11223"
+                                                    "i11221"
+                                                    "i11219"
+                                                    "i11217"
+                                                    "i11215"
+                                                    "i11213"
+                                                    "i11211"
+                                                    "i11209"
+                                                    "i11207"
+                                                    "i11205"
+                                                    "i11203"
+                                                    "i11201"
+                                                    "i11199"
+                                                    "i11197"
+                                                    "i11195"
+                                                    "i11194"
+                                                    "i11193"
+                                                    "i11191"
+                                                    "i11190"
+                                                    "i11189"
+                                                    "i11188"
+                                                    "i11187"
+                                                    "i11185"
+                                                    "i11183"
+                                                    "i11181"
+                                                    "i11179"
+                                                    "i11177"
+                                                    "i11175"
+                                                    "i11173"
+                                                    "i11171"
+                                                    "i11168"
+                                                    "i11166"
+                                                    "i11165"
+                                                    "i11164"
+                                                    "i11163"
+                                                    "i11162"
+                                                    "i11161"
+                                                    "i11159"
+                                                    "i11157"
+                                                    "i11155"
+                                                    "i11153"
+                                                    "i11152"
+                                                    "i11150"
+                                                    "i11148"
+                                                    "i11146"
+                                                    "i11144"
+                                                    "i11142"
+                                                    "i11140"
+                                                    "i11138"
+                                                    "i11137"
+                                                    "i11135"
+                                                    "i11133"
+                                                    "i11132"
+                                                    "i11131"
+                                                    "i11129"
+                                                    "i11128"
+                                                    "i11126"
+                                                    "i11124"
+                                                    "i11122"
+                                                    "i11120"
+                                                    "i11118"
+                                                    "i11116"
+                                                    "i11114"
+                                                    "i11112"
+                                                    "i11110"
+                                                    "i11108"
+                                                    "i11106"
+                                                    "i11104"
+                                                    "i11102"
+                                                    "i11100"
+                                                    "i11098"
+                                                    "i11096"
+                                                    "i11094"
+                                                    "i11092"
+                                                    "i11090"
+                                                    "i11088"
+                                                    "i11086"
+                                                    "i11084"
+                                                    "i11082"
+                                                    "i11080"
+                                                    "i11078"
+                                                    "i11076"
+                                                    "i11074"
+                                                    "i11072"
+                                                    "i11070"
+                                                    "i11068"
+                                                    "i11066"
+                                                    "i11064"
+                                                    "i11063"
+                                                    "i11061"
+                                                    "i11059"
+                                                    "i11057"
+                                                    "i11055"
+                                                    "i11053"
+                                                    "i11051"
+                                                    "i11049"))
                                                  #(ribcage
                                                    (define-structure and-map*)
                                                    ((top) (top))
-                                                   ("i21" "i19")))
+                                                   ("i10952" "i10950")))
                                                 (hygiene guile))
-                                             #{mod\ 3409}#))))
+                                             #{mod\ 14336}#))))
                                (values
-                                 (#{remodulate\ 3373}#
-                                   #{exp\ 3410}#
-                                   #{mod\ 3412}#)
-                                 #{r\ 3367}#
-                                 #{w\ 3368}#
-                                 (#{source-annotation\ 201}# #{exp\ 3410}#)
-                                 #{mod\ 3412}#)))
-                           #{tmp\ 3397}#)
+                                 (#{remodulate\ 14300}#
+                                   #{exp\ 14337}#
+                                   #{mod\ 14339}#)
+                                 #{r\ 14294}#
+                                 #{w\ 14295}#
+                                 (#{source-annotation\ 11130}# #{exp\ 14337}#)
+                                 #{mod\ 14339}#)))
+                           #{tmp\ 14324}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 3396}#)))
+                      #{tmp\ 14323}#)))
                 ($sc-dispatch
-                  #{tmp\ 3396}#
+                  #{tmp\ 14323}#
                   '(any each-any any))))
-             #{e\ 3366}#))))
-      (#{global-extend\ 218}#
+             #{e\ 14293}#))))
+      (#{global-extend\ 11147}#
         'core
         'if
-        (lambda (#{e\ 3414}#
-                 #{r\ 3415}#
-                 #{w\ 3416}#
-                 #{s\ 3417}#
-                 #{mod\ 3418}#)
-          ((lambda (#{tmp\ 3424}#)
-             ((lambda (#{tmp\ 3425}#)
-                (if #{tmp\ 3425}#
-                  (apply (lambda (#{_\ 3429}# #{test\ 3430}# #{then\ 3431}#)
-                           (#{build-conditional\ 146}#
-                             #{s\ 3417}#
-                             (#{chi\ 307}#
-                               #{test\ 3430}#
-                               #{r\ 3415}#
-                               #{w\ 3416}#
-                               #{mod\ 3418}#)
-                             (#{chi\ 307}#
-                               #{then\ 3431}#
-                               #{r\ 3415}#
-                               #{w\ 3416}#
-                               #{mod\ 3418}#)
-                             (#{build-void\ 142}# #f)))
-                         #{tmp\ 3425}#)
-                  ((lambda (#{tmp\ 3433}#)
-                     (if #{tmp\ 3433}#
-                       (apply (lambda (#{_\ 3438}#
-                                       #{test\ 3439}#
-                                       #{then\ 3440}#
-                                       #{else\ 3441}#)
-                                (#{build-conditional\ 146}#
-                                  #{s\ 3417}#
-                                  (#{chi\ 307}#
-                                    #{test\ 3439}#
-                                    #{r\ 3415}#
-                                    #{w\ 3416}#
-                                    #{mod\ 3418}#)
-                                  (#{chi\ 307}#
-                                    #{then\ 3440}#
-                                    #{r\ 3415}#
-                                    #{w\ 3416}#
-                                    #{mod\ 3418}#)
-                                  (#{chi\ 307}#
-                                    #{else\ 3441}#
-                                    #{r\ 3415}#
-                                    #{w\ 3416}#
-                                    #{mod\ 3418}#)))
-                              #{tmp\ 3433}#)
+        (lambda (#{e\ 14341}#
+                 #{r\ 14342}#
+                 #{w\ 14343}#
+                 #{s\ 14344}#
+                 #{mod\ 14345}#)
+          ((lambda (#{tmp\ 14351}#)
+             ((lambda (#{tmp\ 14352}#)
+                (if #{tmp\ 14352}#
+                  (apply (lambda (#{_\ 14356}# #{test\ 14357}# #{then\ 14358}#)
+                           (#{build-conditional\ 11075}#
+                             #{s\ 14344}#
+                             (#{chi\ 11236}#
+                               #{test\ 14357}#
+                               #{r\ 14342}#
+                               #{w\ 14343}#
+                               #{mod\ 14345}#)
+                             (#{chi\ 11236}#
+                               #{then\ 14358}#
+                               #{r\ 14342}#
+                               #{w\ 14343}#
+                               #{mod\ 14345}#)
+                             (#{build-void\ 11071}# #f)))
+                         #{tmp\ 14352}#)
+                  ((lambda (#{tmp\ 14360}#)
+                     (if #{tmp\ 14360}#
+                       (apply (lambda (#{_\ 14365}#
+                                       #{test\ 14366}#
+                                       #{then\ 14367}#
+                                       #{else\ 14368}#)
+                                (#{build-conditional\ 11075}#
+                                  #{s\ 14344}#
+                                  (#{chi\ 11236}#
+                                    #{test\ 14366}#
+                                    #{r\ 14342}#
+                                    #{w\ 14343}#
+                                    #{mod\ 14345}#)
+                                  (#{chi\ 11236}#
+                                    #{then\ 14367}#
+                                    #{r\ 14342}#
+                                    #{w\ 14343}#
+                                    #{mod\ 14345}#)
+                                  (#{chi\ 11236}#
+                                    #{else\ 14368}#
+                                    #{r\ 14342}#
+                                    #{w\ 14343}#
+                                    #{mod\ 14345}#)))
+                              #{tmp\ 14360}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 3424}#)))
+                         #{tmp\ 14351}#)))
                    ($sc-dispatch
-                     #{tmp\ 3424}#
+                     #{tmp\ 14351}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 3424}#
+                #{tmp\ 14351}#
                 '(any any any))))
-           #{e\ 3414}#)))
-      (#{global-extend\ 218}#
+           #{e\ 14341}#)))
+      (#{global-extend\ 11147}#
         'core
         'with-fluids
-        (lambda (#{e\ 3442}#
-                 #{r\ 3443}#
-                 #{w\ 3444}#
-                 #{s\ 3445}#
-                 #{mod\ 3446}#)
-          ((lambda (#{tmp\ 3452}#)
-             ((lambda (#{tmp\ 3453}#)
-                (if #{tmp\ 3453}#
-                  (apply (lambda (#{_\ 3459}#
-                                  #{fluid\ 3460}#
-                                  #{val\ 3461}#
-                                  #{b\ 3462}#
-                                  #{b*\ 3463}#)
-                           (#{build-dynlet\ 148}#
-                             #{s\ 3445}#
-                             (map (lambda (#{x\ 3464}#)
-                                    (#{chi\ 307}#
-                                      #{x\ 3464}#
-                                      #{r\ 3443}#
-                                      #{w\ 3444}#
-                                      #{mod\ 3446}#))
-                                  #{fluid\ 3460}#)
-                             (map (lambda (#{x\ 3467}#)
-                                    (#{chi\ 307}#
-                                      #{x\ 3467}#
-                                      #{r\ 3443}#
-                                      #{w\ 3444}#
-                                      #{mod\ 3446}#))
-                                  #{val\ 3461}#)
-                             (#{chi-body\ 315}#
-                               (cons #{b\ 3462}# #{b*\ 3463}#)
-                               (#{source-wrap\ 293}#
-                                 #{e\ 3442}#
-                                 #{w\ 3444}#
-                                 #{s\ 3445}#
-                                 #{mod\ 3446}#)
-                               #{r\ 3443}#
-                               #{w\ 3444}#
-                               #{mod\ 3446}#)))
-                         #{tmp\ 3453}#)
+        (lambda (#{e\ 14369}#
+                 #{r\ 14370}#
+                 #{w\ 14371}#
+                 #{s\ 14372}#
+                 #{mod\ 14373}#)
+          ((lambda (#{tmp\ 14379}#)
+             ((lambda (#{tmp\ 14380}#)
+                (if #{tmp\ 14380}#
+                  (apply (lambda (#{_\ 14386}#
+                                  #{fluid\ 14387}#
+                                  #{val\ 14388}#
+                                  #{b\ 14389}#
+                                  #{b*\ 14390}#)
+                           (#{build-dynlet\ 11077}#
+                             #{s\ 14372}#
+                             (map (lambda (#{x\ 14391}#)
+                                    (#{chi\ 11236}#
+                                      #{x\ 14391}#
+                                      #{r\ 14370}#
+                                      #{w\ 14371}#
+                                      #{mod\ 14373}#))
+                                  #{fluid\ 14387}#)
+                             (map (lambda (#{x\ 14394}#)
+                                    (#{chi\ 11236}#
+                                      #{x\ 14394}#
+                                      #{r\ 14370}#
+                                      #{w\ 14371}#
+                                      #{mod\ 14373}#))
+                                  #{val\ 14388}#)
+                             (#{chi-body\ 11244}#
+                               (cons #{b\ 14389}# #{b*\ 14390}#)
+                               (#{source-wrap\ 11222}#
+                                 #{e\ 14369}#
+                                 #{w\ 14371}#
+                                 #{s\ 14372}#
+                                 #{mod\ 14373}#)
+                               #{r\ 14370}#
+                               #{w\ 14371}#
+                               #{mod\ 14373}#)))
+                         #{tmp\ 14380}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 3452}#)))
+                    #{tmp\ 14379}#)))
               ($sc-dispatch
-                #{tmp\ 3452}#
+                #{tmp\ 14379}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 3442}#)))
-      (#{global-extend\ 218}#
+           #{e\ 14369}#)))
+      (#{global-extend\ 11147}#
         'begin
         'begin
         '())
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'define
         'define
         '())
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 218}#
+      (#{global-extend\ 11147}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 3478}#
-                   (lambda (#{x\ 3479}#
-                            #{keys\ 3480}#
-                            #{clauses\ 3481}#
-                            #{r\ 3482}#
-                            #{mod\ 3483}#)
-                     (if (null? #{clauses\ 3481}#)
-                       (#{build-application\ 144}#
+        (letrec ((#{gen-syntax-case\ 14405}#
+                   (lambda (#{x\ 14406}#
+                            #{keys\ 14407}#
+                            #{clauses\ 14408}#
+                            #{r\ 14409}#
+                            #{mod\ 14410}#)
+                     (if (null? #{clauses\ 14408}#)
+                       (#{build-application\ 11073}#
                          #f
-                         (#{build-primref\ 170}#
+                         (#{build-primref\ 11099}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 172}# #f #f)
-                               (#{build-data\ 172}#
+                         (list (#{build-data\ 11101}# #f #f)
+                               (#{build-data\ 11101}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 3479}#))
-                       ((lambda (#{tmp\ 3493}#)
-                          ((lambda (#{tmp\ 3494}#)
-                             (if #{tmp\ 3494}#
-                               (apply (lambda (#{pat\ 3497}# #{exp\ 3498}#)
-                                        (if (if (#{id?\ 222}# #{pat\ 3497}#)
+                               #{x\ 14406}#))
+                       ((lambda (#{tmp\ 14420}#)
+                          ((lambda (#{tmp\ 14421}#)
+                             (if #{tmp\ 14421}#
+                               (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#)
+                                        (if (if (#{id?\ 11151}# #{pat\ 14424}#)
                                               (and-map
-                                                (lambda (#{x\ 3501}#)
-                                                  (not (#{free-id=?\ 281}#
-                                                         #{pat\ 3497}#
-                                                         #{x\ 3501}#)))
+                                                (lambda (#{x\ 14428}#)
+                                                  (not (#{free-id=?\ 11210}#
+                                                         #{pat\ 14424}#
+                                                         #{x\ 14428}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i3495" "i3496"))
+                                                            #("i14422"
+                                                              "i14423"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -10880,11 +10960,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i3484"
-                                                              "i3485"
-                                                              "i3486"
-                                                              "i3487"
-                                                              "i3488"))
+                                                            #("i14411"
+                                                              "i14412"
+                                                              "i14413"
+                                                              "i14414"
+                                                              "i14415"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -10894,10 +10974,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i3477"
-                                                             "i3475"
-                                                             "i3473"
-                                                             "i3471"))
+                                                            ("i14404"
+                                                             "i14402"
+                                                             "i14400"
+                                                             "i14398"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -11015,8 +11095,7 @@
                                                               fx=
                                                               fx-
                                                               fx+
-                                                              *mode*
-                                                              noexpand)
+                                                              *mode*)
                                                             ((top)
                                                              (top)
                                                              (top)
@@ -11133,1027 +11212,1043 @@
                                                              (top)
                                                              (top)
                                                              (top)
-                                                             (top)
                                                              (top))
-                                                            ("i336"
-                                                             "i334"
-                                                             "i332"
-                                                             "i330"
-                                                             "i328"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i306"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i265"
-                                                             "i264"
-                                                             "i262"
-                                                             "i261"
-                                                             "i260"
-                                                             "i259"
-                                                             "i258"
-                                                             "i256"
-                                                             "i254"
-                                                             "i252"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i244"
-                                                             "i242"
-                                                             "i239"
-                                                             "i237"
-                                                             "i236"
-                                                             "i235"
-                                                             "i234"
-                                                             "i233"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i208"
-                                                             "i206"
-                                                             "i204"
-                                                             "i203"
-                                                             "i202"
-                                                             "i200"
-                                                             "i199"
-                                                             "i197"
-                                                             "i195"
-                                                             "i193"
-                                                             "i191"
-                                                             "i189"
-                                                             "i187"
-                                                             "i185"
-                                                             "i183"
-                                                             "i181"
-                                                             "i179"
-                                                             "i177"
-                                                             "i175"
-                                                             "i173"
-                                                             "i171"
-                                                             "i169"
-                                                             "i167"
-                                                             "i165"
-                                                             "i163"
-                                                             "i161"
-                                                             "i159"
-                                                             "i157"
-                                                             "i155"
-                                                             "i153"
-                                                             "i151"
-                                                             "i149"
-                                                             "i147"
-                                                             "i145"
-                                                             "i143"
-                                                             "i141"
-                                                             "i139"
-                                                             "i137"
-                                                             "i135"
-                                                             "i134"
-                                                             "i132"
-                                                             "i130"
-                                                             "i128"
-                                                             "i126"
-                                                             "i124"
-                                                             "i122"
-                                                             "i120"
-                                                             "i118"))
+                                                            ("i11265"
+                                                             "i11263"
+                                                             "i11261"
+                                                             "i11259"
+                                                             "i11257"
+                                                             "i11255"
+                                                             "i11253"
+                                                             "i11251"
+                                                             "i11249"
+                                                             "i11247"
+                                                             "i11245"
+                                                             "i11243"
+                                                             "i11241"
+                                                             "i11239"
+                                                             "i11237"
+                                                             "i11235"
+                                                             "i11233"
+                                                             "i11231"
+                                                             "i11229"
+                                                             "i11227"
+                                                             "i11225"
+                                                             "i11223"
+                                                             "i11221"
+                                                             "i11219"
+                                                             "i11217"
+                                                             "i11215"
+                                                             "i11213"
+                                                             "i11211"
+                                                             "i11209"
+                                                             "i11207"
+                                                             "i11205"
+                                                             "i11203"
+                                                             "i11201"
+                                                             "i11199"
+                                                             "i11197"
+                                                             "i11195"
+                                                             "i11194"
+                                                             "i11193"
+                                                             "i11191"
+                                                             "i11190"
+                                                             "i11189"
+                                                             "i11188"
+                                                             "i11187"
+                                                             "i11185"
+                                                             "i11183"
+                                                             "i11181"
+                                                             "i11179"
+                                                             "i11177"
+                                                             "i11175"
+                                                             "i11173"
+                                                             "i11171"
+                                                             "i11168"
+                                                             "i11166"
+                                                             "i11165"
+                                                             "i11164"
+                                                             "i11163"
+                                                             "i11162"
+                                                             "i11161"
+                                                             "i11159"
+                                                             "i11157"
+                                                             "i11155"
+                                                             "i11153"
+                                                             "i11152"
+                                                             "i11150"
+                                                             "i11148"
+                                                             "i11146"
+                                                             "i11144"
+                                                             "i11142"
+                                                             "i11140"
+                                                             "i11138"
+                                                             "i11137"
+                                                             "i11135"
+                                                             "i11133"
+                                                             "i11132"
+                                                             "i11131"
+                                                             "i11129"
+                                                             "i11128"
+                                                             "i11126"
+                                                             "i11124"
+                                                             "i11122"
+                                                             "i11120"
+                                                             "i11118"
+                                                             "i11116"
+                                                             "i11114"
+                                                             "i11112"
+                                                             "i11110"
+                                                             "i11108"
+                                                             "i11106"
+                                                             "i11104"
+                                                             "i11102"
+                                                             "i11100"
+                                                             "i11098"
+                                                             "i11096"
+                                                             "i11094"
+                                                             "i11092"
+                                                             "i11090"
+                                                             "i11088"
+                                                             "i11086"
+                                                             "i11084"
+                                                             "i11082"
+                                                             "i11080"
+                                                             "i11078"
+                                                             "i11076"
+                                                             "i11074"
+                                                             "i11072"
+                                                             "i11070"
+                                                             "i11068"
+                                                             "i11066"
+                                                             "i11064"
+                                                             "i11063"
+                                                             "i11061"
+                                                             "i11059"
+                                                             "i11057"
+                                                             "i11055"
+                                                             "i11053"
+                                                             "i11051"
+                                                             "i11049"))
                                                           #(ribcage
                                                             (define-structure
                                                               and-map*)
                                                             ((top) (top))
-                                                            ("i21" "i19")))
+                                                            ("i10952"
+                                                             "i10950")))
                                                          (hygiene guile))
-                                                      #{keys\ 3480}#))
+                                                      #{keys\ 14407}#))
                                               #f)
-                                          (let ((#{labels\ 3505}#
-                                                  (list (#{gen-label\ 238}#)))
-                                                (#{var\ 3506}#
-                                                  (#{gen-var\ 335}#
-                                                    #{pat\ 3497}#)))
-                                            (#{build-application\ 144}#
+                                          (let ((#{labels\ 14432}#
+                                                  (list (#{gen-label\ 
11167}#)))
+                                                (#{var\ 14433}#
+                                                  (#{gen-var\ 11264}#
+                                                    #{pat\ 14424}#)))
+                                            (#{build-application\ 11073}#
                                               #f
-                                              (#{build-simple-lambda\ 164}#
+                                              (#{build-simple-lambda\ 11093}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 3497}#))
+                                                        #{pat\ 14424}#))
                                                 #f
-                                                (list #{var\ 3506}#)
+                                                (list #{var\ 14433}#)
                                                 '()
-                                                (#{chi\ 307}#
-                                                  #{exp\ 3498}#
-                                                  (#{extend-env\ 210}#
-                                                    #{labels\ 3505}#
+                                                (#{chi\ 11236}#
+                                                  #{exp\ 14425}#
+                                                  (#{extend-env\ 11139}#
+                                                    #{labels\ 14432}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
3506}#
+                                                                (cons #{var\ 
14433}#
                                                                       0)))
-                                                    #{r\ 3482}#)
-                                                  (#{make-binding-wrap\ 269}#
-                                                    (list #{pat\ 3497}#)
-                                                    #{labels\ 3505}#
+                                                    #{r\ 14409}#)
+                                                  (#{make-binding-wrap\ 11198}#
+                                                    (list #{pat\ 14424}#)
+                                                    #{labels\ 14432}#
                                                     '(()))
-                                                  #{mod\ 3483}#))
-                                              (list #{x\ 3479}#)))
-                                          (#{gen-clause\ 3476}#
-                                            #{x\ 3479}#
-                                            #{keys\ 3480}#
-                                            (cdr #{clauses\ 3481}#)
-                                            #{r\ 3482}#
-                                            #{pat\ 3497}#
+                                                  #{mod\ 14410}#))
+                                              (list #{x\ 14406}#)))
+                                          (#{gen-clause\ 14403}#
+                                            #{x\ 14406}#
+                                            #{keys\ 14407}#
+                                            (cdr #{clauses\ 14408}#)
+                                            #{r\ 14409}#
+                                            #{pat\ 14424}#
                                             #t
-                                            #{exp\ 3498}#
-                                            #{mod\ 3483}#)))
-                                      #{tmp\ 3494}#)
-                               ((lambda (#{tmp\ 3512}#)
-                                  (if #{tmp\ 3512}#
-                                    (apply (lambda (#{pat\ 3516}#
-                                                    #{fender\ 3517}#
-                                                    #{exp\ 3518}#)
-                                             (#{gen-clause\ 3476}#
-                                               #{x\ 3479}#
-                                               #{keys\ 3480}#
-                                               (cdr #{clauses\ 3481}#)
-                                               #{r\ 3482}#
-                                               #{pat\ 3516}#
-                                               #{fender\ 3517}#
-                                               #{exp\ 3518}#
-                                               #{mod\ 3483}#))
-                                           #{tmp\ 3512}#)
-                                    ((lambda (#{_\ 3520}#)
+                                            #{exp\ 14425}#
+                                            #{mod\ 14410}#)))
+                                      #{tmp\ 14421}#)
+                               ((lambda (#{tmp\ 14439}#)
+                                  (if #{tmp\ 14439}#
+                                    (apply (lambda (#{pat\ 14443}#
+                                                    #{fender\ 14444}#
+                                                    #{exp\ 14445}#)
+                                             (#{gen-clause\ 14403}#
+                                               #{x\ 14406}#
+                                               #{keys\ 14407}#
+                                               (cdr #{clauses\ 14408}#)
+                                               #{r\ 14409}#
+                                               #{pat\ 14443}#
+                                               #{fender\ 14444}#
+                                               #{exp\ 14445}#
+                                               #{mod\ 14410}#))
+                                           #{tmp\ 14439}#)
+                                    ((lambda (#{_\ 14447}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 3481}#)))
-                                     #{tmp\ 3493}#)))
+                                         (car #{clauses\ 14408}#)))
+                                     #{tmp\ 14420}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 3493}#
+                                  #{tmp\ 14420}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 3493}# (quote (any any)))))
-                        (car #{clauses\ 3481}#)))))
-                 (#{gen-clause\ 3476}#
-                   (lambda (#{x\ 3521}#
-                            #{keys\ 3522}#
-                            #{clauses\ 3523}#
-                            #{r\ 3524}#
-                            #{pat\ 3525}#
-                            #{fender\ 3526}#
-                            #{exp\ 3527}#
-                            #{mod\ 3528}#)
+                           ($sc-dispatch #{tmp\ 14420}# (quote (any any)))))
+                        (car #{clauses\ 14408}#)))))
+                 (#{gen-clause\ 14403}#
+                   (lambda (#{x\ 14448}#
+                            #{keys\ 14449}#
+                            #{clauses\ 14450}#
+                            #{r\ 14451}#
+                            #{pat\ 14452}#
+                            #{fender\ 14453}#
+                            #{exp\ 14454}#
+                            #{mod\ 14455}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 3472}#
-                           #{pat\ 3525}#
-                           #{keys\ 3522}#))
-                       (lambda (#{p\ 3537}# #{pvars\ 3538}#)
-                         (if (not (#{distinct-bound-ids?\ 287}#
-                                    (map car #{pvars\ 3538}#)))
+                         (#{convert-pattern\ 14399}#
+                           #{pat\ 14452}#
+                           #{keys\ 14449}#))
+                       (lambda (#{p\ 14464}# #{pvars\ 14465}#)
+                         (if (not (#{distinct-bound-ids?\ 11216}#
+                                    (map car #{pvars\ 14465}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 3525}#)
+                             #{pat\ 14452}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 3545}#)
-                                        (not (#{ellipsis?\ 323}#
-                                               (car #{x\ 3545}#))))
-                                      #{pvars\ 3538}#))
+                                      (lambda (#{x\ 14472}#)
+                                        (not (#{ellipsis?\ 11252}#
+                                               (car #{x\ 14472}#))))
+                                      #{pvars\ 14465}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 3525}#)
-                             (let ((#{y\ 3549}#
-                                     (#{gen-var\ 335}# (quote tmp))))
-                               (#{build-application\ 144}#
+                               #{pat\ 14452}#)
+                             (let ((#{y\ 14476}#
+                                     (#{gen-var\ 11264}# (quote tmp))))
+                               (#{build-application\ 11073}#
                                  #f
-                                 (#{build-simple-lambda\ 164}#
+                                 (#{build-simple-lambda\ 11093}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 3549}#)
+                                   (list #{y\ 14476}#)
                                    '()
-                                   (let ((#{y\ 3553}#
-                                           (#{build-lexical-reference\ 150}#
+                                   (let ((#{y\ 14480}#
+                                           (#{build-lexical-reference\ 11079}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 3549}#)))
-                                     (#{build-conditional\ 146}#
+                                             #{y\ 14476}#)))
+                                     (#{build-conditional\ 11075}#
                                        #f
-                                       ((lambda (#{tmp\ 3556}#)
-                                          ((lambda (#{tmp\ 3557}#)
-                                             (if #{tmp\ 3557}#
-                                               (apply (lambda () #{y\ 3553}#)
-                                                      #{tmp\ 3557}#)
-                                               ((lambda (#{_\ 3559}#)
-                                                  (#{build-conditional\ 146}#
+                                       ((lambda (#{tmp\ 14483}#)
+                                          ((lambda (#{tmp\ 14484}#)
+                                             (if #{tmp\ 14484}#
+                                               (apply (lambda () #{y\ 14480}#)
+                                                      #{tmp\ 14484}#)
+                                               ((lambda (#{_\ 14486}#)
+                                                  (#{build-conditional\ 11075}#
                                                     #f
-                                                    #{y\ 3553}#
-                                                    (#{build-dispatch-call\ 
3474}#
-                                                      #{pvars\ 3538}#
-                                                      #{fender\ 3526}#
-                                                      #{y\ 3553}#
-                                                      #{r\ 3524}#
-                                                      #{mod\ 3528}#)
-                                                    (#{build-data\ 172}#
+                                                    #{y\ 14480}#
+                                                    (#{build-dispatch-call\ 
14401}#
+                                                      #{pvars\ 14465}#
+                                                      #{fender\ 14453}#
+                                                      #{y\ 14480}#
+                                                      #{r\ 14451}#
+                                                      #{mod\ 14455}#)
+                                                    (#{build-data\ 11101}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 3556}#)))
+                                                #{tmp\ 14483}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 3556}#
+                                             #{tmp\ 14483}#
                                              '#(atom #t))))
-                                        #{fender\ 3526}#)
-                                       (#{build-dispatch-call\ 3474}#
-                                         #{pvars\ 3538}#
-                                         #{exp\ 3527}#
-                                         #{y\ 3553}#
-                                         #{r\ 3524}#
-                                         #{mod\ 3528}#)
-                                       (#{gen-syntax-case\ 3478}#
-                                         #{x\ 3521}#
-                                         #{keys\ 3522}#
-                                         #{clauses\ 3523}#
-                                         #{r\ 3524}#
-                                         #{mod\ 3528}#))))
-                                 (list (if (eq? #{p\ 3537}# (quote any))
-                                         (#{build-application\ 144}#
+                                        #{fender\ 14453}#)
+                                       (#{build-dispatch-call\ 14401}#
+                                         #{pvars\ 14465}#
+                                         #{exp\ 14454}#
+                                         #{y\ 14480}#
+                                         #{r\ 14451}#
+                                         #{mod\ 14455}#)
+                                       (#{gen-syntax-case\ 14405}#
+                                         #{x\ 14448}#
+                                         #{keys\ 14449}#
+                                         #{clauses\ 14450}#
+                                         #{r\ 14451}#
+                                         #{mod\ 14455}#))))
+                                 (list (if (eq? #{p\ 14464}# (quote any))
+                                         (#{build-application\ 11073}#
                                            #f
-                                           (#{build-primref\ 170}#
+                                           (#{build-primref\ 11099}#
                                              #f
                                              'list)
-                                           (list #{x\ 3521}#))
-                                         (#{build-application\ 144}#
+                                           (list #{x\ 14448}#))
+                                         (#{build-application\ 11073}#
                                            #f
-                                           (#{build-primref\ 170}#
+                                           (#{build-primref\ 11099}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 3521}#
-                                                 (#{build-data\ 172}#
+                                           (list #{x\ 14448}#
+                                                 (#{build-data\ 11101}#
                                                    #f
-                                                   #{p\ 3537}#)))))))))))))
-                 (#{build-dispatch-call\ 3474}#
-                   (lambda (#{pvars\ 3567}#
-                            #{exp\ 3568}#
-                            #{y\ 3569}#
-                            #{r\ 3570}#
-                            #{mod\ 3571}#)
-                     (let ((#{ids\ 3579}# (map car #{pvars\ 3567}#))
-                           (#{levels\ 3580}# (map cdr #{pvars\ 3567}#)))
-                       (let ((#{labels\ 3583}#
-                               (#{gen-labels\ 240}# #{ids\ 3579}#))
-                             (#{new-vars\ 3584}#
-                               (map #{gen-var\ 335}# #{ids\ 3579}#)))
-                         (#{build-application\ 144}#
+                                                   #{p\ 14464}#)))))))))))))
+                 (#{build-dispatch-call\ 14401}#
+                   (lambda (#{pvars\ 14494}#
+                            #{exp\ 14495}#
+                            #{y\ 14496}#
+                            #{r\ 14497}#
+                            #{mod\ 14498}#)
+                     (let ((#{ids\ 14506}# (map car #{pvars\ 14494}#))
+                           (#{levels\ 14507}# (map cdr #{pvars\ 14494}#)))
+                       (let ((#{labels\ 14510}#
+                               (#{gen-labels\ 11169}# #{ids\ 14506}#))
+                             (#{new-vars\ 14511}#
+                               (map #{gen-var\ 11264}# #{ids\ 14506}#)))
+                         (#{build-application\ 11073}#
                            #f
-                           (#{build-primref\ 170}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 164}#
+                           (#{build-primref\ 11099}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 11093}#
                                    #f
-                                   (map syntax->datum #{ids\ 3579}#)
+                                   (map syntax->datum #{ids\ 14506}#)
                                    #f
-                                   #{new-vars\ 3584}#
+                                   #{new-vars\ 14511}#
                                    '()
-                                   (#{chi\ 307}#
-                                     #{exp\ 3568}#
-                                     (#{extend-env\ 210}#
-                                       #{labels\ 3583}#
-                                       (map (lambda (#{var\ 3588}#
-                                                     #{level\ 3589}#)
+                                   (#{chi\ 11236}#
+                                     #{exp\ 14495}#
+                                     (#{extend-env\ 11139}#
+                                       #{labels\ 14510}#
+                                       (map (lambda (#{var\ 14515}#
+                                                     #{level\ 14516}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 3588}#
-                                                          #{level\ 3589}#)))
-                                            #{new-vars\ 3584}#
-                                            (map cdr #{pvars\ 3567}#))
-                                       #{r\ 3570}#)
-                                     (#{make-binding-wrap\ 269}#
-                                       #{ids\ 3579}#
-                                       #{labels\ 3583}#
+                                                    (cons #{var\ 14515}#
+                                                          #{level\ 14516}#)))
+                                            #{new-vars\ 14511}#
+                                            (map cdr #{pvars\ 14494}#))
+                                       #{r\ 14497}#)
+                                     (#{make-binding-wrap\ 11198}#
+                                       #{ids\ 14506}#
+                                       #{labels\ 14510}#
                                        '(()))
-                                     #{mod\ 3571}#))
-                                 #{y\ 3569}#))))))
-                 (#{convert-pattern\ 3472}#
-                   (lambda (#{pattern\ 3595}# #{keys\ 3596}#)
-                     (letrec ((#{cvt\ 3602}#
-                                (lambda (#{p\ 3603}# #{n\ 3604}# #{ids\ 3605}#)
-                                  (if (#{id?\ 222}# #{p\ 3603}#)
-                                    (if (#{bound-id-member?\ 289}#
-                                          #{p\ 3603}#
-                                          #{keys\ 3596}#)
+                                     #{mod\ 14498}#))
+                                 #{y\ 14496}#))))))
+                 (#{convert-pattern\ 14399}#
+                   (lambda (#{pattern\ 14522}# #{keys\ 14523}#)
+                     (letrec ((#{cvt\ 14529}#
+                                (lambda (#{p\ 14530}#
+                                         #{n\ 14531}#
+                                         #{ids\ 14532}#)
+                                  (if (#{id?\ 11151}# #{p\ 14530}#)
+                                    (if (#{bound-id-member?\ 11218}#
+                                          #{p\ 14530}#
+                                          #{keys\ 14523}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 3603}#)
-                                        #{ids\ 3605}#)
+                                        (vector (quote free-id) #{p\ 14530}#)
+                                        #{ids\ 14532}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 3603}# #{n\ 3604}#)
-                                              #{ids\ 3605}#)))
-                                    ((lambda (#{tmp\ 3609}#)
-                                       ((lambda (#{tmp\ 3610}#)
-                                          (if (if #{tmp\ 3610}#
-                                                (apply (lambda (#{x\ 3613}#
-                                                                #{dots\ 3614}#)
-                                                         (#{ellipsis?\ 323}#
-                                                           #{dots\ 3614}#))
-                                                       #{tmp\ 3610}#)
+                                        (cons (cons #{p\ 14530}# #{n\ 14531}#)
+                                              #{ids\ 14532}#)))
+                                    ((lambda (#{tmp\ 14536}#)
+                                       ((lambda (#{tmp\ 14537}#)
+                                          (if (if #{tmp\ 14537}#
+                                                (apply (lambda (#{x\ 14540}#
+                                                                #{dots\ 
14541}#)
+                                                         (#{ellipsis?\ 11252}#
+                                                           #{dots\ 14541}#))
+                                                       #{tmp\ 14537}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 3617}#
-                                                            #{dots\ 3618}#)
+                                            (apply (lambda (#{x\ 14544}#
+                                                            #{dots\ 14545}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 3602}#
-                                                           #{x\ 3617}#
-                                                           (#{fx+\ 123}#
-                                                             #{n\ 3604}#
+                                                         (#{cvt\ 14529}#
+                                                           #{x\ 14544}#
+                                                           (#{fx+\ 11052}#
+                                                             #{n\ 14531}#
                                                              1)
-                                                           #{ids\ 3605}#))
-                                                       (lambda (#{p\ 3619}#
-                                                                #{ids\ 3620}#)
+                                                           #{ids\ 14532}#))
+                                                       (lambda (#{p\ 14546}#
+                                                                #{ids\ 14547}#)
                                                          (values
-                                                           (if (eq? #{p\ 3619}#
+                                                           (if (eq? #{p\ 
14546}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 3619}#))
-                                                           #{ids\ 3620}#))))
-                                                   #{tmp\ 3610}#)
-                                            ((lambda (#{tmp\ 3623}#)
-                                               (if (if #{tmp\ 3623}#
-                                                     (apply (lambda (#{x\ 
3627}#
-                                                                     #{dots\ 
3628}#
-                                                                     #{ys\ 
3629}#)
-                                                              (#{ellipsis?\ 
323}#
-                                                                #{dots\ 
3628}#))
-                                                            #{tmp\ 3623}#)
+                                                               #{p\ 14546}#))
+                                                           #{ids\ 14547}#))))
+                                                   #{tmp\ 14537}#)
+                                            ((lambda (#{tmp\ 14550}#)
+                                               (if (if #{tmp\ 14550}#
+                                                     (apply (lambda (#{x\ 
14554}#
+                                                                     #{dots\ 
14555}#
+                                                                     #{ys\ 
14556}#)
+                                                              (#{ellipsis?\ 
11252}#
+                                                                #{dots\ 
14555}#))
+                                                            #{tmp\ 14550}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 3633}#
-                                                                 #{dots\ 3634}#
-                                                                 #{ys\ 3635}#)
+                                                 (apply (lambda (#{x\ 14560}#
+                                                                 #{dots\ 
14561}#
+                                                                 #{ys\ 14562}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 3600}#
-                                                                #{ys\ 3635}#
-                                                                #{n\ 3604}#
-                                                                #{ids\ 3605}#))
-                                                            (lambda (#{ys\ 
3637}#
-                                                                     #{ids\ 
3638}#)
+                                                              (#{cvt*\ 14527}#
+                                                                #{ys\ 14562}#
+                                                                #{n\ 14531}#
+                                                                #{ids\ 
14532}#))
+                                                            (lambda (#{ys\ 
14564}#
+                                                                     #{ids\ 
14565}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
3602}#
-                                                                    #{x\ 3633}#
-                                                                    (+ #{n\ 
3604}#
+                                                                  (#{cvt\ 
14529}#
+                                                                    #{x\ 
14560}#
+                                                                    (+ #{n\ 
14531}#
                                                                        1)
-                                                                    #{ids\ 
3638}#))
-                                                                (lambda (#{x\ 
3641}#
-                                                                         
#{ids\ 3642}#)
+                                                                    #{ids\ 
14565}#))
+                                                                (lambda (#{x\ 
14568}#
+                                                                         
#{ids\ 14569}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 3641}#
+                                                                            
(cons #{x\ 14568}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 3637}#)
+                                                                               
           #{ys\ 14564}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
3642}#))))))
-                                                        #{tmp\ 3623}#)
-                                                 ((lambda (#{tmp\ 3646}#)
-                                                    (if #{tmp\ 3646}#
-                                                      (apply (lambda (#{x\ 
3649}#
-                                                                      #{y\ 
3650}#)
+                                                                    #{ids\ 
14569}#))))))
+                                                        #{tmp\ 14550}#)
+                                                 ((lambda (#{tmp\ 14573}#)
+                                                    (if #{tmp\ 14573}#
+                                                      (apply (lambda (#{x\ 
14576}#
+                                                                      #{y\ 
14577}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
3602}#
-                                                                     #{y\ 
3650}#
-                                                                     #{n\ 
3604}#
-                                                                     #{ids\ 
3605}#))
-                                                                 (lambda (#{y\ 
3651}#
-                                                                          
#{ids\ 3652}#)
+                                                                   (#{cvt\ 
14529}#
+                                                                     #{y\ 
14577}#
+                                                                     #{n\ 
14531}#
+                                                                     #{ids\ 
14532}#))
+                                                                 (lambda (#{y\ 
14578}#
+                                                                          
#{ids\ 14579}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
3602}#
-                                                                         #{x\ 
3649}#
-                                                                         #{n\ 
3604}#
-                                                                         
#{ids\ 3652}#))
-                                                                     (lambda 
(#{x\ 3655}#
-                                                                              
#{ids\ 3656}#)
+                                                                       (#{cvt\ 
14529}#
+                                                                         #{x\ 
14576}#
+                                                                         #{n\ 
14531}#
+                                                                         
#{ids\ 14579}#))
+                                                                     (lambda 
(#{x\ 14582}#
+                                                                              
#{ids\ 14583}#)
                                                                        (values
-                                                                         (cons 
#{x\ 3655}#
-                                                                               
#{y\ 3651}#)
-                                                                         
#{ids\ 3656}#))))))
-                                                             #{tmp\ 3646}#)
-                                                      ((lambda (#{tmp\ 3659}#)
-                                                         (if #{tmp\ 3659}#
+                                                                         (cons 
#{x\ 14582}#
+                                                                               
#{y\ 14578}#)
+                                                                         
#{ids\ 14583}#))))))
+                                                             #{tmp\ 14573}#)
+                                                      ((lambda (#{tmp\ 14586}#)
+                                                         (if #{tmp\ 14586}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
3605}#))
-                                                                  #{tmp\ 
3659}#)
-                                                           ((lambda (#{tmp\ 
3660}#)
-                                                              (if #{tmp\ 3660}#
-                                                                (apply (lambda 
(#{x\ 3662}#)
+                                                                      #{ids\ 
14532}#))
+                                                                  #{tmp\ 
14586}#)
+                                                           ((lambda (#{tmp\ 
14587}#)
+                                                              (if #{tmp\ 
14587}#
+                                                                (apply (lambda 
(#{x\ 14589}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 3602}#
-                                                                               
#{x\ 3662}#
-                                                                               
#{n\ 3604}#
-                                                                               
#{ids\ 3605}#))
-                                                                           
(lambda (#{p\ 3664}#
-                                                                               
     #{ids\ 3665}#)
+                                                                             
(#{cvt\ 14529}#
+                                                                               
#{x\ 14589}#
+                                                                               
#{n\ 14531}#
+                                                                               
#{ids\ 14532}#))
+                                                                           
(lambda (#{p\ 14591}#
+                                                                               
     #{ids\ 14592}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 3664}#)
-                                                                               
#{ids\ 3665}#))))
-                                                                       #{tmp\ 
3660}#)
-                                                                ((lambda (#{x\ 
3669}#)
+                                                                               
  #{p\ 14591}#)
+                                                                               
#{ids\ 14592}#))))
+                                                                       #{tmp\ 
14587}#)
+                                                                ((lambda (#{x\ 
14596}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 333}#
-                                                                         #{p\ 
3603}#
+                                                                       
(#{strip\ 11262}#
+                                                                         #{p\ 
14530}#
                                                                          
'(())))
-                                                                     #{ids\ 
3605}#))
-                                                                 #{tmp\ 
3609}#)))
+                                                                     #{ids\ 
14532}#))
+                                                                 #{tmp\ 
14536}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 3609}#
+                                                              #{tmp\ 14536}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 3609}#
+                                                         #{tmp\ 14536}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 3609}#
+                                                    #{tmp\ 14536}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 3609}#
+                                               #{tmp\ 14536}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 3609}#
+                                          #{tmp\ 14536}#
                                           '(any any))))
-                                     #{p\ 3603}#))))
-                              (#{cvt*\ 3600}#
-                                (lambda (#{p*\ 3671}#
-                                         #{n\ 3672}#
-                                         #{ids\ 3673}#)
-                                  (if (null? #{p*\ 3671}#)
-                                    (values (quote ()) #{ids\ 3673}#)
+                                     #{p\ 14530}#))))
+                              (#{cvt*\ 14527}#
+                                (lambda (#{p*\ 14598}#
+                                         #{n\ 14599}#
+                                         #{ids\ 14600}#)
+                                  (if (null? #{p*\ 14598}#)
+                                    (values (quote ()) #{ids\ 14600}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 3600}#
-                                          (cdr #{p*\ 3671}#)
-                                          #{n\ 3672}#
-                                          #{ids\ 3673}#))
-                                      (lambda (#{y\ 3677}# #{ids\ 3678}#)
+                                        (#{cvt*\ 14527}#
+                                          (cdr #{p*\ 14598}#)
+                                          #{n\ 14599}#
+                                          #{ids\ 14600}#))
+                                      (lambda (#{y\ 14604}# #{ids\ 14605}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 3602}#
-                                              (car #{p*\ 3671}#)
-                                              #{n\ 3672}#
-                                              #{ids\ 3678}#))
-                                          (lambda (#{x\ 3681}# #{ids\ 3682}#)
+                                            (#{cvt\ 14529}#
+                                              (car #{p*\ 14598}#)
+                                              #{n\ 14599}#
+                                              #{ids\ 14605}#))
+                                          (lambda (#{x\ 14608}# #{ids\ 14609}#)
                                             (values
-                                              (cons #{x\ 3681}# #{y\ 3677}#)
-                                              #{ids\ 3682}#)))))))))
-                       (#{cvt\ 3602}# #{pattern\ 3595}# 0 (quote ()))))))
-          (lambda (#{e\ 3685}#
-                   #{r\ 3686}#
-                   #{w\ 3687}#
-                   #{s\ 3688}#
-                   #{mod\ 3689}#)
-            (let ((#{e\ 3696}#
-                    (#{source-wrap\ 293}#
-                      #{e\ 3685}#
-                      #{w\ 3687}#
-                      #{s\ 3688}#
-                      #{mod\ 3689}#)))
-              ((lambda (#{tmp\ 3697}#)
-                 ((lambda (#{tmp\ 3698}#)
-                    (if #{tmp\ 3698}#
-                      (apply (lambda (#{_\ 3703}#
-                                      #{val\ 3704}#
-                                      #{key\ 3705}#
-                                      #{m\ 3706}#)
+                                              (cons #{x\ 14608}# #{y\ 14604}#)
+                                              #{ids\ 14609}#)))))))))
+                       (#{cvt\ 14529}# #{pattern\ 14522}# 0 (quote ()))))))
+          (lambda (#{e\ 14612}#
+                   #{r\ 14613}#
+                   #{w\ 14614}#
+                   #{s\ 14615}#
+                   #{mod\ 14616}#)
+            (let ((#{e\ 14623}#
+                    (#{source-wrap\ 11222}#
+                      #{e\ 14612}#
+                      #{w\ 14614}#
+                      #{s\ 14615}#
+                      #{mod\ 14616}#)))
+              ((lambda (#{tmp\ 14624}#)
+                 ((lambda (#{tmp\ 14625}#)
+                    (if #{tmp\ 14625}#
+                      (apply (lambda (#{_\ 14630}#
+                                      #{val\ 14631}#
+                                      #{key\ 14632}#
+                                      #{m\ 14633}#)
                                (if (and-map
-                                     (lambda (#{x\ 3707}#)
-                                       (if (#{id?\ 222}# #{x\ 3707}#)
-                                         (not (#{ellipsis?\ 323}# #{x\ 3707}#))
+                                     (lambda (#{x\ 14634}#)
+                                       (if (#{id?\ 11151}# #{x\ 14634}#)
+                                         (not (#{ellipsis?\ 11252}#
+                                                #{x\ 14634}#))
                                          #f))
-                                     #{key\ 3705}#)
-                                 (let ((#{x\ 3713}#
-                                         (#{gen-var\ 335}# (quote tmp))))
-                                   (#{build-application\ 144}#
-                                     #{s\ 3688}#
-                                     (#{build-simple-lambda\ 164}#
+                                     #{key\ 14632}#)
+                                 (let ((#{x\ 14640}#
+                                         (#{gen-var\ 11264}# (quote tmp))))
+                                   (#{build-application\ 11073}#
+                                     #{s\ 14615}#
+                                     (#{build-simple-lambda\ 11093}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 3713}#)
+                                       (list #{x\ 14640}#)
                                        '()
-                                       (#{gen-syntax-case\ 3478}#
-                                         (#{build-lexical-reference\ 150}#
+                                       (#{gen-syntax-case\ 14405}#
+                                         (#{build-lexical-reference\ 11079}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 3713}#)
-                                         #{key\ 3705}#
-                                         #{m\ 3706}#
-                                         #{r\ 3686}#
-                                         #{mod\ 3689}#))
-                                     (list (#{chi\ 307}#
-                                             #{val\ 3704}#
-                                             #{r\ 3686}#
+                                           #{x\ 14640}#)
+                                         #{key\ 14632}#
+                                         #{m\ 14633}#
+                                         #{r\ 14613}#
+                                         #{mod\ 14616}#))
+                                     (list (#{chi\ 11236}#
+                                             #{val\ 14631}#
+                                             #{r\ 14613}#
                                              '(())
-                                             #{mod\ 3689}#))))
+                                             #{mod\ 14616}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 3696}#)))
-                             #{tmp\ 3698}#)
+                                   #{e\ 14623}#)))
+                             #{tmp\ 14625}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3697}#)))
+                        #{tmp\ 14624}#)))
                   ($sc-dispatch
-                    #{tmp\ 3697}#
+                    #{tmp\ 14624}#
                     '(any any each-any . each-any))))
-               #{e\ 3696}#)))))
+               #{e\ 14623}#)))))
       (set! macroexpand
-        (lambda (#{x\ 3719}# . #{rest\ 3720}#)
-          (if (if (pair? #{x\ 3719}#)
-                (equal? (car #{x\ 3719}#) #{noexpand\ 119}#)
-                #f)
-            (cadr #{x\ 3719}#)
-            (let ((#{m\ 3727}#
-                    (if (null? #{rest\ 3720}#)
-                      'e
-                      (car #{rest\ 3720}#)))
-                  (#{esew\ 3728}#
-                    (if (let ((#{t\ 3731}# (null? #{rest\ 3720}#)))
-                          (if #{t\ 3731}#
-                            #{t\ 3731}#
-                            (null? (cdr #{rest\ 3720}#))))
-                      '(eval)
-                      (cadr #{rest\ 3720}#))))
-              (with-fluids
-                ((#{*mode*\ 121}# #{m\ 3727}#))
-                (#{chi-top\ 305}#
-                  #{x\ 3719}#
+        (lambda (#{x\ 14646}# . #{rest\ 14647}#)
+          (let ((#{m\ 14653}#
+                  (if (null? #{rest\ 14647}#)
+                    'e
+                    (car #{rest\ 14647}#)))
+                (#{esew\ 14654}#
+                  (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#)))
+                        (if #{t\ 14658}#
+                          #{t\ 14658}#
+                          (null? (cdr #{rest\ 14647}#))))
+                    '(eval)
+                    (cadr #{rest\ 14647}#)))
+                (#{mod\ 14655}#
+                  (cons 'hygiene
+                        (module-name (current-module)))))
+            (with-fluids
+              ((#{*mode*\ 11050}# #{m\ 14653}#))
+              (if (eq? #{m\ 14653}# (quote e))
+                (memoize-expression
+                  (#{chi-top\ 11234}#
+                    #{x\ 14646}#
+                    '()
+                    '((top))
+                    #{m\ 14653}#
+                    #{esew\ 14654}#
+                    #{mod\ 14655}#))
+                (#{chi-top\ 11234}#
+                  #{x\ 14646}#
                   '()
                   '((top))
-                  #{m\ 3727}#
-                  #{esew\ 3728}#
-                  (cons 'hygiene
-                        (module-name (current-module)))))))))
+                  #{m\ 14653}#
+                  #{esew\ 14654}#
+                  #{mod\ 14655}#))))))
       (set! identifier?
-        (lambda (#{x\ 3735}#)
-          (#{nonsymbol-id?\ 220}# #{x\ 3735}#)))
+        (lambda (#{x\ 14664}#)
+          (#{nonsymbol-id?\ 11149}# #{x\ 14664}#)))
       (set! datum->syntax
-        (lambda (#{id\ 3737}# #{datum\ 3738}#)
-          (#{make-syntax-object\ 184}#
-            #{datum\ 3738}#
-            (#{syntax-object-wrap\ 190}# #{id\ 3737}#)
+        (lambda (#{id\ 14666}# #{datum\ 14667}#)
+          (#{make-syntax-object\ 11113}#
+            #{datum\ 14667}#
+            (#{syntax-object-wrap\ 11119}# #{id\ 14666}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 3741}#)
-          (#{strip\ 333}# #{x\ 3741}# (quote (())))))
+        (lambda (#{x\ 14670}#)
+          (#{strip\ 11262}# #{x\ 14670}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 3744}#)
+        (lambda (#{ls\ 14673}#)
           (begin
-            (let ((#{x\ 3748}# #{ls\ 3744}#))
-              (if (not (list? #{x\ 3748}#))
+            (let ((#{x\ 14677}# #{ls\ 14673}#))
+              (if (not (list? #{x\ 14677}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 3748}#)))
-            (map (lambda (#{x\ 3749}#)
-                   (#{wrap\ 291}# (gensym) (quote ((top))) #f))
-                 #{ls\ 3744}#))))
+                  #{x\ 14677}#)))
+            (map (lambda (#{x\ 14678}#)
+                   (#{wrap\ 11220}# (gensym) (quote ((top))) #f))
+                 #{ls\ 14673}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 3753}# #{y\ 3754}#)
+        (lambda (#{x\ 14682}# #{y\ 14683}#)
           (begin
-            (let ((#{x\ 3759}# #{x\ 3753}#))
-              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3759}#))
+            (let ((#{x\ 14688}# #{x\ 14682}#))
+              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 3759}#)))
-            (let ((#{x\ 3762}# #{y\ 3754}#))
-              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3762}#))
+                  #{x\ 14688}#)))
+            (let ((#{x\ 14691}# #{y\ 14683}#))
+              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 3762}#)))
-            (#{free-id=?\ 281}# #{x\ 3753}# #{y\ 3754}#))))
+                  #{x\ 14691}#)))
+            (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 3763}# #{y\ 3764}#)
+        (lambda (#{x\ 14692}# #{y\ 14693}#)
           (begin
-            (let ((#{x\ 3769}# #{x\ 3763}#))
-              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3769}#))
+            (let ((#{x\ 14698}# #{x\ 14692}#))
+              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 3769}#)))
-            (let ((#{x\ 3772}# #{y\ 3764}#))
-              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3772}#))
+                  #{x\ 14698}#)))
+            (let ((#{x\ 14701}# #{y\ 14693}#))
+              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 3772}#)))
-            (#{bound-id=?\ 283}# #{x\ 3763}# #{y\ 3764}#))))
+                  #{x\ 14701}#)))
+            (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#))))
       (set! syntax-violation
-        (lambda (#{who\ 3773}#
-                 #{message\ 3774}#
-                 #{form\ 3775}#
+        (lambda (#{who\ 14702}#
+                 #{message\ 14703}#
+                 #{form\ 14704}#
                  .
-                 #{subform\ 3776}#)
+                 #{subform\ 14705}#)
           (begin
-            (let ((#{x\ 3783}# #{who\ 3773}#))
-              (if (not ((lambda (#{x\ 3784}#)
-                          (let ((#{t\ 3788}# (not #{x\ 3784}#)))
-                            (if #{t\ 3788}#
-                              #{t\ 3788}#
-                              (let ((#{t\ 3791}# (string? #{x\ 3784}#)))
-                                (if #{t\ 3791}#
-                                  #{t\ 3791}#
-                                  (symbol? #{x\ 3784}#))))))
-                        #{x\ 3783}#))
+            (let ((#{x\ 14712}# #{who\ 14702}#))
+              (if (not ((lambda (#{x\ 14713}#)
+                          (let ((#{t\ 14717}# (not #{x\ 14713}#)))
+                            (if #{t\ 14717}#
+                              #{t\ 14717}#
+                              (let ((#{t\ 14720}# (string? #{x\ 14713}#)))
+                                (if #{t\ 14720}#
+                                  #{t\ 14720}#
+                                  (symbol? #{x\ 14713}#))))))
+                        #{x\ 14712}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 3783}#)))
-            (let ((#{x\ 3795}# #{message\ 3774}#))
-              (if (not (string? #{x\ 3795}#))
+                  #{x\ 14712}#)))
+            (let ((#{x\ 14724}# #{message\ 14703}#))
+              (if (not (string? #{x\ 14724}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 3795}#)))
+                  #{x\ 14724}#)))
             (scm-error
               'syntax-error
               'macroexpand
               (string-append
-                (if #{who\ 3773}# "~a: " "")
+                (if #{who\ 14702}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 3776}#)
+                (if (null? #{subform\ 14705}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 3797}#
-                      (cons #{message\ 3774}#
-                            (map (lambda (#{x\ 3798}#)
-                                   (#{strip\ 333}# #{x\ 3798}# (quote (()))))
+              (let ((#{tail\ 14726}#
+                      (cons #{message\ 14703}#
+                            (map (lambda (#{x\ 14727}#)
+                                   (#{strip\ 11262}#
+                                     #{x\ 14727}#
+                                     '(())))
                                  (append
-                                   #{subform\ 3776}#
-                                   (list #{form\ 3775}#))))))
-                (if #{who\ 3773}#
-                  (cons #{who\ 3773}# #{tail\ 3797}#)
-                  #{tail\ 3797}#))
+                                   #{subform\ 14705}#
+                                   (list #{form\ 14704}#))))))
+                (if #{who\ 14702}#
+                  (cons #{who\ 14702}# #{tail\ 14726}#)
+                  #{tail\ 14726}#))
               #f))))
-      (letrec ((#{match\ 3814}#
-                 (lambda (#{e\ 3815}#
-                          #{p\ 3816}#
-                          #{w\ 3817}#
-                          #{r\ 3818}#
-                          #{mod\ 3819}#)
-                   (if (not #{r\ 3818}#)
+      (letrec ((#{match\ 14743}#
+                 (lambda (#{e\ 14744}#
+                          #{p\ 14745}#
+                          #{w\ 14746}#
+                          #{r\ 14747}#
+                          #{mod\ 14748}#)
+                   (if (not #{r\ 14747}#)
                      #f
-                     (if (eq? #{p\ 3816}# (quote any))
-                       (cons (#{wrap\ 291}#
-                               #{e\ 3815}#
-                               #{w\ 3817}#
-                               #{mod\ 3819}#)
-                             #{r\ 3818}#)
-                       (if (#{syntax-object?\ 186}# #{e\ 3815}#)
-                         (#{match*\ 3812}#
-                           (#{syntax-object-expression\ 188}# #{e\ 3815}#)
-                           #{p\ 3816}#
-                           (#{join-wraps\ 273}#
-                             #{w\ 3817}#
-                             (#{syntax-object-wrap\ 190}# #{e\ 3815}#))
-                           #{r\ 3818}#
-                           (#{syntax-object-module\ 192}# #{e\ 3815}#))
-                         (#{match*\ 3812}#
-                           #{e\ 3815}#
-                           #{p\ 3816}#
-                           #{w\ 3817}#
-                           #{r\ 3818}#
-                           #{mod\ 3819}#))))))
-               (#{match*\ 3812}#
-                 (lambda (#{e\ 3832}#
-                          #{p\ 3833}#
-                          #{w\ 3834}#
-                          #{r\ 3835}#
-                          #{mod\ 3836}#)
-                   (if (null? #{p\ 3833}#)
-                     (if (null? #{e\ 3832}#) #{r\ 3835}# #f)
-                     (if (pair? #{p\ 3833}#)
-                       (if (pair? #{e\ 3832}#)
-                         (#{match\ 3814}#
-                           (car #{e\ 3832}#)
-                           (car #{p\ 3833}#)
-                           #{w\ 3834}#
-                           (#{match\ 3814}#
-                             (cdr #{e\ 3832}#)
-                             (cdr #{p\ 3833}#)
-                             #{w\ 3834}#
-                             #{r\ 3835}#
-                             #{mod\ 3836}#)
-                           #{mod\ 3836}#)
+                     (if (eq? #{p\ 14745}# (quote any))
+                       (cons (#{wrap\ 11220}#
+                               #{e\ 14744}#
+                               #{w\ 14746}#
+                               #{mod\ 14748}#)
+                             #{r\ 14747}#)
+                       (if (#{syntax-object?\ 11115}# #{e\ 14744}#)
+                         (#{match*\ 14741}#
+                           (#{syntax-object-expression\ 11117}#
+                             #{e\ 14744}#)
+                           #{p\ 14745}#
+                           (#{join-wraps\ 11202}#
+                             #{w\ 14746}#
+                             (#{syntax-object-wrap\ 11119}# #{e\ 14744}#))
+                           #{r\ 14747}#
+                           (#{syntax-object-module\ 11121}# #{e\ 14744}#))
+                         (#{match*\ 14741}#
+                           #{e\ 14744}#
+                           #{p\ 14745}#
+                           #{w\ 14746}#
+                           #{r\ 14747}#
+                           #{mod\ 14748}#))))))
+               (#{match*\ 14741}#
+                 (lambda (#{e\ 14761}#
+                          #{p\ 14762}#
+                          #{w\ 14763}#
+                          #{r\ 14764}#
+                          #{mod\ 14765}#)
+                   (if (null? #{p\ 14762}#)
+                     (if (null? #{e\ 14761}#) #{r\ 14764}# #f)
+                     (if (pair? #{p\ 14762}#)
+                       (if (pair? #{e\ 14761}#)
+                         (#{match\ 14743}#
+                           (car #{e\ 14761}#)
+                           (car #{p\ 14762}#)
+                           #{w\ 14763}#
+                           (#{match\ 14743}#
+                             (cdr #{e\ 14761}#)
+                             (cdr #{p\ 14762}#)
+                             #{w\ 14763}#
+                             #{r\ 14764}#
+                             #{mod\ 14765}#)
+                           #{mod\ 14765}#)
                          #f)
-                       (if (eq? #{p\ 3833}# (quote each-any))
-                         (let ((#{l\ 3853}#
-                                 (#{match-each-any\ 3806}#
-                                   #{e\ 3832}#
-                                   #{w\ 3834}#
-                                   #{mod\ 3836}#)))
-                           (if #{l\ 3853}#
-                             (cons #{l\ 3853}# #{r\ 3835}#)
+                       (if (eq? #{p\ 14762}# (quote each-any))
+                         (let ((#{l\ 14782}#
+                                 (#{match-each-any\ 14735}#
+                                   #{e\ 14761}#
+                                   #{w\ 14763}#
+                                   #{mod\ 14765}#)))
+                           (if #{l\ 14782}#
+                             (cons #{l\ 14782}# #{r\ 14764}#)
                              #f))
-                         (let ((#{atom-key\ 3859}# (vector-ref #{p\ 3833}# 0)))
-                           (if (memv #{atom-key\ 3859}# (quote (each)))
-                             (if (null? #{e\ 3832}#)
-                               (#{match-empty\ 3808}#
-                                 (vector-ref #{p\ 3833}# 1)
-                                 #{r\ 3835}#)
-                               (let ((#{l\ 3862}#
-                                       (#{match-each\ 3802}#
-                                         #{e\ 3832}#
-                                         (vector-ref #{p\ 3833}# 1)
-                                         #{w\ 3834}#
-                                         #{mod\ 3836}#)))
-                                 (if #{l\ 3862}#
-                                   (letrec ((#{collect\ 3867}#
-                                              (lambda (#{l\ 3868}#)
-                                                (if (null? (car #{l\ 3868}#))
-                                                  #{r\ 3835}#
-                                                  (cons (map car #{l\ 3868}#)
-                                                        (#{collect\ 3867}#
+                         (let ((#{atom-key\ 14788}#
+                                 (vector-ref #{p\ 14762}# 0)))
+                           (if (memv #{atom-key\ 14788}# (quote (each)))
+                             (if (null? #{e\ 14761}#)
+                               (#{match-empty\ 14737}#
+                                 (vector-ref #{p\ 14762}# 1)
+                                 #{r\ 14764}#)
+                               (let ((#{l\ 14791}#
+                                       (#{match-each\ 14731}#
+                                         #{e\ 14761}#
+                                         (vector-ref #{p\ 14762}# 1)
+                                         #{w\ 14763}#
+                                         #{mod\ 14765}#)))
+                                 (if #{l\ 14791}#
+                                   (letrec ((#{collect\ 14796}#
+                                              (lambda (#{l\ 14797}#)
+                                                (if (null? (car #{l\ 14797}#))
+                                                  #{r\ 14764}#
+                                                  (cons (map car #{l\ 14797}#)
+                                                        (#{collect\ 14796}#
                                                           (map cdr
-                                                               #{l\ 
3868}#)))))))
-                                     (#{collect\ 3867}# #{l\ 3862}#))
+                                                               #{l\ 
14797}#)))))))
+                                     (#{collect\ 14796}# #{l\ 14791}#))
                                    #f)))
-                             (if (memv #{atom-key\ 3859}# (quote (each+)))
+                             (if (memv #{atom-key\ 14788}# (quote (each+)))
                                (call-with-values
                                  (lambda ()
-                                   (#{match-each+\ 3804}#
-                                     #{e\ 3832}#
-                                     (vector-ref #{p\ 3833}# 1)
-                                     (vector-ref #{p\ 3833}# 2)
-                                     (vector-ref #{p\ 3833}# 3)
-                                     #{w\ 3834}#
-                                     #{r\ 3835}#
-                                     #{mod\ 3836}#))
-                                 (lambda (#{xr*\ 3870}#
-                                          #{y-pat\ 3871}#
-                                          #{r\ 3872}#)
-                                   (if #{r\ 3872}#
-                                     (if (null? #{y-pat\ 3871}#)
-                                       (if (null? #{xr*\ 3870}#)
-                                         (#{match-empty\ 3808}#
-                                           (vector-ref #{p\ 3833}# 1)
-                                           #{r\ 3872}#)
-                                         (#{combine\ 3810}#
-                                           #{xr*\ 3870}#
-                                           #{r\ 3872}#))
+                                   (#{match-each+\ 14733}#
+                                     #{e\ 14761}#
+                                     (vector-ref #{p\ 14762}# 1)
+                                     (vector-ref #{p\ 14762}# 2)
+                                     (vector-ref #{p\ 14762}# 3)
+                                     #{w\ 14763}#
+                                     #{r\ 14764}#
+                                     #{mod\ 14765}#))
+                                 (lambda (#{xr*\ 14799}#
+                                          #{y-pat\ 14800}#
+                                          #{r\ 14801}#)
+                                   (if #{r\ 14801}#
+                                     (if (null? #{y-pat\ 14800}#)
+                                       (if (null? #{xr*\ 14799}#)
+                                         (#{match-empty\ 14737}#
+                                           (vector-ref #{p\ 14762}# 1)
+                                           #{r\ 14801}#)
+                                         (#{combine\ 14739}#
+                                           #{xr*\ 14799}#
+                                           #{r\ 14801}#))
                                        #f)
                                      #f)))
-                               (if (memv #{atom-key\ 3859}# (quote (free-id)))
-                                 (if (#{id?\ 222}# #{e\ 3832}#)
-                                   (if (#{free-id=?\ 281}#
-                                         (#{wrap\ 291}#
-                                           #{e\ 3832}#
-                                           #{w\ 3834}#
-                                           #{mod\ 3836}#)
-                                         (vector-ref #{p\ 3833}# 1))
-                                     #{r\ 3835}#
+                               (if (memv #{atom-key\ 14788}# (quote (free-id)))
+                                 (if (#{id?\ 11151}# #{e\ 14761}#)
+                                   (if (#{free-id=?\ 11210}#
+                                         (#{wrap\ 11220}#
+                                           #{e\ 14761}#
+                                           #{w\ 14763}#
+                                           #{mod\ 14765}#)
+                                         (vector-ref #{p\ 14762}# 1))
+                                     #{r\ 14764}#
                                      #f)
                                    #f)
-                                 (if (memv #{atom-key\ 3859}# (quote (atom)))
+                                 (if (memv #{atom-key\ 14788}# (quote (atom)))
                                    (if (equal?
-                                         (vector-ref #{p\ 3833}# 1)
-                                         (#{strip\ 333}#
-                                           #{e\ 3832}#
-                                           #{w\ 3834}#))
-                                     #{r\ 3835}#
+                                         (vector-ref #{p\ 14762}# 1)
+                                         (#{strip\ 11262}#
+                                           #{e\ 14761}#
+                                           #{w\ 14763}#))
+                                     #{r\ 14764}#
                                      #f)
-                                   (if (memv #{atom-key\ 3859}#
+                                   (if (memv #{atom-key\ 14788}#
                                              '(vector))
-                                     (if (vector? #{e\ 3832}#)
-                                       (#{match\ 3814}#
-                                         (vector->list #{e\ 3832}#)
-                                         (vector-ref #{p\ 3833}# 1)
-                                         #{w\ 3834}#
-                                         #{r\ 3835}#
-                                         #{mod\ 3836}#)
+                                     (if (vector? #{e\ 14761}#)
+                                       (#{match\ 14743}#
+                                         (vector->list #{e\ 14761}#)
+                                         (vector-ref #{p\ 14762}# 1)
+                                         #{w\ 14763}#
+                                         #{r\ 14764}#
+                                         #{mod\ 14765}#)
                                        #f))))))))))))
-               (#{combine\ 3810}#
-                 (lambda (#{r*\ 3889}# #{r\ 3890}#)
-                   (if (null? (car #{r*\ 3889}#))
-                     #{r\ 3890}#
-                     (cons (map car #{r*\ 3889}#)
-                           (#{combine\ 3810}#
-                             (map cdr #{r*\ 3889}#)
-                             #{r\ 3890}#)))))
-               (#{match-empty\ 3808}#
-                 (lambda (#{p\ 3893}# #{r\ 3894}#)
-                   (if (null? #{p\ 3893}#)
-                     #{r\ 3894}#
-                     (if (eq? #{p\ 3893}# (quote any))
-                       (cons (quote ()) #{r\ 3894}#)
-                       (if (pair? #{p\ 3893}#)
-                         (#{match-empty\ 3808}#
-                           (car #{p\ 3893}#)
-                           (#{match-empty\ 3808}#
-                             (cdr #{p\ 3893}#)
-                             #{r\ 3894}#))
-                         (if (eq? #{p\ 3893}# (quote each-any))
-                           (cons (quote ()) #{r\ 3894}#)
-                           (let ((#{atom-key\ 3908}#
-                                   (vector-ref #{p\ 3893}# 0)))
-                             (if (memv #{atom-key\ 3908}# (quote (each)))
-                               (#{match-empty\ 3808}#
-                                 (vector-ref #{p\ 3893}# 1)
-                                 #{r\ 3894}#)
-                               (if (memv #{atom-key\ 3908}# (quote (each+)))
-                                 (#{match-empty\ 3808}#
-                                   (vector-ref #{p\ 3893}# 1)
-                                   (#{match-empty\ 3808}#
-                                     (reverse (vector-ref #{p\ 3893}# 2))
-                                     (#{match-empty\ 3808}#
-                                       (vector-ref #{p\ 3893}# 3)
-                                       #{r\ 3894}#)))
-                                 (if (memv #{atom-key\ 3908}#
+               (#{combine\ 14739}#
+                 (lambda (#{r*\ 14818}# #{r\ 14819}#)
+                   (if (null? (car #{r*\ 14818}#))
+                     #{r\ 14819}#
+                     (cons (map car #{r*\ 14818}#)
+                           (#{combine\ 14739}#
+                             (map cdr #{r*\ 14818}#)
+                             #{r\ 14819}#)))))
+               (#{match-empty\ 14737}#
+                 (lambda (#{p\ 14822}# #{r\ 14823}#)
+                   (if (null? #{p\ 14822}#)
+                     #{r\ 14823}#
+                     (if (eq? #{p\ 14822}# (quote any))
+                       (cons (quote ()) #{r\ 14823}#)
+                       (if (pair? #{p\ 14822}#)
+                         (#{match-empty\ 14737}#
+                           (car #{p\ 14822}#)
+                           (#{match-empty\ 14737}#
+                             (cdr #{p\ 14822}#)
+                             #{r\ 14823}#))
+                         (if (eq? #{p\ 14822}# (quote each-any))
+                           (cons (quote ()) #{r\ 14823}#)
+                           (let ((#{atom-key\ 14837}#
+                                   (vector-ref #{p\ 14822}# 0)))
+                             (if (memv #{atom-key\ 14837}# (quote (each)))
+                               (#{match-empty\ 14737}#
+                                 (vector-ref #{p\ 14822}# 1)
+                                 #{r\ 14823}#)
+                               (if (memv #{atom-key\ 14837}# (quote (each+)))
+                                 (#{match-empty\ 14737}#
+                                   (vector-ref #{p\ 14822}# 1)
+                                   (#{match-empty\ 14737}#
+                                     (reverse (vector-ref #{p\ 14822}# 2))
+                                     (#{match-empty\ 14737}#
+                                       (vector-ref #{p\ 14822}# 3)
+                                       #{r\ 14823}#)))
+                                 (if (memv #{atom-key\ 14837}#
                                            '(free-id atom))
-                                   #{r\ 3894}#
-                                   (if (memv #{atom-key\ 3908}#
+                                   #{r\ 14823}#
+                                   (if (memv #{atom-key\ 14837}#
                                              '(vector))
-                                     (#{match-empty\ 3808}#
-                                       (vector-ref #{p\ 3893}# 1)
-                                       #{r\ 3894}#))))))))))))
-               (#{match-each-any\ 3806}#
-                 (lambda (#{e\ 3913}# #{w\ 3914}# #{mod\ 3915}#)
-                   (if (pair? #{e\ 3913}#)
-                     (let ((#{l\ 3922}#
-                             (#{match-each-any\ 3806}#
-                               (cdr #{e\ 3913}#)
-                               #{w\ 3914}#
-                               #{mod\ 3915}#)))
-                       (if #{l\ 3922}#
-                         (cons (#{wrap\ 291}#
-                                 (car #{e\ 3913}#)
-                                 #{w\ 3914}#
-                                 #{mod\ 3915}#)
-                               #{l\ 3922}#)
+                                     (#{match-empty\ 14737}#
+                                       (vector-ref #{p\ 14822}# 1)
+                                       #{r\ 14823}#))))))))))))
+               (#{match-each-any\ 14735}#
+                 (lambda (#{e\ 14842}# #{w\ 14843}# #{mod\ 14844}#)
+                   (if (pair? #{e\ 14842}#)
+                     (let ((#{l\ 14851}#
+                             (#{match-each-any\ 14735}#
+                               (cdr #{e\ 14842}#)
+                               #{w\ 14843}#
+                               #{mod\ 14844}#)))
+                       (if #{l\ 14851}#
+                         (cons (#{wrap\ 11220}#
+                                 (car #{e\ 14842}#)
+                                 #{w\ 14843}#
+                                 #{mod\ 14844}#)
+                               #{l\ 14851}#)
                          #f))
-                     (if (null? #{e\ 3913}#)
+                     (if (null? #{e\ 14842}#)
                        '()
-                       (if (#{syntax-object?\ 186}# #{e\ 3913}#)
-                         (#{match-each-any\ 3806}#
-                           (#{syntax-object-expression\ 188}# #{e\ 3913}#)
-                           (#{join-wraps\ 273}#
-                             #{w\ 3914}#
-                             (#{syntax-object-wrap\ 190}# #{e\ 3913}#))
-                           #{mod\ 3915}#)
+                       (if (#{syntax-object?\ 11115}# #{e\ 14842}#)
+                         (#{match-each-any\ 14735}#
+                           (#{syntax-object-expression\ 11117}#
+                             #{e\ 14842}#)
+                           (#{join-wraps\ 11202}#
+                             #{w\ 14843}#
+                             (#{syntax-object-wrap\ 11119}# #{e\ 14842}#))
+                           #{mod\ 14844}#)
                          #f)))))
-               (#{match-each+\ 3804}#
-                 (lambda (#{e\ 3930}#
-                          #{x-pat\ 3931}#
-                          #{y-pat\ 3932}#
-                          #{z-pat\ 3933}#
-                          #{w\ 3934}#
-                          #{r\ 3935}#
-                          #{mod\ 3936}#)
-                   (letrec ((#{f\ 3947}#
-                              (lambda (#{e\ 3948}# #{w\ 3949}#)
-                                (if (pair? #{e\ 3948}#)
+               (#{match-each+\ 14733}#
+                 (lambda (#{e\ 14859}#
+                          #{x-pat\ 14860}#
+                          #{y-pat\ 14861}#
+                          #{z-pat\ 14862}#
+                          #{w\ 14863}#
+                          #{r\ 14864}#
+                          #{mod\ 14865}#)
+                   (letrec ((#{f\ 14876}#
+                              (lambda (#{e\ 14877}# #{w\ 14878}#)
+                                (if (pair? #{e\ 14877}#)
                                   (call-with-values
                                     (lambda