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-117-g1


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-117-g12922f0
Date: Thu, 13 May 2010 22:29:59 +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=12922f0dd1e327e6f0c5693619e1e6d600e6a866

The branch, master has been updated
       via  12922f0dd1e327e6f0c5693619e1e6d600e6a866 (commit)
       via  7572ee5261f434cf9b8e58126eb6d87c085a596d (commit)
       via  d8a071fc4e709ee83cd3c7fc935f7ec21375e624 (commit)
       via  9658182d5f51368e2888cb461edfc2f35f91c6ac (commit)
       via  8f9c5b589d7552d79cbafda3029986b714807a25 (commit)
       via  cc00f4474306d961bbc997bbf7fbfe6e610888da (commit)
      from  df3f1090e8772a78206e6a5b65112fa66dbcd0af (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 12922f0dd1e327e6f0c5693619e1e6d600e6a866
Author: Andy Wingo <address@hidden>
Date:   Thu May 13 23:27:00 2010 +0200

    psyntax builds case-lambda expressions
    
    * module/ice-9/psyntax.scm (build-case-lambda, build-lambda-case):
      Actually build case-lambda expressions, knowing that the memoizer will
      do the right thing.
    
    * module/ice-9/psyntax-pp.scm: Regenerated.

commit 7572ee5261f434cf9b8e58126eb6d87c085a596d
Author: Andy Wingo <address@hidden>
Date:   Thu May 13 21:43:35 2010 +0200

    evaluator support for case-lambda
    
    * libguile/memoize.c (patch_case_lambda, scm_m_case_lambda)
      (scm_m_case_lambda_star): Add memoizers for case-lambda and
      case-lambda*.
      (unmemoize): Unmemoize lambdas with multiple arities.
    
    * libguile/eval.c (prepare_boot_closure_env_for_apply):
      (prepare_boot_closure_env_for_eval): Adapt to return both body and
      env, so that case-lambda clauses can be selected appropriately.
      (eval, boot_closure_apply): Adapt callers.
    
    * module/ice-9/eval.scm (make-general-closure): Support multiple
      arities.

commit d8a071fc4e709ee83cd3c7fc935f7ec21375e624
Author: Andy Wingo <address@hidden>
Date:   Thu May 13 17:15:10 2010 +0200

    primitive support for lambda*
    
    * libguile/memoize.c (scm_m_lambda_star): Define lambda* in the
      pre-psyntax env, and make it memoize lambda* expressions.
    
    * libguile/eval.c (BOOT_CLOSURE_PARSE_FULL): New helper.
      (error_invalid_keyword, error_unrecognized_keyword): New helpers.
      (prepare_boot_closure_env_for_apply): Flesh out application of boot
      closures with "full" arity.
      (prepare_boot_closure_env_for_eval): Punt to
      prepare_boot_closure_env_for_eval for the full-arity case.
    
    * module/ice-9/eval.scm (make-fixed-closure): Rename from `closure', and
      just handle fixed arities, where there is no rest argument..
      (make-general-closure): New helper, a procedure, that returns a
      closure that can take rest, optional, and keyword arguments.
      (eval): Adapt to call make-fixed-closure or make-general-closure as
      appropriate.
    
    * test-suite/tests/optargs.test ("lambda* inits"): Test the memoizer as
      well.

commit 9658182d5f51368e2888cb461edfc2f35f91c6ac
Author: Andy Wingo <address@hidden>
Date:   Thu May 13 16:56:31 2010 +0200

    tweak to lambda* memoization format
    
    * libguile/memoize.c (FULL_ARITY): Change the form to more closely
      approximate <lambda-case>.
      (unmemoize): Unmemoize lambda* expressions.

commit 8f9c5b589d7552d79cbafda3029986b714807a25
Author: Andy Wingo <address@hidden>
Date:   Wed May 12 12:17:18 2010 +0200

    change to format of memoization lambda expressions
    
    * libguile/memoize.c (scm_m_lambda, memoize_named_let)
      (scm_memoize_lambda, unmemoize)
    * libguile/eval.c (eval, prepare_boot_closure_env_for_apply)
      (prepare_boot_closure_env_for_eval, boot_closure_apply):
    * module/ice-9/eval.scm (primitive-eval): Change the format for memoized
      lambda expressions, so as to allow, in the future, case-lambda* to be
      supported by the evaluator.

commit cc00f4474306d961bbc997bbf7fbfe6e610888da
Author: Andy Wingo <address@hidden>
Date:   Wed May 12 12:02:09 2010 +0200

    scm_badargsp is deprecated
    
    * libguile/eval.h:
    * libguile/eval.c:
    * libguile/deprecated.h
    * libguile/deprecated.c (scm_badargsp): Deprecate scm_badargsp.

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

Summary of changes:
 libguile/deprecated.c         |   21 +
 libguile/deprecated.h         |    3 +
 libguile/eval.c               |  308 +-
 libguile/eval.h               |    3 +-
 libguile/memoize.c            |  322 +-
 module/ice-9/eval.scm         |  159 +-
 module/ice-9/psyntax-pp.scm   |16215 ++++++++++++++++++++---------------------
 module/ice-9/psyntax.scm      |   33 +-
 test-suite/tests/optargs.test |   33 +-
 9 files changed, 8793 insertions(+), 8304 deletions(-)

diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 4ff1bc2..b6e89bb 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1916,6 +1916,27 @@ SCM_DEFINE (scm_dynamic_args_call, "dynamic-args-call", 
3, 0, 0,
 
 
 
+
+int
+scm_badargsp (SCM formals, SCM args)
+{
+  scm_c_issue_deprecation_warning
+    ("`scm_badargsp' is deprecated. Copy it into your project if you need 
it.");
+
+  while (!scm_is_null (formals))
+    {
+      if (!scm_is_pair (formals)) 
+        return 0;
+      if (scm_is_null (args)) 
+        return 1;
+      formals = scm_cdr (formals);
+      args = scm_cdr (args);
+    }
+  return !scm_is_null (args) ? 1 : 0;
+}
+
+
+
 void
 scm_i_init_deprecated ()
 {
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index 021e319..877b826 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -627,6 +627,9 @@ SCM_DEPRECATED SCM scm_raequal (SCM ra0, SCM ra1);
 /* Deprecated 2010-04-01, use the dynamic FFI instead */
 SCM_DEPRECATED SCM scm_dynamic_args_call (SCM symb, SCM dobj, SCM args);
 
+/* Deprecated 2010-05-12, no replacement */
+SCM_DEPRECATED int scm_badargsp (SCM formals, SCM args);
+
 
 
 void scm_i_init_deprecated (void);
diff --git a/libguile/eval.c b/libguile/eval.c
index f2cbebe..7c21060 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -106,10 +106,29 @@ static scm_t_bits scm_tc16_boot_closure;
 #define BOOT_CLOSURE_P(obj) SCM_TYP16_PREDICATE (scm_tc16_boot_closure, (obj))
 #define BOOT_CLOSURE_CODE(x) SCM_SMOB_OBJECT (x)
 #define BOOT_CLOSURE_ENV(x) SCM_SMOB_OBJECT_2 (x)
-#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) SCM_I_INUM (CAR (BOOT_CLOSURE_CODE 
(x)))
-#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADR (BOOT_CLOSURE_CODE 
(x)))
-#define BOOT_CLOSURE_BODY(x) CDDR (BOOT_CLOSURE_CODE (x))
-
+#define BOOT_CLOSURE_BODY(x) CAR (BOOT_CLOSURE_CODE (x))
+#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) SCM_I_INUM (CADR (BOOT_CLOSURE_CODE 
(x)))
+#define BOOT_CLOSURE_IS_FIXED(x) scm_is_null (CDDR (BOOT_CLOSURE_CODE (x)))
+/* NB: One may only call the following accessors if the closure is not FIXED. 
*/
+#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADDR (BOOT_CLOSURE_CODE 
(x)))
+#define BOOT_CLOSURE_IS_REST(x) scm_is_null (CDDDR (BOOT_CLOSURE_CODE (x)))
+/* NB: One may only call the following accessors if the closure is not REST. */
+#define BOOT_CLOSURE_IS_FULL(x) (1)
+#define BOOT_CLOSURE_PARSE_FULL(x,body,nargs,rest,nopt,kw,inits,alt)    \
+  do { SCM mx = BOOT_CLOSURE_CODE (x);                          \
+    body = CAR (mx); mx = CDR (mx);                             \
+    nreq = SCM_I_INUM (CAR (mx)); mx = CDR (mx);                \
+    rest = CAR (mx); mx = CDR (mx);                             \
+    nopt = SCM_I_INUM (CAR (mx)); mx = CDR (mx);                \
+    kw = CAR (mx); mx = CDR (mx);                               \
+    inits = CAR (mx); mx = CDR (mx);                            \
+    alt = CAR (mx);                                             \
+  } while (0)
+static void prepare_boot_closure_env_for_apply (SCM proc, SCM args,
+                                                SCM *out_body, SCM *out_env);
+static void prepare_boot_closure_env_for_eval (SCM proc, unsigned int argc,
+                                               SCM exps, SCM *out_body,
+                                               SCM *inout_env);
 
 
 #define CAR(x)   SCM_CAR(x)
@@ -130,21 +149,21 @@ static void error_used_before_defined (void)
              "Variable used before given a value", SCM_EOL, SCM_BOOL_F);
 }
 
-int
-scm_badargsp (SCM formals, SCM args)
+static void error_invalid_keyword (SCM proc)
 {
-  while (!scm_is_null (formals))
-    {
-      if (!scm_is_pair (formals)) 
-        return 0;
-      if (scm_is_null (args)) 
-        return 1;
-      formals = CDR (formals);
-      args = CDR (args);
-    }
-  return !scm_is_null (args) ? 1 : 0;
+  scm_error_scm (scm_from_locale_symbol ("keyword-argument-error"), proc,
+                 scm_from_locale_string ("Invalid keyword"), SCM_EOL,
+                 SCM_BOOL_F);
+}
+
+static void error_unrecognized_keyword (SCM proc)
+{
+  scm_error_scm (scm_from_locale_symbol ("keyword-argument-error"), proc,
+                 scm_from_locale_string ("Unrecognized keyword"), SCM_EOL,
+                 SCM_BOOL_F);
 }
 
+
 /* the environment:
    (VAL ... . MOD)
    If MOD is #f, it means the environment was captured before modules were
@@ -253,25 +272,7 @@ eval (SCM x, SCM env)
        * ARGS is the list of arguments. */
       if (BOOT_CLOSURE_P (proc))
         {
-          int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
-          SCM new_env = BOOT_CLOSURE_ENV (proc);
-          if (BOOT_CLOSURE_HAS_REST_ARGS (proc))
-            {
-              if (SCM_UNLIKELY (scm_ilength (args) < nreq))
-                scm_wrong_num_args (proc);
-              for (; nreq; nreq--, args = CDR (args))
-                new_env = scm_cons (CAR (args), new_env);
-              new_env = scm_cons (args, new_env);
-            }
-          else
-            {
-              if (SCM_UNLIKELY (scm_ilength (args) != nreq))
-                scm_wrong_num_args (proc);
-              for (; scm_is_pair (args); args = CDR (args))
-                new_env = scm_cons (CAR (args), new_env);
-            }
-          x = BOOT_CLOSURE_BODY (proc);
-          env = new_env;
+          prepare_boot_closure_env_for_apply (proc, args, &x, &env);
           goto loop;
         }
       else
@@ -285,31 +286,7 @@ eval (SCM x, SCM env)
 
       if (BOOT_CLOSURE_P (proc))
         {
-          int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
-          SCM new_env = BOOT_CLOSURE_ENV (proc);
-          if (BOOT_CLOSURE_HAS_REST_ARGS (proc))
-            {
-              if (SCM_UNLIKELY (argc < nreq))
-                scm_wrong_num_args (proc);
-              for (; nreq; nreq--, mx = CDR (mx))
-                new_env = scm_cons (eval (CAR (mx), env), new_env);
-              {
-                SCM rest = SCM_EOL;
-                for (; scm_is_pair (mx); mx = CDR (mx))
-                  rest = scm_cons (eval (CAR (mx), env), rest);
-                new_env = scm_cons (scm_reverse (rest),
-                                    new_env);
-              }
-            }
-          else
-            {
-              for (; scm_is_pair (mx); mx = CDR (mx), nreq--)
-                new_env = scm_cons (eval (CAR (mx), env), new_env);
-              if (SCM_UNLIKELY (nreq != 0))
-                scm_wrong_num_args (proc);
-            }
-          x = BOOT_CLOSURE_BODY (proc);
-          env = new_env;
+          prepare_boot_closure_env_for_eval (proc, argc, mx, &x, &env);
           goto loop;
         }
       else
@@ -923,28 +900,208 @@ scm_apply (SCM proc, SCM arg1, SCM args)
   return scm_vm_apply (scm_the_vm (), proc, args);
 }
 
-
-static SCM
-boot_closure_apply (SCM closure, SCM args)
+static void
+prepare_boot_closure_env_for_apply (SCM proc, SCM args,
+                                    SCM *out_body, SCM *out_env)
 {
-  int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (closure);
-  SCM new_env = BOOT_CLOSURE_ENV (closure);
-  if (BOOT_CLOSURE_HAS_REST_ARGS (closure))
+  int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
+  SCM env = BOOT_CLOSURE_ENV (proc);
+  if (BOOT_CLOSURE_IS_FIXED (proc)
+      || (BOOT_CLOSURE_IS_REST (proc)
+          && !BOOT_CLOSURE_HAS_REST_ARGS (proc)))
+    {
+      if (SCM_UNLIKELY (scm_ilength (args) != nreq))
+        scm_wrong_num_args (proc);
+      for (; scm_is_pair (args); args = CDR (args))
+        env = scm_cons (CAR (args), env);
+      *out_body = BOOT_CLOSURE_BODY (proc);
+      *out_env = env;
+    }
+  else if (BOOT_CLOSURE_IS_REST (proc))
     {
       if (SCM_UNLIKELY (scm_ilength (args) < nreq))
-        scm_wrong_num_args (closure);
+        scm_wrong_num_args (proc);
       for (; nreq; nreq--, args = CDR (args))
-        new_env = scm_cons (CAR (args), new_env);
-      new_env = scm_cons (args, new_env);
+        env = scm_cons (CAR (args), env);
+      env = scm_cons (args, env);
+      *out_body = BOOT_CLOSURE_BODY (proc);
+      *out_env = env;
     }
   else
     {
-      if (SCM_UNLIKELY (scm_ilength (args) != nreq))
-        scm_wrong_num_args (closure);
-      for (; scm_is_pair (args); args = CDR (args))
-        new_env = scm_cons (CAR (args), new_env);
+      int i, argc, nreq, nopt;
+      SCM body, rest, kw, inits, alt;
+      
+    loop:
+      BOOT_CLOSURE_PARSE_FULL (proc, body, nargs, rest, nopt, kw, inits, alt);
+
+      argc = scm_ilength (args);
+      if (argc < nreq)
+        {
+          if (scm_is_true (alt))
+            {
+              proc = alt;
+              goto loop;
+            }
+          else
+            scm_wrong_num_args (proc);
+        }
+      if (scm_is_false (kw) && argc > nreq + nopt && scm_is_false (rest))
+        {
+          if (scm_is_true (alt))
+            {
+              proc = alt;
+              goto loop;
+            }
+          else
+            scm_wrong_num_args (proc);
+        }
+
+      for (i = 0; i < nreq; i++, args = CDR (args))
+        env = scm_cons (CAR (args), env);
+
+      if (scm_is_false (kw))
+        {
+          /* Optional args (possibly), but no keyword args. */
+          for (; i < argc && i < nreq + nopt;
+               i++, args = CDR (args))
+            {
+              env = scm_cons (CAR (args), env);
+              inits = CDR (inits);
+            }
+              
+          for (; i < nreq + nopt; i++, inits = CDR (inits))
+            env = scm_cons (eval (CAR (inits), env), env);
+
+          if (scm_is_true (rest))
+            env = scm_cons (args, env);
+        }
+      else
+        {
+          SCM aok;
+
+          aok = CAR (kw);
+          kw = CDR (kw);
+
+          /* Keyword args. As before, but stop at the first keyword. */
+          for (; i < argc && i < nreq + nopt && !scm_is_keyword (CAR (args));
+               i++, args = CDR (args), inits = CDR (inits))
+            env = scm_cons (CAR (args), env);
+              
+          for (; i < nreq + nopt; i++, inits = CDR (inits))
+            env = scm_cons (eval (CAR (inits), env), env);
+
+          if (scm_is_true (rest))
+            {
+              env = scm_cons (args, env);
+              i++;
+            }
+
+          /* Now fill in env with unbound values, limn the rest of the args for
+             keywords, and fill in unbound values with their inits. */
+          {
+            int imax = i - 1;
+            int kw_start_idx = i;
+            SCM walk, k, v;
+            for (walk = kw; scm_is_pair (walk); walk = CDR (walk))
+              if (SCM_I_INUM (CDAR (walk)) > imax)
+                imax = SCM_I_INUM (CDAR (walk));
+            for (; i <= imax; i++)
+              env = scm_cons (SCM_UNDEFINED, env);
+
+            if (scm_is_pair (args) && scm_is_pair (CDR (args)))
+              for (; scm_is_pair (args) && scm_is_pair (CDR (args));
+                   args = CDR (args))
+                {
+                  k = CAR (args); v = CADR (args);
+                  if (!scm_is_keyword (k))
+                    {
+                      if (scm_is_true (rest))
+                        continue;
+                      else
+                        break;
+                    }
+                  for (walk = kw; scm_is_pair (walk); walk = CDR (walk))
+                    if (scm_is_eq (k, CAAR (walk)))
+                      {
+                        /* Well... ok, list-set! isn't the nicest interface, 
but
+                           hey. */
+                        int iset = imax - SCM_I_INUM (CDAR (walk));
+                        scm_list_set_x (env, SCM_I_MAKINUM (iset), v);
+                        args = CDR (args);
+                        break;
+                      }
+                  if (scm_is_null (walk) && scm_is_false (aok))
+                    error_unrecognized_keyword (proc);
+                }
+            if (scm_is_pair (args) && scm_is_false (rest))
+              error_invalid_keyword (proc);
+
+            /* Now fill in unbound values, evaluating init expressions in their
+               appropriate environment. */
+            for (i = imax - kw_start_idx; scm_is_pair (inits); i--, inits = 
CDR (inits))
+              {
+                SCM tail = scm_list_tail (env, SCM_I_MAKINUM (i));
+                if (SCM_UNBNDP (CAR (tail)))
+                  SCM_SETCAR (tail, eval (CAR (inits), CDR (tail)));
+              }
+          }
+        }
+
+      *out_body = BOOT_CLOSURE_BODY (proc);
+      *out_env = env;
+    }
+}
+
+static void
+prepare_boot_closure_env_for_eval (SCM proc, unsigned int argc,
+                                   SCM exps, SCM *out_body, SCM *inout_env)
+{
+  int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
+  SCM new_env = BOOT_CLOSURE_ENV (proc);
+  if (BOOT_CLOSURE_IS_FIXED (proc)
+      || (BOOT_CLOSURE_IS_REST (proc)
+          && !BOOT_CLOSURE_HAS_REST_ARGS (proc)))
+    {
+      for (; scm_is_pair (exps); exps = CDR (exps), nreq--)
+        new_env = scm_cons (eval (CAR (exps), *inout_env), new_env);
+      if (SCM_UNLIKELY (nreq != 0))
+        scm_wrong_num_args (proc);
+      *out_body = BOOT_CLOSURE_BODY (proc);
+      *inout_env = new_env;
     }
-  return eval (BOOT_CLOSURE_BODY (closure), new_env);
+  else if (BOOT_CLOSURE_IS_REST (proc))
+    {
+      if (SCM_UNLIKELY (argc < nreq))
+        scm_wrong_num_args (proc);
+      for (; nreq; nreq--, exps = CDR (exps))
+        new_env = scm_cons (eval (CAR (exps), *inout_env), new_env);
+      {
+        SCM rest = SCM_EOL;
+        for (; scm_is_pair (exps); exps = CDR (exps))
+          rest = scm_cons (eval (CAR (exps), *inout_env), rest);
+        new_env = scm_cons (scm_reverse (rest),
+                            new_env);
+      }
+      *out_body = BOOT_CLOSURE_BODY (proc);
+      *inout_env = new_env;
+    }
+  else
+    {
+      SCM args = SCM_EOL;
+      for (; scm_is_pair (exps); exps = CDR (exps))
+        args = scm_cons (eval (CAR (exps), *inout_env), args);
+      args = scm_reverse_x (args, SCM_UNDEFINED);
+      prepare_boot_closure_env_for_apply (proc, args, out_body, inout_env);
+    }
+}
+
+static SCM
+boot_closure_apply (SCM closure, SCM args)
+{
+  SCM body, env;
+  prepare_boot_closure_env_for_apply (closure, args, &body, &env);
+  return eval (body, env);
 }
 
 static int
@@ -956,8 +1113,9 @@ boot_closure_print (SCM closure, SCM port, scm_print_state 
*pstate)
   scm_putc (' ', port);
   args = scm_make_list (scm_from_int (BOOT_CLOSURE_NUM_REQUIRED_ARGS 
(closure)),
                         scm_from_locale_symbol ("_"));
-  if (BOOT_CLOSURE_HAS_REST_ARGS (closure))
+  if (!BOOT_CLOSURE_IS_FIXED (closure) && BOOT_CLOSURE_HAS_REST_ARGS (closure))
     args = scm_cons_star (scm_from_locale_symbol ("_"), args);
+  /* FIXME: optionals and rests */
   scm_display (args, port);
   scm_putc ('>', port);
   return 1;
diff --git a/libguile/eval.h b/libguile/eval.h
index 0715e04..969cce1 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -3,7 +3,7 @@
 #ifndef SCM_EVAL_H
 #define SCM_EVAL_H
 
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010
  * Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
@@ -63,7 +63,6 @@ typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM 
arg2);
 
 
 
-SCM_API int scm_badargsp (SCM formals, SCM args);
 SCM_API SCM scm_call_0 (SCM proc);
 SCM_API SCM scm_call_1 (SCM proc, SCM arg1);
 SCM_API SCM scm_call_2 (SCM proc, SCM arg1, SCM arg2);
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 75b9c7e..544de7c 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -179,8 +179,15 @@ scm_t_bits scm_tc16_memoized;
   MAKMEMO (SCM_M_BEGIN, exps)
 #define MAKMEMO_IF(test, then, else_) \
   MAKMEMO (SCM_M_IF, scm_cons (test, scm_cons (then, else_)))
-#define MAKMEMO_LAMBDA(nreq, rest, body) \
-  MAKMEMO (SCM_M_LAMBDA, scm_cons (SCM_I_MAKINUM (nreq), scm_cons (rest, 
body)))
+#define FIXED_ARITY(nreq) \
+  scm_list_1 (SCM_I_MAKINUM (nreq))
+#define REST_ARITY(nreq, rest) \
+  scm_list_2 (SCM_I_MAKINUM (nreq), rest)
+#define FULL_ARITY(nreq, rest, nopt, kw, inits, alt) \
+  scm_list_n (SCM_I_MAKINUM (nreq), rest, SCM_I_MAKINUM (nopt), kw, inits, \
+              alt, SCM_UNDEFINED)
+#define MAKMEMO_LAMBDA(body, arity) \
+  MAKMEMO (SCM_M_LAMBDA, (scm_cons (body, arity)))
 #define MAKMEMO_LET(inits, body) \
   MAKMEMO (SCM_M_LET, scm_cons (inits, body))
 #define MAKMEMO_QUOTE(exp) \
@@ -265,6 +272,9 @@ 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);
 static SCM scm_m_lambda (SCM xorig, SCM env);
+static SCM scm_m_lambda_star (SCM xorig, SCM env);
+static SCM scm_m_case_lambda (SCM xorig, SCM env);
+static SCM scm_m_case_lambda_star (SCM xorig, SCM env);
 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);
@@ -422,6 +432,9 @@ 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_SYNTAX (s_lambda_star, "lambda*", scm_m_lambda_star);
+SCM_SYNTAX (s_case_lambda, "case-lambda", scm_m_case_lambda);
+SCM_SYNTAX (s_case_lambda_star, "case-lambda*", scm_m_case_lambda_star);
 
 SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
 SCM_GLOBAL_SYMBOL (scm_sym_arrow, "=>");
@@ -447,6 +460,9 @@ SCM_GLOBAL_SYMBOL (scm_sym_or, "or");
 SCM_GLOBAL_SYMBOL (scm_sym_at_prompt, "@prompt");
 SCM_GLOBAL_SYMBOL (scm_sym_quote, "quote");
 SCM_GLOBAL_SYMBOL (scm_sym_set_x, "set!");
+SCM_SYMBOL (sym_lambda_star, "lambda*");
+SCM_SYMBOL (sym_case_lambda, "case-lambda");
+SCM_SYMBOL (sym_case_lambda_star, "case-lambda*");
 SCM_SYMBOL (sym_eval, "eval");
 SCM_SYMBOL (sym_load, "load");
 
@@ -454,6 +470,11 @@ SCM_GLOBAL_SYMBOL (scm_sym_unquote, "unquote");
 SCM_GLOBAL_SYMBOL (scm_sym_quasiquote, "quasiquote");
 SCM_GLOBAL_SYMBOL (scm_sym_uq_splicing, "unquote-splicing");
 
+SCM_KEYWORD (kw_allow_other_keys, "allow-other-keys");
+SCM_KEYWORD (kw_optional, "optional");
+SCM_KEYWORD (kw_key, "key");
+SCM_KEYWORD (kw_rest, "rest");
+
 
 static SCM
 scm_m_at (SCM expr, SCM env SCM_UNUSED)
@@ -676,6 +697,7 @@ scm_m_lambda (SCM expr, SCM env SCM_UNUSED)
   SCM formals;
   SCM formals_idx;
   SCM formal_vars = SCM_EOL;
+  SCM body;
   int nreq = 0;
 
   const SCM cdr_expr = CDR (expr);
@@ -715,9 +737,253 @@ scm_m_lambda (SCM expr, SCM env SCM_UNUSED)
                    s_bad_formal, formals_idx, expr);
   if (scm_is_symbol (formals_idx))
     formal_vars = scm_cons (formals_idx, formal_vars);
-  return MAKMEMO_LAMBDA (nreq, scm_symbol_p (formals_idx),
-                         memoize_sequence (CDDR (expr),
-                                           memoize_env_extend (env, 
formal_vars)));
+
+  body = memoize_sequence (CDDR (expr), memoize_env_extend (env, formal_vars));
+
+  if (scm_is_symbol (formals_idx))
+    return MAKMEMO_LAMBDA (body, REST_ARITY (nreq, SCM_BOOL_T));
+  else
+    return MAKMEMO_LAMBDA (body, FIXED_ARITY (nreq));
+}
+
+static SCM
+scm_m_lambda_star (SCM expr, SCM env)
+{
+  SCM req, opt, kw, allow_other_keys, rest, formals, body;
+  SCM inits, kw_indices;
+  int nreq, nopt;
+
+  const long length = scm_ilength (expr);
+  ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+  ASSERT_SYNTAX (length >= 3, s_missing_expression, expr);
+
+  formals = CADR (expr);
+  body = CDDR (expr);
+
+  nreq = nopt = 0;
+  req = opt = kw = SCM_EOL;
+  rest = allow_other_keys = SCM_BOOL_F;
+
+  while (scm_is_pair (formals) && scm_is_symbol (CAR (formals)))
+    {
+      nreq++;
+      req = scm_cons (CAR (formals), req);
+      formals = scm_cdr (formals);
+    }
+
+  if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_optional))
+    {
+      formals = CDR (formals);
+      while (scm_is_pair (formals)
+             && (scm_is_symbol (CAR (formals)) || scm_is_pair (CAR (formals))))
+        {
+          nopt++;
+          opt = scm_cons (CAR (formals), opt);
+          formals = scm_cdr (formals);
+        }
+    }
+  
+  if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_key))
+    {
+      formals = CDR (formals);
+      while (scm_is_pair (formals)
+             && (scm_is_symbol (CAR (formals)) || scm_is_pair (CAR (formals))))
+        {
+          kw = scm_cons (CAR (formals), kw);
+          formals = scm_cdr (formals);
+        }
+    }
+  
+  if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_allow_other_keys))
+    {
+      formals = CDR (formals);
+      allow_other_keys = SCM_BOOL_T;
+    }
+  
+  if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_rest))
+    {
+      if (scm_ilength (formals) != 2)
+        syntax_error (s_bad_formals, CADR (expr), expr);
+      else
+        rest = CADR (formals);
+    }
+  else if (scm_is_symbol (formals))
+    rest = formals;
+  else if (!scm_is_null (formals))
+    syntax_error (s_bad_formals, CADR (expr), expr);
+  else
+    rest = SCM_BOOL_F;
+  
+  /* Now, iterate through them a second time, building up an expansion-time
+     environment, checking, expanding and canonicalizing the opt/kw init forms,
+     and eventually memoizing the body as well. Note that the rest argument, if
+     any, is expanded before keyword args, thus necessitating the second
+     pass.
+
+     Also note that the specific environment during expansion of init
+     expressions here needs to coincide with the environment when psyntax
+     expands. A lot of effort for something that is only used in the bootstrap
+     memoizer, you say? Yes. Yes it is.
+  */
+
+  inits = SCM_EOL;
+
+  /* nreq is already set, and req is already reversed: simply extend. */
+  env = memoize_env_extend (env, req);
+  
+  /* Build up opt inits and env */
+  opt = scm_reverse_x (opt, SCM_EOL);
+  while (scm_is_pair (opt))
+    {
+      SCM x = CAR (opt);
+      if (scm_is_symbol (x))
+        inits = scm_cons (MAKMEMO_QUOTE (SCM_BOOL_F), inits);
+      else if (scm_ilength (x) == 2 && scm_is_symbol (CAR (x)))
+        inits = scm_cons (memoize (CADR (x), env), inits);
+      else
+        syntax_error (s_bad_formals, CADR (expr), expr);
+      env = scm_cons (scm_is_symbol (x) ? x : CAR (x), env);
+      opt = CDR (opt);
+    }
+      
+  /* Process rest before keyword args */
+  if (scm_is_true (rest))
+    env = scm_cons (rest, env);
+
+  /* Build up kw inits, env, and kw-indices alist */
+  if (scm_is_null (kw))
+    kw_indices = SCM_BOOL_F;
+  else
+    {
+      int idx = nreq + nopt + (scm_is_true (rest) ? 1 : 0);
+
+      kw_indices = SCM_EOL;
+      kw = scm_reverse_x (kw, SCM_EOL);
+      while (scm_is_pair (kw))
+        {
+          SCM x, sym, k, init;
+          x = CAR (kw);
+          if (scm_is_symbol (x))
+            {
+              sym = x;
+              init = SCM_BOOL_F;
+              k = scm_symbol_to_keyword (sym);
+            }
+          else if (scm_ilength (x) == 2 && scm_is_symbol (CAR (x)))
+            {
+              sym = CAR (x);
+              init = CADR (x);
+              k = scm_symbol_to_keyword (sym);
+            }
+          else if (scm_ilength (x) == 3 && scm_is_symbol (CAR (x))
+                   && scm_is_keyword (CADDR (x)))
+            {
+              sym = CAR (x);
+              init = CADR (x);
+              k = CADDR (x);
+            }
+          else
+            syntax_error (s_bad_formals, CADR (expr), expr);
+
+          kw_indices = scm_acons (k, SCM_I_MAKINUM (idx++), kw_indices);
+          inits = scm_cons (memoize (init, env), inits);
+          env = scm_cons (sym, env);
+          kw = CDR (kw);
+        }
+      kw_indices = scm_cons (allow_other_keys,
+                             scm_reverse_x (kw_indices, SCM_UNDEFINED));
+    }
+
+  /* We should check for no duplicates, but given that psyntax does this
+     already, we can punt on it here... */
+
+  inits = scm_reverse_x (inits, SCM_UNDEFINED);
+  body = memoize_sequence (body, env);
+
+  if (scm_is_false (kw_indices) && scm_is_false (rest) && !nopt)
+    return MAKMEMO_LAMBDA (body, FIXED_ARITY (nreq));
+  if (scm_is_false (kw_indices) && !nopt)
+    return MAKMEMO_LAMBDA (body, REST_ARITY (nreq, SCM_BOOL_T));
+  else
+    return MAKMEMO_LAMBDA (body, FULL_ARITY (nreq, rest, nopt, kw_indices, 
inits,
+                                             SCM_BOOL_F));
+}
+
+static SCM
+patch_case_lambda (SCM a, SCM b)
+{
+  SCM mx, body, rest, kw_indices, inits;
+  int nreq, nopt;
+
+  mx = SCM_SMOB_OBJECT_1 (a);
+  body = CAR (mx);
+  mx = CDR (mx);
+
+  if (scm_is_null (CDR (mx)))
+    {
+      nreq = scm_to_int16 (CAR (mx));
+      rest = SCM_BOOL_F;
+      nopt = 0;
+      kw_indices = SCM_BOOL_F;
+      inits = SCM_EOL;
+    }
+  else if (scm_is_null (CDDR (mx)))
+    {
+      nreq = scm_to_int16 (CAR (mx));
+      rest = CADR (mx);
+      nopt = 0;
+      kw_indices = SCM_BOOL_F;
+      inits = SCM_EOL;
+    }
+  else
+    {
+      nreq = scm_to_int16 (CAR (mx));
+      rest = CADR (mx);
+      nopt = scm_to_int16 (CADDR (mx));
+      kw_indices = CADDDR (mx);
+      inits = CADR (CDDDR (mx));
+    }
+
+  return MAKMEMO_LAMBDA
+    (body, FULL_ARITY (nreq, rest, nopt, kw_indices, inits, b));
+}
+
+static SCM
+scm_m_case_lambda (SCM expr, SCM env)
+{
+  SCM ret, clauses;
+
+  const long length = scm_ilength (expr);
+  ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+  ASSERT_SYNTAX (length >= 2, s_missing_expression, expr);
+
+  clauses = scm_reverse (CDR (expr));
+  ret = SCM_BOOL_F;
+  
+  for (; scm_is_pair (clauses); clauses = CDR (clauses))
+    ret = patch_case_lambda
+      (scm_m_lambda (scm_cons (scm_sym_lambda, CAR (clauses)), env), ret);
+  
+  return ret;
+}
+
+static SCM
+scm_m_case_lambda_star (SCM expr, SCM env)
+{
+  SCM ret, clauses;
+
+  const long length = scm_ilength (expr);
+  ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+  ASSERT_SYNTAX (length >= 2, s_missing_expression, expr);
+
+  clauses = scm_reverse (CDR (expr));
+  ret = SCM_BOOL_F;
+  
+  for (; scm_is_pair (clauses); clauses = CDR (clauses))
+    ret = patch_case_lambda
+      (scm_m_lambda_star (scm_cons (sym_lambda_star, CAR (clauses)), env), 
ret);
+  
+  return ret;
 }
 
 /* Check if the format of the bindings is ((<symbol> <init-form>) ...).  */
@@ -796,10 +1062,10 @@ memoize_named_let (const SCM expr, SCM env)
      MAKMEMO_BEGIN
      (scm_list_2 (MAKMEMO_LEX_SET
                   (0,
-                   MAKMEMO_LAMBDA
-                   (nreq, SCM_BOOL_F,
-                    memoize_sequence (CDDDR (expr),
-                                      memoize_env_extend (env, rvariables)))),
+                   MAKMEMO_LAMBDA (memoize_sequence
+                                   (CDDDR (expr),
+                                    memoize_env_extend (env, rvariables)),
+                                   FIXED_ARITY (nreq))),
                   MAKMEMO_CALL (MAKMEMO_LEX_REF (0),
                                 nreq,
                                 memoize_exprs (inits, env)))));
@@ -1118,7 +1384,7 @@ SCM_DEFINE (scm_memoize_lambda, "memoize-lambda", 3, 0, 0,
 {
   SCM_VALIDATE_BOOL (2, rest);
   SCM_VALIDATE_MEMOIZED (3, body);
-  return MAKMEMO_LAMBDA (scm_to_uint16 (nreq), rest, body);
+  return MAKMEMO_LAMBDA (body, REST_ARITY (scm_to_uint16 (nreq), rest));
 }
 #undef FUNC_NAME
 
@@ -1323,9 +1589,39 @@ unmemoize (const SCM expr)
       return scm_list_4 (scm_sym_if, unmemoize (scm_car (args)),
                          unmemoize (scm_cadr (args)), unmemoize (scm_cddr 
(args)));
     case SCM_M_LAMBDA:
-      return scm_list_3 (scm_sym_lambda,
-                         scm_make_list (CAR (args), sym_placeholder),
-                         unmemoize (CDDR (args)));
+      if (scm_is_null (CDDR (args)))
+        return scm_list_3 (scm_sym_lambda,
+                           scm_make_list (CADR (args), sym_placeholder),
+                           unmemoize (CAR (args)));
+      else if (scm_is_null (CDDDR (args)))
+        {
+          SCM formals = scm_make_list (CADR (args), sym_placeholder);
+          return scm_list_3 (scm_sym_lambda,
+                             scm_is_true (CADDR (args))
+                             ? scm_cons_star (sym_placeholder, formals)
+                             : formals,
+                             unmemoize (CAR (args)));
+        }
+      else
+        {
+          SCM body = CAR (args), spec = CDR (args), alt, tail;
+          
+          alt = CADDR (CDDDR (spec));
+          if (scm_is_true (alt))
+            tail = CDR (unmemoize (alt));
+          else
+            tail = SCM_EOL;
+          
+          return scm_cons
+            (sym_case_lambda_star,
+             scm_cons (scm_list_2 (scm_list_5 (CAR (spec),
+                                               CADR (spec),
+                                               CADDR (spec),
+                                               CADDDR (spec),
+                                               unmemoize_exprs (CADR (CDDDR 
(spec)))),
+                                   unmemoize (body)),
+                       tail));
+        }
     case SCM_M_LET:
       return scm_list_3 (scm_sym_let,
                          unmemoize_bindings (CAR (args)),
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index a5f885c..e6e5f17 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -55,7 +55,8 @@
                (and (current-module) the-root-module)
                env)))))
 
-  (define-syntax make-closure
+  ;; Fast case for procedures with fixed arities.
+  (define-syntax make-fixed-closure
     (lambda (x)
       (define *max-static-argument-count* 8)
       (define (make-formals n)
@@ -66,22 +67,17 @@
                  (string (integer->char (+ (char->integer #\a) i))))))
              (iota n)))
       (syntax-case x ()
-        ((_ eval nreq rest? body env) (not (identifier? #'env))
+        ((_ eval nreq body env) (not (identifier? #'env))
          #'(let ((e env))
-             (make-closure eval nreq rest? body e)))
-        ((_ eval nreq rest? body env)
+             (make-fixed-closure eval nreq body e)))
+        ((_ eval nreq body env)
          #`(case nreq
              #,@(map (lambda (nreq)
                        (let ((formals (make-formals nreq)))
                          #`((#,nreq)
-                            (if rest?
-                                (lambda (#,@formals . rest)
-                                  (eval body
-                                        (cons* rest #,@(reverse formals)
-                                               env)))
-                                (lambda (#,@formals)
-                                  (eval body
-                                        (cons* #,@(reverse formals) env)))))))
+                            (lambda (#,@formals)
+                              (eval body
+                                    (cons* #,@(reverse formals) env))))))
                      (iota *max-static-argument-count*))
              (else
               #,(let ((formals (make-formals *max-static-argument-count*)))
@@ -91,13 +87,11 @@
                                (args more))
                         (if (zero? nreq)
                             (eval body
-                                  (if rest?
-                                      (cons args new-env)
-                                      (if (not (null? args))
-                                          (scm-error 'wrong-number-of-args
-                                                     "eval" "Wrong number of 
arguments"
-                                                     '() #f)
-                                          new-env)))
+                                  (if (null? args)
+                                      new-env
+                                      (scm-error 'wrong-number-of-args
+                                                 "eval" "Wrong number of 
arguments"
+                                                 '() #f)))
                             (if (null? args)
                                 (scm-error 'wrong-number-of-args
                                            "eval" "Wrong number of arguments"
@@ -218,6 +212,122 @@
 
 (define primitive-eval
   (let ()
+    ;; We pre-generate procedures with fixed arities, up to some number of
+    ;; arguments; see make-fixed-closure above.
+
+    ;; A unique marker for unbound keywords.
+    (define unbound-arg (list 'unbound-arg))
+
+    ;; Procedures with rest, optional, or keyword arguments, potentially with
+    ;; multiple arities, as with case-lambda.
+    (define (make-general-closure env body nreq rest? nopt kw inits alt)
+      (define alt-proc
+        (and alt
+             (apply make-general-closure env (memoized-expression-data alt))))
+      (lambda %args
+        (let lp ((env env)
+                 (nreq* nreq)
+                 (args %args))
+          (if (> nreq* 0)
+              ;; First, bind required arguments.
+              (if (null? args)
+                  (if alt
+                      (apply alt-proc %args)
+                      (scm-error 'wrong-number-of-args
+                                 "eval" "Wrong number of arguments"
+                                 '() #f))
+                  (lp (cons (car args) env)
+                      (1- nreq*)
+                      (cdr args)))
+              ;; Move on to optional arguments.
+              (if (not kw)
+                  ;; Without keywords, bind optionals from arguments.
+                  (let lp ((env env)
+                           (nopt nopt)
+                           (args args)
+                           (inits inits))
+                    (if (zero? nopt)
+                        (if rest?
+                            (eval body (cons args env))
+                            (if (null? args)
+                                (eval body env)
+                                (if alt
+                                    (apply alt-proc %args)
+                                    (scm-error 'wrong-number-of-args
+                                               "eval" "Wrong number of 
arguments"
+                                               '() #f))))
+                        (if (null? args)
+                            (lp (cons (eval (car inits) env) env)
+                                (1- nopt) args (cdr inits))
+                            (lp (cons (car args) env)
+                                (1- nopt) (cdr args) (cdr inits)))))
+                  ;; With keywords, we stop binding optionals at the first
+                  ;; keyword.
+                  (let lp ((env env)
+                           (nopt* nopt)
+                           (args args)
+                           (inits inits))
+                    (if (> nopt* 0)
+                        (if (or (null? args) (keyword? (car args)))
+                            (lp (cons (eval (car inits) env) env)
+                                (1- nopt*) args (cdr inits))
+                            (lp (cons (car args) env)
+                                (1- nopt*) (cdr args) (cdr inits)))
+                        ;; Finished with optionals.
+                        (let* ((aok (car kw))
+                               (kw (cdr kw))
+                               (kw-base (+ nopt nreq (if rest? 1 0)))
+                               (imax (let lp ((imax (1- kw-base)) (kw kw))
+                                       (if (null? kw)
+                                           imax
+                                           (lp (max (cdar kw) imax)
+                                               (cdr kw)))))
+                               ;; Fill in kwargs  with "undefined" vals.
+                               (env (let lp ((i kw-base)
+                                             ;; Also, here we bind the rest
+                                             ;; arg, if any.
+                                             (env (if rest? (cons args env) 
env)))
+                                      (if (<= i imax)
+                                          (lp (1+ i) (cons unbound-arg env))
+                                          env))))
+                          ;; Now scan args for keywords.
+                          (let lp ((args args))
+                            (if (and (pair? args) (pair? (cdr args))
+                                     (keyword? (car args)))
+                                (let ((kw-pair (assq (car args) kw))
+                                      (v (cadr args)))
+                                  (if kw-pair
+                                      ;; Found a known keyword; set its value.
+                                      (list-set! env (- imax (cdr kw-pair)) v)
+                                      ;; Unknown keyword.
+                                      (if (not aok)
+                                          (scm-error 'keyword-argument-error
+                                                     "eval" "Unrecognized 
keyword"
+                                                     '() #f)))
+                                  (lp (cddr args)))
+                                (if (pair? args)
+                                    (if rest?
+                                        ;; Be lenient parsing rest args.
+                                        (lp (cdr args))
+                                        (scm-error 'keyword-argument-error
+                                                   "eval" "Invalid keyword"
+                                                   '() #f))
+                                    ;; Finished parsing keywords. Fill in
+                                    ;; uninitialized kwargs by evalling init
+                                    ;; expressions in their appropriate
+                                    ;; environment.
+                                    (let lp ((i (- imax kw-base))
+                                             (inits inits))
+                                      (if (pair? inits)
+                                          (let ((tail (list-tail env i)))
+                                            (if (eq? (car tail) unbound-arg)
+                                                (set-car! tail
+                                                          (eval (car inits)
+                                                                (cdr tail))))
+                                            (lp (1- i) (cdr inits)))
+                                          ;; Finally, eval the body.
+                                          (eval body env))))))))))))))
+
     ;; The "engine". EXP is a memoized expression.
     (define (eval exp env)
       (memoized-expression-case exp
@@ -255,9 +365,14 @@
                (lp (cdr inits)
                    (cons (eval (car inits) env) new-env)))))
       
-        (('lambda (nreq rest? . body))
-         (make-closure eval nreq rest? body (capture-env env)))
-        
+        (('lambda (body nreq . tail))
+         (if (null? tail)
+             (make-fixed-closure eval nreq body (capture-env env))
+             (if (null? (cdr tail))
+                 (make-general-closure (capture-env env) body nreq (car tail)
+                                       0 #f '() #f)
+                 (apply make-general-closure (capture-env env) body nreq 
tail))))
+
         (('begin (first . rest))
          (let lp ((first first) (rest rest))
            (if (null? rest)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index a0446d7..f9ee8f8 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,657 +1,643 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(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}#)
+(letrec ((#{and-map*\ 466}#
+           (lambda (#{f\ 528}# #{first\ 529}# . #{rest\ 530}#)
+             (let ((#{t\ 536}# (null? #{first\ 529}#)))
+               (if #{t\ 536}#
+                 #{t\ 536}#
+                 (if (null? #{rest\ 530}#)
+                   (letrec ((#{andmap\ 540}#
+                              (lambda (#{first\ 541}#)
+                                (let ((#{x\ 544}# (car #{first\ 541}#))
+                                      (#{first\ 545}# (cdr #{first\ 541}#)))
+                                  (if (null? #{first\ 545}#)
+                                    (#{f\ 528}# #{x\ 544}#)
+                                    (if (#{f\ 528}# #{x\ 544}#)
+                                      (#{andmap\ 540}# #{first\ 545}#)
                                       #f))))))
-                     (#{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}#)
+                     (#{andmap\ 540}# #{first\ 529}#))
+                   (letrec ((#{andmap\ 551}#
+                              (lambda (#{first\ 552}# #{rest\ 553}#)
+                                (let ((#{x\ 558}# (car #{first\ 552}#))
+                                      (#{xr\ 559}# (map car #{rest\ 553}#))
+                                      (#{first\ 560}# (cdr #{first\ 552}#))
+                                      (#{rest\ 561}# (map cdr #{rest\ 553}#)))
+                                  (if (null? #{first\ 560}#)
+                                    (apply #{f\ 528}#
+                                           (cons #{x\ 558}# #{xr\ 559}#))
+                                    (if (apply #{f\ 528}#
+                                               (cons #{x\ 558}# #{xr\ 559}#))
+                                      (#{andmap\ 551}#
+                                        #{first\ 560}#
+                                        #{rest\ 561}#)
                                       #f))))))
-                     (#{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}#
+                     (#{andmap\ 551}# #{first\ 529}# #{rest\ 530}#))))))))
+  (letrec ((#{lambda-var-list\ 781}#
+             (lambda (#{vars\ 996}#)
+               (letrec ((#{lvl\ 1002}#
+                          (lambda (#{vars\ 1003}# #{ls\ 1004}# #{w\ 1005}#)
+                            (if (pair? #{vars\ 1003}#)
+                              (#{lvl\ 1002}#
+                                (cdr #{vars\ 1003}#)
+                                (cons (#{wrap\ 735}#
+                                        (car #{vars\ 1003}#)
+                                        #{w\ 1005}#
                                         #f)
-                                      #{ls\ 11489}#)
-                                #{w\ 11490}#)
-                              (if (#{id?\ 11151}# #{vars\ 11488}#)
-                                (cons (#{wrap\ 11220}#
-                                        #{vars\ 11488}#
-                                        #{w\ 11490}#
+                                      #{ls\ 1004}#)
+                                #{w\ 1005}#)
+                              (if (#{id?\ 666}# #{vars\ 1003}#)
+                                (cons (#{wrap\ 735}#
+                                        #{vars\ 1003}#
+                                        #{w\ 1005}#
                                         #f)
-                                      #{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}#
+                                      #{ls\ 1004}#)
+                                (if (null? #{vars\ 1003}#)
+                                  #{ls\ 1004}#
+                                  (if (#{syntax-object?\ 630}# #{vars\ 1003}#)
+                                    (#{lvl\ 1002}#
+                                      (#{syntax-object-expression\ 632}#
+                                        #{vars\ 1003}#)
+                                      #{ls\ 1004}#
+                                      (#{join-wraps\ 717}#
+                                        #{w\ 1005}#
+                                        (#{syntax-object-wrap\ 634}#
+                                          #{vars\ 1003}#)))
+                                    (cons #{vars\ 1003}# #{ls\ 1004}#))))))))
+                 (#{lvl\ 1002}#
+                   #{vars\ 996}#
                    '()
                    '(())))))
-           (#{gen-var\ 11264}#
-             (lambda (#{id\ 11501}#)
-               (let ((#{id\ 11504}#
-                       (if (#{syntax-object?\ 11115}# #{id\ 11501}#)
-                         (#{syntax-object-expression\ 11117}#
-                           #{id\ 11501}#)
-                         #{id\ 11501}#)))
+           (#{gen-var\ 779}#
+             (lambda (#{id\ 1016}#)
+               (let ((#{id\ 1019}#
+                       (if (#{syntax-object?\ 630}# #{id\ 1016}#)
+                         (#{syntax-object-expression\ 632}# #{id\ 1016}#)
+                         #{id\ 1016}#)))
                  (gensym
-                   (string-append
-                     (symbol->string #{id\ 11504}#)
-                     " ")))))
-           (#{strip\ 11262}#
-             (lambda (#{x\ 11506}# #{w\ 11507}#)
+                   (string-append (symbol->string #{id\ 1019}#) " ")))))
+           (#{strip\ 777}#
+             (lambda (#{x\ 1021}# #{w\ 1022}#)
                (if (memq 'top
-                         (#{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}#))
+                         (#{wrap-marks\ 673}# #{w\ 1022}#))
+                 #{x\ 1021}#
+                 (letrec ((#{f\ 1028}#
+                            (lambda (#{x\ 1029}#)
+                              (if (#{syntax-object?\ 630}# #{x\ 1029}#)
+                                (#{strip\ 777}#
+                                  (#{syntax-object-expression\ 632}#
+                                    #{x\ 1029}#)
+                                  (#{syntax-object-wrap\ 634}# #{x\ 1029}#))
+                                (if (pair? #{x\ 1029}#)
+                                  (let ((#{a\ 1036}#
+                                          (#{f\ 1028}# (car #{x\ 1029}#)))
+                                        (#{d\ 1037}#
+                                          (#{f\ 1028}# (cdr #{x\ 1029}#))))
+                                    (if (if (eq? #{a\ 1036}# (car #{x\ 1029}#))
+                                          (eq? #{d\ 1037}# (cdr #{x\ 1029}#))
                                           #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}#
+                                      #{x\ 1029}#
+                                      (cons #{a\ 1036}# #{d\ 1037}#)))
+                                  (if (vector? #{x\ 1029}#)
+                                    (let ((#{old\ 1043}#
+                                            (vector->list #{x\ 1029}#)))
+                                      (let ((#{new\ 1045}#
+                                              (map #{f\ 1028}# #{old\ 1043}#)))
+                                        (if (#{and-map*\ 466}#
                                               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}#)
+                                              #{old\ 1043}#
+                                              #{new\ 1045}#)
+                                          #{x\ 1029}#
+                                          (list->vector #{new\ 1045}#))))
+                                    #{x\ 1029}#))))))
+                   (#{f\ 1028}# #{x\ 1021}#)))))
+           (#{chi-lambda-case\ 775}#
+             (lambda (#{e\ 1047}#
+                      #{r\ 1048}#
+                      #{w\ 1049}#
+                      #{s\ 1050}#
+                      #{mod\ 1051}#
+                      #{get-formals\ 1052}#
+                      #{clauses\ 1053}#)
+               (letrec ((#{expand-body\ 1068}#
+                          (lambda (#{req\ 1069}#
+                                   #{opt\ 1070}#
+                                   #{rest\ 1071}#
+                                   #{kw\ 1072}#
+                                   #{body\ 1073}#
+                                   #{vars\ 1074}#
+                                   #{r*\ 1075}#
+                                   #{w*\ 1076}#
+                                   #{inits\ 1077}#
+                                   #{meta\ 1078}#)
+                            ((lambda (#{tmp\ 1089}#)
+                               ((lambda (#{tmp\ 1090}#)
+                                  (if (if #{tmp\ 1090}#
+                                        (apply (lambda (#{docstring\ 1094}#
+                                                        #{e1\ 1095}#
+                                                        #{e2\ 1096}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 11579}#)))
-                                               #{tmp\ 11575}#)
+                                                     #{docstring\ 1094}#)))
+                                               #{tmp\ 1090}#)
                                         #f)
-                                    (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}#
+                                    (apply (lambda (#{docstring\ 1100}#
+                                                    #{e1\ 1101}#
+                                                    #{e2\ 1102}#)
+                                             (#{expand-body\ 1068}#
+                                               #{req\ 1069}#
+                                               #{opt\ 1070}#
+                                               #{rest\ 1071}#
+                                               #{kw\ 1072}#
+                                               (cons #{e1\ 1101}# #{e2\ 1102}#)
+                                               #{vars\ 1074}#
+                                               #{r*\ 1075}#
+                                               #{w*\ 1076}#
+                                               #{inits\ 1077}#
                                                (append
-                                                 #{meta\ 11563}#
+                                                 #{meta\ 1078}#
                                                  (list (cons 'documentation
                                                              (syntax->datum
-                                                               #{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}#
+                                                               #{docstring\ 
1100}#))))))
+                                           #{tmp\ 1090}#)
+                                    ((lambda (#{tmp\ 1105}#)
+                                       (if #{tmp\ 1105}#
+                                         (apply (lambda (#{k\ 1110}#
+                                                         #{v\ 1111}#
+                                                         #{e1\ 1112}#
+                                                         #{e2\ 1113}#)
+                                                  (#{expand-body\ 1068}#
+                                                    #{req\ 1069}#
+                                                    #{opt\ 1070}#
+                                                    #{rest\ 1071}#
+                                                    #{kw\ 1072}#
+                                                    (cons #{e1\ 1112}#
+                                                          #{e2\ 1113}#)
+                                                    #{vars\ 1074}#
+                                                    #{r*\ 1075}#
+                                                    #{w*\ 1076}#
+                                                    #{inits\ 1077}#
                                                     (append
-                                                      #{meta\ 11563}#
+                                                      #{meta\ 1078}#
                                                       (syntax->datum
                                                         (map cons
-                                                             #{k\ 11595}#
-                                                             #{v\ 11596}#)))))
-                                                #{tmp\ 11590}#)
-                                         ((lambda (#{tmp\ 11602}#)
-                                            (if #{tmp\ 11602}#
-                                              (apply (lambda (#{e1\ 11605}#
-                                                              #{e2\ 11606}#)
+                                                             #{k\ 1110}#
+                                                             #{v\ 1111}#)))))
+                                                #{tmp\ 1105}#)
+                                         ((lambda (#{tmp\ 1117}#)
+                                            (if #{tmp\ 1117}#
+                                              (apply (lambda (#{e1\ 1120}#
+                                                              #{e2\ 1121}#)
                                                        (values
-                                                         #{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}#)
+                                                         #{meta\ 1078}#
+                                                         #{req\ 1069}#
+                                                         #{opt\ 1070}#
+                                                         #{rest\ 1071}#
+                                                         #{kw\ 1072}#
+                                                         #{inits\ 1077}#
+                                                         #{vars\ 1074}#
+                                                         (#{chi-body\ 759}#
+                                                           (cons #{e1\ 1120}#
+                                                                 #{e2\ 1121}#)
+                                                           (#{source-wrap\ 
737}#
+                                                             #{e\ 1047}#
+                                                             #{w\ 1049}#
+                                                             #{s\ 1050}#
+                                                             #{mod\ 1051}#)
+                                                           #{r*\ 1075}#
+                                                           #{w*\ 1076}#
+                                                           #{mod\ 1051}#)))
+                                                     #{tmp\ 1117}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to 
match any pattern"
-                                                #{tmp\ 11574}#)))
+                                                #{tmp\ 1089}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 11574}#
+                                            #{tmp\ 1089}#
                                             '(any . each-any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 11574}#
+                                       #{tmp\ 1089}#
                                        '(#(vector #(each (any . any)))
                                          any
                                          .
                                          each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 11574}#
+                                  #{tmp\ 1089}#
                                   '(any any . each-any))))
-                             #{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}#
+                             #{body\ 1073}#)))
+                        (#{expand-kw\ 1066}#
+                          (lambda (#{req\ 1123}#
+                                   #{opt\ 1124}#
+                                   #{rest\ 1125}#
+                                   #{kw\ 1126}#
+                                   #{body\ 1127}#
+                                   #{vars\ 1128}#
+                                   #{r*\ 1129}#
+                                   #{w*\ 1130}#
+                                   #{aok\ 1131}#
+                                   #{out\ 1132}#
+                                   #{inits\ 1133}#)
+                            (if (pair? #{kw\ 1126}#)
+                              ((lambda (#{tmp\ 1147}#)
+                                 ((lambda (#{tmp\ 1148}#)
+                                    (if #{tmp\ 1148}#
+                                      (apply (lambda (#{k\ 1152}#
+                                                      #{id\ 1153}#
+                                                      #{i\ 1154}#)
+                                               (let ((#{v\ 1157}#
+                                                       (#{gen-var\ 779}#
+                                                         #{id\ 1153}#)))
+                                                 (let ((#{l\ 1159}#
+                                                         (#{gen-labels\ 684}#
+                                                           (list #{v\ 
1157}#))))
+                                                   (let ((#{r**\ 1161}#
+                                                           (#{extend-var-env\ 
656}#
+                                                             #{l\ 1159}#
+                                                             (list #{v\ 1157}#)
+                                                             #{r*\ 1129}#)))
+                                                     (let ((#{w**\ 1163}#
+                                                             
(#{make-binding-wrap\ 713}#
+                                                               (list #{id\ 
1153}#)
+                                                               #{l\ 1159}#
+                                                               #{w*\ 1130}#)))
+                                                       (#{expand-kw\ 1066}#
+                                                         #{req\ 1123}#
+                                                         #{opt\ 1124}#
+                                                         #{rest\ 1125}#
+                                                         (cdr #{kw\ 1126}#)
+                                                         #{body\ 1127}#
+                                                         (cons #{v\ 1157}#
+                                                               #{vars\ 1128}#)
+                                                         #{r**\ 1161}#
+                                                         #{w**\ 1163}#
+                                                         #{aok\ 1131}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
11637}#)
+                                                                       #{k\ 
1152}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
11638}#)
-                                                                     #{v\ 
11642}#)
-                                                               #{out\ 11617}#)
-                                                         (cons (#{chi\ 11236}#
-                                                                 #{i\ 11639}#
-                                                                 #{r*\ 11614}#
-                                                                 #{w*\ 11615}#
-                                                                 #{mod\ 
11536}#)
-                                                               #{inits\ 
11618}#)))))))
-                                             #{tmp\ 11633}#)
+                                                                       #{id\ 
1153}#)
+                                                                     #{v\ 
1157}#)
+                                                               #{out\ 1132}#)
+                                                         (cons (#{chi\ 751}#
+                                                                 #{i\ 1154}#
+                                                                 #{r*\ 1129}#
+                                                                 #{w*\ 1130}#
+                                                                 #{mod\ 1051}#)
+                                                               #{inits\ 
1133}#)))))))
+                                             #{tmp\ 1148}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 11632}#)))
+                                        #{tmp\ 1147}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 11632}#
+                                    #{tmp\ 1147}#
                                     '(any any any))))
-                               (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}#))
+                               (car #{kw\ 1126}#))
+                              (#{expand-body\ 1068}#
+                                #{req\ 1123}#
+                                #{opt\ 1124}#
+                                #{rest\ 1125}#
+                                (if (let ((#{t\ 1167}# #{aok\ 1131}#))
+                                      (if #{t\ 1167}#
+                                        #{t\ 1167}#
+                                        (pair? #{out\ 1132}#)))
+                                  (cons #{aok\ 1131}# (reverse #{out\ 1132}#))
                                   #f)
-                                #{body\ 11612}#
-                                (reverse #{vars\ 11613}#)
-                                #{r*\ 11614}#
-                                #{w*\ 11615}#
-                                (reverse #{inits\ 11618}#)
+                                #{body\ 1127}#
+                                (reverse #{vars\ 1128}#)
+                                #{r*\ 1129}#
+                                #{w*\ 1130}#
+                                (reverse #{inits\ 1133}#)
                                 '()))))
-                        (#{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}#
+                        (#{expand-opt\ 1064}#
+                          (lambda (#{req\ 1169}#
+                                   #{opt\ 1170}#
+                                   #{rest\ 1171}#
+                                   #{kw\ 1172}#
+                                   #{body\ 1173}#
+                                   #{vars\ 1174}#
+                                   #{r*\ 1175}#
+                                   #{w*\ 1176}#
+                                   #{out\ 1177}#
+                                   #{inits\ 1178}#)
+                            (if (pair? #{opt\ 1170}#)
+                              ((lambda (#{tmp\ 1191}#)
+                                 ((lambda (#{tmp\ 1192}#)
+                                    (if #{tmp\ 1192}#
+                                      (apply (lambda (#{id\ 1195}# #{i\ 1196}#)
+                                               (let ((#{v\ 1199}#
+                                                       (#{gen-var\ 779}#
+                                                         #{id\ 1195}#)))
+                                                 (let ((#{l\ 1201}#
+                                                         (#{gen-labels\ 684}#
+                                                           (list #{v\ 
1199}#))))
+                                                   (let ((#{r**\ 1203}#
+                                                           (#{extend-var-env\ 
656}#
+                                                             #{l\ 1201}#
+                                                             (list #{v\ 1199}#)
+                                                             #{r*\ 1175}#)))
+                                                     (let ((#{w**\ 1205}#
+                                                             
(#{make-binding-wrap\ 713}#
+                                                               (list #{id\ 
1195}#)
+                                                               #{l\ 1201}#
+                                                               #{w*\ 1176}#)))
+                                                       (#{expand-opt\ 1064}#
+                                                         #{req\ 1169}#
+                                                         (cdr #{opt\ 1170}#)
+                                                         #{rest\ 1171}#
+                                                         #{kw\ 1172}#
+                                                         #{body\ 1173}#
+                                                         (cons #{v\ 1199}#
+                                                               #{vars\ 1174}#)
+                                                         #{r**\ 1203}#
+                                                         #{w**\ 1205}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 11680}#)
-                                                               #{out\ 11662}#)
-                                                         (cons (#{chi\ 11236}#
-                                                                 #{i\ 11681}#
-                                                                 #{r*\ 11660}#
-                                                                 #{w*\ 11661}#
-                                                                 #{mod\ 
11536}#)
-                                                               #{inits\ 
11663}#)))))))
-                                             #{tmp\ 11677}#)
+                                                                 #{id\ 1195}#)
+                                                               #{out\ 1177}#)
+                                                         (cons (#{chi\ 751}#
+                                                                 #{i\ 1196}#
+                                                                 #{r*\ 1175}#
+                                                                 #{w*\ 1176}#
+                                                                 #{mod\ 1051}#)
+                                                               #{inits\ 
1178}#)))))))
+                                             #{tmp\ 1192}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 11676}#)))
+                                        #{tmp\ 1191}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 11676}#
+                                    #{tmp\ 1191}#
                                     '(any any))))
-                               (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}#)
+                               (car #{opt\ 1170}#))
+                              (if #{rest\ 1171}#
+                                (let ((#{v\ 1210}#
+                                        (#{gen-var\ 779}# #{rest\ 1171}#)))
+                                  (let ((#{l\ 1212}#
+                                          (#{gen-labels\ 684}#
+                                            (list #{v\ 1210}#))))
+                                    (let ((#{r*\ 1214}#
+                                            (#{extend-var-env\ 656}#
+                                              #{l\ 1212}#
+                                              (list #{v\ 1210}#)
+                                              #{r*\ 1175}#)))
+                                      (let ((#{w*\ 1216}#
+                                              (#{make-binding-wrap\ 713}#
+                                                (list #{rest\ 1171}#)
+                                                #{l\ 1212}#
+                                                #{w*\ 1176}#)))
+                                        (#{expand-kw\ 1066}#
+                                          #{req\ 1169}#
+                                          (if (pair? #{out\ 1177}#)
+                                            (reverse #{out\ 1177}#)
                                             #f)
-                                          (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}#)
+                                          (syntax->datum #{rest\ 1171}#)
+                                          (if (pair? #{kw\ 1172}#)
+                                            (cdr #{kw\ 1172}#)
+                                            #{kw\ 1172}#)
+                                          #{body\ 1173}#
+                                          (cons #{v\ 1210}# #{vars\ 1174}#)
+                                          #{r*\ 1214}#
+                                          #{w*\ 1216}#
+                                          (if (pair? #{kw\ 1172}#)
+                                            (car #{kw\ 1172}#)
                                             #f)
                                           '()
-                                          #{inits\ 11663}#)))))
-                                (#{expand-kw\ 11551}#
-                                  #{req\ 11654}#
-                                  (if (pair? #{out\ 11662}#)
-                                    (reverse #{out\ 11662}#)
+                                          #{inits\ 1178}#)))))
+                                (#{expand-kw\ 1066}#
+                                  #{req\ 1169}#
+                                  (if (pair? #{out\ 1177}#)
+                                    (reverse #{out\ 1177}#)
                                     #f)
                                   #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}#)
+                                  (if (pair? #{kw\ 1172}#)
+                                    (cdr #{kw\ 1172}#)
+                                    #{kw\ 1172}#)
+                                  #{body\ 1173}#
+                                  #{vars\ 1174}#
+                                  #{r*\ 1175}#
+                                  #{w*\ 1176}#
+                                  (if (pair? #{kw\ 1172}#)
+                                    (car #{kw\ 1172}#)
                                     #f)
                                   '()
-                                  #{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}#
+                                  #{inits\ 1178}#)))))
+                        (#{expand-req\ 1062}#
+                          (lambda (#{req\ 1218}#
+                                   #{opt\ 1219}#
+                                   #{rest\ 1220}#
+                                   #{kw\ 1221}#
+                                   #{body\ 1222}#)
+                            (let ((#{vars\ 1230}#
+                                    (map #{gen-var\ 779}# #{req\ 1218}#))
+                                  (#{labels\ 1231}#
+                                    (#{gen-labels\ 684}# #{req\ 1218}#)))
+                              (let ((#{r*\ 1234}#
+                                      (#{extend-var-env\ 656}#
+                                        #{labels\ 1231}#
+                                        #{vars\ 1230}#
+                                        #{r\ 1048}#))
+                                    (#{w*\ 1235}#
+                                      (#{make-binding-wrap\ 713}#
+                                        #{req\ 1218}#
+                                        #{labels\ 1231}#
+                                        #{w\ 1049}#)))
+                                (#{expand-opt\ 1064}#
+                                  (map syntax->datum #{req\ 1218}#)
+                                  #{opt\ 1219}#
+                                  #{rest\ 1220}#
+                                  #{kw\ 1221}#
+                                  #{body\ 1222}#
+                                  (reverse #{vars\ 1230}#)
+                                  #{r*\ 1234}#
+                                  #{w*\ 1235}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 11721}#)
-                    ((lambda (#{tmp\ 11722}#)
-                       (if #{tmp\ 11722}#
+                 ((lambda (#{tmp\ 1236}#)
+                    ((lambda (#{tmp\ 1237}#)
+                       (if #{tmp\ 1237}#
                          (apply (lambda () (values (quote ()) #f))
-                                #{tmp\ 11722}#)
-                         ((lambda (#{tmp\ 11723}#)
-                            (if #{tmp\ 11723}#
-                              (apply (lambda (#{args\ 11730}#
-                                              #{e1\ 11731}#
-                                              #{e2\ 11732}#
-                                              #{args*\ 11733}#
-                                              #{e1*\ 11734}#
-                                              #{e2*\ 11735}#)
+                                #{tmp\ 1237}#)
+                         ((lambda (#{tmp\ 1238}#)
+                            (if #{tmp\ 1238}#
+                              (apply (lambda (#{args\ 1245}#
+                                              #{e1\ 1246}#
+                                              #{e2\ 1247}#
+                                              #{args*\ 1248}#
+                                              #{e1*\ 1249}#
+                                              #{e2*\ 1250}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 11537}#
-                                             #{args\ 11730}#))
-                                         (lambda (#{req\ 11736}#
-                                                  #{opt\ 11737}#
-                                                  #{rest\ 11738}#
-                                                  #{kw\ 11739}#)
+                                           (#{get-formals\ 1052}#
+                                             #{args\ 1245}#))
+                                         (lambda (#{req\ 1251}#
+                                                  #{opt\ 1252}#
+                                                  #{rest\ 1253}#
+                                                  #{kw\ 1254}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{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}#)
+                                               (#{expand-req\ 1062}#
+                                                 #{req\ 1251}#
+                                                 #{opt\ 1252}#
+                                                 #{rest\ 1253}#
+                                                 #{kw\ 1254}#
+                                                 (cons #{e1\ 1246}#
+                                                       #{e2\ 1247}#)))
+                                             (lambda (#{meta\ 1260}#
+                                                      #{req\ 1261}#
+                                                      #{opt\ 1262}#
+                                                      #{rest\ 1263}#
+                                                      #{kw\ 1264}#
+                                                      #{inits\ 1265}#
+                                                      #{vars\ 1266}#
+                                                      #{body\ 1267}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{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}#)
+                                                   (#{chi-lambda-case\ 775}#
+                                                     #{e\ 1047}#
+                                                     #{r\ 1048}#
+                                                     #{w\ 1049}#
+                                                     #{s\ 1050}#
+                                                     #{mod\ 1051}#
+                                                     #{get-formals\ 1052}#
+                                                     (map (lambda (#{tmp\ 
1278}#
+                                                                   #{tmp\ 
1277}#
+                                                                   #{tmp\ 
1276}#)
+                                                            (cons #{tmp\ 1276}#
+                                                                  (cons #{tmp\ 
1277}#
+                                                                        #{tmp\ 
1278}#)))
+                                                          #{e2*\ 1250}#
+                                                          #{e1*\ 1249}#
+                                                          #{args*\ 1248}#)))
+                                                 (lambda (#{meta*\ 1280}#
+                                                          #{else*\ 1281}#)
                                                    (values
                                                      (append
-                                                       #{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}#)
+                                                       #{meta\ 1260}#
+                                                       #{meta*\ 1280}#)
+                                                     (#{build-lambda-case\ 
612}#
+                                                       #{s\ 1050}#
+                                                       #{req\ 1261}#
+                                                       #{opt\ 1262}#
+                                                       #{rest\ 1263}#
+                                                       #{kw\ 1264}#
+                                                       #{inits\ 1265}#
+                                                       #{vars\ 1266}#
+                                                       #{body\ 1267}#
+                                                       #{else*\ 1281}#)))))))))
+                                     #{tmp\ 1238}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 11721}#)))
+                                #{tmp\ 1236}#)))
                           ($sc-dispatch
-                            #{tmp\ 11721}#
+                            #{tmp\ 1236}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($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}#
+                     ($sc-dispatch #{tmp\ 1236}# (quote ()))))
+                  #{clauses\ 1053}#))))
+           (#{lambda*-formals\ 773}#
+             (lambda (#{orig-args\ 1284}#)
+               (letrec ((#{check\ 1295}#
+                          (lambda (#{req\ 1296}#
+                                   #{opt\ 1297}#
+                                   #{rest\ 1298}#
+                                   #{kw\ 1299}#)
+                            (if (#{distinct-bound-ids?\ 731}#
                                   (append
-                                    #{req\ 11781}#
-                                    (map car #{opt\ 11782}#)
-                                    (if #{rest\ 11783}#
-                                      (list #{rest\ 11783}#)
+                                    #{req\ 1296}#
+                                    (map car #{opt\ 1297}#)
+                                    (if #{rest\ 1298}#
+                                      (list #{rest\ 1298}#)
                                       '())
-                                    (if (pair? #{kw\ 11784}#)
-                                      (map cadr (cdr #{kw\ 11784}#))
+                                    (if (pair? #{kw\ 1299}#)
+                                      (map cadr (cdr #{kw\ 1299}#))
                                       '())))
                               (values
-                                #{req\ 11781}#
-                                #{opt\ 11782}#
-                                #{rest\ 11783}#
-                                #{kw\ 11784}#)
+                                #{req\ 1296}#
+                                #{opt\ 1297}#
+                                #{rest\ 1298}#
+                                #{kw\ 1299}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{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}#)
+                                #{orig-args\ 1284}#))))
+                        (#{rest\ 1293}#
+                          (lambda (#{args\ 1307}#
+                                   #{req\ 1308}#
+                                   #{opt\ 1309}#
+                                   #{kw\ 1310}#)
+                            ((lambda (#{tmp\ 1315}#)
+                               ((lambda (#{tmp\ 1316}#)
+                                  (if (if #{tmp\ 1316}#
+                                        (apply (lambda (#{r\ 1318}#)
+                                                 (#{id?\ 666}# #{r\ 1318}#))
+                                               #{tmp\ 1316}#)
                                         #f)
-                                    (apply (lambda (#{r\ 11805}#)
-                                             (#{check\ 11780}#
-                                               #{req\ 11793}#
-                                               #{opt\ 11794}#
-                                               #{r\ 11805}#
-                                               #{kw\ 11795}#))
-                                           #{tmp\ 11801}#)
-                                    ((lambda (#{else\ 11807}#)
+                                    (apply (lambda (#{r\ 1320}#)
+                                             (#{check\ 1295}#
+                                               #{req\ 1308}#
+                                               #{opt\ 1309}#
+                                               #{r\ 1320}#
+                                               #{kw\ 1310}#))
+                                           #{tmp\ 1316}#)
+                                    ((lambda (#{else\ 1322}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{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}#
+                                         #{orig-args\ 1284}#
+                                         #{args\ 1307}#))
+                                     #{tmp\ 1315}#)))
+                                (list #{tmp\ 1315}#)))
+                             #{args\ 1307}#)))
+                        (#{key\ 1291}#
+                          (lambda (#{args\ 1323}#
+                                   #{req\ 1324}#
+                                   #{opt\ 1325}#
+                                   #{rkey\ 1326}#)
+                            ((lambda (#{tmp\ 1331}#)
+                               ((lambda (#{tmp\ 1332}#)
+                                  (if #{tmp\ 1332}#
                                     (apply (lambda ()
-                                             (#{check\ 11780}#
-                                               #{req\ 11809}#
-                                               #{opt\ 11810}#
+                                             (#{check\ 1295}#
+                                               #{req\ 1324}#
+                                               #{opt\ 1325}#
                                                #f
                                                (cons #f
                                                      (reverse
-                                                       #{rkey\ 11811}#))))
-                                           #{tmp\ 11817}#)
-                                    ((lambda (#{tmp\ 11818}#)
-                                       (if (if #{tmp\ 11818}#
-                                             (apply (lambda (#{a\ 11821}#
-                                                             #{b\ 11822}#)
-                                                      (#{id?\ 11151}#
-                                                        #{a\ 11821}#))
-                                                    #{tmp\ 11818}#)
+                                                       #{rkey\ 1326}#))))
+                                           #{tmp\ 1332}#)
+                                    ((lambda (#{tmp\ 1333}#)
+                                       (if (if #{tmp\ 1333}#
+                                             (apply (lambda (#{a\ 1336}#
+                                                             #{b\ 1337}#)
+                                                      (#{id?\ 666}#
+                                                        #{a\ 1336}#))
+                                                    #{tmp\ 1333}#)
                                              #f)
-                                         (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}#
+                                         (apply (lambda (#{a\ 1340}#
+                                                         #{b\ 1341}#)
+                                                  ((lambda (#{tmp\ 1343}#)
+                                                     ((lambda (#{k\ 1345}#)
+                                                        (#{key\ 1291}#
+                                                          #{b\ 1341}#
+                                                          #{req\ 1324}#
+                                                          #{opt\ 1325}#
+                                                          (cons (cons #{k\ 
1345}#
+                                                                      (cons 
#{a\ 1340}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i11829"))
+                                                                               
    #("i1344"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i11823"
-                                                                               
      "i11824"))
+                                                                               
    #("i1338"
+                                                                               
      "i1339"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -665,10 +651,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i11812"
-                                                                               
      "i11813"
-                                                                               
      "i11814"
-                                                                               
      "i11815"))
+                                                                               
    #("i1327"
+                                                                               
      "i1328"
+                                                                               
      "i1329"
+                                                                               
      "i1330"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -679,15 +665,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i11779"
-                                                                               
     "i11777"
-                                                                               
     "i11775"
-                                                                               
     "i11773"
-                                                                               
     "i11771"))
+                                                                               
    ("i1294"
+                                                                               
     "i1292"
+                                                                               
     "i1290"
+                                                                               
     "i1288"
+                                                                               
     "i1286"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i11770"))
+                                                                               
    #("i1285"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -923,351 +909,349 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("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"))
+                                                                               
    ("i780"
+                                                                               
     "i778"
+                                                                               
     "i776"
+                                                                               
     "i774"
+                                                                               
     "i772"
+                                                                               
     "i770"
+                                                                               
     "i768"
+                                                                               
     "i766"
+                                                                               
     "i764"
+                                                                               
     "i762"
+                                                                               
     "i760"
+                                                                               
     "i758"
+                                                                               
     "i756"
+                                                                               
     "i754"
+                                                                               
     "i752"
+                                                                               
     "i750"
+                                                                               
     "i748"
+                                                                               
     "i746"
+                                                                               
     "i744"
+                                                                               
     "i742"
+                                                                               
     "i740"
+                                                                               
     "i738"
+                                                                               
     "i736"
+                                                                               
     "i734"
+                                                                               
     "i732"
+                                                                               
     "i730"
+                                                                               
     "i728"
+                                                                               
     "i726"
+                                                                               
     "i724"
+                                                                               
     "i722"
+                                                                               
     "i720"
+                                                                               
     "i718"
+                                                                               
     "i716"
+                                                                               
     "i714"
+                                                                               
     "i712"
+                                                                               
     "i710"
+                                                                               
     "i709"
+                                                                               
     "i708"
+                                                                               
     "i706"
+                                                                               
     "i705"
+                                                                               
     "i704"
+                                                                               
     "i703"
+                                                                               
     "i702"
+                                                                               
     "i700"
+                                                                               
     "i698"
+                                                                               
     "i696"
+                                                                               
     "i694"
+                                                                               
     "i692"
+                                                                               
     "i690"
+                                                                               
     "i688"
+                                                                               
     "i686"
+                                                                               
     "i683"
+                                                                               
     "i681"
+                                                                               
     "i680"
+                                                                               
     "i679"
+                                                                               
     "i678"
+                                                                               
     "i677"
+                                                                               
     "i676"
+                                                                               
     "i674"
+                                                                               
     "i672"
+                                                                               
     "i670"
+                                                                               
     "i668"
+                                                                               
     "i667"
+                                                                               
     "i665"
+                                                                               
     "i663"
+                                                                               
     "i661"
+                                                                               
     "i659"
+                                                                               
     "i657"
+                                                                               
     "i655"
+                                                                               
     "i653"
+                                                                               
     "i652"
+                                                                               
     "i650"
+                                                                               
     "i648"
+                                                                               
     "i647"
+                                                                               
     "i646"
+                                                                               
     "i644"
+                                                                               
     "i643"
+                                                                               
     "i641"
+                                                                               
     "i639"
+                                                                               
     "i637"
+                                                                               
     "i635"
+                                                                               
     "i633"
+                                                                               
     "i631"
+                                                                               
     "i629"
+                                                                               
     "i627"
+                                                                               
     "i625"
+                                                                               
     "i623"
+                                                                               
     "i621"
+                                                                               
     "i619"
+                                                                               
     "i617"
+                                                                               
     "i615"
+                                                                               
     "i613"
+                                                                               
     "i611"
+                                                                               
     "i609"
+                                                                               
     "i607"
+                                                                               
     "i605"
+                                                                               
     "i603"
+                                                                               
     "i601"
+                                                                               
     "i599"
+                                                                               
     "i597"
+                                                                               
     "i595"
+                                                                               
     "i593"
+                                                                               
     "i591"
+                                                                               
     "i589"
+                                                                               
     "i587"
+                                                                               
     "i585"
+                                                                               
     "i583"
+                                                                               
     "i581"
+                                                                               
     "i579"
+                                                                               
     "i578"
+                                                                               
     "i576"
+                                                                               
     "i574"
+                                                                               
     "i572"
+                                                                               
     "i570"
+                                                                               
     "i568"
+                                                                               
     "i566"
+                                                                               
     "i564"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      and-map*)
                                                                                
    ((top)
                                                                                
     (top))
-                                                                               
    ("i10952"
-                                                                               
     "i10950")))
+                                                                               
    ("i467"
+                                                                               
     "i465")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
11811}#)))
-                                                      #{tmp\ 11828}#))
+                                                                #{rkey\ 
1326}#)))
+                                                      #{tmp\ 1343}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{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}#)
+                                                       #{a\ 1340}#))))
+                                                #{tmp\ 1333}#)
+                                         ((lambda (#{tmp\ 1346}#)
+                                            (if (if #{tmp\ 1346}#
+                                                  (apply (lambda (#{a\ 1350}#
+                                                                  #{init\ 
1351}#
+                                                                  #{b\ 1352}#)
+                                                           (#{id?\ 666}#
+                                                             #{a\ 1350}#))
+                                                         #{tmp\ 1346}#)
                                                   #f)
-                                              (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}#))
+                                              (apply (lambda (#{a\ 1356}#
+                                                              #{init\ 1357}#
+                                                              #{b\ 1358}#)
+                                                       ((lambda (#{tmp\ 1360}#)
+                                                          ((lambda (#{k\ 
1362}#)
+                                                             (#{key\ 1291}#
+                                                               #{b\ 1358}#
+                                                               #{req\ 1324}#
+                                                               #{opt\ 1325}#
+                                                               (cons (list 
#{k\ 1362}#
+                                                                           
#{a\ 1356}#
+                                                                           
#{init\ 1357}#)
+                                                                     #{rkey\ 
1326}#)))
+                                                           #{tmp\ 1360}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{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}#)
+                                                            #{a\ 1356}#))))
+                                                     #{tmp\ 1346}#)
+                                              ((lambda (#{tmp\ 1363}#)
+                                                 (if (if #{tmp\ 1363}#
+                                                       (apply (lambda (#{a\ 
1368}#
+                                                                       #{init\ 
1369}#
+                                                                       #{k\ 
1370}#
+                                                                       #{b\ 
1371}#)
+                                                                (if (#{id?\ 
666}#
+                                                                      #{a\ 
1368}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
11855}#))
+                                                                      #{k\ 
1370}#))
                                                                   #f))
-                                                              #{tmp\ 11848}#)
+                                                              #{tmp\ 1363}#)
                                                        #f)
-                                                   (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}#)
+                                                   (apply (lambda (#{a\ 1378}#
+                                                                   #{init\ 
1379}#
+                                                                   #{k\ 1380}#
+                                                                   #{b\ 1381}#)
+                                                            (#{key\ 1291}#
+                                                              #{b\ 1381}#
+                                                              #{req\ 1324}#
+                                                              #{opt\ 1325}#
+                                                              (cons (list #{k\ 
1380}#
+                                                                          #{a\ 
1378}#
+                                                                          
#{init\ 1379}#)
+                                                                    #{rkey\ 
1326}#)))
+                                                          #{tmp\ 1363}#)
+                                                   ((lambda (#{tmp\ 1382}#)
+                                                      (if (if #{tmp\ 1382}#
+                                                            (apply (lambda 
(#{aok\ 1384}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 11869}#)
+                                                                            
#{aok\ 1384}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
11867}#)
+                                                                   #{tmp\ 
1382}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
11871}#)
-                                                                 (#{check\ 
11780}#
-                                                                   #{req\ 
11809}#
-                                                                   #{opt\ 
11810}#
+                                                        (apply (lambda (#{aok\ 
1386}#)
+                                                                 (#{check\ 
1295}#
+                                                                   #{req\ 
1324}#
+                                                                   #{opt\ 
1325}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 11811}#))))
-                                                               #{tmp\ 11867}#)
-                                                        ((lambda (#{tmp\ 
11872}#)
-                                                           (if (if #{tmp\ 
11872}#
-                                                                 (apply 
(lambda (#{aok\ 11876}#
-                                                                               
  #{a\ 11877}#
-                                                                               
  #{b\ 11878}#)
+                                                                           
#{rkey\ 1326}#))))
+                                                               #{tmp\ 1382}#)
+                                                        ((lambda (#{tmp\ 
1387}#)
+                                                           (if (if #{tmp\ 
1387}#
+                                                                 (apply 
(lambda (#{aok\ 1391}#
+                                                                               
  #{a\ 1392}#
+                                                                               
  #{b\ 1393}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 11876}#)
+                                                                               
      #{aok\ 1391}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 11877}#)
+                                                                               
    #{a\ 1392}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
11872}#)
+                                                                        #{tmp\ 
1387}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 11884}#
-                                                                             
#{a\ 11885}#
-                                                                             
#{b\ 11886}#)
-                                                                      (#{rest\ 
11778}#
-                                                                        #{b\ 
11886}#
-                                                                        #{req\ 
11809}#
-                                                                        #{opt\ 
11810}#
+                                                             (apply (lambda 
(#{aok\ 1399}#
+                                                                             
#{a\ 1400}#
+                                                                             
#{b\ 1401}#)
+                                                                      (#{rest\ 
1293}#
+                                                                        #{b\ 
1401}#
+                                                                        #{req\ 
1324}#
+                                                                        #{opt\ 
1325}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 11811}#))))
-                                                                    #{tmp\ 
11872}#)
-                                                             ((lambda (#{tmp\ 
11887}#)
-                                                                (if (if #{tmp\ 
11887}#
-                                                                      (apply 
(lambda (#{aok\ 11890}#
-                                                                               
       #{r\ 11891}#)
+                                                                               
 #{rkey\ 1326}#))))
+                                                                    #{tmp\ 
1387}#)
+                                                             ((lambda (#{tmp\ 
1402}#)
+                                                                (if (if #{tmp\ 
1402}#
+                                                                      (apply 
(lambda (#{aok\ 1405}#
+                                                                               
       #{r\ 1406}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 11890}#)
+                                                                               
           #{aok\ 1405}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 11151}#
-                                                                               
    #{r\ 11891}#)
+                                                                               
  (#{id?\ 666}#
+                                                                               
    #{r\ 1406}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 11887}#)
+                                                                             
#{tmp\ 1402}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 11896}#
-                                                                               
   #{r\ 11897}#)
-                                                                           
(#{rest\ 11778}#
-                                                                             
#{r\ 11897}#
-                                                                             
#{req\ 11809}#
-                                                                             
#{opt\ 11810}#
+                                                                  (apply 
(lambda (#{aok\ 1411}#
+                                                                               
   #{r\ 1412}#)
+                                                                           
(#{rest\ 1293}#
+                                                                             
#{r\ 1412}#
+                                                                             
#{req\ 1324}#
+                                                                             
#{opt\ 1325}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 11811}#))))
-                                                                         
#{tmp\ 11887}#)
-                                                                  ((lambda 
(#{tmp\ 11898}#)
-                                                                     (if (if 
#{tmp\ 11898}#
-                                                                           
(apply (lambda (#{a\ 11901}#
-                                                                               
            #{b\ 11902}#)
+                                                                               
      #{rkey\ 1326}#))))
+                                                                         
#{tmp\ 1402}#)
+                                                                  ((lambda 
(#{tmp\ 1413}#)
+                                                                     (if (if 
#{tmp\ 1413}#
+                                                                           
(apply (lambda (#{a\ 1416}#
+                                                                               
            #{b\ 1417}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 11901}#)
+                                                                               
            #{a\ 1416}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 11898}#)
+                                                                               
   #{tmp\ 1413}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 11905}#
-                                                                               
        #{b\ 11906}#)
-                                                                               
 (#{rest\ 11778}#
-                                                                               
   #{b\ 11906}#
-                                                                               
   #{req\ 11809}#
-                                                                               
   #{opt\ 11810}#
+                                                                       (apply 
(lambda (#{a\ 1420}#
+                                                                               
        #{b\ 1421}#)
+                                                                               
 (#{rest\ 1293}#
+                                                                               
   #{b\ 1421}#
+                                                                               
   #{req\ 1324}#
+                                                                               
   #{opt\ 1325}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 11811}#))))
-                                                                              
#{tmp\ 11898}#)
-                                                                       
((lambda (#{tmp\ 11907}#)
-                                                                          (if 
(if #{tmp\ 11907}#
-                                                                               
 (apply (lambda (#{r\ 11909}#)
-                                                                               
          (#{id?\ 11151}#
-                                                                               
            #{r\ 11909}#))
-                                                                               
        #{tmp\ 11907}#)
+                                                                               
           #{rkey\ 1326}#))))
+                                                                              
#{tmp\ 1413}#)
+                                                                       
((lambda (#{tmp\ 1422}#)
+                                                                          (if 
(if #{tmp\ 1422}#
+                                                                               
 (apply (lambda (#{r\ 1424}#)
+                                                                               
          (#{id?\ 666}#
+                                                                               
            #{r\ 1424}#))
+                                                                               
        #{tmp\ 1422}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 11911}#)
-                                                                               
      (#{rest\ 11778}#
-                                                                               
        #{r\ 11911}#
-                                                                               
        #{req\ 11809}#
-                                                                               
        #{opt\ 11810}#
+                                                                            
(apply (lambda (#{r\ 1426}#)
+                                                                               
      (#{rest\ 1293}#
+                                                                               
        #{r\ 1426}#
+                                                                               
        #{req\ 1324}#
+                                                                               
        #{opt\ 1325}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 11811}#))))
-                                                                               
    #{tmp\ 11907}#)
-                                                                            
((lambda (#{else\ 11913}#)
+                                                                               
                #{rkey\ 1326}#))))
+                                                                               
    #{tmp\ 1422}#)
+                                                                            
((lambda (#{else\ 1428}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 11769}#
-                                                                               
  #{args\ 11808}#))
-                                                                             
#{tmp\ 11816}#)))
-                                                                        (list 
#{tmp\ 11816}#))))
+                                                                               
  #{orig-args\ 1284}#
+                                                                               
  #{args\ 1323}#))
+                                                                             
#{tmp\ 1331}#)))
+                                                                        (list 
#{tmp\ 1331}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
11816}#
+                                                                     #{tmp\ 
1331}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 11816}#
+                                                                #{tmp\ 1331}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 11816}#
+                                                           #{tmp\ 1331}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 11816}#
+                                                      #{tmp\ 1331}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 11816}#
+                                                 #{tmp\ 1331}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 11816}#
+                                            #{tmp\ 1331}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 11816}#
+                                       #{tmp\ 1331}#
                                        '(any . any)))))
-                                ($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}#
+                                ($sc-dispatch #{tmp\ 1331}# (quote ()))))
+                             #{args\ 1323}#)))
+                        (#{opt\ 1289}#
+                          (lambda (#{args\ 1429}# #{req\ 1430}# #{ropt\ 1431}#)
+                            ((lambda (#{tmp\ 1435}#)
+                               ((lambda (#{tmp\ 1436}#)
+                                  (if #{tmp\ 1436}#
                                     (apply (lambda ()
-                                             (#{check\ 11780}#
-                                               #{req\ 11915}#
-                                               (reverse #{ropt\ 11916}#)
+                                             (#{check\ 1295}#
+                                               #{req\ 1430}#
+                                               (reverse #{ropt\ 1431}#)
                                                #f
                                                '()))
-                                           #{tmp\ 11921}#)
-                                    ((lambda (#{tmp\ 11922}#)
-                                       (if (if #{tmp\ 11922}#
-                                             (apply (lambda (#{a\ 11925}#
-                                                             #{b\ 11926}#)
-                                                      (#{id?\ 11151}#
-                                                        #{a\ 11925}#))
-                                                    #{tmp\ 11922}#)
+                                           #{tmp\ 1436}#)
+                                    ((lambda (#{tmp\ 1437}#)
+                                       (if (if #{tmp\ 1437}#
+                                             (apply (lambda (#{a\ 1440}#
+                                                             #{b\ 1441}#)
+                                                      (#{id?\ 666}#
+                                                        #{a\ 1440}#))
+                                                    #{tmp\ 1437}#)
                                              #f)
-                                         (apply (lambda (#{a\ 11929}#
-                                                         #{b\ 11930}#)
-                                                  (#{opt\ 11774}#
-                                                    #{b\ 11930}#
-                                                    #{req\ 11915}#
-                                                    (cons (cons #{a\ 11929}#
+                                         (apply (lambda (#{a\ 1444}#
+                                                         #{b\ 1445}#)
+                                                  (#{opt\ 1289}#
+                                                    #{b\ 1445}#
+                                                    #{req\ 1430}#
+                                                    (cons (cons #{a\ 1444}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1275,8 +1259,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       
#("i11927"
-                                                                         
"i11928"))
+                                                                       
#("i1442"
+                                                                         
"i1443"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1288,9 +1272,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       
#("i11917"
-                                                                         
"i11918"
-                                                                         
"i11919"))
+                                                                       
#("i1432"
+                                                                         
"i1433"
+                                                                         
"i1434"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1301,15 +1285,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       
("i11779"
-                                                                        
"i11777"
-                                                                        
"i11775"
-                                                                        
"i11773"
-                                                                        
"i11771"))
+                                                                       ("i1294"
+                                                                        "i1292"
+                                                                        "i1290"
+                                                                        "i1288"
+                                                                        
"i1286"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       
#("i11770"))
+                                                                       
#("i1285"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1545,462 +1529,462 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       
("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"))
+                                                                       ("i780"
+                                                                        "i778"
+                                                                        "i776"
+                                                                        "i774"
+                                                                        "i772"
+                                                                        "i770"
+                                                                        "i768"
+                                                                        "i766"
+                                                                        "i764"
+                                                                        "i762"
+                                                                        "i760"
+                                                                        "i758"
+                                                                        "i756"
+                                                                        "i754"
+                                                                        "i752"
+                                                                        "i750"
+                                                                        "i748"
+                                                                        "i746"
+                                                                        "i744"
+                                                                        "i742"
+                                                                        "i740"
+                                                                        "i738"
+                                                                        "i736"
+                                                                        "i734"
+                                                                        "i732"
+                                                                        "i730"
+                                                                        "i728"
+                                                                        "i726"
+                                                                        "i724"
+                                                                        "i722"
+                                                                        "i720"
+                                                                        "i718"
+                                                                        "i716"
+                                                                        "i714"
+                                                                        "i712"
+                                                                        "i710"
+                                                                        "i709"
+                                                                        "i708"
+                                                                        "i706"
+                                                                        "i705"
+                                                                        "i704"
+                                                                        "i703"
+                                                                        "i702"
+                                                                        "i700"
+                                                                        "i698"
+                                                                        "i696"
+                                                                        "i694"
+                                                                        "i692"
+                                                                        "i690"
+                                                                        "i688"
+                                                                        "i686"
+                                                                        "i683"
+                                                                        "i681"
+                                                                        "i680"
+                                                                        "i679"
+                                                                        "i678"
+                                                                        "i677"
+                                                                        "i676"
+                                                                        "i674"
+                                                                        "i672"
+                                                                        "i670"
+                                                                        "i668"
+                                                                        "i667"
+                                                                        "i665"
+                                                                        "i663"
+                                                                        "i661"
+                                                                        "i659"
+                                                                        "i657"
+                                                                        "i655"
+                                                                        "i653"
+                                                                        "i652"
+                                                                        "i650"
+                                                                        "i648"
+                                                                        "i647"
+                                                                        "i646"
+                                                                        "i644"
+                                                                        "i643"
+                                                                        "i641"
+                                                                        "i639"
+                                                                        "i637"
+                                                                        "i635"
+                                                                        "i633"
+                                                                        "i631"
+                                                                        "i629"
+                                                                        "i627"
+                                                                        "i625"
+                                                                        "i623"
+                                                                        "i621"
+                                                                        "i619"
+                                                                        "i617"
+                                                                        "i615"
+                                                                        "i613"
+                                                                        "i611"
+                                                                        "i609"
+                                                                        "i607"
+                                                                        "i605"
+                                                                        "i603"
+                                                                        "i601"
+                                                                        "i599"
+                                                                        "i597"
+                                                                        "i595"
+                                                                        "i593"
+                                                                        "i591"
+                                                                        "i589"
+                                                                        "i587"
+                                                                        "i585"
+                                                                        "i583"
+                                                                        "i581"
+                                                                        "i579"
+                                                                        "i578"
+                                                                        "i576"
+                                                                        "i574"
+                                                                        "i572"
+                                                                        "i570"
+                                                                        "i568"
+                                                                        "i566"
+                                                                        
"i564"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
and-map*)
                                                                        ((top)
                                                                         (top))
-                                                                       
("i10952"
-                                                                        
"i10950")))
+                                                                       ("i467"
+                                                                        
"i465")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{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}#)
+                                                          #{ropt\ 1431}#)))
+                                                #{tmp\ 1437}#)
+                                         ((lambda (#{tmp\ 1446}#)
+                                            (if (if #{tmp\ 1446}#
+                                                  (apply (lambda (#{a\ 1450}#
+                                                                  #{init\ 
1451}#
+                                                                  #{b\ 1452}#)
+                                                           (#{id?\ 666}#
+                                                             #{a\ 1450}#))
+                                                         #{tmp\ 1446}#)
                                                   #f)
-                                              (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}#)
+                                              (apply (lambda (#{a\ 1456}#
+                                                              #{init\ 1457}#
+                                                              #{b\ 1458}#)
+                                                       (#{opt\ 1289}#
+                                                         #{b\ 1458}#
+                                                         #{req\ 1430}#
+                                                         (cons (list #{a\ 
1456}#
+                                                                     #{init\ 
1457}#)
+                                                               #{ropt\ 
1431}#)))
+                                                     #{tmp\ 1446}#)
+                                              ((lambda (#{tmp\ 1459}#)
+                                                 (if (if #{tmp\ 1459}#
+                                                       (apply (lambda (#{a\ 
1462}#
+                                                                       #{b\ 
1463}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
11947}#)
+                                                                       #{a\ 
1462}#)
                                                                      #:key))
-                                                              #{tmp\ 11944}#)
+                                                              #{tmp\ 1459}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 11951}#
-                                                                   #{b\ 
11952}#)
-                                                            (#{key\ 11776}#
-                                                              #{b\ 11952}#
-                                                              #{req\ 11915}#
+                                                   (apply (lambda (#{a\ 1466}#
+                                                                   #{b\ 1467}#)
+                                                            (#{key\ 1291}#
+                                                              #{b\ 1467}#
+                                                              #{req\ 1430}#
                                                               (reverse
-                                                                #{ropt\ 
11916}#)
+                                                                #{ropt\ 1431}#)
                                                               '()))
-                                                          #{tmp\ 11944}#)
-                                                   ((lambda (#{tmp\ 11953}#)
-                                                      (if (if #{tmp\ 11953}#
-                                                            (apply (lambda 
(#{a\ 11956}#
-                                                                            
#{b\ 11957}#)
+                                                          #{tmp\ 1459}#)
+                                                   ((lambda (#{tmp\ 1468}#)
+                                                      (if (if #{tmp\ 1468}#
+                                                            (apply (lambda 
(#{a\ 1471}#
+                                                                            
#{b\ 1472}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 11956}#)
+                                                                            
#{a\ 1471}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
11953}#)
+                                                                   #{tmp\ 
1468}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
11960}#
-                                                                        #{b\ 
11961}#)
-                                                                 (#{rest\ 
11778}#
-                                                                   #{b\ 11961}#
-                                                                   #{req\ 
11915}#
+                                                        (apply (lambda (#{a\ 
1475}#
+                                                                        #{b\ 
1476}#)
+                                                                 (#{rest\ 
1293}#
+                                                                   #{b\ 1476}#
+                                                                   #{req\ 
1430}#
                                                                    (reverse
-                                                                     #{ropt\ 
11916}#)
+                                                                     #{ropt\ 
1431}#)
                                                                    '()))
-                                                               #{tmp\ 11953}#)
-                                                        ((lambda (#{tmp\ 
11962}#)
-                                                           (if (if #{tmp\ 
11962}#
-                                                                 (apply 
(lambda (#{r\ 11964}#)
-                                                                          
(#{id?\ 11151}#
-                                                                            
#{r\ 11964}#))
-                                                                        #{tmp\ 
11962}#)
+                                                               #{tmp\ 1468}#)
+                                                        ((lambda (#{tmp\ 
1477}#)
+                                                           (if (if #{tmp\ 
1477}#
+                                                                 (apply 
(lambda (#{r\ 1479}#)
+                                                                          
(#{id?\ 666}#
+                                                                            
#{r\ 1479}#))
+                                                                        #{tmp\ 
1477}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 11966}#)
-                                                                      (#{rest\ 
11778}#
-                                                                        #{r\ 
11966}#
-                                                                        #{req\ 
11915}#
+                                                             (apply (lambda 
(#{r\ 1481}#)
+                                                                      (#{rest\ 
1293}#
+                                                                        #{r\ 
1481}#
+                                                                        #{req\ 
1430}#
                                                                         
(reverse
-                                                                          
#{ropt\ 11916}#)
+                                                                          
#{ropt\ 1431}#)
                                                                         '()))
-                                                                    #{tmp\ 
11962}#)
-                                                             ((lambda (#{else\ 
11968}#)
+                                                                    #{tmp\ 
1477}#)
+                                                             ((lambda (#{else\ 
1483}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
11769}#
-                                                                  #{args\ 
11914}#))
-                                                              #{tmp\ 11920}#)))
-                                                         (list #{tmp\ 
11920}#))))
+                                                                  #{orig-args\ 
1284}#
+                                                                  #{args\ 
1429}#))
+                                                              #{tmp\ 1435}#)))
+                                                         (list #{tmp\ 
1435}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 11920}#
+                                                      #{tmp\ 1435}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 11920}#
+                                                 #{tmp\ 1435}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 11920}#
+                                            #{tmp\ 1435}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 11920}#
+                                       #{tmp\ 1435}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 11920}# (quote ()))))
-                             #{args\ 11914}#)))
-                        (#{req\ 11772}#
-                          (lambda (#{args\ 11969}# #{rreq\ 11970}#)
-                            ((lambda (#{tmp\ 11973}#)
-                               ((lambda (#{tmp\ 11974}#)
-                                  (if #{tmp\ 11974}#
+                                ($sc-dispatch #{tmp\ 1435}# (quote ()))))
+                             #{args\ 1429}#)))
+                        (#{req\ 1287}#
+                          (lambda (#{args\ 1484}# #{rreq\ 1485}#)
+                            ((lambda (#{tmp\ 1488}#)
+                               ((lambda (#{tmp\ 1489}#)
+                                  (if #{tmp\ 1489}#
                                     (apply (lambda ()
-                                             (#{check\ 11780}#
-                                               (reverse #{rreq\ 11970}#)
+                                             (#{check\ 1295}#
+                                               (reverse #{rreq\ 1485}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 11974}#)
-                                    ((lambda (#{tmp\ 11975}#)
-                                       (if (if #{tmp\ 11975}#
-                                             (apply (lambda (#{a\ 11978}#
-                                                             #{b\ 11979}#)
-                                                      (#{id?\ 11151}#
-                                                        #{a\ 11978}#))
-                                                    #{tmp\ 11975}#)
+                                           #{tmp\ 1489}#)
+                                    ((lambda (#{tmp\ 1490}#)
+                                       (if (if #{tmp\ 1490}#
+                                             (apply (lambda (#{a\ 1493}#
+                                                             #{b\ 1494}#)
+                                                      (#{id?\ 666}#
+                                                        #{a\ 1493}#))
+                                                    #{tmp\ 1490}#)
                                              #f)
-                                         (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}#)
+                                         (apply (lambda (#{a\ 1497}#
+                                                         #{b\ 1498}#)
+                                                  (#{req\ 1287}#
+                                                    #{b\ 1498}#
+                                                    (cons #{a\ 1497}#
+                                                          #{rreq\ 1485}#)))
+                                                #{tmp\ 1490}#)
+                                         ((lambda (#{tmp\ 1499}#)
+                                            (if (if #{tmp\ 1499}#
+                                                  (apply (lambda (#{a\ 1502}#
+                                                                  #{b\ 1503}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 11987}#)
+                                                                  #{a\ 1502}#)
                                                                 #:optional))
-                                                         #{tmp\ 11984}#)
+                                                         #{tmp\ 1499}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 11991}#
-                                                              #{b\ 11992}#)
-                                                       (#{opt\ 11774}#
-                                                         #{b\ 11992}#
+                                              (apply (lambda (#{a\ 1506}#
+                                                              #{b\ 1507}#)
+                                                       (#{opt\ 1289}#
+                                                         #{b\ 1507}#
                                                          (reverse
-                                                           #{rreq\ 11970}#)
+                                                           #{rreq\ 1485}#)
                                                          '()))
-                                                     #{tmp\ 11984}#)
-                                              ((lambda (#{tmp\ 11993}#)
-                                                 (if (if #{tmp\ 11993}#
-                                                       (apply (lambda (#{a\ 
11996}#
-                                                                       #{b\ 
11997}#)
+                                                     #{tmp\ 1499}#)
+                                              ((lambda (#{tmp\ 1508}#)
+                                                 (if (if #{tmp\ 1508}#
+                                                       (apply (lambda (#{a\ 
1511}#
+                                                                       #{b\ 
1512}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
11996}#)
+                                                                       #{a\ 
1511}#)
                                                                      #:key))
-                                                              #{tmp\ 11993}#)
+                                                              #{tmp\ 1508}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 12000}#
-                                                                   #{b\ 
12001}#)
-                                                            (#{key\ 11776}#
-                                                              #{b\ 12001}#
+                                                   (apply (lambda (#{a\ 1515}#
+                                                                   #{b\ 1516}#)
+                                                            (#{key\ 1291}#
+                                                              #{b\ 1516}#
                                                               (reverse
-                                                                #{rreq\ 
11970}#)
+                                                                #{rreq\ 1485}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 11993}#)
-                                                   ((lambda (#{tmp\ 12002}#)
-                                                      (if (if #{tmp\ 12002}#
-                                                            (apply (lambda 
(#{a\ 12005}#
-                                                                            
#{b\ 12006}#)
+                                                          #{tmp\ 1508}#)
+                                                   ((lambda (#{tmp\ 1517}#)
+                                                      (if (if #{tmp\ 1517}#
+                                                            (apply (lambda 
(#{a\ 1520}#
+                                                                            
#{b\ 1521}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 12005}#)
+                                                                            
#{a\ 1520}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
12002}#)
+                                                                   #{tmp\ 
1517}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
12009}#
-                                                                        #{b\ 
12010}#)
-                                                                 (#{rest\ 
11778}#
-                                                                   #{b\ 12010}#
+                                                        (apply (lambda (#{a\ 
1524}#
+                                                                        #{b\ 
1525}#)
+                                                                 (#{rest\ 
1293}#
+                                                                   #{b\ 1525}#
                                                                    (reverse
-                                                                     #{rreq\ 
11970}#)
+                                                                     #{rreq\ 
1485}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 12002}#)
-                                                        ((lambda (#{tmp\ 
12011}#)
-                                                           (if (if #{tmp\ 
12011}#
-                                                                 (apply 
(lambda (#{r\ 12013}#)
-                                                                          
(#{id?\ 11151}#
-                                                                            
#{r\ 12013}#))
-                                                                        #{tmp\ 
12011}#)
+                                                               #{tmp\ 1517}#)
+                                                        ((lambda (#{tmp\ 
1526}#)
+                                                           (if (if #{tmp\ 
1526}#
+                                                                 (apply 
(lambda (#{r\ 1528}#)
+                                                                          
(#{id?\ 666}#
+                                                                            
#{r\ 1528}#))
+                                                                        #{tmp\ 
1526}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 12015}#)
-                                                                      (#{rest\ 
11778}#
-                                                                        #{r\ 
12015}#
+                                                             (apply (lambda 
(#{r\ 1530}#)
+                                                                      (#{rest\ 
1293}#
+                                                                        #{r\ 
1530}#
                                                                         
(reverse
-                                                                          
#{rreq\ 11970}#)
+                                                                          
#{rreq\ 1485}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
12011}#)
-                                                             ((lambda (#{else\ 
12017}#)
+                                                                    #{tmp\ 
1526}#)
+                                                             ((lambda (#{else\ 
1532}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
11769}#
-                                                                  #{args\ 
11969}#))
-                                                              #{tmp\ 11973}#)))
-                                                         (list #{tmp\ 
11973}#))))
+                                                                  #{orig-args\ 
1284}#
+                                                                  #{args\ 
1484}#))
+                                                              #{tmp\ 1488}#)))
+                                                         (list #{tmp\ 
1488}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 11973}#
+                                                      #{tmp\ 1488}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 11973}#
+                                                 #{tmp\ 1488}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 11973}#
+                                            #{tmp\ 1488}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 11973}#
+                                       #{tmp\ 1488}#
                                        '(any . any)))))
-                                ($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}#)
+                                ($sc-dispatch #{tmp\ 1488}# (quote ()))))
+                             #{args\ 1484}#))))
+                 (#{req\ 1287}# #{orig-args\ 1284}# (quote ())))))
+           (#{chi-simple-lambda\ 771}#
+             (lambda (#{e\ 1533}#
+                      #{r\ 1534}#
+                      #{w\ 1535}#
+                      #{s\ 1536}#
+                      #{mod\ 1537}#
+                      #{req\ 1538}#
+                      #{rest\ 1539}#
+                      #{meta\ 1540}#
+                      #{body\ 1541}#)
+               (let ((#{ids\ 1553}#
+                       (if #{rest\ 1539}#
+                         (append #{req\ 1538}# (list #{rest\ 1539}#))
+                         #{req\ 1538}#)))
+                 (let ((#{vars\ 1555}#
+                         (map #{gen-var\ 779}# #{ids\ 1553}#)))
+                   (let ((#{labels\ 1557}#
+                           (#{gen-labels\ 684}# #{ids\ 1553}#)))
+                     (#{build-simple-lambda\ 608}#
+                       #{s\ 1536}#
+                       (map syntax->datum #{req\ 1538}#)
+                       (if #{rest\ 1539}#
+                         (syntax->datum #{rest\ 1539}#)
                          #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)
+                       #{vars\ 1555}#
+                       #{meta\ 1540}#
+                       (#{chi-body\ 759}#
+                         #{body\ 1541}#
+                         (#{source-wrap\ 737}#
+                           #{e\ 1533}#
+                           #{w\ 1535}#
+                           #{s\ 1536}#
+                           #{mod\ 1537}#)
+                         (#{extend-var-env\ 656}#
+                           #{labels\ 1557}#
+                           #{vars\ 1555}#
+                           #{r\ 1534}#)
+                         (#{make-binding-wrap\ 713}#
+                           #{ids\ 1553}#
+                           #{labels\ 1557}#
+                           #{w\ 1535}#)
+                         #{mod\ 1537}#)))))))
+           (#{lambda-formals\ 769}#
+             (lambda (#{orig-args\ 1560}#)
+               (letrec ((#{check\ 1565}#
+                          (lambda (#{req\ 1566}# #{rest\ 1567}#)
+                            (if (#{distinct-bound-ids?\ 731}#
+                                  (if #{rest\ 1567}#
+                                    (cons #{rest\ 1567}# #{req\ 1566}#)
+                                    #{req\ 1566}#))
+                              (values #{req\ 1566}# #f #{rest\ 1567}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 12045}#))))
-                        (#{req\ 12048}#
-                          (lambda (#{args\ 12058}# #{rreq\ 12059}#)
-                            ((lambda (#{tmp\ 12062}#)
-                               ((lambda (#{tmp\ 12063}#)
-                                  (if #{tmp\ 12063}#
+                                #{orig-args\ 1560}#))))
+                        (#{req\ 1563}#
+                          (lambda (#{args\ 1573}# #{rreq\ 1574}#)
+                            ((lambda (#{tmp\ 1577}#)
+                               ((lambda (#{tmp\ 1578}#)
+                                  (if #{tmp\ 1578}#
                                     (apply (lambda ()
-                                             (#{check\ 12050}#
-                                               (reverse #{rreq\ 12059}#)
+                                             (#{check\ 1565}#
+                                               (reverse #{rreq\ 1574}#)
                                                #f))
-                                           #{tmp\ 12063}#)
-                                    ((lambda (#{tmp\ 12064}#)
-                                       (if (if #{tmp\ 12064}#
-                                             (apply (lambda (#{a\ 12067}#
-                                                             #{b\ 12068}#)
-                                                      (#{id?\ 11151}#
-                                                        #{a\ 12067}#))
-                                                    #{tmp\ 12064}#)
+                                           #{tmp\ 1578}#)
+                                    ((lambda (#{tmp\ 1579}#)
+                                       (if (if #{tmp\ 1579}#
+                                             (apply (lambda (#{a\ 1582}#
+                                                             #{b\ 1583}#)
+                                                      (#{id?\ 666}#
+                                                        #{a\ 1582}#))
+                                                    #{tmp\ 1579}#)
                                              #f)
-                                         (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}#)
+                                         (apply (lambda (#{a\ 1586}#
+                                                         #{b\ 1587}#)
+                                                  (#{req\ 1563}#
+                                                    #{b\ 1587}#
+                                                    (cons #{a\ 1586}#
+                                                          #{rreq\ 1574}#)))
+                                                #{tmp\ 1579}#)
+                                         ((lambda (#{tmp\ 1588}#)
+                                            (if (if #{tmp\ 1588}#
+                                                  (apply (lambda (#{r\ 1590}#)
+                                                           (#{id?\ 666}#
+                                                             #{r\ 1590}#))
+                                                         #{tmp\ 1588}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 12077}#)
-                                                       (#{check\ 12050}#
+                                              (apply (lambda (#{r\ 1592}#)
+                                                       (#{check\ 1565}#
                                                          (reverse
-                                                           #{rreq\ 12059}#)
-                                                         #{r\ 12077}#))
-                                                     #{tmp\ 12073}#)
-                                              ((lambda (#{else\ 12079}#)
+                                                           #{rreq\ 1574}#)
+                                                         #{r\ 1592}#))
+                                                     #{tmp\ 1588}#)
+                                              ((lambda (#{else\ 1594}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 12045}#
-                                                   #{args\ 12058}#))
-                                               #{tmp\ 12062}#)))
-                                          (list #{tmp\ 12062}#))))
+                                                   #{orig-args\ 1560}#
+                                                   #{args\ 1573}#))
+                                               #{tmp\ 1577}#)))
+                                          (list #{tmp\ 1577}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 12062}#
+                                       #{tmp\ 1577}#
                                        '(any . any)))))
-                                ($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}#
+                                ($sc-dispatch #{tmp\ 1577}# (quote ()))))
+                             #{args\ 1573}#))))
+                 (#{req\ 1563}# #{orig-args\ 1560}# (quote ())))))
+           (#{ellipsis?\ 767}#
+             (lambda (#{x\ 1595}#)
+               (if (#{nonsymbol-id?\ 664}# #{x\ 1595}#)
+                 (#{free-id=?\ 725}#
+                   #{x\ 1595}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i12081"))
+                       #(ribcage #(x) #((top)) #("i1596"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2236,1421 +2220,1411 @@
                           (top)
                           (top)
                           (top))
-                         ("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"))
+                         ("i780"
+                          "i778"
+                          "i776"
+                          "i774"
+                          "i772"
+                          "i770"
+                          "i768"
+                          "i766"
+                          "i764"
+                          "i762"
+                          "i760"
+                          "i758"
+                          "i756"
+                          "i754"
+                          "i752"
+                          "i750"
+                          "i748"
+                          "i746"
+                          "i744"
+                          "i742"
+                          "i740"
+                          "i738"
+                          "i736"
+                          "i734"
+                          "i732"
+                          "i730"
+                          "i728"
+                          "i726"
+                          "i724"
+                          "i722"
+                          "i720"
+                          "i718"
+                          "i716"
+                          "i714"
+                          "i712"
+                          "i710"
+                          "i709"
+                          "i708"
+                          "i706"
+                          "i705"
+                          "i704"
+                          "i703"
+                          "i702"
+                          "i700"
+                          "i698"
+                          "i696"
+                          "i694"
+                          "i692"
+                          "i690"
+                          "i688"
+                          "i686"
+                          "i683"
+                          "i681"
+                          "i680"
+                          "i679"
+                          "i678"
+                          "i677"
+                          "i676"
+                          "i674"
+                          "i672"
+                          "i670"
+                          "i668"
+                          "i667"
+                          "i665"
+                          "i663"
+                          "i661"
+                          "i659"
+                          "i657"
+                          "i655"
+                          "i653"
+                          "i652"
+                          "i650"
+                          "i648"
+                          "i647"
+                          "i646"
+                          "i644"
+                          "i643"
+                          "i641"
+                          "i639"
+                          "i637"
+                          "i635"
+                          "i633"
+                          "i631"
+                          "i629"
+                          "i627"
+                          "i625"
+                          "i623"
+                          "i621"
+                          "i619"
+                          "i617"
+                          "i615"
+                          "i613"
+                          "i611"
+                          "i609"
+                          "i607"
+                          "i605"
+                          "i603"
+                          "i601"
+                          "i599"
+                          "i597"
+                          "i595"
+                          "i593"
+                          "i591"
+                          "i589"
+                          "i587"
+                          "i585"
+                          "i583"
+                          "i581"
+                          "i579"
+                          "i578"
+                          "i576"
+                          "i574"
+                          "i572"
+                          "i570"
+                          "i568"
+                          "i566"
+                          "i564"))
                        #(ribcage
                          (define-structure and-map*)
                          ((top) (top))
-                         ("i10952" "i10950")))
+                         ("i467" "i465")))
                       (hygiene guile)))
                  #f)))
-           (#{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)))
+           (#{chi-void\ 765}#
+             (lambda () (#{build-void\ 586}# #f)))
+           (#{eval-local-transformer\ 763}#
+             (lambda (#{expanded\ 1600}# #{mod\ 1601}#)
+               (let ((#{p\ 1605}#
+                       (#{local-eval-hook\ 577}#
+                         #{expanded\ 1600}#
+                         #{mod\ 1601}#)))
+                 (if (procedure? #{p\ 1605}#)
+                   (cons #{p\ 1605}# (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{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}#))
+                     #{p\ 1605}#)))))
+           (#{chi-local-syntax\ 761}#
+             (lambda (#{rec?\ 1606}#
+                      #{e\ 1607}#
+                      #{r\ 1608}#
+                      #{w\ 1609}#
+                      #{s\ 1610}#
+                      #{mod\ 1611}#
+                      #{k\ 1612}#)
+               ((lambda (#{tmp\ 1620}#)
+                  ((lambda (#{tmp\ 1621}#)
+                     (if #{tmp\ 1621}#
+                       (apply (lambda (#{_\ 1627}#
+                                       #{id\ 1628}#
+                                       #{val\ 1629}#
+                                       #{e1\ 1630}#
+                                       #{e2\ 1631}#)
+                                (let ((#{ids\ 1633}# #{id\ 1628}#))
+                                  (if (not (#{valid-bound-ids?\ 729}#
+                                             #{ids\ 1633}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{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}#)
+                                      #{e\ 1607}#)
+                                    (let ((#{labels\ 1636}#
+                                            (#{gen-labels\ 684}#
+                                              #{ids\ 1633}#)))
+                                      (let ((#{new-w\ 1638}#
+                                              (#{make-binding-wrap\ 713}#
+                                                #{ids\ 1633}#
+                                                #{labels\ 1636}#
+                                                #{w\ 1609}#)))
+                                        (#{k\ 1612}#
+                                          (cons #{e1\ 1630}# #{e2\ 1631}#)
+                                          (#{extend-env\ 654}#
+                                            #{labels\ 1636}#
+                                            (let ((#{w\ 1642}#
+                                                    (if #{rec?\ 1606}#
+                                                      #{new-w\ 1638}#
+                                                      #{w\ 1609}#))
+                                                  (#{trans-r\ 1643}#
+                                                    (#{macros-only-env\ 658}#
+                                                      #{r\ 1608}#)))
+                                              (map (lambda (#{x\ 1644}#)
                                                      (cons 'macro
-                                                           
(#{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}#)
+                                                           
(#{eval-local-transformer\ 763}#
+                                                             (#{chi\ 751}#
+                                                               #{x\ 1644}#
+                                                               #{trans-r\ 
1643}#
+                                                               #{w\ 1642}#
+                                                               #{mod\ 1611}#)
+                                                             #{mod\ 1611}#)))
+                                                   #{val\ 1629}#))
+                                            #{r\ 1608}#)
+                                          #{new-w\ 1638}#
+                                          #{s\ 1610}#
+                                          #{mod\ 1611}#))))))
+                              #{tmp\ 1621}#)
+                       ((lambda (#{_\ 1649}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 11222}#
-                              #{e\ 12092}#
-                              #{w\ 12094}#
-                              #{s\ 12095}#
-                              #{mod\ 12096}#)))
-                        #{tmp\ 12105}#)))
+                            (#{source-wrap\ 737}#
+                              #{e\ 1607}#
+                              #{w\ 1609}#
+                              #{s\ 1610}#
+                              #{mod\ 1611}#)))
+                        #{tmp\ 1620}#)))
                    ($sc-dispatch
-                     #{tmp\ 12105}#
+                     #{tmp\ 1620}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 12092}#)))
-           (#{chi-body\ 11244}#
-             (lambda (#{body\ 12135}#
-                      #{outer-form\ 12136}#
-                      #{r\ 12137}#
-                      #{w\ 12138}#
-                      #{mod\ 12139}#)
-               (let ((#{r\ 12147}#
+                #{e\ 1607}#)))
+           (#{chi-body\ 759}#
+             (lambda (#{body\ 1650}#
+                      #{outer-form\ 1651}#
+                      #{r\ 1652}#
+                      #{w\ 1653}#
+                      #{mod\ 1654}#)
+               (let ((#{r\ 1662}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 12137}#)))
-                 (let ((#{ribcage\ 12149}#
-                         (#{make-ribcage\ 11172}#
+                             #{r\ 1652}#)))
+                 (let ((#{ribcage\ 1664}#
+                         (#{make-ribcage\ 687}#
                            '()
                            '()
                            '())))
-                   (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}#)
+                   (let ((#{w\ 1667}#
+                           (#{make-wrap\ 671}#
+                             (#{wrap-marks\ 673}# #{w\ 1653}#)
+                             (cons #{ribcage\ 1664}#
+                                   (#{wrap-subst\ 675}# #{w\ 1653}#)))))
+                     (letrec ((#{parse\ 1676}#
+                                (lambda (#{body\ 1677}#
+                                         #{ids\ 1678}#
+                                         #{labels\ 1679}#
+                                         #{var-ids\ 1680}#
+                                         #{vars\ 1681}#
+                                         #{vals\ 1682}#
+                                         #{bindings\ 1683}#)
+                                  (if (null? #{body\ 1677}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 12136}#)
-                                    (let ((#{e\ 12173}# (cdar #{body\ 12162}#))
-                                          (#{er\ 12174}#
-                                            (caar #{body\ 12162}#)))
+                                      #{outer-form\ 1651}#)
+                                    (let ((#{e\ 1688}# (cdar #{body\ 1677}#))
+                                          (#{er\ 1689}# (caar #{body\ 1677}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 11232}#
-                                            #{e\ 12173}#
-                                            #{er\ 12174}#
+                                          (#{syntax-type\ 747}#
+                                            #{e\ 1688}#
+                                            #{er\ 1689}#
                                             '(())
-                                            (#{source-annotation\ 11130}#
-                                              #{er\ 12174}#)
-                                            #{ribcage\ 12149}#
-                                            #{mod\ 12139}#
+                                            (#{source-annotation\ 645}#
+                                              #{er\ 1689}#)
+                                            #{ribcage\ 1664}#
+                                            #{mod\ 1654}#
                                             #f))
-                                        (lambda (#{type\ 12176}#
-                                                 #{value\ 12177}#
-                                                 #{e\ 12178}#
-                                                 #{w\ 12179}#
-                                                 #{s\ 12180}#
-                                                 #{mod\ 12181}#)
-                                          (if (memv #{type\ 12176}#
+                                        (lambda (#{type\ 1691}#
+                                                 #{value\ 1692}#
+                                                 #{e\ 1693}#
+                                                 #{w\ 1694}#
+                                                 #{s\ 1695}#
+                                                 #{mod\ 1696}#)
+                                          (if (memv #{type\ 1691}#
                                                     '(define-form))
-                                            (let ((#{id\ 12191}#
-                                                    (#{wrap\ 11220}#
-                                                      #{value\ 12177}#
-                                                      #{w\ 12179}#
-                                                      #{mod\ 12181}#))
-                                                  (#{label\ 12192}#
-                                                    (#{gen-label\ 11167}#)))
-                                              (let ((#{var\ 12194}#
-                                                      (#{gen-var\ 11264}#
-                                                        #{id\ 12191}#)))
+                                            (let ((#{id\ 1706}#
+                                                    (#{wrap\ 735}#
+                                                      #{value\ 1692}#
+                                                      #{w\ 1694}#
+                                                      #{mod\ 1696}#))
+                                                  (#{label\ 1707}#
+                                                    (#{gen-label\ 682}#)))
+                                              (let ((#{var\ 1709}#
+                                                      (#{gen-var\ 779}#
+                                                        #{id\ 1706}#)))
                                                 (begin
-                                                  (#{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}#)
+                                                  (#{extend-ribcage!\ 711}#
+                                                    #{ribcage\ 1664}#
+                                                    #{id\ 1706}#
+                                                    #{label\ 1707}#)
+                                                  (#{parse\ 1676}#
+                                                    (cdr #{body\ 1677}#)
+                                                    (cons #{id\ 1706}#
+                                                          #{ids\ 1678}#)
+                                                    (cons #{label\ 1707}#
+                                                          #{labels\ 1679}#)
+                                                    (cons #{id\ 1706}#
+                                                          #{var-ids\ 1680}#)
+                                                    (cons #{var\ 1709}#
+                                                          #{vars\ 1681}#)
+                                                    (cons (cons #{er\ 1689}#
+                                                                (#{wrap\ 735}#
+                                                                  #{e\ 1693}#
+                                                                  #{w\ 1694}#
+                                                                  #{mod\ 
1696}#))
+                                                          #{vals\ 1682}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 12194}#)
-                                                          #{bindings\ 
12168}#)))))
-                                            (if (memv #{type\ 12176}#
+                                                                #{var\ 1709}#)
+                                                          #{bindings\ 
1683}#)))))
+                                            (if (memv #{type\ 1691}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 12199}#
-                                                      (#{wrap\ 11220}#
-                                                        #{value\ 12177}#
-                                                        #{w\ 12179}#
-                                                        #{mod\ 12181}#))
-                                                    (#{label\ 12200}#
-                                                      (#{gen-label\ 11167}#)))
+                                              (let ((#{id\ 1714}#
+                                                      (#{wrap\ 735}#
+                                                        #{value\ 1692}#
+                                                        #{w\ 1694}#
+                                                        #{mod\ 1696}#))
+                                                    (#{label\ 1715}#
+                                                      (#{gen-label\ 682}#)))
                                                 (begin
-                                                  (#{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}#
+                                                  (#{extend-ribcage!\ 711}#
+                                                    #{ribcage\ 1664}#
+                                                    #{id\ 1714}#
+                                                    #{label\ 1715}#)
+                                                  (#{parse\ 1676}#
+                                                    (cdr #{body\ 1677}#)
+                                                    (cons #{id\ 1714}#
+                                                          #{ids\ 1678}#)
+                                                    (cons #{label\ 1715}#
+                                                          #{labels\ 1679}#)
+                                                    #{var-ids\ 1680}#
+                                                    #{vars\ 1681}#
+                                                    #{vals\ 1682}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
12174}#
-                                                                      (#{wrap\ 
11220}#
-                                                                        #{e\ 
12178}#
-                                                                        #{w\ 
12179}#
-                                                                        #{mod\ 
12181}#)))
-                                                          #{bindings\ 
12168}#))))
-                                              (if (memv #{type\ 12176}#
+                                                                (cons #{er\ 
1689}#
+                                                                      (#{wrap\ 
735}#
+                                                                        #{e\ 
1693}#
+                                                                        #{w\ 
1694}#
+                                                                        #{mod\ 
1696}#)))
+                                                          #{bindings\ 
1683}#))))
+                                              (if (memv #{type\ 1691}#
                                                         '(begin-form))
-                                                ((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}#)
+                                                ((lambda (#{tmp\ 1718}#)
+                                                   ((lambda (#{tmp\ 1719}#)
+                                                      (if #{tmp\ 1719}#
+                                                        (apply (lambda (#{_\ 
1722}#
+                                                                        #{e1\ 
1723}#)
+                                                                 (#{parse\ 
1676}#
+                                                                   (letrec 
((#{f\ 1726}#
+                                                                              
(lambda (#{forms\ 1727}#)
+                                                                               
 (if (null? #{forms\ 1727}#)
+                                                                               
   (cdr #{body\ 1677}#)
+                                                                               
   (cons (cons #{er\ 1689}#
+                                                                               
               (#{wrap\ 735}#
+                                                                               
                 (car #{forms\ 1727}#)
+                                                                               
                 #{w\ 1694}#
+                                                                               
                 #{mod\ 1696}#))
+                                                                               
         (#{f\ 1726}#
+                                                                               
           (cdr #{forms\ 1727}#)))))))
+                                                                     (#{f\ 
1726}#
+                                                                       #{e1\ 
1723}#))
+                                                                   #{ids\ 
1678}#
+                                                                   #{labels\ 
1679}#
+                                                                   #{var-ids\ 
1680}#
+                                                                   #{vars\ 
1681}#
+                                                                   #{vals\ 
1682}#
+                                                                   #{bindings\ 
1683}#))
+                                                               #{tmp\ 1719}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 12203}#)))
+                                                          #{tmp\ 1718}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 12203}#
+                                                      #{tmp\ 1718}#
                                                       '(any . each-any))))
-                                                 #{e\ 12178}#)
-                                                (if (memv #{type\ 12176}#
+                                                 #{e\ 1693}#)
+                                                (if (memv #{type\ 1691}#
                                                           '(local-syntax-form))
-                                                  (#{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}#
+                                                  (#{chi-local-syntax\ 761}#
+                                                    #{value\ 1692}#
+                                                    #{e\ 1693}#
+                                                    #{er\ 1689}#
+                                                    #{w\ 1694}#
+                                                    #{s\ 1695}#
+                                                    #{mod\ 1696}#
+                                                    (lambda (#{forms\ 1730}#
+                                                             #{er\ 1731}#
+                                                             #{w\ 1732}#
+                                                             #{s\ 1733}#
+                                                             #{mod\ 1734}#)
+                                                      (#{parse\ 1676}#
+                                                        (letrec ((#{f\ 1742}#
+                                                                   (lambda 
(#{forms\ 1743}#)
+                                                                     (if 
(null? #{forms\ 1743}#)
+                                                                       (cdr 
#{body\ 1677}#)
+                                                                       (cons 
(cons #{er\ 1731}#
+                                                                               
    (#{wrap\ 735}#
+                                                                               
      (car #{forms\ 1743}#)
+                                                                               
      #{w\ 1732}#
+                                                                               
      #{mod\ 1734}#))
+                                                                             
(#{f\ 1742}#
+                                                                               
(cdr #{forms\ 1743}#)))))))
+                                                          (#{f\ 1742}#
+                                                            #{forms\ 1730}#))
+                                                        #{ids\ 1678}#
+                                                        #{labels\ 1679}#
+                                                        #{var-ids\ 1680}#
+                                                        #{vars\ 1681}#
+                                                        #{vals\ 1682}#
+                                                        #{bindings\ 1683}#)))
+                                                  (if (null? #{ids\ 1678}#)
+                                                    (#{build-sequence\ 618}#
                                                       #f
-                                                      (map (lambda (#{x\ 
12231}#)
-                                                             (#{chi\ 11236}#
-                                                               (cdr #{x\ 
12231}#)
-                                                               (car #{x\ 
12231}#)
+                                                      (map (lambda (#{x\ 
1746}#)
+                                                             (#{chi\ 751}#
+                                                               (cdr #{x\ 
1746}#)
+                                                               (car #{x\ 
1746}#)
                                                                '(())
-                                                               #{mod\ 12181}#))
-                                                           (cons (cons #{er\ 
12174}#
-                                                                       
(#{source-wrap\ 11222}#
-                                                                         #{e\ 
12178}#
-                                                                         #{w\ 
12179}#
-                                                                         #{s\ 
12180}#
-                                                                         
#{mod\ 12181}#))
-                                                                 (cdr #{body\ 
12162}#))))
+                                                               #{mod\ 1696}#))
+                                                           (cons (cons #{er\ 
1689}#
+                                                                       
(#{source-wrap\ 737}#
+                                                                         #{e\ 
1693}#
+                                                                         #{w\ 
1694}#
+                                                                         #{s\ 
1695}#
+                                                                         
#{mod\ 1696}#))
+                                                                 (cdr #{body\ 
1677}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 11214}#
-                                                                 #{ids\ 
12163}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 729}#
+                                                                 #{ids\ 
1678}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{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}#)
+                                                          #{outer-form\ 
1651}#))
+                                                      (letrec ((#{loop\ 1753}#
+                                                                 (lambda 
(#{bs\ 1754}#
+                                                                          
#{er-cache\ 1755}#
+                                                                          
#{r-cache\ 1756}#)
+                                                                   (if (not 
(null? #{bs\ 1754}#))
+                                                                     (let 
((#{b\ 1759}#
+                                                                             
(car #{bs\ 1754}#)))
+                                                                       (if 
(eq? (car #{b\ 1759}#)
                                                                                
 'macro)
-                                                                         (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}#))))
+                                                                         (let 
((#{er\ 1762}#
+                                                                               
  (cadr #{b\ 1759}#)))
+                                                                           
(let ((#{r-cache\ 1764}#
+                                                                               
    (if (eq? #{er\ 1762}#
+                                                                               
             #{er-cache\ 1755}#)
+                                                                               
      #{r-cache\ 1756}#
+                                                                               
      (#{macros-only-env\ 658}#
+                                                                               
        #{er\ 1762}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 12244}#
-                                                                               
  (#{eval-local-transformer\ 11248}#
-                                                                               
    (#{chi\ 11236}#
-                                                                               
      (cddr #{b\ 12244}#)
-                                                                               
      #{r-cache\ 12249}#
+                                                                               
  #{b\ 1759}#
+                                                                               
  (#{eval-local-transformer\ 763}#
+                                                                               
    (#{chi\ 751}#
+                                                                               
      (cddr #{b\ 1759}#)
+                                                                               
      #{r-cache\ 1764}#
                                                                                
      '(())
-                                                                               
      #{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}#
+                                                                               
      #{mod\ 1696}#)
+                                                                               
    #{mod\ 1696}#))
+                                                                               
(#{loop\ 1753}#
+                                                                               
  (cdr #{bs\ 1754}#)
+                                                                               
  #{er\ 1762}#
+                                                                               
  #{r-cache\ 1764}#))))
+                                                                         
(#{loop\ 1753}#
+                                                                           
(cdr #{bs\ 1754}#)
+                                                                           
#{er-cache\ 1755}#
+                                                                           
#{r-cache\ 1756}#)))))))
+                                                        (#{loop\ 1753}#
+                                                          #{bindings\ 1683}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 12147}#
-                                                        (#{extend-env\ 11139}#
-                                                          #{labels\ 12164}#
-                                                          #{bindings\ 12168}#
-                                                          (cdr #{r\ 12147}#)))
-                                                      (#{build-letrec\ 11109}#
+                                                        #{r\ 1662}#
+                                                        (#{extend-env\ 654}#
+                                                          #{labels\ 1679}#
+                                                          #{bindings\ 1683}#
+                                                          (cdr #{r\ 1662}#)))
+                                                      (#{build-letrec\ 624}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 
12165}#)
-                                                        #{vars\ 12166}#
-                                                        (map (lambda (#{x\ 
12252}#)
-                                                               (#{chi\ 11236}#
-                                                                 (cdr #{x\ 
12252}#)
-                                                                 (car #{x\ 
12252}#)
+                                                             #{var-ids\ 1680}#)
+                                                        #{vars\ 1681}#
+                                                        (map (lambda (#{x\ 
1767}#)
+                                                               (#{chi\ 751}#
+                                                                 (cdr #{x\ 
1767}#)
+                                                                 (car #{x\ 
1767}#)
                                                                  '(())
-                                                                 #{mod\ 
12181}#))
-                                                             #{vals\ 12167}#)
-                                                        (#{build-sequence\ 
11103}#
+                                                                 #{mod\ 
1696}#))
+                                                             #{vals\ 1682}#)
+                                                        (#{build-sequence\ 
618}#
                                                           #f
-                                                          (map (lambda (#{x\ 
12256}#)
-                                                                 (#{chi\ 
11236}#
-                                                                   (cdr #{x\ 
12256}#)
-                                                                   (car #{x\ 
12256}#)
+                                                          (map (lambda (#{x\ 
1771}#)
+                                                                 (#{chi\ 751}#
+                                                                   (cdr #{x\ 
1771}#)
+                                                                   (car #{x\ 
1771}#)
                                                                    '(())
-                                                                   #{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}#)
+                                                                   #{mod\ 
1696}#))
+                                                               (cons (cons 
#{er\ 1689}#
+                                                                           
(#{source-wrap\ 737}#
+                                                                             
#{e\ 1693}#
+                                                                             
#{w\ 1694}#
+                                                                             
#{s\ 1695}#
+                                                                             
#{mod\ 1696}#))
+                                                                     (cdr 
#{body\ 1677}#))))))))))))))))))
+                       (#{parse\ 1676}#
+                         (map (lambda (#{x\ 1684}#)
+                                (cons #{r\ 1662}#
+                                      (#{wrap\ 735}#
+                                        #{x\ 1684}#
+                                        #{w\ 1667}#
+                                        #{mod\ 1654}#)))
+                              #{body\ 1650}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{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)
+           (#{chi-macro\ 757}#
+             (lambda (#{p\ 1774}#
+                      #{e\ 1775}#
+                      #{r\ 1776}#
+                      #{w\ 1777}#
+                      #{rib\ 1778}#
+                      #{mod\ 1779}#)
+               (letrec ((#{rebuild-macro-output\ 1787}#
+                          (lambda (#{x\ 1788}# #{m\ 1789}#)
+                            (if (pair? #{x\ 1788}#)
+                              (cons (#{rebuild-macro-output\ 1787}#
+                                      (car #{x\ 1788}#)
+                                      #{m\ 1789}#)
+                                    (#{rebuild-macro-output\ 1787}#
+                                      (cdr #{x\ 1788}#)
+                                      #{m\ 1789}#))
+                              (if (#{syntax-object?\ 630}# #{x\ 1788}#)
+                                (let ((#{w\ 1797}#
+                                        (#{syntax-object-wrap\ 634}#
+                                          #{x\ 1788}#)))
+                                  (let ((#{ms\ 1800}#
+                                          (#{wrap-marks\ 673}# #{w\ 1797}#))
+                                        (#{s\ 1801}#
+                                          (#{wrap-subst\ 675}# #{w\ 1797}#)))
+                                    (if (if (pair? #{ms\ 1800}#)
+                                          (eq? (car #{ms\ 1800}#) #f)
                                           #f)
-                                      (#{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}#
+                                      (#{make-syntax-object\ 628}#
+                                        (#{syntax-object-expression\ 632}#
+                                          #{x\ 1788}#)
+                                        (#{make-wrap\ 671}#
+                                          (cdr #{ms\ 1800}#)
+                                          (if #{rib\ 1778}#
+                                            (cons #{rib\ 1778}#
+                                                  (cdr #{s\ 1801}#))
+                                            (cdr #{s\ 1801}#)))
+                                        (#{syntax-object-module\ 636}#
+                                          #{x\ 1788}#))
+                                      (#{make-syntax-object\ 628}#
+                                        (#{syntax-object-expression\ 632}#
+                                          #{x\ 1788}#)
+                                        (#{make-wrap\ 671}#
+                                          (cons #{m\ 1789}# #{ms\ 1800}#)
+                                          (if #{rib\ 1778}#
+                                            (cons #{rib\ 1778}#
                                                   (cons 'shift
-                                                        #{s\ 12286}#))
-                                            (cons (quote shift) #{s\ 12286}#)))
+                                                        #{s\ 1801}#))
+                                            (cons (quote shift) #{s\ 1801}#)))
                                         (cons 'hygiene
-                                              (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}#)
+                                              (cdr #{p\ 1774}#))))))
+                                (if (vector? #{x\ 1788}#)
+                                  (let ((#{n\ 1809}#
+                                          (vector-length #{x\ 1788}#)))
+                                    (let ((#{v\ 1811}#
+                                            (make-vector #{n\ 1809}#)))
+                                      (letrec ((#{loop\ 1814}#
+                                                 (lambda (#{i\ 1815}#)
+                                                   (if (#{fx=\ 571}#
+                                                         #{i\ 1815}#
+                                                         #{n\ 1809}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 12296}#)
+                                                       #{v\ 1811}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 12296}#
-                                                         #{i\ 12300}#
-                                                         
(#{rebuild-macro-output\ 12272}#
+                                                         #{v\ 1811}#
+                                                         #{i\ 1815}#
+                                                         
(#{rebuild-macro-output\ 1787}#
                                                            (vector-ref
-                                                             #{x\ 12273}#
-                                                             #{i\ 12300}#)
-                                                           #{m\ 12274}#))
-                                                       (#{loop\ 12299}#
-                                                         (#{fx+\ 11052}#
-                                                           #{i\ 12300}#
+                                                             #{x\ 1788}#
+                                                             #{i\ 1815}#)
+                                                           #{m\ 1789}#))
+                                                       (#{loop\ 1814}#
+                                                         (#{fx+\ 567}#
+                                                           #{i\ 1815}#
                                                            1)))))))
-                                        (#{loop\ 12299}# 0))))
-                                  (if (symbol? #{x\ 12273}#)
+                                        (#{loop\ 1814}# 0))))
+                                  (if (symbol? #{x\ 1788}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{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}#))
+                                      (#{source-wrap\ 737}#
+                                        #{e\ 1775}#
+                                        #{w\ 1777}#
+                                        (#{wrap-subst\ 675}# #{w\ 1777}#)
+                                        #{mod\ 1779}#)
+                                      #{x\ 1788}#)
+                                    #{x\ 1788}#)))))))
+                 (#{rebuild-macro-output\ 1787}#
+                   ((car #{p\ 1774}#)
+                    (#{wrap\ 735}#
+                      #{e\ 1775}#
+                      (#{anti-mark\ 707}# #{w\ 1777}#)
+                      #{mod\ 1779}#))
                    (gensym "m")))))
-           (#{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}#)
+           (#{chi-application\ 755}#
+             (lambda (#{x\ 1822}#
+                      #{e\ 1823}#
+                      #{r\ 1824}#
+                      #{w\ 1825}#
+                      #{s\ 1826}#
+                      #{mod\ 1827}#)
+               ((lambda (#{tmp\ 1834}#)
+                  ((lambda (#{tmp\ 1835}#)
+                     (if #{tmp\ 1835}#
+                       (apply (lambda (#{e0\ 1838}# #{e1\ 1839}#)
+                                (#{build-application\ 588}#
+                                  #{s\ 1826}#
+                                  #{x\ 1822}#
+                                  (map (lambda (#{e\ 1840}#)
+                                         (#{chi\ 751}#
+                                           #{e\ 1840}#
+                                           #{r\ 1824}#
+                                           #{w\ 1825}#
+                                           #{mod\ 1827}#))
+                                       #{e1\ 1839}#)))
+                              #{tmp\ 1835}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 12319}#)))
+                         #{tmp\ 1834}#)))
                    ($sc-dispatch
-                     #{tmp\ 12319}#
+                     #{tmp\ 1834}#
                      '(any . each-any))))
-                #{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}#
+                #{e\ 1823}#)))
+           (#{chi-expr\ 753}#
+             (lambda (#{type\ 1843}#
+                      #{value\ 1844}#
+                      #{e\ 1845}#
+                      #{r\ 1846}#
+                      #{w\ 1847}#
+                      #{s\ 1848}#
+                      #{mod\ 1849}#)
+               (if (memv #{type\ 1843}# (quote (lexical)))
+                 (#{build-lexical-reference\ 594}#
                    'value
-                   #{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)))
+                   #{s\ 1848}#
+                   #{e\ 1845}#
+                   #{value\ 1844}#)
+                 (if (memv #{type\ 1843}# (quote (core core-form)))
+                   (#{value\ 1844}#
+                     #{e\ 1845}#
+                     #{r\ 1846}#
+                     #{w\ 1847}#
+                     #{s\ 1848}#
+                     #{mod\ 1849}#)
+                   (if (memv #{type\ 1843}# (quote (module-ref)))
                      (call-with-values
                        (lambda ()
-                         (#{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}#
+                         (#{value\ 1844}#
+                           #{e\ 1845}#
+                           #{r\ 1846}#
+                           #{w\ 1847}#))
+                       (lambda (#{e\ 1860}#
+                                #{r\ 1861}#
+                                #{w\ 1862}#
+                                #{s\ 1863}#
+                                #{mod\ 1864}#)
+                         (#{chi\ 751}#
+                           #{e\ 1860}#
+                           #{r\ 1861}#
+                           #{w\ 1862}#
+                           #{mod\ 1864}#)))
+                     (if (memv #{type\ 1843}# (quote (lexical-call)))
+                       (#{chi-application\ 755}#
+                         (#{build-lexical-reference\ 594}#
                            'fun
-                           (#{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}#)
+                           (#{source-annotation\ 645}# (car #{e\ 1845}#))
+                           (car #{e\ 1845}#)
+                           #{value\ 1844}#)
+                         #{e\ 1845}#
+                         #{r\ 1846}#
+                         #{w\ 1847}#
+                         #{s\ 1848}#
+                         #{mod\ 1849}#)
+                       (if (memv #{type\ 1843}# (quote (global-call)))
+                         (#{chi-application\ 755}#
+                           (#{build-global-reference\ 600}#
+                             (#{source-annotation\ 645}# (car #{e\ 1845}#))
+                             (if (#{syntax-object?\ 630}# #{value\ 1844}#)
+                               (#{syntax-object-expression\ 632}#
+                                 #{value\ 1844}#)
+                               #{value\ 1844}#)
+                             (if (#{syntax-object?\ 630}# #{value\ 1844}#)
+                               (#{syntax-object-module\ 636}# #{value\ 1844}#)
+                               #{mod\ 1849}#))
+                           #{e\ 1845}#
+                           #{r\ 1846}#
+                           #{w\ 1847}#
+                           #{s\ 1848}#
+                           #{mod\ 1849}#)
+                         (if (memv #{type\ 1843}# (quote (constant)))
+                           (#{build-data\ 616}#
+                             #{s\ 1848}#
+                             (#{strip\ 777}#
+                               (#{source-wrap\ 737}#
+                                 #{e\ 1845}#
+                                 #{w\ 1847}#
+                                 #{s\ 1848}#
+                                 #{mod\ 1849}#)
                                '(())))
-                           (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}#)
+                           (if (memv #{type\ 1843}# (quote (global)))
+                             (#{build-global-reference\ 600}#
+                               #{s\ 1848}#
+                               #{value\ 1844}#
+                               #{mod\ 1849}#)
+                             (if (memv #{type\ 1843}# (quote (call)))
+                               (#{chi-application\ 755}#
+                                 (#{chi\ 751}#
+                                   (car #{e\ 1845}#)
+                                   #{r\ 1846}#
+                                   #{w\ 1847}#
+                                   #{mod\ 1849}#)
+                                 #{e\ 1845}#
+                                 #{r\ 1846}#
+                                 #{w\ 1847}#
+                                 #{s\ 1848}#
+                                 #{mod\ 1849}#)
+                               (if (memv #{type\ 1843}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 1877}#)
+                                    ((lambda (#{tmp\ 1878}#)
+                                       (if #{tmp\ 1878}#
+                                         (apply (lambda (#{_\ 1882}#
+                                                         #{e1\ 1883}#
+                                                         #{e2\ 1884}#)
+                                                  (#{chi-sequence\ 739}#
+                                                    (cons #{e1\ 1883}#
+                                                          #{e2\ 1884}#)
+                                                    #{r\ 1846}#
+                                                    #{w\ 1847}#
+                                                    #{s\ 1848}#
+                                                    #{mod\ 1849}#))
+                                                #{tmp\ 1878}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 12362}#)))
+                                           #{tmp\ 1877}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 12362}#
+                                       #{tmp\ 1877}#
                                        '(any any . each-any))))
-                                  #{e\ 12330}#)
-                                 (if (memv #{type\ 12328}#
+                                  #{e\ 1845}#)
+                                 (if (memv #{type\ 1843}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 11246}#
-                                     #{value\ 12329}#
-                                     #{e\ 12330}#
-                                     #{r\ 12331}#
-                                     #{w\ 12332}#
-                                     #{s\ 12333}#
-                                     #{mod\ 12334}#
-                                     #{chi-sequence\ 11224}#)
-                                   (if (memv #{type\ 12328}#
+                                   (#{chi-local-syntax\ 761}#
+                                     #{value\ 1844}#
+                                     #{e\ 1845}#
+                                     #{r\ 1846}#
+                                     #{w\ 1847}#
+                                     #{s\ 1848}#
+                                     #{mod\ 1849}#
+                                     #{chi-sequence\ 739}#)
+                                   (if (memv #{type\ 1843}#
                                              '(eval-when-form))
-                                     ((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}#)))
+                                     ((lambda (#{tmp\ 1888}#)
+                                        ((lambda (#{tmp\ 1889}#)
+                                           (if #{tmp\ 1889}#
+                                             (apply (lambda (#{_\ 1894}#
+                                                             #{x\ 1895}#
+                                                             #{e1\ 1896}#
+                                                             #{e2\ 1897}#)
+                                                      (let ((#{when-list\ 
1899}#
+                                                              
(#{chi-when-list\ 745}#
+                                                                #{e\ 1845}#
+                                                                #{x\ 1895}#
+                                                                #{w\ 1847}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
12384}#)
-                                                          (#{chi-sequence\ 
11224}#
-                                                            (cons #{e1\ 12381}#
-                                                                  #{e2\ 
12382}#)
-                                                            #{r\ 12331}#
-                                                            #{w\ 12332}#
-                                                            #{s\ 12333}#
-                                                            #{mod\ 12334}#)
-                                                          (#{chi-void\ 
11250}#))))
-                                                    #{tmp\ 12374}#)
+                                                                  #{when-list\ 
1899}#)
+                                                          (#{chi-sequence\ 
739}#
+                                                            (cons #{e1\ 1896}#
+                                                                  #{e2\ 1897}#)
+                                                            #{r\ 1846}#
+                                                            #{w\ 1847}#
+                                                            #{s\ 1848}#
+                                                            #{mod\ 1849}#)
+                                                          (#{chi-void\ 
765}#))))
+                                                    #{tmp\ 1889}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 12373}#)))
+                                               #{tmp\ 1888}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 12373}#
+                                           #{tmp\ 1888}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 12330}#)
-                                     (if (memv #{type\ 12328}#
+                                      #{e\ 1845}#)
+                                     (if (memv #{type\ 1843}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 12330}#
-                                         (#{wrap\ 11220}#
-                                           #{value\ 12329}#
-                                           #{w\ 12332}#
-                                           #{mod\ 12334}#))
-                                       (if (memv #{type\ 12328}#
+                                         #{e\ 1845}#
+                                         (#{wrap\ 735}#
+                                           #{value\ 1844}#
+                                           #{w\ 1847}#
+                                           #{mod\ 1849}#))
+                                       (if (memv #{type\ 1843}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 11222}#
-                                             #{e\ 12330}#
-                                             #{w\ 12332}#
-                                             #{s\ 12333}#
-                                             #{mod\ 12334}#))
-                                         (if (memv #{type\ 12328}#
+                                           (#{source-wrap\ 737}#
+                                             #{e\ 1845}#
+                                             #{w\ 1847}#
+                                             #{s\ 1848}#
+                                             #{mod\ 1849}#))
+                                         (if (memv #{type\ 1843}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 11222}#
-                                               #{e\ 12330}#
-                                               #{w\ 12332}#
-                                               #{s\ 12333}#
-                                               #{mod\ 12334}#))
+                                             (#{source-wrap\ 737}#
+                                               #{e\ 1845}#
+                                               #{w\ 1847}#
+                                               #{s\ 1848}#
+                                               #{mod\ 1849}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 11222}#
-                                               #{e\ 12330}#
-                                               #{w\ 12332}#
-                                               #{s\ 12333}#
-                                               #{mod\ 12334}#))))))))))))))))))
-           (#{chi\ 11236}#
-             (lambda (#{e\ 12391}#
-                      #{r\ 12392}#
-                      #{w\ 12393}#
-                      #{mod\ 12394}#)
+                                             (#{source-wrap\ 737}#
+                                               #{e\ 1845}#
+                                               #{w\ 1847}#
+                                               #{s\ 1848}#
+                                               #{mod\ 1849}#))))))))))))))))))
+           (#{chi\ 751}#
+             (lambda (#{e\ 1906}#
+                      #{r\ 1907}#
+                      #{w\ 1908}#
+                      #{mod\ 1909}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 11232}#
-                     #{e\ 12391}#
-                     #{r\ 12392}#
-                     #{w\ 12393}#
-                     (#{source-annotation\ 11130}# #{e\ 12391}#)
+                   (#{syntax-type\ 747}#
+                     #{e\ 1906}#
+                     #{r\ 1907}#
+                     #{w\ 1908}#
+                     (#{source-annotation\ 645}# #{e\ 1906}#)
                      #f
-                     #{mod\ 12394}#
+                     #{mod\ 1909}#
                      #f))
-                 (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}#)
+                 (lambda (#{type\ 1914}#
+                          #{value\ 1915}#
+                          #{e\ 1916}#
+                          #{w\ 1917}#
+                          #{s\ 1918}#
+                          #{mod\ 1919}#)
+                   (#{chi-expr\ 753}#
+                     #{type\ 1914}#
+                     #{value\ 1915}#
+                     #{e\ 1916}#
+                     #{r\ 1907}#
+                     #{w\ 1917}#
+                     #{s\ 1918}#
+                     #{mod\ 1919}#)))))
+           (#{chi-top\ 749}#
+             (lambda (#{e\ 1926}#
+                      #{r\ 1927}#
+                      #{w\ 1928}#
+                      #{m\ 1929}#
+                      #{esew\ 1930}#
+                      #{mod\ 1931}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 11232}#
-                     #{e\ 12411}#
-                     #{r\ 12412}#
-                     #{w\ 12413}#
-                     (#{source-annotation\ 11130}# #{e\ 12411}#)
+                   (#{syntax-type\ 747}#
+                     #{e\ 1926}#
+                     #{r\ 1927}#
+                     #{w\ 1928}#
+                     (#{source-annotation\ 645}# #{e\ 1926}#)
                      #f
-                     #{mod\ 12416}#
+                     #{mod\ 1931}#
                      #f))
-                 (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}#)
+                 (lambda (#{type\ 1952}#
+                          #{value\ 1953}#
+                          #{e\ 1954}#
+                          #{w\ 1955}#
+                          #{s\ 1956}#
+                          #{mod\ 1957}#)
+                   (if (memv #{type\ 1952}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 1965}#)
+                        ((lambda (#{tmp\ 1966}#)
+                           (if #{tmp\ 1966}#
+                             (apply (lambda (#{_\ 1968}#) (#{chi-void\ 765}#))
+                                    #{tmp\ 1966}#)
+                             ((lambda (#{tmp\ 1969}#)
+                                (if #{tmp\ 1969}#
+                                  (apply (lambda (#{_\ 1973}#
+                                                  #{e1\ 1974}#
+                                                  #{e2\ 1975}#)
+                                           (#{chi-top-sequence\ 741}#
+                                             (cons #{e1\ 1974}# #{e2\ 1975}#)
+                                             #{r\ 1927}#
+                                             #{w\ 1955}#
+                                             #{s\ 1956}#
+                                             #{m\ 1929}#
+                                             #{esew\ 1930}#
+                                             #{mod\ 1957}#))
+                                         #{tmp\ 1969}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 12450}#)))
+                                    #{tmp\ 1965}#)))
                               ($sc-dispatch
-                                #{tmp\ 12450}#
+                                #{tmp\ 1965}#
                                 '(any any . each-any)))))
-                         ($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))
+                         ($sc-dispatch #{tmp\ 1965}# (quote (any)))))
+                      #{e\ 1954}#)
+                     (if (memv #{type\ 1952}# (quote (local-syntax-form)))
+                       (#{chi-local-syntax\ 761}#
+                         #{value\ 1953}#
+                         #{e\ 1954}#
+                         #{r\ 1927}#
+                         #{w\ 1955}#
+                         #{s\ 1956}#
+                         #{mod\ 1957}#
+                         (lambda (#{body\ 1978}#
+                                  #{r\ 1979}#
+                                  #{w\ 1980}#
+                                  #{s\ 1981}#
+                                  #{mod\ 1982}#)
+                           (#{chi-top-sequence\ 741}#
+                             #{body\ 1978}#
+                             #{r\ 1979}#
+                             #{w\ 1980}#
+                             #{s\ 1981}#
+                             #{m\ 1929}#
+                             #{esew\ 1930}#
+                             #{mod\ 1982}#)))
+                       (if (memv #{type\ 1952}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 1989}#)
+                            ((lambda (#{tmp\ 1990}#)
+                               (if #{tmp\ 1990}#
+                                 (apply (lambda (#{_\ 1995}#
+                                                 #{x\ 1996}#
+                                                 #{e1\ 1997}#
+                                                 #{e2\ 1998}#)
+                                          (let ((#{when-list\ 2001}#
+                                                  (#{chi-when-list\ 745}#
+                                                    #{e\ 1954}#
+                                                    #{x\ 1996}#
+                                                    #{w\ 1955}#))
+                                                (#{body\ 2002}#
+                                                  (cons #{e1\ 1997}#
+                                                        #{e2\ 1998}#)))
+                                            (if (eq? #{m\ 1929}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 12486}#)
-                                                (#{chi-top-sequence\ 11226}#
-                                                  #{body\ 12487}#
-                                                  #{r\ 12412}#
-                                                  #{w\ 12440}#
-                                                  #{s\ 12441}#
+                                                        #{when-list\ 2001}#)
+                                                (#{chi-top-sequence\ 741}#
+                                                  #{body\ 2002}#
+                                                  #{r\ 1927}#
+                                                  #{w\ 1955}#
+                                                  #{s\ 1956}#
                                                   (if (memq 'expand
-                                                            #{when-list\ 
12486}#)
+                                                            #{when-list\ 
2001}#)
                                                     'c&e
                                                     'e)
                                                   '(eval)
-                                                  #{mod\ 12442}#)
+                                                  #{mod\ 1957}#)
                                                 (begin
                                                   (if (memq 'expand
-                                                            #{when-list\ 
12486}#)
-                                                    (#{top-level-eval-hook\ 
11060}#
-                                                      (#{chi-top-sequence\ 
11226}#
-                                                        #{body\ 12487}#
-                                                        #{r\ 12412}#
-                                                        #{w\ 12440}#
-                                                        #{s\ 12441}#
+                                                            #{when-list\ 
2001}#)
+                                                    (#{top-level-eval-hook\ 
575}#
+                                                      (#{chi-top-sequence\ 
741}#
+                                                        #{body\ 2002}#
+                                                        #{r\ 1927}#
+                                                        #{w\ 1955}#
+                                                        #{s\ 1956}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 12442}#)
-                                                      #{mod\ 12442}#))
-                                                  (#{chi-void\ 11250}#)))
+                                                        #{mod\ 1957}#)
+                                                      #{mod\ 1957}#))
+                                                  (#{chi-void\ 765}#)))
                                               (if (memq 'load
-                                                        #{when-list\ 12486}#)
-                                                (if (let ((#{t\ 12496}#
+                                                        #{when-list\ 2001}#)
+                                                (if (let ((#{t\ 2011}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
12486}#)))
-                                                      (if #{t\ 12496}#
-                                                        #{t\ 12496}#
-                                                        (let ((#{t\ 12499}#
+                                                                  #{when-list\ 
2001}#)))
+                                                      (if #{t\ 2011}#
+                                                        #{t\ 2011}#
+                                                        (let ((#{t\ 2014}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 12486}#)))
-                                                          (if #{t\ 12499}#
-                                                            #{t\ 12499}#
-                                                            (if (eq? #{m\ 
12414}#
+                                                                      
#{when-list\ 2001}#)))
+                                                          (if #{t\ 2014}#
+                                                            #{t\ 2014}#
+                                                            (if (eq? #{m\ 
1929}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 12486}#)
+                                                                    
#{when-list\ 2001}#)
                                                               #f)))))
-                                                  (#{chi-top-sequence\ 11226}#
-                                                    #{body\ 12487}#
-                                                    #{r\ 12412}#
-                                                    #{w\ 12440}#
-                                                    #{s\ 12441}#
+                                                  (#{chi-top-sequence\ 741}#
+                                                    #{body\ 2002}#
+                                                    #{r\ 1927}#
+                                                    #{w\ 1955}#
+                                                    #{s\ 1956}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 12442}#)
-                                                  (if (memq #{m\ 12414}#
+                                                    #{mod\ 1957}#)
+                                                  (if (memq #{m\ 1929}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 
11226}#
-                                                      #{body\ 12487}#
-                                                      #{r\ 12412}#
-                                                      #{w\ 12440}#
-                                                      #{s\ 12441}#
+                                                    (#{chi-top-sequence\ 741}#
+                                                      #{body\ 2002}#
+                                                      #{r\ 1927}#
+                                                      #{w\ 1955}#
+                                                      #{s\ 1956}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 12442}#)
-                                                    (#{chi-void\ 11250}#)))
-                                                (if (let ((#{t\ 12507}#
+                                                      #{mod\ 1957}#)
+                                                    (#{chi-void\ 765}#)))
+                                                (if (let ((#{t\ 2022}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
12486}#)))
-                                                      (if #{t\ 12507}#
-                                                        #{t\ 12507}#
-                                                        (let ((#{t\ 12510}#
+                                                                  #{when-list\ 
2001}#)))
+                                                      (if #{t\ 2022}#
+                                                        #{t\ 2022}#
+                                                        (let ((#{t\ 2025}#
                                                                 (memq 'expand
-                                                                      
#{when-list\ 12486}#)))
-                                                          (if #{t\ 12510}#
-                                                            #{t\ 12510}#
-                                                            (if (eq? #{m\ 
12414}#
+                                                                      
#{when-list\ 2001}#)))
+                                                          (if #{t\ 2025}#
+                                                            #{t\ 2025}#
+                                                            (if (eq? #{m\ 
1929}#
                                                                      'c&e)
                                                               (memq 'eval
-                                                                    
#{when-list\ 12486}#)
+                                                                    
#{when-list\ 2001}#)
                                                               #f)))))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
11060}#
-                                                      (#{chi-top-sequence\ 
11226}#
-                                                        #{body\ 12487}#
-                                                        #{r\ 12412}#
-                                                        #{w\ 12440}#
-                                                        #{s\ 12441}#
+                                                    (#{top-level-eval-hook\ 
575}#
+                                                      (#{chi-top-sequence\ 
741}#
+                                                        #{body\ 2002}#
+                                                        #{r\ 1927}#
+                                                        #{w\ 1955}#
+                                                        #{s\ 1956}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 12442}#)
-                                                      #{mod\ 12442}#)
-                                                    (#{chi-void\ 11250}#))
-                                                  (#{chi-void\ 11250}#))))))
-                                        #{tmp\ 12475}#)
+                                                        #{mod\ 1957}#)
+                                                      #{mod\ 1957}#)
+                                                    (#{chi-void\ 765}#))
+                                                  (#{chi-void\ 765}#))))))
+                                        #{tmp\ 1990}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 12474}#)))
+                                   #{tmp\ 1989}#)))
                              ($sc-dispatch
-                               #{tmp\ 12474}#
+                               #{tmp\ 1989}#
                                '(any each-any any . each-any))))
-                          #{e\ 12439}#)
-                         (if (memv #{type\ 12437}#
+                          #{e\ 1954}#)
+                         (if (memv #{type\ 1952}#
                                    '(define-syntax-form))
-                           (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}#))))
+                           (let ((#{n\ 2033}#
+                                   (#{id-var-name\ 723}#
+                                     #{value\ 1953}#
+                                     #{w\ 1955}#))
+                                 (#{r\ 2034}#
+                                   (#{macros-only-env\ 658}# #{r\ 1927}#)))
+                             (if (memv #{m\ 1929}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 1930}#)
+                                 (let ((#{e\ 2037}#
+                                         (#{chi-install-global\ 743}#
+                                           #{n\ 2033}#
+                                           (#{chi\ 751}#
+                                             #{e\ 1954}#
+                                             #{r\ 2034}#
+                                             #{w\ 1955}#
+                                             #{mod\ 1957}#))))
                                    (begin
-                                     (#{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}#))))
+                                     (#{top-level-eval-hook\ 575}#
+                                       #{e\ 2037}#
+                                       #{mod\ 1957}#)
+                                     (if (memq (quote load) #{esew\ 1930}#)
+                                       #{e\ 2037}#
+                                       (#{chi-void\ 765}#))))
+                                 (if (memq (quote load) #{esew\ 1930}#)
+                                   (#{chi-install-global\ 743}#
+                                     #{n\ 2033}#
+                                     (#{chi\ 751}#
+                                       #{e\ 1954}#
+                                       #{r\ 2034}#
+                                       #{w\ 1955}#
+                                       #{mod\ 1957}#))
+                                   (#{chi-void\ 765}#)))
+                               (if (memv #{m\ 1929}# (quote (c&e)))
+                                 (let ((#{e\ 2040}#
+                                         (#{chi-install-global\ 743}#
+                                           #{n\ 2033}#
+                                           (#{chi\ 751}#
+                                             #{e\ 1954}#
+                                             #{r\ 2034}#
+                                             #{w\ 1955}#
+                                             #{mod\ 1957}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 11060}#
-                                       #{e\ 12525}#
-                                       #{mod\ 12442}#)
-                                     #{e\ 12525}#))
+                                     (#{top-level-eval-hook\ 575}#
+                                       #{e\ 2040}#
+                                       #{mod\ 1957}#)
+                                     #{e\ 2040}#))
                                  (begin
-                                   (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}#
+                                   (if (memq (quote eval) #{esew\ 1930}#)
+                                     (#{top-level-eval-hook\ 575}#
+                                       (#{chi-install-global\ 743}#
+                                         #{n\ 2033}#
+                                         (#{chi\ 751}#
+                                           #{e\ 1954}#
+                                           #{r\ 2034}#
+                                           #{w\ 1955}#
+                                           #{mod\ 1957}#))
+                                       #{mod\ 1957}#))
+                                   (#{chi-void\ 765}#)))))
+                           (if (memv #{type\ 1952}# (quote (define-form)))
+                             (let ((#{n\ 2045}#
+                                     (#{id-var-name\ 723}#
+                                       #{value\ 1953}#
+                                       #{w\ 1955}#)))
+                               (let ((#{type\ 2047}#
+                                       (#{binding-type\ 649}#
+                                         (#{lookup\ 660}#
+                                           #{n\ 2045}#
+                                           #{r\ 1927}#
+                                           #{mod\ 1957}#))))
+                                 (if (memv #{type\ 2047}#
                                            '(global core macro module-ref))
                                    (begin
-                                     (if (if (memq #{m\ 12414}#
-                                                   '(c c&e))
+                                     (if (if (memq #{m\ 1929}# (quote (c c&e)))
                                            (if (not (module-local-variable
                                                       (current-module)
-                                                      #{n\ 12530}#))
+                                                      #{n\ 2045}#))
                                              (current-module)
                                              #f)
                                            #f)
-                                       (let ((#{old\ 12538}#
+                                       (let ((#{old\ 2053}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 12530}#)))
+                                                 #{n\ 2045}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 12530}#
-                                           (if (variable? #{old\ 12538}#)
-                                             (variable-ref #{old\ 12538}#)
+                                           #{n\ 2045}#
+                                           (if (variable? #{old\ 2053}#)
+                                             (variable-ref #{old\ 2053}#)
                                              #f))))
-                                     (let ((#{x\ 12541}#
-                                             (#{build-global-definition\ 
11091}#
-                                               #{s\ 12441}#
-                                               #{n\ 12530}#
-                                               (#{chi\ 11236}#
-                                                 #{e\ 12439}#
-                                                 #{r\ 12412}#
-                                                 #{w\ 12440}#
-                                                 #{mod\ 12442}#))))
+                                     (let ((#{x\ 2056}#
+                                             (#{build-global-definition\ 606}#
+                                               #{s\ 1956}#
+                                               #{n\ 2045}#
+                                               (#{chi\ 751}#
+                                                 #{e\ 1954}#
+                                                 #{r\ 1927}#
+                                                 #{w\ 1955}#
+                                                 #{mod\ 1957}#))))
                                        (begin
-                                         (if (eq? #{m\ 12414}# (quote c&e))
-                                           (#{top-level-eval-hook\ 11060}#
-                                             #{x\ 12541}#
-                                             #{mod\ 12442}#))
-                                         #{x\ 12541}#)))
-                                   (if (memv #{type\ 12532}#
+                                         (if (eq? #{m\ 1929}# (quote c&e))
+                                           (#{top-level-eval-hook\ 575}#
+                                             #{x\ 2056}#
+                                             #{mod\ 1957}#))
+                                         #{x\ 2056}#)))
+                                   (if (memv #{type\ 2047}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 12439}#
-                                       (#{wrap\ 11220}#
-                                         #{value\ 12438}#
-                                         #{w\ 12440}#
-                                         #{mod\ 12442}#))
+                                       #{e\ 1954}#
+                                       (#{wrap\ 735}#
+                                         #{value\ 1953}#
+                                         #{w\ 1955}#
+                                         #{mod\ 1957}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{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}#)))
+                                       #{e\ 1954}#
+                                       (#{wrap\ 735}#
+                                         #{value\ 1953}#
+                                         #{w\ 1955}#
+                                         #{mod\ 1957}#))))))
+                             (let ((#{x\ 2062}#
+                                     (#{chi-expr\ 753}#
+                                       #{type\ 1952}#
+                                       #{value\ 1953}#
+                                       #{e\ 1954}#
+                                       #{r\ 1927}#
+                                       #{w\ 1955}#
+                                       #{s\ 1956}#
+                                       #{mod\ 1957}#)))
                                (begin
-                                 (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)))
+                                 (if (eq? #{m\ 1929}# (quote c&e))
+                                   (#{top-level-eval-hook\ 575}#
+                                     #{x\ 2062}#
+                                     #{mod\ 1957}#))
+                                 #{x\ 2062}#)))))))))))
+           (#{syntax-type\ 747}#
+             (lambda (#{e\ 2063}#
+                      #{r\ 2064}#
+                      #{w\ 2065}#
+                      #{s\ 2066}#
+                      #{rib\ 2067}#
+                      #{mod\ 2068}#
+                      #{for-car?\ 2069}#)
+               (if (symbol? #{e\ 2063}#)
+                 (let ((#{n\ 2081}#
+                         (#{id-var-name\ 723}# #{e\ 2063}# #{w\ 2065}#)))
+                   (let ((#{b\ 2083}#
+                           (#{lookup\ 660}#
+                             #{n\ 2081}#
+                             #{r\ 2064}#
+                             #{mod\ 2068}#)))
+                     (let ((#{type\ 2085}#
+                             (#{binding-type\ 649}# #{b\ 2083}#)))
+                       (if (memv #{type\ 2085}# (quote (lexical)))
                          (values
-                           #{type\ 12570}#
-                           (#{binding-value\ 11136}# #{b\ 12568}#)
-                           #{e\ 12548}#
-                           #{w\ 12550}#
-                           #{s\ 12551}#
-                           #{mod\ 12553}#)
-                         (if (memv #{type\ 12570}# (quote (global)))
+                           #{type\ 2085}#
+                           (#{binding-value\ 651}# #{b\ 2083}#)
+                           #{e\ 2063}#
+                           #{w\ 2065}#
+                           #{s\ 2066}#
+                           #{mod\ 2068}#)
+                         (if (memv #{type\ 2085}# (quote (global)))
                            (values
-                             #{type\ 12570}#
-                             #{n\ 12566}#
-                             #{e\ 12548}#
-                             #{w\ 12550}#
-                             #{s\ 12551}#
-                             #{mod\ 12553}#)
-                           (if (memv #{type\ 12570}# (quote (macro)))
-                             (if #{for-car?\ 12554}#
+                             #{type\ 2085}#
+                             #{n\ 2081}#
+                             #{e\ 2063}#
+                             #{w\ 2065}#
+                             #{s\ 2066}#
+                             #{mod\ 2068}#)
+                           (if (memv #{type\ 2085}# (quote (macro)))
+                             (if #{for-car?\ 2069}#
                                (values
-                                 #{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}#
+                                 #{type\ 2085}#
+                                 (#{binding-value\ 651}# #{b\ 2083}#)
+                                 #{e\ 2063}#
+                                 #{w\ 2065}#
+                                 #{s\ 2066}#
+                                 #{mod\ 2068}#)
+                               (#{syntax-type\ 747}#
+                                 (#{chi-macro\ 757}#
+                                   (#{binding-value\ 651}# #{b\ 2083}#)
+                                   #{e\ 2063}#
+                                   #{r\ 2064}#
+                                   #{w\ 2065}#
+                                   #{rib\ 2067}#
+                                   #{mod\ 2068}#)
+                                 #{r\ 2064}#
                                  '(())
-                                 #{s\ 12551}#
-                                 #{rib\ 12552}#
-                                 #{mod\ 12553}#
+                                 #{s\ 2066}#
+                                 #{rib\ 2067}#
+                                 #{mod\ 2068}#
                                  #f))
                              (values
-                               #{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}#)))
+                               #{type\ 2085}#
+                               (#{binding-value\ 651}# #{b\ 2083}#)
+                               #{e\ 2063}#
+                               #{w\ 2065}#
+                               #{s\ 2066}#
+                               #{mod\ 2068}#)))))))
+                 (if (pair? #{e\ 2063}#)
+                   (let ((#{first\ 2094}# (car #{e\ 2063}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 11232}#
-                           #{first\ 12579}#
-                           #{r\ 12549}#
-                           #{w\ 12550}#
-                           #{s\ 12551}#
-                           #{rib\ 12552}#
-                           #{mod\ 12553}#
+                         (#{syntax-type\ 747}#
+                           #{first\ 2094}#
+                           #{r\ 2064}#
+                           #{w\ 2065}#
+                           #{s\ 2066}#
+                           #{rib\ 2067}#
+                           #{mod\ 2068}#
                            #t))
-                       (lambda (#{ftype\ 12580}#
-                                #{fval\ 12581}#
-                                #{fe\ 12582}#
-                                #{fw\ 12583}#
-                                #{fs\ 12584}#
-                                #{fmod\ 12585}#)
-                         (if (memv #{ftype\ 12580}# (quote (lexical)))
+                       (lambda (#{ftype\ 2095}#
+                                #{fval\ 2096}#
+                                #{fe\ 2097}#
+                                #{fw\ 2098}#
+                                #{fs\ 2099}#
+                                #{fmod\ 2100}#)
+                         (if (memv #{ftype\ 2095}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 12581}#
-                             #{e\ 12548}#
-                             #{w\ 12550}#
-                             #{s\ 12551}#
-                             #{mod\ 12553}#)
-                           (if (memv #{ftype\ 12580}# (quote (global)))
+                             #{fval\ 2096}#
+                             #{e\ 2063}#
+                             #{w\ 2065}#
+                             #{s\ 2066}#
+                             #{mod\ 2068}#)
+                           (if (memv #{ftype\ 2095}# (quote (global)))
                              (values
                                'global-call
-                               (#{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}#
+                               (#{make-syntax-object\ 628}#
+                                 #{fval\ 2096}#
+                                 #{w\ 2065}#
+                                 #{fmod\ 2100}#)
+                               #{e\ 2063}#
+                               #{w\ 2065}#
+                               #{s\ 2066}#
+                               #{mod\ 2068}#)
+                             (if (memv #{ftype\ 2095}# (quote (macro)))
+                               (#{syntax-type\ 747}#
+                                 (#{chi-macro\ 757}#
+                                   #{fval\ 2096}#
+                                   #{e\ 2063}#
+                                   #{r\ 2064}#
+                                   #{w\ 2065}#
+                                   #{rib\ 2067}#
+                                   #{mod\ 2068}#)
+                                 #{r\ 2064}#
                                  '(())
-                                 #{s\ 12551}#
-                                 #{rib\ 12552}#
-                                 #{mod\ 12553}#
-                                 #{for-car?\ 12554}#)
-                               (if (memv #{ftype\ 12580}# (quote (module-ref)))
+                                 #{s\ 2066}#
+                                 #{rib\ 2067}#
+                                 #{mod\ 2068}#
+                                 #{for-car?\ 2069}#)
+                               (if (memv #{ftype\ 2095}# (quote (module-ref)))
                                  (call-with-values
                                    (lambda ()
-                                     (#{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)))
+                                     (#{fval\ 2096}#
+                                       #{e\ 2063}#
+                                       #{r\ 2064}#
+                                       #{w\ 2065}#))
+                                   (lambda (#{e\ 2112}#
+                                            #{r\ 2113}#
+                                            #{w\ 2114}#
+                                            #{s\ 2115}#
+                                            #{mod\ 2116}#)
+                                     (#{syntax-type\ 747}#
+                                       #{e\ 2112}#
+                                       #{r\ 2113}#
+                                       #{w\ 2114}#
+                                       #{s\ 2115}#
+                                       #{rib\ 2067}#
+                                       #{mod\ 2116}#
+                                       #{for-car?\ 2069}#)))
+                                 (if (memv #{ftype\ 2095}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 12581}#
-                                     #{e\ 12548}#
-                                     #{w\ 12550}#
-                                     #{s\ 12551}#
-                                     #{mod\ 12553}#)
-                                   (if (memv #{ftype\ 12580}#
+                                     #{fval\ 2096}#
+                                     #{e\ 2063}#
+                                     #{w\ 2065}#
+                                     #{s\ 2066}#
+                                     #{mod\ 2068}#)
+                                   (if (memv #{ftype\ 2095}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 12581}#
-                                       #{e\ 12548}#
-                                       #{w\ 12550}#
-                                       #{s\ 12551}#
-                                       #{mod\ 12553}#)
-                                     (if (memv #{ftype\ 12580}#
-                                               '(begin))
+                                       #{fval\ 2096}#
+                                       #{e\ 2063}#
+                                       #{w\ 2065}#
+                                       #{s\ 2066}#
+                                       #{mod\ 2068}#)
+                                     (if (memv #{ftype\ 2095}# (quote (begin)))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 12548}#
-                                         #{w\ 12550}#
-                                         #{s\ 12551}#
-                                         #{mod\ 12553}#)
-                                       (if (memv #{ftype\ 12580}#
+                                         #{e\ 2063}#
+                                         #{w\ 2065}#
+                                         #{s\ 2066}#
+                                         #{mod\ 2068}#)
+                                       (if (memv #{ftype\ 2095}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 12548}#
-                                           #{w\ 12550}#
-                                           #{s\ 12551}#
-                                           #{mod\ 12553}#)
-                                         (if (memv #{ftype\ 12580}#
+                                           #{e\ 2063}#
+                                           #{w\ 2065}#
+                                           #{s\ 2066}#
+                                           #{mod\ 2068}#)
+                                         (if (memv #{ftype\ 2095}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 12612}#)
-                                              ((lambda (#{tmp\ 12613}#)
-                                                 (if (if #{tmp\ 12613}#
-                                                       (apply (lambda (#{_\ 
12617}#
-                                                                       #{name\ 
12618}#
-                                                                       #{val\ 
12619}#)
-                                                                (#{id?\ 11151}#
-                                                                  #{name\ 
12618}#))
-                                                              #{tmp\ 12613}#)
+                                           ((lambda (#{tmp\ 2127}#)
+                                              ((lambda (#{tmp\ 2128}#)
+                                                 (if (if #{tmp\ 2128}#
+                                                       (apply (lambda (#{_\ 
2132}#
+                                                                       #{name\ 
2133}#
+                                                                       #{val\ 
2134}#)
+                                                                (#{id?\ 666}#
+                                                                  #{name\ 
2133}#))
+                                                              #{tmp\ 2128}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 12623}#
-                                                                   #{name\ 
12624}#
-                                                                   #{val\ 
12625}#)
+                                                   (apply (lambda (#{_\ 2138}#
+                                                                   #{name\ 
2139}#
+                                                                   #{val\ 
2140}#)
                                                             (values
                                                               'define-form
-                                                              #{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}#))
+                                                              #{name\ 2139}#
+                                                              #{val\ 2140}#
+                                                              #{w\ 2065}#
+                                                              #{s\ 2066}#
+                                                              #{mod\ 2068}#))
+                                                          #{tmp\ 2128}#)
+                                                   ((lambda (#{tmp\ 2141}#)
+                                                      (if (if #{tmp\ 2141}#
+                                                            (apply (lambda 
(#{_\ 2147}#
+                                                                            
#{name\ 2148}#
+                                                                            
#{args\ 2149}#
+                                                                            
#{e1\ 2150}#
+                                                                            
#{e2\ 2151}#)
+                                                                     (if 
(#{id?\ 666}#
+                                                                           
#{name\ 2148}#)
+                                                                       
(#{valid-bound-ids?\ 729}#
+                                                                         
(#{lambda-var-list\ 781}#
+                                                                           
#{args\ 2149}#))
                                                                        #f))
-                                                                   #{tmp\ 
12626}#)
+                                                                   #{tmp\ 
2141}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
12644}#
-                                                                        
#{name\ 12645}#
-                                                                        
#{args\ 12646}#
-                                                                        #{e1\ 
12647}#
-                                                                        #{e2\ 
12648}#)
+                                                        (apply (lambda (#{_\ 
2159}#
+                                                                        
#{name\ 2160}#
+                                                                        
#{args\ 2161}#
+                                                                        #{e1\ 
2162}#
+                                                                        #{e2\ 
2163}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
11220}#
-                                                                     #{name\ 
12645}#
-                                                                     #{w\ 
12550}#
-                                                                     #{mod\ 
12553}#)
-                                                                   
(#{decorate-source\ 11069}#
+                                                                   (#{wrap\ 
735}#
+                                                                     #{name\ 
2160}#
+                                                                     #{w\ 
2065}#
+                                                                     #{mod\ 
2068}#)
+                                                                   
(#{decorate-source\ 584}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3665,11 +3639,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i12639"
-                                                                               
    "i12640"
-                                                                               
    "i12641"
-                                                                               
    "i12642"
-                                                                               
    "i12643"))
+                                                                               
  #("i2154"
+                                                                               
    "i2155"
+                                                                               
    "i2156"
+                                                                               
    "i2157"
+                                                                               
    "i2158"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3691,12 +3665,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i12586"
-                                                                               
    "i12587"
-                                                                               
    "i12588"
-                                                                               
    "i12589"
-                                                                               
    "i12590"
-                                                                               
    "i12591"))
+                                                                               
  #("i2101"
+                                                                               
    "i2102"
+                                                                               
    "i2103"
+                                                                               
    "i2104"
+                                                                               
    "i2105"
+                                                                               
    "i2106"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3704,7 +3678,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i12578"))
+                                                                               
  #("i2093"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3732,13 +3706,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i12555"
-                                                                               
    "i12556"
-                                                                               
    "i12557"
-                                                                               
    "i12558"
-                                                                               
    "i12559"
-                                                                               
    "i12560"
-                                                                               
    "i12561"))
+                                                                               
  #("i2070"
+                                                                               
    "i2071"
+                                                                               
    "i2072"
+                                                                               
    "i2073"
+                                                                               
    "i2074"
+                                                                               
    "i2075"
+                                                                               
    "i2076"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -3974,159 +3948,159 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top))
-                                                                               
  ("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"))
+                                                                               
  ("i780"
+                                                                               
   "i778"
+                                                                               
   "i776"
+                                                                               
   "i774"
+                                                                               
   "i772"
+                                                                               
   "i770"
+                                                                               
   "i768"
+                                                                               
   "i766"
+                                                                               
   "i764"
+                                                                               
   "i762"
+                                                                               
   "i760"
+                                                                               
   "i758"
+                                                                               
   "i756"
+                                                                               
   "i754"
+                                                                               
   "i752"
+                                                                               
   "i750"
+                                                                               
   "i748"
+                                                                               
   "i746"
+                                                                               
   "i744"
+                                                                               
   "i742"
+                                                                               
   "i740"
+                                                                               
   "i738"
+                                                                               
   "i736"
+                                                                               
   "i734"
+                                                                               
   "i732"
+                                                                               
   "i730"
+                                                                               
   "i728"
+                                                                               
   "i726"
+                                                                               
   "i724"
+                                                                               
   "i722"
+                                                                               
   "i720"
+                                                                               
   "i718"
+                                                                               
   "i716"
+                                                                               
   "i714"
+                                                                               
   "i712"
+                                                                               
   "i710"
+                                                                               
   "i709"
+                                                                               
   "i708"
+                                                                               
   "i706"
+                                                                               
   "i705"
+                                                                               
   "i704"
+                                                                               
   "i703"
+                                                                               
   "i702"
+                                                                               
   "i700"
+                                                                               
   "i698"
+                                                                               
   "i696"
+                                                                               
   "i694"
+                                                                               
   "i692"
+                                                                               
   "i690"
+                                                                               
   "i688"
+                                                                               
   "i686"
+                                                                               
   "i683"
+                                                                               
   "i681"
+                                                                               
   "i680"
+                                                                               
   "i679"
+                                                                               
   "i678"
+                                                                               
   "i677"
+                                                                               
   "i676"
+                                                                               
   "i674"
+                                                                               
   "i672"
+                                                                               
   "i670"
+                                                                               
   "i668"
+                                                                               
   "i667"
+                                                                               
   "i665"
+                                                                               
   "i663"
+                                                                               
   "i661"
+                                                                               
   "i659"
+                                                                               
   "i657"
+                                                                               
   "i655"
+                                                                               
   "i653"
+                                                                               
   "i652"
+                                                                               
   "i650"
+                                                                               
   "i648"
+                                                                               
   "i647"
+                                                                               
   "i646"
+                                                                               
   "i644"
+                                                                               
   "i643"
+                                                                               
   "i641"
+                                                                               
   "i639"
+                                                                               
   "i637"
+                                                                               
   "i635"
+                                                                               
   "i633"
+                                                                               
   "i631"
+                                                                               
   "i629"
+                                                                               
   "i627"
+                                                                               
   "i625"
+                                                                               
   "i623"
+                                                                               
   "i621"
+                                                                               
   "i619"
+                                                                               
   "i617"
+                                                                               
   "i615"
+                                                                               
   "i613"
+                                                                               
   "i611"
+                                                                               
   "i609"
+                                                                               
   "i607"
+                                                                               
   "i605"
+                                                                               
   "i603"
+                                                                               
   "i601"
+                                                                               
   "i599"
+                                                                               
   "i597"
+                                                                               
   "i595"
+                                                                               
   "i593"
+                                                                               
   "i591"
+                                                                               
   "i589"
+                                                                               
   "i587"
+                                                                               
   "i585"
+                                                                               
   "i583"
+                                                                               
   "i581"
+                                                                               
   "i579"
+                                                                               
   "i578"
+                                                                               
   "i576"
+                                                                               
   "i574"
+                                                                               
   "i572"
+                                                                               
   "i570"
+                                                                               
   "i568"
+                                                                               
   "i566"
+                                                                               
   "i564"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    and-map*)
                                                                                
  ((top)
                                                                                
   (top))
-                                                                               
  ("i10952"
-                                                                               
   "i10950")))
+                                                                               
  ("i467"
+                                                                               
   "i465")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 11220}#
-                                                                             
(cons #{args\ 12646}#
-                                                                               
    (cons #{e1\ 12647}#
-                                                                               
          #{e2\ 12648}#))
-                                                                             
#{w\ 12550}#
-                                                                             
#{mod\ 12553}#))
-                                                                     #{s\ 
12551}#)
+                                                                           
(#{wrap\ 735}#
+                                                                             
(cons #{args\ 2161}#
+                                                                               
    (cons #{e1\ 2162}#
+                                                                               
          #{e2\ 2163}#))
+                                                                             
#{w\ 2065}#
+                                                                             
#{mod\ 2068}#))
+                                                                     #{s\ 
2066}#)
                                                                    '(())
-                                                                   #{s\ 12551}#
-                                                                   #{mod\ 
12553}#))
-                                                               #{tmp\ 12626}#)
-                                                        ((lambda (#{tmp\ 
12651}#)
-                                                           (if (if #{tmp\ 
12651}#
-                                                                 (apply 
(lambda (#{_\ 12654}#
-                                                                               
  #{name\ 12655}#)
-                                                                          
(#{id?\ 11151}#
-                                                                            
#{name\ 12655}#))
-                                                                        #{tmp\ 
12651}#)
+                                                                   #{s\ 2066}#
+                                                                   #{mod\ 
2068}#))
+                                                               #{tmp\ 2141}#)
+                                                        ((lambda (#{tmp\ 
2166}#)
+                                                           (if (if #{tmp\ 
2166}#
+                                                                 (apply 
(lambda (#{_\ 2169}#
+                                                                               
  #{name\ 2170}#)
+                                                                          
(#{id?\ 666}#
+                                                                            
#{name\ 2170}#))
+                                                                        #{tmp\ 
2166}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 12658}#
-                                                                             
#{name\ 12659}#)
+                                                             (apply (lambda 
(#{_\ 2173}#
+                                                                             
#{name\ 2174}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 11220}#
-                                                                          
#{name\ 12659}#
-                                                                          #{w\ 
12550}#
-                                                                          
#{mod\ 12553}#)
+                                                                        
(#{wrap\ 735}#
+                                                                          
#{name\ 2174}#
+                                                                          #{w\ 
2065}#
+                                                                          
#{mod\ 2068}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4135,8 +4109,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i12656"
-                                                                               
  "i12657"))
+                                                                               
#("i2171"
+                                                                               
  "i2172"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4158,12 +4132,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12586"
-                                                                               
  "i12587"
-                                                                               
  "i12588"
-                                                                               
  "i12589"
-                                                                               
  "i12590"
-                                                                               
  "i12591"))
+                                                                               
#("i2101"
+                                                                               
  "i2102"
+                                                                               
  "i2103"
+                                                                               
  "i2104"
+                                                                               
  "i2105"
+                                                                               
  "i2106"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4171,7 +4145,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i12578"))
+                                                                               
#("i2093"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4199,13 +4173,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12555"
-                                                                               
  "i12556"
-                                                                               
  "i12557"
-                                                                               
  "i12558"
-                                                                               
  "i12559"
-                                                                               
  "i12560"
-                                                                               
  "i12561"))
+                                                                               
#("i2070"
+                                                                               
  "i2071"
+                                                                               
  "i2072"
+                                                                               
  "i2073"
+                                                                               
  "i2074"
+                                                                               
  "i2075"
+                                                                               
  "i2076"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4441,130 +4415,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("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"))
+                                                                               
("i780"
+                                                                               
 "i778"
+                                                                               
 "i776"
+                                                                               
 "i774"
+                                                                               
 "i772"
+                                                                               
 "i770"
+                                                                               
 "i768"
+                                                                               
 "i766"
+                                                                               
 "i764"
+                                                                               
 "i762"
+                                                                               
 "i760"
+                                                                               
 "i758"
+                                                                               
 "i756"
+                                                                               
 "i754"
+                                                                               
 "i752"
+                                                                               
 "i750"
+                                                                               
 "i748"
+                                                                               
 "i746"
+                                                                               
 "i744"
+                                                                               
 "i742"
+                                                                               
 "i740"
+                                                                               
 "i738"
+                                                                               
 "i736"
+                                                                               
 "i734"
+                                                                               
 "i732"
+                                                                               
 "i730"
+                                                                               
 "i728"
+                                                                               
 "i726"
+                                                                               
 "i724"
+                                                                               
 "i722"
+                                                                               
 "i720"
+                                                                               
 "i718"
+                                                                               
 "i716"
+                                                                               
 "i714"
+                                                                               
 "i712"
+                                                                               
 "i710"
+                                                                               
 "i709"
+                                                                               
 "i708"
+                                                                               
 "i706"
+                                                                               
 "i705"
+                                                                               
 "i704"
+                                                                               
 "i703"
+                                                                               
 "i702"
+                                                                               
 "i700"
+                                                                               
 "i698"
+                                                                               
 "i696"
+                                                                               
 "i694"
+                                                                               
 "i692"
+                                                                               
 "i690"
+                                                                               
 "i688"
+                                                                               
 "i686"
+                                                                               
 "i683"
+                                                                               
 "i681"
+                                                                               
 "i680"
+                                                                               
 "i679"
+                                                                               
 "i678"
+                                                                               
 "i677"
+                                                                               
 "i676"
+                                                                               
 "i674"
+                                                                               
 "i672"
+                                                                               
 "i670"
+                                                                               
 "i668"
+                                                                               
 "i667"
+                                                                               
 "i665"
+                                                                               
 "i663"
+                                                                               
 "i661"
+                                                                               
 "i659"
+                                                                               
 "i657"
+                                                                               
 "i655"
+                                                                               
 "i653"
+                                                                               
 "i652"
+                                                                               
 "i650"
+                                                                               
 "i648"
+                                                                               
 "i647"
+                                                                               
 "i646"
+                                                                               
 "i644"
+                                                                               
 "i643"
+                                                                               
 "i641"
+                                                                               
 "i639"
+                                                                               
 "i637"
+                                                                               
 "i635"
+                                                                               
 "i633"
+                                                                               
 "i631"
+                                                                               
 "i629"
+                                                                               
 "i627"
+                                                                               
 "i625"
+                                                                               
 "i623"
+                                                                               
 "i621"
+                                                                               
 "i619"
+                                                                               
 "i617"
+                                                                               
 "i615"
+                                                                               
 "i613"
+                                                                               
 "i611"
+                                                                               
 "i609"
+                                                                               
 "i607"
+                                                                               
 "i605"
+                                                                               
 "i603"
+                                                                               
 "i601"
+                                                                               
 "i599"
+                                                                               
 "i597"
+                                                                               
 "i595"
+                                                                               
 "i593"
+                                                                               
 "i591"
+                                                                               
 "i589"
+                                                                               
 "i587"
+                                                                               
 "i585"
+                                                                               
 "i583"
+                                                                               
 "i581"
+                                                                               
 "i579"
+                                                                               
 "i578"
+                                                                               
 "i576"
+                                                                               
 "i574"
+                                                                               
 "i572"
+                                                                               
 "i570"
+                                                                               
 "i568"
+                                                                               
 "i566"
+                                                                               
 "i564"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i10952"
-                                                                               
 "i10950")))
+                                                                               
("i467"
+                                                                               
 "i465")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4575,8 +4549,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i12656"
-                                                                               
  "i12657"))
+                                                                               
#("i2171"
+                                                                               
  "i2172"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4598,12 +4572,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12586"
-                                                                               
  "i12587"
-                                                                               
  "i12588"
-                                                                               
  "i12589"
-                                                                               
  "i12590"
-                                                                               
  "i12591"))
+                                                                               
#("i2101"
+                                                                               
  "i2102"
+                                                                               
  "i2103"
+                                                                               
  "i2104"
+                                                                               
  "i2105"
+                                                                               
  "i2106"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4611,7 +4585,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i12578"))
+                                                                               
#("i2093"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4639,13 +4613,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12555"
-                                                                               
  "i12556"
-                                                                               
  "i12557"
-                                                                               
  "i12558"
-                                                                               
  "i12559"
-                                                                               
  "i12560"
-                                                                               
  "i12561"))
+                                                                               
#("i2070"
+                                                                               
  "i2071"
+                                                                               
  "i2072"
+                                                                               
  "i2073"
+                                                                               
  "i2074"
+                                                                               
  "i2075"
+                                                                               
  "i2076"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4881,130 +4855,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("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"))
+                                                                               
("i780"
+                                                                               
 "i778"
+                                                                               
 "i776"
+                                                                               
 "i774"
+                                                                               
 "i772"
+                                                                               
 "i770"
+                                                                               
 "i768"
+                                                                               
 "i766"
+                                                                               
 "i764"
+                                                                               
 "i762"
+                                                                               
 "i760"
+                                                                               
 "i758"
+                                                                               
 "i756"
+                                                                               
 "i754"
+                                                                               
 "i752"
+                                                                               
 "i750"
+                                                                               
 "i748"
+                                                                               
 "i746"
+                                                                               
 "i744"
+                                                                               
 "i742"
+                                                                               
 "i740"
+                                                                               
 "i738"
+                                                                               
 "i736"
+                                                                               
 "i734"
+                                                                               
 "i732"
+                                                                               
 "i730"
+                                                                               
 "i728"
+                                                                               
 "i726"
+                                                                               
 "i724"
+                                                                               
 "i722"
+                                                                               
 "i720"
+                                                                               
 "i718"
+                                                                               
 "i716"
+                                                                               
 "i714"
+                                                                               
 "i712"
+                                                                               
 "i710"
+                                                                               
 "i709"
+                                                                               
 "i708"
+                                                                               
 "i706"
+                                                                               
 "i705"
+                                                                               
 "i704"
+                                                                               
 "i703"
+                                                                               
 "i702"
+                                                                               
 "i700"
+                                                                               
 "i698"
+                                                                               
 "i696"
+                                                                               
 "i694"
+                                                                               
 "i692"
+                                                                               
 "i690"
+                                                                               
 "i688"
+                                                                               
 "i686"
+                                                                               
 "i683"
+                                                                               
 "i681"
+                                                                               
 "i680"
+                                                                               
 "i679"
+                                                                               
 "i678"
+                                                                               
 "i677"
+                                                                               
 "i676"
+                                                                               
 "i674"
+                                                                               
 "i672"
+                                                                               
 "i670"
+                                                                               
 "i668"
+                                                                               
 "i667"
+                                                                               
 "i665"
+                                                                               
 "i663"
+                                                                               
 "i661"
+                                                                               
 "i659"
+                                                                               
 "i657"
+                                                                               
 "i655"
+                                                                               
 "i653"
+                                                                               
 "i652"
+                                                                               
 "i650"
+                                                                               
 "i648"
+                                                                               
 "i647"
+                                                                               
 "i646"
+                                                                               
 "i644"
+                                                                               
 "i643"
+                                                                               
 "i641"
+                                                                               
 "i639"
+                                                                               
 "i637"
+                                                                               
 "i635"
+                                                                               
 "i633"
+                                                                               
 "i631"
+                                                                               
 "i629"
+                                                                               
 "i627"
+                                                                               
 "i625"
+                                                                               
 "i623"
+                                                                               
 "i621"
+                                                                               
 "i619"
+                                                                               
 "i617"
+                                                                               
 "i615"
+                                                                               
 "i613"
+                                                                               
 "i611"
+                                                                               
 "i609"
+                                                                               
 "i607"
+                                                                               
 "i605"
+                                                                               
 "i603"
+                                                                               
 "i601"
+                                                                               
 "i599"
+                                                                               
 "i597"
+                                                                               
 "i595"
+                                                                               
 "i593"
+                                                                               
 "i591"
+                                                                               
 "i589"
+                                                                               
 "i587"
+                                                                               
 "i585"
+                                                                               
 "i583"
+                                                                               
 "i581"
+                                                                               
 "i579"
+                                                                               
 "i578"
+                                                                               
 "i576"
+                                                                               
 "i574"
+                                                                               
 "i572"
+                                                                               
 "i570"
+                                                                               
 "i568"
+                                                                               
 "i566"
+                                                                               
 "i564"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i10952"
-                                                                               
 "i10950")))
+                                                                               
("i467"
+                                                                               
 "i465")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -5015,8 +4989,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i12656"
-                                                                               
  "i12657"))
+                                                                               
#("i2171"
+                                                                               
  "i2172"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5038,12 +5012,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12586"
-                                                                               
  "i12587"
-                                                                               
  "i12588"
-                                                                               
  "i12589"
-                                                                               
  "i12590"
-                                                                               
  "i12591"))
+                                                                               
#("i2101"
+                                                                               
  "i2102"
+                                                                               
  "i2103"
+                                                                               
  "i2104"
+                                                                               
  "i2105"
+                                                                               
  "i2106"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5051,7 +5025,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i12578"))
+                                                                               
#("i2093"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5079,13 +5053,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i12555"
-                                                                               
  "i12556"
-                                                                               
  "i12557"
-                                                                               
  "i12558"
-                                                                               
  "i12559"
-                                                                               
  "i12560"
-                                                                               
  "i12561"))
+                                                                               
#("i2070"
+                                                                               
  "i2071"
+                                                                               
  "i2072"
+                                                                               
  "i2073"
+                                                                               
  "i2074"
+                                                                               
  "i2075"
+                                                                               
  "i2076"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5321,232 +5295,231 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("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"))
+                                                                               
("i780"
+                                                                               
 "i778"
+                                                                               
 "i776"
+                                                                               
 "i774"
+                                                                               
 "i772"
+                                                                               
 "i770"
+                                                                               
 "i768"
+                                                                               
 "i766"
+                                                                               
 "i764"
+                                                                               
 "i762"
+                                                                               
 "i760"
+                                                                               
 "i758"
+                                                                               
 "i756"
+                                                                               
 "i754"
+                                                                               
 "i752"
+                                                                               
 "i750"
+                                                                               
 "i748"
+                                                                               
 "i746"
+                                                                               
 "i744"
+                                                                               
 "i742"
+                                                                               
 "i740"
+                                                                               
 "i738"
+                                                                               
 "i736"
+                                                                               
 "i734"
+                                                                               
 "i732"
+                                                                               
 "i730"
+                                                                               
 "i728"
+                                                                               
 "i726"
+                                                                               
 "i724"
+                                                                               
 "i722"
+                                                                               
 "i720"
+                                                                               
 "i718"
+                                                                               
 "i716"
+                                                                               
 "i714"
+                                                                               
 "i712"
+                                                                               
 "i710"
+                                                                               
 "i709"
+                                                                               
 "i708"
+                                                                               
 "i706"
+                                                                               
 "i705"
+                                                                               
 "i704"
+                                                                               
 "i703"
+                                                                               
 "i702"
+                                                                               
 "i700"
+                                                                               
 "i698"
+                                                                               
 "i696"
+                                                                               
 "i694"
+                                                                               
 "i692"
+                                                                               
 "i690"
+                                                                               
 "i688"
+                                                                               
 "i686"
+                                                                               
 "i683"
+                                                                               
 "i681"
+                                                                               
 "i680"
+                                                                               
 "i679"
+                                                                               
 "i678"
+                                                                               
 "i677"
+                                                                               
 "i676"
+                                                                               
 "i674"
+                                                                               
 "i672"
+                                                                               
 "i670"
+                                                                               
 "i668"
+                                                                               
 "i667"
+                                                                               
 "i665"
+                                                                               
 "i663"
+                                                                               
 "i661"
+                                                                               
 "i659"
+                                                                               
 "i657"
+                                                                               
 "i655"
+                                                                               
 "i653"
+                                                                               
 "i652"
+                                                                               
 "i650"
+                                                                               
 "i648"
+                                                                               
 "i647"
+                                                                               
 "i646"
+                                                                               
 "i644"
+                                                                               
 "i643"
+                                                                               
 "i641"
+                                                                               
 "i639"
+                                                                               
 "i637"
+                                                                               
 "i635"
+                                                                               
 "i633"
+                                                                               
 "i631"
+                                                                               
 "i629"
+                                                                               
 "i627"
+                                                                               
 "i625"
+                                                                               
 "i623"
+                                                                               
 "i621"
+                                                                               
 "i619"
+                                                                               
 "i617"
+                                                                               
 "i615"
+                                                                               
 "i613"
+                                                                               
 "i611"
+                                                                               
 "i609"
+                                                                               
 "i607"
+                                                                               
 "i605"
+                                                                               
 "i603"
+                                                                               
 "i601"
+                                                                               
 "i599"
+                                                                               
 "i597"
+                                                                               
 "i595"
+                                                                               
 "i593"
+                                                                               
 "i591"
+                                                                               
 "i589"
+                                                                               
 "i587"
+                                                                               
 "i585"
+                                                                               
 "i583"
+                                                                               
 "i581"
+                                                                               
 "i579"
+                                                                               
 "i578"
+                                                                               
 "i576"
+                                                                               
 "i574"
+                                                                               
 "i572"
+                                                                               
 "i570"
+                                                                               
 "i568"
+                                                                               
 "i566"
+                                                                               
 "i564"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i10952"
-                                                                               
 "i10950")))
+                                                                               
("i467"
+                                                                               
 "i465")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
12551}#
-                                                                        #{mod\ 
12553}#))
-                                                                    #{tmp\ 
12651}#)
+                                                                        #{s\ 
2066}#
+                                                                        #{mod\ 
2068}#))
+                                                                    #{tmp\ 
2166}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 
12612}#)))
+                                                               #{tmp\ 2127}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 12612}#
+                                                           #{tmp\ 2127}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 12612}#
+                                                      #{tmp\ 2127}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 12612}#
+                                                 #{tmp\ 2127}#
                                                  '(any any any))))
-                                            #{e\ 12548}#)
-                                           (if (memv #{ftype\ 12580}#
+                                            #{e\ 2063}#)
+                                           (if (memv #{ftype\ 2095}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 12662}#)
-                                                ((lambda (#{tmp\ 12663}#)
-                                                   (if (if #{tmp\ 12663}#
-                                                         (apply (lambda (#{_\ 
12667}#
-                                                                         
#{name\ 12668}#
-                                                                         
#{val\ 12669}#)
-                                                                  (#{id?\ 
11151}#
-                                                                    #{name\ 
12668}#))
-                                                                #{tmp\ 12663}#)
+                                             ((lambda (#{tmp\ 2177}#)
+                                                ((lambda (#{tmp\ 2178}#)
+                                                   (if (if #{tmp\ 2178}#
+                                                         (apply (lambda (#{_\ 
2182}#
+                                                                         
#{name\ 2183}#
+                                                                         
#{val\ 2184}#)
+                                                                  (#{id?\ 666}#
+                                                                    #{name\ 
2183}#))
+                                                                #{tmp\ 2178}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 
12673}#
-                                                                     #{name\ 
12674}#
-                                                                     #{val\ 
12675}#)
+                                                     (apply (lambda (#{_\ 
2188}#
+                                                                     #{name\ 
2189}#
+                                                                     #{val\ 
2190}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 12674}#
-                                                                #{val\ 12675}#
-                                                                #{w\ 12550}#
-                                                                #{s\ 12551}#
-                                                                #{mod\ 
12553}#))
-                                                            #{tmp\ 12663}#)
+                                                                #{name\ 2189}#
+                                                                #{val\ 2190}#
+                                                                #{w\ 2065}#
+                                                                #{s\ 2066}#
+                                                                #{mod\ 2068}#))
+                                                            #{tmp\ 2178}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 12662}#)))
+                                                       #{tmp\ 2177}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 12662}#
+                                                   #{tmp\ 2177}#
                                                    '(any any any))))
-                                              #{e\ 12548}#)
+                                              #{e\ 2063}#)
                                              (values
                                                'call
                                                #f
-                                               #{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}#)
+                                               #{e\ 2063}#
+                                               #{w\ 2065}#
+                                               #{s\ 2066}#
+                                               #{mod\ 2068}#))))))))))))))
+                   (if (#{syntax-object?\ 630}# #{e\ 2063}#)
+                     (#{syntax-type\ 747}#
+                       (#{syntax-object-expression\ 632}# #{e\ 2063}#)
+                       #{r\ 2064}#
+                       (#{join-wraps\ 717}#
+                         #{w\ 2065}#
+                         (#{syntax-object-wrap\ 634}# #{e\ 2063}#))
+                       #{s\ 2066}#
+                       #{rib\ 2067}#
+                       (let ((#{t\ 2196}#
+                               (#{syntax-object-module\ 636}# #{e\ 2063}#)))
+                         (if #{t\ 2196}# #{t\ 2196}# #{mod\ 2068}#))
+                       #{for-car?\ 2069}#)
+                     (if (self-evaluating? #{e\ 2063}#)
                        (values
                          'constant
                          #f
-                         #{e\ 12548}#
-                         #{w\ 12550}#
-                         #{s\ 12551}#
-                         #{mod\ 12553}#)
+                         #{e\ 2063}#
+                         #{w\ 2065}#
+                         #{s\ 2066}#
+                         #{mod\ 2068}#)
                        (values
                          'other
                          #f
-                         #{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}#
+                         #{e\ 2063}#
+                         #{w\ 2065}#
+                         #{s\ 2066}#
+                         #{mod\ 2068}#)))))))
+           (#{chi-when-list\ 745}#
+             (lambda (#{e\ 2201}# #{when-list\ 2202}# #{w\ 2203}#)
+               (letrec ((#{f\ 2210}#
+                          (lambda (#{when-list\ 2211}# #{situations\ 2212}#)
+                            (if (null? #{when-list\ 2211}#)
+                              #{situations\ 2212}#
+                              (#{f\ 2210}#
+                                (cdr #{when-list\ 2211}#)
+                                (cons (let ((#{x\ 2214}#
+                                              (car #{when-list\ 2211}#)))
+                                        (if (#{free-id=?\ 725}#
+                                              #{x\ 2214}#
                                               '#(syntax-object
                                                  compile
                                                  ((top)
@@ -5556,21 +5529,17 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i12698"))
+                                                    #("i2213"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i12692"
-                                                      "i12693"
-                                                      "i12694"))
+                                                    #("i2207" "i2208" "i2209"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i12689"
-                                                      "i12690"
-                                                      "i12691"))
+                                                    #("i2204" "i2205" "i2206"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -5806,131 +5775,131 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("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"))
+                                                    ("i780"
+                                                     "i778"
+                                                     "i776"
+                                                     "i774"
+                                                     "i772"
+                                                     "i770"
+                                                     "i768"
+                                                     "i766"
+                                                     "i764"
+                                                     "i762"
+                                                     "i760"
+                                                     "i758"
+                                                     "i756"
+                                                     "i754"
+                                                     "i752"
+                                                     "i750"
+                                                     "i748"
+                                                     "i746"
+                                                     "i744"
+                                                     "i742"
+                                                     "i740"
+                                                     "i738"
+                                                     "i736"
+                                                     "i734"
+                                                     "i732"
+                                                     "i730"
+                                                     "i728"
+                                                     "i726"
+                                                     "i724"
+                                                     "i722"
+                                                     "i720"
+                                                     "i718"
+                                                     "i716"
+                                                     "i714"
+                                                     "i712"
+                                                     "i710"
+                                                     "i709"
+                                                     "i708"
+                                                     "i706"
+                                                     "i705"
+                                                     "i704"
+                                                     "i703"
+                                                     "i702"
+                                                     "i700"
+                                                     "i698"
+                                                     "i696"
+                                                     "i694"
+                                                     "i692"
+                                                     "i690"
+                                                     "i688"
+                                                     "i686"
+                                                     "i683"
+                                                     "i681"
+                                                     "i680"
+                                                     "i679"
+                                                     "i678"
+                                                     "i677"
+                                                     "i676"
+                                                     "i674"
+                                                     "i672"
+                                                     "i670"
+                                                     "i668"
+                                                     "i667"
+                                                     "i665"
+                                                     "i663"
+                                                     "i661"
+                                                     "i659"
+                                                     "i657"
+                                                     "i655"
+                                                     "i653"
+                                                     "i652"
+                                                     "i650"
+                                                     "i648"
+                                                     "i647"
+                                                     "i646"
+                                                     "i644"
+                                                     "i643"
+                                                     "i641"
+                                                     "i639"
+                                                     "i637"
+                                                     "i635"
+                                                     "i633"
+                                                     "i631"
+                                                     "i629"
+                                                     "i627"
+                                                     "i625"
+                                                     "i623"
+                                                     "i621"
+                                                     "i619"
+                                                     "i617"
+                                                     "i615"
+                                                     "i613"
+                                                     "i611"
+                                                     "i609"
+                                                     "i607"
+                                                     "i605"
+                                                     "i603"
+                                                     "i601"
+                                                     "i599"
+                                                     "i597"
+                                                     "i595"
+                                                     "i593"
+                                                     "i591"
+                                                     "i589"
+                                                     "i587"
+                                                     "i585"
+                                                     "i583"
+                                                     "i581"
+                                                     "i579"
+                                                     "i578"
+                                                     "i576"
+                                                     "i574"
+                                                     "i572"
+                                                     "i570"
+                                                     "i568"
+                                                     "i566"
+                                                     "i564"))
                                                   #(ribcage
                                                     (define-structure and-map*)
                                                     ((top) (top))
-                                                    ("i10952" "i10950")))
+                                                    ("i467" "i465")))
                                                  (hygiene guile)))
                                           'compile
-                                          (if (#{free-id=?\ 11210}#
-                                                #{x\ 12699}#
+                                          (if (#{free-id=?\ 725}#
+                                                #{x\ 2214}#
                                                 '#(syntax-object
                                                    load
                                                    ((top)
@@ -5940,21 +5909,21 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i12698"))
+                                                      #("i2213"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f when-list situations)
                                                       #((top) (top) (top))
-                                                      #("i12692"
-                                                        "i12693"
-                                                        "i12694"))
+                                                      #("i2207"
+                                                        "i2208"
+                                                        "i2209"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e when-list w)
                                                       #((top) (top) (top))
-                                                      #("i12689"
-                                                        "i12690"
-                                                        "i12691"))
+                                                      #("i2204"
+                                                        "i2205"
+                                                        "i2206"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -6190,132 +6159,132 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("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"))
+                                                      ("i780"
+                                                       "i778"
+                                                       "i776"
+                                                       "i774"
+                                                       "i772"
+                                                       "i770"
+                                                       "i768"
+                                                       "i766"
+                                                       "i764"
+                                                       "i762"
+                                                       "i760"
+                                                       "i758"
+                                                       "i756"
+                                                       "i754"
+                                                       "i752"
+                                                       "i750"
+                                                       "i748"
+                                                       "i746"
+                                                       "i744"
+                                                       "i742"
+                                                       "i740"
+                                                       "i738"
+                                                       "i736"
+                                                       "i734"
+                                                       "i732"
+                                                       "i730"
+                                                       "i728"
+                                                       "i726"
+                                                       "i724"
+                                                       "i722"
+                                                       "i720"
+                                                       "i718"
+                                                       "i716"
+                                                       "i714"
+                                                       "i712"
+                                                       "i710"
+                                                       "i709"
+                                                       "i708"
+                                                       "i706"
+                                                       "i705"
+                                                       "i704"
+                                                       "i703"
+                                                       "i702"
+                                                       "i700"
+                                                       "i698"
+                                                       "i696"
+                                                       "i694"
+                                                       "i692"
+                                                       "i690"
+                                                       "i688"
+                                                       "i686"
+                                                       "i683"
+                                                       "i681"
+                                                       "i680"
+                                                       "i679"
+                                                       "i678"
+                                                       "i677"
+                                                       "i676"
+                                                       "i674"
+                                                       "i672"
+                                                       "i670"
+                                                       "i668"
+                                                       "i667"
+                                                       "i665"
+                                                       "i663"
+                                                       "i661"
+                                                       "i659"
+                                                       "i657"
+                                                       "i655"
+                                                       "i653"
+                                                       "i652"
+                                                       "i650"
+                                                       "i648"
+                                                       "i647"
+                                                       "i646"
+                                                       "i644"
+                                                       "i643"
+                                                       "i641"
+                                                       "i639"
+                                                       "i637"
+                                                       "i635"
+                                                       "i633"
+                                                       "i631"
+                                                       "i629"
+                                                       "i627"
+                                                       "i625"
+                                                       "i623"
+                                                       "i621"
+                                                       "i619"
+                                                       "i617"
+                                                       "i615"
+                                                       "i613"
+                                                       "i611"
+                                                       "i609"
+                                                       "i607"
+                                                       "i605"
+                                                       "i603"
+                                                       "i601"
+                                                       "i599"
+                                                       "i597"
+                                                       "i595"
+                                                       "i593"
+                                                       "i591"
+                                                       "i589"
+                                                       "i587"
+                                                       "i585"
+                                                       "i583"
+                                                       "i581"
+                                                       "i579"
+                                                       "i578"
+                                                       "i576"
+                                                       "i574"
+                                                       "i572"
+                                                       "i570"
+                                                       "i568"
+                                                       "i566"
+                                                       "i564"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i10952" "i10950")))
+                                                      ("i467" "i465")))
                                                    (hygiene guile)))
                                             'load
-                                            (if (#{free-id=?\ 11210}#
-                                                  #{x\ 12699}#
+                                            (if (#{free-id=?\ 725}#
+                                                  #{x\ 2214}#
                                                   '#(syntax-object
                                                      eval
                                                      ((top)
@@ -6325,23 +6294,23 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i12698"))
+                                                        #("i2213"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f
                                                           when-list
                                                           situations)
                                                         #((top) (top) (top))
-                                                        #("i12692"
-                                                          "i12693"
-                                                          "i12694"))
+                                                        #("i2207"
+                                                          "i2208"
+                                                          "i2209"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(e when-list w)
                                                         #((top) (top) (top))
-                                                        #("i12689"
-                                                          "i12690"
-                                                          "i12691"))
+                                                        #("i2204"
+                                                          "i2205"
+                                                          "i2206"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -6577,132 +6546,132 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("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"))
+                                                        ("i780"
+                                                         "i778"
+                                                         "i776"
+                                                         "i774"
+                                                         "i772"
+                                                         "i770"
+                                                         "i768"
+                                                         "i766"
+                                                         "i764"
+                                                         "i762"
+                                                         "i760"
+                                                         "i758"
+                                                         "i756"
+                                                         "i754"
+                                                         "i752"
+                                                         "i750"
+                                                         "i748"
+                                                         "i746"
+                                                         "i744"
+                                                         "i742"
+                                                         "i740"
+                                                         "i738"
+                                                         "i736"
+                                                         "i734"
+                                                         "i732"
+                                                         "i730"
+                                                         "i728"
+                                                         "i726"
+                                                         "i724"
+                                                         "i722"
+                                                         "i720"
+                                                         "i718"
+                                                         "i716"
+                                                         "i714"
+                                                         "i712"
+                                                         "i710"
+                                                         "i709"
+                                                         "i708"
+                                                         "i706"
+                                                         "i705"
+                                                         "i704"
+                                                         "i703"
+                                                         "i702"
+                                                         "i700"
+                                                         "i698"
+                                                         "i696"
+                                                         "i694"
+                                                         "i692"
+                                                         "i690"
+                                                         "i688"
+                                                         "i686"
+                                                         "i683"
+                                                         "i681"
+                                                         "i680"
+                                                         "i679"
+                                                         "i678"
+                                                         "i677"
+                                                         "i676"
+                                                         "i674"
+                                                         "i672"
+                                                         "i670"
+                                                         "i668"
+                                                         "i667"
+                                                         "i665"
+                                                         "i663"
+                                                         "i661"
+                                                         "i659"
+                                                         "i657"
+                                                         "i655"
+                                                         "i653"
+                                                         "i652"
+                                                         "i650"
+                                                         "i648"
+                                                         "i647"
+                                                         "i646"
+                                                         "i644"
+                                                         "i643"
+                                                         "i641"
+                                                         "i639"
+                                                         "i637"
+                                                         "i635"
+                                                         "i633"
+                                                         "i631"
+                                                         "i629"
+                                                         "i627"
+                                                         "i625"
+                                                         "i623"
+                                                         "i621"
+                                                         "i619"
+                                                         "i617"
+                                                         "i615"
+                                                         "i613"
+                                                         "i611"
+                                                         "i609"
+                                                         "i607"
+                                                         "i605"
+                                                         "i603"
+                                                         "i601"
+                                                         "i599"
+                                                         "i597"
+                                                         "i595"
+                                                         "i593"
+                                                         "i591"
+                                                         "i589"
+                                                         "i587"
+                                                         "i585"
+                                                         "i583"
+                                                         "i581"
+                                                         "i579"
+                                                         "i578"
+                                                         "i576"
+                                                         "i574"
+                                                         "i572"
+                                                         "i570"
+                                                         "i568"
+                                                         "i566"
+                                                         "i564"))
                                                       #(ribcage
                                                         (define-structure
                                                           and-map*)
                                                         ((top) (top))
-                                                        ("i10952" "i10950")))
+                                                        ("i467" "i465")))
                                                      (hygiene guile)))
                                               'eval
-                                              (if (#{free-id=?\ 11210}#
-                                                    #{x\ 12699}#
+                                              (if (#{free-id=?\ 725}#
+                                                    #{x\ 2214}#
                                                     '#(syntax-object
                                                        expand
                                                        ((top)
@@ -6712,23 +6681,23 @@
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i12698"))
+                                                          #("i2213"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f
                                                             when-list
                                                             situations)
                                                           #((top) (top) (top))
-                                                          #("i12692"
-                                                            "i12693"
-                                                            "i12694"))
+                                                          #("i2207"
+                                                            "i2208"
+                                                            "i2209"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(e when-list w)
                                                           #((top) (top) (top))
-                                                          #("i12689"
-                                                            "i12690"
-                                                            "i12691"))
+                                                          #("i2204"
+                                                            "i2205"
+                                                            "i2206"))
                                                         #(ribcage
                                                           (lambda-var-list
                                                             gen-var
@@ -6964,2536 +6933,2465 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                          ("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"))
+                                                          ("i780"
+                                                           "i778"
+                                                           "i776"
+                                                           "i774"
+                                                           "i772"
+                                                           "i770"
+                                                           "i768"
+                                                           "i766"
+                                                           "i764"
+                                                           "i762"
+                                                           "i760"
+                                                           "i758"
+                                                           "i756"
+                                                           "i754"
+                                                           "i752"
+                                                           "i750"
+                                                           "i748"
+                                                           "i746"
+                                                           "i744"
+                                                           "i742"
+                                                           "i740"
+                                                           "i738"
+                                                           "i736"
+                                                           "i734"
+                                                           "i732"
+                                                           "i730"
+                                                           "i728"
+                                                           "i726"
+                                                           "i724"
+                                                           "i722"
+                                                           "i720"
+                                                           "i718"
+                                                           "i716"
+                                                           "i714"
+                                                           "i712"
+                                                           "i710"
+                                                           "i709"
+                                                           "i708"
+                                                           "i706"
+                                                           "i705"
+                                                           "i704"
+                                                           "i703"
+                                                           "i702"
+                                                           "i700"
+                                                           "i698"
+                                                           "i696"
+                                                           "i694"
+                                                           "i692"
+                                                           "i690"
+                                                           "i688"
+                                                           "i686"
+                                                           "i683"
+                                                           "i681"
+                                                           "i680"
+                                                           "i679"
+                                                           "i678"
+                                                           "i677"
+                                                           "i676"
+                                                           "i674"
+                                                           "i672"
+                                                           "i670"
+                                                           "i668"
+                                                           "i667"
+                                                           "i665"
+                                                           "i663"
+                                                           "i661"
+                                                           "i659"
+                                                           "i657"
+                                                           "i655"
+                                                           "i653"
+                                                           "i652"
+                                                           "i650"
+                                                           "i648"
+                                                           "i647"
+                                                           "i646"
+                                                           "i644"
+                                                           "i643"
+                                                           "i641"
+                                                           "i639"
+                                                           "i637"
+                                                           "i635"
+                                                           "i633"
+                                                           "i631"
+                                                           "i629"
+                                                           "i627"
+                                                           "i625"
+                                                           "i623"
+                                                           "i621"
+                                                           "i619"
+                                                           "i617"
+                                                           "i615"
+                                                           "i613"
+                                                           "i611"
+                                                           "i609"
+                                                           "i607"
+                                                           "i605"
+                                                           "i603"
+                                                           "i601"
+                                                           "i599"
+                                                           "i597"
+                                                           "i595"
+                                                           "i593"
+                                                           "i591"
+                                                           "i589"
+                                                           "i587"
+                                                           "i585"
+                                                           "i583"
+                                                           "i581"
+                                                           "i579"
+                                                           "i578"
+                                                           "i576"
+                                                           "i574"
+                                                           "i572"
+                                                           "i570"
+                                                           "i568"
+                                                           "i566"
+                                                           "i564"))
                                                         #(ribcage
                                                           (define-structure
                                                             and-map*)
                                                           ((top) (top))
-                                                          ("i10952" "i10950")))
+                                                          ("i467" "i465")))
                                                        (hygiene guile)))
                                                 'expand
                                                 (syntax-violation
                                                   'eval-when
                                                   "invalid situation"
-                                                  #{e\ 12686}#
-                                                  (#{wrap\ 11220}#
-                                                    #{x\ 12699}#
-                                                    #{w\ 12688}#
+                                                  #{e\ 2201}#
+                                                  (#{wrap\ 735}#
+                                                    #{x\ 2214}#
+                                                    #{w\ 2203}#
                                                     #f)))))))
-                                      #{situations\ 12697}#))))))
-                 (#{f\ 12695}# #{when-list\ 12687}# (quote ())))))
-           (#{chi-install-global\ 11228}#
-             (lambda (#{name\ 12709}# #{e\ 12710}#)
-               (#{build-global-definition\ 11091}#
+                                      #{situations\ 2212}#))))))
+                 (#{f\ 2210}# #{when-list\ 2202}# (quote ())))))
+           (#{chi-install-global\ 743}#
+             (lambda (#{name\ 2224}# #{e\ 2225}#)
+               (#{build-global-definition\ 606}#
                  #f
-                 #{name\ 12709}#
-                 (#{build-application\ 11073}#
+                 #{name\ 2224}#
+                 (#{build-application\ 588}#
                    #f
-                   (#{build-primref\ 11099}#
+                   (#{build-primref\ 614}#
                      #f
                      'make-syntax-transformer)
-                   (list (#{build-data\ 11101}# #f #{name\ 12709}#)
-                         (#{build-data\ 11101}# #f (quote macro))
-                         (#{build-application\ 11073}#
+                   (list (#{build-data\ 616}# #f #{name\ 2224}#)
+                         (#{build-data\ 616}# #f (quote macro))
+                         (#{build-application\ 588}#
                            #f
-                           (#{build-primref\ 11099}# #f (quote cons))
-                           (list #{e\ 12710}#
-                                 (#{build-application\ 11073}#
+                           (#{build-primref\ 614}# #f (quote cons))
+                           (list #{e\ 2225}#
+                                 (#{build-application\ 588}#
                                    #f
-                                   (#{build-primref\ 11099}#
+                                   (#{build-primref\ 614}#
                                      #f
                                      'module-name)
-                                   (list (#{build-application\ 11073}#
+                                   (list (#{build-application\ 588}#
                                            #f
-                                           (#{build-primref\ 11099}#
+                                           (#{build-primref\ 614}#
                                              #f
                                              'current-module)
                                            '()))))))))))
-           (#{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-top-sequence\ 741}#
+             (lambda (#{body\ 2239}#
+                      #{r\ 2240}#
+                      #{w\ 2241}#
+                      #{s\ 2242}#
+                      #{m\ 2243}#
+                      #{esew\ 2244}#
+                      #{mod\ 2245}#)
+               (#{build-sequence\ 618}#
+                 #{s\ 2242}#
+                 (letrec ((#{dobody\ 2261}#
+                            (lambda (#{body\ 2262}#
+                                     #{r\ 2263}#
+                                     #{w\ 2264}#
+                                     #{m\ 2265}#
+                                     #{esew\ 2266}#
+                                     #{mod\ 2267}#
+                                     #{out\ 2268}#)
+                              (if (null? #{body\ 2262}#)
+                                (reverse #{out\ 2268}#)
+                                (#{dobody\ 2261}#
+                                  (cdr #{body\ 2262}#)
+                                  #{r\ 2263}#
+                                  #{w\ 2264}#
+                                  #{m\ 2265}#
+                                  #{esew\ 2266}#
+                                  #{mod\ 2267}#
+                                  (cons (#{chi-top\ 749}#
+                                          (car #{body\ 2262}#)
+                                          #{r\ 2263}#
+                                          #{w\ 2264}#
+                                          #{m\ 2265}#
+                                          #{esew\ 2266}#
+                                          #{mod\ 2267}#)
+                                        #{out\ 2268}#))))))
+                   (#{dobody\ 2261}#
+                     #{body\ 2239}#
+                     #{r\ 2240}#
+                     #{w\ 2241}#
+                     #{m\ 2243}#
+                     #{esew\ 2244}#
+                     #{mod\ 2245}#
                      '())))))
-           (#{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}#)
+           (#{chi-sequence\ 739}#
+             (lambda (#{body\ 2269}#
+                      #{r\ 2270}#
+                      #{w\ 2271}#
+                      #{s\ 2272}#
+                      #{mod\ 2273}#)
+               (#{build-sequence\ 618}#
+                 #{s\ 2272}#
+                 (letrec ((#{dobody\ 2284}#
+                            (lambda (#{body\ 2285}#
+                                     #{r\ 2286}#
+                                     #{w\ 2287}#
+                                     #{mod\ 2288}#)
+                              (if (null? #{body\ 2285}#)
                                 '()
-                                (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}#))
+                                (let ((#{first\ 2290}#
+                                        (#{chi\ 751}#
+                                          (car #{body\ 2285}#)
+                                          #{r\ 2286}#
+                                          #{w\ 2287}#
+                                          #{mod\ 2288}#)))
+                                  (cons #{first\ 2290}#
+                                        (#{dobody\ 2284}#
+                                          (cdr #{body\ 2285}#)
+                                          #{r\ 2286}#
+                                          #{w\ 2287}#
+                                          #{mod\ 2288}#)))))))
+                   (#{dobody\ 2284}#
+                     #{body\ 2269}#
+                     #{r\ 2270}#
+                     #{w\ 2271}#
+                     #{mod\ 2273}#)))))
+           (#{source-wrap\ 737}#
+             (lambda (#{x\ 2291}#
+                      #{w\ 2292}#
+                      #{s\ 2293}#
+                      #{defmod\ 2294}#)
+               (#{wrap\ 735}#
+                 (#{decorate-source\ 584}#
+                   #{x\ 2291}#
+                   #{s\ 2293}#)
+                 #{w\ 2292}#
+                 #{defmod\ 2294}#)))
+           (#{wrap\ 735}#
+             (lambda (#{x\ 2299}# #{w\ 2300}# #{defmod\ 2301}#)
+               (if (if (null? (#{wrap-marks\ 673}# #{w\ 2300}#))
+                     (null? (#{wrap-subst\ 675}# #{w\ 2300}#))
                      #f)
-                 #{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}#))))
+                 #{x\ 2299}#
+                 (if (#{syntax-object?\ 630}# #{x\ 2299}#)
+                   (#{make-syntax-object\ 628}#
+                     (#{syntax-object-expression\ 632}# #{x\ 2299}#)
+                     (#{join-wraps\ 717}#
+                       #{w\ 2300}#
+                       (#{syntax-object-wrap\ 634}# #{x\ 2299}#))
+                     (#{syntax-object-module\ 636}# #{x\ 2299}#))
+                   (if (null? #{x\ 2299}#)
+                     #{x\ 2299}#
+                     (#{make-syntax-object\ 628}#
+                       #{x\ 2299}#
+                       #{w\ 2300}#
+                       #{defmod\ 2301}#))))))
+           (#{bound-id-member?\ 733}#
+             (lambda (#{x\ 2314}# #{list\ 2315}#)
+               (if (not (null? #{list\ 2315}#))
+                 (let ((#{t\ 2322}#
+                         (#{bound-id=?\ 727}#
+                           #{x\ 2314}#
+                           (car #{list\ 2315}#))))
+                   (if #{t\ 2322}#
+                     #{t\ 2322}#
+                     (#{bound-id-member?\ 733}#
+                       #{x\ 2314}#
+                       (cdr #{list\ 2315}#))))
                  #f)))
-           (#{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}#))
+           (#{distinct-bound-ids?\ 731}#
+             (lambda (#{ids\ 2324}#)
+               (letrec ((#{distinct?\ 2328}#
+                          (lambda (#{ids\ 2329}#)
+                            (let ((#{t\ 2332}# (null? #{ids\ 2329}#)))
+                              (if #{t\ 2332}#
+                                #{t\ 2332}#
+                                (if (not (#{bound-id-member?\ 733}#
+                                           (car #{ids\ 2329}#)
+                                           (cdr #{ids\ 2329}#)))
+                                  (#{distinct?\ 2328}# (cdr #{ids\ 2329}#))
                                   #f))))))
-                 (#{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}#))
+                 (#{distinct?\ 2328}# #{ids\ 2324}#))))
+           (#{valid-bound-ids?\ 729}#
+             (lambda (#{ids\ 2336}#)
+               (if (letrec ((#{all-ids?\ 2341}#
+                              (lambda (#{ids\ 2342}#)
+                                (let ((#{t\ 2345}# (null? #{ids\ 2342}#)))
+                                  (if #{t\ 2345}#
+                                    #{t\ 2345}#
+                                    (if (#{id?\ 666}# (car #{ids\ 2342}#))
+                                      (#{all-ids?\ 2341}# (cdr #{ids\ 2342}#))
                                       #f))))))
-                     (#{all-ids?\ 12826}# #{ids\ 12821}#))
-                 (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#)
+                     (#{all-ids?\ 2341}# #{ids\ 2336}#))
+                 (#{distinct-bound-ids?\ 731}# #{ids\ 2336}#)
                  #f)))
-           (#{bound-id=?\ 11212}#
-             (lambda (#{i\ 12835}# #{j\ 12836}#)
-               (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#)
-                     (#{syntax-object?\ 11115}# #{j\ 12836}#)
+           (#{bound-id=?\ 727}#
+             (lambda (#{i\ 2350}# #{j\ 2351}#)
+               (if (if (#{syntax-object?\ 630}# #{i\ 2350}#)
+                     (#{syntax-object?\ 630}# #{j\ 2351}#)
                      #f)
-                 (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}#)))
+                 (if (eq? (#{syntax-object-expression\ 632}# #{i\ 2350}#)
+                          (#{syntax-object-expression\ 632}# #{j\ 2351}#))
+                   (#{same-marks?\ 721}#
+                     (#{wrap-marks\ 673}#
+                       (#{syntax-object-wrap\ 634}# #{i\ 2350}#))
+                     (#{wrap-marks\ 673}#
+                       (#{syntax-object-wrap\ 634}# #{j\ 2351}#)))
                    #f)
-                 (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}#
-                        '(())))
+                 (eq? #{i\ 2350}# #{j\ 2351}#))))
+           (#{free-id=?\ 725}#
+             (lambda (#{i\ 2358}# #{j\ 2359}#)
+               (if (eq? (let ((#{x\ 2365}# #{i\ 2358}#))
+                          (if (#{syntax-object?\ 630}# #{x\ 2365}#)
+                            (#{syntax-object-expression\ 632}# #{x\ 2365}#)
+                            #{x\ 2365}#))
+                        (let ((#{x\ 2368}# #{j\ 2359}#))
+                          (if (#{syntax-object?\ 630}# #{x\ 2368}#)
+                            (#{syntax-object-expression\ 632}# #{x\ 2368}#)
+                            #{x\ 2368}#)))
+                 (eq? (#{id-var-name\ 723}# #{i\ 2358}# (quote (())))
+                      (#{id-var-name\ 723}# #{j\ 2359}# (quote (()))))
                  #f)))
-           (#{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}#)
+           (#{id-var-name\ 723}#
+             (lambda (#{id\ 2372}# #{w\ 2373}#)
+               (letrec ((#{search-vector-rib\ 2382}#
+                          (lambda (#{sym\ 2394}#
+                                   #{subst\ 2395}#
+                                   #{marks\ 2396}#
+                                   #{symnames\ 2397}#
+                                   #{ribcage\ 2398}#)
+                            (let ((#{n\ 2405}#
+                                    (vector-length #{symnames\ 2397}#)))
+                              (letrec ((#{f\ 2408}#
+                                         (lambda (#{i\ 2409}#)
+                                           (if (#{fx=\ 571}#
+                                                 #{i\ 2409}#
+                                                 #{n\ 2405}#)
+                                             (#{search\ 2378}#
+                                               #{sym\ 2394}#
+                                               (cdr #{subst\ 2395}#)
+                                               #{marks\ 2396}#)
                                              (if (if (eq? (vector-ref
-                                                            #{symnames\ 12882}#
-                                                            #{i\ 12894}#)
-                                                          #{sym\ 12879}#)
-                                                   (#{same-marks?\ 11206}#
-                                                     #{marks\ 12881}#
+                                                            #{symnames\ 2397}#
+                                                            #{i\ 2409}#)
+                                                          #{sym\ 2394}#)
+                                                   (#{same-marks?\ 721}#
+                                                     #{marks\ 2396}#
                                                      (vector-ref
-                                                       (#{ribcage-marks\ 
11178}#
-                                                         #{ribcage\ 12883}#)
-                                                       #{i\ 12894}#))
+                                                       (#{ribcage-marks\ 693}#
+                                                         #{ribcage\ 2398}#)
+                                                       #{i\ 2409}#))
                                                    #f)
                                                (values
                                                  (vector-ref
-                                                   (#{ribcage-labels\ 11180}#
-                                                     #{ribcage\ 12883}#)
-                                                   #{i\ 12894}#)
-                                                 #{marks\ 12881}#)
-                                               (#{f\ 12893}#
-                                                 (#{fx+\ 11052}#
-                                                   #{i\ 12894}#
+                                                   (#{ribcage-labels\ 695}#
+                                                     #{ribcage\ 2398}#)
+                                                   #{i\ 2409}#)
+                                                 #{marks\ 2396}#)
+                                               (#{f\ 2408}#
+                                                 (#{fx+\ 567}#
+                                                   #{i\ 2409}#
                                                    1)))))))
-                                (#{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}#
+                                (#{f\ 2408}# 0)))))
+                        (#{search-list-rib\ 2380}#
+                          (lambda (#{sym\ 2417}#
+                                   #{subst\ 2418}#
+                                   #{marks\ 2419}#
+                                   #{symnames\ 2420}#
+                                   #{ribcage\ 2421}#)
+                            (letrec ((#{f\ 2430}#
+                                       (lambda (#{symnames\ 2431}# #{i\ 2432}#)
+                                         (if (null? #{symnames\ 2431}#)
+                                           (#{search\ 2378}#
+                                             #{sym\ 2417}#
+                                             (cdr #{subst\ 2418}#)
+                                             #{marks\ 2419}#)
+                                           (if (if (eq? (car #{symnames\ 
2431}#)
+                                                        #{sym\ 2417}#)
+                                                 (#{same-marks?\ 721}#
+                                                   #{marks\ 2419}#
                                                    (list-ref
-                                                     (#{ribcage-marks\ 11178}#
-                                                       #{ribcage\ 12906}#)
-                                                     #{i\ 12917}#))
+                                                     (#{ribcage-marks\ 693}#
+                                                       #{ribcage\ 2421}#)
+                                                     #{i\ 2432}#))
                                                  #f)
                                              (values
                                                (list-ref
-                                                 (#{ribcage-labels\ 11180}#
-                                                   #{ribcage\ 12906}#)
-                                                 #{i\ 12917}#)
-                                               #{marks\ 12904}#)
-                                             (#{f\ 12915}#
-                                               (cdr #{symnames\ 12916}#)
-                                               (#{fx+\ 11052}#
-                                                 #{i\ 12917}#
+                                                 (#{ribcage-labels\ 695}#
+                                                   #{ribcage\ 2421}#)
+                                                 #{i\ 2432}#)
+                                               #{marks\ 2419}#)
+                                             (#{f\ 2430}#
+                                               (cdr #{symnames\ 2431}#)
+                                               (#{fx+\ 567}#
+                                                 #{i\ 2432}#
                                                  1)))))))
-                              (#{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}#
+                              (#{f\ 2430}# #{symnames\ 2420}# 0))))
+                        (#{search\ 2378}#
+                          (lambda (#{sym\ 2440}#
+                                   #{subst\ 2441}#
+                                   #{marks\ 2442}#)
+                            (if (null? #{subst\ 2441}#)
+                              (values #f #{marks\ 2442}#)
+                              (let ((#{fst\ 2447}# (car #{subst\ 2441}#)))
+                                (if (eq? #{fst\ 2447}# (quote shift))
+                                  (#{search\ 2378}#
+                                    #{sym\ 2440}#
+                                    (cdr #{subst\ 2441}#)
+                                    (cdr #{marks\ 2442}#))
+                                  (let ((#{symnames\ 2449}#
+                                          (#{ribcage-symnames\ 691}#
+                                            #{fst\ 2447}#)))
+                                    (if (vector? #{symnames\ 2449}#)
+                                      (#{search-vector-rib\ 2382}#
+                                        #{sym\ 2440}#
+                                        #{subst\ 2441}#
+                                        #{marks\ 2442}#
+                                        #{symnames\ 2449}#
+                                        #{fst\ 2447}#)
+                                      (#{search-list-rib\ 2380}#
+                                        #{sym\ 2440}#
+                                        #{subst\ 2441}#
+                                        #{marks\ 2442}#
+                                        #{symnames\ 2449}#
+                                        #{fst\ 2447}#)))))))))
+                 (if (symbol? #{id\ 2372}#)
+                   (let ((#{t\ 2452}#
                            (call-with-values
                              (lambda ()
-                               (#{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}#))))
+                               (#{search\ 2378}#
+                                 #{id\ 2372}#
+                                 (#{wrap-subst\ 675}# #{w\ 2373}#)
+                                 (#{wrap-marks\ 673}# #{w\ 2373}#)))
+                             (lambda (#{x\ 2454}# . #{ignore\ 2455}#)
+                               #{x\ 2454}#))))
+                     (if #{t\ 2452}# #{t\ 2452}# #{id\ 2372}#))
+                   (if (#{syntax-object?\ 630}# #{id\ 2372}#)
+                     (let ((#{id\ 2463}#
+                             (#{syntax-object-expression\ 632}# #{id\ 2372}#))
+                           (#{w1\ 2464}#
+                             (#{syntax-object-wrap\ 634}# #{id\ 2372}#)))
+                       (let ((#{marks\ 2466}#
+                               (#{join-marks\ 719}#
+                                 (#{wrap-marks\ 673}# #{w\ 2373}#)
+                                 (#{wrap-marks\ 673}# #{w1\ 2464}#))))
                          (call-with-values
                            (lambda ()
-                             (#{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}#
+                             (#{search\ 2378}#
+                               #{id\ 2463}#
+                               (#{wrap-subst\ 675}# #{w\ 2373}#)
+                               #{marks\ 2466}#))
+                           (lambda (#{new-id\ 2467}# #{marks\ 2468}#)
+                             (let ((#{t\ 2473}# #{new-id\ 2467}#))
+                               (if #{t\ 2473}#
+                                 #{t\ 2473}#
+                                 (let ((#{t\ 2476}#
                                          (call-with-values
                                            (lambda ()
-                                             (#{search\ 12863}#
-                                               #{id\ 12948}#
-                                               (#{wrap-subst\ 11160}#
-                                                 #{w1\ 12949}#)
-                                               #{marks\ 12953}#))
-                                           (lambda (#{x\ 12963}#
+                                             (#{search\ 2378}#
+                                               #{id\ 2463}#
+                                               (#{wrap-subst\ 675}#
+                                                 #{w1\ 2464}#)
+                                               #{marks\ 2468}#))
+                                           (lambda (#{x\ 2478}#
                                                     .
-                                                    #{ignore\ 12964}#)
-                                             #{x\ 12963}#))))
-                                   (if #{t\ 12961}#
-                                     #{t\ 12961}#
-                                     #{id\ 12948}#))))))))
+                                                    #{ignore\ 2479}#)
+                                             #{x\ 2478}#))))
+                                   (if #{t\ 2476}#
+                                     #{t\ 2476}#
+                                     #{id\ 2463}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{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}#))
+                       #{id\ 2372}#))))))
+           (#{same-marks?\ 721}#
+             (lambda (#{x\ 2484}# #{y\ 2485}#)
+               (let ((#{t\ 2490}# (eq? #{x\ 2484}# #{y\ 2485}#)))
+                 (if #{t\ 2490}#
+                   #{t\ 2490}#
+                   (if (not (null? #{x\ 2484}#))
+                     (if (not (null? #{y\ 2485}#))
+                       (if (eq? (car #{x\ 2484}#) (car #{y\ 2485}#))
+                         (#{same-marks?\ 721}#
+                           (cdr #{x\ 2484}#)
+                           (cdr #{y\ 2485}#))
                          #f)
                        #f)
                      #f)))))
-           (#{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}#)))
+           (#{join-marks\ 719}#
+             (lambda (#{m1\ 2496}# #{m2\ 2497}#)
+               (#{smart-append\ 715}# #{m1\ 2496}# #{m2\ 2497}#)))
+           (#{join-wraps\ 717}#
+             (lambda (#{w1\ 2500}# #{w2\ 2501}#)
+               (let ((#{m1\ 2506}# (#{wrap-marks\ 673}# #{w1\ 2500}#))
+                     (#{s1\ 2507}# (#{wrap-subst\ 675}# #{w1\ 2500}#)))
+                 (if (null? #{m1\ 2506}#)
+                   (if (null? #{s1\ 2507}#)
+                     #{w2\ 2501}#
+                     (#{make-wrap\ 671}#
+                       (#{wrap-marks\ 673}# #{w2\ 2501}#)
+                       (#{smart-append\ 715}#
+                         #{s1\ 2507}#
+                         (#{wrap-subst\ 675}# #{w2\ 2501}#))))
+                   (#{make-wrap\ 671}#
+                     (#{smart-append\ 715}#
+                       #{m1\ 2506}#
+                       (#{wrap-marks\ 673}# #{w2\ 2501}#))
+                     (#{smart-append\ 715}#
+                       #{s1\ 2507}#
+                       (#{wrap-subst\ 675}# #{w2\ 2501}#)))))))
+           (#{smart-append\ 715}#
+             (lambda (#{m1\ 2508}# #{m2\ 2509}#)
+               (if (null? #{m2\ 2509}#)
+                 #{m1\ 2508}#
+                 (append #{m1\ 2508}# #{m2\ 2509}#))))
+           (#{make-binding-wrap\ 713}#
+             (lambda (#{ids\ 2512}# #{labels\ 2513}# #{w\ 2514}#)
+               (if (null? #{ids\ 2512}#)
+                 #{w\ 2514}#
+                 (#{make-wrap\ 671}#
+                   (#{wrap-marks\ 673}# #{w\ 2514}#)
+                   (cons (let ((#{labelvec\ 2519}#
+                                 (list->vector #{labels\ 2513}#)))
+                           (let ((#{n\ 2521}#
+                                   (vector-length #{labelvec\ 2519}#)))
+                             (let ((#{symnamevec\ 2524}#
+                                     (make-vector #{n\ 2521}#))
+                                   (#{marksvec\ 2525}#
+                                     (make-vector #{n\ 2521}#)))
                                (begin
-                                 (letrec ((#{f\ 13014}#
-                                            (lambda (#{ids\ 13015}#
-                                                     #{i\ 13016}#)
-                                              (if (not (null? #{ids\ 13015}#))
+                                 (letrec ((#{f\ 2529}#
+                                            (lambda (#{ids\ 2530}# #{i\ 2531}#)
+                                              (if (not (null? #{ids\ 2530}#))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{id-sym-name&marks\ 
11154}#
-                                                      (car #{ids\ 13015}#)
-                                                      #{w\ 12999}#))
-                                                  (lambda (#{symname\ 13017}#
-                                                           #{marks\ 13018}#)
+                                                    (#{id-sym-name&marks\ 669}#
+                                                      (car #{ids\ 2530}#)
+                                                      #{w\ 2514}#))
+                                                  (lambda (#{symname\ 2532}#
+                                                           #{marks\ 2533}#)
                                                     (begin
                                                       (vector-set!
-                                                        #{symnamevec\ 13009}#
-                                                        #{i\ 13016}#
-                                                        #{symname\ 13017}#)
+                                                        #{symnamevec\ 2524}#
+                                                        #{i\ 2531}#
+                                                        #{symname\ 2532}#)
                                                       (vector-set!
-                                                        #{marksvec\ 13010}#
-                                                        #{i\ 13016}#
-                                                        #{marks\ 13018}#)
-                                                      (#{f\ 13014}#
-                                                        (cdr #{ids\ 13015}#)
-                                                        (#{fx+\ 11052}#
-                                                          #{i\ 13016}#
+                                                        #{marksvec\ 2525}#
+                                                        #{i\ 2531}#
+                                                        #{marks\ 2533}#)
+                                                      (#{f\ 2529}#
+                                                        (cdr #{ids\ 2530}#)
+                                                        (#{fx+\ 567}#
+                                                          #{i\ 2531}#
                                                           1)))))))))
-                                   (#{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}#)
+                                   (#{f\ 2529}# #{ids\ 2512}# 0))
+                                 (#{make-ribcage\ 687}#
+                                   #{symnamevec\ 2524}#
+                                   #{marksvec\ 2525}#
+                                   #{labelvec\ 2519}#)))))
+                         (#{wrap-subst\ 675}# #{w\ 2514}#))))))
+           (#{extend-ribcage!\ 711}#
+             (lambda (#{ribcage\ 2536}# #{id\ 2537}# #{label\ 2538}#)
                (begin
-                 (#{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}#))
+                 (#{set-ribcage-symnames!\ 697}#
+                   #{ribcage\ 2536}#
+                   (cons (#{syntax-object-expression\ 632}# #{id\ 2537}#)
+                         (#{ribcage-symnames\ 691}# #{ribcage\ 2536}#)))
+                 (#{set-ribcage-marks!\ 699}#
+                   #{ribcage\ 2536}#
+                   (cons (#{wrap-marks\ 673}#
+                           (#{syntax-object-wrap\ 634}# #{id\ 2537}#))
+                         (#{ribcage-marks\ 693}# #{ribcage\ 2536}#)))
+                 (#{set-ribcage-labels!\ 701}#
+                   #{ribcage\ 2536}#
+                   (cons #{label\ 2538}#
+                         (#{ribcage-labels\ 695}# #{ribcage\ 2536}#))))))
+           (#{anti-mark\ 707}#
+             (lambda (#{w\ 2542}#)
+               (#{make-wrap\ 671}#
+                 (cons #f (#{wrap-marks\ 673}# #{w\ 2542}#))
                  (cons 'shift
-                       (#{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))
+                       (#{wrap-subst\ 675}# #{w\ 2542}#)))))
+           (#{set-ribcage-labels!\ 701}#
+             (lambda (#{x\ 2545}# #{update\ 2546}#)
+               (vector-set! #{x\ 2545}# 3 #{update\ 2546}#)))
+           (#{set-ribcage-marks!\ 699}#
+             (lambda (#{x\ 2549}# #{update\ 2550}#)
+               (vector-set! #{x\ 2549}# 2 #{update\ 2550}#)))
+           (#{set-ribcage-symnames!\ 697}#
+             (lambda (#{x\ 2553}# #{update\ 2554}#)
+               (vector-set! #{x\ 2553}# 1 #{update\ 2554}#)))
+           (#{ribcage-labels\ 695}#
+             (lambda (#{x\ 2557}#) (vector-ref #{x\ 2557}# 3)))
+           (#{ribcage-marks\ 693}#
+             (lambda (#{x\ 2559}#) (vector-ref #{x\ 2559}# 2)))
+           (#{ribcage-symnames\ 691}#
+             (lambda (#{x\ 2561}#) (vector-ref #{x\ 2561}# 1)))
+           (#{ribcage?\ 689}#
+             (lambda (#{x\ 2563}#)
+               (if (vector? #{x\ 2563}#)
+                 (if (= (vector-length #{x\ 2563}#) 4)
+                   (eq? (vector-ref #{x\ 2563}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 11172}#
-             (lambda (#{symnames\ 13053}#
-                      #{marks\ 13054}#
-                      #{labels\ 13055}#)
+           (#{make-ribcage\ 687}#
+             (lambda (#{symnames\ 2568}#
+                      #{marks\ 2569}#
+                      #{labels\ 2570}#)
                (vector
                  'ribcage
-                 #{symnames\ 13053}#
-                 #{marks\ 13054}#
-                 #{labels\ 13055}#)))
-           (#{gen-labels\ 11169}#
-             (lambda (#{ls\ 13059}#)
-               (if (null? #{ls\ 13059}#)
+                 #{symnames\ 2568}#
+                 #{marks\ 2569}#
+                 #{labels\ 2570}#)))
+           (#{gen-labels\ 684}#
+             (lambda (#{ls\ 2574}#)
+               (if (null? #{ls\ 2574}#)
                  '()
-                 (cons (#{gen-label\ 11167}#)
-                       (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#))))))
-           (#{gen-label\ 11167}#
+                 (cons (#{gen-label\ 682}#)
+                       (#{gen-labels\ 684}# (cdr #{ls\ 2574}#))))))
+           (#{gen-label\ 682}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{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}#)
+           (#{wrap-subst\ 675}# cdr)
+           (#{wrap-marks\ 673}# car)
+           (#{make-wrap\ 671}# cons)
+           (#{id-sym-name&marks\ 669}#
+             (lambda (#{x\ 2576}# #{w\ 2577}#)
+               (if (#{syntax-object?\ 630}# #{x\ 2576}#)
                  (values
-                   (#{syntax-object-expression\ 11117}#
-                     #{x\ 13061}#)
-                   (#{join-marks\ 11204}#
-                     (#{wrap-marks\ 11158}# #{w\ 13062}#)
-                     (#{wrap-marks\ 11158}#
-                       (#{syntax-object-wrap\ 11119}# #{x\ 13061}#))))
+                   (#{syntax-object-expression\ 632}# #{x\ 2576}#)
+                   (#{join-marks\ 719}#
+                     (#{wrap-marks\ 673}# #{w\ 2577}#)
+                     (#{wrap-marks\ 673}#
+                       (#{syntax-object-wrap\ 634}# #{x\ 2576}#))))
                  (values
-                   #{x\ 13061}#
-                   (#{wrap-marks\ 11158}# #{w\ 13062}#)))))
-           (#{id?\ 11151}#
-             (lambda (#{x\ 13065}#)
-               (if (symbol? #{x\ 13065}#)
+                   #{x\ 2576}#
+                   (#{wrap-marks\ 673}# #{w\ 2577}#)))))
+           (#{id?\ 666}#
+             (lambda (#{x\ 2580}#)
+               (if (symbol? #{x\ 2580}#)
                  #t
-                 (if (#{syntax-object?\ 11115}# #{x\ 13065}#)
+                 (if (#{syntax-object?\ 630}# #{x\ 2580}#)
                    (symbol?
-                     (#{syntax-object-expression\ 11117}#
-                       #{x\ 13065}#))
+                     (#{syntax-object-expression\ 632}# #{x\ 2580}#))
                    #f))))
-           (#{nonsymbol-id?\ 11149}#
-             (lambda (#{x\ 13072}#)
-               (if (#{syntax-object?\ 11115}# #{x\ 13072}#)
+           (#{nonsymbol-id?\ 664}#
+             (lambda (#{x\ 2587}#)
+               (if (#{syntax-object?\ 630}# #{x\ 2587}#)
                  (symbol?
-                   (#{syntax-object-expression\ 11117}#
-                     #{x\ 13072}#))
+                   (#{syntax-object-expression\ 632}# #{x\ 2587}#))
                  #f)))
-           (#{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))))
+           (#{global-extend\ 662}#
+             (lambda (#{type\ 2591}# #{sym\ 2592}# #{val\ 2593}#)
+               (#{put-global-definition-hook\ 580}#
+                 #{sym\ 2592}#
+                 #{type\ 2591}#
+                 #{val\ 2593}#)))
+           (#{lookup\ 660}#
+             (lambda (#{x\ 2597}# #{r\ 2598}# #{mod\ 2599}#)
+               (let ((#{t\ 2605}# (assq #{x\ 2597}# #{r\ 2598}#)))
+                 (if #{t\ 2605}#
+                   (cdr #{t\ 2605}#)
+                   (if (symbol? #{x\ 2597}#)
+                     (let ((#{t\ 2611}#
+                             (#{get-global-definition-hook\ 582}#
+                               #{x\ 2597}#
+                               #{mod\ 2599}#)))
+                       (if #{t\ 2611}# #{t\ 2611}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 11143}#
-             (lambda (#{r\ 13101}#)
-               (if (null? #{r\ 13101}#)
+           (#{macros-only-env\ 658}#
+             (lambda (#{r\ 2616}#)
+               (if (null? #{r\ 2616}#)
                  '()
-                 (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))
+                 (let ((#{a\ 2619}# (car #{r\ 2616}#)))
+                   (if (eq? (cadr #{a\ 2619}#) (quote macro))
+                     (cons #{a\ 2619}#
+                           (#{macros-only-env\ 658}# (cdr #{r\ 2616}#)))
+                     (#{macros-only-env\ 658}# (cdr #{r\ 2616}#)))))))
+           (#{extend-var-env\ 656}#
+             (lambda (#{labels\ 2620}# #{vars\ 2621}# #{r\ 2622}#)
+               (if (null? #{labels\ 2620}#)
+                 #{r\ 2622}#
+                 (#{extend-var-env\ 656}#
+                   (cdr #{labels\ 2620}#)
+                   (cdr #{vars\ 2621}#)
+                   (cons (cons (car #{labels\ 2620}#)
+                               (cons (quote lexical) (car #{vars\ 2621}#)))
+                         #{r\ 2622}#)))))
+           (#{extend-env\ 654}#
+             (lambda (#{labels\ 2627}# #{bindings\ 2628}# #{r\ 2629}#)
+               (if (null? #{labels\ 2627}#)
+                 #{r\ 2629}#
+                 (#{extend-env\ 654}#
+                   (cdr #{labels\ 2627}#)
+                   (cdr #{bindings\ 2628}#)
+                   (cons (cons (car #{labels\ 2627}#)
+                               (car #{bindings\ 2628}#))
+                         #{r\ 2629}#)))))
+           (#{binding-value\ 651}# cdr)
+           (#{binding-type\ 649}# car)
+           (#{source-annotation\ 645}#
+             (lambda (#{x\ 2633}#)
+               (if (#{syntax-object?\ 630}# #{x\ 2633}#)
+                 (#{source-annotation\ 645}#
+                   (#{syntax-object-expression\ 632}# #{x\ 2633}#))
+                 (if (pair? #{x\ 2633}#)
+                   (let ((#{props\ 2640}# (source-properties #{x\ 2633}#)))
+                     (if (pair? #{props\ 2640}#) #{props\ 2640}# #f))
                    #f))))
-           (#{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)
+           (#{set-syntax-object-module!\ 642}#
+             (lambda (#{x\ 2642}# #{update\ 2643}#)
+               (vector-set! #{x\ 2642}# 3 #{update\ 2643}#)))
+           (#{set-syntax-object-wrap!\ 640}#
+             (lambda (#{x\ 2646}# #{update\ 2647}#)
+               (vector-set! #{x\ 2646}# 2 #{update\ 2647}#)))
+           (#{set-syntax-object-expression!\ 638}#
+             (lambda (#{x\ 2650}# #{update\ 2651}#)
+               (vector-set! #{x\ 2650}# 1 #{update\ 2651}#)))
+           (#{syntax-object-module\ 636}#
+             (lambda (#{x\ 2654}#) (vector-ref #{x\ 2654}# 3)))
+           (#{syntax-object-wrap\ 634}#
+             (lambda (#{x\ 2656}#) (vector-ref #{x\ 2656}# 2)))
+           (#{syntax-object-expression\ 632}#
+             (lambda (#{x\ 2658}#) (vector-ref #{x\ 2658}# 1)))
+           (#{syntax-object?\ 630}#
+             (lambda (#{x\ 2660}#)
+               (if (vector? #{x\ 2660}#)
+                 (if (= (vector-length #{x\ 2660}#) 4)
+                   (eq? (vector-ref #{x\ 2660}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 11113}#
-             (lambda (#{expression\ 13150}#
-                      #{wrap\ 13151}#
-                      #{module\ 13152}#)
+           (#{make-syntax-object\ 628}#
+             (lambda (#{expression\ 2665}#
+                      #{wrap\ 2666}#
+                      #{module\ 2667}#)
                (vector
                  'syntax-object
-                 #{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)))
+                 #{expression\ 2665}#
+                 #{wrap\ 2666}#
+                 #{module\ 2667}#)))
+           (#{build-letrec\ 624}#
+             (lambda (#{src\ 2671}#
+                      #{ids\ 2672}#
+                      #{vars\ 2673}#
+                      #{val-exps\ 2674}#
+                      #{body-exp\ 2675}#)
+               (if (null? #{vars\ 2673}#)
+                 #{body-exp\ 2675}#
+                 (let ((#{atom-key\ 2683}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2683}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 11089}#
-                         #{ids\ 13157}#
-                         #{val-exps\ 13159}#)
+                         #{maybe-name-value!\ 604}#
+                         #{ids\ 2672}#
+                         #{val-exps\ 2674}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 13156}#
-                        #{ids\ 13157}#
-                        #{vars\ 13158}#
-                        #{val-exps\ 13159}#
-                        #{body-exp\ 13160}#))
-                     (#{decorate-source\ 11069}#
+                        #{src\ 2671}#
+                        #{ids\ 2672}#
+                        #{vars\ 2673}#
+                        #{val-exps\ 2674}#
+                        #{body-exp\ 2675}#))
+                     (#{decorate-source\ 584}#
                        (list 'letrec
-                             (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}#
+                             (map list #{vars\ 2673}# #{val-exps\ 2674}#)
+                             #{body-exp\ 2675}#)
+                       #{src\ 2671}#))))))
+           (#{build-named-let\ 622}#
+             (lambda (#{src\ 2687}#
+                      #{ids\ 2688}#
+                      #{vars\ 2689}#
+                      #{val-exps\ 2690}#
+                      #{body-exp\ 2691}#)
+               (let ((#{f\ 2701}# (car #{vars\ 2689}#))
+                     (#{f-name\ 2702}# (car #{ids\ 2688}#))
+                     (#{vars\ 2703}# (cdr #{vars\ 2689}#))
+                     (#{ids\ 2704}# (cdr #{ids\ 2688}#)))
+                 (let ((#{atom-key\ 2707}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2707}# (quote (c)))
+                     (let ((#{proc\ 2710}#
+                             (#{build-simple-lambda\ 608}#
+                               #{src\ 2687}#
+                               #{ids\ 2704}#
                                #f
-                               #{vars\ 13188}#
+                               #{vars\ 2703}#
                                '()
-                               #{body-exp\ 13176}#)))
+                               #{body-exp\ 2691}#)))
                        (begin
-                         (#{maybe-name-value!\ 11089}#
-                           #{f-name\ 13187}#
-                           #{proc\ 13195}#)
+                         (#{maybe-name-value!\ 604}#
+                           #{f-name\ 2702}#
+                           #{proc\ 2710}#)
                          (for-each
-                           #{maybe-name-value!\ 11089}#
-                           #{ids\ 13189}#
-                           #{val-exps\ 13175}#)
+                           #{maybe-name-value!\ 604}#
+                           #{ids\ 2704}#
+                           #{val-exps\ 2690}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 13172}#
-                          (list #{f-name\ 13187}#)
-                          (list #{f\ 13186}#)
-                          (list #{proc\ 13195}#)
-                          (#{build-application\ 11073}#
-                            #{src\ 13172}#
-                            (#{build-lexical-reference\ 11079}#
+                          #{src\ 2687}#
+                          (list #{f-name\ 2702}#)
+                          (list #{f\ 2701}#)
+                          (list #{proc\ 2710}#)
+                          (#{build-application\ 588}#
+                            #{src\ 2687}#
+                            (#{build-lexical-reference\ 594}#
                               'fun
-                              #{src\ 13172}#
-                              #{f-name\ 13187}#
-                              #{f\ 13186}#)
-                            #{val-exps\ 13175}#))))
-                     (#{decorate-source\ 11069}#
+                              #{src\ 2687}#
+                              #{f-name\ 2702}#
+                              #{f\ 2701}#)
+                            #{val-exps\ 2690}#))))
+                     (#{decorate-source\ 584}#
                        (list 'letrec
-                             (list (list #{f\ 13186}#
+                             (list (list #{f\ 2701}#
                                          (list 'lambda
-                                               #{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)))
+                                               #{vars\ 2703}#
+                                               #{body-exp\ 2691}#)))
+                             (cons #{f\ 2701}# #{val-exps\ 2690}#))
+                       #{src\ 2687}#))))))
+           (#{build-let\ 620}#
+             (lambda (#{src\ 2713}#
+                      #{ids\ 2714}#
+                      #{vars\ 2715}#
+                      #{val-exps\ 2716}#
+                      #{body-exp\ 2717}#)
+               (if (null? #{vars\ 2715}#)
+                 #{body-exp\ 2717}#
+                 (let ((#{atom-key\ 2725}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2725}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 11089}#
-                         #{ids\ 13199}#
-                         #{val-exps\ 13201}#)
+                         #{maybe-name-value!\ 604}#
+                         #{ids\ 2714}#
+                         #{val-exps\ 2716}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 13198}#
-                        #{ids\ 13199}#
-                        #{vars\ 13200}#
-                        #{val-exps\ 13201}#
-                        #{body-exp\ 13202}#))
-                     (#{decorate-source\ 11069}#
+                        #{src\ 2713}#
+                        #{ids\ 2714}#
+                        #{vars\ 2715}#
+                        #{val-exps\ 2716}#
+                        #{body-exp\ 2717}#))
+                     (#{decorate-source\ 584}#
                        (list 'let
-                             (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)))
+                             (map list #{vars\ 2715}# #{val-exps\ 2716}#)
+                             #{body-exp\ 2717}#)
+                       #{src\ 2713}#))))))
+           (#{build-sequence\ 618}#
+             (lambda (#{src\ 2729}# #{exps\ 2730}#)
+               (if (null? (cdr #{exps\ 2730}#))
+                 (car #{exps\ 2730}#)
+                 (let ((#{atom-key\ 2735}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2735}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{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)))
+                      #{src\ 2729}#
+                      #{exps\ 2730}#)
+                     (#{decorate-source\ 584}#
+                       (cons (quote begin) #{exps\ 2730}#)
+                       #{src\ 2729}#))))))
+           (#{build-data\ 616}#
+             (lambda (#{src\ 2739}# #{exp\ 2740}#)
+               (let ((#{atom-key\ 2745}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2745}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 13224}#
-                    #{exp\ 13225}#)
-                   (#{decorate-source\ 11069}#
-                     (if (if (self-evaluating? #{exp\ 13225}#)
-                           (not (vector? #{exp\ 13225}#))
+                    #{src\ 2739}#
+                    #{exp\ 2740}#)
+                   (#{decorate-source\ 584}#
+                     (if (if (self-evaluating? #{exp\ 2740}#)
+                           (not (vector? #{exp\ 2740}#))
                            #f)
-                       #{exp\ 13225}#
-                       (list (quote quote) #{exp\ 13225}#))
-                     #{src\ 13224}#)))))
-           (#{build-primref\ 11099}#
-             (lambda (#{src\ 13235}# #{name\ 13236}#)
+                       #{exp\ 2740}#
+                       (list (quote quote) #{exp\ 2740}#))
+                     #{src\ 2739}#)))))
+           (#{build-primref\ 614}#
+             (lambda (#{src\ 2750}# #{name\ 2751}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 13241}#
-                         (fluid-ref #{*mode*\ 11050}#)))
-                   (if (memv #{atom-key\ 13241}# (quote (c)))
+                 (let ((#{atom-key\ 2756}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2756}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{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)))
+                      #{src\ 2750}#
+                      #{name\ 2751}#)
+                     (#{decorate-source\ 584}#
+                       #{name\ 2751}#
+                       #{src\ 2750}#)))
+                 (let ((#{atom-key\ 2761}# (fluid-ref #{*mode*\ 565}#)))
+                   (if (memv #{atom-key\ 2761}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 13235}#
+                      #{src\ 2750}#
                       '(guile)
-                      #{name\ 13236}#
+                      #{name\ 2751}#
                       #f)
-                     (#{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)))
+                     (#{decorate-source\ 584}#
+                       (list (quote @@) (quote (guile)) #{name\ 2751}#)
+                       #{src\ 2750}#))))))
+           (#{build-lambda-case\ 612}#
+             (lambda (#{src\ 2765}#
+                      #{req\ 2766}#
+                      #{opt\ 2767}#
+                      #{rest\ 2768}#
+                      #{kw\ 2769}#
+                      #{inits\ 2770}#
+                      #{vars\ 2771}#
+                      #{body\ 2772}#
+                      #{else-case\ 2773}#)
+               (let ((#{atom-key\ 2785}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2785}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{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}#)
+                    #{src\ 2765}#
+                    #{req\ 2766}#
+                    #{opt\ 2767}#
+                    #{rest\ 2768}#
+                    #{kw\ 2769}#
+                    #{inits\ 2770}#
+                    #{vars\ 2771}#
+                    #{body\ 2772}#
+                    #{else-case\ 2773}#)
+                   (let ((#{nreq\ 2790}# (length #{req\ 2766}#)))
+                     (let ((#{nopt\ 2792}#
+                             (if #{opt\ 2767}# (length #{opt\ 2767}#) 0)))
+                       (let ((#{rest-idx\ 2794}#
+                               (if #{rest\ 2768}#
+                                 (+ #{nreq\ 2790}# #{nopt\ 2792}#)
                                  #f)))
-                         (let ((#{allow-other-keys?\ 13283}#
-                                 (if #{kw\ 13254}# (car #{kw\ 13254}#) #f)))
-                           (let ((#{kw-indices\ 13285}#
-                                   (map (lambda (#{x\ 13286}#)
-                                          (cons (car #{x\ 13286}#)
+                         (let ((#{allow-other-keys?\ 2798}#
+                                 (if #{kw\ 2769}# (car #{kw\ 2769}#) #f)))
+                           (let ((#{kw-indices\ 2800}#
+                                   (map (lambda (#{x\ 2801}#)
+                                          (cons (car #{x\ 2801}#)
                                                 (list-index
-                                                  #{vars\ 13256}#
-                                                  (caddr #{x\ 13286}#))))
-                                        (if #{kw\ 13254}#
-                                          (cdr #{kw\ 13254}#)
+                                                  #{vars\ 2771}#
+                                                  (caddr #{x\ 2801}#))))
+                                        (if #{kw\ 2769}#
+                                          (cdr #{kw\ 2769}#)
                                           '()))))
-                             (let ((#{nargs\ 13289}#
+                             (let ((#{nargs\ 2804}#
                                      (apply max
-                                            (+ #{nreq\ 13275}#
-                                               #{nopt\ 13277}#
-                                               (if #{rest\ 13253}# 1 0))
+                                            (+ #{nreq\ 2790}#
+                                               #{nopt\ 2792}#
+                                               (if #{rest\ 2768}# 1 0))
                                             (map 1+
                                                  (map cdr
-                                                      #{kw-indices\ 
13285}#)))))
+                                                      #{kw-indices\ 2800}#)))))
                                (begin
-                                 (let ((#{t\ 13292}#
-                                         (= #{nargs\ 13289}#
-                                            (length #{vars\ 13256}#)
-                                            (+ #{nreq\ 13275}#
-                                               (length #{inits\ 13255}#)
-                                               (if #{rest\ 13253}# 1 0)))))
-                                   (if #{t\ 13292}#
-                                     #{t\ 13292}#
+                                 (let ((#{t\ 2807}#
+                                         (= #{nargs\ 2804}#
+                                            (length #{vars\ 2771}#)
+                                            (+ #{nreq\ 2790}#
+                                               (length #{inits\ 2770}#)
+                                               (if #{rest\ 2768}# 1 0)))))
+                                   (if #{t\ 2807}#
+                                     #{t\ 2807}#
                                      (error "something went wrong"
-                                            #{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\ 
13275}#
-                                                                       #{nopt\ 
13277}#
-                                                                       
#{rest-idx\ 13279}#
-                                                                       
#{nargs\ 13289}#
-                                                                       
#{allow-other-keys?\ 13283}#
-                                                                       
#{kw-indices\ 13285}#))
-                                                           (cons (cons 'list
-                                                                       (map 
(lambda (#{i\ 13295}#)
-                                                                              
(list 'lambda
-                                                                               
     #{vars\ 13256}#
-                                                                               
     #{i\ 13295}#))
-                                                                            
#{inits\ 13255}#))
-                                                                 '(%%args))))
-                                               '=>
-                                               (list 'lambda
-                                                     '(%%args)
-                                                     (cons 'apply
-                                                           (cons (list 'lambda
-                                                                       #{vars\ 
13256}#
-                                                                       #{body\ 
13257}#)
-                                                                 '(%%args)))))
-                                         (let ((#{t\ 13300}#
-                                                 #{else-case\ 13258}#))
-                                           (if #{t\ 13300}#
-                                             #{t\ 13300}#
-                                             '((%%args
-                                                 (scm-error
-                                                   'wrong-number-of-args
-                                                   #f
-                                                   "Wrong number of arguments"
-                                                   '()
-                                                   %%args))))))
-                                   #{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)))
+                                            #{req\ 2766}#
+                                            #{opt\ 2767}#
+                                            #{rest\ 2768}#
+                                            #{kw\ 2769}#
+                                            #{inits\ 2770}#
+                                            #{vars\ 2771}#
+                                            #{nreq\ 2790}#
+                                            #{nopt\ 2792}#
+                                            #{kw-indices\ 2800}#
+                                            #{nargs\ 2804}#)))
+                                 (#{decorate-source\ 584}#
+                                   (cons (list (append
+                                                 (list-head
+                                                   #{vars\ 2771}#
+                                                   #{nreq\ 2790}#)
+                                                 (append
+                                                   (if #{opt\ 2767}#
+                                                     (cons #:optional
+                                                           (map list
+                                                                (list-head
+                                                                  (list-tail
+                                                                    #{vars\ 
2771}#
+                                                                    #{nreq\ 
2790}#)
+                                                                  #{nopt\ 
2792}#)
+                                                                (list-head
+                                                                  #{inits\ 
2770}#
+                                                                  #{nopt\ 
2792}#)))
+                                                     '())
+                                                   (append
+                                                     (if #{kw\ 2769}#
+                                                       (cons #:key
+                                                             (map (lambda 
(#{x\ 2812}#
+                                                                           
#{init\ 2813}#)
+                                                                    (list 
(caddr #{x\ 2812}#)
+                                                                          
#{init\ 2813}#
+                                                                          (car 
#{x\ 2812}#)))
+                                                                  (cdr #{kw\ 
2769}#)
+                                                                  (list-tail
+                                                                    #{inits\ 
2770}#
+                                                                    #{nopt\ 
2792}#)))
+                                                       '())
+                                                     (append
+                                                       (if 
#{allow-other-keys?\ 2798}#
+                                                         '(#:allow-other-keys)
+                                                         '())
+                                                       (if #{rest\ 2768}#
+                                                         (list-ref
+                                                           #{vars\ 2771}#
+                                                           #{rest-idx\ 2794}#)
+                                                         '())))))
+                                               #{body\ 2772}#)
+                                         (let ((#{t\ 2818}#
+                                                 #{else-case\ 2773}#))
+                                           (if #{t\ 2818}#
+                                             #{t\ 2818}#
+                                             '())))
+                                   #{src\ 2765}#))))))))))))
+           (#{build-case-lambda\ 610}#
+             (lambda (#{src\ 2820}# #{meta\ 2821}# #{body\ 2822}#)
+               (let ((#{atom-key\ 2828}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2828}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 13303}#
-                    #{meta\ 13304}#
-                    #{body\ 13305}#)
-                   (#{decorate-source\ 11069}#
-                     (list 'lambda
-                           '%%args
-                           (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)))
+                    #{src\ 2820}#
+                    #{meta\ 2821}#
+                    #{body\ 2822}#)
+                   (#{decorate-source\ 584}#
+                     (cons (quote case-lambda*) #{body\ 2822}#)
+                     #{src\ 2820}#)))))
+           (#{build-simple-lambda\ 608}#
+             (lambda (#{src\ 2832}#
+                      #{req\ 2833}#
+                      #{rest\ 2834}#
+                      #{vars\ 2835}#
+                      #{meta\ 2836}#
+                      #{exp\ 2837}#)
+               (let ((#{atom-key\ 2846}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2846}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 13315}#
-                    #{meta\ 13319}#
+                    #{src\ 2832}#
+                    #{meta\ 2836}#
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 13315}#
-                     #{req\ 13316}#
+                     #{src\ 2832}#
+                     #{req\ 2833}#
                      #f
-                     #{rest\ 13317}#
+                     #{rest\ 2834}#
                      #f
                      '()
-                     #{vars\ 13318}#
-                     #{exp\ 13320}#
+                     #{vars\ 2835}#
+                     #{exp\ 2837}#
                      #f))
-                   (#{decorate-source\ 11069}#
+                   (#{decorate-source\ 584}#
                      (list 'lambda
-                           (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)))
+                           (if #{rest\ 2834}#
+                             (apply cons* #{vars\ 2835}#)
+                             #{vars\ 2835}#)
+                           #{exp\ 2837}#)
+                     #{src\ 2832}#)))))
+           (#{build-global-definition\ 606}#
+             (lambda (#{source\ 2850}# #{var\ 2851}# #{exp\ 2852}#)
+               (let ((#{atom-key\ 2858}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2858}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 11089}#
-                       #{var\ 13334}#
-                       #{exp\ 13335}#)
+                     (#{maybe-name-value!\ 604}#
+                       #{var\ 2851}#
+                       #{exp\ 2852}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{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}#
+                      #{source\ 2850}#
+                      #{var\ 2851}#
+                      #{exp\ 2852}#))
+                   (#{decorate-source\ 584}#
+                     (list (quote define) #{var\ 2851}# #{exp\ 2852}#)
+                     #{source\ 2850}#)))))
+           (#{maybe-name-value!\ 604}#
+             (lambda (#{name\ 2862}# #{val\ 2863}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 2863}#)
+                 (let ((#{meta\ 2869}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 13346}#)))
-                   (if (not (assq (quote name) #{meta\ 13352}#))
+                          #{val\ 2863}#)))
+                   (if (not (assq (quote name) #{meta\ 2869}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 13346}#
+                      #{val\ 2863}#
                       (acons 'name
-                             #{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)))
+                             #{name\ 2862}#
+                             #{meta\ 2869}#)))))))
+           (#{build-global-assignment\ 602}#
+             (lambda (#{source\ 2870}#
+                      #{var\ 2871}#
+                      #{exp\ 2872}#
+                      #{mod\ 2873}#)
+               (#{analyze-variable\ 598}#
+                 #{mod\ 2873}#
+                 #{var\ 2871}#
+                 (lambda (#{mod\ 2878}# #{var\ 2879}# #{public?\ 2880}#)
+                   (let ((#{atom-key\ 2886}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 2886}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 13353}#
-                        #{mod\ 13361}#
-                        #{var\ 13362}#
-                        #{public?\ 13363}#
-                        #{exp\ 13355}#)
-                       (#{decorate-source\ 11069}#
+                        #{source\ 2870}#
+                        #{mod\ 2878}#
+                        #{var\ 2879}#
+                        #{public?\ 2880}#
+                        #{exp\ 2872}#)
+                       (#{decorate-source\ 584}#
                          (list 'set!
-                               (list (if #{public?\ 13363}#
+                               (list (if #{public?\ 2880}#
                                        '@
                                        '@@)
-                                     #{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)))
+                                     #{mod\ 2878}#
+                                     #{var\ 2879}#)
+                               #{exp\ 2872}#)
+                         #{source\ 2870}#))))
+                 (lambda (#{var\ 2890}#)
+                   (let ((#{atom-key\ 2894}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 2894}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{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)))
+                        #{source\ 2870}#
+                        #{var\ 2890}#
+                        #{exp\ 2872}#)
+                       (#{decorate-source\ 584}#
+                         (list (quote set!) #{var\ 2890}# #{exp\ 2872}#)
+                         #{source\ 2870}#)))))))
+           (#{build-global-reference\ 600}#
+             (lambda (#{source\ 2898}# #{var\ 2899}# #{mod\ 2900}#)
+               (#{analyze-variable\ 598}#
+                 #{mod\ 2900}#
+                 #{var\ 2899}#
+                 (lambda (#{mod\ 2904}# #{var\ 2905}# #{public?\ 2906}#)
+                   (let ((#{atom-key\ 2912}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 2912}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{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)))
+                        #{source\ 2898}#
+                        #{mod\ 2904}#
+                        #{var\ 2905}#
+                        #{public?\ 2906}#)
+                       (#{decorate-source\ 584}#
+                         (list (if #{public?\ 2906}# (quote @) (quote @@))
+                               #{mod\ 2904}#
+                               #{var\ 2905}#)
+                         #{source\ 2898}#))))
+                 (lambda (#{var\ 2915}#)
+                   (let ((#{atom-key\ 2919}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 2919}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{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}#
+                        #{source\ 2898}#
+                        #{var\ 2915}#)
+                       (#{decorate-source\ 584}#
+                         #{var\ 2915}#
+                         #{source\ 2898}#)))))))
+           (#{analyze-variable\ 598}#
+             (lambda (#{mod\ 2922}#
+                      #{var\ 2923}#
+                      #{modref-cont\ 2924}#
+                      #{bare-cont\ 2925}#)
+               (if (not #{mod\ 2922}#)
+                 (#{bare-cont\ 2925}# #{var\ 2923}#)
+                 (let ((#{kind\ 2932}# (car #{mod\ 2922}#))
+                       (#{mod\ 2933}# (cdr #{mod\ 2922}#)))
+                   (if (memv #{kind\ 2932}# (quote (public)))
+                     (#{modref-cont\ 2924}#
+                       #{mod\ 2933}#
+                       #{var\ 2923}#
                        #t)
-                     (if (memv #{kind\ 13415}# (quote (private)))
+                     (if (memv #{kind\ 2932}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 13416}#
+                                  #{mod\ 2933}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 13407}#
-                           #{mod\ 13416}#
-                           #{var\ 13406}#
+                         (#{modref-cont\ 2924}#
+                           #{mod\ 2933}#
+                           #{var\ 2923}#
                            #f)
-                         (#{bare-cont\ 13408}# #{var\ 13406}#))
-                       (if (memv #{kind\ 13415}# (quote (bare)))
-                         (#{bare-cont\ 13408}# #{var\ 13406}#)
-                         (if (memv #{kind\ 13415}# (quote (hygiene)))
+                         (#{bare-cont\ 2925}# #{var\ 2923}#))
+                       (if (memv #{kind\ 2932}# (quote (bare)))
+                         (#{bare-cont\ 2925}# #{var\ 2923}#)
+                         (if (memv #{kind\ 2932}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 13416}#
+                                          #{mod\ 2933}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 13416}#)
-                                   #{var\ 13406}#)
+                                   (resolve-module #{mod\ 2933}#)
+                                   #{var\ 2923}#)
                                  #f)
-                             (#{modref-cont\ 13407}#
-                               #{mod\ 13416}#
-                               #{var\ 13406}#
+                             (#{modref-cont\ 2924}#
+                               #{mod\ 2933}#
+                               #{var\ 2923}#
                                #f)
-                             (#{bare-cont\ 13408}# #{var\ 13406}#))
+                             (#{bare-cont\ 2925}# #{var\ 2923}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{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)))
+                             #{var\ 2923}#
+                             #{mod\ 2933}#)))))))))
+           (#{build-lexical-assignment\ 596}#
+             (lambda (#{source\ 2941}#
+                      #{name\ 2942}#
+                      #{var\ 2943}#
+                      #{exp\ 2944}#)
+               (let ((#{atom-key\ 2951}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2951}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{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)))
+                    #{source\ 2941}#
+                    #{name\ 2942}#
+                    #{var\ 2943}#
+                    #{exp\ 2944}#)
+                   (#{decorate-source\ 584}#
+                     (list (quote set!) #{var\ 2943}# #{exp\ 2944}#)
+                     #{source\ 2941}#)))))
+           (#{build-lexical-reference\ 594}#
+             (lambda (#{type\ 2955}#
+                      #{source\ 2956}#
+                      #{name\ 2957}#
+                      #{var\ 2958}#)
+               (let ((#{atom-key\ 2965}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2965}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{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)))
+                    #{source\ 2956}#
+                    #{name\ 2957}#
+                    #{var\ 2958}#)
+                   (#{decorate-source\ 584}#
+                     #{var\ 2958}#
+                     #{source\ 2956}#)))))
+           (#{build-dynlet\ 592}#
+             (lambda (#{source\ 2968}#
+                      #{fluids\ 2969}#
+                      #{vals\ 2970}#
+                      #{body\ 2971}#)
+               (let ((#{atom-key\ 2978}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2978}# (quote (c)))
                    ((@ (language tree-il) make-dynlet)
-                    #{source\ 13451}#
-                    #{fluids\ 13452}#
-                    #{vals\ 13453}#
-                    #{body\ 13454}#)
-                   (#{decorate-source\ 11069}#
+                    #{source\ 2968}#
+                    #{fluids\ 2969}#
+                    #{vals\ 2970}#
+                    #{body\ 2971}#)
+                   (#{decorate-source\ 584}#
                      (list 'with-fluids
-                           (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)))
+                           (map list #{fluids\ 2969}# #{vals\ 2970}#)
+                           #{body\ 2971}#)
+                     #{source\ 2968}#)))))
+           (#{build-conditional\ 590}#
+             (lambda (#{source\ 2982}#
+                      #{test-exp\ 2983}#
+                      #{then-exp\ 2984}#
+                      #{else-exp\ 2985}#)
+               (let ((#{atom-key\ 2992}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 2992}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 13465}#
-                    #{test-exp\ 13466}#
-                    #{then-exp\ 13467}#
-                    #{else-exp\ 13468}#)
-                   (#{decorate-source\ 11069}#
-                     (if (equal? #{else-exp\ 13468}# (quote (if #f #f)))
+                    #{source\ 2982}#
+                    #{test-exp\ 2983}#
+                    #{then-exp\ 2984}#
+                    #{else-exp\ 2985}#)
+                   (#{decorate-source\ 584}#
+                     (if (equal? #{else-exp\ 2985}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 13466}#
-                             #{then-exp\ 13467}#)
+                             #{test-exp\ 2983}#
+                             #{then-exp\ 2984}#)
                        (list 'if
-                             #{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)))
+                             #{test-exp\ 2983}#
+                             #{then-exp\ 2984}#
+                             #{else-exp\ 2985}#))
+                     #{source\ 2982}#)))))
+           (#{build-application\ 588}#
+             (lambda (#{source\ 2997}#
+                      #{fun-exp\ 2998}#
+                      #{arg-exps\ 2999}#)
+               (let ((#{atom-key\ 3005}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 3005}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{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)))
+                    #{source\ 2997}#
+                    #{fun-exp\ 2998}#
+                    #{arg-exps\ 2999}#)
+                   (#{decorate-source\ 584}#
+                     (cons #{fun-exp\ 2998}# #{arg-exps\ 2999}#)
+                     #{source\ 2997}#)))))
+           (#{build-void\ 586}#
+             (lambda (#{source\ 3009}#)
+               (let ((#{atom-key\ 3013}# (fluid-ref #{*mode*\ 565}#)))
+                 (if (memv #{atom-key\ 3013}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 13492}#)
-                   (#{decorate-source\ 11069}#
+                    #{source\ 3009}#)
+                   (#{decorate-source\ 584}#
                      '(if #f #f)
-                     #{source\ 13492}#)))))
-           (#{decorate-source\ 11069}#
-             (lambda (#{e\ 13499}# #{s\ 13500}#)
+                     #{source\ 3009}#)))))
+           (#{decorate-source\ 584}#
+             (lambda (#{e\ 3016}# #{s\ 3017}#)
                (begin
-                 (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}#)
+                 (if (if (pair? #{e\ 3016}#) #{s\ 3017}# #f)
+                   (set-source-properties! #{e\ 3016}# #{s\ 3017}#))
+                 #{e\ 3016}#)))
+           (#{get-global-definition-hook\ 582}#
+             (lambda (#{symbol\ 3022}# #{module\ 3023}#)
                (begin
-                 (if (if (not #{module\ 13506}#) (current-module) #f)
+                 (if (if (not #{module\ 3023}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 13505}#))
-                 (let ((#{v\ 13512}#
+                         #{symbol\ 3022}#))
+                 (let ((#{v\ 3029}#
                          (module-variable
-                           (if #{module\ 13506}#
-                             (resolve-module (cdr #{module\ 13506}#))
+                           (if #{module\ 3023}#
+                             (resolve-module (cdr #{module\ 3023}#))
                              (current-module))
-                           #{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}#))
+                           #{symbol\ 3022}#)))
+                   (if #{v\ 3029}#
+                     (if (variable-bound? #{v\ 3029}#)
+                       (let ((#{val\ 3034}# (variable-ref #{v\ 3029}#)))
+                         (if (macro? #{val\ 3034}#)
+                           (if (macro-type #{val\ 3034}#)
+                             (cons (macro-type #{val\ 3034}#)
+                                   (macro-binding #{val\ 3034}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 11065}#
-             (lambda (#{symbol\ 13521}#
-                      #{type\ 13522}#
-                      #{val\ 13523}#)
+           (#{put-global-definition-hook\ 580}#
+             (lambda (#{symbol\ 3038}# #{type\ 3039}# #{val\ 3040}#)
                (module-define!
                  (current-module)
-                 #{symbol\ 13521}#
+                 #{symbol\ 3038}#
                  (make-syntax-transformer
-                   #{symbol\ 13521}#
-                   #{type\ 13522}#
-                   #{val\ 13523}#))))
-           (#{local-eval-hook\ 11062}#
-             (lambda (#{x\ 13527}# #{mod\ 13528}#)
+                   #{symbol\ 3038}#
+                   #{type\ 3039}#
+                   #{val\ 3040}#))))
+           (#{local-eval-hook\ 577}#
+             (lambda (#{x\ 3044}# #{mod\ 3045}#)
                (primitive-eval
                  (memoize-expression
-                   (let ((#{atom-key\ 13533}#
-                           (fluid-ref #{*mode*\ 11050}#)))
-                     (if (memv #{atom-key\ 13533}# (quote (c)))
+                   (let ((#{atom-key\ 3050}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 3050}# (quote (c)))
                        ((@ (language tree-il) tree-il->scheme)
-                        #{x\ 13527}#)
-                       #{x\ 13527}#))))))
-           (#{top-level-eval-hook\ 11060}#
-             (lambda (#{x\ 13536}# #{mod\ 13537}#)
+                        #{x\ 3044}#)
+                       #{x\ 3044}#))))))
+           (#{top-level-eval-hook\ 575}#
+             (lambda (#{x\ 3053}# #{mod\ 3054}#)
                (primitive-eval
                  (memoize-expression
-                   (let ((#{atom-key\ 13542}#
-                           (fluid-ref #{*mode*\ 11050}#)))
-                     (if (memv #{atom-key\ 13542}# (quote (c)))
+                   (let ((#{atom-key\ 3059}# (fluid-ref #{*mode*\ 565}#)))
+                     (if (memv #{atom-key\ 3059}# (quote (c)))
                        ((@ (language tree-il) tree-il->scheme)
-                        #{x\ 13536}#)
-                       #{x\ 13536}#))))))
-           (#{fx<\ 11058}# <)
-           (#{fx=\ 11056}# =)
-           (#{fx-\ 11054}# -)
-           (#{fx+\ 11052}# +)
-           (#{*mode*\ 11050}# (make-fluid)))
+                        #{x\ 3053}#)
+                       #{x\ 3053}#))))))
+           (#{fx<\ 573}# <)
+           (#{fx=\ 571}# =)
+           (#{fx-\ 569}# -)
+           (#{fx+\ 567}# +)
+           (#{*mode*\ 565}# (make-fluid)))
     (begin
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'core
         'fluid-let-syntax
-        (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}#)
+        (lambda (#{e\ 3062}#
+                 #{r\ 3063}#
+                 #{w\ 3064}#
+                 #{s\ 3065}#
+                 #{mod\ 3066}#)
+          ((lambda (#{tmp\ 3072}#)
+             ((lambda (#{tmp\ 3073}#)
+                (if (if #{tmp\ 3073}#
+                      (apply (lambda (#{_\ 3079}#
+                                      #{var\ 3080}#
+                                      #{val\ 3081}#
+                                      #{e1\ 3082}#
+                                      #{e2\ 3083}#)
+                               (#{valid-bound-ids?\ 729}# #{var\ 3080}#))
+                             #{tmp\ 3073}#)
                       #f)
-                  (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}#)))
+                  (apply (lambda (#{_\ 3090}#
+                                  #{var\ 3091}#
+                                  #{val\ 3092}#
+                                  #{e1\ 3093}#
+                                  #{e2\ 3094}#)
+                           (let ((#{names\ 3096}#
+                                   (map (lambda (#{x\ 3097}#)
+                                          (#{id-var-name\ 723}#
+                                            #{x\ 3097}#
+                                            #{w\ 3064}#))
+                                        #{var\ 3091}#)))
                              (begin
                                (for-each
-                                 (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}#
+                                 (lambda (#{id\ 3100}# #{n\ 3101}#)
+                                   (let ((#{atom-key\ 3106}#
+                                           (#{binding-type\ 649}#
+                                             (#{lookup\ 660}#
+                                               #{n\ 3101}#
+                                               #{r\ 3063}#
+                                               #{mod\ 3066}#))))
+                                     (if (memv #{atom-key\ 3106}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{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}#)
+                                         #{e\ 3062}#
+                                         (#{source-wrap\ 737}#
+                                           #{id\ 3100}#
+                                           #{w\ 3064}#
+                                           #{s\ 3065}#
+                                           #{mod\ 3066}#)))))
+                                 #{var\ 3091}#
+                                 #{names\ 3096}#)
+                               (#{chi-body\ 759}#
+                                 (cons #{e1\ 3093}# #{e2\ 3094}#)
+                                 (#{source-wrap\ 737}#
+                                   #{e\ 3062}#
+                                   #{w\ 3064}#
+                                   #{s\ 3065}#
+                                   #{mod\ 3066}#)
+                                 (#{extend-env\ 654}#
+                                   #{names\ 3096}#
+                                   (let ((#{trans-r\ 3111}#
+                                           (#{macros-only-env\ 658}#
+                                             #{r\ 3063}#)))
+                                     (map (lambda (#{x\ 3112}#)
                                             (cons 'macro
-                                                  (#{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}#)
+                                                  (#{eval-local-transformer\ 
763}#
+                                                    (#{chi\ 751}#
+                                                      #{x\ 3112}#
+                                                      #{trans-r\ 3111}#
+                                                      #{w\ 3064}#
+                                                      #{mod\ 3066}#)
+                                                    #{mod\ 3066}#)))
+                                          #{val\ 3092}#))
+                                   #{r\ 3063}#)
+                                 #{w\ 3064}#
+                                 #{mod\ 3066}#))))
+                         #{tmp\ 3073}#)
+                  ((lambda (#{_\ 3117}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 11222}#
-                         #{e\ 13545}#
-                         #{w\ 13547}#
-                         #{s\ 13548}#
-                         #{mod\ 13549}#)))
-                   #{tmp\ 13555}#)))
+                       (#{source-wrap\ 737}#
+                         #{e\ 3062}#
+                         #{w\ 3064}#
+                         #{s\ 3065}#
+                         #{mod\ 3066}#)))
+                   #{tmp\ 3072}#)))
               ($sc-dispatch
-                #{tmp\ 13555}#
+                #{tmp\ 3072}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 13545}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3062}#)))
+      (#{global-extend\ 662}#
         'core
         'quote
-        (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}#)
+        (lambda (#{e\ 3118}#
+                 #{r\ 3119}#
+                 #{w\ 3120}#
+                 #{s\ 3121}#
+                 #{mod\ 3122}#)
+          ((lambda (#{tmp\ 3128}#)
+             ((lambda (#{tmp\ 3129}#)
+                (if #{tmp\ 3129}#
+                  (apply (lambda (#{_\ 3132}# #{e\ 3133}#)
+                           (#{build-data\ 616}#
+                             #{s\ 3121}#
+                             (#{strip\ 777}# #{e\ 3133}# #{w\ 3120}#)))
+                         #{tmp\ 3129}#)
+                  ((lambda (#{_\ 3135}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{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}#
+                       (#{source-wrap\ 737}#
+                         #{e\ 3118}#
+                         #{w\ 3120}#
+                         #{s\ 3121}#
+                         #{mod\ 3122}#)))
+                   #{tmp\ 3128}#)))
+              ($sc-dispatch #{tmp\ 3128}# (quote (any any)))))
+           #{e\ 3118}#)))
+      (#{global-extend\ 662}#
         'core
         'syntax
-        (letrec ((#{regen\ 13634}#
-                   (lambda (#{x\ 13635}#)
-                     (let ((#{atom-key\ 13639}# (car #{x\ 13635}#)))
-                       (if (memv #{atom-key\ 13639}# (quote (ref)))
-                         (#{build-lexical-reference\ 11079}#
+        (letrec ((#{regen\ 3151}#
+                   (lambda (#{x\ 3152}#)
+                     (let ((#{atom-key\ 3156}# (car #{x\ 3152}#)))
+                       (if (memv #{atom-key\ 3156}# (quote (ref)))
+                         (#{build-lexical-reference\ 594}#
                            'value
                            #f
-                           (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}#
+                           (cadr #{x\ 3152}#)
+                           (cadr #{x\ 3152}#))
+                         (if (memv #{atom-key\ 3156}# (quote (primitive)))
+                           (#{build-primref\ 614}# #f (cadr #{x\ 3152}#))
+                           (if (memv #{atom-key\ 3156}# (quote (quote)))
+                             (#{build-data\ 616}# #f (cadr #{x\ 3152}#))
+                             (if (memv #{atom-key\ 3156}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 3152}#))
+                                 (#{build-simple-lambda\ 608}#
                                    #f
-                                   (cadr #{x\ 13635}#)
+                                   (cadr #{x\ 3152}#)
                                    #f
-                                   (cadr #{x\ 13635}#)
+                                   (cadr #{x\ 3152}#)
                                    '()
-                                   (#{regen\ 13634}# (caddr #{x\ 13635}#)))
-                                 (error "how did we get here" #{x\ 13635}#))
-                               (#{build-application\ 11073}#
+                                   (#{regen\ 3151}# (caddr #{x\ 3152}#)))
+                                 (error "how did we get here" #{x\ 3152}#))
+                               (#{build-application\ 588}#
                                  #f
-                                 (#{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))
+                                 (#{build-primref\ 614}# #f (car #{x\ 3152}#))
+                                 (map #{regen\ 3151}#
+                                      (cdr #{x\ 3152}#))))))))))
+                 (#{gen-vector\ 3149}#
+                   (lambda (#{x\ 3168}#)
+                     (if (eq? (car #{x\ 3168}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 3168}#))
+                       (if (eq? (car #{x\ 3168}#) (quote quote))
                          (list '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->vector (cadr #{x\ 3168}#)))
+                         (list (quote list->vector) #{x\ 3168}#)))))
+                 (#{gen-append\ 3147}#
+                   (lambda (#{x\ 3178}# #{y\ 3179}#)
+                     (if (equal? #{y\ 3179}# (quote (quote ())))
+                       #{x\ 3178}#
+                       (list (quote append) #{x\ 3178}# #{y\ 3179}#))))
+                 (#{gen-cons\ 3145}#
+                   (lambda (#{x\ 3183}# #{y\ 3184}#)
+                     (let ((#{atom-key\ 3189}# (car #{y\ 3184}#)))
+                       (if (memv #{atom-key\ 3189}# (quote (quote)))
+                         (if (eq? (car #{x\ 3183}#) (quote quote))
                            (list 'quote
-                                 (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 (cadr #{x\ 3183}#) (cadr #{y\ 3184}#)))
+                           (if (eq? (cadr #{y\ 3184}#) (quote ()))
+                             (list (quote list) #{x\ 3183}#)
+                             (list (quote cons) #{x\ 3183}# #{y\ 3184}#)))
+                         (if (memv #{atom-key\ 3189}# (quote (list)))
                            (cons 'list
-                                 (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}#)
+                                 (cons #{x\ 3183}# (cdr #{y\ 3184}#)))
+                           (list (quote cons) #{x\ 3183}# #{y\ 3184}#))))))
+                 (#{gen-map\ 3143}#
+                   (lambda (#{e\ 3198}# #{map-env\ 3199}#)
+                     (let ((#{formals\ 3204}# (map cdr #{map-env\ 3199}#))
+                           (#{actuals\ 3205}#
+                             (map (lambda (#{x\ 3206}#)
+                                    (list (quote ref) (car #{x\ 3206}#)))
+                                  #{map-env\ 3199}#)))
+                       (if (eq? (car #{e\ 3198}#) (quote ref))
+                         (car #{actuals\ 3205}#)
                          (if (and-map
-                               (lambda (#{x\ 13696}#)
-                                 (if (eq? (car #{x\ 13696}#) (quote ref))
-                                   (memq (cadr #{x\ 13696}#)
-                                         #{formals\ 13687}#)
+                               (lambda (#{x\ 3213}#)
+                                 (if (eq? (car #{x\ 3213}#) (quote ref))
+                                   (memq (cadr #{x\ 3213}#) #{formals\ 3204}#)
                                    #f))
-                               (cdr #{e\ 13681}#))
+                               (cdr #{e\ 3198}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 13681}#))
-                                       (map (let ((#{r\ 13702}#
+                                             (car #{e\ 3198}#))
+                                       (map (let ((#{r\ 3219}#
                                                     (map cons
-                                                         #{formals\ 13687}#
-                                                         #{actuals\ 13688}#)))
-                                              (lambda (#{x\ 13703}#)
-                                                (cdr (assq (cadr #{x\ 13703}#)
-                                                           #{r\ 13702}#))))
-                                            (cdr #{e\ 13681}#))))
+                                                         #{formals\ 3204}#
+                                                         #{actuals\ 3205}#)))
+                                              (lambda (#{x\ 3220}#)
+                                                (cdr (assq (cadr #{x\ 3220}#)
+                                                           #{r\ 3219}#))))
+                                            (cdr #{e\ 3198}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 13687}#
-                                             #{e\ 13681}#)
-                                       #{actuals\ 13688}#)))))))
-                 (#{gen-mappend\ 13624}#
-                   (lambda (#{e\ 13707}# #{map-env\ 13708}#)
+                                             #{formals\ 3204}#
+                                             #{e\ 3198}#)
+                                       #{actuals\ 3205}#)))))))
+                 (#{gen-mappend\ 3141}#
+                   (lambda (#{e\ 3224}# #{map-env\ 3225}#)
                      (list 'apply
                            '(primitive append)
-                           (#{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}#)
+                           (#{gen-map\ 3143}# #{e\ 3224}# #{map-env\ 3225}#))))
+                 (#{gen-ref\ 3139}#
+                   (lambda (#{src\ 3229}#
+                            #{var\ 3230}#
+                            #{level\ 3231}#
+                            #{maps\ 3232}#)
+                     (if (#{fx=\ 571}# #{level\ 3231}# 0)
+                       (values #{var\ 3230}# #{maps\ 3232}#)
+                       (if (null? #{maps\ 3232}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 13712}#)
+                           #{src\ 3229}#)
                          (call-with-values
                            (lambda ()
-                             (#{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))))
+                             (#{gen-ref\ 3139}#
+                               #{src\ 3229}#
+                               #{var\ 3230}#
+                               (#{fx-\ 569}# #{level\ 3231}# 1)
+                               (cdr #{maps\ 3232}#)))
+                           (lambda (#{outer-var\ 3237}# #{outer-maps\ 3238}#)
+                             (let ((#{b\ 3242}#
+                                     (assq #{outer-var\ 3237}#
+                                           (car #{maps\ 3232}#))))
+                               (if #{b\ 3242}#
+                                 (values (cdr #{b\ 3242}#) #{maps\ 3232}#)
+                                 (let ((#{inner-var\ 3244}#
+                                         (#{gen-var\ 779}# (quote tmp))))
                                    (values
-                                     #{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}#
+                                     #{inner-var\ 3244}#
+                                     (cons (cons (cons #{outer-var\ 3237}#
+                                                       #{inner-var\ 3244}#)
+                                                 (car #{maps\ 3232}#))
+                                           #{outer-maps\ 3238}#)))))))))))
+                 (#{gen-syntax\ 3137}#
+                   (lambda (#{src\ 3245}#
+                            #{e\ 3246}#
+                            #{r\ 3247}#
+                            #{maps\ 3248}#
+                            #{ellipsis?\ 3249}#
+                            #{mod\ 3250}#)
+                     (if (#{id?\ 666}# #{e\ 3246}#)
+                       (let ((#{label\ 3258}#
+                               (#{id-var-name\ 723}#
+                                 #{e\ 3246}#
                                  '(()))))
-                         (let ((#{b\ 13744}#
-                                 (#{lookup\ 11145}#
-                                   #{label\ 13741}#
-                                   #{r\ 13730}#
-                                   #{mod\ 13733}#)))
-                           (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#)
+                         (let ((#{b\ 3261}#
+                                 (#{lookup\ 660}#
+                                   #{label\ 3258}#
+                                   #{r\ 3247}#
+                                   #{mod\ 3250}#)))
+                           (if (eq? (#{binding-type\ 649}# #{b\ 3261}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (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}#)
+                                 (let ((#{var.lev\ 3263}#
+                                         (#{binding-value\ 651}# #{b\ 3261}#)))
+                                   (#{gen-ref\ 3139}#
+                                     #{src\ 3245}#
+                                     (car #{var.lev\ 3263}#)
+                                     (cdr #{var.lev\ 3263}#)
+                                     #{maps\ 3248}#)))
+                               (lambda (#{var\ 3264}# #{maps\ 3265}#)
                                  (values
-                                   (list (quote ref) #{var\ 13747}#)
-                                   #{maps\ 13748}#)))
-                             (if (#{ellipsis?\ 13732}# #{e\ 13729}#)
+                                   (list (quote ref) #{var\ 3264}#)
+                                   #{maps\ 3265}#)))
+                             (if (#{ellipsis?\ 3249}# #{e\ 3246}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 13728}#)
+                                 #{src\ 3245}#)
                                (values
-                                 (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}#)
+                                 (list (quote quote) #{e\ 3246}#)
+                                 #{maps\ 3248}#)))))
+                       ((lambda (#{tmp\ 3270}#)
+                          ((lambda (#{tmp\ 3271}#)
+                             (if (if #{tmp\ 3271}#
+                                   (apply (lambda (#{dots\ 3274}# #{e\ 3275}#)
+                                            (#{ellipsis?\ 3249}#
+                                              #{dots\ 3274}#))
+                                          #{tmp\ 3271}#)
                                    #f)
-                               (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}#)
+                               (apply (lambda (#{dots\ 3278}# #{e\ 3279}#)
+                                        (#{gen-syntax\ 3137}#
+                                          #{src\ 3245}#
+                                          #{e\ 3279}#
+                                          #{r\ 3247}#
+                                          #{maps\ 3248}#
+                                          (lambda (#{x\ 3280}#) #f)
+                                          #{mod\ 3250}#))
+                                      #{tmp\ 3271}#)
+                               ((lambda (#{tmp\ 3282}#)
+                                  (if (if #{tmp\ 3282}#
+                                        (apply (lambda (#{x\ 3286}#
+                                                        #{dots\ 3287}#
+                                                        #{y\ 3288}#)
+                                                 (#{ellipsis?\ 3249}#
+                                                   #{dots\ 3287}#))
+                                               #{tmp\ 3282}#)
                                         #f)
-                                    (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}#)
+                                    (apply (lambda (#{x\ 3292}#
+                                                    #{dots\ 3293}#
+                                                    #{y\ 3294}#)
+                                             (letrec ((#{f\ 3298}#
+                                                        (lambda (#{y\ 3299}#
+                                                                 #{k\ 3300}#)
+                                                          ((lambda (#{tmp\ 
3307}#)
+                                                             ((lambda (#{tmp\ 
3308}#)
+                                                                (if (if #{tmp\ 
3308}#
+                                                                      (apply 
(lambda (#{dots\ 3311}#
+                                                                               
       #{y\ 3312}#)
+                                                                               
(#{ellipsis?\ 3249}#
+                                                                               
  #{dots\ 3311}#))
+                                                                             
#{tmp\ 3308}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 13798}#
-                                                                               
   #{y\ 13799}#)
-                                                                           
(#{f\ 13781}#
-                                                                             
#{y\ 13799}#
-                                                                             
(lambda (#{maps\ 13800}#)
+                                                                  (apply 
(lambda (#{dots\ 3315}#
+                                                                               
   #{y\ 3316}#)
+                                                                           
(#{f\ 3298}#
+                                                                             
#{y\ 3316}#
+                                                                             
(lambda (#{maps\ 3317}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 13783}#
+                                                                               
    (#{k\ 3300}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 13800}#)))
-                                                                               
  (lambda (#{x\ 13802}#
-                                                                               
           #{maps\ 13803}#)
-                                                                               
    (if (null? (car #{maps\ 13803}#))
+                                                                               
            #{maps\ 3317}#)))
+                                                                               
  (lambda (#{x\ 3319}#
+                                                                               
           #{maps\ 3320}#)
+                                                                               
    (if (null? (car #{maps\ 3320}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 13728}#)
+                                                                               
        #{src\ 3245}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 13624}#
-                                                                               
          #{x\ 13802}#
-                                                                               
          (car #{maps\ 13803}#))
-                                                                               
        (cdr #{maps\ 13803}#))))))))
-                                                                         
#{tmp\ 13791}#)
-                                                                  ((lambda 
(#{_\ 13807}#)
+                                                                               
        (#{gen-mappend\ 3141}#
+                                                                               
          #{x\ 3319}#
+                                                                               
          (car #{maps\ 3320}#))
+                                                                               
        (cdr #{maps\ 3320}#))))))))
+                                                                         
#{tmp\ 3308}#)
+                                                                  ((lambda 
(#{_\ 3324}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 13620}#
-                                                                           
#{src\ 13728}#
-                                                                           
#{y\ 13782}#
-                                                                           
#{r\ 13730}#
-                                                                           
#{maps\ 13731}#
-                                                                           
#{ellipsis?\ 13732}#
-                                                                           
#{mod\ 13733}#))
-                                                                       (lambda 
(#{y\ 13808}#
-                                                                               
 #{maps\ 13809}#)
+                                                                         
(#{gen-syntax\ 3137}#
+                                                                           
#{src\ 3245}#
+                                                                           
#{y\ 3299}#
+                                                                           
#{r\ 3247}#
+                                                                           
#{maps\ 3248}#
+                                                                           
#{ellipsis?\ 3249}#
+                                                                           
#{mod\ 3250}#))
+                                                                       (lambda 
(#{y\ 3325}#
+                                                                               
 #{maps\ 3326}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 13783}#
-                                                                               
#{maps\ 13809}#))
-                                                                           
(lambda (#{x\ 13812}#
-                                                                               
     #{maps\ 13813}#)
+                                                                             
(#{k\ 3300}#
+                                                                               
#{maps\ 3326}#))
+                                                                           
(lambda (#{x\ 3329}#
+                                                                               
     #{maps\ 3330}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 13630}#
-                                                                               
  #{x\ 13812}#
-                                                                               
  #{y\ 13808}#)
-                                                                               
#{maps\ 13813}#))))))
-                                                                   #{tmp\ 
13790}#)))
+                                                                               
(#{gen-append\ 3147}#
+                                                                               
  #{x\ 3329}#
+                                                                               
  #{y\ 3325}#)
+                                                                               
#{maps\ 3330}#))))))
+                                                                   #{tmp\ 
3307}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 13790}#
+                                                                #{tmp\ 3307}#
                                                                 '(any . any))))
-                                                           #{y\ 13782}#))))
-                                               (#{f\ 13781}#
-                                                 #{y\ 13777}#
-                                                 (lambda (#{maps\ 13784}#)
+                                                           #{y\ 3299}#))))
+                                               (#{f\ 3298}#
+                                                 #{y\ 3294}#
+                                                 (lambda (#{maps\ 3301}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 13620}#
-                                                         #{src\ 13728}#
-                                                         #{x\ 13775}#
-                                                         #{r\ 13730}#
+                                                       (#{gen-syntax\ 3137}#
+                                                         #{src\ 3245}#
+                                                         #{x\ 3292}#
+                                                         #{r\ 3247}#
                                                          (cons '()
-                                                               #{maps\ 13784}#)
-                                                         #{ellipsis?\ 13732}#
-                                                         #{mod\ 13733}#))
-                                                     (lambda (#{x\ 13786}#
-                                                              #{maps\ 13787}#)
-                                                       (if (null? (car #{maps\ 
13787}#))
+                                                               #{maps\ 3301}#)
+                                                         #{ellipsis?\ 3249}#
+                                                         #{mod\ 3250}#))
+                                                     (lambda (#{x\ 3303}#
+                                                              #{maps\ 3304}#)
+                                                       (if (null? (car #{maps\ 
3304}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 13728}#)
+                                                           #{src\ 3245}#)
                                                          (values
-                                                           (#{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}#)
+                                                           (#{gen-map\ 3143}#
+                                                             #{x\ 3303}#
+                                                             (car #{maps\ 
3304}#))
+                                                           (cdr #{maps\ 
3304}#)))))))))
+                                           #{tmp\ 3282}#)
+                                    ((lambda (#{tmp\ 3333}#)
+                                       (if #{tmp\ 3333}#
+                                         (apply (lambda (#{x\ 3336}#
+                                                         #{y\ 3337}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 13620}#
-                                                        #{src\ 13728}#
-                                                        #{x\ 13819}#
-                                                        #{r\ 13730}#
-                                                        #{maps\ 13731}#
-                                                        #{ellipsis?\ 13732}#
-                                                        #{mod\ 13733}#))
-                                                    (lambda (#{x\ 13821}#
-                                                             #{maps\ 13822}#)
+                                                      (#{gen-syntax\ 3137}#
+                                                        #{src\ 3245}#
+                                                        #{x\ 3336}#
+                                                        #{r\ 3247}#
+                                                        #{maps\ 3248}#
+                                                        #{ellipsis?\ 3249}#
+                                                        #{mod\ 3250}#))
+                                                    (lambda (#{x\ 3338}#
+                                                             #{maps\ 3339}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 
13620}#
-                                                            #{src\ 13728}#
-                                                            #{y\ 13820}#
-                                                            #{r\ 13730}#
-                                                            #{maps\ 13822}#
-                                                            #{ellipsis?\ 
13732}#
-                                                            #{mod\ 13733}#))
-                                                        (lambda (#{y\ 13825}#
-                                                                 #{maps\ 
13826}#)
+                                                          (#{gen-syntax\ 3137}#
+                                                            #{src\ 3245}#
+                                                            #{y\ 3337}#
+                                                            #{r\ 3247}#
+                                                            #{maps\ 3339}#
+                                                            #{ellipsis?\ 3249}#
+                                                            #{mod\ 3250}#))
+                                                        (lambda (#{y\ 3342}#
+                                                                 #{maps\ 
3343}#)
                                                           (values
-                                                            (#{gen-cons\ 
13628}#
-                                                              #{x\ 13821}#
-                                                              #{y\ 13825}#)
-                                                            #{maps\ 
13826}#))))))
-                                                #{tmp\ 13816}#)
-                                         ((lambda (#{tmp\ 13829}#)
-                                            (if #{tmp\ 13829}#
-                                              (apply (lambda (#{e1\ 13832}#
-                                                              #{e2\ 13833}#)
+                                                            (#{gen-cons\ 3145}#
+                                                              #{x\ 3338}#
+                                                              #{y\ 3342}#)
+                                                            #{maps\ 
3343}#))))))
+                                                #{tmp\ 3333}#)
+                                         ((lambda (#{tmp\ 3346}#)
+                                            (if #{tmp\ 3346}#
+                                              (apply (lambda (#{e1\ 3349}#
+                                                              #{e2\ 3350}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
13620}#
-                                                             #{src\ 13728}#
-                                                             (cons #{e1\ 
13832}#
-                                                                   #{e2\ 
13833}#)
-                                                             #{r\ 13730}#
-                                                             #{maps\ 13731}#
-                                                             #{ellipsis?\ 
13732}#
-                                                             #{mod\ 13733}#))
-                                                         (lambda (#{e\ 13835}#
-                                                                  #{maps\ 
13836}#)
+                                                           (#{gen-syntax\ 
3137}#
+                                                             #{src\ 3245}#
+                                                             (cons #{e1\ 3349}#
+                                                                   #{e2\ 
3350}#)
+                                                             #{r\ 3247}#
+                                                             #{maps\ 3248}#
+                                                             #{ellipsis?\ 
3249}#
+                                                             #{mod\ 3250}#))
+                                                         (lambda (#{e\ 3352}#
+                                                                  #{maps\ 
3353}#)
                                                            (values
-                                                             (#{gen-vector\ 
13632}#
-                                                               #{e\ 13835}#)
-                                                             #{maps\ 
13836}#))))
-                                                     #{tmp\ 13829}#)
-                                              ((lambda (#{_\ 13840}#)
+                                                             (#{gen-vector\ 
3149}#
+                                                               #{e\ 3352}#)
+                                                             #{maps\ 3353}#))))
+                                                     #{tmp\ 3346}#)
+                                              ((lambda (#{_\ 3357}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 13729}#)
-                                                   #{maps\ 13731}#))
-                                               #{tmp\ 13753}#)))
+                                                         #{e\ 3246}#)
+                                                   #{maps\ 3248}#))
+                                               #{tmp\ 3270}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 13753}#
+                                            #{tmp\ 3270}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 13753}#
+                                       #{tmp\ 3270}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 13753}#
+                                  #{tmp\ 3270}#
                                   '(any any . any)))))
-                           ($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}#)
+                           ($sc-dispatch #{tmp\ 3270}# (quote (any any)))))
+                        #{e\ 3246}#)))))
+          (lambda (#{e\ 3359}#
+                   #{r\ 3360}#
+                   #{w\ 3361}#
+                   #{s\ 3362}#
+                   #{mod\ 3363}#)
+            (let ((#{e\ 3370}#
+                    (#{source-wrap\ 737}#
+                      #{e\ 3359}#
+                      #{w\ 3361}#
+                      #{s\ 3362}#
+                      #{mod\ 3363}#)))
+              ((lambda (#{tmp\ 3371}#)
+                 ((lambda (#{tmp\ 3372}#)
+                    (if #{tmp\ 3372}#
+                      (apply (lambda (#{_\ 3375}# #{x\ 3376}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 13620}#
-                                     #{e\ 13853}#
-                                     #{x\ 13859}#
-                                     #{r\ 13843}#
+                                   (#{gen-syntax\ 3137}#
+                                     #{e\ 3370}#
+                                     #{x\ 3376}#
+                                     #{r\ 3360}#
                                      '()
-                                     #{ellipsis?\ 11252}#
-                                     #{mod\ 13846}#))
-                                 (lambda (#{e\ 13860}# #{maps\ 13861}#)
-                                   (#{regen\ 13634}# #{e\ 13860}#))))
-                             #{tmp\ 13855}#)
-                      ((lambda (#{_\ 13865}#)
+                                     #{ellipsis?\ 767}#
+                                     #{mod\ 3363}#))
+                                 (lambda (#{e\ 3377}# #{maps\ 3378}#)
+                                   (#{regen\ 3151}# #{e\ 3377}#))))
+                             #{tmp\ 3372}#)
+                      ((lambda (#{_\ 3382}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 13853}#))
-                       #{tmp\ 13854}#)))
-                  ($sc-dispatch #{tmp\ 13854}# (quote (any any)))))
-               #{e\ 13853}#)))))
-      (#{global-extend\ 11147}#
+                           #{e\ 3370}#))
+                       #{tmp\ 3371}#)))
+                  ($sc-dispatch #{tmp\ 3371}# (quote (any any)))))
+               #{e\ 3370}#)))))
+      (#{global-extend\ 662}#
         'core
         'lambda
-        (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}#)
+        (lambda (#{e\ 3383}#
+                 #{r\ 3384}#
+                 #{w\ 3385}#
+                 #{s\ 3386}#
+                 #{mod\ 3387}#)
+          ((lambda (#{tmp\ 3393}#)
+             ((lambda (#{tmp\ 3394}#)
+                (if #{tmp\ 3394}#
+                  (apply (lambda (#{_\ 3399}#
+                                  #{args\ 3400}#
+                                  #{e1\ 3401}#
+                                  #{e2\ 3402}#)
                            (call-with-values
                              (lambda ()
-                               (#{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}#)
+                               (#{lambda-formals\ 769}# #{args\ 3400}#))
+                             (lambda (#{req\ 3403}#
+                                      #{opt\ 3404}#
+                                      #{rest\ 3405}#
+                                      #{kw\ 3406}#)
+                               (letrec ((#{lp\ 3414}#
+                                          (lambda (#{body\ 3415}#
+                                                   #{meta\ 3416}#)
+                                            ((lambda (#{tmp\ 3418}#)
+                                               ((lambda (#{tmp\ 3419}#)
+                                                  (if (if #{tmp\ 3419}#
+                                                        (apply (lambda 
(#{docstring\ 3423}#
+                                                                        #{e1\ 
3424}#
+                                                                        #{e2\ 
3425}#)
                                                                  (string?
                                                                    
(syntax->datum
-                                                                     
#{docstring\ 13906}#)))
-                                                               #{tmp\ 13902}#)
+                                                                     
#{docstring\ 3423}#)))
+                                                               #{tmp\ 3419}#)
                                                         #f)
-                                                    (apply (lambda 
(#{docstring\ 13912}#
-                                                                    #{e1\ 
13913}#
-                                                                    #{e2\ 
13914}#)
-                                                             (#{lp\ 13897}#
-                                                               (cons #{e1\ 
13913}#
-                                                                     #{e2\ 
13914}#)
+                                                    (apply (lambda 
(#{docstring\ 3429}#
+                                                                    #{e1\ 
3430}#
+                                                                    #{e2\ 
3431}#)
+                                                             (#{lp\ 3414}#
+                                                               (cons #{e1\ 
3430}#
+                                                                     #{e2\ 
3431}#)
                                                                (append
-                                                                 #{meta\ 
13899}#
+                                                                 #{meta\ 3416}#
                                                                  (list (cons 
'documentation
                                                                              
(syntax->datum
-                                                                               
#{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}#)
+                                                                               
#{docstring\ 3429}#))))))
+                                                           #{tmp\ 3419}#)
+                                                    ((lambda (#{tmp\ 3434}#)
+                                                       (if #{tmp\ 3434}#
+                                                         (apply (lambda (#{k\ 
3439}#
+                                                                         #{v\ 
3440}#
+                                                                         #{e1\ 
3441}#
+                                                                         #{e2\ 
3442}#)
+                                                                  (#{lp\ 3414}#
+                                                                    (cons 
#{e1\ 3441}#
+                                                                          
#{e2\ 3442}#)
                                                                     (append
-                                                                      #{meta\ 
13899}#
+                                                                      #{meta\ 
3416}#
                                                                       
(syntax->datum
                                                                         (map 
cons
-                                                                             
#{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}#)))
+                                                                             
#{k\ 3439}#
+                                                                             
#{v\ 3440}#)))))
+                                                                #{tmp\ 3434}#)
+                                                         ((lambda (#{_\ 3447}#)
+                                                            
(#{chi-simple-lambda\ 771}#
+                                                              #{e\ 3383}#
+                                                              #{r\ 3384}#
+                                                              #{w\ 3385}#
+                                                              #{s\ 3386}#
+                                                              #{mod\ 3387}#
+                                                              #{req\ 3403}#
+                                                              #{rest\ 3405}#
+                                                              #{meta\ 3416}#
+                                                              #{body\ 3415}#))
+                                                          #{tmp\ 3418}#)))
                                                      ($sc-dispatch
-                                                       #{tmp\ 13901}#
+                                                       #{tmp\ 3418}#
                                                        '(#(vector
                                                            #(each (any . any)))
                                                          any
                                                          .
                                                          each-any)))))
                                                 ($sc-dispatch
-                                                  #{tmp\ 13901}#
+                                                  #{tmp\ 3418}#
                                                   '(any any . each-any))))
-                                             #{body\ 13898}#))))
-                                 (#{lp\ 13897}#
-                                   (cons #{e1\ 13884}# #{e2\ 13885}#)
+                                             #{body\ 3415}#))))
+                                 (#{lp\ 3414}#
+                                   (cons #{e1\ 3401}# #{e2\ 3402}#)
                                    '())))))
-                         #{tmp\ 13877}#)
-                  ((lambda (#{_\ 13932}#)
+                         #{tmp\ 3394}#)
+                  ((lambda (#{_\ 3449}#)
                      (syntax-violation
                        'lambda
                        "bad lambda"
-                       #{e\ 13866}#))
-                   #{tmp\ 13876}#)))
+                       #{e\ 3383}#))
+                   #{tmp\ 3393}#)))
               ($sc-dispatch
-                #{tmp\ 13876}#
+                #{tmp\ 3393}#
                 '(any any any . each-any))))
-           #{e\ 13866}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3383}#)))
+      (#{global-extend\ 662}#
         'core
         'lambda*
-        (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}#)
+        (lambda (#{e\ 3450}#
+                 #{r\ 3451}#
+                 #{w\ 3452}#
+                 #{s\ 3453}#
+                 #{mod\ 3454}#)
+          ((lambda (#{tmp\ 3460}#)
+             ((lambda (#{tmp\ 3461}#)
+                (if #{tmp\ 3461}#
+                  (apply (lambda (#{_\ 3466}#
+                                  #{args\ 3467}#
+                                  #{e1\ 3468}#
+                                  #{e2\ 3469}#)
                            (call-with-values
                              (lambda ()
-                               (#{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}#)
+                               (#{chi-lambda-case\ 775}#
+                                 #{e\ 3450}#
+                                 #{r\ 3451}#
+                                 #{w\ 3452}#
+                                 #{s\ 3453}#
+                                 #{mod\ 3454}#
+                                 #{lambda*-formals\ 773}#
+                                 (list (cons #{args\ 3467}#
+                                             (cons #{e1\ 3468}#
+                                                   #{e2\ 3469}#)))))
+                             (lambda (#{meta\ 3471}# #{lcase\ 3472}#)
+                               (#{build-case-lambda\ 610}#
+                                 #{s\ 3453}#
+                                 #{meta\ 3471}#
+                                 #{lcase\ 3472}#))))
+                         #{tmp\ 3461}#)
+                  ((lambda (#{_\ 3476}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 13933}#))
-                   #{tmp\ 13943}#)))
+                       #{e\ 3450}#))
+                   #{tmp\ 3460}#)))
               ($sc-dispatch
-                #{tmp\ 13943}#
+                #{tmp\ 3460}#
                 '(any any any . each-any))))
-           #{e\ 13933}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3450}#)))
+      (#{global-extend\ 662}#
         'core
         'case-lambda
-        (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}#)
+        (lambda (#{e\ 3477}#
+                 #{r\ 3478}#
+                 #{w\ 3479}#
+                 #{s\ 3480}#
+                 #{mod\ 3481}#)
+          ((lambda (#{tmp\ 3487}#)
+             ((lambda (#{tmp\ 3488}#)
+                (if #{tmp\ 3488}#
+                  (apply (lambda (#{_\ 3496}#
+                                  #{args\ 3497}#
+                                  #{e1\ 3498}#
+                                  #{e2\ 3499}#
+                                  #{args*\ 3500}#
+                                  #{e1*\ 3501}#
+                                  #{e2*\ 3502}#)
                            (call-with-values
                              (lambda ()
-                               (#{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}#)
+                               (#{chi-lambda-case\ 775}#
+                                 #{e\ 3477}#
+                                 #{r\ 3478}#
+                                 #{w\ 3479}#
+                                 #{s\ 3480}#
+                                 #{mod\ 3481}#
+                                 #{lambda-formals\ 769}#
+                                 (cons (cons #{args\ 3497}#
+                                             (cons #{e1\ 3498}# #{e2\ 3499}#))
+                                       (map (lambda (#{tmp\ 3506}#
+                                                     #{tmp\ 3505}#
+                                                     #{tmp\ 3504}#)
+                                              (cons #{tmp\ 3504}#
+                                                    (cons #{tmp\ 3505}#
+                                                          #{tmp\ 3506}#)))
+                                            #{e2*\ 3502}#
+                                            #{e1*\ 3501}#
+                                            #{args*\ 3500}#))))
+                             (lambda (#{meta\ 3508}# #{lcase\ 3509}#)
+                               (#{build-case-lambda\ 610}#
+                                 #{s\ 3480}#
+                                 #{meta\ 3508}#
+                                 #{lcase\ 3509}#))))
+                         #{tmp\ 3488}#)
+                  ((lambda (#{_\ 3513}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 13960}#))
-                   #{tmp\ 13970}#)))
+                       #{e\ 3477}#))
+                   #{tmp\ 3487}#)))
               ($sc-dispatch
-                #{tmp\ 13970}#
+                #{tmp\ 3487}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 13960}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3477}#)))
+      (#{global-extend\ 662}#
         'core
         'case-lambda*
-        (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}#)
+        (lambda (#{e\ 3514}#
+                 #{r\ 3515}#
+                 #{w\ 3516}#
+                 #{s\ 3517}#
+                 #{mod\ 3518}#)
+          ((lambda (#{tmp\ 3524}#)
+             ((lambda (#{tmp\ 3525}#)
+                (if #{tmp\ 3525}#
+                  (apply (lambda (#{_\ 3533}#
+                                  #{args\ 3534}#
+                                  #{e1\ 3535}#
+                                  #{e2\ 3536}#
+                                  #{args*\ 3537}#
+                                  #{e1*\ 3538}#
+                                  #{e2*\ 3539}#)
                            (call-with-values
                              (lambda ()
-                               (#{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}#)
+                               (#{chi-lambda-case\ 775}#
+                                 #{e\ 3514}#
+                                 #{r\ 3515}#
+                                 #{w\ 3516}#
+                                 #{s\ 3517}#
+                                 #{mod\ 3518}#
+                                 #{lambda*-formals\ 773}#
+                                 (cons (cons #{args\ 3534}#
+                                             (cons #{e1\ 3535}# #{e2\ 3536}#))
+                                       (map (lambda (#{tmp\ 3543}#
+                                                     #{tmp\ 3542}#
+                                                     #{tmp\ 3541}#)
+                                              (cons #{tmp\ 3541}#
+                                                    (cons #{tmp\ 3542}#
+                                                          #{tmp\ 3543}#)))
+                                            #{e2*\ 3539}#
+                                            #{e1*\ 3538}#
+                                            #{args*\ 3537}#))))
+                             (lambda (#{meta\ 3545}# #{lcase\ 3546}#)
+                               (#{build-case-lambda\ 610}#
+                                 #{s\ 3517}#
+                                 #{meta\ 3545}#
+                                 #{lcase\ 3546}#))))
+                         #{tmp\ 3525}#)
+                  ((lambda (#{_\ 3550}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 13997}#))
-                   #{tmp\ 14007}#)))
+                       #{e\ 3514}#))
+                   #{tmp\ 3524}#)))
               ($sc-dispatch
-                #{tmp\ 14007}#
+                #{tmp\ 3524}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 13997}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3514}#)))
+      (#{global-extend\ 662}#
         'core
         'let
-        (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}#))
+        (letrec ((#{chi-let\ 3552}#
+                   (lambda (#{e\ 3553}#
+                            #{r\ 3554}#
+                            #{w\ 3555}#
+                            #{s\ 3556}#
+                            #{mod\ 3557}#
+                            #{constructor\ 3558}#
+                            #{ids\ 3559}#
+                            #{vals\ 3560}#
+                            #{exps\ 3561}#)
+                     (if (not (#{valid-bound-ids?\ 729}# #{ids\ 3559}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{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}#)
+                         #{e\ 3553}#)
+                       (let ((#{labels\ 3573}#
+                               (#{gen-labels\ 684}# #{ids\ 3559}#))
+                             (#{new-vars\ 3574}#
+                               (map #{gen-var\ 779}# #{ids\ 3559}#)))
+                         (let ((#{nw\ 3577}#
+                                 (#{make-binding-wrap\ 713}#
+                                   #{ids\ 3559}#
+                                   #{labels\ 3573}#
+                                   #{w\ 3555}#))
+                               (#{nr\ 3578}#
+                                 (#{extend-var-env\ 656}#
+                                   #{labels\ 3573}#
+                                   #{new-vars\ 3574}#
+                                   #{r\ 3554}#)))
+                           (#{constructor\ 3558}#
+                             #{s\ 3556}#
+                             (map syntax->datum #{ids\ 3559}#)
+                             #{new-vars\ 3574}#
+                             (map (lambda (#{x\ 3579}#)
+                                    (#{chi\ 751}#
+                                      #{x\ 3579}#
+                                      #{r\ 3554}#
+                                      #{w\ 3555}#
+                                      #{mod\ 3557}#))
+                                  #{vals\ 3560}#)
+                             (#{chi-body\ 759}#
+                               #{exps\ 3561}#
+                               (#{source-wrap\ 737}#
+                                 #{e\ 3553}#
+                                 #{nw\ 3577}#
+                                 #{s\ 3556}#
+                                 #{mod\ 3557}#)
+                               #{nr\ 3578}#
+                               #{nw\ 3577}#
+                               #{mod\ 3557}#))))))))
+          (lambda (#{e\ 3581}#
+                   #{r\ 3582}#
+                   #{w\ 3583}#
+                   #{s\ 3584}#
+                   #{mod\ 3585}#)
+            ((lambda (#{tmp\ 3591}#)
+               ((lambda (#{tmp\ 3592}#)
+                  (if (if #{tmp\ 3592}#
+                        (apply (lambda (#{_\ 3598}#
+                                        #{id\ 3599}#
+                                        #{val\ 3600}#
+                                        #{e1\ 3601}#
+                                        #{e2\ 3602}#)
+                                 (and-map #{id?\ 666}# #{id\ 3599}#))
+                               #{tmp\ 3592}#)
                         #f)
-                    (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}#)
+                    (apply (lambda (#{_\ 3609}#
+                                    #{id\ 3610}#
+                                    #{val\ 3611}#
+                                    #{e1\ 3612}#
+                                    #{e2\ 3613}#)
+                             (#{chi-let\ 3552}#
+                               #{e\ 3581}#
+                               #{r\ 3582}#
+                               #{w\ 3583}#
+                               #{s\ 3584}#
+                               #{mod\ 3585}#
+                               #{build-let\ 620}#
+                               #{id\ 3610}#
+                               #{val\ 3611}#
+                               (cons #{e1\ 3612}# #{e2\ 3613}#)))
+                           #{tmp\ 3592}#)
+                    ((lambda (#{tmp\ 3617}#)
+                       (if (if #{tmp\ 3617}#
+                             (apply (lambda (#{_\ 3624}#
+                                             #{f\ 3625}#
+                                             #{id\ 3626}#
+                                             #{val\ 3627}#
+                                             #{e1\ 3628}#
+                                             #{e2\ 3629}#)
+                                      (if (#{id?\ 666}# #{f\ 3625}#)
+                                        (and-map #{id?\ 666}# #{id\ 3626}#)
                                         #f))
-                                    #{tmp\ 14100}#)
+                                    #{tmp\ 3617}#)
                              #f)
-                         (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}#)
+                         (apply (lambda (#{_\ 3639}#
+                                         #{f\ 3640}#
+                                         #{id\ 3641}#
+                                         #{val\ 3642}#
+                                         #{e1\ 3643}#
+                                         #{e2\ 3644}#)
+                                  (#{chi-let\ 3552}#
+                                    #{e\ 3581}#
+                                    #{r\ 3582}#
+                                    #{w\ 3583}#
+                                    #{s\ 3584}#
+                                    #{mod\ 3585}#
+                                    #{build-named-let\ 622}#
+                                    (cons #{f\ 3640}# #{id\ 3641}#)
+                                    #{val\ 3642}#
+                                    (cons #{e1\ 3643}# #{e2\ 3644}#)))
+                                #{tmp\ 3617}#)
+                         ((lambda (#{_\ 3649}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 11222}#
-                                #{e\ 14064}#
-                                #{w\ 14066}#
-                                #{s\ 14067}#
-                                #{mod\ 14068}#)))
-                          #{tmp\ 14074}#)))
+                              (#{source-wrap\ 737}#
+                                #{e\ 3581}#
+                                #{w\ 3583}#
+                                #{s\ 3584}#
+                                #{mod\ 3585}#)))
+                          #{tmp\ 3591}#)))
                      ($sc-dispatch
-                       #{tmp\ 14074}#
+                       #{tmp\ 3591}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 14074}#
+                  #{tmp\ 3591}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 14064}#))))
-      (#{global-extend\ 11147}#
+             #{e\ 3581}#))))
+      (#{global-extend\ 662}#
         'core
         'letrec
-        (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}#)
+        (lambda (#{e\ 3650}#
+                 #{r\ 3651}#
+                 #{w\ 3652}#
+                 #{s\ 3653}#
+                 #{mod\ 3654}#)
+          ((lambda (#{tmp\ 3660}#)
+             ((lambda (#{tmp\ 3661}#)
+                (if (if #{tmp\ 3661}#
+                      (apply (lambda (#{_\ 3667}#
+                                      #{id\ 3668}#
+                                      #{val\ 3669}#
+                                      #{e1\ 3670}#
+                                      #{e2\ 3671}#)
+                               (and-map #{id?\ 666}# #{id\ 3668}#))
+                             #{tmp\ 3661}#)
                       #f)
-                  (apply (lambda (#{_\ 14161}#
-                                  #{id\ 14162}#
-                                  #{val\ 14163}#
-                                  #{e1\ 14164}#
-                                  #{e2\ 14165}#)
-                           (let ((#{ids\ 14167}# #{id\ 14162}#))
-                             (if (not (#{valid-bound-ids?\ 11214}#
-                                        #{ids\ 14167}#))
+                  (apply (lambda (#{_\ 3678}#
+                                  #{id\ 3679}#
+                                  #{val\ 3680}#
+                                  #{e1\ 3681}#
+                                  #{e2\ 3682}#)
+                           (let ((#{ids\ 3684}# #{id\ 3679}#))
+                             (if (not (#{valid-bound-ids?\ 729}#
+                                        #{ids\ 3684}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{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}#)
+                                 #{e\ 3650}#)
+                               (let ((#{labels\ 3688}#
+                                       (#{gen-labels\ 684}# #{ids\ 3684}#))
+                                     (#{new-vars\ 3689}#
+                                       (map #{gen-var\ 779}# #{ids\ 3684}#)))
+                                 (let ((#{w\ 3692}#
+                                         (#{make-binding-wrap\ 713}#
+                                           #{ids\ 3684}#
+                                           #{labels\ 3688}#
+                                           #{w\ 3652}#))
+                                       (#{r\ 3693}#
+                                         (#{extend-var-env\ 656}#
+                                           #{labels\ 3688}#
+                                           #{new-vars\ 3689}#
+                                           #{r\ 3651}#)))
+                                   (#{build-letrec\ 624}#
+                                     #{s\ 3653}#
+                                     (map syntax->datum #{ids\ 3684}#)
+                                     #{new-vars\ 3689}#
+                                     (map (lambda (#{x\ 3694}#)
+                                            (#{chi\ 751}#
+                                              #{x\ 3694}#
+                                              #{r\ 3693}#
+                                              #{w\ 3692}#
+                                              #{mod\ 3654}#))
+                                          #{val\ 3680}#)
+                                     (#{chi-body\ 759}#
+                                       (cons #{e1\ 3681}# #{e2\ 3682}#)
+                                       (#{source-wrap\ 737}#
+                                         #{e\ 3650}#
+                                         #{w\ 3692}#
+                                         #{s\ 3653}#
+                                         #{mod\ 3654}#)
+                                       #{r\ 3693}#
+                                       #{w\ 3692}#
+                                       #{mod\ 3654}#)))))))
+                         #{tmp\ 3661}#)
+                  ((lambda (#{_\ 3699}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 11222}#
-                         #{e\ 14133}#
-                         #{w\ 14135}#
-                         #{s\ 14136}#
-                         #{mod\ 14137}#)))
-                   #{tmp\ 14143}#)))
+                       (#{source-wrap\ 737}#
+                         #{e\ 3650}#
+                         #{w\ 3652}#
+                         #{s\ 3653}#
+                         #{mod\ 3654}#)))
+                   #{tmp\ 3660}#)))
               ($sc-dispatch
-                #{tmp\ 14143}#
+                #{tmp\ 3660}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 14133}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3650}#)))
+      (#{global-extend\ 662}#
         'core
         'set!
-        (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}#)
+        (lambda (#{e\ 3700}#
+                 #{r\ 3701}#
+                 #{w\ 3702}#
+                 #{s\ 3703}#
+                 #{mod\ 3704}#)
+          ((lambda (#{tmp\ 3710}#)
+             ((lambda (#{tmp\ 3711}#)
+                (if (if #{tmp\ 3711}#
+                      (apply (lambda (#{_\ 3715}# #{id\ 3716}# #{val\ 3717}#)
+                               (#{id?\ 666}# #{id\ 3716}#))
+                             #{tmp\ 3711}#)
                       #f)
-                  (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}#
+                  (apply (lambda (#{_\ 3721}# #{id\ 3722}# #{val\ 3723}#)
+                           (let ((#{val\ 3726}#
+                                   (#{chi\ 751}#
+                                     #{val\ 3723}#
+                                     #{r\ 3701}#
+                                     #{w\ 3702}#
+                                     #{mod\ 3704}#))
+                                 (#{n\ 3727}#
+                                   (#{id-var-name\ 723}#
+                                     #{id\ 3722}#
+                                     #{w\ 3702}#)))
+                             (let ((#{b\ 3729}#
+                                     (#{lookup\ 660}#
+                                       #{n\ 3727}#
+                                       #{r\ 3701}#
+                                       #{mod\ 3704}#)))
+                               (let ((#{atom-key\ 3732}#
+                                       (#{binding-type\ 649}# #{b\ 3729}#)))
+                                 (if (memv #{atom-key\ 3732}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 11081}#
-                                     #{s\ 14186}#
-                                     (syntax->datum #{id\ 14205}#)
-                                     (#{binding-value\ 11136}# #{b\ 14212}#)
-                                     #{val\ 14209}#)
-                                   (if (memv #{atom-key\ 14215}#
+                                   (#{build-lexical-assignment\ 596}#
+                                     #{s\ 3703}#
+                                     (syntax->datum #{id\ 3722}#)
+                                     (#{binding-value\ 651}# #{b\ 3729}#)
+                                     #{val\ 3726}#)
+                                   (if (memv #{atom-key\ 3732}#
                                              '(global))
-                                     (#{build-global-assignment\ 11087}#
-                                       #{s\ 14186}#
-                                       #{n\ 14210}#
-                                       #{val\ 14209}#
-                                       #{mod\ 14187}#)
-                                     (if (memv #{atom-key\ 14215}#
+                                     (#{build-global-assignment\ 602}#
+                                       #{s\ 3703}#
+                                       #{n\ 3727}#
+                                       #{val\ 3726}#
+                                       #{mod\ 3704}#)
+                                     (if (memv #{atom-key\ 3732}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 11220}#
-                                           #{id\ 14205}#
-                                           #{w\ 14185}#
-                                           #{mod\ 14187}#))
+                                         (#{wrap\ 735}#
+                                           #{id\ 3722}#
+                                           #{w\ 3702}#
+                                           #{mod\ 3704}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{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}#)
+                                         (#{source-wrap\ 737}#
+                                           #{e\ 3700}#
+                                           #{w\ 3702}#
+                                           #{s\ 3703}#
+                                           #{mod\ 3704}#)))))))))
+                         #{tmp\ 3711}#)
+                  ((lambda (#{tmp\ 3737}#)
+                     (if #{tmp\ 3737}#
+                       (apply (lambda (#{_\ 3742}#
+                                       #{head\ 3743}#
+                                       #{tail\ 3744}#
+                                       #{val\ 3745}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 11232}#
-                                      #{head\ 14226}#
-                                      #{r\ 14184}#
+                                    (#{syntax-type\ 747}#
+                                      #{head\ 3743}#
+                                      #{r\ 3701}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 14187}#
+                                      #{mod\ 3704}#
                                       #t))
-                                  (lambda (#{type\ 14231}#
-                                           #{value\ 14232}#
-                                           #{ee\ 14233}#
-                                           #{ww\ 14234}#
-                                           #{ss\ 14235}#
-                                           #{modmod\ 14236}#)
-                                    (if (memv #{type\ 14231}#
+                                  (lambda (#{type\ 3748}#
+                                           #{value\ 3749}#
+                                           #{ee\ 3750}#
+                                           #{ww\ 3751}#
+                                           #{ss\ 3752}#
+                                           #{modmod\ 3753}#)
+                                    (if (memv #{type\ 3748}#
                                               '(module-ref))
-                                      (let ((#{val\ 14245}#
-                                              (#{chi\ 11236}#
-                                                #{val\ 14228}#
-                                                #{r\ 14184}#
-                                                #{w\ 14185}#
-                                                #{mod\ 14187}#)))
+                                      (let ((#{val\ 3762}#
+                                              (#{chi\ 751}#
+                                                #{val\ 3745}#
+                                                #{r\ 3701}#
+                                                #{w\ 3702}#
+                                                #{mod\ 3704}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{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}#)
+                                            (#{value\ 3749}#
+                                              (cons #{head\ 3743}#
+                                                    #{tail\ 3744}#)
+                                              #{r\ 3701}#
+                                              #{w\ 3702}#))
+                                          (lambda (#{e\ 3764}#
+                                                   #{r\ 3765}#
+                                                   #{w\ 3766}#
+                                                   #{s*\ 3767}#
+                                                   #{mod\ 3768}#)
+                                            ((lambda (#{tmp\ 3774}#)
+                                               ((lambda (#{tmp\ 3775}#)
+                                                  (if (if #{tmp\ 3775}#
+                                                        (apply (lambda (#{e\ 
3777}#)
+                                                                 (#{id?\ 666}#
+                                                                   #{e\ 
3777}#))
+                                                               #{tmp\ 3775}#)
                                                         #f)
-                                                    (apply (lambda (#{e\ 
14262}#)
-                                                             
(#{build-global-assignment\ 11087}#
-                                                               #{s\ 14186}#
+                                                    (apply (lambda (#{e\ 
3779}#)
+                                                             
(#{build-global-assignment\ 602}#
+                                                               #{s\ 3703}#
                                                                (syntax->datum
-                                                                 #{e\ 14262}#)
-                                                               #{val\ 14245}#
-                                                               #{mod\ 14251}#))
-                                                           #{tmp\ 14258}#)
+                                                                 #{e\ 3779}#)
+                                                               #{val\ 3762}#
+                                                               #{mod\ 3768}#))
+                                                           #{tmp\ 3775}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression 
failed to match any pattern"
-                                                      #{tmp\ 14257}#)))
-                                                (list #{tmp\ 14257}#)))
-                                             #{e\ 14247}#))))
-                                      (#{build-application\ 11073}#
-                                        #{s\ 14186}#
-                                        (#{chi\ 11236}#
+                                                      #{tmp\ 3774}#)))
+                                                (list #{tmp\ 3774}#)))
+                                             #{e\ 3764}#))))
+                                      (#{build-application\ 588}#
+                                        #{s\ 3703}#
+                                        (#{chi\ 751}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -9512,22 +9410,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i14237"
-                                                        "i14238"
-                                                        "i14239"
-                                                        "i14240"
-                                                        "i14241"
-                                                        "i14242"))
+                                                      #("i3754"
+                                                        "i3755"
+                                                        "i3756"
+                                                        "i3757"
+                                                        "i3758"
+                                                        "i3759"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i14221"
-                                                        "i14222"
-                                                        "i14223"
-                                                        "i14224"))
+                                                      #("i3738"
+                                                        "i3739"
+                                                        "i3740"
+                                                        "i3741"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -9536,11 +9434,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i14188"
-                                                        "i14189"
-                                                        "i14190"
-                                                        "i14191"
-                                                        "i14192"))
+                                                      #("i3705"
+                                                        "i3706"
+                                                        "i3707"
+                                                        "i3708"
+                                                        "i3709"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -9776,180 +9674,178 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("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"))
+                                                      ("i780"
+                                                       "i778"
+                                                       "i776"
+                                                       "i774"
+                                                       "i772"
+                                                       "i770"
+                                                       "i768"
+                                                       "i766"
+                                                       "i764"
+                                                       "i762"
+                                                       "i760"
+                                                       "i758"
+                                                       "i756"
+                                                       "i754"
+                                                       "i752"
+                                                       "i750"
+                                                       "i748"
+                                                       "i746"
+                                                       "i744"
+                                                       "i742"
+                                                       "i740"
+                                                       "i738"
+                                                       "i736"
+                                                       "i734"
+                                                       "i732"
+                                                       "i730"
+                                                       "i728"
+                                                       "i726"
+                                                       "i724"
+                                                       "i722"
+                                                       "i720"
+                                                       "i718"
+                                                       "i716"
+                                                       "i714"
+                                                       "i712"
+                                                       "i710"
+                                                       "i709"
+                                                       "i708"
+                                                       "i706"
+                                                       "i705"
+                                                       "i704"
+                                                       "i703"
+                                                       "i702"
+                                                       "i700"
+                                                       "i698"
+                                                       "i696"
+                                                       "i694"
+                                                       "i692"
+                                                       "i690"
+                                                       "i688"
+                                                       "i686"
+                                                       "i683"
+                                                       "i681"
+                                                       "i680"
+                                                       "i679"
+                                                       "i678"
+                                                       "i677"
+                                                       "i676"
+                                                       "i674"
+                                                       "i672"
+                                                       "i670"
+                                                       "i668"
+                                                       "i667"
+                                                       "i665"
+                                                       "i663"
+                                                       "i661"
+                                                       "i659"
+                                                       "i657"
+                                                       "i655"
+                                                       "i653"
+                                                       "i652"
+                                                       "i650"
+                                                       "i648"
+                                                       "i647"
+                                                       "i646"
+                                                       "i644"
+                                                       "i643"
+                                                       "i641"
+                                                       "i639"
+                                                       "i637"
+                                                       "i635"
+                                                       "i633"
+                                                       "i631"
+                                                       "i629"
+                                                       "i627"
+                                                       "i625"
+                                                       "i623"
+                                                       "i621"
+                                                       "i619"
+                                                       "i617"
+                                                       "i615"
+                                                       "i613"
+                                                       "i611"
+                                                       "i609"
+                                                       "i607"
+                                                       "i605"
+                                                       "i603"
+                                                       "i601"
+                                                       "i599"
+                                                       "i597"
+                                                       "i595"
+                                                       "i593"
+                                                       "i591"
+                                                       "i589"
+                                                       "i587"
+                                                       "i585"
+                                                       "i583"
+                                                       "i581"
+                                                       "i579"
+                                                       "i578"
+                                                       "i576"
+                                                       "i574"
+                                                       "i572"
+                                                       "i570"
+                                                       "i568"
+                                                       "i566"
+                                                       "i564"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i10952" "i10950")))
+                                                      ("i467" "i465")))
                                                    (hygiene guile))
-                                                #{head\ 14226}#)
-                                          #{r\ 14184}#
-                                          #{w\ 14185}#
-                                          #{mod\ 14187}#)
-                                        (map (lambda (#{e\ 14264}#)
-                                               (#{chi\ 11236}#
-                                                 #{e\ 14264}#
-                                                 #{r\ 14184}#
-                                                 #{w\ 14185}#
-                                                 #{mod\ 14187}#))
+                                                #{head\ 3743}#)
+                                          #{r\ 3701}#
+                                          #{w\ 3702}#
+                                          #{mod\ 3704}#)
+                                        (map (lambda (#{e\ 3781}#)
+                                               (#{chi\ 751}#
+                                                 #{e\ 3781}#
+                                                 #{r\ 3701}#
+                                                 #{w\ 3702}#
+                                                 #{mod\ 3704}#))
                                              (append
-                                               #{tail\ 14227}#
-                                               (list #{val\ 14228}#))))))))
-                              #{tmp\ 14220}#)
-                       ((lambda (#{_\ 14268}#)
+                                               #{tail\ 3744}#
+                                               (list #{val\ 3745}#))))))))
+                              #{tmp\ 3737}#)
+                       ((lambda (#{_\ 3785}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 11222}#
-                              #{e\ 14183}#
-                              #{w\ 14185}#
-                              #{s\ 14186}#
-                              #{mod\ 14187}#)))
-                        #{tmp\ 14193}#)))
+                            (#{source-wrap\ 737}#
+                              #{e\ 3700}#
+                              #{w\ 3702}#
+                              #{s\ 3703}#
+                              #{mod\ 3704}#)))
+                        #{tmp\ 3710}#)))
                    ($sc-dispatch
-                     #{tmp\ 14193}#
+                     #{tmp\ 3710}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 14193}#
+                #{tmp\ 3710}#
                 '(any any any))))
-           #{e\ 14183}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3700}#)))
+      (#{global-extend\ 662}#
         'module-ref
         '@
-        (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}#)
+        (lambda (#{e\ 3786}# #{r\ 3787}# #{w\ 3788}#)
+          ((lambda (#{tmp\ 3792}#)
+             ((lambda (#{tmp\ 3793}#)
+                (if (if #{tmp\ 3793}#
+                      (apply (lambda (#{_\ 3797}# #{mod\ 3798}# #{id\ 3799}#)
+                               (if (and-map #{id?\ 666}# #{mod\ 3798}#)
+                                 (#{id?\ 666}# #{id\ 3799}#)
                                  #f))
-                             #{tmp\ 14276}#)
+                             #{tmp\ 3793}#)
                       #f)
-                  (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#)
+                  (apply (lambda (#{_\ 3806}# #{mod\ 3807}# #{id\ 3808}#)
                            (values
-                             (syntax->datum #{id\ 14291}#)
-                             #{r\ 14270}#
-                             #{w\ 14271}#
+                             (syntax->datum #{id\ 3808}#)
+                             #{r\ 3787}#
+                             #{w\ 3788}#
                              #f
                              (syntax->datum
                                (cons '#(syntax-object
@@ -9958,12 +9854,12 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i14286" "i14287" "i14288"))
+                                           #("i3803" "i3804" "i3805"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(e r w)
                                            #((top) (top) (top))
-                                           #("i14272" "i14273" "i14274"))
+                                           #("i3789" "i3790" "i3791"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10199,194 +10095,193 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("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"))
+                                           ("i780"
+                                            "i778"
+                                            "i776"
+                                            "i774"
+                                            "i772"
+                                            "i770"
+                                            "i768"
+                                            "i766"
+                                            "i764"
+                                            "i762"
+                                            "i760"
+                                            "i758"
+                                            "i756"
+                                            "i754"
+                                            "i752"
+                                            "i750"
+                                            "i748"
+                                            "i746"
+                                            "i744"
+                                            "i742"
+                                            "i740"
+                                            "i738"
+                                            "i736"
+                                            "i734"
+                                            "i732"
+                                            "i730"
+                                            "i728"
+                                            "i726"
+                                            "i724"
+                                            "i722"
+                                            "i720"
+                                            "i718"
+                                            "i716"
+                                            "i714"
+                                            "i712"
+                                            "i710"
+                                            "i709"
+                                            "i708"
+                                            "i706"
+                                            "i705"
+                                            "i704"
+                                            "i703"
+                                            "i702"
+                                            "i700"
+                                            "i698"
+                                            "i696"
+                                            "i694"
+                                            "i692"
+                                            "i690"
+                                            "i688"
+                                            "i686"
+                                            "i683"
+                                            "i681"
+                                            "i680"
+                                            "i679"
+                                            "i678"
+                                            "i677"
+                                            "i676"
+                                            "i674"
+                                            "i672"
+                                            "i670"
+                                            "i668"
+                                            "i667"
+                                            "i665"
+                                            "i663"
+                                            "i661"
+                                            "i659"
+                                            "i657"
+                                            "i655"
+                                            "i653"
+                                            "i652"
+                                            "i650"
+                                            "i648"
+                                            "i647"
+                                            "i646"
+                                            "i644"
+                                            "i643"
+                                            "i641"
+                                            "i639"
+                                            "i637"
+                                            "i635"
+                                            "i633"
+                                            "i631"
+                                            "i629"
+                                            "i627"
+                                            "i625"
+                                            "i623"
+                                            "i621"
+                                            "i619"
+                                            "i617"
+                                            "i615"
+                                            "i613"
+                                            "i611"
+                                            "i609"
+                                            "i607"
+                                            "i605"
+                                            "i603"
+                                            "i601"
+                                            "i599"
+                                            "i597"
+                                            "i595"
+                                            "i593"
+                                            "i591"
+                                            "i589"
+                                            "i587"
+                                            "i585"
+                                            "i583"
+                                            "i581"
+                                            "i579"
+                                            "i578"
+                                            "i576"
+                                            "i574"
+                                            "i572"
+                                            "i570"
+                                            "i568"
+                                            "i566"
+                                            "i564"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i10952" "i10950")))
+                                           ("i467" "i465")))
                                         (hygiene guile))
-                                     #{mod\ 14290}#))))
-                         #{tmp\ 14276}#)
+                                     #{mod\ 3807}#))))
+                         #{tmp\ 3793}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 14275}#)))
+                    #{tmp\ 3792}#)))
               ($sc-dispatch
-                #{tmp\ 14275}#
+                #{tmp\ 3792}#
                 '(any each-any any))))
-           #{e\ 14269}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3786}#)))
+      (#{global-extend\ 662}#
         'module-ref
         '@@
-        (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}#)
+        (lambda (#{e\ 3810}# #{r\ 3811}# #{w\ 3812}#)
+          (letrec ((#{remodulate\ 3817}#
+                     (lambda (#{x\ 3818}# #{mod\ 3819}#)
+                       (if (pair? #{x\ 3818}#)
+                         (cons (#{remodulate\ 3817}#
+                                 (car #{x\ 3818}#)
+                                 #{mod\ 3819}#)
+                               (#{remodulate\ 3817}#
+                                 (cdr #{x\ 3818}#)
+                                 #{mod\ 3819}#))
+                         (if (#{syntax-object?\ 630}# #{x\ 3818}#)
+                           (#{make-syntax-object\ 628}#
+                             (#{remodulate\ 3817}#
+                               (#{syntax-object-expression\ 632}# #{x\ 3818}#)
+                               #{mod\ 3819}#)
+                             (#{syntax-object-wrap\ 634}# #{x\ 3818}#)
+                             #{mod\ 3819}#)
+                           (if (vector? #{x\ 3818}#)
+                             (let ((#{n\ 3830}# (vector-length #{x\ 3818}#)))
+                               (let ((#{v\ 3832}# (make-vector #{n\ 3830}#)))
+                                 (letrec ((#{loop\ 3835}#
+                                            (lambda (#{i\ 3836}#)
+                                              (if (#{fx=\ 571}#
+                                                    #{i\ 3836}#
+                                                    #{n\ 3830}#)
+                                                (begin (if #f #f) #{v\ 3832}#)
                                                 (begin
                                                   (vector-set!
-                                                    #{v\ 14315}#
-                                                    #{i\ 14319}#
-                                                    (#{remodulate\ 14300}#
+                                                    #{v\ 3832}#
+                                                    #{i\ 3836}#
+                                                    (#{remodulate\ 3817}#
                                                       (vector-ref
-                                                        #{x\ 14301}#
-                                                        #{i\ 14319}#)
-                                                      #{mod\ 14302}#))
-                                                  (#{loop\ 14318}#
-                                                    (#{fx+\ 11052}#
-                                                      #{i\ 14319}#
+                                                        #{x\ 3818}#
+                                                        #{i\ 3836}#)
+                                                      #{mod\ 3819}#))
+                                                  (#{loop\ 3835}#
+                                                    (#{fx+\ 567}#
+                                                      #{i\ 3836}#
                                                       1)))))))
-                                   (#{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}#)
+                                   (#{loop\ 3835}# 0))))
+                             #{x\ 3818}#))))))
+            ((lambda (#{tmp\ 3840}#)
+               ((lambda (#{tmp\ 3841}#)
+                  (if (if #{tmp\ 3841}#
+                        (apply (lambda (#{_\ 3845}#
+                                        #{mod\ 3846}#
+                                        #{exp\ 3847}#)
+                                 (and-map #{id?\ 666}# #{mod\ 3846}#))
+                               #{tmp\ 3841}#)
                         #f)
-                    (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#)
-                             (let ((#{mod\ 14339}#
+                    (apply (lambda (#{_\ 3852}# #{mod\ 3853}# #{exp\ 3854}#)
+                             (let ((#{mod\ 3856}#
                                      (syntax->datum
                                        (cons '#(syntax-object
                                                 private
@@ -10394,19 +10289,15 @@
                                                  #(ribcage
                                                    #(_ mod exp)
                                                    #((top) (top) (top))
-                                                   #("i14332"
-                                                     "i14333"
-                                                     "i14334"))
+                                                   #("i3849" "i3850" "i3851"))
                                                  #(ribcage
                                                    (remodulate)
                                                    ((top))
-                                                   ("i14299"))
+                                                   ("i3816"))
                                                  #(ribcage
                                                    #(e r w)
                                                    #((top) (top) (top))
-                                                   #("i14296"
-                                                     "i14297"
-                                                     "i14298"))
+                                                   #("i3813" "i3814" "i3815"))
                                                  #(ribcage
                                                    (lambda-var-list
                                                      gen-var
@@ -10642,312 +10533,311 @@
                                                     (top)
                                                     (top)
                                                     (top))
-                                                   ("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"))
+                                                   ("i780"
+                                                    "i778"
+                                                    "i776"
+                                                    "i774"
+                                                    "i772"
+                                                    "i770"
+                                                    "i768"
+                                                    "i766"
+                                                    "i764"
+                                                    "i762"
+                                                    "i760"
+                                                    "i758"
+                                                    "i756"
+                                                    "i754"
+                                                    "i752"
+                                                    "i750"
+                                                    "i748"
+                                                    "i746"
+                                                    "i744"
+                                                    "i742"
+                                                    "i740"
+                                                    "i738"
+                                                    "i736"
+                                                    "i734"
+                                                    "i732"
+                                                    "i730"
+                                                    "i728"
+                                                    "i726"
+                                                    "i724"
+                                                    "i722"
+                                                    "i720"
+                                                    "i718"
+                                                    "i716"
+                                                    "i714"
+                                                    "i712"
+                                                    "i710"
+                                                    "i709"
+                                                    "i708"
+                                                    "i706"
+                                                    "i705"
+                                                    "i704"
+                                                    "i703"
+                                                    "i702"
+                                                    "i700"
+                                                    "i698"
+                                                    "i696"
+                                                    "i694"
+                                                    "i692"
+                                                    "i690"
+                                                    "i688"
+                                                    "i686"
+                                                    "i683"
+                                                    "i681"
+                                                    "i680"
+                                                    "i679"
+                                                    "i678"
+                                                    "i677"
+                                                    "i676"
+                                                    "i674"
+                                                    "i672"
+                                                    "i670"
+                                                    "i668"
+                                                    "i667"
+                                                    "i665"
+                                                    "i663"
+                                                    "i661"
+                                                    "i659"
+                                                    "i657"
+                                                    "i655"
+                                                    "i653"
+                                                    "i652"
+                                                    "i650"
+                                                    "i648"
+                                                    "i647"
+                                                    "i646"
+                                                    "i644"
+                                                    "i643"
+                                                    "i641"
+                                                    "i639"
+                                                    "i637"
+                                                    "i635"
+                                                    "i633"
+                                                    "i631"
+                                                    "i629"
+                                                    "i627"
+                                                    "i625"
+                                                    "i623"
+                                                    "i621"
+                                                    "i619"
+                                                    "i617"
+                                                    "i615"
+                                                    "i613"
+                                                    "i611"
+                                                    "i609"
+                                                    "i607"
+                                                    "i605"
+                                                    "i603"
+                                                    "i601"
+                                                    "i599"
+                                                    "i597"
+                                                    "i595"
+                                                    "i593"
+                                                    "i591"
+                                                    "i589"
+                                                    "i587"
+                                                    "i585"
+                                                    "i583"
+                                                    "i581"
+                                                    "i579"
+                                                    "i578"
+                                                    "i576"
+                                                    "i574"
+                                                    "i572"
+                                                    "i570"
+                                                    "i568"
+                                                    "i566"
+                                                    "i564"))
                                                  #(ribcage
                                                    (define-structure and-map*)
                                                    ((top) (top))
-                                                   ("i10952" "i10950")))
+                                                   ("i467" "i465")))
                                                 (hygiene guile))
-                                             #{mod\ 14336}#))))
+                                             #{mod\ 3853}#))))
                                (values
-                                 (#{remodulate\ 14300}#
-                                   #{exp\ 14337}#
-                                   #{mod\ 14339}#)
-                                 #{r\ 14294}#
-                                 #{w\ 14295}#
-                                 (#{source-annotation\ 11130}# #{exp\ 14337}#)
-                                 #{mod\ 14339}#)))
-                           #{tmp\ 14324}#)
+                                 (#{remodulate\ 3817}#
+                                   #{exp\ 3854}#
+                                   #{mod\ 3856}#)
+                                 #{r\ 3811}#
+                                 #{w\ 3812}#
+                                 (#{source-annotation\ 645}# #{exp\ 3854}#)
+                                 #{mod\ 3856}#)))
+                           #{tmp\ 3841}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 14323}#)))
+                      #{tmp\ 3840}#)))
                 ($sc-dispatch
-                  #{tmp\ 14323}#
+                  #{tmp\ 3840}#
                   '(any each-any any))))
-             #{e\ 14293}#))))
-      (#{global-extend\ 11147}#
+             #{e\ 3810}#))))
+      (#{global-extend\ 662}#
         'core
         'if
-        (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}#)
+        (lambda (#{e\ 3858}#
+                 #{r\ 3859}#
+                 #{w\ 3860}#
+                 #{s\ 3861}#
+                 #{mod\ 3862}#)
+          ((lambda (#{tmp\ 3868}#)
+             ((lambda (#{tmp\ 3869}#)
+                (if #{tmp\ 3869}#
+                  (apply (lambda (#{_\ 3873}# #{test\ 3874}# #{then\ 3875}#)
+                           (#{build-conditional\ 590}#
+                             #{s\ 3861}#
+                             (#{chi\ 751}#
+                               #{test\ 3874}#
+                               #{r\ 3859}#
+                               #{w\ 3860}#
+                               #{mod\ 3862}#)
+                             (#{chi\ 751}#
+                               #{then\ 3875}#
+                               #{r\ 3859}#
+                               #{w\ 3860}#
+                               #{mod\ 3862}#)
+                             (#{build-void\ 586}# #f)))
+                         #{tmp\ 3869}#)
+                  ((lambda (#{tmp\ 3877}#)
+                     (if #{tmp\ 3877}#
+                       (apply (lambda (#{_\ 3882}#
+                                       #{test\ 3883}#
+                                       #{then\ 3884}#
+                                       #{else\ 3885}#)
+                                (#{build-conditional\ 590}#
+                                  #{s\ 3861}#
+                                  (#{chi\ 751}#
+                                    #{test\ 3883}#
+                                    #{r\ 3859}#
+                                    #{w\ 3860}#
+                                    #{mod\ 3862}#)
+                                  (#{chi\ 751}#
+                                    #{then\ 3884}#
+                                    #{r\ 3859}#
+                                    #{w\ 3860}#
+                                    #{mod\ 3862}#)
+                                  (#{chi\ 751}#
+                                    #{else\ 3885}#
+                                    #{r\ 3859}#
+                                    #{w\ 3860}#
+                                    #{mod\ 3862}#)))
+                              #{tmp\ 3877}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 14351}#)))
+                         #{tmp\ 3868}#)))
                    ($sc-dispatch
-                     #{tmp\ 14351}#
+                     #{tmp\ 3868}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 14351}#
+                #{tmp\ 3868}#
                 '(any any any))))
-           #{e\ 14341}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3858}#)))
+      (#{global-extend\ 662}#
         'core
         'with-fluids
-        (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}#)
+        (lambda (#{e\ 3886}#
+                 #{r\ 3887}#
+                 #{w\ 3888}#
+                 #{s\ 3889}#
+                 #{mod\ 3890}#)
+          ((lambda (#{tmp\ 3896}#)
+             ((lambda (#{tmp\ 3897}#)
+                (if #{tmp\ 3897}#
+                  (apply (lambda (#{_\ 3903}#
+                                  #{fluid\ 3904}#
+                                  #{val\ 3905}#
+                                  #{b\ 3906}#
+                                  #{b*\ 3907}#)
+                           (#{build-dynlet\ 592}#
+                             #{s\ 3889}#
+                             (map (lambda (#{x\ 3908}#)
+                                    (#{chi\ 751}#
+                                      #{x\ 3908}#
+                                      #{r\ 3887}#
+                                      #{w\ 3888}#
+                                      #{mod\ 3890}#))
+                                  #{fluid\ 3904}#)
+                             (map (lambda (#{x\ 3911}#)
+                                    (#{chi\ 751}#
+                                      #{x\ 3911}#
+                                      #{r\ 3887}#
+                                      #{w\ 3888}#
+                                      #{mod\ 3890}#))
+                                  #{val\ 3905}#)
+                             (#{chi-body\ 759}#
+                               (cons #{b\ 3906}# #{b*\ 3907}#)
+                               (#{source-wrap\ 737}#
+                                 #{e\ 3886}#
+                                 #{w\ 3888}#
+                                 #{s\ 3889}#
+                                 #{mod\ 3890}#)
+                               #{r\ 3887}#
+                               #{w\ 3888}#
+                               #{mod\ 3890}#)))
+                         #{tmp\ 3897}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 14379}#)))
+                    #{tmp\ 3896}#)))
               ($sc-dispatch
-                #{tmp\ 14379}#
+                #{tmp\ 3896}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 14369}#)))
-      (#{global-extend\ 11147}#
+           #{e\ 3886}#)))
+      (#{global-extend\ 662}#
         'begin
         'begin
         '())
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'define
         'define
         '())
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 11147}#
+      (#{global-extend\ 662}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 14405}#
-                   (lambda (#{x\ 14406}#
-                            #{keys\ 14407}#
-                            #{clauses\ 14408}#
-                            #{r\ 14409}#
-                            #{mod\ 14410}#)
-                     (if (null? #{clauses\ 14408}#)
-                       (#{build-application\ 11073}#
+        (letrec ((#{gen-syntax-case\ 3922}#
+                   (lambda (#{x\ 3923}#
+                            #{keys\ 3924}#
+                            #{clauses\ 3925}#
+                            #{r\ 3926}#
+                            #{mod\ 3927}#)
+                     (if (null? #{clauses\ 3925}#)
+                       (#{build-application\ 588}#
                          #f
-                         (#{build-primref\ 11099}#
+                         (#{build-primref\ 614}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 11101}# #f #f)
-                               (#{build-data\ 11101}#
+                         (list (#{build-data\ 616}# #f #f)
+                               (#{build-data\ 616}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 14406}#))
-                       ((lambda (#{tmp\ 14420}#)
-                          ((lambda (#{tmp\ 14421}#)
-                             (if #{tmp\ 14421}#
-                               (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#)
-                                        (if (if (#{id?\ 11151}# #{pat\ 14424}#)
+                               #{x\ 3923}#))
+                       ((lambda (#{tmp\ 3937}#)
+                          ((lambda (#{tmp\ 3938}#)
+                             (if #{tmp\ 3938}#
+                               (apply (lambda (#{pat\ 3941}# #{exp\ 3942}#)
+                                        (if (if (#{id?\ 666}# #{pat\ 3941}#)
                                               (and-map
-                                                (lambda (#{x\ 14428}#)
-                                                  (not (#{free-id=?\ 11210}#
-                                                         #{pat\ 14424}#
-                                                         #{x\ 14428}#)))
+                                                (lambda (#{x\ 3945}#)
+                                                  (not (#{free-id=?\ 725}#
+                                                         #{pat\ 3941}#
+                                                         #{x\ 3945}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i14422"
-                                                              "i14423"))
+                                                            #("i3939" "i3940"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -10960,11 +10850,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i14411"
-                                                              "i14412"
-                                                              "i14413"
-                                                              "i14414"
-                                                              "i14415"))
+                                                            #("i3928"
+                                                              "i3929"
+                                                              "i3930"
+                                                              "i3931"
+                                                              "i3932"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -10974,10 +10864,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i14404"
-                                                             "i14402"
-                                                             "i14400"
-                                                             "i14398"))
+                                                            ("i3921"
+                                                             "i3919"
+                                                             "i3917"
+                                                             "i3915"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -11213,1042 +11103,1031 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("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"))
+                                                            ("i780"
+                                                             "i778"
+                                                             "i776"
+                                                             "i774"
+                                                             "i772"
+                                                             "i770"
+                                                             "i768"
+                                                             "i766"
+                                                             "i764"
+                                                             "i762"
+                                                             "i760"
+                                                             "i758"
+                                                             "i756"
+                                                             "i754"
+                                                             "i752"
+                                                             "i750"
+                                                             "i748"
+                                                             "i746"
+                                                             "i744"
+                                                             "i742"
+                                                             "i740"
+                                                             "i738"
+                                                             "i736"
+                                                             "i734"
+                                                             "i732"
+                                                             "i730"
+                                                             "i728"
+                                                             "i726"
+                                                             "i724"
+                                                             "i722"
+                                                             "i720"
+                                                             "i718"
+                                                             "i716"
+                                                             "i714"
+                                                             "i712"
+                                                             "i710"
+                                                             "i709"
+                                                             "i708"
+                                                             "i706"
+                                                             "i705"
+                                                             "i704"
+                                                             "i703"
+                                                             "i702"
+                                                             "i700"
+                                                             "i698"
+                                                             "i696"
+                                                             "i694"
+                                                             "i692"
+                                                             "i690"
+                                                             "i688"
+                                                             "i686"
+                                                             "i683"
+                                                             "i681"
+                                                             "i680"
+                                                             "i679"
+                                                             "i678"
+                                                             "i677"
+                                                             "i676"
+                                                             "i674"
+                                                             "i672"
+                                                             "i670"
+                                                             "i668"
+                                                             "i667"
+                                                             "i665"
+                                                             "i663"
+                                                             "i661"
+                                                             "i659"
+                                                             "i657"
+                                                             "i655"
+                                                             "i653"
+                                                             "i652"
+                                                             "i650"
+                                                             "i648"
+                                                             "i647"
+                                                             "i646"
+                                                             "i644"
+                                                             "i643"
+                                                             "i641"
+                                                             "i639"
+                                                             "i637"
+                                                             "i635"
+                                                             "i633"
+                                                             "i631"
+                                                             "i629"
+                                                             "i627"
+                                                             "i625"
+                                                             "i623"
+                                                             "i621"
+                                                             "i619"
+                                                             "i617"
+                                                             "i615"
+                                                             "i613"
+                                                             "i611"
+                                                             "i609"
+                                                             "i607"
+                                                             "i605"
+                                                             "i603"
+                                                             "i601"
+                                                             "i599"
+                                                             "i597"
+                                                             "i595"
+                                                             "i593"
+                                                             "i591"
+                                                             "i589"
+                                                             "i587"
+                                                             "i585"
+                                                             "i583"
+                                                             "i581"
+                                                             "i579"
+                                                             "i578"
+                                                             "i576"
+                                                             "i574"
+                                                             "i572"
+                                                             "i570"
+                                                             "i568"
+                                                             "i566"
+                                                             "i564"))
                                                           #(ribcage
                                                             (define-structure
                                                               and-map*)
                                                             ((top) (top))
-                                                            ("i10952"
-                                                             "i10950")))
+                                                            ("i467" "i465")))
                                                          (hygiene guile))
-                                                      #{keys\ 14407}#))
+                                                      #{keys\ 3924}#))
                                               #f)
-                                          (let ((#{labels\ 14432}#
-                                                  (list (#{gen-label\ 
11167}#)))
-                                                (#{var\ 14433}#
-                                                  (#{gen-var\ 11264}#
-                                                    #{pat\ 14424}#)))
-                                            (#{build-application\ 11073}#
+                                          (let ((#{labels\ 3949}#
+                                                  (list (#{gen-label\ 682}#)))
+                                                (#{var\ 3950}#
+                                                  (#{gen-var\ 779}#
+                                                    #{pat\ 3941}#)))
+                                            (#{build-application\ 588}#
                                               #f
-                                              (#{build-simple-lambda\ 11093}#
+                                              (#{build-simple-lambda\ 608}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 14424}#))
+                                                        #{pat\ 3941}#))
                                                 #f
-                                                (list #{var\ 14433}#)
+                                                (list #{var\ 3950}#)
                                                 '()
-                                                (#{chi\ 11236}#
-                                                  #{exp\ 14425}#
-                                                  (#{extend-env\ 11139}#
-                                                    #{labels\ 14432}#
+                                                (#{chi\ 751}#
+                                                  #{exp\ 3942}#
+                                                  (#{extend-env\ 654}#
+                                                    #{labels\ 3949}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
14433}#
+                                                                (cons #{var\ 
3950}#
                                                                       0)))
-                                                    #{r\ 14409}#)
-                                                  (#{make-binding-wrap\ 11198}#
-                                                    (list #{pat\ 14424}#)
-                                                    #{labels\ 14432}#
+                                                    #{r\ 3926}#)
+                                                  (#{make-binding-wrap\ 713}#
+                                                    (list #{pat\ 3941}#)
+                                                    #{labels\ 3949}#
                                                     '(()))
-                                                  #{mod\ 14410}#))
-                                              (list #{x\ 14406}#)))
-                                          (#{gen-clause\ 14403}#
-                                            #{x\ 14406}#
-                                            #{keys\ 14407}#
-                                            (cdr #{clauses\ 14408}#)
-                                            #{r\ 14409}#
-                                            #{pat\ 14424}#
+                                                  #{mod\ 3927}#))
+                                              (list #{x\ 3923}#)))
+                                          (#{gen-clause\ 3920}#
+                                            #{x\ 3923}#
+                                            #{keys\ 3924}#
+                                            (cdr #{clauses\ 3925}#)
+                                            #{r\ 3926}#
+                                            #{pat\ 3941}#
                                             #t
-                                            #{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}#)
+                                            #{exp\ 3942}#
+                                            #{mod\ 3927}#)))
+                                      #{tmp\ 3938}#)
+                               ((lambda (#{tmp\ 3956}#)
+                                  (if #{tmp\ 3956}#
+                                    (apply (lambda (#{pat\ 3960}#
+                                                    #{fender\ 3961}#
+                                                    #{exp\ 3962}#)
+                                             (#{gen-clause\ 3920}#
+                                               #{x\ 3923}#
+                                               #{keys\ 3924}#
+                                               (cdr #{clauses\ 3925}#)
+                                               #{r\ 3926}#
+                                               #{pat\ 3960}#
+                                               #{fender\ 3961}#
+                                               #{exp\ 3962}#
+                                               #{mod\ 3927}#))
+                                           #{tmp\ 3956}#)
+                                    ((lambda (#{_\ 3964}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 14408}#)))
-                                     #{tmp\ 14420}#)))
+                                         (car #{clauses\ 3925}#)))
+                                     #{tmp\ 3937}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 14420}#
+                                  #{tmp\ 3937}#
                                   '(any any any)))))
-                           ($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}#)
+                           ($sc-dispatch #{tmp\ 3937}# (quote (any any)))))
+                        (car #{clauses\ 3925}#)))))
+                 (#{gen-clause\ 3920}#
+                   (lambda (#{x\ 3965}#
+                            #{keys\ 3966}#
+                            #{clauses\ 3967}#
+                            #{r\ 3968}#
+                            #{pat\ 3969}#
+                            #{fender\ 3970}#
+                            #{exp\ 3971}#
+                            #{mod\ 3972}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 14399}#
-                           #{pat\ 14452}#
-                           #{keys\ 14449}#))
-                       (lambda (#{p\ 14464}# #{pvars\ 14465}#)
-                         (if (not (#{distinct-bound-ids?\ 11216}#
-                                    (map car #{pvars\ 14465}#)))
+                         (#{convert-pattern\ 3916}#
+                           #{pat\ 3969}#
+                           #{keys\ 3966}#))
+                       (lambda (#{p\ 3981}# #{pvars\ 3982}#)
+                         (if (not (#{distinct-bound-ids?\ 731}#
+                                    (map car #{pvars\ 3982}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 14452}#)
+                             #{pat\ 3969}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 14472}#)
-                                        (not (#{ellipsis?\ 11252}#
-                                               (car #{x\ 14472}#))))
-                                      #{pvars\ 14465}#))
+                                      (lambda (#{x\ 3989}#)
+                                        (not (#{ellipsis?\ 767}#
+                                               (car #{x\ 3989}#))))
+                                      #{pvars\ 3982}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 14452}#)
-                             (let ((#{y\ 14476}#
-                                     (#{gen-var\ 11264}# (quote tmp))))
-                               (#{build-application\ 11073}#
+                               #{pat\ 3969}#)
+                             (let ((#{y\ 3993}#
+                                     (#{gen-var\ 779}# (quote tmp))))
+                               (#{build-application\ 588}#
                                  #f
-                                 (#{build-simple-lambda\ 11093}#
+                                 (#{build-simple-lambda\ 608}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 14476}#)
+                                   (list #{y\ 3993}#)
                                    '()
-                                   (let ((#{y\ 14480}#
-                                           (#{build-lexical-reference\ 11079}#
+                                   (let ((#{y\ 3997}#
+                                           (#{build-lexical-reference\ 594}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 14476}#)))
-                                     (#{build-conditional\ 11075}#
+                                             #{y\ 3993}#)))
+                                     (#{build-conditional\ 590}#
                                        #f
-                                       ((lambda (#{tmp\ 14483}#)
-                                          ((lambda (#{tmp\ 14484}#)
-                                             (if #{tmp\ 14484}#
-                                               (apply (lambda () #{y\ 14480}#)
-                                                      #{tmp\ 14484}#)
-                                               ((lambda (#{_\ 14486}#)
-                                                  (#{build-conditional\ 11075}#
+                                       ((lambda (#{tmp\ 4000}#)
+                                          ((lambda (#{tmp\ 4001}#)
+                                             (if #{tmp\ 4001}#
+                                               (apply (lambda () #{y\ 3997}#)
+                                                      #{tmp\ 4001}#)
+                                               ((lambda (#{_\ 4003}#)
+                                                  (#{build-conditional\ 590}#
                                                     #f
-                                                    #{y\ 14480}#
-                                                    (#{build-dispatch-call\ 
14401}#
-                                                      #{pvars\ 14465}#
-                                                      #{fender\ 14453}#
-                                                      #{y\ 14480}#
-                                                      #{r\ 14451}#
-                                                      #{mod\ 14455}#)
-                                                    (#{build-data\ 11101}#
+                                                    #{y\ 3997}#
+                                                    (#{build-dispatch-call\ 
3918}#
+                                                      #{pvars\ 3982}#
+                                                      #{fender\ 3970}#
+                                                      #{y\ 3997}#
+                                                      #{r\ 3968}#
+                                                      #{mod\ 3972}#)
+                                                    (#{build-data\ 616}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 14483}#)))
+                                                #{tmp\ 4000}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 14483}#
+                                             #{tmp\ 4000}#
                                              '#(atom #t))))
-                                        #{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}#
+                                        #{fender\ 3970}#)
+                                       (#{build-dispatch-call\ 3918}#
+                                         #{pvars\ 3982}#
+                                         #{exp\ 3971}#
+                                         #{y\ 3997}#
+                                         #{r\ 3968}#
+                                         #{mod\ 3972}#)
+                                       (#{gen-syntax-case\ 3922}#
+                                         #{x\ 3965}#
+                                         #{keys\ 3966}#
+                                         #{clauses\ 3967}#
+                                         #{r\ 3968}#
+                                         #{mod\ 3972}#))))
+                                 (list (if (eq? #{p\ 3981}# (quote any))
+                                         (#{build-application\ 588}#
                                            #f
-                                           (#{build-primref\ 11099}#
+                                           (#{build-primref\ 614}#
                                              #f
                                              'list)
-                                           (list #{x\ 14448}#))
-                                         (#{build-application\ 11073}#
+                                           (list #{x\ 3965}#))
+                                         (#{build-application\ 588}#
                                            #f
-                                           (#{build-primref\ 11099}#
+                                           (#{build-primref\ 614}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 14448}#
-                                                 (#{build-data\ 11101}#
+                                           (list #{x\ 3965}#
+                                                 (#{build-data\ 616}#
                                                    #f
-                                                   #{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}#
+                                                   #{p\ 3981}#)))))))))))))
+                 (#{build-dispatch-call\ 3918}#
+                   (lambda (#{pvars\ 4011}#
+                            #{exp\ 4012}#
+                            #{y\ 4013}#
+                            #{r\ 4014}#
+                            #{mod\ 4015}#)
+                     (let ((#{ids\ 4023}# (map car #{pvars\ 4011}#))
+                           (#{levels\ 4024}# (map cdr #{pvars\ 4011}#)))
+                       (let ((#{labels\ 4027}#
+                               (#{gen-labels\ 684}# #{ids\ 4023}#))
+                             (#{new-vars\ 4028}#
+                               (map #{gen-var\ 779}# #{ids\ 4023}#)))
+                         (#{build-application\ 588}#
                            #f
-                           (#{build-primref\ 11099}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 11093}#
+                           (#{build-primref\ 614}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 608}#
                                    #f
-                                   (map syntax->datum #{ids\ 14506}#)
+                                   (map syntax->datum #{ids\ 4023}#)
                                    #f
-                                   #{new-vars\ 14511}#
+                                   #{new-vars\ 4028}#
                                    '()
-                                   (#{chi\ 11236}#
-                                     #{exp\ 14495}#
-                                     (#{extend-env\ 11139}#
-                                       #{labels\ 14510}#
-                                       (map (lambda (#{var\ 14515}#
-                                                     #{level\ 14516}#)
+                                   (#{chi\ 751}#
+                                     #{exp\ 4012}#
+                                     (#{extend-env\ 654}#
+                                       #{labels\ 4027}#
+                                       (map (lambda (#{var\ 4032}#
+                                                     #{level\ 4033}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 14515}#
-                                                          #{level\ 14516}#)))
-                                            #{new-vars\ 14511}#
-                                            (map cdr #{pvars\ 14494}#))
-                                       #{r\ 14497}#)
-                                     (#{make-binding-wrap\ 11198}#
-                                       #{ids\ 14506}#
-                                       #{labels\ 14510}#
+                                                    (cons #{var\ 4032}#
+                                                          #{level\ 4033}#)))
+                                            #{new-vars\ 4028}#
+                                            (map cdr #{pvars\ 4011}#))
+                                       #{r\ 4014}#)
+                                     (#{make-binding-wrap\ 713}#
+                                       #{ids\ 4023}#
+                                       #{labels\ 4027}#
                                        '(()))
-                                     #{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}#)
+                                     #{mod\ 4015}#))
+                                 #{y\ 4013}#))))))
+                 (#{convert-pattern\ 3916}#
+                   (lambda (#{pattern\ 4039}# #{keys\ 4040}#)
+                     (letrec ((#{cvt\ 4046}#
+                                (lambda (#{p\ 4047}# #{n\ 4048}# #{ids\ 4049}#)
+                                  (if (#{id?\ 666}# #{p\ 4047}#)
+                                    (if (#{bound-id-member?\ 733}#
+                                          #{p\ 4047}#
+                                          #{keys\ 4040}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 14530}#)
-                                        #{ids\ 14532}#)
+                                        (vector (quote free-id) #{p\ 4047}#)
+                                        #{ids\ 4049}#)
                                       (values
                                         'any
-                                        (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}#)
+                                        (cons (cons #{p\ 4047}# #{n\ 4048}#)
+                                              #{ids\ 4049}#)))
+                                    ((lambda (#{tmp\ 4053}#)
+                                       ((lambda (#{tmp\ 4054}#)
+                                          (if (if #{tmp\ 4054}#
+                                                (apply (lambda (#{x\ 4057}#
+                                                                #{dots\ 4058}#)
+                                                         (#{ellipsis?\ 767}#
+                                                           #{dots\ 4058}#))
+                                                       #{tmp\ 4054}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 14544}#
-                                                            #{dots\ 14545}#)
+                                            (apply (lambda (#{x\ 4061}#
+                                                            #{dots\ 4062}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 14529}#
-                                                           #{x\ 14544}#
-                                                           (#{fx+\ 11052}#
-                                                             #{n\ 14531}#
+                                                         (#{cvt\ 4046}#
+                                                           #{x\ 4061}#
+                                                           (#{fx+\ 567}#
+                                                             #{n\ 4048}#
                                                              1)
-                                                           #{ids\ 14532}#))
-                                                       (lambda (#{p\ 14546}#
-                                                                #{ids\ 14547}#)
+                                                           #{ids\ 4049}#))
+                                                       (lambda (#{p\ 4063}#
+                                                                #{ids\ 4064}#)
                                                          (values
-                                                           (if (eq? #{p\ 
14546}#
+                                                           (if (eq? #{p\ 4063}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{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}#)
+                                                               #{p\ 4063}#))
+                                                           #{ids\ 4064}#))))
+                                                   #{tmp\ 4054}#)
+                                            ((lambda (#{tmp\ 4067}#)
+                                               (if (if #{tmp\ 4067}#
+                                                     (apply (lambda (#{x\ 
4071}#
+                                                                     #{dots\ 
4072}#
+                                                                     #{ys\ 
4073}#)
+                                                              (#{ellipsis?\ 
767}#
+                                                                #{dots\ 
4072}#))
+                                                            #{tmp\ 4067}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 14560}#
-                                                                 #{dots\ 
14561}#
-                                                                 #{ys\ 14562}#)
+                                                 (apply (lambda (#{x\ 4077}#
+                                                                 #{dots\ 4078}#
+                                                                 #{ys\ 4079}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 14527}#
-                                                                #{ys\ 14562}#
-                                                                #{n\ 14531}#
-                                                                #{ids\ 
14532}#))
-                                                            (lambda (#{ys\ 
14564}#
-                                                                     #{ids\ 
14565}#)
+                                                              (#{cvt*\ 4044}#
+                                                                #{ys\ 4079}#
+                                                                #{n\ 4048}#
+                                                                #{ids\ 4049}#))
+                                                            (lambda (#{ys\ 
4081}#
+                                                                     #{ids\ 
4082}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
14529}#
-                                                                    #{x\ 
14560}#
-                                                                    (+ #{n\ 
14531}#
+                                                                  (#{cvt\ 
4046}#
+                                                                    #{x\ 4077}#
+                                                                    (+ #{n\ 
4048}#
                                                                        1)
-                                                                    #{ids\ 
14565}#))
-                                                                (lambda (#{x\ 
14568}#
-                                                                         
#{ids\ 14569}#)
+                                                                    #{ids\ 
4082}#))
+                                                                (lambda (#{x\ 
4085}#
+                                                                         
#{ids\ 4086}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 14568}#
+                                                                            
(cons #{x\ 4085}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 14564}#)
+                                                                               
           #{ys\ 4081}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
14569}#))))))
-                                                        #{tmp\ 14550}#)
-                                                 ((lambda (#{tmp\ 14573}#)
-                                                    (if #{tmp\ 14573}#
-                                                      (apply (lambda (#{x\ 
14576}#
-                                                                      #{y\ 
14577}#)
+                                                                    #{ids\ 
4086}#))))))
+                                                        #{tmp\ 4067}#)
+                                                 ((lambda (#{tmp\ 4090}#)
+                                                    (if #{tmp\ 4090}#
+                                                      (apply (lambda (#{x\ 
4093}#
+                                                                      #{y\ 
4094}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
14529}#
-                                                                     #{y\ 
14577}#
-                                                                     #{n\ 
14531}#
-                                                                     #{ids\ 
14532}#))
-                                                                 (lambda (#{y\ 
14578}#
-                                                                          
#{ids\ 14579}#)
+                                                                   (#{cvt\ 
4046}#
+                                                                     #{y\ 
4094}#
+                                                                     #{n\ 
4048}#
+                                                                     #{ids\ 
4049}#))
+                                                                 (lambda (#{y\ 
4095}#
+                                                                          
#{ids\ 4096}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
14529}#
-                                                                         #{x\ 
14576}#
-                                                                         #{n\ 
14531}#
-                                                                         
#{ids\ 14579}#))
-                                                                     (lambda 
(#{x\ 14582}#
-                                                                              
#{ids\ 14583}#)
+                                                                       (#{cvt\ 
4046}#
+                                                                         #{x\ 
4093}#
+                                                                         #{n\ 
4048}#
+                                                                         
#{ids\ 4096}#))
+                                                                     (lambda 
(#{x\ 4099}#
+                                                                              
#{ids\ 4100}#)
                                                                        (values
-                                                                         (cons 
#{x\ 14582}#
-                                                                               
#{y\ 14578}#)
-                                                                         
#{ids\ 14583}#))))))
-                                                             #{tmp\ 14573}#)
-                                                      ((lambda (#{tmp\ 14586}#)
-                                                         (if #{tmp\ 14586}#
+                                                                         (cons 
#{x\ 4099}#
+                                                                               
#{y\ 4095}#)
+                                                                         
#{ids\ 4100}#))))))
+                                                             #{tmp\ 4090}#)
+                                                      ((lambda (#{tmp\ 4103}#)
+                                                         (if #{tmp\ 4103}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
14532}#))
-                                                                  #{tmp\ 
14586}#)
-                                                           ((lambda (#{tmp\ 
14587}#)
-                                                              (if #{tmp\ 
14587}#
-                                                                (apply (lambda 
(#{x\ 14589}#)
+                                                                      #{ids\ 
4049}#))
+                                                                  #{tmp\ 
4103}#)
+                                                           ((lambda (#{tmp\ 
4104}#)
+                                                              (if #{tmp\ 4104}#
+                                                                (apply (lambda 
(#{x\ 4106}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 14529}#
-                                                                               
#{x\ 14589}#
-                                                                               
#{n\ 14531}#
-                                                                               
#{ids\ 14532}#))
-                                                                           
(lambda (#{p\ 14591}#
-                                                                               
     #{ids\ 14592}#)
+                                                                             
(#{cvt\ 4046}#
+                                                                               
#{x\ 4106}#
+                                                                               
#{n\ 4048}#
+                                                                               
#{ids\ 4049}#))
+                                                                           
(lambda (#{p\ 4108}#
+                                                                               
     #{ids\ 4109}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 14591}#)
-                                                                               
#{ids\ 14592}#))))
-                                                                       #{tmp\ 
14587}#)
-                                                                ((lambda (#{x\ 
14596}#)
+                                                                               
  #{p\ 4108}#)
+                                                                               
#{ids\ 4109}#))))
+                                                                       #{tmp\ 
4104}#)
+                                                                ((lambda (#{x\ 
4113}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 11262}#
-                                                                         #{p\ 
14530}#
+                                                                       
(#{strip\ 777}#
+                                                                         #{p\ 
4047}#
                                                                          
'(())))
-                                                                     #{ids\ 
14532}#))
-                                                                 #{tmp\ 
14536}#)))
+                                                                     #{ids\ 
4049}#))
+                                                                 #{tmp\ 
4053}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 14536}#
+                                                              #{tmp\ 4053}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 14536}#
+                                                         #{tmp\ 4053}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 14536}#
+                                                    #{tmp\ 4053}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 14536}#
+                                               #{tmp\ 4053}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 14536}#
+                                          #{tmp\ 4053}#
                                           '(any any))))
-                                     #{p\ 14530}#))))
-                              (#{cvt*\ 14527}#
-                                (lambda (#{p*\ 14598}#
-                                         #{n\ 14599}#
-                                         #{ids\ 14600}#)
-                                  (if (null? #{p*\ 14598}#)
-                                    (values (quote ()) #{ids\ 14600}#)
+                                     #{p\ 4047}#))))
+                              (#{cvt*\ 4044}#
+                                (lambda (#{p*\ 4115}#
+                                         #{n\ 4116}#
+                                         #{ids\ 4117}#)
+                                  (if (null? #{p*\ 4115}#)
+                                    (values (quote ()) #{ids\ 4117}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 14527}#
-                                          (cdr #{p*\ 14598}#)
-                                          #{n\ 14599}#
-                                          #{ids\ 14600}#))
-                                      (lambda (#{y\ 14604}# #{ids\ 14605}#)
+                                        (#{cvt*\ 4044}#
+                                          (cdr #{p*\ 4115}#)
+                                          #{n\ 4116}#
+                                          #{ids\ 4117}#))
+                                      (lambda (#{y\ 4121}# #{ids\ 4122}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 14529}#
-                                              (car #{p*\ 14598}#)
-                                              #{n\ 14599}#
-                                              #{ids\ 14605}#))
-                                          (lambda (#{x\ 14608}# #{ids\ 14609}#)
+                                            (#{cvt\ 4046}#
+                                              (car #{p*\ 4115}#)
+                                              #{n\ 4116}#
+                                              #{ids\ 4122}#))
+                                          (lambda (#{x\ 4125}# #{ids\ 4126}#)
                                             (values
-                                              (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}#)
+                                              (cons #{x\ 4125}# #{y\ 4121}#)
+                                              #{ids\ 4126}#)))))))))
+                       (#{cvt\ 4046}# #{pattern\ 4039}# 0 (quote ()))))))
+          (lambda (#{e\ 4129}#
+                   #{r\ 4130}#
+                   #{w\ 4131}#
+                   #{s\ 4132}#
+                   #{mod\ 4133}#)
+            (let ((#{e\ 4140}#
+                    (#{source-wrap\ 737}#
+                      #{e\ 4129}#
+                      #{w\ 4131}#
+                      #{s\ 4132}#
+                      #{mod\ 4133}#)))
+              ((lambda (#{tmp\ 4141}#)
+                 ((lambda (#{tmp\ 4142}#)
+                    (if #{tmp\ 4142}#
+                      (apply (lambda (#{_\ 4147}#
+                                      #{val\ 4148}#
+                                      #{key\ 4149}#
+                                      #{m\ 4150}#)
                                (if (and-map
-                                     (lambda (#{x\ 14634}#)
-                                       (if (#{id?\ 11151}# #{x\ 14634}#)
-                                         (not (#{ellipsis?\ 11252}#
-                                                #{x\ 14634}#))
+                                     (lambda (#{x\ 4151}#)
+                                       (if (#{id?\ 666}# #{x\ 4151}#)
+                                         (not (#{ellipsis?\ 767}# #{x\ 4151}#))
                                          #f))
-                                     #{key\ 14632}#)
-                                 (let ((#{x\ 14640}#
-                                         (#{gen-var\ 11264}# (quote tmp))))
-                                   (#{build-application\ 11073}#
-                                     #{s\ 14615}#
-                                     (#{build-simple-lambda\ 11093}#
+                                     #{key\ 4149}#)
+                                 (let ((#{x\ 4157}#
+                                         (#{gen-var\ 779}# (quote tmp))))
+                                   (#{build-application\ 588}#
+                                     #{s\ 4132}#
+                                     (#{build-simple-lambda\ 608}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 14640}#)
+                                       (list #{x\ 4157}#)
                                        '()
-                                       (#{gen-syntax-case\ 14405}#
-                                         (#{build-lexical-reference\ 11079}#
+                                       (#{gen-syntax-case\ 3922}#
+                                         (#{build-lexical-reference\ 594}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 14640}#)
-                                         #{key\ 14632}#
-                                         #{m\ 14633}#
-                                         #{r\ 14613}#
-                                         #{mod\ 14616}#))
-                                     (list (#{chi\ 11236}#
-                                             #{val\ 14631}#
-                                             #{r\ 14613}#
+                                           #{x\ 4157}#)
+                                         #{key\ 4149}#
+                                         #{m\ 4150}#
+                                         #{r\ 4130}#
+                                         #{mod\ 4133}#))
+                                     (list (#{chi\ 751}#
+                                             #{val\ 4148}#
+                                             #{r\ 4130}#
                                              '(())
-                                             #{mod\ 14616}#))))
+                                             #{mod\ 4133}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 14623}#)))
-                             #{tmp\ 14625}#)
+                                   #{e\ 4140}#)))
+                             #{tmp\ 4142}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 14624}#)))
+                        #{tmp\ 4141}#)))
                   ($sc-dispatch
-                    #{tmp\ 14624}#
+                    #{tmp\ 4141}#
                     '(any any each-any . each-any))))
-               #{e\ 14623}#)))))
+               #{e\ 4140}#)))))
       (set! macroexpand
-        (lambda (#{x\ 14646}# . #{rest\ 14647}#)
-          (let ((#{m\ 14653}#
-                  (if (null? #{rest\ 14647}#)
+        (lambda (#{x\ 4163}# . #{rest\ 4164}#)
+          (let ((#{m\ 4170}#
+                  (if (null? #{rest\ 4164}#)
                     'e
-                    (car #{rest\ 14647}#)))
-                (#{esew\ 14654}#
-                  (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#)))
-                        (if #{t\ 14658}#
-                          #{t\ 14658}#
-                          (null? (cdr #{rest\ 14647}#))))
+                    (car #{rest\ 4164}#)))
+                (#{esew\ 4171}#
+                  (if (let ((#{t\ 4175}# (null? #{rest\ 4164}#)))
+                        (if #{t\ 4175}#
+                          #{t\ 4175}#
+                          (null? (cdr #{rest\ 4164}#))))
                     '(eval)
-                    (cadr #{rest\ 14647}#)))
-                (#{mod\ 14655}#
+                    (cadr #{rest\ 4164}#)))
+                (#{mod\ 4172}#
                   (cons 'hygiene
                         (module-name (current-module)))))
             (with-fluids
-              ((#{*mode*\ 11050}# #{m\ 14653}#))
-              (if (eq? #{m\ 14653}# (quote e))
+              ((#{*mode*\ 565}# #{m\ 4170}#))
+              (if (eq? #{m\ 4170}# (quote e))
                 (memoize-expression
-                  (#{chi-top\ 11234}#
-                    #{x\ 14646}#
+                  (#{chi-top\ 749}#
+                    #{x\ 4163}#
                     '()
                     '((top))
-                    #{m\ 14653}#
-                    #{esew\ 14654}#
-                    #{mod\ 14655}#))
-                (#{chi-top\ 11234}#
-                  #{x\ 14646}#
+                    #{m\ 4170}#
+                    #{esew\ 4171}#
+                    #{mod\ 4172}#))
+                (#{chi-top\ 749}#
+                  #{x\ 4163}#
                   '()
                   '((top))
-                  #{m\ 14653}#
-                  #{esew\ 14654}#
-                  #{mod\ 14655}#))))))
+                  #{m\ 4170}#
+                  #{esew\ 4171}#
+                  #{mod\ 4172}#))))))
       (set! identifier?
-        (lambda (#{x\ 14664}#)
-          (#{nonsymbol-id?\ 11149}# #{x\ 14664}#)))
+        (lambda (#{x\ 4181}#)
+          (#{nonsymbol-id?\ 664}# #{x\ 4181}#)))
       (set! datum->syntax
-        (lambda (#{id\ 14666}# #{datum\ 14667}#)
-          (#{make-syntax-object\ 11113}#
-            #{datum\ 14667}#
-            (#{syntax-object-wrap\ 11119}# #{id\ 14666}#)
+        (lambda (#{id\ 4183}# #{datum\ 4184}#)
+          (#{make-syntax-object\ 628}#
+            #{datum\ 4184}#
+            (#{syntax-object-wrap\ 634}# #{id\ 4183}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 14670}#)
-          (#{strip\ 11262}# #{x\ 14670}# (quote (())))))
+        (lambda (#{x\ 4187}#)
+          (#{strip\ 777}# #{x\ 4187}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 14673}#)
+        (lambda (#{ls\ 4190}#)
           (begin
-            (let ((#{x\ 14677}# #{ls\ 14673}#))
-              (if (not (list? #{x\ 14677}#))
+            (let ((#{x\ 4194}# #{ls\ 4190}#))
+              (if (not (list? #{x\ 4194}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 14677}#)))
-            (map (lambda (#{x\ 14678}#)
-                   (#{wrap\ 11220}# (gensym) (quote ((top))) #f))
-                 #{ls\ 14673}#))))
+                  #{x\ 4194}#)))
+            (map (lambda (#{x\ 4195}#)
+                   (#{wrap\ 735}# (gensym) (quote ((top))) #f))
+                 #{ls\ 4190}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 14682}# #{y\ 14683}#)
+        (lambda (#{x\ 4199}# #{y\ 4200}#)
           (begin
-            (let ((#{x\ 14688}# #{x\ 14682}#))
-              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#))
+            (let ((#{x\ 4205}# #{x\ 4199}#))
+              (if (not (#{nonsymbol-id?\ 664}# #{x\ 4205}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 14688}#)))
-            (let ((#{x\ 14691}# #{y\ 14683}#))
-              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#))
+                  #{x\ 4205}#)))
+            (let ((#{x\ 4208}# #{y\ 4200}#))
+              (if (not (#{nonsymbol-id?\ 664}# #{x\ 4208}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 14691}#)))
-            (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#))))
+                  #{x\ 4208}#)))
+            (#{free-id=?\ 725}# #{x\ 4199}# #{y\ 4200}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 14692}# #{y\ 14693}#)
+        (lambda (#{x\ 4209}# #{y\ 4210}#)
           (begin
-            (let ((#{x\ 14698}# #{x\ 14692}#))
-              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#))
+            (let ((#{x\ 4215}# #{x\ 4209}#))
+              (if (not (#{nonsymbol-id?\ 664}# #{x\ 4215}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 14698}#)))
-            (let ((#{x\ 14701}# #{y\ 14693}#))
-              (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#))
+                  #{x\ 4215}#)))
+            (let ((#{x\ 4218}# #{y\ 4210}#))
+              (if (not (#{nonsymbol-id?\ 664}# #{x\ 4218}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 14701}#)))
-            (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#))))
+                  #{x\ 4218}#)))
+            (#{bound-id=?\ 727}# #{x\ 4209}# #{y\ 4210}#))))
       (set! syntax-violation
-        (lambda (#{who\ 14702}#
-                 #{message\ 14703}#
-                 #{form\ 14704}#
+        (lambda (#{who\ 4219}#
+                 #{message\ 4220}#
+                 #{form\ 4221}#
                  .
-                 #{subform\ 14705}#)
+                 #{subform\ 4222}#)
           (begin
-            (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}#))
+            (let ((#{x\ 4229}# #{who\ 4219}#))
+              (if (not ((lambda (#{x\ 4230}#)
+                          (let ((#{t\ 4234}# (not #{x\ 4230}#)))
+                            (if #{t\ 4234}#
+                              #{t\ 4234}#
+                              (let ((#{t\ 4237}# (string? #{x\ 4230}#)))
+                                (if #{t\ 4237}#
+                                  #{t\ 4237}#
+                                  (symbol? #{x\ 4230}#))))))
+                        #{x\ 4229}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 14712}#)))
-            (let ((#{x\ 14724}# #{message\ 14703}#))
-              (if (not (string? #{x\ 14724}#))
+                  #{x\ 4229}#)))
+            (let ((#{x\ 4241}# #{message\ 4220}#))
+              (if (not (string? #{x\ 4241}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 14724}#)))
+                  #{x\ 4241}#)))
             (scm-error
               'syntax-error
               'macroexpand
               (string-append
-                (if #{who\ 14702}# "~a: " "")
+                (if #{who\ 4219}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 14705}#)
+                (if (null? #{subform\ 4222}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 14726}#
-                      (cons #{message\ 14703}#
-                            (map (lambda (#{x\ 14727}#)
-                                   (#{strip\ 11262}#
-                                     #{x\ 14727}#
-                                     '(())))
+              (let ((#{tail\ 4243}#
+                      (cons #{message\ 4220}#
+                            (map (lambda (#{x\ 4244}#)
+                                   (#{strip\ 777}# #{x\ 4244}# (quote (()))))
                                  (append
-                                   #{subform\ 14705}#
-                                   (list #{form\ 14704}#))))))
-                (if #{who\ 14702}#
-                  (cons #{who\ 14702}# #{tail\ 14726}#)
-                  #{tail\ 14726}#))
+                                   #{subform\ 4222}#
+                                   (list #{form\ 4221}#))))))
+                (if #{who\ 4219}#
+                  (cons #{who\ 4219}# #{tail\ 4243}#)
+                  #{tail\ 4243}#))
               #f))))
-      (letrec ((#{match\ 14743}#
-                 (lambda (#{e\ 14744}#
-                          #{p\ 14745}#
-                          #{w\ 14746}#
-                          #{r\ 14747}#
-                          #{mod\ 14748}#)
-                   (if (not #{r\ 14747}#)
+      (letrec ((#{match\ 4260}#
+                 (lambda (#{e\ 4261}#
+                          #{p\ 4262}#
+                          #{w\ 4263}#
+                          #{r\ 4264}#
+                          #{mod\ 4265}#)
+                   (if (not #{r\ 4264}#)
                      #f
-                     (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}#)
+                     (if (eq? #{p\ 4262}# (quote any))
+                       (cons (#{wrap\ 735}#
+                               #{e\ 4261}#
+                               #{w\ 4263}#
+                               #{mod\ 4265}#)
+                             #{r\ 4264}#)
+                       (if (#{syntax-object?\ 630}# #{e\ 4261}#)
+                         (#{match*\ 4258}#
+                           (#{syntax-object-expression\ 632}# #{e\ 4261}#)
+                           #{p\ 4262}#
+                           (#{join-wraps\ 717}#
+                             #{w\ 4263}#
+                             (#{syntax-object-wrap\ 634}# #{e\ 4261}#))
+                           #{r\ 4264}#
+                           (#{syntax-object-module\ 636}# #{e\ 4261}#))
+                         (#{match*\ 4258}#
+                           #{e\ 4261}#
+                           #{p\ 4262}#
+                           #{w\ 4263}#
+                           #{r\ 4264}#
+                           #{mod\ 4265}#))))))
+               (#{match*\ 4258}#
+                 (lambda (#{e\ 4278}#
+                          #{p\ 4279}#
+                          #{w\ 4280}#
+                          #{r\ 4281}#
+                          #{mod\ 4282}#)
+                   (if (null? #{p\ 4279}#)
+                     (if (null? #{e\ 4278}#) #{r\ 4281}# #f)
+                     (if (pair? #{p\ 4279}#)
+                       (if (pair? #{e\ 4278}#)
+                         (#{match\ 4260}#
+                           (car #{e\ 4278}#)
+                           (car #{p\ 4279}#)
+                           #{w\ 4280}#
+                           (#{match\ 4260}#
+                             (cdr #{e\ 4278}#)
+                             (cdr #{p\ 4279}#)
+                             #{w\ 4280}#
+                             #{r\ 4281}#
+                             #{mod\ 4282}#)
+                           #{mod\ 4282}#)
                          #f)
-                       (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}#)
+                       (if (eq? #{p\ 4279}# (quote each-any))
+                         (let ((#{l\ 4299}#
+                                 (#{match-each-any\ 4252}#
+                                   #{e\ 4278}#
+                                   #{w\ 4280}#
+                                   #{mod\ 4282}#)))
+                           (if #{l\ 4299}#
+                             (cons #{l\ 4299}# #{r\ 4281}#)
                              #f))
-                         (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}#
+                         (let ((#{atom-key\ 4305}# (vector-ref #{p\ 4279}# 0)))
+                           (if (memv #{atom-key\ 4305}# (quote (each)))
+                             (if (null? #{e\ 4278}#)
+                               (#{match-empty\ 4254}#
+                                 (vector-ref #{p\ 4279}# 1)
+                                 #{r\ 4281}#)
+                               (let ((#{l\ 4308}#
+                                       (#{match-each\ 4248}#
+                                         #{e\ 4278}#
+                                         (vector-ref #{p\ 4279}# 1)
+                                         #{w\ 4280}#
+                                         #{mod\ 4282}#)))
+                                 (if #{l\ 4308}#
+                                   (letrec ((#{collect\ 4313}#
+                                              (lambda (#{l\ 4314}#)
+                                                (if (null? (car #{l\ 4314}#))
+                                                  #{r\ 4281}#
+                                                  (cons (map car #{l\ 4314}#)
+                                                        (#{collect\ 4313}#
                                                           (map cdr
-                                                               #{l\ 
14797}#)))))))
-                                     (#{collect\ 14796}# #{l\ 14791}#))
+                                                               #{l\ 
4314}#)))))))
+                                     (#{collect\ 4313}# #{l\ 4308}#))
                                    #f)))
-                             (if (memv #{atom-key\ 14788}# (quote (each+)))
+                             (if (memv #{atom-key\ 4305}# (quote (each+)))
                                (call-with-values
                                  (lambda ()
-                                   (#{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}#))
+                                   (#{match-each+\ 4250}#
+                                     #{e\ 4278}#
+                                     (vector-ref #{p\ 4279}# 1)
+                                     (vector-ref #{p\ 4279}# 2)
+                                     (vector-ref #{p\ 4279}# 3)
+                                     #{w\ 4280}#
+                                     #{r\ 4281}#
+                                     #{mod\ 4282}#))
+                                 (lambda (#{xr*\ 4316}#
+                                          #{y-pat\ 4317}#
+                                          #{r\ 4318}#)
+                                   (if #{r\ 4318}#
+                                     (if (null? #{y-pat\ 4317}#)
+                                       (if (null? #{xr*\ 4316}#)
+                                         (#{match-empty\ 4254}#
+                                           (vector-ref #{p\ 4279}# 1)
+                                           #{r\ 4318}#)
+                                         (#{combine\ 4256}#
+                                           #{xr*\ 4316}#
+                                           #{r\ 4318}#))
                                        #f)
                                      #f)))
-                               (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}#
+                               (if (memv #{atom-key\ 4305}# (quote (free-id)))
+                                 (if (#{id?\ 666}# #{e\ 4278}#)
+                                   (if (#{free-id=?\ 725}#
+                                         (#{wrap\ 735}#
+                                           #{e\ 4278}#
+                                           #{w\ 4280}#
+                                           #{mod\ 4282}#)
+                                         (vector-ref #{p\ 4279}# 1))
+                                     #{r\ 4281}#
                                      #f)
                                    #f)
-                                 (if (memv #{atom-key\ 14788}# (quote (atom)))
+                                 (if (memv #{atom-key\ 4305}# (quote (atom)))
                                    (if (equal?
-                                         (vector-ref #{p\ 14762}# 1)
-                                         (#{strip\ 11262}#
-                                           #{e\ 14761}#
-                                           #{w\ 14763}#))
-                                     #{r\ 14764}#
+                                         (vector-ref #{p\ 4279}# 1)
+                                         (#{strip\ 777}#
+                                           #{e\ 4278}#
+                                           #{w\ 4280}#))
+                                     #{r\ 4281}#
                                      #f)
-                                   (if (memv #{atom-key\ 14788}#
+                                   (if (memv #{atom-key\ 4305}#
                                              '(vector))
-                                     (if (vector? #{e\ 14761}#)
-                                       (#{match\ 14743}#
-                                         (vector->list #{e\ 14761}#)
-                                         (vector-ref #{p\ 14762}# 1)
-                                         #{w\ 14763}#
-                                         #{r\ 14764}#
-                                         #{mod\ 14765}#)
+                                     (if (vector? #{e\ 4278}#)
+                                       (#{match\ 4260}#
+                                         (vector->list #{e\ 4278}#)
+                                         (vector-ref #{p\ 4279}# 1)
+                                         #{w\ 4280}#
+                                         #{r\ 4281}#
+                                         #{mod\ 4282}#)
                                        #f))))))))))))
-               (#{combine\ 14739}#
-                 (lambda (#{r*\ 14818}# #{r\ 14819}#)
-                   (if (null? (car #{r*\ 14818}#))
-                     #{r\ 14819}#
-